rbcurse 1.5.0 → 1.5.2

data/examples/deprecated/testsplit.rb

@@ -0,0 +1,87 @@
+#$LOAD_PATH << "/Users/rahul/work/projects/rbcurse/"
+require 'rubygems'
+#require 'ncurses' # FFI
+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((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; 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

data/examples/deprecated/testsplit2.rb

@@ -0,0 +1,123 @@
+#$LOAD_PATH << "/Users/rahul/work/projects/rbcurse/"
+require 'rubygems'
+#require 'ncurses' # FFI
+require 'logger'
+require 'rbcurse'
+require 'rbcurse/rsplitpane'
+#require 'rbcurse/rtestwidget'
+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 = 5; ht = 18; 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 for vertical split, h - horizontal. -/+/= to resize split. : #{$0}"
+      RubyCurses::Label.new @form, {'text' => @help, "row" => ht+r, "col" => 2, "color" => "yellow"}
+        splitp = SplitPane.new @form do
+          name   "mainpane" 
+          row  r 
+          col  c
+          width w
+          height ht
+          #focusable false
+          #orientation :VERTICAL_SPLIT
+          orientation :HORIZONTAL_SPLIT
+          #set_resize_weight 0.60
+        end
+        # note that splitc has no form. so focus has to be managed XXX
+        splitc = SplitPane.new nil do
+          name   "FC" 
+          #row  r 
+          #col  c
+
+          ## earlier commented now bombing
+          #width w-4 # 30
+          #height ht/2-1
+
+          #focusable false
+          #orientation :HORIZONTAL_SPLIT
+          orientation :VERTICAL_SPLIT
+          border_color $promptcolor
+          border_attrib Ncurses::A_NORMAL
+        end
+        splitc2 = SplitPane.new nil do
+          name   "2C" 
+          #
+          ## not present earlier now bombing
+          #width w-4
+          #height ht/2-1
+
+          orientation :VERTICAL_SPLIT
+          border_color $promptcolor
+          border_attrib Ncurses::A_REVERSE
+        end
+        splitp.first_component(splitc)
+        splitp.second_component(splitc2)
+        splitc.preferred_width w/2
+        splitc.preferred_height ht/2-2
+        splitc.set_resize_weight 0.50
+        splitc2.min_width 15
+        splitc2.min_height 5
+        splitc.min_width 12
+        splitc.min_height 6
+        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)
+          $log.debug " ORIENTATION VERTICAL"
+          splitp.orientation(:VERTICAL_SPLIT)
+          splitp.reset_to_preferred_sizes
+        when ?h.getbyte(0)
+          $log.debug " ORIENTATION HORIZ"
+          splitp.orientation(:HORIZONTAL_SPLIT)
+          splitp.reset_to_preferred_sizes
+        when ?-.getbyte(0)
+          $log.debug " KEY PRESS -"
+          splitp.set_divider_location(splitp.divider_location-1)
+        when ?+.getbyte(0)
+          $log.debug " KEY PRESS +"
+          splitp.set_divider_location(splitp.divider_location+1)
+        when ?=.getbyte(0)
+          $log.debug " KEY PRESS ="
+          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/testsplit3.rb

@@ -0,0 +1,215 @@
+#$LOAD_PATH << "/Users/rahul/work/projects/rbcurse/"
+#*******************************************************#
+#                     testsplit3.rb                     #
+#                 written by Rahul Kumar                #
+#                    January 14, 2010                   #
+#                                                       #
+#  test textview, split and textarea inside splitpane   #
+#                                                       #
+#
+#  /----+---------------\
+#  |    |               |
+#  | 1  |               |
+#  +----+       3       |
+#  | 2  |               |
+#  |    |               |
+#  \----+---------------/
+# 
+# Please note, this is *not* the ideal way of placing a textview directly inside a 
+# splitpane, unless you size it so that the entire TV is visible inside
+# the splitpane. If the TV is too large, you won't be able to scroll down to the
+# bottom-most portion using TV's inbuilt scrolling (C-n C-p). This is *not* a bug.
+# TV does not know you've put it inside a small SPLP.
+#
+# The ideal way is to put a TV inside a scrollpane, and put the scrollpane inside
+# a SPLP just like all frames on the internet do. That is the subject of the next example.
+#
+#
+#            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/core/widgets/rtextview'
+require 'rbcurse/extras/widgets/rlistbox'
+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} #{$0}  "
+      r = 3; c = 5; ht = 18; w = 90
+#      r = 0; c = 0; ht = 20; w = 100
+
+
+      @help = "F1 to quit. -/+/= to resize outer split, M-, M+, M= for inner split:  #{$0}"
+      RubyCurses::Label.new @form, {'text' => @help, "row" => ht+r+2, "col" => 2, "color" => "yellow"}
+
+        outer = SplitPane.new @form do
+          name   "mainpane" 
+          row  r 
+          col  c
+          width w
+          height ht
+          #focusable false
+          orientation :VERTICAL_SPLIT
+          #orientation :HORIZONTAL_SPLIT
+          #set_resize_weight 0.60
+          border_color $promptcolor
+        end
+        # note that splitleft has no form. so focus has to be managed XXX
+        splitleft = SplitPane.new nil do
+          name   "C1-leftpane" 
+          #row  r 
+          #col  c
+
+          ## earlier commented now bombing
+          #width w/2 # 30
+          #height ht-2 #/2-1
+
+          #focusable false
+          orientation :HORIZONTAL_SPLIT
+          #orientation :VERTICAL_SPLIT
+          border_color $promptcolor
+          border_attrib Ncurses::A_NORMAL
+        end
+        ta1 = TextArea.new nil do
+          name   "myTextArea-right" 
+          #row 0
+          #col  0 
+          width w/2-2
+          #height (ht/2)-1
+          height ht
+          title "README.md"
+          title_attrib 'bold'
+          print_footer true
+          footer_attrib 'bold'
+          #should_create_buffer true
+        end
+
+        t1 = TextView.new nil do
+          name   "myView-left-first" 
+          #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'
+          #should_create_buffer true
+        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-left-second" 
+          #row 0
+          #col  0 
+          width w/2
+          #height ht
+          height (ht/2)-1
+          title "NOTES"
+          title_attrib 'bold'
+          print_footer true
+          footer_attrib 'bold'
+          #should_create_buffer true
+        end
+        content = File.open("../NOTES","r").readlines
+        t2.set_content content #, :WRAP_WORD
+
+        # the outer compo needs child set first else cursor does not reach up from
+        # lower levels. Is the connection broken ?
+        outer.first_component(splitleft)
+        outer.second_component(ta1)
+        splitleft.first_component(t1)
+        splitleft.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.set_resize_weight 0.50
+        t2.min_width 15
+        t2.min_height 5
+        t1.min_width 12
+        t1.min_height 5
+        ret = splitleft.reset_to_preferred_sizes
+        splitleft.set_resize_weight(0.50) if ret == :ERROR
+
+        splitleft.preferred_width w/2
+        splitleft.preferred_height ht/2-2
+        #splitleft.set_resize_weight 0.50
+        ta1.min_width 10
+        ta1.min_height 5
+        splitleft.min_width 12
+        splitleft.min_height 6
+        ret = outer.reset_to_preferred_sizes
+        outer.set_resize_weight(0.50) if ret == :ERROR
+
+        File.open("../README.markdown","r") do |file|
+           while (line = file.gets)
+              ta1 << line.chomp
+           end
+        end
+
+      @form.repaint
+      @window.wrefresh
+      Ncurses::Panel.update_panels
+      while((ch = @window.getchar()) != KEY_F1 )
+        str = keycode_tos ch
+        case ch
+        #when ?v.getbyte(0)
+          #$log.debug " ORIENTATION VERTICAL"
+          #outer.orientation(:VERTICAL_SPLIT)
+          #outer.reset_to_preferred_sizes
+        #when ?h.getbyte(0)
+          #$log.debug " ORIENTATION HORIZ"
+          #outer.orientation(:HORIZONTAL_SPLIT)
+          #outer.reset_to_preferred_sizes
+        when ?-.getbyte(0)
+          $log.debug " KEY PRESS -"
+          outer.set_divider_location(outer.divider_location-1)
+        when ?+.getbyte(0)
+          $log.debug " KEY PRESS +"
+          outer.set_divider_location(outer.divider_location+1)
+        when ?=.getbyte(0)
+          $log.debug " KEY PRESS ="
+          outer.set_resize_weight(0.50)
+        end
+        #outer.get_buffer().wclear
+        #outer << "#{ch} got (#{str})"
+#        outer.repaint
+#        outer.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/testsplit3_1.rb

@@ -0,0 +1,244 @@
+#$LOAD_PATH << "/Users/rahul/work/projects/rbcurse/"
+#*******************************************************#
+#                     testsplit3.rb                     #
+#                 written by Rahul Kumar                #
+#                    January 14, 2010                   #
+#                                                       #
+#  test textview, split and textarea inside splitpane   #
+#                                                       #
+#
+#  /---------|----------\
+#  |         |          |
+#  | 1       |  3       |
+#  +---------|----------|
+#  | 2       |  4       |
+#  |         |          |
+#  \---------|----------/
+#
+#
+#            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/core/widgets/rtextview'
+require 'rbcurse/extras/widgets/rlistbox'
+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
+    show_caret_flag = true
+
+    @window = VER::Window.root_window
+
+    catch(:close) do
+      colors = Ncurses.COLORS
+      @form = Form.new @window
+      @form.name = "Form::MAINFORM"
+      r = 1; c = 3; ht = 18; w = 70
+      r = 3; c = 7; ht = 24; w = 100
+
+
+      @help = "F1 to quit. -/+/= to resize outer split, M-, M+, M= for inner split: #{$0}"
+      RubyCurses::Label.new @form, {'text' => @help, "row" => ht+r, "col" => 2, "color" => "yellow"}
+
+        outer = SplitPane.new @form do
+          name   "mainpane" 
+          row  r 
+          col  c
+          width w
+          height ht
+          #focusable false
+          orientation :VERTICAL_SPLIT
+          #orientation :HORIZONTAL_SPLIT
+          #set_resize_weight 0.60
+        end
+        # note that splitleft has no form. so focus has to be managed XXX
+        splitleft = SplitPane.new nil do
+          name   "C1-left" 
+          #row  r 
+          #col  c
+
+          ## earlier commented now bombing
+          width w/2 # 30
+          height ht #/2-1
+
+          #focusable false
+          orientation :HORIZONTAL_SPLIT
+          #orientation :VERTICAL_SPLIT
+          border_color $promptcolor
+          border_attrib Ncurses::A_NORMAL
+        end
+        splitrt = SplitPane.new nil do
+          name   "C1-rt" 
+          #row  r 
+          #col  c
+
+          ## earlier commented now bombing
+          width w/2 # 30
+          height ht #/2-1
+
+          #focusable false
+          orientation :HORIZONTAL_SPLIT
+          #orientation :VERTICAL_SPLIT
+          border_color $promptcolor
+          border_attrib Ncurses::A_NORMAL
+        end
+        ta1 = TextArea.new nil do
+          name   "myTextArea1-left-bot" 
+          #row 0
+          #col  0 
+          width w/2-2
+          height (ht/2)-1
+          #height ht
+          title "README.mark"
+          title_attrib 'bold'
+          print_footer true
+          footer_attrib 'bold'
+        end
+        #ta1.show_caret=show_caret_flag
+        ta2 = TextArea.new nil do
+          name   "myTextArea2-right-bot" 
+          #row 0
+          #col  0 
+          width w/2-2
+          height (ht/2)-1
+          #height ht
+          title "Scratch Pad"
+          title_attrib 'reverse'
+          print_footer true
+          footer_attrib 'bold'
+        end
+        #ta2.show_caret=show_caret_flag
+
+        t1 = TextView.new nil do
+          name   "myView-right-top" 
+          #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
+        #t1.show_caret=show_caret_flag
+        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-left-top" 
+          #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
+        #t2.show_caret=show_caret_flag
+        content = File.open("../NOTES","r").readlines
+        t2.set_content content #, :WRAP_WORD
+
+        # the outer compo needs child set first else cursor does not reach up from
+        # lower levels. Is the connection broken ?
+        outer.first_component(splitleft)
+        outer.second_component(splitrt)
+        splitleft.first_component(t2)
+        splitleft.second_component(ta1)
+        splitrt.first_component(t1)
+        splitrt.second_component(ta2)
+        t2.preferred_width w/2 #/2  ## should pertain more to horizontal orientation
+        t2.preferred_height((ht/2)-1) ## this messes things up when we change orientation
+        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.set_resize_weight 0.50
+        t2.min_width 15
+        t2.min_height 5
+        t1.min_width 12
+        t1.min_height 5
+        ta1.min_width 10
+        ta1.min_height 5
+        ta2.min_width 10
+        ta2.min_height 5
+        ret = splitleft.reset_to_preferred_sizes
+        splitleft.set_resize_weight(0.50) if ret == :ERROR
+        ret = splitrt.reset_to_preferred_sizes
+        splitrt.set_resize_weight(0.50) if ret == :ERROR
+
+        splitleft.preferred_width w/2
+        splitleft.preferred_height ht/2-2
+        splitleft.min_width 12
+        splitleft.min_height 6
+        splitrt.preferred_width w/2
+        splitrt.preferred_height ht/2-2
+        splitrt.min_width 12
+        splitrt.min_height 6
+        ret = outer.reset_to_preferred_sizes
+        outer.set_resize_weight(0.50) if ret == :ERROR
+
+        File.open("../README.markdown","r") do |file|
+           while (line = file.gets)
+              ta1 << line.chomp
+           end
+        end
+
+      @form.repaint
+      @window.wrefresh
+      Ncurses::Panel.update_panels
+      while((ch = @window.getchar()) != KEY_F1 )
+        str = keycode_tos ch
+        #case ch
+        #when ?v.getbyte(0)
+          #$log.debug " ORIENTATION VERTICAL"
+          #outer.orientation(:VERTICAL_SPLIT)
+          #outer.reset_to_preferred_sizes
+        #when ?h.getbyte(0)
+          #$log.debug " ORIENTATION HORIZ"
+          #outer.orientation(:HORIZONTAL_SPLIT)
+          #outer.reset_to_preferred_sizes
+        #when ?-.getbyte(0)
+          #$log.debug " KEY PRESS -"
+          #outer.set_divider_location(outer.divider_location-1)
+        #when ?+.getbyte(0)
+          #$log.debug " KEY PRESS +"
+          #outer.set_divider_location(outer.divider_location+1)
+        #when ?=.getbyte(0)
+          #$log.debug " KEY PRESS ="
+          #outer.set_resize_weight(0.50)
+        #end
+        #outer.get_buffer().wclear
+        #outer << "#{ch} got (#{str})"
+#        outer.repaint
+#        outer.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