rbcurse 1.5.0 → 1.5.2

data/examples/testree.rb

@@ -0,0 +1,106 @@
+require 'rbcurse'
+require 'rbcurse/core/widgets/rtree'
+
+if $0 == __FILE__
+  $choice = ARGV[0].to_i || 1
+class Tester
+  def initialize
+    acolor = $reversecolor
+  end
+  def run
+    @window = VER::Window.root_window 
+    @form = Form.new @window
+
+    h = 20; w = 75; t = 3; l = 4
+   #$choice = 1 
+    case $choice
+    when 1
+    root    =  TreeNode.new "ROOT"
+    subroot =  TreeNode.new "subroot"
+    leaf1   =  TreeNode.new "leaf 1"
+    leaf2   =  TreeNode.new "leaf 2"
+
+    model = DefaultTreeModel.new root
+    #model.insert_node_into(subroot, root,  0)
+    #model.insert_node_into(leaf1, subroot, 0)
+    #model.insert_node_into(leaf2, subroot, 1)
+    root << subroot
+    subroot << leaf1 << leaf2
+    leaf1 << "leaf11"
+    leaf1 << "leaf12"
+
+    root.add "blocky", true do 
+      add "block2"
+      add "block3" do
+        add "block31"
+      end
+    end
+    Tree.new @form, :data => model, :row =>2, :col=>2, :height => 20, :width => 30
+
+    when 2
+
+      # use an array to populate
+      # we need to do root_visible = false so you get just a list
+    model  = %W[ ruby cobol jruby smalltalk fortran piethon purrl lithp ]
+    Tree.new @form, :data => model, :row =>2, :col=>2, :height => 20, :width => 30
+
+    when 3
+
+      # use an Has to populate
+      #model = { :ruby => %W[ "jruby", "mri", "yarv", "rubinius", "macruby" ], :python => %W[ cpython jython laden-swallow ] }
+      model = { :ruby => [ "jruby", {:mri => %W[ 1.8.6 1.8.7]}, {:yarv => %W[1.9.1 1.9.2]}, "rubinius", "macruby" ], :python => %W[ cpython jython laden-swallow ] }
+
+    Tree.new @form, :data => model, :row =>2, :col=>2, :height => 20, :width => 30
+    #when 4
+    else
+      Tree.new @form, :row =>2, :col=>2, :height => 20, :width => 30 do
+        root "root" do
+          branch "hello" do
+            leaf "world"
+          end
+          branch "goodbyee" do
+            leaf "java"
+          end
+        end
+      end
+
+    end
+
+    #
+    @help = "F1 to quit. Pass command-line argument 1,2,3,4  #{$0} "
+    RubyCurses::Label.new @form, {'text' => @help, "row" => 1, "col" => 2, "color" => "yellow"}
+    @form.repaint
+    @window.wrefresh
+    Ncurses::Panel.update_panels
+    while((ch = @window.getchar()) != KEY_F1 )
+      ret = @form.handle_key(ch)
+      @window.wrefresh
+      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

data/examples/testtable.rb

@@ -0,0 +1,264 @@
+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 = 30;
+      data = [["You're beautiful",3,"James Blunt",3.21, true, "WIP"],
+        ["Where are you",3,"London Beat",3.47, true, "WIP"],
+        ["I'll always love my mama",92,"Intruders",412, true, "Fin"],
+        ["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"],
+        ["Let the music play",9,"Barry White",12.2, false, "WIP"],
+        ["I swear",nil,"Boyz II Men",112.7, true, "Cancel"],
+        ["Believe",9,"Elton John",12.2, false, "Todo"],
+        ["Private Dancer",9,"Tina Turner",12.2, false, "Todo"],
+        ["Liberian Girl",9,"Michael Jackson",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 15
+          #title "A Table"
+          #title_attrib (Ncurses::A_REVERSE | Ncurses::A_BOLD)
+          cell_editing_allowed true
+          editing_policy :EDITING_AUTO
+          set_data data, colnames
+        end
+        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) { texta.remove_column(tcm.column(texta.focussed_col)) rescue ""  }
+          bind_key(?+) {
+            acolumn = texta.get_column selcolname
+            w = acolumn.width + 1
+            acolumn.width w
+            #texta.table_structure_changed
+          }
+          bind_key(?-) {
+            acolumn = texta.get_column selcolname
+            w = acolumn.width - 1
+            if w > 3
+            acolumn.width w
+            #texta.table_structure_changed
+            end
+          }
+          bind_key(?>) {
+            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(?<) {
+            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" => r+16, "col" => c, "color" => "yellow", "bgcolor"=>"blue", "display_length"=>60, "height"=>2}
+      eventlabel = RubyCurses::Label.new @form, {'text' => "Events:", "row" => r+19, "col" => c, "color" => "white", "bgcolor"=>"blue", "display_length"=>60, "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-Tab (next col) C-n (Pg Dn), C-p (Pg Up), M-0 Top, M-9 End, C-x (select). 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 = r+21 #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}?")== :YES
+          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) )
+        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/testtabp.rb

@@ -0,0 +1,107 @@
+require 'logger'
+require 'rbcurse'
+#require 'rbcurse/rtabbedpane'
+require 'rbcurse/rtabbedwindow'
+
+class TestTabbedPane
+  def initialize
+    acolor = $reversecolor
+    #$config_hash ||= {}
+  end
+  def run
+    $config_hash ||= Variable.new Hash.new
+    #configvar.update_command(){ |v| $config_hash[v.source()] = v.value }
+      @tw = RubyCurses::TabbedWindow.new nil  do
+        height 18
+        width  60
+        row 5
+        col 20
+        button_type :ok
+      end
+      @tp = @tw.tabbed_pane
+      @tab1 = @tw.add_tab "&Language" 
+      f1 = @tp.form @tab1
+      #$radio = Variable.new
+      radio1 = RadioButton.new f1 do
+        #variable $radio
+        variable $config_hash
+        name "radio1"
+        text "ruby"
+        value "ruby"
+        color "red"
+        row 4
+        col 2
+      end
+      radio2 = RadioButton.new f1 do
+        #variable $radio
+        variable $config_hash
+        name "radio1"
+        text  "jruby"
+        value  "jruby"
+        color "green"
+        row 5
+        col 2
+      end
+      radio3 = RadioButton.new f1 do
+        #variable $radio
+        variable $config_hash
+        name "radio1"
+        text  "macruby"
+        value  "macruby"
+        color "cyan"
+        row 6
+        col 2
+      end
+      @tab2 = @tw.add_tab "&Settings"
+      #f2 = @tab2.form
+      f2 = @tp.form @tab2
+      r = 2
+      butts = [ "Use &HTTP/1.0", "Use &frames", "&Use SSL" ]
+      bcodes = %w[ HTTP, FRAMES, SSL ]
+      butts.each_with_index do |t, i|
+        RubyCurses::CheckBox.new f2 do
+          text butts[i]
+          variable $config_hash
+          name bcodes[i]
+          row r+i
+          col 4
+        end
+      end
+      @tab3 = @tw.add_tab "&Editors"
+      #f3 = @tab3.form
+      f3 = @tp.form @tab3
+      butts = %w[ &Vim E&macs &Jed &Other ]
+      bcodes = %w[ VIM EMACS JED OTHER]
+      row = 3
+      butts.each_with_index do |name, i|
+        RubyCurses::CheckBox.new f3 do
+          text name
+          variable $config_hash
+          name bcodes[i]
+          row row
+          col 4
+        end
+        row +=1
+      end
+      @tw.show
+      @tw.handle_keys
+  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
+    n = TestTabbedPane.new
+    n.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