rbcurse 0.1.3 → 1.1.1

data/lib/rbcurse/listeditable.rb

@@ -0,0 +1,306 @@
+# Some methods for manipulating lists
+# Different components may bind different keys to these
+# Currently will be called by TextArea and the editable version
+# of TextView (vieditable).
+#
+require 'rbcurse/rinputdataevent'
+module ListEditable
+
+    def remove_all
+      @list = []
+      set_modified  # added 2009-02-13 22:28 so repaints
+    end
+    # current behav is a mix of vim's D and C-k from alpine, i don;t know how i screwed it up like this
+    # Should be:
+    # 1. do not take cursor back by 1 (this is vims D behavior)
+    # 2. retain EOL, we need to evaluate at undo
+    # 3. if nothing coming in delete buffer then join next line here
+    # 4. if line is blank, it will go to delete line (i think).
+    # Earlier, a C-k at pos 0 would blank the line and not delete it (copied from alpine).
+    # The next C-k would delete. emacs deletes if C-k at pos 0.
+    def delete_eol
+      return -1 unless @editable
+      pos = @curpos -1 # retain from 0 till prev char
+      @delete_buffer = @buffer[@curpos..-1]
+      # currently eol is there in delete_buff often. Should i maintain it ? 2010-03-08 18:29 UNDO
+      #@delete_buffer.chomp! # new 2010-03-08 18:29 UNDO - this worked but hope does not have othe impact
+
+      # if pos is 0, pos-1 becomes -1, end of line!
+      @list[@current_index] = pos == -1 ? "" : @buffer[0..pos]
+      $log.debug "delete EOL :pos=#{pos}, #{@delete_buffer}: row: #{@list[@current_index]}:"
+      @buffer = @list[@current_index]
+      if @delete_buffer == ""
+        $log.debug " TA: DELETE going to join next "
+        join_next_line # pull next line in
+      end
+      oldcur = @curpos
+      #x cursor_backward if @curpos > 0 #  this was vims behavior -- knoecked off
+      #fire_handler :CHANGE, self  # 2008-12-09 14:56 
+      fire_handler :CHANGE, InputDataEvent.new(oldcur,oldcur+@delete_buffer.length, self, :DELETE, @current_index, @delete_buffer)     #  2008-12-24 18:34 
+      set_modified 
+      return @delete_buffer
+    end
+    def join_next_line
+      # return if last line  TODO
+      buff = @list.delete_at(@current_index + 1)
+      if buff
+        $log.debug " TA: DELETE inside to join next #{buff}  "
+        fire_handler :CHANGE, InputDataEvent.new(0,0+buff.length, self, :DELETE_LINE, @current_index+1, buff)  
+        @buffer << buff
+      end
+    end
+  # deletes given line or current
+  # now fires DELETE_LINE so no guessing by undo manager
+  def delete_line line=@current_index
+    return -1 unless @editable
+    if !$multiplier or $multiplier == 0 
+      @delete_buffer = @list.delete_at line
+    else
+      @delete_buffer = @list.slice!(line, $multiplier)
+    end
+    $multiplier = 0
+    add_to_kill_ring @delete_buffer
+    @buffer = @list[@current_index]
+    if @buffer.nil?
+      up
+      setrowcol @row + 1, nil # @form.col
+    end
+    # warning: delete buffer can now be an array
+    fire_handler :CHANGE, InputDataEvent.new(@curpos,@curpos+@delete_buffer.length, self, :DELETE_LINE, line, @delete_buffer)     #  2008-12-24 18:34 
+    set_modified 
+  end
+    def delete_curr_char num=($multiplier == 0 ? 1 : $multiplier)
+      return -1 unless @editable
+      delete_at @curpos, num # changed so only one event, and one undo
+      set_modified 
+      $multiplier = 0
+    end
+    # 
+    # 2010-03-08 23:30 does not seem to be working well when backspacing at first char of line
+    # FIXME should work as a unit, so one undo and one fire_handler, at least if on one line.
+    def delete_prev_char num=($multiplier == 0 ? 1 : $multiplier)
+      return -1 if !@editable 
+      num.times do
+        if @curpos <= 0
+          join_to_prev_line
+          return
+        end
+        @curpos -= 1 if @curpos > 0
+        delete_at
+        set_modified 
+        addcol -1
+      end
+      $multiplier = 0
+    end
+    # open a new line and add chars to it.
+    # FIXME does not fire handler, thus won't undo
+    def append_row lineno=@current_index, chars=""
+        $log.debug "append row sapce:#{chars}."
+      @list.insert lineno+1, chars
+    end
+    ##
+    # delete character/s on current line
+    def delete_at index=@curpos, howmany=1
+      return -1 if !@editable 
+      $log.debug "delete_at (characters) : #{@current_index} #{@buffer} #{index}"
+      char = @buffer.slice!(@curpos,howmany)  # changed added ,1 and take char for event
+      # if no newline at end of this then bring up prev character/s till maxlen
+      # NO WE DON'T DO THIS ANYLONGER 2008-12-26 21:09 lets see
+=begin
+      if @buffer[-1,1]!="\r"
+        @buffer[-1]=" " if @buffer[-1,1]=="\n"
+        if !next_line.nil? and next_line.length > 0
+          move_chars_up
+        end
+      end
+=end
+      set_modified true
+      fire_handler :CHANGE, InputDataEvent.new(@curpos,@curpos+howmany, self, :DELETE, @current_index, char)     #  2008-12-24 18:34 
+    end
+    def undo_handler(uh)
+      @undo_handler = uh
+    end
+    ## THIS ONE SHOULD BE IN TEXTVIEW ALSO
+    # saves current or n lines into kill ring, appending to earlier contents
+    # Use yank (paste) or yank-pop to retrieve
+    def kill_ring_save
+      pointer = @current_index
+      list = []
+      repeatm {
+        line =  @list[pointer] 
+        list << line unless line.nil?
+        pointer += 1
+      }
+      add_to_kill_ring list
+    end
+    ## THIS ONE SHOULD BE IN TEXTVIEW ALSO
+    # add given line or lines to kill_ring
+    def add_to_kill_ring list
+      # directly referenceing kill_ring.  We need to OO it a bit, so we can change internals w'o breaking all.
+      # FIXME
+      if $append_next_kill
+        # user requested this kill to be appened to last kill, so it can be yanked as one
+        #$kill_ring.last << list
+        last = $kill_ring.pop 
+        case list
+        when Array
+          list.insert 0, last
+          $kill_ring << list
+        when String
+          $kill_ring << [last, list]
+        end
+      else
+        $kill_ring << list
+      end
+      $kill_ring_pointer = $kill_ring.size
+      $append_next_kill = false
+    end
+
+    # pastes recent (last) entry of kill_ring.
+    # This can be one or more lines. Please note that for us vimmer's yank means copy
+    # but for emacsers it seems to mean paste. Aargh!!
+    def yank where=@current_index
+      return -1 if !@editable 
+      return if $kill_ring.empty?
+      row = $kill_ring.last
+      index = where
+      case row
+      when Array
+        #index = @current_index
+        row.each{ |r|
+          @list.insert index, r.dup
+          index += 1
+        }
+        $kill_last_pop_size = row.size
+      when String
+        #@list[@current_index].insert row.dup
+        #@list.insert @current_index, row.dup
+        @list.insert index, row.dup
+        $kill_last_pop_size = 1
+      else
+        raise "textarea yank got uncertain datatype from kill_ring  #{row.class} "
+      end
+      $kill_ring_pointer = $kill_ring.size - 1
+      $kill_ring_index = @current_index # pops will replace data in this row, never an insert
+      @repaint_required = true
+      # XXX not firing anything here, so i can't undo. yet, i don't know whether a yank will
+      # be followed by a yank-pop, in which case it will not be undone.
+      # object row can be string or array - time to use INSERT_LINE so we are clear
+      # row.length can be array's size or string length - beware
+      fire_handler :CHANGE, InputDataEvent.new(0,row.length, self, :INSERT_LINE, @current_index, row)
+    end
+
+    # paste previous entries from kill ring
+    # I am not totally clear on this, not being an emacs user. but seems you have to do C-y
+    # once (yank) before you can do a yank pop. 
+    def yank_pop
+      return -1 if !@editable 
+      return if $kill_ring.empty?
+      mapped_key = @current_key # we are mapped to this
+      # checking that user has done a yank on this row. We only replace on the given row, never
+      # insert. But what if user edited after yank, Sheesh ! XXX
+      if $kill_ring_index != @current_index
+        Ncurses.beep
+        return # error message required that user must yank first
+      end
+      # the real reason i put this into a loop is so that i can properly undo the
+      # action later if required. I only need to store the final selection.
+      # This also ensures the user doesn't wander off in between and come back.
+      row = nil
+      while true
+        # remove lines from last replace, then insert
+        index = @current_index
+        $kill_last_pop_size.times {
+          del = @list.delete_at index
+        }
+        row = $kill_ring[$kill_ring_pointer-$multiplier]
+        $multiplier = 0
+        index = @current_index
+        case row
+        when Array
+          row.each{ |r|
+            @list.insert index, r.dup
+            index += 1
+          }
+          $kill_last_pop_size = row.size
+        when String
+          @list.insert index, row.dup
+          $kill_last_pop_size = 1
+        else
+          raise "textarea yank_pop got uncertain datatype from kill_ring  #{row.class} "
+        end
+
+        $kill_ring_pointer -= 1
+        if $kill_ring_pointer < 0
+          # should be size, but that'll give an error. need to find a way!
+          $kill_ring_pointer = $kill_ring.size - 1
+        end
+        @repaint_required = true
+        my_win = @form || @parent_component.form # 2010-02-12 12:51 
+        my_win.repaint
+        ch = @graphic.getchar
+        if ch != mapped_key
+          @graphic.ungetch ch # seems to work fine
+          return ch # XXX to be picked up by handle_key loop and processed
+        end
+      end
+      # object row can be string or array - time to use INSERT_LINE so we are clear
+      # row.length can be array's size or string length - beware
+      fire_handler :CHANGE, InputDataEvent.new(0,row.length, self, :INSERT_LINE, @current_index, row)
+      return 0
+    end
+    def append_next_kill
+      $append_next_kill = true
+    end
+    # deletes count words on current line
+    # Does not at this point go beyond the line
+    def delete_word
+      return -1 unless @editable
+      $multiplier = 1 if !$multiplier or $multiplier == 0 
+      line = @current_index
+      pos = @curpos
+      @delete_buffer = ""
+      # currently only look in current line
+      $multiplier.times {
+        found = @buffer.index(/[[:punct:][:space:]]/, pos)
+        break if !found
+        $log.debug " delete_word: pos #{pos} found #{found} buff: #{@buffer} "
+        @delete_buffer << @buffer.slice!(pos..found)
+      }
+      return if @delete_buffer == ""
+      $log.debug " delete_word: delbuff #{@delete_buffer} "
+      add_to_kill_ring @delete_buffer
+      fire_handler :CHANGE, InputDataEvent.new(@curpos,@curpos+@delete_buffer.length, self, :DELETE, line, @delete_buffer)     #  2008-12-24 18:34 
+      set_modified 
+    end
+    ##
+    # deletes forward till the occurence of a character
+    # it gets the char from the user
+    # Should we pass in the character (and accept it as a separate func) ???
+    def delete_forward
+      return -1 unless @editable
+      ch = @graphic.getchar
+      return if ch < 0 || ch > 255
+      char = ch.chr
+      $multiplier = 1 if !$multiplier or $multiplier == 0 
+      line = @current_index
+      pos = @curpos
+      tmpbuf = ""
+      # currently only look in current line
+      $multiplier.times {
+        found = @buffer.index(char, pos)
+        break if !found
+        #$log.debug " delete_forward: pos #{pos} found #{found} buff: #{@buffer} "
+        # ideally do this in one shot outside loop, but its okay here for now
+        tmpbuf << @buffer.slice!(pos..found)
+      }
+      return if tmpbuf == ""
+      @delete_buffer = tmpbuf
+      $log.debug " delete_forward: delbuff #{@delete_buffer} "
+      add_to_kill_ring @delete_buffer
+      fire_handler :CHANGE, InputDataEvent.new(@curpos,@curpos+@delete_buffer.length, self, :DELETE, line, @delete_buffer)     #  2008-12-24 18:34 
+      set_modified 
+      $multiplier = 0
+    end
+
+end # end module

data/lib/rbcurse/listkeys.rb

@@ -4,22 +4,22 @@ module RubyCurses
     # That was possible earlier, but now that i am binding the key at construction time
     # any changes to the vars after construction won't have an effect.
     def install_list_keys
-      @KEY_ROW_SELECTOR ||= ?\C-x
-      @KEY_BLOCK_SELECTOR ||= ?\M-x
-      @KEY_GOTO_TOP ||= ?\M-0
-      @KEY_GOTO_BOTTOM ||= ?\M-9
-      #@KEY_ASK_FIND_FORWARD ||= ?\M-f
-      #@KEY_ASK_FIND_BACKWARD ||= ?\M-F
-      #@KEY_FIND_NEXT ||= ?\M-g
-      #@KEY_FIND_PREV ||= ?\M-G
-      @KEY_SCROLL_FORWARD ||= ?\C-n
-      @KEY_SCROLL_BACKWARD ||= ?\C-p
-      @KEY_SCROLL_RIGHT ||= ?\M-8
-      @KEY_SCROLL_LEFT ||= ?\M-7
+      @KEY_ROW_SELECTOR ||= ?\C-x.getbyte(0)
+      @KEY_BLOCK_SELECTOR ||= ?\M-x.getbyte(0)
+      @KEY_GOTO_TOP ||= ?\M-0.getbyte(0)
+      @KEY_GOTO_BOTTOM ||= ?\M-9.getbyte(0)
+      #@KEY_ASK_FIND_FORWARD ||= ?\M-f.getbyte(0)
+      #@KEY_ASK_FIND_BACKWARD ||= ?\M-F.getbyte(0)
+      #@KEY_FIND_NEXT ||= ?\M-g.getbyte(0)
+      #@KEY_FIND_PREV ||= ?\M-G.getbyte(0)
+      @KEY_SCROLL_FORWARD ||= ?\C-n.getbyte(0)
+      @KEY_SCROLL_BACKWARD ||= ?\C-p.getbyte(0)
+      @KEY_SCROLL_RIGHT ||= ?\M-8.getbyte(0)
+      @KEY_SCROLL_LEFT ||= ?\M-7.getbyte(0)
 
-      @KEY_CLEAR_SELECTION ||= ?\M-e
-      @KEY_PREV_SELECTION ||= ?\M-"
-      @KEY_NEXT_SELECTION ||= ?\M-'
+      @KEY_CLEAR_SELECTION ||= ?\M-e.getbyte(0)
+      @KEY_PREV_SELECTION ||= ?\M-".getbyte(0)
+      @KEY_NEXT_SELECTION ||= ?\M-'.getbyte(0)
 
 =begin
       bind_key(@KEY_ROW_SELECTOR)  { toggle_row_selection }

data/lib/rbcurse/listscrollable.rb

@@ -9,17 +9,24 @@
 #
 module ListScrollable
   attr_reader :search_found_ix, :find_offset, :find_offset1
-  def previous_row
+  attr_accessor :show_caret # 2010-01-23 23:06 our own fake insertion point
+  def previous_row num=(($multiplier.nil? or $multiplier == 0) ? 1 : $multiplier)
     @oldrow = @current_index
-    @current_index -= 1 if @current_index > 0
+    # NOTE that putting a multiplier inside, prevents an event from being triggered for each row's
+    # on leave and on enter
+    num.times { 
+      @current_index -= 1 if @current_index > 0
+    }
     bounds_check
+    $multiplier = 0
   end
   alias :up :previous_row
-  def next_row
+  def next_row num=(($multiplier.nil? or $multiplier == 0) ? 1 : $multiplier)
     @oldrow = @current_index
     rc = row_count
-    @current_index += 1 if @current_index < rc
+    @current_index += 1*num if @current_index < rc
     bounds_check
+    $multiplier = 0
   end
   alias :down :next_row
   def goto_bottom
@@ -38,15 +45,18 @@ module ListScrollable
   def scroll_backward
     @oldrow = @current_index
     h = scrollatrow()
-    @current_index -= h 
+    m = $multiplier == 0? 1 : $multiplier
+    @current_index -= h * m
     bounds_check
+    $multiplier = 0
   end
   def scroll_forward
     @oldrow = @current_index
     h = scrollatrow()
     rc = row_count
+    m = $multiplier == 0? 1 : $multiplier
     # more rows than box
-    if h < rc
+    if h * m < rc
       @toprow += h+1 #if @current_index+h < rc
       @current_index = @toprow
     else
@@ -86,17 +96,81 @@ module ListScrollable
   # the cursor should be appropriately positioned
   def set_form_row
     r,c = rowcol
-    @form.row = r + (@current_index-@toprow) 
+    @rows_panned ||= 0
+    
+    #win_row=@form.window.top
+    win_row=@win_top # 2010-02-11 15:12 RFED16
+    win_row = 0 # 2010-02-07 21:44 now ext offset added by widget
+    #win_row = 0 # new approach, we have it 
+    #win_col=@form.window.left
+    # added 1 ?? in copywin too 2010-02-11 18:51  RFED16 this results in extra in normal situations.
+    row = win_row + r + (@current_index-@toprow) + @rows_panned 
+    $log.debug " #{@name} LIST set_form_row #{row} = ci #{@current_index} + r #{r} + winrow: #{win_row} - tr:#{@toprow} #{@toprow} + rowsp #{@rows_panned} "
+    $log.debug "  - LIST set_form_row row_offset: #{@row_offset} + r #{r} + ci - topr + rowsp: #{@rows_panned}. c= #{c}  "
+
+    ## 2009-12-28 23:05 TRYING OUT but i really can't do this everywhere. BUFFERED
+    ## this needs to percolate up a heirarchy.
+    ## 2010-01-05 21:09 changed c to nil, since c is not cursor col pos but where printing starts, i think
+    #@form.setrowcol row, nil
+    #setformrowcol row, nil
+    setrowcol row, nil
+    show_caret_func
+  end
+  ## In many situations like placing a textarea or textview inside a splitpane 
+  ##+ or scrollpane there have been issues getting the cursor at the right point, 
+  ##+ since there are multiple buffers. Finally in tabbedpanes, i am pretty 
+  ##+ lost getting the correct position, and i feel we should set the cursor 
+  ##+ internally once and for all. So here's an attempt
+
+  # paint the cursor ourselves on the widget, rather than rely on getting to the top window with
+  # the correct coordinates. I do need to erase cursor too. Can be dicey, but is worth the attempt.
+  # This works perfectly, except for when placed in a Tabbedpane since that prints the form with a row offset 
+  #+ of 2 and the widget does not know of the offset. cursor gets it correct since the form has an add_row.
+  def show_caret_func
+      return unless @show_caret
+      # trying highlighting cursor 2010-01-23 19:07 TABBEDPANE TRYING
+      # TODO take into account rows_panned etc ? I don't think so.
+      @rows_panned ||= 0
+      r,c = rowcol
+      yy = r + @current_index - @toprow - @win_top
+      #xx = @form.col # how do we know what value has been set earlier ?
+      yy = r + @current_index - @toprow #- @win_top
+      yy = @row_offset + @current_index - @toprow #- @win_top
+      xx = @col_offset + @curpos || 0
+      #yy = @row_offset if yy < @row_offset # sometimes r is 0, we are missing something in tabbedpane+scroll
+      #xx = @col_offset if xx < @col_offset
+      #xx = 0 if xx < 0
+
+      $log.debug " #{@name} printing CARET at #{yy},#{xx}: fwt:- #{@win_top} r:#{@row} tr:-#{@toprow}+ci:#{@current_index},+r #{r}  "
+      if !@oldcursorrow.nil?
+          @graphic.mvchgat(y=@oldcursorrow, x=@oldcursorcol, 1, Ncurses::A_NORMAL, $datacolor, NIL)
+      end
+      @oldcursorrow = yy
+      @oldcursorcol = xx
+      @graphic.mvchgat(y=yy, x=xx, 1, Ncurses::A_NORMAL, $reversecolor, nil)
+      @buffer_modified = true
   end
-  def right
-    @hscrollcols ||= @cols/2
-    @pcol += @hscrollcols if @pcol + @hscrollcols < @padcols
-    #   window_erase @win XXX
+  def scroll_right
+    $log.debug " inside scroll_right "
+    hscrollcols = $multiplier > 0 ? $multiplier : @width/2
+    $log.debug " scroll_right  mult:#{$multiplier} , hscrollcols  #{hscrollcols}, w: #{@width} ll:#{@longest_line} "
+    #blen = @buffer.rstrip.length
+    blen = @longest_line
+    @pcol += hscrollcols if @pcol + @width < blen 
+    @repaint_required = true
   end
-  def left
-    @hscrollcols ||= @cols/2
-    @pcol -= @hscrollcols if @pcol > 0
+  def scroll_left
+    hscrollcols = $multiplier > 0 ? $multiplier : @width/2
+    @pcol -= hscrollcols if @pcol > 0
     @pcol = 0 if @pcol < 0
+    @repaint_required = true
+  end
+  ## returns cursor to last row (if moving columns in same row, won't work)
+  # Useful after a large move such as 12j, 20 C-n etc, Mapped to '' in textview
+  def goto_last_position
+    return unless @oldrow
+    @current_index = @oldrow
+    bounds_check
   end
   # not that saving content_rows is buggy since we add rows.
   ##
@@ -116,16 +190,16 @@ module ListScrollable
     begin
       ###pre_key # 2009-01-07 13:23 
       case ch
-      when ?\C-n
+      when ?\C-n.getbyte(0)
         scroll_forward
       when 32
         scroll_forward
-      when ?\C-p
+      when ?\C-p.getbyte(0)
         scroll_backward
-      when ?0
+      when ?0.getbyte(0)
         #goto_start
         goto_top
-      when ?9
+      when ?9.getbyte(0)
         #goto_end
         goto_bottom
       when KEY_UP
@@ -143,7 +217,7 @@ module ListScrollable
         if respond_to? :fire
           fire
         end
-      when ?A..?Z, ?a..?z
+      when ?A.getbyte(0)..?Z.getbyte(0), ?a.getbyte(0)..?z.getbyte(0)
         ret = set_selection_for_char ch.chr
       else
         return :UNHANDLED #if ret == -1
@@ -159,7 +233,7 @@ module ListScrollable
     data = get_content
     row = focussed_index + 1
     row.upto(data.length-1) do |ix|
-      val = data[ix].chomp
+      val = data[ix].chomp rescue return  # 2010-01-05 15:28 crashed on trueclass
       #if val[0,1] == char #and val != currval
       if val[0,1].casecmp(char) == 0 #AND VAL != CURRval
         return ix
@@ -180,7 +254,7 @@ module ListScrollable
   def set_selection_for_char char
     @oldrow = @current_index
     ix = next_match char
-    @current_index = ix if ix != -1
+    @current_index = ix if ix && ix != -1
     bounds_check
     return ix
   end
@@ -216,13 +290,13 @@ module ListScrollable
   end
     def install_keys
 =begin
-      @KEY_ASK_FIND_FORWARD ||= ?\M-f
-      @KEY_ASK_FIND_BACKWARD ||= ?\M-F
-      @KEY_FIND_NEXT ||= ?\M-g
-      @KEY_FIND_PREV ||= ?\M-G
+      @KEY_ASK_FIND_FORWARD ||= ?\M-f.getbyte(0)
+      @KEY_ASK_FIND_BACKWARD ||= ?\M-F.getbyte(0)
+      @KEY_FIND_NEXT ||= ?\M-g.getbyte(0)
+      @KEY_FIND_PREV ||= ?\M-G.getbyte(0)
 =end
-      @KEY_ASK_FIND ||= ?\M-f
-      @KEY_FIND_MORE ||= ?\M-g
+      @KEY_ASK_FIND ||= ?\M-f.getbyte(0)
+      @KEY_FIND_MORE ||= ?\M-g.getbyte(0)
     end
     def ask_search
       options = ["Search backwards", "case insensitive", "Wrap around"]
@@ -349,5 +423,72 @@ module ListScrollable
       end
       return nil
     end
+    ##
+    # goes to start of next word (or n words) - vi's w
+    #
+    def forward_word
+      $multiplier = 1 if !$multiplier or $multiplier == 0
+      line = @current_index
+      buff = @list[line]
+      pos = @curpos
+      $multiplier.times {
+        found = buff.index(/[[:punct:][:space:]]/, pos)
+        if !found
+          # if not found, we've lost a counter
+          line += 1 # unless eof
+          buff = @list[line]
+          pos = 0
+        else
+          pos = found + 1
+        end
+        $log.debug " forward_word: pos #{pos} line #{line} buff: #{buff}"
+      }
+      @current_index = line
+      @curpos = pos
+      @buffer = @list[@current_index]
+      set_form_row
+      set_form_col pos
+      @repaint_required = true
+    end
+    ##
+    # goes to  next occurence of <char> (or nth occurence)
+    # Actually, we can club this with forward_word so no duplication
+    # Or call one from the other
+    #
+    def forward_char char=nil
+      if char.nil?
+        $log.debug " XXX acceptng char"
+        ch = @graphic.getchar
+        return -1 if ch < 0 or ch > 255 # or 127 ???
+        char = ch.chr
+      end
+      $log.debug " forward_char char:#{char}:"
+      $multiplier = 1 if !$multiplier or $multiplier == 0
+      line = @current_index
+      buff = @list[line]
+      pos = @curpos
+      $multiplier.times {
+        found = false
+        while !found
+          found = buff.index(char, pos)
+          if !found
+            line += 1 # unless eof
+            buff = @list[line]
+            pos = 0
+          else
+            pos = found + 1
+          end
+          break if line >= @list.size
+          $log.debug " #{found} forward_word: pos #{pos} line #{line} buff: #{buff}"
+        end
+      }
+      @current_index = line
+      @curpos = pos
+      @buffer = @list[@current_index]
+      set_form_row
+      set_form_col pos
+      @repaint_required = true
+    end
+     
 
 end