rbcurse-extras 0.0.0

data/examples/testeditlist.rb

@@ -0,0 +1,78 @@
+require 'rbcurse/core/util/app'
+require 'rbcurse/core/include/appmethods'
+require 'rbcurse/extras/widgets/rlistbox'
+
+  def my_help_text
+    <<-eos
+    File : testeditlist.rb
+
+    =========================================================================
+    Basic Usage
+
+    This simple example shows the old editable list. This was the original
+    list, but pretty complicated due to editing. You can switch off the editing.
+
+    Type Alt-: to see customization menu. You may select:
+
+    * edit_toggle: when false you are always in insert mode.
+                   when true, you are in command mode, but can go into
+                   edit/insert mode by pressing <edit_toggle_key> currently
+                   C-e. You can also complete edit using <ESC>. 
+                   You may cancel edit using C-c or C-g.
+
+    * one_key_selection : if you are not in insert mode you can switch this on, so pressing
+                  any alphabet takes you to first row starting with that char.
+                  If false, then you are in so-called "vim" mode, so u can use j/k/gg/G etc keys.
+                  To get the same functionality of one-key, use f<char>.
+
+    Navigation: use arrow keys, or C-n, C-p, C-d, C-f. In command mode, pressing '?' displays
+                  key-bindings.
+
+
+
+    =========================================================================
+    :n or Alt-n for next buffer. 'q' to quit.
+
+    eos
+  end
+
+
+
+App.new do 
+  #
+  # general purpose command to catch miscellaneous actions that can be 
+  # executed in the same way. Or even take complex command lines
+  # such as what vim has.
+  def execute_this *cmd
+    f = @form.get_current_field
+    w = f
+    name = w.text.split()[0]
+    cmd = cmd[0].to_s
+  end
+
+  colors = Ncurses.COLORS
+  back = :blue
+  back = 234 if colors >= 256
+  header = app_header "rbcurse #{Rbcurse::VERSION}", :text_center => "Listbox Demo", :text_right =>"New Improved!", :color => :white, :bgcolor => back #, :attr => :bold 
+  message "F10 - Exit, F1 - Help, : - Menu"
+  install_help_text my_help_text
+
+  alist = File.open("data/list.txt",'r').readlines.map{|i| i.chomp }
+  #atable = File.open("data/table.txt",'r').readlines
+
+  #stack :margin_top => 1, :width => :expand, :height => FFI::NCurses.LINES-2 do
+  max = FFI::NCurses.LINES-2
+    lb = Listbox.new @form, :list => alist, :suppress_borders => false, :title => "[ brew packages ]",
+      :left_margin => 1, :width => 100, :name => 'lb1', :height => max, :row => 1, :col => 1, :cell_editing_allowed => true
+    lb.show_selector = false
+    #require 'rbcurse/core/include/widgetmenu'
+    #lb.extend(WidgetMenu)
+    #lb.add_menu_item('z', 'test from app', 'some desc', Proc.new { alert "Hello world" } )
+    lb.action_manager().add_action( Action.new("&Testing from app"){ alert "testing from app" } )
+    
+  #end
+  status_line :row => FFI::NCurses.LINES-1
+  #label({:text => "F1 Help, F10 Quit. : for menu. Press F4 and F5 to test popup, space or enter to select", :row => Ncurses.LINES-1, :col => 0})
+
+
+end # app

data/examples/testtable.rb

@@ -0,0 +1,270 @@
+require 'rbcurse'
+require 'rbcurse/core/widgets/rcombo'
+require 'rbcurse/extras/widgets/rtable'
+require 'rbcurse/extras/include/celleditor'
+#require 'rbcurse/table/tablecellrenderer'
+require 'rbcurse/extras/include/comboboxcellrenderer'
+require 'rbcurse/core/include/action'
+
+##
+# a renderer which paints alternate lines with
+# another color, for people with _poor_ taste.
+class MyRenderer < TableCellRenderer
+  def initialize text="", config={}, &block
+    super
+    @orig_bgcolor = @bgcolor
+    @orig_color = @color
+  end
+  def repaint graphic, r=@row,c=@col, value=@text, focussed=false, selected=false
+    @bgcolor = @orig_bgcolor
+    @color = @orig_color
+    if !focussed and !selected
+      @bgcolor = r % 2 == 0 ? "green" : @orig_bgcolor
+      @color = r % 2 == 0 ? "black" : @orig_color
+    end
+    super
+  end
+end
+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
+      @window.printstring 0,30,"Demo of Ruby Curses Table: Edit, Resize, Insert, Move, Delete Row/Col", $datacolor
+      r = 1; c = 1;
+      data = [
+        ["Blood Diamond",3,"Hanz Zimmer",3.47, true, "WIP"],
+        ["Wish you were here",92,"Pink Floyd",412, true, "Fin"],
+        ["You're beautiful",3,"James Blunt",3.21, true, "WIP"],
+        ["I believe in love",4,"Paula Cole",110.0, false, "Cancel"],
+        ["Red Sky at night",4,"Dave Gilmour",102.72, false, "Postp"],
+        ["Midnight and you",8,"Barry White",12.72, false, "Todo"],
+        ["Run Like Hell",18,"Roger Waters",12.72, false, "Todo"],
+        ["Let the music play",9,"Barry White",12.2, false, "WIP"],
+        ["Titanic",nil,"Celine Dion",112.7, true, "Cancel"],
+        ["Believe",9,"Elton John",12.2, false, "Todo"],
+        ["Once upon a time",9,"Dire Straits",12.2, false, "Todo"],
+        ["Circle Of Life",9,"Elton John",12.2, false, "Todo"],
+        ["Money",10,"Dark Side",12.2, false, "Todo"],
+        ["Like a prayer",163,"Charlotte Perrelli",5.4, false, "WIP"]]
+
+      colnames = %w[ Song Cat Artist Ratio Flag Status]
+      statuses = ["Todo", "WIP", "Fin", "Cancel", "Postp"]
+
+        texta = Table.new @form do
+          name   "mytext" 
+          row  r 
+          col  c
+          width 78
+          height Ncurses.LINES-10
+          title "Randomly picked songs"
+          #title_attrib (Ncurses::A_REVERSE | Ncurses::A_BOLD)
+          cell_editing_allowed true
+          #editing_policy :EDITING_AUTO
+          set_data data, colnames
+        end
+        require 'rbcurse/core/include/widgetmenu'
+        texta.extend(WidgetMenu)
+        sel_col = Variable.new 0
+        sel_col.value = 0
+        tcm = texta.get_table_column_model
+        selcolname = texta.get_column_name sel_col.value
+        #
+        ## key bindings fo texta
+        # column widths 
+          tcm.column(0).width 24
+          tcm.column(1).width 5
+          tcm.column(2).width 18
+          #tcm.column(2).editable false
+          tcm.column(3).width 7
+          tcm.column(4).width 5
+          tcm.column(5).width 8
+        texta.configure() do
+          bind_key(330, 'delete column') { texta.remove_column(tcm.column(texta.focussed_col)) rescue ""  }
+          bind_key(?+, 'widen column') {
+            acolumn = texta.get_column selcolname
+            w = acolumn.width + 1
+            acolumn.width w
+            #texta.table_structure_changed
+          }
+          bind_key(?-, 'reduce width') {
+            acolumn = texta.get_column selcolname
+            w = acolumn.width - 1
+            if w > 3
+            acolumn.width w
+            #texta.table_structure_changed
+            end
+          }
+          bind_key(?>, 'move column right') {
+            colcount = tcm.column_count-1
+            #texta.move_column sel_col.value, sel_col.value+1 unless sel_col.value == colcount
+            col = texta.focussed_col
+            texta.move_column col, col+1 unless col == colcount
+          }
+          bind_key(?<, 'move column left') {
+            col = texta.focussed_col
+            texta.move_column col, col-1 unless col == 0
+            #texta.move_column sel_col.value, sel_col.value-1 unless sel_col.value == 0
+          }
+          #bind_key(KEY_RIGHT) { sel_col.value = sel_col.value+1; current_column sel_col.value}
+          #bind_key(KEY_LEFT) { sel_col.value = sel_col.value-1;current_column sel_col.value}
+        end
+      keylabel = RubyCurses::Label.new @form, {'text' => "", "row" => Ncurses.LINES-6, "col" => c, "color" => "yellow", "bgcolor"=>"blue", "display_length"=>Ncurses.COLS-1, "height"=>2}
+      eventlabel = RubyCurses::Label.new @form, {'text' => "Events:", "row" => Ncurses.LINES-5, "col" => c, "color" => "white", "bgcolor"=>"blue", "display_length"=>Ncurses.COLS-1, "height"=>2}
+
+      # report some events
+      texta.table_model.bind(:TABLE_MODEL_EVENT){|e| eventlabel.text = "Event: #{e}"}
+      texta.get_table_column_model.bind(:TABLE_COLUMN_MODEL_EVENT){|e| eventlabel.text = "Event: #{e}"}
+      texta.bind(:TABLE_TRAVERSAL_EVENT){|e| eventlabel.text = "Event: #{e}"}
+
+      @help = "C-q to quit. M-? Keys, ENTER - edit toggle, M-Tab (exit table) C-n C-p M-0 M-9 Columns:- Narrow, + expand, > < switch"
+      RubyCurses::Label.new @form, {'text' => @help, "row" => Ncurses.LINES-3, "col" => 2, "color" => "yellow", "height"=>2}
+
+      str_renderer = TableCellRenderer.new ""
+      num_renderer = TableCellRenderer.new "", { "justify" => :right }
+      bool_renderer = CheckBoxCellRenderer.new "", {"parent" => texta, "display_length"=>5}
+      combo_renderer =  RubyCurses::ComboBoxCellRenderer.new nil, {"parent" => texta, "display_length"=> 8}
+      combo_editor = RubyCurses::CellEditor.new(RubyCurses::ComboBox.new nil, {"focusable"=>false, "visible"=>false, "list"=>statuses, "display_length"=>8})
+      texta.set_default_cell_renderer_for_class "String", str_renderer
+      texta.set_default_cell_renderer_for_class "Fixnum", num_renderer
+      texta.set_default_cell_renderer_for_class "Float", num_renderer
+      texta.set_default_cell_renderer_for_class "TrueClass", bool_renderer
+      texta.set_default_cell_renderer_for_class "FalseClass", bool_renderer
+      texta.get_table_column_model.column(5).cell_editor =  combo_editor
+=begin
+        field = Field.new @form do
+          name   "value" 
+          row  r+18
+          col  c
+          display_length  30
+          bgcolor "cyan"
+          set_label Label.new @form, {'text' => "Value", 'mnemonic'=> 'V'}
+        #  bind :ENTER do $editing = true end
+        #  bind :LEAVE do $editing = false end
+        end
+=end
+        buttrow = Ncurses.LINES-4
+      b_newrow = Button.new @form do
+        text "&New"
+        row buttrow
+        col c
+        bind(:ENTER) { eventlabel.text "New button adds a new row at the bottom " }
+      end
+      tm = texta.table_model
+      b_newrow.command { 
+        cc = texta.get_table_column_model.column_count
+        # need to get datatypes etc, this is just a junk test
+        tmp=[]
+        #0.upto(cc-1) { tmp << "" }
+        0.upto(cc-1) { tmp << nil }
+        tm << tmp
+        #texta.table_data_changed
+        keylabel.text = "Added a row"
+        alert("Added a row at bottom of table")
+
+      }
+
+      # using ampersand to set mnemonic
+      b_delrow = Button.new @form do
+        text "&Delete"
+        row buttrow
+        col c+10
+        bind(:ENTER) { eventlabel.text "Deletes focussed row" }
+      end
+      b_delrow.command { |form| 
+        row = texta.focussed_row
+        if confirm("Do your really want to delete row #{row}?")
+          tm.delete_at row
+          #texta.table_data_changed
+        else
+          #$message.value = "Quit aborted"
+        end
+      }
+      b_change = Button.new @form do
+        text "&Lock"
+        row buttrow
+        col c+20
+        command {
+          r = texta.focussed_row
+          c = sel_col.value
+          #$log.debug " Update gets #{field.getvalue.class}"
+          #texta.set_value_at(r, c, field.getvalue)
+          toggle = texta.column(texta.focussed_col()).editable 
+          if toggle.nil? or toggle==true
+            toggle = false 
+            text "Un&lock"
+          else
+            toggle = true
+            text "&Lock  "
+          end
+          eventlabel.text "Set column  #{texta.focussed_col()} editable to #{toggle}"
+          texta.column(texta.focussed_col()).editable toggle
+          alert("Set column  #{texta.focussed_col()} editable to #{toggle}")
+        }
+        bind(:ENTER) { eventlabel.text "Toggles editable state of current column " }
+      end
+      b_insert = Button.new @form do
+        text "&Insert"
+        row buttrow
+        col c+32
+        command {
+          # this does not trigger a data change since we are not updating model. so update
+          # on pressing up or down
+          #0.upto(100) { |i| data << ["test", rand(100), "abc:#{i}", rand(100)/2.0]}
+          #texta.table_data_changed
+        }
+        bind(:ENTER) { eventlabel.text "Does nothing " }
+      end
+
+
+      @form.repaint
+      @window.wrefresh
+      Ncurses::Panel.update_panels
+      while((ch = @window.getchar()) != ?\C-q.getbyte(0) )
+        break if ch == KEY_F10
+        begin
+        colcount = tcm.column_count-1
+        s = keycode_tos ch
+        keylabel.text = "Pressed #{ch} , #{s}"
+        @form.handle_key(ch)
+
+        sel_col.value = tcm.column_count-1 if sel_col.value > tcm.column_count-1
+        sel_col.value = 0 if sel_col.value < 0
+        selcolname = texta.get_column_name sel_col.value
+        keylabel.text = "Pressed #{ch} , #{s}. Column selected #{texta.focussed_col}: Width:#{tcm.column(sel_col.value).width} #{selcolname}. Focussed Row: #{texta.focussed_row}, Rows: #{texta.table_model.row_count}, Cols: #{colcount}"
+        s = texta.get_value_at(texta.focussed_row, texta.focussed_col)
+        #s = s.to_s
+      ##  $log.debug " updating Field #{s}, #{s.class}"
+      ##  field.set_buffer s unless field.state == :HIGHLIGHTED # $editing
+
+        @form.repaint
+        @window.wrefresh
+        rescue => ex
+          $log.debug( ex) if ex
+          $log.debug(ex.backtrace.join("\n")) if ex
+          #alert ex.to_s
+          textdialog ex
+        end
+      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/testvimsplit.rb

@@ -0,0 +1,141 @@
+# This is a new kind of splitpane, inspired by the vim editor.
+# I was deeply frustrated with the Java kind of splitpane,
+# which requires splitpanes within splitpanes to get several split.
+# This is an attempt at getting many splits, keeping them at one level
+# and keeping the interface as simple as possible, with minimal input
+# from user.
+# It usually takes a listbox or textview or textarea.
+# It can also take an array, or string or hash.
+# It supports moving the split, and increasing or decreasing the current box to some extent.
+# Typically if the split is vertical, add stacks the components, one below the other.
+# If horizontal, if will flow the components, to the right of previous. This can be overriden by passing 
+# type as :STACK or :FLOW.
+#
+# This does not support changing the orientation at run time, that's nice for demos, but a pain
+# to get right, and results in a lot of extra code, meaning more bugs.
+# TODO: create a class that contains component array and a pointer so it can give next/prev
+# i am tired of maintaining this everywhere.
+require 'rbcurse'
+require 'rbcurse/extras/widgets/rlistbox'
+require 'rbcurse/core/widgets/rtextview'
+require 'rbcurse/extras/widgets/rvimsplit'
+
+require 'rbcurse/core/include/appmethods'
+  def my_help_text
+    <<-eos
+    File: testvimsplit.rb
+
+    Basic Usage
+
+    An example of a vimsplit containing various objects, which have been placed
+    with weightages. The vimsplit has one main split which is either horizontal
+    or vertical with a divider. You can activate the divider using F3. It then becomes
+    focusable. Using the arrows keys one can then move the divider up or down (or right 
+    left for a vertical divider). F3 will toggles focusable.
+
+    This allows us to have master-detail relationships as in mail clients, or file managers
+    that show directories on one side and files on the other. One can place more dividers (as
+    in appemail.rb), so as to resize deeper splits and one may bind to the divider's DRAG event
+    to get all one's components to resize correctly. See appemail.rb in the old rbcurse examples folder,
+    I may not keep it updated since it relies on mbox and thus may not be easy for others to test.
+
+    Pressing '?' shows key-bindings for the vimplit, sadly not for underlying component.
+
+    =========================================================================
+    :n or Alt-n for next buffer. 'q' or even <Esc-Esc> to quit.
+
+    eos
+  end
+if $0 == __FILE__
+class Tester
+  def initialize
+    acolor = $reversecolor
+  end
+  def run
+    @window = VER::Window.root_window 
+    @form = Form.new @window
+    install_help_text my_help_text
+    @form.bind_key(FFI::NCurses::KEY_F1, 'help') {  display_app_help }
+
+
+    h = 20; w = 75; t = 3; l = 4
+
+    vf = :H
+    @vim = VimSplit.new @form, {:row => 2, :col => 5, :width => :EXPAND, :height => 25, :orientation => vf, :weight => 0.6}
+    lb = Listbox.new nil, :list => ["ruby","perl","lisp","java", "scala"] , :name => "mylist"
+    lb1 = Listbox.new nil, :list => ["roger","borg","laver","edberg", "sampras","ashe"] , :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 gawk zsh bash groovy] 
+    str = "Hello people of this world.\nThis is a textbox.\nUse arrow keys, j/k/h/l/gg/G/C-a/C-e/C-d/C-b\n"
+    str << alist.join("\n")
+    stfl = vf == :V ? :FLOW : :STACK
+    @vim.add lb, :FIRST, :AUTO
+    @vim.add lb1, :FIRST, :AUTO #nil #0.7:AUTO
+    @vim.add ["mercury","venus","earth","mars","jupiter", "saturn"], :FIRST, :AUTO
+    @vim.add alist, :FIRST, 0.4, stfl
+    #@vim.add alist, :FIRST, nil, stfl
+    @vim.add alist.shuffle, :FIRST, 0.6, stfl
+    @vim.add lb2, :SECOND, :AUTO
+    @vim.add str, :SECOND, :AUTO
+      ok_button = Button.new @form do
+        text "+"
+        name "+"
+        row 27
+        col 10
+      end
+      #ok_button.command { |form| @vim.weight(@vim.weight + 0.1)  }
+      ok_button.command {  @vim.increase_weight }
+      
+
+      k_button = Button.new @form do
+        text "-"
+        name "-"
+        row 27
+        col 17
+      end
+      #k_button.command { |form| @vim.weight( @vim.weight - 0.1) }
+      k_button.command { |form| @vim.decrease_weight }
+      
+    #
+    @help = "F10 to quit. "
+    RubyCurses::Label.new @form, {'text' => @help, "row" => 1, "col" => 2, "color" => "yellow"}
+    @form.repaint
+    @window.wrefresh
+    Ncurses::Panel.update_panels
+    ctr = 0
+    row = 2
+    while((ch = @window.getchar()) != Ncurses::KEY_F10 )
+      ret = @form.handle_key(ch)
+      @window.wrefresh
+      #ret = @vim.handle_key ch
+      if ret == :UNHANDLED
+        str = keycode_tos ch
+        $log.debug " UNHANDLED #{str} by Vim #{ret} "
+      end
+    end
+
+    @window.destroy
+
+  end
+end
+  include RubyCurses
+  include RubyCurses::Utils
+  # Initialize curses
+  begin
+    # XXX update with new color and kb
+    VER::start_ncurses  # this is initializing colors via ColorMap.setup
+    $log = Logger.new("rbc13.log")
+    $log.level = Logger::DEBUG
+    n = Tester.new
+    n.run
+  rescue => ex
+  ensure
+    VER::stop_ncurses
+    p ex if ex
+    puts(ex.backtrace.join("\n")) if ex
+    $log.debug( ex) if ex
+    $log.debug(ex.backtrace.join("\n")) if ex
+  end
+end