rbcurse-extras 0.0.0

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/inc/qdfilechooser.rb

@@ -0,0 +1,70 @@
+# NOTE this no longer works after the changes in Messagebox,
+# needs to be redone.
+# this is a test program, tests out messageboxes. type F1 to exit
+# a quick dirty file chooser in 2 lines of code.
+require 'logger'
+require 'rbcurse/core/system/ncurses'
+require 'rbcurse/core/system/window'
+require 'rbcurse/core/widgets/rwidget'
+
+##
+# a quick dirty file chooser - only temporary till we make something better.
+class QDFileChooser
+  attr_accessor :show_folders   # bool
+  attr_accessor :traverse_folders   # bool
+  attr_accessor :default_pattern  # e.g. "*.*"
+  attr_accessor :dialog_title    # File Chooser
+  def initialize
+
+  end
+  def show_open_dialog
+        @form = RubyCurses::Form.new nil
+        label = RubyCurses::Label.new @form, {'text' => 'File', 'row'=>3, 'col'=>4, 'color'=>'black', 'bgcolor'=>'white', 'mnemonic'=>'F'}
+        field = RubyCurses::Field.new @form do
+          name   "file" 
+          row  3 
+          col  10
+          display_length  40
+          set_label label
+        end
+        default_pattern ||= "*.*"
+        flist = Dir.glob(default_pattern)
+        @listb = RubyCurses::Listbox.new @form do
+          name   "mylist" 
+          row  5 
+          col  10 
+          width 40
+          height 10
+          list flist
+          title "File list"
+          title_attrib 'bold'
+        end
+        #@listb.list.bind(:ENTER_ROW) { field.set_buffer @listb.selected_item }
+        listb = @listb
+        field.bind(:CHANGE) do |f|   
+          flist = Dir.glob(f.getvalue+"*")
+          l = listb.list
+          l.remove_all
+          l.insert 0, *flist
+        end
+        atitle = @dialog_title || "Quick Dirty(TM) File Chooser"
+        @mb = RubyCurses::MessageBox.new @form do
+          title atitle
+          type :override
+          height 20
+          width 60
+          top 5
+          left 20
+          default_button 0
+          button_type :ok_cancel
+        end
+        #$log.debug "MBOX :selected #{@listb.selected_item}, #{@listb[@listb.getvalue[0]]} "
+        return @mb.selected_index == 0 ? :OK : :CANCEL
+  end 
+  def get_selected_file
+    #return @mb.selected_index == 0 ? @listb.selected_item : nil
+    #return @mb.selected_index == 0 ? @listb[@listb.getvalue[0]]  : nil
+    # return either the selected_value or if user pressed okay, then focussed item
+    return @mb.selected_index == 0 ? @listb.selected_value || @listb.selected_item  : nil
+  end
+end

data/examples/inc/rfe_renderer.rb

@@ -0,0 +1,121 @@
+module RubyCurses
+
+  ## 
+  # This is a basic list cell renderer that will render the to_s value of anything.
+  # Using alignment one can use for numbers too.
+  # However, for booleans it will print true and false. If editing, you may want checkboxes
+  class RfeRenderer < ListCellRenderer
+    def initialize text="", config={}, &block
+      super
+      @orig_bgcolor = @bgcolor
+      @orig_color = @color
+      @orig_attr = @attr
+      # we need to refer to file types, executable, dir, link, otherwise we'll go crazy 
+      @color_hash = {
+        '.rb' =>      [get_color($datacolor, 'red', 'black'), 0],
+        '.txt' =>     [get_color($datacolor, 'white', 'black'), 0],
+        '.gemspec' => [get_color($datacolor, 'yellow', 'black'), 0],
+        '.gem' => [get_color($datacolor, 'yellow', 'black'), 0],
+        '.c' =>       [get_color($datacolor, 'green', 'black'), 0],
+        '.py' =>      [get_color($datacolor, 'green', 'black'), 0],
+        '.tgz' =>     [get_color($datacolor, 'red', 'black'), get_attrib('bold')],
+        '.gz' => [get_color($datacolor, 'red', 'black'), 0],
+        '.zip' => [get_color($datacolor, 'red', 'black'), 0],
+        '.jar' => [get_color($datacolor, 'red', 'black'), 0],
+        '.html' => [get_color($datacolor, 'green', 'black'), get_attrib('reverse')],
+        "" => [get_color($datacolor, 'yellow', 'black'), get_attrib('bold')],
+        '.jpg' => [get_color($datacolor, 'magenta', 'black'), 0],
+        '.png' => [get_color($datacolor, 'magenta', 'black'), 0],
+        '.sh' => [get_color($datacolor, 'red', 'black'), 0],
+        '.mp3' => [get_color($datacolor, 'cyan', 'blue'), 0],
+        '.bak' => [get_color($datacolor, 'magenta', 'black'), 0],
+        '.tmp' => [get_color($datacolor, 'black', 'blue'), 0],
+        '.pl' => [get_color($datacolor, 'green', 'black'), 0],
+        '.java' => [get_color($datacolor, 'cyan', 'blue'), 0],
+        '.class' => [get_color($datacolor, 'magenta', 'black'), 0],
+        '.pyc' => [get_color($datacolor, 'magenta', 'black'), 0],
+        '.o' => [get_color($datacolor, 'magenta', 'black'), 0],
+        '.a' => [get_color($datacolor, 'magenta', 'black'), 0],
+        '.lib' => [get_color($datacolor, 'magenta', 'black'), 0]
+      } 
+    end
+
+    # override parent method to set color_pair and attr for different kind of files
+    def select_colors focussed, selected 
+      ext = File.extname(@path)
+      c = @color_hash[ext]
+      c = [$datacolor, FFI::NCurses::A_NORMAL] unless c
+      if File.directory? @path
+        c = [get_color($datacolor, 'blue', 'black'), FFI::NCurses::A_BOLD] 
+      end
+      @color_pair, @attr = *c
+      if selected
+        #@attr = FFI::NCurses::A_UNDERLINE | FFI::NCurses::A_BOLD # UL not avaible on screen
+        @attr = FFI::NCurses::A_REVERSE | FFI::NCurses::A_BOLD
+        @color_pair = $datacolor
+      end
+      if focussed
+        @attr = FFI::NCurses::A_REVERSE # | FFI::NCurses::A_BOLD
+      end
+    end
+    # 
+    def repaint graphic, r=@row,c=@col, row_index=-1, value=@text, focussed=false, selected=false
+
+      @bgcolor = @orig_bgcolor
+      @color = @orig_color
+      @row_attr = @orig_attr
+      # XXX ouch, when we delete from list, must delete from here too.
+      value = @parent.entries[row_index]
+      if value[0,1]=="/"
+        path = value.dup
+      else
+        path = @parent.cur_dir()+"/"+value 
+      end
+      @path = path # i need it in select_color
+      begin
+      stat = File.stat(path)
+      if File.directory? path
+        @row_attr = Ncurses::A_BOLD
+        #@color = 'yellow'
+      end
+      value = format_string(value, path,  stat)
+      super
+
+      rescue => err
+        $log.debug " rfe_renderer: #{err}"
+      end
+
+    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  then "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
+  def format_string fn, path,stat
+    max_len = 30
+    f = fn.dup
+    if File.directory? path
+      #"%-*s\t(dir)" % [max_len,f]
+      #f = "/"+f # disallows search on keypress
+      f = "/"+f 
+    end
+    if f.size > max_len
+      f = f[0..max_len-1]
+    end
+    "%-*s  %10s  %s" % [max_len,f,  readable_file_size(stat.size,1), date_format(stat.mtime)]
+  end
+  # ADD HERE 
+  end
+end

data/examples/newtabbedwindow.rb

@@ -0,0 +1,100 @@
+# this is a test program, tests out tabbed panes. type F1 to exit
+#
+require 'logger'
+require 'rbcurse'
+require 'rbcurse/core/widgets/rtabbedpane'
+require 'rbcurse/core/widgets/rcontainer'
+require 'rbcurse/core/widgets/rcombo'
+require 'rbcurse/core/widgets/rtabbedwindow'
+
+include RubyCurses
+class SetupTabbedPane
+  def run
+    $config_hash ||= Variable.new Hash.new
+    #configvar.update_command(){ |v| $config_hash[v.source()] = v.value }
+
+    r = Container.new nil, :suppress_borders => true
+    l1 = Label.new nil, :name => "profile", :attr => 'bold', :text => "Profile"
+    f1 = Field.new nil,  :name => "name", :maxlen => 20, :display_length => 20, :bgcolor => :white, 
+      :color => :black, :text => "abc", :label => ' Name: '
+    f2 = Field.new nil, :name => "email", :display_length => 20, :bgcolor => :white, 
+      :color => :blue, :text => "me@google.com", :label => 'Email: '
+    f3 = RadioButton.new nil, :variable => $config_hash, :text => "red", :value => "RED", :color => :red
+    f4 = RadioButton.new nil, :variable => $config_hash, :text => "blue", :value => "BLUE", :color => :blue
+    f5 = RadioButton.new nil, :variable => $config_hash, :text => "green", :value => "GREEN", :color => :green
+    r.add(l1,f1)
+    r.add(f2)
+    r.add(f3,f4,f5)
+
+    tp = TabbedWindow.new :row => 3, :col => 7, :width => 60, :height => 20 do
+      title "User Setup"
+      button_type :ok_apply_cancel
+      tab "&Profile" do
+        item Field.new nil, :row => 2, :col => 2, :text => "enter your name", :label => ' Name: '
+        item Field.new nil, :row => 3, :col => 2, :text => "enter your email", :label => 'Email: '
+      end
+      tab "&Settings" do
+        item Label.new nil, :text => "Text", :row => 1, :col => 2, :attr => 'bold'
+        item CheckBox.new nil, :row => 2, :col => 2, :text => "Antialias text"
+        item CheckBox.new nil, :row => 3, :col => 2, :text => "Use bold fonts"
+        item CheckBox.new nil, :row => 4, :col => 2, :text => "Allow blinking text"
+        item CheckBox.new nil, :row => 5, :col => 2, :text => "Display ANSI Colors"
+        item Label.new nil, :text => "Cursor", :row => 7, :col => 2, :attr => 'bold'
+        $config_hash.set_value Variable.new, :cursor
+        item RadioButton.new nil, :row => 8, :col => 2, :text => "Block", :value => "block", :variable => $config_hash[:cursor]
+        item RadioButton.new nil, :row => 9, :col => 2, :text => "Blink", :value => "blink", :variable => $config_hash[:cursor]
+        item RadioButton.new nil, :row => 10, :col => 2, :text => "Underline", :value => "underline", :variable => $config_hash[:cursor]
+      end
+      tab "&Term" do
+        
+        item Label.new nil, :text => "Arrow Key in Combos", :row => 2, :col => 2, :attr => 'bold'
+        x = Variable.new
+        $config_hash.set_value x, :term
+        item RadioButton.new nil, :row => 3, :col => 2, :text => "ignore", :value => "ignore", :variable => $config_hash[:term]
+        item RadioButton.new nil, :row => 4, :col => 2, :text => "popup", :value => "popup", :variable => $config_hash[:term]
+        item RadioButton.new nil, :row => 5, :col => 2, :text => "next", :value => "next", :variable => $config_hash[:term]
+        cb = ComboBox.new nil, :row => 7, :col => 2, :display_length => 15, 
+          :list => %w[xterm xterm-color xterm-256color screen vt100 vt102],
+          :label => "Declare terminal as: "
+        #radio.update_command() {|rb| ENV['TERM']=rb.value }
+        item cb
+        x.update_command do |rb|
+          cb.arrow_key_policy=rb.value.to_sym
+        end
+        
+      end
+      tab "Conta&iner" do
+        item r
+      end
+      # tell tabbedpane what to do if a button is pressed (ok/apply/cancel)
+      command do |eve|
+        alert "user pressed button index:#{eve.event} , Name: #{eve.action_command}, Tab: #{eve.source.current_tab} "
+        case eve.event
+        when 0,2                   # ok cancel
+          throw :close, eve.event
+        when 1                     # apply
+        end
+      end
+    end
+    tp.run
+  end
+
+end
+if $0 == __FILE__
+  # Initialize curses
+  begin
+    # XXX update with new color and kb
+    VER::start_ncurses  # this is initializing colors via ColorMap.setup
+    $log = Logger.new((File.join(ENV["LOGDIR"] || "./" ,"rbc13.log")))
+    $log.level = Logger::DEBUG
+    tp = SetupTabbedPane.new()
+    buttonindex = tp.run
+  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

data/examples/rfe.rb

@@ -0,0 +1,1236 @@
+#####################################################
+# This is a sample program demonstrating a 2 pane file explorer using
+# rbcurse's widgets.
+# I have used a listbox here, perhaps a Table would be more configurable
+# than a listbox.
+#
+# FIXME many popups use the old Messagebox which will crash. i've updated
+# grep not the others.
+# Copyright rkumar 2009, 2010 under Ruby License.
+#
+####################################################
+require 'rbcurse'
+require 'rbcurse/core/widgets/rcombo'
+require 'rbcurse/extras/widgets/rlistbox'
+require './inc/rfe_renderer'
+require 'rbcurse/core/widgets/keylabelprinter'
+require 'rbcurse/core/widgets/applicationheader'
+require 'rbcurse/core/include/action'
+require 'fileutils'
+require 'yaml'  ## added for 1.9
+#$LOAD_PATH << "/Users/rahul/work/projects/rbcurse/"
+
+# TODO
+# operations on selected files: move, delete, zip, copy
+#   - delete should move to Trash if exists - DONE
+#   global - don't ask confirm
+#   Select based on pattern.
+# This class represents the finder pane. There are 2 
+# on this sample app
+# NOTE: rfe_renderer uses entries so you may need to sync it with list_data_model
+# actually, renderer should refer back to list data model!
+class FileExplorer
+  include FileUtils
+  attr_reader :wdir
+  attr_reader :list # listbox
+  attr_reader :dir
+  attr_reader :prev_dirs
+  attr_reader :other_list # the opposite list
+  attr_reader :entries # avoid, can be outdated
+  attr_accessor :filter_pattern
+
+  def initialize form, rfe, row, col, height, width
+    @form = form
+    @rfe = rfe
+    @row, @col, @ht, @wid = row, col, height, width
+    @dir = Dir.new(Dir.getwd)
+    @wdir = @dir.path
+    @filter_pattern = '*'
+    @prev_dirs=[]
+    @inside_block = false
+    $entry_count = 0 # just for show... may not be accurate  after deletes etc
+
+  end
+  def title str
+    @list.title = str
+  end
+  def selected_color
+    @list.selected_color
+  end
+  def selected_bgcolor
+    @list.selected_bgcolor
+  end
+
+  # changes to given dir
+  # ensure that path is provided since other list
+  # may have cd'd elsewhere
+  def change_dir adir
+    list = @list
+    begin
+      #dir = File.expand_path dir
+      #cd "#{@dir.path}/#{adir}"
+      cd adir
+      list.title = pwd()
+      @dir = Dir.new(Dir.getwd)
+      @wdir = @dir.path
+      @prev_dirs << @wdir
+      rescan
+    rescue => err
+      @rfe.status_row.text = err.to_s
+    end
+  end
+  def goto_previous_dir
+    #alert "Previous dirs contain #{@prev_dirs} "
+    d = @prev_dirs.pop
+    if !d.nil? && d == @wdir
+      d = @prev_dirs.pop
+    end
+    d = @wdir unless d # for those cases where we are showing some result and user doesn't know how t get back
+    change_dir d unless d.nil?
+  end
+  def filter list
+    list.delete_if { |f|
+      !File.directory? @wdir +"/"+ f and !File.fnmatch?(@filter_pattern, f)
+    }
+    #$log.debug " FILTER CALLED AFTER  #{list.size}, #{list.entries}"
+  end
+  def rescan
+    flist = @dir.entries
+    $entry_count = flist.size # just for show... may not be accurate  after deletes etc
+    flist.shift
+    #populate @entries
+    populate flist
+  end
+  def populate flist
+    #fl << format_string("..", nil)
+    #fl = []
+    #flist.each {|f| ff = "#{@wdir}/#{f}"; stat = File.stat(ff)
+    #  fl << format_string(f, stat)
+    #}
+    filter(flist) if @filter_pattern != '*'
+    @entries = flist
+    list.list_data_model.remove_all
+    #list.list_data_model.insert 0, *fl
+    list.list_data_model.insert 0, *flist
+    list.set_form_row
+    #$entry_count = list.size # just for show... may not be accurate  after deletes etc
+  end
+  def sort key, reverse=false
+    # remove parent before sorting, keep at top
+    first = @entries.delete_at(0) if @entries[0]==".."
+    key ||= @sort_key
+    cdir=cur_dir()+"/"
+    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
+      }
+    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
+  def oldformat_string fn, stat
+    max_len = 30
+    f = fn.dup
+    if File.directory? f
+      #"%-*s\t(dir)" % [max_len,f]
+      #f = "/"+f # disallows search on keypress
+      f = f + "/ "
+    end
+    if f.size > max_len
+      f = f[0..max_len-1]
+    end
+    "%-*s\t%10s\t%s" % [max_len,f,  readable_file_size(stat.size,1), date_format(stat.mtime)]
+  end
+  def cur_dir
+    @dir.path
+  end
+  alias :current_dir :cur_dir
+  def draw_screen 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)
+    @wdir = @dir.path
+    r = @row
+    c = @col
+    #cola = 1
+    #colb = Ncurses.COLS/2
+    ht = @ht
+    wid = @wid
+    #fl = Dir.glob(default_pattern)
+    #flist << format_string("..", nil)
+    fl = @dir.entries
+    fl.shift
+    filter(fl)
+    #flist = []
+    #fl.each {|f| stat = File.stat(f)
+    #  flist << format_string(f, stat)
+    #}
+    @entries = fl
+    $entry_count = @entries.size
+    title = pwd()
+    @wdir = title
+    rfe = self
+
+    lista = Listbox.new @form do
+      name   "lista" 
+      row  r 
+      col  c
+      width wid
+      height ht
+      #list flist
+      list fl
+      title wdir
+      #title_attrib 'reverse'
+      cell_renderer RfeRenderer.new "", {"color"=>@color, "bgcolor"=>@bgcolor, "parent" => rfe, "display_length"=> wid-2}
+      KEY_ROW_SELECTOR 0 # C-space since space used for preview
+    end
+    @list = lista
+    lista.bind(:ENTER) {|l| @rfe.current_list(self); l.title_attrib 'reverse';  }
+    lista.bind(:LEAVE) {|l| l.title_attrib 'normal';  }
+
+
+    #row_cmd = lambda {|list| file = list.list_data_model[list.current_index].split(/\t/)[0].strip; @rfe.status_row.text = File.stat("#{cur_dir()}/#{file}").inspect }
+    row_cmd = lambda {|lb, list| file = list.entries[lb.current_index]; @rfe.status_row.text = file; # File.stat("#{cur_dir()}/#{file}").inspect 
+    }
+    lista.bind(:ENTER_ROW, self) {|lb,list| row_cmd.call(lb,list) }
+
+  end
+  def list_data
+    @list.list_data_model
+  end
+  def current_index
+    @list.current_index
+  end
+  def filename ix=current_index()
+    #@entries[@list.current_index]
+    list_data()[ix]
+  end
+  def filepath ix=current_index()
+    f = filename(ix)
+    return unless f
+    if f[0,1]=='/'
+      f
+    else
+      cur_dir() + "/" + f
+    end
+  end
+  # delete the item at position i
+  def delete_at i=@list.current_index
+    ret = @list.list_data_model.delete_at i
+    ret = @entries.delete_at i
+  end
+  def delete obj
+    ret = @list.list_data_model.delete obj
+    ret = @entries.delete_at obj
+  end
+  def insert_at obj, ix = @list.current_index
+    @list.list_data_model.insert ix, f
+    @entries.insert ix, obj
+  end
+  def remove_selected_rows
+    rows = @list.selected_rows
+    rows=rows.sort! {|x,y| y <=> x }
+    rows.each do |i|
+      ret = @list.list_data_model.delete_at i
+      ret = @entries.delete_at i
+    end
+  end
+
+  # ADD
+end
+class RFe
+  attr_reader :status_row
+  def initialize
+    @window = VER::Window.root_window
+    @form = Form.new @window
+    # made in invisible since i am using chunks to print. however, we do set this variable
+    status_row = RubyCurses::Label.new @form, {'text' => "", :row => Ncurses.LINES-4, :col => 0, :display_length=>Ncurses.COLS-2, :visible => false}
+    @status_row = status_row
+    colb = Ncurses.COLS/2
+    ht = Ncurses.LINES - 4
+    wid = Ncurses.COLS/2 - 0
+    @trash_path = File.expand_path("~/.Trash")
+    @trash_exists = File.directory? @trash_path
+    $log.debug " trash_path #{@trash_path}, #{@trash_exists}"
+    @lista = FileExplorer.new @form, self, row=1, col=1, ht, wid
+    @listb = FileExplorer.new @form, self, row=1, col=colb, ht, wid
+
+    init_vars
+  end
+  def init_vars
+    @bookmarks=[]
+    @config_name = File.expand_path("~/.rfe.yml")
+    if File.exist? @config_name
+      @config = YAML::load( File.open(@config_name));
+      if !@config.nil?
+        @bookmarks = @config["bookmarks"]||[]
+        @last_dirs = @config["last_dirs"]
+      end
+    end
+    @config ||={}
+    @stopping = false
+  end
+  def save_config
+    @config["last_dirs"]=[@lista.current_dir(),@listb.current_dir()]
+    File.open(@config_name, "w") { | f | YAML.dump( @config, f )} 
+  end
+  def move
+    fp = @current_list.filepath #.gsub(' ',"\ ")
+    fn = @current_list.filename
+    $log.debug " FP #{fp}"
+    other_list = [@lista, @listb].index(@current_list)==0 ? @listb : @lista
+    other_dir = other_list.cur_dir
+    $log.debug " OL #{other_list.cur_dir}"
+    if @current_list.list.selected_row_count == 0
+      str= "#{fn}"
+    else
+      str= "#{@current_list.list.selected_row_count} files "
+    end
+
+      mb = RubyCurses::MessageBox.new :width => 80 do
+        title "Move"
+        message "Move #{str} to"
+        add Field.new :default => other_dir, :bgcolor => :cyan, :name => "name"
+        button_type :ok_cancel
+        default_button 0
+      end
+      index = mb.run
+      fld = mb.widget("name")
+
+    #mb = RubyCurses::MessageBox.new do
+      #title "Move"
+      #message "Move #{str} to"
+      #type :input
+      #width 80
+      #default_value other_dir
+      #button_type :ok_cancel
+      #default_button 0
+    #end
+      #confirm "selected :#{mb.input_value}, #{mb.selected_index}"
+      if index == 0
+        begin
+        if @current_list.list.selected_row_count == 0
+          FileUtils.move(fp, fld.text)
+          #ret = @current_list.list.list().delete_at @current_list.list.current_index  # ???
+          #  @current_list.entries.delete_at @current_list.current_index
+          @current_list.delete_at
+        else
+          each_selected_row do |f|
+            FileUtils.move(f, fld.text)
+          end
+          @current_list.remove_selected_rows
+          @current_list.list.clear_selection
+        end
+        rescue => err
+          textdialog err
+          $log.debug "XXX: Exception in rfe, move #{err.to_s} "
+        end
+        other_list.rescan
+      end 
+  end
+  def each_selected_row #title, message, default_value
+    rows = @current_list.list.selected_rows
+    rows = rows.dup
+    rows.each do |i|
+      fp = @current_list.filepath i
+      #$log.debug " moving #{i}: #{fp}"
+      #FileUtils.move(fp, mb.input_value)
+      yield fp
+    end
+  end
+  def copy
+    fp = @current_list.filepath #.gsub(' ',"\ ")
+    fn = @current_list.filename
+    $log.debug " FP #{fp}"
+    other_list = [@lista, @listb].index(@current_list)==0 ? @listb : @lista
+    other_dir = other_list.cur_dir
+    $log.debug " OL #{other_list.cur_dir}"
+    if @current_list.list.selected_row_count == 0
+      str= "#{fn}"
+    else
+      str= "#{@current_list.list.selected_row_count} files "
+    end
+    mb = RubyCurses::MessageBox.new do
+      title "Copy"
+      message "Copy #{str} to"
+      type :input
+      width 80
+      default_value other_dir
+      button_type :ok_cancel
+      default_button 0
+    end
+    if mb.selected_index == 0
+      if @current_list.list.selected_row_count == 0
+        FileUtils.copy(fp, mb.input_value)
+      else
+        each_selected_row do |f|
+          FileUtils.copy(f, mb.input_value)
+        end
+        @current_list.list.clear_selection
+      end
+      other_list.rescan
+    end 
+  end
+  def delete
+    fp = @current_list.filepath #.gsub(' ',"\ ")
+    fn = @current_list.filename
+    if @current_list.list.selected_row_count == 0
+      str= "#{fn}"
+    else
+      str= "#{@current_list.list.selected_row_count} files "
+    end
+    if confirm("delete #{str}")
+      if @current_list.list.selected_row_count == 0
+        if @trash_exists
+          FileUtils.mv fp, @trash_path
+        else
+          FileUtils.rm fp
+        end
+        ret=@current_list.delete_at 
+      else
+        each_selected_row do |f|
+          if @trash_exists
+            FileUtils.mv f, @trash_path
+          else
+            FileUtils.rm f
+          end
+        end
+        @current_list.remove_selected_rows
+        @current_list.list.clear_selection
+      end
+    end 
+  end
+  def copy1
+    fp = @current_list.filepath
+    fn = @current_list.filename
+    $log.debug " FP #{fp}"
+    other_list = [@lista, @listb].index(@current_list)==0 ? @listb : @lista
+    other_dir = other_list.cur_dir
+    $log.debug " OL #{other_list.cur_dir}"
+    str= "copy #{fn} to #{other_list.cur_dir}"
+    $log.debug " copy #{fp}"
+    #confirm "#{str}"
+      mb = RubyCurses::MessageBox.new do
+        title "Copy"
+        message "Copy #{fn} to"
+       type :input
+       width 60
+        default_value other_dir
+       button_type :ok_cancel
+       default_button 0
+      end
+      #confirm "selected :#{mb.input_value}, #{mb.selected_index}"
+      if mb.selected_index == 0
+        # need to redraw directories
+        FileUtils.copy(fp, mb.input_value)
+        other_list.rescan
+      end 
+  end
+  ## TODO : make this separate and callable with its own keylabels
+  # Now you can just use viewer() instead of having to write this. See Utils in rwidget.rb
+  def view  content=nil # can throw IO errors
+    require 'rbcurse/core/widgets/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
+        $log.debug err.to_s
+        $log.debug(err.backtrace.join("\n"))
+        alert err.to_s
+        return
+      end
+    else
+      fp=""
+    end
+    @layout = { :height => wh, :width => ww, :top => wt, :left => wl } 
+    @v_window = VER::Window.new(@layout)
+    @v_form = RubyCurses::Form.new @v_window
+    @textview = TextView.new @v_form do
+      name   "myView" 
+      row  0
+      col  0
+      width ww
+      height wh-0
+      title fp
+      title_attrib 'bold'
+      print_footer true
+      footer_attrib 'bold'
+    end
+    #content = File.open(fp,"r").readlines
+    begin
+    @textview.set_content content #, :WRAP_WORD
+    @v_form.repaint
+    @v_window.wrefresh
+    Ncurses::Panel.update_panels
+    while((ch = @v_window.getchar()) != ?\C-q.getbyte(0) )
+      break if [ FFI::NCurses::KEY_F3 , KEY_F10 , ?q.getbyte(0) , 27, 2727].include? ch
+      @v_form.handle_key ch
+      @v_form.repaint
+      ##@v_window.wrefresh
+    end
+    rescue => err
+      alert err.to_s
+    ensure
+      @v_window.destroy if !@v_window.nil?
+    end
+  end
+  def get_contents fp
+    return nil unless File.readable? fp 
+    return Dir.new(fp).entries if File.directory? fp
+    case File.extname(fp)
+    when '.tgz','.gz'
+      cmd = "tar -ztvf #{fp}"
+      content = %x[#{cmd}]
+    when '.zip'
+      cmd = "unzip -l #{fp}"
+      content = %x[#{cmd}]
+    else
+      content = File.open(fp,"r").readlines
+    end
+  end
+  def opt_file c
+    fp = @current_list.filepath
+    fn = @current_list.filename
+    other_list = [@lista, @listb].index(@current_list)==0 ? @listb : @lista
+    case c
+    when 'c'
+      copy
+    when 'm'
+      move
+    when 'd'
+      delete
+    when 'u'
+      str= "move #{fn} to #{other_list.cur_dir}"
+      if confirm("#{str}")
+      $log.debug " MOVE #{str}"
+      end
+    when 'v'
+      str= "view #{fp}"
+      #if confirm("#{str}")==:YES
+      $log.debug " VIEW #{fp}"
+      view 
+      #end
+    when 'r'
+      str= "ruby #{fn}"
+      if confirm("#{str}")
+      $log.debug " #{str} "
+      end
+    when 'e'
+      str= "edit #{fp}"
+      #if confirm("#{str}")==:YES
+      edit fp
+    when 'x'
+      str= "exec #{fp}"
+      exec_popup fp
+    when 'p'
+      page fp
+    when 'q'
+      qlmanage fp
+    end
+  end
+  def opt_dir c
+    fp = @current_list.filepath
+    fn = @current_list.filename
+    case c
+    when 'O'
+    #  str= "copy #{fn} to #{other_list.cur_dir}"
+      if File.directory? @current_list.filepath
+        @current_list.change_dir fp
+      end
+    when 'o'
+      if File.directory? @current_list.filepath
+        @other_list.change_dir fp
+      end
+      @open_in_other = true # ???basically keep opening in other
+    when 'd'
+      str= "delete #{fn} "
+      if confirm("#{str}")
+        $log.debug " delete #{fp}"
+        FileUtils.rm fp
+        ret=@current_list.list.list_data_model.delete_at @current_list.list.current_index  # ???
+        $log.debug " DEL RET #{ret},#{@current_list.list.current_index}"
+      end
+    when 'u'
+      str= "move #{fn} to #{other_list.cur_dir}"
+      if confirm("#{str}")
+      $log.debug " MOVE #{str}"
+      end
+    when 'b'
+      dd = @current_list.wdir 
+      @bookmarks << dd unless @bookmarks.include? dd
+    when 'u'
+      dd = @current_list.wdir 
+      @bookmarks.delete dd
+    when 'l'
+      @current_list.populate @bookmarks
+    when 's'
+      @config["bookmarks"] = @bookmarks
+      save_config
+    when 'e'
+      str= "edit #{fp}"
+      #if confirm("#{str}")==:YES
+      edit fp
+    when 'm'
+      f = get_string("Enter a directory to create", 20 )
+      if f != ""
+        FileUtils.mkdir f
+        @current_list.list.list_data_model.insert @current_list.list.current_index, f  # ???
+        @current_list.entries.insert @current_list.list.current_index, f  # ???
+      end
+  
+    when 'x'
+      str= "exec #{fp}"
+      exec_popup fp
+    end
+  end
+  def exec_popup fp
+    last_exec_def1 = @last_exec_def1 || ""
+    last_exec_def2 = @last_exec_def2 || false
+
+    sel, inp, hash = get_string_with_options("Enter a command to execute on #{fp}", 30, last_exec_def1, {"checkboxes" => ["view result"], "checkbox_defaults"=>[last_exec_def2]})
+    if sel == 0
+      @last_exec_def1 = inp
+      @last_exec_def2 = hash["view result"]
+      cmd = "#{inp} #{fp}"
+      filestr = %x[ #{cmd} 2>/dev/null ]
+      if hash["view result"]==true
+        view filestr
+      end
+    end
+  end
+  def edit fp=@current_list.filepath
+    $log.debug " edit #{fp}"
+    editor = ENV['EDITOR'] || 'vi'
+    vimp = %x[which #{editor}].chomp
+    shell_out "#{vimp} #{fp}"
+  end
+
+  # TODO we need to move these to some common file so differnt programs and demos
+  # can use them on pressing space or enter.
+  def page fp=@current_list.filepath
+    ft=%x[file #{fp}]
+    if ft.index("text")
+      pager = ENV['PAGER'] || 'less'
+      vimp = %x[which #{pager}].chomp
+      shell_out "#{vimp} #{fp}"
+    elsif ft.index(/zip/i)
+      shell_out "tar tvf #{fp} | less"
+    elsif ft.index(/directory/i)
+      shell_out "ls -lh  #{fp} | less"
+    else
+      alert "#{fp} is not text, not paging "
+      #use_on_file "als", fp # only zip or archive
+    end
+  end
+  def qlmanage fp=@current_list.filepath
+      begin
+        a=%x[which qlmanage]
+        if a != ""
+          cmd="qlmanage -p #{@current_list.filepath} 2>/dev/null"
+          %x[#{cmd}]
+        else
+          alert "qlmanage not present on your system. Trying pager"
+          page fp
+        end
+      rescue Interrupt
+      rescue => err
+        alert err.to_s
+      end
+  end
+  # also if calling program gives output but does not stop
+  # or take control, then nothing will show up
+  def use_on_file prog, args, fp=@current_list.filepath
+    vimp = %x[which #{prog}].chomp
+    if vimp != ""
+      alert "using #{prog} "
+      shell_out "#{vimp} #{args } #{fp}"
+    else
+      alert "could not locate #{prog} "
+    end
+  end
+  def stopping?
+    @stopping
+  end
+  def draw_screens
+    lasta = lastb = nil
+    if !@config["last_dirs"].nil?
+      lasta = @config["last_dirs"][0]
+      lastb = @config["last_dirs"][1]
+    end
+    @lista.draw_screen lasta
+    @listb.draw_screen lastb
+
+    # bind dd to delete file
+    # actually this should be in listbox, and we should listen for row delete and then call opt_file
+    @form.bind_key([?d,?d], 'delete'){
+      opt_file 'd'
+    }
+    # list traps 'q' so this won't work
+    @form.bind_key([?q,?q], 'quit'){
+      @stopping = true
+    }
+    # this won't work since the listbox will consume the d first
+    @form.bind_key(?@, 'home'){
+      @current_list.change_dir File.expand_path("~/")
+    }
+    @form.bind_key(?^, 'previous dir'){
+      @current_list.change_dir @current_list.prev_dirs[0] unless @current_list.prev_dirs.empty?
+    }
+    @form.bind_key(?\C-f, 'file menu'){
+      @klp.mode :file
+      @klp.repaint
+      while((ch = @window.getchar()) != ?\C-c.getbyte(0) )
+        if ch < 33 || ch > 126
+          Ncurses.beep
+        elsif "cmdsuvrexpq".index(ch.chr) == nil
+          Ncurses.beep
+        else
+          opt_file ch.chr
+          break
+        end
+      end
+      @klp.mode :normal
+    }
+    # C-d has been bound to scroll-down
+    @form.bind_key(?\C-w, 'dir menu'){
+      @klp.mode :dir
+      @klp.repaint
+      keys = @klp.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
+          opt_dir ch.chr
+          break
+        end
+      end
+      @klp.mode :normal
+    }
+    # backspace KEY_BS
+    @form.bind_key(127, 'previous dir'){
+      @current_list.goto_previous_dir
+    }
+    # form gives this to list which consumes it for selection.
+    # need to bind to list's LIST_SELECTION_EVENT
+    @form.bind_key(32, 'pager'){
+      fp = @current_list.filepath
+      page fp
+    }
+    @form.bind_key(FFI::NCurses::KEY_F3, 'view'){
+      begin 
+        view()
+      rescue => err
+        alert err.to_s
+      end
+    }
+    @form.bind_key(FFI::NCurses::KEY_F1, 'help'){
+      #Io.view(["this is some help text","hello there"])
+      color0 = get_color($promptcolor, 'black','green')
+      color1 = get_color($reversecolor, 'green','black')
+      color2 = get_color($reversecolor, 'magenta','black')
+      arr = []
+      #arr << "  FILE BROWSER HELP  "
+      arr << [color0,"        FILE BROWSER HELP      ", FFI::NCurses::A_NORMAL]
+      arr << "           "
+      arr << [[color1," <tab>   ",nil],[color2, "- switch between windows", nil]]
+      arr << [[color1," <enter> ",nil],[color2, "- open dir", nil]]
+      arr << [[color1," F3      ",nil],[color2, "- view file/dir/zip contents (toggle) ", nil]]
+      arr << [[color1," F4      ",nil],[color2, "- edit file content", nil]]
+      arr << [[color1," <char>  ", nil],[color2, "first file starting with <char>",nil]]
+      #arr << "         VIM MODE                              "
+      arr << [color0,"         VIM MODE  ", FFI::NCurses::A_NORMAL]
+      arr << [[color1," M",nil],[color2, "-v     - Vim like bindings for navigation (toggle)", nil]]
+      arr << "   jk gg G up down motion, C-n C-p, Alt-0, Alt-9           "
+      arr << [[color1,"   p or Space ",nil],[color2, "- use pager on current file", nil]]
+      arr << [[color1,"   q      ",nil],[color2, "- use qlmanage on file ",nil],[$promptcolor, " (OSX)", nil]]
+      arr << [[color1,"   f<char> ",nil],[color2, "- first file starting with <char>", nil]]
+
+      arr << "           "
+      arr << " < > ^ V - move help window "
+      arr << "           "
+      # next line does not work due to chunks
+      w = arr.max_by(&:length).length
+      #arr = ["this is some help text","hello there"]
+
+      require 'rbcurse/core/util/viewer'
+      RubyCurses::Viewer.view(arr, :layout => [10,10, 4+arr.size, w+2],:close_key => KEY_RETURN, :title => "<Enter> to close", :print_footer => false) do |t|
+      # you may configure textview further here.
+      #t.suppress_borders true
+      #t.color = :black
+      #t.bgcolor = :white
+      # or
+      #t.attr = :reverse
+      t.attr = :normal
+      #t.bind_key(KEY_F1){ alert "closing up!"; throw :close }
+      # just for kicks move window around
+      t.bind_key('<'){ f = t.form.window; c = f.left - 1; f.hide; f.mvwin(f.top, c); f.show;
+        f.reset_layout([f.height, f.width, f.top, c]); 
+      }
+      t.bind_key('>'){ f = t.form.window; c = f.left + 1; f.hide; f.mvwin(f.top, c); 
+        f.reset_layout([f.height, f.width, f.top, c]); f.show;
+      }
+      t.bind_key('^'){ f = t.form.window; c = f.top - 1 ; f.hide; f.mvwin(c, f.left); 
+        f.reset_layout([f.height, f.width, c, f.left]) ; f.show;
+      }
+      t.bind_key('V'){ f = t.form.window; c = f.top + 1 ; f.hide; f.mvwin(c, f.left); 
+        f.reset_layout([f.height, f.width, c, f.left]); f.show;
+      }
+    end
+    }
+    @form.bind_key(FFI::NCurses::KEY_F4, 'edit'){
+      edit()
+    }
+    @form.bind_key(FFI::NCurses::KEY_F6, 'sort'){
+      selected_index, sort_key, reverse, case_sensitive = sort_popup
+      if selected_index == 0
+        @current_list.sort(sort_key, reverse)
+      end
+    }
+    @form.bind_key(FFI::NCurses::KEY_F5, 'filter'){
+      filter()
+    }
+    @form.bind_key(FFI::NCurses::KEY_F7, 'grep'){
+      grep_popup()
+    }
+    @form.bind_key(FFI::NCurses::KEY_F8, 'system'){
+      system_popup()
+    }
+    # will work if you are in vim mode
+    @form.bind_key(?p, 'pager'){
+      page
+    }
+    @form.bind_key(?z, 'qlmanage OSX'){
+      qlmanage
+    }
+    # will no longer come here. list event has to be used
+    #@form.bind_key(?\C-m){ # listbox has eaten it up
+    @lista.list.bind(:PRESS){
+      dir = @current_list.filepath
+      if File.directory? @current_list.filepath
+        @current_list.change_dir dir
+      end
+    }
+    @listb.list.bind(:PRESS){
+      dir = @current_list.filepath
+      if File.directory? @current_list.filepath
+        @current_list.change_dir dir
+      end
+    }
+    gw = get_color($reversecolor, 'green', 'black')
+    bw = get_color($datacolor, 'blue', 'black')
+    @klp = RubyCurses::KeyLabelPrinter.new @form, get_key_labels
+    @klp.footer_color_pair = bw
+    @klp.footer_mnemonic_color_pair = gw 
+    @klp.set_key_labels get_key_labels(:file), :file
+    @klp.set_key_labels get_key_labels(:view), :view
+    @klp.set_key_labels get_key_labels(:dir), :dir
+    @form.repaint
+    @window.wrefresh
+    Ncurses::Panel.update_panels
+    begin
+      chunks=["File","Key"]
+      color0 = get_color($promptcolor, 'white','blue')
+      color1 = get_color($datacolor, 'black','green')
+
+      ## qq stops program, but only if M-v (vim mode)
+    while(!stopping? && (ch = @window.getchar()) != ?\C-q.getbyte(0) )
+      break if ch == KEY_F10
+      s = keycode_tos ch
+      #status_row.text = "|  Pressed #{ch} , #{s}"
+      @form.handle_key(ch)
+
+      # the following is just a test of show_colored_chunks
+      # Please use status_line introduced in 1.4.x
+      #count = @current_list.list.size
+      count1 = @lista.list.size
+      count2 = @listb.list.size
+      x, y = FFI::NCurses::getyx @window.get_window
+      chunks[0]=[color0, "%-30s" % status_row.text, FFI::NCurses::A_BOLD]
+      chunks[1]=[color1, "%-18s" % " |   #{ch}, #{s} |", FFI::NCurses::A_NORMAL]
+      chunks[2]=[color0, "   Total: #{count1}, #{count2}"]
+      @window.wmove(Ncurses.LINES-3,0)
+      @window.color_set(color0, nil)
+      @window.print_empty_line
+      @window.wmove(Ncurses.LINES-3,0)
+      @window.show_colored_chunks chunks
+      @window.wmove(x,y)
+
+      #@form.repaint
+      @window.wrefresh
+    end
+    ensure
+      @window.destroy if !@window.nil?
+      save_config
+    end
+
+  end
+  # TODO 
+  # 
+  # 
+  # 
+
+# current_list
+    ##
+    # getter and setter for current_list
+    def current_list(*val)
+      if val.empty?
+        @current_list
+      else
+        @current_list = val[0] 
+        @other_list = [@lista, @listb].index(@current_list)==0 ? @listb : @lista
+      end
+    end
+def get_key_labels categ=nil
+  if categ.nil?
+  key_labels = [
+    ['C-q', 'Exit'], ['C-v', 'View'], 
+    ['C-f', 'File'], ['C-w', 'Dir'],
+    ['C-Sp','Select'], ['Spc', "Preview"],
+    ['F3', 'View'], ['F4', 'Edit'],
+    ['F5', 'Filter'], ['F6', 'Sort'],
+    ['F7', 'Grep'], ['F8', 'System'],
+    ['M-0', 'Top'], ['M-9', 'End'],
+    ['C-p', 'PgUp'], ['C-n', 'PgDn'],
+    ['M-v', 'Vim Mode'], ['BSpc', 'PrevDir']
+  ]
+  elsif categ == :file
+  key_labels = [
+    ['c', 'Copy'], ['m', 'Move'],
+    ['d', 'Delete'], ['v', 'View'],
+    ['s', 'Select'], ['u', 'Unselect'],
+    ['p', 'Page'], ['x', 'Exec Cmd'],
+    ['r', 'ruby'], ['e', "Edit"],
+    ['C-c', 'Cancel']
+  ]
+  elsif categ == :view
+  key_labels = [
+    ['c', 'Date'], ['m', 'Size'],
+    ['d', 'Delete'], ['v', 'View'],
+    ['C-c', 'Cancel']
+  ]
+  elsif categ == :dir
+  key_labels = [
+    ['o', 'open'], ['O', 'Open in right'],
+    ['d', 'Delete'], ['R', 'Del Recurse'],
+    ['t', 'tree'], ['p', 'Previous'],
+    ['b', 'Bookmark'], ['u', 'Unbookmark'],
+    ['l', 'List'],  ['s', 'Save'],
+    ['m', 'mkdir'],  nil,
+    ['C-c', 'Cancel']
+  ]
+  end
+  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
+def sort_popup
+  #mform = RubyCurses::Form.new nil
+  mform = nil
+  field_list = []
+  r = 4
+  $radio = RubyCurses::Variable.new
+  rtextvalue = [:name, :ext, :size, :mtime, :atime]
+  ["Name", "Extension", "Size", "Modify Time", "Access Time" ].each_with_index do |rtext,ix|
+    field = RubyCurses::RadioButton.new mform do
+      variable $radio
+      text rtext
+      value rtextvalue[ix]
+      color 'black'
+      bgcolor 'white'
+      #row r
+      #col 5
+    end
+    field_list << field
+    r += 1
+  end
+  r = 4
+  ["Reverse", "case sensitive"].each do |cbtext|
+    field = RubyCurses::CheckBox.new mform do
+      text cbtext
+      name cbtext
+      color 'black'
+      bgcolor 'white'
+      #row r
+      #col 30
+    end
+    field_list << field
+    r += 1
+  end
+  mb = RubyCurses::MessageBox.new :width => 50 do
+    title "Sort Options"
+    button_type :ok_cancel
+    default_button 0
+  end
+  field_list.each { |e| mb.add(e) }
+  index = mb.run
+  if index == 0
+    $log.debug " SORT POPUP #{$radio.value}"
+    #$log.debug " SORT POPUP #{mb.inspect}"
+    $log.debug " SORT POPUP #{mb.widget("Reverse").value}"
+    $log.debug " SORT POPUP #{mb.widget("case sensitive").value}"
+  end
+  return index, $radio.value, mb.widget("Reverse").value, mb.widget("case sensitive").value
+end
+def filter
+  f = get_string("Enter a filter pattern", :maxlen => 20, :default => "*")
+  f = "*" if f.nil? or f == ""
+  @current_list.filter_pattern = f
+  @current_list.rescan
+end
+
+# ask user for pattern to grep through files
+#  and display file names in same list
+#  Please see testmessagebox.rb for cleaner ways of creating messageboxes.
+
+def grep_popup
+  last_regex = @last_regex || ""
+  last_pattern = @last_pattern || "*"
+  r = 4
+  mform = nil
+    field = RubyCurses::Field.new mform do
+      name "regex"
+      #row r
+      #col 30
+      set_buffer last_regex
+      label 'Regex'
+      #set_label Label.new @form, {'text' => 'Regex', 'col'=>5, 'mnemonic'=> 'R'}
+    end
+    r += 1
+    field1 = RubyCurses::Field.new mform do
+      name "filepattern"
+      #row r
+      #col 30
+      set_buffer last_pattern
+      label 'File Pattern'
+      #set_label Label.new @form, {'text' => 'File Pattern','col'=>5, :color=>'black',:bgcolor=>'white','mnemonic'=> 'F'}
+    end
+    r += 1
+    fields = []
+  ["Recurse", "case insensitive"].each do |cbtext|
+    fields.push(RubyCurses::CheckBox.new(mform) do
+      text cbtext
+      name cbtext
+      #color 'black'
+      #bgcolor 'white'
+      #row r
+      #col 5
+    end
+               )
+    r += 1
+  end
+  mb = RubyCurses::MessageBox.new :width => 50 do
+    title "Grep Options"
+    button_type :ok_cancel
+    default_button 0
+    item field
+    item field1
+    item fields.first
+    item fields.last
+  end
+  selected_index = mb.run
+  if selected_index == 0
+    return if mb.form.by_name["regex"].getvalue()==""
+    @last_regex = mb.form.by_name["regex"].getvalue
+    inp = mb.form.by_name["regex"].getvalue
+    fp = mb.form.by_name["filepattern"].getvalue
+    @last_pattern = fp
+    flags=""
+    #flags << " -i "  if mb.form.by_name["case insensitive"].value==true
+    #flags << " -R " if mb.form.by_name["Recurse"].value==true
+    flags << " -i "  if fields[0].value==true
+    flags << " -R "  if fields[1].value==true
+    # sometimes grep pukes "No such file or directory if you specify some
+    #  filespec that is not present. I don't want it to come in filestr
+    #  so i am not piping stderr to stdout
+    cmd = "cd #{@current_list.cur_dir()};grep -l #{flags} #{inp} #{fp}"
+    filestr = %x[ #{cmd} ]
+    files = nil
+    files = filestr.split(/\n/) unless filestr.nil?
+    #view filestr
+    if !files || files.empty?
+      alert "Sorry! No files for regex #{inp}"
+      return
+    end
+    @current_list.title "grep #{inp}"
+    @current_list.populate files
+    # Use backspace to go back
+  end
+  return selected_index, mb.form.by_name["regex"].getvalue, mb.form.by_name["filepattern"].getvalue, fields[1].value, fields[0].value
+end
+
+def system_popup
+  deflt = @last_system || ""
+  options=["run in shell","view output","file explorer"]
+  #inp = get_string("Enter a system command", 30, deflt)
+  
+      mb = MessageBox.new :title => "System Command" , :width => 80 do
+        add Field.new :label => 'Enter command', :name => "cmd", :display_length => 50, :bgcolor => :cyan, 
+          :text => deflt
+        $radio = RubyCurses::Variable.new
+        add RadioButton.new :text => "run in shell", :color => :blue, :variable => $radio
+        add RadioButton.new :text => "view output", :color => :red, :variable => $radio
+        add RadioButton.new :text => "file explorer", :color => :red, :variable => $radio
+        button_type :ok_cancel
+      end
+      sel = mb.run
+      inp = mb.widget("cmd").text
+      $log.debug "XXX:  value of radio is #{$radio.value}, inp : #{inp}  "
+  #sel, inp, hash = get_string_with_options("Enter a system command", 40, deflt, {"radiobuttons" => options, "radio_default"=>@last_system_radio || options[0]})
+  if sel == 0
+    if !inp.nil?
+      @last_system = inp
+      @last_system_radio = $radio.value
+      case $radio.value
+      when options[0]
+        shell_out inp
+      when options[1]
+        filestr = %x[ #{inp} ]
+        view filestr
+      when options[2]
+        filestr = %x[ #{inp} ]
+        files = nil
+        files = filestr.split(/\n/) unless filestr.nil?
+        @current_list.title inp
+        @current_list.populate files
+        $log.debug " SYSTEM got #{files.size}, #{files.inspect}"
+      else
+        shell_out inp
+      end
+    end
+  end
+end
+# This will notwork, dunno if its being called
+def popup
+  deflt = @last_regexp || ""
+  #sel, inp, hash = get_string_with_options("Enter a filter pattern", 20, "*", {"checkboxes" => ["case sensitive","reverse"], "checkbox_defaults"=>[true, false]})
+  sel, inp, hash = get_string_with_options("Enter a grep pattern", 20, deflt, {"checkboxes" => ["case insensitive","not-including"]})
+  if sel == 0
+    @last_regexp = inp
+    flags=""
+    flags << " -i " if hash["case insensitive"]==true
+    flags << " -v " if hash["not-including"]==true
+    cmd = "grep -l #{flags} #{inp} *"
+    filestr = %x[ #{cmd} ]
+    files = nil
+    files = filestr.split(/\n/) unless filestr.nil?
+    view filestr
+  end
+  $log.debug " POPUP: #{sel}: #{inp}, #{hash['case sensitive']}, #{hash['reverse']}"
+end
+# This won't work if you do something like 'ls -l', you will need to do 'ls -l | less'
+def shell_out command
+  @window.hide
+  Ncurses.endwin
+  ret = system command
+  Ncurses.refresh
+  #Ncurses.curs_set 0  # why ?
+  @window.show
+  ret
+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
+
+    catch(:close) do
+      t = RFe.new
+      t.draw_screens
+  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