[PD-cvs] pd/src desire.tk,1.1.2.252,1.1.2.253

[chunlee]

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
  }