Update of /cvsroot/pure-data/pd/src In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv10743
Modified Files: Tag: devel_0_39 desire.tk Log Message: minor fixes
Index: desire.tk =================================================================== RCS file: /cvsroot/pure-data/pd/src/Attic/desire.tk,v retrieving revision 1.1.2.493 retrieving revision 1.1.2.494 diff -C2 -d -r1.1.2.493 -r1.1.2.494 *** desire.tk 6 Oct 2006 15:06:45 -0000 1.1.2.493 --- desire.tk 9 Oct 2006 15:35:24 -0000 1.1.2.494 *************** *** 1807,1831 **** if {[string length $line] > $width} {set width [string length $line]} } - #$self update_size - #puts " text string::: $l" - #puts " lines?::: $nl" - #puts " newline::: $newline" text $t -height $nl -width $width -relief flat \ -bg [$c itemcget ${self}BASE -fill] -borderwidth 0 -highlightthickness 0\ ! -font $font_str -fg [$self look fg] ! #text $t -height 1 -width [expr [string length $@text]+1] -relief flat \ ! # -bg [$c itemcget ${self}BASE -fill] -borderwidth 0 -highlightthickness 0\ ! # -font $font_str -fg [$self look fg] ! #text $t -height 1 -width [expr [string length $@text]+1] -relief flat \ ! # -bg pink -borderwidth 0 -highlightthickness 0\ ! # -font $font_str -fg [$self look fg] ! bind $t <Key> "$self resize; $self key %W %x %y %K %A 0" - #bind $t <Key> "$self key %W %x %y %K %A 0" bind $t <Control-Return> "$self key %W %x %y 10 %A 0" bind $t <Return> "$self unedit" bind $t <Escape> "$self unedit 0" - #bind $t <Any-Enter> "puts "keep compltion box please.........." " - #bind $t <Any-Leave> "puts "destroy the compltion box please.........." " mset {cx cy} [$self xy] $self item text window [list [expr $cx+2] [expr $cy+2]] \ --- 1807,1817 ---- if {[string length $line] > $width} {set width [string length $line]} } text $t -height $nl -width $width -relief flat \ -bg [$c itemcget ${self}BASE -fill] -borderwidth 0 -highlightthickness 0\ ! -font $font_str -fg [$self look fg] -insertbackground [$self look fg] bind $t <Key> "$self resize; $self key %W %x %y %K %A 0" bind $t <Control-Return> "$self key %W %x %y 10 %A 0" bind $t <Return> "$self unedit" bind $t <Escape> "$self unedit 0" mset {cx cy} [$self xy] $self item text window [list [expr $cx+2] [expr $cy+2]] \ *************** *** 2730,2734 **** 1 {$self selection_wire+= $id} 2 {# ctrl-click on wire? ! set c [$self widgety] set wire [lindex $@wires_pair [expr [lsearch $@wires_pair $id]-1]] $self disconnect $wire --- 2716,2720 ---- 1 {$self selection_wire+= $id} 2 {# ctrl-click on wire? ! set c [$self widget] set wire [lindex $@wires_pair [expr [lsearch $@wires_pair $id]-1]] $self disconnect $wire *************** *** 3571,3575 **** if {[info exists canvas(msg_isnew)]} { set _($self:isnew) 1 ! $self edit unset canvas(msg_isnew) } --- 3557,3562 ---- if {[info exists canvas(msg_isnew)]} { set _($self:isnew) 1 ! puts " put $self in edit mode....." ! #$self edit unset canvas(msg_isnew) } *************** *** 4670,4674 **** set line [list $x1 $y $x2 $y] set c $@canvas ! $@canvas item elem${i} line $line -fill [$@canvas look compfg] -width 2 \ -tags "$self ${c}elem${i}" incr i --- 4657,4663 ---- set line [list $x1 $y $x2 $y] set c $@canvas ! #$@canvas item elem${i} line $line -fill [$@canvas look compfg] -width 2 \ ! # -tags "$self ${c}elem${i}" ! $@canvas item elem${i} line $line -fill [$self look fg] -width 2 \ -tags "$self ${c}elem${i}" incr i