milkbone57 22 years ago
parent
commit
e2901c876a
  1. 6
      mb.conf
  2. 8
      plugins/Win32-Tray.pl
  3. 6
      plugins/Win32X.pl

6
mb.conf

@ -10,6 +10,6 @@ AwayTimeout 60
TrayIcon 1 TrayIcon 1
HideBListLogo 0 HideBListLogo 0
ThemeColor lightblue ThemeColor lightblue
# MonitorServer smptauth.earthlink.net MonitorServer smptauth.earthlink.net
# MonitorUser batkins86@earthlink.net MonitorUser batkins86@earthlink.net
# MonitorPass xxxxxxxxxxxxxxxxxxxx MonitorPass superfly

8
plugins/Win32-Tray.pl

@ -1,12 +1,12 @@
BEGIN { return 1 unless $^O =~ /win32/i; }
package Win32Tray; package Win32Tray;
return 1 unless $^O =~ /win32/i;
use strict; use strict;
use warnings; use warnings;
use Milkbone; use Milkbone;
use Win32::GUI; eval 'use Win32::GUI';
use Tk; use Tk;
my $icon = new Win32::GUI::Icon(path("images/mbone.ico")) or die "Couldn't load icon."; my $icon = new Win32::GUI::Icon(path("images/mbone.ico")) or die "Couldn't load icon.";
@ -27,7 +27,7 @@ register_hook("signed_in", sub {
); );
hook("tk_getmain")->repeat(500, [sub { hook("tk_getmain")->repeat(500, [sub {
Win32::GUI::DoEvents; Win32::GUI::DoEvents();
}, $parent]); }, $parent]);
register_hook("post_mainloop", sub { register_hook("post_mainloop", sub {

6
plugins/Win32X.pl

@ -1,9 +1,9 @@
return 1 unless $^O =~ /win32/i;
package Win32X; package Win32X;
return 1 unless $^O =~ /win32/i;
use Milkbone; use Milkbone;
use Win32::API; eval 'use Win32::API';
use strict; use strict;
use warnings; use warnings;

Loading…
Cancel
Save