At 14:53 2002-10-08 -0400, Hawley, Eric wrote: >Okay I have been attempting to add a timer to a message box and have been >unsuccessful in being able to do so. I want to have it so that after the >message box displays the user has 10 seconds to either click YES or NO with >default as YES. If after 10 seconds the user has failed to make a selection >YES will be automatically choosen. can someone help me out with this. Down >below is some code that I have from the script.
I would be surprised it that compiled and ran. This does. #!/usr/bin/perl -w use strict; use Win32::GUI; my $winDummy = Win32::GUI::Window->new(-name => "winApp"); #Create, but never Show() it my $timTimeout = $winDummy->AddTimer( "timTimeout", 10000 ); #10 sec my $choise = Win32::GUI::MessageBox($winDummy, q {Windows could not finish a system task and needs to restart. NOTE: You MUST reboot Windows so that this task may finish. Reboot Windows now?}, "Error", MB_YESNO | MB_ICONINFORMATION | MB_DEFBUTTON1); print "choice: ($choise)\n"; shutdownWindows() if($choise == 6); #6 seems to be YES sub timTimeout_Timer { print "Timeout...\n"; #Disable the timer, otherwise it will trigger this event #handler again $timTimeout->Kill(); #Never to return shutdownWindows(); } sub shutdownWindows { print "do your Windows reboot stuff here, then exit the app\n"; #This is the downside. You have to exit the Perl script #for the dialog box to disappear (I think, please prove me #wrong someone!). exit(0); } __END__ Interesting note: We never call Win32::GUI::Dialog(), and the timer still works. An alternative would be to create the dialog box yourself. That way it's like any Win32::GUI::Window, and you can close it the normal way. That's what I'd do, but if this brute force solution works for you... /J -------- ------ ---- --- -- -- -- - - - - - Johan Lindström Sourcerer @ Boss Casinos [EMAIL PROTECTED] Latest bookmark: "SQLite An Embeddable SQL Database Engine" http://www.hwaci.com/sw/sqlite/ dmoz (1 of 6): ...puters/Software/Configuration_Management/Tools/ 26 _______________________________________________ Perl-Win32-Users mailing list [EMAIL PROTECTED] To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs