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"