Update of /cvsroot/pure-data/pd/src In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv7580
Modified Files: Tag: devel_0_39 desire.tk Log Message: messagebox fixed...
Index: desire.tk =================================================================== RCS file: /cvsroot/pure-data/pd/src/Attic/desire.tk,v retrieving revision 1.1.2.252 retrieving revision 1.1.2.253 diff -C2 -d -r1.1.2.252 -r1.1.2.253 *** desire.tk 19 Jun 2006 20:14:50 -0000 1.1.2.252 --- desire.tk 20 Jun 2006 04:07:31 -0000 1.1.2.253 *************** *** 116,120 **** } def* Observable changed {args} { - puts " subscribers ::: $@subscribers" foreach x $@subscribers {eval [concat [list $x notice $self] $args]} } --- 116,119 ---- *************** *** 155,159 **** set poolset($origin) {-1} lappend @q $origin - puts " adding $origin to the q....." } post "Manager notice: queue length is now %d" [llength $@q] --- 154,157 ---- *************** *** 2288,2294 **** #foreach {type id} [$self identify_target $cx $cy -1 -1 "blah "] {} mset {type id} [$self identify_target $x $y [expr $x-1] [expr $y-1] "unclick"] ! puts "++++++++ type:$type id:$id class:$_($id:class)" set @obj_in_edit $id $id edit
} --- 2286,2293 ---- #foreach {type id} [$self identify_target $cx $cy -1 -1 "blah "] {} mset {type id} [$self identify_target $x $y [expr $x-1] [expr $y-1] "unclick"] ! #puts "++++++++ type:$type id:$id class:$_($id:class)" set @obj_in_edit $id $id edit + $id draw
} *************** *** 2755,2759 **** foreach f $fields($class) { set _($x:$f) [lindex $d $i] ! puts "------> set $x:$f to [lindex $d $i] <------" incr i } --- 2754,2758 ---- foreach f $fields($class) { set _($x:$f) [lindex $d $i] ! #puts "------> set $x:$f to [lindex $d $i] <------" incr i } *************** *** 2810,2820 **** foreach f $fields($class) { set _($x:$f) [lindex $d $i] ! puts "==== setting $x:$f to [lindex $d $i] ====" incr i } if {$class == "msg"} {set _($x:text) [join [lrange $d 4 end]]} if {[info exists canvas(msg_isnew)]} { ! puts "_______ spanking new message ________" set _($x:isnew) 1 unset canvas(msg_isnew) } --- 2809,2820 ---- foreach f $fields($class) { set _($x:$f) [lindex $d $i] ! #puts "==== setting $x:$f to [lindex $d $i] ====" incr i } if {$class == "msg"} {set _($x:text) [join [lrange $d 4 end]]} if {[info exists canvas(msg_isnew)]} { ! #puts "_______ spanking new message ________" set _($x:isnew) 1 + $x selected?= 1 unset canvas(msg_isnew) } *************** *** 2899,2903 **** #comment out the following to see what happens with the q...... if {[info exists @isnew]} { ! if {$@isnew} {$self edit;lappend _($@canvas:selection) $self;set @isnew 0} } } --- 2899,2904 ---- #comment out the following to see what happens with the q...... if {[info exists @isnew]} { ! #if {$@isnew} {$self edit;lappend _($@canvas:selection) $self;set @isnew 0} ! if {$@isnew} {$self edit;set @isnew 0; set @edit 1} } } *************** *** 2909,2918 **** set t $c.${self}text set @text [$t get 1.0 1.end] ! $self delete after 1 "destroy $t" set l {} foreach char [split $@text ""] {lappend l [scan $char %c]} pd .$@canvas text_setto !$self $l ! #$self draw focus $c } --- 2910,2920 ---- set t $c.${self}text set @text [$t get 1.0 1.end] ! #$self delete ! $self selected?= 0 after 1 "destroy $t" set l {} foreach char [split $@text ""] {lappend l [scan $char %c]} pd .$@canvas text_setto !$self $l ! $self draw focus $c }