| gvSIG desktop 1

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

%{

//

// Vicente Caballero Navarro

%}

%start ExecuteMap::Initial

%class PointCADTool

%package com.iver.cit.gvsig.gui.cad.tools.smc

%import com.iver.cit.gvsig.gui.cad.tools.PointCADTool

%map ExecuteMap

%%

// A task begins life in suspended animation.

Initial

	Entry {

		setQuestion("PUNTO" + "\n" +

		"Defina el punto");

		setDescription(new String[]{"Cancelar"});

		}

	Exit {

		}

	{

		addPoint( pointX:double,pointY:double)

			First {

				setQuestion("Insertar punto");

				setDescription(new String[]{"Cancelar"});

				addPoint( pointX,pointY);

				}

	}

First{

	addPoint( pointX:double,pointY:double)

		First {

			setQuestion("Insertar punto");

			setDescription(new String[]{"Cancelar"});

			addPoint( pointX,pointY);

			}

}

Default

{

	addOption(s:String)

		[s.equals("Cancelar")]

		Initial{

			end();

			}

}

%%