[popfile-commit] engine/Platform MSWin32.pm,1.4,1.5

[<jgr...@us...>]

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 );
      }