aboutsummaryrefslogtreecommitdiff
path: root/kiosk-plugin.tcl
diff options
context:
space:
mode:
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 } { } {