← Back to branch summary

~ubuntu-branches/ubuntu/vivid/grass/vivid-proposed

« back to all changes in this revision

Viewing changes to raster/r.li/r.li.setup/area_query

  • Committer: Package Import Robot
  • Author(s): Bas Couwenberg
  • Date: 2015-02-20 23:12:08 UTC
  • mfrom: (8.2.6 experimental)
  • Revision ID: package-import@ubuntu.com-20150220231208-1u6qvqm84v430b10
Tags: 7.0.0-1~exp1
* New upstream release.
* Update python-ctypes-ternary.patch to use if/else instead of and/or.
* Drop check4dev patch, rely on upstream check.
* Add build dependency on libpq-dev to grass-dev for libpq-fe.h.
* Drop patches applied upstream, refresh remaining patches.
* Update symlinks for images switched from jpg to png.

Show diffs side-by-side

added added

removed removed

Lines of Context:
raster/r.li/r.li.setup/area_query
1
 
#!/bin/sh
2
 
# the next line restarts using wish \
3
 
 exec "$GRASS_WISH" "$0" "$@"
4
 
 
5
 
 
6
 
# Simply ask if the selected area is ok or not and save the
7
 
# answer in the filename given by the environment variable "env(name)"
8
 
 
9
 
    wm title . "Select this area"
10
 
    wm minsize . 250 100
11
 
 
12
 
    label .label -text "\nIs this area ok?"
13
 
    pack .label 
14
 
    frame .buttons
15
 
    pack .buttons
16
 
    set val "$env(input_vector)_$env(CAT)"
17
 
    button .buttons.ok -text "Ok" -command {
18
 
        frame .name
19
 
        pack .name
20
 
        frame .name.e
21
 
        pack .name.e
22
 
        label .name.e.n -text "Enter area name\n(raster map mask name)"
23
 
        entry .name.e.val -textvariable val -width 20
24
 
        grid .name.e.n .name.e.val
25
 
        frame .name.buttons
26
 
        pack .name.buttons
27
 
        button .name.buttons.b -text "Ok" -command {
28
 
            if {$val != ""} then {
29
 
                    exec echo 1 $val > $env(name)
30
 
                    destroy .
31
 
            }
32
 
        }
33
 
        pack  .name.buttons.b
34
 
    }
35
 
    button .buttons.no -text "No" -command {
36
 
        exec echo 0 > $env(name)
37
 
        destroy .
38
 
    }
39
 
    # what to call it: "stop"? "abort"? "quit"?
40
 
    button .buttons.abort -text "Done" -command {
41
 
        exec echo -1 > $env(name)
42
 
        destroy .
43
 
    }
44
 
 
45
 
    grid .buttons.ok .buttons.no .buttons.abort -padx 2 -pady 2
46