rbcurse 1.5.0 → 1.5.2

data/examples/experimental/testmform.rb

@@ -0,0 +1,35 @@
+require 'rbcurse/core/util/app'
+require 'rbcurse/experimental/widgets/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/experimental/testscroller.rb

@@ -0,0 +1,117 @@
+#$LOAD_PATH << "/Users/rahul/work/projects/rbcurse/"
+# this program tests out various widgets.
+require 'rubygems'
+#require 'ncurses' # FFI
+require 'logger'
+require 'rbcurse'
+require 'rbcurse/core/widgets/rwidget'
+require 'rbcurse/experimental/widgets/rscrollform'
+#require 'rbcurse/core/widgets/rtextarea'
+#require 'rbcurse/core/widgets/rtextview'
+#require 'rbcurse/core/widgets/rmenu'
+#require 'rbcurse/core/widgets/rcombo'
+#require 'rbcurse/core/include/listcellrenderer'
+#require 'rbcurse/extras/include/checkboxcellrenderer'
+#require 'rbcurse/extras/include/comboboxcellrenderer'
+#require 'rbcurse/extras/include/celleditor'
+#require 'qdfilechooser'
+#require 'rbcurse/extras/widgets/rlistbox'
+#require 'rbcurse/deprecated/widgets/rmessagebox'
+if $0 == __FILE__
+  include RubyCurses
+
+  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
+    # Initialize few color pairs 
+    # Create the window to be associated with the form 
+    # Un post form and free the memory
+
+    catch(:close) do
+      colors = Ncurses.COLORS
+      $log.debug "START #{colors} colors testscroller.rb --------- #{@window} "
+      @form = ScrollForm.new @window
+      # pad coordinates - the virtual area larger than screen
+      h = 50
+      w = 150 
+      row = 1
+      col = 1
+      @form.set_pad_dimensions(row, col, h, w)
+      # dimensions of screen area onto which pad will paint
+      @form.should_print_border(true)
+
+      #@window.print_border_only 0, 0, 20+2, 100+2, $datacolor
+      @window.printstring 0, 30, "Demo of ScrollForm ", $normalcolor, 'reverse'
+      r = row + 0; fc = 12;
+      #mnemonics = %w[ n l r p]
+      %w[ name detail descr password street city country zip hobbies homepage facebook twitter buzz gmail ].each_with_index do |w,i|
+        field = Field.new @form do
+          name   w 
+          row  r 
+          col  fc 
+          display_length  30
+          maxlen  30
+          #set_buffer "abcd " 
+          #set_label Label.new @form, {'text' => w, 'color'=>'cyan','mnemonic'=> mnemonics[i]}
+          set_label Label.new @form, {'text' => w, 'color'=>'cyan'}
+        end
+        r += 3
+      end
+        r = row
+        fc = 120
+        # XXX while typing in a field, cursor goes off in this case
+      %w[ operating_system version application build release shell band instrument guitarist drummer ].each_with_index do |w,i|
+        field = Field.new @form do
+          name   w 
+          row  r 
+          col  fc 
+          display_length  30
+          maxlen  30
+          bgcolor 'white'
+          color 'black'
+          #set_buffer "abcd " 
+          #set_label Label.new @form, {'text' => w, 'color'=>'cyan','mnemonic'=> mnemonics[i]}
+          set_label Label.new @form, {'text' => w, 'color'=>'cyan'}
+        end
+        field.overwrite_mode = true
+        r += 3
+      end
+
+      $message = Variable.new
+      $message.value = "Message Comes Here"
+      message_label = RubyCurses::Label.new @form, {'text_variable' => $message, "name"=>"message_label","row" => 27, "col" => 1, "display_length" => 60,  "height" => 2, 'color' => 'cyan'}
+
+      # a special case required since another form (combo popup also modifies)
+      $message.update_command() { message_label.repaint }
+
+      @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"
+
+      # a form level event, whenever any widget is focussed
+      @form.bind(:ENTER) { |f|   f.label && f.label.bgcolor = 'red' if f.respond_to? :label}
+      @form.bind(:LEAVE) { |f|  f.label && f.label.bgcolor = 'black'   if f.respond_to? :label}
+
+      @form.repaint
+      @window.wrefresh
+      Ncurses::Panel.update_panels
+      while((ch = @window.getchar()) != KEY_F1 )
+        @form.handle_key(ch)
+        @form.repaint
+        @window.wrefresh
+        Ncurses::Panel.update_panels
+      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/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/core/util/app'
+  require 'rbcurse/extras/widgets/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/core/widgets/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

@@ -0,0 +1,112 @@
+require 'rbcurse/core/util/app'
+
+#if $0 == __FILE__
+  App.new do 
+    #title "Demo of Menu - rbcurse"
+    #subtitle "Hit F1 to quit, F2 for menubar toggle"
+    header = app_header "rbcurse #{Rbcurse::VERSION}", :text_center => "Menubar Demo", :text_right =>"enabled"
+    form = @form
+    mylabel = "a field"
+
+    # TODO accelerators and 
+    # getting a handle for later use
+    mb = menubar do
+      #@toggle_key=KEY_F2
+      menu "File" do
+        item "Open", "O" do
+          accelerator "Ctrl-O"
+          command do 
+            alert "HA!! you wanted to open a file?"
+          end
+        end
+        menu "QuickOpen" do
+          item_list do
+            Dir.glob("*.rb")
+          end
+          command do |menuitem, text|
+            #alert " We gots #{text} "
+            fld = form.by_name[mylabel]
+            fld.text =text
+            view text
+          end
+        end
+        menu "Close" do
+          item_list do
+            Dir.glob("t*.rb")
+          end
+        end
+        item "New", "N" 
+        separator
+        item "Exit", "x"  do 
+          command do
+            throw(:close)
+          end
+        end
+        item "Cancel Menu" do
+          accelerator "Ctrl-g"
+        end
+        
+      end # menu
+      menu "Window" do
+        item "Tile", "T"
+        menu "Find" do
+          item "More", "M"
+          $x = item "Less", "L" do
+            #accelerator "Ctrl-X"
+            command do
+              alert "You clickses on Less"
+            end
+          end
+          menu "Size" do
+            item "Zoom", "Z"
+            item "Maximize", "X"
+            item "Minimize", "N"
+          end
+        end
+      end
+    end # menubar
+    mb.toggle_key = FFI::NCurses::KEY_F2
+    mb.color = :white
+    mb.bgcolor = :blue
+    @form.set_menu_bar mb
+    stack :margin_top => 10, :margin => 5 do
+      field mylabel, :attr => 'reverse', :block_event => :CHANGE do |e|
+        message e.to_s
+
+        case e.text
+        when "d"
+          #alert("Me gots #{e.text} disabling menu item Window:Find: ")
+          #$x.enabled = false
+        when "e"
+          # TODO this alert shows data wrapped but overlaps border
+          #alert("Me gots #{e.text} enabling menu item Window:Find: Adding accel ")
+          #$x.enabled = true
+          $x.accelerator = "Ctrl-X"
+        end
+      end
+      @adock = nil
+    keyarray = [
+      ["F10" , "Exit"], nil,
+      ["F2", "Menu"], nil,
+      ["M-e", "Disable"], ["M-x", "XXXX"],
+      ["C-?", "Help"], nil
+    ]
+    @adock = dock keyarray
+      lbltext = "Click this to enable or disable menu option Window:Find:Less"
+      blank 1
+      hline :width => lbltext.length
+      label :text => lbltext
+      toggle :offvalue => " Enable  ", :onvalue => " Disable ", :mnemonic => 'E', :value => true do |e|
+        $x.enabled = e.item.value
+        header.text_right = e.item.value ? "enabled" : "disabled"
+        if e.item.value 
+          @adock.update_application_key_label "M-e", "M-e", "Disable"
+        else
+          @adock.update_application_key_label "M-e", "M-e", "Enable"
+        end
+        #@form.handle_key mb.toggle_key
+      end
+      link "a linkie"
+    end # stack
+  end # app
+#end

data/examples/multispl.rb

@@ -0,0 +1,86 @@
+require 'rbcurse/core/util/app'
+
+App.new do 
+  header = app_header "rbcurse #{Rbcurse::VERSION}", :text_center => "MultiSplit Demo", :text_right =>"ColumnBrowse pattern"
+  #message_row(27)
+  message "<TAB> and <BTAB> "
+  oo = :HORIZONTAL_SPLIT
+  oo = :VERTICAL_SPLIT
+
+  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 = listbox "Classes",:list => `ri -f bs`.split("\n")
+        s.add lb
+
+        lb2 = listbox "Methods", :list => ["highline", "sqlite3-ruby", "thor", "ncurses"], :choose => ["thor"]
+        #lb2.suppress_borders true
+        s.add lb2
+      #sc = textarea "Edit"
+      #s.add sc
+    end # splp
+    c1 = splp[0]
+    c2 = splp[1]
+    #c1.bind_key(KEY_RETURN){ 
+    # listbox now traps key ENTER and fires PRESS event
+    c1.bind(:PRESS){ 
+      #m = Object::const_get(c1.text).public_instance_methods
+      lines = `ri -f bs #{c1.text} | tr -d ''`.split("\n")
+      i = lines.index "= CCllaassss  mmeetthhooddss::"
+       m = nil
+      if i
+        lines[i] = "Class Methods:" 
+        m = lines.slice(i..-1)
+        i = m.index "= IInnssttaannccee  mmeetthhooddss::"
+        m[i] = "Instance Methods:" if i
+      else
+        i = lines.index "= IInnssttaannccee  mmeetthhooddss::"
+        if i
+          lines[i] = "Instance Methods:" 
+          m = lines.slice(i..-1)
+        end
+      end
+      if m
+        c2.remove_all
+        c2.insert 0, *m
+        c2.clear_selection # since we had put default value using choose
+      end
+    }
+
+
+    #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)
+        fc.increase
+      end
+      # decrease split size
+      button "-" do
+        #fc.set_divider_location(splp.divider_location-1)
+        fc.decrease
+      end
+      # equalize  split size
+      button "=" do
+        #splp.set_resize_weight(0.50)
+        fc.same
+      end
+    end
+       
+  end # stack
+end # app