rbcurse 1.4.0 → 1.4.1.pre2

data/examples/data/tasks.txt

@@ -0,0 +1,27 @@
+Field to have history which pops up
+App to have layout objects @1.6
+F2 menu to have context sensitive items
+SL and Dock events Hide. Move ...
+Stack and Flow to be objects @1.5
+ability to share directory options and functions across dir apps
+add event to form, key_resize
+app: add popup @1.5
+app: widgets can register with dock @1.5
+can use textpad in resultsetdb view to make things simpler
+colored module that allows row-wise coloring for all multirow wids
+find_file like microemacs @1.5
+motion options in textview and lists gg G cYcEcDcB zz zt zb etc
+registering command with Alt-X SL and Dock
+schemes (color) @1.5
+textview etc can have source. also module to recog file type,fmt
+use textpad for lists etc
+window.close can have a event so cleanup of any widget can be done
+Backward char search using F
+add progress bar to StatusWindow
+bottomline options global @1.5
+catch_alt_digits maybe at form level not global
+widgets needs to expose mapped keys in some easy way
+color_pair as :red_on_black
+confirm quit option, and call a proc before quitting
+elusive error if row not given in button
+rpopupmenu and rmenu share same class names

data/examples/data/unix1.txt

@@ -0,0 +1,21 @@
+Eric S. Raymond, in his book The Art of Unix Programming,[2] summarizes the Unix philosophy as the widely-used KISS Principle of "Keep it Simple, Stupid."[3] He also provides a series of design rules:
+
+*    Rule of Modularity: Write simple parts connected by clean interfaces.
+*    Rule of Clarity: Clarity is better than cleverness.
+*    Rule of Composition: Design programs to be connected to other programs.
+*    Rule of Separation: Separate policy from mechanism; separate interfaces from engines.
+*    Rule of Simplicity: Design for simplicity; add complexity only where you must.
+*    Rule of Parsimony: Write a big program only when it is clear by demonstration that nothing else will do.
+*    Rule of Transparency: Design for visibility to make inspection and debugging easier.
+*    Rule of Robustness: Robustness is the child of transparency and simplicity.
+*    Rule of Representation: Fold knowledge into data so program logic can be stupid and robust.[4]
+*    Rule of Least Surprise: In interface design, always do the least surprising thing.
+*    Rule of Silence: When a program has nothing surprising to say, it should say nothing.
+*    Rule of Repair: When you must fail, fail noisily and as soon as possible.
+*    Rule of Economy: Programmer time is expensive; conserve it in preference to machine time.
+*    Rule of Generation: Avoid hand-hacking; write programs to write programs when you can.
+*    Rule of Optimization: Prototype before polishing. Get it working before you optimize it.
+*    Rule of Diversity: Distrust all claims for "one true way".
+*    Rule of Extensibility: Design for the future, because it will be here sooner than you think.
+
+

data/examples/data/unix2.txt

@@ -0,0 +1,11 @@
+1.  Small is beautiful.
+2.  Make each program do one thing well.
+3.  Build a prototype as soon as possible.
+4.  Choose portability over efficiency.
+5.  Store data in flat text files.
+6.  Use software leverage to your advantage.
+7.  Use shell scripts to increase leverage and portability.
+8.  Avoid captive user interfaces.
+9.  Make every program a filter.
+
+

data/examples/dbdemo.rb

@@ -1,5 +1,6 @@
 require 'rbcurse/app'
 require 'sqlite3'
+#require 'rbcurse/experimental/resultsettextview.rb'
 require 'rbcurse/undomanager'
 
 # @return array of table names from selected db file
@@ -73,7 +74,7 @@ def create_popup array, selection_mode=:single,  &blk
   end
 end
 
-def view_data fields="*", name
+def view_data fields='*', name
   stmt = "select #{fields} from #{name}"
   stmt << $where_string if $where_string
   stmt << $order_string if $order_string
@@ -107,12 +108,18 @@ App.new do
   $current_table = nil
   $current_db = nil # "testd.db"
   connect $current_db if $current_db
+  def which_field
+    alert "curent field is #{form.get_current_field} "
+  end
 
+  def get_commands
+    %w{ which_field }
+  end
   def help_text
     <<-eos
-               APPEMAIL HELP 
+               DBDEMO HELP 
 
-      This is some help text for appemail.
+      This is some help text for dbdemo.
       We are testing out this feature.
 
       Alt-d    -   Select a database
@@ -132,6 +139,15 @@ App.new do
 
       Alt-x    -   Command mode (<tab> to see commands and select)
       :        -   Command mode
+      Alt-z    -   Commands in TextArea
+      
+                DB BROWSER KEYS
+
+      ,            Prev row (mnemonic <)
+      .            Next row (mnemonic >)
+      <            First row
+      >            Last row
+
       F10      -   Quit application
 
 
@@ -213,7 +229,7 @@ App.new do
       end
     end
     menu "Others" do
-      require './appmethods.rb'
+      require 'rbcurse/common/appmethods.rb'
       item "Shell Output" do
         command { shell_output }
       end
@@ -226,16 +242,22 @@ App.new do
   mb.color = :white
   mb.bgcolor = :blue
   @form.set_menu_bar mb
-  stack :margin => 0 do
+  tv = nil
+  col1w = 20
+  stack :margin => 0, :width => col1w do
     text = "No tables"
     if !$current_db
       text = "Select DB first. Press Alt-D"
     end
-    tlist = basiclist :name => "tlist", :list => [text], :title => "Tables", :height => 10
+    tlist = basiclist :name => "tlist", :list => [text], :title => "Tables", :height => 10,
+      :selected_color => 'cyan', :selected_bgcolor => 'black' , :selected_attr => Ncurses::A_REVERSE,
+      :help_text => "Enter to View complete table, Space to select table and view columns",
+      :should_show_focus => true
     tlist.bind(:PRESS) do |eve|
       if $current_db
       # get data of table
         view_data eve.text
+        tv.sqlite $current_db, eve.text, "select * from #{eve.text} "
       else
         ask_databases
       end
@@ -245,7 +267,9 @@ App.new do
       #$current_table = eve.text if $db
     end
     clist = basiclist :name => "clist", :list => ["No columns"], :title => "Columns", :height => 14, 
-      :selection_mode => :multiple
+      :selection_mode => :multiple,
+      :selected_color => 'cyan', :selected_bgcolor => 'black' , :selected_attr => Ncurses::A_REVERSE,
+      :help_text => "Enter to View selected fields, Space to select columns, w - where, o-order"
     tlist.bind(:LIST_SELECTION_EVENT) do |eve|
       $selected_table = eve.source[eve.firstrow]
       $current_table = $selected_table
@@ -288,16 +312,23 @@ App.new do
       $log.debug "XXX: ORDER: #{$order_columns}. Press F4 when done"
     }
     @statusline = status_line
+    #wg = get_color($datacolor, 'white','green')
+    #wb = get_color($datacolor, 'white','blue')
     @statusline.command { 
       # trying this out. If you want a persistent message that remains till the next on
       #  then send it in as $status_message
       text = $status_message.value || ""
       if !$current_db
-        "%-20s [%-s] %s" % [ Time.now, "Select a Database", text]
+        #"[%-s] %s" % [ "Select a Database", text]
+        "[%-s] %s" % [ "#[bg=red,fg=yellow]Select a Database#[end]", text]
+        #[ [nil, "%-22s" % Time.now, nil], [$errorcolor, " [Select a Database ]", FFI::NCurses::A_BOLD], [nil, text, nil] ]
       elsif !$current_table
-        "%-20s [DB: %-s | %-s ] %s" % [ Time.now, $current_db || "None", $current_table || "Select a table", text] 
+        "[DB: #[fg=white,bg=blue]%-s#[end] | %-s ] %s" % [ $current_db || "None", $current_table || "#[bg=red,fg=yellow]Select a table#[end]", text] 
+        #[ [nil, "%-22s [DB: %-s | " % [Time.now, $current_db || "None" ],nil], [$errorcolor, " Select a Table ]", FFI::NCurses::A_BOLD], [nil, text, nil] ]
       else
-        "%-20s [DB: %-s | %-s ] %s" % [ Time.now, $current_db || "None", $current_table || "----", text] 
+        "DB: #[fg=white,bg=green,bold]%-s#[end] | #[bold]%-s#[end] ] %s" % [ $current_db || "None", $current_table || "----", text] 
+        #[ [nil, "%-22s [DB: " % Time.now, nil], [wb, " #{$current_db} ", FFI::NCurses::A_BOLD],
+        #[wg, $current_table || "----", FFI::NCurses::A_BOLD], [nil, text, nil] ]
       end
     }
     @adock = nil
@@ -362,7 +393,7 @@ App.new do
     @form.bind_key(?\M-d) do
       ask_databases
     end
-    @form.bind_key(Ncurses::KEY_F4) do
+    @form.bind_key(FFI::NCurses::KEY_F4) do
       $where_string = nil
       $order_string = nil
       if $where_columns
@@ -384,8 +415,8 @@ App.new do
       end
     end
   end # stack
-  stack :margin => 50, :width => :EXPAND  do
-    tarea = textarea :name => 'tarea', :height => 20, :title => 'Sql Statement'
+  stack :margin => col1w+1, :width => :EXPAND  do
+    tarea = textarea :name => 'tarea', :height => 5, :title => 'Sql Statement'
     undom = SimpleUndo.new tarea
     tarea.bind_key(Ncurses::KEY_F4) do
       text = tarea.get_text
@@ -426,7 +457,7 @@ App.new do
       @adock.mode :normal
     } # M-z
     flow do
-      button_row = 17
+      #button_row = 17
       button "Save" do
         @cmd_history ||= []
           filename = ask("File to append contents to: ") { |q| q.default = @oldfilename; q.history = @cmd_history }
@@ -456,5 +487,9 @@ App.new do
       #ok_button = button( [button_row,30], "OK", {:mnemonic => 'O'}) do 
       #end
     end
+    blank
+    #tv = RubyCurses::ResultsetTextView.new @form, :row => 1,  :col => 1, :width => 50, :height => 16
+    tv = resultsettextview :name => 'resultset', :height => 18 , :title => 'DB Browser', :print_footer => true
+
   end
 end # app

data/examples/{appgmail.rb → deprecated/appgmail.rb}

@@ -686,7 +686,7 @@ App.new do
     @dirs = list_box :list => model, :height => ht, :border_attrib => borderattrib, :suppress_borders => true
     @dirs.one_key_selection = false
     
-    # we override so as to only print basename. Also, print unread count 
+    # we override/open instance so as to only print basename. Also, print unread count 
     def @dirs.convert_value_to_text(text, crow)
       str = text.dup
       if $unread_hash.has_key?(str)

data/examples/dirtree.rb

@@ -1,6 +1,8 @@
 require 'rbcurse/app'
 require 'fileutils'
 require 'rbcurse/tree/treemodel'
+#require 'rbcurse/common/file'
+require './common/file'
 
 def _directories wd
   $log.debug " directories got XXX: #{wd} "
@@ -32,7 +34,7 @@ App.new do
      
 
 
-  ht = 24
+  ht = FFI::NCurses.LINES - 2
   borderattrib = :reverse
   stack :margin_top => 1, :margin => 0, :width => 30 do
     @t = tree :data => model, :height => ht, :border_attrib => borderattrib
@@ -55,12 +57,14 @@ App.new do
       if ev.state == :SELECTED
         node = ev.node
         path = File.join(*node.user_object_path)
-        files = Dir.new(path).entries
-        files.delete(".")
-        @l.list files 
-        #TODO show all details in filelist
-        @current_path = path
-        $log.debug " XXX selected afterseeting lb: #{@l} "
+        if File.exists? path
+          files = Dir.new(path).entries
+          files.delete(".")
+          @l.list files 
+          #TODO show all details in filelist
+          @current_path = path
+          $log.debug " XXX selected afterseeting lb: #{@l} "
+        end
       end
     end # select
     @t.expand_node last # 
@@ -71,8 +75,14 @@ App.new do
     @l.bind :LIST_SELECTION_EVENT  do |ev|
       $log.debug " XXX GOT A LIST EVENT #{ev} "
       message ev.source.selected_value
+      file_page   ev.source.selected_value if ev.type == :INSERT
       #TODO when selects drill down
       #TODO when selecting, sync tree with this
     end
+    # on pressing enter, we edit the file using vi or EDITOR
+    @l.bind :PRESS  do |ev|
+      file_edit ev.text if File.exists? ev.text
+    end
   end
+  status_line :row => FFI::NCurses.LINES - 1
 end # app

data/examples/experimental/resultsetdemo.rb

@@ -0,0 +1,280 @@
+require 'rbcurse/extras/resultsettextview.rb'
+require 'fileutils'
+
+=begin
+# See tabbed pane, and add_cols nad add_rows, on_entr and set_form_row to see cursor issue
+# remove main form 
+# don't make a widget just an object
+# let it create own form.
+
+# NOTE: experimental, not yet firmed up
+# If you use in application, please copy to some application folder in case i change this.
+# Can be used for print_help_page
+# SUGGESTIONS WELCOME.
+# @since 1.4.1
+module RubyCurses
+
+  class ResultsetBrowser #< Widget
+    #include EventHandler
+    include ConfigSetup
+    include RubyCurses::Utils
+    #dsl_property :xxx
+    # I don't think width is actually used, windows width matters. What of height ?
+    # THATS WRONG , i cannot eat up window. I should use object dimentsion for pad,
+    #  not window dimensions
+    dsl_accessor :row, :col, :height, :width
+    dsl_accessor :should_print_border
+
+    def initialize win, config={}, &block
+      @should_print_border = true
+      @v_window = win #form.window
+      @window = @v_window
+      @focusable = true
+      @editable  = true
+      @old_index = @current_index = 0
+      @fields = nil
+      config_setup config 
+      instance_eval &block if block_given?
+      init_vars
+    end
+    def map_keys
+      @v_form.bind_key(?\C-n) { @current_index += 1 if @current_index < @rows.count-1 }
+      @v_form.bind_key(?\C-p) {  @current_index -= 1  if @current_index > 0 }
+      @mapped = true
+    end
+    def init_vars
+      @row ||= 0
+      @col ||= 0
+      @height ||= 15
+      @width ||= 50
+      @field_offset = 14   # where actual Field should start (leaving space for label)
+      @row_offset ||= 0
+      @col_offset ||= 1
+      @border_offset = 0
+      if @should_print_border
+        @border_offset = 1
+      end
+      @v_form = RubyCurses::ScrollForm.new @v_window
+      @v_form.display_h(@height-1-@border_offset*2) if @height
+      @v_form.display_w(@width-1-@border_offset*2)  if @width
+    end
+    def data=(rows)
+      @rows = rows
+    end
+    def columns=(columns)
+      @columns = columns
+      h = @columns.count + 2
+      w = 150 
+      #row = 1
+      #col = 1
+      row = @row + @border_offset
+      col = @col + @border_offset
+      @v_form.set_pad_dimensions(row, col, h, w)
+      @v_form.should_print_border(false) # this should use dimensions of object not window. # 2011-10-12 15:48:14
+      # currently I don't have space for any buttons or anything.  The form takes all space of the window
+      # not of the object defined.
+      # I should be able to tell Scrollform to use only thismuch of window.
+    end
+    def set_form_row
+      f = @v_form.get_current_field
+      f.set_form_row
+    end
+    def handle_key ch
+      map_keys unless @mapped
+      $log.debug "XXX: RB HK got ch "
+      ret =  @v_form.handle_key ch
+      #set_form_row
+      if ret == :UNHANDLED
+        @v_form.process_key ch, self
+      end
+      repaint
+      @v_window.wrefresh
+    end
+    def repaint
+      @fields ||= _create_fields
+      #alert "old #{@old_index} , #{@current_index} "
+      if @old_index != @current_index
+        #alert "index change"
+        row = @rows[@current_index]
+        @columns.each_with_index { |e, i|  
+          value = row[i]
+          len = value.to_s.length
+          type=@rows[0].types[i]
+          if type == "TEXT"
+            value = value.gsub(/\n/," ") if value
+          end
+          f = @fields[i]
+          @fields[i].set_buffer(value)
+          if f.display_length < len && len < (@width - @field_offset)
+            @fields[i].display_length len
+          end
+        }
+        @v_form.repaint
+        @window.wrefresh
+        Ncurses::Panel.update_panels
+        @old_index = @current_index
+      end
+    end
+    # maybe not required since we don't have 2 forms now
+    def unused_on_enter
+      if $current_key == KEY_BTAB
+        c = @v_form.widgets.count-1
+        @v_form.select_field c
+      else
+        @v_form.select_field 0
+      end
+    end
+    private
+    def _create_fields
+      color = $datacolor
+      if @should_print_border
+        @v_window.print_border @row, @col, @height-1, @width, color #, Ncurses::A_REVERSE
+        @row_offset += 1
+        @col_offset += 1
+      end
+      $log.debug "XXX: ROWS#{@rows}"
+      $log.debug "XXX: COLS#{@columns}"
+      $log.debug "XXX: row#{@rows[@current_index]}"
+      fields = []
+      r = @row + @row_offset   # row was for where to print the total object, not this
+      c = @col + @col_offset + @field_offset # 14 is to leave space for labels
+      v_form = @v_form
+      @columns.each_with_index { |e, index| 
+        #break if index >= @height-1 # create only as much space we have, SUCKS but just trying till be scroll
+        #$log.debug "XXX: #{r} #{c} EACH #{e}, #{index}, #{@rows[@current_index][index]}"
+        value=@rows[@current_index][index]
+        type=@rows[0].types[index]
+        if type == "TEXT"
+          value = value.gsub(/\n/," ") if value
+        end
+        len = [value.to_s.length, (@width - @field_offset)].min
+        f = Field.new v_form do 
+          name  e
+          row  r
+          col c 
+          bgcolor 'blue'
+          highlight_background 'cyan'
+          set_buffer value
+          display_length len
+          set_label Label.new v_form, {'text' => e, 'color'=>'cyan'}
+        end
+        fields << f
+        r += 1
+      }
+      @v_form.repaint
+      @window.wrefresh
+      Ncurses::Panel.update_panels
+      #$log.debug "XXX: created fields "
+      return fields
+    end
+    
+    # ADD HERE
+    
+  end # class
+end # module
+module RubyCurses
+  # a data viewer for viewing some text or filecontents
+  # view filename, :close_key => KEY_RETURN
+  # send data in an array
+  # view Array, :close_key => KEY_RETURN, :layout => [0,0,23,80]
+  # when passing layout reserve 4 rows for window and border. So for 2 lines of text
+  # give 6 rows.
+  class Browser
+    def self.browse_sql dbname, tablename, sql, config={} #:yield: ???
+      raise "file not found" unless File.exist? dbname
+      require 'sqlite3'
+      db = SQLite3::Database.new(dbname)
+      columns, *rows = db.execute2(sql)
+      #$log.debug "XXX COLUMNS #{sql}  "
+      content = rows
+      return nil if content.nil? or content[0].nil?
+      datatypes = content[0].types 
+      self.browse db, tablename, columns, rows, config
+    end
+    # @param filename as string or content as array
+    # @yield textview object for further configuration before display
+    # NOTE: i am experimentally yielding textview object so i could supress borders
+    # just for kicks, but on can also bind_keys or events if one wanted.
+    #def self.view what, config={} #:yield: textview
+    def self.browse dbconn, tablename, columns, rows, config={} #:yield: ???
+      wt = 0 # top margin
+      wl = 0 # left margin
+      wh = Ncurses.LINES-wt-3 # height, goes to bottom of screen
+      ww = Ncurses.COLS-wl-3  # width, goes to right end
+      wt, wl, wh, ww = config[:layout] if config.has_key? :layout
+
+      fp = config[:title] || ""
+      pf = config.fetch(:print_footer, true)
+      ta = config.fetch(:title_attrib, 'bold')
+      fa = config.fetch(:footer_attrib, 'bold')
+
+      wh = Ncurses.LINES-0
+      ww = Ncurses.COLS-0
+      layout = { :height => wh, :width => ww, :top => wt, :left => wl } 
+      #v_window = config[:window] # using previous window cause crash seg fault
+      #v_window ||= VER::Window.new(layout) # copywin gives -1 and prints nothing
+      v_window = VER::Window.root_window
+      v_window.printstring 0, 30, "Database Browser Demo", $datacolor
+      @form = RubyCurses::Form.new v_window # only for some widgets that are not editable
+      header = app_header "rbcurse ", :text_center => "ResultsetBrowser Demo", :text_right =>"New Improved!", :color => :black, :bgcolor => :white, :attr => :bold 
+      sl = status_line :row => v_window.height == 0 ? Ncurses.LINES-1 : v.window.height-1
+      sl.command { "Record Navigation: C-n C-p. Scrolling M-n, M-p, M-l, M-h" }
+      
+      @form.repaint
+
+      #rb = ResultsetBrowser.new v_form, :row => 2, :col => 2
+      rb = ResultsetBrowser.new v_window, :row => 2, :col => 2, :height => 20, :width => 95
+      rb.columns = columns
+      rb.data = rows
+      rb.repaint
+
+
+      # yielding textview so you may further configure or bind keys or events
+      begin
+      #v_form.repaint
+      v_window.wrefresh
+      Ncurses::Panel.update_panels
+      # allow closing using q and Ctrl-q in addition to any key specified
+      #  user should not need to specify key, since that becomes inconsistent across usages
+        while((ch = v_window.getchar()) != ?\C-q.getbyte(0) )
+          break if ch == config[:close_key] 
+          rb.handle_key ch
+          #v_form.handle_key ch
+        end
+      rescue => err
+        $log.error err.to_s
+        $log.error err.backtrace.join("\n")
+        alert err.to_s
+
+      ensure
+        v_window.destroy if !v_window.nil?
+      end
+    end
+  end  # class
+end # module
+=end
+if __FILE__ == $PROGRAM_NAME
+require 'rbcurse/app'
+
+App.new do 
+  header = app_header "rbcurse ", :text_center => "ResultsetBrowser Demo", :text_right =>"New Improved!", :color => :black, :bgcolor => :white, :attr => :bold 
+  message "Press F10 to exit from here"
+  columns = ["Name","Age","City", "Country"]
+  data    = [
+             [ "Rahul",31, "Delhi","India"], 
+             [ "Dev",35, "Mumbai","India"], 
+             [ "Jobs",56, "L.A","U.S.A"], 
+             [ "Matz",40, "Tokyo","Nippon"] 
+  ]
+
+    #RubyCurses::Browser.browse("dummy", "atable", columns, data,  :close_key => FFI::NCurses::KEY_F10, :title => "Enter to close") do |t|
+  sql = "select id, type, priority, title from bugs"
+  sql = "select * from bugs"
+  file = "bugzy.sqlite"
+  tv = RubyCurses::ResultsetTextView.new @form, :row => 1,  :col => 1, :width => 50, :height => 16
+  tv.sqlite file, "bugs", sql
+    #RubyCurses::Browser.browse_sql("bugzy.sqlite", "bugs", sql, :close_key => FFI::NCurses::KEY_F10, :title => "Enter to close", :window => @window) do |t|
+    #end
+
+end # app
+end