# File tst/tst_locana.rb, line 440 def tst_editbox() editbox_str = %{# * Add support for word wrapping # * Add support for syntax highlighting # * Add support for keeping the tab character in the text, currently it is converted to spaces. # * Add support for color and font_style around sub-strings within the editbox text # * Add support for viewing/not viewing tabs and line feeds # * Add support for multiple undo/redo t_text1.on_before_update = 'puts "text1 before update, new value: event[:value].inspect"' t_text2.on_before_update = 'puts "text2 before update, new value: event[:value].inspect"' t_text1.on_after_update = 'puts "text1 after update, new value: event[:value].inspect"' t_text2.on_after_update = 'puts "text2 after update, new value: event[:value].inspect"' t_text1.on_change = 'puts "text1 on change, event[:value] = event[:value].inspect, self.value = event[:object].value.inspect"' testing\nt_text2.on_change = 'puts "text2 on change, event[:value] = event[:value].inspect, self.value = event[:object].value.inspect"' } Lwindow.new(:TestEditBox, :text=>'Test Editbox', :width=>300, :height=>400) { label(:label1, :padx=>10, :pady=>5, :text=>'Type some text') editbox(:t_edit1, :sticky=>:new, :height=>150, :below=>:prev, :padx=>10, :pady=>5) editbox(:t_edit2, :sticky=>:news, :below=>:prev, :padx=>10, :pady=>5, :vscroll=>:on, :hscroll=>:on, :value=>editbox_str) button(:b_ok, :sticky=>:se, :padx=>10, :pady=>10, :text=>'&Ok') t_edit1.on_after_update = %{puts "after update, new value: '#{event[:value]}'"} t_edit2.on_after_update = %{puts "after update, new value: '#{event[:value]}'"} b_ok.on_click = "close()" # this button will close the form } end