rbcurse-core 0.0.0

data/examples/data/todo.txt

@@ -0,0 +1,10 @@
+ 2. Show key mappings to user
+ 3. how to override +- * a and others for listbox - need to call before super()
+ 4. app to contain window close and confirm close
+ 4. when sorting cursor on old row but curr changed
+ 5. app needs to pass up exceptions to user app
+ 5. test out vieditable and listeditable with core
+.3. Make keylabels more rubyesque - later
+x5. convert testlistbox to core
+x5. messagebox default button - done but current button should show default char
+x5. messagebox to catch YN keys also

data/examples/data/todocsv.csv

@@ -0,0 +1,28 @@
+FIXME,MSGBOX,5,Confirm dialog: box vertical line overwritten in 2 spots,TODO
+FIXME,MSGBOX,5,Confirm dialog: use normal key as hotkey also,TODO,Tue Jan 20 11:44:49 +0530 2009
+FIXME,MSGBOX,5,Confirm dialog: arrow keys not navigating anylonger,TODO,Tue Jan 20 11:45:27 +0530 2009
+FIXME,GEN,9,Message Box sizing,TODO,Thu Jan 22 20:39:21 +0530 2009
+DONE,LIST,5,case insensitive char search in list and combo,TESTED,Sat Feb 21 20:43:05 +0530 2009
+DONE,TABLE,5,increase the maxlen of this field please. Let us see how it goes.,TESTED
+DONE,TABLE,5,Can we disable down arrow in Chkbox in table?,TESTED,Mon Jan 19 00:00:00 +0530 2009
+DONE,TABLE,0,editing on enter,TESTED,Mon Jan 19 01:37:00 +0530 2009
+DONE,TABLE,5,cell editors pcol is not being reset each time,TESTED,Mon Jan 19 17:47:00 +0530 2009
+DONE,TABLE,5,Use TAB for intercell navig. use M-TAB for next f,TESTED,Tue Jan 20 00:38:19 +0530 2009
+DONE,TABLE,5,Searching,TESTED,Sat Feb 21 20:42:10 +0530 2009
+DONE,TABLE,3,Columns editable or not,TESTED,Sat Feb 21 20:43:10 +0530 2009
+DONE,TABLE,1,Any way to start a table with no data and pop late,TODO,Sat Feb 21 20:43:33 +0530 2009
+DONE,GEN,5,Make  widget of Keylabelprinter,TESTED,Tue Jan 20 00:38:43 +0530 2009
+DONE,GEN,5,Added Action class shared by Button Menuitem ,TESTED,Thu Jan 22 18:08:28 +0530 2009
+DONE,GEN,5,Added PopupMenu 2009-01-22 18:09 ,TESTED,Thu Jan 22 18:09:34 +0530 2009
+DONE,LIST,0,call on_enter and on_leave of component,TOTEST,Sun Feb 22 12:19:38 +0530 2009
+DONE,FIELD,5,Field: OVERWRITE Mode,TESTED,2010-09-13 11:24:35 +0530
+DONE,GEN,5,"Modified should check if value changed, not UP etc",TOTEST,2010-09-13 11:25:18 +0530
+TODO,TABLE,1,table.set_data should check if models already created.,TODO
+TODO,TABLE,5,"Set column_class in TableColumn, to avoid hassles",TODO
+TODO,TABLE,2,Table sorting and filtering is required - using VIEW,TODO
+TODO,TABLE,5,Table height and col widths auto sizing or FILLING extra space.,TODO
+TODO,TEXTAREA,9,"Textarea: wrap options NONE, COLUMN",TODO,Tue Jan 20 01:04:15 +0530 2009
+TODO,GEN,5,Give a decent FileChooser and FileSaver,TODO
+TODO,GEN,5,Focus Traversable vs focusable,TODO
+TODO,GEN,5,Action class: fire event for listeners,TODO,Thu Jan 22 20:09:50 +0530 2009
+TODO,FIELD,5,Field: Auto-skip when reaching end of maxlen,TODO

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

@@ -0,0 +1,487 @@
+require 'rbcurse/core/util/app'
+require 'sqlite3'
+#require 'rbcurse/experimental/resultsettextview.rb'
+#require 'rbcurse/experimental/widgets/undomanager'
+
+# @return array of table names from selected db file
+def get_table_names
+  raise "No database file selected." unless $current_db
+
+  $tables = get_data "select name from sqlite_master"
+  $tables.collect!{|x| x[0] }  ## 1.9 hack, but will it run on 1.8 ??
+  $tables
+end
+def get_column_names tbname
+  get_metadata tbname
+end
+def connect dbname
+  $log.debug "XXX:  CONNECT got #{dbname} "
+  $current_db = dbname
+  $db = SQLite3::Database.new(dbname)
+
+  return $db
+end
+def get_data sql
+  $log.debug "SQL: #{sql} "
+  $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 #if @datatypes.nil?
+  return content
+end
+def get_metadata table
+  get_data "select * from #{table} limit 1"
+  #$columns.collect!{|x| x[0] }  ## 1.9 hack, but will it run on 1.8 ??
+  return $columns
+end
+#
+# creates a popup for selection given the data, and executes given block with
+#  following return value.
+# @return [String] if mode is :single
+# @return [Array] if mode is :multiple
+#
+def create_popup array, selection_mode=:single,  &blk
+  #raise "no block given " unless block_given?
+  listconfig = {'bgcolor' => 'blue', 'color' => 'white'}
+  listconfig[:selection_mode] = selection_mode
+  ix = popuplist array, listconfig
+  if ix
+    if selection_mode == :single
+      value = array[ix]
+      blk.call value
+    else
+      #values = array.select {|v| ix.include? v}
+      values = []
+      array.each_with_index { |v, i| values << v if ix.include? i }
+      blk.call(values)
+    end
+  end
+end
+
+def view_data fields='*', name
+  stmt = "select #{fields} from #{name}"
+  stmt << $where_string if $where_string
+  stmt << $order_string if $order_string
+  view_sql stmt
+  @form.by_name['tarea'] << stmt if @form # nil when called from menu
+end
+def view_sql stmt
+  begin
+  content = get_data stmt
+  if content.nil?
+  else
+    require 'rbcurse/core/widgets/tabular'
+    t = Tabular.new do |t|
+      t.headings = $columns
+      t.data=content   
+    end
+    view t.render
+  end
+  rescue => err
+    $log.error err.to_s
+    $log.error(err.backtrace.join("\n"))
+    alert err.to_s
+  end
+end
+
+App.new do 
+  header = app_header "rbcurse #{Rbcurse::VERSION}", :text_center => "Database Demo", :text_right =>"enabled"
+  form = @form
+  mylabel = "a field"
+  $catch_alt_digits = true # use M-1..9 in textarea
+  $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
+               DBDEMO HELP 
+
+      This is some help text for dbdemo.
+      We are testing out this feature.
+
+      Alt-d    -   Select a database
+      <Enter>      on a table, view data (q to close window)
+      <Space>      on a table, display columns in lower list
+
+                COLUMN LIST KEYS
+      <Space>      on a column for multiple select
+      <Ctrl-Space> on a column for range select/deselect from previous selection
+      <Enter>      on column table to view data for selected columns
+             u     unselect all
+             a     select all
+             *     invert selection
+      F4           View data for selected table (or columns if selected)
+
+      q or C-q     Close the data window that comes on Enter or F4
+
+      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
+
+
+
+      -----------------------------------------------------------------------
+      Hope you enjoyed this help.
+    eos
+  end
+  def ask_databases
+      names = Dir.glob("*.{sqlite,db}")
+      if names
+        ix = popuplist( names )
+        if ix
+          value = names[ix]
+          connect(value);
+          @form.by_name["tlist"].list(get_table_names)
+        end
+        
+      else
+        alert "Can't find a .db or .sqlite file"
+      end
+  end
+  # TODO accelerators and 
+  # getting a handle for later use
+  mb = menubar do
+    keep_visible true
+    #@toggle_key=KEY_F2
+    menu "File" do
+      item "Open", "O" do
+        accelerator "Ctrl-O"
+        command do 
+          alert "HA!! you wanted to open a file?"
+        end
+      end
+      menu "Database" do
+        item_list do
+          Dir.glob("**/*.{sqlite,db}")
+        end
+        command do |menuitem, text|
+          connect text
+          form.by_name["tlist"].list(get_table_names)
+        end
+      end
+      menu "Tables" do
+        item_list do
+          if $current_db
+            get_table_names
+          end
+        end
+        command do |menuitem, text|
+          $current_table = text
+          #alert(get_column_names(text).join(", "))
+          create_popup(get_column_names(text), :multiple) { |value| view_data( value.join(","), text) }
+        end
+      end
+      item "New", "N" 
+      separator
+      item "Exit", "x"  do 
+        command do
+          throw(:close)
+        end
+      end
+      item "Cancel Menu" do
+        accelerator "Ctrl-g"
+      end
+
+    end # menu
+    menu "Window" do
+      item "Tile", "T"
+      menu "Find" do
+        item "More", "M"
+        $x = item "Less", "L" do
+          #accelerator "Ctrl-X"
+          command do
+            alert "You clickses on Less"
+          end
+        end
+        menu "Size" do
+          item "Zoom", "Z"
+          item "Maximize", "X"
+          item "Minimize", "N"
+        end
+      end
+    end
+    menu "Others" do
+      require 'rbcurse/core/include/appmethods.rb'
+      item "Shell Output" do
+        command { shell_output }
+      end
+      item "Suspend" do
+        command { suspend }
+      end
+    end
+  end # menubar
+  mb.toggle_key = FFI::NCurses::KEY_F2
+  mb.color = :white
+  mb.bgcolor = :blue
+  @form.set_menu_bar mb
+  tv = nil
+  flow :margin_top => 1 do
+    col1w = 20
+    stack :width_pc => 20 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,
+        :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,
+        :selection_mode => :single
+      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} " # TODO in core
+        else
+          ask_databases
+        end
+      end
+      #tlist.bind(:ENTER_ROW) do |eve|
+        # too much confusion between selected and focussed row
+        #$current_table = eve.text if $db
+      #end
+      clist = basiclist :name => "clist", :list => ["No columns"], :title => "Columns", :height => 14, 
+        :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
+        clist.data = get_column_names $selected_table
+      end
+      clist.bind(:PRESS) do |eve|
+        # get data of table
+        if $selected_table
+          cols = "*"
+          c = clist.get_selected_values
+          unless c.empty?
+            cols = c.join(",")
+          end
+          view_data cols, $selected_table
+        else
+          alert "Select a table first." 
+        end
+      end
+      clist.bind_key('w') {
+        c = clist.current_value
+        $where_columns ||= []
+        hist = ["#{c} = "]
+        w = ask("(UP arrow to edit) where "){ |q| q.default = "#{c} = "; q.history = hist }
+        $where_columns << w if w
+        message "where: #{$where_columns.last}. Press F4 when done"
+        $log.debug "XXX: WHERE: #{$where_columns} "
+      }
+      clist.bind_key('o') {
+        c = clist.current_value
+        $order_columns ||= []
+        $order_columns << c if c
+        message "order (asc): #{$order_columns.last}. Press F4 when done"
+        $log.debug "XXX: ORDER: #{$order_columns} "
+      }
+      clist.bind_key('O') {
+        c = clist.current_value
+        $order_columns ||= []
+        $order_columns << " #{c} desc " if c
+        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.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] ]
+        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] ]
+        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] ]
+        end
+      }
+      @adock = nil
+      keyarray = [
+        ["F1" , "Help"], ["F10" , "Exit"], 
+        ["F2", "Menu"], ["F4", "View"],
+        ["M-d", "Datebase"], ["M-t", "Table"],
+        ["M-x", "Command"], nil
+      ]
+      tlist_keyarray = keyarray + [ ["Sp", "Select"], nil, ["Enter","View"] ]
+
+      clist_keyarray = keyarray + [ ["Sp", "Select"], ["C-sp", "Range Sel"], 
+        ["Enter","View"], ['w', 'where'],
+        ["o","order by"], ['O', 'order desc']
+      ]
+      tarea_keyarray = keyarray + [ ["M-z", "Commands"], nil ]
+      #tarea_sub_keyarray = [ ["r", "Run"], ["c", "clear"], ["w","Save"], ["a", "Append next"], 
+      #["y", "Yank"], ["Y", "yank pop"] ]
+      tarea_sub_keyarray = [ ["r", "Run"], ["c", "clear"], ["w","Kill Ring Save (M-w)"], ["a", "Append Next"], 
+        ["y", "Yank (C-y)"], ["Y", "yank pop (M-y)"],
+        ["u", "Undo (C-_)"], ["R", "Redo (C-r)"],
+      ]
+
+      gw = get_color($reversecolor, 'green', 'black')
+      @adock = dock keyarray, { :row => Ncurses.LINES-2, :footer_color_pair => $datacolor, 
+        :footer_mnemonic_color_pair => gw }
+      @adock.set_key_labels tlist_keyarray, :tables
+      @adock.set_key_labels clist_keyarray, :columns
+      @adock.set_key_labels tarea_sub_keyarray, :tarea_sub
+      @adock.set_key_labels tarea_keyarray, :tarea
+      tlist.bind(:ENTER) { @adock.mode :tables }
+      clist.bind(:ENTER) { @adock.mode :columns }
+
+      reduce = lambda { |obj|
+        obj.height -= 1 if obj.height > 3
+      }
+      increase = lambda { |obj|
+        obj.height += 1 if obj.height + obj.row < Ncurses.LINES-2
+      }
+      _lower = lambda { |obj|
+        obj.row += 1 if obj.height + obj.row < Ncurses.LINES-2
+      }
+      _raise = lambda { |obj|
+        obj.row -= 1 if obj.row > 2
+      }
+      [clist, tlist].each do |o|
+        o.bind_key([?\C-x, ?-]){ |o| reduce.call(o) }
+        o.bind_key([?\C-x, ?+]){ |o| increase.call(o) }
+        o.bind_key([?\C-x, ?v]){ |o| _lower.call(o) }
+        o.bind_key([?\C-x, ?6]){ |o| _raise.call(o) }
+      end
+
+
+      @form.bind_key([?q,?q]) { throw :close }
+      @form.bind_key(?\M-t) do
+        if $current_db.nil?
+          alert "Please select database first"
+        else
+          create_popup( get_table_names,:single) {|value| $selected_table = $current_table =  value}
+        end
+      end
+      @form.bind_key(?\M-d) do
+        ask_databases
+      end
+      @form.bind_key(FFI::NCurses::KEY_F4) do
+        $where_string = nil
+        $order_string = nil
+        if $where_columns
+          $where_string = " where " + $where_columns.join(" and ")
+        end
+        if $order_columns
+          $order_string = " order by " + $order_columns.join(" , ")
+        end
+        # mismatch between current and selected table
+        if $current_table
+          cols = "*"
+          c = clist.get_selected_values
+          unless c.empty?
+            cols = c.join(",")
+          end
+          view_data cols, $current_table
+        else
+          alert "Select a table first." 
+        end
+      end
+    end # stack
+    stack :width_pc => 80 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
+        if text == ""
+          alert "Please enter a query and then hit F4. Or press F4 over column list"
+        else
+          view_sql tarea.get_text
+        end
+      end
+      tarea.bind(:ENTER) { @adock.mode :tarea }
+      tarea.bind_key(?\M-z){
+
+        hash = { 'c' => lambda{ tarea.remove_all },
+          'w' => lambda{ tarea.kill_ring_save },
+          'a' => lambda{ tarea.append_next_kill },
+          'y' => lambda{ tarea.yank },
+          'Y' => lambda{ tarea.yank_pop },
+          'r' => lambda{ view_sql tarea.get_text },
+          'u' => lambda{ tarea.undo },
+          'R' => lambda{ tarea.redo },
+      }
+
+
+      @adock.mode :tarea_sub
+      @adock.repaint
+      keys = @adock.get_current_keys
+      while((ch = @window.getchar()) != ?\C-c.getbyte(0) )
+        if ch < 33 || ch > 126
+          Ncurses.beep
+        elsif !keys.include?(ch.chr) 
+          Ncurses.beep
+        else
+          hash.fetch(ch.chr).call
+          #opt_file ch.chr
+          break
+        end
+      end
+      @adock.mode :normal
+      } # M-z
+      flow do
+        #button_row = 17
+        button "Save" do
+          @cmd_history ||= []
+          filename = ask("File to append contents to: ") { |q| q.default = @oldfilename; q.history = @cmd_history }
+
+          if filename
+            str = tarea.get_text
+            File.open(filename, 'a') {|f| f.write(str) } 
+            @oldfilename = filename
+            @cmd_history << filename unless @cmd_history.include? filename
+
+            message "Appended data to #{filename}"
+          else
+            message "Aborted operation"
+          end
+          hide_bottomline
+        end
+        button "Read" do
+          filter = "*"
+          str = choose filter, :title => "Files", :prompt => "Choose a file: "
+          begin
+            tarea.set_content(str) 
+            message "Read content from #{str} "
+          rescue => err
+            say_with_pause "No file named: #{str}: #{err.to_s} "
+          end
+        end
+        #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
+end # app