rbhex-core 1.0.0

data/examples/data/table.txt

@@ -0,0 +1,37 @@
+69|C-u not available for textpad and view. how to|P2|open
+85|combo symbol when label, see newmessagebox|P2|open
+86|combo let caller suggest width and use if longer than longest item|P2|open
+88|keep working on wsshortcuts as in testws..2.rb|P2|open
+89|messagebox, see about background for zterm-256 as in header|P2|open
+97|binding to KEY_ENTER doesn't work, have to bid to 13|P2|open
+98|if list not binding ENTER then dont consume it|P2|open
+22|widget hide (visible false) does not hide|P3|open
+65|clean up window.rb prv_printstring etc|P3|open
+74|list and others should just calculate longest in list|P3|open
+79|cleanup button getpaint etc|P3|open
+80|use @focusable in form to simplify|P3|open
+87|praps global setting lists etc use SPC for scroll or selection|P3|open
+92|messagebox: if text longer than display then can we split|P3|open
+95|window.refresh required after alert of messagebox closes|P3|open
+99|button option to set mnemo for keys without alt|P3|open
+10|combo keys|P4|open
+17|selected_item of list broken|P4|open
+20|cannot bind_key using Alt key and another. |P4|open
+27|#fix testvimsplit not sizing STACK correctly|P4|open
+32| #tree many empty methods in #treemodel|P4|open
+37|simplify #vimsplit calculation|P4|open
+52|%label set_label may have to calculate at repaint esp in app|P4|open
+55|Have a module Expandable for those that are multiline|P4|open
+56|DRY up titles and borders|P4|open
+60|fields width, display_len is for input area, not label plus input|P4|open
+61|test2.rb color change not affecting text objects|P4|open
+70|confusion between renderer and color_parser|P4|open
+75|textpad to allow append << at some stage|P4|open
+93|messagebox conform and choice whith single key getch|P4|open
+8|container keep repainting all|P5|open
+26|App to have a layout abject |P5|open
+39|tabularwidget truncate needed left_margin|P5|open
+42|append_to_kill, yank not working in %listbox|P5|open
+49|resultsetview needs way to specify key fields|P5|open
+50|sort on tabularwidget with resultset error sometimes|P5|open
+96|configure confirm quit etc through a file|P5|open

data/examples/data/tasks.csv

@@ -0,0 +1,88 @@
+1|clo|bug|X3|messagebox label print overlaps left border
+2|clo|enh|P4|Field: methods not chainable
+3|clo|bug|P3|button crash if mnemo not in text
+4|clo|enh|P3|link mnemo should not have Alt
+8|ope|bug|P5|container keep repainting all
+9|clo|enh|P3|menu bar keys
+10|ope|enh|P4|combo keys
+11|clo|bug|X3|hand written DSL defs dont fire prop handler
+12|clo|bug|X4|textview on_enter
+13|clo|enh|P3|traversal of listboxes
+14|clo|enh|P3|check keys Alt-Sh-O, Alt-[. Add some missing
+15|clo|bug|P3|2 keys simulaneously with Alt-O or Alt-[
+16|clo|enh|P3|put key combins in arrays and match
+17|ope|bug|P4|selected_item of list broken
+18|clo|enh|P3|valid_range for Field
+19|clo|bug|X2|tree can print beyond right margin
+20|ope|bug|P4|cannot bind_key using Alt key and another. 
+21|sta|enh|P2|make code from App common so reusable in other examples
+22|ope|bug|P3|widget hide (visible false) does not hide
+23|clo|bug|P3|listbox color changes not reflecting in cell_renderer
+24|clo|bug|P3|Table: delete row should reflect focussed_index.
+25|clo|enh|X3|#cleanup add_cols rows_panned #urgent
+26|ope|fea|P5|App to have a layout abject 
+27|ope|bug|P4|#fix testvimsplit not sizing STACK correctly
+28|clo|enh|P1|FieldValidationException should rollback change,
+29|clo|enh|X1|return self from dsl_prop and dsl_accessor,
+30|can|bug|P3|on_leave has validations that should be separated,
+31|clo|enh|X1|#listbox data more accessible from LB class,
+32|ope|enh|P4| #tree many empty methods in #treemodel
+33|clo|enh|X3|display_menu shd furhter glob on tab
+34|clo|enh|X3|display_menu large list need scrolling
+35|clo|bug|X3|alert message getting truncated after 2 lines
+36|clo|fea|X3|use j k h l for navigation if unused by a button of widget
+37|ope|enh|P4|simplify #vimsplit calculation
+38|clo|bug|X3|#tabbedpane when fire, state of old tab discrep
+39|ope|bug|P5|tabularwidget truncate needed left_margin
+40|clo|bug|X3|%textarea C-e goes to last char, not one after that
+41|clo|bug|X3|M-2 did not work in textarea 
+42|ope|bug|P5|append_to_kill, yank not working in %listbox
+43|clo|bug|X1|rt arrow and backspace issue ask(), dbdemo save #urgent
+44|clo|bug|P1|need to hide window after ask(), dbdemo save
+45|clo|bug|X3|directory list, after pressing Enter on ../ focus on header
+46|clo|enh|X3|textview repaints all even when no scrolling
+47|ope|enh|P4|vieditable and io.rb need to create statuswindow and take input
+48|clo|bug|X3|say not working after ask hides window
+49|ope|enh|P5|resultsetview needs way to specify key fields
+50|ope|bug|P5|sort on tabularwidget with resultset error sometimes
+51|clo|bug|X2|TabbedPane's TabbedButtons rely on window being 0,0
+52|ope|bug|P4|%label set_label may have to calculate at repaint esp in app
+53|clo|bug|X3|%App. if shortcut used outside stack or flow, dont attach form or set
+54|clo|bug|X3|inside newtabbedpane button mnemonic and underline not happening #fix
+55|ope|enh|P4|Have a module Expandable for those that are multiline
+56|ope|enh|P4|DRY up titles and borders
+57|clo|enh|X2|dont put default for color and bg in init of Wid or field
+58|clo|enh|X2|Fields display_length should be width or made alias
+60|ope|enh|P4|fields width, display_len is for input area, not label plus input
+61|ope|bug|P4|test2.rb color change not affecting text objects
+62|clo|bug|X2|when using chunks, movement crashes C-e etc
+63|clo|bug|X2|chunks in textview, when scrolling earlier lines shown
+64|clo|enh|X2|abstract chunk and parse into Format class
+65|ope|enh|P3|clean up window.rb prv_printstring etc
+66|clo|bug|X2|colorparser needs to carryover, and :reset
+67|clo|enh|X3|several places doing attrib conversion in window, use get_attrib
+68|clo|bug|X4|move chunk parsing from window.rb to chunk as in textview
+69|ope|bug|P2|C-u not available for textpad and view. how to
+70|ope|enh|P4|confusion between renderer and color_parser
+71|clo|enh|X1|redo combo with basiclist or new popup
+72|clo|enh|X2|redo label simplify, one line only
+73|clo|bug|X2|rbasiclist needs to reduce selected symbol 
+74|ope|enh|P3|list and others should just calculate longest in list
+75|ope|enh|P4|textpad to allow append << at some stage
+76|clo|enh|X3|appmethods.rb may need to go into lib/common or somewhere else
+77|clo|enh|X2|switch messagebox old and new and change rdialog
+78|clo|enh|X1|switch tabbedpane classes and update examples
+79|ope|enh|P3|cleanup button getpaint etc
+80|ope|enh|P3|use @focusable in form to simplify
+81|clo|bug|X2|field label mnemonic not being set
+82|ope|bug|P2|new messagebox need default_button option
+83|clo|enh|X2|check statusline usage, should use formatted only
+84|clo|bug|X2|dbdemo M-z not doing anything
+85|ope|bug|P2|combo symbol when label, see newmessagebox
+86|ope|bug|P2|combo let caller suggest width and use if longer than longest item
+87|ope|enh|P3|praps global setting lists etc use SPC for scroll or selection
+88|ope|enh|P2|keep working on wsshortcuts as in testws..2.rb
+89|ope|bug|P2|messagebox, see about background for zterm-256 as in header
+90|clo|bug|X2|messagebox: message sets width, even if user has specified
+91|clo|enh|X2|messagebox: default row col cannot be 0,0
+92|ope|enh|P3|messagebox: if text longer than display then can we split

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/todo.txt

@@ -0,0 +1,10 @@
+ 2. Show key mappings to user
+ 3. how to override +- * a and others for listbox - need to call before super()
+ 4. app to contain window close and confirm close
+ 4. when sorting cursor on old row but curr changed
+ 5. app needs to pass up exceptions to user app
+ 5. test out vieditable and listeditable with core
+.3. Make keylabels more rubyesque - later
+x5. convert testlistbox to core
+x5. messagebox default button - done but current button should show default char
+x5. messagebox to catch YN keys also

data/examples/data/todo.txt.bak

@@ -0,0 +1,10 @@
+ 2. Show key mappings to user
+ 3. how to override +- * a and others for listbox - need to call before super()
+ 4. app to contain window close and confirm close
+ 4. when sorting cursor on old row but curr changed
+ 5. app needs to pass up exceptions to user app
+ 5. test out vieditable and listeditable with core
+.3. Make keylabels more rubyesque - later
+x5. convert testlistbox to core
+x5. messagebox default button - done but current button should show default char
+x5. messagebox to catch YN keys also

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,502 @@
+require 'rbhex/core/util/app'
+require 'sqlite3'
+#require 'rbhex/experimental/resultsettextview.rb'
+#require 'rbhex/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
+  $log.debug "XXX:  CONNECT got #{dbname} "
+  $current_db = dbname
+  $db = SQLite3::Database.new(dbname) if 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
+  #raise "no block given " unless block_given?
+  listconfig = {'bgcolor' => 'blue', 'color' => 'white'}
+  listconfig[:selection_mode] = selection_mode
+  ix = popuplist array, listconfig
+  if ix
+    if selection_mode == :single
+      value = array[ix]
+      blk.call value
+    else
+      #values = array.select {|v| ix.include? v}
+      values = []
+      array.each_with_index { |v, i| values << v if ix.include? i }
+      blk.call(values)
+    end
+  end
+end
+
+#
+# changed order of name and fields, thanks hramrach
+def view_data name, fields="*"
+  stmt = "select #{fields} from #{name}"
+  stmt << $where_string if $where_string
+  stmt << $order_string if $order_string
+  view_sql stmt
+  @form.by_name['tarea'] << stmt if @form # nil when called from menu
+end
+def view_sql stmt
+  begin
+  content = get_data stmt
+  if content.nil?
+  else
+    require 'rbhex/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"))
+    textdialog [err.to_s, *err.backtrace], :title => "Exception"
+  end
+end
+
+App.new do
+  #header = app_header "rbhex #{Rbhex::Core::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
+
+                Sql Entry Area
+      C-x e        Edit in $EDITOR or vi
+      M-?          To see other key-bindings
+      F4           Execute SQL (there should be only one sql).
+
+
+                Result Set  (this is not present in this demo any longer - moved
+                to rbhex-extras)
+      ,            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
+        ix = popuplist( names )
+        if ix
+          value = names[ix]
+          connect(value);
+          @form.by_name["tlist"].list(get_table_names)
+        end
+
+      else
+        alert "Can't find a .db or .sqlite file"
+      end
+  end
+  @form.help_manager.help_text = help_text()
+  # 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( text, value.join(",") ) }
+        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 'rbhex/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
+  flow :margin_top => 1 do
+    col1w = 20
+    stack :width_pc => 20 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,
+        :selection_mode => :single
+      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} " # TODO in core
+        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 $selected_table, cols
+        else
+          alert "Select a table first."
+        end
+      end
+      clist.bind_key('w', 'add to where condition') {
+        c = clist.current_value
+        $where_columns ||= []
+        hist = ["#{c} = "]
+        w = rb_gets("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', 'add to order by') {
+        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', 'add to ordery by desc') {
+        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"], ["e", "Edit externally"], ["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], 'quit') { throw :close }
+      @form.bind_key(?\M-t, 'select table') 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, 'select database') do
+        ask_databases
+      end
+      @form.bind_key(FFI::NCurses::KEY_F4, 'view data') 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 $current_table, cols
+        else
+          alert "Select a table first."
+        end
+      end
+    end # stack
+    stack :width_pc => 80 do
+      tarea = textarea :name => 'tarea', :height => 5, :title => 'Sql Statement'
+      #undom = SimpleUndo.new tarea
+      tarea.bind_key(Ncurses::KEY_F4, 'view data') 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, 'textarea submenu'){
+
+        hash = { 'c' => lambda{ tarea.remove_all },
+          'e' => lambda{ tarea.edit_external },
+          '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 = rb_gets("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: "
+          cproc = Proc.new { |str| Dir.glob(str + "*") }
+          str = rb_gets "Choose a file: ", :title => "Files", :tab_completion => cproc,
+            :help_text => "Press <tab> to complete filenames. C-a, C-e, C-k. Alt-?"
+          if str && File.exists?(str)
+            begin
+              tarea.set_content(str)
+              message "Read content from #{str} "
+            rescue => err
+              print_error_message "No file named: #{str}: #{err.to_s} "
+            end
+          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
+end # app