diff options
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} } |