[PD-cvs] pd/src desire.tk, 1.1.2.600.2.154, 1.1.2.600.2.155 TODO, 1.1.2.28.2.26, 1.1.2.28.2.27

chunlee chunlee at users.sourceforge.net
Sun Jan 7 14:39:11 CET 2007


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

Modified Files:
      Tag: desiredata
	desire.tk TODO 
Log Message:
some bug fixes


Index: desire.tk
===================================================================
RCS file: /cvsroot/pure-data/pd/src/Attic/desire.tk,v
retrieving revision 1.1.2.600.2.154
retrieving revision 1.1.2.600.2.155
diff -C2 -d -r1.1.2.600.2.154 -r1.1.2.600.2.155
*** desire.tk	5 Jan 2007 00:59:31 -0000	1.1.2.600.2.154
--- desire.tk	7 Jan 2007 13:39:06 -0000	1.1.2.600.2.155
***************
*** 1927,1933 ****
  def Canvas new_object_insert_wire {obj} {
  	set wire [$self selection_wire]
! 	$wire selected?= 0
  	mset {obj1 outlet obj2 inlet} [$wire report]
  	$self disconnect [$wire connects]
  	set obj1_idx [$self children_idx $obj1]
  	set obj2_idx [$self children_idx $obj2]
--- 1927,1934 ----
  def Canvas new_object_insert_wire {obj} {
  	set wire [$self selection_wire]
! 	$self selection_wire-= $wire
  	mset {obj1 outlet obj2 inlet} [$wire report]
  	$self disconnect [$wire connects]
+ 	$wire delete
  	set obj1_idx [$self children_idx $obj1]
  	set obj2_idx [$self children_idx $obj2]
***************
*** 3622,3625 ****
--- 3623,3629 ----
  
  def Canvas click_on_object {id f} {
+ 	set c [$self widget]; set text $c.${id}text
+ 	# so that if one clicks on the objectbox when editing the objectname, the focus won't get lost
+ 	if {[winfo exists $text]} {focus $text; return}
  	switch [expr $f&255] {
  		0 {
***************
*** 3674,3677 ****
--- 3678,3682 ----
  def Canvas click_on_nothing {f target x y} {
  	if {$@focus != ""} {if {[[$@focus class] <= TextBox]} {$@focus unedit}}
+ 	if {$@action == "insert"} {return}
  	if {![expr $f&255]} {
  		$self deselect_all
***************
*** 7631,7635 ****
  def Box deconstruct {} {
  	global fields
! 	if {[array names -exact fields $@pdclass] == ""} {
  		return [concat [list #X obj  $@x1 $@y1] $@text]
  	} {
--- 7636,7640 ----
  def Box deconstruct {} {
  	global fields
! 	if {[array names fields -exact $@pdclass] == ""} {
  		return [concat [list #X obj  $@x1 $@y1] $@text]
  	} {

Index: TODO
===================================================================
RCS file: /cvsroot/pure-data/pd/src/Attic/TODO,v
retrieving revision 1.1.2.28.2.26
retrieving revision 1.1.2.28.2.27
diff -C2 -d -r1.1.2.28.2.26 -r1.1.2.28.2.27
*** TODO	3 Jan 2007 14:14:47 -0000	1.1.2.28.2.26
--- TODO	7 Jan 2007 13:39:09 -0000	1.1.2.28.2.27
***************
*** 28,31 ****
--- 28,35 ----
  [x] firefox style find bar + Breadth-first search
  [x] fix client editor key not showing up
+ [x] the original wire don't delete after object insertion
+ [ ] "click off" should also work with object insertion
+ [x] after ctrl+1 focus gets lost if click on the ObjectBox
+ [x] ctrl+c brok for GUI objects
  ---------------------------------------------------------------- 0.40.pre7-...
  





More information about the Pd-cvs mailing list