Class: ATKTileButton

Inherits:
AGTkCommonTile show all
Defined in:
ext/ae-rad/lib/tkext/al-tile.rb

Class Method Summary collapse

Instance Method Summary collapse

Class Method Details

.class_wrapped ⇒ Object 



52
53
54
 
# File 'ext/ae-rad/lib/tkext/al-tile.rb', line 52

def ATKTileButton.class_wrapped
  Tk::Tile::TButton
end

Instance Method Details

#properties ⇒ Object 



55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
 
# File 'ext/ae-rad/lib/tkext/al-tile.rb', line 55

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