Class: AGTkBaseContainer

Inherits:
AGTkLayoutManaged show all
Defined in:
lib/tk/al-tk.rb

Direct Known Subclasses

AGTkContainer

Instance Attribute Summary collapse

Attributes inherited from AGTk

#canvas, #l_manager, #x0, #x3, #y0, #y3

Instance Method Summary collapse

Methods inherited from AGTkLayoutManaged

#start_properties

Methods inherited from AGTk

#activate, #active_move_tab, class_renderer, class_sniffer, class_wrapped, #contains_events, #delete, #getFileName, #has_events, #new_object, #popup, #popup_items, #update_property

Constructor Details

#initialize(_ag_parent, _object = nil) ⇒ AGTkBaseContainer

Returns a new instance of AGTkBaseContainer.



2444
2445
2446
2447
2448
2449
2450
2451
2452
2453
2454
2455
2456
 
# File 'lib/tk/al-tk.rb', line 2444

def initialize(_ag_parent, _object = nil)
  super(_ag_parent, _object)
  p1 = proc{|e|
    @where_x = e.x
    @where_y = e.y
    #$arcadia.objects('objic').activate(@object_inspector) if @object_inspector != $arcadia.objects('objic').active
    _tobj = PaletteContract::TPaletteObj.new(self)
    _tobj.parent = self
    PaletteContract.instance.make_selected(_tobj)
  }
  @obj.bind_append("ButtonRelease-1", p1)

end

Instance Attribute Details

#where_x ⇒ Object (readonly)

Returns the value of attribute where_x.



2443
2444
2445
 
# File 'lib/tk/al-tk.rb', line 2443

def where_x
  @where_x
end

#where_y ⇒ Object (readonly)

Returns the value of attribute where_y.



2443
2444
2445
 
# File 'lib/tk/al-tk.rb', line 2443

def where_y
  @where_y
end

Instance Method Details

#properties ⇒ Object 



2457
2458
2459
2460
 
# File 'lib/tk/al-tk.rb', line 2457

def properties
  super
  publish('property',TkProperties::background(@obj))
end