7fd59977 |
1 | -- File: IFSelect_ModifEditForm.cdl |
2 | -- Created: Fri Feb 27 18:24:16 1998 |
3 | -- Author: Christian CAILLET |
4 | -- <cky@heliox> |
5 | ---Copyright: Matra Datavision 1996 |
6 | |
7 | |
8 | class ModifEditForm from IFSelect inherits Modifier |
9 | |
10 | ---Purpose : This modifier applies an EditForm on the entities selected |
11 | |
12 | uses CString, AsciiString from TCollection, |
13 | InterfaceModel, CopyTool, Protocol from Interface, ContextModif, |
14 | EditForm |
15 | |
16 | is |
17 | |
18 | Create (editform : EditForm) returns mutable ModifEditForm; |
19 | ---Purpose : Creates a ModifEditForm. It may not change the graph |
20 | |
21 | EditForm (me) returns EditForm; |
22 | ---Purpose : Returns the EditForm |
23 | |
24 | Perform (me; ctx : in out ContextModif; |
25 | target : mutable InterfaceModel; |
26 | protocol : Protocol from Interface; |
27 | TC : in out CopyTool); |
28 | ---Purpose : Acts by applying an EditForm to entities, selected or all model |
29 | |
30 | Label (me) returns AsciiString from TCollection; |
31 | ---Purpose : Returns Label as "Apply EditForm <+ label of EditForm>" |
32 | |
33 | fields |
34 | |
35 | theedit : EditForm; |
36 | |
37 | end ModifEditForm; |