Revision 3883 trunk/extensions/extCAD/sm/ArcCADTool.sm
ArcCADTool.sm | ||
---|---|---|
17 | 17 |
Initial |
18 | 18 |
|
19 | 19 |
Entry { |
20 |
init(); |
|
21 | 20 |
setQuestion("ARCO" + "\n"+ |
22 | 21 |
"Insertar primer punto"); |
22 |
setDescription(new String[]{"Cancelar"}); |
|
23 | 23 |
} |
24 | 24 |
Exit{ |
25 | 25 |
} |
... | ... | |
28 | 28 |
addPoint( pointX:double,pointY:double) |
29 | 29 |
First { |
30 | 30 |
setQuestion("Insertar segundo punto"); |
31 |
setDescription(new String[]{"Cancelar"}); |
|
31 | 32 |
addPoint( pointX,pointY); |
32 | 33 |
} |
33 | 34 |
|
... | ... | |
36 | 37 |
addPoint( pointX:double,pointY:double) |
37 | 38 |
Second { |
38 | 39 |
setQuestion("Insertar ultimo punto"); |
40 |
setDescription(new String[]{"Cancelar"}); |
|
39 | 41 |
addPoint( pointX,pointY); |
40 | 42 |
} |
41 |
|
|
42 | 43 |
} |
43 | 44 |
Second{ |
44 | 45 |
addPoint( pointX:double,pointY:double) |
... | ... | |
51 | 52 |
} |
52 | 53 |
Default |
53 | 54 |
{ |
54 |
|
|
55 |
addOption(s:String) |
|
56 |
[s.equals("Cancelar")] |
|
57 |
Initial{ |
|
58 |
end(); |
|
59 |
} |
|
55 | 60 |
} |
56 | 61 |
%% |
Also available in: Unified diff