Class: AGTkButton

Inherits:

AGTkBase

• Object
• AG
• AGTk
• AGTkLayoutManaged
• AGTkBase
• AGTkButton

Defined in:

lib/tk/al-tk.rb

Direct Known Subclasses

AGTkBwButton, AGTkMenuButton

Instance Attribute Summary

Attributes inherited from AGTk

#canvas, #l_manager, #x0, #x3, #y0, #y3

Class Method Summary

• .class_wrapped ⇒ Object

Instance Method Summary

• #properties ⇒ Object

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

# File 'lib/tk/al-tk.rb', line 2769

def AGTkButton.class_wrapped
  TkButton
end

Instance Method Details

#properties ⇒ Object

# File 'lib/tk/al-tk.rb', line 2773

def properties
  super()
  publish('property',TkProperties::relief(@obj))
  publish('property',TkProperties::overrelief(@obj))
  publish('property',TkProperties::foreground(@obj))
  publish('property',TkProperties::compound(@obj))
  publish('property',TkProperties::image(@obj))
  publish('property',TkProperties::font(@obj))
  publish('property',TkProperties::anchor(@obj))
  publish('property',TkProperties::padx(@obj))
  publish('property',TkProperties::pady(@obj))
  publish('property',TkProperties::activebackground(@obj))
  publish('property',TkProperties::text(@obj))
  publish('property',TkProperties::activeforeground(@obj))
  publish('property',TkProperties::borderwidth(@obj))
  publish('property','name'=>'justify',
    'get'=> proc{@obj.cget('justify')},
    'set'=> proc{|j| @obj.configure('justify'=>j)},
    'def'=> "",
    'type'=> TkType::TkagJustify
  )
  publish('property','name'=>'default',
    'get'=> proc{@obj.cget('default')},
    'set'=> proc{|j| @obj.configure('default'=>j)},
    'def'=> "",
    'type'=> TkType::TkagState
  )
end