[PD-cvs] pd/src desire.tk,1.1.2.600.2.223,1.1.2.600.2.224

chunlee chunlee at users.sourceforge.net
Thu Jul 12 18:07:44 CEST 2007


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

Modified Files:
      Tag: desiredata
	desire.tk 
Log Message:
small fixes and changes


Index: desire.tk
===================================================================
RCS file: /cvsroot/pure-data/pd/src/Attic/desire.tk,v
retrieving revision 1.1.2.600.2.223
retrieving revision 1.1.2.600.2.224
diff -C2 -d -r1.1.2.600.2.223 -r1.1.2.600.2.224
*** desire.tk	12 Jul 2007 01:19:38 -0000	1.1.2.600.2.223
--- desire.tk	12 Jul 2007 16:07:40 -0000	1.1.2.600.2.224
***************
*** 2007,2011 ****
  		puts "insert object for $@selection_wire"
  		mset {obj1 outlet obj2 inlet} [$@selection_wire report]
- 		puts " $obj1 $outlet ----> $obj2 $inlet"
  		set c [$self widget]
  		set iowidth [$self look iowidth]
--- 2007,2010 ----
***************
*** 2016,2021 ****
  		set x2 [expr $ix1 + ($iowidth / 2)]
  		set y2 [expr ($iy1 + $iy2) / 2]
! 		set x [expr (abs($x2-$x1) / 2) + $x1]
! 		set y [expr (abs($y2-$y1) / 2) + $y1]
  	}
  	netsend [list .$self obj $x $y] [list $self new_object_edit]
--- 2015,2020 ----
  		set x2 [expr $ix1 + ($iowidth / 2)]
  		set y2 [expr ($iy1 + $iy2) / 2]
! 		set x [expr $x1 + (($x2-$x1) / 2)]
! 		set y [expr $y1 + (($y2-$y1) / 2)]
  	}
  	netsend [list .$self obj $x $y] [list $self new_object_edit]
***************
*** 2028,2032 ****
  	mset {obj1 outlet obj2 inlet} [$wire report]
  	$self disconnect [$wire connects]
! 	set @keynav 0; $@active hide
  	set obj1_idx [$self children_idx $obj1]
  	set obj2_idx [$self children_idx $obj2]
--- 2027,2031 ----
  	mset {obj1 outlet obj2 inlet} [$wire report]
  	$self disconnect [$wire connects]
! 	set @keynav 0; $@active hide; set @keynav_tab_sel "object"
  	set obj1_idx [$self children_idx $obj1]
  	set obj2_idx [$self children_idx $obj2]
***************
*** 2452,2456 ****
  	foreach char [split $@text ""] {lappend l [scan $char %c]}
  	$@canvas selection-= [list $self]
- 	puts "  ACTION::: [$@canvas action]"
  	switch [$@canvas action] {
  		insert {set goto [list $@canvas new_object_insert_wire]}
--- 2451,2454 ----
***************
*** 2967,2972 ****
  	return [lindex $ios $idx]
  }
! 
! def Canvas pointer_sense {sense} {
  	set @pointer_sense $sense
  	mset {x y} $@curpos
--- 2965,2970 ----
  	return [lindex $ios $idx]
  }
! def Canvas pointer_sense {} {return $@pointer_sense}
! def Canvas pointer_sense= {sense} {
  	set @pointer_sense $sense
  	mset {x y} $@curpos
***************
*** 2974,2978 ****
  	$@sense draw
  	after 500 $@sense erase
- 	puts "sense is now $@pointer_sense :: $@curpos"
  }
  
--- 2972,2975 ----
***************
*** 3233,3237 ****
  	bind $f.entry <Control-n>     "$self down"
  	bind $f.entry <Tab>    "$self completion +"
! 	bind $f.entry <Shift-Tab> "$self completion -"
  	pack $f.entry -side left -fill x -expand yes
  	bind $f.entry <Control-Tab> "$self traversal %K %W forward"
--- 3230,3237 ----
  	bind $f.entry <Control-n>     "$self down"
  	bind $f.entry <Tab>    "$self completion +"
! 	switch $::tcl_platform(os) {
! 		Linux {bind $f.entry <ISO_Left_Tab> "$self completion -"}
! 		default {bind $f.entry <Shift-Tab> "$self completion -"}
! 	}
  	pack $f.entry -side left -fill x -expand yes
  	bind $f.entry <Control-Tab> "$self traversal %K %W forward"





More information about the Pd-cvs mailing list