rbcurse-core 0.0.0

data/lib/rbcurse/core/widgets/keylabelprinter.rb

@@ -0,0 +1,178 @@
+require 'rbcurse/core/widgets/rwidget'
+#include Ncurses # FFI 2011-09-8 
+include RubyCurses
+module RubyCurses
+  #
+  # This paints labels for various keys at the bottom of the screen, in 2 rows. 
+  # This is based on alpines last 2 rows. Modes are supported so that the 
+  # labels change as you enter a widget.
+  # For an example, see dbdemo.rb or rfe.rb
+  # NOTE: applications using 'App' use a shortcut "dock" to create this.
+  #
+  # The most minimal keylabel to print one label in first row, and none in second is:
+  #     [["F1", "Help"], nil]
+  # To print 2 labels, one over the other:
+  #     [["F1", "Help"], ["F10", "Quit"]]
+  #
+  class KeyLabelPrinter < Widget
+    attr_reader :key_labels
+    # the current mode (labels are based on mode, changing the mode, changes the labels
+    #  displayed)
+    dsl_property :mode
+    # set the color of the labels, overriding the defaults
+    dsl_accessor :footer_color_pair
+    # set the color of the mnemonic, overriding the defaults
+    dsl_accessor :footer_mnemonic_color_pair
+
+    def initialize form, key_labels, config={}, &block
+
+      case key_labels
+      when Hash
+        raise "KeyLabelPrinter: KeyLabels cannot be a hash, Array of key labels required. Perhaps you did not pass labels"
+      when Array
+      else
+        raise "KeyLabelPrinter: Array of key labels required. Perhaps you did not pass labels"
+      end
+      super form, config, &block
+      @mode ||= :normal
+      #@key_labels = key_labels
+      @key_hash = {}
+      @key_hash[@mode] = key_labels
+      @editable = false
+      @focusable = false
+      @cols ||= Ncurses.COLS-1
+      @row ||= Ncurses.LINES-2
+      @col ||= 0
+      @repaint_required = true
+      @footer_color_pair ||= $bottomcolor
+      @footer_mnemonic_color_pair ||= $reversecolor #2
+    end
+    def key_labels mode=@mode
+      @key_hash[mode] 
+    end
+    # returns the keys as printed. these may or may not help
+    # in validation depedign on what you passed as zeroth index
+    def get_current_keys
+      a = []
+      @key_hash[@mode].each do |arr|
+        a << arr[0] unless arr.nil?
+      end
+      return a
+    end
+    def getvalue
+      @key_hash
+    end
+    def set_key_labels _key_labels, mode=:normal
+      @key_hash[mode] = _key_labels
+    end
+
+    ##
+    # XXX need to move wrapping etc up and done once. 
+    def repaint
+      return unless @repaint_required
+      r,c = rowcol
+      arr = key_labels()
+      print_key_labels(arr, mode=@mode)
+      @repaint_required = false
+    end
+    # ?? does not use mode, i think key_labels is unused. a hash is now used 2011-10-11 XXX FIXME
+    # WARNING, i have not tested this after changing it. 
+    def append_key_label key, label, mode=@mode
+      #@key_labels << [key, label] if !@key_labels.include? [key, label]
+      @key_hash[mode] << [key, label] if !@key_hash[mode].include? [key, label]
+      @repaint_required = true
+    end
+    def print_key_labels(arr = key_labels(), mode=@mode)
+      #return if !@show_key_labels # XXX
+      @win ||= @form.window
+      $log.debug "XXX: PKL #{arr.length}, #{arr}"
+      @padding = @cols / (arr.length/2)
+      posx = 0
+      even = []
+      odd = []
+      arr.each_index { |i|
+        if i % 2 == 0
+          #arr[i+1] = ['',''] if arr[i+1].nil?
+          nextarr = arr[i+1] || ['', '']
+          keyw = [arr[i][0].length, nextarr[0].length].max
+          labelw = [arr[i][1].length, nextarr[1].length].max
+
+          even << [ sprintf("%*s", keyw,  arr[i][0]), sprintf("%-*s", labelw,  arr[i][1]) ]
+          odd << [ sprintf("%*s", keyw,  nextarr[0]), sprintf("%-*s", labelw,  nextarr[1]) ]
+          #$log.debug("loop even: #{even.inspect}")
+        else
+        end
+      }
+      #$log.debug("even: #{even.inspect}")
+      #$log.debug("odd : #{odd.inspect}")
+      #posy = @barrow-1
+      posy = @row
+      print_key_labels_row(posy, posx, even)
+      posy = @row+1
+      print_key_labels_row(posy, posx, odd)
+      # uncommented next line after ffi-ncurses else not showing till key press FFI 2011-09-17 
+      @win.wrefresh   # needed else secod row not shown after askchoice XXX 
+    end
+    def print_key_labels_row(posy, posx, arr)
+      # FIXME: this logic of padding needs to take into account
+      # width of window
+      padding = 8
+      padding = 4 if arr.length > 5
+      padding = 2 if arr.length > 7
+      padding = 0 if arr.length > 9
+      #padding = @padding # XXX 2008-11-13 23:01 
+      my_form_win = @win
+      @win.printstring(posy,0, "%-*s" % [@cols," "], @footer_color_pair, @attr)
+      arr.each do |kl|
+        key = kl[0]
+        lab = kl[1]
+        if key !="" # don't print that white blank space for fillers
+          color_pair= @footer_mnemonic_color_pair # $reversecolor #2
+          x = posx +  (key.length - key.strip.length)
+          my_form_win.attron(Ncurses.COLOR_PAIR(color_pair))
+          my_form_win.mvprintw(posy, x, "%s" % kl[0].strip );
+          my_form_win.attroff(Ncurses.COLOR_PAIR(color_pair))
+        end
+        color_pair=@footer_color_pair
+        posx = posx + kl[0].length 
+        my_form_win.attron(Ncurses.COLOR_PAIR(color_pair))
+
+        #lab = sprintf(" %s %*s" , kl[1], padding, " ");
+        lab = sprintf(" %s %s" , kl[1], " "*padding);
+        my_form_win.mvprintw(posy, posx, lab)
+        my_form_win.attroff(Ncurses.COLOR_PAIR(color_pair))
+        posx = posx +  lab.length
+      end
+    end
+    ##
+    # updates existing label with a new one.
+    # @return true if updated, else false
+    # @example update "C-x", "C-x", "Disable"
+    def update_application_key_label(display_code, new_display_code, text)
+      @repaint_required = true
+      labels = key_labels()
+      raise "labels are nil !!!" unless labels
+      labels.each_index do |ix|
+        lab = labels[ix]
+        next if lab.nil?
+        if lab[0] == display_code
+          labels[ix] = [new_display_code , text]
+          $log.debug("updated #{labels[ix]}")
+          return true
+        end
+      end
+      return false
+    end
+    alias :update :update_application_key_label
+    ##
+    # inserts an application label at given index
+    # to add the key, use create_datakeys to add bindings
+    # remember to call restore_application_key_labels after updating/inserting
+    def insert_application_key_label(index, display_code, text)
+      @repaint_required = true
+      labels = key_labels()
+      labels.insert(index, [display_code , text] )
+    end
+    # ADD HERE KEYLABEL
+  end
+end

data/lib/rbcurse/core/widgets/rcombo.rb

@@ -0,0 +1,238 @@
+# ----------------------------------------------------------------------------- #
+#         File: rcombo.rb
+#  Description: Non-editable combo box.
+#               Make it dead-simple to use. 
+#               This is a simpler version of the original ComboBox which allowed
+#               editing and used rlistbox. This simpler class is meant for the rbcurse
+#               core package and will only depend on a core class if at all.
+#       Author: rkumar http://github.com/rkumar/rbcurse/
+#         Date: 2011-11-11 - 21:42
+#      License: Same as Ruby's License (http://www.ruby-lang.org/LICENSE.txt)
+#  Last update: use ,,L
+# ----------------------------------------------------------------------------- #
+#
+require 'rbcurse'
+
+include RubyCurses
+module RubyCurses
+  extend self
+
+  # the quick approach would be to use field, and just add a popup.
+  # Or since we are not editing, we could use a Label and a popup
+  # Or just display a label and a popup without using anything else.
+  #
+
+  class ComboBox < Field
+    include RubyCurses::EventHandler
+    dsl_accessor :list_config
+
+    attr_accessor :current_index
+    # the symbol you want to use for combos
+    attr_accessor :COMBO_SYMBOL
+    attr_accessor :show_symbol # show that funny symbol after a combo to signify its a combo
+    dsl_accessor :arrow_key_policy   # :IGNORE :NEXT_ROW :POPUP
+
+    def initialize form, config={}, &block
+      @arrow_key_policy = :ignore
+      @editable         = false
+      @COMBO_SYMBOL = "v".ord  # trying this out
+      @current_index    = 0
+      super
+      # added if  check since it was overriding set_buffer in creation. 2009-01-18 00:03 
+      set_buffer @list[@current_index].dup if @buffer.nil? or @buffer.empty?
+      init_vars
+      @_events.push(*[:CHANGE, :ENTER_ROW, :LEAVE_ROW])
+    end
+    def init_vars
+      super
+      @show_symbol = true if @show_symbol.nil? # if set to false don't touch
+      #@show_symbol = false if @label # 2011-11-13 
+      @COMBO_SYMBOL ||= FFI::NCurses::ACS_DARROW #GEQUAL
+      bind_key(KEY_UP) { previous_row }
+      bind_key(KEY_DOWN) { next_row }
+    end
+    def selected_item
+      @list[@current_index]
+    end
+    def selected_index
+      @current_index
+    end
+
+    ##
+    # convert given list to datamodel
+    def list alist=nil
+      return @list if alist.nil?
+      #@list = RubyCurses::ListDataModel.new(alist)
+      @list = alist
+    end
+    ##
+    # combo edit box key handling
+    # removed UP and DOWN and bound it, so it can be unbound
+    def handle_key(ch)
+      @current_index ||= 0
+      # added 2009-01-18 22:44 no point moving horiz or passing up to Field if not edit
+      if !@editable
+        if ch == KEY_LEFT or ch == KEY_RIGHT
+          return :UNHANDLED
+        end
+      end
+      case @arrow_key_policy 
+      when :ignore
+        if ch == KEY_DOWN or ch == KEY_UP
+          return :UNHANDLED
+        end
+      when :popup
+        if ch == KEY_DOWN or ch == KEY_UP
+          popup
+        end
+      end
+      case ch
+      #when KEY_UP  # show previous value
+      #  previous_row
+      #when KEY_DOWN  # show previous value
+      #  next_row
+        # adding spacebar to popup combo, as in microemacs 2010-10-01 13:21 
+      when 32, KEY_DOWN+ META_KEY # alt down
+        popup  # pop up the popup
+      else
+        super
+      end
+    end
+    def DEPprevious_row
+      @current_index -= 1 if @current_index > 0
+      set_buffer @list[@current_index].dup
+      set_modified(true)  ## ??? not required
+      fire_handler :ENTER_ROW, self
+      @list.on_enter_row self
+    end
+    def DEPnext_row
+      @current_index += 1 if @current_index < @list.length()-1
+      set_buffer @list[@current_index].dup
+      set_modified(true)  ## ??? not required
+      fire_handler :ENTER_ROW, self
+      @list.on_enter_row self
+    end
+    ##
+    # calls a popup list
+    # TODO: should not be positioned so that it goes off edge
+    # user's customizations of list should be passed in
+    # The dup of listconfig is due to a tricky feature/bug.
+    # I try to keep the config hash and instance variables in synch. So
+    # this config hash is sent to popuplist which updates its row col and
+    # next time we pop up the popup row and col are zero.
+    #
+    # 
+    # added dup in PRESS since editing edit field mods this
+    # on pressing ENTER, value set back and current_index updated
+    def popup
+      @list_config ||= {}
+      @list_config[:row] ||= @row
+      @list_config[:col] ||= @col
+      @list_config[:relative_to] ||= self
+      # this does not allow us to bind to events in the list
+      index = popuplist @list, @list_config
+      if index
+        set_buffer @list[index].dup
+        set_modified(true) if @current_index != index
+        @current_index = index
+      end
+    end
+    def OLDpopup
+      listconfig = (@list_config && @list_config.dup) || {}
+      dm = @list
+      # current item in edit box will be focussed when list pops up
+      #$log.debug "XXX POPUP: #{dm.selected_index} = #{@current_index}, value #{@buffer}"
+      # we are having some problms when using this in a list. it retains earlier value
+      _index = dm.index @buffer
+      dm.selected_index = _index #  @current_index
+      poprow = @row+0 # one row below the edit box
+      popcol = @col
+      dlength = @display_length
+      f = self
+      @popup = RubyCurses::PopupList.new do
+        row  poprow
+        col  popcol
+        width dlength
+        list_data_model dm
+        list_selection_mode 'single'
+        relative_to f
+        list_config listconfig
+        bind(:PRESS) do |index|
+          f.set_buffer dm[index].dup
+          f.set_modified(true) if f.current_index != index
+          f.current_index = index
+        end
+      end
+    end
+
+    # Field putc advances cursor when it gives a char so we override this
+    def putc c
+      if c >= 0 and c <= 127
+        ret = putch c.chr
+        if ret == 0
+          addcol 1 if @editable
+          set_modified 
+        end
+      end
+      return -1 # always ??? XXX 
+    end
+    ##
+    # field does not give char to non-editable fields so we override
+    def putch char
+      @current_index ||= 0
+      if @editable 
+        super
+        return 0
+      else
+        match = next_match(char)
+        set_buffer match unless match.nil?
+        fire_handler :ENTER_ROW, self
+      end
+      @modified = true
+      fire_handler :CHANGE, self    # 2008-12-09 14:51  ???
+      0
+    end
+    ##
+    # the sets the next match in the edit field
+    def next_match char
+      start = @current_index
+      start.upto(@list.length-1) do |ix|
+        if @list[ix][0,1].casecmp(char) == 0
+          return @list[ix] unless @list[ix] == @buffer
+        end
+        @current_index += 1
+      end
+      ## could not find, start from zero
+      @current_index = 0
+      start = [@list.length()-1, start].min
+      0.upto(start) do |ix|
+        if @list[ix][0,1].casecmp(char) == 0
+          return @list[ix] unless @list[ix] == @buffer
+        end
+        @current_index += 1
+      end
+      @current_index = [@list.length()-1, @current_index].min
+      return nil
+    end
+    ##
+    # on leaving the listbox, update the combo/datamodel.
+    # we are using methods of the datamodel. Updating our list will have
+    # no effect on the list, and wont trigger events.
+    # Do not override.
+    def on_leave
+      fire_handler :LEAVE, self
+    end
+
+    def repaint
+      super
+      c = @col + @display_length
+      if @show_symbol # 2009-01-11 18:47 
+        # i have changed c +1 to c, since we have no right to print beyond display_length
+        @form.window.mvwaddch @row, c, @COMBO_SYMBOL # Ncurses::ACS_GEQUAL
+        @form.window.mvchgat(y=@row, x=c, max=1, Ncurses::A_REVERSE|Ncurses::A_UNDERLINE, $datacolor, nil)
+      end
+    end
+
+  end # class ComboBox
+
+end # module

data/lib/rbcurse/core/widgets/rcontainer.rb

@@ -0,0 +1,415 @@
+=begin
+  * Name: A container that manages components placed in it but
+          is not a form. Thus it can be safely placed as a widget
+          without all the complicatinos of a form embedded inside another.
+          NOTE: Still experimental
+  * Description   
+  * Author: rkumar (http://github.com/rkumar/rbcurse/)
+  * Date:  21.10.11 - 00:29
+  * License: Same as Ruby's License (http://www.ruby-lang.org/LICENSE.txt)
+
+  * Last update:  23.10.11 - 00:29
+  == CHANGES
+      Focusables so we don't focus on label
+  == TODO 
+       How to put blank lines in stack - use a blank label
+
+     - The contaomers and multis need to do their own on_enter and on_leave
+       management, they cannot rely on some other container doing it.
+       We can only rely on handle_key being called. HK should determine
+        whether any set_form row etc needs to be done.
+     - Should have its own stack and flow
+=end
+
+require 'rbcurse'
+
+include RubyCurses
+module RubyCurses
+  extend self
+
+  # This is an attempt at having a container which can contain multiple
+  # widgets without being a form itself. Having forms within forms
+  # complicates code too much, esp cursor positioning. e.g. tabbedpane
+
+  class Container < Widget
+
+    dsl_accessor :suppress_borders            #to_print_borders
+    dsl_accessor :border_attrib, :border_color
+    dsl_accessor :title                       #set this on top
+    dsl_accessor :title_attrib                #bold, reverse, normal
+    # should container stack objects ignoring users row col
+    # this is esp needed since App sets row and col which is too early
+    # This is now the default value, till i can redo things
+    #dsl_accessor :stack
+    dsl_accessor :positioning                 # absolute, relative, stack
+    attr_reader  :current_component
+
+    def initialize form=nil, config={}, &block
+      @suppress_borders = false
+      @row_offset = @col_offset = 1
+      @_events ||= []
+      @stack = true
+      @positioning = :stack
+      super
+      @focusable = true
+      @editable = false
+      @components = [] # all components
+      @focusables = [] # focusable components, makes checks easier
+
+      init_vars
+    end
+    def init_vars
+      @repaint_required = true
+      @row_offset = @col_offset = 0 if @suppress_borders # FIXME supposed to use this !!
+
+      @internal_width = 2
+      @internal_width = 1 if @suppress_borders
+      @name ||= "AContainer"
+      @first_time = true
+
+    end
+
+    # NOTE: since we are handling the traversal, we delink the object from any
+    # form's widgets array  that might have been added. Whenever a form is available,
+    # we set it (without adding widget to it) so it can print using the form's window.
+    # 
+    # @param [Widget] to add
+    def add *items
+      items.each do |c|  
+        raise ArgumentError, "Nil component passed to add" unless c
+        if c.is_a? Widget
+          if c.form && c.form != @form
+            $log.debug " removing widget VIMSPLIT #{c.class} wr:  #{c.row} row:#{@row} ht:#{@height} "
+            c.form.remove_widget c
+            c.form = nil
+            # or should i just stack them myself and screw what you've asked for
+          end
+          # take it out of form's control. We will control it.
+          if c.form
+            c.form.remove_widget c
+          end
+          # shoot, what if at this point the container does not have a form
+          attach_form c if @form
+        end
+        # most likely if you have created both container and widgets
+        # inside app, it would have given row after container
+
+        @components << c
+        if c.focusable
+          @focusables << c 
+          @current_component ||= c # only the first else cursor falls on last on enter
+        end
+
+      end # items each
+      self
+    end
+
+    # When we get a form, we silently attach it to this object, without the form
+    #  knowing. We don't want form managing this object.
+    def attach_form c
+      c.form = @form
+      c.override_graphic @graphic
+      c.parent_component = self
+    end
+    alias :add_widget :add
+    def widgets; @components; end
+    # what of by_name
+
+
+    # correct coordinates of comp esp if App has stacked them after this
+    # container
+    # It is best to use the simple stack feature. The rest could change at any time
+    #  and is quite arbitrary. Some folks may set absolute locations if container
+    #  is directly on a form, others may set relative locations if it is inside a 
+    #  tabbed pane or other container. Thus, stacks are best
+    def correct_component c
+      raise "Form is still not set in Container" unless @form
+      attach_form(c) unless c.form
+      @last_row ||= @row + 1
+      inset = 2
+      # 2011-10-20 current default behaviour is to stack
+      if @positioning == :stack
+        c.row = @last_row
+        c.col = @col + inset
+
+        # do not advance row, save col for next row
+        @last_row += 1
+      elsif @positioning == :relative   # UNTESTED NOTE
+        if (c.row || 0) <= 0
+          $log.warn "c.row in CONTAINER is #{c.row} "
+          c.row = @last_row
+          @last_row += 1
+        elsif c.row > @row + @height -1
+          $log.warn "c.row in CONTAINER exceeds container.  #{c.row} "
+          c.row -= @height - @row_offset
+        else
+          # this is where it should come
+          c.row += @row + @row_offset
+          @last_row = c.row + 1
+        end
+        if (c.col || 0) <= 0
+          c.col = @col + inset + @col_offset
+        elsif c.col > @col + @width -1
+          c.col -= @width
+        elsif c.col == @col
+          c.col += @col_offset + inset
+        else #f c.col < @col
+          c.col += @col+@col_offset
+        end
+      $log.debug "XXX: CORRECT #{c.name}  r:#{c.row} c:#{c.col} "
+      end
+      @first_time = false
+    end
+    def check_component c
+      raise "row is less than container #{c.row} #{@row} " if c.row <= @row
+      raise "col is less than container #{c.col} #{@col} " if c.col <= @col
+    end
+
+    public
+    # repaint object
+    # called by Form, and sometimes parent component (if not form).
+    def repaint
+      my_win = @form ? @form.window : @target_window
+      @graphic = my_win unless @graphic
+      raise " #{@name} NO GRAPHIC set as yet                 CONTAINER paint " unless @graphic
+      @components.each { |e| correct_component e } if @first_time
+      #@components.each { |e| check_component e } # seeme one if printing out
+
+      #return unless @repaint_required
+
+      # if some major change has happened then repaint everything
+      if @repaint_required
+        $log.debug " VIM repaint graphic #{@graphic} "
+        print_borders unless @suppress_borders # do this once only, unless everything changes
+        @components.each { |e| e.repaint_all(true); e.repaint }
+      else
+        @components.each { |e| e.repaint }
+      end # if repaint_required
+
+      @repaint_required = false
+    end
+
+    private
+    def print_borders
+      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)
+      #$log.debug "rlistb #{name}: window.print_border #{startrow}, #{startcol} , h:#{height}, w:#{width} , @color_pair, @attr "
+      window.print_border startrow, startcol, height, width, @color_pair, @attr
+      print_title
+    end
+    def print_title
+      $log.debug "CONTAINER PRINTING TITLE at #{row} #{col} "
+      @graphic.printstring( @row, @col+(@width-@title.length)/2, @title, @color_pair, @title_attrib) unless @title.nil?
+    end
+
+    public
+    # called by parent or form, otherwise its private
+    def handle_key ch
+      $log.debug " CONTAINER handle_key #{ch} "
+      return if @components.empty?
+      _multiplier = ($multiplier == 0 ? 1 : $multiplier )
+
+      # should this go here 2011-10-19 
+      unless @_entered
+        $log.warn "XXX WARN: calling ON_ENTER since in this situation it was not called"
+        on_enter
+      end
+      if ch == KEY_TAB
+        $log.debug "CONTAINER GOTO NEXT TAB"
+        return goto_next_component
+      elsif ch == KEY_BTAB
+        return goto_prev_component
+      end
+      comp = @current_component
+      $log.debug " CONTAINER handle_key #{ch}: #{comp}" 
+      if comp
+        ret = comp.handle_key(ch) 
+        $log.debug " CONTAINER handle_key#{ch}: #{comp} returned #{ret} " 
+        if ret != :UNHANDLED
+          comp.repaint # NOTE: if we don;t do this, then it won't get repainted. I will have to repaint ALL
+          # in repaint of this.
+          return ret 
+        end
+        $log.debug "XXX CONTAINER key unhandled by comp #{comp.name} "
+      else
+        $log.warn "XXX CONTAINER key unhandled NULL comp"
+      end
+      case ch
+      when ?\C-c.getbyte(0)
+        $multiplier = 0
+        return 0
+      when ?0.getbyte(0)..?9.getbyte(0)
+        $log.debug " VIM coming here to set multiplier #{$multiplier} "
+        $multiplier *= 10 ; $multiplier += (ch-48)
+        return 0
+      end
+      ret = process_key ch, self
+      # allow user to map left and right if he wants
+      if ret == :UNHANDLED
+        case ch
+        when KEY_UP
+          # form will pick this up and do needful
+          return goto_prev_component #unless on_first_component?
+        when KEY_LEFT
+          # if i don't check for first component, key will go back to form,
+          # but not be processes. so focussed remain here, but be false.
+          # In case of returnign an unhandled TAB, on_leave will happen and cursor will move to 
+          # previous component outside of this.
+          return goto_prev_component unless on_first_component?
+        when KEY_RIGHT
+          return goto_next_component #unless on_last_component?
+        when KEY_DOWN
+          return goto_next_component #unless on_last_component?
+        else 
+          @_entered = false
+          return :UNHANDLED
+        end
+      end
+
+      $multiplier = 0
+      return 0
+    end
+    # Actually we should only go to current component if it accepted
+    # a key stroke. if user tabbed thru it, then no point going back to
+    # it. Go to first or last depending on TAB or BACKTAB otherwise.
+    # NOTE: if user comes in using DOWN or UP, last traversed component will get the focus
+    #
+    def on_enter
+      # if BTAB, the last comp XXX they must be focusable FIXME
+      if $current_key == KEY_BTAB || $current_key == KEY_UP
+        @current_component = @focusables.last
+      else
+        @current_component = @focusables.first
+      end
+      return unless @current_component
+      $log.debug " CONTAINER came to ON_ENTER #{@current_component} "
+      set_form_row
+      @_entered = true
+    end
+    # we cannot be sure that this will be called especially if this is embedded 
+    # inside some other component
+    def on_leave
+      @_entered = false
+      super
+    end
+    def goto_next_component
+      if @current_component != nil 
+        leave_current_component
+        if on_last_component?
+          #@_entered = false
+          return :UNHANDLED
+        end
+        @current_index = @focusables.index(@current_component)
+        index = @current_index + 1
+        f = @focusables[index]
+        if f
+          @current_index = index
+          @current_component = f
+          return set_form_row
+        end
+      end
+      @_entered = false
+      return :UNHANDLED
+    end
+    def goto_prev_component
+      if @current_component != nil 
+        leave_current_component
+        if on_first_component?
+          @_entered = false
+          return :UNHANDLED
+        end
+        @current_index = @focusables.index(@current_component)
+        index = @current_index -= 1
+        f = @focusables[index]
+        if f
+          @current_index = index
+          @current_component = f
+          return set_form_row
+        end
+      end
+      return :UNHANDLED
+    end
+    # private
+    # XXX why are we calling 3 methods in a row, why not OE manages these 3
+    # There's double calling going on.
+    def set_form_row
+      return :UNHANDLED if @current_component.nil?
+      cc = @current_component
+      $log.debug "CONT #{@name} set_form_row calling sfr for #{cc.name}, r #{cc.row} c: #{cc.col} "
+      $log.debug " CONTAINER on enter sfr #{@current_component.name}  #{@current_component} "
+
+      # bug caught here. we were printing a field before it had been set, so it printed out
+      @components.each { |e| correct_component e } if @first_time
+      @current_component.on_enter
+      @current_component.set_form_row # why was this missing in vimsplit. is it
+        $log.debug "CONT2 #{@name} set_form_row calling sfr for #{cc.name}, r #{cc.row} c: #{cc.col} "
+      # that on_enter does a set_form_row
+      @current_component.set_form_col # XXX 
+      @current_component.repaint # OMG this could happen before we've set row and col
+      # XXX compo should do set_form_row and col if it has that
+    end
+    # 
+    def set_form_col
+      return if @current_component.nil?
+      $log.debug " #{@name} CONTAINER EMPTY set_form_col calling sfc for #{@current_component.name} "
+      # already called from above.
+      #@current_component.set_form_col 
+    end
+    # leave the component we are on.
+    # This should be followed by all containers, so that the on_leave action
+    # of earlier comp can be displayed, such as dimming components selections
+    def leave_current_component
+      @current_component.on_leave
+      # NOTE this is required, since repaint will just not happen otherwise
+      # Some components are erroneously repainting all, after setting this to true so it is 
+      # working there. 
+      @current_component.repaint_required true
+      $log.debug " after on_leave RCONT XXX #{@current_component.focussed}   #{@current_component.name}"
+      @current_component.repaint
+    end
+
+    # is focus on first component FIXME check  for focusable
+    def on_first_component?
+      @current_component == @focusables.first
+    end
+    # is focus on last component FIXME check  for focusable
+    def on_last_component?
+      @current_component == @focusables.last
+    end
+    # set focus on given component
+    # Sometimes you have the handle to component, and you want to move focus to it
+    def goto_component comp
+      return if comp == @current_component
+      leave_current_component
+      @current_component = comp
+      set_form_row
+    end
+
+    # ADD HERE ABOVe
+  end # class
+end # module
+
+if __FILE__ == $PROGRAM_NAME
+  require 'rbcurse/core/util/app'
+  App.new do
+    f1 = field "name", :maxlen => 20, :display_length => 20, :bgcolor => :white, 
+      :color => :black, :text => "abc", :label => " Name: ", :label_color_pair => @datacolor
+    f2 = field "email", :display_length => 20, :bgcolor => :white, 
+      :color => :blue, :text => "me@google.com", :label => "Email: ", :label_color_pair => @datacolor
+    f3 = radio :group => :grp, :text => "red", :value => "RED", :color => :red
+    f4 = radio :group => :grp, :text => "blue", :value => "BLUE", :color => :blue
+    f5 = radio :group => :grp, :text => "green", :value => "GREEN", :color => :green
+    stack :margin_top => 2, :margin => 2 do
+    r = container :row => 1, :col => 2, :width => 80, :height => 20, :title => "A container" 
+    r.add(f1)
+    r.add(f2)
+    r.add(f3,f4,f5)
+    sl = status_line
+    end # stack
+  
+  end # app
+end # if