rbcurse 1.4.1 → 1.5.0.pre1

data/lib/rbcurse/listselectable.rb

@@ -1,142 +0,0 @@
-# this is a companion file to defaultlistselectionmodel
-# if you use that, include this to get all the methods to use it
-module RubyCurses
-  module ListSelectable
-
-    ## modified on 2009-02-13 23:41 to return model if no param passed
-    # sets or returns a list selection model
-    # Also listbox listens to it for selections, so it can tell those
-    # who are interested 2010-09-21 16:02  
-    def list_selection_model(*lsm)
-      if lsm.empty?
-        @list_selection_model 
-      else
-        @list_selection_model = lsm[0]
-        # the listbox is listening to selection events on the
-        # selection model and will inform any listeners of the same.
-        @list_selection_model.bind :LIST_SELECTION_EVENT do |ev|
-          fire_handler :LIST_SELECTION_EVENT, ev
-        end
-      end
-      #@list_selection_model.selection_mode = @selection_mode || :MULTIPLE
-    end
-    def is_selected? row
-      @list_selection_model.is_selected_index row
-    end
-    # this is the old name, should be deprecated
-    alias :is_row_selected :is_selected?
-
-    def add_row_selection_interval ix0, ix1
-      $log.debug " def add_row_selection_interval #{ix0}, #{ix1}"
-      # if row_selection_allowed
-      @list_selection_model.add_selection_interval ix0, ix1
-      @repaint_required = true
-    end
-    def remove_row_selection_interval ix0, ix1
-      @list_selection_model.remove_selection_interval ix0, ix1
-    end
-    def toggle_row_selection row=@current_index
-      if is_selected? row
-        #$log.debug " deleting row #{row}"
-        remove_row_selection_interval(row, row)
-      else
-        #$log.debug " adding row #{row}"
-        add_row_selection_interval(row, row) 
-      end
-      @repaint_required = true 
-    end
-
-    def clear_selection
-      @list_selection_model.clear_selection
-      @repaint_required = true
-    end
-    # why is this commented off XXX could it override listscrollable
-    #def selected_item
-      #$log.warn "came in dummy selected_item of listselectable.rb"
-    #  @list[@current_index]
-    #end
-    # returns selected indices
-    # TODO : if array passed, set those as selected indices
-    def selected_rows
-      @list_selection_model.get_selected_rows
-    end
-    def selected_row_count
-      selected_rows.size
-    end
-    # returns index of first selected row (lowest index)
-    # TODO: if param passed set that as selected_index
-    def selected_row
-      @list_selection_model.get_min_selection_index
-    end
-    alias :selected_index :selected_row
-
-    # returns value of first selected row (lowest index)
-    def selected_value
-      #@list[@current_index].to_s # old behavior since curr row was in reverse
-      return nil if selected_row().nil?
-      @list[selected_row()].to_s
-    end
-    # returns an array of selected values
-    # or yields values to given block
-    def selected_values &block
-      ar = []
-      selected_rows().each do |i|
-        val = @list[i]
-        if block_given?
-          yield val
-        else
-          ar << val
-        end
-      end
-      return ar unless block_given?
-    end
-
-    def do_next_selection
-      return if selected_rows().length == 0 
-      row = selected_rows().sort.find { |i| i > @current_index }
-      row ||= @current_index
-      @current_index = row
-      @repaint_required = true # fire list_select XXX
-    end
-    def do_prev_selection
-      return if selected_rows().length == 0 
-      row = selected_rows().sort{|a,b| b <=> a}.find { |i| i < @current_index }
-      row ||= @current_index
-      @current_index = row
-      @repaint_required = true # fire list_select XXX
-    end
-    # NOTE: I HAD removed this and put in listbox, but its required by rtable also
-    # create a default list selection model and set it
-    # NOTE: I am now checking if one is not already created, since
-    # a second creation would wipe out any listeners on it.
-    # @see ListSelectable 
-    # @see DefaultListSelectionModel
-    def create_default_list_selection_model
-      if @list_selection_model.nil?
-        list_selection_model DefaultListSelectionModel.new(self)
-      end
-    end
-    alias :selected_index :selected_row
-    attr_accessor :row_selection_allowed
-    attr_accessor :column_selection_allowed
-  end
-  # class containing information relating to selections on a list
-  #  2010-09-21 19:46 NOTE: Earlier source contained the model object, now it returns the parent
-  #  You may do source.list_data_model() to get the model
-  #  Typical operations on source would get selected_value(s), or selected_index
-  class ListSelectionEvent
-    attr_accessor :firstrow, :lastrow, :source, :type
-    def initialize firstrow, lastrow, source, type
-      @firstrow = firstrow
-      @lastrow = lastrow
-      @source = source
-      @type = type
-    end
-    def to_s
-      "#{@type.to_s}, firstrow: #{@firstrow}, lastrow: #{@lastrow}, source: #{@source}"
-    end
-    def inspect
-      to_s
-    end
-  end
-end

data/lib/rbcurse/mapper.rb

@@ -1,130 +0,0 @@
-## this class allows us to do multiple key mappings such as emacs
-# See the example keytest.rb
-# However, integrating this into our library seems a little difficult now
-# since each widget handles keys and often there are heirachies of widgets.
-# However, this being a terminal app, mouseless, we really need to make it key-friendly.
-require 'rbcurse/orderedhash'
-class Mapper
-  attr_reader :keymap
-  attr_reader :view
-  attr_accessor :mode
-  attr_reader :keys
-  def initialize handler
-    #@handler = handler
-    @view = handler       # caller program
-    @keys = {}
-    @mode = nil  # used when defining
-    @pendingkeys = nil
-    @prevkey = nil   # in case of a key sequence such as C-x C-c, will have C-x
-    @arg = nil # regex matched this key.
-  end
-  def let mode, &block
-    h = OrderedHash.new
-    @keys[mode] = h
-    @mode = mode
-    instance_eval(&block)
-    $log.debug("KEYS: #{@keys[mode].inspect}")
-  end
-
-  ## mapping keys to blocks or symbols
-  # 2010-02-23 19:17 added check for string, so no required to use getbyte everywhere, esp for existing app
-  # However, this means that we can't map an actual string, which we may want to for commands
-  # which cuold be passed outside keys, or as aliases.
-  def map(*args, &block)
-    if block_given?
-
-      # We check for cases like C-x C-c etc. Only 2 levels.
-      #args = arg.split(/ +/)
-      arg0 = args[0]
-      arg0 = args[0].getbyte(0) if args[0].class.to_s == 'String'
-      if args.length == 2
-        arg1 = args[1]
-        arg1 = args[1].getbyte(0) if args[1].class.to_s == 'String'
-        $log.debug "  KEY2 #{args[0]} , #{args[0].class},  #{args[1]} , #{args[1].class} "
-        @keys[@mode][arg0] ||= OrderedHash.new
-        @keys[@mode][arg0][arg1]=block
-      else
-        # single key or control key
-        $log.debug "  KEY #{args[0]} , #{args[0].class} "
-        @keys[@mode][arg0]=block
-      end
-    else
-       #no block, last arg shold be a symbol
-       symb = args.pop
-       raise "If block not passed, last arg should be a method symbol" if !symb.is_a? Symbol
-       arg0 = args[0]
-       arg0 = args[0].getbyte(0) if args[0].class.to_s == 'String'
-       if args.length == 2
-         arg1 = args[1]
-         arg1 = args[1].getbyte(0) if args[1].class.to_s == 'String'
-         @keys[@mode][arg0] ||= OrderedHash.new
-         @keys[@mode][arg0][arg1]=symb
-       else
-         # single key or control key
-         @keys[@mode][arg0]=symb
-       end
-    end
-  end
-
-  ## manages key pressing
-  # takes care of multiple key combos too
-  def press key
-    #$log.debug("press Got: #{key}")
-    # for a double key combination such as C-x C-c this has the set of pending keys to check against
-    if @pendingkeys != nil
-      blk = @pendingkeys[key]
-    else
-      # this is the regular single key mode
-      #blk = @keys[@view.mode][key]
-      blk = match(key)
-    end
-    # this means this key expects more keys to follow such as C-x could
-    if blk.is_a? OrderedHash
-      @pendingkeys = blk
-      @prevkey = key
-      return
-    end
-    if blk.nil? # this should go up XXX
-      if !@pendingkeys.nil?
-        # this error message to be modified if using numeric keys -- need to convert to char
-        view.info("%p not valid in %p. Try: #{@pendingkeys.keys.join(', ')}" % [key, @prevkey]) # XXX
-      else
-        view.info("%p not valid in %p. " % [key, @view.mode]) 
-      end
-      return
-    end
-    # call the block or symbol - our user defined key mappings use symbols
-    if blk.is_a? Symbol
-      @view.send(blk)
-    else
-      blk.call
-    end
-    @prevkey = nil
-    @pendingkeys = nil
-  end
-  def match key
-       #$log.debug "MATCH #{key} "
-      #blk = @keys[@view.mode][key]
-    @keys[@view.mode].each_pair do |k,v|
-     #$log.debug "LOOP #{k.class}, #{k}, #{v} "
-      case k.class.to_s
-      when "String"
-        return v if k == key
-      when "Fixnum" # for keyboard2
-     #$log.debug "FIXNUM LOOP #{k.class}, #{k}, #{v} "
-        return v if k == key
-      when "Regexp"
-#       $log.debug "REGEX #key , #k, #{k.match(key)}"
-        key1 = key.chr if key.is_a? Fixnum
-        if !k.match(key1).nil?
-          @arg = key1
-          return v 
-        end
-      else
-        $log.error "MATCH: Unhandled class #{k.class} "
-      end
-    end
-       $log.debug "MATCH #{key} ret nil "
-    return nil
-  end
-end

data/lib/rbcurse/orderedhash.rb

@@ -1,77 +0,0 @@
-## Insert order preserving hash
-# Thanks to Bill Kelly, posted on http://www.ruby-forum.com/topic/166075
-#
-class OrderedHash
-  include Enumerable
-
-  def initialize(*args, &block)
-    @h = Hash.new(*args, &block)
-    @ordered_keys = []
-  end
-
-  def []=(key, val)
-    @ordered_keys << key unless @h.has_key? key
-    @h[key] = val
-  end
-
-  def each
-    @ordered_keys.each {|k| yield(k, @h[k])}
-  end
-  alias :each_pair :each
-
-  def each_value
-    @ordered_keys.each {|k| yield(@h[k])}
-  end
-
-  def each_key
-    @ordered_keys.each {|k| yield k}
-  end
-
-  def keys
-    @ordered_keys
-  end
-
-  def values
-    @ordered_keys.map {|k| @h[k]}
-  end
-
-  def clear
-    @ordered_keys.clear
-    @h.clear
-  end
-
-  def delete(k, &block)
-    @ordered_keys.delete k
-    @h.delete(k, &block)
-  end
-
-  def reject!
-    del = []
-    each_pair {|k,v| del << k if yield k,v}
-    del.each {|k| delete k}
-    del.empty? ? nil : self
-  end
-
-  def delete_if(&block)
-    reject!(&block)
-    self
-  end
-  ## added since the normal hash will give it in unordered. so debugging sucks
-  def inspect
-    out = []
-    each do | k,v |
-      out << " #{k} => #{v} "
-    end
-    res = %Q[  { #{out.join(",\n ")} } ]
-  end
-
-  %w(merge!).each do |name|
-    define_method(name) do |*args|
-      raise NotImplementedError, "#{name} not implemented"
-    end
-  end
-
-  def method_missing(*args)
-    @h.send(*args)
-  end
-end

data/lib/rbcurse/ractionevent.rb

@@ -1,67 +0,0 @@
-=begin
-  * Name: ActionEvent
-  * Description: Event used to notify interested parties that an action has happened on component
-                 Usually a button press. Nothing more.
-  * Author: rkumar (arunachalesha)
-  
-  --------
-  * Date: 2010-09-12 18:53 
-  * License:
-    Same as Ruby's License (http://www.ruby-lang.org/LICENSE.txt)
-
-=end
-
-# Event created when state changed (as in ViewPort)
-module RubyCurses
-  # source - as always is the object whose event has been fired
-  # id     - event identifier (seems redundant since we bind events often separately.
-  # event  - is :PRESS
-  # action_command - command string associated with event (such as title of button that changed
-  ActionEvent = Struct.new(:source, :event, :action_command) do
-    # This should always return the most relevant text associated with this object
-    # so the user does not have to go through the source object's documentation.
-    # It should be a user-friendly string 
-    # @return text associated with source (label of button)
-    def text
-      source.text
-    end
-
-    # This is similar to text and can often be just an alias.
-    # However, i am putting this for backward compatibility with programs
-    # that received the object and called it's getvalue. It is better to use text.
-    # @return text associated with source (label of button)
-    def getvalue
-      source.getvalue
-    end
-  end
-  # a derivative of Action Event for textviews
-  # We allow a user to press ENTER on a row and use that for processing.
-  # We are basically using TextView as a list in which user can scroll around
-  # and move cursor at will.
-  class TextActionEvent < ActionEvent
-    # current_index or line number starting 0
-    attr_accessor :current_index
-    # cursor position on the line
-    attr_accessor :curpos
-    def initialize source, event, action_command, current_index, curpos
-      super source, event, action_command
-      @current_index = current_index
-      @curpos = curpos
-    end
-    # the text of the line on which the user is
-    def text
-      source.current_value
-    end
-    # the word under the cursor TODO
-    # if its a text with pipe delim, then ??
-    def word_under_cursor line=text(), pos=@curpos, delim=" "
-      line ||= text()
-      pos ||= @curpos
-      finish = line.index(delim, pos)
-      start = line.rindex(delim,pos)
-      finish = -1 if finish.nil?
-      start = 0 if start.nil?
-      return line[start..finish]
-    end
-  end
-end

data/lib/rbcurse/rbasiclistbox.rb

@@ -1,768 +0,0 @@
-=begin
-  * Name: rlistbox: basic scrollable lists - no editing, see editablelistbox of more
-  * Description   
-  * Author: rkumar (arunachalesha)
-  * Date: 2010-09-26 16:00 
-  * License: Same as Ruby's License (http://www.ruby-lang.org/LICENSE.txt)
-  * 
-TODO 
-  [x] removed Popup, ListDataEvent and ListDataModel !
-  [x] XXX Can we separate editing out. Make a ReadonlyList, and extend it as EditableList. This way the usual
-  use case remains cleaner.
-=end
-require 'rbcurse'
-require 'rbcurse/listcellrenderer'
-#require 'rbcurse/listkeys'
-require 'forwardable'
-
-
-module RubyCurses
-  extend self
-  ##
-  ## 
-  # scrollable, selectable list of items
-  #    - @selected contains indices of selected objects.
-  ##
-  ##
-  # A readonly control for displaying a list of data or values. 
-  # Although user editing is not allowed, but the list may be repopulated
-  # as in a directory listing, or a list dependent on some other control's value.
-  # This is not a drop-in replacement for Listbox as it drops many methods that are redundant.
-  # Default selection is single, as opposed to Listbox.
-  #
-  class BasicListbox < Widget
-
-    require 'rbcurse/listscrollable'
-    require 'rbcurse/extras/listselectable'             # added 2011-10-8 
-    include ListScrollable
-    include NewListSelectable                           # added 2011-10-8 
-    extend Forwardable
-    dsl_accessor :height
-    dsl_accessor :title
-    dsl_property :title_attrib   # bold, reverse, normal
-#   dsl_accessor :list    # the array of data to be sent by user
-    attr_reader :toprow
-    #dsl_accessor :default_values  # array of default values
-    dsl_accessor :is_popup       # if it is in a popup and single select, selection closes
-    attr_accessor :current_index
-    dsl_accessor :selection_mode
-    dsl_accessor :selected_color, :selected_bgcolor, :selected_attr
-    dsl_accessor :max_visible_items   # how many to display 2009-01-11 16:15 
-    #dsl_accessor :cell_editing_allowed
-    dsl_property :show_selector # boolean
-    dsl_property :row_selected_symbol # 2009-01-12 12:01 changed from selector to selected
-    dsl_property :row_unselected_symbol # added 2009-01-12 12:00 
-    dsl_property :left_margin
-    # please set these in he constructor block. Settin them later will have no effect
-    # since i would have bound them to actions
-    attr_accessor :one_key_selection # will pressing a single key select or not
-    dsl_accessor :border_attrib, :border_color # 
-    # set to true if data could have newlines, tabs, and other stuff, def true
-    dsl_accessor :sanitization_required
-    # set to true if cell-renderer data can exceed width of listbox, default true
-    # if you are absolutely sure that data is constant width, set to false.
-    dsl_accessor :truncation_required
-    dsl_accessor :suppress_borders #to_print_borders
-    dsl_accessor :justify # will be picked up by renderer
-    # index of selected row
-    attr_accessor :selected_index
-    # index of selected rows, if multiple selection asked for
-    attr_reader :selected_indices
-
-    dsl_accessor :should_show_focus
-
-    # basic listbox constructor
-    #
-    def initialize form, config={}, &block
-      @focusable = true
-      @editable = false
-      @sanitization_required = true # cleanup control and non print chars
-      @truncation_required = true
-      @suppress_borders = false #to_print_borders = 1
-      #@row_selected_symbol = '' # thi sprevents default value from being set
-      @row = 0
-      @col = 0
-      # data of listbox this is not an array, its a pointer to the  listdatamodel
-      @list = nil 
-      # any special attribs such as status to be printed in col1, or color (selection)
-      @list_attribs = {}
-      @current_index = 0
-      @selected_indices = []
-      @selected_index = nil
-      @row_offset = @col_offset = 1
-      @should_show_focus = true # Here's its on since the cellrenderer will show it on repaint
-      super
-      @_events.push(*[:ENTER_ROW, :LEAVE_ROW, :LIST_SELECTION_EVENT, :PRESS])
-      @selection_mode ||= :multiple # default is multiple, anything else given becomes single
-      @win = @graphic    # 2010-01-04 12:36 BUFFERED  replace form.window with graphic
-      @win_left = 0
-      @win_top = 0
-
-      init_vars
-      @internal_width = 2
-      @internal_width = 0 if @suppress_borders
-
-      if @list && !@selected_index.nil?  # XXX
-        set_focus_on @selected_index # the new version
-      end
-    end
-    # this is called several times, from constructor
-    # and when list data changed, so only put relevant resets here.
-    def init_vars
-      @repaint_required = true
-      @widget_scrolled = true  # 2011-10-15 
-      @toprow = @pcol = 0
-      if @show_selector
-        @row_selected_symbol ||= '>'
-        @row_unselected_symbol ||= ' '
-        @left_margin ||= @row_selected_symbol.length
-      end
-      @row_selected_symbol ||= ''
-      #@left_margin ||= 0
-      @one_key_selection = false if @one_key_selection.nil?
-      @row_offset = @col_offset = 0 if @suppress_borders
-
-    end
-    def map_keys
-      return if @keys_mapped
-      bind_key(?f){ ask_selection_for_char() }
-      bind_key(?\M-v){ @one_key_selection = false }
-      bind_key(?j){ next_row() }
-      bind_key(?k){ previous_row() }
-      bind_key(?\C-d){ scroll_forward() }
-      bind_key(?\C-b){ scroll_backward() }
-      bind_key(?G){ goto_bottom() }
-      bind_key([?g,?g]){ goto_top() }
-      bind_key([?',?']){ goto_last_position() }
-      bind_key(?/){ ask_search() }
-      bind_key(?n){ find_more() }
-      bind_key(32){ toggle_row_selection() }
-      bind_key(10){ fire_action_event }
-      bind_key(13){ fire_action_event }
-      list_bindings
-      @keys_mapped = true
-
-    end
-
-    ## returns count of row, needed by scrollbar and others.
-    def row_count
-      return 0 if @list.nil?
-      @list.length
-    end
-    # start scrolling when user reaches this row
-    def scrollatrow #:nodoc:
-      if @suppress_borders
-        return @height - 1
-      else
-        return @height - 3
-      end
-    end
-    # provide data to List in the form of an Array or Variable or
-    # ListDataModel. This will create a default ListSelectionModel.
-    #
-    # CHANGE as on 2010-09-21 12:53:
-    # If explicit nil passed then dummy datamodel and selection model created
-    # From now on, constructor will call this, so this can always
-    # happen.
-    #
-    # NOTE: sometimes this can be added much after its painted.
-    # Do not expect this to be called from constructor, although that
-    # is the usual case. it can be dependent on some other list or tree.
-    # @param [Array, Variable, ListDataModel] data to populate list with
-    # @return [ListDataModel] just created or assigned
-    
-    def list *val
-      return @list if val.empty?
-      alist = val[0]
-      case alist
-      when Array
-          @list = alist
-          @current_index = 0
-      when NilClass
-          @list = [] # or nil ?
-      when Variable
-        @list = alist.value
-      else
-        raise ArgumentError, "Listbox list(): do not know how to handle #{alist.class} " 
-      end
-      clear_selection
-    
-      @repaint_required = true
-      @widget_scrolled = true  # 2011-10-15 
-      @list
-    end
-    def list_data_model; @list; end
-    # conv method to insert data, trying to keep names same across along with Tabular, TextView,
-    # TextArea and listbox. Don;t use this till i am certain.
-    def data=(val)
-      list(val)
-    end
-    # get element at
-    # @param [Fixnum] index for element
-    # @return [Object] element
-    # @since 1.2.0  2010-09-06 14:33 making life easier for others.
-    def [](off0)
-      @list[off0]
-    end
-    # return object under cursor
-    # Note: this should not be confused with selected row/s. User may not have selected this.
-    # This is only useful since in some demos we like to change a status bar as a user scrolls down
-    # @since 1.2.0  2010-09-06 14:33 making life easier for others.
-    def current_value
-      @list[@current_index]
-    end
-    def remove_all
-      return if @list.nil? || @list.empty? 
-      @list = []
-      init_vars
-    end
-    # avoid using "row", i'd rather stick with "index" and "value".
-    alias :current_row :current_value
-    alias :text :current_value  # thanks to shoes, not sure how this will impact since widget has text.
-
-    def print_borders #:nodoc:
-      width = @width
-      height = @height-1 # 2010-01-04 15:30 BUFFERED HEIGHT
-      window = @graphic  # 2010-01-04 12:37 BUFFERED
-      startcol = @col 
-      startrow = @row 
-      #@color_pair = get_color($datacolor)
-      bordercolor = @border_color || $datacolor
-      borderatt = @border_attrib || Ncurses::A_NORMAL
-
-      window.print_border startrow, startcol, height, width, bordercolor, borderatt
-      print_title
-    end
-    def print_title #:nodoc:
-      @color_pair ||= get_color($datacolor)
-      # TODO check title.length and truncate if exceeds width
-      @graphic.printstring( @row, @col+(@width-@title.length)/2, @title, @color_pair, @title_attrib) unless @title.nil?
-    end
-    ### START FOR scrollable ###
-    def get_content
-      @list 
-    end
-    def get_window #:nodoc:
-      @graphic 
-    end
-    ### END FOR scrollable ###
-    # override widgets text
-    # returns indices of selected rows
-    def getvalue
-      selected_rows
-    end
-    # Listbox
-    def handle_key(ch) #:nodoc:
-      map_keys unless @keys_mapped
-      @current_index ||= 0
-      @toprow ||= 0
-      h = scrollatrow()
-      rc = row_count
-      $log.debug " basiclistbox got ch #{ch}"
-      #$log.debug " when kps #{@KEY_PREV_SELECTION}  "
-      case ch
-      when KEY_UP  # show previous value
-        return previous_row
-      when KEY_DOWN  # show previous value
-        return next_row
-      when 32
-        return if is_popup and @selection_mode == 'single' # not allowing select this way since there will be a difference 
-        toggle_row_selection @current_index #, @current_index
-        @repaint_required = true
-      when 0 # c-space
-        add_to_selection
-      when @KEY_NEXT_SELECTION # ?'
-        $log.debug "insdie next selection"
-        @oldrow = @current_index
-        do_next_selection 
-        bounds_check
-      when @KEY_PREV_SELECTION # ?"
-        @oldrow = @current_index
-        $log.debug "insdie prev selection"
-        do_prev_selection 
-        bounds_check
-      when @KEY_CLEAR_SELECTION
-        clear_selection 
-        @repaint_required = true
-      when 27, ?\C-c.getbyte(0)
-        #editing_canceled @current_index if @cell_editing_allowed
-        #cancel_block # block NW XXX don't think its required. 2011-09-9  FFI
-        $multiplier = 0
-      when @KEY_ASK_FIND_FORWARD
-      # ask_search_forward
-      when @KEY_ASK_FIND_BACKWARD
-      # ask_search_backward
-      when @KEY_FIND_NEXT
-      # find_next
-      when @KEY_FIND_PREV
-      # find_prev
-      when @KEY_ASK_FIND
-        ask_search
-      when @KEY_FIND_MORE
-        find_more
-      when @KEY_BLOCK_SELECTOR
-        mark_block #selection
-      #when ?\C-u.getbyte(0)
-        # multiplier. Series is 4 16 64
-        # TESTING @multiplier = (@multiplier == 0 ? 4 : @multiplier *= 4)
-      #  return 0
-      when ?\C-c.getbyte(0)
-        @multiplier = 0
-        return 0
-      else
-        # this has to be fixed, if compo does not handle key it has to continue into next part FIXME
-        ret = :UNHANDLED # changed on 2009-01-27 13:14 not going into unhandled, tab not released
-        if ret == :UNHANDLED
-          # beware one-key eats up numbers. we'll be wondering why
-          if @one_key_selection
-            case ch
-            #when ?A.getbyte(0)..?Z.getbyte(0), ?a.getbyte(0)..?z.getbyte(0), ?0.getbyte(0)..?9.getbyte(0)
-            when ?A.getbyte(0)..?Z.getbyte(0), ?a.getbyte(0)..?z.getbyte(0)
-              # simple motion, key press defines motion
-              ret = set_selection_for_char ch.chr
-            else
-              ret = process_key ch, self
-              @multiplier = 0
-              return :UNHANDLED if ret == :UNHANDLED
-            end
-          else
-            # no motion on single key, we can freak out like in vim, pref f <char> for set_selection
-            case ch
-            when ?0.getbyte(0)..?9.getbyte(0)
-              $multiplier *= 10 ; $multiplier += (ch-48)
-              #$log.debug " setting mult to #{$multiplier} in list "
-              return 0
-            end
-            ret = process_key ch, self
-            return :UNHANDLED if ret == :UNHANDLED
-          end
-        end
-      end
-      $multiplier = 0
-    end
-    def fire_action_event
-      require 'rbcurse/ractionevent'
-      # should have been callled :ACTION_EVENT !!!
-      fire_handler :PRESS, ActionEvent.new(self, :PRESS, text)
-    end
-    # get a keystroke from user and go to first item starting with that key
-    def ask_selection_for_char
-      ch = @graphic.getch
-      if ch < 0 || ch > 255
-        return :UNHANDLED
-      end
-      ret = set_selection_for_char ch.chr
-    end
-    def ask_search_forward
-        regex =  get_string("Enter regex to search")
-        ix = @list.find_match regex
-        if ix.nil?
-          alert("No matching data for: #{regex}")
-        else
-          set_focus_on(ix)
-        end
-    end
-    # gets string to search and calls data models find prev
-    def ask_search_backward
-      regex =  get_string("Enter regex to search (backward)")
-      @last_regex = regex
-      ix = @list.find_prev regex, @current_index
-      if ix.nil?
-        alert("No matching data for: #{regex}")
-      else
-        set_focus_on(ix)
-      end
-    end
-    # please check for error before proceeding
-    # @return [Boolean] false if no data
-    def on_enter
-      if @list.nil? || @list.size == 0
-        Ncurses.beep
-        return :UNHANDLED
-      end
-      super  # forgot this 2011-10-9 that's why events not firign
-      on_enter_row @current_index
-      set_form_row # added 2009-01-11 23:41 
-      true
-    end
-    def on_enter_row arow
-      # copied from resultsettextview, can this not be in one place like listscrollable ? FIXME
-      if @should_show_focus
-        highlight_focussed_row :FOCUSSED
-        unless @oldrow == @selected_index
-          highlight_focussed_row :UNFOCUSSED
-        end
-      end
-      fire_handler :ENTER_ROW, self
-      @repaint_required = true
-    end
-    def on_leave_row arow
-      fire_handler :LEAVE_ROW, self
-    end
-    # getter and setter for cell_renderer
-    def cell_renderer(*val)
-      if val.empty?
-        @cell_renderer ||= create_default_cell_renderer
-      else
-        @cell_renderer = val[0] 
-      end
-    end
-    def create_default_cell_renderer
-      return ListCellRenderer.new "", {"color"=>@color, "bgcolor"=>@bgcolor, "parent" => self, "display_length"=> @width-@internal_width-@left_margin}
-      #return BasicListCellRenderer.new "", {"color"=>@color, "bgcolor"=>@bgcolor, "parent" => self, "display_length"=> @width-2-@left_margin}
-    end
-    ##
-    # this method chops the data to length before giving it to the
-    # renderer, this can cause problems if the renderer does some
-    # processing. also, it pans the data horizontally giving the renderer
-    # a section of it.
-    def repaint #:nodoc:
-      return unless @repaint_required
-      #
-      # TRYING OUT dangerous 2011-10-15 
-      @repaint_required = false
-      @repaint_required = true if @widget_scrolled || @pcol != @old_pcol || @record_changed || @property_changed
-
-      unless @repaint_required
-        unhighlight_row @old_selected_index
-        highlight_selected_row
-      end
-      return unless @repaint_required
-      $log.debug "BASICLIST REPAINT WILL HAPPEN #{current_index} "
-      # not sure where to put this, once for all or repeat 2010-02-17 23:07 RFED16
-      my_win = @form ? @form.window : @target_window
-      @graphic = my_win unless @graphic
-      raise " #{@name} neither form, nor target window given LB paint " unless my_win
-      raise " #{@name} NO GRAPHIC set as yet                 LB paint " unless @graphic
-      raise "width or height not given w:#{@width} , h:#{@height} " if @width.nil? || @height.nil?
-      @win_left = my_win.left
-      @win_top = my_win.top
-      @left_margin ||= @row_selected_symbol.length
-      # we are making sure display len does not exceed width XXX hope this does not wreak havoc elsewhere
-      _dl = [@display_length || 100, @width-@internal_width-@left_margin].min # 2011-09-17 RK overwriting when we move grabbar in vimsplit
-
-      $log.debug "basiclistbox repaint  #{@name} graphic #{@graphic}"
-      #$log.debug "XXX repaint to_print #{@to_print_borders} "
-      print_borders unless @suppress_borders # do this once only, unless everything changes
-      #maxlen = @maxlen || @width-2
-      tm = list()
-      rc = row_count
-      @longest_line = @width
-      $log.debug " rbasiclistbox #{row_count}, w:#{@width} , maxlen:#{@maxlen} "
-      if rc > 0     # just added in case no data passed
-        tr = @toprow
-        acolor = get_color $datacolor
-        h = scrollatrow()
-        r,c = rowcol
-        0.upto(h) do |hh|
-          crow = tr+hh
-          if crow < rc
-            _focussed = @current_index == crow ? true : false  # row focussed ?
-            focus_type = _focussed 
-            focus_type = :SOFT_FOCUS if _focussed && !@focussed
-            selected = is_row_selected crow
-            content = tm[crow]   # 2009-01-17 18:37 chomp giving error in some cases says frozen
-            content = convert_value_to_text content, crow # 2010-09-23 20:12 
-            # by now it has to be a String
-            if content.is_a? String
-              content = content.dup
-              sanitize content if @sanitization_required
-              truncate content if @truncation_required
-            end
-            ## 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
-            renderer = cell_renderer()
-            renderer.display_length = _dl # 2011-09-17 RK overwriting when we move grabbar in vimsplit
-            renderer.repaint @graphic, r+hh, c+@left_margin, crow, content, focus_type, selected
-          else
-            # clear rows
-            @graphic.printstring r+hh, c, " " * (@width-@internal_width), acolor,@attr
-          end
-        end
-      end # rc == 0
-      @repaint_required = false
-      # 2011-10-13 
-      @widget_scrolled = false
-      @record_changed = false
-      @property_changed = false
-      @old_pcol = @pcol
-    end
-    def highlight_selected_row r=nil, c=nil, acolor=nil
-      return unless @selected_index # no selection
-      r = _convert_index_to_printable_row(@selected_index) unless r
-      return unless r # not on screen
-      unless c
-        _r, c = rowcol
-      end
-      acolor ||= get_color $datacolor, @selected_color, @selected_bgcolor
-      att = FFI::NCurses::A_REVERSE
-      att = get_attrib(@selected_attrib) if @selected_attrib
-      @graphic.mvchgat(y=r, x=c, @width-@internal_width-@left_margin, att , acolor , nil)
-    end
-    def unhighlight_row index,  r=nil, c=nil, acolor=nil
-      return unless index # no selection
-      r = _convert_index_to_printable_row(index) unless r
-      return unless r # not on screen
-      unless c
-        _r, c = rowcol
-      end
-      acolor ||= get_color $datacolor
-      att = FFI::NCurses::A_NORMAL
-      att = get_attrib(@normal_attrib) if @normal_attrib
-      @graphic.mvchgat(y=r, x=c, @width-@internal_width-@left_margin, att , acolor , nil)
-    end
-    # the idea here is to allow users who subclass Listbox to easily override parts of the cumbersome repaint
-    # method. This assumes your List has some data, but you print a lot more. Now you don't need to
-    # change the data in the renderer, or keep formatted data in the list itself.
-    # e.g. @list contains file names, or File objects, and this converts to a long listing.
-    # If the renderer did that, the truncation would be on wrong data.
-    # @since 1.2.0
-    def convert_value_to_text value, crow
-      case value
-      when TrueClass, FalseClass
-        value
-      else
-        value.to_s if value
-      end
-    end
-    # takes a block, this way anyone extending this klass can just pass a block to do his job
-    # This modifies the string
-    def sanitize content #:nodoc:
-      if content.is_a? String
-        content.chomp!
-        content.gsub!(/\t/, '  ') # don't display tab
-        content.gsub!(/[^[:print:]]/, '')  # don't display non print characters
-      else
-        content
-      end
-    end
-    # returns only the visible portion of string taking into account display length
-    # and horizontal scrolling. MODIFIES STRING
-    def truncate content # :nodoc:
-      maxlen = @maxlen || @width-@internal_width
-      maxlen = @width-@internal_width if maxlen > @width-@internal_width
-      if maxlen == 0 # (otherwise it becoems -1 below)
-        content.replace ""
-        return
-      end
-      if !content.nil? 
-        if content.length > maxlen # only show maxlen
-          @longest_line = content.length if content.length > @longest_line
-          #content = content[@pcol..@pcol+maxlen-1] 
-          content.replace content[@pcol..@pcol+maxlen-1] 
-        else
-          # can this be avoided if pcol is 0 XXX
-          content.replace content[@pcol..-1] if @pcol > 0
-        end
-      end
-      content
-    end
-
-    # be informed when data has changed. required here, was being called by listdatamodel earlier
-    def list_data_changed
-      if row_count == 0 # added on 2009-02-02 17:13 so cursor not hanging on last row which could be empty
-        init_vars
-        @current_index = 0
-        set_form_row
-      end
-      @widget_scrolled = true  # 2011-10-15 
-      @repaint_required = true
-    end
-
-    # set cursor column position
-    # if i set col1 to @curpos, i can move around left right if key mapped
-    def set_form_col col1=0               #:nodoc:
-      @cols_panned ||= 0 
-      # editable listboxes will involve changing cursor and the form issue
-      win_col = 0 
-      col2 = win_col + @col + @col_offset + col1 + @cols_panned + @left_margin
-      $log.debug " set_form_col in rlistbox #{@col}+ left_margin #{@left_margin} ( #{col2} ) "
-      setrowcol nil, col2 
-    end
-
-    # @group selection related
-    
-    # change selection of current row on pressing space bar
-    # If mode is multiple, then other selections are cleared and this is added
-    # NOTE: 2011-10-8 allow multiple select on spacebar. Using C-Space was quite unfriendly
-    # although it will still work
-    def OLDtoggle_row_selection crow=@current_index
-      @repaint_required = true
-      row = crow
-      case @selection_mode 
-      when :multiple
-        add_to_selection
-        #clear_selection
-        #@selected_indices[0] = crow #@current_index
-      else
-        if @selected_index == crow #@current_index
-          @selected_index = nil
-          lse = ListSelectionEvent.new(crow, crow, self, :DELETE)
-          fire_handler :LIST_SELECTION_EVENT, lse
-        else
-          @selected_index = crow #@current_index
-          lse = ListSelectionEvent.new(crow, crow, self, :INSERT)
-          fire_handler :LIST_SELECTION_EVENT, lse
-        end
-      end
-    end
-   #
-    # Only for multiple mode.
-    # add an item to selection, if selection mode is multiple
-    # if item already selected, it is deselected, else selected
-    # typically bound to Ctrl-Space
-    def OLDadd_to_selection
-      crow = @current_index
-      case @selection_mode 
-      when :multiple
-        if @selected_indices.include? @current_index
-          @selected_indices.delete @current_index
-          lse = ListSelectionEvent.new(crow, crow, self, :DELETE)
-          fire_handler :LIST_SELECTION_EVENT, lse
-        else
-          @selected_indices << @current_index
-          lse = ListSelectionEvent.new(crow, crow, self, :INSERT)
-          fire_handler :LIST_SELECTION_EVENT, lse
-        end
-      else
-      end
-      @repaint_required = true
-    end
-    # clears selected indices
-    def OLDclear_selection
-      @selected_indices = []
-      @repaint_required = true
-    end
-    def OLDis_row_selected crow=@current_index
-      case @selection_mode 
-      when :multiple
-        @selected_indices.include? crow
-      else
-        crow == @selected_index
-      end
-    end
-    alias :is_selected? is_row_selected
-    def goto_next_selection
-      return if selected_rows().length == 0 
-      row = selected_rows().sort.find { |i| i > @current_index }
-      row ||= @current_index
-      @current_index = row
-      @repaint_required = true # fire list_select XXX
-    end
-    def goto_prev_selection
-      return if selected_rows().length == 0 
-      row = selected_rows().sort{|a,b| b <=> a}.find { |i| i < @current_index }
-      row ||= @current_index
-      @current_index = row
-      @repaint_required = true # fire list_select XXX
-    end
-    # Returns selected indices
-    # Indices are often required since the renderer may modify the values displayed
-    #
-    def get_selected_indices; @selected_indices; end
-
-    # Returns selected values
-    #
-    def get_selected_values
-      selected = []
-      @selected_indices.each { |i| selected << @list[i] }
-      return selected
-    end
-    alias :selected_values :get_selected_values
- 
-
-
-    # ADD HERE
-  end # class listb
-
-  ## 
-  # This is a basic list cell renderer that will render the to_s value of anything.
-  # Using alignment one can use for numbers too.
-  # However, for booleans it will print true and false. If editing, you may want checkboxes
-  # I've copied this into ListCellRenderer and added justify, so use that.
-  class BasicListCellRenderer
-    include RubyCurses::ConfigSetup
-    include RubyCurses::Utils
-    #dsl_accessor :justify     # :right, :left, :center  # added 2008-12-22 19:02 
-    dsl_accessor :display_length     #  please give this to ensure the we only print this much
-    dsl_accessor :height    # if you want a multiline label.
-    dsl_accessor :text    # text of label
-    dsl_accessor :color, :bgcolor
-    dsl_accessor :row, :col
-    dsl_accessor :parent    #usuall the table to get colors and other default info
-
-    def initialize text="", config={}, &block
-      @text = text
-      @editable = false
-      @focusable = false
-      config_setup config # @config.each_pair { |k,v| variable_set(k,v) }
-      instance_eval &block if block_given?
-      init_vars
-    end
-    def init_vars
-      #@justify ||= :left
-      #str = @justify.to_sym == :right ? "%*s" : "%-*s"  # added 2008-12-22 19:05 
-      @display_length ||= 10
-      # create color pairs once for this 2010-09-26 20:53 
-      @color_pair = get_color $datacolor
-      @pairs = Hash.new(@color_pair)
-      @attrs = Hash.new(Ncurses::A_NORMAL)
-      color_pair = get_color $selectedcolor, @parent.selected_color, @parent.selected_bgcolor
-      @pairs[:normal] = @color_pair
-      @pairs[:selected] = color_pair
-      @pairs[:focussed] = @pairs[:normal]
-      @attrs[:selected] = $row_selected_attr
-      @attrs[:focussed] = $row_focussed_attr
-
-    end
-    ##
-    # sets @color_pair and @attr
-    def select_colors focussed, selected
-      @color_pair = @pairs[:normal]
-      @attr = $row_attr
-      # give precedence to a selected row
-      if selected
-        @color_pair = @pairs[:selected]
-        @attr       = @attrs[:selected]
-      elsif focussed
-        @color_pair = @pairs[:focussed]
-        @attr       = @attrs[:focussed]
-      end
-    end
-
-    ##
-    #  paint a list box cell
-    #
-    #  @param [Buffer] window or buffer object used for printing
-    #  @param [Fixnum] row
-    #  @param [Fixnum] column
-    #  @param [Fixnum] actual index into data, some lists may have actual data elsewhere and
-    #                  display data separate. e.g. rfe_renderer (directory listing)
-    #  @param [String] text to print in cell
-    #  @param [Boolean, cell focussed, not focussed
-    #  @param [Boolean] cell selected or not
-    def repaint graphic, r=@row,c=@col, row_index=-1,value=@text, focussed=false, selected=false
-
-      select_colors focussed, selected 
-
-      value=value.to_s
-      if !@display_length.nil?
-        if value.length > @display_length
-          value = value[0..@display_length-1]
-        end
-      end
-      len = @display_length || value.length
-      graphic.printstring r, c, "%-*s" % [len, value], @color_pair, @attr
-    end # repaint
-  end # class
-
-end # module