rbcurse 0.1.3 → 1.1.1

data/examples/testscrolllb.rb

@@ -0,0 +1,86 @@
+#$LOAD_PATH << "/Users/rahul/work/projects/rbcurse/"
+# Creates a scrollpane with a Testwidget (which is a modified TextView class)
+require 'rubygems'
+require 'ncurses'
+require 'logger'
+require 'rbcurse'
+require 'rbcurse/rlistbox'
+require 'rbcurse/rscrollpane'
+if $0 == __FILE__
+  include RubyCurses
+  include RubyCurses::Utils
+
+  begin
+  # Initialize curses
+    VER::start_ncurses  # this is initializing colors via ColorMap.setup
+    $log = Logger.new("v#{$0}.log")
+    $log.level = Logger::DEBUG
+
+    @window = VER::Window.root_window
+
+    catch(:close) do
+      colors = Ncurses.COLORS
+      @form = Form.new @window
+      r = 1; c = 10; w = 40
+      ht = 10
+      # print filler stars
+      filler = "*" * (w+2)
+      #(ht+3).times(){|i| @form.window.printstring(i,c-1, filler, $datacolor) }
+
+
+        @scroll = ScrollPane.new @form do
+          name   "myScroller" 
+          row r+ht+1
+          col  c 
+          width w
+          height ht
+        end
+        mylist = []
+        0.upto(100) { |v| mylist << "#{v} scrollable data" }
+        $listdata = Variable.new mylist
+        # NOTE that embedded object is not passed form, since it doesn't update form
+        listb = Listbox.new nil do
+          name   "mylist" 
+          row 0
+          col  0 
+          width w+10
+          height ht+10
+          list_variable $listdata
+          #selection_mode :SINGLE
+          show_selector true
+          row_selected_symbol "[X] "
+          row_unselected_symbol "[ ] "
+          title "A long list"
+          title_attrib 'reverse'
+          cell_editing_allowed true
+        end
+        ## The next 2 are not advised since they don't trigger events
+        #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", "hiya erlang"
+        @scroll.child(listb)
+
+
+      @help = "q to quit. This is a test of Listbox which uses a pad/buffer.: #{$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()) != ?q.getbyte(0) )
+        str = keycode_tos ch
+        @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/testscrollp.rb

@@ -0,0 +1,87 @@
+#$LOAD_PATH << "/Users/rahul/work/projects/rbcurse/"
+# Creates a scrollpane with a TextView (which is a modified TextView class)
+require 'rubygems'
+require 'ncurses'
+require 'logger'
+require 'rbcurse'
+#require 'rbcurse/rtextview'
+require 'rbcurse/rmultitextview'
+require 'rbcurse/rscrollpane'
+require 'rbcurse/undomanager'
+if $0 == __FILE__
+  include RubyCurses
+  include RubyCurses::Utils
+
+  begin
+  # Initialize curses
+    VER::start_ncurses  # this is initializing colors via ColorMap.setup
+    $log = Logger.new("v#{$0}.log")
+    $log.level = Logger::DEBUG
+
+    @window = VER::Window.root_window
+
+    catch(:close) do
+      colors = Ncurses.COLORS
+      @form = Form.new @window
+      @form.name = "Form::MAINFORM"
+      r = 3; c = 5; w = 80
+      ht = 20
+      # print filler stars
+      #filler = "*" * (w+2)
+      #(ht+3).times(){|i| @form.window.printstring(i,c-1, filler, $datacolor) }
+
+
+        @scroll = ScrollPane.new @form do
+          name   "myScroller" 
+          row r
+          col  c 
+          width w
+          height ht
+        end
+        @textview = MultiTextView.new do
+        #@textview = TextView.new do
+          name   "myView" 
+          row 0
+          col  0 
+          width w 
+          height ht +20
+          title "README.txt"
+          title_attrib 'bold'
+          print_footer true
+          footer_attrib 'bold'
+          #suppress_borders true
+        end
+        #@textview.should_create_buffer true # can be moved to scrollpane
+        #@textview.set_buffering(:target_window => @form.window, :bottom => @scroll.height-1, :right => @scroll.width-1 )
+        #content = File.open("../README.markdown","r").readlines
+        #@textview.set_content content #, :WRAP_WORD
+        @textview.add "../README.markdown", "Readme"
+       
+        @textview.load_module "vieditable", "ViEditable"
+        @scroll.child(@textview)
+        undom = SimpleUndo.new @textview
+        #@textview.show_caret=true
+
+      @help = "F1 to quit. #{$0} TextView inside scrollpane. M-n M-p M-h M-l M-< M->, e to open file, : for menu""
+      RubyCurses::Label.new @form, {'text' => @help, "row" => ht+r+1, "col" => 2, "color" => "yellow"}
+
+      @form.repaint
+      @window.wrefresh
+      Ncurses::Panel.update_panels
+      while((ch = @window.getchar()) != KEY_F1 ) # ?q.getbyte(0) )
+        str = keycode_tos ch
+        @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/testscrollta.rb

@@ -0,0 +1,80 @@
+#$LOAD_PATH << "/Users/rahul/work/projects/rbcurse/"
+# Creates a scrollpane with a Testwidget (which is a modified TextView class)
+require 'rubygems'
+require 'ncurses'
+require 'logger'
+require 'rbcurse'
+require 'rbcurse/rtextarea'
+require 'rbcurse/rscrollpane'
+if $0 == __FILE__
+  include RubyCurses
+  include RubyCurses::Utils
+
+  begin
+  # Initialize curses
+    VER::start_ncurses  # this is initializing colors via ColorMap.setup
+    $log = Logger.new("v#{$0}.log")
+    $log.level = Logger::DEBUG
+
+    @window = VER::Window.root_window
+
+    catch(:close) do
+      colors = Ncurses.COLORS
+      @form = Form.new @window
+      @form.name = "Form::MAINFORM"
+      $log.debug " MAIN FORM #{@form}   w #{@window}  "
+      r = 3; c = 10; w = 40
+      ht = 10
+
+
+        @scroll = ScrollPane.new @form do
+          name   "myScroller" 
+          row r+1
+          col  c 
+          width w
+          height ht
+        end
+        # XXX  we are passing nil as form, so its bound to bomb FIXME TODO
+        @textview = TextArea.new @nil do
+          name   "myText" 
+          row 0
+          col  0 
+          width w+10
+          height ht+10
+          title "EditMe.txt"
+          title_attrib 'bold'
+          print_footer true
+          footer_attrib 'bold'
+        end
+        @scroll.child(@textview)
+        @textview << "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."
+        @textview << "Let me not defer it or neglect it, for I shall not pass this way again."
+        @textview << " "
+        @textview << "F1 to exit. M-n, M-p, M-h, M-l for scrolling."
+        @textview << "Some more text going below scrollpane.. "
+        @textview << "Try C-[ C-] for going to start and end "
+
+
+      @help = "F1 to quit. #{$0}. This is a test of TextArea inside a Scrollpane (it uses a pad/buffer)."
+      RubyCurses::Label.new @form, {'text' => @help, "row" => 23, "col" => 2, "color" => "yellow"}
+
+      @form.repaint
+      @window.wrefresh
+      Ncurses::Panel.update_panels
+      while((ch = @window.getchar()) != KEY_F1)
+        str = keycode_tos ch
+        @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/testscrolltable.rb

@@ -0,0 +1,166 @@
+#$LOAD_PATH << "/Users/rahul/work/projects/rbcurse/"
+#*******************************************************#
+#                     testsrolltable.rb                 #
+#                 written by Rahul Kumar                #
+#                    January 18, 2010                   #
+#                                                       #
+#  Test table inside a scrollpane.                      #
+#  The table here has minimal functionality. Pls refer  #
+#  testtable.rb for more complete functionality.        #
+#
+#  /----+----+----+-----\
+#  |____|____|____|_____|
+#  |    |    |    |    V|
+#  |    |    |    |    V|
+#  +    |    |    |    V|
+#  |    |    |    |    V|
+#  |    |    |    |    V|
+#  |>>>>>>>>>>>   |     |
+#  \----+----+----+-----/
+#  http://totalrecall.files.wordpress.com/2010/01/rbcurse-tablescrollpane.png
+#
+#
+#            Released under ruby license. See           #
+#         http://www.ruby-lang.org/en/LICENSE.txt       #
+#               Copyright 2010, Rahul Kumar             #
+#*******************************************************#
+# Creates a scrollpane with a Table 
+require 'rubygems'
+require 'ncurses'
+require 'logger'
+require 'rbcurse'
+require 'rbcurse/rtable'
+require 'rbcurse/rscrollpane'
+if $0 == __FILE__
+  include RubyCurses
+  include RubyCurses::Utils
+
+  begin
+  # Initialize curses
+    VER::start_ncurses  # this is initializing colors via ColorMap.setup
+#    file = File.open("v#{$0}.log", File::WRONLY | File::APPEND | File::CREAT)
+    $log = Logger.new("v#{$0}.log")
+    $log.level = Logger::DEBUG
+
+    @window = VER::Window.root_window
+
+    catch(:close) do
+      colors = Ncurses.COLORS
+      @form = Form.new @window
+      r = 3; c = 7; w = 80
+      ht = 20
+
+        scroll = ScrollPane.new @form do
+          name   "myScroller" 
+          row r
+          col  c 
+          width w
+          height ht
+        end
+      data = [["Pathetique",3,"Tchaikovsky",3.21, true, "WIP"],
+        ["Ali Maula Ali Maula",3,"NFAK",3.47, true, "WIP"],
+        ["Tera Hijr Mera Nasib",92,"Razia Sultan",412, true, "Fin"],
+        ["Piano Concerto 4&5",4,"Beethoven",110.0, false, "Cancel"],
+        ["Toccata and Fugue",4,"J S Bach",102.72, false, "Postp"],
+        ["Symphony No. 3",4,"Henryk Gorecki",102.72, true, "Postp"],
+        ["The Great Gig in the Sky",8,"Pink Floyd",12.72, false, "Todo"],
+        ["Steppes of Central Asia",9,"Borodin",12.2, false, "WIP"],
+        ["Wish You Were Here",8,"Pink Floyd",2.7, false, "Todo"],
+        ["Habanera",nil,"Maria Callas",112.7, true, "Cancel"],
+        ["Mack the Knife",9,"Loius Armstrong",12.2, false, "Todo"],
+        ["Prince Igor",9,"Borodin",16.3, false, "WIP"],
+        ["Shahbaaz Qalandar",9,"Nusrat Fateh Ali Khan",12.2, false, "Todo"],
+        ["Raag Darbari",9,"Ustad Fateh Ali Khan",12.2, false, "Todo"],
+        ["Yaad-e-Mustafa Aisi",9,"Santoo Khan",12.2, true, "Todo"],
+        ["Chaconne",4,"Johann S Bach",12.42, true, "Postp"],
+        ["Raag Jaunpuri",9,"Ustad Fateh Ali Khan",12.2, false, "Todo"],
+        ["Dalaleragita",9,"Vaishnava",12.2, false, "Todo"],
+        ["Prasada sevaya",9,"Vaishnava",12.2, false, "Todo"],
+        ["Sri Rupamanjiri",9,"Vaishnava",12.2, false, "Todo"],
+        ["M Vlast ",9,"Smetana",12.2, false, "Todo"],
+        ["Jai Radha Madhava",163,"Jagjit Singh",5.4, false, "WIP"]]
+
+      colnames = %w[ Song Cat Artist Ratio Flag Status]
+      statuses = ["Todo", "WIP", "Fin", "Cancel", "Postp"]
+
+        atable = Table.new nil do
+          name   "mytext" 
+          row  0 
+          col  0
+          width 78
+          height 15
+          #title "A Table"
+          #title_attrib (Ncurses::A_REVERSE | Ncurses::A_BOLD)
+          cell_editing_allowed true
+          editing_policy :EDITING_AUTO
+          set_data data, colnames
+        end
+        sel_col = Variable.new 0
+        sel_col.value = 0
+        tcm = atable.get_table_column_model
+        selcolname = atable.get_column_name sel_col.value
+        #
+        ## key bindings fo atable
+        # column widths 
+          tcm.column(0).width 24
+          tcm.column(1).width 5
+          tcm.column(2).width 18
+          #tcm.column(2).editable false
+          tcm.column(3).width 7
+          tcm.column(4).width 5
+          tcm.column(5).width 8
+        atable.configure() do
+          bind_key(330) { atable.remove_column(tcm.column(atable.focussed_col)) rescue ""  }
+          bind_key(?+) {
+            acolumn = atable.get_column selcolname
+            w = acolumn.width + 1
+            acolumn.width w
+            #atable.table_structure_changed
+          }
+          bind_key(?-) {
+            acolumn = atable.get_column selcolname
+            w = acolumn.width - 1
+            if w > 3
+            acolumn.width w
+            #atable.table_structure_changed
+            end
+          }
+          bind_key(?>) {
+            colcount = tcm.column_count-1
+            #atable.move_column sel_col.value, sel_col.value+1 unless sel_col.value == colcount
+            col = atable.focussed_col
+            atable.move_column col, col+1 unless col == colcount
+          }
+          bind_key(?<) {
+            col = atable.focussed_col
+            atable.move_column col, col-1 unless col == 0
+            #atable.move_column sel_col.value, sel_col.value-1 unless sel_col.value == 0
+          }
+          #bind_key(KEY_RIGHT) { sel_col.value = sel_col.value+1; current_column sel_col.value}
+          #bind_key(KEY_LEFT) { sel_col.value = sel_col.value-1;current_column sel_col.value}
+        end
+        scroll.child(atable)
+
+      @help = "F1 to quit. This is a test of Table inside a scrollpane. #{$0} M-n M-p M-< M-> M-h M-l"
+      RubyCurses::Label.new @form, {'text' => @help, "row" => ht+r+1, "col" => 2, "color" => "yellow"}
+
+      @form.repaint
+      @window.wrefresh
+      Ncurses::Panel.update_panels
+      while((ch = @window.getchar()) != KEY_F1 ) # ?q.getbyte(0) )
+        str = keycode_tos ch
+        @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/testsplit.rb

@@ -0,0 +1,87 @@
+#$LOAD_PATH << "/Users/rahul/work/projects/rbcurse/"
+require 'rubygems'
+require 'ncurses'
+require 'logger'
+require 'rbcurse'
+require 'rbcurse/rsplitpane'
+#require 'rbcurse/rtestwidget'
+#
+## this sample creates a single scrollpane, and allows you to change orientation
+##+ and move divider around using - + and =.
+#
+if $0 == __FILE__
+  include RubyCurses
+  include RubyCurses::Utils
+
+  begin
+  # Initialize curses
+    VER::start_ncurses  # this is initializing colors via ColorMap.setup
+    $log = Logger.new("v#{$0}.log")
+    $log.level = Logger::DEBUG
+
+    @window = VER::Window.root_window
+
+    catch(:close) do
+      colors = Ncurses.COLORS
+      @form = Form.new @window
+      r = 3; c = 7; ht = 18
+      # filler just to see that we are covering correct space and not wasting lines or cols
+      filler = "*" * 88
+      (ht+2).times(){|i| @form.window.printstring(i,r, filler, $datacolor) }
+
+
+      @help = "q to quit. v h - + =        : #{$0}                              . Check logger too"
+      RubyCurses::Label.new @form, {'text' => @help, "row" => ht+r, "col" => 2, "color" => "yellow"}
+
+      $message = Variable.new
+      $message.value = "Message Comes Here"
+      message_label = RubyCurses::Label.new @form, {'text_variable' => $message, "name"=>"message_label","row" => ht+r+2, "col" => 1, "display_length" => 60,  "height" => 2, 'color' => 'cyan'}
+      $message.update_command() { message_label.repaint } # why ?
+
+      splitp = SplitPane.new @form do
+          name   "mypane" 
+          row  r 
+          col  c
+          width 70
+          height ht
+  #        focusable false
+          #orientation :VERTICAL_SPLIT
+        end
+      splitp.bind(:PROPERTY_CHANGE){|e| $message.value = e.to_s }
+
+      @form.repaint
+      @window.wrefresh
+      Ncurses::Panel.update_panels
+      while((ch = @window.getchar()) != ?q.getbyte(0) )
+        str = keycode_tos ch
+        case ch
+        when ?v.getbyte(0)
+          splitp.orientation(:VERTICAL_SPLIT)
+          splitp.reset_to_preferred_sizes
+        when ?h.getbyte(0)
+          splitp.orientation(:HORIZONTAL_SPLIT)
+          splitp.reset_to_preferred_sizes
+        when ?-.getbyte(0)
+          splitp.set_divider_location(splitp.divider_location-1)
+        when ?+.getbyte(0)
+          splitp.set_divider_location(splitp.divider_location+1)
+        when ?=.getbyte(0)
+          splitp.set_resize_weight(0.50)
+        end
+        #splitp.get_buffer().wclear
+        #splitp << "#{ch} got (#{str})"
+        splitp.repaint # since the above keys are not being handled inside
+        @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