canis 0.0.5 → 0.0.7

checksums.yaml

@@ -1,7 +1,7 @@
 ---
 SHA1:
-  metadata.gz: d5a775dee6fbf1b0f9bc371c1e11ec5822241396
-  data.tar.gz: ac9799e0d5419870a54b30f388b0e56984def45e
+  metadata.gz: f94ffa2e37387dc50fb96d5f40cbd6b97cd60143
+  data.tar.gz: 2323ea61ad5c4403628a6932665aed0a5ab7901d
 SHA512:
-  metadata.gz: f261dc96bb4b87476193966e16cbf8c417de1cd49f4b4e99a173837045ea527dc6e503916c06a868c2e9598fa981c30eaf7f749b58c7d730e5c4e2c06fb1aa3a
-  data.tar.gz: 992fe5d6546ece188d6b5599a03d94b6f3b35e86fb40e878dcda350107a389f51edd31929a522546a3d3ac6fd26ea263d194f766eb64fe14aba61be2f96f956b
+  metadata.gz: 981c442662ac2c991dde00187fa1dc2210c5ce3a901a3d0d249599c08b56effc13929c1ae14b373c91f828a28b50c5b8d4664c9e338b3a710bc3b8342fe1f1be
+  data.tar.gz: 943dab012e46633bfe16fc35bab8dfad406abd700dae2bd4d97a44a22bff4ecfcd61e959cc99d552a1795a1c4e266300f412de3a177721b14bbe9693a1a451bf

data/CHANGES

@@ -55,3 +55,13 @@ Built 0.0.2 but i did not release it.
 - for 0.0.5
   - fixed a bug in handling of multiple key assignments due to which extra keys pushed onto stack
   - App keyblock yields string of key without changing or converting to symbol
+
+2014-09-01 
+- for 0.0.6
+  - Statusline location defaults to -1 from bottom, earlier -3
+  - Statusline attrib was A_REVERSE earlier, now defaults to A_NORMAL.
+  - bugs and omissions in parse_format, and in DefaultColorParser fixed.
+
+2014-09-02
+- for 0.0.7
+  rdialog.rb introduced a syntax error while adding names to windows, had to yank 0.0.6

data/README.md

@@ -1,9 +1,12 @@
 # Canis
 
-ncurses library for ruby with essential components/controls only
+wrapper over ruby ffi-ncurses library with essential components/controls only.
 
-Things are looking better now. Textpad seems to be more or less stable as far 
-as changes are concerned
+Canis has taken over the codebase of rbcurse. Canis is _not_ backward compatible with rbcurse.
+Canis tries to simplify and refactor rbcurse. Canis also tries to standardize without causing too much change.
+
+Applications that worked with rbcurse can be moved over to canis with some minor rework. An example is the `ri`
+document reader, `rigel` which is based on the code of `ribhu` (which was rbcurse based).
 
 ## Installation
 
@@ -11,12 +14,104 @@ as changes are concerned
 
 ## Usage
 
+Until, we have better documentation, the best way to understand "canis" is to run the examples in the examples
+folder. This gives a good idea of what the library does. Now you can open the source and get a feel of the 
+structure of the code and what to study. One can also select an example that is close to the application one has in mind
+and use the source as a starting point.
+
+That said, all applications will use a `Window`, typically a `root_window` which covers the entire screen.
+A Window contains a `Form`, which manages all the widgets or controls inside it. It manages traversal, as well
+as calling events on them and setting their state.
+So you may be interested in reading up on the controls you need such as a `Listbox` or a `Textpad` (a multiline readonly
+textarea). Pay attention to the events that they handle such as row_selection, or entering and leaving a row, etc.
+
+Of interest is also the `App` class which wraps some basic boilerplate code such as starting and shutting ncurses, setting
+colors, and creating a root_window and its form.
+
+Each widget has a large number of properties which can be changed at any time. Unfortunately these may not show up
+in the generated documentation since they are not created using `attr_accessor`. It is necessary for a widget to be repainted whenever
+a property is changed, thus `dsl_property` has been used in place of `attr_accessor`.
+
+Canis (from rbcurse) provides all the small utilities you need for user interfaces such as dialogs to get a string from the user, confirmation dialogs, dialogs to display running text or exceptions, alerts, statuslines (like vim), an application header (like alpine). dialogs to select one or more rows from a list, menus etc. It borrows features from other text applications such as vim or emacs such as multiple key mappings (e.g., 'gg'). All multiline widgets have vim keybindings for traversal including numeric prefixes.
+
+There are routines for accessing the OS, such as shelling out to the shell, or running a shell command and seeing the results in a Viewer, or editing a file externally in your EDITOR. These can be seen in the examples.
+
+The key F1, provides access to a help system which explains the keys related to all the widgets. An application can and should add its help to this.
+
+
 TODO: Write usage instructions here
 
-Textpad is more or less frozen. I have also simplified Field a bit.
+Commonly used widgets and features:
+
+- Textpad - to display non-editable multiline text. Text can be colored. 
+- Listbox - identical to the textpad except that it allows single or multiple selection, and has 
+    some extra events such as entering and leaving or row, and selection.
+- Field - user entry of a single line of data.
+- Label - readonly text
+- Button - action oriented widget
+
+Some optional application related widgets and features:
+
+- Application Header : the first row of an application, containing application name, or program module name. Usually
+  some of this text changes as a user navigates, such as line number in a list.
+- Statusline : similar to vim's statusline with various bits of information, or status, and time.
+- Dock : Identical to Alpine's key-action labels at the bottom of the screen informing the user of some actions
+  that may be taken in the current context.
+
+Lesser used widgets and features:
+
+- Menubar: similar to the menubar on all applications with menu's and menuitems that trigger actions.
+- Tree : heirarchical data structure
+- Table : tabular data structure
+- Other buttons: Checkbox, Radiobutton, Togglebutton
+- TabbedPane  - useful for configuration screens
+- Variable : based on TK's tkVariable, once used a lot internally in each widget, now used only in radiobuttons.
+- Progress Bar - display progress of a process. See also progress_dialog.
+- Textarea : editable multiline widget.
+
+Some Issues with rbcurse:
+
+Widgets required explicit coordinates. To that effect the App class allowed for `Stack` and `Flow` (idea borrowed from
+the **Shoes** project. This works well, but all stack and flow information is lost when controls are placed meaning that a 
+change in the window size (if user resizes) does not (and cannot) resize the application.
+
+Canis has recently introduced Layout objects which have the ability to re-locate and resize objects when screen size
+is changed, although these layout objects are quite simple compared to the earlier stack and flow. The earlier stack
+and flow allowed any number of recursive layers.
+
+Currently there are three layout objects:
+- `StackLayout` : does only stacking of objects (vertical placement)
+- `FlowLayout` : does only horizontal placement of obects
+- `SplitLayout` : allows for multiple stacks and flows by means of splitting a split either horizontally or vertically
+  and either placing an object in it, or splitting it further. 
+These are based on an `AbstractLayout` which can be used to derive further layouts.
+
+It is my intention to move usage over to these layouts since they are simpler, and allow for resizing (and to abandon
+stacks and flows at some stage, unless people find them easier to use).
+
+Issues canis would like to address:
+
+- further simplifying of canis, but giving the user/programmer the ability of adding complexity at his level.
+  I would like to do this before reaching 1.0.
+
+- Keymapping. Currently, takes codes as integers, but i would have liked moving to strings as in vim.
+  Currently we have to map `?\C-a.getbytes(0)` or `[?g, ?g]`, whereas a string would allow us to map `"<C-x>s"` 
+  or `"<F1>"` or `"gg"`. The issue is that there is too much rework within the library since each widget uses integer mappings.
+  Mapping and matching multiple keys would be a lot easier if stored internally as a string, currently multiple
+  mappings require a hash or tree at each level.
+
+For a tutorial of rbcurse, see:
+https://github.com/rkumar/rbcurse-tutorial
+This tutorial needs to be updated for canis. Although, canis has diverged/forked from rbcurse, but the basic principles are still the same.
+
+There is some on-line documentation of classes at:
+http://rubydoc.info/gems/canis/0.0.5/frames
 
 ## Contributing
 
+0. Please give suggestions on how to improve the documentation.
+0.1. Please give suggestion on how to improve canis.
+
 1. Fork it ( https://github.com/[my-github-username]/canis/fork )
 2. Create your feature branch (`git checkout -b my-new-feature`)
 3. Commit your changes (`git commit -am 'Add some feature'`)

data/examples/common/devel.rb

@@ -4,7 +4,7 @@
 #       Author: j kepler  http://github.com/mare-imbrium/canis/
 #         Date: 2014-06-02 - 20:26
 #      License: MIT
-#  Last update: 2014-07-10 18:33
+#  Last update: 2014-08-30 17:50
 # ----------------------------------------------------------------------------- #
 #  devel.rb  Copyright (C) 2012-2014 j kepler
 require 'canis/core/include/appmethods'
@@ -78,6 +78,89 @@ module Canis
       code_browse str
     end
   end
+  # for the current field, display the instance variables and their values
+  #  as well as the public methods.
+  # (We can do this in a tree format too)
+  def view_properties field=@form.get_current_field
+    alert "Nil field" unless field
+    return unless field
+    text = ["Instance Variables"]
+    text << "------------------"
+    #iv = field.instance_variables.map do |v| v.to_s; end
+    field.instance_variables.each do |v|
+      val = field.instance_variable_get(v)
+      klass = val.class
+      if val.is_a? Array 
+        val = val.size
+      elsif val.is_a? Hash
+        val = val.keys
+      end
+      case val
+      when String, Fixnum, Integer, TrueClass, FalseClass, NilClass, Array, Hash, Symbol
+        ;
+      else
+        val = "Not shown"
+      end
+      text << "%20s  %10s  %s" % [v, klass, val]
+    end
+    text << " "
+    text << "Public Methods"
+    text << "--------------"
+    pm = field.public_methods(false).map do |v| v.to_s; end
+    text +=  pm
+    text << " "
+    text << "Inherited Methods"
+    text << "-----------------"
+    pm = field.public_methods(true) - field.public_methods(false)
+    pm = pm.map do |v| v.to_s; end
+    text +=  pm
+
+    #$log.debug "  view_properties #{s.size} , #{s} "
+    textdialog text, :title => "Properties"
+  end
+
+  # place instance_vars of current or given object into a hash
+  #  and view in a treedialog.
+  def view_properties_as_tree field=@form.get_current_field
+    alert "Nil field" unless field
+    return unless field
+    text = []
+    tree = {}
+    #iv = field.instance_variables.map do |v| v.to_s; end
+    field.instance_variables.each do |v|
+      val = field.instance_variable_get(v)
+      klass = val.class
+      if val.is_a? Array 
+        #tree[v.to_s] = val
+        text << { v.to_s => val }
+        val = val.size
+      elsif val.is_a? Hash
+        #tree[v.to_s] = val
+        text << { v.to_s => val }
+        if val.size <= 5
+          val = val.keys
+        else
+          val = val.keys.size.to_s + " [" + val.keys.first(5).join(", ") + " ...]"
+        end
+      end
+      case val
+      when String, Fixnum, Integer, TrueClass, FalseClass, NilClass, Array, Hash, Symbol
+        ;
+      else
+        val = "Not shown"
+      end
+      text << "%-20s  %10s  %s" % [v, klass, val]
+    end
+    tree["Instance Variables"] = text
+    pm = field.public_methods(false).map do |v| v.to_s; end
+    tree["Public Methods"] = pm
+    pm = field.public_methods(true) - field.public_methods(false)
+    pm = pm.map do |v| v.to_s; end
+    tree["Inherited Methods"] = pm
+
+    #$log.debug "  view_properties #{s.size} , #{s} "
+    treedialog tree, :title => "Properties"
+  end
   def ruby_renderer
     require 'canis/core/include/defaultfilerenderer'
       dr = DefaultFileRenderer.new

data/examples/dbdemo.rb

@@ -1,8 +1,228 @@
 require 'canis/core/util/app'
 require 'sqlite3'
-#require 'canis/experimental/resultsettextview.rb'
-#require 'canis/experimental/widgets/undomanager'
 
+def menu_bar hash, config={}, &block
+  if hash.is_a? Hash
+    list = hash.keys
+  else
+    list = hash
+  end
+  raise ArgumentError, "Nil list received by popuplist" unless list
+
+  max_visible_items = config[:max_visible_items]
+  # FIXME have to ensure that row and col don't exceed FFI::NCurses.LINES and cols that is the window
+  # should not FINISH outside or padrefresh will fail.
+  row = config[:row] || 5
+  col = config[:col] || 5
+  relative_to = config[:relative_to]
+  if relative_to
+    layout = relative_to.form.window.layout
+    row += layout[:top]
+    col += layout[:left]
+  end
+  config.delete :relative_to
+  extra = 2 # trying to space the popup slightly, too narrow
+  width = config[:width] || longest_in_list(list)+4 # borders take 2
+  if config[:title]
+    width = config[:title].size + 4 if width < config[:title].size + 4
+  end
+  height = config[:height]
+  height ||= [max_visible_items || 10+2, list.length+2].min 
+  #layout(1+height, width+4, row, col) 
+  layout = { :height => 0+height, :width => 0+width, :top => row, :left => col } 
+  window = Canis::Window.new(layout)
+  window.name = "WINDOW:popuplist"
+  window.wbkgd(Ncurses.COLOR_PAIR($reversecolor));
+  form = Canis::Form.new window
+
+  right_actions = config[:right_actions] || {}
+  config.delete(:right_actions)
+  less = 0 # earlier 0
+  listconfig = config[:listconfig] || {}
+  listconfig[:list] = list
+  listconfig[:width] = width - less
+  listconfig[:height] = height
+  listconfig[:selection_mode] ||= :single
+  listconfig.merge!(config)
+  listconfig.delete(:row); 
+  listconfig.delete(:col); 
+  # trying to pass populists block to listbox
+  lb = Canis::Listbox.new form, listconfig, &block
+  #lb.should_show_focus = true
+  #$row_focussed_attr = REVERSE
+
+  
+  # added next line so caller can configure listbox with 
+  # events such as ENTER_ROW, LEAVE_ROW or LIST_SELECTION_EVENT or PRESS
+  # 2011-11-11 
+  #yield lb if block_given? # No it won't work since this returns
+  window.wrefresh
+  Ncurses::Panel.update_panels
+  form.repaint
+  window.wrefresh
+          display_on_enter = false
+  begin
+    windows = []
+    lists = []
+    hashes = []
+    choices = []
+    unentered_window = nil
+    _list = nil
+    while((ch = window.getchar()) != 999 )
+      case ch
+      when -1
+        next
+      when ?\C-q.getbyte(0)
+        break
+      else
+        lb.handle_key ch
+        lb.form.repaint
+        if ch == Ncurses::KEY_DOWN or ch == Ncurses::KEY_UP
+          if unentered_window
+            unentered_window.destroy
+            unentered_window = nil
+          end
+          # we need to update hash as we go along and back it up.
+          if display_on_enter
+            # removed since cursor goes in
+          end
+        elsif ch == Ncurses::KEY_RIGHT
+          if hash.is_a? Hash
+            val = hash[lb.current_value]
+            if val.is_a? Hash or val.is_a? Array
+              unentered_hash = val
+              choices << lb.current_value
+              unentered_window, _list = display_submenu val, :row => lb.current_index, :col => lb.width, :relative_to => lb, 
+                :bgcolor => :cyan
+            end
+          else
+            x = right_actions[lb.current_value]
+            val = nil
+            if x.respond_to? :call
+              val = x.call
+            elsif x.is_a? Symbol
+              val = send(x)
+            end
+            if val
+              choices << lb.current_value
+              unentered_hash = val
+              unentered_window, _list = display_submenu val, :row => lb.current_index, :col => lb.width, :relative_to => lb, 
+                :bgcolor => :cyan
+            end
+
+          end
+          # move into unentered
+          if unentered_window
+            lists << lb
+            hashes << hash
+            hash = unentered_hash
+            lb = _list
+            windows << unentered_window
+            unentered_window = nil
+            _list = nil
+          end
+        elsif ch == Ncurses::KEY_LEFT
+          if unentered_window
+            unentered_window.destroy
+            unentered_window = nil
+          end
+          # close current window
+          curr = nil
+          curr = windows.pop unless windows.empty?
+          curr.destroy if curr
+          lb = lists.pop unless lists.empty?
+          hash = hashes.pop unless hashes.empty?
+          choices.pop unless choices.empty?
+          unless windows.empty?
+            #form = windows.last
+            #lb - lists.pop
+          end
+        end
+        if ch == 13 || ch == 10
+          val = lb.current_value
+          if hash.is_a? Hash
+            val = hash[val]
+            if val.is_a? Symbol
+              #alert "got #{val}"
+              #return val
+              choices << val
+              return choices
+            end
+          else
+            #alert "got value #{val}"
+            #return val
+            choices << val
+            return choices
+          end
+          break
+        end
+      end
+    end
+  ensure
+    window.destroy   if window
+    windows.each do |w| w.destroy if w ; end
+  end
+  return nil
+end
+def display_submenu hash, config={}, &block
+  if hash.is_a? Hash
+    list = hash.keys
+  else
+    list = hash
+  end
+  raise ArgumentError, "Nil list received by popuplist" unless list
+
+  max_visible_items = config[:max_visible_items]
+  # FIXME have to ensure that row and col don't exceed FFI::NCurses.LINES and cols that is the window
+  # should not FINISH outside or padrefresh will fail.
+  row = config[:row] || 1
+  col = config[:col] || 0
+  relative_to = config[:relative_to]
+  if relative_to
+    layout = relative_to.form.window.layout
+    row += layout[:top]
+    col += layout[:left]
+  end
+  config.delete :relative_to
+  extra = 2 # trying to space the popup slightly, too narrow
+  width = config[:width] || longest_in_list(list)+4 # borders take 2
+  if config[:title]
+    width = config[:title].size + 4 if width < config[:title].size + 4
+  end
+  height = config[:height]
+  height ||= [max_visible_items || 10+2, list.length+2].min 
+  #layout(1+height, width+4, row, col) 
+  layout = { :height => 0+height, :width => 0+width, :top => row, :left => col } 
+  window = Canis::Window.new(layout)
+  window.name = "WINDOW:popuplist"
+  window.wbkgd(Ncurses.COLOR_PAIR($reversecolor));
+  form = Canis::Form.new window
+
+  less = 0 # earlier 0
+  listconfig = config[:listconfig] || {}
+  listconfig[:list] = list
+  listconfig[:width] = width - less
+  listconfig[:height] = height
+  listconfig[:selection_mode] ||= :single
+  listconfig.merge!(config)
+  listconfig.delete(:row); 
+  listconfig.delete(:col); 
+  # trying to pass populists block to listbox
+  lb = Canis::Listbox.new form, listconfig, &block
+
+  
+  # added next line so caller can configure listbox with 
+  # events such as ENTER_ROW, LEAVE_ROW or LIST_SELECTION_EVENT or PRESS
+  # 2011-11-11 
+  #yield lb if block_given? # No it won't work since this returns
+  window.wrefresh
+  Ncurses::Panel.update_panels
+  form.repaint
+  window.wrefresh
+  return window, lb
+end
+# TODO : if no data give an alert
+#
 # @return array of table names from selected db file
 def get_table_names
   raise "No database file selected." unless $current_db
@@ -24,7 +244,7 @@ end
 def get_data sql
   $log.debug "SQL: #{sql} "
   $columns, *rows = $db.execute2(sql)
-  $log.debug "XXX COLUMNS #{sql}  "
+  $log.debug "XXX COLUMNS #{sql}, #{rows.count}  "
   content = rows
   return nil if content.nil? or content[0].nil?
   $datatypes = content[0].types #if @datatypes.nil?
@@ -58,7 +278,54 @@ def create_popup array, selection_mode=:single,  &blk
     end
   end
 end
+# this is just a dead simple attenpt at a menu sans all the complexity of a menubar,
+#  but issue is that we need to select, and the menu disappears.
+#  We need to see the submenu as we traverse, and the tree should not disappear.
+#  # get actions working
+#  # accelerator
+#  # hotkey
+#  # separator
+#  # enabled disabled
+#  # > to come automatically at end if hash
+#  # work with horizlist
+def create_menu
+  items = Hash.new
+  # action shd be a hash
+  # menu should have array of hashes (or just a string)
+  #db = { :name => "Databases", :accelerator => "M-d", :enabled = true, :on_right => :get_databases }
+  #or = { :name => "Open Recent", :accelerator => "M-o", :enabled = true, :on_right => :get_recent }
+  #find_array = {"Find ..." => :find, "Find Next" => :find_next, "Find Previous" => :find_prev} 
+  items["File    >"] = ["Open ...       C-o" , "Open Recent",  "Databases" , "Tables", "Exit"]
+  items["Window  >"] = { "Tile" => nil, "Find   >" => {"Find ..." => :find, "Find Next" => :find_next, "Find Previous" => :find_prev},
+   "Edit" => nil, "Whatever" => nil}
+  items["Others  >"] = { "Shell Output ..." => :shell_output, "Suspend ..." => :suspend , "View File" => :choose_file_and_view}
+
+  # in the case of generated names how will call back know that it is a db name or a table name
+  # We get back an array containing the entire path of selections
+  right_actions = {}
+  right_actions["Databases"] = Proc.new { Dir.glob("**/*.{sqlite,db}") }
+  right_actions["Tables"] = :get_table_names
+
+  ret = popupmenu items, :row => 1, :col => 0, :bgcolor => :cyan, :color => :white, :right_actions => right_actions
+  # ret can be nil, or have a symbol to execute, or a String for an item with no leaf/symbol
+  if ret
+    alert "Got #{ret}"
+    last = ret.last
+    if last.is_a? Symbol
+      if respond_to?(last, true)
+        send(last)
+      end
+    end
+  end
 
+  return
+  r = 1
+  ix = popuplist( top , :title => " Menu " , :row => r, :col => 0, :bgcolor => :cyan, :color => :white)
+  if ix
+    value = top[ix]
+    ix = popuplist( items[value] , :row => r + 2 + ix, :col => 10, :bgcolor => :cyan, :color => :white)
+  end
+end
 # 
 # changed order of name and fields, thanks hramrach
 def view_data name, fields="*"
@@ -69,10 +336,21 @@ def view_data name, fields="*"
   view_sql stmt
   @form.by_name['tarea'] << stmt if @form # nil when called from menu
 end
+def view_schema tablename
+  string = `sqlite3 #{$current_db}  ".schema #{tablename}"`
+  string = $db.get_first_value "select sql from sqlite_master where name = '#{tablename}'"
+
+  string =  string.split("\n")
+  if string.size == 1
+    string = string.first.split(",")
+  end
+  view string
+end
 def view_sql stmt
   begin
   content = get_data stmt
   if content.nil?
+    alert "No data for query"
   else
     require 'canis/core/widgets/tabular'
     t = Tabular.new do |t|
@@ -89,6 +367,7 @@ def view_sql stmt
 end
 
 App.new do 
+  $log = create_logger "canisdb.log"
   #header = app_header "canis #{Canis::VERSION}", :text_center => "Database Demo", :text_right =>"enabled"
   form = @form
   mylabel = "a field"
@@ -154,11 +433,14 @@ App.new do
   def ask_databases
       names = Dir.glob("*.{sqlite,db}")
       if names
-        ix = popuplist( names )
+        ix = popuplist( names , :row => 1, :col => 0, :bgcolor => :cyan, :color => :white, :title => "Databases")
         if ix
           value = names[ix]
           connect(value);
           @form.by_name["tlist"].list(get_table_names)
+          @form.by_name["tlist"].clear_selection
+          @form.by_name["clist"].clear_selection
+          @form.by_name["clist"].remove_all
         end
         
       else
@@ -185,6 +467,9 @@ App.new do
         command do |menuitem, text|
           connect text
           form.by_name["tlist"].list(get_table_names)
+          form.by_name["tlist"].clear_selection
+          form.by_name["clist"].clear_selection
+          form.by_name["clist"].remove_all
         end
       end
       menu "Tables" do
@@ -202,6 +487,7 @@ App.new do
       item "New", "N" 
       separator
       item "Exit", "x"  do 
+        accelerator "F10"
         command do
           throw(:close)
         end
@@ -211,36 +497,50 @@ App.new do
       end
 
     end # menu
-    menu "Window" do
-      item "Tile", "T"
+    menu "Edit" do
+      item "Paste", "P"
+      menu "Paste Special" do
+        item "Paste Slowly"
+        separator
+        item "Paste Faster"
+        item "Paste Slower"
+      end
       menu "Find" do
-        item "More", "M"
-        $x = item "Less", "L" do
+        item "Find ...", "F"
+        $x = item "Find Next", "N" do
           #accelerator "Ctrl-X"
           command do
-            alert "You clickses on Less"
+            alert "You clicked on Find Next "
           end
         end
-        menu "Size" do
+        item "Find Previous", "P"
+        menu "Window" do
           item "Zoom", "Z"
           item "Maximize", "X"
           item "Minimize", "N"
         end
       end
     end
-    menu "Others" do
+    menu "Shell" do
       require 'canis/core/include/appmethods.rb'
-      item "Shell Output" do
+      require './common/devel.rb'
+      item "Shell Output ..." do
         command { shell_output }
       end
-      item "Suspend" do
+      item "Suspend ..." do
         command { suspend }
       end
+      item "System ..." do
+        command { shell_out }
+      end
+      item "View File ..." do
+        command { choose_file_and_view }
+      end
     end
   end # menubar
   mb.toggle_key = FFI::NCurses::KEY_F2
   mb.color = :white
-  mb.bgcolor = :blue
+  mb.bgcolor = :magenta
   @form.set_menu_bar mb
   tv = nil
   flow :margin_top => 1 do
@@ -251,7 +551,7 @@ App.new do
         text = ["Select DB first.","Press Alt-D or ENTER"]
       end
       tlist = listbox :name => "tlist", :list => text, :title => "Tables", :height => 10,
-        :selected_color => 'cyan', :selected_bgcolor => 'black' , :selected_attr => Ncurses::A_REVERSE,
+        :selected_color => :cyan, :selected_bgcolor => :white , :selected_attr => Ncurses::A_REVERSE,
         :help_text => "<ENTER> to View complete table, 'v' to select table and view columns",
         :should_show_focus => true,
         :selection_mode => :single
@@ -270,11 +570,25 @@ App.new do
       #end
       clist = listbox :name => "clist", :list => ["No columns"], :title => "Columns", :height => 14, 
         :selection_mode => :multiple,
-        :selected_color => 'cyan', :selected_bgcolor => 'black' , :selected_attr => Ncurses::A_REVERSE,
+        :selected_color => :cyan, :selected_bgcolor => :white , :selected_attr => Ncurses::A_REVERSE,
         :help_text => "Enter to View selected fields, 'v' to select columns, w - where, o-order"
+
+
+      # change selected color when user enters or exits
+      [clist , tlist].each do |o|
+        o.bind(:ENTER) do 
+          # reduce flicker by only modifying if necesssary
+          o.selected_color = :cyan if o.selected_color != :cyan
+        end
+        o.bind(:LEAVE) do 
+          # reduce flicker by only modifying if necesssary
+          o.selected_color = :blue unless o.selected_indices.empty?
+        end
+      end
       tlist.bind(:LIST_SELECTION_EVENT) do |eve|
         $selected_table = eve.source[eve.firstrow]
         $current_table = $selected_table
+        clist.clear_selection
         clist.list( get_column_names $selected_table)
       end
       clist.bind(:PRESS) do |eve|
@@ -288,7 +602,7 @@ App.new do
           end
           view_data $selected_table, cols
         else
-          alert "Select a table first." 
+          alert "Select a table first ('v' selects)." 
         end
       end
       clist.bind_key('w', 'add to where condition') {
@@ -314,24 +628,17 @@ App.new do
         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 = status_line :row => -3, :bgcolor => :magenta, :color => :black
       @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] ]
+          "[%-s] %s" % [ "#[bg=red,fg=white,bold]Select a Database#[end]", text]
         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] ]
+          "[DB: #[fg=white,bg=blue]%-s#[end] | %-s ] %s" % [ $current_db || "None", $current_table || "#[bg=red,fg=white]Select a table#[end]", text] 
         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] ]
+          "DB: #[fg=white,bg=green,bold]%-s#[end] | #[fg=white,bold]%-s#[end] ] %s" % [ $current_db || "None", $current_table || "----", text] 
         end
       }
       @adock = nil
@@ -341,9 +648,9 @@ App.new do
         ["M-d", "Database"], ["M-t", "Table"],
         ["M-x", "Command"], nil
       ]
-      tlist_keyarray = keyarray + [ ["Sp", "Select"], nil, ["Enter","View"] ]
+      tlist_keyarray = keyarray + [ ["v", "Select"], nil, ["Enter","View"] ]
 
-      clist_keyarray = keyarray + [ ["Sp", "Select"], ["C-sp", "Range Sel"], 
+      clist_keyarray = keyarray + [ ["v", "Select"], ["V", "Range Sel"], 
         ["Enter","View"], ['w', 'where'],
         ["o","order by"], ['O', 'order desc']
       ]
@@ -396,6 +703,25 @@ App.new do
       @form.bind_key(?\M-d, 'select database') do
         ask_databases
       end
+      @form.bind_key(?\M-s, 'Enter SQL') do
+        str = get_text "Enter SQL"
+        if str
+          str = str.join " "
+          view_sql str
+        end
+      end
+      @form.bind_key(FFI::NCurses::KEY_F3, 'Menu') do
+        create_menu
+      end
+      @form.bind_key(FFI::NCurses::KEY_F5, 'view schema') do
+        view_schema $current_table
+      end
+      @form.bind_key(FFI::NCurses::KEY_F6, 'view properties') do
+        view_properties @form.get_current_field
+      end
+      @form.bind_key(FFI::NCurses::KEY_F7, 'view properties as tree') do
+        view_properties_as_tree @form.get_current_field
+      end
       @form.bind_key(FFI::NCurses::KEY_F4, 'view data') do
         $where_string = nil
         $order_string = nil