rbcurse 1.5.0 → 1.5.2

data/examples/testvimsplit.rb

@@ -0,0 +1,112 @@
+# 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'
+
+if $0 == __FILE__
+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
+
+    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

data/examples/testwsshortcuts.rb

@@ -0,0 +1,64 @@
+# this is a test program, tests out tabbed panes. type F1 to exit
+#
+require 'rbcurse'
+require 'rbcurse/core/util/widgetshortcuts'
+
+include RubyCurses
+
+class SetupMessagebox
+  include RubyCurses::WidgetShortcuts
+  def initialize config={}, &block
+    @window = VER::Window.root_window
+    @form = Form.new @window
+  end
+  def run
+    _create_form
+    @form.repaint
+    @window.wrefresh
+    while ((ch = @window.getchar()) != 999)
+      break if ch == ?\C-q.getbyte(0)
+      @form.handle_key ch
+      @window.wrefresh
+    end
+  end
+  def _create_form
+    widget_shortcuts_init
+    stack :margin_top => 2, :margin_left => 3, :width => 50 , :color => :cyan, :bgcolor => :black do
+      label :text => " Details ", :color => :blue, :attr => :reverse, :width => :expand, :justify => :center
+      blank
+      field :text => "john", :attr => :reverse, :label => "%15s" % ["Name: "]
+      field :label => "%15s" % ["Address: "], :width => 15, :attr => :reverse
+      check :text => "Using version control", :value => true, :onvalue => "yes", :offvalue => "no"
+      check :text => "Upgraded to Lion", :value => false, :onvalue => "yes", :offvalue => "no"
+      blank
+      radio :text => "Linux", :value => "LIN", :group => :os
+      radio :text => "OSX", :value => "OSX", :group => :os
+      radio :text => "Window", :value => "Win", :group => :os
+      flow :margin_top => 2, :margin_left => 4, :item_width => 15  do
+        button :text => "Ok"
+        button :text => "Cancel"
+        button :text => "Apply"
+      end
+    end
+  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
+    tp = SetupMessagebox.new()
+    buttonindex = tp.run
+    $log.debug "XXX:  MESSAGEBOX retirned #{buttonindex} "
+  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

data/examples/testwsshortcuts2.rb

@@ -0,0 +1,126 @@
+# this is a test program, tests out widget shortcuts. type C-q to exit
+#
+require 'rbcurse'
+require 'rbcurse/core/util/widgetshortcuts'
+
+include RubyCurses
+include RubyCurses::Utils
+
+class SetupMessagebox
+  include RubyCurses::WidgetShortcuts
+  def initialize config={}, &block
+    @window = VER::Window.root_window
+    @form = Form.new @window
+  end
+  def run
+    _create_form
+    @form.repaint
+    @window.wrefresh
+    catch(:close) do
+    while ((ch = @window.getchar()) != 999)
+      break if ch == ?\C-q.getbyte(0)
+      @form.handle_key ch
+      @window.wrefresh
+    end
+    end # catch
+  end
+  def _create_form
+    widget_shortcuts_init
+    stack :margin_top => 1, :width => :expand do
+      label :text => " Details ", :color => :cyan, :attr => :reverse, :width => :expand, :justify => :center
+      flow :margin_top => 1, :margin_left => 4, :item_width => 50   do
+        stack :margin_top => 0, :margin_left => 3, :width => 50 , :color => :cyan, :bgcolor => :black do
+          box do
+            field :text => "steve", :attr => :reverse, :label => "%15s" % ["Name: "]
+            field :label => "%15s" % ["Address: "], :width => 15, :attr => :reverse
+            blank
+            check :text => "Using version control", :value => true, :onvalue => "yes", :offvalue => "no" do |eve|
+              unless eve.item.value 
+                alert "NO VC! We need to talk"
+              end
+            end
+            check :text => "Upgraded to Lion", :value => false, :onvalue => "yes", :offvalue => "no" do |eve|
+              unless eve.item.value
+                alert "You goin back to Snow Leopard?"
+              end
+            end
+          end # box
+        end
+        stack :margin_top => 0, :margin_left => 3, :width => 50 , :color => :cyan, :bgcolor => :black do
+          box :title => "OS Maintenance", :margin_left => 2 do
+            radio :text => "Linux", :value => "LIN", :group => :os
+            radio :text => "OSX", :value => "OSX", :group => :os
+            radio :text => "Window", :value => "Win", :group => :os
+            blank
+          flow  :item_width => 15 do
+            button :text => "Install" do 
+              # you can avoid this by giving the radio buttons your own Variable (see test2.rb)
+              choice = @variables[:os].value
+              case choice
+              when ""
+                alert "Select an OS"
+              when "OSX", "LIN"
+                alert "Good choice"
+              else
+                alert "Pfft !"
+              end
+            end
+            button :text => "Uninstall"
+            button :text => "Delete"
+          end
+          end # box
+        end
+      end # flow
+      #button :text => "Execute"
+      text = ["      #[reverse]Unix Philosophy #[end]  ", 
+        "#[fg=green, underline]Eric Raymond#[end] in his book, #[fg=green, underline]The Art of Unix Programming#[end] summarized the Unix philosophy.",
+      "  ",
+        "Rule of #[fg=yellow]Modularity#[end]: Write simple parts connected by clean interfaces.",
+        "Rule of #[fg=blue]Clarity#[end]: #[bold]Clarity#[end] is better than cleverness.",
+        "Rule of #[fg=red]Separation#[end]: Separate #[bold]policy#[end] from mechanism; separate interfaces from engines.",
+          "Rule of #[fg=green]Simplicity#[end]: Design for #[bold]simplicity;#[end] add complexity only where you must.",
+        "Rule of #[fg=magenta]Parsimony#[end]: Write a big program only when it is clear by demonstration that nothing else will do.",
+        "Rule of #[fg=cyan]Representation#[end]: Fold knowledge into #[bold]data#[end] so program logic can be stupid and robust"]
+        text << "For more check: #[underline]http://en.wikipedia.org/wiki/Unix_philosophy#Eric_Raymond#[end]"
+        formatted = []
+        #text.each { |line| formatted << @window.convert_to_chunk(line) }
+
+      #textview :text => formatted
+        #textview do |t| t.formatted_text(text, :tmux) end
+        t = textview :title => 'tmux format'
+        t.formatted_text(text, :tmux)
+        t1 = textview :title => 'ansi formatted document'
+        text = File.open("data/color.2","r").readlines
+        t1.formatted_text(text, :ansi)
+
+      flow do
+        #box do
+          button :text => "  Ok  " do  alert "Pressed okay"  end
+          button :text => "Cancel" do  confirm "Do you wish to Quit?" ; throw :close;  end
+          button :text => "Apply "
+        #end
+      end
+
+    end
+
+  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
+    tp = SetupMessagebox.new()
+    buttonindex = tp.run
+    $log.debug "XXX:  MESSAGEBOX retirned #{buttonindex} "
+  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

data/examples/todo.yml

@@ -0,0 +1,191 @@
+--- 
+- - FIXME
+  - MSGBOX
+  - 5
+  - "Confirm dialog: box vertical line overwritten in 2 spots"
+  - TODO
+- - FIXME
+  - MSGBOX
+  - 5
+  - "Confirm dialog: use normal key as hotkey also"
+  - TODO
+  - 2009-01-20 11:44:49.753534 +05:30
+- - FIXME
+  - MSGBOX
+  - 5
+  - "Confirm dialog: arrow keys not navigating anylonger"
+  - TODO
+  - 2009-01-20 11:45:27.031136 +05:30
+- - FIXME
+  - GEN
+  - 9
+  - Message Box sizing
+  - TODO
+  - 2009-01-22 20:39:21.220964 +05:30
+- - DONE
+  - LIST
+  - 5
+  - case insensitive char search in list and combo
+  - TESTED
+  - 2009-02-21 20:43:05.662213 +05:30
+- - DONE
+  - LIST
+  - 5
+  - case insensitive char search in list and combo
+  - TESTED
+  - 2009-02-21 20:44:29.277384 +05:30
+- - DONE
+  - TABLE
+  - 5
+  - increase the maxlen of this field please. Let us see how it goes.
+  - TESTED
+- - DONE
+  - TABLE
+  - 5
+  - Can we disable down arrow in Chkbox in table?
+  - TESTED
+  - 2009-01-19 00:00:00.242912 +05:30
+- - DONE
+  - TABLE
+  - 0
+  - editing on enter
+  - TESTED
+  - 2009-01-19 01:37:00.242912 +05:30
+- - DONE
+  - TABLE
+  - 5
+  - cell editors pcol is not being reset each time
+  - TESTED
+  - 2009-01-19 17:47:00.419937 +05:30
+- - DONE
+  - TABLE
+  - 5
+  - Use TAB for intercell navig. use M-TAB for next f
+  - TESTED
+  - 2009-01-20 00:38:19.606544 +05:30
+- - DONE
+  - TABLE
+  - 5
+  - Searching
+  - TESTED
+  - 2009-02-21 20:42:10.140948 +05:30
+- - DONE
+  - TABLE
+  - 3
+  - Columns editable or not
+  - TESTED
+  - 2009-02-21 20:43:10.386261 +05:30
+- - DONE
+  - TABLE
+  - 1
+  - Any way to start a table with no data and pop late
+  - TODO
+  - 2009-02-21 20:43:33.172668 +05:30
+- - DONE
+  - TABLE
+  - 3
+  - Columns editable or not
+  - TESTED
+  - 2009-02-21 20:44:33.451462 +05:30
+- - DONE
+  - TABLE
+  - 1
+  - Any way to start a table with no data and pop late
+  - TODO
+  - 2009-02-21 20:44:48.137930 +05:30
+- - DONE
+  - GEN
+  - 5
+  - Make  widget of Keylabelprinter
+  - TESTED
+  - 2009-01-20 00:38:43.052790 +05:30
+- - DONE
+  - GEN
+  - 5
+  - "Added Action class shared by Button Menuitem "
+  - TESTED
+  - 2009-01-22 18:08:28.026892 +05:30
+- - DONE
+  - GEN
+  - 5
+  - "Added PopupMenu 2009-01-22 18:09 "
+  - TESTED
+  - 2009-01-22 18:09:34.437147 +05:30
+- - TODO
+  - LIST
+  - 0
+  - call on_enter and on_leave of component
+  - TOTEST
+  - 2009-01-19 15:38:27.091120 +05:30
+- - TODO
+  - LIST
+  - 5
+  - case insensitive char search in list and combo
+  - TESTED
+- - TODO
+  - TABLE
+  - 3
+  - Columns editable or not
+  - TESTED
+- - TODO
+  - TABLE
+  - 1
+  - Any way to start a table with no data and pop late
+  - TODO
+- - TODO
+  - TABLE
+  - 1
+  - table.set_data should check if models already created.
+  - TODO
+- - TODO
+  - TABLE
+  - 5
+  - Set column_class in TableColumn, to avoid hassles
+  - TODO
+- - TODO
+  - TABLE
+  - 2
+  - Table sorting and filtering is required - using VIEW
+  - TODO
+- - TODO
+  - TABLE
+  - 5
+  - Table height and col widths auto sizing or FILLING extra space.
+  - TODO
+- - TODO
+  - TEXTAREA
+  - 9
+  - "Textarea: wrap options NONE, COLUMN"
+  - TODO
+  - 2009-01-20 01:04:15.084400 +05:30
+- - TODO
+  - GEN
+  - 5
+  - Modified should check if value changed, not UP etc
+  - TOTEST
+- - TODO
+  - GEN
+  - 5
+  - Give a decent FileChooser and FileSaver
+  - TODO
+- - TODO
+  - GEN
+  - 5
+  - Focus Traversable vs focusable
+  - TODO
+- - TODO
+  - GEN
+  - 5
+  - "Action class: fire event for listeners"
+  - TODO
+  - 2009-01-22 20:09:50.624075 +05:30
+- - TODO
+  - FIELD
+  - 5
+  - "Field: OVERWRITE Mode"
+  - TODO
+- - TODO
+  - FIELD
+  - 5
+  - "Field: Auto-skip when reaching end of maxlen"
+  - TODO