rbcurse 1.5.0 → 1.5.2

data/examples/status.txt

@@ -0,0 +1,68 @@
+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

@@ -0,0 +1,24 @@
+require 'rbcurse/core/util/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

@@ -0,0 +1,84 @@
+require 'rbcurse/core/util/app'
+require 'rbcurse/core/widgets/tabular'
+require 'rbcurse/core/widgets/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])
+    listbox :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")
+    listbox :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
+    listbox :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

@@ -0,0 +1,239 @@
+# 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/deprecated/widgets/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

@@ -0,0 +1,674 @@
+# 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/core/widgets/rtextarea'
+require 'rbcurse/core/widgets/rtextview'
+require 'rbcurse/core/widgets/rmenu'
+require 'rbcurse/core/widgets/rcombo'
+require 'rbcurse/extras/widgets/rcomboedit'
+require 'rbcurse/core/include/listcellrenderer'
+require 'rbcurse/extras/include/checkboxcellrenderer'
+require 'rbcurse/extras/include/comboboxcellrenderer'
+require 'rbcurse/extras/include/celleditor'
+require 'rbcurse/extras/widgets/rlistbox'
+require 'rbcurse/core/widgets/rlist'
+#require 'rbcurse/deprecated/widgets/rmessagebox'
+require 'rbcurse/core/widgets/rtree'
+require 'rbcurse/core/include/appmethods.rb'
+require 'rbcurse/core/widgets/scrollbar'
+def help_text
+      <<-eos
+               TEST2  HELP 1.5.0
+
+      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 = List.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/core/widgets/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/core/util/viewer'
+        RubyCurses::Viewer.view(path || "rbc13.log", :close_key => KEY_ENTER, :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