pd/src desire.tk,1.1.2.151,1.1.2.152 - Pd-cvs

12 Apr 2006


      Update of /cvsroot/pure-data/pd/src
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv17068
Modified Files:
      Tag: devel_0_39
    desire.tk 
Log Message:
forgot some typos... duh....
Index: desire.tk
===================================================================
RCS file: /cvsroot/pure-data/pd/src/Attic/desire.tk,v
retrieving revision 1.1.2.151
retrieving revision 1.1.2.152
diff -C2 -d -r1.1.2.151 -r1.1.2.152
*** desire.tk	12 Apr 2006 15:41:53 -0000	1.1.2.151
--- desire.tk	12 Apr 2006 16:11:14 -0000	1.1.2.152
***************
*** 1326,1330 ****
    text $t -height 1 -width [expr [string length $@text]+1] -relief flat \
    	-bg ${look(objectbg)} -borderwidth 0 -highlightthickness 0\
! 		-font $font(str)
    #text $t -height 1 -width $@textchars -relief flat \
    #	-bg ${look(objectbg)} -borderwidth 0 -highlightthickness 0\
--- 1326,1330 ----
    text $t -height 1 -width [expr [string length $@text]+1] -relief flat \
    	-bg ${look(objectbg)} -borderwidth 0 -highlightthickness 0\
! 		-font $font(str) -fg $look(objectfg)
    #text $t -height 1 -width $@textchars -relief flat \
    #	-bg ${look(objectbg)} -borderwidth 0 -highlightthickness 0\
***************
*** 1335,1339 ****
    mset {cx cy} [$self xy]
    .$@canvas.c create window [expr $cx+2] [expr $cy+2] \
! 		-window $t -anchor nw -tags "${self}text $self"
    #$self draw
    $t configure -pady 0 -padx 1
--- 1335,1339 ----
    mset {cx cy} [$self xy]
    .$@canvas.c create window [expr $cx+2] [expr $cy+2] \
! 		-window $t -anchor nw -tags "${self}text $self" 
    #$self draw
    $t configure -pady 0 -padx 1
***************
*** 2117,2121 ****
    set p $self$type$port
    set outline [switch $type {i {concat $look(outletfg)} o {concat $look(inletfg)}}]
! 	$c create rectangle [l+ [$c coords $p] {-4 -4 +4 +4}] -outline $outline -width 1 -tags ${p}b -fill
    switch $type {i {set tip "inlet $port"} o {set tip "outlet $port"}}
    $@canvas show_tooltip $x $y $tip
--- 2117,2121 ----
    set p $self$type$port
    set outline [switch $type {i {concat $look(outletfg)} o {concat $look(inletfg)}}]
! 	$c create rectangle [l+ [$c coords $p] {-4 -4 +4 +4}] -outline $outline -width 1 -tags ${p}b
    switch $type {i {set tip "inlet $port"} o {set tip "outlet $port"}}
    $@canvas show_tooltip $x $y $tip