aboutsummaryrefslogtreecommitdiff
path: root/kiosk-plugin.tcl
diff options
context:
space:
mode:
authorIOhannes m zmölnig <zmoelnig@users.sourceforge.net>2011-02-28 16:22:14 +0000
committerIOhannes m zmölnig <zmoelnig@users.sourceforge.net>2011-02-28 16:22:14 +0000
commit096df61dab2e4194d3af94d40d0d775b3e258705 (patch)
treeb0ece7fb81f84827279acc1b2055ea3e6878700e /kiosk-plugin.tcl
parent974ffbacd4c9499d4ae4068b5ce35181f2526f9a (diff)
remove scrollbars; exclude .pdwindow from per-window tweaks
svn path=/trunk/scripts/guiplugins/kiosk-plugin/; revision=14981
Diffstat (limited to 'kiosk-plugin.tcl')
-rw-r--r--kiosk-plugin.tcl14
1 files changed, 11 insertions, 3 deletions
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 } { } {