Leser: 2
10 Einträge, 1 Seite |
1
2
3
4
5
6
7
8
9
sub change_icon {
my ($status_color,$status_text) = @_;
Win32::GUI::NotifyIcon::Modify($winMaster,
-id => $$,
-icon => $$status_color,
-tip => " Status: $status_text" );
1; #Don't end the dialog() loop
}
10 Einträge, 1 Seite |