blob: c16262555b427ef2c6577971da3d2dae15af3ac5 (
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
|
-- File: IFSelect_ModifEditForm.cdl
-- Created: Fri Feb 27 18:24:16 1998
-- Author: Christian CAILLET
-- <cky@heliox>
---Copyright: Matra Datavision 1996
class ModifEditForm from IFSelect inherits Modifier
---Purpose : This modifier applies an EditForm on the entities selected
uses CString, AsciiString from TCollection,
InterfaceModel, CopyTool, Protocol from Interface, ContextModif,
EditForm
is
Create (editform : EditForm) returns mutable ModifEditForm;
---Purpose : Creates a ModifEditForm. It may not change the graph
EditForm (me) returns EditForm;
---Purpose : Returns the EditForm
Perform (me; ctx : in out ContextModif;
target : mutable InterfaceModel;
protocol : Protocol from Interface;
TC : in out CopyTool);
---Purpose : Acts by applying an EditForm to entities, selected or all model
Label (me) returns AsciiString from TCollection;
---Purpose : Returns Label as "Apply EditForm <+ label of EditForm>"
fields
theedit : EditForm;
end ModifEditForm;
|
