rbcurse 1.4.0 → 1.4.1.pre2

data/lib/rbcurse/rtabbedpane.rb

@@ -3,9 +3,10 @@
   * Description: 
   * A tabbed pane, mostly based (iirc) on the Terminal Preferences in OSX PPC 10.5.x
   * Starting a new version using pads 2009-10-25 12:05 
-TODO - need to rewrite this pronto. 1.3.1 or 1.3.2 should have a rewritten TabbedPane
-NOTE:  PLEASE AVOID THIS. USE MULTI_CONTAINERS if you need inside a form.
-       TABBEDWINDOW IS OKAY IF YOU ARE POPPING A TABBEDPANE UP.
+
+   2011-10-18 : removed ScrollForm since it would not print if window was not at 0,0 top left.
+
+
   * Author: rkumar
   
   --------
@@ -24,11 +25,12 @@ NOTE:
   #
   # TODO :  disable/hide tab ???
 =end
-require 'logger'
 require 'rbcurse'
+require 'ver/rpad'
+#require 'rbcurse/rscrollform' # tried, shows in all cases teh buttons but never gets control
 
-KEY_TAB = 9
-KEY_BTAB = 353
+KEY_TAB ||= 9
+KEY_BTAB ||= 353
 #include Ncurses # FFI 2011-09-8 
 include RubyCurses
 module RubyCurses
@@ -49,20 +51,21 @@ module RubyCurses
     # highlight abd selected colors and attribs should perhaps be in a
     # structure, so user can override easily
     def repaint  # tabbedbutton
-       $log.debug("TabbedBUTTon repaint : #{self.class()}  r:#{@row} c:#{@col} #{getvalue_for_paint}" )
+       $log.debug("TabbedBUTTon repaint : #{self.class()} fn:#{@form.name}  r:#{@row} c:#{@col} #{getvalue_for_paint} gt #{@form.window.top}  gl #{@form.window.left}" )
         r,c = rowcol
         attribs = @attrs
         @highlight_foreground ||= $reversecolor
         @highlight_background ||= $reversecolor # 0 
         _state = @state
         _state = :SELECTED if @variable.value == @value 
+        color = $datacolor
         case _state
         when :HIGHLIGHTED
           $log.debug("TabbedBUTTon repaint : HIGHLIGHTED #{bgcolor}, #{color}, v: #{@value}" )
           bgcolor = @highlight_background
           color = @highlight_foreground
           bgcolor = @bgcolor
-          color =  "red" #@color
+          color =  :red #@color
           attribs = Ncurses::A_BOLD
           setrowcol r,c  # show cursor on highlighted as we tab through
           ## but when tabbing thru selected one, then selected one doesn't show cursor
@@ -92,20 +95,26 @@ module RubyCurses
         #@graphic.printstring r+@graphic.top, c+@graphic.left, "%-*s" % [len, value], color, attribs
         #@graphic.printstring r-@graphic.top, c-@graphic.left, "%-*s" % [len, value], color, attribs
 
-        # add bar character on sides of selected  2011-10-5 
-        # mvwaddch was not doing anything ??
+        ro =  @graphic.top
+        co =  @graphic.left
+        ro =  0
+        co =  0
+        # NOTE after removing scrollform I've replaced check of graphic with 0, Note if we revert
         if _state == :HIGHLIGHTED
-          @graphic.printstring r, c-1, ">",  color, @attrs unless c-1 < @graphic.left
+          color = $datacolor
+          @graphic.printstring r+ro, c-1+co, ">",  color, @attrs unless c-1 < 0 #@graphic.left
           #@graphic.printstring r, c+len+1, "<",  color, @attrs
         else
-          @graphic.printstring r, c-1, " ",  color, @attrs unless c-1 < @graphic.left
+          color = $datacolor
+          @graphic.printstring r+ro, c-1+co, " ",  color, @attrs unless c-1 < 0 #@graphic.left
           #@graphic.printstring r, c+len+1, " ",  color, @attrs
         end
-        @graphic.printstring r, c, "%-*s" % [len, value], color, attribs
+        @graphic.printstring r+ro, c+co, "%-*s" % [len, value], color, attribs
         @graphic.modified = true
 #       @form.window.mvchgat(y=r, x=c, max=len, Ncurses::A_NORMAL, bgcolor, nil)
          # underline for the top tab buttons.
         if @underline != nil
+          # 2011-10-17 cmmented
           r -= @graphic.top # because of pad, remove if we go back to windows
           c -= @graphic.left # because of pad, remove if we go back to windows
           @graphic.mvchgat(y=r, x=c+@underline+0, max=1, Ncurses::A_BOLD|Ncurses::A_UNDERLINE, color, nil)
@@ -166,10 +175,15 @@ module RubyCurses
     # set to true if you want tabs to show as you traverse the tab buttons
     dsl_accessor :display_tab_on_traversal
 
+    # creates a scrollable form so many buttons can be placed
+    #  NOTE: this only works in a root window, I can't figure out why.
+    dsl_accessor :scrolling_allowed
+
     attr_reader :selected_index
     attr_reader :current_tab
     attr_reader :window
     def initialize form, aconfig={}, &block
+      @scrolling_allowed = false
       super
       @parent = form
       @parentwin = form.window
@@ -409,19 +423,22 @@ module RubyCurses
       #  button_gap = 1 if @tabs.size > 6 # quick dirty fix, we need something that checks fit
       # we may also need to truncate text to fit
 
-      @buttonpad.wclear
+      @buttonpad.wclear if @buttonpad # 2011-10-18 
       ## create a button for each tab
       $tabradio = Variable.new # so we know which is highlighted
+      # 2011-10-17 seems objects on this form do not get windows offset
+      wco = @window.left
+      wro = @window.top
       @tabs.each do |tab|
         text = tab.text
-        $log.debug " TABS EACH #{text} "
+        $log.debug " TABS EACH #{text}, #{wro} #{wco} "
         @buttons << RubyCurses::TabbedButton.new(@form) do
           variable $tabradio
           text text
           name text
           value text
-          row r + 1
-          col col
+          row r + 1 #+ wro
+          col col #+ wco
         end
         col += text.length + button_gap
         # if col exceeds pad_w then we need to expand pad
@@ -472,11 +489,31 @@ module RubyCurses
 
       r = @row
       c = @col
-      @form = ScrollForm.new(@parentwin)
-      @form.set_layout(1, @width, @row+1, @col+1)
-      @form.display_h = 1
-      @form.display_w = @width-3
-      @buttonpad = @form.create_pad
+      # NOTE: I had to remove ScrollForm since it would not work if 
+      #  window was not root window. This means I cannot have more buttons
+      #  than fit on screen.
+
+
+      # tried out proper ScrollForm, it shows the buttons but does not take
+      # cursor there or show cursor there at all.
+
+      scrolling = @scrolling_allowed
+      if scrolling
+        @form = ScrollForm.new(@parentwin)
+        # 2011-10-18 trying to see why buttons won't print if window is not 0,0
+        #@form.parent_form = @parent # 2011-10-18 trying out why buttons not coming at correct place
+        #@form.add_cols = @parent.window.left
+        #@form.add_rows = @parent.window.top
+        offset = 1
+        @form.set_layout(1, @width, @row+offset, @col+offset)
+        @form.display_h = 1
+        @form.display_w = @width-3
+        @buttonpad = @form.create_pad
+        @buttonpad.name = "Window::TPTOPPAD" # 2010-02-02 20:01 
+
+      else
+        @form = Form.new(@parentwin)
+      end
 
 
       ## We will use the parent window, and not a pad. We will write absolute coordinates.
@@ -484,7 +521,6 @@ module RubyCurses
       color = $datacolor
       # border around button bar. should this not be in scrollform as a border ? XXX
       @window.print_border @row, @col, 2, @width, color #, Ncurses::A_REVERSE
-      @buttonpad.name = "Window::TPTOPPAD" # 2010-02-02 20:01 
       @form.name = "Form::TPTOPFORM"
       $log.debug("TP WINDOW TOP ? PAD MAIN FORM W:#{@window.name},  F:#{@form.name} ")
       @form.parent_form = @parent ## 2010-01-21 15:55 TRYING OUT BUFFERED
@@ -512,36 +548,8 @@ module RubyCurses
         @form.select_field 0
       end
     end
-    def _on_enter
-      # if BTAB the last comp
-      if $current_key == KEY_BTAB
-        # FIXME last is not focusable, then ??
-        current_component = @buttons.last
-        @current_tab = @form
-        @old_tab = @tabs.last
-        #@form.select_last_field
-      else
-        current_component = @buttons.first
-        @current_tab = @form
-        @old_tab = @tabs.first
-        #@form.select_first_field
-      end
-      #set_form_row
-      current_component.on_enter
-      $log.debug " TP came to on_enter #{current_component}, #{current_component.state} "
-      current_component.set_form_col # XXX 
-      current_component.repaint
-    end
     def button_form_repaint flag = true
       $log.debug " INSIDE button_form_repaint #{flag} "
-      #if flag
-        #@form.repaint if flag  #  This paints the outer form not inner
-        #@buttonpad.mvwaddch(2, 0, Ncurses::ACS_LTEE) # beautify the corner 2010-02-06 19:35 
-        #@buttonpad.mvwaddch(2, @width-1, Ncurses::ACS_RTEE)
-      #end
-      #ret = @buttonpad.prefresh(0,0, @row+0, @col+0, @row+@height, @col+@width)
-      #$log.debug " prefresh error buttonpad 2 " if ret < 0
-      #@buttonpad.modified = false
       if flag
         # repaint form and refresh pad
         @form.repaint
@@ -551,37 +559,39 @@ module RubyCurses
         @form.prefresh
       end
     end
+
     ##
     # This creates a form for the tab, in case we wish to put many components in it.
     # Else just pass single components in add_tab.
     # @params tab tab just created for which a form is required
     # @return form - a pad based form
     def create_tab_form tab
-        mtop = 0
-        mleft = 0
-        bottom_offset = 2 # 0 will overwrite bottom line, 1 will make another line for inner form
+
+      mtop          = 0
+      mleft         = 0
+      bottom_offset = 2 # 0 will overwrite bottom line, 1 will make another line for inner form
       layout = { :height => @height-(mtop+bottom_offset), :width => @width, :top => mtop, :left => mleft } 
-      # create a pad but it must behave like a window at all times 2009-10-25 12:25 
       window = VER::Pad.create_with_layout(layout)
 
       form = RubyCurses::Form.new window
-      $log.debug " pad created in TP create_tab_form: #{window.name} , form #{form.name}  "
-      $log.debug " hwtl: #{layout[:height]} #{layout[:width]} #{layout[:top]} #{layout[:left]} "
-      ## added 2010-01-21 15:46 to pass cursor up
+      
       form.parent_form = @parent
+      form.add_cols    = @col + 0
+      form.add_rows    = @row + 2
+     
+    
       form.navigation_policy = :NON_CYCLICAL
       window.bkgd(Ncurses.COLOR_PAIR($datacolor));
-      window.box( 0, 0);
+      window.box(0, 0);
       window.mvwaddch(0, 0, Ncurses::ACS_LTEE) # beautify the corner 2010-02-06 19:35 
       window.mvwaddch(0, @width-1, Ncurses::ACS_RTEE)
+      window.mvwaddch(layout[:height]-1, 0, Ncurses::ACS_LTEE) # beautify the corner 2010-02-06 19:35 
+      window.mvwaddch(layout[:height]-1, @width-1, Ncurses::ACS_RTEE)
 
-      # XXX TODO this wastes space we should ditch it.
       ## this prints the tab name on top left
       window.mvprintw(1,1, tab.text.tr('&', '')) if @print_subheader
-      window.name = "Tab::TAB-#{tab.text}" # 2010-02-02 19:59 
-      form.name = "Form::TAB-#{tab.text}" # 2010-02-02 19:59 
-      form.add_cols=@col + 0
-      form.add_rows=@row + 2 # 2011-10-3  position cursor correctly
+      window.name = "Tab::TAB-#{tab.text}" 
+      form.name = "Form::TAB-#{tab.text}" 
       return form
     end
     ##
@@ -699,7 +709,7 @@ module RubyCurses
     
           return ret if ret == :UNHANDLED
         end
-        if @buttonpad.modified
+        if @buttonpad && @buttonpad.modified
           button_form_repaint
         end
     end
@@ -728,10 +738,11 @@ module RubyCurses
       end
     end
     def make_buttons names
+      $log.debug "XXX: came to TP make lower buttons FORM #{@form.name}  "
       total = names.inject(0) {|total, item| total + item.length + 4}
       bcol = center_column total
 
-      brow = @layout[:height]-2
+      brow = @layout[:height]-2 # check for < 0
       button_ct=0
       names.each_with_index do |bname, ix|
         text = bname
@@ -754,7 +765,7 @@ module RubyCurses
       end
     end
     def center_column textlen
-      width = @layout[:width]
+      width = @layout[:width] # check for  0 XXX
       return (width-textlen)/2
     end
     def fire_event tab, index, event
@@ -943,23 +954,28 @@ module RubyCurses
       @scroll_ctr = 2
       @cols_panned = @rows_panned = 0
     end
+
     def set_layout(h, w, t, l)
       @pad_h = h
       @pad_w = w
-      @top = @orig_top = t
-      @left = @orig_left = l
+      @top   = t
+      @left  = l
+      @top += @target_window.top
+      @left += @target_window.left
+      @orig_top = @top
+      @orig_left = @left
     end
     def create_pad
       r = @top
       c = @left
       layout = { :height => @pad_h, :width => @pad_w, :top => r, :left => c } 
       @window = VER::Pad.create_with_layout(layout)
-      #@window = @parentwin
-      #@form = RubyCurses::Form.new @buttonpad
-      @window.name = "Pad::ScrollPad" # 2010-02-02 20:01 
-      @name = "Form::ScrollForm"
+
+      @window.name = "Pad::ScrollPad"
+      @name        = "Form::ScrollForm"
       return @window
     end
+
     ## ScrollForm handle key, scrolling
     def handle_key ch
       #alert("SCROLLFORM #{ch} , ai: #{@active_index} , #{get_current_field.name} ")

data/lib/rbcurse/rtabbedwindow.rb

@@ -1,25 +1,23 @@
 =begin
   * Name: tabbed pane: can have multiple forms overlapping.
-  * Description:  This is the old program that uses multiple windows.
-  * This cannot be embedded inside a form, but can be used as a popup.
-  * Avoid using this, move to the widget TabbedPane which can be embedded inside a form.
+  * Description:  This embeds a tabbedpane inside a window - a retake on tabbedwindow
   * Author: rkumar
 
+  * Consists of a main window and form that contains the TabbedPane and several buttons
+    below. 
+    The tabbedpane itself contains a Form for the buttons, and then one form and Pad
+    each for the tab. Check TabbedPane for details since it can change.
 
-  *** rtabbedpane renamed to rtabbedwindow 2009-11-02 13:04 
-  
   --------
-  * Date:  2008-12-13 13:06 
+  * Date: 2011-10-17 3:38 PM 
   * License:
     Same as Ruby's License (http://www.ruby-lang.org/LICENSE.txt)
 
 =end
-require 'rubygems'
-#require 'ncurses'
 require 'logger'
 require 'rbcurse'
+require 'rbcurse/rtabbedpane'
 
-#include Ncurses # FFI 2011-09-8 
 include RubyCurses
 module RubyCurses
   extend self
@@ -27,53 +25,6 @@ module RubyCurses
   # TODO :  insert_tab, remove_tab, disable/hide tab
   # Hotkeys should be defined with ampersand, too.
   #
-  # Multiple independent overlapping forms using the tabbed metaphor.
-  class TabbedButton < RubyCurses::RadioButton
-    def getvalue_for_paint
-      @text
-    end
-    ## 
-    # highlight abd selected colors and attribs should perhaps be in a
-    # structure, so user can override easily
-    def repaint  # tabbedbutton
-#       $log.debug("BUTTon repaint : #{self.class()}  r:#{@row} c:#{@col} #{getvalue_for_paint}" )
-        r,c = rowcol
-        attribs = @attrs
-        @highlight_foreground ||= $reversecolor
-        @highlight_background ||= 0
-        _state = @state
-        _state = :SELECTED if @variable.value == @value 
-        case _state
-        when :HIGHLIGHTED
-          bgcolor = @highlight_background
-          color = @highlight_foreground
-          bgcolor =  @bgcolor
-          color =  @color
-          attribs = Ncurses::A_BOLD
-        when :SELECTED
-          bgcolor =  @bgcolor
-          color =  @color
-          attribs = Ncurses::A_REVERSE
-        else
-          bgcolor =  @bgcolor
-          color =  @color
-        end
-        #bgcolor = @state==:HIGHLIGHTED ? @highlight_background : @bgcolor
-        #color = @state==:HIGHLIGHTED ? @highlight_foreground : @color
-        if bgcolor.is_a? String and color.is_a? String
-          color = ColorMap.get_color(color, bgcolor)
-        end
-        value = getvalue_for_paint
-#       $log.debug("button repaint : r:#{r} c:#{c} col:#{color} bg #{bgcolor} v: #{value} ")
-        len = @display_length || value.length
-        @form.window.printstring r, c, "%-*s" % [len, value], color, attribs
-#       @form.window.mvchgat(y=r, x=c, max=len, Ncurses::A_NORMAL, bgcolor, nil)
-        if @underline != nil
-          # changed +1 to +0 on 2008-12-15 21:23 pls check.
-          @form.window.mvchgat(y=r, x=c+@underline+0, max=1, Ncurses::A_BOLD|Ncurses::A_UNDERLINE, color, nil)
-        end
-    end
-  end
   class TabbedWindow
     include EventHandler
     dsl_accessor :row, :col
@@ -83,169 +34,79 @@ module RubyCurses
     attr_reader :selected_index
     def initialize win, aconfig={}, &block
       @parent = win
-      @tabs ||= []
-      @forms ||= []
       @bgcolor ||=  "black" # 0
       @color ||= "white" # $datacolor
       @attr = nil
-      @current_form = nil
-      @current_tab = nil
+
       @config = aconfig
       @config.each_pair { |k,v| variable_set(k,v) }
       instance_eval &block if block_given?
+      @tp = nil
     end
-    ##
-    # when adding tabs, you may use ampersand in text to create hotkey
-    def add_tab text, aconfig={}, &block
-      #create a button here and block is taken care of in button's instance
-      #or push this for later creation.
-      @tabs << Tab.new(text, aconfig, &block)
-      tab = @tabs.last
-      @forms << create_tab_form(tab)
-      tab.form = @forms.last
-      return tab
-    end
-    # private
-    def variable_set var, val
-        var = "@#{var}"
-        instance_variable_set(var, val) 
-    end
-    # private
-    def configure(*val , &block)
-      case val.size
-      when 1
-        return @config[val[0]]
-      when 2
-        @config[val[0]] = val[1]
-        variable_set(val[0], val[1]) 
+    def tabbed_pane
+      return @tp if @tp
+      @layout = { :height => @height, :width => @width, :top => @row, :left => @col } 
+      #@layout = { :height => 0, :width => 0, :top => 0, :left => 0 } 
+      @window = VER::Window.new(@layout)
+      @form = RubyCurses::Form.new @window
+      @form.name = "TWindow"
+      @form.navigation_policy = :CYCLICAL
+      h = @layout[:height] == 0 ? FFI::NCurses.LINES-2 : @layout[:height]-2
+      w = @layout[:width] == 0 ? FFI::NCurses.COLS : @layout[:width]-0
+      h -= 0
+      w -= 0
+      r = 0 # @row-0
+      c =0 # @col
+      @tp = RubyCurses::TabbedPane.new @form, :height => h, :width =>w, :row => r, :col => c
+      return @tp
+    end
+    #
+    # I am honestly not sure what block anyone is gonna pass to Tab
+    #  I confess i may have been even more ignorant than I am today. We
+    #  could use the block here, pass form here, if component not given especially
+    def add_tab text, component = nil, aconfig={}, &block
+      @tp ||= tabbed_pane
+      t = @tp.add_tab text, component, aconfig #, &block  # NOTE, not passing block there
+      if block_given?
+        yield @tp.form(t) 
       end
-      instance_eval &block if block_given?
+      return t
     end
+    alias :tab :add_tab
+    alias :new_tab :add_tab
+    ##
     def repaint
-      @window || create_window
-      @window.show
     end
     def show
-      repaint
-    end
-    def create_window
       # first create the main top window with the tab buttons on it.
-      @layout = { :height => @height, :width => @width, :top => @row, :left => @col } 
-      @window = VER::Window.new(@layout)
-      @form = RubyCurses::Form.new @window
-      @form.navigation_policy = :NON_CYCLICAL
-      @current_form = @form
       @window.bkgd(Ncurses.COLOR_PAIR($datacolor));
       @window.box( 0, 0);
       @window.wrefresh
       Ncurses::Panel.update_panels
-      col = 1
-      @buttons = []
-      ## create a button for each tab
-      $tabradio = Variable.new
-      @tabs.each do |tab|
-        text = tab.text
-        @buttons << RubyCurses::TabbedButton.new(@form) do
-          variable $tabradio
-          text text
-          name text
-          value text
-          row 1
-          col col
-        end
-        col += text.length+4
-#       @forms << create_tab_form(tab)
-#       form = @forms.last
-        form = tab.form
-        form.window = @window if form.window.nil? ## XXX
-        panel = form.window.panel
-        @buttons.last.command { Ncurses::Panel.top_panel(panel.pointer) 
-          Ncurses::Panel.update_panels();
-          Ncurses.doupdate();
-          form.repaint
-          @current_form = form
-          @current_tab = form
-        }
- 
-      end
       create_buttons
       @form.repaint
-    end
-    def display_form form
-      panel = form.window.panel
-      Ncurses::Panel.top_panel(panel.pointer) 
-      Ncurses::Panel.update_panels();
-      Ncurses.doupdate();
-      form.repaint
-    end
-    def create_tab_form tab
-      layout = { :height => @height-2, :width => @width, :top => @row+2, :left => @col } 
-      window = VER::Window.new(layout)
-      form = RubyCurses::Form.new window
-      form.navigation_policy = :NON_CYCLICAL
-      window.bkgd(Ncurses.COLOR_PAIR($datacolor));
-      window.box( 0, 0);
-      window.mvprintw(1,1, tab.text.tr('&', ''))
-      ##window.wrefresh
-      ##Ncurses::Panel.update_panels
-      return form
+      #handle_keys
+      # need to convey button pressed
     end
     def handle_keys
       begin
-      while (( ch=@window.getchar()) != 999)
-        if ch == ?\C-q.getbyte(0)
-          @selected_index = -1  # this signifies cancel by ?C-q
-          @stop = true
-          return
-        end
-        return if @stop
-        @current_form ||= @form
-        ret = @current_form.handle_key(ch)
-        case ret
-        when :NO_NEXT_FIELD
-          if @current_form != @form
-            @current_form = @form
-            #@current_form.select_field -1
-            @current_form.req_first_field
-            #ret = @current_form.handle_key(ch)
-          else
-            if !@current_tab.nil?
-            @current_form = @current_tab
-            display_form @current_form
-            @current_form.req_first_field
-            #@current_form.select_field -1
-            #ret = @current_form.handle_key(ch)
-            end
+        while (( ch=@window.getchar()) != 999)
+          break if ch == ?\C-q.getbyte(0) || @stop
+          ret = @form.handle_key(ch)
+          if ret == :UNHANDLED
+            ret = @form.process_key ch, self # field
+            @form.repaint
           end
-        when :NO_PREV_FIELD
-          if @current_form != @form
-            $log.debug " 1 no prev field - going to button "
-            @current_form = @form
-            @current_form.req_last_field
-          else
-            if !@current_tab.nil?
-            @current_form = @current_tab
-            display_form @current_form
-            @current_form.req_last_field
-            end
-          end
-        when :UNHANDLED
-          $log.debug " unhandled in tabbed pane #{ch}"
-          ret = @form.process_key ch, self # field
-          @form.repaint
-          #return :UNHANDLED if ret == :UNHANDLED
+          @window.wrefresh
+          break if @stop  # 2011-10-21 somehow not coming out
         end
         return if @stop
-        @current_form.window.wrefresh
-        @window.refresh
-      end
       ensure
         destroy
       end
     end
     def destroy
       @window.destroy
-      @forms.each { |f| w = f.window; w.destroy unless w.nil? }
     end
     def create_buttons
       case @button_type.to_s.downcase
@@ -266,10 +127,13 @@ module RubyCurses
       end
     end
     def make_buttons names
+      $log.debug "XXX: came to TW make buttons FORM= #{@form.name} "
       total = names.inject(0) {|total, item| total + item.length + 4}
       bcol = center_column total
 
+      # this craps out when height is zero
       brow = @layout[:height]-2
+      brow = FFI::NCurses.LINES-2 if brow < 0
       button_ct=0
       names.each_with_index do |bname, ix|
         text = bname
@@ -292,32 +156,10 @@ module RubyCurses
       end
     end
     def center_column textlen
-      width = @layout[:width]
+      width = @layout[:width].ifzero( FFI::NCurses.COLS )
       return (width-textlen)/2
     end
 
-    ##
-    # nested class tab
-    class Tab
-      attr_reader :text
-      attr_reader :config
-      attr_accessor :form
-      def initialize text, aconfig={}, &block
-        @text = text
-        @config = aconfig
-        @config.each_pair { |k,v| variable_set(k,v) }
-        instance_eval &block if block_given?
-      end
-      # private
-      def variable_set var, val
-        var = "@#{var}"
-        instance_variable_set(var, val) 
-      end
-      def repaint
-        
-
-      end
-    end
 
   end # class TabbedWindow