diff options
author | IOhannes m zmölnig <zmoelnig@users.sourceforge.net> | 2013-04-18 18:52:36 +0000 |
---|---|---|
committer | IOhannes m zmölnig <zmoelnig@users.sourceforge.net> | 2013-04-18 18:52:36 +0000 |
commit | 2b50da2ed5c4f26c2399b4438973ac03fa25b912 (patch) | |
tree | a77ef49a3a3b1185564bc92c9819c14290c1a2ec /kiosk-plugin.tcl | |
parent | 85e095676dafc2c99e55043cff191df3fdd9d2ac (diff) |
allow to set the geometry of the main window
svn path=/trunk/guiplugins/kiosk-plugin/; revision=17096
Diffstat (limited to 'kiosk-plugin.tcl')
-rw-r--r-- | kiosk-plugin.tcl | 5 |
1 files changed, 5 insertions, 0 deletions
diff --git a/kiosk-plugin.tcl b/kiosk-plugin.tcl index a6ec6f3..c1624b2 100644 --- a/kiosk-plugin.tcl +++ b/kiosk-plugin.tcl @@ -27,6 +27,7 @@ set ::kiosk::config(QuitOnClose) True set ::kiosk::config(PreventClose) True set ::kiosk::config(Bindings) False set ::kiosk::config(QuitBinding) True +set ::kiosk::config(GeometryMain) "" @@ -128,6 +129,10 @@ proc ::kiosk::makekiosk {mywin} { ###### do some global KIOSK-settings +## set the geometry of the Pd window +if { $::kiosk::config(GeometryMain) != "" } { + wm geometry .pdwindow =$::kiosk::config(GeometryMain) +} ## hide the Pd window if { $::kiosk::config(HideMain) } { set ::stderr 1 |