#!/bin/sh
# the next line restarts using wish \
 exec "$GRASS_WISH" "$0" "$@"


# Simply ask if the selected area is ok or not and save the
# answer in the filename given by the environment variable "env(name)"

    wm title . "Select this area"
    wm minsize . 250 100

    label .label -text "\nIs this area ok?"
    pack .label 
    frame .buttons
    pack .buttons
    set val "$env(input_vector)_$env(CAT)"
    button .buttons.ok -text "Ok" -command {
	frame .name
	pack .name
	frame .name.e
	pack .name.e
	label .name.e.n -text "Enter area name\n(raster map mask name)"
	entry .name.e.val -textvariable val -width 20
	grid .name.e.n .name.e.val
	frame .name.buttons
	pack .name.buttons
	button .name.buttons.b -text "Ok" -command {
	    if {$val != ""} then {
		    exec echo 1 $val > $env(name)
		    destroy .
	    }
	}
	pack  .name.buttons.b
    }
    button .buttons.no -text "No" -command {
	exec echo 0 > $env(name)
	destroy .
    }
    # what to call it: "stop"? "abort"? "quit"?
    button .buttons.abort -text "Done" -command {
	exec echo -1 > $env(name)
	destroy .
    }

    grid .buttons.ok .buttons.no .buttons.abort -padx 2 -pady 2

