Class: AGTkText

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

Instance Attribute Summary

Attributes inherited from AGTkBaseContainer

#where_x, #where_y

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

class_sniffer

Methods inherited from AGTkBaseContainer

#initialize

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

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 



2801
2802
2803
 
# File 'ext/ae-rad/lib/tk/al-tk.rb', line 2801

def AGTkText.class_wrapped
  TkText
end

Instance Method Details

#properties ⇒ Object 



2805
2806
2807
2808
2809
2810
2811
2812
2813
2814
2815
2816
2817
2818
2819
2820
2821
2822
2823
2824
2825
2826
2827
2828
2829
2830
2831
2832
2833
2834
2835
2836
2837
2838
2839
2840
2841
2842
2843
2844
2845
2846
2847
2848
2849
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
2877
2878
2879
2880
2881
2882
2883
2884
2885
2886
2887
 
# File 'ext/ae-rad/lib/tk/al-tk.rb', line 2805

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'=>'exportselection',
    'get'=> proc{@obj.cget('exportselection')},
    'set'=> proc{|r| @obj.configure('exportselection'=>r)},
    'def'=> "",
    'type'=> TkType::TkagBool
  )

  publish('property','name'=>'setgrid',
  'get'=> proc{@obj.cget('setgrid')},
  'set'=> proc{|r| @obj.configure('setgrid'=>r)},
  'def'=> "",
  'type'=> TkType::TkagBool
  )

  publish('property','name'=>'autoseparators',
  'get'=> proc{@obj.cget('autoseparators')},
  'set'=> proc{|r| @obj.configure('autoseparators'=>r)},
  'def'=> "",
  'type'=> TkType::TkagBool
  )

  publish('property','name'=>'undo',
  'get'=> proc{@obj.cget('undo')},
  'set'=> proc{|r| @obj.configure('undo'=>r)},
  'def'=> "",
  'type'=> TkType::TkagBool
  )


  publish_mod('place','name'=>'width','default'=> 100)
  publish('property',TkProperties::yscrollcommand(@obj))
  publish('property',TkProperties::xscrollcommand(@obj))

#    publish('property',TkProperties::container(@obj))
  publish('property',TkProperties::borderwidth(@obj))
  publish('property',TkProperties::cursor(@obj))
  publish('property',TkProperties::font(@obj))
  publish('property',TkProperties::foreground(@obj))
  publish('property',TkProperties::highlightbackground(@obj))
  publish('property',TkProperties::highlightcolor(@obj))
  publish('property',TkProperties::highlightthickness(@obj))

publish('property',TkProperties::generic_color('insertbackground', @obj))
publish('property',TkProperties::generic_color('selectbackground', @obj))
publish('property',TkProperties::generic_color('selectforeground', @obj))

publish('property',TkProperties::property('insertborderwidth', @obj))
publish('property',TkProperties::property('insertofftime', @obj))
publish('property',TkProperties::property('insertontime', @obj))
publish('property',TkProperties::property('insertwidth', @obj))
publish('property',TkProperties::property('selectborderwidth', @obj))
publish('property',TkProperties::property('maxundo', @obj))
publish('property',TkProperties::property('spacing1', @obj))
publish('property',TkProperties::property('spacing2', @obj))
publish('property',TkProperties::property('spacing3', @obj))
publish('property',TkProperties::property('tabs', @obj))

  publish('property',TkProperties::relief(@obj))
  publish('property',TkProperties::takefocus(@obj))
  publish('property',TkProperties::padx(@obj))
  publish('property',TkProperties::pady(@obj))
  publish('property',TkProperties::height(@obj))
  publish('property',TkProperties::width(@obj))
  publish('property',TkProperties::state(@obj))

  publish('property','name'=>'wrap',
    'get'=> proc{@obj.cget('wrap')},
    'set'=> proc{|r| @obj.configure('wrap'=>r)},
    'def'=> "",
    'type'=> EnumType.new('none', 'char', 'word')
  )
  
  
end