diff options
-rw-r--r-- | kiosk-plugin.tcl | 6 | ||||
-rw-r--r-- | kiosk.cfg | 1 |
2 files changed, 7 insertions, 0 deletions
diff --git a/kiosk-plugin.tcl b/kiosk-plugin.tcl index ce3cd94..1b8abd4 100644 --- a/kiosk-plugin.tcl +++ b/kiosk-plugin.tcl @@ -23,6 +23,7 @@ set ::kiosk::config(HideMain) True set ::kiosk::config(WindowTitle) "Pd KIOSK" set ::kiosk::config(HidePopup) True set ::kiosk::config(ScrollBars) False +set ::kiosk::config(QuitOnClose) True @@ -74,6 +75,11 @@ proc ::kiosk::makekiosk {mywin} { if { $::kiosk::config(WindowTitle) != "" } { wm title $mywin $::kiosk::config(WindowTitle) } + + if { $::kiosk::config(QuitOnClose) } { + wm protocol $mywin WM_DELETE_WINDOW "pdsend \"pd quit\"" + #bind $mywin <Destroy> "pdsend \"pd quit\"" + } } @@ -5,3 +5,4 @@ HideMain True WindowTitle "Pd KIOSK" HidePopup True ScrollBars False +QuitOnClose True |