I was wondering the proper way to extend the perl Win32 wrapper to add in handlers for BN_Pushed and BN_UnPushed. Also how to add in SetCapture and ReleaseCapture. I had the chance to sit down with one of our more curious developers and try a go at adding the functionality ourselves. -However, after making what looked to be the obvious modifications to GUI.xs... and doing a perl Makefile.PL, nmake, nmake install... GUI.pm worked, but the supposedly added handlers, etc. didn't. I've attached a diff file (which I've also included at the end of this email) that was generated against the Build 220 GUI.xs. Garrett Goebel [EMAIL PROTECTED] *** cut here *** 750a751,760 > // ADDED MLW > case BN_PUSHED: > strcat((char *) Name, "_Pushed"); > PerlResult = DoEvent_Generic(Name); > break; > case BN_UNPUSHED: > strcat((char *) Name, "_UnPushed"); > PerlResult = DoEvent_Generic(Name); > break; > // ADDED MLW 2747a2758,2772 > OUTPUT: > RETVAL > > HWND > SetCapture(handle) > HWND handle > CODE: > RETVAL = SetCapture(handle); > OUTPUT: > RETVAL > > BOOL > ReleaseCapture(...) > CODE: > RETVAL = ReleaseCapture();
750a751,760 > // ADDED MLW > case BN_PUSHED: > strcat((char *) Name, "_Pushed"); > PerlResult = DoEvent_Generic(Name); > break; > case BN_UNPUSHED: > strcat((char *) Name, "_UnPushed"); > PerlResult = DoEvent_Generic(Name); > break; > // ADDED MLW 2747a2758,2772 > OUTPUT: > RETVAL > > HWND > SetCapture(handle) > HWND handle > CODE: > RETVAL = SetCapture(handle); > OUTPUT: > RETVAL > > BOOL > ReleaseCapture(...) > CODE: > RETVAL = ReleaseCapture();
