rbcurse 1.4.0 → 1.4.1.pre2

data/lib/rbcurse/extras/newmessagebox.rb

@@ -0,0 +1,328 @@
+# --------------------------------------------------------------------------------- #
+#         File: newmessagebox.rb 
+#  Description: This is a cleaner attempt at messagebox on the lines of 
+#               the new tabbedpane and window.
+#       Author: rkumar http://github.com/rkumar/rbcurse/
+#         Date: 03.11.11 - 22:15
+#      License: Same as Ruby's License (http://www.ruby-lang.org/LICENSE.txt)
+#  Last update: 03.11.11 - 23:47
+#  == CHANGES
+#  == TODO 
+#     _ <ENTER> should result in OK being pressed if its default, ESC should result in cancel esp 2 time
+#     ensure that text and message are used in isolation and not with other things
+#
+#     _ determine window size, but we are doing instance eval later.
+#
+#     _ maybe have shortcuts for some widgets field, buttons, text and label and
+#       share with app and otherszz
+#
+#     _ stack, flow and grid
+#
+# --------------------------------------------------------------------------------- #
+
+require 'rbcurse'
+require 'rbcurse/common/bordertitle'
+
+include RubyCurses
+class NewMessagebox
+  include BorderTitle
+  include RubyCurses::Utils
+
+  attr_reader :form
+  attr_reader :window
+  dsl_accessor :button_type
+  #
+  # a message to be printed, usually this will be the only thing supplied
+  # with an OK button. This should be a short string, a label will be used
+  # and input_config passed to it
+
+  #dsl_accessor :message
+  # you can also set button_orientation : :right, :left, :center
+  #
+  def initialize config={}, &block
+
+    h = config.fetch(:height, nil)
+    w = config.fetch(:width, nil)
+    t = config.fetch(:row, nil)
+    l = config.fetch(:col, nil)
+    if h && w && t && l
+      @window = VER::Window.new :height => h, :width => w, :top => t, :left => l
+      @graphic = @window
+    end
+    @form = Form.new @window
+
+    config.each_pair { |k,v| instance_variable_set("@#{k}",v) }
+    @config = config
+    @row = 0
+    @col = 0
+    @row_offset = 1
+    @col_offset = 2
+    #bordertitle_init
+    @color ||= :black
+    @bgcolor ||= :white
+
+    instance_eval &block if block_given?
+
+  end
+  def item widget
+    # remove from existing form if set
+    widget.set_form @form
+    widget.row ||= 0
+    widget.col ||= 0
+    # i don't know button_offset as yet
+    widget.row += @row_offset 
+    widget.col += @col_offset 
+    # in most cases this override is okay, but what if user has set it
+    # The problem is that widget and field are doing a default setting so i don't know
+    # if user has set or widget has done a default setting. NOTE
+    widget.color @color    # we are overriding colors, how to avoid since widget sets it
+    widget.bgcolor @bgcolor
+    widget.attr = @attr if @attr # we are overriding what user has put. DARN !
+    @maxrow ||= 0
+    @maxrow = widget.row if widget.row > @maxrow
+    @suggested_h = @height || @maxrow+6
+  end
+  alias :add :item
+  # returns button index
+  # Call this after instantiating the window
+  def run
+    repaint
+    @form.repaint
+    @window.wrefresh
+    return handle_keys
+  end
+  def repaint
+    _create_window unless @window
+      acolor = get_color $reverscolor # this implicitly uses color and bgcolor fooling me often
+      $log.debug " MESSAGE BOX bg:#{@bgcolor} , co:#{@color} , colorpair:#{acolor}"
+      @window.wbkgd(Ncurses.COLOR_PAIR(acolor)); #  does not work on xterm-256color
+
+    #print_borders unless @suppress_borders # do this once only, unless everything changes
+    #@window.print_border_mb 1,2, @height, @width, $normalcolor, FFI::NCurses::A_REVERSE
+      @color_pair = get_color($datacolor)
+      bordercolor = @border_color || @color_pair
+      borderatt = @border_attrib || Ncurses::A_NORMAL
+    @window.wattron(Ncurses.COLOR_PAIR(bordercolor) | (borderatt || FFI::NCurses::A_NORMAL))
+    @window.print_border_mb 1,2, @height, @width, bordercolor, borderatt
+    @window.wattroff(Ncurses.COLOR_PAIR(bordercolor) | (borderatt || FFI::NCurses::A_NORMAL))
+      title = " "+@title+" "
+      @window.printstring(@row=1,@col=(@width-title.length)/2,title, color=$normalcolor)
+    #print_message if @message
+    create_action_buttons unless @action_buttons
+  end
+  # Pass a short message to be printed. 
+  # This creates a label for a short message, and a field for a long one.
+  # @yield field created
+  # @param [String] text to display
+  def message message # yield label or field being used for display for further customization
+    @suggested_h = @height || 10
+    @suggested_w = @width || 60
+    message_col = 5
+    r = 3
+    len = message.length
+    @suggested_w = len + 8 + message_col if len < @suggested_w - 8 - message_col
+
+    display_length = @suggested_w-8
+    display_length -= message_col
+    message_height = 2
+    clr = @color || :white
+    bgclr = @bgcolor || :black
+
+    # trying this out. sometimes very long labels get truncated, so i give a field in wchich user
+    # can use arrow key or C-a and C-e
+    if message.size > display_length
+      message_label = RubyCurses::Field.new @form, {:text => message, :name=>"message_label",
+        :row => r, :col => message_col, :display_length => display_length,  
+        :bgcolor => bgclr , :color => clr, :editable => false}
+    else
+      message_label = RubyCurses::Label.new @form, {:text => message, :name=>"message_label",
+        :row => r, :col => message_col, :display_length => display_length,  
+        :height => message_height, :bgcolor => bgclr , :color => clr}
+    end
+    yield message_label if block_given?
+  end
+
+  # This is for larger messages, or messages where the size is not known.
+  # A textview object is created and yielded.
+  #
+  def text message
+    @suggested_w = @width || (FFI::NCurses.COLS * 0.70).floor
+    @suggested_h = @height || (FFI::NCurses.LINES * 0.70).floor
+
+    message_col = 3
+    r = 2
+    display_length = @suggested_w-4
+    display_length -= message_col
+    clr = @color || :white
+    bgclr = @bgcolor || :black
+
+    if message.is_a? Array
+      # reduce width and height if you can based on array contents
+    else
+      message = wrap_text(message, display_length).split("\n")
+    end
+    message_height = message.size
+    # reduce if possible if its not required.
+    #
+  r1 = (FFI::NCurses.LINES-@suggested_h)/2
+  r1 = r1.floor
+  w = @suggested_w
+  c1 = (FFI::NCurses.COLS-w)/2
+  c1 = c1.floor
+  @suggested_row = r1
+  @suggested_col = c1
+    brow = @button_row || @suggested_h-4
+    available_ht = brow - r + 1
+    message_height = [message_height, available_ht].min
+    require 'rbcurse/rtextview'
+    message_label = RubyCurses::TextView.new @form, {:name=>"message_label", :text => message,
+      :row => r, :col => message_col, :width => display_length, :suppress_borders => true,
+      :height => message_height, :bgcolor => bgclr , :color => clr}
+    #message_label.set_content message
+    yield message_label if block_given?
+
+  end
+  # returns button index
+  private
+  def handle_keys
+    buttonindex = catch(:close) do 
+      while((ch = @window.getchar()) != FFI::NCurses::KEY_F10 )
+        break if ch == ?\C-q.getbyte(0) 
+        begin
+          @form.handle_key(ch)
+          @window.wrefresh
+        rescue => err
+          $log.debug( err) if err
+          $log.debug(err.backtrace.join("\n")) if err
+          alert "Got an exception in NewMessagebox: #{err}. Check log"
+          $error_message.value = ""
+        ensure
+        end
+
+      end # while loop
+    end # close
+    $log.debug "XXX: CALLER GOT #{buttonindex} "
+    @window.destroy
+    return buttonindex 
+  end
+  private
+  def create_action_buttons
+    return unless @button_type
+    case @button_type.to_s.downcase
+    when "ok"
+      make_buttons ["&OK"]
+    when "ok_cancel" #, "input", "list", "field_list"
+      make_buttons %w[&OK &Cancel]
+    when "ok_apply_cancel" #, "input", "list", "field_list"
+      make_buttons %w[&OK &Apply &Cancel]
+    when "yes_no"
+      make_buttons %w[&Yes &No]
+    when "yes_no_cancel"
+      make_buttons ["&Yes", "&No", "&Cancel"]
+    when "custom"
+      raise "Blank list of buttons passed to custom" if @buttons.nil? or @buttons.size == 0
+      make_buttons @buttons
+    else
+      $log.warn "No buttontype passed for creating tabbedpane. Not creating any"
+      #make_buttons ["&OK"]
+    end
+  end
+  private
+  def make_buttons names
+    @action_buttons = []
+    $log.debug "XXX: came to NTP make buttons FORM= #{@form.name} names #{names}  "
+    total = names.inject(0) {|total, item| total + item.length + 4}
+    bcol = align_buttons total, @button_orientation
+
+    # this craps out when height is zero
+    brow = @row + @height-4
+    brow = FFI::NCurses.LINES-2 if brow < 0
+    @button_row = brow
+    #color_pair = get_color($normalcolor)
+    #@window.wattron(Ncurses.COLOR_PAIR(color_pair) | (@attrib || FFI::NCurses::A_NORMAL))
+    #@window.mvwhline( brow-1, @col+1, Ncurses::ACS_HLINE, @width-2)
+    #@window.wattroff(Ncurses.COLOR_PAIR(color_pair) | (@attrib || FFI::NCurses::A_NORMAL))
+    $log.debug "XXX: putting buttons :on #{brow} , #{bcol} : #{@row} , #{@height} "
+    button_ct=0
+    tpp = self
+    _color = @color
+    _bgcolor = @bgcolor
+    names.each_with_index do |bname, ix|
+      text = bname
+      #underline = @underlines[ix] if !@underlines.nil?
+
+      button = Button.new @form do
+        text text
+        name bname
+        row brow
+        col bcol
+        #underline underline
+        highlight_background $reversecolor 
+        color _color
+        bgcolor _bgcolor
+      end
+      @action_buttons << button 
+      button.form = @form
+      button.override_graphic  @graphic
+      index = button_ct
+      tpp = self
+      button.command { |form| @selected_index = index; @stop = true; 
+        # ActionEvent has source event and action_command
+        action =  ActionEvent.new(tpp, index, button.text)
+        if @command
+          @command.call(action, @args) 
+        else
+          # default action if you don't specify anything
+          throw(:close, @selected_index)
+        end
+      }
+      button_ct += 1
+      bcol += text.length+6
+    end
+  end
+  def _create_window
+
+    @width = @suggested_w || 60
+    @height = @suggested_h || 10
+    if @suggested_row
+      @row = @suggested_row
+    else
+      @row = ((FFI::NCurses.LINES-@height)/2).floor
+    end
+    if @suggested_col
+      @col = @suggested_col
+    else
+      w = @width
+      @col = ((FFI::NCurses.COLS-w)/2).floor
+    end
+    @window = VER::Window.new :height => @height, :width => @width, :top => @row, :left => @col
+    @graphic = @window
+    @form.window = @window
+  end
+  #
+  # specify a code block to be fired when an action button is pressed
+  # This will supply (to the code block) an ActionEvent followed by 
+  # whatever args that were given. 
+  # ActionEvent contains source, event, action_command which map to
+  # the messagebox, selected_index (base 0) and button title.
+  #
+  public
+  def command *args, &blk
+    @command = blk
+    @args = args
+  end
+
+  # returns starting column for buttons to start painting
+  # Not very correct in case of :right
+  private
+  def align_buttons textlen, orient=:center
+    case orient
+    when :left
+      return @col+@col_offset
+    when :right
+      return (@width-textlen)-5
+    else
+      return (@width-textlen)/2
+    end
+  end
+end

data/lib/rbcurse/extras/newtabbedpane.rb

@@ -0,0 +1,612 @@
+=begin
+  * Name: newtabbedpane.rb
+  * Description : This is radically simplified tabbedpane. The earlier version
+    was too complex with multiple forms and pads, and a scrollform. This uses
+    the external form and has some very simple programming to handle the whole thing.
+  * Author: rkumar (http://github.com/rkumar/rbcurse/)
+  * Date: 2011-10-20 
+  * License: Same as Ruby's License (http://www.ruby-lang.org/LICENSE.txt)
+  * Last update:  Sat Oct 22 18:40:49 IST 2011
+
+  == CHANGES
+  == TODO 
+     on start first buttons bottom should not be lined.
+     Alt-1-9 to goto tabs
+     add remove tabs at any time - started, untested
+     events for tab add/remove/etc
+=end
+require 'rbcurse'
+##
+module RubyCurses
+  class NewTabbedPane < Widget
+    dsl_property :title, :title_attrib
+    # what kind of buttons, if this is a window, :ok :ok_camcel :ok_apply_cancel
+    dsl_accessor :button_type
+    attr_reader :button_row
+    # index of tab that is currently open
+    attr_reader :current_tab
+    
+
+    def initialize form=nil, config={}, &block
+      @_events ||= []
+      @_events.push(:PRESS)
+      @button_gap = 2
+      init_vars
+      super
+      @focusable = true
+      @editable  = true
+      @col_offset = 2
+      raise ArgumentError, "NewTabbedPane : row or col not set: r: #{@row} c: #{@col} "  unless @row && @col
+    end
+
+    # Add a tab
+    def tab title, config={}, &block
+      #@tab_components[title]=[]
+      #@tabs << Tab.new(title, self, config, &block)
+      insert_tab @tabs.count, title, config, &block
+      self
+    end
+    alias :add_tab :tab
+
+    # a shortcut for binding a command to a press of an action button
+    # The block will be passed
+    # This is only relevant if you have asked for buttons to be created, which is 
+    # only relevant in a TabbedWindow
+    # ActionEvent has source event and action_command
+    def command *args, &block
+      bind :PRESS, *args, &block
+    end
+
+    # -------------- tab maintenance commands ------------------ #
+
+    def insert_tab index, title, config={}, &block
+      @tabs.insert(index, Tab.new(title, self, config, &block) )
+    end
+    def remove_tab tab
+      @tabs.delete tab
+      self
+    end
+    def remove_all
+      @tabs = []
+      self
+    end
+    def remove_tab_at index = @current_tab
+      @tabs.delete_at index
+    end
+
+    def repaint
+      @current_tab ||= 0
+      @button_row ||=  @row + 2
+      @separator_row = @button_row + 1 # hope we have it by now, where to print separator
+      @separator_row0 = @button_row - 1 unless @button_row == @row + 1
+      @separator_row2 = @row + @height - 3 # hope we have it by now, where to print separator
+      #return unless @repaint_required
+      if @buttons.empty?
+        _create_buttons
+        @components = @buttons.dup
+        @components.push(*@tabs[@current_tab].items)
+        create_action_buttons
+        @components.push(*@action_buttons)
+      elsif @tab_changed
+        @components = @buttons.dup
+        @components.push(*@tabs[@current_tab].items)
+        @components.push(*@action_buttons)
+        @tab_changed = false
+      end
+      # if some major change has happened then repaint everything
+      if @repaint_required
+        $log.debug " NEWTAB repaint graphic #{@graphic} "
+        print_borders unless @suppress_borders # do this once only, unless everything changes
+        print_separator1
+        @components.each { |e| e.repaint_all(true); e.repaint }
+      else
+        @components.each { |e| e.repaint }
+      end # if repaint_required
+      print_border if (@suppress_borders == false && @repaint_all) # do this once only, unless everything changes
+      @repaint_required = false
+    end
+    def handle_key ch
+      $log.debug " NEWTABBED handle_key #{ch} "
+      return if @components.empty?
+      _multiplier = ($multiplier == 0 ? 1 : $multiplier )
+
+      # should this go here 2011-10-19 
+      unless @_entered
+        $log.warn "WARN: calling ON_ENTER since in this situation it was not called"
+        on_enter
+      end
+      #if ch == KEY_TAB
+        #$log.debug "NEWTABBED GOTO NEXT"
+        #return goto_next_component
+      #elsif ch == KEY_BTAB
+        #return goto_prev_component
+      #end
+      comp = @current_component
+      $log.debug " NEWTABBED handle_key #{ch}: #{comp}" 
+      if comp
+        ret = comp.handle_key(ch) 
+        $log.debug " NEWTABBED 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 NEWTABBED key unhandled by comp #{comp.name} "
+      else
+        Ncurses.beep
+        $log.warn "XXX NEWTABBED 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, KEY_BTAB
+          # 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, KEY_TAB
+          return goto_next_component #unless on_last_component?
+        when KEY_DOWN
+          if on_a_button?
+            return goto_first_item
+          else
+            return goto_next_component #unless on_last_component?
+          end
+        else 
+          #@_entered = false
+          return :UNHANDLED
+        end
+      end
+
+      $multiplier = 0
+      return 0
+    end
+    # on enter processing
+    # Very often the first may be a label !
+    def on_enter
+      # if BTAB, the last comp
+      if $current_key == KEY_BTAB
+        @current_component = @components.last
+      else
+        @current_component = @components.first
+      end
+      return unless @current_component
+      $log.debug " NEWTABBED came to ON_ENTER #{@current_component} "
+      set_form_row
+      @_entered = true
+    end
+    def on_leave
+      @_entered = false
+      super
+    end
+    # takes focus to first item (after buttons)
+    def goto_first_item
+      bc = @buttons.count
+      @components[bc..-1].each { |c| 
+        if c.focusable
+          leave_current_component
+          @current_component = c
+          set_form_row
+          break
+        end
+      }
+    end
+    def goto_last_item
+      bc = @buttons.count
+      f = nil
+      @components[bc..-1].each { |c| 
+        if c.focusable
+          f = c
+        end
+      }
+      if f
+        leave_current_component
+        @current_component = f
+        set_form_row
+      end
+    end
+    def goto_next_component
+      if @current_component != nil 
+        leave_current_component
+        if on_last_component?
+          @_entered = false
+          return :UNHANDLED
+        end
+        @current_index = @components.index(@current_component)
+        index = @current_index + 1
+        index.upto(@components.length-1) do |i|
+          f = @components[i]
+          if f.focusable
+            @current_index = i
+            @current_component = f
+            return set_form_row
+          end
+        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 = @components.index(@current_component)
+        index = @current_index -= 1
+        index.downto(0) do |i|
+          f = @components[i]
+          if f.focusable
+            @current_index = i
+            @current_component = f
+            return set_form_row
+          end
+        end
+      end
+      return :UNHANDLED
+    end
+    # private
+    def set_form_row
+      return :UNHANDLED if @current_component.nil?
+      $log.debug " NEWTABBED on enter sfr #{@current_component} "
+      @current_component.on_enter
+      @current_component.set_form_row # why was this missing in vimsplit. is it
+      # that on_enter does a set_form_row
+      @current_component.set_form_col # XXX 
+      @current_component.repaint
+      # XXX compo should do set_form_row and col if it has that
+    end
+    # private
+    def set_form_col
+      return if @current_component.nil?
+      $log.debug " #{@name} NEWTABBED  set_form_col calling sfc for #{@current_component.name} "
+      @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 VIMS XXX #{@current_component.focussed}   #{@current_component.name}"
+      @current_component.repaint
+    end
+
+    # is focus on first component
+    def on_first_component?
+      @current_component == @components.first
+    end
+    # is focus on last component
+    def on_last_component?
+      @current_component == @components.last
+    end
+    def on_a_button?
+      @components.index(@current_component) < @buttons.count
+    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
+    def set_current_tab t
+      return if @current_tab == t
+      @current_tab = t
+      goto_component @components[t]
+      @tab_changed = true
+      @repaint_required = true
+      self
+    end
+
+    def DEPRECATED_handle_key ch # :nodoc
+      map_keys unless @keys_mapped
+      ret = process_key ch, self
+      @multiplier = 0
+      return :UNHANDLED if ret == :UNHANDLED
+      return 0
+    end
+
+    # Put all the housekeeping stuff at the end
+    private
+    def init_vars
+      @buttons        = []
+      @tabs           = []
+      #@tab_components = {}
+      @bottombuttons  = []
+      #
+      # I'll keep current tabs comps in this to simplify
+      @components     = []      
+      @_entered = false
+    end
+
+    def map_keys
+      @keys_mapped = true
+      #bind_key(?q, :myproc)
+      #bind_key(32, :myproc)
+    end
+
+    def _create_buttons
+      $log.debug "XXX: INSIDE create_buttons col_offset #{@col_offset} "
+      v = Variable.new
+      r = @button_row # @row + 1
+      col = @col + @col_offset
+      @tabs.each_with_index { |t, i| 
+        txt = t.text
+        @buttons << TabButton.new(nil) do 
+          variable v
+          text  txt
+          name  txt
+          #value txt
+          row  r
+          col col
+          surround_chars ['','']
+          selected_background 'green'
+          selected_foreground 'white'
+
+        end
+        b = @buttons.last
+        b.command do
+          set_current_tab i
+        end
+        b.form = @form
+        b.override_graphic  @graphic
+        col += txt.length + @button_gap
+      }
+    end # _create_buttons
+    private
+    def print_borders
+      width       = @width
+      height      = @height-1 
+      window      = @graphic 
+      startcol    = @col
+      startrow    = @row
+      @color_pair = get_color($datacolor)
+      $log.debug "NTP #{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_separator1
+
+      width       = @width
+      height      = @height-1 
+      window      = @graphic 
+      startcol    = @col
+      startrow    = @row
+      @color_pair = get_color($datacolor)
+      r           = @separator_row
+      c           = @col + @col_offset
+
+      urcorner    = []
+      #window.printstring r, c, '-' * (@width-2), @color_pair, @attr
+      window.mvwhline( r, @col+1, Ncurses::ACS_HLINE, @width-2)
+      @buttons.each_with_index do |b, i|
+        l = b.text.length 
+        if b.selected?
+          if false #c == @col + @col_offset
+            cc = c
+            ll = l+1
+          else
+            cc = c-1 
+            ll = l+2
+          end
+          #rr = r -1 #unless rr == @col
+          window.printstring r, cc, " "*ll, @color_pair, @attr
+          #window.printstring r, cc-1, FFI::NCurses::ACS_HLINE.chr*ll, @color_pair, @attr
+          #window.printstring r-2, cc, FFI::NCurses::ACS_HLINE.chr*ll, @color_pair, @attr
+          window.mvwaddch r, cc-1, FFI::NCurses::ACS_LRCORNER unless cc-1 <= @col
+          window.mvwaddch r, c+l+1, FFI::NCurses::ACS_LLCORNER
+        else
+          window.mvwaddch r, c+l+1, FFI::NCurses::ACS_BTEE
+        end
+
+        #window.printstring r-2, c, FFI::NCurses::ACS_HLINE*l, @color_pair, @attr
+        #tt = b.text
+        #window.printstring r, c, tt, @color_pair, @attr
+        c += l + 1
+        #window.mvwaddch r, c, '+'.ord
+        window.mvwaddch r-1, c, FFI::NCurses::ACS_VLINE
+        window.mvwaddch r-2, c, FFI::NCurses::ACS_URCORNER #ACS_TTEE
+        #window.mvwaddch r-2, c+1, '/'.ord
+        urcorner << c
+        c+=@button_gap
+      end
+      window.mvwhline( @separator_row0, @col + 1, Ncurses::ACS_HLINE, c-@col-1-@button_gap)
+      window.mvwhline( @separator_row2, @col + 1, Ncurses::ACS_HLINE, @width-2)
+      urcorner.each do |c| 
+        window.mvwaddch r-2, c, FFI::NCurses::ACS_URCORNER #ACS_TTEE
+      end
+    end
+    def print_title
+      return unless @title
+      _title = @title
+      if @title.length > @width - 2
+        _title = @title[0..@width-2]
+      end
+      @graphic.printstring( @row, @col+(@width-_title.length)/2, _title, 
+                           @color_pair, @title_attrib) unless @title.nil?
+    end
+
+    #
+    # create the buttons at the bottom OK/ APPLY/ CANCEL
+
+    def create_action_buttons
+      return unless @button_type
+      case @button_type.to_s.downcase
+      when "ok"
+        make_buttons ["&OK"]
+      when "ok_cancel" #, "input", "list", "field_list"
+        make_buttons %w[&OK &Cancel]
+      when "ok_apply_cancel" #, "input", "list", "field_list"
+        make_buttons %w[&OK &Apply &Cancel]
+      when "yes_no"
+        make_buttons %w[&Yes &No]
+      when "yes_no_cancel"
+        make_buttons ["&Yes", "&No", "&Cancel"]
+      when "custom"
+        raise "Blank list of buttons passed to custom" if @buttons.nil? or @buttons.size == 0
+        make_buttons @buttons
+      else
+        $log.warn "No buttontype passed for creating tabbedpane. Not creating any"
+        #make_buttons ["&OK"]
+      end
+    end
+    def make_buttons names
+      @action_buttons = []
+      $log.debug "XXX: came to NTP make buttons FORM= #{@form.name} names #{names}  "
+      total = names.inject(0) {|total, item| total + item.length + 4}
+      bcol = center_column total
+
+      # this craps out when height is zero
+      brow = @row + @height-2
+      brow = FFI::NCurses.LINES-2 if brow < 0
+      $log.debug "XXX: putting buttons :on #{brow} : #{@row} , #{@height} "
+      button_ct=0
+      tpp = self
+      names.each_with_index do |bname, ix|
+        text = bname
+        #underline = @underlines[ix] if !@underlines.nil?
+
+        button = Button.new nil do
+          text text
+          name bname
+          row brow
+          col bcol
+          #underline underline
+          highlight_background $reversecolor 
+          color $datacolor
+          bgcolor $datacolor
+        end
+        @action_buttons << button 
+        button.form = @form
+        button.override_graphic  @graphic
+        index = button_ct
+        tpp = self
+        button.command { |form| @selected_index = index; @stop = true; 
+          # ActionEvent has source event and action_command
+          fire_handler :PRESS, ActionEvent.new(tpp, index, button.text)
+          #throw(:close, @selected_index)
+        }
+        button_ct += 1
+        bcol += text.length+6
+      end
+    end
+    def center_column textlen
+      width = @col + @width
+      return (width-textlen)/2
+    end
+
+    ## ADD ABOVE
+  end # class
+
+  class Tab
+    attr_accessor :text
+    attr_reader :config
+    attr_reader :items
+    attr_accessor :parent_component
+    attr_accessor :index
+    attr_accessor :button  # so you can set an event on it 2011-10-4 
+    attr_accessor :row_offset  
+    attr_accessor :col_offset 
+    def initialize text, parent_component,  aconfig={}, &block
+      @text   = text
+      @items  = []
+      @config = aconfig
+      @parent_component = parent_component
+      @row_offset ||= 2
+      @col_offset ||= 2
+      @config.each_pair { |k,v| variable_set(k,v) }
+      instance_eval &block if block_given?
+    end
+    def item widget
+      widget.form = @parent_component.form
+      widget.override_graphic @parent_component.form.window
+      # these will fail if TP put inside some other container. NOTE
+      widget.row ||= 0
+      widget.col ||= 0
+      # If we knew it was only widget we could expand it
+      if widget.kind_of?(Container) #|| widget.respond_to?(:width)
+        widget.width ||= @parent_component.width-3
+      end
+      # Darn ! this was setting Label to fully height
+      if widget.kind_of?(Container) #|| widget.respond_to?(:height)
+        widget.height ||= @parent_component.height-3
+      end
+      # i don't know button_offset as yet
+      widget.row += @row_offset + @parent_component.row  + 1
+      widget.col += @col_offset + @parent_component.col
+      @items << widget
+    end
+  end # class tab
+  class TabButton < RadioButton
+    attr_accessor :display_tab_on_traversal
+    def getvalue_for_paint
+      @text
+    end
+    def selected?
+      @variable.value == @value 
+    end
+
+  end
+
+end # module
+if __FILE__ == $PROGRAM_NAME
+  require 'rbcurse/app'
+  require 'rbcurse/rcontainer'
+  App.new do
+    #r = Container.new nil, :row => 1, :col => 2, :width => 40, :height => 10, :title => "A container"
+    r = Container.new nil, :suppress_borders => true
+    f1 = field "name", :maxlen => 20, :display_length => 20, :bgcolor => :white, 
+      :color => :black, :text => "abc", :label => ' Name: '
+    f2 = field "email", :display_length => 20, :bgcolor => :white, 
+      :color => :blue, :text => "me@google.com", :label => 'Email: '
+    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
+    r.add(f1)
+    r.add(f2)
+    r.add(f3,f4,f5)
+    NewTabbedPane.new @form, :row => 3, :col => 5, :width => 60, :height => 20 do
+      title "User Setup"
+      button_type :ok_apply_cancel
+      tab "&Profile" do
+        item Field.new nil, :row => 2, :col => 2, :text => "enter your name", :label => ' Name: '
+        item Field.new nil, :row => 3, :col => 2, :text => "enter your email", :label => 'Email: '
+      end
+      tab "&Settings" do
+        item CheckBox.new nil, :row => 2, :col => 2, :text => "Use HTTPS", :mnemonic => 'u'
+        item CheckBox.new nil, :row => 3, :col => 2, :text => "Quit with confirm", :mnemonic => 'q'
+      end
+      tab "&Term" do
+        radio = Variable.new
+        item RadioButton.new nil, :row => 2, :col => 2, :text => "&xterm", :value => "xterm", :variable => radio
+        item RadioButton.new nil, :row => 3, :col => 2, :text => "sc&reen", :value => "screen", :variable => radio
+        radio.update_command() {|rb| ENV['TERM']=rb.value }
+      end
+      tab "Conta&iner" do
+        item r
+      end
+
+    end
+  end # app
+
+end