rbcurse-experimental 0.0.0

data/README.markdown

@@ -0,0 +1,75 @@
+# rbcurse-experimental
+
+This is related to the rbcurse ncurses toolkit, for building ncurses applications.
+
+This provides stuff I've experimented with, and tested to some extent. It can be useful stuff to build upon
+or to even use if it suits your purposes. Most of this stuff has been tested with positive cases and not
+with negative data. It is minimally tested.
+
+Use for home or unimportant programs, preferable don't release these widgets for public use.
+
+Please submit patches if you find bugs or improve upon it.
+
+> We better hurry up and start coding, there are going to be a lot of bugs to fix. 
+
+Contents as of time of creation of repo:
+
+* directorylist.rb   - shows directory in a list, allowing various kinds of selection and filtering and ENTER
+
+* directorytree.rb   - shows directory in a tree, allowing expansion
+
+* masterdetail.rb    - master detail pattern, two widgets
+
+* multiform.rb       - do not touch this at all. Should be nuked. It works but in order to keep
+                      rbcurse simple and maintainable, I advise against using forms within forms. I've spent
+                      weeks and months tracking cursor placement for forms within forms as in the old
+                      tabbedpane and some old deprecated widgets.
+
+* resultsetbrowser.rb  - I am working on database aware widgets, check dbdemo.rb in examples
+
+* resultsettextview.rb - same as above
+
+* rscrollform.rb    - a form that can display more objects than the window, scrolls horiz and vertically.
+                      Used and tested only with single line widgets like Field, not with textviews and lists.
+
+* stackflow.rb      - widget that allows complex weightages to be assigned to stacks and flows
+                      and resizing if window dimension changes. Tested only with weightages and not
+                      absolute sizes. Expects weightages to be correct. More work can go into this
+                      to make it robust.
+
+* undomanager.rb    - used in lists and textareas to support undo and redo. I've used it but 
+                      its a very simple piece of code and I am not too confident how well it will stand
+                      in heavy use. Certainly use it for lists and textareas in personal applications.
+
+
+
+## Short story
+
+Minimally tested but interesting stuff
+
+## Long story
+
+Use stuff here at your own risk. Most of this works, and will work in most situations but may not take care validations, extreme cases, wrong data passed.
+
+Its tested for basic use cases. Samples should help you. Don't use in production, or release for others to use. Use for personal use if you have too. 
+
+
+Feel free to fork and further develop stuff in here, or submit patches to me.
+
+Some of this stuff may move to extras or core if its really useful and stable.
+
+## See also
+
+* rbcurse - <http://github.com/rkumar/rbcurse/>
+
+* rbcurse-core - <http://github.com/rkumar/rbcurse-core/>
+
+* rbcurse-extras - <http://github.com/rkumar/rbcurse-extras/>
+
+## Install
+
+    gem install rbcurse-experimental
+
+## License
+
+  Same as ruby license.

data/VERSION

@@ -0,0 +1 @@
+0.0.0

data/examples/teststackflow.rb

@@ -0,0 +1,113 @@
+# #!/usr/bin/env ruby -w
+=begin
+  * Name          : teststackflow.rb
+  * Description   : to test Container2.rb (to be renamed)
+  *               :
+  * Author        : rkumar http://github.com/rkumar/rbcurse/
+  * Date          : 25.10.11 - 12:57
+  * License       :
+  * Last update   : Use ,,L to update
+    Same as Ruby's License (http://www.ruby-lang.org/LICENSE.txt)
+
+=end
+
+
+if __FILE__ == $PROGRAM_NAME
+  require 'rbcurse/core/util/app'
+  require 'rbcurse/extras/widgets/rlistbox'
+  require 'rbcurse/experimental/widgets/stackflow'
+  App.new do
+
+    lb = Listbox.new nil, :list => ["borodin","berlioz","bernstein","balakirev", "elgar"] , :name => "mylist"
+    lb1 = Listbox.new nil, :list => ["bach","beethoven","mozart","gorecki", "chopin","wagner","grieg","holst"] , :name => "mylist1"
+
+    lb2 = Listbox.new nil, :list => `gem list --local`.split("\n") , :name => "mylist2"
+
+    alist = %w[ ruby perl python java jruby macruby rubinius rails rack sinatra pylons django cakephp grails] 
+    str = "Hello, people of Earth.\nI am HAL, a textbox.\nUse arrow keys, j/k/h/l/gg/G/C-a/C-e/C-n/C-p\n"
+    str << alist.join("\n")
+    require 'rbcurse/core/widgets/rtextview'
+    tv = TextView.new nil, :name => "text"
+    tv.set_content str
+=begin
+    f1 = field "name", :maxlen => 20, :display_length => 20, :bgcolor => :white, 
+      :color => :black, :text => "abc", :label => " Name: ", :label_color_pair => @datacolor
+    f2 = field "email", :display_length => 20, :bgcolor => :white, 
+      :color => :blue, :text => "me@google.com", :label => "Email: ", :label_color_pair => @datacolor
+    f3 = radio :group => :grp, :text => "red", :value => "RED", :color => :red
+    f4 = radio :group => :grp, :text => "blue", :value => "BLUE", :color => :blue
+    f5 = radio :group => :grp, :text => "green", :value => "GREEN", :color => :green
+=end
+
+    f1 = Field.new nil, :maxlen => 20, :display_length => 20, :bgcolor => :white, 
+      :color => :black, :text => "abc", :label => " Name: ", :label_color_pair => @datacolor,
+      :valid_regex => /[A-Z][a-z]*/
+    f2 = Field.new nil, :display_length => 20, :bgcolor => :white, 
+      :color => :blue, :text => "me@google.com", :label => "Email: ", :label_color_pair => @datacolor
+    f3 = Field.new nil, :display_length => 20, :bgcolor => :white, 
+      :color => :blue, :text => "24", :label => "Age: ", :label_color_pair => @datacolor,
+      :valid_range => (20..100)
+    w = Ncurses.COLS-1
+    h = Ncurses.LINES-3
+    r = StackFlow.new @form, :row => 1, :col => 1, :width => w, :height => h, :title => "Stack n Flow with margins" do
+      #stack :margin_top => 2, :margin_left => 1 do
+        flow :margin_top => 0, :margin_left => 2, :margin_right => 0, :orientation => :right do #:weight => 49 do 
+          add tv, :weight => 40
+          add lb2 , :weight => 50
+        end
+        stack :margin_top => 0, :orientation => :bottom do #stack :height => 12, :width => 78 do
+          add lb, :weight => 40, :margin_left => 1
+          add lb1 , :weight => 40
+          #add f1
+        #stack :weight => 30 do
+        #add f1
+        #add f2
+        #add f3
+        end
+      #end # stack
+    end # r
+    def increase_height
+      @r.height += 1
+      @r.repaint_all(true)
+    end
+    def increase_width
+      @r.width += 1
+      @r.repaint_all(true)
+    end
+    @r = r
+    @r.bind_key(?\M-w) {increase_width}
+    @r.bind_key(?\M-h) {increase_height}
+    @r.bind_key(0) {
+      f = @r.item_for tv
+      f1 = @r.item_for lb2
+      p = @r.parent_of tv
+      p1 = @r.parent_of lb2
+      $log.debug "XXX: ITEM_FOR tv is #{f}, #{f1}  #{p} , #{p1} "
+      @ctr ||= 0
+      case @ctr
+      when 0
+        @r.components[0].orientation = :left
+      when 1
+        @r.components[0].orientation = :right
+      when 2
+        @r.components[1].orientation = :top
+      when 3
+        @r.components[1].orientation = :bottom
+      else
+        @ctr = -1
+      end
+      $status_message.value =" Flow: #{@r.components[0].orientation} | Stack #{@r.components[1].orientation}. Use C-Space to change "
+      @r.repaint_all(true)
+      @ctr += 1
+
+    }
+    $status_message.value =" Flow: #{@r.components[0].orientation} | Stack #{@r.components[1].orientation}. Use Ctrl-Space to change "
+
+    #r.add(f1)
+    #r.add(f2)
+    #r.add(f3,f4,f5)
+    #sl = status_line
+
+    st = status_line :row => -1
+  end # app
+end # if 

data/lib/rbcurse/experimental/widgets/directorylist.rb

@@ -0,0 +1,467 @@
+require 'rbcurse'
+require 'fileutils'
+require 'rbcurse/extras/widgets/rlistbox'
+require 'rbcurse/core/include/vieditable'
+require 'rbcurse/experimental/widgets/undomanager'
+##
+# Created on : Wed Sep 22 22:30:13 IST 2010
+# (c) rkumar (arunachalesha)
+#
+module RubyCurses
+  # Display a directory listing, allowing user to drill down on pressing Enter
+  # on a directory, or sort when pressing enter on header row.
+  class DirectoryList < Listbox
+
+    include ViEditable
+
+    def initialize form, config={}, &block
+      @hide_dot_files = false
+      @hide_others = false
+      @curpos = 0
+      super
+
+      #@current_path ||= Dir.getwd # setting it causes selection not to fire if same one
+      # is selected first
+      @_header_array = [ "Attr", "Size", "Modified" , "Name" , "<Order_by_Extension>" ]
+      @_header = " %s %8s  %19s %s   %s " % @_header_array
+    end
+    def init_vars
+      # which rows are not data, thus don't fire, or give error
+      @_non_data_indices = []
+      @_header_row_index   = 0
+      @_first_data_index = 1
+      @one_key_selection = false # this allows us to map keys to methods
+      vieditable_init_listbox
+      undom = SimpleUndo.new self
+      bind_key(?\M-h, :scroll_left)
+      bind_key(?\M-l, :scroll_right)
+      bind_key(KEY_RIGHT, :cursor_forward)
+      bind_key(KEY_LEFT, :cursor_backward)
+      bind_key(?$, :end_of_line)
+      bind_key(?\C-e, :end_of_line)
+      bind_key(?\C-a, :start_of_line)
+      bind_key(?a, :select_all)
+      bind_key(?*, :invert_selection)
+      bind_key(?u, :clear_selection)
+      bind_key(?+, :ask_select)
+      bind_key(?-, :ask_unselect)
+      bind_key(?I) { @hide_dot_files = !@hide_dot_files; prune_entries; }
+      #bind_key(?v, :view_current)  # does not respond to ??? XXX
+      bind_key(?v) {view_current} 
+      super
+    end
+    # changing the current path, refreshes files
+    def current_path(*val)
+      if val.empty?
+        return @current_path
+      else
+        raise ArgumentError, "current_path should be a directory:#{val[0]}." unless File.directory? val[0]
+        oldvalue = @current_path
+        if oldvalue != val[0]
+          @current_path = val[0]
+          populate @current_path
+          fire_property_change(:current_path, oldvalue, @current_path)
+        end
+      end
+      self
+    end
+    # populate the list with file names
+    # @param [String, Array] string is the path name to populate with
+    #               Array is a list of files 
+    def populate path
+      case path
+      when String
+        @current_path = path
+        @entries = Dir.new(path).entries
+        @entries.delete(".")
+        # isn;t it a bit late here. it needs to happen to what's already there
+        @entries.delete_if {|x| x =~ /^\./} if @hide_dot_files
+        @entries.delete_if {|x| x =~ /\.bak$/ ||  x=~/\.swp$/} if @hide_others
+      when Array
+        path = @current_path
+        # we've been passed @entries so we don't need to put it again ??? XXX
+      end
+      # TODO K M etc
+      list @entries
+      @list.insert 0, @_header
+      @title = @current_path
+      @current_index = @_first_data_index
+      set_form_row if @form
+    end
+    # called by parent's repaint
+    def convert_value_to_text file, crow
+      if @short
+        file
+      else
+        if crow == @_header_row_index
+          return file
+        else
+          # OUCH i don't know if its a header !!
+          fullname = File.join(@current_path, file)
+          fname = file
+          stat = File::Stat.new fullname
+          time = stat.mtime.to_s[0..18]
+          attr = stat.directory? ? "d" : "-"
+          attr << (stat.writable? ? "w" : "-")
+          attr << (stat.readable? ? "r" : "-")
+          attr << (stat.executable? ? "x" : "-")
+          fname << "/" if stat.directory? && fname[-1] != "/"
+          value = " %s %8d  %s %s" % [attr, stat.size, time, fname]
+          return value
+        end
+      end
+    end
+
+    def ___create_default_cell_renderer
+      cell_renderer( RubyCurses::DirectoryListCellRenderer.new "", {:color=>@color, :bgcolor=>@bgcolor, :parent => self, :display_length=> @width-2-@left_margin})
+    end
+    def _get_word_under_cursor line=@_header, pos=@curpos
+      finish = line.index(" ", pos)
+      start = line.rindex(" ",pos)
+      finish = -1 if finish.nil?
+      start = 0 if start.nil?
+      return line[start..finish]
+    end
+    # sorts entries by various parameters.
+    # Not optimal since it creates file stat objects each time rather than cacheing, but this is a demo of widgets
+    # not a real directory lister!
+    def sort_by key, reverse=false
+      # remove parent before sorting, keep at top
+      first = @entries.delete_at(0) if @entries[0]==".."
+      #key ||= @sort_key
+      sort_keys = { 'Name' => :name, 'Modified' => :mtime, "Size" => :size, "<Order_by_Extension>" => :ext, 'Attr' => :attr, "Accessed" => :atime }
+      key = sort_keys[key] if sort_keys.has_key? key
+      #if key == @sort_key
+        #reverse = true
+      #end
+      cdir=@current_path+"/"
+      case key
+      when  :size
+        @entries.sort! {|x,y| xs = File.stat(cdir+x); ys = File.stat(cdir+y); 
+          if reverse
+            xs.size <=> ys.size 
+          else
+            ys.size <=> xs.size 
+          end
+        }
+      when  :mtime
+        @entries.sort! {|x,y| xs = File.stat(cdir+x); ys = File.stat(cdir+y); 
+          if reverse
+            xs.mtime <=> ys.mtime 
+          else
+            ys.mtime <=> xs.mtime 
+          end
+        }
+      when  :atime
+        @entries.sort! {|x,y| xs = File.stat(cdir+x); ys = File.stat(cdir+y); 
+          if reverse
+            xs.atime <=> ys.atime 
+          else
+            ys.atime <=> xs.atime 
+          end
+        }
+      when  :name
+        @entries.sort! {|x,y| x <=> y 
+          if reverse
+            x <=> y
+          else
+            y <=> x
+          end
+        }
+      when  :ext
+        @entries.sort! {|x,y| 
+          if reverse
+            File.extname(cdir+x) <=> File.extname(cdir+y) 
+          else
+            File.extname(cdir+y) <=> File.extname(cdir+x) 
+          end
+        }
+      when  :attr
+        @entries.sort! {|x,y| xs = File.stat(cdir+x); ys = File.stat(cdir+y); 
+          x = xs.directory? ? "d" : "D"
+          y = ys.directory? ? "d" : "D"
+          if reverse
+            x <=> y
+          else
+            y <=> x
+          end
+        }
+      end
+      @sort_key = key
+      @entries.insert 0, first unless first.nil?  # keep parent on top
+      populate @entries
+    end
+    GIGA_SIZE = 1073741824.0
+    MEGA_SIZE = 1048576.0
+    KILO_SIZE = 1024.0
+
+    # Return the file size with a readable style.
+    def readable_file_size(size, precision)
+      case
+        #when size == 1 : "1 B"
+      when size < KILO_SIZE then "%d B" % size
+      when size < MEGA_SIZE then "%.#{precision}f K" % (size / KILO_SIZE)
+      when size < GIGA_SIZE then "%.#{precision}f M" % (size / MEGA_SIZE)
+      else "%.#{precision}f G" % (size / GIGA_SIZE)
+      end
+    end
+    def date_format t
+      t.strftime "%Y/%m/%d"
+    end
+
+    # on pressing Enter, execute this action.
+    # Here we take the current file and if its a directory, we step into it.
+    def fire_action_event
+      if @_non_data_indices.include? @current_index
+        Ncurses.error
+        return
+      end
+      $log.debug "inside fire_action_event of directorylist #{@current_index} #{toprow} "
+      if @_header_row_index == @current_index
+        # user hit enter on the header row. we determine column and sort.
+        header = _get_word_under_cursor
+        #@reverse = false
+        if header == @_last_header_sorted
+          @reverse = !@reverse # clicking 2 times won't reverse again
+        else 
+          @reverse = false
+        end
+        sort_by header.strip, @reverse
+        # this next line will keep the cursor on header after sorting
+        # earlier cursor would appear in header but selection would be data row
+        @current_index = @_header_row_index # FFI 2011-09-16 keeping cursor synched with selection
+        @_last_header_sorted = header
+        set_form_row
+        return
+      end
+      value = current_value
+      value = value.split.last
+      if value == ".."
+        _path = File.dirname(@current_path)
+      else
+        _path =  File.join(@current_path, value)
+      end
+      if File.directory? _path
+        populate _path
+      end
+      $log.debug "after fire_action_event of directorylist #{@current_index} #{toprow} "
+
+      super
+    end
+    def addcol num
+      #@repaint_required = true
+      @repaint_footer_required = true # 2010-01-23 22:41
+      if @form
+        @form.addcol num
+      else
+        @parent_component.form.addcol num
+      end
+    end
+    # set cursor column position
+    # if i set col1 to @curpos, i can move around left right if key mapped
+    def set_form_col col1=@curpos
+      col1 ||= 0
+      @cols_panned ||= 0 # RFED16 2010-02-17 23:40
+      win_col = 0 # 2010-02-17 23:19 RFED16
+      col2 = win_col + @col + @col_offset + col1 + @cols_panned + @left_margin
+     setrowcol nil, col2 # 2010-02-17 23:19 RFED16
+    end
+    def start_of_line
+      @repaint_required = true if @pcol > 0 # tried other things but did not work
+      set_form_col 0
+      @pcol = 0
+    end
+    # this does not work, since the value in list is not the printed value
+    def end_of_line
+      blen = current_value.rstrip.length
+      set_form_col blen
+    end
+ 
+    def cursor_backward
+      repeatm {
+        if @curpos > 0
+          @curpos -= 1
+          set_form_col
+          #addcol -1
+        elsif @pcol > 0
+          @pcol -= 1
+        end
+      }
+      #@repaint_required = true
+      @repaint_footer_required = true # 2010-01-23 22:41
+    end
+  
+    
+    def cursor_forward
+      @curpos ||= 0
+      maxlen = @maxlen || @width-2
+      repeatm {
+        if @curpos < @width and @curpos < maxlen-1 # else it will do out of box
+          @curpos += 1
+          addcol 1
+        else
+          #@pcol += 1 if @pcol <= @buffer.length
+          # buffer not eixstent FIXME
+        end
+      }
+      set_form_col
+      #@repaint_required = true
+      @repaint_footer_required = true # 2010-01-23 22:41
+    end
+    def [](index)
+      @entries[index]
+    end
+ 
+    @private
+    def longest_line=(l)
+      @longest_line = l
+    end
+    def longest_line
+      @longest_line 
+    end
+    # modify a file name. 
+    # call using 'C'
+  def edit_line lineno=@current_index
+    line = @list[lineno]
+    fullname = File.join(@current_path, line)
+    prompt = "Rename file [#{line}] to: "
+    maxlen = 80
+    config={}; 
+    oldline = line.dup
+    config[:default] = line
+    ret, str = rbgetstr(@form.window, $error_message_row, $error_message_col,  prompt, maxlen, config)
+    $log.debug " rbgetstr returned #{ret} , #{str} "
+    return if ret != 0
+    @list[lineno].replace(str)
+    FileUtils.mv fullname, File.join(@current_path, str)
+    fire_handler :CHANGE, InputDataEvent.new(0,oldline.length, self, :DELETE_LINE, lineno, oldline)
+    fire_handler :CHANGE, InputDataEvent.new(0,str.length, self, :INSERT_LINE, lineno, str)
+    @repaint_required = true
+  end
+  def ask_select
+    prompt = "Select Files: "
+    maxlen = 80
+    config={}
+    config[:default] = @file_pattern if @file_pattern
+    ret, str = rbgetstr(@form.window, $error_message_row, $error_message_col,  prompt, maxlen, config)
+    return if ret != 0
+    @file_pattern = str
+    # 2011-09-19 doesn't work if pwd changed
+    if Dir.pwd != @current_path
+      Dir.chdir @current_path
+    end
+    values = Dir.glob(str)
+    $log.debug "ask select dir.glob got #{values} "
+    select_values values unless values.empty?
+    @repaint_required = true
+  end
+  def ask_unselect
+    prompt = "Unselect Files: "
+    maxlen = 80
+    config={}
+    config[:default] = @file_pattern if @file_pattern
+    ret, str = rbgetstr(@form.window, $error_message_row, $error_message_col,  prompt, maxlen, config)
+    return if ret != 0
+    @file_pattern = str
+    if Dir.pwd != @current_path
+      Dir.chdir @current_path
+    end
+    values = Dir.glob(str)
+    unselect_values values unless values.empty?
+    @repaint_required = true
+  end
+  def select_all
+    # don't select header row
+    add_row_selection_interval 1, row_count()
+  end
+  def invert_selection
+    1.upto(row_count()){|i| toggle_row_selection i }
+  end
+  # selects all rows with the values given, leaving existing selections
+  # intact
+  def select_values values
+    return unless values
+    values.each do |val|
+      row = @list.index val
+      add_row_selection_interval row, row unless row.nil?
+    end
+  end
+  # unselects all rows with the values given, leaving all other rows intact
+  def unselect_values values
+    return unless values
+    values.each do |val|
+      row = @list.index val
+      remove_row_selection_interval row, row unless row.nil?
+    end
+  end
+  private
+  # was meant to filter rows, but no point. since we can't undo the delete
+  # so we just call populate again. this method could get axed
+  def prune_entries
+    #@entries.delete_if {|x| x =~ /^\./} if @hide_dot_files
+    #@entries.delete_if {|x| x =~ /\.bak$/ ||  x=~/\.swp$/} if @hide_others
+    populate @current_path
+    set_form_row
+  end
+  def view_current
+    file = self.current_value
+    require 'rbcurse/core/util/viewer.rb'
+    RubyCurses::Viewer.view("#{current_path}/#{file}", :close_key => KEY_RETURN, :title => "<Enter> to close, M-l M-h to scroll")
+  end
+    # ADD HERE 
+    ##
+  end # class
+
+  ## 
+  # A cell renderer should not changed the length of a line otherwise scrolling etc goes for a toss.
+  # The calling repaint method does trimming.
+  #
+  # A cell renderer can do small modifications, or color changing to data.
+  # Here we should color directories or bak files or hidden files, swap files etc differently
+  # Should this class do the trimming of data, else its hard to figure out what the extension
+  # is if its trimeed out. But then it would have to handle the panning too.
+  require 'rbcurse/core/include/listcellrenderer'
+  class DirectoryListCellRenderer < ListCellRenderer
+    #def initialize text="", config={}, &block
+      #super
+    #end
+    # sets @color_pair and @attr
+
+    ##
+    #  paint a list box cell
+    #  2010-09-02 15:38 changed focussed to take true, false and :SOFT_FOCUS
+    #  SOFT_FOCUS means the form focus is no longer on this field, but this row
+    #  was focussed when use was last on this field. This row will take focus
+    #  when field is focussed again
+    #
+    #  @param [Buffer] window or buffer object used for printing
+    #  @param [Fixnum] row
+    #  @param [Fixnum] column
+    #  @param [Fixnum] actual index into data, some lists may have actual data elsewhere and
+    #                  display data separate. e.g. rfe_renderer (directory listing)
+    #  @param [String] text to print in cell
+    #  @param [Boolean, :SOFT_FOCUS] cell focussed, not focussed, cell focussed but field is not focussed
+    #  @param [Boolean] cell selected or not
+    def repaint graphic, r=@row,c=@col, row_index=-1,value=@text, focussed=false, selected=false
+
+      prepare_default_colors focussed, selected
+      if row_index == 0
+        #nvalue = " %s %8s  %19s %s   %s " % value.split(",")
+        graphic.printstring r, c, "%-s" % value, @color_pair,@attr
+      else
+        $log.debug " CELL XXX GTETING  #{row_index} ,#{value}"
+
+
+        # ensure we do not exceed
+        if !@display_length.nil?
+          if value.length > @display_length
+            value = value[0..@display_length-1]
+          end
+        end
+        len = @display_length || value.length
+        graphic.printstring r, c, "%-*s" % [len, value], @color_pair,@attr
+      end
+    end
+  end
+end # module
+# set filetype=ruby