diff options
| author | Miller Puckette <millerpuckette@users.sourceforge.net> | 2009-01-06 19:36:42 +0000 |
|---|---|---|
| committer | Miller Puckette <millerpuckette@users.sourceforge.net> | 2009-01-06 19:36:42 +0000 |
| commit | f06fe8bef4964656f56975a97b448c1c788e7cf3 (patch) | |
| tree | 553d06df3e28c41e45e2cdc2c31ff17ad7e0f303 /pd/src/u_main.tk | |
| parent | e60dbadb4745a209901a7ce30235e75f805ae6a0 (diff) | |
0.42-2 (bug fixes)
svn path=/trunk/; revision=10477
Diffstat (limited to 'pd/src/u_main.tk')
| -rw-r--r-- | pd/src/u_main.tk | 10 |
1 files changed, 8 insertions, 2 deletions
diff --git a/pd/src/u_main.tk b/pd/src/u_main.tk index 394ae087..4a49d460 100644 --- a/pd/src/u_main.tk +++ b/pd/src/u_main.tk @@ -283,8 +283,14 @@ proc pdtk_ping {} { ##### routine to ask user if OK and, if so, send a message on to Pd ###### proc pdtk_check {canvas x message default} { - set answer [tk_messageBox -message $x -type yesno -default $default \ - -parent $canvas -icon question] + global pd_nt + if {$pd_nt == 1} { + set answer [tk_messageBox -message $x -type yesno -default $default \ + -icon question] + } else { + set answer [tk_messageBox -message $x -type yesno -default $default \ + -parent $canvas -icon question] + } if {! [string compare $answer yes]} {pd $message} } |