Update of /cvsroot/perl-win32-gui/Win32-GUI
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv30555
Modified Files:
Tooltip.xs
Log Message:
Rework Tooltip Class
Index: Tooltip.xs
===================================================================
RCS file: /cvsroot/perl-win32-gui/Win32-GUI/Tooltip.xs,v
retrieving revision 1.7
retrieving revision 1.8
diff -C2 -d -r1.7 -r1.8
*** Tooltip.xs 16 Mar 2006 21:11:12 -0000 1.7
--- Tooltip.xs 3 Aug 2006 22:20:53 -0000 1.8
***************
*** 24,27 ****
--- 24,29 ----
if BitmaskOptionValue("-alwaystip", perlcs->cs.style, TTS_ALWAYSTIP)
} else if BitmaskOptionValue("-noprefix", perlcs->cs.style, TTS_NOPREFIX
)
+ } else if BitmaskOptionValue("-noanimate", perlcs->cs.style,
TTS_NOANIMATE )
+ } else if BitmaskOptionValue("-noface", perlcs->cs.style, TTS_NOFADE )
} else if BitmaskOptionValue("-balloon", perlcs->cs.style, TTS_BALLOON )
} else retval= FALSE;
***************
*** 69,73 ****
case TTN_NEEDTEXT :
[...1441 lines suppressed...]
! pt.x = x; pt.y = y;
! RETVAL = SendMessage(handle, TTM_WINDOWFROMPOINT, 0, (LPARAM) &pt);
! OUTPUT:
! RETVAL
--- 1258,1272 ----
###########################################################################
! # (@)INTERNAL:WindowFromPoint(X, Y)
# Allows a subclass procedure to cause a tooltip to display text for a
window
# other than the one beneath the mouse cursor.
! #
! # TTM_WINDOWFROMPOINT is supposed to be processed by a sub-class, not ever
! # sent: The tooltip class sends this to itself to determine the window
under
! # the mouse (default implementation is simly WindowFromPoint(). A
subclass
! # might (for example) want to use ChildWindowFromPoint(), so that disabled
! # windows aren't ignored, or something more complex so that a tool
! # belonging to another region is used.
! #
! # This documentation left here, to record that this message is purposely
! # not implemented as a mechanism to send this message.
