From 2b50da2ed5c4f26c2399b4438973ac03fa25b912 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?IOhannes=20m=20zm=C3=B6lnig?=
 <zmoelnig@users.sourceforge.net>
Date: Thu, 18 Apr 2013 18:52:36 +0000
Subject: allow to set the geometry of the main window

svn path=/trunk/guiplugins/kiosk-plugin/; revision=17096
---
 kiosk-plugin.tcl | 5 +++++
 1 file changed, 5 insertions(+)

(limited to 'kiosk-plugin.tcl')

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 
-- 
cgit v1.2.1