rbcurse 1.4.0 → 1.4.1.pre2

data/examples/experimental/testmform.rb

@@ -0,0 +1,35 @@
+require 'rbcurse/app'
+require 'rbcurse/extras/multiform'
+
+App.new do 
+  header = app_header "rbcurse #{Rbcurse::VERSION}", :text_center => "My Demo", :text_right =>"New Improved!", :color => :black, :bgcolor => :white, :attr => :bold 
+  message "Press F10 to exit from here, F1 for help, F2 for menu"
+
+  stack :margin_top => 2, :margin => 5, :width => 30 do
+
+    mf = MultiForm.new @form do
+      row 2
+      col 2
+      height 15
+      width  50
+
+      add_form "first" do |f|
+        f1 = Field.new f, :name => "f1", :row => 1, :col => 10, :display_length => 15, :color => :red, :bgcolor => :white
+        f2 = Field.new f, :name => "f2", :row => 2, :col => 10, :display_length => 15, :color => :cyan, :bgcolor => :red
+        f1.set_buffer "ABCD"
+        f2.set_buffer "1234a"
+      #add_to(0, f1)
+      #add_to(0, f2)
+    end
+      add_form "second" do |f|
+        f1 = Field.new f, :name => "f1", :row => 2, :col => 10, :display_length => 15, :color => :white, :bgcolor => :blue
+        f2 = Field.new f, :name => "F2", :row => 4, :col => 10, :display_length => 15, :color => :yellow, :bgcolor => :blue
+        f1.set_buffer "alpha"
+        f2.set_buffer "roger"
+      #add_to(0, f1)
+      #add_to(0, f2)
+      end
+    end
+
+  end # stack
+end # app

data/examples/{testscroller.rb → experimental/testscroller.rb}

@@ -26,7 +26,7 @@ if $0 == __FILE__
     $log = Logger.new((File.join(ENV["LOGDIR"] || "./" ,"rbc13.log")))
     $log.level = Logger::DEBUG
 
-    @window = VER::Window.root_window
+    #@window = VER::Window.root_window
     # Initialize few color pairs 
     # Create the window to be associated with the form 
     # Un post form and free the memory
@@ -43,7 +43,6 @@ if $0 == __FILE__
       @form.set_pad_dimensions(row, col, h, w)
       # dimensions of screen area onto which pad will paint
       @form.should_print_border(true)
-      #@buttonpad = @form.create_pad
 
       #@window.print_border_only 0, 0, 20+2, 100+2, $datacolor
       @window.printstring 0, 30, "Demo of ScrollForm ", $normalcolor, 'reverse'
@@ -89,25 +88,8 @@ if $0 == __FILE__
       # a special case required since another form (combo popup also modifies)
       $message.update_command() { message_label.repaint }
 
-      #@form.by_name["line"].display_length = 3
-      #@form.by_name["line"].maxlen = 3
-      #@form.by_name["line"].set_buffer  "24"
       @form.by_name["detail"].set_buffer  "This form has more components"
       @form.by_name["descr"].set_buffer  "Use M-l/h and M-n/p for scrolling"
-      #@form.by_name["name"].set_focusable(false)
-      #@form.by_name["line"].chars_allowed = /\d/
-      ##@form.by_name["regex"].type(:ALPHA)
-      #@form.by_name["regex"].valid_regex(/^[A-Z][a-z]*/)
-      #@form.by_name["regex"].set_buffer  "SYNOP"
-      #@form.by_name["regex"].display_length = 10
-      #@form.by_name["regex"].maxlen = 20
-      ##@form.by_name["regex"].bgcolor 'cyan'
-      #@form.by_name["password"].set_buffer ""
-      #@form.by_name["password"].show '*'
-      #@form.by_name["password"].color 'red'
-      ##@form.by_name["password"].bgcolor 'blue'
-      #@form.by_name["password"].values(%w[scotty tiger secret pass qwerty])
-      #@form.by_name["password"].null_allowed true
 
       # a form level event, whenever any widget is focussed
       @form.bind(:ENTER) { |f|   f.label && f.label.bgcolor = 'red' if f.respond_to? :label}

data/examples/experimental/teststackflow.rb

@@ -0,0 +1,111 @@
+# #!/usr/bin/env ruby -w
+=begin
+  * Name          : teststackflow.rb
+  * Description   : to test Container2.rb (to be renamed)
+  *               :
+  * Author        : rkumar http://github.com/rkumar/rbcurse/
+  * Date          : 25.10.11 - 12:57
+  * License       :
+  * Last update   : Use ,,L to update
+    Same as Ruby's License (http://www.ruby-lang.org/LICENSE.txt)
+
+=end
+
+
+if __FILE__ == $PROGRAM_NAME
+  require 'rbcurse/app'
+  require 'rbcurse/rlistbox'
+  require 'rbcurse/experimental/stackflow'
+  App.new do
+
+    lb = Listbox.new nil, :list => ["borodin","berlioz","bernstein","balakirev", "elgar"] , :name => "mylist"
+    lb1 = Listbox.new nil, :list => ["bach","beethoven","mozart","gorecki", "chopin","wagner","grieg","holst"] , :name => "mylist1"
+
+    lb2 = Listbox.new nil, :list => `gem list --local`.split("\n") , :name => "mylist2"
+
+    alist = %w[ ruby perl python java jruby macruby rubinius rails rack sinatra pylons django cakephp grails] 
+    str = "Hello, people of Earth.\nI am HAL, a textbox.\nUse arrow keys, j/k/h/l/gg/G/C-a/C-e/C-n/C-p\n"
+    str << alist.join("\n")
+    require 'rbcurse/rtextview'
+    tv = TextView.new nil, :name => "text"
+    tv.set_content str
+=begin
+    f1 = field "name", :maxlen => 20, :display_length => 20, :bgcolor => :white, 
+      :color => :black, :text => "abc", :label => " Name: ", :label_color_pair => @datacolor
+    f2 = field "email", :display_length => 20, :bgcolor => :white, 
+      :color => :blue, :text => "me@google.com", :label => "Email: ", :label_color_pair => @datacolor
+    f3 = radio :group => :grp, :text => "red", :value => "RED", :color => :red
+    f4 = radio :group => :grp, :text => "blue", :value => "BLUE", :color => :blue
+    f5 = radio :group => :grp, :text => "green", :value => "GREEN", :color => :green
+=end
+
+    f1 = Field.new nil, :maxlen => 20, :display_length => 20, :bgcolor => :white, 
+      :color => :black, :text => "abc", :label => " Name: ", :label_color_pair => @datacolor,
+      :valid_regex => /[A-Z][a-z]*/
+    f2 = Field.new nil, :display_length => 20, :bgcolor => :white, 
+      :color => :blue, :text => "me@google.com", :label => "Email: ", :label_color_pair => @datacolor
+    f3 = Field.new nil, :display_length => 20, :bgcolor => :white, 
+      :color => :blue, :text => "24", :label => "Age: ", :label_color_pair => @datacolor,
+      :valid_range => (20..100)
+    r = StackFlow.new @form, :row => 1, :col => 2, :width => 80, :height => 25, :title => "Stack n Flow with margins" do
+      #stack :margin_top => 2, :margin_left => 1 do
+        flow :margin_top => 0, :margin_left => 2, :margin_right => 0, :orientation => :right do #:weight => 49 do 
+          add tv, :weight => 40
+          add lb2 , :weight => 50
+        end
+        stack :margin_top => 0, :orientation => :bottom do #stack :height => 12, :width => 78 do
+          add lb, :weight => 40, :margin_left => 1
+          add lb1 , :weight => 40
+          #add f1
+        #stack :weight => 30 do
+        #add f1
+        #add f2
+        #add f3
+        end
+      #end # stack
+    end # r
+    def increase_height
+      @r.height += 1
+      @r.repaint_all(true)
+    end
+    def increase_width
+      @r.width += 1
+      @r.repaint_all(true)
+    end
+    @r = r
+    @r.bind_key(?\M-w) {increase_width}
+    @r.bind_key(?\M-h) {increase_height}
+    @r.bind_key(0) {
+      f = @r.item_for tv
+      f1 = @r.item_for lb2
+      p = @r.parent_of tv
+      p1 = @r.parent_of lb2
+      $log.debug "XXX: ITEM_FOR tv is #{f}, #{f1}  #{p} , #{p1} "
+      @ctr ||= 0
+      case @ctr
+      when 0
+        @r.components[0].orientation = :left
+      when 1
+        @r.components[0].orientation = :right
+      when 2
+        @r.components[1].orientation = :top
+      when 3
+        @r.components[1].orientation = :bottom
+      else
+        @ctr = -1
+      end
+      $status_message.value =" Flow: #{@r.components[0].orientation} | Stack #{@r.components[1].orientation}. Use C-Space to change "
+      @r.repaint_all(true)
+      @ctr += 1
+
+    }
+    $status_message.value =" Flow: #{@r.components[0].orientation} | Stack #{@r.components[1].orientation}. Use Ctrl-Space to change "
+
+    #r.add(f1)
+    #r.add(f2)
+    #r.add(f3,f4,f5)
+    #sl = status_line
+
+    st = status_line
+  end # app
+end # if 

data/examples/menu1.rb

@@ -27,6 +27,7 @@ require 'rbcurse/app'
             #alert " We gots #{text} "
             fld = form.by_name[mylabel]
             fld.text =text
+            view text
           end
         end
         menu "Close" do

data/examples/multispl.rb

@@ -2,13 +2,13 @@ require 'rbcurse/app'
 
 App.new do 
   header = app_header "rbcurse #{Rbcurse::VERSION}", :text_center => "MultiSplit Demo", :text_right =>"ColumnBrowse pattern"
-  message_row(27)
+  #message_row(27)
   message "<TAB> and <BTAB> "
   oo = :HORIZONTAL_SPLIT
   oo = :VERTICAL_SPLIT
 
-  stack :margin_top => 5, :margin => 15, :width => 79 do
-    splp = multisplit "outer", :height => 16, :split_count => 2, :orientation => oo  do |s|
+  stack :margin_top => 2, :margin => 1, :width => FFI::NCurses.COLS-2 do
+    splp = multisplit "outer", :height => FFI::NCurses.LINES - 3 , :split_count => 2, :orientation => oo  do |s|
       #s.suppress_borders = false
         lb = list_box "Classes",:list => `ri -f bs`.split("\n")
         s.add lb
@@ -48,7 +48,7 @@ App.new do
     }
 
 
-    blank
+    #blank
     flow do
       #toggle :onvalue => "Vertical", :offvalue => "Horizontal", :value => true do |e|
         #message "pressed #{e.state}"

data/examples/newmessagebox.rb

@@ -0,0 +1,130 @@
+# this is a test program, tests out tabbed panes. type F1 to exit
+#
+require 'rbcurse'
+require 'rbcurse/extras/newmessagebox'
+
+def alertme mess, config={}
+
+  _title = config[:title] || "Alert"
+    tp = NewMessagebox.new config do
+      title _title
+      button_type :ok
+      message mess
+      #text mess
+    end
+    tp.run
+end
+def textdialog mess, config={}
+  config[:title] ||= "Alert"
+  tp = NewMessagebox.new config do
+    button_type :ok
+    text mess
+  end
+  tp.run
+end
+# 
+def newget_string label, config={}
+  config[:title] ||= "Entry"
+  label_config = config[:label_config] || {}
+  label_config[:row] ||= 2
+  label_config[:col] ||= 2
+  label_config[:text] = label
+
+  field_config = config[:field_config] || {}
+  field_config[:row] ||= 3
+  field_config[:col] ||= 2
+  field_config[:attr] = :reverse
+  field_config[:maxlen] ||= config[:maxlen]
+  field_config[:default] ||= config[:default]
+  #field_config[:display_length] ||= 50  # i want it to extend since i don't know the actual width
+  field_config[:width] ||= 50  # i want it to extend since i don't know the actual width
+
+  tp = NewMessagebox.new config do
+    button_type :ok_cancel
+    item Label.new nil, label_config
+    item Field.new nil, field_config
+  end
+  tp.run
+end
+include RubyCurses
+class SetupMessagebox
+  def run
+    $config_hash ||= Variable.new Hash.new
+    #configvar.update_command(){ |v| $config_hash[v.source()] = v.value }
+
+    #tp = NewMessagebox.new :row => 3, :col => 7, :width => 60, :height => 20 , :color => :white, :bgcolor => :blue do
+    tp = NewMessagebox.new :color => :white, :bgcolor => :blue do
+      title "User Setup"
+      button_type :ok_apply_cancel
+        item Field.new nil, :row => 2, :col => 2, :text => "enter your name", :label => ' Name: '
+        item Field.new nil, :row => 3, :col => 2, :text => "enter your email", :label => 'Email: '
+        r = 4
+        item Label.new nil, :text => "Text", :row => r+1, :col => 2, :attr => :bold
+        item CheckBox.new nil, :row => r+2, :col => 2, :text => "Antialias text"
+        item CheckBox.new nil, :row => r+3, :col => 2, :text => "Use bold fonts"
+        item CheckBox.new nil, :row => r+4, :col => 2, :text => "Allow blinking text"
+        item CheckBox.new nil, :row => r+5, :col => 2, :text => "Display ANSI Colors"
+=begin
+        item Label.new nil, :text => "Cursor", :row => 7, :col => 2, :attr => 'bold'
+        $config_hash.set_value Variable.new, :cursor
+        item RadioButton.new nil, :row => 8, :col => 2, :text => "Block", :value => "block", :variable => $config_hash[:cursor]
+        item RadioButton.new nil, :row => 9, :col => 2, :text => "Blink", :value => "blink", :variable => $config_hash[:cursor]
+        item RadioButton.new nil, :row => 10, :col => 2, :text => "Underline", :value => "underline", :variable => $config_hash[:cursor]
+      end
+      tab "&Term" do
+        
+        item Label.new nil, :text => "Arrow Key in Combos", :row => 2, :col => 2, :attr => 'bold'
+        x = Variable.new
+        $config_hash.set_value x, :term
+        item RadioButton.new nil, :row => 3, :col => 2, :text => "ignore", :value => "ignore", :variable => $config_hash[:term]
+        item RadioButton.new nil, :row => 4, :col => 2, :text => "popup", :value => "popup", :variable => $config_hash[:term]
+        item RadioButton.new nil, :row => 5, :col => 2, :text => "next", :value => "next", :variable => $config_hash[:term]
+        cb = ComboBox.new nil, :row => 7, :col => 2, :display_length => 15, 
+          :list => %w[xterm xterm-color xterm-256color screen vt100 vt102],
+          :label => "Declare terminal as: "
+        #radio.update_command() {|rb| ENV['TERM']=rb.value }
+        item cb
+        x.update_command do |rb|
+          cb.arrow_key_policy=rb.value.to_sym
+        end
+        
+      end
+      tab "Conta&iner" do
+        item r
+      end
+      # tell tabbedpane what to do if a button is pressed (ok/apply/cancel)
+=end
+      command do |eve|
+        case eve.event
+        when 0,2                   # ok cancel
+          newget_string "Enter name: ", :default => "john", :maxlen => 50
+          alertme "user pressed button index:#{eve.event}, #{eve.action_command} "
+          throw :close, eve.event
+        when 1                     # apply
+          textdialog "user pressed apply: #{eve.to_s.length} : #{eve} "
+        end
+      end
+    end
+    tp.run
+  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
+    tp = SetupMessagebox.new()
+    buttonindex = tp.run
+    $log.debug "XXX:  MESSAGEBOX retirned #{buttonindex} "
+  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

data/examples/newtabbedwindow.rb

@@ -0,0 +1,100 @@
+# this is a test program, tests out tabbed panes. type F1 to exit
+#
+require 'logger'
+require 'rbcurse'
+require 'rbcurse/extras/newtabbedpane'
+require 'rbcurse/rcontainer'
+require 'rbcurse/rcombo'
+require 'rbcurse/extras/newtabbedwindow'
+
+include RubyCurses
+class SetupTabbedPane
+  def run
+    $config_hash ||= Variable.new Hash.new
+    #configvar.update_command(){ |v| $config_hash[v.source()] = v.value }
+
+    r = Container.new nil, :suppress_borders => true
+    l1 = Label.new nil, :name => "profile", :attr => 'bold', :text => "Profile"
+    f1 = Field.new nil,  :name => "name", :maxlen => 20, :display_length => 20, :bgcolor => :white, 
+      :color => :black, :text => "abc", :label => ' Name: '
+    f2 = Field.new nil, :name => "email", :display_length => 20, :bgcolor => :white, 
+      :color => :blue, :text => "me@google.com", :label => 'Email: '
+    f3 = RadioButton.new nil, :variable => $config_hash, :text => "red", :value => "RED", :color => :red
+    f4 = RadioButton.new nil, :variable => $config_hash, :text => "blue", :value => "BLUE", :color => :blue
+    f5 = RadioButton.new nil, :variable => $config_hash, :text => "green", :value => "GREEN", :color => :green
+    r.add(l1,f1)
+    r.add(f2)
+    r.add(f3,f4,f5)
+
+    tp = NewTabbedWindow.new :row => 3, :col => 7, :width => 60, :height => 20 do
+      title "User Setup"
+      button_type :ok_apply_cancel
+      tab "&Profile" do
+        item Field.new nil, :row => 2, :col => 2, :text => "enter your name", :label => ' Name: '
+        item Field.new nil, :row => 3, :col => 2, :text => "enter your email", :label => 'Email: '
+      end
+      tab "&Settings" do
+        item Label.new nil, :text => "Text", :row => 1, :col => 2, :attr => 'bold'
+        item CheckBox.new nil, :row => 2, :col => 2, :text => "Antialias text"
+        item CheckBox.new nil, :row => 3, :col => 2, :text => "Use bold fonts"
+        item CheckBox.new nil, :row => 4, :col => 2, :text => "Allow blinking text"
+        item CheckBox.new nil, :row => 5, :col => 2, :text => "Display ANSI Colors"
+        item Label.new nil, :text => "Cursor", :row => 7, :col => 2, :attr => 'bold'
+        $config_hash.set_value Variable.new, :cursor
+        item RadioButton.new nil, :row => 8, :col => 2, :text => "Block", :value => "block", :variable => $config_hash[:cursor]
+        item RadioButton.new nil, :row => 9, :col => 2, :text => "Blink", :value => "blink", :variable => $config_hash[:cursor]
+        item RadioButton.new nil, :row => 10, :col => 2, :text => "Underline", :value => "underline", :variable => $config_hash[:cursor]
+      end
+      tab "&Term" do
+        
+        item Label.new nil, :text => "Arrow Key in Combos", :row => 2, :col => 2, :attr => 'bold'
+        x = Variable.new
+        $config_hash.set_value x, :term
+        item RadioButton.new nil, :row => 3, :col => 2, :text => "ignore", :value => "ignore", :variable => $config_hash[:term]
+        item RadioButton.new nil, :row => 4, :col => 2, :text => "popup", :value => "popup", :variable => $config_hash[:term]
+        item RadioButton.new nil, :row => 5, :col => 2, :text => "next", :value => "next", :variable => $config_hash[:term]
+        cb = ComboBox.new nil, :row => 7, :col => 2, :display_length => 15, 
+          :list => %w[xterm xterm-color xterm-256color screen vt100 vt102],
+          :label => "Declare terminal as: "
+        #radio.update_command() {|rb| ENV['TERM']=rb.value }
+        item cb
+        x.update_command do |rb|
+          cb.arrow_key_policy=rb.value.to_sym
+        end
+        
+      end
+      tab "Conta&iner" do
+        item r
+      end
+      # tell tabbedpane what to do if a button is pressed (ok/apply/cancel)
+      command do |eve|
+        alert "user pressed button index:#{eve.event} , Name: #{eve.action_command}, Tab: #{eve.source.current_tab} "
+        case eve.event
+        when 0,2                   # ok cancel
+          throw :close, eve.event
+        when 1                     # apply
+        end
+      end
+    end
+    tp.run
+  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
+    tp = SetupTabbedPane.new()
+    buttonindex = tp.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