rbcurse 1.4.1 → 1.5.0.pre1

data/examples/status.txt

@@ -1,68 +0,0 @@
-PROGRAM STATUS
-==============
-/// vim:ts=4:sw=4:tw=80:ai:formatoptions=tcqnl:
-
-I need to maintain the status of various test programs, what all is working and
-particularly what is not, after testing. That way after making changes if
-something is not working, i know whether it was a newly introduced issue or an
-existing issue that was not closed.
-
-
-testsplit3_1.rb ERROR
-  2010-02-08 20:47 
-  ERROR
-  M-w works on left split to jump. C-a C-e etc working fine.
-
-  [ ] TAB no longer working to go to right split. Tab puts me in the top left corner
-  of current split.
-
-------------
-testsplit3.rb
-  2010-02-08 20:49 
-  OK
-
-  M-w working.
-  Tab working to get to right side.
-
-------------
-testsplit3a.rb ERROR
-  2010-02-08 20:53 
-  ERROR
-
- Display. Left top split shows NOTES instead of README. After cursor movement,
- it shows README.
- Middle separator not showing.
- Cursor off by -2, -1 in top left.
- TAB does not go to right split.
- M-w brings bottom tab to top!
-------------
-
-testsplitta.rb
-  2010-02-08 21:00 
-  OKAY
-
-  M-w
-  Ca Ce
-  M- M+ M=
-  Cursor pos
-
-------------
-testsplittv.rb
-  2010-02-08 21:37 
-  OKAY
-
-  M-w
-  Ca Ce
-  + - =
-  curpos
-
-------------
-testsplittvv.rb
-  2010-02-08 21:39 
-  OKAY
-
-  M-w
-  Ca Ce
-  + = -
-  Cn Tab Cn
-------------

data/examples/table1.rb

@@ -1,24 +0,0 @@
-require 'rbcurse/app'
-
-if $0 == __FILE__
-  # NOTE try using the readonly tabular or tabular widget instead, see term2.rb
-  App.new do 
-    @window.printstring 1, 30, "Demo of Table - rbcurse", $normalcolor, 'reverse'
-    @window.printstring 2, 30, "Hit F1 to quit", $datacolor, 'normal'
-      data = [["Roger Federer",16,"SWI"],
-        ["Pete Sampras",14, "USA"],
-        ["Roy Emerson", 12, "AUS"],
-        ["Bjorn Borg",  11, "SWE"],
-        ["Rod Laver",   11, "AUS"],
-        ["Bill Tilden", 10, "USA"]]
-      colnames = %w[ Player Wins Nation ]
-    stack :margin_top => 3, :margin => 10 do
-      # we leave out :width so it gets calculated by column_widths
-      t = table :height => 10, :columns => colnames, :data => data, :column_widths => [15,5,10], :extended_keys => true
-      # :estimate_widths => true
-      # other options are :column_widths => [12,4,12]
-      # :size_to_fit => true
-
-    end
-  end
-end

data/examples/term2.rb

@@ -1,84 +0,0 @@
-require 'rbcurse/app'
-require 'rbcurse/extras/tabular'
-require 'rbcurse/extras/scrollbar'
-
-App.new do 
-  header = app_header "rbcurse #{Rbcurse::VERSION}", :text_center => "Tabular Demo", :text_right =>"New Improved!", :color => :black, :bgcolor => :white, :attr => :bold 
-  message "Press F10 to escape from here"
-
-  stack :margin_top => 2, :margin => 5, :width => 30 do
-    t = Tabular.new(['a', 'b'], [1, 2], [3, 4])
-    list_box :list => t.render
-    t = Tabular.new ['a', 'b']
-    t << [1, 2]
-    t << [3, 4]
-    t << [4, 6]
-    #list_box :list => t.to_s.split("\n")
-    list_box :list => t.render
-  end # stack
-  r = `/bin/df -gh`     # stock BSD df
-  #r = `df -gh`   # I've installed brew, the df (maybe coreutils gives an error due to g option"
-  
-  raise "df -gh not returning anything. correct command here. Try removing g option" if r == ""
-  # on my system there are extra spaces so i need to remove them, or else
-  # there'll be a mismatch between headers and columns
-  r.gsub!("Mounted on", "Mounted_on")
-  r.gsub!("map ", "map_")
-  res = r.split("\n")
-  heads = res.shift.split
-  t = Tabular.new do |t|
-    t.headings = heads
-    #t.headings = 'First Name', 'Last Name', 'Email'
-    #t << %w( TJ Holowaychuk tj@vision-media.ca )
-    #t << %w( TJ Holowaychuk tj@vision-media.ca 1 2 3  )
-    #t << %w( Bob Someone bob@vision-media.ca )
-    #t << %w( Joe Whatever bob@vision-media.ca )
-
-    #res.each { |e| t <<   e.split.flatten   }
-    res.each { |e| t.add_row e.split   }
-  end
-
-  t = t.render
-  wid = t[0].length + 2
-  stack :margin_top => 2, :margin => 35, :width => wid do
-    list_box :list => t, :title => '[df -gh]'
-
-    r = `ls -l`
-    res = r.split("\n")
-
-    t = Tabular.new do
-#      self.headings = 'Perm', 'Gr', 'User', 'U',  'Size', 'Mon', 'Date', 'Time', 'File' # changed 2011 dts  
-      self.headings = 'User',  'Size', 'Mon', 'Date', 'Time', 'File'
-      res.each { |e| 
-        cols = e.split
-        next if cols.count < 6
-        cols = cols[3..-1]
-        cols = cols[0..5] if cols.count > 6
-        #cols[1] = cols[1].to_i
-        add_row cols
-      }
-      column_width 1, 6
-      align_column 1, :right
-      #self.headings = 'First Name', 'Last Name', 'Email'
-      #add_row ['Roald',  'Amundsen', 'ra@explorers.org']
-      #add_row ['Francis', 'Drake',    'joe@ducks.com']
-      #add_row ['Hsuan', 'Tsang',    'tsang@asia.org']
-      #add_separator
-      #add_row ['Ernest', 'Shackleton',    'jack@radio-schakc.org']
-      #add_row ['Fa', 'Hsien',    'fa@sheen.net']
-      #add_row ['Vasco', 'Da Gama',     'bob@vasco.org']
-      #add_row ['David', 'Livingstone',    'jack@trolls.com']
-      ##add_row ['Total', { :value => '3', :colspan => 2, :alignment => :right }]
-      #align_column 1, :center
-      #self.numbering = true
-    end
-    #lb =  list_box :list => t.render2
-    lb =  textview :set_content => t.render, :height => 15, :title => '[ls -l]'
-    lb.bind(:PRESS){|tae|
-      alert "Pressed list on line #{tae.current_index}  #{tae.word_under_cursor(nil, nil, "|")}  "
-    }
-    Scrollbar.new @form, :parent => lb
-     #make a textview that is vienabled by default.
-end
-
-end # app

data/examples/test1.rb

@@ -1,239 +0,0 @@
-# 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.
-#
-require 'logger'
-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((File.join(ENV['LOGDIR'] || "./" ,"rbc13.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 }
-        # if you find that cursor goes into listbox while typing, then
-        # i've put set_form_row in listbox list_data_changed
-        field.bind(:CHANGE) do |f|   
-          flist = Dir.glob(f.getvalue+"*")
-          l = listb.list
-          l.remove_all
-          l.insert( 0, *flist) if 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

@@ -1,674 +0,0 @@
-# This program tests out various widgets.
-# This is the old style of creating an application in which the user
-# has to start and stop ncurses. No shortcuts for widget constructors are available.
-#
-# The newer easier way is to use 'App' which manages the environment, and provides shortcuts
-# for all widgets. See app*.rb, alpmenu.rb, dbdemo.rb etc for samples.
-#
-# In case, you are running this in a directory that does not allow writing, set LOGDIR to 
-# your home directory, or temp directory so a log file can be generated.
-#
-require 'logger'
-require 'rbcurse'
-require 'rbcurse/rtextarea'
-require 'rbcurse/rtextview'
-require 'rbcurse/rmenu'
-require 'rbcurse/rcombo'
-require 'rbcurse/extras/rcomboedit'
-require 'rbcurse/listcellrenderer'
-require 'rbcurse/checkboxcellrenderer'
-require 'rbcurse/comboboxcellrenderer'
-require 'rbcurse/celleditor'
-require 'rbcurse/rlistbox'
-require 'rbcurse/rbasiclistbox'
-#require 'rbcurse/rmessagebox'
-require 'rbcurse/rtree'
-require 'rbcurse/common/appmethods.rb'
-require 'rbcurse/extras/scrollbar'
-def help_text
-      <<-eos
-               TEST2  HELP 
-
-      This is some help text for test2.
-
-      Alt-C/F10 -   Exit application 
-      Alt-!    -   Drop to shell
-      C-x c    -   Drop to shell
-      C-x l    -   list of files
-      C-x p    -   process list
-      C-x d    -   disk usage list
-      C-x s  -   Git status
-      C-x d  -   Git diff
-      C-x w  -   Git whatchanged
-      Alt-x    -   Command mode (<tab> to see commands and select)
-
-      Some commands for using bottom of screen as vim and emacs do.
-        To add
-
-      -----------------------------------------------------------------------
-      eos
-end
-if $0 == __FILE__
-
-  include RubyCurses
-  include RubyCurses::Utils
-
-  begin
-  # Initialize curses
-    VER::start_ncurses  # this is initializing colors via ColorMap.setup
-    path = File.join(ENV["LOGDIR"] || "./" ,"rbc13.log")
-    file   = File.open(path, File::WRONLY|File::TRUNC|File::CREAT) 
-    $log = Logger.new(path)
-    $log.level = Logger::DEBUG
-
-    @lookfeel = :classic # :dialog # or :classic
-
-    @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 test2.rb --------- #{@window} "
-      @form = Form.new @window
-      title = (" "*30) + "Demo of some Ruby Curses Widgets - rbcurse " + Rbcurse::VERSION
-      Label.new @form, {'text' => title, :row => 0, :col => 0, :color => 'green', :bgcolor => 'black'}
-      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" => Ncurses.LINES-1, "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 = File.open("data/tasks.txt",'r').readlines
-        #0.upto(100) { |v| mylist << "#{v} scrollable data" }
-        listb = BasicListbox.new @form do
-          name   "mylist" 
-          row  r 
-          col  1 
-          width 40
-          height 11
-          list mylist
-          #selection_mode :SINGLE
-          show_selector true
-          #row_selected_symbol "*"
-          #row_unselected_symbol " "
-          selected_bgcolor :white
-          selected_color :blue
-          title "Todo List"
-        end
-        Scrollbar.new @form, :parent => listb # 2011-10-1  added
-        #listb.list_data_model.insert -1, "rake build", "rake release", "bump version", "fix bugs"
-        col2 = 42
-        texta = TextArea.new @form do
-          name   "mytext" 
-          row  1 
-          col  col2
-          width 50
-          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
-        lines = File.open("data/unix1.txt",'r').readlines
-        lines.each { |e| texta << e }
-        #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 << " F10 to exit. or click cancel button"
-        #texta << " Or alt-c"
-
-        col3 = 92
-        treemodel = nil
-        atree = Tree.new @form, :title => "Tree", :row =>1, :col=>col3, :height => 14, :width => 15 do
-        treemodel = root "ruby language" do
-          branch "mri" do
-            leaf "1.9.1"
-            leaf "1.9.2"
-            leaf "1.9.3"
-          end
-          branch "jruby" do
-            leaf "1.5"
-            leaf "a really long leaf"
-
-          end
-          branch "ree" do
-            leaf "1.8"
-            leaf "1.9"
-            leaf "2.0"
-          end
-        end
-      end
-      root = treemodel.root
-      atree.set_expanded_state root, true
-        #listcb.cell_editor.component.form = @form
-
-      w1 = Ncurses.COLS-col2-1
-        @textview = TextView.new @form do
-          name   "myView" 
-          row  15 
-          col  col2 
-          width w1
-          height 11
-          title "README.mark"
-          #title_attrib 'bold'
-          print_footer true
-          footer_attrib 'bold'
-        end
-        content = File.open("../README.markdown","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
-         pb =  @form.by_name["pbar"]
-         pb.visible true
-         len = alist.current_index
-         pb.fraction(len/100.0)
-         i = ((len/100.0)*100).to_i
-         i = 100 if i > 100
-         pb.text = "completed:#{i}"
-        }
-        listb.bind(:LEAVE) { 
-          pb =  @form.by_name["pbar"]
-          pb.visible false
-          r = pb.row
-          c = pb.col
-          @window.wmove(r,c); @window.wclrtoeol
-          #@window.wrefresh
-        }
-        
-        # 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=>:blue
-      end
-
-      list = ListDataModel.new( %w[white yellow cyan magenta red blue black])
-      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}"; @form.widgets.each { |e| next unless e.is_a? Widget; e.color = obj.selected_item }; @mb.color = obj.selected_item }
-
-      row += 1
-      combo1 = ComboBoxEdit.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 }
-
-      f = @form.by_name["line"]
-      f.display_length(3).set_buffer(24).valid_range(1..200).
-        maxlen(3).
-        type(:integer)
-
-      @form.by_name["name"].set_buffer( "Not focusable").
-        set_focusable(false)
-      
-      @form.by_name["regex"].valid_regex(/^[A-Z][a-z]*/).
-        set_buffer( "SYNOP").
-        display_length(10).
-        maxlen = 20
-
-      @form.by_name["password"].set_buffer("").
-        show('*').
-        color('red').
-        values(%w[scotty tiger secret pass qwerty]).
-        null_allowed true
-
-      # a form level event, whenever any widget is focussed, make the label red
-      @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}
-      $radio.update_command() {|tv|  @form.widgets.each { |e| next unless e.is_a? Widget; 
-        e.bgcolor tv.value }; @mb.bgcolor = tv.value }
-
-      # whenever updated set colorlabel and messagelabel to bold
-      $results.update_command(colorlabel,checkbutton) {|tv, label, cb| 
-        attrs =  cb.value ? 'bold' : 'normal'; 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)}
-      # changing nil to normal since PROP CHAN handler will not fire if nil being set.
-      @cb_rev.update_command(colorlabel,checkbutton1) {|tv, label, cb| 
-        attrs =  cb.value ? 'reverse' : 'normal'; label.attr(attrs); message_label.attr(attrs)}
-
-      row += 1
-      dlen = 10
-      radio1 = RadioButton.new @form do
-        variable $radio
-        text "red"
-        value "red"
-        color "red"
-        display_length dlen  # 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 dlen  # 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 dlen  # helps when right aligning
-        row row
-        col col
-      end
-      radio22 = RadioButton.new @form do
-        variable $radio
-        text "magenta"
-        value "magenta"
-        color "magenta"
-        display_length dlen  # 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
-      }
-
-      # instead of using frozen, I will use a PropertyVeto
-      # to disallow changes to color itself
-      veto = lambda { |e, name|
-        if e.property_name == 'color'
-          if e.newvalue != name
-            raise PropertyVetoException.new("Cannot change this at all!", e)
-          end
-        elsif e.property_name == 'bgcolor'
-            raise PropertyVetoException.new("Cannot change this!", e)
-        end
-      }
-      [radio1, radio2, radio11, radio22].each { |r| 
-        r.bind(:PROPERTY_CHANGE) do |e| veto.call(e, r.text) end
-      }
-
-      # 
-      # define the menu
-      #
-      @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"; 
-        require './qdfilechooser'
-        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
-          else
-            alert "File name #{filesel} nil. Pls check code. "
-          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 = File.open("data/lotr.txt",'r').readlines.join 
-        #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.getbyte(0)  
-        str.each_char {|c| testa.putch(c)}
-        testa.repaint
-        3.times { testa.handle_key KEY_DOWN }
-        testa.handle_key ?\C-a.getbyte(0)  
-        
-        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.getbyte(0)  
-        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' : 'normal'; label.attr(att); label.repaint}
-      @status_line = status_line :row => Ncurses.LINES-2
-      @status_line.command {
-        "F1 Help | F2 Menu | F3 View | F4 Shell | F5 Sh | %20s" % [$message.value]
-      }
-      row += 1 #2
-      ok_button = Button.new @form do
-        text "OK"
-        name "OK"
-        row row
-        col col
-        #attr 'reverse'
-        #highlight_background "white"
-        #highlight_foreground "blue"
-        mnemonic 'O'
-      end
-      ok_button.command() { |eve| 
-        alert("Hope you enjoyed this demo ", {'title' => "Hello", :bgcolor => :blue, :color => :white})
-        sw = case @lookfeel
-             when :dialog
-               progress_dialog :color_pair => $reversecolor, :row_offset => 4, :col_offset => 5
-             else
-               status_window # at footer last 2 rows
-             end
-
-        sw.print  "I am adding some stuff to list", "And testing out StatusWindow"
-        sleep 1.0
-        listb.list.insert 0, "hello ruby", "so long python", "farewell java", "RIP .Net"
-        sw.printstring 1,1, "And some more now ..."
-        sleep 0.5
-        listb.list.insert 0, "get milk", "make beds", "clean shark pond","sell summer house"
-        sleep 0.5
-        sw.print "This was a test of Window", "we are almost done now ..."
-        clock = %w[ | / - \ ]
-        listb.list.each_with_index { |e, index| sw.print e, clock[index%4]; sleep 0.1   }
-        sw.linger #@window
-      }
-
-      # using ampersand to set mnemonic
-      cancel_button = Button.new @form do
-        #variable $results
-        text "&Cancel"
-        row row
-        col col + 10
-        #attr 'reverse'
-        #highlight_background "white"
-        #highlight_foreground "blue"
-        #surround_chars ['{ ',' }']  ## change the surround chars
-      end
-      cancel_button.command { |aeve| 
-        if @lookfeel == :dialog
-          ret = confirm("Do your really want to quit?") 
-        else
-          ret = confirm_window("Do your really want to quit?") 
-        end
-        if ret == :YES
-          throw(:close); 
-        else
-          $message.value = "Quit aborted"
-        end
-      }
-      #col += 22
-      col += 15
-      require 'rbcurse/rprogress'
-      pbar = Progress.new @form, {:width => 20, :row => Ncurses.LINES-1, :col => Ncurses.COLS-20 , 
-        :bgcolor => 'white', :color => 'red', :name => "pbar"}
-      #len = 1
-      #pbar.fraction(len/100.0)
-      pbar.visible false
-
-
-      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 "Options2 ..."
-      item.command() do |it|  
-        require './newtabbedwindow'
-        tp = SetupTabbedPane.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 "Shell Command..."
-      item.command { shell_output }
-      menu.add(item)
-      savemenu = RubyCurses::Menu.new "Shell"
-      item = RubyCurses::MenuItem.new "Processes"
-      item.command { run_command "ps -l" }
-      savemenu.add(item)
-      item = RubyCurses::MenuItem.new "Files"
-      item.command { run_command "ls -l" }
-      savemenu.add(item)
-      item = RubyCurses::MenuItem.new "Disk"
-      item.command { run_command "df -h" }
-      savemenu.add(item)
-      menu.add(savemenu)
-
-      savemenu2 = RubyCurses::Menu.new "Git"
-      item = RubyCurses::MenuItem.new "Status"
-      item.command { run_command "git status" }
-      savemenu2.add(item)
-      item = RubyCurses::MenuItem.new "Diff"
-      item.command { run_command "git diff" }
-      savemenu2.add(item)
-      item = RubyCurses::MenuItem.new "Name"
-      item.command { run_command "git diff --name-status" }
-      savemenu2.add(item)
-      savemenu.add(savemenu2)
-      
-      @mb.toggle_key = FFI::NCurses::KEY_F2
-      @form.set_menu_bar  @mb
-     
-      # END
-      @form.bind_key(FFI::NCurses::KEY_F3) { 
-        require 'rbcurse/extras/viewer'
-        RubyCurses::Viewer.view(path || "rbc13.log", :close_key => KEY_RETURN, :title => "<Enter> to close")
-      }
-      @form.bind_key(FFI::NCurses::KEY_F4) {  shell_output }
-      @form.bind_key(FFI::NCurses::KEY_F5) {  suspend }
-      @form.bind_key([?\C-x,?c]) {  suspend }
-      @form.bind_key(?\M-!) {  suspend }
-      @form.bind_key([?\C-x,?l]) {  run_command "ls -al" }
-      @form.bind_key([?\C-x,?p]) {  run_command "ps -l" }
-      @form.bind_key([?\C-x,?d]) {  run_command "df -h" }
-      @form.bind_key([?\C-x,?d]) {  run_command "git diff --name-status" }
-      @form.bind_key([?\C-x, ?s]) {  run_command "git status" }
-      @form.bind_key([?\C-x,?w]) {  run_command "git whatchanged" }
-      @form.bind_key(FFI::NCurses::KEY_F1) {  display_app_help help_text() }
-      @form.repaint
-      @window.wrefresh
-      Ncurses::Panel.update_panels
-
-      # the main loop
-
-      while((ch = @window.getchar()) != FFI::NCurses::KEY_F10 )
-        break if ch == ?\C-q.getbyte(0)
-        begin
-          @form.handle_key(ch)
-
-        rescue FieldValidationException => fve 
-          alert fve.to_s
-          
-          f = @form.get_current_field
-          # lets restore the value
-          if f.respond_to? :restore_original_value
-            f.restore_original_value
-            @form.repaint
-          end
-          $error_message.value = ""
-        rescue => err
-          $log.error( err) if err
-          $log.error(err.backtrace.join("\n")) if err
-          alert "Got an exception in test2: #{err} "
-          $error_message.value = ""
-        end
-
-        # this should be avoided, we should not muffle the exception and set a variable
-        # However, we have been doing that
-        if $error_message.get_value != ""
-          if @lookfeel == :dialog
-            alert($error_message, {:bgcolor => :red, 'color' => 'yellow'}) if $error_message.get_value != ""
-          else
-            print_error_message $error_message, {:bgcolor => :red, :color => :yellow}
-          end
-          $error_message.value = ""
-        end
-
-        @window.wrefresh
-      end # while loop
-    end # catch
-  rescue => ex
-  ensure
-    $log.debug " -==== EXCEPTION =====-"
-    $log.debug( ex) if ex
-    $log.debug(ex.backtrace.join("\n")) if ex
-    @window.destroy if !@window.nil?
-    VER::stop_ncurses
-    puts ex if ex
-    puts(ex.backtrace.join("\n")) if ex
-  end
-end