Statistics
| Revision:

root / trunk / extensions / extCAD / sm / LineCADTool.sm @ 3716

History | View | Annotate | Download (888 Bytes)

1
// -*- tab-width: 4; -*-
2

    
3
%{
4
//
5
// Vicente Caballero Navarro
6
%}
7

    
8
%start ExecuteMap::Initial
9
%class LineCADTool
10
%package com.iver.cit.gvsig.gui.cad.tools.smc
11
%access import com.iver.cit.gvsig.gui.cad.tools.LineCADTool; public
12

    
13

    
14
%map ExecuteMap
15
%%
16
// A task begins life in suspended animation.
17

    
18
Initial
19

    
20
	Entry {
21
		init();
22
		setQuestion("Insertar primer punto");
23
		}
24
	Exit {
25
		}
26

    
27
	{
28

    
29
		addpoint(sel:java.util.BitSet,pointX:double,pointY:double)
30
			Second {
31
				setQuestion("Insertar segundo punto");
32
				addpoint(sel,pointX,pointY);
33
				}
34
	}
35
First{
36
	addpoint(sel:java.util.BitSet,pointX:double,pointY:double)
37
		Second {
38
			setQuestion("Insertar segundo punto");
39
			addpoint(sel,pointX,pointY);
40
			}
41
}
42
Second{
43
	addpoint(sel:java.util.BitSet,pointX:double,pointY:double)
44
		First {
45
			setQuestion("Insertar primer punto");
46
			addpoint(sel,pointX,pointY);
47
			refresh();
48
			}
49
	}
50
Default
51
{
52

    
53
}
54
%%