rbcurse 1.4.0 → 1.4.1.pre2

data/lib/rbcurse/table/tablecellrenderer.rb

@@ -1,6 +1,3 @@
-require 'rubygems'
-#require 'ncurses'
-require 'logger'
 module RubyCurses
   class TableCellRenderer
     #include DSL
@@ -51,7 +48,7 @@ module RubyCurses
           lablist << value
         end
         len = @display_length || value.length
-        $log.debug "less ZERO #{@display_length} || #{value.length}, ri: #{row_index}" if len < 0
+        #$log.debug "less ZERO #{@display_length} || #{value.length}, ri: #{row_index}" if len < 0
         acolor = get_color $datacolor
         #acolor =get_color $datacolor, @color || @parent.color, @bgcolor || @parent.bgcolor #unless @parent.nil?
         _attr = Ncurses::A_NORMAL

data/lib/rbcurse/table/tabledatecellrenderer.rb

@@ -1,6 +1,3 @@
-require 'rubygems'
-#require 'ncurses'
-require 'logger'
 module RubyCurses
   class TableDateCellRenderer
     #include EventHandler

data/lib/ver/ncurses.rb

@@ -13,14 +13,6 @@ module VER
     # If errors occur, initscr writes an appropriate error message to standard
     # error and exits; otherwise, a pointer is returned to stdscr.
     stdscr = Ncurses.initscr  ## FFI
-    #stdscr = FFI::NCurses.initscr
- #       File.open('stdscrmethrbc', 'w'){|io|
- #         io.puts '=' * 80
- #         io.puts stdscr.class
- #         io.puts(stdscr.public_methods)
- #         io.puts '=' * 80
- #       }
-    #$g_stdscr = stdscr
 
 #    Color.start if Ncurses.has_colors?
       Ncurses.start_color();
@@ -104,7 +96,7 @@ module VER
     Ncurses.nl
     Ncurses.endwin
     $ncurses_started = false
-    puts "ncurses stopped"
+    #puts "curses over"
   ensure
     return unless error = @last_error
     log = Config[:logfile].value

data/lib/ver/rpad.rb

@@ -0,0 +1,375 @@
+require 'ver/window'
+
+# This contains pad and subwin.
+#
+# 1. IMHO, subwins and derwins are not very stable. Avoid using them. I've tinkered
+#    with them quite a bit and given them up. 
+# 2. Pads are quite okay, I tried something too complex, and copywin often can give
+#    errors, or seg faults. So i've steered away from the Pad class. I may try a simpler
+#    less clever pad approach to textview sometime again.
+
+module VER
+##
+# Pad
+# This is EXPERIMENTAL
+# A pad cannot be used interchangeable since some application functions such as wrefresh
+# are illegal. Cannot expect the application to take care.
+# Internally we can make it easier. Mostly a pad is used to map to one portion of the screen.
+# So we allow that to be defined once. Then only start row and col of pad change.
+# Maybe we should check pad coordinates so no errors
+# Also check screen coordinates (if we know)
+# We need padheight and padwidth only to ensure we don't keep recreating.
+# Howevre, when comp's height increases, then decreases, pad height remains larger
+# but we keep printing an extra row in copywin. so Pad needs to maintain comp height
+# and padheight.
+# @since 0.1.3
+# NOTE used only by TabbedPane. If we rewrite without using it in 1.3.1 then scrap.
+# 2011-11-8 Now the new simpler TabbedPane does not use pads. 
+# The aim o this class was to act as a replacement for window, making it seamless
+# to use a pad instead
+class Pad  < VER::Window
+  # top and left correspond to screen's top and left wich will mostly be fixed
+  attr_accessor :top, :left
+  # start row and col correspond to pad's top and left which will change if scrolling
+  attr_accessor :pminrow, :pmincol
+  # screen's height and width, now it reflects components height and width
+  attr_accessor :sheight, :swidth
+  attr_reader :otherwin
+  # dimensions the pad was created with, used so we don't keep recreating pad, only if increase.
+  attr_reader :padheight, :padwidth
+  #attr_accessor :name  # more for debugging log files. 2010-02-02 19:58 
+  def initialize(height, width)
+    @visible = true
+    # do we set height and width ?? XXX
+    @window = Ncurses.newpad(height, width)
+    @padheight = height
+    @padwidth = width
+    @height = height
+    @width = width
+    @sheight = height
+    @swidth = width
+    init_vars
+  end
+  def init_vars
+    super
+    @top ||= 0; @left ||= 0
+    @pmincol ||= 0 # pad will print from this col
+    @pminrow ||= 0 # pad will print from this row
+    @window_type = :PAD
+    @name ||="#{self}"
+    $log.debug "        PAD constructor #{self} , #{@window} "
+  end
+  #
+  # @param layout is a hash (@see Window.initialize)
+  def self.create_with_layout(layout)
+    @window = Pad.new(layout[:height], layout[:width])
+    @window.reset_layout(layout)
+    return @window
+  end
+  ##
+  # increases the pad size, since the widget may have been resized
+  # checks that one of ht or width has been increased
+  # destroys earlier pad and returns new one
+  # Updates sheight and swidth even if reduced so copywin works fine.
+  # @param [Fixnum] height to resize to
+  # @param [Fixnum] width to resize to
+  # @return [Pad]
+  #  2009-10-29 23:18 
+  def resize(ht = 0, w = 0)
+    # update sheight and swidth even if reduced, so that pad doesn't overwrite.
+    @sheight = ht if ht > 0
+    @swidth = w if w > 0
+    return if ht < @padheight and w < @padwidth
+    @padheight = ht if ht > @padheight
+    @padwidth = w if w > @padwidth
+    destroy
+    $log.debug " L502 resize, creating newpad with #{@padheight} and #{@padwidth} "
+    @window = Ncurses.newpad(@padheight, @padwidth)
+    $log.debug " L502 resize created #{@window} "
+    return @window
+  end
+  ## used if pad and window are same size only
+  # creates a similar sized window
+  # assumes window is backed by this pad
+  # @param object of Window class
+  def self.create_for_window(win)
+    # get coordinates for win
+    @otherwin = win
+    smaxx = win.getmaxx()
+    smaxy = win.getmaxy()
+    top = win.getminx()
+    left = win.getminy()
+    sheight = win.height
+    swidth = win.width
+    # make pad based on size of window
+    window = Pad.create_with_layout(layout = { :height => sheight, :width => swidth, :top => top, :left => sleft })
+    window.sheight = sheight
+    window.swidth = swidth
+    return window
+
+  end
+  # top and left correspond to screen's top and left wich will mostly be fixed.
+  # In cases where the component may float around, as in Splitpanes second component
+  # this would be set using component's row and col.
+  def set_screen_row_col top, left=-1
+    @top = top
+    @left = left unless left < 0
+  end
+  alias :set_screen_pad_left :set_screen_row_col
+
+  ## added user setting screens max row and col (e.g splitpanes first component)
+  def set_screen_max_row_col mr, mc
+    $log.debug "#{@name} set_screen_max_row_col #{mr},#{mc}. earlier #{@screen_maxrow}, #{@screen_maxcol}  "
+    # added || check on 2010-01-09 18:39 since crashing if mr > sh + top ..
+    # I removed the check, since it results in a blank area on screen since the 
+    # widget has not expanded itself. Without the check it will  crash on copywin so you
+    # should increase widget size or disallow  calling this in this situation.
+    if mr > (@sheight + @top -1 -@pminrow)
+      $log.warn " ->>> ** set_screen_max_row_col #{mr} > #{@sheight} + #{@top} -1 - #{@pminrow} ** "
+      $log.warn " ->>> can result in error in copy_win or in some rows not displaying"
+      return # some situations actually require this ...
+    end unless mr.nil?
+    @screen_maxrow = mr unless mr.nil? # || mr > (@sheight + @top -1 -@pminrow)
+    @screen_maxcol = mc unless mc.nil?
+  end
+  # start row and col correspond to pad's top and left which will change if scrolling
+  # However, if we use this as a backing store for subwindows it could remain the same
+  def set_pad_top_left top, left=-1
+    $log.debug "#{@name} inside set_pad_top_left to #{top} #{left} earlier #{@pminrow}, #{@pmincol}"
+    @pminrow = top unless top < 0
+    @pmincol = left unless left < 0
+  end
+  # return screen max row which will be used for writing to window
+  # XXX what if user sets/overrides sheight
+  def smaxrow
+    #$log.debug "    ... niside smaxrow #{@sheight} + #{@top} -1 "
+    #@sheight + @top -1 
+    $log.debug "smr: #{@screen_maxrow}   ... niside smaxrow #{@sheight} + #{@top} -1 - #{@pminrow}"
+    @screen_maxrow || @sheight + @top -1 -@pminrow
+  end
+  ##
+  # return screen max col which will be used for writing to window
+  def smaxcol
+    #$log.debug "    ... niside smaxcol #{@swidth} + #{@left} -1 "
+    #@swidth + @left -1
+    #      $log.debug "    ... niside smaxcol #{@swidth} + #{@left} -1 - #{@pmincol} "
+    @screen_maxcol || @swidth + @left -1 - @pmincol
+  end
+  ##
+  # specify the window or subwin that the pad is writing to
+  # 2010-02-20 22:45 - actually since there are pad methods smaxrow used on otherwin
+  # therefor it can only be a Pad !! NOTE
+  def set_backing_window win
+    @otherwin = win
+    # XX should we  extract the coordinates and use for printing ??
+    # or for setting maxrow and maxcol
+  end
+  # trying to make things as easy as possible
+  # returns -1 if error in prefresh
+  def wrefresh
+    $log.debug " inside pad's wrefresh #{@window}. minr,minc,top,left,smaxr,c: #{@pminrow}, #{@pmincol}, #{@top} #{@left} #{smaxrow()} #{smaxcol()} self: #{self.name} "
+
+    # caution, prefresh uses maxrow and maxcol not height and width
+    # so we have to add top and less one since we are zero based
+    ret = @window.prefresh(@pminrow, @pmincol, @top, @left, smaxrow(), smaxcol())
+    $log.warn " WREFRESH returns -1 ERROR - width or height must be exceeding " if ret == -1
+    @modified = false
+    return ret
+  end
+  ##
+  # copy the window to the pad (assumes we are writing onto win and keeping
+  # pad as backup
+  # also assuming only one win so, window not passed as param
+  # @return return value of copywin which should be 0 (-1 is ERR)
+  def copy_pad_to_win
+    $log.warn " DEPRECATED copy_pad_to_win" # CLEANUP
+    raise "DEPREC copy_pad_to_win deprecated. Will be removed. Let me know if it is needed"
+    # check that we don't exceed other windows height/maxrow
+    smr = smaxrow()
+    # SHIT, this means the otherwin has to be a Pad, cannot be a window
+    osw = @otherwin.width
+    osh = @otherwin.height
+    osh = @height if osh == 0 # root window has 0
+    osw = @width if osw == 0 # root window has 0
+    osmr = @otherwin.smaxrow() rescue osh # TRYING for windows
+    osmc = @otherwin.smaxcol() rescue osw
+    if smr >= osmr
+      $log.debug " adjusted smr from #{smr} to #{osmr} -1 causing issues in viewfooter"
+      smr = osmr-1 # XXX causing issues in viewport, wont print footer with this
+    end
+    if smr > @sheight + @top -1 -@pminrow # 2010-01-17 13:27 
+      smr = @sheight + @top -1 -@pminrow 
+      $log.debug " adjusted smr to #{smr} to prevent crash "
+    end
+    smc = smaxcol()
+    $log.debug " SMC original = #{smc} "
+    if smc >= osmc
+      smc = osmc-1
+      smc = @width # XXX ??? THIS WAS WORKING< but throwing error in viewport case
+      smc = [osmc-1, @width].min # yet another hack
+      $log.debug " SMC o-1 #{osmc-1} wdth #{@width}, smc #{smc}  "
+    end
+    ### XXX commented out since it doesn't let a comp print fully if widget expanded (splitpane)
+    #smc = osw -1 if smc >= osw; # added 2009-11-02 17:01 for tabbedpanes
+
+    # dang, this is coming up a lot. 2010-01-16 20:34 
+    # the second scrollpane was one row too large in testsplit3a.rb
+    if smr - @top > @padheight
+      $log.debug " fixing smr to padheight  2010-01-16 20:35 HOPE THIS DOESNT BREAK ANYTHING"
+      smr = @padheight
+    end
+    @pminrow = 0 if @pminrow < 0
+    @pmincol = 0 if @pmincol < 0
+    $log.debug " COPYING #{self.name} to #{@otherwin.name} "
+    $log.debug " calling copy pad #{@pminrow} #{@pmincol}, #{@top} #{@left}, #{smr} #{smc} self #{self.name} "
+    $log.debug "  calling copy pad H: #{@height} W: #{@width}, PH #{@padheight} PW #{@padwidth} WIN:#{@window} "
+    #      $log.debug "  -otherwin target copy pad #{@otherwin.pminrow} #{@otherwin.pmincol}, #{@otherwin.top} #{@otherwin.left}, #{osmr} #{osmc} OTHERWIN:#{@otherwin.name} "
+    ret="-"
+    #if ret == -1
+    #x XXX        $log.debug "  #{ret} otherwin copy pad #{@otherwin.pminrow} #{@otherwin.pmincol}, #{@otherwin.top} #{@otherwin.left}, #{osmr} #{osmc} "
+    $log.debug "  #{ret} otherwin copy pad H: #{osh} W: #{osw}"
+    if @top >= osh
+      $log.debug "  #{ret} ERROR top exceeds other ht #{@top}   H: #{osh} "
+    end
+    if @left >= osw
+      $log.debug "  #{ret} ERROR left exceeds other wt #{@left}   W: #{osw} "
+    end
+    if smr >= osh
+      $log.debug "  #{ret} ERROR smrow exceeds other ht #{smr}   H: #{osh} "
+      smr = osh() -1 # testing 2010-01-31 21:47  , again 2010-02-05 20:22 
+    end
+    if smc >= osw
+      $log.debug "  #{ret} ERROR smcol exceeds other wt #{smc}   W: #{osw} "
+    end
+    if smc - @left > @padwidth
+      $log.debug "  #{ret} ERROR smcol - left  exceeds padwidth   #{smc}- #{@left}   PW: #{@padwidth} "
+    end
+    if smr - @top > @padheight
+      $log.debug "  #{ret} ERROR smr  - top  exceeds padheight   #{smr}- #{@top}   PH: #{@padheight} "
+    end
+    ret = @window.copywin(@otherwin.get_window,@pminrow,@pmincol, @top, @left, smr, smc, 0)
+    $log.debug " copywin ret #{ret} "
+    # 2010-01-11 19:42 one more cause of -1 coming is that padheight (actual height which never
+    # changes unless pad increases) or padwidth is smaller than area being printed. Solution: increase 
+    # buffer by increasing widgets w or h. smc - left should not exceed padwidth. smr-top should not
+    # exceed padheight
+    #end
+    @modified = false
+    return ret
+  end
+  # @deprecated
+  def copy_win_to_pad
+    $log.warn " DEPRECATED copy_win_to_pad" # CLEANUP 2011-09-29 
+    raise "DEPREC copy_win_to_pad deprecated. Will be removed. Let me know if it is needed"
+    smr = smaxrow()
+    if smr >= @window.smaxrow()
+      smr = @window.smaxrow()-1
+    end
+    $log.debug " copy_win_to_pad #{@otherwin.name}, #{@window.name}, pminr:#{@pminrow} pminc:#{@pmincol} top:#{@top} left:#{@left} smr:#{smr} "
+    ret = @otherwin.copywin(@window.get_window,@pminrow,@pmincol, @top, @left, smr, smaxcol(), 1)
+    @modified = false
+    return ret
+  end
+  ## 
+  #Used to overwrite the pad onto the screen window
+  # A window should have been specified as window to back (@see set_backing_window) or (@see create_with_window)
+  def overwrite_window
+    return @window.overwrite(@otherwin.get_window)
+  end
+
+  ## 
+  #  convenience method so that pad can use printstring but remove screen's row and col
+  #  The absolute row and col will be taken into consideration when printing on screen.
+  #  
+  # @param [Fixnum] row row to print on
+  # @param [Fixnum] col column to print on
+  # @param [String] value to print
+  # @param [Fixnum] color - color combination
+  # @param [Fixnum, nil] attrib defaults to NORMAL
+
+  # Pls remove the raise once the program is working, extra line can slow things down
+  # Keep it on when testing.
+  # If the raise is thrown, it means your object could be positioned higher than it should be,
+  # or at some point you have increased top, without increasing the objects row.
+  def printstring(row,col,value,color,attrib=Ncurses::A_NORMAL)
+    #$log.debug " pad printstring #{row} - #{@top} , #{col} - #{@left} "
+    raise "printstring row < top, pls correct code #{row} #{@top}, #{col} #{@left} " if row < @top or col < @left
+    #$log.warn "printstring row < top, pls correct code #{row} #{@top} " if row < @top
+    super(row - @top, col - @left, value, color, attrib)
+  end # printstring
+  #  convenience method so that pad can use print_border but remove screen's row and col
+  #  Please note that this requires that buffer have latest top and left.
+  def print_border row, col, height, width, color, att=Ncurses::A_NORMAL
+    $log.debug " pad printborder #{row} - #{@top} , #{col} - #{@left}, #{height} , #{width}  "
+    raise "print_border: row < top, pls correct code #{row} #{@top},  #{col} #{@left} " if row < @top or col < @left
+    #$log.warn   "print_border: row < top, pls correct code #{row} #{@top} " if row < @top
+    super(row - @top, col - @left, height, width,  color, att)
+  end
+  def print_border_only row, col, height, width, color, att=Ncurses::A_NORMAL
+    $log.debug " pad printborder_only #{row} - #{@top} , #{col} - #{@left}, #{height} , #{width}  "
+    raise "print_border row < top, pls correct code #{row} #{@top},  #{col} #{@left} " if row < @top or col < @left
+    super(row - @top, col - @left, height, width,  color, att)
+  end
+  # use in place of mvwhline if your widget could be using a pad or window
+  def rb_mvwhline row, col, char, width
+    super(row-@top, col-@left, char, width)
+  end
+  # use in place of mvwvline if your widget could be using a pad or window
+  def rb_mvwvline row, col, char, width
+    super(row-@top, col-@left, char, width)
+  end
+  # use in place of mvaddch if your widget could be using a pad or window
+  def rb_mvaddch row, col, char
+    super(row-@top, col-@left, char)
+  end
+end # class Pad
+#-------------------------------- deprecated stuff ------------------ #
+##
+# added RK 2009-10-08 23:57 for tabbedpanes
+# THIS IS EXPERIMENTAL - 
+# I have not called super in the initializer so any methods you try on subwin
+# that exist in the superclass which use @window will bomb
+# @since 0.1.3 REMOVE UNUSED.
+# @deprecated
+class SubWindow  < VER::Window
+  attr_reader :width, :height, :top, :left
+  attr_accessor :layout
+  attr_reader   :panel   # XXX reader requires so he can del it in end
+  attr_reader   :subwin   # 
+  attr_reader   :parent   # 
+
+  def initialize(parent, layout)
+    @visible = true
+    reset_layout(layout)
+
+    @parent = parent
+    #@subwin = @parent.get_window().derwin(@height, @width, @top, @left)
+    @subwin = @parent.get_window().subwin(@height, @width, @top, @left)
+    $log.debug "SUBWIN init #{@height} #{@width} #{@top} #{@left} "
+    #$log.debug "SUBWIN init #{@subwin.getbegx} #{@subwin.getbegy} #{@top} #{@left} "
+    @panel = Ncurses::Panel.new_panel(@subwin)
+
+    @window = @subwin # makes more mthods available
+    init_vars
+
+  end
+  # no need really now 
+  def reset_layout layout
+    @layout = layout # 2010-02-13 22:23 
+    @height = layout[:height]
+    @width = layout[:width]
+    @top = layout[:top]
+    @left = layout[:left]
+  end
+  def _destroy
+    # typically the ensure block should have this
+    # or should window do it for all subwins, or would we want to wait that long ?
+    $log.debug "subwin destroy"
+
+    Ncurses::Panel.del_panel(panel.pointer) if !panel.nil?    # FFI
+    #@window.delwin(@window) if !@window.nil? # added FFI 2011-09-7 
+    delwin if !@window.nil? # added FFI 2011-09-7 
+  end
+end
+
+end

data/lib/ver/window.rb

@@ -1,5 +1,33 @@
+# ----------------------------------------------------------------------------- #
+#         File: window.rb
+#  Description: A wrapper over window
+#       Author: rkumar http://github.com/rkumar/rbcurse/
+#         Date: Around for a long time
+#      License: Same as Ruby's License (http://www.ruby-lang.org/LICENSE.txt)
+#  Last update: use ,,L
+#
+#  == CHANGED
+#     removed Pad and Subwin to lib/ver/rpad.rb - hopefully I've seen the last of both
+#
+# == TODO
+#    strip and remove cruft. Now that I've stopped using pad, can we remove
+#    the prv_printstring nonsense.
+# ----------------------------------------------------------------------------- #
+#
 require 'ver/ncurses'
 require 'ver/panel'
+require 'rbcurse/common/chunk'
+# this is since often windows are declared with 0 height or width and this causes
+# crashes in the most unlikely places. This prevceents me from having to write ternary
+# e.g.
+#     @layout[:width].ifzero(FFI::NCurses::LINES-2)
+class Fixnum
+  def ifzero v
+    return self if self != 0
+    return v
+  end
+end
+
 module VER
   class Window 
     attr_reader :width, :height, :top, :left
@@ -31,11 +59,17 @@ module VER
       @visible = true
       reset_layout(layout)
 
+      #$log.debug "XXX:WINDOW got h #{@height}, w #{@width}, t #{@top}, l #{@left} "
+
+      @height = FFI::NCurses.LINES if @height == 0   # 2011-11-14 added since tired of checking for zero
+      @width = FFI::NCurses.COLS   if @width == 0
+
       @window = FFI::NCurses.newwin(@height, @width, @top, @left) # added FFI 2011-09-6 
       @panel = Ncurses::Panel.new(@window) # added FFI 2011-09-6 
       #$error_message_row = $status_message_row = Ncurses.LINES-1
       $error_message_row ||= Ncurses.LINES-1
       $error_message_col ||= 1 # ask (bottomline) uses 0 as default so you can have mismatch. XXX
+      $status_message ||= RubyCurses::Variable.new # in case not an App
       init_vars
 
 
@@ -187,30 +221,80 @@ module VER
       end
       FFI::NCurses.respond_to?("w" + name) || FFI::NCurses.respond_to?(name)
     end
+
+    # NOTE: many of these methods using width will not work since root windows width 
+    #  is 0
     def print(string, width = width)
       return unless visible?
-      waddnstr(string.to_s, width) # changed 2011 dts  
+      w = width == 0? Ncurses.COLS : width
+      waddnstr(string.to_s, w) # changed 2011 dts  
     end
 
+    # NOTE: many of these methods using width will not work since root windows width 
+    #  is 0
     def print_yx(string, y = 0, x = 0)
-      mvwaddnstr(y, x, string, width) # changed 2011 dts  
+      w = width == 0? Ncurses.COLS : width
+      mvwaddnstr(y, x, string, w) # changed 2011 dts  
     end
 
+    # NOTE: many of these methods using width will not work since root windows width 
+    #  is 0
     def print_empty_line
       return unless visible?
-      printw(' ' * width)
+      w = width == 0? Ncurses.COLS : width
+      printw(' ' * w)
     end
 
+    # NOTE: many of these methods using width will not work since root windows width 
+    #  is 0
     def print_line(string)
-      print(string.ljust(width))
+      w = width == 0? Ncurses.COLS : width
+      print(string.ljust(w))
     end
 
-    # @unused, pls remove
-    def show_colored_chunks(chunks)
+    # returns the actual width in case you've used a root window
+    # which returns a 0 for wid and ht
+    #
+    def actual_width
+      width == 0? Ncurses.COLS : width
+    end
+    
+    #
+    # returns the actual ht in case you've used a root window
+    # which returns a 0 for wid and ht
+    #
+    def actual_height
+      height == 0? Ncurses.LINES : height
+    end
+    
+    # NOTE: many of these methods using width will not work since root windows width 
+    #  is 0
+    #  Previously this printed a chunk as a full line, I've modified it to print on 
+    #  one line. This can be used for running text. 
+    def show_colored_chunks(chunks, defcolor = nil, defattr = nil)
       return unless visible?
-      chunks.each do |color, chunk|
-        color_set(color)
-        print_line(chunk)
+      chunks.each do |chunk| #|color, chunk, attrib|
+        case chunk
+        when Chunks::Chunk
+          color = chunk.color
+          attrib = chunk.attrib
+          text = chunk.text
+        when Array
+          # for earlier demos that used an array
+          color = chunk[0]
+          attrib = chunk[2]
+          text = chunk[1]
+        end
+
+        color ||= defcolor
+        attrib ||= defattr
+
+        cc, bg = ColorMap.get_colors_for_pair color
+        $log.debug "XXX: CHUNK window #{text}, cp #{color} ,  attrib #{attrib}. #{cc}, #{bg} "
+        color_set(color,nil) if color
+        wattron(attrib) if attrib
+        print(text)
+        wattroff(attrib) if attrib
       end
     end
 
@@ -281,6 +365,7 @@ module VER
               return 27
             when 2 # basically a ALT-O, or alt-[ (79 or 91) this will be really slow since it waits for -1
               ch = 128 + @stack.last
+              $log.warn "XXX: WARN  #{ch} CLEARING stack #{@stack} "
               @stack.clear
               return ch
             else
@@ -321,18 +406,20 @@ module VER
             # xterm-color
             case ch
             when 80
-              ch = KEY_F1
+              ch = FFI::NCurses::KEY_F1
             when 81
-              ch = KEY_F2
+              ch = FFI::NCurses::KEY_F2
             when 82
-              ch = KEY_F3
+              ch = FFI::NCurses::KEY_F3
             when 83
-              ch = KEY_F4
-            #when 27 # another alt-char following Alt-Sh-O
+              ch = FFI::NCurses::KEY_F4
+              #when 27 # another alt-char following Alt-Sh-O
             else
+              ## iterm2 uses these for HOME END num keyboard keys
               @stack.clear
-              @stack << ch
-              return 128 + 79
+              #@stack << ch # earlier we pushed this but it could be of use
+              #return 128 + 79
+              return 128 + 79 + ch
 
             end
             @stack.clear
@@ -418,7 +505,11 @@ module VER
     def reset_layout(layout)
       case layout
       when Array
+        $log.error  "NIL in window constructor" if layout.include? nil
+        raise ArgumentError, "Nil in window constructor" if layout.include? nil
         @height, @width, @top, @left = *layout
+        raise ArgumentError, "Nil in window constructor" if @top.nil? || @left.nil?
+
         @layout = { :height => @height, :width => @width, :top => @top, :left => @top }
       when Hash
         @layout = layout
@@ -455,14 +546,18 @@ module VER
     # Ncurses panel
 
     def hide
+      #return unless visible? # added 2011-10-14 these 2 are not behaving properly
       Ncurses::Panel.hide_panel @panel.pointer
-      Ncurses.refresh # wnoutrefresh
+      #Ncurses.refresh # wnoutrefresh
+      Ncurses::Panel.update_panels # added so below window does not need to do this 2011-10-1 
       @visible = false
     end
 
     def show
+      #return if visible? # added 2011-10-14 these 2 are not behaving properly
       Ncurses::Panel.show_panel @panel.pointer
-      Ncurses.refresh # wnoutrefresh
+      #Ncurses.refresh # wnoutrefresh
+      Ncurses::Panel.update_panels # added so below window does not need to do this 2011-10-1 
       @visible = true
     end
 
@@ -474,25 +569,123 @@ module VER
     def visible?
       @visible
     end
+
     ##
-    #added by rk 2008-11-29 18:48 
-    #to see if we can clean up from within
+    # destroy window, panel and any pads that were requested
+    #
     def destroy
       # typically the ensure block should have this
-      # @panel = @window.panel if @window
-      #Ncurses::Panel.del_panel(@panel) if !@panel.nil?   
-      #@window.delwin if !@window.nil?
+
       $log.debug "win destroy start"
 
-      #@panel = @window.panel if @window
-      # changed Ncurses::Panel to Ncurses::Panel on 2011-09-8 when moved to FFI
-      Ncurses::Panel.del_panel(@panel.pointer) if !@panel.nil?    # ADDED FFI pointer 2011-09-7 
-      #@window.delwin(@window) if !@window.nil? # added FFI 2011-09-7 
-      delwin() if !@window.nil? # added FFI 2011-09-7 
+      Ncurses::Panel.del_panel(@panel.pointer) if @panel
+      delwin() if @window 
       Ncurses::Panel.update_panels # added so below window does not need to do this 2011-10-1 
+
+      # destroy any pads that were created by widgets using get_pad
+      @pads.each { |pad|  
+        FFI::NCurses.delwin(pad) if pad 
+        pad = nil
+      } if @pads
       $log.debug "win destroy end"
     end
+
+    # 
+    # 2011-11-13 since 1.4.1
+    # Widgets can get window to create a pad for them. This way when the window
+    #  is destroyed, it will delete all the pads. A widget wold not be able to do this.
+    # The destroy method of the widget will be called.
+    def get_pad content_row, content_cols
+      pad = FFI::NCurses.newpad(content_rows, content_cols)
+      @pads ||= []
+      @pads << pad
+    end
+
+    #
+    # Allows user to send data as normal string or chunks for printing
+    # An array is assumed to be a chunk containing color and attrib info
+    #
+    def printstring_or_chunks(r,c,content, color, att = Ncurses::A_NORMAL)
+      if content.is_a? String
+        printstring(r,c,content, color, att)
+      elsif content.is_a? Chunks::ChunkLine
+        $log.debug "XXX: using chunkline"
+        wmove r, c
+        a = get_attrib att
+        show_colored_chunks content, color, a
+      elsif content.is_a? Array
+        # several chunks in one row - NOTE Very experimental may change
+        if content[0].is_a? Array
+          $log.warn "XXX: WARNING outdated should send in a chunkline"
+          wmove r, c
+          a = get_attrib att
+          show_colored_chunks content, color, a
+        else
+          # a single row chunk - NOTE Very experimental may change
+          text = content[1].dup
+          printstring r, c, text, content[0] || color, content[2] || att
+        end
+      end
+    end
+    # 
+    # prints a string formatted in our new experimental coloring format
+    # taken from tmux. Currently, since i have chunks workings, i convert
+    # to chunks and use the existing print function. This could change.
+    # An example of a formatted string is:
+    # s="#[fg=green]testing chunks #[fg=yellow, bg=red, bold]yellow #[reverse] reverseme \
+    #  #[normal]normal#[bg = black]just yellow#[fg=blue],blue now #[underline] underlined text"
+    # Ideally I should push and pop colors which the shell does not do with ansi terminal sequences. 
+    # That way i can have a line in red,
+    #  with some word in yellow, and then the line continues in red.
+    #
+    def printstring_formatted(r,c,content, color, att = Ncurses::A_NORMAL)
+      att = get_attrib att unless att.is_a? Fixnum
+      chunkline = convert_to_chunk(content, color, att)
+      printstring_or_chunks r,c, chunkline, color, att
+    end # print
+    # 
+    # print a formatted line right aligned
+    # c (col) is ignored and calculated based on width and unformatted string length
+    #
+    def printstring_formatted_right(r,c,content, color, att = Ncurses::A_NORMAL)
+      clean = content.gsub /#\[[^\]]*\]/,''  # clean out all markup
+      c = actual_width() - clean.length
+      printstring_formatted(r,c,content, color, att )
+    end
+
+    private
+    def get_default_color_parser
+      require 'rbcurse/common/colorparser'
+      @color_parser || DefaultColorParser.new
+    end
+    # supply with a color parser, if you supplied formatted text
+    public
+    def color_parser f
+      $log.debug "XXX:  color_parser setting in window to #{f} "
+      if f == :tmux
+        @color_parser = get_default_color_parser()
+      else
+        @color_parser = f
+      end
+    end
+    #
+    # Takes a formatted string and converts the parsed parts to chunks.
+    #
+    # @param [String] takes the entire line or string and breaks into an array of chunks
+    # @yield chunk if block
+    # @return [ChunkLine] # [Array] array of chunks
+    # @since 1.4.1   2011-11-3 experimental, can change
+    public
+    def convert_to_chunk s, colorp=$datacolor, att=FFI::NCurses::A_NORMAL
+      unless @color_parser
+        @color_parser = get_default_color_parser()
+        @converter = Chunks::ColorParser.new @color_parser
+      end
+      @converter.convert_to_chunk s, colorp, att
+    end
+
     ## 
+    # prints a string at row, col, with given color and attribute
     # added by rk 2008-11-29 19:01 
     # I usually use this, not the others ones here
     # @param  r - row
@@ -501,7 +694,10 @@ module VER
     # @param color - color pair
     # @ param att - ncurses attribute: normal, bold, reverse, blink,
     # underline
+    public
     def printstring(r,c,string, color, att = Ncurses::A_NORMAL)
+      raise "Nil passed to peintstring row:#{r}, col:#{c}, #{color} " if r.nil? || c.nil? || color.nil?
+      #raise "Zero or less passed to printstring row:#{r}, col:#{c} " if $log.debug? && (r <=0 || c <=0)
       prv_printstring(r,c,string, color, att )
     end
 
@@ -509,27 +705,28 @@ module VER
     def prv_printstring(r,c,string, color, att = Ncurses::A_NORMAL)
 
       #$log.debug " #{@name} inside window printstring r #{r} c #{c} #{string} "
-      att = Ncurses::A_NORMAL if att.nil? 
-      case att.to_s.downcase
-      when 'normal'
+      if att.nil? 
         att = Ncurses::A_NORMAL
-      when 'underline'
-        att = Ncurses::A_UNDERLINE
-      when 'bold'
-        att = Ncurses::A_BOLD
-      when 'blink'
-        att = Ncurses::A_BLINK    # unlikely to work
-      when 'reverse'
-        att = Ncurses::A_REVERSE    
+      else
+        att = get_attrib att
       end
+        #att = att.downcase.to_sym if att.is_a? String
+      #case att
+      #when :normal
+        #att = Ncurses::A_NORMAL
+      #when :underline
+        #att = Ncurses::A_UNDERLINE
+      #when :bold
+        #att = Ncurses::A_BOLD
+      #when :reverse
+        #att = Ncurses::A_REVERSE    
+      #when :dim
+        #att = Ncurses::A_DIM    
+      #when :blink
+        #att = Ncurses::A_BLINK    # unlikely to work
+      #end
 
       wattron(Ncurses.COLOR_PAIR(color) | att)
-      # we should not print beyond window coordinates
-      # trying out on 2009-01-03 19:29 
-      #width = Ncurses.COLS
-      # the next line won't ensure we don't write outside some bounds like table
-      #string = string[0..(width-c)] if c + string.length > width
-      #$log.debug "PRINT len:#{string.length}, #{Ncurses.COLS}, #{r}, #{c} w: #{@window} "
       mvwprintw(r, c, "%s", :string, string);
       wattroff(Ncurses.COLOR_PAIR(color) | att)
     end
@@ -581,6 +778,20 @@ module VER
     ##
     # NOTE : FOR MESSAGEBOXES ONLY !!!! 
     def print_border_mb row, col, height, width, color, attr
+      # the next is for xterm-256 
+      att = get_attrib attr
+      len = width
+      len = Ncurses.COLS-0 if len == 0
+      # print a bar across the screen 
+      #attron(Ncurses.COLOR_PAIR(color) | att)
+      # this works for newmessagebox but not for old one.
+      # Even now in some cases some black shows through, if the widget is printing spaces
+      # such as field or textview on a messagebox.
+      (row-1).upto(row+height-1) do |r|
+        mvwhline(r, col, 1, len)
+      end
+      #attroff(Ncurses.COLOR_PAIR(color) | att)
+
       mvwaddch row, col, Ncurses::ACS_ULCORNER
       mvwhline( row, col+1, Ncurses::ACS_HLINE, width-6)
       mvwaddch row, col+width-5, Ncurses::ACS_URCORNER
@@ -604,9 +815,9 @@ module VER
       # 2009-11-02 00:45 made att nil for blanking out
       # FIXME - in tabbedpanes this clears one previous line ??? XXX when using a textarea/view
       # when using a pad this calls pads printstring which again reduces top and left !!! 2010-01-26 23:53 
+      ww=width-2
       (row+1).upto(row+height-1) do |r|
-        #printstring( r, col+1," "*(width-2) , $datacolor, nil)
-        prv_printstring( r, col+1," "*(width-2) , $datacolor, nil)
+        prv_printstring( r, col+1," "*ww , color, att)
       end
       prv_print_border_only row, col, height, width, color, att
     end
@@ -620,18 +831,10 @@ module VER
     #+ to print border over what's been done. 
     # XXX this reduces 1 from width but not height !!! FIXME 
     def prv_print_border_only row, col, height, width, color, att=Ncurses::A_NORMAL
-      att ||= Ncurses::A_NORMAL
-      case att.to_s.downcase
-      when 'normal'
+      if att.nil? 
         att = Ncurses::A_NORMAL
-      when 'underline'
-        att = Ncurses::A_UNDERLINE
-      when 'bold'
-        att = Ncurses::A_BOLD
-      when 'blink'
-        att = Ncurses::A_BLINK    # unlikely to work
-      when 'reverse'
-        att = Ncurses::A_REVERSE    
+      else
+        att = get_attrib att
       end
       wattron(Ncurses.COLOR_PAIR(color) | att)
       mvwaddch  row, col, Ncurses::ACS_ULCORNER
@@ -645,27 +848,6 @@ module VER
       mvwvline( row+1, col+width-1, Ncurses::ACS_VLINE, height-1)
       wattroff(Ncurses.COLOR_PAIR(color) | att)
     end
-    # added RK 2009-10-08 23:57 for tabbedpanes
-    # THIS IS EXPERIMENTAL -  XXX CLEANUP REMOVE
-    # Acco to most sources, derwin and subwin are not thoroughly tested, avoid usage
-    # subwin moving and resizing not functioning.
-    def derwin(layout)
-      $log.debug " #{self} EXP: returning a subwin in derwin"
-      v = VER::SubWindow.new(self, layout)
-      $log.debug " #{self} EXP: returning a subwin in derwin: #{v} "
-      return v
-    end
-    ## REMOVE CLEANUP UNUSED
-    def _subwin(layout)
-      t = @layout[:top]
-      l = @layout[:left]
-      layout[:top] = layout[:top] + t
-      layout[:left] = layout[:left] + l
-      $log.debug " #{self} EXP: returning a subwin in derwin. Adding #{t} and #{l} "
-      v = VER::SubWindow.new(self, layout)
-      $log.debug " #{self} EXP: returning a subwin in derwin: #{v} "
-      return v
-    end
     # This used to return an Ncurses window object, and you could call methods on it
     # Now it returns a FFI::NCurses.window pointer which you cannot call methods on.
     # You have to pass it to FFI::NCurses.<method>
@@ -696,365 +878,5 @@ module VER
         def_delegators :@bottomline, :ask, :say, :agree, :choose
       end
     end
-  end
-  #-------------------------------- deprecated stuff ------------------ #
-  ##
-  # added RK 2009-10-08 23:57 for tabbedpanes
-  # THIS IS EXPERIMENTAL - 
-  # I have not called super in the initializer so any methods you try on subwin
-  # that exist in the superclass which use @window will bomb
-  # @since 0.1.3 REMOVE UNUSED.
-  # @deprecated
-  class SubWindow  < VER::Window
-    attr_reader :width, :height, :top, :left
-    attr_accessor :layout
-    attr_reader   :panel   # XXX reader requires so he can del it in end
-    attr_reader   :subwin   # 
-    attr_reader   :parent   # 
-
-    def initialize(parent, layout)
-      @visible = true
-      reset_layout(layout)
-
-      @parent = parent
-      #@subwin = @parent.get_window().derwin(@height, @width, @top, @left)
-      @subwin = @parent.get_window().subwin(@height, @width, @top, @left)
-      $log.debug "SUBWIN init #{@height} #{@width} #{@top} #{@left} "
-      #$log.debug "SUBWIN init #{@subwin.getbegx} #{@subwin.getbegy} #{@top} #{@left} "
-      @panel = Ncurses::Panel.new_panel(@subwin)
-
-      @window = @subwin # makes more mthods available
-      init_vars
-
-    end
-    # no need really now 
-    def reset_layout layout
-      @layout = layout # 2010-02-13 22:23 
-      @height = layout[:height]
-      @width = layout[:width]
-      @top = layout[:top]
-      @left = layout[:left]
-    end
-    def _destroy
-      # typically the ensure block should have this
-      # or should window do it for all subwins, or would we want to wait that long ?
-      $log.debug "subwin destroy"
-
-      Ncurses::Panel.del_panel(panel.pointer) if !panel.nil?    # FFI
-      #@window.delwin(@window) if !@window.nil? # added FFI 2011-09-7 
-      delwin if !@window.nil? # added FFI 2011-09-7 
-    end
-  end
-
-  ##
-  # Pad
-  # This is EXPERIMENTAL
-  # A pad cannot be used interchangeable since some application functions such as wrefresh
-  # are illegal. Cannot expect the application to take care.
-  # Internally we can make it easier. Mostly a pad is used to map to one portion of the screen.
-  # So we allow that to be defined once. Then only start row and col of pad change.
-  # Maybe we should check pad coordinates so no errors
-  # Also check screen coordinates (if we know)
-  # We need padheight and padwidth only to ensure we don't keep recreating.
-  # Howevre, when comp's height increases, then decreases, pad height remains larger
-  # but we keep printing an extra row in copywin. so Pad needs to maintain comp height
-  # and padheight.
-  # @since 0.1.3
-  # NOTE used only by TabbedPane. If we rewrite without using it in 1.3.1 then scrap.
-  class Pad  < VER::Window
-    # top and left correspond to screen's top and left wich will mostly be fixed
-    attr_accessor :top, :left
-    # start row and col correspond to pad's top and left which will change if scrolling
-    attr_accessor :pminrow, :pmincol
-    # screen's height and width, now it reflects components height and width
-    attr_accessor :sheight, :swidth
-    attr_reader :otherwin
-    # dimensions the pad was created with, used so we don't keep recreating pad, only if increase.
-    attr_reader :padheight, :padwidth
-    #attr_accessor :name  # more for debugging log files. 2010-02-02 19:58 
-    def initialize(height, width)
-      @visible = true
-      # do we set height and width ?? XXX
-      @window = Ncurses.newpad(height, width)
-      @padheight = height
-      @padwidth = width
-      @height = height
-      @width = width
-      @sheight = height
-      @swidth = width
-      init_vars
-    end
-    def init_vars
-      super
-      @top ||= 0; @left ||= 0
-      @pmincol ||= 0 # pad will print from this col
-      @pminrow ||= 0 # pad will print from this row
-      @window_type = :PAD
-      @name ||="#{self}"
-      $log.debug "        PAD constructor #{self} , #{@window} "
-    end
-    #
-    # @param layout is a hash (@see Window.initialize)
-    def self.create_with_layout(layout)
-      @window = Pad.new(layout[:height], layout[:width])
-      @window.reset_layout(layout)
-      return @window
-    end
-    ##
-    # increases the pad size, since the widget may have been resized
-    # checks that one of ht or width has been increased
-    # destroys earlier pad and returns new one
-    # Updates sheight and swidth even if reduced so copywin works fine.
-    # @param [Fixnum] height to resize to
-    # @param [Fixnum] width to resize to
-    # @return [Pad]
-    #  2009-10-29 23:18 
-    def resize(ht = 0, w = 0)
-      # update sheight and swidth even if reduced, so that pad doesn't overwrite.
-      @sheight = ht if ht > 0
-      @swidth = w if w > 0
-      return if ht < @padheight and w < @padwidth
-      @padheight = ht if ht > @padheight
-      @padwidth = w if w > @padwidth
-      destroy
-      $log.debug " L502 resize, creating newpad with #{@padheight} and #{@padwidth} "
-      @window = Ncurses.newpad(@padheight, @padwidth)
-      $log.debug " L502 resize created #{@window} "
-      return @window
-    end
-    ## used if pad and window are same size only
-    # creates a similar sized window
-    # assumes window is backed by this pad
-    # @param object of Window class
-    def self.create_for_window(win)
-      # get coordinates for win
-      @otherwin = win
-      smaxx = win.getmaxx()
-      smaxy = win.getmaxy()
-      top = win.getminx()
-      left = win.getminy()
-      sheight = win.height
-      swidth = win.width
-      # make pad based on size of window
-      window = Pad.create_with_layout(layout = { :height => sheight, :width => swidth, :top => top, :left => sleft })
-      window.sheight = sheight
-      window.swidth = swidth
-      return window
-
-    end
-    # top and left correspond to screen's top and left wich will mostly be fixed.
-    # In cases where the component may float around, as in Splitpanes second component
-    # this would be set using component's row and col.
-    def set_screen_row_col top, left=-1
-      @top = top
-      @left = left unless left < 0
-    end
-    alias :set_screen_pad_left :set_screen_row_col
-
-    ## added user setting screens max row and col (e.g splitpanes first component)
-    def set_screen_max_row_col mr, mc
-      $log.debug "#{@name} set_screen_max_row_col #{mr},#{mc}. earlier #{@screen_maxrow}, #{@screen_maxcol}  "
-      # added || check on 2010-01-09 18:39 since crashing if mr > sh + top ..
-      # I removed the check, since it results in a blank area on screen since the 
-      # widget has not expanded itself. Without the check it will  crash on copywin so you
-      # should increase widget size or disallow  calling this in this situation.
-      if mr > (@sheight + @top -1 -@pminrow)
-        $log.warn " ->>> ** set_screen_max_row_col #{mr} > #{@sheight} + #{@top} -1 - #{@pminrow} ** "
-        $log.warn " ->>> can result in error in copy_win or in some rows not displaying"
-        return # some situations actually require this ...
-      end unless mr.nil?
-      @screen_maxrow = mr unless mr.nil? # || mr > (@sheight + @top -1 -@pminrow)
-      @screen_maxcol = mc unless mc.nil?
-    end
-    # start row and col correspond to pad's top and left which will change if scrolling
-    # However, if we use this as a backing store for subwindows it could remain the same
-    def set_pad_top_left top, left=-1
-      $log.debug "#{@name} inside set_pad_top_left to #{top} #{left} earlier #{@pminrow}, #{@pmincol}"
-      @pminrow = top unless top < 0
-      @pmincol = left unless left < 0
-    end
-    # return screen max row which will be used for writing to window
-    # XXX what if user sets/overrides sheight
-    def smaxrow
-      #$log.debug "    ... niside smaxrow #{@sheight} + #{@top} -1 "
-      #@sheight + @top -1 
-      $log.debug "smr: #{@screen_maxrow}   ... niside smaxrow #{@sheight} + #{@top} -1 - #{@pminrow}"
-      @screen_maxrow || @sheight + @top -1 -@pminrow
-    end
-    ##
-    # return screen max col which will be used for writing to window
-    def smaxcol
-      #$log.debug "    ... niside smaxcol #{@swidth} + #{@left} -1 "
-      #@swidth + @left -1
-      #      $log.debug "    ... niside smaxcol #{@swidth} + #{@left} -1 - #{@pmincol} "
-      @screen_maxcol || @swidth + @left -1 - @pmincol
-    end
-    ##
-    # specify the window or subwin that the pad is writing to
-    # 2010-02-20 22:45 - actually since there are pad methods smaxrow used on otherwin
-    # therefor it can only be a Pad !! NOTE
-    def set_backing_window win
-      @otherwin = win
-      # XX should we  extract the coordinates and use for printing ??
-      # or for setting maxrow and maxcol
-    end
-    # trying to make things as easy as possible
-    # returns -1 if error in prefresh
-    def wrefresh
-      $log.debug " inside pad's wrefresh #{@window}. minr,minc,top,left,smaxr,c: #{@pminrow}, #{@pmincol}, #{@top} #{@left} #{smaxrow()} #{smaxcol()} self: #{self.name} "
-
-      # caution, prefresh uses maxrow and maxcol not height and width
-      # so we have to add top and less one since we are zero based
-      ret = @window.prefresh(@pminrow, @pmincol, @top, @left, smaxrow(), smaxcol())
-      $log.warn " WREFRESH returns -1 ERROR - width or height must be exceeding " if ret == -1
-      @modified = false
-      return ret
-    end
-    ##
-    # copy the window to the pad (assumes we are writing onto win and keeping
-    # pad as backup
-    # also assuming only one win so, window not passed as param
-    # @return return value of copywin which should be 0 (-1 is ERR)
-    def copy_pad_to_win
-      $log.warn " DEPRECATED copy_pad_to_win" # CLEANUP
-      raise "DEPREC copy_pad_to_win deprecated. Will be removed. Let me know if it is needed"
-      # check that we don't exceed other windows height/maxrow
-      smr = smaxrow()
-      # SHIT, this means the otherwin has to be a Pad, cannot be a window
-      osw = @otherwin.width
-      osh = @otherwin.height
-      osh = @height if osh == 0 # root window has 0
-      osw = @width if osw == 0 # root window has 0
-      osmr = @otherwin.smaxrow() rescue osh # TRYING for windows
-      osmc = @otherwin.smaxcol() rescue osw
-      if smr >= osmr
-        $log.debug " adjusted smr from #{smr} to #{osmr} -1 causing issues in viewfooter"
-        smr = osmr-1 # XXX causing issues in viewport, wont print footer with this
-      end
-      if smr > @sheight + @top -1 -@pminrow # 2010-01-17 13:27 
-        smr = @sheight + @top -1 -@pminrow 
-        $log.debug " adjusted smr to #{smr} to prevent crash "
-      end
-      smc = smaxcol()
-      $log.debug " SMC original = #{smc} "
-      if smc >= osmc
-        smc = osmc-1
-        smc = @width # XXX ??? THIS WAS WORKING< but throwing error in viewport case
-        smc = [osmc-1, @width].min # yet another hack
-        $log.debug " SMC o-1 #{osmc-1} wdth #{@width}, smc #{smc}  "
-      end
-      ### XXX commented out since it doesn't let a comp print fully if widget expanded (splitpane)
-      #smc = osw -1 if smc >= osw; # added 2009-11-02 17:01 for tabbedpanes
-
-      # dang, this is coming up a lot. 2010-01-16 20:34 
-      # the second scrollpane was one row too large in testsplit3a.rb
-      if smr - @top > @padheight
-        $log.debug " fixing smr to padheight  2010-01-16 20:35 HOPE THIS DOESNT BREAK ANYTHING"
-        smr = @padheight
-      end
-      @pminrow = 0 if @pminrow < 0
-      @pmincol = 0 if @pmincol < 0
-      $log.debug " COPYING #{self.name} to #{@otherwin.name} "
-      $log.debug " calling copy pad #{@pminrow} #{@pmincol}, #{@top} #{@left}, #{smr} #{smc} self #{self.name} "
-      $log.debug "  calling copy pad H: #{@height} W: #{@width}, PH #{@padheight} PW #{@padwidth} WIN:#{@window} "
-      #      $log.debug "  -otherwin target copy pad #{@otherwin.pminrow} #{@otherwin.pmincol}, #{@otherwin.top} #{@otherwin.left}, #{osmr} #{osmc} OTHERWIN:#{@otherwin.name} "
-      ret="-"
-      #if ret == -1
-      #x XXX        $log.debug "  #{ret} otherwin copy pad #{@otherwin.pminrow} #{@otherwin.pmincol}, #{@otherwin.top} #{@otherwin.left}, #{osmr} #{osmc} "
-      $log.debug "  #{ret} otherwin copy pad H: #{osh} W: #{osw}"
-      if @top >= osh
-        $log.debug "  #{ret} ERROR top exceeds other ht #{@top}   H: #{osh} "
-      end
-      if @left >= osw
-        $log.debug "  #{ret} ERROR left exceeds other wt #{@left}   W: #{osw} "
-      end
-      if smr >= osh
-        $log.debug "  #{ret} ERROR smrow exceeds other ht #{smr}   H: #{osh} "
-        smr = osh() -1 # testing 2010-01-31 21:47  , again 2010-02-05 20:22 
-      end
-      if smc >= osw
-        $log.debug "  #{ret} ERROR smcol exceeds other wt #{smc}   W: #{osw} "
-      end
-      if smc - @left > @padwidth
-        $log.debug "  #{ret} ERROR smcol - left  exceeds padwidth   #{smc}- #{@left}   PW: #{@padwidth} "
-      end
-      if smr - @top > @padheight
-        $log.debug "  #{ret} ERROR smr  - top  exceeds padheight   #{smr}- #{@top}   PH: #{@padheight} "
-      end
-      ret = @window.copywin(@otherwin.get_window,@pminrow,@pmincol, @top, @left, smr, smc, 0)
-      $log.debug " copywin ret #{ret} "
-      # 2010-01-11 19:42 one more cause of -1 coming is that padheight (actual height which never
-      # changes unless pad increases) or padwidth is smaller than area being printed. Solution: increase 
-      # buffer by increasing widgets w or h. smc - left should not exceed padwidth. smr-top should not
-      # exceed padheight
-      #end
-      @modified = false
-      return ret
-    end
-    # @deprecated
-    def copy_win_to_pad
-      $log.warn " DEPRECATED copy_win_to_pad" # CLEANUP 2011-09-29 
-      raise "DEPREC copy_win_to_pad deprecated. Will be removed. Let me know if it is needed"
-      smr = smaxrow()
-      if smr >= @window.smaxrow()
-        smr = @window.smaxrow()-1
-      end
-      $log.debug " copy_win_to_pad #{@otherwin.name}, #{@window.name}, pminr:#{@pminrow} pminc:#{@pmincol} top:#{@top} left:#{@left} smr:#{smr} "
-      ret = @otherwin.copywin(@window.get_window,@pminrow,@pmincol, @top, @left, smr, smaxcol(), 1)
-      @modified = false
-      return ret
-    end
-    ## 
-    #Used to overwrite the pad onto the screen window
-    # A window should have been specified as window to back (@see set_backing_window) or (@see create_with_window)
-    def overwrite_window
-      return @window.overwrite(@otherwin.get_window)
-    end
-
-    ## 
-    #  convenience method so that pad can use printstring but remove screen's row and col
-    #  The absolute row and col will be taken into consideration when printing on screen.
-    #  
-    # @param [Fixnum] row row to print on
-    # @param [Fixnum] col column to print on
-    # @param [String] value to print
-    # @param [Fixnum] color - color combination
-    # @param [Fixnum, nil] attrib defaults to NORMAL
-
-    # Pls remove the raise once the program is working, extra line can slow things down
-    # Keep it on when testing.
-    # If the raise is thrown, it means your object could be positioned higher than it should be,
-    # or at some point you have increased top, without increasing the objects row.
-    def printstring(row,col,value,color,attrib=Ncurses::A_NORMAL)
-      #$log.debug " pad printstring #{row} - #{@top} , #{col} - #{@left} "
-      raise "printstring row < top, pls correct code #{row} #{@top}, #{col} #{@left} " if row < @top or col < @left
-      #$log.warn "printstring row < top, pls correct code #{row} #{@top} " if row < @top
-      super(row - @top, col - @left, value, color, attrib)
-    end # printstring
-    #  convenience method so that pad can use print_border but remove screen's row and col
-    #  Please note that this requires that buffer have latest top and left.
-    def print_border row, col, height, width, color, att=Ncurses::A_NORMAL
-      $log.debug " pad printborder #{row} - #{@top} , #{col} - #{@left}, #{height} , #{width}  "
-      raise "print_border: row < top, pls correct code #{row} #{@top},  #{col} #{@left} " if row < @top or col < @left
-      #$log.warn   "print_border: row < top, pls correct code #{row} #{@top} " if row < @top
-      super(row - @top, col - @left, height, width,  color, att)
-    end
-    def print_border_only row, col, height, width, color, att=Ncurses::A_NORMAL
-      $log.debug " pad printborder_only #{row} - #{@top} , #{col} - #{@left}, #{height} , #{width}  "
-      raise "print_border row < top, pls correct code #{row} #{@top},  #{col} #{@left} " if row < @top or col < @left
-      super(row - @top, col - @left, height, width,  color, att)
-    end
-    # use in place of mvwhline if your widget could be using a pad or window
-    def rb_mvwhline row, col, char, width
-      super(row-@top, col-@left, char, width)
-    end
-    # use in place of mvwvline if your widget could be using a pad or window
-    def rb_mvwvline row, col, char, width
-      super(row-@top, col-@left, char, width)
-    end
-    # use in place of mvaddch if your widget could be using a pad or window
-    def rb_mvaddch row, col, char
-      super(row-@top, col-@left, char)
-    end
-  end # class Pad
+end
 end