rbcurse 1.5.0 → 1.5.2

data/examples/data/README.markdown

@@ -0,0 +1,9 @@
+I've put some data here to use in programs as text for textareas, textviews or lists.
+
+brew.txt - single list, use in listboxes
+color.2  - ANSI formatted text, use in formatted textview
+gemlist.txt - single column list
+lotr.txt    - running text for text views
+ports.txt   - 3 column list, use in tables, tabular
+unix1.txt   - running text
+unix2.txt   - running text

data/examples/data/brew.txt

@@ -0,0 +1,38 @@
+ack
+aqua-less
+atool
+bash-completion
+calcurse
+cmake
+coreutils
+curl
+elinks
+findutils
+gawk
+gettext
+git
+gnu-sed
+grep
+htop
+jed
+libevent
+moreutils
+most
+msmtp
+multitail
+mysql
+oniguruma
+pcre
+pidof
+pigz
+pkg-config
+pv
+readline
+rlwrap
+s-lang
+sqlite
+tal
+task
+tig
+tmux
+wget

data/examples/data/color.2

@@ -0,0 +1,37 @@
+Showing all items...
+ (8b0dbf)  #enh view with table, text, list, tree, fields hash
+ (3ef256)  #fix clearing/hiding widget
+ (df584b)  %menu list place cursor firstchar match
+ (749828)  %menu RT_ARROW if none go left
+ (ed1515)  %vimsplit when adding, put grabbar cmd in system_commands
+ (b3102b)  %listbox reduce repaint, only if change, or selection
+ (344ad2)  %form dn_arrow to lower field, rt_arrow to right field
+ (35bed1)  %tabularwidget ask_select and ask_unselect
+ (7c24e7)  check other widgets for color changes
+ (f864fe)  check for #UTF-8 errors where match method used #fix
+ (4bef44)  testdir returns path wrong if i use ../ #fix
+ (2171c9)  %TabularWidget example scrollbar showing white space at end #fix
+ (ed7b0a)  search in tabular does not take offset of header into account #fix
+ (fc95e4)  #enh widgets can have %keylabels, so mode gets taken care of auto
+ (c538e9)  app_header assumes root_window, shd take window width into acount
+ (e22c8e)  menu in dbdemo one column short (ony after F4 closes) #fix
+ (83dfff)  additional footer text in text view area #hold
+ (891157)  maybe selected and focussed should be shown same so no confusion
+ (dd5f96)  calculate color_pair once, and not so many times #fix
+ (2406f8)  listcellrenderer is horribly complicated - simplify
+ (f42383)  reduce #repaint in #textarea and #tree
+ (543b53)  dock through div by zero if row Ncurses.Lines-1 #fix
+ (c48a48)  The view in #dbdemo should allow sorting on header. and maybe select one row
+ (85461c)  common routine tabular(headings,content) 
+ (9b3501)  sort on tabularwidget with resultset sometimes gives error ofcomparison
+ (31f476)  put comopnent traversal into traversal module
+ (5be1c4)  popuplist: space in single selection should select?
+ (330928)  system shell etc menu items should be available somehow ifwe want
+ (3663dc)  install mysql and gem and test resultset with that too
+ (745c3f)  remove multiform
+
+==================== TODAY ====================
+ (d56b4d)  alert dialog overflow on data, shd have increased in size #fix #today
+
+==================== URGENT ====================
+ (140d16)  #fix %testvimsplit not sizing STACK correctly #urgent

data/examples/data/gemlist.txt

@@ -0,0 +1,60 @@
+activesupport (3.1.0, 3.0.10)
+arrayfields (4.7.4)
+bond (0.4.1)
+bugzyrb (0.3.8)
+bundler (1.0.18)
+cheat (1.3.0)
+chronic (0.6.4, 0.3.0)
+colored (1.2)
+dooby (0.3.1)
+fattr (2.2.0)
+ffi (1.0.9)
+ffi-locale (1.0.1)
+ffi-ncurses (0.4.0)
+gem-man (0.3.0)
+gemcutter (0.7.0)
+gemedit (1.0.1)
+git (1.2.5)
+gmail (0.4.0)
+gmail_xoauth (0.3.0)
+growl (1.0.3)
+highline (1.6.2, 1.6.1)
+hoe (2.12.3)
+i18n (0.6.0)
+interactive_editor (0.0.10)
+jeweler (1.6.4)
+json_pure (1.6.1)
+lightning (0.4.0)
+live_console (0.2.1)
+mail (2.3.0)
+main (4.7.7, 4.2.0)
+map (4.3.0)
+maruku (0.6.0)
+mime (0.1)
+mime-types (1.16)
+multi_json (1.0.3)
+ncurses (1.2.4)
+nokogiri (1.5.0)
+oauth (0.4.5)
+optiflag (0.7)
+polyglot (0.3.2)
+qwandry (0.1.4)
+rake (0.9.2, 0.8.7)
+random_data (1.5.2)
+rbcurse (1.4.0)
+rubyforge (2.0.4)
+rubygems-update (1.8.10)
+sequel (3.27.0)
+snipplr (0.0.9)
+spoon (0.0.1)
+sqlite3 (1.3.4)
+sqlite3-ruby (1.3.3)
+subcommand (1.0.6)
+syntax (1.0.0)
+terminal-table (1.4.2)
+thor (0.14.6)
+todorb (1.2.3)
+treetop (1.4.10)
+tzinfo (0.3.29)
+vmail (2.3.2)
+yard (0.7.2)

data/examples/data/lotr.txt

@@ -0,0 +1,12 @@
+I amar prestar aen. The world is changed. Han matho ne nen. I feel it in the water. Han mathon ned cae. I feel it in the earth. A han noston ned gwilith. I smell it in the air. Much that once was is lost, for none now live who remember it.
+
+It began with the forging of the Great Rings. Three were given to the Elves, immortal, wisest and fairest of all beings. Seven to the Dwarf-Lords, great miners and craftsmen of the mountain halls. And nine, nine rings were gifted to the race of Men, who above all else desire power. For within these rings was bound the strength and the will to govern each race. But they were all of them deceived, for another ring was made. Deep in the land of Mordor, in the Fires of Mount Doom, the Dark Lord Sauron forged in secret a master ring to control all others, and into this ring he poured his cruelty, his malice and his will to dominate all life. One ring to rule them all.
+
+One by one, the free lands of Middle-Earth fell to the power of the Ring, but there were some who resisted. A last alliance of Men and Elves marched against the armies of Mordor, and on the very slopes of Mount Doom, they fought for the freedom of Middle-Earth. Victory was near, but the power of the ring could not be undone.
+It was in this moment, when all hope had faded, that Isildur, son of the king, took up his father's sword.
+
+Sauron, the enemy of the free peoples of Middle-Earth, was defeated. The Ring passed to Isildur, who had this once chance to destroy evil forever. But the hearts of Men are easily corrupted. And the ring of power has a will of its own. It betrayed Isildur, to his death. And some things that should not have been forgotten were lost. History became legend, legend became myth. And for two and a half thousand years, the ring passed out of all knowledge. Until, when chance came, it ensnared a new bearer.
+
+The Ring came to the creature Gollum, who took it deep into the tunnels of the Misty Mountains. And there it consumed him. The ring brought to Gollum unnatural long life. For five hundred years it poisoned his mind, and in the gloom of Gollum's cave, it waited. Darkness crept back into the forests of the world. Rumor grew of a shadow in the East, whispers of a nameless fear, and the Ring of Power percieved its time had now come. It abandoned Gollum. But something happened then that the Ring did not intend. It was picked up by the most unlikely creature imaginable: a Hobbit, Bilbo Baggins, of the Shire.
+
+For the time will soon come when hobbits will shape the fortunes of all.

data/examples/data/ports.txt

@@ -0,0 +1,136 @@
+alpine                         @2.00           mail/alpine
+apr                            @1.4.5          devel/apr
+apr-util                       @1.3.12         devel/apr-util
+autoconf                       @2.68           devel/autoconf
+automake                       @1.11.1         devel/automake
+bash                           @4.2.10         shells/bash
+bash-completion                @1.3            sysutils/bash-completion
+bison                          @2.5            devel/bison
+boost                          @1.47.0         devel/boost
+boost-jam                      @3.1.18         devel/boost-jam
+bzip2                          @1.0.6          archivers/bzip2
+coreutils                      @8.14           sysutils/coreutils
+cppunit                        @1.12.1         devel/cppunit
+ctags                          @5.8            devel/ctags
+curl                           @7.22.0         net/curl
+curl-ca-bundle                 @7.22.0         net/curl-ca-bundle
+cyrus-sasl2                    @2.1.23         security/cyrus-sasl2
+db46                           @4.6.21         databases/db46
+dirac                          @1.0.2          multimedia/dirac
+elvis                          @2.2_0          editors/elvis
+expat                          @2.0.1          textproc/expat
+expat                          @2.0.1          textproc/expat
+faac                           @1.28           audio/faac
+faad2                          @2.7            audio/faad2
+ffmpeg                         @0.7.6          multimedia/ffmpeg
+file                           @5.09           sysutils/file
+findutils                      @4.4.2          sysutils/findutils
+flex                           @2.5.35         devel/flex
+gawk                           @4.0.0          lang/gawk
+gdbm                           @1.9.1          databases/gdbm
+gettext                        @0.18.1.1       devel/gettext
+gettext                        @0.18.1.1       devel/gettext
+git-core                       @1.7.7          devel/git-core
+glib2                          @2.28.8         devel/glib2
+gmake                          @3.82           devel/gmake
+gmp                            @5.0.2          devel/gmp
+gnupg                          @1.4.11         mail/gnupg
+gperf                          @3.0.4          devel/gperf
+gperf                          @3.0.4          devel/gperf
+grep                           @2.9            sysutils/grep
+groff                          @1.21           sysutils/groff
+gsed                           @4.2.1          textproc/gsed
+gzip                           @1.4            archivers/gzip
+help2man                       @1.40.4         textproc/help2man
+icu                            @4.8.1          devel/icu
+irssi                          @0.8.15         irc/irssi
+joe                            @3.7            editors/joe
+lame                           @3.99           audio/lame
+lame                           @3.99           audio/lame
+libao                          @1.1.0          audio/libao
+libiconv                       @1.14           textproc/libiconv
+libiconv                       @1.14           textproc/libiconv
+libid3tag                      @0.15.1b        audio/libid3tag
+libidn                         @1.22           mail/libidn
+libmad                         @0.15.1b        audio/libmad
+libmp3splt                     @0.5.7a         audio/libmp3splt
+libogg                         @1.3.0          multimedia/libogg
+liboil                         @0.3.17         devel/liboil
+libpng                         @1.4.8          graphics/libpng
+libsdl                         @1.2.14         devel/libsdl
+libtheora                      @1.1.1          multimedia/libtheora
+libtool                        @2.4.2          devel/libtool
+libusb                         @1.0.8          devel/libusb
+libvorbis                      @1.3.2          audio/libvorbis
+libxml2                        @2.7.8          textproc/libxml2
+links                          @2.3            www/links
+lzmautils                      @4.32.7         archivers/lzmautils
+m4                             @1.4.16         devel/m4
+macutil                        @2.0b3          sysutils/macutil
+mc                             @4.7.5.2        sysutils/mc
+mp3splt                        @2.2.6a         audio/mp3splt
+mp3wrap                        @0.5            audio/mp3wrap
+mp4v2                          @1.9.1          multimedia/mp4v2
+mpack                          @1.6            mail/mpack
+mpg321                         @0.2.10         audio/mpg321
+ncftp                          @3.2.5          net/ncftp
+ncurses                        @5.9            devel/ncurses
+ncurses                        @5.9            devel/ncurses
+ncursesw                       @5.8            devel/ncursesw
+ncursesw                       @5.8            devel/ncursesw
+neon                           @0.29.6         www/neon
+netcat                         @1.10           net/netcat
+openldap                       @2.4.21         databases/openldap
+openssl                        @1.0.0e         devel/openssl
+p5-compress-raw-bzip2          @2.37.0         perl/p5-compress-raw-bzip2
+p5-compress-raw-zlib           @2.35.0         perl/p5-compress-raw-zlib
+p5-crypt-ssleay                @0.580.0        perl/p5-crypt-ssleay
+p5-error                       @0.170.160      perl/p5-error
+p5-html-parser                 @3.680.0        perl/p5-html-parser
+p5-html-tagset                 @3.200.0        perl/p5-html-tagset
+p5-io-compress                 @2.35.0         perl/p5-io-compress
+p5-libwww-perl                 @6.20.0         perl/p5-libwww-perl
+p5-locale-gettext              @1.50.0         perl/p5-locale-gettext
+p5-svn-simple                  @0.280.0        perl/p5-svn-simple
+p5-term-readkey                @2.300.0        perl/p5-term-readkey
+p5-uri                         @1.580.0        perl/p5-uri
+pcre                           @8.12           devel/pcre
+perl5                          @5.12.3         lang/perl5
+perl5.8                        @5.8.9          lang/perl5.8
+pkgconfig                      @0.26           devel/pkgconfig
+popt                           @1.16           devel/popt
+pv                             @1.2.0          sysutils/pv
+readline                       @6.2.000        devel/readline
+rsync                          @3.0.8          net/rsync
+schroedinger                   @1.0.10         multimedia/schroedinger
+serf                           @0.7.2          www/serf
+slang2                         @2.2.3          lang/slang2
+source-highlight               @3.1.4          textproc/source-highlight
+sqlite3                        @3.7.8          databases/sqlite3
+subversion                     @1.7.0          devel/subversion
+subversion-perlbindings        @1.7.0          devel/subversion-perlbindings
+surfraw                        @2.2.1          net/surfraw
+vim                            @7.3.286        editors/vim
+wget                           @1.13.4         net/wget
+x264                           @20110628       multimedia/x264
+xorg-bigreqsproto              @1.1.1          x11/xorg-bigreqsproto
+xorg-inputproto                @2.0.2          x11/xorg-inputproto
+xorg-kbproto                   @1.0.5          x11/xorg-kbproto
+xorg-libX11                    @1.4.4          x11/xorg-libX11
+xorg-libXau                    @1.0.6          x11/xorg-libXau
+xorg-libXdmcp                  @1.1.0          x11/xorg-libXdmcp
+xorg-libXext                   @1.3.0          x11/xorg-libXext
+xorg-libXrandr                 @1.3.2          x11/xorg-libXrandr
+xorg-randrproto                @1.3.2          x11/xorg-randrproto
+xorg-renderproto               @0.11.1         x11/xorg-renderproto
+xorg-util-macros               @1.15.0         x11/xorg-util-macros
+xorg-xcmiscproto               @1.2.1          x11/xorg-xcmiscproto
+xorg-xextproto                 @7.2.0          x11/xorg-xextproto
+xorg-xf86bigfontproto          @1.2.0          x11/xorg-xf86bigfontproto
+xorg-xproto                    @7.0.22         x11/xorg-xproto
+xorg-xtrans                    @1.2.6          x11/xorg-xtrans
+xrender                        @0.9.6          x11/xrender
+XviD                           @1.3.2          multimedia/XviD
+xz                             @5.0.3          archivers/xz
+yasm                           @1.1.0          lang/yasm
+zlib                           @1.2.5          archivers/zlib

data/examples/data/tasks.txt

@@ -0,0 +1,27 @@
+Field to have history which pops up
+App to have layout objects @1.6
+F2 menu to have context sensitive items
+SL and Dock events Hide. Move ...
+Stack and Flow to be objects @1.5
+ability to share directory options and functions across dir apps
+add event to form, key_resize
+app: add popup @1.5
+app: widgets can register with dock @1.5
+can use textpad in resultsetdb view to make things simpler
+colored module that allows row-wise coloring for all multirow wids
+find_file like microemacs @1.5
+motion options in textview and lists gg G cYcEcDcB zz zt zb etc
+registering command with Alt-X SL and Dock
+schemes (color) @1.5
+textview etc can have source. also module to recog file type,fmt
+use textpad for lists etc
+window.close can have a event so cleanup of any widget can be done
+Backward char search using F
+add progress bar to StatusWindow
+bottomline options global @1.5
+catch_alt_digits maybe at form level not global
+widgets needs to expose mapped keys in some easy way
+color_pair as :red_on_black
+confirm quit option, and call a proc before quitting
+elusive error if row not given in button
+rpopupmenu and rmenu share same class names

data/examples/data/todocsv.csv

@@ -0,0 +1,28 @@
+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,Tue Jan 20 11:44:49 +0530 2009
+FIXME,MSGBOX,5,Confirm dialog: arrow keys not navigating anylonger,TODO,Tue Jan 20 11:45:27 +0530 2009
+FIXME,GEN,9,Message Box sizing,TODO,Thu Jan 22 20:39:21 +0530 2009
+DONE,LIST,5,case insensitive char search in list and combo,TESTED,Sat Feb 21 20:43:05 +0530 2009
+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,Mon Jan 19 00:00:00 +0530 2009
+DONE,TABLE,0,editing on enter,TESTED,Mon Jan 19 01:37:00 +0530 2009
+DONE,TABLE,5,cell editors pcol is not being reset each time,TESTED,Mon Jan 19 17:47:00 +0530 2009
+DONE,TABLE,5,Use TAB for intercell navig. use M-TAB for next f,TESTED,Tue Jan 20 00:38:19 +0530 2009
+DONE,TABLE,5,Searching,TESTED,Sat Feb 21 20:42:10 +0530 2009
+DONE,TABLE,3,Columns editable or not,TESTED,Sat Feb 21 20:43:10 +0530 2009
+DONE,TABLE,1,Any way to start a table with no data and pop late,TODO,Sat Feb 21 20:43:33 +0530 2009
+DONE,GEN,5,Make  widget of Keylabelprinter,TESTED,Tue Jan 20 00:38:43 +0530 2009
+DONE,GEN,5,Added Action class shared by Button Menuitem ,TESTED,Thu Jan 22 18:08:28 +0530 2009
+DONE,GEN,5,Added PopupMenu 2009-01-22 18:09 ,TESTED,Thu Jan 22 18:09:34 +0530 2009
+DONE,LIST,0,call on_enter and on_leave of component,TOTEST,Sun Feb 22 12:19:38 +0530 2009
+DONE,FIELD,5,Field: OVERWRITE Mode,TESTED,2010-09-13 11:24:35 +0530
+DONE,GEN,5,"Modified should check if value changed, not UP etc",TOTEST,2010-09-13 11:25:18 +0530
+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,Tue Jan 20 01:04:15 +0530 2009
+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,Thu Jan 22 20:09:50 +0530 2009
+TODO,FIELD,5,Field: Auto-skip when reaching end of maxlen,TODO

data/examples/data/unix1.txt

@@ -0,0 +1,21 @@
+Eric S. Raymond, in his book The Art of Unix Programming,[2] summarizes the Unix philosophy as the widely-used KISS Principle of "Keep it Simple, Stupid."[3] He also provides a series of design rules:
+
+*    Rule of Modularity: Write simple parts connected by clean interfaces.
+*    Rule of Clarity: Clarity is better than cleverness.
+*    Rule of Composition: Design programs to be connected to other programs.
+*    Rule of Separation: Separate policy from mechanism; separate interfaces from engines.
+*    Rule of Simplicity: Design for simplicity; add complexity only where you must.
+*    Rule of Parsimony: Write a big program only when it is clear by demonstration that nothing else will do.
+*    Rule of Transparency: Design for visibility to make inspection and debugging easier.
+*    Rule of Robustness: Robustness is the child of transparency and simplicity.
+*    Rule of Representation: Fold knowledge into data so program logic can be stupid and robust.[4]
+*    Rule of Least Surprise: In interface design, always do the least surprising thing.
+*    Rule of Silence: When a program has nothing surprising to say, it should say nothing.
+*    Rule of Repair: When you must fail, fail noisily and as soon as possible.
+*    Rule of Economy: Programmer time is expensive; conserve it in preference to machine time.
+*    Rule of Generation: Avoid hand-hacking; write programs to write programs when you can.
+*    Rule of Optimization: Prototype before polishing. Get it working before you optimize it.
+*    Rule of Diversity: Distrust all claims for "one true way".
+*    Rule of Extensibility: Design for the future, because it will be here sooner than you think.
+
+

data/examples/data/unix2.txt

@@ -0,0 +1,11 @@
+1.  Small is beautiful.
+2.  Make each program do one thing well.
+3.  Build a prototype as soon as possible.
+4.  Choose portability over efficiency.
+5.  Store data in flat text files.
+6.  Use software leverage to your advantage.
+7.  Use shell scripts to increase leverage and portability.
+8.  Avoid captive user interfaces.
+9.  Make every program a filter.
+
+

data/examples/dbdemo.rb

@@ -0,0 +1,495 @@
+require 'rbcurse/core/util/app'
+require 'sqlite3'
+#require 'rbcurse/experimental/resultsettextview.rb'
+require 'rbcurse/experimental/widgets/undomanager'
+
+# @return array of table names from selected db file
+def get_table_names
+  raise "No database file selected." unless $current_db
+
+  $tables = get_data "select name from sqlite_master"
+  $tables.collect!{|x| x[0] }  ## 1.9 hack, but will it run on 1.8 ??
+  $tables
+end
+def get_column_names tbname
+  get_metadata tbname
+end
+def connect dbname
+  $current_db = dbname
+  $db = SQLite3::Database.new(dbname)
+
+  return $db
+end
+def get_data sql
+  $log.debug "SQL: #{sql} "
+  $columns, *rows = $db.execute2(sql)
+  $log.debug "XXX COLUMNS #{sql}  "
+  content = rows
+  return nil if content.nil? or content[0].nil?
+  $datatypes = content[0].types #if @datatypes.nil?
+  return content
+end
+def get_metadata table
+  get_data "select * from #{table} limit 1"
+  #$columns.collect!{|x| x[0] }  ## 1.9 hack, but will it run on 1.8 ??
+  return $columns
+end
+#
+# creates a popup for selection given the data, and executes given block with
+#  following return value.
+# @return [String] if mode is :single
+# @return [Array] if mode is :multiple
+#
+def create_popup array, selection_mode=:single,  &blk
+  require 'rbcurse/extras/widgets/rlistbox'
+  #raise "no block given " unless block_given?
+  listconfig = {'bgcolor' => 'blue', 'color' => 'white'}
+  url_list= RubyCurses::ListDataModel.new(array)
+  ht = 16
+  if array.length < 16
+    ht = array.length+1
+  end
+  pl = RubyCurses::PopupList.new do
+    row  4 
+    col  10
+    width 30
+    height ht
+    #list url_list
+    list_data_model url_list
+    list_selection_mode selection_mode
+    #relative_to f
+    list_config listconfig
+    bind :PRESS do |lb|
+      #field.set_buffer url_list[index]
+      #blk.call(url_list[index]) #if &blk
+      #selected = []; indices.each{|i| selected << url_list[i] }
+      #blk.call(selected.join(", "))
+      if selection_mode == :single
+        blk.call(url_list[lb]) #if &blk
+      else
+        blk.call(lb.selected_values)
+      end
+      
+    end
+  end
+end
+
+def view_data fields='*', name
+  stmt = "select #{fields} from #{name}"
+  stmt << $where_string if $where_string
+  stmt << $order_string if $order_string
+  @form.by_name['tarea'] << stmt
+  view_sql stmt
+end
+def view_sql stmt
+  begin
+  content = get_data stmt
+  if content.nil?
+  else
+    require 'rbcurse/core/widgets/tabular'
+    t = Tabular.new do |t|
+      t.headings = $columns
+      t.data=content   
+    end
+    view t.render
+  end
+  rescue => err
+    $log.error err.to_s
+    $log.error(err.backtrace.join("\n"))
+    alert err.to_s
+  end
+end
+
+App.new do 
+  header = app_header "rbcurse #{Rbcurse::VERSION}", :text_center => "Database Demo", :text_right =>"enabled"
+  form = @form
+  mylabel = "a field"
+  $catch_alt_digits = true # use M-1..9 in textarea
+  $current_table = nil
+  $current_db = nil # "testd.db"
+  connect $current_db if $current_db
+  def which_field
+    alert "curent field is #{form.get_current_field} "
+  end
+
+  def get_commands
+    %w{ which_field }
+  end
+  def help_text
+    <<-eos
+               DBDEMO HELP 
+
+      This is some help text for dbdemo.
+      We are testing out this feature.
+
+      Alt-d    -   Select a database
+      <Enter>      on a table, view data (q to close window)
+      <Space>      on a table, display columns in lower list
+
+                COLUMN LIST KEYS
+      <Space>      on a column for multiple select
+      <Ctrl-Space> on a column for range select/deselect from previous selection
+      <Enter>      on column table to view data for selected columns
+             u     unselect all
+             a     select all
+             *     invert selection
+      F4           View data for selected table (or columns if selected)
+
+      q or C-q     Close the data window that comes on Enter or F4
+
+      Alt-x    -   Command mode (<tab> to see commands and select)
+      :        -   Command mode
+      Alt-z    -   Commands in TextArea
+      
+                DB BROWSER KEYS
+
+      ,            Prev row (mnemonic <)
+      .            Next row (mnemonic >)
+      <            First row
+      >            Last row
+
+      F10      -   Quit application
+
+
+
+      -----------------------------------------------------------------------
+      Hope you enjoyed this help.
+    eos
+  end
+  def ask_databases
+      names = Dir.glob("*.{sqlite,db}")
+      if names
+        create_popup( names,:single) {|value| connect(value);
+          @form.by_name["tlist"].list(get_table_names)
+        }
+      else
+        alert "Can't find a .db or .sqlite file"
+      end
+  end
+  # TODO accelerators and 
+  # getting a handle for later use
+  mb = menubar do
+    keep_visible true
+    #@toggle_key=KEY_F2
+    menu "File" do
+      item "Open", "O" do
+        accelerator "Ctrl-O"
+        command do 
+          alert "HA!! you wanted to open a file?"
+        end
+      end
+      menu "Database" do
+        item_list do
+          Dir.glob("**/*.{sqlite,db}")
+        end
+        command do |menuitem, text|
+          connect text
+          form.by_name["tlist"].list(get_table_names)
+        end
+      end
+      menu "Tables" do
+        item_list do
+          if $current_db
+            get_table_names
+          end
+        end
+        command do |menuitem, text|
+          $current_table = text
+          #alert(get_column_names(text).join(", "))
+          create_popup(get_column_names(text), :multiple) { |value| view_data( value.join(","), text) }
+        end
+      end
+      item "New", "N" 
+      separator
+      item "Exit", "x"  do 
+        command do
+          throw(:close)
+        end
+      end
+      item "Cancel Menu" do
+        accelerator "Ctrl-g"
+      end
+
+    end # menu
+    menu "Window" do
+      item "Tile", "T"
+      menu "Find" do
+        item "More", "M"
+        $x = item "Less", "L" do
+          #accelerator "Ctrl-X"
+          command do
+            alert "You clickses on Less"
+          end
+        end
+        menu "Size" do
+          item "Zoom", "Z"
+          item "Maximize", "X"
+          item "Minimize", "N"
+        end
+      end
+    end
+    menu "Others" do
+      require 'rbcurse/core/include/appmethods.rb'
+      item "Shell Output" do
+        command { shell_output }
+      end
+      item "Suspend" do
+        command { suspend }
+      end
+    end
+  end # menubar
+  mb.toggle_key = FFI::NCurses::KEY_F2
+  mb.color = :white
+  mb.bgcolor = :blue
+  @form.set_menu_bar mb
+  tv = nil
+  col1w = 20
+  stack :margin => 0, :width => col1w do
+    text = "No tables"
+    if !$current_db
+      text = "Select DB first. Press Alt-D"
+    end
+    tlist = basiclist :name => "tlist", :list => [text], :title => "Tables", :height => 10,
+      :selected_color => 'cyan', :selected_bgcolor => 'black' , :selected_attr => Ncurses::A_REVERSE,
+      :help_text => "Enter to View complete table, Space to select table and view columns",
+      :should_show_focus => true
+    tlist.bind(:PRESS) do |eve|
+      if $current_db
+      # get data of table
+        view_data eve.text
+        tv.sqlite $current_db, eve.text, "select * from #{eve.text} "
+      else
+        ask_databases
+      end
+    end
+    tlist.bind(:ENTER_ROW) do |eve|
+      # too much confusion between selected and focussed row
+      #$current_table = eve.text if $db
+    end
+    clist = basiclist :name => "clist", :list => ["No columns"], :title => "Columns", :height => 14, 
+      :selection_mode => :multiple,
+      :selected_color => 'cyan', :selected_bgcolor => 'black' , :selected_attr => Ncurses::A_REVERSE,
+      :help_text => "Enter to View selected fields, Space to select columns, w - where, o-order"
+    tlist.bind(:LIST_SELECTION_EVENT) do |eve|
+      $selected_table = eve.source[eve.firstrow]
+      $current_table = $selected_table
+      clist.data = get_column_names $selected_table
+    end
+    clist.bind(:PRESS) do |eve|
+      # get data of table
+      if $selected_table
+        cols = "*"
+        c = clist.get_selected_values
+        unless c.empty?
+          cols = c.join(",")
+        end
+        view_data cols, $selected_table
+      else
+        alert "Select a table first." 
+      end
+    end
+    clist.bind_key('w') {
+      c = clist.current_value
+      $where_columns ||= []
+      hist = ["#{c} = "]
+      w = ask("(UP arrow to edit) where "){ |q| q.default = "#{c} = "; q.history = hist }
+      $where_columns << w if w
+      message "where: #{$where_columns.last}. Press F4 when done"
+      $log.debug "XXX: WHERE: #{$where_columns} "
+    }
+    clist.bind_key('o') {
+      c = clist.current_value
+      $order_columns ||= []
+      $order_columns << c if c
+      message "order (asc): #{$order_columns.last}. Press F4 when done"
+      $log.debug "XXX: ORDER: #{$order_columns} "
+    }
+    clist.bind_key('O') {
+      c = clist.current_value
+      $order_columns ||= []
+      $order_columns << " #{c} desc " if c
+      message "order: #{$order_columns.last}"
+      $log.debug "XXX: ORDER: #{$order_columns}. Press F4 when done"
+    }
+    @statusline = status_line
+    #wg = get_color($datacolor, 'white','green')
+    #wb = get_color($datacolor, 'white','blue')
+    @statusline.command { 
+      # trying this out. If you want a persistent message that remains till the next on
+      #  then send it in as $status_message
+      text = $status_message.value || ""
+      if !$current_db
+        #"[%-s] %s" % [ "Select a Database", text]
+        "[%-s] %s" % [ "#[bg=red,fg=yellow]Select a Database#[end]", text]
+        #[ [nil, "%-22s" % Time.now, nil], [$errorcolor, " [Select a Database ]", FFI::NCurses::A_BOLD], [nil, text, nil] ]
+      elsif !$current_table
+        "[DB: #[fg=white,bg=blue]%-s#[end] | %-s ] %s" % [ $current_db || "None", $current_table || "#[bg=red,fg=yellow]Select a table#[end]", text] 
+        #[ [nil, "%-22s [DB: %-s | " % [Time.now, $current_db || "None" ],nil], [$errorcolor, " Select a Table ]", FFI::NCurses::A_BOLD], [nil, text, nil] ]
+      else
+        "DB: #[fg=white,bg=green,bold]%-s#[end] | #[bold]%-s#[end] ] %s" % [ $current_db || "None", $current_table || "----", text] 
+        #[ [nil, "%-22s [DB: " % Time.now, nil], [wb, " #{$current_db} ", FFI::NCurses::A_BOLD],
+        #[wg, $current_table || "----", FFI::NCurses::A_BOLD], [nil, text, nil] ]
+      end
+    }
+    @adock = nil
+    keyarray = [
+      ["F1" , "Help"], ["F10" , "Exit"], 
+      ["F2", "Menu"], ["F4", "View"],
+      ["M-d", "Datebase"], ["M-t", "Table"],
+      ["M-x", "Command"], nil
+    ]
+    tlist_keyarray = keyarray + [ ["Sp", "Select"], nil, ["Enter","View"] ]
+
+    clist_keyarray = keyarray + [ ["Sp", "Select"], ["C-sp", "Range Sel"], 
+      ["Enter","View"], ['w', 'where'],
+      ["o","order by"], ['O', 'order desc']
+    ]
+    tarea_keyarray = keyarray + [ ["M-z", "Commands"], nil ]
+    #tarea_sub_keyarray = [ ["r", "Run"], ["c", "clear"], ["w","Save"], ["a", "Append next"], 
+      #["y", "Yank"], ["Y", "yank pop"] ]
+    tarea_sub_keyarray = [ ["r", "Run"], ["c", "clear"], ["w","Kill Ring Save (M-w)"], ["a", "Append Next"], 
+      ["y", "Yank (C-y)"], ["Y", "yank pop (M-y)"],
+      ["u", "Undo (C-_)"], ["R", "Redo (C-r)"],
+    ]
+
+    gw = get_color($reversecolor, 'green', 'black')
+    @adock = dock keyarray, { :row => Ncurses.LINES-2, :footer_color_pair => $datacolor, 
+      :footer_mnemonic_color_pair => gw }
+    @adock.set_key_labels tlist_keyarray, :tables
+    @adock.set_key_labels clist_keyarray, :columns
+    @adock.set_key_labels tarea_sub_keyarray, :tarea_sub
+    @adock.set_key_labels tarea_keyarray, :tarea
+    tlist.bind(:ENTER) { @adock.mode :tables }
+    clist.bind(:ENTER) { @adock.mode :columns }
+
+    reduce = lambda { |obj|
+      obj.height -= 1 if obj.height > 3
+    }
+    increase = lambda { |obj|
+      obj.height += 1 if obj.height + obj.row < Ncurses.LINES-2
+    }
+    _lower = lambda { |obj|
+      obj.row += 1 if obj.height + obj.row < Ncurses.LINES-2
+    }
+    _raise = lambda { |obj|
+      obj.row -= 1 if obj.row > 2
+    }
+    [clist, tlist].each do |o|
+      o.bind_key([?\C-x, ?-]){ |o| reduce.call(o) }
+      o.bind_key([?\C-x, ?+]){ |o| increase.call(o) }
+      o.bind_key([?\C-x, ?v]){ |o| _lower.call(o) }
+      o.bind_key([?\C-x, ?6]){ |o| _raise.call(o) }
+    end
+
+
+    @form.bind_key([?q,?q]) { throw :close }
+    @form.bind_key(?\M-t) do
+      if $current_db.nil?
+        alert "Please select database first"
+      else
+        create_popup( get_table_names,:single) {|value| $selected_table = $current_table =  value}
+      end
+    end
+    @form.bind_key(?\M-d) do
+      ask_databases
+    end
+    @form.bind_key(FFI::NCurses::KEY_F4) do
+      $where_string = nil
+      $order_string = nil
+      if $where_columns
+        $where_string = " where " + $where_columns.join(" and ")
+      end
+      if $order_columns
+        $order_string = " order by " + $order_columns.join(" , ")
+      end
+      # mismatch between current and selected table
+      if $current_table
+        cols = "*"
+        c = clist.get_selected_values
+        unless c.empty?
+          cols = c.join(",")
+        end
+        view_data cols, $current_table
+      else
+        alert "Select a table first." 
+      end
+    end
+  end # stack
+  stack :margin => col1w+1, :width => :EXPAND  do
+    tarea = textarea :name => 'tarea', :height => 5, :title => 'Sql Statement'
+    undom = SimpleUndo.new tarea
+    tarea.bind_key(Ncurses::KEY_F4) do
+      text = tarea.get_text
+      if text == ""
+        alert "Please enter a query and then hit F4. Or press F4 over column list"
+      else
+        view_sql tarea.get_text
+      end
+    end
+    tarea.bind(:ENTER) { @adock.mode :tarea }
+    tarea.bind_key(?\M-z){
+
+      hash = { 'c' => lambda{ tarea.remove_all },
+               'w' => lambda{ tarea.kill_ring_save },
+               'a' => lambda{ tarea.append_next_kill },
+               'y' => lambda{ tarea.yank },
+               'Y' => lambda{ tarea.yank_pop },
+               'r' => lambda{ view_sql tarea.get_text },
+               'u' => lambda{ tarea.undo },
+               'R' => lambda{ tarea.redo },
+      }
+    
+    
+      @adock.mode :tarea_sub
+      @adock.repaint
+      keys = @adock.get_current_keys
+      while((ch = @window.getchar()) != ?\C-c.getbyte(0) )
+        if ch < 33 || ch > 126
+          Ncurses.beep
+        elsif !keys.include?(ch.chr) 
+          Ncurses.beep
+        else
+          hash.fetch(ch.chr).call
+          #opt_file ch.chr
+          break
+        end
+      end
+      @adock.mode :normal
+    } # M-z
+    flow do
+      #button_row = 17
+      button "Save" do
+        @cmd_history ||= []
+          filename = ask("File to append contents to: ") { |q| q.default = @oldfilename; q.history = @cmd_history }
+
+          if filename
+            str = tarea.get_text
+            File.open(filename, 'a') {|f| f.write(str) } 
+            @oldfilename = filename
+            @cmd_history << filename unless @cmd_history.include? filename
+
+            message "Appended data to #{filename}"
+          else
+            message "Aborted operation"
+          end
+        hide_bottomline
+      end
+      button "Read" do
+        filter = "*"
+        str = choose filter, :title => "Files", :prompt => "Choose a file: "
+        begin
+          tarea.set_content(str) 
+          message "Read content from #{str} "
+        rescue => err
+          say_with_pause "No file named: #{str}: #{err.to_s} "
+        end
+      end
+      #ok_button = button( [button_row,30], "OK", {:mnemonic => 'O'}) do 
+      #end
+    end
+    blank
+    #tv = RubyCurses::ResultsetTextView.new @form, :row => 1,  :col => 1, :width => 50, :height => 16
+    tv = resultsettextview :name => 'resultset', :height => 18 , :title => 'DB Browser', :print_footer => true
+
+  end
+end # app