rbcurse 1.4.1 → 1.5.0.pre1

data/lib/rbcurse/undomanager.rb

@@ -1,188 +0,0 @@
-=begin
-  * Name: UndoManager
-  * Description: Manages undo of text components
-  * Author: rkumar (arunachalesha)
-
-ISSUES 
-
-This is a very simple, undo facility. This could change in the near future.
-
-Todo:
-We need to handle block updates - several undo ops to be done together.
-
-  
-  --------
-  * Date:  2010-03-07 19:42 
-  * License:
-    Same as Ruby's License (http://www.ruby-lang.org/LICENSE.txt)
-
-=end
-
-# 
-#  
-module RubyCurses
-  #
-  # AbstractUndo has the basic workings of the undo redo facility.
-  # It leaves the actual undo and redo to the implementing source object. However,
-  # it does the work of storing edits, and passing the correct edit to the implementor
-  # when the source object calls for an undo or redo operation. It thus manages the edit (undo) queue.
-  #
-  class AbstractUndo
-    # initialize the source object which will issue undo requests
-    def initialize _source
-      source(_source) #if _source
-      @pointer = 0
-      @actions = []
-      $log.debug " INSIDE UNDO CONSTR "
-    end
-    def source(_source)
-      $log.debug " calling source= "
-      raise "Cannot pass a nil source" unless _source
-      @source = _source
-      # currently this is very hardcode again. we need to see this in the light of other objects
-      #@source.bind(:CHANGE){|eve| add_edit(eve) }
-      # a little roundabout but done for getting things up fast
-      @source.undo_handler(self)
-      $log.debug " I am listening to change events on #{@source.name} "
-    end
-    # this is called whenever an undoable edit has happened.
-    # Currently, it is linked above in the bind statement. We've attached this 
-    # method as a listener to the source.
-    def add_edit event
-      # this debug is very specific. it should be removed later. We do not know about the object
-      $log.debug " UNDO GOT #{event}: #{event.type}, (#{event.text}), rej: #{@reject_update}  "
-      return if @reject_update
-      if @pointer < @actions.length
-        $log.debug " removing some actions since #{@pointer} < #{@actions.length} "
-        @actions.slice!(@pointer..-1)
-        $log.debug " removed actions since #{@pointer} , #{@actions.length} "
-      end
-      @actions << event
-      @pointer = @actions.length
-    end
-    # this has to be bound in source component
-    # typically bind C-_ to undo()
-    # this method figures out the correct undo object to be sent
-    # to the implementor
-    def undo
-      $log.debug " got UNDO call #{@pointer}, sz:#{@actions.size}  "
-      return if @pointer == 0
-      @reject_update = true
-      @pointer -=1 #if @pointer > 0
-      @source.repaint_required true
-      @reject_update = false
-      edit = @actions[@pointer]
-      perform_undo edit
-    end
-    # this has to be bound in source
-    # typically bind C-r to redo()
-    # this method figures out the correct redo object to be sent
-    # to the implementor
-    def redo
-      $log.debug "UNDO GOT REDO call #{@pointer}, #{@actions.size}  "
-      return if @pointer >= @actions.size
-      @reject_update = true
-      edit = @actions[@pointer]
-      perform_redo edit
-      @source.repaint_required true
-      @pointer +=1 #if @pointer > 0
-      @reject_update = false
-    end
-    def perform_redo edit
-      raise "You must implement this for your undoable component "
-    end
-    def perform_undo edit
-      raise "You must implement this for your undoable component "
-      # to be implemented
-    end
-    #def to_s
-      #inspect
-    #end
-    #def inspect
-      ### now that textarea.to_s prints content we shouldn pass it here.
-      ##"#{@type.to_s}, #{@source}, ind0:#{@index0}, ind1:#{@index1}, row:#{@row}, text:#{@text}"
-      #"#{@type.to_s}, ind0:#{@index0}, ind1:#{@index1}, row:#{@row}, text:#{@text}"
-    #end
-  end
-    ## An implementation of AbstractUndo for textarea.
-    # Very basic.
-  class SimpleUndo < AbstractUndo
-    def initialize _source
-      super
-    end
-    def source(_source)
-      super
-      _source.bind(:CHANGE){|eve| add_edit(eve) }
-    end
-    def perform_undo act
-      row = act.row
-      col = act.index0
-      $log.debug " processing #{act} "
-      case act.type
-      when :INSERT
-        howmany = act.index1 - col
-        @source.list[row].slice!(col,howmany)
-      when :DELETE
-        $log.debug " UNDO processing DELETE #{col}, (#{act.text})  "
-        @source.list[row].insert(col, act.text.chomp)
-      when :DELETE_LINE
-        $log.debug " UNDO inside delete-line #{row} "
-        #@source.list.insert(row, act.text) # insert a blank line, since one was deleted
-        case act.text
-        when Array
-          index = row
-          act.text.each_with_index{|r,i| @source.list.insert index+i, r}
-        when String
-          @source.list.insert row, act.text
-        end
-      when :INSERT_LINE
-        $log.debug " UNDO inside insert-line #{row} "
-        case act.text
-        when Array
-          act.text.size.times { @source.list.delete_at row }
-        when String
-          @source.list.delete_at row
-        end
-      else
-        $log.warn "unhandled change type #{act.type} "
-      end
-      @source.repaint_required true
-      @reject_update = false
-    end
-    # this has to be bound in source
-    def perform_redo act
-      row = act.row
-      col = act.index0
-      $log.debug " REDO processing #{act} "
-      case act.type
-      when :INSERT
-        @source.list[row].insert(col, act.text)
-      when :DELETE
-        row = act.row
-        col = act.index0
-        howmany = act.index1 - col
-        @source.list[row].slice!(col,howmany)
-      when :DELETE_LINE
-        #$log.debug " UNDO redo got deleteline #{row} "
-        #@source.list.delete_at row
-        # changed on 2010-05-23 12:21 since was not handling mult delete
-        case act.text
-        when Array
-          act.text.size.times { @source.list.delete_at row }
-        when String
-          @source.list.delete_at row
-        end
-      when :INSERT_LINE
-        case act.text
-        when Array
-          index = row
-          act.text.each_with_index{|r,i| @source.list.insert index+i, r}
-        when String
-          @source.list.insert row, act.text
-        end
-      else
-        $log.warn "unhandled change type #{act.type} "
-      end
-    end
-  end
-end # module

data/lib/rbcurse/vieditable.rb

@@ -1,144 +0,0 @@
-#**************************************************************
-# Author: rkumar (arunachalesha)
-# Date: 2010-03-11 22:18 
-# Provides the caller ability to do some edit operations
-# on list widgets using either keys (vim largely)
-# or a menu. made originally for textview and multitextview
-#
-#**************************************************************
-
-
-require 'rbcurse/listeditable'
-module ViEditable
-  include ListEditable
-
-  def vieditable_init
-    $log.debug " inside vieditable_init "
-    @editable = true
-    bind_key( ?C, :edit_line)
-    #bind_key( ?o, :insert_line)
-    #bind_key( ?O) { insert_line(@current_index-1) } 
-    bind_key( ?o) { insert_line(@current_index+1) } 
-    bind_key( ?O) { insert_line(@current_index) } 
-    bind_key( ?D, :delete_eol)
-    bind_key( [?d, ?$], :delete_eol)
-    bind_key( [?d, ?d] , :delete_line ) 
-    bind_key( [?d, ?w], :delete_word )
-    bind_key( [?d, ?t], :delete_till )
-    bind_key( [?d, ?f], :delete_forward )
-    bind_key( ?\C-_ ) { @undo_handler.undo if @undo_handler }
-    bind_key( ?u ) { @undo_handler.undo if @undo_handler }
-    bind_key( ?\C-r ) { @undo_handler.redo if @undo_handler }
-    bind_key( ?x, :delete_curr_char )
-    bind_key( ?X, :delete_prev_char )
-    bind_key( [?y, ?y] , :kill_ring_save ) 
-    bind_key( ?p, :yank ) # paste after this line
-    bind_key( ?P ) { yank(@current_index - 1) } # should be before this line
-    bind_key(?\w, :forward_word)
-    bind_key(?f, :forward_char)
-    bind_key(?\M-y, :yank_pop)
-    bind_key(?\M-w, :kill_ring_save)
-    @_events.push :CHANGE # thru vieditable
-
-  end
-  ##
-  # Separate mappings for listboxes.
-  # Some methods don;'t make sense for listboxes and are crashing
-  # since not present for them. f was being overwritten, too.
-  # Sorry for duplication, need to clean this somehow.
-  def vieditable_init_listbox
-    $log.debug " inside vieditable_init_listbox "
-    @editable = true
-    bind_key( ?C, :edit_line)
-    bind_key( ?o) { insert_line(@current_index+1) } 
-    bind_key( ?O) { insert_line(@current_index) } 
-    bind_key( [?d, ?d] , :delete_line ) 
-    bind_key( ?\C-_ ) { @undo_handler.undo if @undo_handler }
-    bind_key( ?u ) { @undo_handler.undo if @undo_handler }
-    bind_key( ?\C-r ) { @undo_handler.redo if @undo_handler }
-    bind_key( [?y, ?y] , :kill_ring_save ) 
-    bind_key( ?p, :yank ) # paste after this line
-    bind_key( ?P ) { yank(@current_index - 1) } # should be before this line
-    bind_key(?\w, :forward_word)
-    bind_key(?\M-y, :yank_pop)
-    bind_key(?\C-y, :yank)
-    bind_key(?\M-w, :kill_ring_save)
-    @_events.push :CHANGE # thru vieditable
-    #bind_key( ?D, :delete_eol)
-    #bind_key( [?d, ?$], :delete_eol)
-    #bind_key(?f, :forward_char)
-    #bind_key( ?x, :delete_curr_char )
-    #bind_key( ?X, :delete_prev_char )
-    #bind_key( [?d, ?w], :delete_word )
-    #bind_key( [?d, ?t], :delete_till )
-    #bind_key( [?d, ?f], :delete_forward )
-
-  end
-
-  ##
-  # edit current or given line
-  def edit_line lineno=@current_index
-    line = self[lineno]
-    prompt = "Edit: "
-    maxlen = 80
-    config={}; 
-    oldline = line.dup
-    config[:default] = line
-    ret, str = rbgetstr(@form.window, $error_message_row, $error_message_col,  prompt, maxlen, config)
-    $log.debug " rbgetstr returned #{ret} , #{str} "
-    return if ret != 0
-    self[lineno].replace(str)
-    fire_handler :CHANGE, InputDataEvent.new(0,oldline.length, self, :DELETE_LINE, lineno, oldline)     #  2008-12-24 18:34 
-    fire_handler :CHANGE, InputDataEvent.new(0,str.length, self, :INSERT_LINE, lineno, str)
-    @repaint_required = true
-  end
-  ##
-  # insert a line 
-  # FIXME needs to fire handler 2010-05-23 11:40 
-  def insert_line lineno=@current_index
-    prompt = "Insert: "
-    maxlen = 80
-    #config={}; 
-    #config[:default] = line
-    #ret, str = rbgetstr(@form.window, $error_message_row, $error_message_col,  prompt, maxlen, config)
-    ret, str = input_string prompt
-    #ret, str = rbgetstr(@form.window, @row+@height-1, @col+1, prompt, maxlen, config)
-    $log.debug " rbgetstr returned #{ret} , #{str} "
-    return if ret != 0
-    @list.insert lineno, str
-    ## added handler on 2010-05-23 11:46 - undo works - tested in testlistbox.rb
-    fire_handler :CHANGE, InputDataEvent.new(0,str.length, self, :INSERT_LINE, lineno, str)
-    @repaint_required = true
-  end
-  ##
-  # common method to edit given string
-  # @param [String] string to edit/modify
-  # @param [String] prompt to display before string
-  # @param [int] max length of input
-  # @return [0, -1] return value 0 if okay, -1 if error
-  #
-  def edit_string string, prompt="Edit: ", maxlen=80
-    config={}; 
-    config[:default] = string
-    ret, str = rbgetstr(@form.window, $error_message_row, $error_message_col,  prompt, maxlen, config)
-    #return str if ret == 0
-    #return ""
-  end
-  ##
-  # common method to input a blank string
-  # @param [String] prompt to display before string
-  # @param [int] max length of input
-  # @return [0, -1] return value 0 if okay, -1 if error
-  def input_string prompt="Insert: ", maxlen=80
-    #ret, str = rbgetstr(@form.window, $error_message_row, $error_message_col,  prompt, maxlen, config)
-    ret, str = rbgetstr(@form.window, $error_message_row, $error_message_col,  prompt, maxlen, config)
-    #return str if ret == 0
-    #return ""
-  end
-  def edit_chars
-
-  end
-  def edit_word
-
-  end
-end # module

data/lib/ver/keyboard.rb

@@ -1,150 +0,0 @@
-module VER
-  module Keyboard # avoid initialize
-    ESC         = 27 # keycode
-    @polling = false
-
-    module_function
-
-    def focus=(receiver)
-      @stack = []
-      @focus = receiver
-      poll unless @polling
-    end
-
-    def poll
-      @polling = true
-
-      while char = @focus.window.getch
-        break if @focus.stopping? # XXX
-        #break if VER.stopping?
-        $log.debug("char: #{char} stakc: #{@stack.inspect}") if char != Ncurses::ERR
-        if char == Ncurses::ERR # timeout or signal
-          @focus.press('esc') if @stack == [ESC]
-          @stack.clear
-        elsif ready = resolve(char)
-$log.debug("char: #{char} ready: #{ready}")
-          @stack.clear
-          @focus.press(ready)
-        end
-      end
-
-    ensure
-      @polling = false
-    end
-
-    def resolve(char)
-      @stack << char
-
-      if @stack.first == ESC
-        MOD_KEYS[@stack] || SPECIAL_KEYS[@stack]
-      else
-        NCURSES_KEYS[char] || CONTROL_KEYS[char] || PRINTABLE_KEYS[char]
-      end
-    end
-
-    # TODO: make this section sane
-
-    ASCII     = (0..255).map{|c| c.chr }
-    CONTROL   = ASCII.grep(/[[:cntrl:]]/)
-    PRINTABLE = ASCII.grep(/[[:print:]]/)
-
-    SPECIAL_KEYS = {
-      [27, 79, 50, 81]              => 'F14',
-      [27, 79, 50, 82]              => 'F15',
-      [27, 79, 70]                  => 'end',
-      [27, 79, 70]                  => 'end',
-      [27, 79, 72]                  => 'home',
-      [27, 79, 80]                  => 'F1',
-      [27, 79, 81]                  => 'F2',
-      [27, 79, 82]                  => 'F3',
-      [27, 79, 83]                  => 'F4',
-      [27, 91, 49, 126]             => 'end',
-      [27, 91, 49, 126]             => 'home',
-      [27, 91, 49, 49, 126]         => 'F1',
-      [27, 91, 49, 50, 126]         => 'F2',
-      [27, 91, 49, 51, 126]         => 'F3',
-      [27, 91, 49, 52, 126]         => 'F4',
-      [27, 91, 49, 52, 126]         => 'F4',
-      [27, 91, 49, 53, 126]         => 'F5',
-      [27, 91, 49, 55, 126]         => 'F6',
-      [27, 91, 49, 56, 59, 50, 126] => 'F19',
-      [27, 91, 49, 56, 59, 51, 126] => 'F7',
-      [27, 91, 49, 59, 51, 65]      => 'ppage',
-      [27, 91, 49, 59, 51, 66]      => 'npage',
-      [27, 91, 49, 59, 53, 65]      => 'ppage',
-      [27, 91, 49, 59, 53, 66]      => 'npage',
-      [27, 91, 49, 59, 53, 70]      => 'M-<',
-      [27, 91, 49, 59, 53, 72]      => 'M->',
-      [27, 91, 50, 54, 126]         => 'F14',
-      [27, 91, 50, 56, 126]         => 'F15',
-      [27, 91, 51, 59, 51, 126]     => 'del',
-      [27, 91, 52, 126]             => 'end',
-      [27, 91, 55, 126]             => 'home',
-      [27, 91, 55, 126]             => 'home',
-      [27, 91, 56, 126]             => 'end',
-      [27, 91, 56, 126]             => 'end',
-      [27, 91, 65]                  => 'up',
-      [27, 91, 66]                  => 'down',
-      [27, 91, 67]                  => 'right',
-      [27, 91, 68]                  => 'left',
-      [27, 91, 70]                  => 'end',
-      [27, 91, 72]                  => 'end',
-      [27, 91, 72]                  => 'home',
-      [27, 91, 91, 65]              => 'F1',
-      [27, 91, 91, 66]              => 'F2',
-      [27, 91, 91, 67]              => 'F3',
-      [27, 91, 91, 68]              => 'F4',
-      [27, 91, 91, 69]              => 'F5',
-    }
-
-    CONTROL_KEYS = {
-      0   => 'C-space',
-      1   => 'C-a',
-      2   => 'C-b',
-      3   => 'C-c',
-      4   => 'C-d',
-      5   => 'C-e',
-      6   => 'C-f',
-      7   => 'C-g',
-      8   => 'C-h',
-      9   => 'tab',
-      10  => 'return', # C-j
-      11  => 'C-k',
-      12  => 'C-l',
-      13  => 'return', # C-m
-      14  => 'C-n',
-      15  => 'C-o',
-      16  => 'C-p',
-      17  => 'C-q',
-      18  => 'C-r',
-      19  => 'C-s',
-      20  => 'C-t',
-      21  => 'C-u',
-      22  => 'C-v',
-      23  => 'C-w',
-      24  => 'C-x',
-      25  => 'C-y',
-      26  => 'C-z', # FIXME: is usually suspend in shell job control
-      # 27  => 'esc',
-      32  => 'space',
-      127 => 'backspace',
-    }
-
-    PRINTABLE_KEYS = {}
-    MOD_KEYS = {}
-
-    PRINTABLE.each do |key|
-      code = key.unpack('c')[0] # using unpack to be compatible with 1.9
-      PRINTABLE_KEYS[code] = key
-      MOD_KEYS[[ESC, code]] = "M-#{key}" unless key == '[' # don't map esc
-    end
-
-    NCURSES_KEYS = {}
-    Ncurses.constants.grep(/^KEY_/).each do |const|
-      value = Ncurses.const_get(const)
-      key = const[/^KEY_(.*)/, 1]
-      key = key =~ /^F/ ? key : key.downcase # function keys
-      NCURSES_KEYS[value] = key
-    end
-  end
-end