You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
18 lines
351 B
18 lines
351 B
package Win32X; |
|
|
|
return 1 unless $^O =~ /win32/i; |
|
|
|
use Milkbone; |
|
eval 'use Win32::API'; |
|
|
|
use strict; |
|
use warnings; |
|
|
|
my $FlashWindow = new Win32::API('user32', 'FlashWindow', 'NI', 'I'); |
|
|
|
register_hook("flash_window", sub { |
|
my $wnd = $ARGS{-wnd}; |
|
$wnd->after(200, [sub { $_[0]->Call(hex($_[1]->frame()), 1) if $_[1]; }, $FlashWindow, $wnd]); |
|
}); |
|
|
|
1;
|
|
|