src/BOPTColStd/BOPTColStd_Failure.cdl


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25

-- File:	BOPTColStd_Failure.cdl
-- Created:	Fri May 25 12:45:12 2001
-- Author:	Peter KURNEV
--		<pkv@irinox>
---Copyright:	 Matra Datavision 2001


class Failure from BOPTColStd 

	---Purpose: 
    	--  The class provides exception objects 
--uses
--raises 

is 
    Create (aMessage: CString from Standard) 
      returns Failure from BOPTColStd;  	
    
    Message(me) 
      returns CString;	

fields 
    myMessage: PCharacter;

end Failure;