Class: AGTkMenu

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

Instance Attribute Summary

Attributes inherited from AG

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

Class Method Summary collapse

Instance Method Summary collapse

Methods inherited from AG

#activate, active, #add_require, #build_sons, class_renderer, class_sniffer, #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, #initialize, near_class_wrapped, near_class_wrapper, #new_id, #passed_object, #publish, #publish_def, #publish_del, #publish_mod, publish_property, #register, #retrive_values, #select, #start_properties, #update_property

Constructor Details

This class inherits a constructor from AG

Class Method Details

.class_wrappedObject


2939
2940
2941
# File 'ext/ae-rad/lib/tk/al-tk.rb', line 2939

def AGTkMenu.class_wrapped
  TkMenu
end

Instance Method Details

#new_objectObject


2932
2933
2934
2935
2936
2937
# File 'ext/ae-rad/lib/tk/al-tk.rb', line 2932

def new_object
  if @ag_parent.obj.class == TkMenubar
    @obj=@ag_parent.obj.add_menu(['asdasd',0])
    $arcadia.outln(@obj.to_s)
  end
end

#propertiesObject


2943
2944
2945
# File 'ext/ae-rad/lib/tk/al-tk.rb', line 2943

def properties
  super()
end