rbcurse 1.3.0 → 1.4.0

data/CHANGELOG

@@ -1,3 +1,36 @@
+**2011-10-06**
+## 1.3.1 or 1.4.0
+
+### Major cleanup of widget class
+  Scrollpane support (buffering stuff all removed)
+
+### TabbedPane
+  Corrected, major changes
+
+### dsl_accessor and dsl_property
+  Now return self so we can chain.
+
+### return values of some keys (Class Form)
+  Earlier not returning anything meaningful or returning last_key
+  Now return NO_NEXT_FIELD or NO_PREVIOUS_FIELD
+
+### j and k keys used for down and up where possible
+   e.g. button and its children including checkbox
+
+### Miscellaneous
+
+  * Dynamic menuitems in menu (see menu1.tb)
+  * rework on menu and menubar, and keys using them
+  * FieldVetoException (see test2.rb)
+  * valid_range for Field (see test2.rb)
+  * fixed field's type method, earlier non-functional
+  * array and 4 integer constructor for Window
+  * StatusWindow class - 2 line window for alert, confirm and statuses as an
+    alternative to dialogs.
+  * status_dialog returning a handle so we can keep updating status then
+  close.
+  * many more minor adjustments, tweaks, issues
+
 **2011-09-26**
 ## 1.3.0
 

data/README.markdown

@@ -2,7 +2,11 @@
 
 * Migrating from ncurses-ruby to ffi-ncurses
 
-I have moved rbcurse to ffi-ncurses (earlier ncurses gem). 
+I have moved rbcurse to ffi-ncurses (earlier ncurses gem) since 1.3.0.
+
+Please report bugs on github/rkumar/rbcurse mentioning version. Your program dependency
+should be an explicit rbcurse version since I am doing a lot of improvements, cleaning up
+etc in the code base.
 
 If you are looking for the ncurses version, please goto
 branch rbcurse1.2.0. I am not likely to support that henceforth due to the difficulty in installing ncurses gem.
@@ -17,6 +21,8 @@ then do a final after some testing.
 
 * Version that works with ruby 1.9 (backward compatible with 1.8.7)
 
+* 1.3.1: Rework of some classes - see CHANGELOG
+* 1.3.0: ffi-ification of rbcurses with some minor bug-fixes, deprecations
 * 1.2.0: many additions (See CHANGELOG for details)
   - App class that wraps the environment and makes application development very easy
   - New controls such as:

data/TODO2.txt

@@ -41,7 +41,6 @@
  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)
- 36	[ ] should parent set scrollatrows for lb and tv and ta ? (2010-01-17)
  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)
@@ -69,7 +68,6 @@
  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)
- 76	[ ] a Box class = would that help? (2010-03-08)
  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)
@@ -80,22 +78,18 @@
  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)
- 89	[ ] (Z) Scrollpane is just wrong with textobjects, searching doesnt work properly - it doesnt show up (2010-03-13)
- 90	[ ] (Z) tabbedpane buttons focus sometimes mixes with table first row focuses (2010-03-14)
  91	[x] (B) tabbedpane: adding new tab dyn, not immediately shown (2010-03-14) (x2010-03-15)
- 93	[ ] (Z) tabbedpane: new tabs not really getting focus??? (2010-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)
- 95	[ ] (Z) TabbedWindow is totally off - redo ? (2010-03-16)
  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	[ ] Menu: simpler rewrite ?? (2010-03-20)
-102	[ ] TabbedPane: rewrite (2011-09-21)
+101	[x] Menu: simpler rewrite ?? (2010-03-20)
+102	[x] (A) TabbedPane: rewrite (2011-09-21)
 103	[ ] Messagebox: rewrite (2011-09-21)
-104	[ ] (E) Gen: catching extended keys C-left, S-F10 (2011-09-21)
-105	[ ] (A) Window: combine array into existing constructor (2011-09-21)
-106	[ ] gen: check if that buffering nonsense is still being used? (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)
@@ -105,8 +99,20 @@
     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	[ ] (B) Table needs multiplier for resizing cols (2010-02-24)
-    110.7	[ ] TabbedPane: move fun stuff to Util class - dont crowd main classes (2010-03-14)
+    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.9	[ ] (O) size changes immediately trigger a buffer resize ...
instead set a flag so one resize can be done in repaint. otherwise too many resizes (2010-01-16)
-    110.10	[ ] are we destroying these pads ?? I don;t think so. (2010-02-19)
+    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	[ ] look at sandy,ne,pygments source for ncurses syntax highlighting (2011-10-07)

data/VERSION

@@ -1 +1 @@
-1.3.0
+1.4.0

data/examples/abasiclist.rb

@@ -3,8 +3,8 @@ require 'rbcurse/rbasiclistbox'
 
 # just a simple test to ensure that rbasiclistbox is running inside a container.
 App.new do 
-  header = app_header "rbcurse 1.2.0", :text_center => "Basic List Demo", :text_right =>"New Improved!", :color => :black, :bgcolor => :white, :attr => :bold 
-  message "Press F1 to escape from here"
+  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 }
   vimsplit :row => 1, :col => 0, :suppress_borders => false, :width => 60, :height => Ncurses.LINES-2, :weight => 0.4, :orientation => :VERTICAL do |s|

data/examples/alpmenu.rb

@@ -3,7 +3,7 @@ require 'rbcurse/app'
   App.new do 
     #title "Demo of Menu - rbcurse"
     #subtitle "Hit F1 to quit, F2 for menubar toggle"
-    header = app_header "rbcurse 1.2.0", :text_center => "Alpine Menu Demo", :text_right =>""
+    header = app_header "rbcurse #{Rbcurse::VERSION}", :text_center => "Alpine Menu Demo", :text_right =>""
     message_row(27)
 
     stack :margin_top => 10, :margin => 15 do

data/examples/app.rb

@@ -22,7 +22,6 @@ module RubyCurses
 
   ##
   #
-  # @since 1.1.6
   # TODO - 
   # what of internal objects that don't want a form !
   # - stack and flow should be objects in Form, put in widget when creating

data/examples/appdirtree.rb

@@ -39,7 +39,7 @@ App.new do
   last = nodes.last
   nodes.last.add entries
   model = DefaultTreeModel.new nodes.first
-  header = app_header "rbcurse 1.2.0", :text_center => "Yet Another File Manager", :text_right =>"Directory Lister", :color => :black, :bgcolor => :white#, :attr =>  Ncurses::A_BLINK
+  header = app_header "rbcurse #{Rbcurse::VERSION}", :text_center => "Yet Another File Manager", :text_right =>"Directory Lister", :color => :black, :bgcolor => :white#, :attr =>  Ncurses::A_BLINK
   message "Press Enter to expand/collapse"
 
 
@@ -69,5 +69,7 @@ App.new do
     #@l = list_box :height => ht, :border_attrib => borderattrib, :selection_mode => :multiple
     s.add dl, :SECOND
     end # vimsplit
-  end # flow
+  end # stack
+  sl = status_line :row => Ncurses.LINES-1
+  sl.command { "%-20s | %-20s | v View" % [Time.now, File.absolute_path(dl.current_path)] }
 end # app

data/examples/appemail.rb

@@ -8,8 +8,10 @@ require './rmail'
 # this will go into top namespace so will conflict with other apps!
 def testchoose
   # list filters as you type
-  $log.debug "called test1 " if $log.debug? 
-  str = choose "*", :title => "Files", :prompt => "Choose a file: "
+  $log.debug "called CHOOSE " if $log.debug? 
+  filter = "*"
+  filter = ENV['PWD']+"/*"
+  str = choose filter, :title => "Files", :prompt => "Choose a file: "
 end
 def testnumberedmenu
   list1 =  %w{ ruby perl python erlang rake java lisp scheme chicken }
@@ -70,7 +72,7 @@ App.new do
   $unread_hash = {}
   @tv = nil
   borderattrib = :reverse
-  @header = app_header "rbcurse 1.2.0", :text_center => "Yet Another Email Client that sucks", :text_right =>"", :color => :black, :bgcolor => :white#, :attr =>  Ncurses::A_BLINK
+  @header = app_header "rbcurse #{Rbcurse::VERSION}", :text_center => "Yet Another Email Client that sucks", :text_right =>"", :color => :black, :bgcolor => :white
   message "Press F10 to exit ...................................................."
 
 
@@ -186,6 +188,8 @@ App.new do
     @tv.suppress_borders true
     @tv.border_attrib = borderattrib
   end # stack
+  @statusline = status_line :row => Ncurses.LINES-1
+  #@statusline.command { }
   @form.bind_key(?\M-v) { test11() }
   @form.bind_key(?\M-V) { testme() }
   @form.bind_key(?\M-c) { test1() }

data/examples/appemaillb.rb

@@ -244,7 +244,7 @@ App.new do
   @messages = nil
   @tv = nil
   borderattrib = :reverse
-  @header = app_header "rbcurse 1.2.0", :text_center => "Yet Another Email Client that sucks", :text_right =>"", :color => :black, :bgcolor => :white#, :attr =>  Ncurses::A_BLINK
+  @header = app_header "rbcurse #{Rbcurse::VERSION}", :text_center => "Yet Another Email Client that sucks", :text_right =>"", :color => :black, :bgcolor => :white#, :attr =>  Ncurses::A_BLINK
   message "Press F10 to exit ...................................................."
 
 

data/examples/appgcompose.rb

@@ -196,8 +196,8 @@ module AppgCompose
         def get_commands
           %w{ insert_file}
         end
-        header = app.app_header "rbcurse 1.2.0", :text_center => "Compose Mail", :text_right =>"27% Stronger", :color => :black, :bgcolor => :white, :attr => :bold 
-        app.message "Press F1 to exit from here"
+        header = app.app_header "rbcurse #{Rbcurse::VERSION}", :text_center => "Compose Mail", :text_right =>"27% Stronger", :color => :black, :bgcolor => :white, :attr => :bold 
+        app.message "Press F10 to exit from here"
         app.stack :margin_top => 2, :margin => 5, :width => 15 do |xxx|
           fg = :white
           bg = :blue

data/examples/appgmail.rb

@@ -672,7 +672,7 @@ App.new do
   @default_mailbox = "INBOX"
   @gmail = nil
   borderattrib = :reverse
-  @header = app_header "rbcurse 1.2.0", :text_center => "Yet Another Gmail Client that sucks", :text_right =>"", :color => :black, :bgcolor => :white#, :attr =>  Ncurses::A_BLINK
+  @header = app_header "rbcurse #{Rbcurse::VERSION}", :text_center => "Yet Another Gmail Client that sucks", :text_right =>"", :color => :black, :bgcolor => :white#, :attr =>  Ncurses::A_BLINK
   message "Press F1 to exit ...................................................."
 
 

data/examples/appmethods.rb

@@ -18,8 +18,8 @@ module RubyCurses
         VER::start_ncurses  
         #@form.reset_all # not required
       end
-      @form.repaint
-      @window.wrefresh
+      @form.repaint if @form
+      @window.wrefresh if @window
       Ncurses::Panel.update_panels
     end
     def suspend
@@ -64,6 +64,24 @@ module RubyCurses
       t.attr = :reverse
       end
     end
+    def shell_output
+      cmd = get_string("Enter shell command:", 50)
+      if cmd && !cmd.empty?
+        run_command cmd
+      end
+    end
+    def run_command cmd
+      # http://whynotwiki.com/Ruby_/_Process_management#What_happens_to_standard_error_.28stderr.29.3F
+      require 'rbcurse/extras/viewer'
+      begin
+        res = `#{cmd} 2>&1`
+      rescue => ex
+        res = ex.to_s
+        res << ex.backtrace.join("\n") 
+      end
+      res.gsub!("\t","   ")
+      RubyCurses::Viewer.view(res.split("\n"), :close_key => KEY_RETURN, :title => "<Enter> to close, M-l M-h to scroll")
+    end
   end # utils
 end # module RubyC
 include RubyCurses::Utils

data/examples/atree.rb

@@ -1,8 +1,12 @@
 require 'rbcurse/app'
 
 App.new do 
-  header = app_header "rbcurse 1.2.0", :text_center => "Tree Demo", :text_right =>"New Improved!", :color => :black, :bgcolor => :white, :attr => :bold 
+  header = app_header "rbcurse #{Rbcurse::VERSION}", :text_center => "Tree Demo", :text_right =>"New Improved!", :color => :black, :bgcolor => :white, :attr => :bold 
   message "Press Enter to expand/collapse"
+      @form.bind_key(FFI::NCurses::KEY_F3) { 
+        require 'rbcurse/extras/viewer'
+        RubyCurses::Viewer.view("rbc13.log", :close_key => KEY_RETURN, :title => "<Enter> to close")
+      }
 
   stack :margin_top => 2, :margin => 5, :width => 30 do
     tm = nil
@@ -17,6 +21,9 @@ App.new do
           end
         end
       end
+      found=atree.get_node_for_path "goodbye"
+      atree.set_expanded_state(atree.root, true)
+      atree.set_expanded_state(found,true)
 
       # using a Hash
       model = { :ruby => [ "jruby", {:mri => %W[ 1.8.6 1.8.7]}, {:yarv => %W[1.9.1 1.9.2]}, "rubinius", "macruby" ], :python => %W[ cpython jython laden-swallow ] }
@@ -52,5 +59,6 @@ App.new do
       end
 
       tree :data => model, :title => "legacy way"
+
   end
 end # app

data/examples/dbdemo.rb

@@ -0,0 +1,460 @@
+require 'rbcurse/app'
+require 'sqlite3'
+require 'rbcurse/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/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/extras/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 help_text
+    <<-eos
+               APPEMAIL HELP 
+
+      This is some help text for appemail.
+      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
+      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 './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
+  stack :margin => 0 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
+    tlist.bind(:PRESS) do |eve|
+      if $current_db
+      # get data of table
+        view_data 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
+    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
+    @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
+        "%-20s [%-s] %s" % [ Time.now, "Select a Database", text]
+      elsif !$current_table
+        "%-20s [DB: %-s | %-s ] %s" % [ Time.now, $current_db || "None", $current_table || "Select a table", text] 
+      else
+        "%-20s [DB: %-s | %-s ] %s" % [ Time.now, $current_db || "None", $current_table || "----", text] 
+      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(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 => 50, :width => :EXPAND  do
+    tarea = textarea :name => 'tarea', :height => 20, :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
+  end
+end # app