rbcurse 1.4.1 → 1.5.0.pre1

data/TODO2.txt

@@ -1,118 +0,0 @@
-  1	[x] (1) buffered version of Listbox (2009-12-26) (x2010-01-18)
-        -  1.1	[x] what form is celleditor using. check and fix (2010-01-04) (x2010-01-05) (x2010-01-07)
-        -  1.2	[x] scrollpane scrollin till 18th row only 
        * Use downarrow to go down (2010-01-04) (x2010-01-05) (x2010-01-07)
-        -  1.3	[x] testscrolllb.rb on enter cursor at pos 0 io 5th or so. Ok in test2.rb (2010-01-05) (x2010-01-18)
-  2	[x] buffered version of TextArea (2009-12-26) (x2010-01-19)
-        -  2.1	[x] cursor position not updated when insert text 
        * just testing indentation (2009-12-27) (x2009-12-31)
-                   -  2.1.1	[x] we have to set main forms row and col from rbtextarea (2009-12-28) (x2009-12-31)
-                   -  2.1.2	[x] to factor in rscrollpane's coords, so cursor inside scr (2009-12-28) (x2009-12-31)
-        -  2.3	[x] remove var oldcli since not using (2010-01-04) (x2010-01-07)
-  3	[x] rscrollpane needs on_enter and set_form_row etc (2009-12-26) (x2009-12-28)
-  4	[x] check how is cursor managed by rtabbedpane (2009-12-28) (x2009-12-29)
-        -  4.1	[x] rtabbedpane does its own highlighting (2009-12-29) (x2009-12-29)
-  6	[x] make form.set_form_row which bubbles up row and col
rather than directly setting row and col (2009-12-29) (x2009-12-31)
-  7	[x] (A) change addrowcol to percolate up too (2009-12-29) (x2010-01-05)
-  8	[x] (A) change direct references to form.row and col to call methods (2009-12-29) (x2010-02-18)
- 10	[x] @scrollpane needs to stop scrolling if no more data 
- actually it does, i had made the textarea large (2009-12-29) (x2009-12-29)
- 11	[x] (A) new textarea breaks test2.rb. see what on, no display 
 * display happens on focus/keypress in test2.rb 
 * display happens on up down arrow, not left right. check if repaint is called comparing old and new files 
 * Ack listbox is erasing or overwriting new textarea - very strange 
 * now buffered object write to main window, so window does not overwrite (2009-12-31) (x2010-01-03)
-        -  11.1	[x] textarea: footer not showing (2010-01-01) (x2010-01-02)
-        -  11.2	[x] textarea: some flag not updated on a s d f, not showing in testkeypress.rb (2010-01-01) (x2010-01-01)
- 12	[x] (A) review rwidget code regarding printing 
 * which window does textarea print on, is it transferred to main window 
 * now buffered object write to main window, so window does not overwrite (2010-01-03) (x2010-01-03)
- 13	[x] (A) review just print_title and border since they overwrite textarea (2010-01-03) (x2010-01-03)
- 14	[x] copy testwidget to textview and tv to old (2010-01-03) (x2010-01-03)
- 15	[x] buffered version of Table (2010-01-03) (x2010-01-19)
- 16	[x] (2) putting buffered objects in splitpane and testing (2010-01-03) (x2010-02-27)
-        -  16.1	[x] testing textviews inside splitpane (2010-01-06) (x2010-01-13)
-                    -  16.1.1	[x] test various keys in splitpane with textview (2010-01-08) (x2010-01-13)
-        -  16.2	[x] add oneTouchExpandable to +splitpane (2010-01-09) (x2010-02-27)
-        -  16.3	[x] test splitpane with textareas (2010-01-13) (x2010-01-18)
-        -  16.4	[x] test splitpane with one splitpane and 3 textviews (2010-01-13) (x2010-01-18)
-        -  16.5	[x] test splitpane with scrollpane and textviews (2010-01-15) (x2010-01-18)
- 18	[x] (A) popups now showing one blak line below. need to adjust  (2010-01-05) (x2010-01-06)
- 19	[x] make a scrollable form using Pad. Hint: scrollpane does that. (2010-01-06) (x2010-03-07)
- 20	[x] (A) investigate crash +splitpane, ht is ht/2-1 and you scroll C-n (2010-01-09) (x2010-01-11)
-        -  20.1	[x] fixed for HORIZ, but do for VERT (2010-01-09) (x2010-01-11)
- 21	[x] test out tabbedpane, and compare code with scroll (newtesttabp.rb) (2010-01-10) (x2010-02-21)
- 22	[x] (A) sudden blank line in FC in splitpane see testsplittv.rb and tvv.rb 
 * that's due to top and left 0 by default in create_buffer (2010-01-11) (x2010-01-12)
- 23	[x] how to pass top left etc to widget so when it does a create_buffer those values are reached 
 * set_buffering does this (2010-01-12) (x2010-02-18)
- 24	[x] add parent attrib, pass parent in child() and first_component, 
add a method to pushup row and col adding roffset and coloffset at each level (2010-01-12) (x2010-01-13)
- 26	[x] Splitpane: Vert mode, comp 2 doesn't retain cursor when moving (2010-01-13) (x2010-01-13)
- 27	[x] (A) TextArea fix direct calls to form.row and form.col (2010-01-14) (x2010-01-14)
- 28	[x] (A) TextArea: borders get overwritten 
 * chomp was required when using << (2010-01-14) (x2010-01-14)
- 29	[x] what if we don't want to print borders, since that eats an extra
line and col. Can we switch off and reclaim the line and col (2010-01-15) (x2010-02-18)
- 31	[x] move create_buffer to repaintin TA and TV and others, so that 
enduser does not have to bother. scroll and split can set internally 
 * All create_buffer calls moved to repaint. Maybe table pending (2010-01-16) (x2010-02-18)
- 37	[x] (B) test rtable in splitpane and scrollpanes 
 * done rtable in scrollpane (2010-01-18) (x2010-02-24)
- 38	[x] (B) test various widgets inside rtabbedpane (2010-01-19) (x2010-02-22)
- 41	[x] Textareas: C-a C-e does not repain which is good, but footer not updated (2010-01-23) (x2010-01-25)
- 42	[x] check where we are directly calling wmove and why (2010-01-23) (x2010-01-25)
- 43	[x] we need to pass actual highest form down as well as each components absolute coords so cursor display can happen quickly and accurately. 
 * RFED16 branch has absolute positioning (2010-01-23) (x2010-02-18)
- 44	[x] TextView: add more vi keys (2010-02-07) (x2010-02-24)
- 46	[x] RFED16 branch: Redo table as per new simple approach (2010-02-18) (x2010-02-19)
- 47	[x] RFED16 branch: Redo tabbedpane as per new simple approach (2010-02-18) (x2010-02-21)
- 49	[x] (A) Tabbing in top of tabbedpane gives funny staggered effect ?? (2010-02-21) (x2010-02-22)
- 50	[x] (A) Tabbedpane: scrolling not updating N and P  (2010-02-21) (x2010-03-01)
- 51	[x] TabbedPane: add on the fly tabs in tabbedpane - what about second level (2010-02-21) (x2010-03-05)
- 53	[x] Splitpane needs multiplier for resizing panes (2010-02-24) (x2010-02-26)
- 54	[x] Scrollpane needs multiplier for scrolling (2010-02-24) (x2010-02-26)
- 55	[x] (1) keymapping: add symbols and test mapping externally (2010-02-27) (x2010-02-27)
- 56	[x] (A) Splitpane: add oneTouchExpandable to +splitpane (2010-02-27) (x2010-03-05)
- 57	[x] TabbedPane: can we directly add component (2010-02-27) (x2010-03-01)
- 60	[x] (A) Textview: should scroll horizontally (2010-02-28) (x2010-03-05)
- 62	[x] (A) TabbedPane: remove subheading, wastes space (2010-03-01) (x2010-03-02)
- 63	[x] (E) some means of editing a string at a location wiht option of C-c or Esc and default, take from commons1.rb (2010-03-05) (x2010-03-06)
- 64	[x] (F) TextArea and TextView Field Table etc: yanking and pasting globally (2010-03-05) (x2010-03-10)
- 65	[x] (F) textarea needs some undo more than just undelete_line 
 * http://rbcurse.tumblr.com/post/429578665/undo-in-text-widgets (2010-03-05) (x2010-03-12)
- 66	[x] (E) Text object should have ability to read in a text file with key (2010-03-05) (x2010-03-12)
- 70	[x] (E) rbgetstr: tab completion, as in filename completion etc (2010-03-06) (x2010-03-12)
- 71	[x] (D) Demo: using scrollform (2010-03-07) (x2010-03-16)
- 72	[ ] (F) TextView: keymaps. p 699 (2010-03-07)
- 73	[ ] (F) TextView: freezing an area horiz vertically (2010-03-07)
- 74	[x] General: move key bindings to bind_key so user can see what's bound (2010-03-07)
- 78	[x] (A) Undo: refactor undomanager and undohandler (2010-03-08) (x2010-03-10)
- 79	[x] (A) Demo: get sqlc.rb demo running  (2010-03-09) (x2010-03-14)
- 80	[x] firehandler: can we combine consecutive ones into one, passing an array? (2010-03-09) (x2010-03-12)
- 81	[x] (F) Textview: multiple buffer version (2010-03-10) (x2010-03-12)
- 82	[x] (F) Textview: partial editable version (2010-03-10) (x2010-03-12)
- 83	[x] make error_message into a Variable, so app can attach it to a label if required (2010-03-11)
- 84	[x] (A) move some edit methods from textarea into module so we can call with diff bindings from textview editable (2010-03-12) (x2010-03-12)
- 85	[x] (F) how about getting ascii tables in here for sql stuff (2010-03-12)
- 87	[x] (E) MultiTextView: list buffers to do (2010-03-12) (x2010-03-15)
- 88	[x] (E) TextV+A, when printing a screenful, store actual maxlen for scrolling left (2010-03-12) (x2010-03-13)
- 91	[x] (B) tabbedpane: adding new tab dyn, not immediately shown (2010-03-14) (x2010-03-15)
- 94	[x] (F) MultiContainer: takes n objects, fills, one can cycle, just as in MultiTextView except that any component can be put.  (2010-03-15) (x2010-03-15)
- 97	[x] (A) Scrollform : dont we need some indicators or bars  (2010-03-17) (x2010-03-18)
- 98	[x] (A) SCrollFOrm: cursor not on first field to start with (2010-03-17) (x2010-03-18)
- 99	[ ] scrollform demo: add larger objects like textview and test (2010-03-18)
-100	[x] (A) sqlm.rb finish this with multicontainer and table (2010-03-19) (x2010-03-19)
-101	[x] Menu: simpler rewrite ?? (2010-03-20)
-102	[x] (A) TabbedPane: rewrite (2011-09-21)
-103	[x] Messagebox: rewrite (2011-09-21)
-104	[x] (E) Gen: catching extended keys C-left, S-F10 (2011-09-21)
-105	[x] (A) Window: combine array into existing constructor (2011-09-21)
-106	[x] (A) gen: check if that buffering nonsense is still being used? (2011-09-21)
-107	[ ] (F) find_file like microemacs (2011-09-21)
-108	[ ] (F) color schemes (applying at form or app level) (2011-09-21)
-109	[ ] (E) App: stack and flow to be objects so RESIZE can happen (2011-09-21)
-110	[ ] Minor stuff (2011-09-21)
-    110.1	[ ] (O) Make event objects only if some listener exists (2010-03-08)
-    110.2	[ ] (F) how to map : bind w, 12j (to another key binding) 
 * if recogn as keys, then call handle_key on self with each key in array (2010-03-01)
-    110.3	[ ] (E) Text objects: execute ex commands ??? 
 * printf '%cs/change this/to that/nwq' '%' | ex file.name (2010-03-05)
-    110.4	[ ] (E) TextView etal: store path so save can be done?  (2010-03-12)
-    110.5	[ ] (E) table: yank one or more rows into kill ring as comma delim (2010-03-17)
-    110.6	[ ] Table needs multiplier for resizing cols (2010-02-24)
-    110.8	[ ] (O) maybe we should combine set_form_row and col since we call them one after another nowadays (2010-01-16)
-    110.11	[ ] should parent set scrollatrows for lb and tv and ta ? (2010-01-17)
-    110.12	[ ] a Box class = would that help? (2010-03-08)
-111	[ ] (B) me: arrow down and up moves vertically not to next field (2011-09-21)
-112	[ ] (E) app: add popup (2011-09-21)
-113	[ ] (F) basic html view like alpine help with link, underline (2011-09-21)
-115	[ ] (F) widgets shd add major keys to keylabel if present (2011-09-28)
-116	[ ] (F) colormap can check for colorscheme before setting colors (2011-10-01)
-117	[ ] make readme and homepage simple and clean like urwid (2011-10-01)
-118	[x] return self from dsl_property and dsl_accessor (2011-10-02)
-119	[x] PropertyVetoException to disallow change (2011-10-02)
-120	[x] StatusWindow: 2 line bottom window for alert, confirm and status (2011-10-02)
-121	[x] cleanup Widget and others, remove buffering nonsense (2011-10-02)
-122	[x] Add valid_range to Field (2011-10-02)
-123	[x] (A) Make listbox data more accessible from lb class (2011-10-02)
-124	[x] look at sandy,ne,pygments source for ncurses syntax highlighting (2011-10-07)

data/examples/README.txt

@@ -1,67 +0,0 @@
-
-README
-------
-
-### For ruby 1.9.2, 2010-08-23 11:48 
-
- Changes in 1.9.2 require the following changes:
-  - $: no longer includes ".". 
-    Fixed 2 examples.
-  - hash_update: cannot update hash during iteration
-    Modified rwidget.rb and rtable.rb
-
-### IMPORTANT 
-
-1. If you are trying out the examples from a folder that does not have
-write access (e.g. /opt/local/lib...), then you may have to run the
-examples, with "sudo", since a log file is created. Or else, you could
-copy the examples elsewhere, or change to location of the log file
-(view.log) before running.
-
-    sudo ruby test2.rb
-
-Update: Added an environment variable named LOGDIR. So you may do:
-
-    LOGDIR=~/ ruby test2.rb
-
-or just set LOGDIR
-
-    export LOGDIR=~/tmp
-
-2. Please change directory to the examples folder before executing, since
-some data files, or local programs may be loaded.
-
-## sqlc.rb
-
-A sql client using tabbedpanes.
-
-This uses a file testd.db that can be downloaded (check file for
-location) or created using:
-
-    sqlite3 testd.db < data.txt
-
-Enter an sql query in the textbox. Click Run.
-
-Or Press Enter on the name of a table in the tables listing. Its
-contents will be shown in a new tab in the tabbedpane.
-
-Or Press Space on a table. Its columns are shown below. Now select
-columns and then click Construct. Selected columns will be used to
-construct a query. Press Run to execute it.
-
-If you are inside a table, use Alt-TAb to exit.
-
-## sqlm.rb
-
-Identical to sqlc.rb. This demo uses a multi-container for multiple
-resultsets instead of a tabbedpane.
-
-* * * * *
-
-Please check the examples  with  test*.rb - since they are updated. 
-At the time of writing, viewtodo.rb may not be functional since I
-changed to structure of the yaml file.
-
-## vim:tw=72:ai:formatoptions=tcqln:nocindent:
-
-

data/examples/abasiclist.rb

@@ -1,33 +0,0 @@
-require 'rbcurse/app'
-require 'rbcurse/rbasiclistbox'
-
-# just a simple test to ensure that rbasiclistbox is running inside a container.
-App.new do 
-  header = app_header "rbcurse #{Rbcurse::VERSION}", :text_center => "Basic List Demo", :text_right =>"New Improved!", :color => :black, :bgcolor => :white, :attr => :bold 
-  message "Press F10 to escape from here"
-
-  #list = %W{ bhikshu boddisattva avalokiteswara mu mun kwan paramita prajna samadhi sutra shakyamuni }
-  list = File.open("data/brew.txt",'r').readlines
-  list2 = File.open("data/gemlist.txt",'r').readlines
-  lb = nil
-  vimsplit :row => 1, :col => 0, :suppress_borders => false, :width => 60, :height => Ncurses.LINES-2, :weight => 0.4, :orientation => :VERTICAL do |s|
-    lb = RubyCurses::BasicListbox.new nil, :list => list, :suppress_borders => false
-    #lb = RubyCurses::BasicListbox.new nil, :list => list, :show_selector => true, :row_selected_symbol => "*", :suppress_borders => false
-    #lb = RubyCurses::BasicListbox.new nil, :list => list
-    #lb = list_box "A list", :list => list
-    lb.show_selector = false
-    #lb.row_selected_symbol = "*"
-    #lb = list_box "A list", :list => list
-    
-    s.add lb, :FIRST
-    #lb2= RubyCurses::BasicListbox.new nil, :list => list.shuffle, :justify => :center
-    lb2 = basiclist :list => list2, :justify => :left, :suppress_borders => false
-    s.add lb2, :SECOND
-    label({:text => "checking overwrite from list", :row => 10, :col => 60})
-    label({:text => "checking overwrite from list 1", :row => 11, :col => 60})
-  end
-  label({:text => "Press F4 and F5 to test popup, space or enter to select", :row => Ncurses.LINES-1, :col => 0})
-
-  @form.bind_key(FFI::NCurses::KEY_F4) { row = lb.current_index+lb.row; col=lb.col+lb.current_value.length+1;  ret = popuplist(%w[ andy berlioz strauss tchaiko matz beethoven], :row => row, :col => col, :title => "Names", :bgcolor => :blue, :color => :white) ; alert "got #{ret} "}
-  @form.bind_key(FFI::NCurses::KEY_F5) {  list = %x[ls].split("\n");ret = popuplist(list, :title => "Files"); alert "Got #{ret} #{list[ret]} " }
-end # app

data/examples/alpmenu.rb

@@ -1,42 +0,0 @@
-require 'rbcurse/app'
-
-  App.new do 
-    #title "Demo of Menu - rbcurse"
-    #subtitle "Hit F1 to quit, F2 for menubar toggle"
-    header = app_header "rbcurse #{Rbcurse::VERSION}", :text_center => "Alpine Menu Demo", :text_right =>""
-    #message_row(27)
-
-    stack :margin_top => 10, :margin => 15 do
-      #w = "Messages".length + 1
-      w = 60
-      menulink "&View Todo", :width => w, :description => "View TODO in sqlite"  do |s|
-        message "Pressed #{s.text} "
-        require './viewtodo'; todo = ViewTodo::TodoApp.new; todo.run
-      end
-      blank
-      menulink "&Edit Todo", :width => w, :description => "Edit TODO in CSV"  do |s|
-        message "Pressed #{s.text} "
-        require './testtodo'; todo = TestTodo::TodoApp.new; todo.run
-      end
-      blank
-      menulink "&Messages", :width => w, :description => "View messages in current folder"  do |s|
-        message "Pressed #{s.text} "
-        load './menu1.rb'
-      end
-      blank
-      menulink "&Compose", :width => w, :description => "Compose a mail"  do |s|
-        message "Pressed #{s.getvalue} "
-      end
-      blank
-      menulink "Setup", :mnemonic => "?", :width => w, :description => "Configure Alpine options"  do |s|
-        message "Pressed #{s.text} "
-      end
-      blank
-      menulink "&Quit", :width => w, :description => "Quit this application"  do |s|
-        quit
-      end
-      @form.bind(:ENTER) do |w|
-        header.text_right = w.text
-      end
-    end # stack
-  end # app

data/examples/app.rb

@@ -1,859 +0,0 @@
-=begin
-  * Name: App
-  * Description: Experimental Application class
-  * Author: rkumar (arunachalesha)
-  * file created 2010-09-04 22:10 
-Todo: 
-  --------
-  * License:
-    Same as Ruby's License (http://www.ruby-lang.org/LICENSE.txt)
-
-=end
-#require 'rubygems'
-#require 'ncurses' # FFI
-require 'logger'
-require 'rbcurse'
-
-#include Ncurses
-include RubyCurses
-include RubyCurses::Utils
-module RubyCurses
-  extend self
-
- # NOTE most of this has move to lib/rbcurse/app.rb
-  #
-  class Widget
-    def changed *args, &block
-      bind :CHANGED, *args, &block
-    end
-    def leave *args, &block
-      bind :LEAVE, *args, &block
-    end
-    def enter *args, &block
-      bind :ENTER, *args, &block
-    end
-    # actually we already have command() for buttons
-    def click *args, &block
-      bind :PRESS, *args, &block
-    end
-  end
-  #class Listbox
-    #def text
-      #return get_content()[@current_index]
-    #end
-  #end
-  class CheckBox
-    # a little dicey XXX 
-    def text(*val)
-      if val.empty?
-        @value ? @onvalue : @offvalue
-      else
-        super
-      end
-    end
-  end
-  class App
-    attr_reader :config
-    attr_reader :form
-    attr_reader :window
-    attr_writer :quit_key
-
-
-    # i should be able to pass window coords here in config
-    # :title
-    def initialize config={}, &block
-      #$log.debug " inside constructor of APP #{config}  "
-      @config = config
-      @app_row = @app_col = 0
-      @stack = [] # stack's coordinates
-      @flowstack = []
-      @variables = {}
-      # if we are creating child objects then we will not use outer form. this object will manage
-      @current_object = [] 
-      init_vars
-      run &block
-    end
-    def init_vars
-      @quit_key ||= KEY_F1
-      # actually this should be maintained inside ncurses pack, so not loaded 2 times.
-      # this way if we call an app from existing program, App won't start ncurses.
-      unless $ncurses_started
-        init_ncurses
-      end
-      unless $log
-        $log = Logger.new((File.join(ENV["LOGDIR"] || "./" ,"rbc13.log")))
-        $log.level = Logger::DEBUG
-        colors = Ncurses.COLORS
-        $log.debug "START #{colors} colors  --------- #{$0}"
-      end
-    end
-    def logger; return $log; end
-    def close
-      $log.debug " INSIDE CLOSE, #{@stop_ncurses_on_close} "
-      @window.destroy if !@window.nil?
-      $log.debug " INSIDE CLOSE, #{@stop_ncurses_on_close} "
-      if @stop_ncurses_on_close
-        VER::stop_ncurses
-        $log.debug " CLOSING NCURSES"
-      end
-      #p $error_message.value unless $error_message.value.nil?
-      $log.debug " CLOSING APP"
-      #end
-    end
-    # not sure, but user shuld be able to trap keystrokes if he wants
-    # but do i still call handle_key if he does, or give him total control.
-    # But loop is already called by framework
-    def loop &block
-      @form.repaint
-      @window.wrefresh
-      Ncurses::Panel.update_panels
-      while((ch = @window.getchar()) != @quit_key )
-        str = keycode_tos ch
-        @keyblock.call(str.gsub(/-/, "_").to_sym) if @keyblock
-        $log.debug  "#{ch} got (#{str})"
-        yield ch if block # <<<----
-        @form.handle_key ch
-        @form.repaint
-        @window.wrefresh
-      end
-    end
-    # returns a symbol of the key pressed
-    # e.g. :C_c for Ctrl-C
-    # :Space, :bs, :M_d etc
-    def keypress &block
-     @keyblock = block
-    end
-    # updates a global var with text. Calling app has to set up a Variable with that name and attach to 
-    # a label so it can be printed.
-    def message text
-      @message.value = text
-    end
-    def message_row row
-      @message_label.row = row
-    end
-    #
-    # @group methods to create widgets easily
-    #
-    # process arguments based on datatype, perhaps making configuration
-    # of some components easier for caller avoiding too much boiler plate code
-    # 
-    # create a field
-    def field *args, &block
-      config = {}
-      events = [ :CHANGED,  :LEAVE, :ENTER, :CHANGE ]
-      block_event = :CHANGED # LEAVE, ENTER, CHANGE
-
-      args.each do |arg| 
-        case arg
-        when Array
-          #puts "row, col #{arg[0]} #{arg[1]} "
-          # we can use r,c, w, h
-          row, col, display_length = arg
-          config[:row] = row
-          config[:col] = col
-          config[:display_length] = display_length if display_length
-        when Hash
-          config.merge!(arg)
-          block_event = config.delete(:block_event){ block_event }
-          raise "Invalid event. Use #{events}" unless events.include? block_event
-          #puts "hash #{config}"
-        when String
-          title = arg
-          config[:name] = title
-        end
-      end
-      if @instack
-        # most likely you won't have row and col. should we check or just go ahead
-        col = @stack.last.margin
-        config[:row] = @app_row
-        config[:col] = col
-        @app_row += 1
-      end
-      field = Field.new @form, config
-      # shooz uses CHANGED, which is equivalent to our CHANGE. Our CHANGED means modified and exited
-      if block
-        field.bind(block_event, &block)
-      end
-      return field
-    end
-      #instance_eval &block if block_given?
-      # or
-      #@blk = block # for later execution using @blk.call()
-      #colorlabel = Label.new @form, {'text' => "Select a color:", "row" => row, "col" => col, "color"=>"cyan", "mnemonic" => 'S'}
-      #var = RubyCurses::Label.new @form, {'text_variable' => $results, "row" => r, "col" => fc}
-
-    def label *args
-      block_event = nil
-      config = {}
-
-      args.each do |arg| 
-        case arg
-        when Array
-          row, col, display_length, height = arg
-          config[:row] = row
-          config[:col] = col
-          config[:display_length] = display_length if display_length
-          config[:height] = height || 1
-        when Hash
-          config.merge!(arg)
-        when String
-          config[:text] = arg
-        end
-      end
-      config[:height] ||= 1
-      if @instack
-        # most likely you won't have row and col. should we check or just go ahead
-        col = @stack.last.margin
-        config[:row] = @app_row
-        config[:col] = col
-        @app_row += config[:height]
-      end
-      label = Label.new @form, config
-      # shooz uses CHANGED, which is equivalent to our CHANGE. Our CHANGED means modified and exited
-      return label
-    end
-    alias :text :label
-    def button *args, &block
-      config = {}
-      events = [ :PRESS,  :LEAVE, :ENTER ]
-      block_event = :PRESS
-
-      #process_args args, config, block_event, events
-      args.each do |arg| 
-        case arg
-        when Array
-          #puts "row, col #{arg[0]} #{arg[1]} "
-          # we can use r,c, w, h
-          row, col, display_length, height = arg
-          config[:row] = row
-          config[:col] = col
-          config[:display_length] = display_length if display_length
-          config[:height] = height if height
-        when Hash
-          config.merge!(arg)
-          block_event = config.delete(:block_event){ block_event }
-          raise "Invalid event. Use #{events}" unless events.include? block_event
-          #puts "hash #{config}"
-        when String
-          config[:text] = arg
-          config[:name] = arg
-        end
-      end
-      # flow gets precedence over stack
-      _position(config)
-      button = Button.new @form, config
-      # shooz uses CHANGED, which is equivalent to our CHANGE. Our CHANGED means modified and exited
-      if block
-        button.bind(block_event, &block)
-      end
-      return button
-    end
-    #
-    # create a list
-    # Since we are mouseless, one can traverse without selection. So we have a different
-    # way of selecting row/s and traversal. XXX this aspect of LB's has always troubled me hugely.
-    def list_box *args, &block
-      config = {}
-      # TODO confirm events
-      # listdataevent has interval added and interval removed, due to multiple
-      # selection, we have to make that simple for user here.
-      events = [ :LEAVE, :ENTER, :ENTER_ROW, :LEAVE_ROW, :LIST_DATA_EVENT ]
-      # TODO how to do this so he gets selected row easily
-      block_event = :ENTER_ROW
-
-      # TODO abstract this into a new method so no copying
-      args.each do |arg| 
-        case arg
-        when Array
-          #puts "row, col #{arg[0]} #{arg[1]} "
-          # we can use r,c, w, h
-          row, col, display_length, height = arg
-          config[:row] = row
-          config[:col] = col
-          config[:display_length] = display_length if display_length
-          config[:height] = height if height
-        when Hash
-          config.merge!(arg)
-          block_event = config.delete(:block_event){ block_event }
-          raise "Invalid event. Use #{events}" unless events.include? block_event
-          #puts "hash #{config}"
-        when String
-          config[:name] = arg
-          config[:title] = arg
-        end
-      end
-      # naive defaults, since list could be large or have very long items
-      # usually user will provide
-      config[:height] ||= config[:list].length + 2
-      if @current_object.empty?
-        $log.debug "1 APP LB w: #{config[:width]} ,#{config[:name]} "
-        config[:width] ||= @stack.last.width if @stack.last
-        $log.debug "2 APP LB w: #{config[:width]} "
-        config[:width] ||= longest_in_list(config[:list])+2
-        $log.debug "3 APP LB w: #{config[:width]} "
-      end
-      # if no width given, expand to flows width XXX SHOULD BE NOT EXPAND ?
-      #config[:width] ||= @stack.last.width if @stack.last
-      #if config.has_key? :choose
-      config[:default_values] = config.delete :choose
-      # we make the default single unless specified
-      config[:selection_mode] = :single unless config.has_key? :selection_mode
-      if @current_object.empty?
-      if @instack
-        # most likely you won't have row and col. should we check or just go ahead
-        col = @stack.last.margin
-        config[:row] = @app_row
-        config[:col] = col
-        @app_row += config[:height] # this needs to take into account height of prev object
-      end
-      end
-      useform = nil
-      useform = @form if @current_object.empty?
-      field = Listbox.new useform, config
-      # shooz uses CHANGED, which is equivalent to our CHANGE. Our CHANGED means modified and exited
-      if block
-        # this way you can't pass params to the block
-        field.bind(block_event, &block)
-      end
-      return field
-    end
-    
-    # toggle button
-    def toggle *args, &block
-      config = {}
-      # TODO confirm events
-      events = [ :PRESS,  :LEAVE, :ENTER ]
-      block_event = :PRESS
-      _process_args args, config, block_event, events
-      config[:text] ||= longest_in_list2( [config[:onvalue], config[:offvalue]])
-        #config[:onvalue] # needed for flow, we need a better way FIXME
-      _position(config)
-      toggle = ToggleButton.new @form, config
-      if block
-        toggle.bind(block_event, &block)
-      end
-      return toggle
-    end
-    # check button
-    def check *args, &block
-      config = {}
-      # TODO confirm events
-      events = [ :PRESS,  :LEAVE, :ENTER ]
-      block_event = :PRESS
-      _process_args args, config, block_event, events
-      _position(config)
-      toggle = CheckBox.new @form, config
-      if block
-        toggle.bind(block_event, &block)
-      end
-      return toggle
-    end
-    # radio button
-    def radio *args, &block
-      config = {}
-      # TODO confirm events
-      events = [ :PRESS,  :LEAVE, :ENTER ]
-      block_event = :PRESS
-      _process_args args, config, block_event, events
-      a = config[:group]
-      # FIXME we should check if user has set a varialbe in :variable.
-      # we should create a variable, so he can use it if he wants.
-      if @variables.has_key? a
-        v = @variables[a]
-      else
-        v = Variable.new
-        @variables[a] = v
-      end
-      config[:variable] = v
-      config.delete(:group)
-      _position(config)
-      radio = RadioButton.new @form, config
-      if block
-        radio.bind(block_event, &block)
-      end
-      return radio
-    end
-    # editable text area
-    def textarea *args, &block
-      require 'rbcurse/rtextarea'
-      config = {}
-      # TODO confirm events many more
-      events = [ :CHANGE,  :LEAVE, :ENTER ]
-      block_event = events[0]
-      _process_args args, config, block_event, events
-      config[:width] = config[:display_length] unless config.has_key? :width
-      _position(config)
-      # if no width given, expand to flows width
-      config[:width] ||= @stack.last.width if @stack.last
-      useform = nil
-      useform = @form if @current_object.empty?
-      w = TextArea.new useform, config
-      if block
-        w.bind(block_event, &block)
-      end
-      return w
-    end
-    # progress bar
-    def progress *args, &block
-      require 'rbcurse/rprogress'
-      config = {}
-      # TODO confirm events many more
-      events = [ :CHANGE,  :LEAVE, :ENTER ]
-      block_event = nil
-      _process_args args, config, block_event, events
-      config[:width] = config[:display_length] || 10 unless config.has_key? :width
-      _position(config)
-      w = Progress.new @form, config
-      #if block
-        #w.bind(block_event, &block)
-      #end
-      return w
-    end
-    
-    # table widget
-    # @example
-    #  data = [["Roger",16,"SWI"], ["Phillip",1, "DEU"]]
-    #  colnames = ["Name", "Wins", "Place"]
-    #  t = table :width => 40, :height => 10, :columns => colnames, :data => data, :estimate_widths => true
-    #    other options are :column_widths => [12,4,12]
-    #    :size_to_fit => true
-    def table *args, &block
-      require 'rbcurse/rtable'
-      config = {}
-      # TODO confirm events many more
-      events = [ :ENTER_ROW,  :LEAVE, :ENTER ]
-      block_event = events[0]
-      _process_args args, config, block_event, events
-      # if user is leaving out width, then we don't want it in config
-      # else Widget will put a value of 10 as default, overriding what we've calculated
-      if config.has_key? :display_length
-        config[:width] = config[:display_length] unless config.has_key? :width
-      end
-      ext = config.delete :extended_keys
-
-      model = nil
-      _position(config)
-      # if no width given, expand to flows width
-      config[:width] ||= @stack.last.width if @stack.last
-      w = Table.new @form, config
-      if ext
-        require 'rbcurse/extras/tableextended' 
-          # so we can increase and decrease column width using keys
-        w.extend TableExtended
-        w.bind_key(?w){ w.next_column }
-        w.bind_key(?b){ w.previous_column }
-        w.bind_key(?+) { w.increase_column }
-        w.bind_key(?-) { w.decrease_column }
-        w.bind_key([?d, ?d]) { w.table_model.delete_at w.current_index }
-        w.bind_key(?u) { w.table_model.undo w.current_index}
-      end
-      if block
-        w.bind(block_event, &block)
-      end
-      return w
-    end
-    # print a title on first row
-    def title string, config={}
-      ## TODO center it
-      @window.printstring 1, 30, string, $normalcolor, 'reverse'
-    end
-    # print a sutitle on second row
-    def subtitle string, config={}
-      @window.printstring 2, 30, string, $datacolor, 'normal'
-    end
-    # menu bar
-    def menubar &block
-      require 'rbcurse/rmenu'
-      RubyCurses::MenuBar.new &block
-    end
-
-    # creates a blank row
-    def blank rows=1, config={}
-      @app_row += rows
-    end
-    # displays a horizontal line
-    # takes col (column to start from) from current stack
-    # take row from app_row
-    #
-    # requires width to be passed in config, else defaults to 20
-    # @example
-    #    hline :width => 55  
-    def hline config={}
-      row = @app_row
-      width = config[:width] || 20
-      _position config
-      col = config[:col] || 1
-      @window.mvwhline( row, col, ACS_HLINE, width)
-      @app_row += 1
-    end
-    def app_header title, config={}, &block
-      require 'rbcurse/applicationheader'
-      header = ApplicationHeader.new @form, title, config, &block
-    end
-    def dock labels, config={}, &block
-      require 'rbcurse/keylabelprinter'
-      klp = RubyCurses::KeyLabelPrinter.new @form, labels, config, &block
-    end
-    def link *args, &block
-      require 'rbcurse/extras/rlink'
-      config = {}
-      events = [ :PRESS,  :LEAVE, :ENTER ]
-      block_event = :PRESS
-      _process_args args, config, block_event, events
-      _position(config)
-      config[:text] ||= config.delete :title
-      config[:highlight_foreground] = "yellow"
-      config[:highlight_background] = "red"
-      toggle = Link.new @form, config
-      if block
-        toggle.bind(block_event, toggle, &block)
-      end
-      return toggle
-    end
-    def menulink *args, &block
-      require 'rbcurse/extras/rmenulink'
-      config = {}
-      events = [ :PRESS,  :LEAVE, :ENTER ]
-      block_event = :PRESS
-      _process_args args, config, block_event, events
-      _position(config)
-      config[:text] ||= config.delete :title
-      config[:highlight_foreground] = "yellow"
-      config[:highlight_background] = "red"
-      toggle = MenuLink.new @form, config
-      if block
-        toggle.bind(block_event, toggle, &block)
-      end
-      return toggle
-    end
-    def splitpane *args, &block
-      require 'rbcurse/rsplitpane2'
-      config = {}
-      events = [ :PROPERTY_CHANGE,  :LEAVE, :ENTER ]
-      block_event = events[0]
-      _process_args args, config, block_event, events
-      _position(config)
-      # if no width given, expand to flows width
-      config[:width] ||= @stack.last.width if @stack.last
-      config.delete :title
-      useform = nil
-      useform = @form if @current_object.empty?
-
-      w = SplitPane.new useform, config
-      #if block
-        #w.bind(block_event, w, &block)
-      #end
-      if block_given?
-        @current_object << w
-        #instance_eval &block if block_given?
-        yield w
-        @current_object.pop
-      end
-      return w
-    end
-    def multisplit *args, &block
-      require 'rbcurse/rmultisplit'
-      config = {}
-      events = [ :PROPERTY_CHANGE,  :LEAVE, :ENTER ]
-      block_event = events[0]
-      _process_args args, config, block_event, events
-      _position(config)
-      # if no width given, expand to flows width
-      config[:width] ||= @stack.last.width if @stack.last
-      config.delete :title
-      useform = nil
-      useform = @form if @current_object.empty?
-
-      w = MultiSplit.new useform, config
-      #if block
-        #w.bind(block_event, w, &block)
-      #end
-      if block_given?
-        @current_object << w
-        #instance_eval &block if block_given?
-        yield w
-        @current_object.pop
-      end
-      return w
-    end
-
-    # ADD new widget above this
-
-    # @endgroup
-    
-    # @group positioning of components
-    
-    # line up vertically whatever comes in, ignoring r and c 
-    # margin_top to add to margin of existing stack (if embedded) such as extra spacing
-    # margin to add to margin of existing stack, or window (0)
-    Stack = Struct.new(:margin_top, :margin, :width)
-    def stack config={}, &block
-      @instack = true
-      mt =  config[:margin_top] || 1
-      mr =  config[:margin] || 0
-      # must take into account margin
-      defw = Ncurses.COLS - mr
-      w =   config[:width] || [50, defw].min
-      s = Stack.new(mt, mr, w)
-      @app_row += mt
-      mr += @stack.last.margin if @stack.last
-      #@stack << mr
-      @stack << s
-      instance_eval &block if block_given?
-      @stack.pop
-      @instack = false if @stack.empty?
-      @app_row = 0 if @stack.empty?
-    end
-    # keep adding to right of previous and when no more space
-    # move down and continue fitting in.
-    # Useful for button positioning. Currently, we can use a second flow
-    # to get another row.
-    # TODO: move down when row filled
-    # TODO: align right, center
-    def flow config={}, &block
-      @inflow = true
-      mt =  config[:margin_top] || 0
-      @app_row += mt
-      col = @flowstack.last || @stack.last.margin || @app_col
-      col += config[:margin] || 0
-      @flowstack << col
-      @flowcol = col
-      instance_eval &block if block_given?
-      @flowstack.pop
-      @inflow = false if @flowstack.empty?
-    end
-
-    private
-    def quit
-      throw(:close)
-    end
-    # Initialize curses
-    def init_ncurses
-      VER::start_ncurses  # this is initializing colors via ColorMap.setup
-      #$ncurses_started = true
-      @stop_ncurses_on_close = true
-    end
-
-    # returns length of longest
-    def longest_in_list list
-      longest = list.inject(0) do |memo,word|
-        memo >= word.length ? memo : word.length
-      end    
-      longest
-    end    
-    # returns longest item
-    def longest_in_list2 list
-      longest = list.inject(list[0]) do |memo,word|
-        memo.length >= word.length ? memo : word
-      end    
-      longest
-    end    
-    def run &block
-      begin
-
-        # check if user has passed window coord in config, else root window
-        @window = VER::Window.root_window
-        catch(:close) do
-          @form = Form.new @window
-          @message = Variable.new
-          @message.value = "Message Comes Here"
-          @message_label = RubyCurses::Label.new @form, {:text_variable => @message, :name=>"message_label",:row => 24, :col => 1, :display_length => 60,  :height => 1, :color => 'cyan'}
-          $error_message.update_command { @message.set_value($error_message.value) }
-          if block
-            begin
-              #yield(self, @window, @form)
-              instance_eval &block if block_given?
-              loop
-            rescue => ex
-              $log.debug( "APP.rb rescue reached ")
-              $log.debug( ex) if ex
-              $log.debug(ex.backtrace.join("\n")) if ex
-            ensure
-              close
-              # putting it here allows it to be printed on screen, otherwise it was not showing at all.
-              if ex
-                puts "========== EXCEPTION =========="
-                p ex 
-                puts "=========="
-                puts(ex.backtrace.join("\n")) 
-              end
-            end
-            nil
-          else
-            #@close_on_terminate = true
-            self
-          end #if block
-        end
-      end
-    end
-    # TODO
-    # process args, all widgets should call this
-    def _process_args args, config, block_event, events
-      args.each do |arg| 
-        case arg
-        when Array
-          # we can use r,c, w, h
-          row, col, display_length, height = arg
-          config[:row] = row
-          config[:col] = col
-          config[:display_length] = display_length if display_length
-          config[:width] = display_length if display_length
-          # width for most XXX ?
-          config[:height] = height if height
-        when Hash
-          config.merge!(arg)
-          if block_event 
-            block_event = config.delete(:block_event){ block_event }
-            raise "Invalid event. Use #{events}" unless events.include? block_event
-          end
-        when String
-          config[:name] = arg
-          config[:title] = arg # some may not have title
-          #config[:text] = arg # some may not have title
-        end
-      end
-    end # _process
-    # position object based on whether in a flow or stack.
-    # @app_row is prepared for next object based on this objects ht
-    def _position config
-      unless @current_object.empty?
-        $log.debug " WWWW returning from position #{@current_object.last} "
-        return
-      end
-      if @inflow
-        #col = @flowstack.last
-        config[:row] = @app_row
-        config[:col] = @flowcol
-        $log.debug " YYYY config #{config} "
-        @flowcol += config[:text].length + 5 # 5 came from buttons
-      elsif @instack
-        # most likely you won't have row and col. should we check or just go ahead
-        col = @stack.last.margin
-        config[:row] = @app_row
-        config[:col] = col
-        @app_row += config[:height] || 1
-        # TODO need to allow stack to have its spacing, but we don't have an object as yet.
-      end
-    end
-  end # class
-end # module 
-if $0 == __FILE__
-  include RubyCurses
-  #app = App.new
-  #window = app.window
-  #window.printstring 2, 30, "Demo of Listbox - rbcurse", $normalcolor, 'reverse'
-  #app.logger.info "beforegetch"
-  #window.getch
-  #app.close
-  # this was the yield example, but now we've moved to instance eval
-  App.new do 
-    @window.printstring 0, 30, "Demo of Listbox - rbcurse", $normalcolor, 'reverse'
-    @window.printstring 1, 30, "Hit F1 to quit", $datacolor, 'normal'
-    form = @form
-    fname = "Search"
-    r, c = 7, 30
-    c += fname.length + 1
-    #field1 = field( [r,c, 30], fname, :bgcolor => "cyan", :block_event => :CHANGE) do |fld|
-    stack :margin_top => 2, :margin => 10 do
-      lbl = label({:text => fname, :color=>'white',:bgcolor=>'red', :mnemonic=> 's'})
-      field1 = field( [r,c, 30], fname, :bgcolor => "cyan",:block_event => :CHANGE) do |fld|
-        message("You entered #{fld.getvalue}. To quit enter quit and tab out")
-        if fld.getvalue == "quit"
-          logger.info "you typed quit!" 
-          throw :close
-        end
-      end
-      #field1.set_label Label.new @form, {:text => fname, :color=>'white',:bgcolor=>'red', :mnemonic=> 's'}
-      field1.set_label( lbl )
-      field1.enter do 
-        message "you entered this field"
-      end
-
-      stack :margin_top => 2, :margin => 0 do
-        #label( [8, 30, 60],{:text => "A label", :color=>'white',:bgcolor=>'blue'} )
-      end
-
-      @bluelabel = label( [8, 30, 60],{:text => "B label", :color=>'white',:bgcolor=>'blue'} )
-
-      stack :margin_top => 2, :margin => 0 do
-        toggle :onvalue => " Toggle Down ", :offvalue => "  Untoggle   ", :mnemonic => 'T', :value => true
-
-        toggle :onvalue => " On  ", :offvalue => " Off ", :value => true do |e|
-          alert "You pressed me #{e.state}"
-        end
-        check :text => "Check me!", :onvalue => "Checked", :offvalue => "Unchecked", :value => true do |e|
-          # this works but long and complicated
-          #@bluelabel.text = e.item.getvalue ? e.item.onvalue : e.item.offvalue
-          @bluelabel.text = e.item.text
-        end
-        radio :text => "red", :value => "RED", :color => "red", :group => :colors
-        radio :text => "green", :value => "GREEN", :color => "green", :group => :colors
-        flow do
-          button_row = 17
-          ok_button = button( [button_row,30], "OK", {:mnemonic => 'O'}) do 
-            alert("About to dump data into log file!")
-            message "Dumped data to log file"
-          end
-
-          # using ampersand to set mnemonic
-          cancel_button = button( [button_row, 40], "&Cancel" ) do
-            if confirm("Do your really want to quit?")== :YES
-              #throw(:close); 
-              quit
-            else
-              message "Quit aborted"
-            end
-          end # cancel
-          button "Don't know"
-        end
-        flow :margin_top => 2 do
-          button "Another"
-          button "Line"
-        end
-        stack :margin_top => 2, :margin => 0 do
-          @pbar = progress :width => 20, :bgcolor => 'white', :color => 'red'
-          @pbar1 = progress :width => 20, :style => :old
-        end
-      end
-    end # stack
-    # lets make another column
-    stack :margin_top => 2, :margin => 70 do
-      l = label "Column 2"
-      f1 = field "afield", :bgcolor => 'white', :color => 'black'
-      list_box "A list", :list => ["Square", "Oval", "Rectangle", "Somethinglarge"], :choose => ["Square"]
-      lb = list_box "Another", :list => ["Square", "Oval", "Rectangle", "Somethinglarge"] do |list|
-        #f1.set_buffer list.text
-        #f1.text list.text
-        f1.text = list.text
-        l.text = list.text.upcase
-      end
-      t = textarea :height => 10 do |e|
-        #@bluelabel.text = e.to_s.tr("\n",' ')
-        @bluelabel.text = e.text.gsub("\n"," ")
-        len = e.source.get_text.length
-        len = len % 20 if len > 20
-        $log.debug " PBAR len of text is #{len}: #{len/20.0} "
-        @pbar.fraction(len/20.0)
-        @pbar1.fraction(len/20.0)
-        i = ((len/20.0)*100).to_i
-        @pbar.text = "completed:#{i}"
-      end
-      t.leave do |c|
-        @bluelabel.text = c.get_text.gsub("\n"," ")
-      end
-
-    end
-
-    # Allow user to get the keys
-    keypress do |key|
-      if key == :C_c
-        message "You tried to cancel"
-        #throw :close
-        quit
-      else
-        #app.message "You pressed #{key}, #{char} "
-        message "You pressed #{key}"
-      end
-    end
-  end
-end