rbcurse 1.4.1 → 1.5.0.pre1

data/lib/rbcurse/extras/newmessagebox.rb

@@ -1,328 +0,0 @@
-# --------------------------------------------------------------------------------- #
-#         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

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