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 }