From b13ba22934384bafb3dbf7e02744c1c574398a8d Mon Sep 17 00:00:00 2001
From: "N.N." <matju@users.sourceforge.net>
Date: Sun, 7 Jun 2009 22:08:09 +0000
Subject: make [cnv] look like in Pd.

svn path=/trunk/; revision=11707
---
 desiredata/src/desire.tk | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/desiredata/src/desire.tk b/desiredata/src/desire.tk
index aef136b5..245a9b57 100644
--- a/desiredata/src/desire.tk
+++ b/desiredata/src/desire.tk
@@ -6501,7 +6501,7 @@ if {![catch {
 class_new Cnv {Labelled IEMGUI Box}
 def Cnv draw {} {
 	mset {x1 y1} [$self xy]
-	$self item BASE rectangle [list $x1 $y1 [expr $x1+$@w] [expr $y1+$@h]] -fill [parse_color $@bcol]
+	$self item BASE rectangle [list $x1 $y1 [expr {$x1+$@w+1}] [expr {$y1+$@h+1}]] -fill [parse_color $@bcol] -width 0
 	super
 }
 def Cnv bbox {} {
-- 
cgit v1.2.1