Statistics
| Revision:

svn-gvsig-desktop / trunk / extensions / extCAD / sm / SelectionCADTool.sm @ 3844

History | View | Annotate | Download (1.13 KB)

1 3828 caballero
// -*- tab-width: 4; -*-
2
3
%{
4
//
5
// Vicente Caballero Navarro
6
%}
7
8
%start ExecuteMap::Initial
9
%class SelectionCADTool
10
%package com.iver.cit.gvsig.gui.cad.tools.smc
11
%import com.iver.cit.gvsig.gui.cad.tools.SelectionCADTool
12
%import com.iver.cit.gvsig.fmap.layers.FBitSet
13
14
%map ExecuteMap
15
%%
16
// A task begins life in suspended animation.
17
18
Initial
19
20
	Entry {
21
		init();
22 3844 caballero
		setQuestion("SELECCION" + "\n" +
23
		"Precise punto del rect?ngulo de selecci?n");
24 3828 caballero
		}
25
	Exit{
26
		}
27
28
	{
29
		addPoint(pointX:double,pointY:double)
30 3844 caballero
			[!ctxt.isSelected(pointX,pointY)]
31 3828 caballero
			First {
32
				setQuestion("Precise segundo punto del rect?ngulo de seleccion");
33
				addPoint(pointX,pointY);
34
				}
35 3844 caballero
		addPoint(pointX:double,pointY:double)
36
			[ctxt.isSelected(pointX,pointY)]
37
			Second {
38
				setQuestion("Precise punto destino");
39
				addPoint(pointX,pointY);
40
				}
41 3828 caballero
}
42
43
First{
44
	addPoint(pointX:double,pointY:double)
45 3844 caballero
			Initial {
46 3828 caballero
				setQuestion("Precise punto de estiramiento");
47
				addPoint(pointX,pointY);
48
				}
49 3844 caballero
50
51 3828 caballero
}
52
Second{
53
	addPoint(pointX:double,pointY:double)
54
			Third {
55 3844 caballero
				setQuestion("Precise punto destino");
56 3828 caballero
				addPoint(pointX,pointY);
57
				end();
58
				refresh();
59
				}
60
}
61 3844 caballero
Third{
62 3828 caballero
}
63
Default
64
{
65
66
}
67
%%