rbcurse 1.4.1 → 1.5.0.pre1

data/lib/rbcurse/rmultitextview.rb

@@ -1,306 +0,0 @@
-=begin
-  * Name: MultiTextView 
-  * Description   View text in this widget for multiple files
-  * This differs from multicontainer in that since all components are textviews, so they
-  * are all gauranteed to be non-editable and thus we can map many more keys.
-  * MultiContainer can only map Ctrl and Alt (Meta) keys.
-  * Author: rkumar (arunachalesha)
-  * file created 2010-03-11 08:05 
-  --------
-  * License:
-    Same as Ruby's License (http://www.ruby-lang.org/LICENSE.txt)
-
-=end
-require 'logger'
-require 'rbcurse'
-require 'rbcurse/rtextview'
-require 'rbcurse/listscrollable'
-
-#include Ncurses # FFI 2011-09-8 
-include RubyCurses
-module RubyCurses
-  extend self
-
-  ##
-  # A viewable read only box. Can scroll. 
-  # Extends TextView with ability to load more than one file or content
-  # and switch between files (buffers).
-  # NOTE: ideally, i should be able to dynamically add this functionality to either Textview
-  # or TextArea or even ListBox or Table someday. Should then be a Module rather than a class.
-  class MultiTextView < TextView
-    include ListScrollable
-
-    def initialize form = nil, config={}, &block
-
-      super
-      @bmanager = BufferManager.new self
-
-    end
-    def init_vars
-      super
-      bind_key(?:, :buffer_menu)
-      bind_key(?e, :file_edit)
-      bind_key([?\C-x, ?f], :file_edit)
-      bind_key([?\C-x, ?k], :buffer_delete)
-      bind_key([?\C-x, ?\C-b], :buffers_list)
-      # easily cycle using p. n is used for next search.
-      bind_key(?p, :buffer_previous)
-    end
-    ## returns current buffer
-    # @return  [RBuffer] current buffer
-    def current_buffer
-      @bmanager.current
-    end
-    ## 
-    # send in a list
-    # e.g.         set_content File.open("README.txt","r").readlines
-    # set wrap at time of passing :WRAP_NONE :WRAP_WORD
-    # @see add (add takes a title too which is required here)
-    def set_content list, wrap = :WRAP_NONE
-      ret = super
-    #  buff = @bmanager.add_content @list
-      return ret
-    end
-    # multi-textview
-    def handle_key ch
-      # put list as current list and buffer too then super
-      #@current_buffer = @bmanager.current
-      #@list = @current_buffer.list
-      @buffer = @list[@current_index]
-      #@buffer = @bmanager.current
-      ret = super
-      # check for any keys not handled and check our own ones
-      return ret # 
-    end
-    ## prompt user for a filename to read in
-    def getfilename prompt="Enter filename: ", maxlen=90
-      tabc = Proc.new {|str| Dir.glob(str +"*") }
-      config={}; config[:tab_completion] = tabc
-      #config[:default] = "defaulT"
-      $log.debug " inside getstr before call #{$error_message_row} +  #{$error_message_col}  "
-      #ret, str = rbgetstr(@form.window, @row+@height-1, @col+1, prompt, maxlen, config)
-      ret, str = rbgetstr(@form.window, $error_message_row, $error_message_col, prompt, maxlen, config)
-      $log.debug " rbgetstr returned #{ret} , #{str} "
-      return "" if ret != 0
-      return str
-    end
-    # this is just a test of the simple "most" menu
-    # can use this for next, prev, first, last, new, delete, overwrite etc
-    def buffer_menu
-      menu = PromptMenu.new self 
-      menu.add(menu.create_mitem( 'e', "edit a file", "opened file ", :file_edit ))
-      menu.add(menu.create_mitem( 'o', "overwrite file", "opened a file ", :file_overwrite ))
-      menu.add(menu.create_mitem( 'l', "list buffers", "list buffers ", :buffers_list ))
-      item = menu.create_mitem( 'b', "Buffer Options", "Buffer Options" )
-      menu1 = PromptMenu.new( self, "Buffer Options")
-      menu1.add(menu1.create_mitem( 'n', "Next", "Switched to next buffer", :buffer_next ))
-      menu1.add(menu1.create_mitem( 'p', "Prev", "Switched to previous buffer", :buffer_previous ))
-      menu1.add(menu1.create_mitem( 'f', "First", "Switched to first buffer", :buffer_first ))
-      menu1.add(menu1.create_mitem( 'l', "Last", "Switched to last buffer", :buffer_last ))
-      menu1.add(menu1.create_mitem( 'd', "Delete", "Deleted buffer", :buffer_delete ))
-      item.action = menu1
-      menu.add(item)
-      # how do i know what's available. the application or window should know where to place
-      menu.display @form.window, $error_message_row, $error_message_col, $datacolor #, menu
-    end
-
-    %w[next previous first last].each do |pos|
-      eval(
-           "def _buffer_#{pos}
-              @current_buffer = @bmanager.#{pos}
-              set_current_buffer
-           end"
-          )
-    end
-
-    def buffer_next
-      perror "No other buffer" and return if @bmanager.size < 2
-
-      @current_buffer = @bmanager.next
-      set_current_buffer
-    end
-    def buffer_previous
-      perror "No other buffer" and return if @bmanager.size < 2
-
-      @current_buffer = @bmanager.previous
-      $log.debug " buffer_prev got #{@current_buffer} "
-      set_current_buffer
-    end
-    def buffer_first
-      @current_buffer = @bmanager.first
-      $log.debug " buffer_first got #{@current_buffer} "
-      set_current_buffer
-    end
-    def buffer_last
-      @current_buffer = @bmanager.last
-      $log.debug " buffer_last got #{@current_buffer} "
-      set_current_buffer
-    end
-    def buffer_delete
-      if @bmanager.size > 1
-        @bmanager.delete_at
-        @current_buffer = @bmanager.previous
-        set_current_buffer
-      else
-        perror "Only one buffer. Cannot delete."
-      end
-    end
-    def buffers_list
-      menu = PromptMenu.new self 
-      @bmanager.each_with_index{ |b, ix|
-        aproc = Proc.new { buffer_at(ix) }
-        name = b.title
-        num = ix + 1
-        menu.add(menu.create_mitem( num.to_s, name, "Switched to buffer #{ix}", aproc ))
-      }
-      menu.display @form.window, $error_message_row, $error_message_col, $datacolor
-    end
-    # prompts user for filename and opens in buffer
-    # Like vim's :e
-    def file_edit
-      file = getfilename()
-      $log.debug " got file_edit: #{file} "
-      return if file == ""
-      add file, file
-    end
-    # load a file into the textview.
-    # This is the preferred method since it lets us add a title too
-    # Shucks, this misses wrap_style which the other one has
-    # @param [String] filename
-    def add file, title
-      begin
-        @current_buffer = @bmanager.add file, title
-        $log.debug " file edit got cb : #{@current_buffer} "
-        set_current_buffer
-      rescue => err
-        alert err.to_s
-        Ncurses.beep
-        return -1
-      end
-    end
-    def buffer_at index
-      @current_buffer = @bmanager.element_at index
-      $log.debug " buffer_last got #{@current_buffer} "
-      set_current_buffer
-    end
-    def set_current_buffer
-      @current_index = @current_buffer.current_index
-      @curpos = @current_buffer.curpos
-      @title = @current_buffer.title
-      @list = @current_buffer.list
-    end
-    def perror errmess
-      #@form.window.print_error_message errmess
-      alert errmess
-    end
-  end # class multitextview
-  ##
-  # Handles multiple buffers, navigation, maintenance etc
-  # Instantiated at startup of MultiTextView
-  #
-  class BufferManager
-    include Enumerable
-    def initialize source
-      @source = source
-      @buffers = [] # contains RBuffer
-      @counter = 0
-      # for each buffer i need to store data, current_index (row), curpos (col offset) and title (filename).
-    end
-    def element_at index
-      @buffers[index]
-    end
-    def each
-      @buffers.each {|k| yield(k)}
-    end
-    ##
-    # @return [RBuffer] current buffer/file
-    ##
-    def current
-      @buffers[@counter]
-    end
-    ##
-    # Would have liked to just return next buffer and not get lost in details of caller
-    #
-    # @return [RBuffer] next buffer/file
-    ##
-    def next
-      @counter += 1
-      @counter = 0 if @counter >= @buffers.size
-      @buffers[@counter]
-    end
-    ##
-    # @return [RBuffer] previous buffer/file
-    ##
-    def previous
-      $log.debug " previous bs: #{@buffers.size}, #{@counter}  "
-      @counter -= 1
-      return last() if @counter < 0
-      $log.debug " previous ctr  #{@counter} "
-      @buffers[@counter]
-    end
-    def first
-      @counter = 0
-      @buffers[@counter]
-    end
-    def last
-      @counter = @buffers.size - 1
-      @buffers[@counter]
-    end
-    ##
-    def delete_at index=@counter
-      @buffers.delete_at index
-    end
-    def delete_by_name name
-      @buffers.delete_if {|b| b.filename == name }
-    end
-    def insert filename, position, title=nil
-      # read up file
-      lines = File.open(filename,"r").readlines
-      $log.debug "multitextview loaded #{filename}, #{lines.size} lines " if $log.debug? 
-      list = @source.set_content lines
-      # set new RBuffer
-      title = filename unless title
-      raise "invalid value for list, Should be an array #{list.class} " unless list.is_a? Array
-      anew = RBuffer.new(list, 0, 0, filename, title)
-      #@buffers << anew
-      @buffers.insert position, anew
-      @counter = position
-      return anew
-    end
-    def add filename, title=nil
-      insert filename, @buffers.size, title
-    end
-    def insert_content str, position,  title="UNTitled"
-      case str
-      when String
-        # put str into list
-        @source.set_content str
-        list = @list
-      when Array
-        list = str
-      end
-      anew = RBuffer.new(list, 0, 0, "", title)
-      #@buffers << anew
-      @buffers.insert position, anew
-      @counter = position
-      return anew
-    end
-    # add content (array or str) to buffer list as a new buffer
-    def add_content str, title="UNtitled"
-      $log.debug " inside BUFFER MANAGER "
-      insert_content str,  @buffers.size, title
-    end
-    def size
-      @buffers.size
-    end
-    alias :count :size
-    def index buff
-      return @buffers.index
-    end
-  end
-  RBuffer = Struct.new(:list, :current_index, :curpos, :filename, :title) do
-    def xxx
-    end
-  end
-
-end # modul

data/lib/rbcurse/rpopupmenu.rb

@@ -1,755 +0,0 @@
-=begin
-  * Name: rpopupmenu - this is based on the crappy menubar code and needs a rewrite.
-  * Description   
-  * Author: rkumar
-TODO 
-    - Action: may have to listen to Action property changes so enabled, name etc change can be reflected
-    - menu bar : what to do if adding a menu, or option later.
-      we dnt show disabld options in a way that user can know its disabled
-    - separate file created on 2008-12-24 17:58 
-
-     Mnemonic should highlight the row if its a menu.
-NOTE : this program works but is one of the first programs and is untouched. It needs to be rewritten
-      since its quite crappy.
-      Also, we should move to Action classes as against just blokcs of code. And action class would have
-a user friendly string to identifiy the action, as well as a disabled option.
-
-     I am prefixing class names since they are same as those in rmenu and there's 
-    some crashing happening when i first execcute rmenu in one app then rpopupmenu
-    in another.
-  
-  --------
-  * Date: 2008-11-14 23:43 
-  * License:
-    Same as Ruby's License (http://www.ruby-lang.org/LICENSE.txt)
-
-=end
-require 'logger'
-require 'rbcurse'
-require 'rbcurse/action'
-
-#include Ncurses # FFI 2011-09-8 
-include RubyCurses
-module RubyCurses
-  extend self
-
-
-  class PMenuSeparator
-    attr_accessor :enabled
-    attr_accessor :parent
-    attr_accessor :row
-    attr_accessor :col
-    attr_accessor :width
-    def initialize 
-      @enable = false
-    end
-    def repaint
-      @parent.window.printstring( @row, 0, "|%s|" % ("-"*@width), $reversecolor)
-    end
-    def destroy
-    end
-    def on_enter
-    end
-    def on_leave
-    end
-    def to_s
-      ""
-    end
-  end
-  ##
-  class PMenuItem
-    attr_accessor :parent
-#    attr_accessor :window
-    attr_accessor :row
-    attr_accessor :col
-    attr_accessor :width
-    attr_accessor :accelerator
-    attr_accessor :enabled
-    attr_accessor :mnemonic  # changed reader to accessor 
-    def initialize txt, mnemonic=nil, &block
-      @mnemonic = mnemonic
-      text txt
-      @enabled = true
-      instance_eval &block if block_given?
-    end
-    ##
-    # changed so ampersand can be mnemonic esp when action comes in
-    def text s
-      s = s.dup # since actions are being shared
-      if (( ix = s.index('&')) != nil)
-        s.slice!(ix,1)
-        #@underline = ix unless @form.nil? # this setting a fake underline in messageboxes
-        @mnemonic = s[ix,1]
-      end
-      @text = s
-    end
-    def to_s
-      "#{@text} #{@accelerator}"
-    end
-    def command *args, &block 
-      $log.debug ">>>command : #{@text} "
-      @command = block if block_given?
-      @args = args
-    end
-    def on_enter
-      $log.debug ">>>on enter Pmenuitem : #{@text} #{@row} #{@width} "
-      highlight
-    end
-    def on_leave
-      $log.debug ">>>on leave Pmenuitem : #{@text} "
-      highlight false
-    end
-    ## XXX it could be a menu again
-    def fire
-      $log.debug ">>>fire Pmenuitem : #{@text} #{@command} "
-      @command.call self, *@args if !@command.nil?
-      @parent.clear_menus
-      return :CLOSE # added 2009-01-02 00:09 to close only actions, not submenus
-    end
-    def highlight tf=true
-      if tf
-        color = $datacolor
-        #@parent.window.mvchgat(y=@row, x=1, @width, Ncurses::A_NORMAL, color, nil)
-        # above line did not work in vt100, 200 terminals, next works.
-        @parent.window.mvchgat(y=@row, x=1, @width, Ncurses::A_REVERSE, $reversecolor, nil)
-      else
-        repaint
-      end
-      @parent.window.wrefresh
-    end
-    def repaint # menuitem.repaint
-      if @parent.nil? or @parent.window.nil?
-        $log.debug " #{self} parent nil"
-        return
-      end
-      r = @row
-      acolor = $reversecolor
-      acolor = get_color($reversecolor, 'green', 'white') if !@enabled
-      @parent.window.printstring( @row, 0, "|%-*s|" % [@width, @text], acolor)
-      if !@accelerator.nil?
-        @parent.window.printstring( r, (@width+1)-@accelerator.length, @accelerator, acolor)
-      else
-        #@parent.window.printstring( r, (@width+1)-1, ".", acolor)
-      end
-      if !@mnemonic.nil?
-        m = @mnemonic
-        ix = @text.index(m) || @text.index(m.swapcase)
-        charm = @text[ix,1]
-        #@parent.window.printstring( r, ix+1, charm, $datacolor) if !ix.nil?
-        # prev line changed since not working in vt100 and vt200
-        #@parent.window.printstring( r, ix+1, charm, $reversecolor, 'reverse') if !ix.nil?
-          @parent.window.mvchgat(y=r, x=ix+1, max=1, Ncurses::A_BOLD|Ncurses::A_UNDERLINE, acolor, nil)
-      end
-    end
-    def destroy
-     $log.debug "DESTRY menuitem #{@text}"
-    end
-  end
-  class PMenu < PMenuItem  
-    attr_accessor :parent
-    attr_accessor :row
-    attr_accessor :col
-    attr_accessor :width
-    attr_accessor :enabled
-    #attr_reader :text
-    attr_reader :items
-    attr_reader :window
-    attr_reader :panel
-    attr_reader :current_menu
-    attr_reader :row_margin
-    @@menus = []
-    @@row = 0
-    @@col = 0
-
-    def initialize text, &block
-      super text, nil, &block
-      @items = []
-      @enabled = true
-      @current_menu = []
-      instance_eval &block if block_given?
-      @row ||=10
-      @col ||=10
-      @@menus ||= []
-    end
-    def to_s
-      @text
-    end
-    def clear_menus
-      @@menus = []
-    end
-    # create a Menuitem given an Action
-    # if menuitem.kind_of? RubyCurses::Action
-    def create_action_component action
-        m = PMenuItem.new(action.name, action.mnemonic)
-        m.command { action.call }
-        m.accelerator = action.accelerator
-        return m
-    end
-    # item could be menuitem or another menu or a string or a Action
-    # support for action added 2009-01-21 18:08 
-    def add menuitem
-      insert menuitem, @items.size
-      return self
-    end
-    ##
-    # added 2009-01-20 13:28 NEW
-    def insert menuitem, ix
-      if menuitem.kind_of? RubyCurses::Action
-        menuitem = create_action_component menuitem
-      end
-      @items.insert ix, menuitem
-      return self
-    end
-    def insert_separator ix
-      @items.insert ix, PMenuSeparator.new
-    end
-    def add_separator 
-      @items << PMenuSeparator.new
-    end
-    def get_item i
-      @items[i]
-    end
-    def remove n
-      if n.is_a? Fixnum
-        @items.delete_at n
-      else
-        @items.delete n
-      end
-    end
-    # menu - 
-    def fire
-      $log.debug "menu fire called: #{@text}  " 
-      if @window.nil?
-        #repaint
-        create_window
-        if !@parent.is_a? RubyCurses::PMenuBar 
-          $log.debug " ADDING self to current menu: #{self}"
-          # xxx highlight true
-          @parent.current_menu << self
-          @@menus << self
-          
-          $log.debug "DDD #{@@menus} << #{self}"
-        end
-      else
-        ### shouod this not just show ?
-        $log.debug "menu fire called: #{@text} ELSE XXX WHEN IS THIS CALLED ? 658  " 
-        return @items[@active_index].fire # this should happen if selected. else selected()
-      end
-      #@action.call if !@action.nil?
-    end
-    # user has clicked down, we shoud display items
-    # DRAW menuitems
-    def repaint # menu.repaint
-      return if @items.nil? or @items.empty?
-      $log.debug "menu repaint: #{@text} row #{@row} col #{@col}  " 
-      if !@parent.is_a? RubyCurses::PMenuBar 
-        @parent.window.printstring( @row, 0, "|%-*s>|" % [@width-1, @text], $reversecolor)
-        # added 2009-01-23 00:49 
-        if !@mnemonic.nil?
-          m = @mnemonic
-          ix = @text.index(m) || @text.index(m.swapcase)
-          charm = @text[ix,1]
-          #@parent.window.printstring( r, ix+1, charm, $datacolor) if !ix.nil?
-          # prev line changed since not working in vt100 and vt200
-          #@parent.window.printstring( @row, ix+1, charm, $reversecolor, 'reverse') if !ix.nil?
-          # 2009-01-23 13:03 replaced reverse with ul
-          @parent.window.mvchgat(y=@row, x=ix+1, max=1, Ncurses::A_BOLD|Ncurses::A_UNDERLINE, $reversecolor, nil)
-        end
-        @parent.window.refresh
-      end
-      if @window.nil?
-        #create_window
-      else
-        @window.show
-        select_item 0
-        @window.refresh
-      end
-    end
-    ##
-    # recursive if given one not enabled goes to next enabled
-    def select_item ix0
-      return if @items.nil? or @items.empty?
-       $log.debug "insdie select  item :  #{ix0}" 
-      if !@active_index.nil?
-        @items[@active_index].on_leave 
-      end
-      previtem = @active_index
-      @active_index = ix0
-      if @items[ix0].enabled
-        @items[ix0].on_enter
-      else
-        $log.debug "insdie sele nxt item ENABLED FALSE :  #{ix0}" 
-        if @active_index > previtem
-          select_next_item
-        else
-          select_prev_item
-        end
-      end
-      @window.refresh
-    end
-    def select_next_item
-      return if @items.nil? or @items.empty?
-       $log.debug "insdie sele nxt item :  #{@active_index}" 
-      @active_index = -1 if @active_index.nil?
-      if @active_index < @items.length-1
-        select_item @active_index + 1
-      else
-      #  select_item 0
-      end
-    end
-    def select_prev_item
-      return if @items.nil? or @items.empty?
-       $log.debug "insdie sele prv item :  #{@active_index}" 
-      if @active_index > 0
-        select_item @active_index - 1
-      else
-      #select_item @items.length-1
-      end
-    end
-    def on_enter # menu.on_enter
-      $log.debug "menu onenter: #{@text} #{@row} #{@col}  " 
-      # call parent method. XXX
-        if @parent.is_a? RubyCurses::PMenuBar 
-          @parent.window.printstring( @row, @col, " %s " % @text, $datacolor)
-        else
-          highlight
-        end
-        if !@window.nil? #and @parent.selected
-          $log.debug "menu onenter: #{@text} calling window,show"
-          @window.show
-          select_item 0
-        elsif @parent.is_a? RubyCurses::PMenuBar and  @parent.selected
-          # only on the top level do we open a window if a previous one was opened
-          $log.debug "menu onenter: #{@text} calling repaint CLASS: #{@parent.class}"
-        #  repaint
-          create_window
-        end
-    end
-    def on_leave # menu.on_leave
-      $log.debug "menu onleave: #{@text} #{@row} #{@col}  " 
-      # call parent method. XXX
-        if @parent.is_a? RubyCurses::PMenuBar 
-          @parent.window.printstring( @row, @col, " %s " % @text, $reversecolor)
-          @window.hide if !@window.nil?
-        else
-          $log.debug "MENU SUBMEN. menu onleave: #{@text} #{@row} #{@col} will pop !! " 
-          # parent is a menu
-          highlight false
-          #@parent.current_menu.pop
-          #@@menus.pop
-          #destroy
-        end
-    end
-    def highlight tf=true # menu
-          $log.debug "MENU SUBMENU menu highlight: #{@text} #{@row} #{@col}, PW #{@parent.width}  " 
-      color = tf ? $datacolor : $reversecolor
-      att = tf ? Ncurses::A_REVERSE : Ncurses::A_NORMAL
-      #@parent.window.mvchgat(y=@row, x=1, @width, Ncurses::A_NORMAL, color, nil)
-      #@parent.window.mvchgat(y=@row, x=1, @parent.width, Ncurses::A_NORMAL, color, nil)
-      # above line did not work with vt100/vt200 next does
-      @parent.window.mvchgat(y=@row, x=1, @parent.width, att, $reversecolor, nil)
-      @parent.window.wrefresh
-    end
-    def create_window # menu XXX
-      margin = 3
-      @width = array_width @items
-      $log.debug "create window menu #{@text}: #{@row} ,#{@col},parent: #{@parent}, wd #{@width}   " 
-      #$log.debug "create window menu parent: #{@parent.row},   "  unless @parent.nil?
-      @row_margin = 1 #+ @@row
-      @row_margin = @parent.row+@parent.row_margin  unless @parent.nil?
-      #@row = @parent.row unless @parent.nil?
-      @layout = { :height => @items.length+3, :width => @width+margin, :top => @row+@row_margin, :left => @col } 
-      @win = VER::Window.new(@layout)
-      @window = @win
-      @win.bkgd(Ncurses.COLOR_PAIR($datacolor));
-      @panel = @win.panel
-        @window.printstring( 0, 0, "+%s+" % ("-"*@width), $reversecolor)
-        r = 1
-        @items.each do |item|
-            item.row = r
-            item.col = 0
-            item.col = @col+@width+margin # margins???
-            item.width = @width
-            #item.window = @window
-            item.parent = self
-            item.repaint
-          #end
-          r+=1
-        end
-        @window.printstring( r, 0, "+%s+" % ("-"*@width), $reversecolor)
-      select_item 0
-      @window.refresh
-      return @window
-    end
-    # private
-    def array_width a
-      longest = a.max {|a,b| a.to_s.length <=> b.to_s.length }
-      $log.debug "array width #{longest}"
-      longest.to_s.length
-    end
-    def destroy
-      $log.debug "DESTRY menu #{@text}"
-      return if @window.nil?
-      @visible = false
-      panel = @window.panel
-      Ncurses::Panel.del_panel(panel.pointer) if !panel.nil?   
-      @window.delwin if !@window.nil? # FFI
-      @items.each do |item|
-        #next if item == :SEPARATOR
-        item.destroy
-      end
-      @window = nil
-    end
-    # menu LEFT, RIGHT, DOWN, UP, ENTER
-    # item could be Pmenuitem or another menu
-    #
-    def handle_key ch
-      #if !@current_menu.empty?
-      #  cmenu = @current_menu.last
-      #else 
-      #  cmenu = self
-      #end
-      if !@@menus.empty?
-        cmenu = @@menus.last
-      else 
-        cmenu = self
-      end
-      $log.debug " CMENU is #{cmenu}: #{@@menus} "
-      case ch
-      when KEY_DOWN
-          cmenu.select_next_item
-      when KEY_UP
-        cmenu.select_prev_item
-      when KEY_ENTER, 10, 13, 32 # added 32 2008-11-28 23:50 
-        return cmenu.fire
-      when KEY_LEFT
-        if cmenu.parent.is_a? RubyCurses::PMenu 
-          $log.debug "LEFT IN MENU : #{cmenu.parent.class} len: #{cmenu.parent.current_menu.length}"
-          $log.debug "left IN MENU : #{cmenu.parent.class} len: #{cmenu.current_menu.length}"
-        end
-        if cmenu.parent.is_a? RubyCurses::PMenu and !cmenu.parent.current_menu.empty?
-          $log.debug " ABOU TO DESTROY DUE TO LEFT"
-          cmenu.parent.current_menu.pop
-          @@menus.pop
-          cmenu.destroy
-        else
-          $log.debug " returning UNHANDLED 370"
-          return :UNHANDLED
-        end
-      when KEY_RIGHT
-       $log.debug "RIGHTIN MENU : "
-        if cmenu.parent.is_a? RubyCurses::PMenu 
-       $log.debug "right IN MENU : #{cmenu.parent.class} len: #{cmenu.parent.current_menu.length}"
-       $log.debug "right IN MENU : #{cmenu.parent.class} len: #{cmenu.current_menu.length}"
-        end
-        if cmenu.parent.is_a? RubyCurses::PMenu and !cmenu.parent.current_menu.empty?
-          $log.debug " ABOU TO DESTROY DUE TO RIGHT"
-          cmenu.parent.current_menu.pop
-          @@menus.pop
-          cmenu.destroy
-        end
-        return :UNHANDLED
-      else
-        ret = check_mnemonics cmenu, ch
-        return ret
-      end
-    end
-    ##
-    # checks given key against current menu's items and fires key if 
-    # added on 2008-11-27 12:07 
-    def check_mnemonics cmenu, ch
-#     $log.debug "inside check_mnemonics #{ch}"
-      key = ch.chr.downcase rescue ""
-      cmenu.items.each_with_index do |item, ix|
-        next if !item.respond_to? :mnemonic or item.mnemonic.nil?
-#       $log.debug "inside check_mnemonics #{item.mnemonic}"
-        if key == item.mnemonic.downcase
-          cmenu.select_item ix # 2009-01-23 13:32  so focus moves to menu
-          ret = item.fire
-          return ret # 0 # 2009-01-23 00:43 Pmenuitem returns CLOSE, menu 0
-        end
-      end
-      return :UNHANDLED
-    end
-    ## menu 
-    def show # menu.show
-      $log.debug "show (menu) : #{@text} "
-      if @window.nil?
-        create_window
-      end
-        @window.show 
-        select_item 0
-    end
-  end
-  class PopupMenu < PMenu
-    def initialize text, &block
-      @row_margin = 0
-      @@row = 0
-      @@col = 0
-      super
-      instance_eval &block if block_given?
-    end
-    def show component, x, y
-      @component = component
-      @@row = component.row
-      @@col = component.col
-      create_window
-      handle_keys
-    end
-    def handle_keys  # popup
-      @toggle_key ||= 27 # default switch off with ESC, if nothing else defined
-      begin
-      catch(:menubarclose) do
-      while((ch = @window.getchar()) != @toggle_key )
-        case ch
-        when -1
-          next
-        else
-          ret = handle_key ch
-          $log.debug " POPUP got #{ret} added 2009-01-21 18:18 "
-          break if ret == :CLOSE
-        end
-        Ncurses::Panel.update_panels();
-        Ncurses.doupdate();
-
-        @window.wrefresh
-      end
-      end # catch
-      ensure
-        #ensure is required becos one can throw a :close
-      @@menus = [] # added 2009-01-23 13:21 
-      destroy  # Note that we destroy the menu bar upon exit
-      end
-    end
-    def destroy
-      $log.debug "DESTRY popup "
-      @visible = false
-      panel = @window.panel
-      Ncurses::Panel.del_panel(panel.pointer) if !panel.nil?   
-      @window.delwin if !@window.nil? # FFI
-      @items.each do |item|
-        item.destroy
-      end
-      @window = nil
-    end
-  end # class
-  ##
-  # An application related menubar.
-  # Currently, I am adding this to a form. But should this not be application specific ?
-  # It should popup no matter which window you are on ?? XXX
-  class PMenuBar
-    attr_reader :items
-    attr_reader :window
-    attr_reader :panel
-    attr_reader :selected
-    attr_accessor :visible
-    attr_accessor :active_index
-    attr_accessor :state              # normal, selected, highlighted
-    attr_accessor :toggle_key              # key used to popup, should be set prior to attaching to form
-    def initialize &block
-      @window = nil
-      @active_index = 0
-      @items = []
-      @visible = false
-      @cols = Ncurses.COLS-1
-      instance_eval &block if block_given?
-    end
-    def focusable
-      false
-    end
-    def add menu
-      @items << menu
-      return self
-    end
-    def next_menu
-      $log.debug "next meu: #{@active_index}  " 
-      if @active_index < @items.length-1
-        set_menu @active_index + 1
-      else
-        set_menu 0
-      end
-    end
-    def prev_menu
-      $log.debug "prev meu: #{@active_index} " 
-      if @active_index > 0
-        set_menu @active_index-1
-      else
-        set_menu @items.length-1
-      end
-    end
-    def set_menu index
-      $log.debug "set meu: #{@active_index} #{index}" 
-      menu = @items[@active_index]
-      menu.on_leave # hide its window, if open
-      @active_index = index
-      menu = @items[@active_index]
-      menu.on_enter #display window, if previous was displayed
-      @window.wmove menu.row, menu.col
-#     menu.show
-#     menu.window.wrefresh # XXX we need this
-    end
-    # menubar LEFT, RIGHT, DOWN 
-    def handle_keys
-      @selected = false
-      @toggle_key ||= 27 # default switch off with ESC, if nothing else defined
-      set_menu 0
-      begin
-      catch(:popupclose) do
-      while((ch = @window.getchar()) != @toggle_key )
-       $log.debug "menuubar inside handle_keys :  #{ch}"  if ch != -1
-        case ch
-        when -1
-          next
-        when KEY_DOWN
-          $log.debug "insdie keyDOWN :  #{ch}" 
-          if !@selected
-            current_menu.fire
-          else
-            current_menu.handle_key ch
-          end
-            
-          @selected = true
-        when KEY_ENTER, 10, 13, 32
-          @selected = true
-            $log.debug " mb insdie ENTER :  #{current_menu}" 
-            ret = current_menu.handle_key ch
-            $log.debug "ret = #{ret}  mb insdie ENTER :  #{current_menu}" 
-            #break; ## 2008-12-29 18:00  This will close after firing
-            #anything
-            break if ret == :CLOSE
-        when KEY_UP
-          $log.debug " mb insdie keyUPP :  #{ch}" 
-          current_menu.handle_key ch
-        when KEY_LEFT
-          $log.debug " mb insdie KEYLEFT :  #{ch}" 
-          ret = current_menu.handle_key ch
-          prev_menu if ret == :UNHANDLED
-          #display_items if @selected
-        when KEY_RIGHT
-          $log.debug " mb insdie KEYRIGHT :  #{ch}" 
-          ret = current_menu.handle_key ch
-          next_menu if ret == :UNHANDLED
-        else
-          $log.debug " mb insdie ELSE :  #{ch}" 
-          ret = current_menu.handle_key ch
-          if ret == :UNHANDLED
-            Ncurses.beep 
-          else
-            break  # we handled a menu action, close menubar (THIS WORKS FOR MNEMONICS ONLY and always)
-          end
-        end
-        Ncurses::Panel.update_panels();
-        Ncurses.doupdate();
-
-        @window.wrefresh
-      end
-      end # catch
-      ensure
-        #ensure is required becos one can throw a :close
-      destroy  # Note that we destroy the menu bar upon exit
-      end
-    end
-    def current_menu
-      @items[@active_index]
-    end
-    def toggle
-      @visible = !@visible
-      if !@visible
-        hide
-      else
-        show
-      end
-    end
-    def hide
-      @visible = false
-      @window.hide if !@window.nil?
-    end
-    def show
-      @visible = true
-      if @window.nil?
-        repaint  # XXX FIXME
-      else
-        @window.show 
-      end
-    end
-    ## menubar
-    def repaint
-      return if !@visible
-      @window ||= create_window
-      @window.printstring( 0, 0, "%-*s" % [@cols," "], $reversecolor)
-      c = 1; r = 0;
-      @items.each do |item|
-        item.row = r; item.col = c; item.parent = self
-        @window.printstring( r, c, " %s " % item.text, $reversecolor)
-        c += (item.text.length + 2)
-      end
-      @window.wrefresh
-    end
-    def create_window
-      @layout = { :height => 1, :width => 0, :top => 0, :left => 0 } 
-      @win = VER::Window.new(@layout)
-      @window = @win
-      @win.bkgd(Ncurses.COLOR_PAIR(5));
-      @panel = @win.panel
-      return @window
-    end
-    def destroy
-      $log.debug "DESTRY menubar "
-      @visible = false
-      panel = @window.panel
-      Ncurses::Panel.del_panel(panel.pointer) if !panel.nil?   
-      @window.delwin if !@window.nil?
-      @items.each do |item|
-        item.destroy
-      end
-      @window = nil
-    end
-  end # menubar
-
-  class PCheckBoxMenuItem < PMenuItem
-    attr_reader :checkbox
-    def initialize text, mnemonic=nil, &block
-      @checkbox = CheckBox.new nil
-      @checkbox.text text
-      super
-    end
-    def onvalue
-      @checkbox.onvalue onvalue
-    end
-    def offvalue
-      @checkbox.onvalue offvalue
-    end
-   def text=(t) # stack level too deep if no = .????
-    @checkbox.text t
-   end
-   ## added @ with text, else crashing on testmenu.rb
-    def to_s
-      "    #{@text} "
-    end
-    def getvalue
-      checkbox.getvalue
-    end
-    def getvalue_for_paint
-      "|%-*s|" % [@width, checkbox.getvalue_for_paint]
-    end
-    def fire
-      checkbox.toggle
-      super
-      repaint
-      highlight true
-    end
-    def repaint
-      @parent.window.printstring( row, 0, getvalue_for_paint, $reversecolor)
-      parent.window.wrefresh
-    end
-    def method_missing(sym, *args)
-      if checkbox.respond_to? sym
-        $log.debug("calling CHECKBOXMENU #{sym} called #{args[0]}")
-        checkbox.send(sym, args)
-      else
-        $log.error("ERROR CHECKBOXMENU #{sym} called")
-      end
-    end
-
-  end
-end # modul