aboutsummaryrefslogtreecommitdiff
path: root/remove_menubar_from_patch_windows-plugin.tcl
diff options
context:
space:
mode:
Diffstat (limited to 'remove_menubar_from_patch_windows-plugin.tcl')
-rw-r--r--remove_menubar_from_patch_windows-plugin.tcl7
1 files changed, 7 insertions, 0 deletions
diff --git a/remove_menubar_from_patch_windows-plugin.tcl b/remove_menubar_from_patch_windows-plugin.tcl
new file mode 100644
index 0000000..124d216
--- /dev/null
+++ b/remove_menubar_from_patch_windows-plugin.tcl
@@ -0,0 +1,7 @@
+# this scriptlet removes the menubars from all canvas windows. You could also
+# create your own custom menu and add it to the canvas windows.
+
+# on Mac OS X, no windows have menubars, so no need to remove for 'aqua'
+if {$::windowingsystem ne "aqua"} {
+ set ::canvas_menubar ""
+}