← Back to branch summary

~ubuntu-branches/ubuntu/precise/grass/precise

« back to all changes in this revision

Viewing changes to gui/tcltk/gis.m/maptool.tcl

  • Committer: Bazaar Package Importer
  • Author(s): Francesco Paolo Lovergine
  • Date: 2011-04-13 17:08:41 UTC
  • mfrom: (8.1.7 sid)
  • Revision ID: james.westby@ubuntu.com-20110413170841-ss1t9bic0d0uq0gz
Tags: 6.4.1-1
* New upstream version.
* Now build-dep on libjpeg-dev and current libreadline6-dev.
* Removed patch swig: obsolete.
* Policy bumped to 3.9.2, without changes.

Show diffs side-by-side

added added

removed removed

Lines of Context:
gui/tcltk/gis.m/maptool.tcl
374
374
 
375
375
        set outfile($mon) $MapCanvas::outfile($mon)
376
376
 
377
 
        if { [info exists env(HOME)] } {
378
 
                set dir $env(HOME)
379
 
                set path [tk_getSaveFile -initialdir $dir \
380
 
                        -title "Save Mapcanvas contents to file"]
381
 
        } else {
382
 
                set path [tk_getSaveFile \
383
 
                        -title "Save Mapcanvas contents to file"]
384
 
        }
 
377
        set path [tk_getSaveFile -initialdir $Gm::last_directory \
 
378
                -title "Save Mapcanvas contents to file" ]
385
379
        set currdir [pwd]
386
380
        cd $tmpdir
387
381
 
451
445
                                catch {file delete $path.ppm}
452
446
                        }
453
447
                }
 
448
                set Gm::last_directory [file dirname $path] ;# update last path only when user saves something
454
449
        }
455
450
        return
456
451
}