From: Robert M. <rob...@us...> - 2006-08-03 22:20:58
|
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. |