[PD-cvs] pd/src desire.tk,1.1.2.493,1.1.2.494

[chunlee]

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