From: <jgr...@us...> - 2003-03-25 05:25:28
|
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; } |