rbcurse 1.4.1 → 1.5.0.pre1

data/examples/experimental/testmform.rb

@@ -1,35 +0,0 @@
-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/experimental/testscroller.rb

@@ -1,117 +0,0 @@
-#$LOAD_PATH << "/Users/rahul/work/projects/rbcurse/"
-# this program tests out various widgets.
-require 'rubygems'
-#require 'ncurses' # FFI
-require 'logger'
-require 'rbcurse'
-require 'rbcurse/rwidget'
-require 'rbcurse/rscrollform'
-#require 'rbcurse/rtextarea'
-#require 'rbcurse/rtextview'
-#require 'rbcurse/rmenu'
-#require 'rbcurse/rcombo'
-#require 'rbcurse/listcellrenderer'
-#require 'rbcurse/checkboxcellrenderer'
-#require 'rbcurse/comboboxcellrenderer'
-#require 'rbcurse/celleditor'
-#require 'qdfilechooser'
-#require 'rbcurse/rlistbox'
-#require 'rbcurse/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

@@ -1,111 +0,0 @@
-# #!/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

@@ -1,112 +0,0 @@
-require 'rbcurse/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

@@ -1,86 +0,0 @@
-require 'rbcurse/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 = list_box "Classes",:list => `ri -f bs`.split("\n")
-        s.add lb
-
-        lb2 = list_box "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