Class: AGTkBwButton

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

Class Method Summary collapse

Instance Method Summary collapse

Class Method Details

.class_wrapped ⇒ Object 



124
125
126
 
# File 'ext/ae-rad/lib/tkext/al-bwidget.rb', line 124

def AGTkBwButton.class_wrapped
 Tk::BWidget::Button
end

Instance Method Details

#properties ⇒ Object 



127
128
129
130
131
132
133
134
135
136
137
138
139
140
 
# File 'ext/ae-rad/lib/tkext/al-bwidget.rb', line 127

def properties
  super()
  publish('property','name'=>'helptype',
  'get'=> proc{@obj.cget('helptype')},
  'set'=> proc{|v| @obj.configure('helptype'=>v)},
  'def'=> "",
  'type'=> EnumType.new('balloon','variable')
  )
  publish('property','name'=>'helptext',
  'get'=> proc{@obj.cget('helptext')},
  'set'=> proc{|v| @obj.configure('helptext'=>v)},
  'def'=> ""
  )
end