rbcurse 1.3.0 → 1.4.0

data/examples/dirtree.rb

@@ -11,7 +11,7 @@ def _directories wd
   return ent
 end
 App.new do 
-  header = app_header "rbcurse 1.2.0", :text_center => "Yet Another File Manager", :text_right =>"Directory Lister", :color => :black, :bgcolor => :white#, :attr =>  Ncurses::A_BLINK
+  header = app_header "rbcurse #{Rbcurse::VERSION}", :text_center => "Yet Another File Manager", :text_right =>"Directory Lister", :color => :black, :bgcolor => :white#, :attr =>  Ncurses::A_BLINK
   message "Press Enter to expand/collapse"
 
   pwd = Dir.getwd

data/examples/menu1.rb

@@ -4,7 +4,9 @@ require 'rbcurse/app'
   App.new do 
     #title "Demo of Menu - rbcurse"
     #subtitle "Hit F1 to quit, F2 for menubar toggle"
-    header = app_header "rbcurse 1.2.0", :text_center => "Menubar Demo", :text_right =>"enabled"
+    header = app_header "rbcurse #{Rbcurse::VERSION}", :text_center => "Menubar Demo", :text_right =>"enabled"
+    form = @form
+    mylabel = "a field"
 
     # TODO accelerators and 
     # getting a handle for later use
@@ -12,13 +14,36 @@ require 'rbcurse/app'
       #@toggle_key=KEY_F2
       menu "File" do
         item "Open", "O" do
-          command do
+          accelerator "Ctrl-O"
+          command do 
             alert "HA!! you wanted to open a file?"
           end
         end
+        menu "QuickOpen" do
+          item_list do
+            Dir.glob("*.rb")
+          end
+          command do |menuitem, text|
+            #alert " We gots #{text} "
+            fld = form.by_name[mylabel]
+            fld.text =text
+          end
+        end
+        menu "Close" do
+          item_list do
+            Dir.glob("t*.rb")
+          end
+        end
         item "New", "N" 
         separator
-        item "Close", "C" 
+        item "Exit", "x"  do 
+          command do
+            throw(:close)
+          end
+        end
+        item "Cancel Menu" do
+          accelerator "Ctrl-g"
+        end
         
       end # menu
       menu "Window" do
@@ -31,13 +56,20 @@ require 'rbcurse/app'
               alert "You clickses on Less"
             end
           end
+          menu "Size" do
+            item "Zoom", "Z"
+            item "Maximize", "X"
+            item "Minimize", "N"
+          end
         end
       end
     end # menubar
     mb.toggle_key = FFI::NCurses::KEY_F2
+    mb.color = :white
+    mb.bgcolor = :blue
     @form.set_menu_bar mb
     stack :margin_top => 10, :margin => 5 do
-      field "a field", :attr => 'reverse', :block_event => :CHANGE do |e|
+      field mylabel, :attr => 'reverse', :block_event => :CHANGE do |e|
         message e.to_s
 
         case e.text
@@ -53,7 +85,7 @@ require 'rbcurse/app'
       end
       @adock = nil
     keyarray = [
-      ["F1" , "Exit"], nil,
+      ["F10" , "Exit"], nil,
       ["F2", "Menu"], nil,
       ["M-e", "Disable"], ["M-x", "XXXX"],
       ["C-?", "Help"], nil

data/examples/multispl.rb

@@ -1,7 +1,7 @@
 require 'rbcurse/app'
 
 App.new do 
-  header = app_header "rbcurse 1.2.0", :text_center => "MultiSplit Demo", :text_right =>"ColumnBrowse pattern"
+  header = app_header "rbcurse #{Rbcurse::VERSION}", :text_center => "MultiSplit Demo", :text_right =>"ColumnBrowse pattern"
   message_row(27)
   message "<TAB> and <BTAB> "
   oo = :HORIZONTAL_SPLIT

data/examples/rfe.rb

@@ -468,15 +468,20 @@ class RFe
       end 
   end
   ## TODO : make this separate and callable with its own keylabels
-  def view  content=nil
+  def view  content=nil # can throw IO errors
     require 'rbcurse/rtextview'
     wt = 0
     wl = 0
     wh = Ncurses.LINES-wt
     ww = Ncurses.COLS-wl
     if content.nil?
+      begin
       fp = @current_list.filepath
       content = get_contents(fp)
+      rescue => err
+        alert err.to_s
+        return
+      end
     else
       fp=""
     end
@@ -506,6 +511,8 @@ class RFe
       @v_form.repaint
       ##@v_window.wrefresh
     end
+    rescue => err
+      alert err.to_s
     ensure
       @v_window.destroy if !@v_window.nil?
     end
@@ -544,7 +551,7 @@ class RFe
       str= "view #{fp}"
       #if confirm("#{str}")==:YES
       $log.debug " VIEW #{fp}"
-      view
+      view 
       #end
     when 'r'
       str= "ruby #{fn}"

data/examples/splitp.rb

@@ -1,7 +1,7 @@
 require 'rbcurse/app'
 
 App.new do 
-  header = app_header "rbcurse 1.2.0", :text_center => "Splitpane Demo", :text_right =>""
+  header = app_header "rbcurse #{Rbcurse::VERSION}", :text_center => "Splitpane Demo", :text_right =>""
   message_row(27)
   message "<TAB> between outer panes, Alt-W between inner tabs, Alt-TAb to exit Splitpane"
 

data/examples/sqlc.rb

@@ -1,13 +1,14 @@
 ## rkumar, 2009
-#DEPRECATED. See sqlm.rb
+#DEPRECATED. See sqlm.rb or sqlt.rb in which i use a TabularWidget instead of Table.
 #AVOID USING TabbedPane till its rewritten 1.3.2 or so.
-#You will have to press a downarrow or any key if the pane goes blank.
+
 #
 ############ WARNING ##############################################################
 #           TabbedPanes seem to have stopped displaying at some points
 #           after moving to FFI-Ncurses. And i've not been able to locate the point.
 #           This is one subtle difference between ncurses and ffi-ncurses.
 #           So i will scrap this and do a fresh clean rewrite of TabbedPane class.
+#           OKAY I've got them fixed.
 #
 ###################################################################################
 # Sample demo of various widgets and their interaction.
@@ -17,11 +18,9 @@
 # Please see bind_key statements in this app for some key bindings in table.
 # There are also key bindings in tabbedpanes and textarea's that will help alot.
 # This demo uses a tabbedpane so we can have the results of many sql statements and not
-# need to keep reissuing. The tabbed pane SUCKS, if you get in when not populated
-# you GET STUCK so press Alt-C to get out.
+# need to keep reissuing.  Its better to use a multitextview or multicontainer
+# than a tabbedpane for such use.
 #
-require 'rubygems'
-#require 'ncurses' # FFI
 require 'logger'
 require 'sqlite3'
 require 'rbcurse'
@@ -168,7 +167,7 @@ class Sqlc
   end
   def run
     title = "rbcurse"
-    @header = ApplicationHeader.new @form, title, {:text2=>"Demo", :text_center=>"SQL Client ***DEPRECATED use sqlm.rb ******"}
+    @header = ApplicationHeader.new @form, title, {:text2=>"Demo", :text_center=>"SQL Client using TabbedPane and Table (see sqlm.rb instead) "}
     status_row = RubyCurses::Label.new @form, {'text' => "", :row => Ncurses.LINES-4, :col => 0, :display_length=>70}
     @status_row = status_row
     # setting ENTER across all objects on a form
@@ -405,9 +404,6 @@ class Sqlc
     table_ht = 15
     atable = Table.new do
       name   "sqltable#{counter}" 
-      #cell_editing_allowed true
-      #editing_policy :EDITING_AUTO
-      #help_text "M-Tab for next field, M-8 amd M-7 for horiz scroll, + to resize, C-q quit"
       help_text "M-Tab for next field, C-q quit"
     end
     atable.bind(:TABLE_TRAVERSAL_EVENT){|e| @header.text_right "Row #{e.newrow+1} of #{atable.row_count}" }

data/examples/sqlm.rb

@@ -125,24 +125,6 @@ class Datasource
   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
@@ -175,7 +157,7 @@ class Sqlc
       height ta_ht
       title "Sql Query"
       title_attrib (Ncurses::A_REVERSE | Ncurses::A_BOLD)
-      help_text "Enter query and press Run or Meta-r"
+      help_text "Enter query and press Run or Meta-r. Ctrl-q to quit"
     end
     sqlarea << "select * from contacts"
     buttrow = r+ta_ht+1 #Ncurses.LINES-4
@@ -352,7 +334,7 @@ class Sqlc
     while((ch = @window.getchar()) != ?\C-q.getbyte(0) )
       break if ch == KEY_F1
       s = keycode_tos ch
-      status_row.text = "Pressed #{ch}, #{s}. C-q to quit, Alt-Tab to exit table, Alt-: for buffers "
+      status_row.text = "C-q to quit, Alt-Tab to exit table, Alt-: for buffers. Alt-N/P next/previous "
       @form.handle_key(ch)
 
       @form.repaint

data/examples/sqlt.rb

@@ -0,0 +1,408 @@
+## rkumar, 2009
+#AVOID USING TabbedPane till its rewritten 1.3.2 or so.
+#You will have to press a downarrow or any key if the pane goes blank.
+#
+# Sample demo of various widgets and their interaction.
+# This is a simple sql client which allows table / column selection, construction
+# of SQL queries, and multiple resultsets.
+# Use C-q to quit, Alt-Tab to move out of Table to next field.
+# Please see bind_key statements in this app for some key bindings in table.
+# There are also key bindings in tabbedpanes and textarea's that will help alot.
+# This demo uses a tabbedpane so we can have the results of many sql statements and not
+# need to keep reissuing. The tabbed pane SUCKS, if you get in when not populated
+# you GET STUCK so press Alt-C to get out.
+#
+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' # not used here
+require 'rbcurse/rtabbedpane'
+require 'rbcurse/extras/tabularwidget'
+
+# 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
+# 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
+    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
+  def get_data command
+    @columns, *rows = @db.execute2(command)
+    $log.debug "XXX COLUMNS #{command} :  #{@columns.count}: #{@columns} "
+    @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
+    $catch_alt_digits = false # we want to use Alt-1, 2 for tabs.
+    @form = Form.new @window
+    @tab_ctr = 0
+
+    @db = Datasource.new
+    @db.connect "testd.db"
+  end
+  def run
+    title = "rbcurse"
+    @header = ApplicationHeader.new @form, title, {:text2=>"Demo", :text_center=>"SQL Client using TabbedPane and TabularWidget (see sqlm.rb also) "}
+    status_row = RubyCurses::Label.new @form, {'text' => "", :row => Ncurses.LINES-4, :col => 0, :display_length=>70}
+    @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
+    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
+    b_clear = Button.new @form do
+      #action new_act
+      text "&Clear"
+      row buttrow
+      col c+10
+      help_text "Clear query entry box "
+    end
+    b_clear.command { 
+      sqlarea.remove_all
+      sqlarea.focus
+    }
+
+    # using ampersand to set mnemonic
+
+    b_construct = Button.new @form do
+      text "Constr&uct"
+      row buttrow
+      col c+25
+      help_text "Select a table, select columns and press this to construct an SQL"
+    end
+
+    Button.button_layout [b_run, b_clear, b_construct], buttrow, startcol=5, cols=Ncurses.COLS-1, gap=5
+
+    @tp = create_tabbed_pane @form, buttrow, t_width, c
+    @tp.show
+    @data = data
+
+    b_run.command { 
+      query =  sqlarea.get_text
+      run_query query
+    }
+    #
+    ## key bindings fo atable
+    # column widths 
+    app = self
+
+
+    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
+          name   "tablelist" 
+          row  1
+          col  t_width+2
+          width 20
+          height tablist_ht
+#         list mylist
+          list_variable $listdata
+          #selection_mode :multiple
+          #show_selector true
+          title "Tables"
+          title_attrib 'reverse'
+          help_text "Press ENTER to run * query, Space to select columns"
+        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 :multiple
+    #show_selector true
+    title "Columns"
+    title_attrib 'reverse'
+    help_text "Press ENTER to append columns to sqlarea, Space to select"
+  end
+  ## pressing SPACE on a table populates column list with its columns so they can be selected
+  #tablelist.bind_key(32) {  
+  # Now space trapped at listbox level, need to use event
+  tablelist.list_selection_model().bind(:LIST_SELECTION_EVENT,tablelist) { |lsm, alist| @status_row.text = "Selected #{alist.current_index}" 
+    #@status_row.text = "Selected table #{tablelist.get_content()[tablelist.current_index]}" 
+    table = "#{tablelist.get_content()[tablelist.current_index]}" 
+    ##table = table[0] if table.class==Array ## 1.9 ???
+    columnlist.list_data_model.remove_all
+    columnlist.list_data_model.insert 0, *@db.get_metadata(table)
+  }
+  ## pressing ENTER on a table runs a query on it, no need to type and SQL
+
+  tablelist.bind(:PRESS) {  
+    @status_row.text = "Selected #{tablelist.get_content()[tablelist.current_index]}" 
+    table = "#{tablelist.get_content()[tablelist.current_index]}" 
+    ##table = table[0] if table.class==Array ## 1.9 ???
+    run_query "select * from #{table}"
+  }
+
+  columnlist.bind(:PRESS) {  
+    ## append column name to sqlarea if ENTER pressed
+    column = "#{columnlist.get_content()[columnlist.current_index]}" 
+    sqlarea << "#{column},"
+  }
+  columnlist.bind_key(32) {  
+    ## select row - later can press Construct button
+    columnlist.toggle_row_selection
+    column = "#{columnlist.get_content()[columnlist.current_index]}" 
+  }
+  ## construct an SQL after selecting some columns in the column list
+    b_construct.command { 
+      # current_index is wrong, we need selected_index
+    table = "#{tablelist.get_content()[tablelist.selected_index]}" 
+    #table = table[0] if table.class==Array ## 1.9 ???
+    indexes = columnlist.selected_rows()
+    columns=[]
+    indexes.each do |i|
+      columns << columnlist.get_content()[i]
+    end
+    sql = "select #{columns.join(',')} from #{table}"
+    sqlarea << sql
+    }
+
+
+    @form.repaint
+    @window.wrefresh
+    Ncurses::Panel.update_panels
+    begin
+    while((ch = @window.getchar()) != ?\C-q.getbyte(0) )
+      break if ch == KEY_F1
+      s = keycode_tos ch
+      status_row.text = "Pressed #{ch} , #{s}.  Press C-q to quit, Alt-Tab for exiting table "
+      @form.handle_key(ch)
+
+      @form.repaint
+      @window.wrefresh
+    end
+    ensure
+    @window.destroy if !@window.nil?
+    end
+  end
+  ## execute the query in the textarea
+  # @param [String] sql string
+  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, newtab = create_table @tp, @tab_ctr #,  buttrow, t_width, c
+      #atable.set_data @content, @db.columns
+      atable.set_content @content
+      atable.columns=@db.columns
+      #cw = atable.estimate_column_widths @db.columns, @db.datatypes
+      #atable.set_column_widths cw
+      rescue => exc
+        $log.debug(exc.backtrace.join("\n"))
+        alert exc.to_s
+        return
+      end
+      @status_row.text = "#{@content.size} rows retrieved"
+      atable.repaint
+      newtab.repaint
+  end
+  ## create a Table component for populating with data
+  def create_table tp, counter #, buttrow, t_width, c
+    table_ht = 15
+    atable = TabularWidget.new do
+      name   "sqltable#{counter}" 
+      help_text "M-Tab for next field, C-q quit"
+    end
+    #atable.bind(:TABLE_TRAVERSAL_EVENT){|e| @header.text_right "Row #{e.newrow+1} of #{atable.row_count}" }
+    @tab_ctr += 1
+    tab1 = tp.add_tab "Tab&#{@tab_ctr}" , atable
+    return atable, tab1
+  end
+  ## create the single tabbedpane for populating with resultsets
+  def create_tabbed_pane form,  buttrow, t_width, c
+      tp = RubyCurses::TabbedPane.new form do
+        height 16
+        width  t_width
+        row buttrow +1
+        col c
+        button_type :ok
+      end
+      return tp
+  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("rbc13.log")
+    $log = Logger.new(ENV['LOGDIR'] || "" + "rbc13.log")
+
+    $log.level = Logger::DEBUG
+
+    colors = Ncurses.COLORS
+    $log.debug "START #{colors} colors  SQLC demo "
+
+    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