aboutsummaryrefslogtreecommitdiff
path: root/kiosk-plugin.tcl
diff options
context:
space:
mode:
authorIOhannes m zmölnig <zmoelnig@users.sourceforge.net>2013-04-18 18:52:36 +0000
committerIOhannes m zmölnig <zmoelnig@users.sourceforge.net>2013-04-18 18:52:36 +0000
commit2b50da2ed5c4f26c2399b4438973ac03fa25b912 (patch)
treea77ef49a3a3b1185564bc92c9819c14290c1a2ec /kiosk-plugin.tcl
parent85e095676dafc2c99e55043cff191df3fdd9d2ac (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.tcl5
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