rbcurse 1.4.0 → 1.4.1.pre2

data/lib/rbcurse/rchangeevent.rb

@@ -9,7 +9,6 @@
     Same as Ruby's License (http://www.ruby-lang.org/LICENSE.txt)
 
 =end
-#require 'rubygems'
 
 # Event created when state changed (as in ViewPort)
 module RubyCurses

data/lib/rbcurse/rcombo.rb

@@ -1,41 +1,43 @@
-=begin
-  * Name: combo box
-  * Description: 
-  * Author: rkumar
-  
-  --------
-  * Date:  2008-12-16 22:03 
-  * License:
-    Same as Ruby's License (http://www.ruby-lang.org/LICENSE.txt)
-
-=end
+# ----------------------------------------------------------------------------- #
+#         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'
-require 'rbcurse/rlistbox'
 
-#include Ncurses # FFI 2011-09-8 
 include RubyCurses
 module RubyCurses
-  META_KEY = 128
   extend self
 
-  # TODO : 
-  # i no longer use values, i now use "list" or better "list_data_model"
-  # try to make it so values gets converted to list.
-  # NOTE: 2010-10-01 13:25 spacebar and enter will popup in addition to Alt-Down
+  # 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
-    dsl_accessor :insert_policy # NO_INSERT, INSERT_AT_TOP, INSERT_AT_BOTTOM, INSERT_AT_CURRENT
-    # INSERT_AFTER_CURRENT, INSERT_BEFORE_CURRENT,INSERT_ALPHABETICALLY
 
     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
-      @current_index ||= 0
       # 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
@@ -43,7 +45,8 @@ module RubyCurses
     end
     def init_vars
       super
-      @show_symbol ||= true
+      @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 }
@@ -59,13 +62,8 @@ module RubyCurses
     # convert given list to datamodel
     def list alist=nil
       return @list if alist.nil?
-      @list = RubyCurses::ListDataModel.new(alist)
-    end
-    ##
-    # set given datamodel
-    def list_data_model ldm
-      raise "Expecting list_data_model" unless ldm.is_a? RubyCurses::ListDataModel
-      @list = ldm
+      #@list = RubyCurses::ListDataModel.new(alist)
+      @list = alist
     end
     ##
     # combo edit box key handling
@@ -78,26 +76,36 @@ module RubyCurses
           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+ RubyCurses::META_KEY # alt down
+      when 32, KEY_DOWN+ META_KEY # alt down
         popup  # pop up the popup
       else
         super
       end
     end
-    def previous_row
+    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 next_row
+    def DEPnext_row
       @current_index += 1 if @current_index < @list.length()-1
       set_buffer @list[@current_index].dup
       set_modified(true)  ## ??? not required
@@ -117,6 +125,19 @@ module RubyCurses
     # 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
@@ -199,43 +220,17 @@ module RubyCurses
     # no effect on the list, and wont trigger events.
     # Do not override.
     def on_leave
-      if !@list.include? @buffer and !@buffer.strip.empty?
-        _insert_policy = @insert_policy || :INSERT_AT_BOTTOM
-        case _insert_policy
-        when :INSERT_AT_BOTTOM, :INSERT_AT_END
-          @list.append  @buffer
-        when :INSERT_AT_TOP
-          @list.insert(0, @buffer)
-        when :INSERT_AFTER_CURRENT
-          @current_index += 1
-          @list.insert(@current_index, @buffer)
-
-        when :INSERT_BEFORE_CURRENT
-          #_index = @current_index-1 if @current_index>0
-          _index = @current_index
-          @list.insert(_index, @buffer)
-        when :INSERT_AT_CURRENT
-          @list[@current_index]=@buffer
-        when :NO_INSERT
-          ; # take a break
-        end
-      end
       fire_handler :LEAVE, self
     end
 
     def repaint
       super
       c = @col + @display_length
-     # @form.window.mvwvline( @row, c, ACS_VLINE, 1)
       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
-     # @form.window.mvwvline( @row, c+2, ACS_VLINE, 1)
-     # @form.window.mvwaddch @row, c+2, Ncurses::ACS_S1
-     # @form.window.mvwaddch @row, c+3, Ncurses::ACS_S9
-     # @form.window.mvwaddch @row, c+4, Ncurses::ACS_LRCORNER
-     # @form.window.mvwhline( @row, c+5, ACS_HLINE, 2)
     end
 
   end # class ComboBox

data/lib/rbcurse/rcommandwindow.rb

@@ -30,7 +30,7 @@ module RubyCurses
       @config.each_pair { |k,v| instance_variable_set("@#{k}",v) }
       instance_eval &block if block_given?
       if @layout.nil? 
-          set_layout(1,80, 27, 0) 
+          set_layout(1,80, -1, 0) 
       end
       @height = @layout[:height]
       @width = @layout[:width]
@@ -51,7 +51,8 @@ module RubyCurses
         @window.printstring 0,0,@title, $normalcolor #, 'normal' if @title
         @window.attroff(Ncurses.COLOR_PAIR($normalcolor) | Ncurses::A_REVERSE)
       else
-        @window.printstring 0,0,@title, $normalcolor,  'reverse' if @title
+        #@window.printstring 0,0,@title, $normalcolor,  'reverse' if @title
+        title @title
       end
       @window.wrefresh
       @panel = @window.panel
@@ -62,6 +63,12 @@ module RubyCurses
         @row_offset = 1
       end
     end
+    # modify the window title, or get it if no params passed.
+    def title t=nil
+      return @title unless t
+      @title = t
+      @window.printstring 0,0,@title, $normalcolor,  'reverse' if @title
+    end
     ##
     ## message box
     def stopping?
@@ -135,6 +142,10 @@ module RubyCurses
     end
 
     def set_layout(height=0, width=0, top=0, left=0)
+      # negative means top should be n rows from last line. -1 is last line
+      if top < 0
+        top = Ncurses.LINES-top
+      end
       @layout = { :height => height, :width => width, :top => top, :left => left } 
       @height = height
       @width = width
@@ -150,9 +161,21 @@ module RubyCurses
         end
       end
     end
-    # do not go more than 3 columns and do not print more than window TODO FIXME
+    #
+    # Displays list in a window at bottom of screen, if large then 2 or 3 columns.
+    # @param [Array] list of string to be displayed
+    # @param [Hash]  configuration options: indexing and indexcolor
+    # indexing - can be letter or number. Anything else will be ignored, however
+    #  it will result in first letter being highlighted in indexcolor
+    # indexcolor - color of mnemonic, default green
     def display_menu list, options={}
       indexing = options[:indexing]
+      indexcolor = options[:indexcolor] || get_color($normalcolor, :yellow, :black)
+      indexatt = Ncurses::A_BOLD
+      #
+      # the index to start from (used when scrolling a long menu such as file list)
+      startindex = options[:startindex] || 0
+
       max_cols = 3 #  maximum no of columns, we will reduce based on data size
       l_succ = "`"
       act_height = @height
@@ -169,11 +192,16 @@ module RubyCurses
             text = e.first + " ..."
           end
           if indexing == :number
+            mnem = i+1
             text = "%d. %s" % [i+1, text] 
           elsif indexing == :letter
-            text = "%s. %s" % [l_succ.succ!, text] 
+            mnem = l_succ.succ!
+            text = "%s. %s" % [mnem, text] 
           end
           @window.printstring i+@row_offset, 1, text, $normalcolor  
+          if indexing
+            window.mvchgat(y=i+@row_offset, x=1, max=1, indexatt, indexcolor, nil)
+          end
         }
       else
         $log.debug "DDD inside two window" if $log.debug? 
@@ -193,7 +221,6 @@ module RubyCurses
         col = 1
         $log.debug "DDDcols #{cols}, adv #{adv} size: #{lh} h: #{act_height} w #{@width} " if $log.debug? 
         list.each_with_index { |e, i| 
-          # check that row + @row_offset < @top + @height or whatever TODO
           text = e
           # signify that there's a deeper level
           case e
@@ -201,11 +228,19 @@ module RubyCurses
             text = e.first + "..."
           end
           if indexing == :number
-            text = "%d. %s" % [i+1, text] 
+            mnem = i+1
+            text = "%d. %s" % [mnem, text] 
           elsif indexing == :letter
-            text = "%s. %s" % [l_succ.succ!, text] 
+            mnem = l_succ.succ!
+            text = "%s. %s" % [mnem, text] 
           end
-          @window.printstring row+@row_offset, col, text, $normalcolor  
+          # print only within range and window height
+          if i >= startindex && row < @window.actual_height
+            $log.debug "XXX: MENU #{i} > #{startindex} row #{row} col #{col} "
+            @window.printstring row+@row_offset, col, text, $normalcolor  
+            if indexing
+              @window.mvchgat(y=row+@row_offset, x=col, max=1, indexatt, indexcolor, nil)
+            end
           colct += 1
           if colct == cols
             col = 1
@@ -214,6 +249,7 @@ module RubyCurses
           else
             col += adv
           end
+          end # startindex
         }
       end
       Ncurses::Panel.update_panels();
@@ -521,7 +557,7 @@ module RubyCurses
         @window.wmove row, c
         @window.wrefresh   # FFI added to keep cursor display in synch with selection
       end
-      def OLDbounds_check
+      def OLDbounds_check #:nodoc:
         @start = 0 if @start < 0
         row_offset = 1
         last = (@list.length)-(@height-row_offset-1)
@@ -529,7 +565,7 @@ module RubyCurses
           @start = last
         end
       end # bounds_check
-      def handle_keys
+      def handle_keys #:nodoc:
         begin
           while((ch = @window.getchar()) != 999 )
             case ch

data/lib/rbcurse/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[i]
+        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/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