rbcurse-core 0.0.13 → 0.0.14

data/lib/rbcurse/core/include/vieditable.rb

@@ -9,162 +9,164 @@
 
 
 require 'rbcurse/core/include/listeditable'
-module ViEditable
-  include ListEditable
+module RubyCurses
+  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
+    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
-    # seems -1 was pasting 2 lines before
-    bind_key( ?P ) { yank(@current_index - 0) } # 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
+    ##
+    # 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
+      # seems -1 was pasting 2 lines before
+      bind_key( ?P ) { yank(@current_index - 0) } # 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
+    end
 
-  # currently only adding delete_line and some yank pop functions
-  # These will all give wrong results in table due to _header_offset
-  def vieditable_init_tabular
-    $log.debug " inside vieditable_init tabular"
-    @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, ?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(?\M-y, :yank_pop)
-    bind_key(?\M-w, :kill_ring_save)
-    @_events.push :CHANGE # thru vieditable
-  end
+    # currently only adding delete_line and some yank pop functions
+    # These will all give wrong results in table due to _header_offset
+    def vieditable_init_tabular
+      $log.debug " inside vieditable_init tabular"
+      @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, ?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(?\M-y, :yank_pop)
+      bind_key(?\M-w, :kill_ring_save)
+      @_events.push :CHANGE # thru vieditable
+    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
-    @widget_scrolled = 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)
-    @widget_scrolled = true
-    @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
+    ##
+    # 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
+      @widget_scrolled = 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)
+      @widget_scrolled = true
+      @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
+    def edit_word
 
-  end
+    end
+  end # module
 end # module

data/lib/rbcurse/core/system/colormap.rb

@@ -1,162 +1,165 @@
 require 'rbcurse/core/system/ncurses'
-module ColorMap
-  # 2010-09-20 12:22 changed colors from string to symbol
-  ## private
-  # returns a color constant for a human color string
-  def ColorMap.get_color_const colorstring
-    # added check for fixnum if we go beyond these constants 2011-11-28 
-    # e.g. to use full 256 colors
-    return colorstring if colorstring.is_a? Fixnum 
-    ret = FFI::NCurses.const_get "COLOR_#{colorstring.to_s.upcase}"
-  end
-  ## private
-  # creates a new color pair, puts in color map and returns color_pair
-  # number
-  def ColorMap.install_color fgc, bgc
+
+module RubyCurses
+  module ColorMap
+    # 2010-09-20 12:22 changed colors from string to symbol
+    ## private
+    # returns a color constant for a human color string
+    def ColorMap.get_color_const colorstring
+      # added check for fixnum if we go beyond these constants 2011-11-28 
+      # e.g. to use full 256 colors
+      return colorstring if colorstring.is_a? Fixnum 
+      ret = FFI::NCurses.const_get "COLOR_#{colorstring.to_s.upcase}"
+    end
+    ## private
+    # creates a new color pair, puts in color map and returns color_pair
+    # number
+    def ColorMap.install_color fgc, bgc
       #$log.debug " install_color found #{fgc} #{@bgc} "
       @color_id += 1
-    fg = ColorMap.get_color_const fgc
-    bg = ColorMap.get_color_const bgc
-    FFI::NCurses.init_pair(@color_id, fg, bg);
-    $color_map[[fgc, bgc]] = @color_id
-    return @color_id
-  end
-  #
-  # returns the colors that make up the given pair
-  # you may want to find what makes up $bottomcolor and set color and bgcolor with it.
-  # @param [Fixnum] color_pair
-  # @return [Symbol, Symbol]  foreground and backgrounf color
-  # @example 
-  #     color, bgcolor = get_colors_for_pair $datacolor
-  #
-  def ColorMap.get_colors_for_pair pair
-    $color_map.invert[pair]
-  end
-  ## public
-  # returns a color_pair for a given foreground and background color
-  def ColorMap.get_color fgc, bgc=$def_bg_color
-    fgc = fgc.to_sym if fgc.is_a? String
-    bgc = bgc.to_sym if bgc.is_a? String
-    if $color_map.include? [fgc, bgc]
-      #$log.debug " get_color found #{fgc} #{@bgc} "
-      return $color_map[[fgc, bgc]]
-    else
-      #$log.debug " get_color NOT found #{fgc} #{@bgc} "
-      return ColorMap.install_color fgc, bgc
+      fg = ColorMap.get_color_const fgc
+      bg = ColorMap.get_color_const bgc
+      FFI::NCurses.init_pair(@color_id, fg, bg);
+      $color_map[[fgc, bgc]] = @color_id
+      return @color_id
+    end
+    #
+    # returns the colors that make up the given pair
+    # you may want to find what makes up $bottomcolor and set color and bgcolor with it.
+    # @param [Fixnum] color_pair
+    # @return [Symbol, Symbol]  foreground and backgrounf color
+    # @example 
+    #     color, bgcolor = get_colors_for_pair $datacolor
+    #
+    def ColorMap.get_colors_for_pair pair
+      $color_map.invert[pair]
+    end
+    ## public
+    # returns a color_pair for a given foreground and background color
+    def ColorMap.get_color fgc, bgc=$def_bg_color
+      fgc = fgc.to_sym if fgc.is_a? String
+      bgc = bgc.to_sym if bgc.is_a? String
+      if $color_map.include? [fgc, bgc]
+        #$log.debug " get_color found #{fgc} #{@bgc} "
+        return $color_map[[fgc, bgc]]
+      else
+        #$log.debug " get_color NOT found #{fgc} #{@bgc} "
+        return ColorMap.install_color fgc, bgc
+      end
+    end
+    def ColorMap.colors
+      @@colors
+    end
+    # returns true if color is a valid one, else false
+    # @param [Symbol] color such as :black :cyan :yellow
+    # @return [Boolean] true if valid, else false
+    def ColorMap.is_color? color
+      return true if color.is_a? Fixnum # so we can use 256 colors
+      @@colors.include? color.to_sym
     end
-  end
-  def ColorMap.colors
-    @@colors
-  end
-  # returns true if color is a valid one, else false
-  # @param [Symbol] color such as :black :cyan :yellow
-  # @return [Boolean] true if valid, else false
-  def ColorMap.is_color? color
-    return true if color.is_a? Fixnum # so we can use 256 colors
-    @@colors.include? color.to_sym
-  end
 
-  ## public
-  # setup color map at start of application
-  def ColorMap.setup
-    @color_id = 0
-    $color_map = {}
-    FFI::NCurses.start_color();
-    # Initialize few color pairs 
-    $def_fg_color = :white   # pls set these 2 for your application
-    $def_bg_color = :black
-    #COLORS = [COLOR_BLACK, COLOR_RED, COLOR_GREEN, COLOR_YELLOW, COLOR_BLUE, 
-    #     COLOR_MAGENTA, COLOR_CYAN, COLOR_WHITE]
-    @@colors = [:black, :red, :green, :yellow, :blue, :magenta, :cyan, :white]
+    ## public
+    # setup color map at start of application
+    def ColorMap.setup
+      @color_id = 0
+      $color_map = {}
+      FFI::NCurses.start_color();
+      # Initialize few color pairs 
+      $def_fg_color = :white   # pls set these 2 for your application
+      $def_bg_color = :black
+      #COLORS = [COLOR_BLACK, COLOR_RED, COLOR_GREEN, COLOR_YELLOW, COLOR_BLUE, 
+      #     COLOR_MAGENTA, COLOR_CYAN, COLOR_WHITE]
+      @@colors = [:black, :red, :green, :yellow, :blue, :magenta, :cyan, :white]
 
-    # make foreground colors
-    bg = ColorMap.get_color_const $def_bg_color
-    @@colors[0...@@colors.size].each_with_index do |color, i|
-      next if color == $def_bg_color # NOTE hope this doesn't do something if you change def_bg
-      ColorMap.install_color color, $def_bg_color
-    end
-    $reversecolor = ColorMap.get_color $def_bg_color, $def_fg_color
-    $popupcolor = ColorMap.get_color :cyan, $def_fg_color
+      # make foreground colors
+      bg = ColorMap.get_color_const $def_bg_color
+      @@colors[0...@@colors.size].each_with_index do |color, i|
+        next if color == $def_bg_color # NOTE hope this doesn't do something if you change def_bg
+        ColorMap.install_color color, $def_bg_color
+      end
+      $reversecolor = ColorMap.get_color $def_bg_color, $def_fg_color
+      $popupcolor = ColorMap.get_color :cyan, $def_fg_color
 
-    $errorcolor = ColorMap.get_color :white, :red
-    #$promptcolor = $selectedcolor = ColorMap.get_color(:yellow, :red)
-    $promptcolor = ColorMap.get_color(:yellow, :red)
-    $normalcolor = $datacolor = ColorMap.get_color(:white, :black)
-    $bottomcolor = $topcolor = ColorMap.get_color(:white, :blue)
-    $selectedcolor = $datacolor # since we now use reverse attr in list
+      $errorcolor = ColorMap.get_color :white, :red
+      #$promptcolor = $selectedcolor = ColorMap.get_color(:yellow, :red)
+      $promptcolor = ColorMap.get_color(:yellow, :red)
+      $normalcolor = $datacolor = ColorMap.get_color(:white, :black)
+      $bottomcolor = $topcolor = ColorMap.get_color(:white, :blue)
+      $selectedcolor = $datacolor # since we now use reverse attr in list
 
-    $row_selected_attr = Ncurses::A_REVERSE
-    $row_focussed_attr = Ncurses::A_BOLD
-    $row_attr          = Ncurses::A_NORMAL
+      $row_selected_attr = Ncurses::A_REVERSE
+      $row_focussed_attr = Ncurses::A_BOLD
+      $row_attr          = Ncurses::A_NORMAL
 
-#    $log.debug " colormap SETUP: #{$datacolor} #{$reversecolor} "
-  end
+      #    $log.debug " colormap SETUP: #{$datacolor} #{$reversecolor} "
+    end
+
+  end # modul
+  if $0 == __FILE__
+    require 'logger'
+    require 'ver/window'
+    #include Ncurses # FFI 2011-09-8 
+    include ColorMap
+    # Initialize curses
+    begin
+      $log = Logger.new("rbc13.log")
+      VER::start_ncurses
+      @window = VER::Window.root_window
+      $log.level = Logger::DEBUG
+      ColorMap.setup
 
-end # modul
-if $0 == __FILE__
-require 'logger'
-require 'ver/window'
-#include Ncurses # FFI 2011-09-8 
-include ColorMap
-  # Initialize curses
-  begin
-    $log = Logger.new("rbc13.log")
-    VER::start_ncurses
-    @window = VER::Window.root_window
-    $log.level = Logger::DEBUG
-    ColorMap.setup
+      # Create the window to be associated with the form 
+      # Un post form and free the memory
 
-    # Create the window to be associated with the form 
-    # Un post form and free the memory
+      catch(:close) do
+        #      $log.debug "START  ---------"
+        # need to pass a form, not window.
+        r = 1; c = 2; i=0
+        attr = Ncurses::A_NORMAL
+        @window.printstring  20, c, "press 0-9 to change BG color,  F1/q to quit. r-everse, n-ormal,b-old ", ColorMap.get_color('white')
 
-    catch(:close) do
-#      $log.debug "START  ---------"
-      # need to pass a form, not window.
-      r = 1; c = 2; i=0
-      attr = Ncurses::A_NORMAL
-      @window.printstring  20, c, "press 0-9 to change BG color,  F1/q to quit. r-everse, n-ormal,b-old ", ColorMap.get_color('white')
 
-      
 
-      while((ch = @window.getchar()) != FFI::NCurses::KEY_F1 )
-        next if ch == -1
-        break if ch == ?q.getbyte(0)
-        case ch
-        when ?r.getbyte(0)
-          attr |= Ncurses::A_REVERSE
-        when ?b.getbyte(0)
-          attr |= Ncurses::A_BOLD
-        when ?n.getbyte(0)
-          attr = Ncurses::A_NORMAL
-        when ?u.getbyte(0)
-          attr |= Ncurses::A_UNDERLINE
-        else
-        i = ch.chr.to_i
-        i = 1 if i > ColorMap::colors.length-1
+        while((ch = @window.getchar()) != FFI::NCurses::KEY_F1 )
+          next if ch == -1
+          break if ch == ?q.getbyte(0)
+          case ch
+          when ?r.getbyte(0)
+            attr |= Ncurses::A_REVERSE
+          when ?b.getbyte(0)
+            attr |= Ncurses::A_BOLD
+          when ?n.getbyte(0)
+            attr = Ncurses::A_NORMAL
+          when ?u.getbyte(0)
+            attr |= Ncurses::A_UNDERLINE
+          else
+            i = ch.chr.to_i
+            i = 1 if i > ColorMap::colors.length-1
+          end
+          bg = ColorMap::colors[i]
+          @@colors = %w[black red green yellow blue magenta cyan white]
+          @window.printstring  r, c, "%-40s" % "red #{bg}      ", ColorMap.get_color('red',bg) , attr
+          @window.printstring  2, c, "%-40s" % "blue #{bg}      ", ColorMap.get_color('blue',bg) , attr
+          @window.printstring  3, c, "%-40s" % "white #{bg}      ", ColorMap.get_color('white',bg) , attr
+          @window.printstring  4, c, "%-40s" % "green #{bg}      ", ColorMap.get_color('green',bg) , attr
+          @window.printstring  5, c, "%-40s" % "cyan #{bg}      ", ColorMap.get_color('cyan',bg) , attr
+          @window.printstring  6, c, "%-40s" % "magenta #{bg}      ", ColorMap.get_color('magenta',bg) , attr
+          @window.printstring  7, c, "black #{bg}      ", ColorMap.get_color('black',bg) , attr
+          @window.wrefresh
         end
-        bg = ColorMap::colors[i]
-    @@colors = %w[black red green yellow blue magenta cyan white]
-      @window.printstring  r, c, "%-40s" % "red #{bg}      ", ColorMap.get_color('red',bg) , attr
-      @window.printstring  2, c, "%-40s" % "blue #{bg}      ", ColorMap.get_color('blue',bg) , attr
-      @window.printstring  3, c, "%-40s" % "white #{bg}      ", ColorMap.get_color('white',bg) , attr
-      @window.printstring  4, c, "%-40s" % "green #{bg}      ", ColorMap.get_color('green',bg) , attr
-      @window.printstring  5, c, "%-40s" % "cyan #{bg}      ", ColorMap.get_color('cyan',bg) , attr
-      @window.printstring  6, c, "%-40s" % "magenta #{bg}      ", ColorMap.get_color('magenta',bg) , attr
-      @window.printstring  7, c, "black #{bg}      ", ColorMap.get_color('black',bg) , attr
-        @window.wrefresh
+        #     VER::Keyboard.focus = tp
       end
-      #     VER::Keyboard.focus = tp
-    end
-  rescue => ex
-  ensure
-   #  @panel = @window.panel if @window
-   #  Ncurses::Panel.del_panel(@panel) if !@panel.nil?   
-   #  @window.delwin if !@window.nil?
-    @window.destroy unless @window.nil?
+    rescue => ex
+    ensure
+      #  @panel = @window.panel if @window
+      #  Ncurses::Panel.del_panel(@panel) if !@panel.nil?   
+      #  @window.delwin if !@window.nil?
+      @window.destroy unless @window.nil?
       VER::stop_ncurses
-    p ex if ex
-    p(ex.backtrace.join("\n")) if ex
-#    $log.debug( ex) if ex
-#    $log.debug(ex.backtrace.join("\n")) if ex
+      p ex if ex
+      p(ex.backtrace.join("\n")) if ex
+      #    $log.debug( ex) if ex
+      #    $log.debug(ex.backtrace.join("\n")) if ex
+    end
   end
 end