rbcurse 1.4.0 → 1.4.1.pre2

data/examples/test2.rb

@@ -14,14 +14,16 @@ 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/rmessagebox'
+require 'rbcurse/rbasiclistbox'
+#require 'rbcurse/rmessagebox'
 require 'rbcurse/rtree'
-require './appmethods.rb'
+require 'rbcurse/common/appmethods.rb'
 require 'rbcurse/extras/scrollbar'
 def help_text
       <<-eos
@@ -71,7 +73,7 @@ if $0 == __FILE__
       $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'}
+      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|
@@ -96,29 +98,25 @@ if $0 == __FILE__
       $results.value = "A variable"
       var = RubyCurses::Label.new @form, {'text_variable' => $results, "row" => r, "col" => fc}
         r += 1
-        mylist = ["Release gem","Bump version","Fix bugs","Make enhancements", "Brag on rubyforum"]
-        0.upto(100) { |v| mylist << "#{v} scrollable data" }
-        $listdata = Variable.new mylist
-        listb = Listbox.new @form do
+        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
-          list_variable $listdata
+          list mylist
           #selection_mode :SINGLE
           show_selector true
-          row_selected_symbol "[X] "
-          row_unselected_symbol "[ ] "
-          title "C-Space to select"
-          title_attrib 'reverse'
-          cell_editing_allowed 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.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 clojure"
+        #listb.list_data_model.insert -1, "rake build", "rake release", "bump version", "fix bugs"
         col2 = 42
         texta = TextArea.new @form do
           name   "mytext" 
@@ -131,11 +129,13 @@ if $0 == __FILE__
           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 << " F10 to exit. or click cancel button"
-        texta << " Or alt-c"
+        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
@@ -212,7 +212,7 @@ if $0 == __FILE__
         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
+        list_config :color => :yellow, :bgcolor=>:blue
       end
 
       list = ListDataModel.new( %w[white yellow cyan magenta red blue black])
@@ -220,7 +220,7 @@ if $0 == __FILE__
       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 = ComboBox.new @form do
+      combo1 = ComboBoxEdit.new @form do
         name "combo1"
         row row
         col fc
@@ -433,9 +433,10 @@ if $0 == __FILE__
       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."
+        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)  
@@ -471,7 +472,7 @@ if $0 == __FILE__
       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 {
-        "%-20s | F1 Help | F2 Menu | F3 View | F4 Shell | F5 Sh | %20s" % [Time.now, $message.value]
+        "F1 Help | F2 Menu | F3 View | F4 Shell | F5 Sh | %20s" % [$message.value]
       }
       row += 1 #2
       ok_button = Button.new @form do
@@ -485,7 +486,7 @@ if $0 == __FILE__
         mnemonic 'O'
       end
       ok_button.command() { |eve| 
-        #alert("Hope you enjoyed this demo ", {'title' => "Hello", :bgcolor => :blue, :color => :white})
+        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
@@ -563,6 +564,15 @@ if $0 == __FILE__
         $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)
@@ -616,6 +626,7 @@ if $0 == __FILE__
       # the main loop
 
       while((ch = @window.getchar()) != FFI::NCurses::KEY_F10 )
+        break if ch == ?\C-q.getbyte(0)
         begin
           @form.handle_key(ch)
 
@@ -630,8 +641,8 @@ if $0 == __FILE__
           end
           $error_message.value = ""
         rescue => err
-          $log.debug( err) if err
-          $log.debug(err.backtrace.join("\n")) if 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

data/examples/testapp2.rb

@@ -42,7 +42,14 @@ class Testy
         }
 
       end # stack
-      #app.safe_loop
+      app.status_line :row => last_line()
+
+      # earlier style without end, everything had to be explicit but quite simple. Hard to edit since you
+      # could mess up by inserting inside
+      s="#[fg=green]testing chunks #[fg=yellow, bg=red, bold]yellow #[reverse] reverseme#[normal]normal#[bg = black]just yellow#[fg=blue],blue now #[underline] underlined text"
+      # revised, i know allow [end] so you can pop back to whatever was there before.
+      s="#[fg=green]testing chunks #[fg=yellow, bg=red, bold]yellow #[/end] back to green#[reverse]reverse#[end]#[bg=blue]blue bg #[end],back to green #[/end]plain#[underline] underlined text"
+      app.window.printstring_formatted 15,1, s, $datacolor, 'normal'
     end
   end
 end

data/examples/testchars.rb

@@ -1,8 +1,4 @@
-#$LOAD_PATH << "/Users/rahul/work/projects/rbcurse/"
-require 'rubygems'
-#require 'ncurses' # FFI
 require 'logger'
-#require 'lib/ver/keyboard'
 require 'rbcurse'
 if $0 == __FILE__
   include RubyCurses

data/examples/testcombo.rb

@@ -1,13 +1,11 @@
 #$LOAD_PATH << "/Users/rahul/work/projects/rbcurse/"
-require 'rubygems'
-#require 'ncurses' # FFI
 require 'logger'
 #require 'lib/rbcurse/mapper'
 #require 'lib/rbcurse/keylabelprinter'
 #require 'lib/rbcurse/commonio'
 #require 'lib/rbcurse/rwidget'
 #require 'lib/rbcurse/rform'
-require 'rbcurse/rcombo'
+require 'rbcurse/extras/rcomboedit'
 if $0 == __FILE__
   include RubyCurses
 
@@ -23,13 +21,11 @@ if $0 == __FILE__
     # Un post form and free the memory
 
     catch(:close) do
-      colors = Ncurses.COLORS
-      $log.debug "START #{colors} colors  ---------"
       @form = Form.new @window
       r = 1; c = 30;
       mylist = []
       0.upto(100) { |i| mylist << i.to_s }
-      combo = ComboBox.new @form do
+      combo = ComboBoxEdit.new @form do
         name "combo"
         row r
         col c
@@ -56,7 +52,7 @@ if $0 == __FILE__
           list = ListDataModel.new( %w[spotty tiger secret pass torvalds qwerty quail toiletry])
           list.bind(:LIST_DATA_EVENT, name) { |lde,n| $results.value = lde.to_s[0,70]; $log.debug " STA: #{$results} #{lde}"  }
           list.bind(:ENTER_ROW, name) { |obj,n| $results.value = "ENTER_ROW :#{obj.current_index} : #{obj.selected_item}    "; $log.debug " ENTER_ROW: #{$results.value} , #{obj}"  }
-        ComboBox.new @form do
+        ComboBoxEdit.new @form do
           name name
           row r
           col 30
@@ -72,13 +68,13 @@ if $0 == __FILE__
         r+=2
       end
 
-      @help = "Use UP and DOWN to navigate values, alt-DOWN for popup, TAB / BACKTAB between fields. F1-quit"
+      @help = "Use UP and DOWN to navigate values, alt-DOWN for popup, TAB / BACKTAB between fields. F10-quit"
       RubyCurses::Label.new @form, {'text' => @help, "row" => 21, "col" => 2, "color" => "yellow"}
 
       @form.repaint
       @window.wrefresh
       Ncurses::Panel.update_panels
-      while((ch = @window.getchar()) != KEY_F1 )
+      while((ch = @window.getchar()) != KEY_F10 )
         @form.handle_key(ch)
         @window.wrefresh
       end

data/examples/testkeypress.rb

@@ -1,6 +1,3 @@
-#$LOAD_PATH << "/Users/rahul/work/projects/rbcurse/"
-require 'rubygems'
-#require 'ncurses' # FFI
 require 'logger'
 require 'rbcurse'
 require 'rbcurse/rtextarea'

data/examples/testmenu.rb

@@ -1,7 +1,3 @@
-#$LOAD_PATH << "/Users/rahul/work/projects/rbcurse/"
-# this program tests out various widgets.
-require 'rubygems'
-#require 'ncurses' # FFI
 require 'logger'
 require 'rbcurse'
 #require 'lib/rbcurse/rform'

data/examples/testmulticomp.rb

@@ -1,6 +1,3 @@
-#$LOAD_PATH << "/Users/rahul/work/projects/rbcurse/"
-require 'rubygems'
-#require 'ncurses' # FFI
 require 'logger'
 require 'rbcurse'
 require 'rbcurse/rmulticontainer'
@@ -46,13 +43,14 @@ if $0 == __FILE__
         texta << "Hello World"
         ctr += 1
       end
-      @help = "F1 to quit. M-a to open new component. M-: for menu  #{$0} "
+      @help = "F10 to quit. M-a to open new component. M-: for menu  #{$0} "
       RubyCurses::Label.new @form, {'text' => @help, "row" => 21, "col" => 2, "color" => "yellow"}
 
       @form.repaint
       @window.wrefresh
       Ncurses::Panel.update_panels
-      while((ch = @window.getchar()) != KEY_F1 )
+      while((ch = @window.getchar()) != KEY_F10 )
+        break if ch == ?\C-q.getbyte(0)
         str = keycode_tos ch
         $log.debug  "#{ch} got (#{str})"
         @form.handle_key ch

data/examples/testmulticontainer.rb

@@ -0,0 +1,94 @@
+## 
+#  This tests both multicontainer and container
+#
+require 'logger'
+require 'rbcurse'
+require 'rbcurse/rmulticontainer'
+require 'rbcurse/rcontainer'
+require 'rbcurse/rtextarea'
+if $0 == __FILE__
+  include RubyCurses
+  include RubyCurses::Utils
+
+  begin
+  # Initialize curses
+    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
+      colors = Ncurses.COLORS
+      $log.debug "START #{colors} colors  --------- testmulticomp"
+      @form = Form.new @window
+      @ctr = 1
+      r = 1; c = 30;
+
+      mc = MultiContainer.new @form  do
+        name "multic"
+        row  r 
+        col  c
+        width 60
+        height 15
+        title "Multicontainer"
+      end
+      ctr = 1
+
+      c1 = Container.new 
+      mc.add c1, "A form"
+      f1 = Field.new nil do
+        name "name"
+        text "rahul"
+        row 1
+        col 10
+        label " Name: "
+      end
+      f2 = Field.new nil, :name => "email", :text => "me@somebody.com", :label => "Email: "
+      c1.add( f1, f2)
+
+      c3 = TextArea.new
+      mc.add c3, "Edit Me"
+      c2 = Container.new 
+      mc.add c2, "Another form"
+      attrib = 'underline'
+      f3 = Field.new do
+        name "language"
+        text "ruby"
+        row 1
+        col 10
+        label "Language: "
+        attr attrib
+      end
+      f4 = Field.new nil, :name => "version", :text => "1.9.2", :row => 2, :col => 10, 
+        :label => " Version: ", :attr => attrib
+      c2.add( f3, f4)
+
+      @help = "F10 to quit. M-a to open new component. M-: for menu  #{$0} "
+      RubyCurses::Label.new @form, {:text => @help, :row => last_line(), :col => 2, 
+        :color => 'yellow', :bgcolor => 'red'}
+      f5 = Field.new @form, :name => "version2", :text => "1.9.2", :row => 20, :col => c, :bgcolor => 'blue',
+        :label => "Version: ", :label_color_pair => get_color($datacolor, 'green', 'black')
+
+      @form.repaint
+      @window.wrefresh
+      Ncurses::Panel.update_panels
+      while((ch = @window.getchar()) != KEY_F10 )
+        break if ch == ?\C-q.getbyte(0)
+        str = keycode_tos ch
+        $log.debug  "#{ch} got (#{str})"
+        @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

data/examples/testtable.rb

@@ -1,8 +1,3 @@
-#$LOAD_PATH << "/Users/rahul/work/projects/rbcurse/"
-require 'rubygems'
-#require 'ncurses' # FFI
-require 'logger'
-#require 'ver/keyboard'
 require 'rbcurse'
 require 'rbcurse/rcombo'
 require 'rbcurse/rtable'

data/examples/testtabp.rb

@@ -1,8 +1,3 @@
-# this is a test program, tests out tabbed panes. type F1 to exit
-#
-#$LOAD_PATH << "/Users/rahul/work/projects/rbcurse/"
-require 'rubygems'
-#require 'ncurses' # FFI
 require 'logger'
 require 'rbcurse'
 #require 'rbcurse/rtabbedpane'
@@ -16,15 +11,16 @@ class TestTabbedPane
   def run
     $config_hash ||= Variable.new Hash.new
     #configvar.update_command(){ |v| $config_hash[v.source()] = v.value }
-      @tp = RubyCurses::TabbedWindow.new nil  do
-        height 12
-        width  50
+      @tw = RubyCurses::TabbedWindow.new nil  do
+        height 18
+        width  60
         row 5
-        col 10
+        col 20
         button_type :ok
       end
-      @tab1 = @tp.add_tab "&Language" 
-      f1 = @tab1.form
+      @tp = @tw.tabbed_pane
+      @tab1 = @tw.add_tab "&Language" 
+      f1 = @tp.form @tab1
       #$radio = Variable.new
       radio1 = RadioButton.new f1 do
         #variable $radio
@@ -56,9 +52,10 @@ class TestTabbedPane
         row 6
         col 2
       end
-      @tab2 = @tp.add_tab "&Settings"
-      f2 = @tab2.form
-      r = 3
+      @tab2 = @tw.add_tab "&Settings"
+      #f2 = @tab2.form
+      f2 = @tp.form @tab2
+      r = 2
       butts = [ "Use &HTTP/1.0", "Use &frames", "&Use SSL" ]
       bcodes = %w[ HTTP, FRAMES, SSL ]
       butts.each_with_index do |t, i|
@@ -70,8 +67,9 @@ class TestTabbedPane
           col 4
         end
       end
-      @tab3 = @tp.add_tab "&Editors"
-      f3 = @tab3.form
+      @tab3 = @tw.add_tab "&Editors"
+      #f3 = @tab3.form
+      f3 = @tp.form @tab3
       butts = %w[ &Vim E&macs &Jed &Other ]
       bcodes = %w[ VIM EMACS JED OTHER]
       row = 3
@@ -85,8 +83,8 @@ class TestTabbedPane
         end
         row +=1
       end
-      @tp.show
-      @tp.handle_keys
+      @tw.show
+      @tw.handle_keys
   end
 end
 if $0 == __FILE__