rbcurse-core 0.0.1 → 0.0.2

data/lib/rbcurse/core/widgets/rmenu.rb

@@ -685,6 +685,7 @@ module RubyCurses
     end
     def init_vars
       @active_index = 0
+      @repaint_required = true
     end
     def focusable
       false
@@ -745,6 +746,7 @@ module RubyCurses
     # menubar LEFT, RIGHT, DOWN 
     def handle_keys
       @selected = false
+      @repaint_required = true # added 2011-12-12 otherwise keeps repainting and you see a flicker
       @toggle_key ||= 27 # default switch off with ESC, if nothing else defined
       set_menu 0
       begin
@@ -804,6 +806,7 @@ module RubyCurses
         #ensure is required becos one can throw a :close
         $log.debug " DESTROY IN ENSURE"
         current_menu.clear_menus #@@menus = [] # added 2009-01-23 13:21 
+        @repaint_required = false
         destroy  # Note that we destroy the menu bar upon exit
       end
     end
@@ -843,12 +846,14 @@ module RubyCurses
     end
     ## menubar
     # TODO: check for menu to be flush right (only for last one).
+    # TODO: repaint only if needed
     def repaint
       return if !@visible
+      return unless @repaint_required
+      @repaint_required = false
       @color_pair = get_color($reversecolor, @color, @bgcolor)
       @window ||= create_window_menubar
-#      @window.printstring( 0, 0, "%-*s" % [@cols," "], $reversecolor) # changed 2011 2011-09-24   
-      @window.printstring( 0, 0, "%-*s" % [@cols," "], @color_pair)
+      #@window.printstring( 0, 0, "%-*s" % [@cols," "], @color_pair) # this becomes blank in some terms
       c = 1; r = 0;
       @items.each do |item|
         item.row = r; item.col = c; item.coffset = c; item.parent = self
@@ -871,15 +876,29 @@ module RubyCurses
       @layout = { :height => 1, :width => 0, :top => 0, :left => 0 } 
       @win = VER::Window.new(@layout)
       @window = @win
+      att = get_attrib @attr
       @win.bkgd(Ncurses.COLOR_PAIR(5)); # <---- FIXME
+      len = @window.width
+      len = Ncurses.COLS-0 if len == 0
+      # print a bar across the screen , which hopefully will not go blank in some terms
+      @window.attron(Ncurses.COLOR_PAIR(@color_pair) | att)
+      @window.mvhline(0, 0, 1, len)
+      @window.attroff(Ncurses.COLOR_PAIR(@color_pair) | att)
       @panel = @win.panel
       return @window
     end
     def destroy
       $log.debug "DESTRY menubar "
+
+      # when we close, but keep visible, we don't want menu to still be hightlighted
+      # added on 2011-12-12 
+      menu = @items[@active_index]
+      menu.on_leave # hide its window, if open
+
       @items.each do |item|
         item.destroy
       end
+      # TODO the current menu should not be highlighted
       return if @keep_visible
       @visible = false
       panel = @window.panel

data/lib/rbcurse/core/widgets/rtextarea.rb

@@ -20,6 +20,7 @@ require 'rbcurse'
 require 'rbcurse/core/include/listscrollable'
 require 'rbcurse/core/include/rinputdataevent'
 require 'rbcurse/core/include/listeditable'
+require 'rbcurse/core/include/bordertitle'
 
 #include Ncurses # FFI 2011-09-8 
 include RubyCurses
@@ -37,16 +38,16 @@ module RubyCurses
     include ListScrollable
     # NOTE: common editing functions moved to listeditable 
     include ListEditable
-    dsl_accessor :title
-    dsl_accessor :title_attrib   # bold, reverse, normal
-    dsl_accessor :footer_attrib  # bold, reverse, normal added 2009-12-26 18:25 was this missing or delib
+    #dsl_accessor :title
+    #dsl_accessor :title_attrib   # bold, reverse, normal
+    #dsl_accessor :footer_attrib  # bold, reverse, normal added 2009-12-26 18:25 was this missing or delib
     dsl_accessor :list           # the array of data to be sent by user
     dsl_accessor :maxlen         # max display length of a row/line 
     attr_reader :toprow
     dsl_accessor :auto_scroll    # boolean, keeps view at end as data is inserted.
     dsl_accessor :print_footer
     dsl_accessor :editable          # allow editing
-    dsl_accessor :suppress_borders # added 2010-02-12 12:21 values true or false
+    #dsl_accessor :suppress_borders # added 2010-02-12 12:21 values true or false
     attr_accessor :overwrite_mode # boolean: insert or overwrite, default false.
 
     def initialize form = nil, config={}, &block
@@ -72,21 +73,18 @@ module RubyCurses
       # 2010-01-10 19:35 compute locally if not set
       install_keys
       init_vars
+      bordertitle_init
     end
     def init_vars
       @repaint_required = true
       @repaint_footer_required = true # 2010-01-23 22:41 
       @toprow = @current_index = @pcol = 0
       @repaint_all=true 
-      ## 2010-02-12 12:20 RFED16 taking care if no border requested
-      @row_offset = @col_offset = 0 if @suppress_borders == true
-      # added 2010-02-11 15:11 RFED16 so we don't need a form.
-      @win_left = 0
-      @win_top = 0
+      @row_offset = @col_offset = 0 if @suppress_borders
       @longest_line = 0
       # if borders used, reduce 2 from width else 0
       @internal_width = 2
-      @internal_width = 2 if @suppress_borders
+      @internal_width = 2 if @suppress_borders # WHAT THE !!!! It should be zero
       bind_key(?\M-w, :kill_ring_save)
       bind_key(?\C-y, :yank)
       bind_key(?\M-y, :yank_pop)
@@ -180,7 +178,7 @@ module RubyCurses
     end
     ##
     # private
-    def print_borders
+    def OLDprint_borders
       window = @graphic # 2009-12-26 14:54 BUFFERED
       @color_pair = get_color($datacolor) # 2011-09-28 V1.3.1 
       bordercolor = @border_color || @color_pair
@@ -202,7 +200,7 @@ module RubyCurses
   
     end
     # private
-    def print_title
+    def OLDprint_title
       # truncate title if longer than width
       return unless @title
       @color_pair ||= get_color($datacolor)
@@ -279,33 +277,49 @@ module RubyCurses
 
     def map_keys
       return if @keys_mapped
-      bind_key(Ncurses::KEY_LEFT){ cursor_backward }
-      bind_key(Ncurses::KEY_RIGHT){ cursor_forward }
-      bind_key(Ncurses::KEY_UP){ ret = up;  get_window.ungetch(KEY_BTAB) if ret == :NO_PREVIOUS_ROW }
+      @key_map = :both # get both vim and emacs keys
+      require 'rbcurse/core/include/listbindings'
+      bindings
+      #
+      # There's one issue, if using vim keys, most of them won't
+      # work in text area. So you will need emacs keys in text area.
+
+      # moved to listbin
+      #bind_key(Ncurses::KEY_LEFT){ cursor_backward }
+      #bind_key(Ncurses::KEY_RIGHT){ cursor_forward }
+      #bind_key(Ncurses::KEY_UP){ ret = up;  get_window.ungetch(KEY_BTAB) if ret == :NO_PREVIOUS_ROW }
       # the next was irritating if user wanted to add a row ! 2011-10-10 
-      #bind_key(Ncurses::KEY_DOWN){ ret = down ; get_window.ungetch(KEY_TAB) if ret == :NO_NEXT_ROW }
-      bind_key(Ncurses::KEY_DOWN){ ret = down ; }
-      bind_key(?\C-a, 'start of line'){ cursor_bol }
-      bind_key(?\C-e, 'end of line'){ cursor_eol }
-      bind_key(?\C-d, 'scroll forward') { scroll_forward }
-      bind_key(?\C-b, 'scroll backward') { scroll_backward }
-      bind_key(?\C-[, 'goto start') { goto_start }
-      bind_key(?\C-], 'goto end') { goto_end }
+      ##bind_key(Ncurses::KEY_DOWN){ ret = down ; get_window.ungetch(KEY_TAB) if ret == :NO_NEXT_ROW }
+      #bind_key(Ncurses::KEY_DOWN){ ret = down ; }
 
       bind_key(KEY_BACKSPACE){ delete_prev_char if @editable }
       bind_key(KEY_BSPACE){ delete_prev_char if @editable}
       bind_key(?\M-d, :delete_word)
       bind_key(?\M-f, :forward_word)
 
-      #bind_key(127){ delete_prev_char }
-      bind_key(330, 'delete current char'){ delete_curr_char if @editable }
-      #bind_key(?\C-k){ delete_eol }
-      #bind_key(?\C-_){ undo_delete_eol }
+      # earlier 330
+      bind_key(FFI::NCurses::KEY_DC, 'delete current char'){ delete_curr_char if @editable }
+      bind_key(?\C-k, 'kill line'){ kill_line }
+      bind_key(?\C-_, 'undo'){ undo }
+      bind_key(?\C-r, 'redo') { text_redo }
       #bind_key(27){ set_buffer @original_value }
-      bind_key([?\C-x, ?e], :edit_external)
-      bind_key([?\C-x, ?\C-s], :saveas)
+      #bind_key([?\C-x, ?e], :edit_external)
+      #bind_key([?\C-x, ?\C-s], :saveas)
       @keys_mapped = true
     end
+    # mimicking emacs behavior of C-k.
+    # delete entire line if at start, else delete till eol
+    def kill_line
+        # i'ved added curpos == 0 since emacs deletes a line if cursor is at 0
+        # Earlier behavior was based on alpine which leaves a blank line
+        if @editable
+          if @buffer.chomp == "" || @curpos == 0
+            delete_line
+          else
+            delete_eol 
+          end
+        end
+    end
 
     # textarea
     def handle_key ch
@@ -332,49 +346,15 @@ module RubyCurses
       end
       #$log.debug "TA: after : curpos #{@curpos} blen: #{@buffer.length}, w: #{@width} max #{@maxlen}"
       
+      #NOTE C-d being used for del what of scroll !!
       case ch
-      when KEY_ENTER, 10, KEY_RETURN
+      when KEY_ENTER, KEY_RETURN, FFI::NCurses::KEY_ENTER # numeric enter
         insert_break
-      when Ncurses.KEY_BACKSPACE, Ncurses.KEY_BSPACE
-        if @editable   # checking here means that i can programmatically bypass!!
-          delete_prev_char 
-        end
-      when Ncurses.KEY_DELETE, ?\C-d.getbyte(0) # delete char
-        if @editable
-          delete_curr_char 
-        end
-      when ?\C-k.getbyte(0) # delete till eol
-        # i'ved added curpos == 0 since emacs deletes a line if cursor is at 0
-        # Earlier behavior was based on alpine which leaves a blank line
-        if @editable
-          #if @buffer == ""
-          if @buffer.chomp == "" || @curpos == 0
-            delete_line
-          else
-            delete_eol 
-          end
-        end
       #when ?\C-u.getbyte(0)
         ## since textareas are editable we use a control key to increase
         ## multiplier. Series is 4 16 64
         #@multiplier = (@multiplier == 0 ? 4 : @multiplier *= 4)
         #return 0
-      when ?\C-_.getbyte(0) # changed from C-u so i can use C-u for multipliers
-        undo
-      when ?\C-r.getbyte(0) # redo if UndoHandler installed
-        text_redo # won't accept name redo
-      #when @KEY_ASK_FIND_FORWARD
-      #  ask_search_forward
-      #when @KEY_ASK_FIND_BACKWARD
-      #  ask_search_backward
-      when @KEY_ASK_FIND
-        ask_search
-      when @KEY_FIND_MORE
-        find_more
-      #when @KEY_FIND_NEXT
-      #  find_next
-      #when @KEY_FIND_PREV
-      #  find_prev
       else
         #$log.debug(" textarea ch #{ch}")
         ret = putc ch

data/lib/rbcurse/core/widgets/rtextview.rb

@@ -14,6 +14,7 @@ TODO
 require 'logger'
 require 'rbcurse'
 require 'rbcurse/core/include/listscrollable'
+require 'rbcurse/core/include/bordertitle'
 require 'forwardable'
 
 include RubyCurses
@@ -30,19 +31,15 @@ module RubyCurses
     include ListScrollable
     extend Forwardable
     #dsl_accessor :height  # height of viewport cmmented on 2010-01-09 19:29 since widget has method
-    dsl_accessor :title   # set this on top
-    dsl_accessor :title_attrib   # bold, reverse, normal
+    #dsl_accessor :title   # set this on top
+    #dsl_accessor :title_attrib   # bold, reverse, normal
     dsl_accessor :footer_attrib   # bold, reverse, normal
     dsl_accessor :list    # the array of data to be sent by user
     dsl_accessor :maxlen    # max len to be displayed
     attr_reader :toprow    # the toprow in the view (offsets are 0)
-#    attr_reader :prow     # the row on which cursor/focus is
-    #attr_reader :winrow   # the row in the viewport/window
     # painting the footer does slow down cursor painting slightly if one is moving cursor fast
     dsl_accessor :print_footer
-    dsl_accessor :suppress_borders # added 2010-02-10 20:05 values true or false
     attr_reader :current_index
-    dsl_accessor :border_attrib, :border_color # 
     dsl_accessor :sanitization_required
 
     def initialize form = nil, config={}, &block
@@ -65,6 +62,7 @@ module RubyCurses
       @_events << :PRESS # new, in case we want to use this for lists and allow ENTER
       @_events << :ENTER_ROW # new, should be there in listscrollable ??
       install_keys # do something about this nonsense FIXME
+      bordertitle_init
       init_vars
     end
     def init_vars #:nodoc:
@@ -81,23 +79,16 @@ module RubyCurses
       # longest line on screen.
       @longest_line = 0 # the longest line printed on this page, used to determine if scrolling shd work
       @internal_width = 2
-      @internal_width = 0 if @suppress_borders
+      @internal_width = 0 if @suppress_borders # NOTE bordertitle says 1
 
+      @search_found_ix = nil # so old searches don't get highlighted
     end
     def map_keys
-      bind_key([?g,?g], 'goto start'){ goto_start } # mapping double keys like vim
-      bind_key(?G, 'goto end'){ goto_bottom() }
-      bind_key([?',?'], 'goto last position'){ goto_last_position } # vim , goto last row position (not column)
-      bind_key(?/, :ask_search)
-      bind_key(?n, :find_more)
-      bind_key([?\C-x, ?>], :scroll_right)
-      bind_key([?\C-x, ?<], :scroll_left)
-      bind_key(?\M-l, :scroll_right)
-      bind_key(?\M-h, :scroll_left)
-      bind_key([?\C-x, ?\C-s], :saveas)
-      bind_key([?\C-x, ?e], :edit_external)
-      bind_keys([?\C-d, 32], 'scroll forward'){ scroll_forward() }
-      bind_key(?\C-b, 'scroll backward'){ scroll_backward() }
+      require 'rbcurse/core/include/listbindings'
+      bindings()
+      #bind_key([?\C-x, ?\C-s], :saveas)
+      #bind_key([?\C-x, ?e], :edit_external)
+      bind_key(32, 'scroll forward'){ scroll_forward() }
       # have placedhere so multi-bufer can override BS to prev buffer
       bind_keys([KEY_BACKSPACE,KEY_BSPACE,KEY_DELETE], :cursor_backward)
       bind_key(?r) { getstr("Enter a word: ") } if $log.debug?
@@ -215,33 +206,6 @@ module RubyCurses
       txt.gsub(/(.{1,#{col}})( +|$\n?)|(.{1,#{col}})/,
                "\\1\\3\n") 
     end
-    ## print a border
-    ## Note that print_border clears the area too, so should be used sparingly.
-    def print_borders #:nodoc:
-      raise "textview needs width" unless @width
-      raise "textview needs height" unless @height
-
-      $log.debug " #{@name} print_borders,  #{@graphic.name} "
-      
-      @color_pair = get_color($datacolor) # added 2011-09-28 as in rlistbox
-#      bordercolor = @border_color || $datacolor # changed 2011 dts  
-      bordercolor = @border_color || @color_pair # 2011-09-28 V1.3.1 
-      borderatt = @border_attrib || Ncurses::A_NORMAL
-      @graphic.print_border @row, @col, @height-1, @width, bordercolor, borderatt
-      print_title
-    end
-    def print_title #:nodoc:
-      return unless @title
-      raise "textview needs width" unless @width
-      @color_pair ||= get_color($datacolor) # should we not use this ??? XXX 
-
-      # check title.length and truncate if exceeds width
-      _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
     def print_foot #:nodoc:
       @footer_attrib ||= Ncurses::A_REVERSE
       footer = "R: #{@current_index+1}, C: #{@curpos+@pcol}, #{@list.length} lines  "
@@ -309,7 +273,7 @@ module RubyCurses
       $log.debug " textview got ch #{ch} "
       @old_pcol = @pcol
       @buffer = @list[@current_index]
-      if @buffer.nil? and row_count == 0
+      if @buffer.nil? && row_count == 0
         @list << "\r"
         @buffer = @list[@current_index]
       end
@@ -334,12 +298,10 @@ module RubyCurses
         # This should be configurable, or only if all rows are visible
         #get_window.ungetch(KEY_TAB) if ret == :NO_NEXT_ROW
         check_curpos
-      when KEY_LEFT, ?h.getbyte(0)
-        cursor_backward
-      when KEY_RIGHT, ?l.getbyte(0)
-        cursor_forward
-      #when KEY_BACKSPACE, KEY_BSPACE, KEY_DELETE
+      #when KEY_LEFT, ?h.getbyte(0)
         #cursor_backward
+      #when KEY_RIGHT, ?l.getbyte(0)
+        #cursor_forward
       when ?\C-a.getbyte(0) #, ?0.getbyte(0)
         # take care of data that exceeds maxlen by scrolling and placing cursor at start
         @repaint_required = true if @pcol > 0 # tried other things but did not work
@@ -351,12 +313,7 @@ module RubyCurses
         # it only goes to end of visible screen, set_form probably does a sanity check
         blen = row_length # @buffer.rstrip.length FIXME
         set_form_col blen
-        # search related 
-      when @KEY_ASK_FIND
-        ask_search
-      when @KEY_FIND_MORE
-        find_more
-      when 10, 13, KEY_ENTER
+      when KEY_ENTER, FFI::NCurses::KEY_ENTER
         #fire_handler :PRESS, self
         fire_action_event
       when ?0.getbyte(0)..?9.getbyte(0)

data/lib/rbcurse/core/widgets/rtree.rb

@@ -16,6 +16,7 @@ TODO:
 require 'rbcurse'
 require 'rbcurse/core/widgets/tree/treemodel'
 require 'rbcurse/core/widgets/tree/treecellrenderer'
+require 'rbcurse/core/include/bordertitle'
 
 TreeSelectionEvent = Struct.new(:node, :tree, :state, :previous_node, :row_first)
 
@@ -32,9 +33,9 @@ module RubyCurses
     include ListScrollable
     #extend Forwardable
     dsl_accessor :height
-    dsl_accessor :title
-    dsl_property :title_attrib   # bold, reverse, normal
-    dsl_accessor :border_attrib, :border_color # FIXME not used currently
+    #dsl_accessor :title
+    #dsl_property :title_attrib   # bold, reverse, normal
+    #dsl_accessor :border_attrib, :border_color # FIXME not used currently
 
     attr_reader :toprow
   #  attr_reader :prow
@@ -44,7 +45,7 @@ module RubyCurses
     dsl_accessor :selected_color, :selected_bgcolor, :selected_attr
     dsl_accessor :max_visible_items   # how many to display 2009-01-11 16:15 
     dsl_accessor :cell_editing_allowed # obsolete
-    dsl_accessor :suppress_borders
+    #dsl_accessor :suppress_borders
     dsl_property :show_selector
     dsl_property :row_selected_symbol # 2009-01-12 12:01 changed from selector to selected
     dsl_property :row_unselected_symbol # added 2009-01-12 12:00 
@@ -82,14 +83,15 @@ module RubyCurses
       @longest_line = 0
       
      
-      @win_left = 0
-      @win_top = 0
+      #@win_left = 0
+      #@win_top = 0
       @_events.push(*[:ENTER_ROW, :LEAVE_ROW, :TREE_COLLAPSED_EVENT, :TREE_EXPANDED_EVENT, :TREE_SELECTION_EVENT, :TREE_WILL_COLLAPSE_EVENT, :TREE_WILL_EXPAND_EVENT])
 
       
       bind(:PROPERTY_CHANGE){|e| @cell_renderer = nil } # will be recreated if anything changes 2011-09-28 V1.3.1  
       # FIXME the above is dangerous if user set his own renderer with some values XXX
       init_vars
+      bordertitle_init
 
       #if !@list.selected_index.nil? 
         #set_focus_on @list.selected_index # the new version
@@ -109,48 +111,28 @@ module RubyCurses
       @row_offset = @col_offset = 0 if @suppress_borders
       @internal_width = 2 # taking into account borders accounting for 2 cols
       @internal_width = 0 if @suppress_borders # should it be 0 ???
+      map_keys unless @keys_mapped
 
     end
     # maps keys to methods
     # checks @key_map can be :emacs or :vim.
     def map_keys
       @keys_mapped = true
-      $log.debug " cam in XXXX  map keys"
-      bind_key(32){ toggle_row_selection() }
-      bind_key(KEY_ENTER) { toggle_expanded_state() }
-      bind_key(?o) { toggle_expanded_state() }
-      bind_key(?f){ ask_selection_for_char() }
-      bind_key(?\M-v){ @one_key_selection = !@one_key_selection }
-      bind_key(KEY_DOWN){ next_row() }
-      bind_key(KEY_UP){ previous_row() }
-      bind_key(?O){ expand_children() }
-      bind_key(?X){ collapse_children() }
+      bind_key(32, 'toggle row selection'){ toggle_row_selection() }
+      bind_key(KEY_ENTER, 'toggle expanded state') { toggle_expanded_state() }
+      bind_key(?o, 'toggle expanded state') { toggle_expanded_state() }
+      bind_key(?f, 'first row starting with char'){ ask_selection_for_char() }
+      bind_key(?\M-v, 'one key selection toggle'){ @one_key_selection = !@one_key_selection }
+      bind_key(?O, 'expand children'){ expand_children() }
+      bind_key(?X, 'collapse children'){ collapse_children() }
       bind_key(?>, :scroll_right)
       bind_key(?<, :scroll_left)
-      bind_key(?\M-l, :scroll_right)
-      bind_key(?\M-h, :scroll_left)
       # TODO
-      bind_key(?x){ collapse_parent() }
-      bind_key(?p){ goto_parent() }
-      if $key_map == :emacs
-        $log.debug " EMACSam in XXXX  map keys"
-        bind_key(?\C-v){ scroll_forward }
-        bind_key(?\M-v){ scroll_backward }
-        bind_key(?\C-s){ ask_search() }
-        bind_key(?\C-n){ next_row() }
-        bind_key(?\C-p){ previous_row() }
-        bind_key(?\M->){ goto_bottom() }
-        bind_key(?\M-<){ goto_top() }
-      else # :vim
-        $log.debug " VIM cam in XXXX  map keys"
-        bind_key(?j){ next_row() }
-        bind_key(?k){ previous_row() }
-        bind_key(?\C-d){ scroll_forward }
-        bind_key(?\C-b){ scroll_backward }
-        bind_key(?G){ goto_bottom() }
-        bind_key([?g,?g]){ goto_top() }
-        bind_key(?/){ ask_search() }
-      end
+      bind_key(?x, 'collapse parent'){ collapse_parent() }
+      bind_key(?p, 'goto parent'){ goto_parent() }
+      require 'rbcurse/core/include/listbindings'
+      #ListBindings.bindings
+      bindings
     end
 
     ##
@@ -270,7 +252,7 @@ module RubyCurses
       toggle_row_selection
       @default_value = nil
     end
-    def print_borders
+    def OLDprint_borders
       width = @width
       height = @height-1 # 2010-01-04 15:30 BUFFERED HEIGHT
       window = @graphic  # 2010-01-04 12:37 BUFFERED
@@ -284,7 +266,7 @@ module RubyCurses
       window.print_border startrow, startcol, height, width, bordercolor, borderatt
       print_title
     end
-    def print_title
+    def OLDprint_title
       return unless @title
       _title = @title
       if @title.length > @width - 2
@@ -301,7 +283,7 @@ module RubyCurses
       @list
     end
     def get_window
-      @graphic # 2010-01-04 12:37 BUFFERED
+      @graphic 
     end
     ### END FOR scrollable ###
     # override widgets text
@@ -313,7 +295,6 @@ module RubyCurses
       return if @list.nil? || @list.empty?
       @current_index ||= 0
       @toprow ||= 0
-      map_keys unless @keys_mapped
       h = scrollatrow()
       rc = row_count
       $log.debug " tree got ch #{ch}"
@@ -451,8 +432,8 @@ module RubyCurses
    
       raise " #{@name} neither form, nor target window given TV paint " unless my_win
       raise " #{@name} NO GRAPHIC set as yet                 TV paint " unless @graphic
-      @win_left = my_win.left
-      @win_top = my_win.top
+      #@win_left = my_win.left
+      #@win_top = my_win.top
 
       $log.debug "rtree repaint  #{@name} graphic #{@graphic}"
       print_borders unless @suppress_borders # do this once only, unless everything changes