>I'd appreciate it if people can build and what's in CVS and run their
>current scripts against these changes to see what (if any) change in
>behaviour you get. I hope none (except perhaps for a few warnings), but I
>need help to ensure I've covered all the ways people were accessing the
>constants previously. Additionally I'd like some confidence that I haven't
>accidentally broken anything elsewhere - everything seems OK here, and all
>the tests still pass (they didn't with my first attempt, showing the value
>of having such tests).
Bareword "Win32::GUI::MB_OK" not allowed while "strict subs" in use at
ite/lib/Client/WindowManager.pm line 120.
Bareword "Win32::GUI::MB_ICONINFORMATION" not allowed while "strict subs" in
at C:/perl/site/lib/Client/WindowManager.pm line 120.
In the WindowManager package I've got the following code:
Win32::GUI::MessageBox($mainwindow,$text,"Message", Win32::GUI::MB_OK |
Turns out I'm doing this all over the place - for example in another
$grahicwin = new Win32::GUI::Window (
-parent => $w,
-name => 'Time',
-pos => [8,160],
-size => [562,105],
-popstyle => Win32::GUI::WS_CAPTION | Win32::GUI::WS_SIZEBOX,
-pushstyle => Win32::GUI::WS_CHILD | Win32::GUI::WS_CLIPCHILDREN,
-pushexstyle => Win32::GUI::WS_EX_CLIENTEDGE,
The reason I did this was to stop the namespace pollution of doing a use
Win32::GUI in each package:)
Hopefully I'll have time later today to change my logic.