Class: KeyTest

Inherits:
TkFloatTitledFrame show all
Defined in:
lib/a-tkcommons.rb

Constant Summary

Constants included from TkResizable

TkResizable::MIN_HEIGHT, TkResizable::MIN_WIDTH

Instance Attribute Summary collapse

Attributes inherited from TkBaseTitledFrame

#frame, #top

Instance Method Summary collapse

Methods inherited from TkFloatTitledFrame

#head_buttons, #hide, #hide_if_visible, #on_arcadia, #on_close=, #show, #show_grabbed, #title

Methods included from TkResizable

#resizing_do_move_obj, #resizing_do_press, #start_resizing, #stop_resizing

Methods included from TkMovable

#moving_do_move_obj, #moving_do_press, #start_moving, #stop_moving

Methods inherited from TkBaseTitledFrame

#add_fixed_button, #add_fixed_menu_button, #add_fixed_panel, #add_fixed_progress, #add_fixed_sep, #create_frame, #head_buttons, #menu_button, #visible?

Constructor Details

#initialize(_parent = nil) ⇒ KeyTest

Returns a new instance of KeyTest.



3159
3160
3161
3162
3163
3164
3165
3166
3167
3168
3169
3170
3171
3172
3173
 
# File 'lib/a-tkcommons.rb', line 3159

def initialize(_parent=nil)
  _parent = Arcadia.instance.layout.root if _parent.nil?
  super(_parent)

  @ttest = TkText.new(self.frame){
    background  Arcadia.conf("background")
    foreground  Arcadia.conf("foreground")
    #place('relwidth' => '1','relx' => 0,'x' => '0','y' => '0','relheight' => '1','rely' => 0,'height' => '0','bordermode' => 'inside','width' => '0')
  }.bind("KeyPress", "%K"){|_keysym|
    @ttest.insert('end'," "+_keysym+" ")
    break
  }
  @ttest.extend(TkScrollableWidget).show
  place('x'=>100,'y'=>100,'height'=> 220,'width'=> 500)
end

Instance Attribute Details

#ttest ⇒ Object (readonly)

Returns the value of attribute ttest.



3158
3159
3160
 
# File 'lib/a-tkcommons.rb', line 3158

def ttest
  @ttest
end