rbcurse 1.5.0 → 1.5.2

data/examples/deprecated/splitp.rb

@@ -0,0 +1,56 @@
+require 'rbcurse/core/util/app'
+
+App.new do 
+  header = app_header "rbcurse #{Rbcurse::VERSION}", :text_center => "Splitpane Demo", :text_right =>""
+  message_row(27)
+  message "<TAB> between outer panes, Alt-W between inner tabs, Alt-TAb to exit Splitpane"
+
+  stack :margin_top => 5, :margin => 15, :width => 79 do
+    splp = splitpane "outer", :height => 15  do |s|
+      fc = splitpane "top", :orientation => :VERTICAL_SPLIT, :border_color => $promptcolor, :divider_at => 0.3 do |fc1|
+        lb = listbox "Shapes",:list => ["Square", "Oval", "Rectangle", "Somethinglarge"], :choose => ["Oval"]
+        fc1.first_component lb
+
+        lb2 = listbox "MyGems", :list => ["highline", "sqlite3-ruby", "thor", "ncurses"], :choose => ["thor"]
+        fc1.second_component lb2
+        
+      end
+      s.first_component fc
+
+      sc = textarea "Edit"
+      s.second_component sc
+
+    end # splp
+    blank
+    flow do
+      #toggle :onvalue => "Vertical", :offvalue => "Horizontal", :value => true do |e|
+        #message "pressed #{e.state}"
+        #case e.state
+        #when :DESELECTED
+          #$log.debug " about to call orientation with V"
+          #splp.orientation :VERTICAL_SPLIT
+          ##ret = splp.reset_to_preferred_sizes
+        #else
+          #$log.debug " about to call orientation with H"
+          #splp.orientation :HORIZONTAL_SPLIT
+          ##ret = splp.reset_to_preferred_sizes
+        #end
+      #end
+      fc = splp
+      # increase split size
+      button "+" do
+        #splp.set_divider_location(splp.divider_location+1)
+        fc.set_divider_location(splp.divider_location+1)
+      end
+      # decrease split size
+      button "-" do
+        fc.set_divider_location(splp.divider_location-1)
+      end
+      # equalize  split size
+      button "=" do
+        splp.set_resize_weight(0.50)
+      end
+    end
+       
+  end # stack
+end # app

data/examples/deprecated/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' # FFI
+require 'logger'
+require 'rbcurse'
+require 'rbcurse/extras/widgets/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((File.join(ENV["LOGDIR"] || "./" ,"rbc13.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/deprecated/testscrollp.rb

@@ -0,0 +1,88 @@
+#$LOAD_PATH << "/Users/rahul/work/projects/rbcurse/"
+# Creates a scrollpane with a TextView (which is a modified TextView class)
+require 'rubygems'
+#require 'ncurses' # FFI
+require 'logger'
+require 'rbcurse'
+#require 'rbcurse/core/widgets/rtextview'
+require 'rbcurse/extras/widgets/rmultitextview'
+require 'rbcurse/rscrollpane'
+require 'rbcurse/experimental/widgets/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((File.join(ENV["LOGDIR"] || "./" ,"rbc13.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/deprecated/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' # FFI
+require 'logger'
+require 'rbcurse'
+require 'rbcurse/core/widgets/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((File.join(ENV["LOGDIR"] || "./" ,"rbc13.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/deprecated/testscrolltable.rb

@@ -0,0 +1,165 @@
+#$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' # FFI
+require 'logger'
+require 'rbcurse'
+require 'rbcurse/extras/widgets/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
+    $log = Logger.new((File.join(ENV["LOGDIR"] || "./" ,"rbc13.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