return 1 unless $^O =~ /win32/i;

package Win32X;

use Milkbone;
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;