Update of /cvsroot/pure-data/pd/src In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv25831
Modified Files: Tag: devel_0_39 desire.tk Log Message: fixed SelRect and paste
Index: desire.tk =================================================================== RCS file: /cvsroot/pure-data/pd/src/Attic/desire.tk,v retrieving revision 1.1.2.451 retrieving revision 1.1.2.452 diff -C2 -d -r1.1.2.451 -r1.1.2.452 *** desire.tk 1 Sep 2006 21:15:14 -0000 1.1.2.451 --- desire.tk 2 Sep 2006 04:10:00 -0000 1.1.2.452 *************** *** 38,42 **** package require objective
! if {[catch {source profdd.tcl}]} {error_dump} if {[file exists debug.tcl]} { source debug.tcl --- 38,42 ---- package require objective
! #if {[catch {source profdd.tcl}]} {error_dump} if {[file exists debug.tcl]} { source debug.tcl *************** *** 1259,1262 **** --- 1259,1264 ---- set @zoom 1.0 ;# must be a float, not int set @action none + #trace add variable @selection write yell + #trace add variable @selection_wire write yell set @selection {} set @selection_wire {} *************** *** 1652,1657 **** bind $t <Control-Return> "$self key %W %x %y 10 %A 0" bind $t <Return> "$self unedit" ! bind $t <Any-Enter> "puts "keep compltion box please.........." " ! bind $t <Any-Leave> "puts "destroy the compltion box please.........." " mset {cx cy} [$self xy] $self item text window [list [expr $cx+2] [expr $cy+2]] \ --- 1654,1659 ---- bind $t <Control-Return> "$self key %W %x %y 10 %A 0" bind $t <Return> "$self unedit" ! #bind $t <Any-Enter> "puts "keep compltion box please.........." " ! #bind $t <Any-Leave> "puts "destroy the compltion box please.........." " mset {cx cy} [$self xy] $self item text window [list [expr $cx+2] [expr $cy+2]] \ *************** *** 2009,2013 **** def Canvas motion {x y f target} { global font canvas tooltip crosshair - set canvas(current) $self set c [$self widget] if {[$self look hairstate] && $@editmode} { --- 2011,2014 ---- *************** *** 2220,2224 **** connect { mset {foo bar from outlet to inlet} $line ! pd .$@canvas connect [expr $n+$from] $outlet [expr $n+$to] $inlet } default { --- 2221,2225 ---- connect { mset {foo bar from outlet to inlet} $line ! pd .$self connect [expr $n+$from] $outlet [expr $n+$to] $inlet } default { *************** *** 2239,2244 **** # part two def Canvas do_paste2 {n m} { ! $self selection= [lrange [$self children] $n end] ! $self selection_wire= [lrange [$self wires] $m end] }
--- 2240,2245 ---- # part two def Canvas do_paste2 {n m} { ! $self selection= [lrange [$self children] $n end] ! $self selection_wire= [lrange [$self wires] $m end] }
*************** *** 2416,2424 **** if {[regexp {^[xo]?[0-9a-f]{6,8}} [$c gettags $tag] id]} { if {[$@canvas == $id]} {continue} ! switch $_($id:_class) { ! SelRect {} ! Wire {lappend wires $id} ! default {lappend objects $id} ! } } } --- 2417,2422 ---- if {[regexp {^[xo]?[0-9a-f]{6,8}} [$c gettags $tag] id]} { if {[$@canvas == $id]} {continue} ! if {[[$id _class] inherit? Box]} {lappend objects $id ! } elseif {[[$id _class] inherit? Wire]} {lappend wires $id} } } *************** *** 3219,3227 **** classinfo cnv Cnv
- # - # a hack to get around the file loading process - # now also used for duplicting object and have them selected... - set canvas(current) "" - # remember, _($foo:$bar) notation should die # because objects ought to be autonomous. --- 3217,3220 ---- *************** *** 3238,3242 **** set class canvas if {$isnew} {Canvas new_as $self $mess} else {$self reinit $mess} - set canvas(current) $self set isnew 0 } --- 3231,3234 ----