Class: AGTkBaseContainer

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

Direct Known Subclasses

AGTkContainer

Instance Attribute Summary collapse

Attributes inherited from AGTk

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

Attributes inherited from AG

#ag_parent, #i_ag, #i_name, #obj, #obj_class, #persistent, #props, #props_def, #props_kinds, #renderer, #sniffer, #sons

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

Methods inherited from AG

#activate, active, #add_require, #build_sons, class_renderer, class_sniffer, class_wrapped, #defaults, #defaults_values, #del_require, #delete, #fill_defaults_value_from_agobj, #getControlClassName, #getFileName, #getInstanceClass, #getObjClass, #getViewClassName, #get_implementation_block, #get_implementation_code, #get_implementation_new, #get_path_i_name, #has_sons, near_class_wrapped, near_class_wrapper, #new_id, #new_object, #passed_object, #publish, #publish_def, #publish_del, #publish_mod, publish_property, #register, #retrive_values, #select, #start_properties, #update_property

Constructor Details

#initialize(_ag_parent, _object = nil) ⇒ AGTkBaseContainer

Returns a new instance of AGTkBaseContainer.


2344
2345
2346
2347
2348
2349
2350
2351
2352
2353
2354
# File 'ext/ae-rad/lib/tk/al-tk.rb', line 2344

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
    PaletteContract.instance.make_selected(self, 'parent'=>self)
  }
  @obj.bind_append("ButtonRelease-1", p1)

end

Instance Attribute Details

#where_xObject (readonly)

Returns the value of attribute where_x


2343
2344
2345
# File 'ext/ae-rad/lib/tk/al-tk.rb', line 2343

def where_x
  @where_x
end

#where_yObject (readonly)

Returns the value of attribute where_y


2343
2344
2345
# File 'ext/ae-rad/lib/tk/al-tk.rb', line 2343

def where_y
  @where_y
end

Instance Method Details

#propertiesObject


2355
2356
2357
2358
# File 'ext/ae-rad/lib/tk/al-tk.rb', line 2355

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