[tuxdroid-svn] r6059 - in software_suite_v3/software/plugin/plugin-yahoo/trunk/executables: . fetchingMails

[jerome <c2m...@c2...>]

Author: jerome
Date: 2010-02-10 14:42:14 +0100 (Wed, 10 Feb 2010)
New Revision: 6059

Modified:
   software_suite_v3/software/plugin/plugin-yahoo/trunk/executables/TuxDroidYahoo.exe
   software_suite_v3/software/plugin/plugin-yahoo/trunk/executables/fetchingMails/YahooMail.dfm
   software_suite_v3/software/plugin/plugin-yahoo/trunk/executables/fetchingMails/YahooMail.pas
Log:
* Fixed a bug closing Windblows.

Modified: software_suite_v3/software/plugin/plugin-yahoo/trunk/executables/TuxDroidYahoo.exe
===================================================================
(Binary files differ)

Modified: software_suite_v3/software/plugin/plugin-yahoo/trunk/executables/fetchingMails/YahooMail.dfm
===================================================================
--- software_suite_v3/software/plugin/plugin-yahoo/trunk/executables/fetchingMails/YahooMail.dfm	2010-02-09 11:29:59 UTC (rev 6058)
+++ software_suite_v3/software/plugin/plugin-yahoo/trunk/executables/fetchingMails/YahooMail.dfm	2010-02-10 13:42:14 UTC (rev 6059)
@@ -15,7 +15,6 @@
   Font.Style = []
   OldCreateOrder = False
   Position = poDefault
-  OnCloseQuery = FormCloseQuery
   OnCreate = FormCreate
   PixelsPerInch = 96
   TextHeight = 13
@@ -25,6 +24,7 @@
     Width = 921
     Height = 285
     TabOrder = 0
+    Silent = False
     RegisterAsBrowser = True
     OnDocumentComplete = EmbeddedWB1DocumentComplete
     DisableCtrlShortcuts = 'N'

Modified: software_suite_v3/software/plugin/plugin-yahoo/trunk/executables/fetchingMails/YahooMail.pas
===================================================================
--- software_suite_v3/software/plugin/plugin-yahoo/trunk/executables/fetchingMails/YahooMail.pas	2010-02-09 11:29:59 UTC (rev 6058)
+++ software_suite_v3/software/plugin/plugin-yahoo/trunk/executables/fetchingMails/YahooMail.pas	2010-02-10 13:42:14 UTC (rev 6059)
@@ -45,7 +45,6 @@
     procedure EmbeddedWB1DocumentComplete(ASender: TObject;const pDisp: IDispatch; var URL: OleVariant);
     procedure Timer1Timer(Sender: TObject);
     procedure Timer2Timer(Sender: TObject);
-    procedure FormCloseQuery(Sender: TObject; var CanClose: Boolean);
     procedure Timer3Timer(Sender: TObject);
     procedure DifferedStartTimer(Sender: TObject);
 
@@ -471,11 +470,4 @@
    result := chain;
 end;
 
-
-{========== Disabling close feature ==========}
-procedure TForm1.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
-begin
-  CanClose := False;
-end;
-
 end.