""

Milkbone.pm

@@ -24,7 +24,7 @@ require Exporter;
 
 our @ISA = qw( Exporter );
 our @EXPORT = qw( hook is_running abort queued_hook register_hook option path data %ARGS slurp
-	deregister_hook strip_html user_file set_option MOSLoop set_interval unload_plugin load_plugin init_plugin reload_core reload_plugin);
+	deregister_hook strip_html user_file set_option MOSLoop set_interval unload_plugin load_plugin init_plugin reload_core reload_plugin nix win32);
 our @EXPORT_OK = qw( );
 
 my ($running, $dirty);

docs/BUGS.txt

@@ -1,4 +1,3 @@
-BROWSER DOESN'T FORK ON WIN32
 double type
 warnings emitted (eg the bug in Tk::Browser)
 multiple styles in browseedit

plugins/Tk-Conf/Milkbone/Conf.pm

@@ -20,6 +20,7 @@ sub ClassInit
 sub init
 {
     my ($self) = @_;
+    $self->withdraw;
 
     $self->{text} = $self->Frame->pack(-expand => 1, -fill => 'both')->Scrolled(
                                                                                 "TextUndo", -scrollbars => 'oe', -background => 'white', -wrap => 'word')->
@@ -33,6 +34,7 @@ sub init
 
     $self->{text}->Load('mb.conf');
 
+    $self->deiconify;
     $self->{text}->focus;
     hook("tk_seticon", -wnd => $self);
 }

plugins/Tk-Conf/Tk-Conf.pl

@@ -12,7 +12,6 @@ my $mw = hook("tk_getmain");
 register_hook "dlg_edit_conf", sub {
     my $file = $mw->MBConf;
     $file->init;
-    $file->focus;
 };
 
 1;

plugins/Tk-GUI/Tk/Browser.pm

@@ -130,7 +130,12 @@ sub a_begin
 		}
 		else
 		{
-			system("$cmd $_[1]");
+                    eval 'use Win32::Process; use Win32; ' .
+                        'my ($obj, $cmd);' .
+                        '$cmd = ' . "'" . 'C:\Program Files\Internet Explorer\iexplore.exe' . "';" .
+                        'Win32::Process::Create($obj, "$cmd", "$cmd $_[1]", 0, 32, abs_path) or '.
+                        'die Win32::FormatMessage( Win32::GetLastError() );' 
+                        or die "$@ $!";
 		}
 	}, $href]);