rkumar-rbcurse 0.1.1 → 0.1.2

data/CHANGELOG

@@ -1,3 +1,43 @@
+** 2009-02-17 12:10 **
+## added table markers for data and columns before and after on border ##
+
+also added putting space in intercell area, but today i am not getting any 
+junk there anywaym while scrolling etc.
+
+* * *
+** 2009-02-16 22:10 **
+## added edit_length to TableColumn ##
+
+This is max editable length of editor component in tables.
+
+* * *
+** 2009-02-13 13:48 **
+## added button_type to tabbed pane ##
+
+Now buttons at bottom of tabbed pane. Will return selected_index
+to caller.
+Uploaded to github, will be included in 0.1.2.
+
+* * *
+** 2009-02-12 22:48 **
+## Code to stop table from printing a column if exceeding bounds ##
+
+Uploaded to github, will be included in 0.1.2.
+
+EXPERIMENTAL CODE: Affects only tables. Now table will not print a column or header
+if columns width causes it to exceed width of table.
+
+This means if you have a single column which is wider than table
+then it wont print. In Listboxes we always truncate data and pass to
+renderer. We could do that here, but it could get messy.
+
+* * *
+**2009-02-12 **
+## Missed one parameter in Table's repaint, and some Table Cell Renderers
+
+Fixed and uploaded as 0.1.1
+
+* * *
 **2009-02-11 00:57**
 ## Path changes in order to make first gem ##
 

data/History.txt

@@ -0,0 +1,13 @@
+=== 0.1.1 / 2009-02-12
+
+* Bugfix
+
+  * Parameter added to table cell renderer's repaint got missed in one
+  * or 2 classes. Only affects Tables.
+
+=== 0.1.0 / 2009-02-11
+
+* 1 major enhancement
+
+  * Birthday!
+

data/README.txt

@@ -13,13 +13,19 @@
 
   * rfe.rb is a ruby file explorer
 
+  * sqlc.rb is a ruby sql client demo (using testd.db at
+     http://www.benegal.org/files/screen/testd.db)
+
   * testtodo.rb is a test TODO application
 
-* Screenshots on http://github.com/rkumar/rbcurse/wikis/screenshots
- (OLD)
-  and http://www.benegal.org/files/screen/?M=D   (new)
+* Screenshots on 
+  http://www.benegal.org/files/screen/?M=D   (new)
   and on blog, http://totalrecall.wordpress.com   
+  and http://github.com/rkumar/rbcurse/wikis/screenshots (old)
+
+* Todo (for 0.1.2): http://rubyforge.org/pm/task.php?group_id=7775&group_project_id=13812&func=browse
 
+* Next Major Release: http://rubyforge.org/pm/task.php?group_project_id=13813&group_id=7775&func=browse
 
 == DESCRIPTION:
 
@@ -127,7 +133,7 @@ code below. See test programs for latest, working code.
         end
         field.insert 5, "hello ruby", "so long python", "farewell java", "RIP .Net"
 
-=== create a textarea for entry (this can be buggy at present)
+=== create a textarea for entry 
 
         texta = TextArea.new @form do
           name   "mytext" 
@@ -287,21 +293,16 @@ code below. See test programs for latest, working code.
 
 (following is provided with source)
 
-* uses the window class created by "manveru" (michael) - this can be
-  removed if not needed. (lib/ver/window)
+* uses the window class created by "manveru" (michael) 
   It is provided with this package, and has some alterations from the
   original. I have added a method getchar() which traps and returns
   ALT/META, META+CTRL, META+SHIFT+CONTROL, ALT+Fn etc. 
 
-  So basically do not remove it unless you have very different
-  requirements.
 
 == INSTALL:
 
-* currently, just unzip/untar in a folder. Please change the path in
-  the top line of the test programs.
-
-(Please advice me how i can improve installation procedure)
+sudo gem install ncurses-ruby
+sudo gem install rbcurse
 
 == LICENSE:
 

data/examples/rfe.rb

@@ -13,9 +13,14 @@ require 'fileutils'
 #$LOAD_PATH << "/Users/rahul/work/projects/rbcurse/"
 
 # TODO
-# operations on selected files: move, delete, zip
+# operations on selected files: move, delete, zip, copy
+#   - delete should move to Trash if exists - DONE
+#   global - don't ask confirm
+#   Select based on pattern.
 # This class represents the finder pane. There are 2 
 # on this sample app
+# NOTE: rfe_renderer uses entries so you may need to sync it with list_data_model
+# actually, renderer should refer back to list data model!
 class FileExplorer
   include FileUtils
   attr_reader :wdir
@@ -34,6 +39,8 @@ class FileExplorer
     @wdir = @dir.path
     @filter_pattern = '*'
     @prev_dirs=[]
+    @inside_block = false
+
   end
   def title str
     @list.title = str
@@ -234,19 +241,41 @@ class FileExplorer
   def current_index
     @list.current_index
   end
-  def filename
+  def filename ix=current_index()
     #@entries[@list.current_index]
-    list_data()[current_index()]
+    list_data()[ix]
   end
-  def filepath
-    f = filename()
+  def filepath ix=current_index()
+    f = filename(ix)
     if f[0,1]=='/'
       f
     else
-      cur_dir() + "/" + filename()
+      cur_dir() + "/" + f
+    end
+  end
+  # delete the item at position i
+  def delete_at i=@list.current_index
+    ret = @list.list_data_model.delete_at i
+    ret = @entries.delete_at i
+  end
+  def delete obj
+    ret = @list.list_data_model.delete obj
+    ret = @entries.delete_at obj
+  end
+  def insert_at obj, ix = @list.current_index
+    @list.list_data_model.insert ix, f
+    @entries.insert ix, obj
+  end
+  def remove_selected_rows
+    rows = @list.selected_rows
+    rows=rows.sort! {|x,y| y <=> x }
+    rows.each do |i|
+      ret = @list.list_data_model.delete_at i
+      ret = @entries.delete_at i
     end
   end
 
+  # ADD
 end
 class RFe
   attr_reader :status_row
@@ -258,6 +287,9 @@ class RFe
     colb = Ncurses.COLS/2
     ht = Ncurses.LINES - 7
     wid = Ncurses.COLS/2 - 0
+    @trash_path = File.expand_path("~/.Trash")
+    @trash_exists = File.directory? @trash_path
+    $log.debug " trash_path #{@trash_path}, #{@trash_exists}"
     @lista = FileExplorer.new @form, self, row=2, col=1, ht, wid
     @listb = FileExplorer.new @form, self, row=2, col=colb, ht, wid
 
@@ -280,33 +312,116 @@ class RFe
     File.open(@config_name, "w") { | f | YAML.dump( @config, f )} 
   end
   def move
-    fp = @current_list.filepath
+    fp = @current_list.filepath #.gsub(' ',"\ ")
     fn = @current_list.filename
     $log.debug " FP #{fp}"
     other_list = [@lista, @listb].index(@current_list)==0 ? @listb : @lista
     other_dir = other_list.cur_dir
     $log.debug " OL #{other_list.cur_dir}"
-    str= "move #{fn} to #{other_list.cur_dir}"
-    $log.debug " MOVE #{fp}"
-    #confirm "#{str}"
-      mb = RubyCurses::MessageBox.new do
-        title "Move"
-        message "Move #{fn} to"
-       type :input
-       width 60
-        default_value other_dir
-       button_type :ok_cancel
-       default_button 0
-      end
+    if @current_list.list.selected_row_count == 0
+      str= "#{fn}"
+    else
+      str= "#{@current_list.list.selected_row_count} files "
+    end
+    mb = RubyCurses::MessageBox.new do
+      title "Move"
+      message "Move #{str} to"
+      type :input
+      width 80
+      default_value other_dir
+      button_type :ok_cancel
+      default_button 0
+    end
       #confirm "selected :#{mb.input_value}, #{mb.selected_index}"
       if mb.selected_index == 0
-        # need to redraw directories
-        FileUtils.move(fp, mb.input_value)
-        @current_list.list.list_data_model.delete_at @current_list.list.current_index  # ???
+        if @current_list.list.selected_row_count == 0
+          FileUtils.move(fp, mb.input_value)
+          #ret = @current_list.list.list().delete_at @current_list.list.current_index  # ???
+          #  @current_list.entries.delete_at @current_list.current_index
+          @current_list.delete_at
+        else
+          each_selected_row do |f|
+            FileUtils.move(f, mb.input_value)
+          end
+          @current_list.remove_selected_rows
+          @current_list.list.clear_selection
+        end
         other_list.rescan
       end 
   end
+  def each_selected_row #title, message, default_value
+    rows = @current_list.list.selected_rows
+    rows = rows.dup
+    rows.each do |i|
+      fp = @current_list.filepath i
+      #$log.debug " moving #{i}: #{fp}"
+      #FileUtils.move(fp, mb.input_value)
+      yield fp
+    end
+  end
   def copy
+    fp = @current_list.filepath #.gsub(' ',"\ ")
+    fn = @current_list.filename
+    $log.debug " FP #{fp}"
+    other_list = [@lista, @listb].index(@current_list)==0 ? @listb : @lista
+    other_dir = other_list.cur_dir
+    $log.debug " OL #{other_list.cur_dir}"
+    if @current_list.list.selected_row_count == 0
+      str= "#{fn}"
+    else
+      str= "#{@current_list.list.selected_row_count} files "
+    end
+    mb = RubyCurses::MessageBox.new do
+      title "Copy"
+      message "Copy #{str} to"
+      type :input
+      width 80
+      default_value other_dir
+      button_type :ok_cancel
+      default_button 0
+    end
+    if mb.selected_index == 0
+      if @current_list.list.selected_row_count == 0
+        FileUtils.copy(fp, mb.input_value)
+      else
+        each_selected_row do |f|
+          FileUtils.copy(f, mb.input_value)
+        end
+        @current_list.list.clear_selection
+      end
+      other_list.rescan
+    end 
+  end
+  def delete
+    fp = @current_list.filepath #.gsub(' ',"\ ")
+    fn = @current_list.filename
+    if @current_list.list.selected_row_count == 0
+      str= "#{fn}"
+    else
+      str= "#{@current_list.list.selected_row_count} files "
+    end
+    if confirm("delete #{str}")==:YES
+      if @current_list.list.selected_row_count == 0
+        if @trash_exists
+          FileUtils.mv fp, @trash_path
+        else
+          FileUtils.rm fp
+        end
+        ret=@current_list.delete_at 
+      else
+        each_selected_row do |f|
+          if @trash_exists
+            FileUtils.mv f, @trash_path
+          else
+            FileUtils.rm f
+          end
+        end
+        @current_list.remove_selected_rows
+        @current_list.list.clear_selection
+      end
+    end 
+  end
+  def copy1
     fp = @current_list.filepath
     fn = @current_list.filename
     $log.debug " FP #{fp}"
@@ -392,22 +507,11 @@ class RFe
     other_list = [@lista, @listb].index(@current_list)==0 ? @listb : @lista
     case c
     when 'c'
-    #  str= "copy #{fn} to #{other_list.cur_dir}"
       copy
     when 'm'
-      str= "move #{fn} to #{other_list.cur_dir}"
       move
-      #if confirm("#{str}")==:YES
-      #$log.debug " MOVE #{str}"
-      #end
     when 'd'
-      str= "delete #{fn} "
-      if confirm("#{str}")==:YES
-        $log.debug " delete #{fp}"
-        FileUtils.rm fp
-        ret=@current_list.list.list_data_model.delete_at @current_list.list.current_index  # ???
-        $log.debug " DEL RET #{ret},#{@current_list.list.current_index}"
-      end
+      delete
     when 'u'
       str= "move #{fn} to #{other_list.cur_dir}"
       if confirm("#{str}")==:YES
@@ -475,6 +579,14 @@ class RFe
       str= "edit #{fp}"
       #if confirm("#{str}")==:YES
       edit fp
+    when 'm'
+      f = get_string("Enter a directory to create", 20 )
+      if f != ""
+        FileUtils.mkdir f
+        @current_list.list.list_data_model.insert @current_list.list.current_index, f  # ???
+        @current_list.entries.insert @current_list.list.current_index, f  # ???
+      end
+  
     when 'x'
       str= "exec #{fp}"
       exec_popup fp
@@ -508,6 +620,9 @@ class RFe
     @lista.draw_screen lasta
     @listb.draw_screen lastb
 
+#    @form.bind_key(?\M-x){
+#      @current_list.mark_block
+#    }
     @form.bind_key(?@){
       @current_list.change_dir File.expand_path("~/")
     }
@@ -653,6 +768,7 @@ def get_key_labels categ=nil
     ['t', 'tree'], ['p', 'Previous'],
     ['b', 'Bookmark'], ['u', 'Unbookmark'],
     ['l', 'List'],  ['s', 'Save'],
+    ['m', 'mkdir'],  nil,
     ['C-c', 'Cancel']
   ]
   end

data/examples/rfe_renderer.rb

@@ -19,12 +19,14 @@ module RubyCurses
       @bgcolor = @orig_bgcolor
       @color = @orig_color
       @row_attr = @orig_attr
+      # XXX ouch, when we delete from list, must delete from here too.
       value = @parent.entries[row_index]
       if value[0,1]=="/"
         path = value.dup
       else
         path = @parent.cur_dir()+"/"+value 
       end
+      begin
       stat = File.stat(path)
       if File.directory? path
         @row_attr = Ncurses::A_BOLD
@@ -33,6 +35,10 @@ module RubyCurses
       value = format_string(value, path,  stat)
       super
 
+      rescue => err
+        $log.debug " rfe_renderer: #{err}"
+      end
+
     end
   GIGA_SIZE = 1073741824.0
   MEGA_SIZE = 1048576.0

data/examples/sqlc.rb

@@ -0,0 +1,419 @@
+require 'rubygems'
+require 'ncurses'
+require 'logger'
+require 'sqlite3'
+require 'rbcurse'
+require 'rbcurse/rcombo'
+require 'rbcurse/rtextarea'
+require 'rbcurse/rtable'
+#require 'rbcurse/table/tablecellrenderer'
+require 'rbcurse/comboboxcellrenderer'
+require 'rbcurse/keylabelprinter'
+require 'rbcurse/applicationheader'
+require 'rbcurse/action'
+
+# pls get testd.db from
+# http://www.benegal.org/files/screen/testd.db
+# or put some other sqlite3 db name there.
+
+## must give me @content, @columns, @datatypes (opt)
+class Datasource
+# attr_reader :field_length         # specified by user, length of row in display table
+  attr_accessor :columns      # names of columns in array
+  attr_accessor :datatypes    # array of datatyps of columns required to align: int, real, float, smallint
+  attr_accessor :content    # 2 dim data
+  attr_accessor :user_columns  # columnnames provided by user, overrides what is generated for display
+# attr_reader :sqlstring           # specified by user
+
+  # constructor
+  def initialize(config={}, &block)
+    @content = []
+    @columns = nil # actual db columnnames -- needed to figure out datatypes
+    @user_columns = nil # user specified db columnnames, overrides what may be provided
+    @datatypes = nil
+#   @rows = nil
+#   @sqlstring = nil
+#   @command = nil
+
+    instance_eval(&block) if block_given?
+  end
+  def connect dbname
+   @db = SQLite3::Database.new(dbname)
+  end
+  # get columns and datatypes, prefetch
+  def get_data command
+    @columns, *rows = @db.execute2(command)
+    @content = rows
+    return nil if @content.nil? or @content[0].nil?
+    @datatypes = @content[0].types #if @datatypes.nil?
+    @command = command
+    return @content
+  end
+  def get_metadata table
+    get_data "select * from #{table} limit 1"
+    return @columns
+  end
+  ##
+  # returns columns_widths, and updates that variable
+  def estimate_column_widths tablewidth, columns
+    colwidths = {}
+    min_column_width = (tablewidth/columns.length) -1
+    $log.debug("min: #{min_column_width}, #{tablewidth}")
+    @content.each_with_index do |row, cix|
+      break if cix >= 20
+      row.each_index do |ix|
+        col = row[ix]
+        colwidths[ix] ||= 0
+        colwidths[ix] = [colwidths[ix], col.length].max
+      end
+    end
+    total = 0
+    colwidths.each_pair do |k,v|
+      name = columns[k.to_i]
+      colwidths[name] = v
+      total += v
+    end
+    colwidths["__TOTAL__"] = total
+    column_widths = colwidths
+    @max_data_widths = column_widths.dup
+
+    columns.each_with_index do | col, i|
+        if @datatypes[i].match(/(real|int)/) != nil
+          wid = column_widths[i]
+       #   cw = [column_widths[i], [8,min_column_width].min].max
+          $log.debug("XXX #{wid}. #{columns[i].length}")
+          cw = [wid, columns[i].length].max
+          $log.debug("int #{col} #{column_widths[i]}, #{cw}")
+        elsif @datatypes[i].match(/(date)/) != nil
+          cw = [column_widths[i], [12,min_column_width].min].max
+          #cw = [12,min_column_width].min
+          $log.debug("date #{col}  #{column_widths[i]}, #{cw}")
+        else
+          cw = [column_widths[i], min_column_width].max
+          if column_widths[i] <= col.length and col.length <= min_column_width
+            cw = col.length
+          end
+          $log.debug("else #{col} #{column_widths[i]}, #{col.length} #{cw}")
+        end
+        column_widths[i] = cw
+        total += cw
+    end
+    column_widths["__TOTAL__"] = total
+    $log.debug("Estimated col widths: #{column_widths.inspect}")
+    @column_widths = column_widths
+    return column_widths
+  end
+
+  # added to enable query form to allow movement into table only if
+  # there is data 2008-10-08 17:46 
+  # returns number of rows fetched
+  def data_length
+    return @content.length 
+  end
+ 
+end
+def get_key_labels
+  key_labels = [
+    ['C-q', 'Exit'], nil,
+    ['M-s', 'Save'], ['M-m', 'Move']
+  ]
+  return key_labels
+end
+def get_key_labels_table
+  key_labels = [
+    ['M-n','NewRow'], ['M-d','DelRow'],
+    ['C-x','Select'], nil,
+    ['M-0', 'Top'], ['M-9', 'End'],
+    ['C-p', 'PgUp'], ['C-n', 'PgDn'],
+    ['M-Tab','Nxt Fld'], ['Tab','Nxt Col'],
+    ['+','Widen'], ['-','Narrow']
+  ]
+  return key_labels
+end
+class Sqlc
+  def initialize
+    @window = VER::Window.root_window
+    @form = Form.new @window
+
+    #@todo = Sql.new "todo.yml"
+    #@todo.load
+    @db = Datasource.new
+    @db.connect "testd.db"
+  end
+  def run
+    title = "rbcurse"
+    @header = ApplicationHeader.new @form, title, {:text2=>"Demo", :text_center=>"SQL Client"}
+    status_row = RubyCurses::Label.new @form, {'text' => "", :row => Ncurses.LINES-4, :col => 0, :display_length=>60}
+    @status_row = status_row
+    # setting ENTER across all objects on a form
+    @form.bind(:ENTER) {|f| status_row.text = f.help_text unless f.help_text.nil? }
+    r = 1; c = 1;
+    @data = [ ["No data"] ]
+    data = @data
+    colnames = %w[ Result ]
+
+    ta_ht = 5
+    t_width = 78
+    sqlarea = TextArea.new @form do
+      name   "sqlarea" 
+      row  r 
+      col  c
+      width t_width
+      height ta_ht
+      title "Sql Query"
+      title_attrib (Ncurses::A_REVERSE | Ncurses::A_BOLD)
+      help_text "Enter query and press Run or Meta-r"
+    end
+    sqlarea << "select * from contacts"
+    buttrow = r+ta_ht+1 #Ncurses.LINES-4
+    #create_table_actions atable, todo, data, categ.getvalue
+    #save_cmd = @save_cmd
+    b_run = Button.new @form do
+      text "&Run"
+      row buttrow
+      col c
+      help_text "Run query"
+    end
+    ## We use Action to create a button: to test out ampersand with MI and Button
+    #clear_act = @clear_act
+    b_clear = Button.new @form do
+      #action new_act
+      text "&Clear"
+      row buttrow
+      col c+10
+      help_text "Clear query entry box "
+      #bind(:ENTER) { status_row.text "New button adds a new row below current " }
+    end
+    b_clear.command { 
+      sqlarea.remove_all
+      sqlarea.focus
+    }
+
+    # using ampersand to set mnemonic
+=begin
+    b_delrow = Button.new @form do
+      text "&Delete"
+      row buttrow
+      col c+25
+      #bind(:ENTER) { status_row.text "Deletes focussed row" }
+      help_text "" 
+    end
+    b_delrow.command { 
+      #@del_cmd.call
+    }
+=end
+    Button.button_layout [b_run, b_clear], buttrow, startcol=5, cols=Ncurses.COLS-1, gap=5
+
+    table_ht = 15
+    atable = Table.new @form do
+      name   "tasktable" 
+      row  buttrow+1
+      col  c
+      width t_width
+      height table_ht
+      #title "A Table"
+      #title_attrib (Ncurses::A_REVERSE | Ncurses::A_BOLD)
+      #set_data data, colnames
+      #cell_editing_allowed true
+      #editing_policy :EDITING_AUTO
+      help_text "M-Tab for next field"
+    end
+    @atable = atable
+    @data = data
+    #atable.table_model.data = data
+
+    tcm = atable.get_table_column_model
+    b_run.command { 
+      query =  sqlarea.get_text
+      run_query query
+    }
+    #
+    ## key bindings fo atable
+    # column widths 
+    app = self
+    atable.configure() do
+      #bind_key(330) { atable.remove_column(tcm.column(atable.focussed_col)) rescue ""  }
+      bind_key(?+) {
+        acolumn = atable.column atable.focussed_col()
+        w = acolumn.width + 1
+        acolumn.width w
+        #atable.table_structure_changed
+      }
+      bind_key(?-) {
+        acolumn = atable.column atable.focussed_col()
+        w = acolumn.width - 1
+        if w > 3
+          acolumn.width w
+          #atable.table_structure_changed
+        end
+      }
+      bind_key(?>) {
+        colcount = tcm.column_count-1
+        #atable.move_column sel_col.value, sel_col.value+1 unless sel_col.value == colcount
+        col = atable.focussed_col
+        atable.move_column col, col+1 unless col == colcount
+      }
+      bind_key(?<) {
+        col = atable.focussed_col
+        atable.move_column col, col-1 unless col == 0
+        #atable.move_column sel_col.value, sel_col.value-1 unless sel_col.value == 0
+      }
+      bind_key(?\M-h, app) {|tab,td| $log.debug " BIND... #{tab.class}, #{td.class}"; app.make_popup atable}
+    end
+    #keylabel = RubyCurses::Label.new @form, {'text' => "", "row" => r+table_ht+3, "col" => c, "color" => "yellow", "bgcolor"=>"blue", "display_length"=>60, "height"=>2}
+    #eventlabel = RubyCurses::Label.new @form, {'text' => "Events:", "row" => r+table_ht+6, "col" => c, "color" => "white", "bgcolor"=>"blue", "display_length"=>60, "height"=>2}
+
+    # report some events
+    #atable.table_model.bind(:TABLE_MODEL_EVENT){|e| #eventlabel.text = "Event: #{e}"}
+    #atable.get_table_column_model.bind(:TABLE_COLUMN_MODEL_EVENT){|e| eventlabel.text = "Event: #{e}"}
+    atable.bind(:TABLE_TRAVERSAL_EVENT){|e| @header.text_right "Row #{e.newrow+1} of #{atable.row_count}" }
+
+    tablist_ht = 6
+    mylist = @db.get_data "select name from sqlite_master"
+    $listdata = Variable.new mylist
+        tablelist = Listbox.new @form do
+          name   "tablelist" 
+          row  1
+          col  t_width+2
+          width 20
+          height tablist_ht
+#         list mylist
+          list_variable $listdata
+          #selection_mode :SINGLE
+          #show_selector true
+          title "Tables"
+          title_attrib 'reverse'
+        end
+        #tablelist.bind(:PRESS) { |alist| @status_row.text = "Selected #{alist.current_index}" }
+        tablelist.list_selection_model().bind(:LIST_SELECTION_EVENT,tablelist) { |lsm, alist| @status_row.text = "Selected #{alist.current_index}" }
+
+  collist = []
+  $coldata = Variable.new collist
+  columnlist = Listbox.new @form do
+    name   "columnlist" 
+    row  tablist_ht+2
+    col  t_width+2
+    width 20
+    height 15
+    #         list mylist
+    list_variable $coldata
+    #selection_mode :SINGLE
+    #show_selector true
+    title "Columns"
+    title_attrib 'reverse'
+  end
+  tablelist.bind_key(32) {  
+    @status_row.text = "Selected #{tablelist.get_content()[tablelist.current_index]}" 
+    table = "#{tablelist.get_content()[tablelist.current_index]}" 
+    columnlist.list_data_model.remove_all
+    columnlist.list_data_model.insert 0, *@db.get_metadata(table)
+  }
+  tablelist.bind_key(13) {  
+    @status_row.text = "Selected #{tablelist.get_content()[tablelist.current_index]}" 
+    table = "#{tablelist.get_content()[tablelist.current_index]}" 
+    run_query "select * from #{table}"
+  }
+
+
+    @form.repaint
+    @window.wrefresh
+    Ncurses::Panel.update_panels
+    begin
+    while((ch = @window.getchar()) != ?\C-q )
+      #colcount = tcm.column_count-1
+      s = keycode_tos ch
+      #status_row.text = "Pressed #{ch} , #{s}"
+      @form.handle_key(ch)
+
+      @form.repaint
+      @window.wrefresh
+    end
+    ensure
+    @window.destroy if !@window.nil?
+    end
+  end
+  def run_query sql
+      #query =  sqlarea.get_text
+      query =  sql
+      begin
+      @content = @db.get_data query
+      if @content.nil?
+        @status_row.text = "0 rows retrieved"
+        return
+      end
+      #cw = @db.estimate_column_widths @atable.width, @db.columns
+      @atable.set_data @content, @db.columns
+      cw = @atable.estimate_column_widths @db.columns, @db.datatypes
+      @atable.set_column_widths cw
+      rescue => exc
+        alert exc.to_s
+        return
+      end
+      @status_row.text = "#{@content.size} rows retrieved"
+      @atable.repaint
+  end
+  def create_table_actions atable, todo, data, categ
+    #@new_act = Action.new("New Row", "mnemonic"=>"N") { 
+    @new_act = Action.new("&New Row") { 
+      mod = nil
+      cc = atable.get_table_column_model.column_count
+      if atable.row_count < 1
+        frow = 0
+      else
+        frow = atable.focussed_row
+        #frow += 1 # why ?
+        mod = atable.get_value_at(frow,0) unless frow.nil?
+      end
+      tmp = [mod, 5, "", "TODO", Time.now]
+      tm = atable.table_model
+      tm.insert frow, tmp
+      atable.set_focus_on frow
+      @status_row.text = "Added a row. Please press Save before changing Category."
+      alert("Added a row before current one. Use C-k to clear task.")
+    }
+    @new_act.accelerator "Alt-N"
+    @save_cmd = lambda {
+        todo.set_tasks_for_category categ, data
+        todo.dump
+        alert("Rewritten yaml file")
+    }
+    @del_cmd = lambda { 
+      row = atable.focussed_row
+      if !row.nil?
+      if confirm("Do your really want to delete row #{row+1}?")== :YES
+        tm = atable.table_model
+        tm.delete_at row
+      else
+        @status_row.text = "Delete cancelled"
+      end
+      end
+    }
+
+  end
+end
+if $0 == __FILE__
+  include RubyCurses
+  include RubyCurses::Utils
+
+  begin
+    # Initialize curses
+    VER::start_ncurses  # this is initializing colors via ColorMap.setup
+    $log = Logger.new("view.log")
+    $log.level = Logger::DEBUG
+
+    colors = Ncurses.COLORS
+    $log.debug "START #{colors} colors  ---------"
+
+    catch(:close) do
+      t = Sqlc.new
+      t.run
+  end
+  rescue => ex
+  ensure
+    VER::stop_ncurses
+    p ex if ex
+    p(ex.backtrace.join("\n")) if ex
+    $log.debug( ex) if ex
+    $log.debug(ex.backtrace.join("\n")) if ex
+  end
+end