rbcurse 0.1.3 → 1.1.1

data/examples/test1.rb

@@ -30,7 +30,7 @@ if $0 == __FILE__
       $log.debug "START  MESSAGE BOX TEST #{ARGV[0]}. choice==#{choice} ---------"
       # need to pass a form, not window.
       case choice
-      when 1:
+      when 1
       @mb = RubyCurses::MessageBox.new do
         title "Enter your name"
         message "Enter your name"
@@ -42,7 +42,7 @@ if $0 == __FILE__
   
         default_button 0
       end
-      when 2:
+      when 2
       @mb = RubyCurses::MessageBox.new do
         title "Color selector"
         message "Select a color"
@@ -65,7 +65,7 @@ if $0 == __FILE__
         button_type :ok_cancel
         default_value "Rahul"
       end
-      when 4:
+      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'}
@@ -167,7 +167,7 @@ if $0 == __FILE__
         button_type :ok
        default_button 0
       end
-      when 5:
+      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

data/examples/test2.rb

@@ -5,7 +5,6 @@ require 'ncurses'
 require 'logger'
 require 'rbcurse'
 require 'rbcurse/rwidget'
-#require 'rbcurse/rform'
 require 'rbcurse/rtextarea'
 require 'rbcurse/rtextview'
 require 'rbcurse/rmenu'
@@ -23,6 +22,7 @@ if $0 == __FILE__
   begin
   # Initialize curses
     VER::start_ncurses  # this is initializing colors via ColorMap.setup
+    #$log = Logger.new("v#{$0}.log")
     $log = Logger.new("view.log")
     $log.level = Logger::DEBUG
 
@@ -33,9 +33,9 @@ if $0 == __FILE__
 
     catch(:close) do
       colors = Ncurses.COLORS
-      $log.debug "START #{colors} colors  ---------"
+      $log.debug "START #{colors} colors test2.rb --------- #{@window} "
       @form = Form.new @window
-      @form.window.printstring 0, 25, "Demo of Ruby Curses Widgets", $normalcolor, 'reverse'
+      @form.window.printstring 0, 30, "Demo of Ruby Curses Widgets - rbcurse", $normalcolor, 'reverse'
       r = 1; fc = 12;
       mnemonics = %w[ n l r p]
       %w[ name line regex password].each_with_index do |w,i|
@@ -66,7 +66,7 @@ if $0 == __FILE__
           row  r 
           col  1 
           width 40
-          height 10
+          height 11
 #         list mylist
           list_variable $listdata
           #selection_mode :SINGLE
@@ -79,7 +79,7 @@ if $0 == __FILE__
         end
         #listb.insert 55, "hello ruby", "so long python", "farewell java", "RIP .Net"
         #$listdata.value.insert 55, "hello ruby", "so long python", "farewell java", "RIP .Net"
-        listb.list_data_model.insert 55, "hello ruby", "so long python", "farewell java", "RIP .Net", "hi lisp", "hi perl6"
+        listb.list_data_model.insert 55, "hello ruby", "so long python", "farewell java", "RIP .Net", "hi lisp", "hi clojure"
         texta = TextArea.new @form do
           name   "mytext" 
           row  1 
@@ -108,7 +108,7 @@ if $0 == __FILE__
 #         list mylist
           list_variable cblist
           #selection_mode :SINGLE
-          title "Checklist"
+          title "CList"
           title_attrib 'reverse'
           cell_renderer RubyCurses::CheckBoxCellRenderer.new nil, {"parent" => self, "display_length"=> @width-2}
           cell_editing_allowed true
@@ -140,14 +140,14 @@ if $0 == __FILE__
           col  52 
           width 40
           height 10
-          title "README.txt"
+          title "README.mark"
           title_attrib 'bold'
           print_footer true
           footer_attrib 'bold'
         end
-        content = File.open("../README.txt","r").readlines
+        content = File.open("../README.markdown","r").readlines
         @textview.set_content content #, :WRAP_WORD
-        @textview.top_row 21
+        #@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 }
@@ -360,13 +360,13 @@ if $0 == __FILE__
         str << " bugs as they crop up."
         testa.goto_start
         #testa.cursor_bol
-        testa.handle_key ?\C-a  # bol
+        testa.handle_key ?\C-a  # bol XXX should it be getbytes(0) now
         str.each_char {|c| testa.putch(c)}
         testa.repaint
         testa.handle_key KEY_DOWN # down
         testa.handle_key KEY_DOWN # down
         testa.handle_key KEY_DOWN # down
-        testa.handle_key ?\C-a  # bol
+        testa.handle_key ?\C-a  # bol XXX should it be getbytes(0) now
         #testa.cursor_bol
         str.each_char {|c| testa.putch(c)}
         $message.value = "Wrapping textarea"
@@ -376,7 +376,7 @@ if $0 == __FILE__
       filemenu.add(item = RubyCurses::MenuItem.new("Wrap",'W'))
       item.command(@form, texta) do |it, form, testa|  
         #testa.goto_start
-        testa.handle_key ?\C-a  # bol
+        testa.handle_key ?\C-a  # bol XXX should it be getbytes(0) now
         testa.wrap_para
         testa.repaint
         throw(:menubarclose)

data/examples/testchars.rb

@@ -0,0 +1,140 @@
+#$LOAD_PATH << "/Users/rahul/work/projects/rbcurse/"
+require 'rubygems'
+require 'ncurses'
+require 'logger'
+#require 'lib/ver/keyboard'
+require 'rbcurse'
+if $0 == __FILE__
+  include RubyCurses
+  include RubyCurses::Utils
+
+  begin
+  # Initialize curses
+    VER::start_ncurses  # this is initializing colors via ColorMap.setup
+    $log = Logger.new("view.log")
+    $log.level = Logger::DEBUG
+
+    @window = VER::Window.root_window
+
+    catch(:close) do
+      colors = Ncurses.COLORS
+      @form = Form.new @window
+      r = 1; c = 1;
+      arr=[]; sarr=[]
+
+sarr << "ACS_BBSS"
+arr << ACS_BBSS
+sarr << "ACS_BLOCK"
+arr << ACS_BLOCK
+sarr << "ACS_BOARD"
+arr << ACS_BOARD
+sarr << "ACS_BSBS"
+arr << ACS_BSBS
+sarr << "ACS_BSSB"
+arr << ACS_BSSB
+sarr << "ACS_BSSS"
+arr << ACS_BSSS
+sarr << "ACS_BTEE"
+arr << ACS_BTEE
+sarr << "ACS_BULLET"
+arr << ACS_BULLET
+sarr << "ACS_CKBOARD"
+arr << ACS_CKBOARD
+sarr << "ACS_DARROW"
+arr << ACS_DARROW
+sarr << "ACS_DEGREE"
+arr << ACS_DEGREE
+sarr << "ACS_DIAMOND"
+arr << ACS_DIAMOND
+sarr << "ACS_GEQUAL"
+arr << ACS_GEQUAL
+sarr << "ACS_HLINE"
+arr << ACS_HLINE
+sarr << "ACS_LANTERN"
+arr << ACS_LANTERN
+sarr << "ACS_LARROW"
+arr << ACS_LARROW
+sarr << "ACS_LEQUAL"
+arr << ACS_LEQUAL
+sarr << "ACS_LLCORNER"
+arr << ACS_LLCORNER
+sarr << "ACS_LRCORNER"
+arr << ACS_LRCORNER
+sarr << "ACS_LTEE"
+arr << ACS_LTEE
+sarr << "ACS_NEQUAL"
+arr << ACS_NEQUAL
+sarr << "ACS_PI"
+arr << ACS_PI
+sarr << "ACS_PLMINUS"
+arr << ACS_PLMINUS
+sarr << "ACS_PLUS"
+arr << ACS_PLUS
+sarr << "ACS_RARROW"
+arr << ACS_RARROW
+sarr << "ACS_RTEE"
+arr << ACS_RTEE
+sarr << "ACS_S1"
+arr << ACS_S1
+sarr << "ACS_S3"
+arr << ACS_S3
+sarr << "ACS_S7"
+arr << ACS_S7
+sarr << "ACS_S9"
+arr << ACS_S9
+sarr << "ACS_SBBS"
+arr << ACS_SBBS
+sarr << "ACS_SBSB"
+arr << ACS_SBSB
+sarr << "ACS_SBSS"
+arr << ACS_SBSS
+sarr << "ACS_SSBB"
+arr << ACS_SSBB
+sarr << "ACS_SSBS"
+arr << ACS_SSBS
+sarr << "ACS_SSSB"
+arr << ACS_SSSB
+sarr << "ACS_SSSS"
+arr << ACS_SSSS
+sarr << "ACS_STERLING"
+arr << ACS_STERLING
+sarr << "ACS_TTEE"
+arr << ACS_TTEE
+sarr << "ACS_UARROW"
+arr << ACS_UARROW
+sarr << "ACS_ULCORNER"
+arr << ACS_ULCORNER
+sarr << "ACS_URCORNER"
+arr << ACS_URCORNER
+sarr << "ACS_VLINE"
+arr << ACS_VLINE
+
+sarr.each_index { |i|
+  @window.mvaddch r,c, arr[i]
+  @window.mvprintw r,c+2,"%s", sarr[i]
+  r+=1
+  if r == 25
+    r = 1
+    c+=25
+  end
+}
+
+      #@form.repaint
+      @window.wrefresh
+      Ncurses::Panel.update_panels
+      while((ch = @window.getchar()) != ?q.getbyte(0) )
+        str = keycode_tos ch
+        @form.handle_key(ch)
+        @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/testkeypress.rb

@@ -2,9 +2,9 @@
 require 'rubygems'
 require 'ncurses'
 require 'logger'
-#require 'lib/ver/keyboard'
 require 'rbcurse'
 require 'rbcurse/rtextarea'
+#require 'rbcurse/oldrtextarea'
 if $0 == __FILE__
   include RubyCurses
   include RubyCurses::Utils
@@ -35,17 +35,22 @@ if $0 == __FILE__
           auto_scroll true
           title_attrib (Ncurses::A_REVERSE | Ncurses::A_BOLD)
         end
-      @help = "q to quit. Use any key of key combination to see what's caught. Check logger too"
+      @help = "q to quit. Use any key of key combination to see what's caught.: #{$0} Check logger too"
       RubyCurses::Label.new @form, {'text' => @help, "row" => 21, "col" => 2, "color" => "yellow"}
 
       @form.repaint
       @window.wrefresh
       Ncurses::Panel.update_panels
-      while((ch = @window.getchar()) != ?q )
+      while((ch = @window.getchar()) != ?q.getbyte(0) )
         str = keycode_tos ch
+        $log.debug  "#{ch} got (#{str})"
         texta << "#{ch} got (#{str})"
         texta.repaint
-        @form.handle_key(ch)
+        # 2010-01-01 16:00 not much point calling handle_key since textarea is not editable
+        # and will return unhandled and thus NOT do a repaint. so we have to repaint anyway.
+        #ret = @form.handle_key(ch)
+        #$log.debug " form handlekey returned: #{ret} "
+        @form.repaint
         @window.wrefresh
       end
     end

data/examples/testmulticomp.rb

@@ -0,0 +1,72 @@
+#$LOAD_PATH << "/Users/rahul/work/projects/rbcurse/"
+require 'rubygems'
+require 'ncurses'
+require 'logger'
+require 'rbcurse'
+require 'rbcurse/rmulticontainer'
+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("view.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 "Multiconty"
+      end
+      ctr = 1
+
+      @form.bind_key(?\M-a) do
+        $log.debug " Inside M-a MULTI "
+        texta = TextArea.new do
+          name  "mytext#{ctr}" 
+          title "Enter Something-#{ctr}"
+          title_attrib (Ncurses::A_REVERSE | Ncurses::A_BOLD)
+        end
+        mc.add texta, "Enter Something #{ctr}"
+        texta << "Hello World"
+        texta << "Hello World"
+        ctr += 1
+      end
+      @help = "F1 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 )
+        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/testscroller.rb

@@ -0,0 +1,136 @@
+#$LOAD_PATH << "/Users/rahul/work/projects/rbcurse/"
+# this program tests out various widgets.
+require 'rubygems'
+require 'ncurses'
+require 'logger'
+require 'rbcurse'
+require 'rbcurse/rwidget'
+require 'rbcurse/rscrollform'
+#require 'rbcurse/rtextarea'
+#require 'rbcurse/rtextview'
+#require 'rbcurse/rmenu'
+#require 'rbcurse/rcombo'
+#require 'rbcurse/listcellrenderer'
+#require 'rbcurse/checkboxcellrenderer'
+#require 'rbcurse/comboboxcellrenderer'
+#require 'rbcurse/celleditor'
+#require 'qdfilechooser'
+#require 'rbcurse/rlistbox'
+#require 'rbcurse/rmessagebox'
+if $0 == __FILE__
+  include RubyCurses
+
+  begin
+  # Initialize curses
+    VER::start_ncurses  # this is initializing colors via ColorMap.setup
+    #$log = Logger.new("v#{$0}.log")
+    $log = Logger.new("view.log")
+    $log.level = Logger::DEBUG
+
+    @window = VER::Window.root_window
+    # Initialize few color pairs 
+    # Create the window to be associated with the form 
+    # Un post form and free the memory
+
+    catch(:close) do
+      colors = Ncurses.COLORS
+      $log.debug "START #{colors} colors testscroller.rb --------- #{@window} "
+      @form = ScrollForm.new @window
+      # pad coordinates - the virtual area larger than screen
+      h = 50
+      w = 150 
+      row = 1
+      col = 1
+      @form.set_pad_dimensions(row, col, h, w)
+      # dimensions of screen area onto which pad will paint
+      @form.should_print_border(true)
+      #@buttonpad = @form.create_pad
+
+      #@window.print_border_only 0, 0, 20+2, 100+2, $datacolor
+      @window.printstring 0, 30, "Demo of ScrollForm ", $normalcolor, 'reverse'
+      r = row + 0; fc = 12;
+      #mnemonics = %w[ n l r p]
+      %w[ name detail descr password street city country zip hobbies homepage facebook twitter buzz gmail ].each_with_index do |w,i|
+        field = Field.new @form do
+          name   w 
+          row  r 
+          col  fc 
+          display_length  30
+          maxlen  30
+          #set_buffer "abcd " 
+          #set_label Label.new @form, {'text' => w, 'color'=>'cyan','mnemonic'=> mnemonics[i]}
+          set_label Label.new @form, {'text' => w, 'color'=>'cyan'}
+        end
+        r += 3
+      end
+        r = row
+        fc = 120
+        # XXX while typing in a field, cursor goes off in this case
+      %w[ operating_system version application build release shell band instrument guitarist drummer ].each_with_index do |w,i|
+        field = Field.new @form do
+          name   w 
+          row  r 
+          col  fc 
+          display_length  30
+          maxlen  30
+          bgcolor 'white'
+          color 'black'
+          #set_buffer "abcd " 
+          #set_label Label.new @form, {'text' => w, 'color'=>'cyan','mnemonic'=> mnemonics[i]}
+          set_label Label.new @form, {'text' => w, 'color'=>'cyan'}
+        end
+        field.overwrite_mode = true
+        r += 3
+      end
+
+      $message = Variable.new
+      $message.value = "Message Comes Here"
+      message_label = RubyCurses::Label.new @form, {'text_variable' => $message, "name"=>"message_label","row" => 27, "col" => 1, "display_length" => 60,  "height" => 2, 'color' => 'cyan'}
+
+      # a special case required since another form (combo popup also modifies)
+      $message.update_command() { message_label.repaint }
+
+      #@form.by_name["line"].display_length = 3
+      #@form.by_name["line"].maxlen = 3
+      #@form.by_name["line"].set_buffer  "24"
+      @form.by_name["detail"].set_buffer  "This form has more components"
+      @form.by_name["descr"].set_buffer  "Use M-l/h and M-n/p for scrolling"
+      #@form.by_name["name"].set_focusable(false)
+      #@form.by_name["line"].chars_allowed = /\d/
+      ##@form.by_name["regex"].type(:ALPHA)
+      #@form.by_name["regex"].valid_regex(/^[A-Z][a-z]*/)
+      #@form.by_name["regex"].set_buffer  "SYNOP"
+      #@form.by_name["regex"].display_length = 10
+      #@form.by_name["regex"].maxlen = 20
+      ##@form.by_name["regex"].bgcolor 'cyan'
+      #@form.by_name["password"].set_buffer ""
+      #@form.by_name["password"].show '*'
+      #@form.by_name["password"].color 'red'
+      ##@form.by_name["password"].bgcolor 'blue'
+      #@form.by_name["password"].values(%w[scotty tiger secret pass qwerty])
+      #@form.by_name["password"].null_allowed true
+
+      # a form level event, whenever any widget is focussed
+      @form.bind(:ENTER) { |f|   f.label && f.label.bgcolor = 'red' if f.respond_to? :label}
+      @form.bind(:LEAVE) { |f|  f.label && f.label.bgcolor = 'black'   if f.respond_to? :label}
+
+      @form.repaint
+      @window.wrefresh
+      Ncurses::Panel.update_panels
+      while((ch = @window.getchar()) != KEY_F1 )
+        @form.handle_key(ch)
+        @form.repaint
+        @window.wrefresh
+        Ncurses::Panel.update_panels
+      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