rbcurse 1.1.3 → 1.1.4

data/examples/rfe.rb

@@ -13,7 +13,7 @@ require 'logger'
 require 'rbcurse'
 require 'rbcurse/rcombo'
 require 'rbcurse/rlistbox'
-require 'rfe_renderer'
+require './rfe_renderer'
 #require 'lib/rbcurse/table/tablecellrenderer'
 require 'rbcurse/keylabelprinter'
 require 'rbcurse/applicationheader'
@@ -197,7 +197,16 @@ class FileExplorer
   end
   alias :current_dir :cur_dir
   def draw_screen dir=nil
-    cd dir unless dir.nil?
+    # I get an error here if dir in yaml file is non-existent, like deleted or copied from another machine
+    #  2010-08-22 19:25 
+    if dir
+      if File.exists?(dir) && File.directory?(dir)
+        cd dir unless dir.nil?
+      else
+        dir = nil
+      end
+    end
+
     wdir = FileUtils.pwd
     @prev_dirs << wdir
     @dir = Dir.new(Dir.getwd)
@@ -989,7 +998,9 @@ if $0 == __FILE__
   begin
     # Initialize curses
     VER::start_ncurses  # this is initializing colors via ColorMap.setup
-    $log = Logger.new("view.log")
+    #$log = Logger.new("view.log")
+    $log = Logger.new(ENV['LOGDIR'] || "" + "view.log")
+
     $log.level = Logger::DEBUG
 
     catch(:close) do

data/examples/sqlc.rb

@@ -26,6 +26,7 @@ require 'rbcurse/rtabbedpane'
 # pls get testd.db from
 # http://www.benegal.org/files/screen/testd.db
 # or put some other sqlite3 db name there.
+# or create using sqlite3 testd.db < data.txt
 
 ## must give me @content, @columns, @datatypes (opt)
 class Datasource
@@ -49,6 +50,7 @@ class Datasource
     instance_eval(&block) if block_given?
   end
   def connect dbname
+    raise " #{dbname} does not exist. Please fetch from http://www.benegal.org/files/screen/testd.db" if !File.exists?(dbname)
    @db = SQLite3::Database.new(dbname)
   end
   # get columns and datatypes, prefetch
@@ -264,6 +266,7 @@ class Sqlc
     tablist_ht = 6
     mylist = @db.get_data "select name from sqlite_master"
     # mylist is an Array of SQLite3::ResultSet::ArrayWithTypesAndFields
+    raise "Database contains no tables! I need some tables" unless mylist
     mylist.collect!{|x| x[0] }  ## 1.9 hack, but will it run on 1.8 ??
     $listdata = Variable.new mylist
         tablelist = Listbox.new @form do
@@ -412,7 +415,9 @@ if $0 == __FILE__
   begin
     # Initialize curses
     VER::start_ncurses  # this is initializing colors via ColorMap.setup
-    $log = Logger.new("view.log")
+    #$log = Logger.new("view.log")
+    $log = Logger.new(ENV['LOGDIR'] || "" + "view.log")
+
     $log.level = Logger::DEBUG
 
     colors = Ncurses.COLORS

data/examples/sqlm.rb

@@ -26,6 +26,7 @@ require 'rbcurse/rmulticontainer'
 # pls get testd.db from
 # http://www.benegal.org/files/screen/testd.db
 # or put some other sqlite3 db name there.
+# or create using sqlite3 testd.db < data.txt
 
 ## must give me @content, @columns, @datatypes (opt)
 class Datasource
@@ -49,6 +50,7 @@ class Datasource
     instance_eval(&block) if block_given?
   end
   def connect dbname
+    raise " #{dbname} does not exist. Please fetch from http://www.benegal.org/files/screen/testd.db" if !File.exists?(dbname)
    @db = SQLite3::Database.new(dbname)
   end
   # get columns and datatypes, prefetch
@@ -264,6 +266,7 @@ class Sqlc
     tablist_ht = 6
     mylist = @db.get_data "select name from sqlite_master"
     # mylist is an Array of SQLite3::ResultSet::ArrayWithTypesAndFields
+    raise "Database contains no tables! I need some tables" unless mylist
     mylist.collect!{|x| x[0] }  ## 1.9 hack, but will it run on 1.8 ??
     $listdata = Variable.new mylist
         tablelist = Listbox.new @form do
@@ -372,6 +375,7 @@ class Sqlc
       atable.set_column_widths cw
       rescue => exc
         $log.debug(exc.backtrace.join("\n"))
+        raise exc.to_s
         alert exc.to_s
         return
       end
@@ -425,7 +429,9 @@ if $0 == __FILE__
   begin
     # Initialize curses
     VER::start_ncurses  # this is initializing colors via ColorMap.setup
-    $log = Logger.new("view.log")
+    #$log = Logger.new("view.log")
+    $log = Logger.new(ENV['LOGDIR'] || "" + "view.log")
+
     $log.level = Logger::DEBUG
 
     colors = Ncurses.COLORS

data/examples/test1.rb

@@ -19,7 +19,7 @@ if $0 == __FILE__
   begin
     # XXX update with new color and kb
     VER::start_ncurses  # this is initializing colors via ColorMap.setup
-    $log = Logger.new("view.log")
+    $log = Logger.new((File.join(ENV['LOGDIR'] || "./" ,"view.log")))
     $log.level = Logger::DEBUG
 
 #    @window = VER::Window.root_window

data/examples/test2.rb

@@ -13,7 +13,7 @@ require 'rbcurse/listcellrenderer'
 require 'rbcurse/checkboxcellrenderer'
 require 'rbcurse/comboboxcellrenderer'
 require 'rbcurse/celleditor'
-require 'qdfilechooser'
+require './qdfilechooser'
 require 'rbcurse/rlistbox'
 require 'rbcurse/rmessagebox'
 if $0 == __FILE__
@@ -22,8 +22,8 @@ if $0 == __FILE__
   begin
   # Initialize curses
     VER::start_ncurses  # this is initializing colors via ColorMap.setup
-    #$log = Logger.new("v#{$0}.log")
-    $log = Logger.new("view.log")
+    #$log = Logger.new(ENV['LOGDIR'] || "" + "view.log")
+    $log = Logger.new((File.join(ENV['LOGDIR'] || "./" ,"view.log")))
     $log.level = Logger::DEBUG
 
     @window = VER::Window.root_window

data/examples/testchars.rb

@@ -11,7 +11,7 @@ if $0 == __FILE__
   begin
   # Initialize curses
     VER::start_ncurses  # this is initializing colors via ColorMap.setup
-    $log = Logger.new("view.log")
+    $log = Logger.new((File.join(ENV["LOGDIR"] || "./" ,"view.log")))
     $log.level = Logger::DEBUG
 
     @window = VER::Window.root_window

data/examples/testcombo.rb

@@ -14,7 +14,7 @@ if $0 == __FILE__
   begin
   # Initialize curses
     VER::start_ncurses  # this is initializing colors via ColorMap.setup
-    $log = Logger.new("view.log")
+    $log = Logger.new((File.join(ENV["LOGDIR"] || "./" ,"view.log")))
     $log.level = Logger::DEBUG
 
     @window = VER::Window.root_window

data/examples/testkeypress.rb

@@ -12,7 +12,8 @@ if $0 == __FILE__
   begin
   # Initialize curses
     VER::start_ncurses  # this is initializing colors via ColorMap.setup
-    $log = Logger.new("view.log")
+    $log = Logger.new((File.join(ENV["LOGDIR"] || "./" ,"view.log")))
+
     $log.level = Logger::DEBUG
 
     @window = VER::Window.root_window

data/examples/testlistbox.rb

@@ -0,0 +1,114 @@
+#$LOAD_PATH << "/Users/rahul/work/projects/rbcurse/"
+# this program tests out various widgets.
+require 'ncurses'
+require 'logger'
+require 'rbcurse'
+require 'rbcurse/rwidget'
+#require 'rbcurse/listcellrenderer'
+#require 'rbcurse/celleditor'
+require 'rbcurse/rlistbox'
+require 'rbcurse/vieditable'
+require 'rbcurse/undomanager'
+#require 'rbcurse/rmessagebox'
+class RubyCurses::Listbox
+  # vieditable includes listeditable which
+  # does bring in some functions which can crash program like x and X TODO
+  # also, f overrides list f mapping. TODO
+  include ViEditable
+end
+if $0 == __FILE__
+  include RubyCurses
+
+  begin
+  # Initialize curses
+    VER::start_ncurses  # this is initializing colors via ColorMap.setup
+    $log = Logger.new((File.join(ENV["LOGDIR"] || "./" ,"view.log")))
+    $log.level = Logger::DEBUG
+
+    @window = VER::Window.root_window
+    $catch_alt_digits = true; # emacs like alt-1..9 numeric arguments
+    # Initialize few color pairs 
+    # Create the window to be associated with the form 
+    # Un post form and free the memory
+
+    catch(:close) do
+      colors = Ncurses.COLORS
+      $log.debug "START #{colors} colors testlistbox.rb --------- #{@window} "
+      @form = Form.new @window
+      @form.window.printstring 0, 30, "Demo of Listbox - rbcurse", $normalcolor, 'reverse'
+      r = 1; fc = 1;
+
+      $results = Variable.new
+      $results.value = "A list with vim-like key bindings. Try j k gg G o O C dd u (undo) C-r (redo) f<char> w yy p P. Also try emacs's kill-ring save/yank/cycle using M-w C-y M-y. Also, C-u and M1..9 numeric arguments."
+      var = RubyCurses::Label.new @form, {'text_variable' => $results, "row" => r+12, "col" => fc, "display_length" => 80, "height" => 5}
+      r += 1
+      mylist = []
+      0.upto(100) { |v| mylist << "#{v} scrollable data" }
+      $listdata = Variable.new mylist
+      listb = Listbox.new @form do
+        name   "mylist" 
+        row  r 
+        col  1 
+        width 40
+        height 11
+        #         list mylist
+        list_variable $listdata
+        #selection_mode :SINGLE
+        show_selector true
+        row_selected_symbol "[X] "
+        row_unselected_symbol "[ ] "
+        title "A long list"
+        title_attrib 'reverse'
+        cell_editing_allowed false
+      end
+      listb.one_key_selection = false # this allows us to map keys to methods
+      listb.vieditable_init_listbox
+      undom = SimpleUndo.new listb
+
+      #listb.list.insert 55, "hello ruby", "so long python", "farewell java", "RIP .Net"
+
+    # just for demo, lets scroll the text view as we scroll this.
+    #        listb.bind(:ENTER_ROW, @textview) { |alist, tview| tview.top_row alist.current_index }
+
+    #list = ListDataModel.new( %w[spotty tiger panther jaguar leopard ocelot lion])
+    #list.bind(:LIST_DATA_EVENT) { |lde| $message.value = lde.to_s; $log.debug " STA: #{$message.value} #{lde}"  }
+    #list.bind(:ENTER_ROW) { |obj| $message.value = "ENTER_ROW :#{obj.current_index} : #{obj.selected_item}    "; $log.debug " ENTER_ROW: #{$message.value} , #{obj}"  }
+
+    # using ampersand to set mnemonic
+    col = 1
+    row = 20
+    cancel_button = Button.new @form do
+      #variable $results
+      text "&Cancel"
+      row row
+      col col + 10
+      #surround_chars ['{ ',' }']  ## change the surround chars
+    end
+    cancel_button.command { |form| 
+      if confirm("Do your really want to quit?")== :YES
+        throw(:close); 
+      else
+        $message.value = "Quit aborted"
+      end
+    }
+
+
+    @form.repaint
+    @window.wrefresh
+    Ncurses::Panel.update_panels
+    while((ch = @window.getchar()) != KEY_F1 )
+      @form.handle_key(ch)
+      #@form.repaint
+      @window.wrefresh
+    end
+  end
+rescue => ex
+ensure
+  @window.destroy if !@window.nil?
+  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

data/examples/testmenu.rb

@@ -12,7 +12,7 @@ if $0 == __FILE__
   begin
   # Initialize curses
     VER::start_ncurses  # this is initializing colors via ColorMap.setup
-    $log = Logger.new("view.log")
+    $log = Logger.new((File.join(ENV["LOGDIR"] || "./" ,"view.log")))
     $log.level = Logger::DEBUG
 
     @window = VER::Window.root_window

data/examples/testmulticomp.rb

@@ -12,7 +12,7 @@ if $0 == __FILE__
   begin
   # Initialize curses
     VER::start_ncurses  # this is initializing colors via ColorMap.setup
-    $log = Logger.new("view.log")
+    $log = Logger.new((File.join(ENV["LOGDIR"] || "./" ,"view.log")))
     $log.level = Logger::DEBUG
 
     @window = VER::Window.root_window

data/examples/testscroller.rb

@@ -24,7 +24,7 @@ if $0 == __FILE__
   # Initialize curses
     VER::start_ncurses  # this is initializing colors via ColorMap.setup
     #$log = Logger.new("v#{$0}.log")
-    $log = Logger.new("view.log")
+    $log = Logger.new((File.join(ENV["LOGDIR"] || "./" ,"view.log")))
     $log.level = Logger::DEBUG
 
     @window = VER::Window.root_window

data/examples/testtable.rb

@@ -37,7 +37,7 @@ if $0 == __FILE__
   begin
   # Initialize curses
     VER::start_ncurses  # this is initializing colors via ColorMap.setup
-    $log = Logger.new("view.log")
+    $log = Logger.new((File.join(ENV["LOGDIR"] || "./" ,"view.log")))
     $log.level = Logger::DEBUG
 
     @window = VER::Window.root_window

data/examples/testtabp.rb

@@ -94,7 +94,7 @@ if $0 == __FILE__
   begin
     # XXX update with new color and kb
     VER::start_ncurses  # this is initializing colors via ColorMap.setup
-    $log = Logger.new("view.log")
+    $log = Logger.new((File.join(ENV["LOGDIR"] || "./" ,"view.log")))
     $log.level = Logger::DEBUG
     n = TestTabbedPane.new
     n.run

data/examples/testtestw.rb

@@ -12,7 +12,7 @@ if $0 == __FILE__
   begin
   # Initialize curses
     VER::start_ncurses  # this is initializing colors via ColorMap.setup
-    $log = Logger.new("view.log")
+    $log = Logger.new((File.join(ENV["LOGDIR"] || "./" ,"view.log")))
     $log.level = Logger::DEBUG
 
     @window = VER::Window.root_window

data/examples/testtodo.rb

@@ -563,7 +563,7 @@ if $0 == __FILE__
   begin
     # Initialize curses
     VER::start_ncurses  # this is initializing colors via ColorMap.setup
-    $log = Logger.new("view.log")
+    $log = Logger.new((File.join(ENV["LOGDIR"] || "./" ,"view.log")))
     $log.level = Logger::DEBUG
 
     colors = Ncurses.COLORS

data/examples/testtpane.rb

@@ -188,7 +188,7 @@ if $0 == __FILE__
   begin
     # XXX update with new color and kb
     VER::start_ncurses  # this is initializing colors via ColorMap.setup
-    $log = Logger.new("view.log")
+    $log = Logger.new((File.join(ENV["LOGDIR"] || "./" ,"view.log")))
     $log.level = Logger::DEBUG
     n = TestTabbedPane.new
     n.run

data/examples/testtpane2.rb

@@ -130,7 +130,7 @@ if $0 == __FILE__
   begin
     # XXX update with new color and kb
     VER::start_ncurses  # this is initializing colors via ColorMap.setup
-    $log = Logger.new("view.log")
+    $log = Logger.new((File.join(ENV["LOGDIR"] || "./" ,"view.log")))
     $log.level = Logger::DEBUG
     n = TestTabbedPane.new
     n.run

data/examples/testtpanetable.rb

@@ -184,7 +184,7 @@ if $0 == __FILE__
   begin
     # XXX update with new color and kb
     VER::start_ncurses  # this is initializing colors via ColorMap.setup
-    $log = Logger.new("view.log")
+    $log = Logger.new((File.join(ENV["LOGDIR"] || "./" ,"view.log")))
     $log.level = Logger::DEBUG
     n = TestTabbedPane.new
     n.run

data/examples/todo.rb

@@ -0,0 +1 @@
+S

data/examples/viewtodo.rb

@@ -5,32 +5,62 @@ require 'logger'
 require 'rbcurse'
 require 'rbcurse/rcombo'
 require 'rbcurse/rtable'
+require 'rbcurse/extras/tableextended' # TODO move to extras
 require 'rbcurse/keylabelprinter'
 require 'rbcurse/applicationheader'
 require 'rbcurse/action'
-require 'yaml'   # 1.9 2009-10-05 13:11 
+require 'sqlite3' # changing to sqlite3 since yml, csv a pain for updating
+#require 'yaml'   # 1.9 2009-10-05 13:11 
 ###############################
-## THIS WONT WORK SINCE I've changed to format of yaml file to array from hash
+## This uses todo.db, if not in gem, please take from github
+## Please look at testtodo.rb
 ##############################
 
+class Table
+  # so we can increase and decrease column width using keys
+  include TableExtended
+end
 class TodoList
   def initialize file
     @file = file
   end
   def load 
-    @todomap = YAML::load(File.open(@file));
-    @records = convert_to_text
+    #@todomap = YAML::load(File.open(@file));
+    @db = SQLite3::Database.new(@file)
+    #@records = convert_to_text
+  end
+  # get columns and datatypes, prefetch - copied from sqlc.rb
+  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_statuses
-    @todomap['__STATUSES']
+    #@todomap['__STATUSES']
+    ## temporary due to structure change
+    #['TODO', 'TOTEST', 'TESTED'] 
+    c = get_data "select * from status"
+    c.flatten
   end
   def get_modules
-    @todomap['__MODULES'].sort
+    #@todomap['__MODULES'].sort
+    ## temporary due to structure change
+    ['GEN', 'FIELD', 'FORM', 'TABLE']
+    #get_data "select * from status"
   end
   def get_categories
-    @todomap.keys.delete_if {|k| k.match(/^__/) }
+    #@todomap.keys.delete_if {|k| k.match(/^__/) }
+    ## temporary due to structure change
+    #['TODO', 'FIXME','DONE']# earlier i used to keep todo items in a text file in these sections
+    c = get_data "select * from categ"
+    c.flatten
   end
   def get_tasks_for_category categ
+    get_data "select * from todo where categ = '#{categ}' "
+=begin
     c = @todomap[categ]
     d = []
     c.each_pair {|k,v|
@@ -43,12 +73,16 @@ class TodoList
       end
     }
     return d
+=end
   end
+  # today i really don't know how this differs from previous one (records vs tasks)
   def get_records_for_category categ
     if categ.nil? or categ == ""
-      return @records
+      #return @records
+      get_data "select * from todo"
     else
-      return @records.select { |row| row[0] == categ }
+      #return @records.select { |row| row[0] == categ }
+      get_data "select * from todo where categ = '#{categ}' "
     end
   end
   def sort categ, column, descending=false
@@ -130,8 +164,8 @@ def get_key_labels
 end
 def get_key_labels_table
   key_labels = [
-    ['M-n','NewRow'], ['M-d','DelRow'],
-    ['C-x','Select'], nil,
+    #['M-n','NewRow'], ['M-d','DelRow'],
+    ['C-x','Select'], ['M-h', 'Popup'],
     ['M-0', 'Top'], ['M-9', 'End'],
     ['C-p', 'PgUp'], ['C-n', 'PgDn'],
     ['M-Tab','Nxt Fld'], ['Tab','Nxt Col'],
@@ -145,7 +179,8 @@ class TodoApp
     @form = Form.new @window
     @sort_dir = true
 
-    @todo = TodoList.new "todo.yml"
+    #@todo = TodoList.new "todo.yml"
+    @todo = TodoList.new "todo.db"
     @todo.load
   end
   def run
@@ -173,7 +208,7 @@ class TodoApp
       list_config 'height' => 4
       help_text "Select a category and <TAB> out. KEY_UP, KEY_DOWN, M-Down" 
     end
-    colnames = %w[ Categ Module Prior Task Status Date]
+    colnames = %w[Sno Categ Module Prior Task Status Date]
 
     colnames_cbl = colnames.dup
     colnames_cbl.insert 0, ""
@@ -198,7 +233,8 @@ class TodoApp
       set_label Label.new @form, {'text' => "Pattern:", 'color'=>'cyan',:bgcolor => 'black',"mnemonic"=>"P"}
       help_text "Pattern/Regex to filter on"
     end
-    data = todo.get_records_for_category 'TODO'
+    # prepopulate screen, else error in table
+    data = todo.get_records_for_category 'TODO' # earlier TODO
     @data = data
     b_filter = Button.new @form do
       text "Fi&lter"
@@ -242,29 +278,50 @@ class TodoApp
     #
     ## key bindings fo atable
     # column widths 
-    tcm.column(0).width 8
-    tcm.column(1).width 8
-    tcm.column(2).width 5
-    tcm.column(3).width 50
-    tcm.column(4).width 8
-    tcm.column(5).width 16
+    x = 0
+    tcm.column(x).width 2 # RK 2010-05-11 19:59 added serial number for updating
+    x += 1
+    tcm.column(x).width 8
+    x += 1
+    tcm.column(x).width 8
+    x += 1
+    tcm.column(x).width 5
+    x += 1
+    tcm.column(x).width 50
+    x += 1
+    tcm.column(x).width 8
+    x += 1
+    tcm.column(x).width 16
     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()
+        ##num = $multiplier || 1
+        #num=(($multiplier.nil? or $multiplier == 0) ? 1 : $multiplier)
+        #$multiplier = 0
+        #w = acolumn.width + num
+        #acolumn.width w
+        ##atable.table_structure_changed
+      #}
       bind_key(?+) {
-        acolumn = atable.column atable.focussed_col()
-        w = acolumn.width + 1
-        acolumn.width w
-        #atable.table_structure_changed
+        # this automatically takes care of numeric arguments such as 12+ 22+ etc
+        atable.increase_column
       }
       bind_key(?-) {
-        acolumn = atable.column atable.focussed_col()
-        w = acolumn.width - 1
-        if w > 3
-          acolumn.width w
-          #atable.table_structure_changed
-        end
+        # this automatically takes care of numeric arguments such as 12- 22- etc
+        atable.decrease_column
       }
+      #bind_key(?-) {
+        #acolumn = atable.column atable.focussed_col()
+        #num=(($multiplier.nil? or $multiplier == 0) ? 1 : $multiplier)
+        #w = acolumn.width - num
+        #$multiplier = 0
+        #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
@@ -394,19 +451,20 @@ class TodoApp
     @window.destroy if !@window.nil?
     end
   end
+  # Adding was done in testtodo.rb. this is view only
   def create_table_actions atable, todo, data, categ
     #@new_act = Action.new("New Row", "mnemonic"=>"N") { 
     @new_act = Action.new("&New Row") { 
       cc = atable.get_table_column_model.column_count
       if atable.row_count < 1
-        mod = nil
+        categ = nil
         frow = 0
       else
         frow = atable.focussed_row
+        categ = atable.get_value_at(frow,1)
         frow += 1
-        mod = atable.get_value_at(frow,0)
       end
-      tmp = [mod, 5, "", "TODO", Time.now]
+      tmp = [nil, categ, "",  5, "", "TODO", Time.now]
       tm = atable.table_model
       tm.insert frow, tmp
       atable.set_focus_on frow