From 096df61dab2e4194d3af94d40d0d775b3e258705 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?IOhannes=20m=20zm=C3=B6lnig?=
 <zmoelnig@users.sourceforge.net>
Date: Mon, 28 Feb 2011 16:22:14 +0000
Subject: remove scrollbars; exclude .pdwindow from per-window tweaks

svn path=/trunk/scripts/guiplugins/kiosk-plugin/; revision=14981
---
 kiosk-plugin.tcl | 14 +++++++++++---
 1 file changed, 11 insertions(+), 3 deletions(-)

(limited to 'kiosk-plugin.tcl')

diff --git a/kiosk-plugin.tcl b/kiosk-plugin.tcl
index e414229..fb00870 100644
--- a/kiosk-plugin.tcl
+++ b/kiosk-plugin.tcl
@@ -11,11 +11,12 @@ package require Tk
 package require pdwindow 0.1
 
 namespace eval ::kiosk:: {
-    variable showmenu True
-    variable fullscreen False
-    variable hidemain False
+    variable showmenu False
+    variable fullscreen True
+    variable hidemain True
     variable windowtitle "Pd KIOSK"
     variable hidepopup True
+    variable scrollbars False
 }
 
 
@@ -31,11 +32,18 @@ if { $::kiosk::hidepopup }  {
  proc ::pdtk_canvas::pdtk_canvas_popup {mytoplevel xcanvas ycanvas hasproperties hasopen} { }
 }
 
+if { $::kiosk::scrollbars } { } {
+    proc ::pdtk_canvas::pdtk_canvas_getscroll {tkcanvas} { }
+}
 
 # this is just an empty menu
 menu .kioskmenu
 
 proc ::kiosk::makekiosk {mywin} {
+    if { $mywin == ".pdwindow" } { return; }
+
+puts "KIOSKing $mywin"
+
 #puts "makekiosk $mywin"
 #remove menu
     if { $::kiosk::showmenu } { } {
-- 
cgit v1.2.1