Class: Tk::TkGeometry

Inherits:

Struct

• Object
• Struct
• Tk::TkGeometry

show all

Defined in:

lib/ffi-tk/geometry.rb

Instance Attribute Summary (collapse)

• - (Object) height

  Returns the value of attribute height.

• - (Object) original

  Returns the value of attribute original.

• - (Object) width

  Returns the value of attribute width.

• - (Object) x

  Returns the value of attribute x.

• - (Object) y

  Returns the value of attribute y.

Instance Method Summary (collapse)

• - (TkGeometry) initialize(tcl_string) constructor

  A new instance of TkGeometry.

• - (Object) to_tcl

3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18

# File 'lib/ffi-tk/geometry.rb', line 3

def initialize(tcl_string)
  case tcl_string.to_s
  when /^\=?(?<width>\d+)x(?<height>\d+)(?<x>[+-]\d+)(?<y>[+-]\d+)$/
    md = $~
    self.width, self.height, self.x, self.y =
      md[:width].to_i, md[:height].to_i, md[:x].to_i, md[:y].to_i
  when /^\=?(?<width>\d+)x(?<height>\d+)$/
    md = $~
    self.width, self.height = md[:width].to_i, md[:height].to_i
  when /^\=?(?<x>[+-]\d+)(?<y>[+-]\d+)$/
    md = $~
    self.x, self.y = md[:x].to_i, md[:y].to_i
  else
    raise "Invalid geometry: %p" % [tcl_string]
  end
end

2
3
4

# File 'lib/ffi-tk/geometry.rb', line 2

def height
  @height
end

2
3
4

# File 'lib/ffi-tk/geometry.rb', line 2

def original
  @original
end

2
3
4

# File 'lib/ffi-tk/geometry.rb', line 2

def width
  @width
end

2
3
4

# File 'lib/ffi-tk/geometry.rb', line 2

def x
  @x
end

2
3
4

# File 'lib/ffi-tk/geometry.rb', line 2

def y
  @y
end

20
21
22
23
24
25
26
27
28
29
30

# File 'lib/ffi-tk/geometry.rb', line 20

def to_tcl
  if width && height && x && y
    "=%dx%d%+d%+d" % [width, height, x, y]
  elsif width && height
    "=%dx%d%" % [width, height]
  elsif x && y
    "=+d%+d" % [x, y]
  else
    raise "Incomplete geometry: %p" % [self]
  end
end