blob: 7445b229750e4ec05dc1e8aff3bb4c1b7fa4916c (
plain)
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
26
27
28
29
30
31
32
33
34
35
36
37
38
39
|
-- File: MoniTool_SignText.cdl
-- Created: Wed May 20 16:47:50 1998
-- Author: Christian CAILLET
-- <cky@heliox.paris1.matra-dtv.fr>
---Copyright: Matra Datavision 1998
deferred class SignText from MoniTool inherits TShared
---Purpose : Provides the basic service to get a text which identifies
-- an object in a context
-- It can be used for other classes (general signatures ...)
-- It can also be used to build a message in which an object
-- is to be identified
uses CString, Transient, AsciiString from TCollection
is
Name (me) returns CString is deferred;
---Purpose : Returns an identification of the Signature (a word), given at
-- initialization time
TextAlone (me; ent : any Transient)
returns AsciiString from TCollection is virtual;
---Purpose : Gives a text as a signature for a transient object alone, i.e.
-- without defined context.
-- By default, calls Text with undefined context (Null Handle) and
-- if empty, then returns DynamicType
Text (me; ent : any Transient; context : any Transient)
returns AsciiString from TCollection is deferred;
---Purpose : Gives a text as a signature for a transient object in a context
-- If the context is senseless, it can be given as Null Handle
-- empty result if nothing to give (at least the DynamicType could
-- be sent ?)
end SignText;
|
