Class: AGTkObjRect

Inherits:
Object
  • Object
show all
Defined in:
ext/ae-rad/lib/tk/al-tk.rb

Instance Attribute Summary collapse

Instance Method Summary collapse

Constructor Details

#initialize(_parent, _x0, _y0, _w0, _h0, _side, _cursor, _bind = true) ⇒ AGTkObjRect

Returns a new instance of AGTkObjRect.



16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
 
# File 'ext/ae-rad/lib/tk/al-tk.rb', line 16

def initialize(_parent, _x0, _y0, _w0 , _h0, _side , _cursor, _bind = true )
  if _bind
    _bc = 'white'
  else
    _bc = 'red'
  end
  @r = TkLabel.new(_parent){
    background _bc
    highlightbackground 'black'
    relief 'groove'
    place('x' => _x0 , 'y' => _y0, 'width' => _w0, 'height' => _h0)
  }
  @motion = false
  @side = _side
  @x0 = _x0
  @y0 = _y0
  @w0 = _w0
  @h0 = _h0
  @start_x = _x0
  @start_y = _y0
  @cursor = _cursor
  if _bind
    @r.bind("Enter", proc{|x, y| do_enter(x, y)}, "%x %y")
    @r.bind("ButtonPress-1", proc{|e| do_press(e.x, e.y)})
    @r.bind("B1-Motion", proc{|x, y| do_motion(x,y)},"%x %y")
  end
end

Instance Attribute Details

#h0 ⇒ Object (readonly)

Returns the value of attribute h0.



14
15
16
 
# File 'ext/ae-rad/lib/tk/al-tk.rb', line 14

def h0
  @h0
end

#motion ⇒ Object

Returns the value of attribute motion.



14
15
16
 
# File 'ext/ae-rad/lib/tk/al-tk.rb', line 14

def motion
  @motion
end

#r ⇒ Object

Returns the value of attribute r.



14
15
16
 
# File 'ext/ae-rad/lib/tk/al-tk.rb', line 14

def r
  @r
end

#start_x ⇒ Object

Returns the value of attribute start_x.



14
15
16
 
# File 'ext/ae-rad/lib/tk/al-tk.rb', line 14

def start_x
  @start_x
end

#start_y ⇒ Object

Returns the value of attribute start_y.



14
15
16
 
# File 'ext/ae-rad/lib/tk/al-tk.rb', line 14

def start_y
  @start_y
end

#w0 ⇒ Object (readonly)

Returns the value of attribute w0.



14
15
16
 
# File 'ext/ae-rad/lib/tk/al-tk.rb', line 14

def w0
  @w0
end

#x0 ⇒ Object (readonly)

Returns the value of attribute x0.



14
15
16
 
# File 'ext/ae-rad/lib/tk/al-tk.rb', line 14

def x0
  @x0
end

#y0 ⇒ Object (readonly)

Returns the value of attribute y0.



14
15
16
 
# File 'ext/ae-rad/lib/tk/al-tk.rb', line 14

def y0
  @y0
end

Instance Method Details

#do_enter(x, y) ⇒ Object 



44
45
46
47
48
 
# File 'ext/ae-rad/lib/tk/al-tk.rb', line 44

def do_enter(x, y)
  @oldcursor = @r.cget('cursor')
  @r.configure('cursor'=> @cursor)
  
end

#do_leave ⇒ Object 



50
51
52
 
# File 'ext/ae-rad/lib/tk/al-tk.rb', line 50

def do_leave
  @r.configure('cursor'=>@oldcursor)
end

#do_motion(x, y) ⇒ Object 



59
60
61
62
 
# File 'ext/ae-rad/lib/tk/al-tk.rb', line 59

def do_motion( x, y)
  @motion = true
  move(x - @start_x, y - @start_y)
end

#do_press(x, y) ⇒ Object 



54
55
56
57
 
# File 'ext/ae-rad/lib/tk/al-tk.rb', line 54

def do_press(x, y)
  @start_x = x
  @start_y = y
end

#move(_x, _y) ⇒ Object 



64
65
66
67
68
69
70
71
72
73
74
75
76
77
 
# File 'ext/ae-rad/lib/tk/al-tk.rb', line 64

def move(_x,_y)
  case @side
  when 'both'
    @x0 = @x0 + _x
    @y0 = @y0 + _y
    @r.place('x' => @x0, 'y' => @y0)
  when 'x'
    @x0 = @x0 + _x
    @r.place('x' => @x0)
  when 'y'
    @y0 = @y0 + _y
    @r.place('y' => @y0)
  end
end