rbhex-core 1.0.0

data/lib/rbhex/core/util/colorparser.rb

@@ -0,0 +1,77 @@
+# ----------------------------------------------------------------------------- #
+#         File: colorparser.rb
+#  Description: Default parse for our tmux format
+#               The aim is to be able to specify parsers so different kinds
+#               of formatting or documents can be used, such as ANSI formatted
+#               manpages.
+#       Author: rkumar http://github.com/rkumar/rbcurse/
+#         Date: 07.11.11 - 13:17
+#      License: Same as Ruby's License (http://www.ruby-lang.org/LICENSE.txt)
+#  Last update: 2013-04-01 13:42
+# ----------------------------------------------------------------------------- #
+# == TODO
+#    - perhaps we can compile the regexp once and reuse
+#
+
+module RubyCurses
+  class DefaultColorParser
+
+    # NOTE: Experimental and minimal
+    # parses the formatted string and yields either an array of color, bgcolor and attrib
+    # or the text. This will be called by convert_to_chunk.
+    #
+    # Currently, assumes colors and attributes are correct. No error checking or fancy stuff.
+    #  s="#[fg=green]hello there#[fg=yellow, bg=black, dim]"
+    # @since 1.4.1  2011-11-3 experimental, can change
+    # @return [nil] knows nothign about output format.
+
+    # 187compat 2013-03-20 - 19:33 not working in 187 so added ,1 in some cases for string
+    def parse_format s  # yields attribs or text
+      ## set default colors
+      color   = :white
+      bgcolor = :black
+      attrib  = FFI::NCurses::A_NORMAL
+      text    = ""
+
+      ## split #[...]
+      a       = s.split /(#\[[^\]]*\])/
+        a.each { |e|
+        ## process color or attrib portion
+        if e[0,2] == "#[" && e[-1,1] == "]"
+          # now resetting 1:20 PM November 3, 2011 , earlier we were  carrying over
+          color, bgcolor, attrib = nil, nil, nil
+          catch(:done) do
+            e = e[2..-2]
+            ## first split on commas to separate fg, bg and attr
+            atts = e.split /\s*,\s*/
+              atts.each { |att|
+              ## next split on =
+              part = att.split /\s*=\s*/
+                case part[0]
+                when "fg"
+                  color = part[1]
+                when "bg"
+                  bgcolor = part[1]
+                when "/end", "end"
+                  yield :endcolor if block_given?
+                  #next
+                  throw :done
+                else
+                  # attrib
+                  attrib = part[0]
+                end
+            }
+            # 2013-03-25 - 13:31 if numeric color specified
+            color = color.to_i if color =~ /^[0-9]+$/
+              bgcolor = bgcolor.to_i if bgcolor =~ /^[0-9]+$/
+              yield [color,bgcolor,attrib] if block_given?
+          end # catch
+        else
+          text = e
+          yield text if block_given?
+        end
+      }
+    end
+
+  end
+end

data/lib/rbhex/core/util/focusmanager.rb

@@ -0,0 +1,31 @@
+# Allow some objects to take focus when a certain key is pressed.
+# This is for objects like scrollbars and grabbars. We don't want these always
+# getting focus, only sometimes when we want to resize panes.
+# This will not only be included by Form but by containers such as Vimsplit
+# or MasterDetail.
+# Usage: the idea is that when you create grabbars, you would add them to the FocusManager
+# Thus they would remain non-focusable on creation. When hte user presses (say F3) then
+# make_focusable is called, or toggle_focusable. Now user can press TAB and access
+# these bars. When he is done he can toggle again.
+# TODO: we might add a Circular class here so user can traverse only these objects
+module RubyCurses
+  module FocusManager
+    extend self
+    attr_reader :focusables
+    # add a component to this list so it can be made focusable later
+    def add component
+      @focusables ||= []
+      @focusables << component
+      self
+    end
+    def make_focusable bool=true
+      @focusing = bool
+      @focusables.each { |e| e.focusable(bool) }
+    end
+    def toggle_focusable
+      return unless @focusables
+      alert "FocusManager Making #{@focusables.length} objects #{!@focusing} "
+      make_focusable !@focusing
+    end
+  end
+end

data/lib/rbhex/core/util/padreader.rb

@@ -0,0 +1,192 @@
+=begin
+  * Name: PadReader.rb
+  * Description : This is an independent file viewer that uses a Pad and traps keys
+  * Author: rkumar (http://github.com/rkumar/rbcurse/)
+  * Date: 22.10.11 - 20:35
+  * License: Same as Ruby's License (http://www.ruby-lang.org/LICENSE.txt)
+  * Last update:  2013-04-01 13:43
+
+  == CHANGES
+  == TODO
+     make the window configurable so we can move to a textview that is pad based, later even list ?
+     Note that cursor does not move, in real life applicatino cursor must move to bottom row
+     and only then scrolling should start.
+     NOTE: I have continued this in textpad which is a widget that uses pads to scroll.
+           This is very rough, i may work on this more later.
+=end
+require 'rbhex'
+
+include RubyCurses
+module RubyCurses
+  class PadReader
+
+    # You may pass height, width, row and col for creating a window otherwise a fullscreen window
+    # will be created. If you pass a window from caller then that window will be used.
+    # Some keys are trapped, jkhl space, pgup, pgdown, end, home, t b
+    # This is currently very minimal and was created to get me started to integrating
+    # pads into other classes such as textview.
+    def initialize config={}, &block
+
+      @config = config
+      @rows = FFI::NCurses.LINES-1
+      @cols = FFI::NCurses.COLS-1
+      @prow = @pcol = 0
+      @startrow = 0
+      @startcol = 0
+
+      h = config.fetch(:height, 0)
+      w = config.fetch(:width, 0)
+      t = config.fetch(:row, 0)
+      l = config.fetch(:col, 0)
+      @rows = h unless h == 0
+      @cols = w unless w == 0
+      @startrow = t unless t == 0
+      @startcol = l unless l == 0
+      @suppress_border = config[:suppress_border]
+      unless @suppress_border
+        @startrow += 1
+        @startcol += 1
+        @rows -=3  # 3 is since print_border_only reduces one from width, to check whether this is correct
+        @cols -=3
+      end
+      @top = t
+      @left = l
+      view_file config[:filename]
+      @window = config[:window] || VER::Window.new(:height => h, :width => w, :top => t, :left => l)
+      # print border reduces on from width for some historical reason
+      @window.print_border_only @top, @left, h-1, w, $datacolor
+      @ph = @content_rows
+      @pw = @content_cols # get max col
+      @pad = FFI::NCurses.newpad(@ph, @pw)
+
+      Ncurses::Panel.update_panels
+      @content.each_index { |ix|
+
+        FFI::NCurses.mvwaddstr(@pad,ix, 0, @content[ix])
+      }
+      @window.wrefresh
+      padrefresh
+      #FFI::NCurses.prefresh(@pad, 0,0, @startrow ,@startcol, @rows,@cols);
+
+      @window.bkgd(Ncurses.COLOR_PAIR(5));
+      FFI::NCurses.keypad(@pad, true);
+      #@form = Form.new @window
+      config[:row] = config[:col] = 0 # ??? XXX
+    end
+
+    private
+    def view_file(filename)
+      @file = filename
+      @content = File.open(filename,"r").readlines
+      @content_rows = @content.count
+      @content_cols = content_cols()
+      #run()
+    end
+    # write pad onto window
+    private
+    def padrefresh
+      FFI::NCurses.prefresh(@pad,@prow,@pcol, @startrow,@startcol, @rows + @startrow,@cols+@startcol);
+    end
+    # returns button index
+    # Call this after instantiating the window
+    public
+    def run
+      #@form.repaint
+      #@window.wrefresh
+      return handle_keys
+    end
+
+    # convenience method
+    private
+    def key x
+      x.getbyte(0)
+    end
+    def content_cols
+      longest = @content.max_by(&:length)
+      longest.length
+    end
+
+    # returns button index
+    private
+    def handle_keys
+      ht = @window.height.ifzero FFI::NCurses.LINES-1
+      buttonindex = catch(:close) do
+        @maxrow = @content_rows - @rows
+        @maxcol = @content_cols - @cols
+        while((ch = @window.getchar()) != FFI::NCurses::KEY_F10 )
+          #while((ch = FFI::NCurses.wgetch(@pad)) != FFI::NCurses::KEY_F10 )
+          break if ch == ?\C-q.getbyte(0)
+          begin
+            case ch
+            when key(?g), 279 # home as per iterm2
+              @prow = 0
+            when key(?b), key(?G), 277 # end as per iterm2
+              @prow = @maxrow-1
+            when key(?j)
+              @prow += 1
+            when key(?k)
+              @prow -= 1
+            when 32, 338   # Page Down abd Page Up as per iTerm2
+              @prow += 10
+            when key(?\C-d)
+              @prow += ht
+            when key(?\C-b)
+              @prow -= ht
+            when 339
+              @prow -= 10
+            when key(?l)
+              @pcol += 1
+            when key(?$)
+              @pcol = @maxcol - 1
+            when key(?h)
+              @pcol -= 1
+            when key(?0)
+              @pcol = 0
+            when key(?q)
+              throw :close
+            else
+              alert " #{ch} not mapped "
+            end
+            @prow = 0 if @prow < 0
+            @pcol = 0 if @pcol < 0
+            if @prow > @maxrow-1
+              @prow = @maxrow-1
+            end
+            if @pcol > @maxcol-1
+              @pcol = @maxcol-1
+            end
+            #@window.wclear
+            #FFI::NCurses.prefresh(@pad,@prow,@pcol, @startrow,0, @rows,@cols);
+            padrefresh
+            Ncurses::Panel.update_panels
+            #@form.handle_key(ch)
+            #@window.wrefresh
+          rescue => err
+            $log.debug( err) if err
+            $log.debug(err.backtrace.join("\n")) if err
+
+            textdialog ["Error in padreader: #{err} ", *err.backtrace], :title => "Exception"
+            $error_message.value = ""
+          ensure
+          end
+
+        end # while loop
+      end # close
+      $log.debug "XXX: CALLER GOT #{buttonindex} "
+      @window.destroy unless @config[:window]
+      FFI::NCurses.delwin(@pad)
+      return buttonindex
+    end
+  end
+end
+if __FILE__ == $PROGRAM_NAME
+  require 'rbhex/core/util/app'
+  App.new do
+    #status_line :row => FFI::NCurses.LINES-1
+    @form.repaint
+    #p = PadReader.new :filename => "padreader.rb", :height => 20, :width => 60, :row => 4, :col => 4, :window => @window, :suppress_border => true
+    p = PadReader.new :filename => "padreader.rb", :height => FFI::NCurses.LINES-1, :width => 0, :row => 0, :col => 0, :window => @window, :suppress_border => true
+    p.run
+    throw :close
+  end
+end

data/lib/rbhex/core/util/rcommandwindow.rb

@@ -0,0 +1,604 @@
+=begin
+  * Name: rcommandwindow: pops up a status message at bottom of screen
+          creating a new window, so we don't have to worry about having window
+          handle.
+          Can use with say, ask etc. wsay wask wagree etc !
+  * Description
+  * Author: rkumar (arunachalesha)
+  * Date: 2008-11-19 12:49
+  * License: Same as Ruby's License (http://www.ruby-lang.org/LICENSE.txt)
+  * file separated on 2009-01-13 22:39
+
+=end
+require 'rbhex'
+
+module RubyCurses
+  ##
+  #
+  #
+  class CommandWindow
+    include RubyCurses::Utils
+    dsl_accessor :box
+    dsl_accessor :title
+    attr_reader :config
+    attr_reader :layout
+    attr_reader :window     # required for keyboard or printing
+    dsl_accessor :height, :width, :top, :left  #  2009-01-06 00:05 after removing meth missing
+
+    def initialize form=nil, aconfig={}, &block
+      @config = aconfig
+      @config.each_pair { |k,v| instance_variable_set("@#{k}",v) }
+      instance_eval &block if block_given?
+      if @layout.nil?
+          set_layout(1,80, -1, 0)
+      end
+      @height = @layout[:height]
+      @width = @layout[:width]
+      @window = VER::Window.new(@layout)
+      @start = 0 # row for display of text with paging
+      @list = []
+      # 2013-03-21 - 00:34 removed due to 187
+      #require 'forwardable'
+      require 'rbhex/core/util/bottomline'
+      @bottomline = Bottomline.new @window, 0
+      @bottomline.name = "rcommandwindow's bl"
+      # 187compat next line throws up on 187 module_eval undefined method for commandwindow
+      #extend Forwardable
+      #def_delegators :@bottomline, :ask, :say, :agree, :choose #, :display_text_interactive
+      if @box == :border
+        @window.box 0,0
+      elsif @box
+        @window.attron(Ncurses.COLOR_PAIR($normalcolor) | Ncurses::A_REVERSE)
+        @window.mvhline 0,0,1,@width
+        @window.printstring 0,0,@title, $normalcolor #, 'normal' if @title
+        @window.attroff(Ncurses.COLOR_PAIR($normalcolor) | Ncurses::A_REVERSE)
+      else
+        #@window.printstring 0,0,@title, $normalcolor,  'reverse' if @title
+        title @title
+      end
+      @window.wrefresh
+      @panel = @window.panel
+      Ncurses::Panel.update_panels
+      @window.wrefresh
+      @row_offset = 0
+      if @box
+        @row_offset = 1
+      end
+    end
+    # 2013-03-21 - 187compat
+    #def_delegators :@bottomline, :ask, :say, :agree, :choose #, :display_text_interactive
+    def ask *args
+      @bottomline.send(:ask, *args)
+    end
+    def say *args
+      @bottomline.send(:say, *args)
+    end
+    def agree *args
+      @bottomline.send(:agree, *args)
+    end
+    def choose *args
+      @bottomline.send(:choose, *args)
+    end
+    # modify the window title, or get it if no params passed.
+    def title t=nil
+      return @title unless t
+      @title = t
+      @window.printstring 0,0,@title, $normalcolor,  'reverse' if @title
+    end
+    ##
+    ## message box
+    def stopping?
+      @stop
+    end
+    # todo handle mappings, so user can map keys TODO
+    def handle_keys
+      begin
+        while((ch = @window.getchar()) != 999 )
+          case ch
+          when -1
+            next
+          else
+            press ch
+            break if @stop
+            yield ch if block_given?
+          end
+        end
+      ensure
+        destroy
+      end
+      return #@selected_index
+    end
+    # handles a key, commandline
+    def press ch
+      ch = ch.getbyte(0) if ch.class==String ## 1.9
+      $log.debug " XXX press #{ch} " if $log.debug?
+      case ch
+      when -1
+        return
+      when KEY_F1, 27, ?\C-q.getbyte(0)
+        @stop = true
+        return
+      when KEY_ENTER, 10, 13
+        #$log.debug "popup ENTER : #{@selected_index} "
+        #$log.debug "popup ENTER :  #{field.name}" if !field.nil?
+        @stop = true
+        return
+      when ?\C-d.getbyte(0)
+        @start += @height-1
+        bounds_check
+      when KEY_UP
+        @start -= 1
+        @start = 0 if @start < 0
+      when KEY_DOWN
+        @start += 1
+        bounds_check
+      when ?\C-b.getbyte(0)
+        @start -= @height-1
+        @start = 0 if @start < 0
+      when 0
+        @start = 0
+      end
+      Ncurses::Panel.update_panels();
+      Ncurses.doupdate();
+      @window.wrefresh
+    end
+    # might as well add more keys for paging.
+    def configure(*val , &block)
+      case val.size
+      when 1
+        return @config[val[0]]
+      when 2
+        @config[val[0]] = val[1]
+        instance_variable_set("@#{val[0]}", val[1])
+      end
+      instance_eval &block if block_given?
+    end
+    def cget param
+      @config[param]
+    end
+
+    def set_layout(height=0, width=0, top=0, left=0)
+      # negative means top should be n rows from last line. -1 is last line
+      if top < 0
+        top = Ncurses.LINES-top
+      end
+      @layout = { :height => height, :width => width, :top => top, :left => left }
+      @height = height
+      @width = width
+    end
+    def destroy
+      $log.debug "DESTROY : rcommandwindow"
+      if @window
+        begin
+          panel = @window.panel
+          Ncurses::Panel.del_panel(panel.pointer) if panel
+          @window.delwin
+        rescue => exc
+        end
+      end
+    end
+    #
+    # Displays list in a window at bottom of screen, if large then 2 or 3 columns.
+    # @param [Array] list of string to be displayed
+    # @param [Hash]  configuration options: indexing and indexcolor
+    # indexing - can be letter or number. Anything else will be ignored, however
+    #  it will result in first letter being highlighted in indexcolor
+    # indexcolor - color of mnemonic, default green
+    def display_menu list, options={}
+      indexing = options[:indexing]
+      indexcolor = options[:indexcolor] || get_color($normalcolor, :yellow, :black)
+      indexatt = Ncurses::A_BOLD
+      #
+      # the index to start from (used when scrolling a long menu such as file list)
+      startindex = options[:startindex] || 0
+
+      max_cols = 3 #  maximum no of columns, we will reduce based on data size
+      l_succ = "`"
+      act_height = @height
+      if @box
+        act_height = @height - 2
+      end
+      lh = list.size
+      if lh < act_height
+        $log.debug "DDD inside one window" if $log.debug?
+        list.each_with_index { |e, i|
+          text = e
+          case e
+          when Array
+            text = e.first + " ..."
+          end
+          if indexing == :number
+            mnem = i+1
+            text = "%d. %s" % [i+1, text]
+          elsif indexing == :letter
+            mnem = l_succ.succ!
+            text = "%s. %s" % [mnem, text]
+          end
+          @window.printstring i+@row_offset, 1, text, $normalcolor
+          if indexing
+            window.mvchgat(y=i+@row_offset, x=1, max=1, indexatt, indexcolor, nil)
+          end
+        }
+      else
+        $log.debug "DDD inside two window" if $log.debug?
+        row = 0
+        h = act_height
+        cols = (lh*1.0 / h).ceil
+        cols = max_cols if cols > max_cols
+        # sometimes elements are large like directory paths, so check size
+        datasize = list.first.length
+        if datasize > @width/3 # keep safety margin since checking only first row
+          cols = 1
+        elsif datasize > @width/2
+          cols = [2,cols].min
+        end
+        adv = (@width/cols).to_i
+        colct = 0
+        col = 1
+        $log.debug "DDDcols #{cols}, adv #{adv} size: #{lh} h: #{act_height} w #{@width} " if $log.debug?
+        list.each_with_index { |e, i|
+          text = e
+          # signify that there's a deeper level
+          case e
+          when Array
+            text = e.first + "..."
+          end
+          if indexing == :number
+            mnem = i+1
+            text = "%d. %s" % [mnem, text]
+          elsif indexing == :letter
+            mnem = l_succ.succ!
+            text = "%s. %s" % [mnem, text]
+          end
+          # print only within range and window height
+          if i >= startindex && row < @window.actual_height
+            $log.debug "XXX: MENU #{i} > #{startindex} row #{row} col #{col} "
+            @window.printstring row+@row_offset, col, text, $normalcolor
+            if indexing
+              @window.mvchgat(y=row+@row_offset, x=col, max=1, indexatt, indexcolor, nil)
+            end
+          colct += 1
+          if colct == cols
+            col = 1
+            row += 1
+            colct = 0
+          else
+            col += adv
+          end
+          end # startindex
+        }
+      end
+      Ncurses::Panel.update_panels();
+      Ncurses.doupdate();
+      @window.wrefresh
+    end
+    # refresh whatevers painted onto the window
+    def refresh
+      Ncurses::Panel.update_panels();
+      Ncurses.doupdate();
+      @window.wrefresh
+    end
+    # clears the window, leaving the title line as is, from row 1 onwards
+    def clear
+      @window.wmove 1,1
+      @window.wclrtobot
+      @window.box 0,0 if @box == :border
+      # lower line of border will get erased currently since we are writing to
+      # last line FIXME
+    end
+    def display_interactive text, config={}
+      if @to
+        @to.content text
+      else
+        config[:box] = @box
+        @to = ListObject.new self, text, config
+      end
+      yield @to if block_given?
+      @to.display_interactive # this returns the item selected
+      @to   # this will return the ListObject to the user with list and current_index
+    end
+    # non interactive list display - EACH CALL IS CREATING A LIST OBJECT
+    def udisplay_list text, config={}
+      if @to
+        @to.content text
+      else
+        config[:box] = @box
+        @to = ListObject.new self, text, config
+      end
+      #@to ||= ListObject.new self, text, config
+      yield @to if block_given?
+      @to.display_content
+      @to
+    end
+    # displays a list
+    # Why did we create another list ? 2011-12-5
+    class ListObject
+      attr_reader :cw
+      attr_reader :list
+      attr_reader :current_index
+      attr_accessor :focussed_attrib
+      attr_accessor :focussed_symbol
+      def initialize cw, _list, config={}
+        @cw  = cw
+        layout = @cw.layout
+        @window = @cw.window
+        @height = layout[:height]
+        @width = layout[:width]
+        content(_list)
+        @height_adjust = config.fetch(:box, true) == :border ? 3 : 2
+        @selected_index = nil
+        @current_index = 0
+        @row_offset = 1
+        @toprow = 0
+        $multiplier = 0 # till we can do something
+
+        @focussed_symbol = ''
+        @row_selected_symbol = ''
+        #@show_selector = true
+        if @show_selector
+          @row_selected_symbol ||= '*'
+          @row_unselected_symbol ||= ' '
+          @left_margin ||= @row_selected_symbol.length
+        end
+        #@show_selector = true
+        #@row_selected_symbol = '*'
+        #@row_unselected_symbol = ' '
+      end
+      def content txt, config={}
+        @current_index = 0 # sometimes it gets left at a higher value than there are rows to show
+        case txt
+        when String
+          txt = wrap_text(txt, @width-2).split("\n")
+        when Array
+          # okay
+        end
+        @list = txt
+      end
+      # maybe we should just use a textview or label rather than try to
+      # do it all voer again !
+      def display_interactive
+        display_content
+        while !@stop
+          @window.wrefresh # FFI 2011-09-12
+          # FIXME only clear and redisplay if change has happened (repaint_require)
+          handle_keys { |ch| @cw.clear; display_content }
+        end
+        return @list[@current_index]
+      end
+      def is_row_selected row
+        @selected_index == row
+      end
+
+      def scrollatrow
+        @height - 3
+      end
+      def row_count
+        @list.size
+      end
+      def rowcol
+        return @row_offset, @col_offset
+      end
+      def display_content #:nodoc:
+
+        @graphic = @window
+        @start ||= 0
+        @toprow ||= 0
+        @left_margin ||= @row_selected_symbol.length + @focussed_symbol.length
+
+        #print_borders unless @suppress_borders # do this once only, unless everything changes
+        #maxlen = @maxlen ||= @width-2
+        tm = @list
+        rc = tm.size
+        @col_offset = 1
+        #@longest_line = @width
+        if rc > 0     # just added in case no data passed
+          #tr = @start #@toprow
+          tr = @toprow
+          acolor = get_color $datacolor
+          #h = @height - 3 #2
+          h = @height - @height_adjust
+          r,c = @row_offset, @col_offset
+          0.upto(h) do |hh|
+            crow = tr+hh
+            if crow < rc
+              focussed = @current_index == crow  # row focussed ?
+              selected = is_row_selected crow
+              content = tm[crow]   # 2009-01-17 18:37 chomp giving error in some cases says frozen
+              # by now it has to be a String
+              ## set the selector symbol if requested
+              selection_symbol = ''
+              if @show_selector
+                if selected
+                  selection_symbol = @row_selected_symbol
+                else
+                  selection_symbol =  @row_unselected_symbol
+                end
+                @graphic.printstring r+hh, c, selection_symbol, acolor,@attr
+              end
+              #renderer = get_default_cell_renderer_for_class content.class.to_s
+              if focussed
+                if @focussed_symbol
+                  @graphic.printstring r+hh, c, @focussed_symbol, acolor,@attr
+                end
+                @graphic.printstring r+hh, c+@left_margin, content, acolor, @focussed_attrib || 'reverse'
+              else
+                @graphic.printstring r+hh, c+@left_margin, content, acolor,@attr
+              end
+              #renderer.repaint @graphic, r+hh, c+@left_margin, crow, content, focussed, selected
+            else
+              # clear rows
+              @graphic.printstring r+hh, c, " " * (@width-2), acolor,@attr
+            end
+          end
+        end # rc == 0
+        set_form_row
+      end
+      # listobject
+      def press ch # list TODO copy from rbasiclist
+        ch = ch.getbyte(0) if ch.class==String ## 1.9
+        $log.debug " XXX press #{ch} " if $log.debug?
+        case ch
+        when -1
+          return
+        when KEY_F1, 27, ?\C-q.getbyte(0)
+          @stop = true
+          return
+        when KEY_ENTER, 10, 13
+          #$log.debug "popup ENTER : #{@selected_index} "
+          #$log.debug "popup ENTER :  #{field.name}" if !field.nil?
+          @stop = true
+          return
+        when 32, ?\C-d.getbyte(0)
+          scroll_forward
+          #@start += @height-1
+          #bounds_check
+        when KEY_UP, ?k.getbyte(0)
+          previous_row
+          #@start -= 1
+          #@current_index -= 1
+          #@current_index = 0 if @current_index < 0
+          #@start = 0 if @start < 0
+        when KEY_DOWN, ?j.getbyte(0)
+          next_row
+          #@start += 1
+          #@current_index += 1
+          #bounds_check
+        when ?\C-b.getbyte(0)
+          scroll_backward
+          #@start -= @height-1
+          #@start = 0 if @start < 0
+        when 0, ?g.getbyte(0)
+          goto_top
+        when ?G.getbyte(0)
+          goto_bottom
+        end
+        #@form.repaint
+        Ncurses::Panel.update_panels();
+        Ncurses.doupdate();
+        @window.wrefresh
+      end
+
+      def previous_row num=(($multiplier.nil? or $multiplier == 0) ? 1 : $multiplier)
+        #return :UNHANDLED if @current_index == 0 # EVIL
+        return false if @current_index == 0
+        @oldrow = @current_index
+        num.times {
+          @current_index -= 1 if @current_index > 0
+        }
+        bounds_check
+        $multiplier = 0
+      end
+      alias :up :previous_row
+      def next_row num=(($multiplier.nil? or $multiplier == 0) ? 1 : $multiplier)
+        rc = row_count
+        return false if @current_index == rc-1
+        @oldrow = @current_index
+        @current_index += 1*num if @current_index < rc
+        bounds_check
+        $multiplier = 0
+      end
+      alias :down :next_row
+      def goto_bottom
+        @oldrow = @current_index
+        rc = row_count
+        @current_index = rc -1
+        bounds_check
+      end
+      alias :goto_end :goto_bottom
+      def goto_top
+        @oldrow = @current_index
+        @current_index = 0
+        bounds_check
+      end
+      alias :goto_start :goto_top
+      def scroll_backward
+        @oldrow = @current_index
+        h = scrollatrow()
+        m = $multiplier == 0? 1 : $multiplier
+        @current_index -= h * m
+        bounds_check
+        $multiplier = 0
+      end
+      def scroll_forward
+        @oldrow = @current_index
+        h = scrollatrow()
+        rc = row_count
+        m = $multiplier == 0? 1 : $multiplier
+        # more rows than box
+        if h * m < rc
+          @toprow += h+1 #if @current_index+h < rc
+          @current_index = @toprow
+        else
+          # fewer rows than box
+          @current_index = rc -1
+        end
+        #@current_index += h+1 #if @current_index+h < rc
+        bounds_check
+      end
+
+      ##
+      # please set oldrow before calling this. Store current_index as oldrow before changing. NOTE
+      def bounds_check
+        h = scrollatrow()
+        rc = row_count
+
+        @current_index = 0 if @current_index < 0  # not lt 0
+        @current_index = rc-1 if @current_index >= rc && rc>0 # not gt rowcount
+        @toprow = rc-h-1 if rc > h && @toprow > rc - h - 1 # toprow shows full page if possible
+        # curr has gone below table,  move toprow forward
+        if @current_index - @toprow > h
+          @toprow = @current_index - h
+        elsif @current_index < @toprow
+          # curr has gone above table,  move toprow up
+          @toprow = @current_index
+        end
+        set_form_row
+
+      end
+
+      def set_form_row
+        r,c = rowcol
+
+
+        # when the toprow is set externally then cursor can be mispositioned since
+        # bounds_check has not been called
+        if @current_index < @toprow
+          # cursor is outside table
+          @current_index = @toprow # ??? only if toprow 2010-10-19 12:56
+        end
+
+        row = r + (@current_index-@toprow)
+        # row should not be < r or greater than r+height TODO FIXME
+
+        #setrowcol row, nil
+        @window.wmove row, c
+        @window.wrefresh   # FFI added to keep cursor display in synch with selection
+      end
+      def OLDbounds_check #:nodoc:
+        @start = 0 if @start < 0
+        row_offset = 1
+        last = (@list.length)-(@height-row_offset-1)
+        if @start > last
+          @start = last
+        end
+      end # bounds_check
+      def handle_keys #:nodoc:
+        begin
+          while((ch = @window.getchar()) != 999 )
+            case ch
+            when -1
+              next
+            else
+              press ch
+              break if @stop
+              yield ch if block_given?
+            end
+          end
+        ensure
+          @cw.destroy
+        end
+        return @current_index
+      end
+    end # class ListObject
+  end # class CommandWindow
+end # module