Class: AGTkFrame
- Inherits:
-
AGTkContainer
- Object
- AG
- AGTk
- AGTkLayoutManaged
- AGTkBaseContainer
- AGTkContainer
- AGTkFrame
- Defined in:
- ext/ae-rad/lib/tk/al-tk.rb
Direct Known Subclasses
Instance Attribute Summary
Attributes inherited from AGTkBaseContainer
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
Class Method Summary collapse
Instance Method Summary collapse
Methods inherited from AGTkContainer
Methods inherited from AGTkBaseContainer
Methods inherited from AGTkLayoutManaged
Methods inherited from AGTk
#activate, #active_move_tab, class_renderer, class_sniffer, #contains_events, #delete, #getFileName, #has_events, #initialize, #new_object, #popup, #popup_items, #update_property
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, #new_object, #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 AGTkBaseContainer
Class Method Details
.class_wrapped ⇒ Object
2573 2574 2575 |
# File 'ext/ae-rad/lib/tk/al-tk.rb', line 2573 def AGTkFrame.class_wrapped TkFrame end |
Instance Method Details
#properties ⇒ Object
2577 2578 2579 2580 2581 2582 2583 2584 2585 2586 2587 2588 2589 2590 2591 2592 2593 2594 2595 2596 2597 2598 2599 2600 2601 2602 2603 |
# File 'ext/ae-rad/lib/tk/al-tk.rb', line 2577 def properties super publish('property',TkProperties::borderwidth(@obj)) publish('property',TkProperties::cursor(@obj)) publish('property',TkProperties::highlightbackground(@obj)) publish('property',TkProperties::highlightcolor(@obj)) publish('property',TkProperties::highlightthickness(@obj)) publish('property',TkProperties::relief(@obj)) publish('property',TkProperties::takefocus(@obj)) publish('property',TkProperties::class(@obj)) publish('property',TkProperties::colormap(@obj)) publish('property',TkProperties::padx(@obj)) publish('property',TkProperties::pady(@obj)) publish('property',TkProperties::container(@obj)) publish('property',TkProperties::border(@obj)) publish('property',TkProperties::height(@obj)) publish('property',TkProperties::width(@obj)) publish_mod('place','name'=>'width', 'default'=> 200) publish('property','name'=>'visual', 'get'=> proc{@obj.cget('visual')}, 'set'=> proc{|r| rewind_by_property('visual',r) }, 'def'=> "", 'kind'=>'on-create', 'type'=> EnumType.new('','best', 'directcolor', 'grayscale','greyscale', 'pseudocolor', 'staticcolor', 'staticgray', 'staticgrey', 'truecolor', 'default') ) end |
#rewind_by_property(_name, _val) ⇒ Object
2605 2606 2607 2608 2609 2610 2611 2612 2613 2614 2615 2616 2617 2618 2619 2620 2621 2622 |
# File 'ext/ae-rad/lib/tk/al-tk.rb', line 2605 def rewind_by_property(_name, _val) msg = "To modify "+_name+" must create new Toplevel: do you want to procede ?" if Tk.('icon' => 'warning', 'type' => 'okcancel', 'title' => '(Arcadia) '+_name, 'message' => msg) == 'cancel' return end _rewind_code = @renderer.class_code(2,_name=> _val).to_s begin Tk.('message'=>_rewind_code) #@object_inspector.delete(self) #Revparsel.new(_rewind_code) rescue => exc _editor = $arcadia.objects('editor').open_tab(@i_name) _editor.text_insert('end', _rewind_code) raise end end |