Class: ATKTileLabel

Inherits:
AGTkCommonTile show all
Defined in:
lib/tkext/al-tile.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 



29
30
31
 
# File 'lib/tkext/al-tile.rb', line 29

def ATKTileLabel.class_wrapped
  Tk::Tile::TLabel
end

Instance Method Details

#properties ⇒ Object 



32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
 
# File 'lib/tkext/al-tile.rb', line 32

def properties
  super
  publish('property','name'=>'text',
  'default'=> @i_name,
  'get'=> proc{@obj.cget('text')},
  'set'=> proc{|t| @obj.configure('text'=>t)},
  'def'=> ""
  )
  publish('property','name'=>'state',
  'get'=> proc{@obj.cget('state')},
  'set'=> proc{|j| @obj.configure('state'=>j)},
  'def'=> "",
  'type'=>TkType::TkagState
  )
end