Class: Canis::MenuBar

Inherits:
Object show all
Defined in:
lib/canis/core/widgets/rmenu.rb

Overview

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

Instance Attribute Summary collapse

Instance Method Summary collapse

Constructor Details

#initialize(&block) ⇒ MenuBar

Returns a new instance of MenuBar.



679
680
681
682
683
684
685
686
687
 
# File 'lib/canis/core/widgets/rmenu.rb', line 679

def initialize &block
  @window = nil
  @text = "menubar"
  @items = []
  init_vars
  @visible = false
  @cols = Ncurses.COLS-1
  instance_eval &block if block_given?
end

Instance Attribute Details

#_object_created ⇒ Object

2011-10-7 if visible then Form will call this



678
679
680
 
# File 'lib/canis/core/widgets/rmenu.rb', line 678

def _object_created
  @_object_created
end

#active_index ⇒ Object

Returns the value of attribute active_index.



674
675
676
 
# File 'lib/canis/core/widgets/rmenu.rb', line 674

def active_index
  @active_index
end

#bgcolor ⇒ Object

2011-09-25 V1.3.1



677
678
679
 
# File 'lib/canis/core/widgets/rmenu.rb', line 677

def bgcolor
  @bgcolor
end

#color ⇒ Object

2011-09-25 V1.3.1



677
678
679
 
# File 'lib/canis/core/widgets/rmenu.rb', line 677

def color
  @color
end

#items ⇒ Object (readonly)

Returns the value of attribute items.



668
669
670
 
# File 'lib/canis/core/widgets/rmenu.rb', line 668

def items
  @items
end

#panel ⇒ Object (readonly)

Returns the value of attribute panel.



670
671
672
 
# File 'lib/canis/core/widgets/rmenu.rb', line 670

def panel
  @panel
end

#selected ⇒ Object (readonly)

Returns the value of attribute selected.



671
672
673
 
# File 'lib/canis/core/widgets/rmenu.rb', line 671

def selected
  @selected
end

#state ⇒ Object

normal, selected, highlighted



675
676
677
 
# File 'lib/canis/core/widgets/rmenu.rb', line 675

def state
  @state
end

#text ⇒ Object (readonly)

temp 2011-09-24 V1.3.1



672
673
674
 
# File 'lib/canis/core/widgets/rmenu.rb', line 672

def text
  @text
end

#toggle_key ⇒ Object

key used to popup, should be set prior to attaching to form



676
677
678
 
# File 'lib/canis/core/widgets/rmenu.rb', line 676

def toggle_key
  @toggle_key
end

#visible ⇒ Object

Returns the value of attribute visible.



673
674
675
 
# File 'lib/canis/core/widgets/rmenu.rb', line 673

def visible
  @visible
end

#window ⇒ Object (readonly)

Returns the value of attribute window.



669
670
671
 
# File 'lib/canis/core/widgets/rmenu.rb', line 669

def window
  @window
end

Instance Method Details

#add(menu) ⇒ Object Also known as: <<

add a precreated menu



697
698
699
700
701
 
# File 'lib/canis/core/widgets/rmenu.rb', line 697

def add menu
  #$log.debug "YYYY inside MB: add #{menu.text}  "
  @items << menu
  return self
end

#create_window_menubar ⇒ Object 



878
879
880
881
882
883
884
885
886
887
888
889
890
891
892
 
# File 'lib/canis/core/widgets/rmenu.rb', line 878

def create_window_menubar
  @layout = { :height => 1, :width => 0, :top => 0, :left => 0 } 
  @win = Canis::Window.new(@layout)
  @window = @win
  att = get_attrib @attr
  @win.bkgd(Ncurses.COLOR_PAIR(5)); # <---- FIXME
  len = @window.width
  len = Ncurses.COLS-0 if len == 0
  # print a bar across the screen , which hopefully will not go blank in some terms
  @window.attron(Ncurses.COLOR_PAIR(@color_pair) | att)
  @window.mvhline(0, 0, 1, len)
  @window.attroff(Ncurses.COLOR_PAIR(@color_pair) | att)
  @panel = @win.panel
  return @window
end

#current_menu ⇒ Object 



816
817
818
 
# File 'lib/canis/core/widgets/rmenu.rb', line 816

def current_menu
  @items[@active_index]
end

#destroy ⇒ Object 



893
894
895
896
897
898
899
900
901
902
903
904
905
906
907
908
909
910
911
912
913
914
915
916
917
918
919
920
 
# File 'lib/canis/core/widgets/rmenu.rb', line 893

def destroy
  $log.debug "DESTRY menubar #{@keep_visible} "

  # when we close, but keep visible, we don't want menu to still be hightlighted
  # added on 2011-12-12 
  menu = @items[@active_index]
  menu.on_leave # hide its window, if open

  @items.each do |item|
    item.destroy
  end
  $log.debug "  DESTROY finished with items "
  # TODO the current menu should not be highlighted
  # FIXME even here i think underlying windows need to be repainted.
  #return if @keep_visible
  if @keep_visible
    Window.refresh_all
    return
  end
  @visible = false
  # replacing next 3 lines with destroy. 2014-05-12 - 17:07 CANIS
  #panel = @window.panel
  #Ncurses::Panel.del_panel(panel.pointer) if !panel.nil?   
  #@window.delwin if [email protected]?
  $log.debug "  CALLING WINDOW DESTROY from menubar"
  @window.destroy
  @window = nil
end

#focusable ⇒ Object Also known as: focusable? 



692
693
694
 
# File 'lib/canis/core/widgets/rmenu.rb', line 692

def focusable
  false
end

#handle_keys ⇒ Object

menubar LEFT, RIGHT, DOWN



750
751
752
753
754
755
756
757
758
759
760
761
762
763
764
765
766
767
768
769
770
771
772
773
774
775
776
777
778
779
780
781
782
783
784
785
786
787
788
789
790
791
792
793
794
795
796
797
798
799
800
801
802
803
804
805
806
807
808
809
810
811
812
813
814
815
 
# File 'lib/canis/core/widgets/rmenu.rb', line 750

def handle_keys
  @selected = false
  @repaint_required = true # added 2011-12-12 otherwise keeps repainting and you see a flicker
  @toggle_key ||= 27 # default switch off with ESC, if nothing else defined
  set_menu 0
  begin
  catch(:menubarclose) 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
    when ?\C-g.getbyte(0) # abort
      throw :menubarclose
    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
    $log.debug " DESTROY IN ENSURE"
    current_menu.clear_menus #@@menus = [] # added 2009-01-23 13:21 
    @repaint_required = false
    destroy  # Note that we destroy the menu bar upon exit
  end
end

#hide ⇒ Object 



838
839
840
841
 
# File 'lib/canis/core/widgets/rmenu.rb', line 838

def hide
  @visible = false
  @window.hide if !@window.nil? # seems to cause auto-firing when we resume toggle 2011-09-26 
end

#init_vars ⇒ Object 



688
689
690
691
 
# File 'lib/canis/core/widgets/rmenu.rb', line 688

def init_vars
  @active_index = 0
  @repaint_required = true
end

#keep_visible(flag = nil) ⇒ Object 



743
744
745
746
747
748
 
# File 'lib/canis/core/widgets/rmenu.rb', line 743

def keep_visible flag=nil
  return @keep_visible unless flag
  @keep_visible = flag
  @visible = flag
  self
end

#menu(text, &block) ⇒ Object

add a menu through the block, this would happen through instance eval 2010-09-10 12:07 added while simplifying the interface this calls add so you get the MB back, not a ref to the menu created NOTE



707
708
709
710
711
712
713
714
 
# File 'lib/canis/core/widgets/rmenu.rb', line 707

def menu text, &block
  #$log.debug "YYYY inside MB: menu text #{text} "
  m = Menu.new text, &block 
  m.color = @color
  m.bgcolor = @bgcolor
  add m
  return m
end

#next_menu ⇒ Object 



715
716
717
718
719
720
721
722
 
# File 'lib/canis/core/widgets/rmenu.rb', line 715

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

#prev_menu ⇒ Object 



723
724
725
726
727
728
729
730
 
# File 'lib/canis/core/widgets/rmenu.rb', line 723

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

#repaint ⇒ Object

menubar TODO: check for menu to be flush right (only for last one). TODO: repaint only if needed



853
854
855
856
857
858
859
860
861
862
863
864
865
866
867
868
869
870
871
872
873
874
875
876
877
 
# File 'lib/canis/core/widgets/rmenu.rb', line 853

def repaint
  return if !@visible
  return unless @repaint_required
  @repaint_required = false
  @color_pair = get_color($reversecolor, @color, @bgcolor)
  @window ||= create_window_menubar
  #@window.printstring( 0, 0, "%-*s" % [@cols," "], @color_pair) # this becomes blank in some terms
  c = 1; r = 0;
  @items.each do |item|
    item.row = r; item.col = c; item.coffset = c; item.parent = self
    item.color = @color
    item.bgcolor = @bgcolor
    @window.printstring( r, c, " %s " % item.text, @color_pair)
    # 2011-09-26 V1.3.1 quick dirty highlighting of first menu on menubar
    # on opening since calling highlight was giving bug in parent.width
    #if c == 1
      #att =  Ncurses::A_REVERSE
      #@window.mvchgat(y=r, x=c+1, item.text.length+1, att, @color_pair, nil)
    #end
    c += (item.text.length + 2)
  end
  #@items[0].on_enter # 2011-09-25 V1.3.1  caused issues when toggling, first item fired on DOWN
  @items[0].highlight unless @keep_visible # 2011-09-26 V1.3.1   fixed to take both cases into account
  @window.wrefresh
end

#set_menu(index) ⇒ Object 



731
732
733
734
735
736
737
738
739
740
741
 
# File 'lib/canis/core/widgets/rmenu.rb', line 731

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

#show ⇒ Object 



842
843
844
845
846
847
848
849
 
# File 'lib/canis/core/widgets/rmenu.rb', line 842

def show
  @visible = true
  if @window.nil?
    repaint  # XXX FIXME
  else
    @window.show 
  end
end

#toggle ⇒ Object

called by set_menu_bar in widget.rb (class Form).



820
821
822
823
824
825
826
827
828
829
830
831
832
833
834
835
836
837
 
# File 'lib/canis/core/widgets/rmenu.rb', line 820

def toggle
  # added keeping it visible, 2011-10-7 being tested in dbdemo
  if @keep_visible
    init_vars
    show
    @items[0].highlight
    @window.ungetch(KEY_DOWN)
    return
  end
  #@items.each { |i| $log.debug " ITEM DDD : #{i.text}" }
  @visible = !@visible
  if !@visible
    hide
  else
    init_vars
    show
  end
end