Class: ATkTileStyle

Inherits:
AGINTk
  • Object
show all
Defined in:
lib/tkext/al-tile.rb

Defined Under Namespace

Classes: TkTileStyle

Instance Attribute Summary

Attributes inherited from AGINTk

#graphic_obj

Class Method Summary collapse

Instance Method Summary collapse

Methods inherited from AGINTk

#initialize, #new_graphic_rappresentation, #new_object, #object_inspector_select, #update

Constructor Details

This class inherits a constructor from AGINTk

Class Method Details

.class_wrapped ⇒ Object 



136
137
138
 
# File 'lib/tkext/al-tile.rb', line 136

def ATkTileStyle.class_wrapped
  TkTileStyle
end

Instance Method Details

#properties ⇒ Object 



139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
 
# File 'lib/tkext/al-tile.rb', line 139

def properties
  super
  publish('property','name'=>'theme',
  'get'=> proc{},
  'set'=> proc{|j| @obj.style.theme_use(j)},
  'def'=> "",
  'type'=> EnumType.new(@obj.style.theme_names)
  )

  publish('property','name'=>'foreground',
  'get'=> proc{},
  'set'=> proc{|foreground| @obj.style.configure('foreground'=>foreground)},
  'def'=> '',
  'type'=> TkType::TkagColor
  )


end