rbcurse 0.1.0

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