[PD-cvs] pd/src desire.tk, 1.1.2.600.2.130, 1.1.2.600.2.131 TODO, 1.1.2.28.2.19, 1.1.2.28.2.20

[chunlee]

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

Modified Files:
      Tag: desiredata
	desire.tk TODO 
Log Message:
fix click on gop content in edit mode


Index: desire.tk
===================================================================
RCS file: /cvsroot/pure-data/pd/src/Attic/desire.tk,v
retrieving revision 1.1.2.600.2.130
retrieving revision 1.1.2.600.2.131
diff -C2 -d -r1.1.2.600.2.130 -r1.1.2.600.2.131
*** desire.tk	21 Dec 2006 13:10:43 -0000	1.1.2.600.2.130
--- desire.tk	21 Dec 2006 14:26:50 -0000	1.1.2.600.2.131
***************
*** 1213,1216 ****
--- 1213,1222 ----
  	return $canvas
  }
+ # this will return the top level gop if gop is nested
+ def View get_parent_gop {canvas} {
+ 	set obj $self
+ 	while {$canvas != [$obj canvas]} {set obj [$obj canvas]}
+ 	return $obj
+ }
  
  def View outside_of_the_box {} {
***************
*** 3304,3310 ****
  	switch [expr $f&255] {
  		0 {
! 			if {[lsearch $@selection $id] < 0 || [llength $@selection] == 0} {
  			$self deselect_all
! 			$self selection+= $id
  			set @action edit
  			} else {set @action edit}
--- 3310,3320 ----
  	switch [expr $f&255] {
  		0 {
! 			# if $id is the content of GOP
! 			if {[$id canvas] != $self} {
! 				set obj [$id get_parent_gop $self]
! 			} else {set obj $id}
! 			if {[lsearch $@selection $obj] < 0 || [llength $@selection] == 0} {
  			$self deselect_all
! 			$self selection+= $obj
  			set @action edit
  			} else {set @action edit}

Index: TODO
===================================================================
RCS file: /cvsroot/pure-data/pd/src/Attic/TODO,v
retrieving revision 1.1.2.28.2.19
retrieving revision 1.1.2.28.2.20
diff -C2 -d -r1.1.2.28.2.19 -r1.1.2.28.2.20
*** TODO	21 Dec 2006 13:10:45 -0000	1.1.2.28.2.19
--- TODO	21 Dec 2006 14:26:52 -0000	1.1.2.28.2.20
***************
*** 11,19 ****
      [ ] gop content don't delete when gop is deleted
      [ ] gop drawing order
!     [ ] gop content should not be able to move...
  [x] futurewire broken
      [x] drawn from inlet
      [x] can't connect from outlet other than the hot outlet
  [ ] FloatBox remains hilited after hit Return
  ---------------------------------------------------------------- 0.40.pre7-...
  
--- 11,20 ----
      [ ] gop content don't delete when gop is deleted
      [ ] gop drawing order
!     [x] gop content should not be able to move...
  [x] futurewire broken
      [x] drawn from inlet
      [x] can't connect from outlet other than the hot outlet
  [ ] FloatBox remains hilited after hit Return
+ [ ] gobj_changed3: no appendix in 0x807b620 (don't know how to reproduce yet)
  ---------------------------------------------------------------- 0.40.pre7-...