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