From dc8ef9089f0b5471f3be9c6d81fcd2f256dd7f2f Mon Sep 17 00:00:00 2001
From: Ivica Ico Bukvic <ico@vt.edu>
Date: Fri, 20 Sep 2013 10:01:43 -0400
Subject: [PATCH] cosmetic fixes
---
pd/src/pd.tk | 16 ++++++++--------
1 file changed, 8 insertions(+), 8 deletions(-)
diff --git a/pd/src/pd.tk b/pd/src/pd.tk
index 611f41d88..d6ee8fee6 100644
--- a/pd/src/pd.tk
+++ b/pd/src/pd.tk
@@ -2458,11 +2458,11 @@ proc pdtk_canvas_new {name width height geometry editable} {
wm resizable $name $::resize($name) $::resize($name)
wm attributes $name -topmost $::topmost($name)
- if {[info tclversion] >= 8.5 && $pd_nt == 0} {
- if {$::menu($name) == 1} {
+ #if {[info tclversion] >= 8.5 && $pd_nt == 0} {
+ #if {$::menu($name) == 1} {
#ttk::separator $name.eyecandy
- }
- }
+ #}
+ #}
if { $k12_mode == 1 } {
# K-12 menu
@@ -2775,11 +2775,11 @@ proc pdtk_canvas_new {name width height geometry editable} {
#pdtk_standardkeybindings $name.c
- if {[info tclversion] >= 8.5 && $pd_nt == 0} {
- if {$::menu($name) == 1} {
+ #if {[info tclversion] >= 8.5 && $pd_nt == 0} {
+ #if {$::menu($name) == 1} {
#pack $name.eyecandy $name.c -fill x -expand 0
- }
- }
+ #}
+ #}
#match_linux_wm [list scrollbar $name.scrollvert -command "$name.c yview"]
#match_linux_wm [list scrollbar $name.scrollhort -command "$name.c xview" \
--
GitLab