rbcurse 1.1.5 → 1.2.0.pre

data/examples/s.rb

@@ -0,0 +1,10 @@
+require 'rbcurse/app'
+
+App.new do
+  keypress do |ch|
+    case ch
+    when :down
+    when :up
+    end
+  end
+end

data/examples/scrollbar.rb

@@ -0,0 +1,104 @@
+require 'rbcurse/app'
+include Ncurses
+include RubyCurses
+
+# This paints a vertical white bar given row and col, and length. It also calculates and prints
+# a small bar over this based on relaetd objects list.length and current_index.
+# Typically, after setup one would keep updating only current_index from the repaint method
+# of caller or in the traversal event. This would look best if the listbox also has a reverse video border, or none.
+# @example
+#     lb = list_box ....
+#     sb = Scrollbar.new @form, :row => lb.row, :col => lb.col, :length => lb.height, :list_length => lb.list.length, :current_index => 0
+#      .... later as user traverses
+#      sb.current_index = lb.current_index
+#
+# At a later stage, we will integrate this with lists and tables, so it will happen automatically.
+#
+# @since 1.2.0    UNTESTED
+module RubyCurses
+  class Scrollbar < Widget
+    # row to start, same as listbox, required.
+    dsl_property :row
+    # column to start, same as listbox, required.
+    dsl_property :col
+    # how many rows is this (should be same as listboxes height, required.
+    dsl_property :length
+    # vertical or horizontal currently only VERTICAL
+    dsl_property :orientation
+    # to take changes or data, unused as of now
+    dsl_property :parent
+    # which row is focussed, current_index of listbox, required.
+    dsl_property :current_index
+    # how many total rows of data does the list have, same as @list.length, required.
+    dsl_property :list_length
+
+
+    def initialize form, config={}, &block
+
+      # setting default first or else Widget will place its BW default
+      #@color, @bgcolor = ColorMap.get_colors_for_pair $bottomcolor
+      super
+      @color_pair = get_color $datacolor, @color, @bgcolor
+      @scroll_pair = get_color $bottomcolor, :green, :white
+      @window = form.window
+      @editable = false
+      @focusable = false
+      @row ||= 0
+      @col ||= 0
+      @repaint_required = true
+      @orientation = :V
+    end
+
+    ##
+    # XXX need to move wrapping etc up and done once. 
+    def repaint
+      raise ArgumentError, "current_index must be provided" unless @current_index
+      raise ArgumentError, "list_length must be provided" unless @list_length
+      my_win = @form ? @form.window : @target_window
+      @graphic = my_win unless @graphic
+      return unless @repaint_required
+
+      # first print a right side vertical line
+      bordercolor = @border_color || $datacolor
+      borderatt = @border_attrib || Ncurses::A_REVERSE
+
+
+      @graphic.attron(Ncurses.COLOR_PAIR(bordercolor) | borderatt)
+      @graphic.mvvline(@row+0, @col, 1, @length-0)
+      @graphic.attroff(Ncurses.COLOR_PAIR(bordercolor) | borderatt)
+
+      # now calculate and paint the scrollbar
+      pht = @length
+      listlen = @list_length * 1.0
+      @current_index = 0 if @current_index < 0
+      @current_index = listlen-1 if @current_index >= listlen
+      sclen = (pht/listlen)* @length
+      scloc = (@current_index/listlen)* @length
+      scloc = (@length - sclen) if scloc > @length - sclen # don't exceed end
+      @graphic.attron(Ncurses.COLOR_PAIR(@scroll_pair) | borderatt)
+      r = @row + scloc
+      c = @col + 0
+      @graphic.mvvline(r, c, 1, sclen)
+      @graphic.attroff(Ncurses.COLOR_PAIR(@scroll_pair) | borderatt)
+      @repaint_required = false
+    end
+    ##
+    ##
+    # ADD HERE 
+  end
+end
+App.new do
+  r = 5
+  len = 20
+  hline :width => 20, :row => r, :attrib => Ncurses::A_REVERSE
+  sb = Scrollbar.new @form, :row => r, :col => 20, :length => len, :list_length => 50, :current_index => 0
+  hline :width => 20, :row => len+r
+  keypress do |ch|
+    case ch
+    when :down
+      sb.current_index += 1
+    when :up
+      sb.current_index -= 1
+    end
+  end
+end

data/examples/splitp.rb

@@ -0,0 +1,56 @@
+require 'rbcurse/app'
+
+App.new do 
+  header = app_header "rbcurse 1.2.0", :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 = list_box "Shapes",:list => ["Square", "Oval", "Rectangle", "Somethinglarge"], :choose => ["Oval"]
+        fc1.first_component lb
+
+        lb2 = list_box "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/table1.rb

@@ -0,0 +1,30 @@
+require 'rbcurse/app'
+
+if $0 == __FILE__
+  #app = App.new
+  #window = app.window
+  #window.printstring 2, 30, "Demo of Listbox - rbcurse", $normalcolor, 'reverse'
+  #app.logger.info "beforegetch"
+  #window.getch
+  #app.close
+  # this was the yield example, but now we've moved to instance eval
+  App.new do 
+    @window.printstring 1, 30, "Demo of Table - rbcurse", $normalcolor, 'reverse'
+    @window.printstring 2, 30, "Hit F1 to quit", $datacolor, 'normal'
+      data = [["Roger Federer",16,"SWI"],
+        ["Pete Sampras",14, "USA"],
+        ["Roy Emerson", 12, "AUS"],
+        ["Bjorn Borg",  11, "SWE"],
+        ["Rod Laver",   11, "AUS"],
+        ["Bill Tilden", 10, "USA"]]
+      colnames = %w[ Player Wins Nation ]
+    stack :margin_top => 3, :margin => 10 do
+      # we leave out :width so it gets calculated by column_widths
+      t = table :height => 10, :columns => colnames, :data => data, :column_widths => [15,5,10], :extended_keys => true
+      # :estimate_widths => true
+      # other options are :column_widths => [12,4,12]
+      # :size_to_fit => true
+
+    end
+  end
+end

data/examples/term.rb

@@ -0,0 +1,48 @@
+require 'rbcurse/app'
+require 'terminal-table/import'
+
+App.new do 
+  header = app_header "rbcurse 1.2.0", :text_center => "**** Demo", :text_right =>"New Improved!", :color => :black, :bgcolor => :white, :attr => :bold 
+  message "Press F1 to escape from here"
+
+  stack :margin_top => 2, :margin => 5, :width => 30 do
+    t = Terminal::Table.table(['a', 'b'], [1, 2], [3, 4])
+    $log.debug "YYY table #{t.class} "
+    list_box :list => t.render2
+    t = Terminal::Table.table ['a', 'b']
+    t << [1, 2]
+    t << [3, 4]
+    t << :separator
+    t << [4, 6]
+    #list_box :list => t.to_s.split("\n")
+    list_box :list => t.render2
+  end # stack
+  t = Terminal::Table.table do |t|
+    t.headings = 'First Name', 'Last Name', 'Email'
+    t << %w( TJ Holowaychuk tj@vision-media.ca )
+    t << %w( Bob Someone bob@vision-media.ca )
+    t << %w( Joe Whatever bob@vision-media.ca )
+  end
+  #t = t.to_s.split(/[|+]\n/)
+  t = t.render2
+  wid = t[0].length + 2
+  stack :margin_top => 2, :margin => 35, :width => wid do
+    list_box :list => t
+    t = Terminal::Table.table do
+      self.headings = 'First Name', 'Last Name', 'Email'
+      add_row ['TJ',  'Holowaychuk', 'tj@vision-media.ca']
+      add_row ['Bob', 'Someone',     'bob@vision-media.ca']
+      add_row ['Joe', 'Whatever',    'joe@vision-media.ca']
+      add_separator
+      add_row ['Total', { :value => '3', :colspan => 2, :alignment => :right }]
+      align_column 1, :center
+    end
+    #lb =  list_box :list => t.render2
+    lb =  textview :set_content => t.render2, :height => 10
+    lb.bind(:PRESS){|tae|
+      alert "Pressed list on #{tae.word_under_cursor(nil, nil, "|")}  "
+    }
+    # make a textview that is vienabled by default.
+end
+
+end # app

data/examples/term2.rb

@@ -0,0 +1,54 @@
+require 'rbcurse/app'
+require 'rbcurse/extras/tabular'
+require 'rbcurse/extras/scrollbar'
+
+App.new do 
+  header = app_header "rbcurse 1.2.0", :text_center => "**** Demo", :text_right =>"New Improved!", :color => :black, :bgcolor => :white, :attr => :bold 
+  message "Press F1 to escape from here"
+
+  stack :margin_top => 2, :margin => 5, :width => 30 do
+    t = Tabular.new(['a', 'b'], [1, 2], [3, 4])
+    $log.debug "YYY table #{t.class} "
+    list_box :list => t.render
+    t = Tabular.new ['a', 'b']
+    t << [1, 2]
+    t << [3, 4]
+    t << [4, 6]
+    #list_box :list => t.to_s.split("\n")
+    list_box :list => t.render
+  end # stack
+  t = Tabular.new do |t|
+    t.headings = 'First Name', 'Last Name', 'Email'
+    t << %w( TJ Holowaychuk tj@vision-media.ca )
+    t << %w( Bob Someone bob@vision-media.ca )
+    t << %w( Joe Whatever bob@vision-media.ca )
+  end
+
+  t = t.render
+  wid = t[0].length + 2
+  stack :margin_top => 2, :margin => 35, :width => wid do
+    list_box :list => t
+    t = Tabular.new do
+      self.headings = 'First Name', 'Last Name', 'Email'
+      add_row ['Roald',  'Amundsen', 'ra@explorers.org']
+      add_row ['Francis', 'Drake',    'joe@ducks.com']
+      add_row ['Hsuan', 'Tsang',    'tsang@asia.org']
+      add_separator
+      add_row ['Ernest', 'Shackleton',    'jack@radio-schakc.org']
+      add_row ['Fa', 'Hsien',    'fa@sheen.net']
+      add_row ['Vasco', 'Da Gama',     'bob@vasco.org']
+      add_row ['David', 'Livingstone',    'jack@trolls.com']
+      #add_row ['Total', { :value => '3', :colspan => 2, :alignment => :right }]
+      align_column 1, :center
+      self.numbering = true
+    end
+    #lb =  list_box :list => t.render2
+    lb =  textview :set_content => t.render, :height => 10
+    lb.bind(:PRESS){|tae|
+      alert "Pressed list on line #{tae.current_index}  #{tae.word_under_cursor(nil, nil, "|")}  "
+    }
+    Scrollbar.new @form, :parent => lb
+     #make a textview that is vienabled by default.
+end
+
+end # app

data/examples/test1.rb

@@ -37,7 +37,7 @@ if $0 == __FILE__
        type :list
        button_type :ok_cancel
        list %w[john tim lee wong rahul edward why chad andy]
-       list_selection_mode 'multiple'
+       list_selection_mode :multiple
        default_values %w[ lee why ]
   
         default_button 0
@@ -189,11 +189,13 @@ if $0 == __FILE__
           title_attrib 'bold'
         end
         #listb.list.bind(:ENTER_ROW) { field.set_buffer listb.selected_item }
+        # if you find that cursor goes into listbox while typing, then
+        # i've put set_form_row in listbox list_data_changed
         field.bind(:CHANGE) do |f|   
           flist = Dir.glob(f.getvalue+"*")
           l = listb.list
           l.remove_all
-          l.insert 0, *flist
+          l.insert( 0, *flist) if flist
         end
         @mb = RubyCurses::MessageBox.new @form do
           title "Sample File Selector"

data/examples/test2.rb

@@ -402,9 +402,10 @@ if $0 == __FILE__
         col col
         mnemonic 'O'
       end
-      ok_button.command { |form| 
+      ok_button.command() { |eve| 
         alert("About to dump data into log file!")
-        form.dump_data; $message.value = "Dumped data to log file"
+        @form.dump_data 
+        $message.value = "Dumped data to log file"
         listb.list.insert 0, "hello ruby", "so long python", "farewell java", "RIP .Net"
       }
 
@@ -416,7 +417,7 @@ if $0 == __FILE__
         col col + 10
         #surround_chars ['{ ',' }']  ## change the surround chars
       end
-      cancel_button.command { |form| 
+      cancel_button.command { |aeve| 
         if confirm("Do your really want to quit?")== :YES
           throw(:close); 
         else
@@ -479,8 +480,6 @@ if $0 == __FILE__
       @window.wrefresh
       Ncurses::Panel.update_panels
       while((ch = @window.getchar()) != KEY_F1 )
-        #@cell.repaint @form.window, 29,1, "ok #{ch} pressed!"
-        #@cell.repaint @form.window, 29,45, "#{ch} pressed!"
         @form.handle_key(ch)
         #@form.repaint
         @window.wrefresh
@@ -488,11 +487,12 @@ if $0 == __FILE__
     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 " -==== EXCEPTION ===== -"
     $log.debug( ex) if ex
     $log.debug(ex.backtrace.join("\n")) if ex
+    @window.destroy if !@window.nil?
+    VER::stop_ncurses
+    puts ex if ex
+    puts(ex.backtrace.join("\n")) if ex
   end
 end

data/examples/testapp.rb

@@ -0,0 +1,44 @@
+require 'rbcurse/app'
+
+# this was a test to see how i could have a class and an app inside
+# and i could call methods in the class and have variables available
+# inside App.
+#
+# instance_eval inside stack and others was causing the issue putting everything in
+# App. However, i have to change the app, to use yield in order not to lose context
+
+class Testy
+  attr_accessor :value
+  def initialize val
+    @value = val
+    @my = "oldval"
+    run
+  end
+  def amethod
+    $log.debug "XXXX amethod called... " if $log.debug? 
+    alert " self #{self.class} amethod "
+    @my = "hellothere"
+  end
+  def run
+    puts @value
+    app = App.new 
+    $log.debug " APP : value #{value}" if $log.debug? 
+    header = app.app_header "rbcurse 1.2.0", :text_center => " #{@value} Demo", :text_right =>"New Improved!", :color => :black, :bgcolor => :white, :attr => :bold 
+    app.message "Press F1 to exit from here #{@value} "
+
+    app.stack :margin_top => 2, :margin => 5, :width => 30 do |s|
+      app.label "Hello: ", :attr => :reverse
+      f=app.field "abc"
+        #amethod() 
+      f.bind(:CHANGE) { 
+        amethod() 
+        app.message "now #{@my} "
+      }
+
+    end # stack
+    app.safe_loop
+  end
+end
+if __FILE__ == $PROGRAM_NAME
+  Testy.new "Rahul"
+end

data/examples/testapp2.rb

@@ -0,0 +1,51 @@
+require 'rbcurse/app'
+
+####
+#  If you want to create an application which can run standaalong from terminal, or be passed
+#  values from a previous form then this is one way you can do it.
+#
+# this was a test to see how i could have a class and an app inside
+# and i could call methods in the class and have variables available
+# inside App.
+#
+# instance_eval inside stack and others was causing the issue putting everything in
+# App. However, i have to change the app, to use yield in order not to lose context
+
+class Testy
+  attr_accessor :value
+  def initialize val
+    @value = val
+    @my = "oldval"
+    run
+  end
+  # i will call this method from within the App block
+  def amethod
+    $log.debug "XXXX amethod called... " if $log.debug? 
+    #alert " self #{self.class} amethod "
+    # we will access @my from insdie the block, we also access @f from here
+    @my = "hellothere #{@f.getvalue} "
+  end
+  def run
+
+    App.new do |app|
+      $log.debug " APP : value #{value}" if $log.debug? 
+      header = app.app_header "rbcurse 1.2.0", :text_center => " #{@value} Demo", :text_right =>"New Improved!", :color => :black, :bgcolor => :white, :attr => :bold 
+      app.message "Press F1 to exit from here #{@value} "
+
+      app.stack :margin_top => 2, :margin => 5, :width => 30 do |s|
+        app.label "Hello: ", :attr => :reverse
+        @f=app.field "abc"
+        #amethod() 
+        @f.bind(:CHANGE) { 
+          amethod() 
+          app.message "now #{@my} "
+        }
+
+      end # stack
+      #app.safe_loop
+    end
+  end
+end
+if __FILE__ == $PROGRAM_NAME
+  Testy.new "SomeData"
+end