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 @@ -10,6 +10,6 @@ AwayTimeout 60
TrayIcon 1
HideBListLogo 0
ThemeColor lightblue
# MonitorServer smptauth.earthlink.net
# MonitorUser batkins86@earthlink.net
# MonitorPass xxxxxxxxxxxxxxxxxxxx
MonitorServer smptauth.earthlink.net
MonitorUser batkins86@earthlink.net
MonitorPass superfly

8
plugins/Win32-Tray.pl

@ -1,12 +1,12 @@ @@ -1,12 +1,12 @@
BEGIN { return 1 unless $^O =~ /win32/i; }
package Win32Tray;
return 1 unless $^O =~ /win32/i;
use strict;
use warnings;
use Milkbone;
use Win32::GUI;
eval 'use Win32::GUI';
use Tk;
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 { @@ -27,7 +27,7 @@ register_hook("signed_in", sub {
);
hook("tk_getmain")->repeat(500, [sub {
Win32::GUI::DoEvents;
Win32::GUI::DoEvents();
}, $parent]);
register_hook("post_mainloop", sub {

6
plugins/Win32X.pl

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

Loading…
Cancel
Save