aboutsummaryrefslogtreecommitdiff
path: root/desiredata
diff options
context:
space:
mode:
authorN.N. <matju@users.sourceforge.net>2009-04-27 22:00:33 +0000
committerN.N. <matju@users.sourceforge.net>2009-04-27 22:00:33 +0000
commit34e015d837dd671bb33d61c7f1eebf1a6892e0ff (patch)
treecc9591a572724b1c859cf2f4b12b2b4ebcca53fb /desiredata
parent0f090ba8df930a77dab0febfd4c8da5c261b82df (diff)
use ::current_window when opening various other dialogues (open/save/..., not just "message").
svn path=/trunk/; revision=11183
Diffstat (limited to 'desiredata')
-rw-r--r--desiredata/src/desire.tk17
1 files changed, 9 insertions, 8 deletions
diff --git a/desiredata/src/desire.tk b/desiredata/src/desire.tk
index 9a33e9e2..200893bd 100644
--- a/desiredata/src/desire.tk
+++ b/desiredata/src/desire.tk
@@ -1153,7 +1153,7 @@ catch {
def Client open_file {} {
global pd_opendir patch_filetypes
- set filename [tk_getOpenFile -defaultextension .pd -filetypes $patch_filetypes -initialdir $pd_opendir]
+ set filename [tk_getOpenFile -parent $::current_window -defaultextension .pd -filetypes $patch_filetypes -initialdir $pd_opendir]
if {$filename != ""} {$self open_file_really $filename}
}
@@ -1540,7 +1540,7 @@ def Canvas save {} {
def Canvas save_as {} {
$self checkgeometry
- set filename [tk_getSaveFile -filetypes $::patch_filetypes]
+ set filename [tk_getSaveFile -parent $::current_window -filetypes $::patch_filetypes]
if {$filename != ""} {
set @file [string range $filename [expr [string last / $filename]+1] end]
set @folder [string range $filename 0 [expr [string last / $filename]-1]]
@@ -1551,7 +1551,7 @@ def Canvas save_as {} {
}
def Canvas print {} {
- set filename [tk_getSaveFile -initialfile pd.ps -defaultextension .ps -filetypes { {{postscript} {.ps}} }]
+ set filename [tk_getSaveFile -parent $::current_window -initialfile pd.ps -defaultextension .ps -filetypes { {{postscript} {.ps}} }]
if {$filename != ""} {[$self widget] postscript -file $filename}
}
def Canvas quit {} {$::main quit}
@@ -1567,7 +1567,7 @@ def Canvas eval% {code} {
}
def Client documentation {} {
- set filename [tk_getOpenFile -defaultextension .pd -filetypes { {{documentation} {.pd .txt .htm}} } -initialdir $::docdir]
+ set filename [tk_getOpenFile -parent $::current_window -defaultextension .pd -filetypes { {{documentation} {.pd .txt .htm}} } -initialdir $::docdir]
if {$filename != ""} {
if {[string first .txt $filename] >= 0} {
menu_opentext $filename
@@ -8840,7 +8840,7 @@ def Canvas deconstruct_to {stream args} {
proc pdtk_openpanel {target localdir} {
if {$localdir == ""} {set localdir $::pd_opendir}
- set filename [tk_getOpenFile -initialdir $localdir]
+ set filename [tk_getOpenFile -parent $::current_window -initialdir $localdir]
if {$filename != ""} {
set directory [string range $filename 0 [expr [string last / $filename]-1]]
set pd_opendir $directory
@@ -8850,9 +8850,9 @@ proc pdtk_openpanel {target localdir} {
proc pdtk_savepanel {target localdir} {
if {$localdir == ""} {
- set filename [tk_getSaveFile]
+ set filename [tk_getSaveFile -parent $::current_window]
} else {
- set filename [tk_getSaveFile -initialdir $localdir]
+ set filename [tk_getSaveFile -parent $::current_window -initialdir $localdir]
}
if {$filename != ""} {
netsend [list $target callback [enquote $filename]]
@@ -8932,7 +8932,8 @@ def Canvas visual_diff {} {
post %s $t
if {[file exist $t]} {set initialfile $filename.$suffix; break}
}
- set filename [tk_getOpenFile -defaultextension .pd -filetypes $::image_filetypes -initialdir [$self folder] -initialfile $initialfile]
+ set filename [tk_getOpenFile -parent $::current_window -defaultextension .pd \
+ -filetypes $::image_filetypes -initialdir [$self folder] -initialfile $initialfile]
if {$filename == ""} {return}
image create photo image_$self -file $filename
$self blink_image