Class: AGTkText

Inherits:
AGTkContainer show all
Defined in:
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

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

Constructor Details

This class inherits a constructor from AGTkBaseContainer

Class Method Details

.class_wrapped ⇒ Object 



2887
2888
2889
 
# File 'lib/tk/al-tk.rb', line 2887

def AGTkText.class_wrapped
  TkText
end

Instance Method Details

#properties ⇒ Object 



2891
2892
2893
2894
2895
2896
2897
2898
2899
2900
2901
2902
2903
2904
2905
2906
2907
2908
2909
2910
2911
2912
2913
2914
2915
2916
2917
2918
2919
2920
2921
2922
2923
2924
2925
2926
2927
2928
2929
2930
2931
2932
2933
2934
2935
2936
2937
2938
2939
2940
2941
2942
2943
2944
2945
2946
2947
2948
2949
2950
2951
2952
2953
2954
2955
2956
2957
2958
2959
2960
2961
2962
2963
2964
2965
2966
2967
2968
2969
2970
2971
2972
2973
 
# File 'lib/tk/al-tk.rb', line 2891

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