mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-08-14 14:29:44 +02:00
+ Updated exception classes
This commit is contained in:
parent
5046369285
commit
871b893faf
@ -1,3 +1,6 @@
|
|||||||
|
%!PS-Adobe-2.0
|
||||||
|
%BoundingBox: 0 0 2000 3200
|
||||||
|
%%DocumentPaperSizes: a4
|
||||||
%!
|
%!
|
||||||
%
|
%
|
||||||
% $Id$
|
% $Id$
|
||||||
@ -32,10 +35,10 @@ setfont
|
|||||||
|
|
||||||
% RGB colors of the texts
|
% RGB colors of the texts
|
||||||
/StandardTextColor { 0 0 0 } def
|
/StandardTextColor { 0 0 0 } def
|
||||||
/MissedTextColor { 0.50 0.50 0.50 } def
|
/MissingTextColor { 0.50 0.50 0.50 } def
|
||||||
|
|
||||||
% RGB colors of the boxes
|
% RGB colors of the boxes
|
||||||
/MissedColor { 0.92 0.92 0.92 } def
|
/MissingColor { 0.92 0.92 0.92 } def
|
||||||
/IncompleteColor { 1 0.5 0.5 } def
|
/IncompleteColor { 1 0.5 0.5 } def
|
||||||
/UntestedColor { 1 1 0.6} def
|
/UntestedColor { 1 1 0.6} def
|
||||||
/ReadyColor { 0.7 1 0.7 } def
|
/ReadyColor { 0.7 1 0.7 } def
|
||||||
@ -48,7 +51,7 @@ setfont
|
|||||||
% End of Configurable section
|
% End of Configurable section
|
||||||
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
|
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
|
||||||
% some setups
|
% some setups
|
||||||
/Missed {0} def
|
/Missing {0} def
|
||||||
/Incomplete {1} def
|
/Incomplete {1} def
|
||||||
/Untested {2} def
|
/Untested {2} def
|
||||||
/Ready {3} def
|
/Ready {3} def
|
||||||
@ -92,7 +95,7 @@ setfont
|
|||||||
nexticonx 1.5 mm sub maxx gt { /maxx nexticonx def } if
|
nexticonx 1.5 mm sub maxx gt { /maxx nexticonx def } if
|
||||||
|
|
||||||
% set box color
|
% set box color
|
||||||
status Missed eq { MissedColor setrgbcolor } if
|
status Missing eq { MissingColor setrgbcolor } if
|
||||||
status Incomplete eq { IncompleteColor setrgbcolor } if
|
status Incomplete eq { IncompleteColor setrgbcolor } if
|
||||||
status Untested eq { UntestedColor setrgbcolor } if
|
status Untested eq { UntestedColor setrgbcolor } if
|
||||||
status Ready eq { ReadyColor setrgbcolor } if
|
status Ready eq { ReadyColor setrgbcolor } if
|
||||||
@ -107,7 +110,7 @@ setfont
|
|||||||
fill
|
fill
|
||||||
|
|
||||||
% set text color
|
% set text color
|
||||||
status Missed eq { MissedTextColor setrgbcolor }
|
status Missing eq { MissingTextColor setrgbcolor }
|
||||||
{ StandardTextColor setrgbcolor } ifelse
|
{ StandardTextColor setrgbcolor } ifelse
|
||||||
|
|
||||||
% set text pos and write text
|
% set text pos and write text
|
||||||
@ -160,7 +163,7 @@ setfont
|
|||||||
/lastlargeobjectx nexticonx 1.5 mm sub def
|
/lastlargeobjectx nexticonx 1.5 mm sub def
|
||||||
|
|
||||||
% set box color
|
% set box color
|
||||||
status Missed eq { MissedColor setrgbcolor } if
|
status Missing eq { MissingColor setrgbcolor } if
|
||||||
status Incomplete eq { IncompleteColor setrgbcolor } if
|
status Incomplete eq { IncompleteColor setrgbcolor } if
|
||||||
status Untested eq { UntestedColor setrgbcolor } if
|
status Untested eq { UntestedColor setrgbcolor } if
|
||||||
status Ready eq { ReadyColor setrgbcolor } if
|
status Ready eq { ReadyColor setrgbcolor } if
|
||||||
@ -175,7 +178,7 @@ setfont
|
|||||||
fill
|
fill
|
||||||
|
|
||||||
% set text color
|
% set text color
|
||||||
status Missed eq { MissedTextColor setrgbcolor }
|
status Missing eq { MissingTextColor setrgbcolor }
|
||||||
{ StandardTextColor setrgbcolor } ifelse
|
{ StandardTextColor setrgbcolor } ifelse
|
||||||
|
|
||||||
% set text pos and write text
|
% set text pos and write text
|
||||||
@ -388,57 +391,72 @@ setfont
|
|||||||
%%%%%%%%%%%%%%%%%%%%%%%
|
%%%%%%%%%%%%%%%%%%%%%%%
|
||||||
% Exception classes
|
% Exception classes
|
||||||
%%%%%%%%%%%%%%%%%%%%%%%
|
%%%%%%%%%%%%%%%%%%%%%%%
|
||||||
(Exception) Missed newchildclass
|
(Exception) Missing newchildclass
|
||||||
(EAbort) Incomplete newchildclass
|
(EAbort) Incomplete newchildclass
|
||||||
(EAbstractError) Missed newclass Linuxonly
|
(EAbstractError) Ready newclass Linuxonly
|
||||||
(EDatabaseError) Missed newclass Linuxonly
|
(EConvertError) Ready newclass
|
||||||
(EDBCLient) Missed newchildclass
|
(EDatabaseError) Missing newclass Linuxonly
|
||||||
(EReconcileError) Missed newchildclass Linuxonly
|
(EDBCLient) Missing newchildclass
|
||||||
|
(EReconcileError) Missing newchildclass Linuxonly
|
||||||
onelevelback
|
onelevelback
|
||||||
(EDBEngineError) Missed newclass Win32only
|
(EDBEngineError) Missing newclass Win32only
|
||||||
(ENoResultSet) Missed newclass
|
(ENoResultSet) Missing newclass
|
||||||
(EUpdateError) Missed newclass
|
(EUpdateError) Missing newclass
|
||||||
onelevelback
|
onelevelback
|
||||||
(EDBEditError) Missed newclass
|
(EDBEditError) Missing newclass
|
||||||
(EDSWriter) Missed newclass
|
(EIntError) Ready newclass
|
||||||
|
(EDivByZero) Ready newchildclass
|
||||||
|
(EIntOverflow) Ready newclass
|
||||||
|
(ERangeError) Ready newclass
|
||||||
|
onelevelback
|
||||||
|
(EInOutError) Ready newclass
|
||||||
|
(EInvalidPointer) Ready newclass
|
||||||
|
(EDSWriter) Missing newclass
|
||||||
|
(EMathError) Ready newclass
|
||||||
|
(EInvalidOp) Ready newchildclass
|
||||||
|
(EOverflow) Ready newclass
|
||||||
|
(EUnderflow) Ready newclass
|
||||||
|
(EZeroDivide) Ready newclass
|
||||||
|
onelevelback
|
||||||
|
(EOutOfMemory) Ready newclass
|
||||||
onelevelback
|
onelevelback
|
||||||
(OutlineError) Missed newclass
|
(OutlineError) Missing newclass
|
||||||
|
|
||||||
%%%%%%%%%%%%%%%%%%%%%%%
|
%%%%%%%%%%%%%%%%%%%%%%%
|
||||||
% Some more base classes
|
% Some more base classes
|
||||||
%%%%%%%%%%%%%%%%%%%%%%%
|
%%%%%%%%%%%%%%%%%%%%%%%
|
||||||
newcolumn
|
newcolumn
|
||||||
(TInterface) Missed 40 mm newclassxmoved
|
(TInterface) Missing newclass % 40 mm newclassxmoved
|
||||||
(TIAddInNotifier) Missed newchildclass
|
(TIAddInNotifier) Missing newchildclass
|
||||||
|
|
||||||
restoreoldxy
|
%restoreoldxy
|
||||||
(TInterfacedObject) Missed newclass
|
(TInterfacedObject) Missing newclass
|
||||||
|
|
||||||
(TList) Ready newclass
|
(TList) Ready newclass
|
||||||
(TLookupList) Missed newclass
|
(TLookupList) Missing newclass
|
||||||
|
|
||||||
(TPropertyEditor) Missed 40 mm newclassxmoved
|
(TPropertyEditor) Missing newclass %40 mm newclassxmoved
|
||||||
(TClassProperty) Missed newchildclass
|
(TClassProperty) Missing newchildclass
|
||||||
(TFontProperty) Missed newchildclass
|
(TFontProperty) Missing newchildclass
|
||||||
onelevelback
|
onelevelback
|
||||||
(TComponentProperty) Missed newclass
|
(TComponentProperty) Missing newclass
|
||||||
% remove a childy coordinate
|
% remove a childy coordinate
|
||||||
restoreoldxy
|
%restoreoldxy
|
||||||
(TRegistry) Missed newclass
|
(TRegistry) Missing newclass
|
||||||
(TRegIniFile) Missed newchildclass
|
(TRegIniFile) Missing newchildclass
|
||||||
onelevelback
|
onelevelback
|
||||||
(TSessionList) Missed newclass
|
(TSessionList) Missing newclass
|
||||||
|
|
||||||
%%%%%%%%%%%%%%%%%%%%%%%
|
%%%%%%%%%%%%%%%%%%%%%%%
|
||||||
% TPersistent classes
|
% TPersistent classes
|
||||||
%%%%%%%%%%%%%%%%%%%%%%%
|
%%%%%%%%%%%%%%%%%%%%%%%
|
||||||
newcolumn
|
newcolumn
|
||||||
(TPersistent) Untested newlargeheadclass
|
(TPersistent) Untested newlargeheadclass
|
||||||
(TCanvas) Missed newchildclass
|
(TCanvas) Missing newchildclass
|
||||||
(TControlCanvas) Missed newchildclass
|
(TControlCanvas) Missing newchildclass
|
||||||
(TMetafileCanvas) Missed newclass
|
(TMetafileCanvas) Missing newclass
|
||||||
onelevelback
|
onelevelback
|
||||||
(TClipboard) Missed newclass
|
(TClipboard) Missing newclass
|
||||||
%%%%%%%%%%%%%%%%%%%%%%%
|
%%%%%%%%%%%%%%%%%%%%%%%
|
||||||
% TComponent classes
|
% TComponent classes
|
||||||
%%%%%%%%%%%%%%%%%%%%%%%
|
%%%%%%%%%%%%%%%%%%%%%%%
|
||||||
@ -448,7 +466,10 @@ showpage
|
|||||||
|
|
||||||
%
|
%
|
||||||
% $Log$
|
% $Log$
|
||||||
% Revision 1.6 1998-10-01 20:40:20 florian
|
% Revision 1.7 1998-10-02 15:45:00 michael
|
||||||
|
% + Updated exception classes
|
||||||
|
%
|
||||||
|
% Revision 1.6 1998/10/01 20:40:20 florian
|
||||||
% * log was written wrong
|
% * log was written wrong
|
||||||
%
|
%
|
||||||
% Revision 1.5 1998/10/01 20:39:08 florian
|
% Revision 1.5 1998/10/01 20:39:08 florian
|
||||||
|
Loading…
Reference in New Issue
Block a user