Class: AGTkObjPlace

Inherits:
Object
  • Object
show all
Defined in:
lib/a-tkcommons.rb

Instance Attribute Summary collapse

Instance Method Summary collapse

Constructor Details

#initialize(_obj = nil, _side = 'both', _cursor = nil, _bind = true) ⇒ AGTkObjPlace

Returns a new instance of AGTkObjPlace.



161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
 
# File 'lib/a-tkcommons.rb', line 161

def initialize(_obj=nil , _side='both' , _cursor=nil, _bind = true )
  if !_obj
    return
  end
  @obj = _obj
  if !_cursor
    case _side
    when 'x'
      _cursor = 'sb_h_double_arrow'
    when 'y'
      _cursor = 'sb_v_double_arrow'
    when 'both'
      _cursor = 'draft_small'
    end
  end
  @motion = false
  @side = _side
  @x0 = TkPlace.info(@obj)['x']
  @y0 = TkPlace.info(@obj)['y']
  if TkWinfo.mapped?(@obj)
    @w0=TkWinfo.width(@obj)
    @h0=TkWinfo.height(@obj)
  else
    @w0=TkWinfo.reqwidth(@obj)
    @h0=TkWinfo.reqheight(@obj)
  end
  @start_x = @x0
  @start_y = @y0
  @cursor = _cursor
  if _bind
    @obj.bind_append("Enter", proc{|x, y| do_enter(x, y)}, "%x %y")
    @obj.bind_append("ButtonPress-1", proc{|x, y| do_press(x,y)}, "%x %y")
    @obj.bind_append("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.



158
159
160
 
# File 'lib/a-tkcommons.rb', line 158

def h0
  @h0
end

#height ⇒ Object

Returns the value of attribute height.



158
159
160
 
# File 'lib/a-tkcommons.rb', line 158

def height
  @height
end

#motion ⇒ Object

Returns the value of attribute motion.



158
159
160
 
# File 'lib/a-tkcommons.rb', line 158

def motion
  @motion
end

#obj ⇒ Object (readonly)

Returns the value of attribute obj.



158
159
160
 
# File 'lib/a-tkcommons.rb', line 158

def obj
  @obj
end

#r ⇒ Object

Returns the value of attribute r.



158
159
160
 
# File 'lib/a-tkcommons.rb', line 158

def r
  @r
end

#relheight ⇒ Object

Returns the value of attribute relheight.



158
159
160
 
# File 'lib/a-tkcommons.rb', line 158

def relheight
  @relheight
end

#relwidth ⇒ Object

Returns the value of attribute relwidth.



158
159
160
 
# File 'lib/a-tkcommons.rb', line 158

def relwidth
  @relwidth
end

#start_x ⇒ Object

Returns the value of attribute start_x.



158
159
160
 
# File 'lib/a-tkcommons.rb', line 158

def start_x
  @start_x
end

#start_y ⇒ Object

Returns the value of attribute start_y.



158
159
160
 
# File 'lib/a-tkcommons.rb', line 158

def start_y
  @start_y
end

#w0 ⇒ Object (readonly)

Returns the value of attribute w0.



158
159
160
 
# File 'lib/a-tkcommons.rb', line 158

def w0
  @w0
end

#width ⇒ Object

Returns the value of attribute width.



158
159
160
 
# File 'lib/a-tkcommons.rb', line 158

def width
  @width
end

#x0 ⇒ Object (readonly)

Returns the value of attribute x0.



158
159
160
 
# File 'lib/a-tkcommons.rb', line 158

def x0
  @x0
end

#y0 ⇒ Object (readonly)

Returns the value of attribute y0.



158
159
160
 
# File 'lib/a-tkcommons.rb', line 158

def y0
  @y0
end

Instance Method Details

#amove(_x, _y) ⇒ Object 



247
248
249
 
# File 'lib/a-tkcommons.rb', line 247

def amove(_x,_y)
  move(_x - @x0 , _y - @y0)
end

#do_enter(x, y) ⇒ Object 



213
214
215
216
 
# File 'lib/a-tkcommons.rb', line 213

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

#do_leave ⇒ Object 



218
219
220
 
# File 'lib/a-tkcommons.rb', line 218

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

#do_motion(_x, _y) ⇒ Object 



227
228
229
230
 
# File 'lib/a-tkcommons.rb', line 227

def do_motion( _x, _y)
  @motion = true
  move(_x - @start_x, _y - @start_y)
end

#do_press(x, y) ⇒ Object 



222
223
224
225
 
# File 'lib/a-tkcommons.rb', line 222

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

#go(_w, _h) ⇒ Object 



251
252
253
254
255
256
257
258
259
260
 
# File 'lib/a-tkcommons.rb', line 251

def go(_w, _h)
  case @side
  when 'x'
    @w0 = _w
    @obj.place('width' => @w0, 'height'=>@height, 'relwidth'=>@relwidth, 'relheight'=>@relheight)
  when 'y'
    @h0 = _h
    @obj.place('height' => @h0, 'width' => @width, 'relwidth'=>@relwidth, 'relheight'=>@relheight)
  end
end

#h ⇒ Object 



205
206
207
208
209
210
211
 
# File 'lib/a-tkcommons.rb', line 205

def h
  if TkWinfo.mapped?(@obj)
    @h0= TkWinfo.height(@obj)
  else
    @h0= TkWinfo.reqheight(@obj)
  end
end

#move(_x, _y) ⇒ Object 



232
233
234
235
236
237
238
239
240
241
242
243
244
245
 
# File 'lib/a-tkcommons.rb', line 232

def move(_x,_y)
  case @side
  when 'both'
    @x0 = @x0 + _x  if (@x0 + _x) >= 0
    @y0 = @y0 + _y
    @obj.place('x' => @x0, 'y' => @y0, 'width' => @width, 'height'=>@height, 'relwidth'=>@relwidth, 'relheight'=>@relheight)
  when 'x'
    @x0 = @x0 + _x  if (@x0 + _x) >= 0
    @obj.place('x' => @x0, 'width' => @width, 'height'=>@height, 'relwidth'=>@relwidth, 'relheight'=>@relheight)
  when 'y'
    @y0 = @y0 + _y
    @obj.place('y' => @y0, 'width' => @width, 'height'=>@height, 'relwidth'=>@relwidth, 'relheight'=>@relheight)
  end
end

#w ⇒ Object 



197
198
199
200
201
202
203
 
# File 'lib/a-tkcommons.rb', line 197

def w
  if TkWinfo.mapped?(@obj)
    @w0= TkWinfo.width(@obj)
  else
    @w0= TkWinfo.reqwidth(@obj)
  end
end