home *** CD-ROM | disk | FTP | other *** search
/ CD Actual Thematic 7: Programming / CDAT7.iso / Share / Editores / Perl5 / perl / lib / site / auto / Tk / Menu / ClassInit.al < prev    next >
Encoding:
Text File  |  1997-08-10  |  3.3 KB  |  80 lines
  1. # NOTE: Derived from ..\blib\lib\Tk\Menu.pm.  Changes made here will be lost.
  2. package Tk::Menu;
  3.  
  4. #
  5. #-------------------------------------------------------------------------
  6. # Elements of tkPriv that are used in this file:
  7. #
  8. # cursor - Saves the -cursor option for the posted menubutton.
  9. # focus - Saves the focus during a menu selection operation.
  10. # Focus gets restored here when the menu is unposted.
  11. # inMenubutton - The name of the menubutton widget containing
  12. # the mouse, or an empty string if the mouse is
  13. # not over any menubutton.
  14. # popup - If a menu has been popped up via tk_popup, this
  15. # gives the name of the menu. Otherwise this
  16. # value is empty.
  17. # postedMb - Name of the menubutton whose menu is currently
  18. # posted, or an empty string if nothing is posted
  19. # A grab is set on this widget.
  20. # relief - Used to save the original relief of the current
  21. # menubutton.
  22. # window - When the mouse is over a menu, this holds the
  23. # name of the menu; it's cleared when the mouse
  24. # leaves the menu.
  25. #-------------------------------------------------------------------------
  26. #-------------------------------------------------------------------------
  27. # Overall note:
  28. # This file is tricky because there are four different ways that menus
  29. # can be used:
  30. #
  31. # 1. As a pulldown from a menubutton. This is the most common usage.
  32. # In this style, the variable tkPriv(postedMb) identifies the posted
  33. # menubutton.
  34. # 2. As a torn-off menu copied from some other menu. In this style
  35. # tkPriv(postedMb) is empty, and the top-level menu is no
  36. # override-redirect.
  37. # 3. As an option menu, triggered from an option menubutton. In thi
  38. # style tkPriv(postedMb) identifies the posted menubutton.
  39. # 4. As a popup menu. In this style tkPriv(postedMb) is empty and
  40. # the top-level menu is override-redirect.
  41. #
  42. # The various binding procedures use the state described above to
  43. # distinguish the various cases and take different actions in each
  44. # case.
  45. #-------------------------------------------------------------------------
  46. # Bind --
  47. # This procedure is invoked the first time the mouse enters a menubutton
  48. # widget or a menubutton widget receives the input focus. It creates
  49. # all of the class bindings for both menubuttons and menus.
  50. #
  51. # Arguments:
  52. # w - The widget that was just entered or just received
  53. # the input focus.
  54. # event - Indicates which event caused the procedure to be invoked
  55. # (Enter or FocusIn). It is used so that we can carry out
  56. # the functions of that event in addition to setting up
  57. # bindings.
  58. sub ClassInit
  59. {
  60.  my ($class,$mw) = @_;
  61.  # Must set focus when mouse enters a menu, in order to allow
  62.  # mixed-mode processing using both the mouse and the keyboard.
  63.  $mw->bind($class,"<Enter>", 'Enter');
  64.  $mw->bind($class,"<Leave>", ['Leave',Ev(X),Ev(Y),Ev('s')]);
  65.  $mw->bind($class,"<Motion>", ['Motion',Ev('y'),Ev('s')]);
  66.  $mw->bind($class,"<ButtonPress>",'ButtonDown');
  67.  $mw->bind($class,"<ButtonRelease>",'Invoke');
  68.  $mw->bind($class,"<space>",'Invoke');
  69.  $mw->bind($class,"<Return>",'Invoke');
  70.  $mw->bind($class,"<Escape>",'Escape');
  71.  $mw->bind($class,"<Left>",['LeftRight',"left"]);
  72.  $mw->bind($class,"<Right>",['LeftRight',"right"]);
  73.  $mw->bind($class,"<Up>",['NextEntry',-1]);
  74.  $mw->bind($class,"<Down>",['NextEntry',1]);
  75.  $mw->bind($class,"<KeyPress>", ['TraverseWithinMenu',Ev(A)]);
  76.  return $class;
  77. }
  78.  
  79. 1;
  80.