rkumar-rbcurse 0.1.0

data/examples/rfe_renderer.rb

@@ -0,0 +1,69 @@
+module RubyCurses
+
+  ## 
+  # This is a basic list cell renderer that will render the to_s value of anything.
+  # Using alignment one can use for numbers too.
+  # However, for booleans it will print true and false. If editing, you may want checkboxes
+  class RfeRenderer < ListCellRenderer
+    def initialize text="", config={}, &block
+      super
+      @orig_bgcolor = @bgcolor
+      @orig_color = @color
+      @orig_attr = @attr
+    end
+    ##
+    ##
+    # 
+    def repaint graphic, r=@row,c=@col, row_index=-1, value=@text, focussed=false, selected=false
+
+      @bgcolor = @orig_bgcolor
+      @color = @orig_color
+      @row_attr = @orig_attr
+      value = @parent.entries[row_index]
+      if value[0,1]=="/"
+        path = value.dup
+      else
+        path = @parent.cur_dir()+"/"+value 
+      end
+      stat = File.stat(path)
+      if File.directory? path
+        @row_attr = Ncurses::A_BOLD
+        #@color = 'yellow'
+      end
+      value = format_string(value, path,  stat)
+      super
+
+    end
+  GIGA_SIZE = 1073741824.0
+  MEGA_SIZE = 1048576.0
+  KILO_SIZE = 1024.0
+
+  # Return the file size with a readable style.
+  def readable_file_size(size, precision)
+    case
+      #when size == 1 : "1 B"
+      when size < KILO_SIZE : "%d B" % size
+      when size < MEGA_SIZE : "%.#{precision}f K" % (size / KILO_SIZE)
+      when size < GIGA_SIZE : "%.#{precision}f M" % (size / MEGA_SIZE)
+      else "%.#{precision}f G" % (size / GIGA_SIZE)
+    end
+  end
+  def date_format t
+    t.strftime "%Y/%m/%d"
+  end
+  def format_string fn, path,stat
+    max_len = 30
+    f = fn.dup
+    if File.directory? path
+      #"%-*s\t(dir)" % [max_len,f]
+      #f = "/"+f # disallows search on keypress
+      f = "/"+f 
+    end
+    if f.size > max_len
+      f = f[0..max_len-1]
+    end
+    "%-*s  %10s  %s" % [max_len,f,  readable_file_size(stat.size,1), date_format(stat.mtime)]
+  end
+  # ADD HERE 
+  end
+end

data/examples/test1.rb

@@ -0,0 +1,242 @@
+# this is a test program, tests out messageboxes. type F1 to exit
+#  2008-12-17 22:13 tried out the listdatamodel
+#  Certain terminals are not displaying background colors correctly.
+#  TERM=screen does but does not show UNDERLINES.
+#  TERM=xterm-color does but does not trap F1, f2 etc
+#  TERM=xterm does not but other things are fine.
+#
+#$LOAD_PATH << "/Users/rahul/work/projects/rbcurse/"
+require 'rubygems'
+require 'ncurses'
+require 'logger'
+#require 'lib/rbcurse/mapper'
+#require 'lib/rbcurse/keylabelprinter'
+require 'rbcurse'
+require 'rbcurse/rmessagebox'
+
+if $0 == __FILE__
+  # Initialize curses
+  begin
+    # XXX update with new color and kb
+    VER::start_ncurses  # this is initializing colors via ColorMap.setup
+    $log = Logger.new("view.log")
+    $log.level = Logger::DEBUG
+
+#    @window = VER::Window.root_window
+
+
+    catch(:close) do
+      choice = ARGV[0] && ARGV[0].to_i || 3
+      $log.debug "START  MESSAGE BOX TEST #{ARGV[0]}. choice==#{choice} ---------"
+      # need to pass a form, not window.
+      case choice
+      when 1:
+      @mb = RubyCurses::MessageBox.new do
+        title "Enter your name"
+        message "Enter your name"
+       type :list
+       button_type :ok_cancel
+       list %w[john tim lee wong rahul edward why chad andy]
+       list_selection_mode 'multiple'
+       default_values %w[ lee why ]
+  
+        default_button 0
+      end
+      when 2:
+      @mb = RubyCurses::MessageBox.new do
+        title "Color selector"
+        message "Select a color"
+        type :custom
+        button_type :custom
+        buttons %w[&red &green &blue &yellow]
+        underlines [0,0,0,0]
+        default_button 0
+      end
+      when 3
+        config = {}
+        config["input_config"] = {}
+        config["input_config"]["chars_allowed"]=/[^xzq]/
+        config["input_config"]["valid_regex"]=/[A-Z][a-z]*/
+      @mb = RubyCurses::MessageBox.new nil, config do
+        title "Enter your name"
+        #message "Enter your first name. You are not permitted to enter x z or q and must enter a capital first"
+        message "Enter your first name. "
+        type :input
+        button_type :ok_cancel
+        default_value "Rahul"
+      end
+      when 4:
+      @form = RubyCurses::Form.new nil
+      field_list = []
+        titlelabel = RubyCurses::Label.new @form, {'text' => 'User', 'row'=>3, 'col'=>4, 'color'=>'black', 'bgcolor'=>'white', 'mnemonic'=>'U'}
+      field_list << titlelabel
+        field = RubyCurses::Field.new @form do
+          name   "url" 
+          row  3 
+          col  10
+          display_length  30
+#         set_buffer "http://"
+          set_label titlelabel
+        end
+      checkbutton = RubyCurses::CheckBox.new @form do
+       # variable $results
+        #value = true
+        onvalue "Selected cb   "
+        offvalue "UNselected cb"
+          color 'black'
+          bgcolor 'white'
+        text "No &frames"
+        row 4
+        col 4
+      end
+      field_list << field
+      field_list << checkbutton
+      checkbutton = RubyCurses::CheckBox.new @form do
+       # variable $results
+        value  true
+        color 'black'
+        bgcolor 'white'
+        text "Use &HTTP/1.0"
+        row 5
+        col 4
+      end
+      field_list << checkbutton
+      checkbutton = RubyCurses::CheckBox.new @form do
+       # variable $results
+        color 'black'
+        bgcolor 'white'
+        text "Use &passive FTP"
+        row 6
+        col 4
+      end
+      field_list << checkbutton
+      titlelabel = RubyCurses::Label.new @form, {'text' => 'Language', 'row'=>8, 'col'=>4, 'color'=>'black', 'bgcolor'=>'white'}
+      field_list << titlelabel
+      $radio = RubyCurses::Variable.new
+      #$radio.update_command(colorlabel) {|tv, label|  label.color tv.value}
+      radio1 = RubyCurses::RadioButton.new @form do
+        variable $radio
+        text "rub&y"
+        value "ruby"
+        color "red"
+        bgcolor 'white'
+        row 9
+        col 4
+      end
+      radio2 = RubyCurses::RadioButton.new @form do
+        variable $radio
+        text  "python"
+        value  "py&thon"
+        color "blue"
+        bgcolor 'white'
+        row 10
+        col 4
+      end
+      field_list << radio1
+      field_list << radio2
+      field.bind(:ENTER) do |f|   
+        listconfig = {'bgcolor' => 'blue', 'color' => 'white'}
+        url_list= RubyCurses::ListDataModel.new(%w[john tim lee wong rahul edward _why chad andy])
+        pl = RubyCurses::PopupList.new do
+#         title "Enter URL "
+          row  4 
+          col  10
+          width 30
+          #list url_list
+          list_data_model url_list
+          list_selection_mode 'single'
+          relative_to f
+          list_config listconfig
+          #default_values %w[ lee _why ]
+          bind :PRESS do |index|
+            field.set_buffer url_list[index]
+          end
+        end
+      end
+      @mb = RubyCurses::MessageBox.new @form do
+        #title "Color selector"
+        title "HTTP Configuration"
+  #     message "Enter your name"
+  #     type :custom
+  #     buttons %w[red green blue yellow]
+  #     underlines [0,0,0,0]
+  #     type :input
+  #     default_value "rahul"
+       #type :field_list
+       #field_list field_list
+        button_type :ok
+       default_button 0
+      end
+      when 5:
+        @form = RubyCurses::Form.new nil
+        label = RubyCurses::Label.new @form, {'text' => 'File', 'row'=>3, 'col'=>4, 'color'=>'black', 'bgcolor'=>'white', 'mnemonic'=>'F'}
+        field = RubyCurses::Field.new @form do
+          name   "file" 
+          row  3 
+          col  10
+          display_length  40
+          set_label label
+        end
+        flist = Dir.glob("*.*")
+        listb = RubyCurses::Listbox.new @form do
+          name   "mylist" 
+          row  5 
+          col  10 
+          width 40
+          height 10
+          list flist
+          title "File list"
+          title_attrib 'bold'
+        end
+        #listb.list.bind(:ENTER_ROW) { field.set_buffer listb.selected_item }
+        field.bind(:CHANGE) do |f|   
+          flist = Dir.glob(f.getvalue+"*")
+          l = listb.list
+          l.remove_all
+          l.insert 0, *flist
+        end
+        @mb = RubyCurses::MessageBox.new @form do
+          title "Sample File Selector"
+          type :override
+          height 20
+          width 60
+          top 5
+          left 20
+          default_button 0
+          button_type :ok_cancel
+
+        end
+        $log.debug "MBOX :selected #{listb.selected_item}"
+      end 
+      
+     $log.debug "MBOX :selected button index #{@mb.selected_index} "
+     $log.debug "MBOX :input val #{@mb.input_value} "
+#     $log.debug "row : #{@form.row} "
+#     $log.debug "col : #{@form.col} "
+#     $log.debug "Config : #{@form.config.inspect} "
+#     @form.configure "row", 23
+#     @form.configure "col", 83
+#     $log.debug "row : #{@form.row} "
+#     x = @form.row
+#    @form.depth   21
+#    @form.depth = 22
+#    @form.depth   24
+#    @form.depth = 25
+#     $log.debug "col : #{@form.col} "
+#     $log.debug "config : #{@form.config.inspect} "
+#     $log.debug "row : #{@form.configure('row')} "
+      #$log.debug "mrgods : #{@form.public_methods.sort.inspect}"
+      #while((ch = @window.getchar()) != ?q )
+      #  @window.wrefresh
+      #end
+    end
+  rescue => ex
+  ensure
+    @window.destroy unless @window.nil?
+    VER::stop_ncurses
+    p ex if ex
+    p(ex.backtrace.join("\n")) if ex
+    $log.debug( ex) if ex
+    $log.debug(ex.backtrace.join("\n")) if ex
+  end
+end

data/examples/test2.rb

@@ -0,0 +1,498 @@
+#$LOAD_PATH << "/Users/rahul/work/projects/rbcurse/"
+# this program tests out various widgets.
+require 'rubygems'
+require 'ncurses'
+require 'logger'
+require 'rbcurse'
+require 'rbcurse/rwidget'
+#require 'rbcurse/rform'
+require 'rbcurse/rtextarea'
+require 'rbcurse/rtextview'
+require 'rbcurse/rmenu'
+require 'rbcurse/rcombo'
+require 'rbcurse/listcellrenderer'
+require 'rbcurse/checkboxcellrenderer'
+require 'rbcurse/comboboxcellrenderer'
+require 'rbcurse/celleditor'
+require 'qdfilechooser'
+require 'rbcurse/rlistbox'
+require 'rbcurse/rmessagebox'
+if $0 == __FILE__
+  include RubyCurses
+
+  begin
+  # Initialize curses
+    VER::start_ncurses  # this is initializing colors via ColorMap.setup
+    $log = Logger.new("view.log")
+    $log.level = Logger::DEBUG
+
+    @window = VER::Window.root_window
+    # Initialize few color pairs 
+    # Create the window to be associated with the form 
+    # Un post form and free the memory
+
+    catch(:close) do
+      colors = Ncurses.COLORS
+      $log.debug "START #{colors} colors  ---------"
+      @form = Form.new @window
+      @form.window.printstring 0, 25, "Demo of Ruby Curses Widgets", $normalcolor, 'reverse'
+      r = 1; fc = 12;
+      mnemonics = %w[ n l r p]
+      %w[ name line regex password].each_with_index do |w,i|
+        field = Field.new @form do
+          name   w 
+          row  r 
+          col  fc 
+          display_length  30
+          #set_buffer "abcd " 
+          set_label Label.new @form, {'text' => w, 'color'=>'cyan','mnemonic'=> mnemonics[i]}
+        end
+        r += 1
+      end
+
+      $message = Variable.new
+      $message.value = "Message Comes Here"
+      message_label = RubyCurses::Label.new @form, {'text_variable' => $message, "name"=>"message_label","row" => 27, "col" => 1, "display_length" => 60,  "height" => 2, 'color' => 'cyan'}
+
+      $results = Variable.new
+      $results.value = "A variable"
+      var = RubyCurses::Label.new @form, {'text_variable' => $results, "row" => r, "col" => fc}
+        r += 1
+        mylist = []
+        0.upto(100) { |v| mylist << "#{v} scrollable data" }
+        $listdata = Variable.new mylist
+        listb = Listbox.new @form do
+          name   "mylist" 
+          row  r 
+          col  1 
+          width 40
+          height 10
+#         list mylist
+          list_variable $listdata
+          #selection_mode :SINGLE
+          show_selector true
+          row_selected_symbol "[X] "
+          row_unselected_symbol "[ ] "
+          title "A long list"
+          title_attrib 'reverse'
+          cell_editing_allowed true
+        end
+        #listb.insert 55, "hello ruby", "so long python", "farewell java", "RIP .Net"
+        #$listdata.value.insert 55, "hello ruby", "so long python", "farewell java", "RIP .Net"
+        listb.list_data_model.insert 55, "hello ruby", "so long python", "farewell java", "RIP .Net", "hi lisp", "hi perl6"
+        texta = TextArea.new @form do
+          name   "mytext" 
+          row  1 
+          col  52 
+          width 40
+          height 14
+          title "Editable box"
+          title_attrib (Ncurses::A_REVERSE | Ncurses::A_BOLD)
+          print_footer true
+          bind(:CHANGE){|e| $message.value = e.to_s+" CP:"+e.source.curpos.to_s }
+        end
+        texta << "I expect to pass through this world but once." << "Any good therefore that I can do, or any kindness or abilities that I can show to any fellow creature, let me do it now."
+        texta << "Let me not defer it or neglect it, for I shall not pass this way again."
+        texta << " "
+        texta << " F1 to exit. or click cancel button"
+        texta << " Or alt-c"
+
+        alist = [true, false, true, false, true, false, true, false, true]
+        cblist = Variable.new alist
+        listcb = Listbox.new @form do
+          name   "cblist" 
+          row  1 
+          col  96 
+          width 8
+          height 10
+#         list mylist
+          list_variable cblist
+          #selection_mode :SINGLE
+          title "Checklist"
+          title_attrib 'reverse'
+          cell_renderer RubyCurses::CheckBoxCellRenderer.new nil, {"parent" => self, "display_length"=> @width-2}
+          cell_editing_allowed true
+          cell_editor RubyCurses::CellEditor.new(RubyCurses::CheckBox.new nil, {"focusable"=>false, "visible"=>false})
+        end
+        colist = ["Todo", "WIP", "Fin", "Cancel", "Postp"]
+        colistdata = ["Todo", "Todo", "WIP","WIP", "Postp", "Cancel","Cancel", "Postp"]
+        colistv = Variable.new colistdata
+        listcb = Listbox.new @form do
+          name   "colist" 
+          row  16
+          col  96 
+          width 12
+          height 10
+#         list mylist
+          list_variable colistv
+          #selection_mode :SINGLE
+          title "Status"
+          title_attrib 'bold'
+          cell_editing_allowed true
+          cell_renderer RubyCurses::ComboBoxCellRenderer.new nil, {"parent" => self, "display_length"=> width()-2}
+          cell_editor RubyCurses::CellEditor.new(RubyCurses::ComboBox.new nil, {"focusable"=>false, "visible"=>false, "list"=>colist, "display_length"=>width()-2})
+        end
+        #listcb.cell_editor.component.form = @form
+
+        @textview = TextView.new @form do
+          name   "myView" 
+          row  16 
+          col  52 
+          width 40
+          height 10
+          title "README.txt"
+          title_attrib 'bold'
+          print_footer true
+          footer_attrib 'bold'
+        end
+        content = File.open("../README.txt","r").readlines
+        @textview.set_content content #, :WRAP_WORD
+        @textview.top_row 21
+
+        # just for demo, lets scroll the text view as we scroll this.
+        listb.bind(:ENTER_ROW, @textview) { |alist, tview| tview.top_row alist.current_index }
+        
+        # just for demo, lets scroll the text view to the line you enter
+        @form.by_name["line"].bind(:LEAVE, @textview) { |fld, tv| raise(FieldValidationException, "#{fld.getvalue.to_i} Outside range 1,200") if fld.getvalue.to_i >200; tv.top_row(fld.getvalue.to_i) }
+        @form.by_name["regex"].bind(:LEAVE, @textview) { |fld, tv| tv.top_row(tv.find_first_match(fld.getvalue)) }
+        @form.by_name["regex"].bind(:CHANGED) { |fld| 
+          $message.value =  "REGEX CHANGED!!! #{fld.getvalue}   " }
+          row = 17
+          col = 2
+      align = ComboBox.new @form do
+        name "combo"
+        row row
+        col fc
+        display_length 10
+        editable false
+        list %w[left right center]
+        set_label Label.new @form, {'text' => "Align", 'color'=>'cyan','col'=>1, "mnemonic"=>"I"}
+        list_config 'color' => 'yellow', 'bgcolor'=>'red', 'height' => 4
+      end
+
+      list = ListDataModel.new( %w[spotty tiger panther jaguar leopard ocelot lion])
+      list.bind(:LIST_DATA_EVENT) { |lde| $message.value = lde.to_s; $log.debug " STA: #{$message.value} #{lde}"  }
+      list.bind(:ENTER_ROW) { |obj| $message.value = "ENTER_ROW :#{obj.current_index} : #{obj.selected_item}    "; $log.debug " ENTER_ROW: #{$message.value} , #{obj}"  }
+
+      row += 1
+      combo1 = ComboBox.new @form do
+        name "combo1"
+        row row
+        col fc
+        display_length 10
+        editable true
+        list_data_model list
+        set_label Label.new @form, {'text' => "Edit Combo",'color'=>'cyan','col'=>1}
+        list_config 'color' => 'white', 'bgcolor'=>'blue', 'max_visible_items' => 6, 'height' => 7
+      end
+      row += 1
+      checkbutton = CheckBox.new @form do
+        variable $results
+        #value = true
+        onvalue "Selected bold   "
+        offvalue "UNselected bold"
+        text "Bold attribute "
+        display_length 18  # helps when right aligning
+        row row
+        col col
+        mnemonic 'B'
+      end
+      row += 1
+      @cb_rev = Variable.new false # related to checkbox reverse
+      cbb = @cb_rev
+      checkbutton1 = CheckBox.new @form do
+        variable cbb # $cb_rev
+        #value = true
+        onvalue "Selected reverse   "
+        offvalue "UNselected reverse"
+        text "Reverse attribute "
+        display_length 18
+        row row
+        col col
+        mnemonic 'R'
+      end
+      row += 1
+      togglebutton = ToggleButton.new @form do
+        value  true
+        onvalue  " Toggle Down "
+        offvalue "  Untoggle   "
+        row row
+        col col
+        mnemonic 'T'
+        #underline 0
+      end
+      # a special case required since another form (combo popup also modifies)
+      $message.update_command() { message_label.repaint }
+
+      @form.by_name["line"].display_length = 3
+      @form.by_name["line"].maxlen = 3
+      @form.by_name["line"].set_buffer  "24"
+      @form.by_name["name"].set_buffer  "Not focusable"
+      @form.by_name["name"].set_focusable(false)
+      @form.by_name["line"].chars_allowed = /\d/
+      #@form.by_name["regex"].type(:ALPHA)
+      @form.by_name["regex"].valid_regex(/^[A-Z][a-z]*/)
+      @form.by_name["regex"].set_buffer  "SYNOP"
+      @form.by_name["regex"].display_length = 10
+      @form.by_name["regex"].maxlen = 20
+      #@form.by_name["regex"].bgcolor 'cyan'
+      @form.by_name["password"].set_buffer ""
+      @form.by_name["password"].show '*'
+      @form.by_name["password"].color 'red'
+      #@form.by_name["password"].bgcolor 'blue'
+      @form.by_name["password"].values(%w[scotty tiger secret pass qwerty])
+      @form.by_name["password"].null_allowed true
+
+      # a form level event, whenever any widget is focussed
+      @form.bind(:ENTER) { |f|   f.label && f.label.bgcolor = 'red' if f.respond_to? :label}
+      @form.bind(:LEAVE) { |f|  f.label && f.label.bgcolor = 'black'   if f.respond_to? :label}
+
+      row += 1
+      colorlabel = Label.new @form, {'text' => "Select a color:", "row" => row, "col" => col, "color"=>"cyan", "mnemonic" => 'S'}
+      $radio = Variable.new
+      $radio.update_command(colorlabel) {|tv, label|  label.color tv.value; }
+      $radio.update_command() {|tv|  message_label.color tv.value; align.bgcolor tv.value; combo1.bgcolor tv.value}
+
+      # whenever updated set colorlabel and messagelabel to bold
+      $results.update_command(colorlabel,checkbutton) {|tv, label, cb| attrs =  cb.value ? 'bold' : nil; label.attr(attrs); message_label.attr(attrs)}
+
+      align.bind(:ENTER_ROW) {|fld| message_label.justify fld.getvalue}
+      align.bind(:ENTER_ROW) {|fld| 
+        if fld.getvalue == 'right'
+          checkbutton1.align_right true
+          checkbutton.align_right true
+        else
+          checkbutton1.align_right false
+          checkbutton.align_right false
+        end
+      }
+
+      # whenever updated set colorlabel and messagelabel to reverse
+      @cb_rev.update_command(colorlabel,checkbutton1) {|tv, label, cb| attrs =  cb.value ? 'reverse' : nil; label.attr(attrs); message_label.attr(attrs)}
+      row += 1
+      radio1 = RadioButton.new @form do
+        variable $radio
+        text "red"
+        value "red"
+        color "red"
+        display_length 18  # helps when right aligning
+        row row
+        col col
+      end
+      radio11 = RadioButton.new @form do
+        variable $radio
+        text "c&yan"
+        value "cyan"
+        color "cyan"
+        display_length 18  # helps when right aligning
+        row row
+        col col+24
+      end
+      row += 1
+      radio2 = RadioButton.new @form do
+        variable $radio
+        text  "&green"
+        value  "green"
+        color "green"
+        display_length 18  # helps when right aligning
+        row row
+        col col
+      end
+      radio22 = RadioButton.new @form do
+        variable $radio
+        text "magenta"
+        value "magenta"
+        color "magenta"
+        display_length 18  # helps when right aligning
+        row row
+        col col+24
+      end
+      colorlabel.label_for radio1
+      align.bind(:ENTER_ROW) {|fld| 
+        if fld.getvalue == 'right'
+          radio1.align_right true
+          radio2.align_right true
+          radio11.align_right true
+          radio22.align_right true
+        else
+          radio1.align_right false
+          radio2.align_right false
+          radio11.align_right false
+          radio22.align_right false
+        end
+      }
+
+      @mb = RubyCurses::MenuBar.new
+      filemenu = RubyCurses::Menu.new "File"
+      filemenu.add(item = RubyCurses::MenuItem.new("Open",'O'))
+      item.command(@form) {|it, form|  $message.value = "Open called on menu bar"; 
+        fchooser = QDFileChooser.new
+        option = fchooser.show_open_dialog
+        $message.value = "File Selection #{option}, #{fchooser.get_selected_file}"
+        if option == :OK
+          filesel = fchooser.get_selected_file
+          if !filesel.nil?
+            texta.remove_all
+            content = File.open(filesel,"r").readlines
+            content.each do |line|
+              texta << line
+            end
+          end
+        end
+      }
+
+      filemenu.insert_separator 1
+      filemenu.add(RubyCurses::MenuItem.new "New",'N')
+      filemenu.add(item = RubyCurses::MenuItem.new("Save",'S'))
+      item.command() do |it|  
+        filename = get_string("Please enter file to save in", 20, "t.t")
+        $message.value = "file: #{filename}"
+        filename ||= "tmpzzzz.tmp"
+        str = texta.to_s
+        File.open(filename, 'w') {|f| f.write(str) }
+        $message.value = " written #{str.length} bytes to file: #{filename}"
+      end
+      filemenu.add(item = RubyCurses::MenuItem.new("Test",'T'))
+      item.command(@form, texta) do |it, form, testa|  
+        $message.value = "Testing textarea"
+        str = "Hello there good friends and fellow rubyists. Here is a textarea that I am testing out with"
+        str << " some long data, to see how it acts, how the wrapping takes place. Sit back and enjoy the "
+        str << " bugs as they crop up."
+        testa.goto_start
+        #testa.cursor_bol
+        testa.handle_key ?\C-a  # bol
+        str.each_char {|c| testa.putch(c)}
+        testa.repaint
+        testa.handle_key KEY_DOWN # down
+        testa.handle_key KEY_DOWN # down
+        testa.handle_key KEY_DOWN # down
+        testa.handle_key ?\C-a  # bol
+        #testa.cursor_bol
+        str.each_char {|c| testa.putch(c)}
+        $message.value = "Wrapping textarea"
+        testa.repaint
+        throw(:menubarclose)
+      end
+      filemenu.add(item = RubyCurses::MenuItem.new("Wrap",'W'))
+      item.command(@form, texta) do |it, form, testa|  
+        #testa.goto_start
+        testa.handle_key ?\C-a  # bol
+        testa.wrap_para
+        testa.repaint
+        throw(:menubarclose)
+      end
+      filemenu.add(item = RubyCurses::MenuItem.new("Exit",'X'))
+      item.command() {
+        #throw(:menubarclose);
+        throw(:close)
+      }
+      item = RubyCurses::CheckBoxMenuItem.new "Reverse"
+#     item.onvalue="On"
+#     item.offvalue="Off"
+     #item.checkbox.text "Labelcb"
+     #item.text="Labelcb"
+      # in next line, an explicit repaint is required since label is on another form.
+      item.command(colorlabel){|it, label| att = it.getvalue ? 'reverse' : nil; label.attr(att); label.repaint}
+    
+      row += 2
+      ok_button = Button.new @form do
+        text "OK"
+        name "OK"
+        row row
+        col col
+        mnemonic 'O'
+      end
+      ok_button.command { |form| 
+        alert("About to dump data into log file!")
+        form.dump_data; $message.value = "Dumped data to log file"
+        listb.list.insert 0, "hello ruby", "so long python", "farewell java", "RIP .Net"
+      }
+
+      # using ampersand to set mnemonic
+      cancel_button = Button.new @form do
+        #variable $results
+        text "&Cancel"
+        row row
+        col col + 10
+        #surround_chars ['{ ',' }']  ## change the surround chars
+      end
+      cancel_button.command { |form| 
+        if confirm("Do your really want to quit?")== :YES
+          throw(:close); 
+        else
+          $message.value = "Quit aborted"
+        end
+      }
+
+
+      filemenu.add(item)
+      @mb.add(filemenu)
+      editmenu = RubyCurses::Menu.new "Edit"
+      item = RubyCurses::MenuItem.new "Cut"
+      editmenu.add(item)
+      item.accelerator = "Ctrl-X"
+      item=RubyCurses::MenuItem.new "Copy"
+      editmenu.add(item)
+      item.accelerator = "Ctrl-C"
+      item=RubyCurses::MenuItem.new "Paste"
+      editmenu.add(item)
+      item.accelerator = "Ctrl-V"
+      @mb.add(editmenu)
+      @mb.add(menu=RubyCurses::Menu.new("Others"))
+      #item=RubyCurses::MenuItem.new "Save","S"
+      item = RubyCurses::MenuItem.new "Options"
+      item.command() do |it|  
+        require 'testtabp'
+        tp = TestTabbedPane.new
+        tp.run
+        $message.value=$config_hash.inspect
+        $log.debug " returning with #{$config_hash}: #{$config_hash.inspect}"
+      end
+      menu.add(item)
+      item = RubyCurses::MenuItem.new "Config"
+      menu.add(item)
+      item = RubyCurses::MenuItem.new "Tables"
+      menu.add(item)
+      savemenu = RubyCurses::Menu.new "EditM"
+      item = RubyCurses::MenuItem.new "CutM"
+      savemenu.add(item)
+      item = RubyCurses::MenuItem.new "DeleteM"
+      savemenu.add(item)
+      item = RubyCurses::MenuItem.new "PasteM"
+      savemenu.add(item)
+      menu.add(savemenu)
+
+      savemenu2 = RubyCurses::Menu.new "EditM2"
+      item = RubyCurses::MenuItem.new "CutM2"
+      savemenu2.add(item)
+      item = RubyCurses::MenuItem.new "DeleteM2"
+      savemenu2.add(item)
+      item = RubyCurses::MenuItem.new "PasteM2"
+      savemenu2.add(item)
+      savemenu.add(savemenu2)
+      # 2008-12-20 13:06 no longer hardcoding toggle key of menu_bar.
+      @mb.toggle_key = KEY_F2
+      @form.set_menu_bar  @mb
+      #@cell = CellRenderer.new "Hello", {"col" => 1, "row"=>29, "justify"=>:right, "display_length" => 30}
+      # END
+      @form.repaint
+      @window.wrefresh
+      Ncurses::Panel.update_panels
+      while((ch = @window.getchar()) != KEY_F1 )
+        #@cell.repaint @form.window, 29,1, "ok #{ch} pressed!"
+        #@cell.repaint @form.window, 29,45, "#{ch} pressed!"
+        @form.handle_key(ch)
+        #@form.repaint
+        @window.wrefresh
+      end
+    end
+  rescue => ex
+  ensure
+      @window.destroy if !@window.nil?
+    VER::stop_ncurses
+    p ex if ex
+    p(ex.backtrace.join("\n")) if ex
+    $log.debug( ex) if ex
+    $log.debug(ex.backtrace.join("\n")) if ex
+  end
+end