diff options
| author | N.N. <matju@users.sourceforge.net> | 2009-06-07 22:08:09 +0000 |
|---|---|---|
| committer | N.N. <matju@users.sourceforge.net> | 2009-06-07 22:08:09 +0000 |
| commit | b13ba22934384bafb3dbf7e02744c1c574398a8d (patch) | |
| tree | 30fe0f882fe5463f2b6186f6bb496d611d6c2069 | |
| parent | 64891204f32bc8eac4ece7e82581e042bb26ea08 (diff) | |
make [cnv] look like in Pd.
svn path=/trunk/; revision=11707
| -rw-r--r-- | desiredata/src/desire.tk | 2 |
1 files changed, 1 insertions, 1 deletions
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 {} { |