Class: AGTkCommonTile

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

Instance Method Summary collapse

Instance Method Details

#properties ⇒ Object 



11
12
13
14
15
16
17
18
19
20
21
22
23
24
 
# File 'ext/ae-rad/lib/tkext/al-tile.rb', line 11

def properties
  super
  publish('property','name'=>'style',
  'get'=> proc{@obj.cget('style')},
  'set'=> proc{|j| @obj.configure('style'=>j)},
  'def'=> ""
  )
  publish('property','name'=>'theme_use',
  'get'=> proc{},
  'set'=> proc{|j| Tk::Tile::Style.theme_use(j)},
  'def'=> ""
  )

end