rbcurse-core 0.0.0

data/examples/term2.rb

@@ -0,0 +1,83 @@
+require 'rbcurse/core/util/app'
+require 'rbcurse/core/widgets/tabular'
+require 'rbcurse/core/widgets/scrollbar'
+
+  def my_help_text
+    <<-eos
+    term2.rb
+    =========================================================================
+    Basic Usage
+
+    This example shows different ways of putting data in tabular format.
+
+    The 2 tables on the right differ in behaviour. The first puts tabular data
+    into a listbox so you get single/multiple selection. The second puts tabular
+    data into a textview, so there's no selection. <space> scrolls instead of 
+    selects <ENTER> allows us to use the word under cursor for further actions. 
+
+    To see an example of placing tabular data in a tabular widget, see tabular.rb.
+    The advantage of tabular_widget is column resizing, hiding, aligning and sorting.
+
+    =========================================================================
+    :n or Alt-n for next buffer. 'q' to quit.
+
+    eos
+  end
+App.new do 
+  header = app_header "rbcurse #{Rbcurse::VERSION}", :text_center => "Tabular Demo", :text_right =>"New Improved!", :color => :black, :bgcolor => :white, :attr => :bold 
+  message "Press F10 to escape from here"
+  install_help_text my_help_text
+
+  flow :width => FFI::NCurses.COLS , :height => FFI::NCurses.LINES-2 do
+    stack :margin_top => 1, :width_pc => 20 do
+      t = Tabular.new(['a', 'b'], [1, 2], [3, 4])
+      listbox :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")
+      listbox :list => t.render
+    end # stack
+    file = "data/tasks.csv"
+    lines = File.open(file,'r').readlines 
+    heads = %w[ id sta type prio title ]
+    t = Tabular.new do |t|
+      t.headings = heads
+      lines.each { |e| t.add_row e.split '|'   }
+    end
+
+    t = t.render
+    wid = t[0].length + 2
+    wid = 30
+    stack :margin_top => 1, :width_pc => 80 , :height_pc => 100 do
+      listbox :list => t, :title => '[ tasks ]', :height_pc => 60
+
+      r = `ls -l`
+      res = r.split("\n")
+
+      t = Tabular.new do
+        #      self.headings = 'Perm', 'Gr', 'User', 'U',  'Size', 'Mon', 'Date', 'Time', 'File' # changed 2011 dts  
+        self.headings = 'User',  'Size', 'Mon', 'Date', 'Time', 'File'
+        res.each { |e| 
+          cols = e.split
+          next if cols.count < 6
+          cols = cols[3..-1]
+          cols = cols[0..5] if cols.count > 6
+          add_row cols
+        }
+        column_width 1, 6
+        align_column 1, :right
+      end
+      #lb =  list_box :list => t.render2
+      lb =  textview :set_content => t.render, :title => '[ls -l]', :height_pc => 40
+      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 # end
+
+end # app

data/examples/testkeypress.rb

@@ -0,0 +1,72 @@
+# demo to test keypresses
+# press any key and see the value that ncurses or our routines catch. 
+# Press alt and control combinations and Function keys
+# Ideally each key should return only one value. Sometimes, some TERM setting
+# or terminal emulator may not give correct values or may give different values
+# from what we are expecting.
+# Exit using 'q'.
+require 'logger'
+require 'rbcurse'
+require 'rbcurse/core/widgets/rtextview'
+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
+      $log.debug "START #{colors} colors  ---------"
+      @form = Form.new @window
+      r = 1; c = 30;
+
+      # please use a hash to pass these values, avoid this old style
+      # i want to move away from it as it comlpicates code
+        texta = TextView.new @form do
+          name   "mytext" 
+          row  r
+          col  c
+          width 60
+          height 15
+          #editable false
+          focusable false
+          title "[ Keypresses ]"
+          #title_attrib (Ncurses::A_REVERSE | Ncurses::A_BOLD)
+          title_attrib (Ncurses::A_BOLD)
+        end
+      help = "q to quit. Check keys. F1..10, C-a..z, Alt a-zA-Z0-9, C-left,rt, Sh-F5..10 .: #{$0}"
+      help1 = "Press in quick succession: 1) M-[, w     and (2)  M-[, M-w.        (3)  M-Sh-O, w."  
+      RubyCurses::Label.new @form, {'text' => help, "row" => 21, "col" => 2, "color" => "yellow"}
+      RubyCurses::Label.new @form, {'text' => help1, "row" => 22, "col" => 2, "color" => "green"}
+
+      @form.repaint
+      @window.wrefresh
+      Ncurses::Panel.update_panels
+      while((ch = @window.getchar()) != 999 )
+        str = keycode_tos ch
+        $log.debug  "#{ch} got (#{str})"
+        texta << "#{ch} got (#{str})"
+        texta.goto_end
+        texta.repaint
+        @form.repaint
+        @window.wrefresh
+        break if ch == ?\q.getbyte(0)
+      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/testlistbox.rb

@@ -0,0 +1,158 @@
+# this program tests out a listbox
+# This is written in the old style where we start and end ncurses and initiate a 
+# getch loop. It gives more control.
+# The new style is to use App which does the ncurses setup and teardown, as well
+# as manages keys. It also takes care of logger and includes major stuff.
+require 'logger'
+require 'rbcurse'
+require 'rbcurse/core/widgets/rlist'
+require 'rbcurse/core/widgets/rtextview'
+require 'rbcurse/core/include/vieditable'
+#require 'rbcurse/experimental/widgets/undomanager'
+class RubyCurses::List
+  # vieditable includes listeditable which
+  # does bring in some functions which can crash program like x and X TODO
+  # also, f overrides list f mapping. TODO
+  include ViEditable
+end
+  def my_help_text
+    <<-eos
+
+    =========================================================================
+    Basic Usage
+
+    Press <ENTER> on a class name on the first list, to view ri information
+    for it on the right.
+    
+    Tab to right area, and press <ENTER> on a method name, to see its details
+    Press / <slash> in any box to search. e.g /String will take you to the
+    first occurrence of String. <n> will take you to next.
+    
+    To go quickly to first class starting with 'S', type <f> followed by <S>.
+    Then press <n> to go to next match.
+    
+    =========================================================================
+    Vim Edit Keys
+
+    The list on left has some extra vim keys enabled such as :
+    yy     - yank/copy current line/s
+    P, p   - paste after or before
+    dd     - delete current line
+    o      - insert a line after this one
+    C      - change content of current line
+    These are not of use here, but are demonstrative of list capabilities.
+
+    =========================================================================
+    Buffers
+
+    Ordinary a textview contains only one buffer. However, the one on the right
+    is extended for multiple buffers. Pressing ENTER on the left on several 
+    rows opens multiple buffers on the right. Use M-n (Alt-N) and M-p to navigate.
+    ALternatively, : maps to a menu, so :n and :p may also be used.
+    <BACKSPACE> will also go to previous buffer, like a browser.
+
+    =========================================================================
+           Press <M-n> for next help screen, or try :n 
+
+    eos
+  end
+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
+    $catch_alt_digits = true; # emacs like alt-1..9 numeric arguments
+    install_help_text my_help_text
+    # Initialize few color pairs 
+    # Create the window to be associated with the form 
+    # Un post form and free the memory
+
+    catch(:close) do
+      @form = Form.new @window
+      @form.bind_key(KEY_F1, 'help'){ display_app_help }
+
+      # this is the old style of printing something directly on the window.
+      # The new style is to use a header
+      @form.window.printstring 0, 30, "Demo of Listbox - some vim keys", $normalcolor, BOLD
+      r = 1; fc = 1;
+
+      # this is the old style of using a label at the screen bottom, you can use the status_line
+      
+      v = "F10 quits. F1 Help.  Try j k gg G o O C dd f<char> w yy p P / . Press ENTER on Class or Method"
+      var = RubyCurses::Label.new @form, {'text' => v, "row" => FFI::NCurses.LINES-2, 
+        "col" => fc, "display_length" => 100}
+
+      h = FFI::NCurses.LINES-3
+      file = "./data/ports.txt"
+      #mylist = File.open(file,'r').readlines 
+      mylist = `ri -f bs`.split("\n")
+      w = 25
+      #0.upto(100) { |v| mylist << "#{v} scrollable data" }
+      #
+      listb = List.new @form, :name   => "mylist" ,
+        :row  => r ,
+        :col  => 1 ,
+        :width => w,
+        :height => h,
+        :list => mylist,
+        :selection_mode => :SINGLE,
+        :show_selector => true,
+        #row_selected_symbol "[X] "
+        #row_unselected_symbol "[ ] "
+        :title => " Ruby Classes "
+        #title_attrib 'reverse'
+      listb.one_key_selection = false # this allows us to map keys to methods
+      listb.vieditable_init_listbox
+      include Io
+      listb.bind_key(?r, 'get file'){ get_file("Get a file:", 70) }
+      listb.bind(:PRESS) { 
+        w = @form.by_name["tv"]; 
+        lines = `ri -f bs #{listb.text}`.split("\n")
+        #w.set_content(lines, :ansi)
+        w.add_content(lines, :content_type => :ansi, :title => listb.text)
+        w.buffer_last
+        #w.title = listb.text
+      }
+
+      tv = RubyCurses::TextView.new @form, :row => r, :col => w+1, :height => h, :width => FFI::NCurses.COLS-w-1,
+      :name => "tv", :title => "Press Enter on method"
+      tv.set_content ["Press Enter on list to view ri information in this area.", 
+        "Press ENTER on method name to see details"]
+      require 'rbcurse/core/include/multibuffer'
+      tv.extend(RubyCurses::MultiBuffers)
+
+      # pressing ENTER on a method name will popup details for that method
+      tv.bind(:PRESS) { |ev|
+        w = ev.word_under_cursor.strip
+        # check that user did not hit enter on empty area
+        if w != ""
+          text = `ri -f bs #{tv.title}.#{w}` rescue "No details for #{w}"
+          text = text.split("\n")
+          view(text, :content_type => :ansi)
+        end
+      }
+
+
+    @form.repaint
+    @window.wrefresh
+    Ncurses::Panel.update_panels
+    while((ch = @window.getchar()) != KEY_F10 )
+      @form.handle_key(ch)
+      @window.wrefresh
+    end
+  end
+rescue => ex
+  $log.debug( ex) if ex
+  $log.debug(ex.backtrace.join("\n")) if ex
+ensure
+  @window.destroy if !@window.nil?
+  VER::stop_ncurses
+  p ex if ex
+  p(ex.backtrace.join("\n")) if ex
+end
+end

data/examples/testmessagebox.rb

@@ -0,0 +1,140 @@
+# To test out the new messagebox
+#  The old messagebox provided a lot of convenience methods that were complicated
+#  and confusing. This one is simpler.
+#  The examples here are based on the old test1.rb that will not work now
+#  since the interface has been changed and simplified
+#
+require 'logger'
+require 'rbcurse'
+require 'rbcurse/core/widgets/rmessagebox'
+#require 'rbcurse/deprecated/widgets/rmessagebox'
+
+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
+
+#    @window = VER::Window.root_window
+
+
+    catch(:close) do
+      choice = ARGV[0] && ARGV[0].to_i || 3
+      $log.debug "START  MESSAGE BOX TEST #{ARGV[0]}. choice==#{choice} ---------"
+      # need to pass a form, not window.
+      case choice
+      when 1
+        require 'rbcurse/core/widgets/rlist'
+        nn = "mylist"
+        l = List.new  nil, :row => 2, :col => 5, :list => %w[john tim lee wong rahul edward why chad andy], 
+          :selection_mode => :multiple, :height => 10, :width => 20 , :selected_color => :green, :selected_bgcolor => :white, :selected_indices => [2,6], :name => nn
+       #default_values %w[ lee why ]
+      @mb = MessageBox.new :width => 30, :height => 18 do
+        title "Select a name"
+        button_type :ok_cancel
+        item Label.new :row => 1, :col => 1, :text => "Enter your name:"
+        item l
+  
+        #default_button 0 # TODO
+      end
+      @mb.run
+      $log.debug "XXX:  #{l.selected_indices}  "
+      n = @mb.widget(nn)
+      $log.debug "XXXX:  #{n.selected_indices}, #{n.name}  "
+      when 2
+      @mb = RubyCurses::MessageBox.new do
+        title "Color selector"
+        message "Select a color"
+        #item Label.new :text => "Select a color", :row => 1 , :col => 2
+
+        r = 3
+        c = 2
+        %w[&red &green &blue &yellow].each_with_index { |b, i|
+          bu =  Button.new :name => b, :text => b, :row => r, :col => c
+          bu.command { throw(:close, i) }
+          item bu
+          #bu.default_button(true) if i == 0
+          #r += 1
+          c += b.length + 5
+        }
+      end
+      index = @mb.run
+      $log.debug "XXX:  messagebox 2 ret #{index} "
+      when 3
+      @mb = RubyCurses::MessageBox.new do
+        title "Enter your name"
+        #message "Enter your first name. You are not permitted to enter x z or q and must enter a capital first"
+        message "Enter your first name. Initcaps "
+        add Field.new :chars_allowed => /[^0-9xyz]/, :valid_regex => /^[A-Z][a-z]*/, :default => "Matz", :bgcolor => :cyan
+        button_type :ok_cancel
+      end
+      @mb.run
+      $log.debug "XXX:  got #{@mb.widget(1).text} "
+      when 4
+      mb = MessageBox.new :title => "HTTP Configuration" , :width => 50 do
+        add Field.new :label => 'User', :name => "user", :display_length => 30, :bgcolor => :cyan
+        add CheckBox.new :text => "No &frames", :onvalue => "Selected", :offvalue => "UNselected"
+        add CheckBox.new :text => "Use &HTTP/1.0", :value => true
+        add CheckBox.new :text => "Use &passive FTP"
+        add Label.new    :text => " Language ", :attr => REVERSE
+        $radio = RubyCurses::Variable.new
+        add RadioButton.new :text => "py&thon", :value => "python", :color => :blue, :variable => $radio
+        add RadioButton.new :text => "rub&y", :color => :red, :variable => $radio
+        button_type :ok
+      end
+      field = mb.widget("user")
+      field.bind(:ENTER) do |f|   
+        listconfig = {'bgcolor' => 'blue', 'color' => 'white'}
+        users= %w[john tim lee wong rahul edward _why chad andy]
+        index = popuplist(users, :relative_to => field, :col => field.col + 6, :width => field.display_length)
+        field.set_buffer users[index] if index
+      end
+      mb.run
+
+      when 5
+        require 'rbcurse/core/widgets/rlist'
+        label = Label.new 'text' => 'File', 'mnemonic'=>'F', :row => 3, :col => 5
+        field = Field.new :name => "file", :row => 3 , :col => 10, :width => 40, :set_label => label
+        #flist = Dir.glob(File.join( File.expand_path("~/"), "*"))
+        flist = Dir.glob("*")
+        listb = List.new :name => "mylist", :row => 4, :col => 3, :width => 50, :height => 10,
+          :list => flist, :title => "File List", :selected_bgcolor => :white, :selected_color => :blue,
+          :selection_mode => :single, :border_attrib => REVERSE
+        #listb.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.insert( 0, *flist) if flist
+          listb.list flist
+        end
+        mb = RubyCurses::MessageBox.new :height => 20, :width => 60 do
+          title "Sample File Selector"
+          add label
+          add field
+          add listb
+          #height 20
+          #width 60
+          #top 5
+          #left 20
+          #default_button 0
+          button_type :ok_cancel
+
+        end
+        mb.run
+        $log.debug "MBOX :selected #{listb.selected_item}"
+      end 
+      
+    end
+  rescue => ex
+  ensure
+    @window.destroy unless @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