[Instantobjects-cvscommit] Source/Core InstantPresentation.pas,1.17,1.18

[Carlo B. <car...@us...>]

Update of /cvsroot/instantobjects/Source/Core
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv7129/Source/Core

Modified Files:
	InstantPresentation.pas 
Log Message:
Bug fixing for D5: Application.HandleException

Index: InstantPresentation.pas
===================================================================
RCS file: /cvsroot/instantobjects/Source/Core/InstantPresentation.pas,v
retrieving revision 1.17
retrieving revision 1.18
diff -C2 -d -r1.17 -r1.18
*** InstantPresentation.pas	8 May 2005 20:23:11 -0000	1.17
--- InstantPresentation.pas	5 Jun 2005 20:30:00 -0000	1.18
***************
*** 637,642 ****
  
  uses
! {$IFDEF MSWINDOWS}
!   //Forms,
  {$ENDIF}
  {$IFDEF LINUX}
--- 637,642 ----
  
  uses
! {$IFDEF VER130}
!   Forms,
  {$ENDIF}
  {$IFDEF LINUX}
***************
*** 4129,4134 ****
--- 4129,4138 ----
      Exposer.DataEvent(deFieldChange, Integer(Field));
    except
+ {$IFDEF VER130}
+     Application.HandleException(Self);
+ {$ELSE}
      if Assigned(Classes.ApplicationHandleException) then
        Classes.ApplicationHandleException(Self);
+ {$ENDIF}
    end;
    inherited Destroy;