rkumar-rbcurse 0.1.0

data/lib/rbcurse/rmessagebox.rb

@@ -0,0 +1,325 @@
+=begin
+  * Name: rmessagebox: creates messageboxes
+  * Description   
+  * Author: rkumar (arunachalesha)
+  * Date: 2008-11-19 12:49 
+  * License: Same as Ruby's License (http://www.ruby-lang.org/LICENSE.txt)
+  * file separated on 2009-01-13 22:39 
+
+=end
+require 'rbcurse/rwidget'
+require 'rbcurse/rlistbox'
+
+module RubyCurses
+  ##
+  # dimensions of window should be derived on content
+  #
+  class MessageBox
+    include DSL
+    include RubyCurses::Utils
+    dsl_accessor :title
+    dsl_accessor :message
+    dsl_accessor :type               # :ok, :ok_cancel :yes_no :yes_no_cancel :custom
+    dsl_accessor :default_button     # TODO - currently first
+    dsl_accessor :layout
+    dsl_accessor :buttons           # used if type :custom
+    dsl_accessor :underlines           # offsets of each button to underline
+    attr_reader :config
+    attr_reader :selected_index     # button index selected by user
+    attr_reader :window     # required for keyboard
+    dsl_accessor :list_selection_mode  # true or false allow multiple selection
+    dsl_accessor :list  # 2009-01-05 23:59 
+    dsl_accessor :button_type      # ok, ok_cancel, yes_no
+    dsl_accessor :default_value     # 
+    dsl_accessor :default_values     # #  2009-01-06 00:05 after removing meth missing 
+    dsl_accessor :height, :width, :top, :left  #  2009-01-06 00:05 after removing meth missing
+
+    dsl_accessor :message_height
+
+
+    def initialize form=nil, aconfig={}, &block
+      @form = form
+      @config = aconfig
+      @buttons = []
+      #@keys = {}
+      @bcol = 5
+      @selected_index = -1
+      @config.each_pair { |k,v| instance_variable_set("@#{k}",v) }
+      instance_eval &block if block_given?
+      if @layout.nil? 
+        case @type.to_s
+        when "input"
+          layout(10,60, 10, 20) 
+        when "list"
+          height = [5, @list.length].min 
+          layout(10+height, 60, 5, 20)
+        when "field_list"
+          height = @field_list.length
+          layout(10+height, 60, 5, 20)
+        when "override"
+          $log.debug " override: #{@height},#{@width}, #{@top}, #{@left} "
+          layout(@height,@width, @top, @left) 
+          $log.debug " override: #{@layout.inspect}"
+        else
+          height = @form && @form.widgets.length ## quick fix. FIXME
+          height ||= 0
+          layout(10+height,60, 10, 20) 
+        end
+      end
+      @window = VER::Window.new(@layout)
+      if @form.nil?
+        @form = RubyCurses::Form.new @window
+      else
+        @form.window = @window
+      end
+      acolor = get_color $reversecolor
+      $log.debug " MESSAGE BOX #{@bgcolor} , #{@color} , #{acolor}"
+      @window.bkgd(Ncurses.COLOR_PAIR(acolor));
+      @window.wrefresh
+      @panel = @window.panel
+      Ncurses::Panel.update_panels
+      process_field_list
+      print_borders
+      print_title
+      print_message unless @message.nil?
+      print_input
+      create_buttons
+      @form.repaint
+      @window.wrefresh
+      handle_keys
+    end
+    ##
+    # takes care of a field list sent in
+    def process_field_list
+      return if @field_list.nil? or @field_list.length == 0
+      @field_list.each do |f|
+        f.set_form @form
+      end
+    end
+    def default_button offset0
+      @selected_index = offset0
+    end
+    ##
+    # value entered by user if type = input
+    def input_value
+      return @input.buffer if !@input.nil?
+      return @listbox.getvalue if !@listbox.nil?
+    end
+    def create_buttons
+      case @button_type.to_s.downcase
+      when "ok"
+        make_buttons ["&OK"]
+      when "ok_cancel" #, "input", "list", "field_list"
+        make_buttons %w[&OK &Cancel]
+      when "yes_no"
+        make_buttons %w[&Yes &No]
+      when "yes_no_cancel"
+        make_buttons ["&Yes", "&No", "&Cancel"]
+      when "custom"
+        raise "Blank list of buttons passed to custom" if @buttons.nil? or @buttons.size == 0
+        make_buttons @buttons
+      else
+        $log.debug "No type passed for creating messagebox. Using default (OK)"
+        make_buttons ["&OK"]
+      end
+    end
+    def make_buttons names
+      total = names.inject(0) {|total, item| total + item.length + 4}
+      bcol = center_column total
+
+      brow = @layout[:height]-3
+      button_ct=0
+      names.each_with_index do |bname, ix|
+        text = bname
+        #underline = @underlines[ix] if !@underlines.nil?
+
+        button = Button.new @form do
+          text text
+          name bname
+          row brow
+          col bcol
+          #underline underline
+          highlight_background $datacolor 
+          color $reversecolor
+          bgcolor $reversecolor
+        end
+        index = button_ct
+        button.command { |form| @selected_index = index; @stop = true; $log.debug "Pressed Button #{bname}";}
+        button_ct += 1
+        bcol += text.length+6
+      end
+    end
+    ## message box
+    def stopping?
+      @stop
+    end
+    def handle_keys
+      begin
+        while((ch = @window.getchar()) != 999 )
+          case ch
+          when -1
+            next
+          else
+            press ch
+            break if @stop
+          end
+        end
+      ensure
+        destroy  
+      end
+      return @selected_index
+    end
+    def press ch
+       #$log.debug "message box handle_keys :  #{ch}"  if ch != -1
+        case ch
+        when -1
+          return
+        when KEY_F1, 27, ?\C-q   
+          @selected_index = -1
+          @stop = true
+          return
+        when KEY_ENTER, 10, 13
+          field =  @form.get_current_field
+          if field.respond_to? :fire
+            field.fire
+          end
+          $log.debug "popup ENTER : #{@selected_index} "
+          $log.debug "popup ENTER :  #{field.name}" if !field.nil?
+          @stop = true
+          return
+        when 9
+          @form.select_next_field
+        else
+          # fields must return unhandled else we will miss hotkeys. 
+          # On messageboxes, often if no edit field, then O and C are hot.
+          field =  @form.get_current_field
+          handled = field.handle_key ch
+
+          if handled == :UNHANDLED
+            ret = @form.process_key ch, self ## trying out trigger button
+          end
+        end
+        @form.repaint
+        Ncurses::Panel.update_panels();
+        Ncurses.doupdate();
+        @window.wrefresh
+    end
+    def print_borders
+      width = @layout[:width]
+      height = @layout[:height]
+      @window.print_border_mb 1,2, height, width, $normalcolor, A_REVERSE
+=begin
+      start = 2
+      hline = "+%s+" % [ "-"*(width-((start+1)*2)) ]
+      hline2 = "|%s|" % [ " "*(width-((start+1)*2)) ]
+      @window.printstring(row=1, col=start, hline, color=$reversecolor)
+      (start).upto(height-2) do |row|
+        @window.printstring row, col=start, hline2, color=$normalcolor, A_REVERSE
+      end
+      @window.printstring(height-2, col=start, hline, color=$reversecolor)
+=end
+    end
+    def print_title title=@title
+      width = @layout[:width]
+      title = " "+title+" "
+      @window.printstring(row=1,col=(width-title.length)/2,title, color=$normalcolor)
+    end
+    def center_column textlen
+      width = @layout[:width]
+      return (width-textlen)/2
+    end
+    def print_message message=@message, row=nil
+      @message_row = @message_col = 2
+      display_length = @layout[:width]-8
+      # XXX this needs to go up and decide height of window
+      if @message_height.nil?
+        @message_height = (message.length/display_length)+1
+        $log.debug " print_message: mh:#{@message_height}"
+      end
+      @message_height ||= 1
+      width = @layout[:width]
+      return if message.nil?
+      case @type.to_s
+      when "input" 
+        row=(@layout[:height]/3) if row.nil?
+        @message_col = 4
+      when "list" 
+        row=3
+        @message_col = 4 
+      else
+        row=(@layout[:height]/3) if row.nil?
+        @message_col = (width-message.length)/2
+      end
+      @message_row = row
+      #@window.printstring( row, @message_col , message, color=$reversecolor)
+      # 2008-12-30 19:45 experimenting with label so we can get justify and wrapping.
+      #@window.printstring( row, @message_col , message, color=$reversecolor)
+      message_label = RubyCurses::Label.new @form, {'text' => message, "name"=>"message_label","row" => row, "col" => @message_col, "display_length" => display_length,  "height" => @message_height, "attr"=>"reverse"}
+
+    end
+    def print_input
+      #return if @type.to_s != "input"
+      @message_height ||= 0
+      @message_row ||= 2
+      @message_col ||= 2
+      r = @message_row + @message_height + 1
+      c = @message_col
+      defaultvalue = @default_value || ""
+      input_config = @config["input_config"] || {}
+      case @type.to_s 
+      when "input"
+        @input = RubyCurses::Field.new @form, input_config do
+          name   "input" 
+          row  r 
+          col  c 
+          display_length  30
+          set_buffer defaultvalue
+        end
+      when "list"
+        list = @list
+        selection_mode = @list_selection_mode 
+        default_values = @default_values
+        $log.debug " value of select_mode #{selection_mode}"
+        @listbox = RubyCurses::Listbox.new @form do
+          name   "input" 
+          row  r 
+          col  c 
+#         attr 'reverse'
+          color 'black'
+          bgcolor 'white'
+          width 30
+          height 6
+          list  list
+          # ?? display_length  30
+          #set_buffer defaultvalue
+          selection_mode selection_mode
+          default_values default_values
+          is_popup false
+        end
+      end
+    end
+    def configure(*val , &block)
+      case val.size
+      when 1
+        return @config[val[0]]
+      when 2
+        @config[val[0]] = val[1]
+        instance_variable_set("@#{val[0]}", val[1]) 
+      end
+      instance_eval &block if block_given?
+    end
+    def cget param
+      @config[param]
+    end
+
+    def layout(height=0, width=0, top=0, left=0)
+      @layout = { :height => height, :width => width, :top => top, :left => left } 
+    end
+    def destroy
+      $log.debug "DESTROY : widget"
+      panel = @window.panel
+      Ncurses::Panel.del_panel(panel) if !panel.nil?   
+      @window.delwin if !@window.nil?
+    end
+  end
+end

data/lib/rbcurse/rpopupmenu.rb

@@ -0,0 +1,754 @@
+=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.
+  
+  --------
+  * Date: 2008-11-14 23:43 
+  * License:
+    Same as Ruby's License (http://www.ruby-lang.org/LICENSE.txt)
+
+=end
+require 'rubygems'
+require 'ncurses'
+require 'logger'
+require 'rbcurse'
+require 'rbcurse/action'
+
+include Ncurses
+include RubyCurses
+module RubyCurses
+  extend self
+
+
+  class MenuSeparator
+    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 MenuItem
+    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 menuitem : #{@text} #{@row} #{@width} "
+      highlight
+    end
+    def on_leave
+      $log.debug ">>>on leave menuitem : #{@text} "
+      highlight false
+    end
+    ## XXX it could be a menu again
+    def fire
+      $log.debug ">>>fire menuitem : #{@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 Menu < MenuItem  
+    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 = MenuItem.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, MenuSeparator.new
+    end
+    def add_separator 
+      @items << MenuSeparator.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::MenuBar 
+          $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::MenuBar 
+        @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::MenuBar 
+          @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::MenuBar 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::MenuBar 
+          @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) if !panel.nil?   
+      @window.delwin if !@window.nil?
+      @items.each do |item|
+        #next if item == :SEPARATOR
+        item.destroy
+      end
+      @window = nil
+    end
+    # menu LEFT, RIGHT, DOWN, UP, ENTER
+    # item could be menuitem 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::Menu 
+          $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::Menu 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::Menu 
+       $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::Menu 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 menuitem 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 < Menu
+    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) if !panel.nil?   
+      @window.delwin if !@window.nil?
+      @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 MenuBar
+    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) if !panel.nil?   
+      @window.delwin if !@window.nil?
+      @items.each do |item|
+        item.destroy
+      end
+      @window = nil
+    end
+  end # menubar
+
+  class CheckBoxMenuItem < MenuItem
+    include DSL
+    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