Module: TkMovable

Included in:
TkFloatTitledFrame, TkFrameAdapter
Defined in:
lib/a-tkcommons.rb

Instance Method Summary collapse

Instance Method Details

#moving_do_move_obj(_x, _y) ⇒ Object 



114
115
116
117
118
 
# File 'lib/a-tkcommons.rb', line 114

def moving_do_move_obj(_x, _y)
  _x = TkPlace.info(@moved_obj)['x'] + _x - @x0
  _y = TkPlace.info(@moved_obj)['y'] + _y - @y0
  @moved_obj.place('x'=>_x, 'y'=>_y)
end

#moving_do_press(_x, _y) ⇒ Object 



109
110
111
112
 
# File 'lib/a-tkcommons.rb', line 109

def moving_do_press(_x, _y)
  @x0 = _x
  @y0 = _y
end

#start_moving(_moving_obj = self, _moved_obj = self) ⇒ Object 



95
96
97
98
99
100
101
102
 
# File 'lib/a-tkcommons.rb', line 95

def start_moving(_moving_obj=self, _moved_obj=self)
  @x0 = 0
  @y0 = 0
  @moving_obj = _moving_obj
  @moved_obj = _moved_obj
  @moving_obj.bind_append("B1-Motion", proc{|x, y| moving_do_move_obj(x,y)},"%x %y")
  @moving_obj.bind_append("ButtonPress-1", proc{|e| moving_do_press(e.x, e.y)})
end

#stop_moving ⇒ Object 



104
105
106
107
 
# File 'lib/a-tkcommons.rb', line 104

def stop_moving
  @moving_obj.bind_remove("B1-Motion")
  @moving_obj.bind_remove("ButtonPress-1")
end