[PD-cvs] pd/src desire.tk,1.1.2.353,1.1.2.354

[Mathieu Bouchard]

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

Modified Files:
      Tag: devel_0_39
	desire.tk 
Log Message:
some silly bugs


Index: desire.tk
===================================================================
RCS file: /cvsroot/pure-data/pd/src/Attic/desire.tk,v
retrieving revision 1.1.2.353
retrieving revision 1.1.2.354
diff -C2 -d -r1.1.2.353 -r1.1.2.354
*** desire.tk	16 Aug 2006 18:24:34 -0000	1.1.2.353
--- desire.tk	16 Aug 2006 20:06:31 -0000	1.1.2.354
***************
*** 1039,1042 ****
--- 1039,1043 ----
  	foreach s $suffixes {lappend tags "$self$s"}
  	set ss [lindex $tags 0]
+ 	lappend tags list $self
  	if {![llength [$c gettags $ss]]} {
  		eval  [concat [list $c create $type $coords  -tags $tags] $args]
***************
*** 1932,1936 ****
  }
  
- #!@#$ this method is too long
  def Canvas motion {x y f target} {
      global font canvas tooltip crosshair
--- 1933,1936 ----
***************
*** 1947,1951 ****
      set oldpos $@curpos
      set @curpos [list $x $y]
!     # detects if the focus is not on the canvas itself in run mode, ie. numbox 
      if {!$@editmode & [$self focus] != $self & [$self focus] != ""} {[$self focus] motion $x $y $f $target}
      mset {type id detail} $target
--- 1947,1951 ----
      set oldpos $@curpos
      set @curpos [list $x $y]
!     # detects if the focus is not on the canvas itself in run mode, ie. numbox
      if {!$@editmode & [$self focus] != $self & [$self focus] != ""} {[$self focus] motion $x $y $f $target}
      mset {type id detail} $target
***************
*** 2183,2187 ****
  }
  
! def Canvas end_action {} {
  	$@action _delete
  	set @action "none"
--- 2183,2187 ----
  }
  
! def* Canvas end_action {} {
  	$@action _delete
  	set @action "none"
***************
*** 2291,2297 ****
  	focus $c
  	set @click_at [list $x $y]
  	if {!$@editmode} {if {[llength $id]} {$id click $x $y $f $target}; return}
  
- 	mset {type id detail} $target
  	if {$f&8} {$self popup $id [winfo pointerx $c] [winfo pointery $c]; return}
  	if {[llength $@obj_in_edit]} {$@obj_in_edit unedit; set @obj_in_edit {}}
--- 2291,2297 ----
  	focus $c
  	set @click_at [list $x $y]
+ 	mset {type id detail} $target
  	if {!$@editmode} {if {[llength $id]} {$id click $x $y $f $target}; return}
  
  	if {$f&8} {$self popup $id [winfo pointerx $c] [winfo pointery $c]; return}
  	if {[llength $@obj_in_edit]} {$@obj_in_edit unedit; set @obj_in_edit {}}
***************
*** 2299,2306 ****
  	switch $type {
  	  outlet {set @action [FutureWire new $self $x $y $f $target]; return}
! 	  object {
! 	     $self selection+= $id
! 	     set @action edit
! 	  }
  	  wire {
  	    switch [expr $f&255] {
--- 2299,2303 ----
  	switch $type {
  	  outlet {set @action [FutureWire new $self $x $y $f $target]; return}
! 	  object {$self selection+= $id; set @action edit}
  	  wire {
  	    switch [expr $f&255] {
***************
*** 3079,3091 ****
  ############ rendering
  
- # fix me
- class_new Shadow {} ;# make a Box class inherit from this
- def Shadow draw {coords} {
- 	set light [darker [look objectbg]]
- 	set dark [darker $light]
- 	$self item SHAD rectangle $coords -fill $dark -outline $light -width 2
- 	$@canvas move ${self}SHAD 4 4
- }
- 
  class_new MessageBox {TextBox}
  
--- 3076,3079 ----
***************
*** 3095,3099 ****
  	set @w 15
  	set @xs $@w
! 	set @ys $@w
  	set @text ""
  }
--- 3083,3087 ----
  	set @w 15
  	set @xs $@w
! 	set @ys $@w ;# this is a bug
  	set @text ""
  }