Class: TkArcadiaText

Inherits:
TkText
  • Object
show all
Defined in:
lib/a-tkcommons.rb

Instance Method Summary collapse

Constructor Details

#initialize(parent = nil, keys = {}) ⇒ TkArcadiaText

Returns a new instance of TkArcadiaText.



1470
1471
1472
1473
1474
1475
1476
1477
 
# File 'lib/a-tkcommons.rb', line 1470

def initialize(parent=nil, keys={})
  super(parent, keys)
  self.bind_append("<Copy>"){Arcadia.process_event(CopyTextEvent.new(self));break}
  self.bind_append("<Cut>"){Arcadia.process_event(CutTextEvent.new(self));break}
  self.bind_append("<Paste>"){Arcadia.process_event(PasteTextEvent.new(self));break}
  self.bind_append("<Undo>"){Arcadia.process_event(UndoTextEvent.new(self));break}
  self.bind_append("<Redo>"){Arcadia.process_event(RedoTextEvent.new(self));break}
end