[JVCL-Checkins] dev/JVCL3/run JvDebugHandler.pas,1.1,1.2 - Fixed wrong component name

[Andreas H. <ah...@us...>]

Update of /cvsroot/jvcl/dev/JVCL3/run
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv15657/run

Modified Files:
	JvDebugHandler.pas 
Log Message:
Fixed wrong component name


Index: JvDebugHandler.pas
===================================================================
RCS file: /cvsroot/jvcl/dev/JVCL3/run/JvDebugHandler.pas,v
retrieving revision 1.1
retrieving revision 1.2
diff -C2 -d -r1.1 -r1.2
*** JvDebugHandler.pas	13 Dec 2004 17:45:28 -0000	1.1
--- JvDebugHandler.pas	13 Dec 2004 18:15:16 -0000	1.2
***************
*** 122,126 ****
  
  type
!   TJclDebugHandler = Class(TComponent)
    Private
      FExceptionLogging: Boolean;
--- 122,126 ----
  
  type
!   TJvDebugHandler = Class(TComponent)
    Private
      FExceptionLogging: Boolean;
***************
*** 156,160 ****
  implementation
  
! procedure TJclDebugHandler.HandleUnKnownException(Sender: TObject; E: Exception);
  begin
    ExceptionNotifier(E, ExceptAddr, False);
--- 156,165 ----
  implementation
  
! {$IFDEF UNITVERSIONING}
! uses
!   JclUnitVersioning;
! {$ENDIF UNITVERSIONING}
! 
! procedure TJvDebugHandler.HandleUnKnownException(Sender: TObject; E: Exception);
  begin
    ExceptionNotifier(E, ExceptAddr, False);
***************
*** 163,167 ****
  end;
  
! procedure TJclDebugHandler.SetUnhandled(Value: Boolean);
  begin
    if FUnhandledExceptionsOnly <> Value then
--- 168,172 ----
  end;
  
! procedure TJvDebugHandler.SetUnhandled(Value: Boolean);
  begin
    if FUnhandledExceptionsOnly <> Value then
***************
*** 186,190 ****
  end;
  
! procedure TJclDebugHandler.SetStackTracking(Value: Boolean);
  begin
    if Value <> FStackTrackingEnable Then
--- 191,195 ----
  end;
  
! procedure TJvDebugHandler.SetStackTracking(Value: Boolean);
  begin
    if Value <> FStackTrackingEnable Then
***************
*** 198,202 ****
  end;
  
! constructor TJclDebugHandler.Create(AOwner: TComponent);
  begin
    inherited Create(AOwner);
--- 203,207 ----
  end;
  
! constructor TJvDebugHandler.Create(AOwner: TComponent);
  begin
    inherited Create(AOwner);
***************
*** 208,212 ****
  end;
  
! destructor TJclDebugHandler.Destroy;
  begin
    JclStopExceptionTracking;
--- 213,217 ----
  end;
  
! destructor TJvDebugHandler.Destroy;
  begin
    JclStopExceptionTracking;
***************
*** 216,220 ****
  end;
  
! procedure TJclDebugHandler.ExceptionNotifier(ExceptObj: TObject; ExceptAddr: Pointer;
    OSException: Boolean);
  var
--- 221,225 ----
  end;
  
! procedure TJvDebugHandler.ExceptionNotifier(ExceptObj: TObject; ExceptAddr: Pointer;
    OSException: Boolean);
  var
***************
*** 287,291 ****
  end;
  
! procedure TJclDebugHandler.Loaded;
  begin
    if not FIsLoaded Then
--- 292,296 ----
  end;
  
! procedure TJvDebugHandler.Loaded;
  begin
    if not FIsLoaded Then
***************
*** 307,310 ****
--- 312,331 ----
  end;
  
+ {$IFDEF UNITVERSIONING}
+ const
+   UnitVersioning: TUnitVersionInfo = (
+     RCSfile: '$RCSfile$';
+     Revision: '$Revision$';
+     Date: '$Date$';
+     LogPath: 'JVCL\run'
+   );
+ 
+ initialization
+   RegisterUnitVersion(HInstance, UnitVersioning);
+ 
+ finalization
+   UnregisterUnitVersion(HInstance);
+ {$ENDIF UNITVERSIONING}
+ 
  end.