[Perl-win32-gui-cvscommit] Win32-GUI GUI.pm,1.52,1.53

[Robert May]

Update of /cvsroot/perl-win32-gui/Win32-GUI
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv30060

Modified Files:
        GUI.pm 
Log Message:
Rework Tooltip Class

Index: GUI.pm
===================================================================
RCS file: /cvsroot/perl-win32-gui/Win32-GUI/GUI.pm,v
retrieving revision 1.52
retrieving revision 1.53
diff -C2 -d -r1.52 -r1.53
*** GUI.pm      16 Jul 2006 11:08:09 -0000      1.52
--- GUI.pm      3 Aug 2006 22:19:40 -0000       1.53
***************
*** 927,930 ****
--- 927,935 ----
  
      
###########################################################################
+     # (@)METHOD:AddTooltip(%OPTIONS)
+     # See new Win32::GUI::Tooltip().
+ sub AddTooltip  { return Win32::GUI::Tooltip->new(@_); }
+ 
+     
###########################################################################
      # (@)METHOD:AddMenu()
      # See new Win32::GUI::Menu().
***************
*** 2023,2026 ****
--- 2028,2053 ----
  # Create and manipulate Tooltip controls
  #
+ # Tooltip controls are probably one of the most unintuitave of the Win32
+ # controls when you first come accross them.  A Tooltip control is a
+ # single window that supports one or more 'tools'.  A tool is a window,
+ # or an area of a window that when the mouse hovers over, the tooltip
+ # window is displayed.  The Tooltip is always a top level window (so
+ # don't try adding the WS_CHILD window style), and is typically owned
+ # by the top level window of your application/dialog.
+ #
+ # Create a tooltip window:
+ #
+ #   my $tt = Win32::GUI::Tooltip->new(
+ #     $main_window,
+ #   );
+ #
+ # Add a tool to the tooltip:
+ #
+ #   $tt->AddTool(
+ #     -window => $main_window,
+ #     -text   => "Text that pops up",
+ #   );
+ #
+ # and hover the mouse over an area of your main window.
  package Win32::GUI::Tooltip;
  @ISA = qw(
***************
*** 2031,2039 ****
      
###########################################################################
      # (@)METHOD:new Win32::GUI::Tooltip(PARENT, %OPTIONS)
!     # Creates a new Tooltip object
      #
      # Class specific B<%OPTIONS> are:
!     #   -alwaystip => 0/1
!     #   -noprefix => 0/1
  sub new {
      my $parent = $_[1];
--- 2058,2075 ----
      
###########################################################################
      # (@)METHOD:new Win32::GUI::Tooltip(PARENT, %OPTIONS)
!     # Creates a new Tooltip object.
!     # Can also be called as PARENT->AddTooltip(%OPTIONS).
      #
      # Class specific B<%OPTIONS> are:
!     #   -alwaystip => 0/1 (default: 1)
!     #      Show the tooltip, even if the window is not active.
!     #   -noprefix  => 0/1 (default: 0)
!     #      Prevent the tooltip control stripping '&' prefixes
!     #   -noanimate => 0/1 (default: 0)
!     #      Turn off tooltip window animation
!     #   -nofade    => 0/1 (default: 0)
!     #      Turn off tooltip window fading effect
!     #   -balloon   => 0/1 (default: 0)
!     #      Give the tooltip window 'balloon' style
  sub new {
      my $parent = $_[1];