rbcurse 1.1.5 → 1.2.0.pre

data/lib/rbcurse/ractionevent.rb

@@ -0,0 +1,67 @@
+=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

@@ -0,0 +1,688 @@
+=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'
+
+
+include Ncurses
+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/listselectable'
+    #require 'rbcurse/defaultlistselectionmodel'
+    include ListScrollable
+    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
+
+
+    # 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 = ''
+      @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
+      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
+      # moving down to repaint so that scrollpane can set should_buffered
+      # added 2010-02-17 23:05  RFED16 so we don't need a form.
+      @win_left = 0
+      @win_top = 0
+
+      # next 2 lines carry a redundancy
+      #select_default_values   
+      # when the combo box has a certain row in focus, the popup should have the same row in focus
+
+      init_vars
+
+      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
+      @toprow = @pcol = 0
+      if @show_selector
+        @row_selected_symbol ||= '>'
+        @row_unselected_symbol ||= ' '
+        @left_margin ||= @row_selected_symbol.length
+      end
+      #@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 }
+      @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
+      # added on 2009-01-13 23:19 since updates are not automatic now
+      #create_default_list_selection_model
+      #@list_selection_model.selection_mode = @tmp_selection_mode if @tmp_selection_mode
+      @repaint_required = true
+      @list
+    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 
+      #@list_variable && @list_variable.value || @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
+        $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
+      on_enter_row @current_index
+      set_form_row # added 2009-01-11 23:41 
+      true
+    end
+    def on_enter_row arow
+      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-2-@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:
+      #safe_create_buffer # 2010-01-04 12:36 BUFFERED moved here 2010-01-05 18:07 
+      return unless @repaint_required
+      # 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
+      @win_left = my_win.left
+      @win_top = my_win.top
+      @left_margin ||= @row_selected_symbol.length
+
+      $log.debug "basicrlistbox 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 " rlistbox #{row_count} "
+      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.repaint @graphic, r+hh, c+@left_margin, crow, content, focus_type, selected
+          else
+            # clear rows
+            @graphic.printstring r+hh, c, " " * (@width-2), acolor,@attr
+          end
+        end
+      end # rc == 0
+      #@table_changed = false
+      @repaint_required = false
+      #@buffer_modified = true # required by form to call buffer_to_screen BUFFERED
+      #buffer_to_window # RFED16 2010-02-17 23:16 
+    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 class 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-2
+      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
+      @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
+      ## added win_col on 2010-01-04 23:28 for embedded forms BUFFERED TRYING OUT
+      #win_col=@form.window.left
+      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
+    def toggle_row_selection crow=@current_index
+      @repaint_required = true
+      case @selection_mode 
+      when :multiple
+        clear_selection
+        @selected_indices[0] = crow #@current_index
+      else
+        if @selected_index == crow #@current_index
+          @selected_index = nil
+        else
+          @selected_index = crow #@current_index
+        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 add_to_selection
+      case @selection_mode 
+      when :multiple
+        if @selected_indices.include? @current_index
+          @selected_indices.delete @current_index
+        else
+          @selected_indices << @current_index
+        end
+      else
+      end
+      @repaint_required = true
+    end
+    # clears selected indices
+    def clear_selection
+      @selected_indices = []
+      @repaint_required = true
+    end
+    def is_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
+ 
+
+
+    # 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
+    def getvalue
+      @text
+    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