rkumar-rbcurse 0.1.0

data/README.txt

@@ -0,0 +1,310 @@
+= rbcurse
+
+* http://totalrecall.wordpress.com   << CORRECTED !!!
+
+* rbcurse on rubyforge: http://rbcurse.rubyforge.org/
+
+* See latest changes on http://github.com/rkumar/rbcurse/tree/master/CHANGELOG
+
+* Many working demos in examples folder, such as:
+
+  * test2.rb (exit with F1, Or Cancel button/Alt-C) contains various
+    widgets. F2 for menubar toggling
+
+  * rfe.rb is a ruby file explorer
+
+  * testtodo.rb is a test TODO application
+
+* Screenshots on http://github.com/rkumar/rbcurse/wikis/screenshots
+ (OLD)
+  and http://www.benegal.org/files/screen/?M=D   (new)
+  and on blog, http://totalrecall.wordpress.com   
+
+
+== DESCRIPTION:
+
+A small but comprehensive widget library written in ruby for creating ncurses
+applications.
+
+== FEATURES
+
+* entry fields in ruby 
+* scrollable list box (new, editable with Field, checkbox and combos)
+* multi-line editable area
+* togglebutton, radio and check buttons (with mnemonics)
+* message box
+* menubar - with submenu and CheckBoxMenuItem
+* popup list
+* tabbedpane (multiple forms using tabbed metaphor)
+* combobox
+* labels with mnemonics (hotkeys)
+* multi-column table - with cell selection and editing
+
+Above may be created using DSL like syntax, or hashes.
+
+== Sample programs:
+
+*  rfe : file explorer or Finder like app
+*  testtodo.rb  : a todo app based on a yaml file
+*  test2.rb  most widgets (including menus)
+*  test1.rb  various kinds of messageboxes (input, list, custom)
+*  testtabp.rb  tabbed pane
+*  testcombo.rb  combos with various insert policies and vertical
+   alignments
+
+== PROBLEMS, ISSUES
+TextArea not bug free. Some situations wrapping errors could exist. 
+
+== Terminal related issues.
+
+* Some terminals may not show underlines (e.g screen).
+
+* Some terminals (xterm-color) do not process Function keys, avoid declaring F1 etc if
+  unsure of client terminals. I have put in fixes for xterm-color F1 and
+  backtab.
+
+* To use ALT/META keys on a Mac OS X, in Terminal preferences, under
+  Keyboard, select
+  "use Option as Meta key". All hotkeys are automatically, ALT combinations.
+
+* Some screens do not display window background color under spaces.
+  This is okay under "screen" and "xterm-color" but not under "xterm". You will notice
+  this in the message box samples.
+
+I am developing and testing under "screen" under OS X Leopard.
+
+== SYNOPSIS:
+
+See lib/rbcurse/rwidgets.rb.
+For test programs, see test1, test2, testcombo etc in examples folder.
+
+This depends only on "window" provided by ncurses. Does not use forms
+and fields. Minor changes and improvements may have happened to sample
+code below. See test programs for latest, working code.
+
+=== create a window and a form based on window
+
+      @layout = { :height => 0, :width => 0, :top => 0, :left => 0 } 
+      @win = VER::Window.new(@layout)
+
+      @form = Form.new @win
+
+
+=== create a bunch of fields with dependent labels
+
+      r = 1; c = 22;
+      %w[ name age company].each do |w|
+        field = Field.new @form do
+          name   w 
+          row  r 
+          col  c 
+          display_length  30
+          set_buffer "abcd #{w}" 
+          set_label Label.new @form, {'text' => w}
+        end
+        r += 1
+      end
+
+=== create a variable (like TkVariable) and tie a label to it.
+
+      $results = Variable.new
+      $results.value = "A variable"
+      var = RubyCurses::Label.new @form, {'text_variable' => $results, "row" => r, "col" => 22}
+        r += 1
+
+=== create a list and a list box based on the list.
+
+        mylist = []
+        0.upto(100) { |v| mylist << "#{v} scrollable data" }
+
+        field = Listbox.new @form do
+          name   "mylist" 
+          row  r 
+          col  1 
+          width 40
+          height 10
+          list mylist
+        end
+        field.insert 5, "hello ruby", "so long python", "farewell java", "RIP .Net"
+
+=== create a textarea for entry (this can be buggy at present)
+
+        texta = TextArea.new @form do
+          name   "mytext" 
+          row  1 
+          col  52 
+          width 40
+          height 20
+        end
+        texta << "hello there" << "we are testing deletes in this application"
+        texta << "HELLO there" << "WE ARE testing deletes in this application"
+
+=== create a check box, updates a Variable
+
+      checkbutton = CheckBox.new @form do
+        text_variable $results
+        #value = true
+        onvalue "selected cb"
+        offvalue "UNselected cb"
+        text "Please click me"
+        row 17
+        col 22
+      end
+
+=== change field properties at any time by referring to them by name
+
+      @form.by_name["age"].display_length = 3
+      @form.by_name["age"].maxlen = 3
+      @form.by_name["age"].set_buffer  "24"
+      @form.by_name["name"].set_buffer  "Not focusable"
+      @form.by_name["age"].chars_allowed = /\d/
+      @form.by_name["company"].type(:ALPHA)
+      @form.by_name["name"].set_focusable(false)
+
+      @form.by_name["password"].color 'red'
+      @form.by_name["password"].bgcolor 'blue'
+
+      # restrict entry to some values
+      password.values(%w[ scotty tiger secret qwerty])
+
+      # validation using ruby's regular expressions
+
+      field.valid_regex(/^[A-Z]\d+/)
+
+=== bind events to forms, and fields
+
+      @form.bind(:ENTER) { |f|   f.label.bgcolor = $promptcolor if f.instance_of? RubyCurses::Field}
+      @form.bind(:LEAVE) { |f|  f.label.bgcolor = $datacolor  if f.instance_of? RubyCurses::Field}
+
+=== create buttons
+
+      ok_button = Button.new @form do
+        text "OK"
+        name "OK"
+        row 18
+        col 22
+      end
+      ok_button.command { |form| $results.value = "OK PRESS:";form.printstr(@window, 23,45, "OK CALLED") }
+        #text "Cancel"
+      cancel_button = Button.new @form do
+        text_variable $results
+        row 18
+        col 28
+      end
+      cancel_button.command { |form| form.printstr(@window, 23,45, "Cancel CALLED"); throw(:close); }
+
+=== create radio buttons
+
+      colorlabel = Label.new @form, {'text' => "Select a color:", "row" => 20,
+          "col" => 22, "color"=> "cyan"}
+      $radio = Variable.new
+      radio1 = RadioButton.new @form do
+        text_variable $radio
+        text "red"
+        value "red"
+        color "red"
+        row 21
+        col 22
+      end
+      radio2 = RadioButton.new @form do
+        text_variable $radio
+        text  "green"
+        value  "green"
+        color "green"
+        row 22
+        col 22
+      end
+
+=== create a messagebox 
+
+      @mb = RubyCurses::MessageBox.new do
+        title "Enter your name"
+        message "Enter your name"
+        type :input
+        default_value "rahul"
+        default_button 0
+      end
+        #title "Color selector"
+        #type :custom
+        #buttons %w[red green blue yellow]
+        #underlines [0,0,0,0]
+      
+     $log.debug "MBOX : #{@mb.selected_index} "
+     $log.debug "MBOX : #{@mb.input_value} "
+
+=== create a read-only scrollable view of data
+ 
+        @textview = TextView.new @form do
+          name   "myView" 
+          row  16 
+          col  52 
+          width 40
+          height 7
+        end
+        content = File.open("../../README.txt","r").readlines
+        @textview.set_content content
+
+        ## set it to point to row 21
+        @textview.top_row 21
+
+
+        # lets scroll the text view as we scroll the listbox
+
+        listb.bind(:ENTER_ROW, @textview) { |arow, tview| tview.top_row arow }
+        
+        # lets scroll the text view to the line you enter in the numeric
+        # field
+        @form.by_name["line"].bind(:LEAVE, @textview) { |fld, tv| tv.top_row(fld.getvalue.to_i) }
+
+        # lets scroll the text view to the first match of the regex you
+        # enter
+        @form.by_name["regex"].bind(:LEAVE, @textview) { |fld, tv| tv.top_row(tv.find_first_match(fld.getvalue)) }
+
+        # change the value of colorlabel to the selected radiobutton
+        # (red or green)
+
+        $radio.update_command(colorlabel) {|tv, label|  label.color tv.value}
+
+        # change the attribute of colorlabel to bold or normal
+
+        $results.update_command(colorlabel,checkbutton) {|tv, label, cb| 
+            attrs =  cb.value ? 'bold' : nil; label.attrs(attrs)}
+
+      # during menu creation, create a checkboxmenuitem
+
+      item = RubyCurses::CheckBoxMenuItem.new "CheckMe"
+
+      # when selected, make colorlabel attribute reverse.
+
+      item.command(colorlabel){|it, label| att = it.getvalue ? 'reverse' :
+          nil; label.attrs(att); label.repaint}
+
+== REQUIREMENTS:
+
+* ruby 1.8.7    (not compatible with 1.9)
+
+* ncurses-ruby
+
+(following is provided with source)
+
+* uses the window class created by "manveru" (michael) - this can be
+  removed if not needed. (lib/ver/window)
+  It is provided with this package, and has some alterations from the
+  original. I have added a method getchar() which traps and returns
+  ALT/META, META+CTRL, META+SHIFT+CONTROL, ALT+Fn etc. 
+
+  So basically do not remove it unless you have very different
+  requirements.
+
+== INSTALL:
+
+* currently, just unzip/untar in a folder. Please change the path in
+  the top line of the test programs.
+
+(Please advice me how i can improve installation procedure)
+
+== LICENSE:
+
+Copyright (c) 2008 rkumar
+
+Same as ruby license.

data/examples/qdfilechooser.rb

@@ -0,0 +1,68 @@
+# this is a test program, tests out messageboxes. type F1 to exit
+# a quick dirty file chooser in 2 lines of code.
+#$LOAD_PATH << "/Users/rahul/work/projects/rbcurse/"
+require 'rubygems'
+require 'ncurses'
+require 'logger'
+require 'ver/ncurses'
+require 'ver/window'
+require 'rbcurse/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
+        return @mb.selected_index == 0 ? :OK : :CANCEL
+        $log.debug "MBOX :selected #{@listb.selected_item}"
+  end 
+  def get_selected_file
+    return @mb.selected_index == 0 ? @listb.selected_item : nil
+  end
+end

data/examples/rfe.rb

@@ -0,0 +1,853 @@
+require 'rubygems'
+require 'ncurses'
+require 'logger'
+require 'rbcurse'
+require 'rbcurse/rcombo'
+require 'rbcurse/rlistbox'
+require 'rfe_renderer'
+#require 'lib/rbcurse/table/tablecellrenderer'
+require 'rbcurse/keylabelprinter'
+require 'rbcurse/applicationheader'
+require 'rbcurse/action'
+require 'fileutils'
+#$LOAD_PATH << "/Users/rahul/work/projects/rbcurse/"
+
+# TODO
+# operations on selected files: move, delete, zip
+# This class represents the finder pane. There are 2 
+# on this sample app
+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=[]
+  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
+    d = @prev_dirs.pop
+    if !d.nil? and d == @wdir
+      d = @prev_dirs.pop
+    end
+    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
+    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
+  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 : "%d B" % size
+      when size < MEGA_SIZE : "%.#{precision}f K" % (size / KILO_SIZE)
+      when size < GIGA_SIZE : "%.#{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
+    cd dir unless dir.nil?
+    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
+    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}
+    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
+    #@entries[@list.current_index]
+    list_data()[current_index()]
+  end
+  def filepath
+    f = filename()
+    if f[0,1]=='/'
+      f
+    else
+      cur_dir() + "/" + filename()
+    end
+  end
+
+end
+class RFe
+  attr_reader :status_row
+  def initialize
+    @window = VER::Window.root_window
+    @form = Form.new @window
+    status_row = RubyCurses::Label.new @form, {'text' => "", :row => Ncurses.LINES-4, :col => 0, :display_length=>Ncurses.COLS-2}
+    @status_row = status_row
+    colb = Ncurses.COLS/2
+    ht = Ncurses.LINES - 7
+    wid = Ncurses.COLS/2 - 0
+    @lista = FileExplorer.new @form, self, row=2, col=1, ht, wid
+    @listb = FileExplorer.new @form, self, row=2, 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 ||={}
+  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
+    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= "move #{fn} to #{other_list.cur_dir}"
+    $log.debug " MOVE #{fp}"
+    #confirm "#{str}"
+      mb = RubyCurses::MessageBox.new do
+        title "Move"
+        message "Move #{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.move(fp, mb.input_value)
+        @current_list.list.list_data_model.delete_at @current_list.list.current_index  # ???
+        other_list.rescan
+      end 
+  end
+  def copy
+    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
+  def view  content=nil
+    require 'rbcurse/rtextview'
+    wt = 0
+    wl = 0
+    wh = Ncurses.LINES-wt
+    ww = Ncurses.COLS-wl
+    if content.nil?
+      fp = @current_list.filepath
+      content = get_contents(fp)
+    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-2
+      title fp
+      title_attrib 'bold'
+      print_footer true
+      footer_attrib 'bold'
+    end
+    #content = File.open(fp,"r").readlines
+    @textview.set_content content #, :WRAP_WORD
+    @v_form.repaint
+    @v_window.wrefresh
+    Ncurses::Panel.update_panels
+    begin
+    while((ch = @v_window.getchar()) != ?\C-q )
+      break if ch == KEY_F3
+      @v_form.handle_key ch
+      @v_form.repaint
+      ##@v_window.wrefresh
+    end
+    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}]
+    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'
+    #  str= "copy #{fn} to #{other_list.cur_dir}"
+      copy
+    when 'm'
+      str= "move #{fn} to #{other_list.cur_dir}"
+      move
+      #if confirm("#{str}")==:YES
+      #$log.debug " MOVE #{str}"
+      #end
+    when 'd'
+      str= "delete #{fn} "
+      if confirm("#{str}")==:YES
+        $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}")==:YES
+      $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}")=='y'
+      $log.debug " #{str} "
+      end
+    when 'e'
+      str= "edit #{fp}"
+      #if confirm("#{str}")==:YES
+      edit fp
+    when 'x'
+      str= "exec #{fp}"
+      exec_popup 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}")==:YES
+        $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}")==:YES
+      $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 '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}"
+    shell_out "/opt/local/bin/vim #{fp}"
+  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
+
+    @form.bind_key(?@){
+      @current_list.change_dir File.expand_path("~/")
+    }
+    @form.bind_key(?^){
+      @current_list.change_dir @current_list.prev_dirs[0] unless @current_list.prev_dirs.empty?
+    }
+    @form.bind_key(?\C-f){
+      @klp.mode :file
+      @klp.repaint
+      ## FIXME chr could fail !!
+      while((ch = @window.getchar()) != ?\C-c )
+        if "cmdsuvrex".index(ch.chr) == nil
+          Ncurses.beep
+        else
+          opt_file ch.chr
+          break
+        end
+      end
+      @klp.mode :normal
+    }
+    @form.bind_key(?\C-d){
+      @klp.mode :dir
+      @klp.repaint
+      keys = @klp.get_current_keys
+      ## FIXME chr could fail !!
+      while((ch = @window.getchar()) != ?\C-c )
+        if !keys.include?(ch.chr) 
+          Ncurses.beep
+        else
+          opt_dir ch.chr
+          break
+        end
+      end
+      @klp.mode :normal
+    }
+    # backspace
+    @form.bind_key(127){
+      @current_list.goto_previous_dir
+    }
+    @form.bind_key(32){
+      begin
+      cmd="qlmanage -p #{@current_list.filepath} 2>/dev/null"
+      %x[#{cmd}]
+      rescue Interrupt
+      end
+    }
+    @form.bind_key(KEY_F3){
+      view()
+    }
+    @form.bind_key(KEY_F4){
+      edit()
+    }
+    @form.bind_key(KEY_F6){
+      selected_index, sort_key, reverse, case_sensitive = sort_popup
+      if selected_index == 0
+        @current_list.sort(sort_key, reverse)
+      end
+    }
+    @form.bind_key(KEY_F5){
+      filter()
+    }
+    @form.bind_key(KEY_F7){
+      grep_popup()
+    }
+    @form.bind_key(KEY_F8){
+      system_popup()
+    }
+    @form.bind_key(?\C-m){
+      dir = @current_list.filepath
+      if File.directory? @current_list.filepath
+        @current_list.change_dir dir
+      end
+    }
+    @klp = RubyCurses::KeyLabelPrinter.new @form, get_key_labels
+    @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
+    while((ch = @window.getchar()) != ?\C-q )
+      s = keycode_tos ch
+      status_row.text = "Pressed #{ch} , #{s}"
+      @form.handle_key(ch)
+
+      @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-d', 'Dir'],
+    ['C-x','Select'], nil,
+    ['F3', 'View'], ['F4', 'Edit'],
+    ['F5', 'Filter'], ['F6', 'Sort'],
+    ['F7', 'Grep'], ['F8', 'System'],
+    ['M-0', 'Top'], ['M-9', 'End'],
+    ['C-p', 'PgUp'], ['C-n', 'PgDn']
+  ]
+  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'],
+    ['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
+  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 mform do
+    title "Sort Options"
+    button_type :ok_cancel
+    default_button 0
+  end
+  if mb.selected_index == 0
+    $log.debug " SORT POPUP #{$radio.value}"
+    #$log.debug " SORT POPUP #{mb.inspect}"
+    $log.debug " SORT POPUP #{mform.by_name["Reverse"].value}"
+    $log.debug " SORT POPUP #{mform.by_name["case sensitive"].value}"
+  end
+  return mb.selected_index, $radio.value, mform.by_name["Reverse"].value, mform.by_name["case sensitive"].value
+end
+def filter
+  f = get_string("Enter a filter pattern", 20, "*")
+  f = "*" if f.nil? or f == ""
+  @current_list.filter_pattern = f
+  @current_list.rescan
+end
+def grep_popup
+  last_regex = @last_regex || ""
+  last_pattern = @last_pattern || "*"
+  mform = RubyCurses::Form.new nil
+  r = 4
+    field = RubyCurses::Field.new mform do
+      name "regex"
+      row r
+      col 30
+      set_buffer last_regex
+      set_label Label.new @form, {'text' => 'Regex', 'col'=>5, :color=>'black',:bgcolor=>'white','mnemonic'=> 'R'}
+    end
+    r += 1
+    field = RubyCurses::Field.new mform do
+      name "filepattern"
+      row r
+      col 30
+      set_buffer last_pattern
+      set_label Label.new @form, {'text' => 'File Pattern','col'=>5, :color=>'black',:bgcolor=>'white','mnemonic'=> 'F'}
+    end
+    r += 1
+  ["Recurse", "case insensitive"].each do |cbtext|
+    field = 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 mform do
+    title "Grep Options"
+    button_type :ok_cancel
+    default_button 0
+  end
+  if mb.selected_index == 0
+    return if mform.by_name["regex"].getvalue()==""
+    @last_regex = mform.by_name["regex"].getvalue
+    inp = mform.by_name["regex"].getvalue
+    fp = mform.by_name["filepattern"].getvalue
+    @last_pattern = fp
+    flags=""
+    flags << " -i "  if mform.by_name["case insensitive"].value==true
+    flags << " -R " if mform.by_name["Recurse"].value==true
+    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
+    @current_list.title "grep #{inp}"
+    @current_list.populate files
+  end
+  return mb.selected_index, mform.by_name["regex"].getvalue, mform.by_name["filepattern"].getvalue, mform.by_name["Recurse"].value, mform.by_name["case insensitive"].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)
+  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 = hash["radio"]
+      case hash["radio"]
+      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}"
+      end
+    end
+  end
+end
+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
+def shell_out command
+  @window.hide
+  Ncurses.endwin
+  system command
+  Ncurses.refresh
+  #Ncurses.curs_set 0  # why ?
+  @window.show
+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("view.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