Update of /cvsroot/popfile/engine/Platform
In directory sc8-pr-cvs1:/tmp/cvs-serv28217
Modified Files:
MSWin32.pm
Log Message:
Eliminate warnings and use ShellExecute to get to the browser
Index: MSWin32.pm
===================================================================
RCS file: /cvsroot/popfile/engine/Platform/MSWin32.pm,v
retrieving revision 1.4
retrieving revision 1.5
diff -C2 -d -r1.4 -r1.5
*** MSWin32.pm 6 May 2003 16:09:50 -0000 1.4
--- MSWin32.pm 6 May 2003 16:30:07 -0000 1.5
***************
*** 68,72 ****
if ( !defined( $self->{getmessage__} ) ) {
! $self->{getmessage__} = Win32::API->new( "Platform/POPFileIcon.dll", "int GetMenuMessage()" );
}
--- 68,72 ----
if ( !defined( $self->{getmessage__} ) ) {
! $self->{getmessage__} = Win32::API->new( "Platform/POPFileIcon.dll", "GetMenuMessage", "", "N" );
}
***************
*** 78,81 ****
--- 78,83 ----
if ( $event == 2 ) {
+ my $execute = Win32::API->new( "Shell32", "ShellExecute", "NPPPPN", "N" );
+
# Get the port that the UI is running on and then use the
# windows start function to start the browser running
***************
*** 83,87 ****
my $url = 'http://127.0.0.1:' . $self->module_config_( 'html', 'port' );
! system( "start $url" );
}
--- 85,89 ----
my $url = 'http://127.0.0.1:' . $self->module_config_( 'html', 'port' );
! $execute->Call( 0, "open", $url, "", "", 0 );
}
|
