rbcurse 1.4.1 → 1.5.0.pre1

data/examples/testvimsplit.rb

@@ -1,112 +0,0 @@
-# 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/rlistbox'
-require 'rbcurse/rtextview'
-require 'rbcurse/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.4}
-    lb = Listbox.new nil, :list => ["ruby","perl","lisp","jaava", "c-blunt"] , :name => "mylist"
-    lb1 = Listbox.new nil, :list => ["roger","borg","haas","tsonga", "kolya","delpotro"] , :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 this world.\nThis is a textbox.\nUse arrow keys, j/k/h/l/gg/G/C-a/C-e/C-n/C-p\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, nil, 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

@@ -1,64 +0,0 @@
-# this is a test program, tests out tabbed panes. type F1 to exit
-#
-require 'rbcurse'
-require 'rbcurse/common/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

@@ -1,126 +0,0 @@
-# this is a test program, tests out tabbed panes. type F1 to exit
-#
-require 'rbcurse'
-require 'rbcurse/common/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 "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

@@ -1,191 +0,0 @@
---- 
-- - 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