Class: AGTkEntry

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

Instance Attribute Summary

Attributes inherited from AGTk

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

Class Method Summary collapse

Instance Method Summary collapse

Methods inherited from AGTkLayoutManaged

#start_properties

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

Constructor Details

This class inherits a constructor from AGTk

Class Method Details

.class_wrapped ⇒ Object 



2846
2847
2848
 
# File 'lib/tk/al-tk.rb', line 2846

def AGTkEntry.class_wrapped
  TkEntry
end

Instance Method Details

#properties ⇒ Object 



2850
2851
2852
2853
2854
2855
2856
2857
2858
2859
2860
2861
2862
2863
2864
2865
2866
2867
2868
2869
2870
2871
2872
2873
2874
2875
2876
 
# File 'lib/tk/al-tk.rb', line 2850

def properties
  super()
  publish('property','name'=>'relief',
    'get'=> proc{@obj.cget('relief')},
    'set'=> proc{|r| @obj.configure('relief'=>r)},
    'def'=> "",
    'type'=> TkType::TkagRelief
  )
  publish('property','name'=>'text',
    'default'=> @i_name,
    'get'=> proc{@obj.cget('text')},
    'set'=> proc{|t| @obj.configure('text'=>t)},
    'def'=> ""
  )
  publish('property','name'=>'justify',
    'get'=> proc{@obj.cget('justify')},
    'set'=> proc{|j| @obj.configure('justify'=>j)},
    'def'=> "",
    'type'=> TkType::TkagJustify
  )
  publish('property','name'=>'value',
    'default'=> '',
    'get'=> proc{@obj.value},
    'set'=> proc{|t| @obj.value=t},
    'def'=> proc{|x| "self.value=#{x}"}
  )
end