Update of /cvsroot/popfile/engine/Platform
In directory sc8-pr-cvs1:/tmp/cvs-serv20897/Platform
Modified Files:
MSWin32.pm
Log Message:
Make the UI pluggable; make SMTP, NNTP and POP3 modules register and handle their own configuration UI; factor the HTTP code out of the UI and into own class; implement XML-RPC interface; make test suite allow selection of tests to run; change the way POPFile reports its startup; make the version string work
Index: MSWin32.pm
===================================================================
RCS file: /cvsroot/popfile/engine/Platform/MSWin32.pm,v
retrieving revision 1.1
retrieving revision 1.2
diff -C2 -d -r1.1 -r1.2
*** MSWin32.pm 14 Mar 2003 23:12:50 -0000 1.1
--- MSWin32.pm 25 Mar 2003 05:24:55 -0000 1.2
***************
*** 71,75 ****
$self->{icon__} = new Win32::GUI::Icon('popfile.ico');
$self->{notify__} = $self->{window__}->AddNotifyIcon(
! -name => "NI",
-id => 1,
-icon => $self->{icon__},
--- 71,75 ----
$self->{icon__} = new Win32::GUI::Icon('popfile.ico');
$self->{notify__} = $self->{window__}->AddNotifyIcon(
! -name => "Platform::MSWin32::POPFileIcon",
-id => 1,
-icon => $self->{icon__},
***************
*** 90,94 ****
my ( $self ) = @_;
! $self->{window__}->NI->Delete( -id => 1 );
Win32::GUI::DoEvents();
}
--- 90,94 ----
my ( $self ) = @_;
! # $self->{window__}->->Delete( -id => 1 );
Win32::GUI::DoEvents();
}
***************
*** 101,107 ****
# ---------------------------------------------------------------------------------------------
! sub NI_RightClick
{
! 1;
}
--- 101,108 ----
# ---------------------------------------------------------------------------------------------
! sub POPFileIcon_RightClick
{
! print "rc";
! 1;
}
|
