[PD-cvs] pd/src desire.tk,1.1.2.467,1.1.2.468

[chunlee]

Update of /cvsroot/pure-data/pd/src
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv742

Modified Files:
      Tag: devel_0_39
	desire.tk 
Log Message:
continue with multi line messagebox


Index: desire.tk
===================================================================
RCS file: /cvsroot/pure-data/pd/src/Attic/desire.tk,v
retrieving revision 1.1.2.467
retrieving revision 1.1.2.468
diff -C2 -d -r1.1.2.467 -r1.1.2.468
*** desire.tk	13 Sep 2006 01:46:48 -0000	1.1.2.467
--- desire.tk	13 Sep 2006 22:46:44 -0000	1.1.2.468
***************
*** 1677,1689 ****
  	$c delete ${self}TEXT
  	$self update_size
- 	#bind Text <Tab> "$self tab; continue"
- 	#set new_size [format %.0f [expr $font(size)*$_($@canvas:zoom)]]
  	set new_size [format %.0f [expr [$self look fontsize]*$_($@canvas:zoom)]]
- 	#set font_str [format $font(str2) $new_size]
  	set font_str [format [$self look fontstring2] $new_size]
! 	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]
--- 1677,1702 ----
  	$c delete ${self}TEXT
  	$self update_size
  	set new_size [format %.0f [expr [$self look fontsize]*$_($@canvas:zoom)]]
  	set font_str [format [$self look fontstring2] $new_size]
! 	#puts "  text to edit::: $@text"
! 	set l {};set nl 1;set newline {-1};set i 0;set width 0
! 	foreach char [split $@text ""] {lappend l [scan $char %c]}
! 	foreach val $l {if {$val == 10} {incr nl; lappend newline $i}; incr i}
! 	lappend newline "end"
! 	for {set i 0} {$i < $nl} {incr i} {
! 		set line [string range $@text [expr [lindex $newline $i] + 1] [lindex $newline [expr $i+1]]]
! 		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]
***************
*** 1700,1703 ****
--- 1713,1717 ----
  	$t configure -pady 0 -padx 1
  	$t insert 1.0 $@text
+ 	$self resize
  	focus $t
  }