paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-29 11:30:28 +02:00
Code Issues Packages Projects Releases Wiki Activity

MG: replaced halt with raiseexception

Browse Source 
git-svn-id: trunk@837 -
This commit is contained in:
lazarus 2002-02-09 01:47:01 +00:00
parent 6c4d157790
commit 069da21d6f
1 changed files with 5 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
lcl/interfaces/gtk/gtkobject.inc
View File

@ -219,9 +219,8 @@ procedure TgtkObject.SendCachedLCLMessages;
// resize widget
LCLControl:=TControl(GetLCLObject(Widget));
if (LCLControl=nil) or (not (LCLControl is TControl)) then begin
writeln('ERROR: TgtkObject.SendCachedLCLMessages Widget ',
HexStr(Cardinal(Widget),8),' without LCL control');
Halt;
RaiseException('ERROR: TgtkObject.SendCachedLCLMessages Widget '
+HexStr(Cardinal(Widget),8)+' without LCL control');
end;
{$IFDEF VerboseSizeMsg}
writeln('SendCachedLCLMessages ',LCLControl.Name,':',LCLControl.ClassName,
@ -5834,6 +5833,9 @@ end;
{ =============================================================================
$Log$
Revision 1.216 2002/09/16 16:06:21 lazarus
MG: replaced halt with raiseexception
Revision 1.215 2002/09/16 15:56:01 lazarus
Resize cursors in designer.