rbcurse 1.5.0 → 1.5.2

data/examples/deprecated/testsplitta.rb

@@ -0,0 +1,148 @@
+#$LOAD_PATH << "/Users/rahul/work/projects/rbcurse/"
+##*******************************************************#
+#                     testsplittv.rb                    #
+#                 written by Rahul Kumar                #
+#                    January 06, 2010                   #
+#                                                       #
+#             test textview inside scrollpane           #
+#                                                       #
+#            Released under ruby license. See           #
+#         http://www.ruby-lang.org/en/LICENSE.txt       #
+#               Copyright 2010, Rahul Kumar             #
+#*******************************************************#
+require 'rubygems'
+#require 'ncurses' # FFI
+require 'logger'
+require 'rbcurse'
+require 'rbcurse/rsplitpane'
+require 'rbcurse/core/widgets/rtextarea'
+require 'rbcurse/extras/widgets/rmultitextview'
+require 'rbcurse/experimental/widgets/undomanager'
+
+## This sample creates a single scrollpane, 
+##+ and embeds a textarea inside it
+##+ 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((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
+      $log.debug " FORM #{@form} "
+      r = 1; c = 7; ht = 20; w = 50
+      #r = 1; c = 3; ht = 24; w = 70
+      # 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 = "F1 to quit. M- M+ M= v h   C-n   C-p   M-w (alt-w)  : #{$0}      . Check #{$0}.log too"
+      RubyCurses::Label.new @form, {'text' => @help, "row" => ht+r, "col" => 2, "color" => "yellow"}
+
+      splitp = SplitPane.new @form do
+          name   "mypane" 
+          row  r 
+          col  c
+          width w
+          height ht
+          #focusable false
+          #orientation :VERTICAL_SPLIT
+        end
+
+      ## typically height should be ht or at least more than ht/2, but i've kept it at
+      ## ht/2-1 to see the footer, and because it was crashing with this.
+        t1 = TextArea.new do
+          name   "myView" 
+          #row 0
+          #col  0 
+          width w-2
+          height (ht/2)-1
+          title "README.md"
+          title_attrib 'bold'
+          print_footer true
+          footer_attrib 'bold'
+        end
+
+        t2 = TextArea.new do
+          name   "myView2" 
+          #row 0
+          #col  0 
+          width w-2
+          height ht/2
+          #height (ht/2)-1
+          title "NOTES"
+          title_attrib 'bold'
+          print_footer true
+          footer_attrib 'bold'
+        end
+
+        splitp.first_component(t1)
+        splitp.second_component(t2)
+        t1.preferred_width w-4 #/2  ## should pertain more to horizontal orientation
+        t1.preferred_height((ht/2)-1) ## this messes things up when we change orientation
+        #t1.set_resize_weight 0.50
+        t2.min_width 15
+        t2.min_height 5
+        t1.min_width 12
+        t1.min_height 5
+        ret = splitp.reset_to_preferred_sizes
+        ## if an error is returned you should check what's wrong since you
+        ## could still get a blank screen, if your comps area is smaller than 
+        ## pane, or other conditions. the log will point out various possible errors.
+        splitp.set_resize_weight(0.50) if ret == :ERROR
+        File.open("../README.markdown","r") do |file|
+           while (line = file.gets)
+              t1 << line.chomp
+           end
+        end
+        File.open("../NOTES","r") do |file|
+           while (line = file.gets)
+              t2 << line.chomp
+           end
+        end
+        undom = SimpleUndo.new t1
+        undo2 = SimpleUndo.new t2
+
+      @form.repaint
+      @window.wrefresh
+      Ncurses::Panel.update_panels
+      while((ch = @window.getchar()) != KEY_F1 )
+        #str = keycode_tos ch
+        case ch
+        when ?\M-v.getbyte(0)
+          splitp.orientation(:VERTICAL_SPLIT)
+          splitp.set_resize_weight(0.50)
+        when ?\M-h.getbyte(0)
+          splitp.orientation(:HORIZONTAL_SPLIT)
+          splitp.set_resize_weight(0.50)
+        end
+        #splitp.get_buffer().wclear
+        #splitp << "#{ch} got (#{str})"
+        #splitp.repaint
+        #splitp.buffer_to_screen
+        @form.repaint
+        @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/deprecated/testsplittv.rb

@@ -0,0 +1,142 @@
+#$LOAD_PATH << "/Users/rahul/work/projects/rbcurse/"
+##*******************************************************#
+#                     testsplittv.rb                    #
+#                 written by Rahul Kumar                #
+#                    January 06, 2010                   #
+#                                                       #
+#             test textview inside scrollpane           #
+#                                                       #
+#            Released under ruby license. See           #
+#         http://www.ruby-lang.org/en/LICENSE.txt       #
+#               Copyright 2010, Rahul Kumar             #
+#*******************************************************#
+require 'rubygems'
+#require 'ncurses' # FFI
+require 'logger'
+require 'rbcurse'
+require 'rbcurse/rsplitpane'
+require 'rbcurse/core/widgets/rtextview'
+
+## This sample creates a single scrollpane, 
+##+ and embeds a textarea inside it
+##+ 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((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
+      $log.debug " FORM #{@form} "
+      r = 1; c = 3; ht = 24; w = 70
+      # 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 = "F1 to quit. - + = v h   C-n   C-p   M-w (alt-w) : #{$0}          . Check #{$0}.log too"
+      RubyCurses::Label.new @form, {'text' => @help, "row" => ht+r, "col" => 2, "color" => "yellow"}
+
+      splitp = SplitPane.new @form do
+          name   "mypane" 
+          row  r 
+          col  c
+          width w
+          height ht
+          #focusable false
+          #orientation :VERTICAL_SPLIT
+        end
+        t1 = TextView.new nil do
+          name   "myView" 
+          #row 0
+          #col  0 
+          width w-2
+          height (ht/2)-1
+          title "README.md"
+          title_attrib 'bold'
+          print_footer true
+          footer_attrib 'bold'
+        end
+        content = File.open("../README.markdown","r").readlines
+        t1.set_content content #, :WRAP_WORD
+
+        # to see lower border i need to set height to ht/2 -2 in both cases, but that
+        # crashes ruby when i reduce height by 1.
+        t2 = TextView.new nil do
+          name   "myView2" 
+          #row 0
+          #col  0 
+          width w-2
+          #height ht
+          height (ht/2)-1
+          title "NOTES"
+          title_attrib 'bold'
+          print_footer true
+          footer_attrib 'bold'
+        end
+        content = File.open("../NOTES","r").readlines
+        t2.set_content content #, :WRAP_WORD
+
+        splitp.first_component(t1)
+        splitp.second_component(t2)
+        t1.preferred_width w-4 #/2  ## should pertain more to horizontal orientation
+        t1.preferred_height ht/2-1 ## this messes things up when we change orientation
+        #t1.set_resize_weight 0.50
+        t2.min_width 15
+        t2.min_height 5
+        t1.min_width 12
+        t1.min_height 8
+        ret = splitp.reset_to_preferred_sizes
+        ## if an error is returned you should check what's wrong since you
+        ## could still get a blank screen, if your comps area is smaller than 
+        ## pane, or other conditions. the log will point out various possible errors.
+        splitp.set_resize_weight(0.50) if ret == :ERROR
+
+      @form.repaint
+      @window.wrefresh
+      Ncurses::Panel.update_panels
+      while((ch = @window.getchar()) != KEY_F1 )
+        str = keycode_tos ch
+        case ch
+        when ?v.getbyte(0)
+          splitp.orientation(:VERTICAL_SPLIT)
+          splitp.set_resize_weight(0.50)
+        when ?h.getbyte(0)
+          splitp.orientation(:HORIZONTAL_SPLIT)
+          splitp.set_resize_weight(0.50)
+        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
+        #splitp.buffer_to_screen
+        @form.repaint
+        @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/deprecated/testsplittvv.rb

@@ -0,0 +1,144 @@
+#$LOAD_PATH << "/Users/rahul/work/projects/rbcurse/"
+#*******************************************************#
+#                     testsplittv.rb                    #
+#                 written by Rahul Kumar                #
+#                    January 06, 2010                   #
+#                                                       #
+#             test textview inside splitpane            #
+#             Startup is vertical split                 # 
+#                                                       #
+#            Released under ruby license. See           #
+#         http://www.ruby-lang.org/en/LICENSE.txt       #
+#               Copyright 2010, Rahul Kumar             #
+#*******************************************************#
+require 'rubygems'
+#require 'ncurses' # FFI
+require 'logger'
+require 'rbcurse'
+require 'rbcurse/rsplitpane'
+require 'rbcurse/core/widgets/rtextview'
+
+## This sample creates a single scrollpane, 
+##+ and embeds a textarea inside it
+##+ 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((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 = 3; ht = 24; w = 70
+      # 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   C-n   C-p   M-w (alt-w)  : #{$0}                 . Check #{$0}.log too"
+      RubyCurses::Label.new @form, {'text' => @help, "row" => ht+r, "col" => 2, "color" => "yellow"}
+
+      splitp = SplitPane.new @form do
+          name   "mypane" 
+          row  r 
+          col  c
+          width w
+          height ht
+          #focusable false
+          orientation :VERTICAL_SPLIT
+        end
+        t1 = TextView.new nil do
+          name   "myView" 
+          #row 0
+          #col  0 
+          #width w-2
+          height ht
+          #height (ht/2)-1
+          width w/2-1
+          title "README.md"
+          title_attrib 'bold'
+          print_footer true
+          footer_attrib 'bold'
+        end
+        content = File.open("../README.markdown","r").readlines
+        t1.set_content content #, :WRAP_WORD
+
+        # to see lower border i need to set height to ht/2 -2 in both cases, but that
+        # crashes ruby when i reduce height by 1.
+        t2 = TextView.new nil do
+          name   "myView2" 
+          #row 0
+          #col  0 
+          width w/2-1
+          height ht
+          #height (ht/2)-1
+          title "NOTES"
+          title_attrib 'bold'
+          print_footer true
+          footer_attrib 'bold'
+        end
+        content = File.open("../NOTES","r").readlines
+        t2.set_content content #, :WRAP_WORD
+
+        splitp.first_component(t1)
+        splitp.second_component(t2)
+        t1.preferred_width w/2 #/2  ## should pertain more to horizontal orientation
+        #t1.preferred_height (ht/2)-1 ## this messes things up when we change orientation
+        t1.preferred_height ht ## this messes things up when we change orientation
+        #t1.set_resize_weight 0.50
+        t2.min_width 15
+        t2.min_height 5
+        t1.min_width 12
+        t1.min_height 8
+        ret = splitp.reset_to_preferred_sizes
+        splitp.set_resize_weight(0.50) if ret == :ERROR
+
+      @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.set_resize_weight(0.50)
+        when ?h.getbyte(0)
+          splitp.orientation(:HORIZONTAL_SPLIT)
+          splitp.set_resize_weight(0.50)
+        when ?-.getbyte(0)
+          ret = splitp.set_divider_location(splitp.divider_location-1)
+          next if ret == :ERROR
+        when ?+.getbyte(0)
+          ret = splitp.set_divider_location(splitp.divider_location+1)
+          next if ret == :ERROR
+        when ?=.getbyte(0)
+          splitp.set_resize_weight(0.50)
+        end
+        #splitp.get_buffer().wclear
+        #splitp << "#{ch} got (#{str})"
+        #splitp.repaint
+        #splitp.buffer_to_screen
+        @form.repaint
+        @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/deprecated/testtpane.rb

@@ -0,0 +1,215 @@
+#*******************************************************#
+#                      testtpane.rb                     #
+#                 written by Rahul Kumar                #
+#                    January 20, 2010                   #
+#                                                       #
+#     testing tabbedpane with textarea, view, listbox   #
+#                                                       #
+#            Released under ruby license. See           #
+#         http://www.ruby-lang.org/en/LICENSE.txt       #
+#               Copyright 2010, Rahul Kumar             #
+#*******************************************************#
+
+# this is a test program, tests out tabbed panes. type F1 to exit
+# position cursor in button form and press M-x to add a few tabs
+# M-l in button form will scroll. M-h to scroll left.
+# dd to kill a tab, u to undo kill, or p/P to paste deleted tab
+#
+require 'logger'
+require 'rbcurse'
+require 'rbcurse/rtabbedpane'
+require 'rbcurse/core/widgets/rtextview'
+require 'rbcurse/core/widgets/rtextarea'
+require 'rbcurse/extras/widgets/rtable'
+
+class TestTabbedPane
+  def initialize
+    acolor = $reversecolor
+    @tctr = 0
+  end
+  def run
+    $config_hash ||= Variable.new Hash.new
+    @window = VER::Window.root_window
+    @form = Form.new @window
+    @form.name = "MainForm"
+    r = 4; c = 7;
+    h = 20; w = 70
+      @tp = RubyCurses::TabbedPane.new @form  do
+        name "MainPane"
+        height h
+        width  w
+        row 2
+        col 8
+        #button_type :ok
+      end
+      @tab1 = @tp.add_tab "&TextView" #, textview
+      f1 = @tp.form(@tab1)
+
+        textview = TextView.new f1 do
+          name   "myView" 
+          row 0
+          col 0 
+          width w-0
+          #height h-4
+          height h-2
+          title "README.mrku"
+          title_attrib 'bold'
+          print_footer true
+          footer_attrib 'bold'
+        end
+        content = File.open("../README.markdown","r").readlines
+        textview.set_content content #, :WRAP_WORD
+        #textview.show_caret = true
+
+      #@tab1 = @tp.add_tab "&TextView" #, textview
+      #f1 = @tp.form(@tab1)
+      #textview.set_form(f1)
+      #@tp.configure_component(textview)
+        
+
+
+      #f2 = @tab2.form
+      #@tab2 = @tp.add_tab "&Settings" #, texta
+      #f2 = @tp.form(@tab2)
+      r = 4
+        texta = TextArea.new do
+          name "myText" 
+          title "EditMe.txt"
+          title_attrib 'bold'
+          print_footer true
+          footer_attrib 'bold'
+        end
+        @tab2 = @tp.add_tab "&Settings", texta
+
+        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 << "q to exit."
+        texta << "Some more text going below scrollpane.. "
+        texta << "Love all creatures for they are none but yourself."
+        #texta.show_caret = true # since the cursor is not showing correctly, show internal one.
+
+      @tab3 = @tp.add_tab "&Editors"
+      #f3 = @tab3.form
+      f3 = @tp.form @tab3
+      butts = %w[ &Vim E&macs &Jed E&lvis ]
+      bcodes = %w[ VIM EMACS JED ELVIS]
+      row = 2
+      butts.each_with_index do |name, i|
+        RubyCurses::CheckBox.new f3 do
+          text name
+          variable $config_hash
+          name bcodes[i]
+          row row+i
+          col 5
+        end
+      end
+      x = RubyCurses::Field.new f3 do
+        name 'username'
+        row row+6
+        bgcolor 'white'
+        color 'black'
+        col 15
+        display_length 20
+        set_label Label.new f3, {'text' => 'User Name', 'mnemonic'=> 'u'}
+      end
+      x = RubyCurses::Field.new f3 do
+        name 'nick'
+        row row+7
+        bgcolor 'white'
+        color 'black'
+        col 15
+        display_length 10
+        set_label Label.new f3, {'text' => 'Nick Name', 'mnemonic'=> 'n'}
+      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"]
+
+      row = 1
+      # when adding as a component it is best not to specify row and col
+      # We can skip sizing too for large components, so comp will fill the TP.
+        atable = Table.new do
+          name   "mytable" 
+          #title "A Table"
+          #title_attrib (Ncurses::A_REVERSE | Ncurses::A_BOLD)
+          cell_editing_allowed true
+          editing_policy :EDITING_AUTO
+          set_data data, colnames
+        end
+        tab3 = @tp.add_tab "S&ongs", atable
+        #tab3.component = atable
+        sel_col = Variable.new 0
+        sel_col.value = 0
+        tcm = atable.get_table_column_model
+        selcolname = atable.get_column_name sel_col.value
+          tcm.column(0).width 24
+          tcm.column(1).width 3
+          tcm.column(2).width 18
+          #tcm.column(2).editable false
+          tcm.column(3).width 7
+          tcm.column(4).width 5
+          tcm.column(5).width 6
+      @help = "F1 to quit. M-s M-t M-e M-o, TAB. M-x to add tab  #{$0} M-h/M-l to scroll tabs"
+            RubyCurses::Label.new @form, {'text' => @help, "row" => r+h+2, "col" => 2, "color" => "yellow"}
+
+            # M-x when inside the buttons form will create a new tab
+            @form.bind_key(?\M-x) {
+              textv = TextView.new 
+              t = @tp.add_tab "Text#{@tctr}", textv
+              textv.set_content content
+              @tctr += 1
+            }
+      @form.repaint
+      $catch_alt_digits = false # we want to use Alt-1, 2 for tabs.
+      @window.wrefresh
+      Ncurses::Panel.update_panels
+      while((ch = @window.getchar()) != KEY_F1 )
+       # @tp.repaint
+        @form.handle_key(ch)
+        @window.wrefresh
+      end
+      #@tp.show
+      #@tp.handle_keys
+  end
+end
+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
+    n = TestTabbedPane.new
+    n.run
+  rescue => ex
+  ensure
+    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