=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