Pd-cvs August 2007

pd-cvs@lists.iem.at

18 participants
618 discussions

pd/src desire.tk,1.1.2.600.2.311,1.1.2.600.2.312
by chunlee 07 Aug '07

07 Aug '07

Update of /cvsroot/pure-data/pd/src In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv5690 Modified Files: Tag: desiredata desire.tk Log Message: simplify Crosshair draw Index: desire.tk =================================================================== RCS file: /cvsroot/pure-data/pd/src/Attic/desire.tk,v retrieving revision 1.1.2.600.2.311 retrieving revision 1.1.2.600.2.312 diff -C2 -d -r1.1.2.600.2.311 -r1.1.2.600.2.312 *** desire.tk 7 Aug 2007 16:38:04 -0000 1.1.2.600.2.311 --- desire.tk 7 Aug 2007 16:49:00 -0000 1.1.2.600.2.312 *************** *** 6451,6465 **** switch -regexp -- $type {^object|outlet|inlet$ {mset {x y x3 y3} [$id bbox]}} } - mset {l r} [$c xview] - mset {t b} [$c yview] set width [winfo width $c]; set height [winfo height $c] ! set w [expr (1 / ($r-$l)) * $width] ! set h [expr (1 / ($b-$t)) * $height] ! set x1 [expr ($w*$l+$cx1+7)/$z] ! set y1 [expr ($h*$t+$cy1+7)/$z] ! set x2 [expr $width+$x1-14] ! set y2 [expr $height+$y1-14] ! set h1 [list $x1 $y $x2 $y] ! set v1 [list $x $y1 $x $y2] $self item VHAIR1 line $v1 -fill [$@canvas look crosshair] -width 0.5 -dash {4 4 4 4} $self item HHAIR1 line $h1 -fill [$@canvas look crosshair] -width 0.5 -dash {4 4 4 4} --- 6451,6458 ---- switch -regexp -- $type {^object|outlet|inlet$ {mset {x y x3 y3} [$id bbox]}} } set width [winfo width $c]; set height [winfo height $c] ! set x1 [$c canvasx 0]; set y1 [$c canvasy 0] ! set h1 [list $x1 $y [expr $x1+$width] $y] ! set v1 [list $x $y1 $x [expr $y1+$height]] $self item VHAIR1 line $v1 -fill [$@canvas look crosshair] -width 0.5 -dash {4 4 4 4} $self item HHAIR1 line $h1 -fill [$@canvas look crosshair] -width 0.5 -dash {4 4 4 4}

1 0

pd/src desire.tk,1.1.2.600.2.310,1.1.2.600.2.311
by chunlee 07 Aug '07

07 Aug '07

Update of /cvsroot/pure-data/pd/src In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv1574 Modified Files: Tag: desiredata desire.tk Log Message: fixed Grid draw so it updated with scrollbars correctly Index: desire.tk =================================================================== RCS file: /cvsroot/pure-data/pd/src/Attic/desire.tk,v retrieving revision 1.1.2.600.2.310 retrieving revision 1.1.2.600.2.311 diff -C2 -d -r1.1.2.600.2.310 -r1.1.2.600.2.311 *** desire.tk 7 Aug 2007 16:21:00 -0000 1.1.2.600.2.310 --- desire.tk 7 Aug 2007 16:38:04 -0000 1.1.2.600.2.311 *************** *** 2,6 **** set cvsid {$Id$} #-----------------------------------------------------------------------------------# ! # # DesireData # Copyright (c) 2004 by Mathieu Bouchard --- 2,6 ---- set cvsid {$Id$} #-----------------------------------------------------------------------------------# ! # # DesireData # Copyright (c) 2004 by Mathieu Bouchard *************** *** 1853,1857 **** pack [scrollbar $win.yscroll -command "$c yview" ] -side right -fill y -before $c pack [scrollbar $win.xscroll -command "$c xview" -orient horizontal] -side bottom -fill x -before $c ! $c configure -yscrollcommand "$win.yscroll set" -xscrollcommand "$win.xscroll set" \ -scrollregion [list 0 0 $xregion $yregion] } --- 1853,1860 ---- pack [scrollbar $win.yscroll -command "$c yview" ] -side right -fill y -before $c pack [scrollbar $win.xscroll -command "$c xview" -orient horizontal] -side bottom -fill x -before $c ! #$c configure -yscrollcommand "$win.yscroll set" -xscrollcommand "$win.xscroll set" \ ! # -scrollregion [list 0 0 $xregion $yregion] ! set xw $win.xscroll; set yw $win.yscroll ! $c configure -yscrollcommand "$self scroll_set $yw" -xscrollcommand "$self scroll_set $xw" \ -scrollregion [list 0 0 $xregion $yregion] } *************** *** 2027,2030 **** --- 2030,2037 ---- } } + + # this allows the grid to update when scroll + def Canvas scroll_set {w v1 v2} {if {[$self look gridstate]} {$@grid draw}; $w set $v1 $v2} + def Canvas reload {} { netsend [list .$self map 0] *************** *** 6506,6518 **** set c [$@canvas widget] set lowest [$@canvas lowest_item] ! for {set i 1} {$i < $@width} {incr i} { if {![expr $i % $@size]} { ! set line [list $i 0 $i $@height] $self item HL$i line $line -fill $@col -width 0.1 -dash {2 2 2 2} } } ! for {set i 1} {$i < $@height} {incr i} { if {![expr $i % $@size]} { ! set line [list 0 $i $@width $i] $self item VL$i line $line -fill $@col -width 0.1 -dash {2 2 2 2} } --- 6513,6527 ---- set c [$@canvas widget] set lowest [$@canvas lowest_item] ! set x1 [$c canvasx 0]; set y1 [$c canvasy 0] ! set x2 [expr $x1+$@width]; set y2 [expr $y1+$@height] ! for {set i [expr int($x1)]} {$i < $x2} {incr i} { if {![expr $i % $@size]} { ! set line [list $i $y1 $i $y2] $self item HL$i line $line -fill $@col -width 0.1 -dash {2 2 2 2} } } ! for {set i [expr int($y1)]} {$i < $y2} {incr i} { if {![expr $i % $@size]} { ! set line [list $x1 $i $x2 $i] $self item VL$i line $line -fill $@col -width 0.1 -dash {2 2 2 2} }

1 0

pd/src desire.tk,1.1.2.600.2.309,1.1.2.600.2.310
by Mathieu Bouchard 07 Aug '07

07 Aug '07

Update of /cvsroot/pure-data/pd/src In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv27647 Modified Files: Tag: desiredata desire.tk Log Message: fixed the fart in def Canvas connect Index: desire.tk =================================================================== RCS file: /cvsroot/pure-data/pd/src/Attic/desire.tk,v retrieving revision 1.1.2.600.2.309 retrieving revision 1.1.2.600.2.310 diff -C2 -d -r1.1.2.600.2.309 -r1.1.2.600.2.310 *** desire.tk 7 Aug 2007 16:16:51 -0000 1.1.2.600.2.309 --- desire.tk 7 Aug 2007 16:21:00 -0000 1.1.2.600.2.310 *************** *** 3712,3717 **** mset {from outlet to inlet} $wire switch $callback { ! none {netsend [list .$self connect $from [dex $@objects $outlet] $to [dex $@objects $inlet]]} ! default {netsend [list .$self connect $from [dex $@objects $outlet] $to [dex $@objects $inlet]] $callback} } $@history add [list $self disconnect $wire] --- 3712,3717 ---- mset {from outlet to inlet} $wire switch $callback { ! none {netsend [list .$self connect [dex $@objects $from] $outlet [dex $@objects $to] $inlet]} ! default {netsend [list .$self connect [dex $@objects $from] $outlet [dex $@objects $to] $inlet] $callback} } $@history add [list $self disconnect $wire]

1 0

pd/src desire.tk,1.1.2.600.2.308,1.1.2.600.2.309
by Mathieu Bouchard 07 Aug '07

07 Aug '07

Update of /cvsroot/pure-data/pd/src In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv26131 Modified Files: Tag: desiredata desire.tk Log Message: fixed def Canvas del Index: desire.tk =================================================================== RCS file: /cvsroot/pure-data/pd/src/Attic/desire.tk,v retrieving revision 1.1.2.600.2.308 retrieving revision 1.1.2.600.2.309 diff -C2 -d -r1.1.2.600.2.308 -r1.1.2.600.2.309 *** desire.tk 7 Aug 2007 15:41:21 -0000 1.1.2.600.2.308 --- desire.tk 7 Aug 2007 16:16:51 -0000 1.1.2.600.2.309 *************** *** 2775,2779 **** def Canvas del {i} { ! set o [$self child_by_idx $i] #this keynav should be better sorted out if {$o == $@keynav_current || $o == $@keynav_last_obj} { --- 2775,2779 ---- def Canvas del {i} { ! set o [$@objects get $i] #this keynav should be better sorted out if {$o == $@keynav_current || $o == $@keynav_last_obj} { *************** *** 2790,2794 **** $meuh delete } ! netsend [list .$self object_delete [dex $@objects $o]] } --- 2790,2794 ---- $meuh delete } ! netsend [list .$self object_delete $o] }

1 0

pd/src desire.tk,1.1.2.600.2.307,1.1.2.600.2.308
by chunlee 07 Aug '07

07 Aug '07

Update of /cvsroot/pure-data/pd/src In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv13012 Modified Files: Tag: desiredata desire.tk Log Message: fix Selection unset Index: desire.tk =================================================================== RCS file: /cvsroot/pure-data/pd/src/Attic/desire.tk,v retrieving revision 1.1.2.600.2.307 retrieving revision 1.1.2.600.2.308 diff -C2 -d -r1.1.2.600.2.307 -r1.1.2.600.2.308 *** desire.tk 7 Aug 2007 15:29:42 -0000 1.1.2.600.2.307 --- desire.tk 7 Aug 2007 15:41:21 -0000 1.1.2.600.2.308 *************** *** 334,339 **** class_new Selection {Hash} def Selection set {k v} {super $k $v; $v selected?= 1} ! def Selection unset {k} {super $k; if {[$self exists $k]} {[$self get $k] selected?= 0}} ! #-----------------------------------------------------------------------------------# # abstract class: subclass must def {value value= <<} --- 334,338 ---- class_new Selection {Hash} def Selection set {k v} {super $k $v; $v selected?= 1} ! def Selection unset {k} {if {[$self exists $k]} {[$self get $k] selected?= 0}; super $k} #-----------------------------------------------------------------------------------# # abstract class: subclass must def {value value= <<} *************** *** 3665,3669 **** def Canvas select_all {} {$@objectsel reinit [$objects list]} ! def Canvas deselect_all {} {puts [$@objectsel list]; $@objectsel clear; puts [$@objectsel list]} def Canvas popup_help {} {$::main class_browser} --- 3664,3668 ---- def Canvas select_all {} {$@objectsel reinit [$objects list]} ! def Canvas deselect_all {} {$@objectsel clear} def Canvas popup_help {} {$::main class_browser}

1 0

pd/src desire.tk,1.1.2.600.2.306,1.1.2.600.2.307
by Mathieu Bouchard 07 Aug '07

07 Aug '07

Update of /cvsroot/pure-data/pd/src In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv8494 Modified Files: Tag: desiredata desire.tk Log Message: added shim [dex $hash $key] between the new index system and the old index system. (temporary) Index: desire.tk =================================================================== RCS file: /cvsroot/pure-data/pd/src/Attic/desire.tk,v retrieving revision 1.1.2.600.2.306 retrieving revision 1.1.2.600.2.307 diff -C2 -d -r1.1.2.600.2.306 -r1.1.2.600.2.307 *** desire.tk 7 Aug 2007 08:04:55 -0000 1.1.2.600.2.306 --- desire.tk 7 Aug 2007 15:29:42 -0000 1.1.2.600.2.307 *************** *** 325,328 **** --- 325,332 ---- puts values=[$h values] puts list=[$h list] + $h unset foo + puts list=[$h list] + $h clear + puts list=[$h list] foreach i {1 2 3 4} {puts "exists $i : [$h exists $i]"} } *************** *** 2133,2138 **** set o [$@objectsel values] mset {x1 y1 x2 y2} [$o bbox] ! # this should use callback... ! netsend [list .$self obj $x1 [expr $y2 + 10]] [list $self new_object_edit] set @action chain_obj } --- 2137,2141 ---- set o [$@objectsel values] mset {x1 y1 x2 y2} [$o bbox] ! netsend [list .$self obj $x1 [expr $y2+10]] [list $self new_object_edit] set @action chain_obj } *************** *** 2759,2762 **** --- 2762,2768 ---- } + # this is a shim between the client's new-style indices and the server's remaining old-style indices + proc dex {h k} {lsearch [lsort [$h keys]] $k} + # for undo; calls the server def Canvas ins {i constructor} { *************** *** 2765,2769 **** set parts [lrange $parts 0 end-1] foreach part $parts {netsend $part} ! netsend [concat [list .$self object_insert $i] $last] ;# bork bork bork $@history add [list $self del $i] } --- 2771,2775 ---- set parts [lrange $parts 0 end-1] foreach part $parts {netsend $part} ! netsend [concat [list .$self object_insert [dex $@objects $i]] $last] ;# bork bork bork $@history add [list $self del $i] } *************** *** 2785,2789 **** $meuh delete } ! netsend [list .$self object_delete $o] } --- 2791,2795 ---- $meuh delete } ! netsend [list .$self object_delete [dex $@objects $o]] } *************** *** 3659,3663 **** def Canvas select_all {} {$@objectsel reinit [$objects list]} ! def Canvas deselect_all {} {$@objectsel clear} def Canvas popup_help {} {$::main class_browser} --- 3665,3669 ---- def Canvas select_all {} {$@objectsel reinit [$objects list]} ! def Canvas deselect_all {} {puts [$@objectsel list]; $@objectsel clear; puts [$@objectsel list]} def Canvas popup_help {} {$::main class_browser} *************** *** 3693,3697 **** } - def Canvas disconnect {wire} { set @keynav_tab_sel "wire" --- 3699,3702 ---- *************** *** 3702,3706 **** } mset {from outlet to inlet} $wire ! netsend [list .$self disconnect $from $outlet $to $inlet] $@history add [list $self connect $wire] } --- 3707,3711 ---- } mset {from outlet to inlet} $wire ! netsend [list .$self disconnect [dex $@objects $from] $outlet [dex $@objects $to] $inlet] $@history add [list $self connect $wire] } *************** *** 3708,3713 **** mset {from outlet to inlet} $wire switch $callback { ! none {netsend [list .$self connect $from $outlet $to $inlet]} ! default {netsend [list .$self connect $from $outlet $to $inlet] $callback} } $@history add [list $self disconnect $wire] --- 3713,3718 ---- mset {from outlet to inlet} $wire switch $callback { ! none {netsend [list .$self connect $from [dex $@objects $outlet] $to [dex $@objects $inlet]]} ! default {netsend [list .$self connect $from [dex $@objects $outlet] $to [dex $@objects $inlet]] $callback} } $@history add [list $self disconnect $wire]

1 0

externals/pdp/doc/examples example12.pd,1.4,1.5
by Hans-Christoph Steiner 07 Aug '07

07 Aug '07

Update of /cvsroot/pure-data/externals/pdp/doc/examples In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv22543 Modified Files: example12.pd Log Message: fixed bad connection Index: example12.pd =================================================================== RCS file: /cvsroot/pure-data/externals/pdp/doc/examples/example12.pd,v retrieving revision 1.4 retrieving revision 1.5 diff -C2 -d -r1.4 -r1.5 *** example12.pd 5 May 2007 20:40:12 -0000 1.4 --- example12.pd 7 Aug 2007 14:38:09 -0000 1.5 *************** *** 1,5 **** ! #N canvas 578 52 635 489 10; #X obj 83 183 metro 40; ! #X obj 83 154 tgl 15 0 empty empty empty 0 -6 0 8 -262144 -1 -1 1 1 ; #X obj 83 361 pdp_glx; --- 1,5 ---- ! #N canvas 578 52 639 493 10; #X obj 83 183 metro 40; ! #X obj 83 154 tgl 15 0 empty empty empty 0 -6 0 8 -262144 -1 -1 0 1 ; #X obj 83 361 pdp_glx; *************** *** 13,22 **** #X msg 165 259 store \$1; #X obj 83 225 pdp_v4l; ! #X msg 29 118 open /dev/video1; ! #X floatatom 218 230 5 0 0; #X obj 312 385 pdp_save_png_sequence 50; #X obj 312 351 bng 15 250 50 0 empty empty empty 0 -6 0 8 -262144 -1 -1; ! #X msg 29 96 open /dev/video0; #X text 337 349 <- click to save sequence in /tmp dir; #X text 247 106 <- click to make a snapshot; --- 13,22 ---- #X msg 165 259 store \$1; #X obj 83 225 pdp_v4l; ! #X msg 41 117 open /dev/video1; ! #X floatatom 218 230 5 0 0 0 - - -; #X obj 312 385 pdp_save_png_sequence 50; #X obj 312 351 bng 15 250 50 0 empty empty empty 0 -6 0 8 -262144 -1 -1; ! #X msg 21 97 open /dev/video0; #X text 337 349 <- click to save sequence in /tmp dir; #X text 247 106 <- click to make a snapshot; *************** *** 40,42 **** #X connect 11 0 10 0; #X connect 14 0 13 0; ! #X connect 15 0 11 0; --- 40,42 ---- #X connect 11 0 10 0; #X connect 14 0 13 0; ! #X connect 15 0 10 0;

1 0

externals/pdp/doc/examples example12.pd,1.3.2.1,1.3.2.2
by Hans-Christoph Steiner 07 Aug '07

07 Aug '07

Update of /cvsroot/pure-data/externals/pdp/doc/examples In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv22174 Modified Files: Tag: branch-v0-39-2-extended example12.pd Log Message: fixed bad connection Index: example12.pd =================================================================== RCS file: /cvsroot/pure-data/externals/pdp/doc/examples/example12.pd,v retrieving revision 1.3.2.1 retrieving revision 1.3.2.2 diff -C2 -d -r1.3.2.1 -r1.3.2.2 *** example12.pd 5 May 2007 20:30:24 -0000 1.3.2.1 --- example12.pd 7 Aug 2007 14:37:25 -0000 1.3.2.2 *************** *** 1,5 **** ! #N canvas 578 52 635 489 10; #X obj 83 183 metro 40; ! #X obj 83 154 tgl 15 0 empty empty empty 0 -6 0 8 -262144 -1 -1 1 1 ; #X obj 83 361 pdp_glx; --- 1,5 ---- ! #N canvas 578 52 639 493 10; #X obj 83 183 metro 40; ! #X obj 83 154 tgl 15 0 empty empty empty 0 -6 0 8 -262144 -1 -1 0 1 ; #X obj 83 361 pdp_glx; *************** *** 13,22 **** #X msg 165 259 store \$1; #X obj 83 225 pdp_v4l; ! #X msg 29 118 open /dev/video1; ! #X floatatom 218 230 5 0 0; #X obj 312 385 pdp_save_png_sequence 50; #X obj 312 351 bng 15 250 50 0 empty empty empty 0 -6 0 8 -262144 -1 -1; ! #X msg 29 96 open /dev/video0; #X text 337 349 <- click to save sequence in /tmp dir; #X text 247 106 <- click to make a snapshot; --- 13,22 ---- #X msg 165 259 store \$1; #X obj 83 225 pdp_v4l; ! #X msg 41 117 open /dev/video1; ! #X floatatom 218 230 5 0 0 0 - - -; #X obj 312 385 pdp_save_png_sequence 50; #X obj 312 351 bng 15 250 50 0 empty empty empty 0 -6 0 8 -262144 -1 -1; ! #X msg 21 97 open /dev/video0; #X text 337 349 <- click to save sequence in /tmp dir; #X text 247 106 <- click to make a snapshot; *************** *** 40,42 **** #X connect 11 0 10 0; #X connect 14 0 13 0; ! #X connect 15 0 11 0; --- 40,42 ---- #X connect 11 0 10 0; #X connect 14 0 13 0; ! #X connect 15 0 10 0;

1 0

autobuild: pd-main macosx104-powerpc 2007-08-07 03.15.03
by pd＠macosx104-powerpc.idmi.poly.edu 07 Aug '07

07 Aug '07

_regcomp referenced from Jack expected to be defined in /usr/lib/libSystem.B.dylib _regexec referenced from Jack expected to be defined in /usr/lib/libSystem.B.dylib _regfree referenced from Jack expected to be defined in /usr/lib/libSystem.B.dylib _shutdown referenced from Jack expected to be defined in /usr/lib/libSystem.B.dylib _sleep referenced from Jack expected to be defined in /usr/lib/libSystem.B.dylib _socket referenced from Jack expected to be defined in /usr/lib/libSystem.B.dylib _strcspn referenced from Jack expected to be defined in /usr/lib/libSystem.B.dylib _task_get_special_port referenced from Jack expected to be defined in /usr/lib/libSystem.B.dylib _thread_terminate referenced from Jack expected to be defined in /usr/lib/libSystem.B.dylib _vsnprintf referenced from Jack expected to be defined in /usr/lib/libSystem.B.dylib _write referenced from Jack expected to be defined in /usr/lib/libSystem.B.dylib _AudioConvertNanosToHostTime referenced from Jack expected to be defined in /System/Library/Frameworks/CoreAudio.framework/Versions/A/CoreAudio _pthread_create referenced from Jack expected to be defined in /usr/lib/libSystem.B.dylib _thread_info referenced from Jack expected to be defined in /usr/lib/libSystem.B.dylib _thread_policy_set referenced from Jack expected to be defined in /usr/lib/libSystem.B.dylib collect2: ld returned 1 exit status lipo: can't open input file: /var/tmp//cctqZ6Nh.out (No such file or directory) make[2]: *** [../bin/pd] Error 1 make[1]: *** [pd_install] Error 2 make: *** [darwin_app_core] Error 2

1 0

pd/src desire.tk,1.1.2.600.2.305,1.1.2.600.2.306
by Mathieu Bouchard 07 Aug '07

07 Aug '07

Update of /cvsroot/pure-data/pd/src In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv9822 Modified Files: Tag: desiredata desire.tk Log Message: fix. Index: desire.tk =================================================================== RCS file: /cvsroot/pure-data/pd/src/Attic/desire.tk,v retrieving revision 1.1.2.600.2.305 retrieving revision 1.1.2.600.2.306 diff -C2 -d -r1.1.2.600.2.305 -r1.1.2.600.2.306 *** desire.tk 7 Aug 2007 07:45:52 -0000 1.1.2.600.2.305 --- desire.tk 7 Aug 2007 08:04:55 -0000 1.1.2.600.2.306 *************** *** 295,298 **** --- 295,299 ---- def Hash reinit {args} {$self clear; foreach {k v} $args {$self set $k $v}} def Hash set {k v} {set ::hash($self:$k) $v} + def Hash exists {k} {info exists ::hash($self:$k)} def Hash get {k} {set ::hash($self:$k)} def Hash size {} {llength [$self keys]} *************** *** 313,316 **** --- 314,322 ---- def Hash delete {} {$self clear; super} + def Hash search {v} { + foreach k [$self keys] {if {[$self get $k] == $v} {return $k}} + return -1 ;# this is not correct as -1 could be a Hash key, though not in its current context of use... + } + if 0 { set h [Hash new foo bar 1 2 3 4] *************** *** 319,327 **** puts values=[$h values] puts list=[$h list] } class_new Selection {Hash} def Selection set {k v} {super $k $v; $v selected?= 1} ! def Selection unset {k} {super $k; [$self get $k] selected?= 0} #-----------------------------------------------------------------------------------# --- 325,334 ---- puts values=[$h values] puts list=[$h list] + foreach i {1 2 3 4} {puts "exists $i : [$h exists $i]"} } class_new Selection {Hash} def Selection set {k v} {super $k $v; $v selected?= 1} ! def Selection unset {k} {super $k; if {[$self exists $k]} {[$self get $k] selected?= 0}} #-----------------------------------------------------------------------------------# *************** *** 2114,2120 **** $self disconnect [$wire connects] set @keynav 0; $@active hide; set @keynav_tab_sel "object" ! set from_idx [$self children_idx $from] ! set to_idx [$self children_idx $to] ! set obj3_idx [$self children_idx $obj] $self connect [list $from_idx $outlet $obj3_idx 0] [list $self keynav_current=] $self connect [list $obj3_idx 0 $to_idx $inlet] --- 2121,2127 ---- $self disconnect [$wire connects] set @keynav 0; $@active hide; set @keynav_tab_sel "object" ! set from_idx [$@objects search $from] ! set to_idx [$@objects search $to] ! set obj3_idx [$@objects search $obj] $self connect [list $from_idx $outlet $obj3_idx 0] [list $self keynav_current=] $self connect [list $obj3_idx 0 $to_idx $inlet] *************** *** 2132,2138 **** def Canvas new_object_chain_wire {obj} { obj_hist prepend [$obj text] ! set from_idx [$self children_idx [lindex [$self selection] 0]] $self deselect_all ! set to_idx [$self children_idx $obj] $self connect [list $from_idx 0 $to_idx 0] $self action= none --- 2139,2145 ---- def Canvas new_object_chain_wire {obj} { obj_hist prepend [$obj text] ! set from_idx [$@objects search [lindex [$self selection] 0]] $self deselect_all ! set to_idx [$@objects search $obj] $self connect [list $from_idx 0 $to_idx 0] $self action= none *************** *** 2140,2143 **** --- 2147,2152 ---- } + def Canvas objects {} {return $@objects} + #def Canvas wires {} {return $@wires} def Canvas selection {} {$@objectsel values} def Canvas selection= {objs} {$@objectsel clear; $self selection+= $objs} *************** *** 2977,2984 **** mset {from outlet to inlet} [$id report] $self disconnect [$id connects] ! set from_idx [$self children_idx $from] ! set to_idx [$self children_idx $to] foreach obj $in_objs { ! set obj3_idx [$self children_idx $obj] if {![llength [$obj ioselect]]} {set port 0} else {set port [lindex [$obj ioselect] 0]} set w1 [list $from_idx $outlet $obj3_idx $port] --- 2986,2993 ---- mset {from outlet to inlet} [$id report] $self disconnect [$id connects] ! set from_idx [$@objects search $from] ! set to_idx [$@objects search $to] foreach obj $in_objs { ! set obj3_idx [$@objects search $obj] if {![llength [$obj ioselect]]} {set port 0} else {set port [lindex [$obj ioselect] 0]} set w1 [list $from_idx $outlet $obj3_idx $port] *************** *** 2986,2990 **** } foreach obj $out_objs { ! set obj3_idx [$self children_idx $obj] if {![llength [$obj ioselect]]} {set port 0} else {set port [lindex [$obj ioselect] 0]} set w2 [list $obj3_idx $port $to_idx $inlet] --- 2995,2999 ---- } foreach obj $out_objs { ! set obj3_idx [$@objects search $obj] if {![llength [$obj ioselect]]} {set port 0} else {set port [lindex [$obj ioselect] 0]} set w2 [list $obj3_idx $port $to_idx $inlet] *************** *** 3739,3745 **** def Canvas reconnect {} { foreach from $@auto_wire_from { ! set idx1 [$self children_idx $from] foreach to $@auto_wire_to { ! set idx2 [$self children_idx $to] set wire [list $idx1 0 $idx2 0] if {[$self wire_idx $wire] < 0} {$self connect $wire} --- 3748,3754 ---- def Canvas reconnect {} { foreach from $@auto_wire_from { ! set idx1 [$@objects search $from] foreach to $@auto_wire_to { ! set idx2 [$@objects search $to] set wire [list $idx1 0 $idx2 0] if {[$self wire_idx $wire] < 0} {$self connect $wire} *************** *** 3978,3983 **** default {} } ! set from_idx [$@canvas children_idx $@from] ! set to_idx [$@canvas children_idx $@to] if {$from_idx >= 0 && $to_idx >= 0 && $@from != $@to} { $@canvas connect [list $from_idx $@outlet $to_idx $@inlet] --- 3987,3992 ---- default {} } ! set from_idx [[$@canvas objects] search $@from] ! set to_idx [[$@canvas objects] search $@to] if {$from_idx >= 0 && $to_idx >= 0 && $@from != $@to} { $@canvas connect [list $from_idx $@outlet $to_idx $@inlet] *************** *** 4623,4630 **** } else { foreach out_obj $@keynav_iosel_o { ! set from [$self children_idx $out_obj] set outlet [lindex $_($out_obj:ioselect) 0] foreach in_obj $@keynav_iosel_i { ! set to [$self children_idx $in_obj] set inlet [lindex $_($in_obj:ioselect) 0] $self connect [list $from $outlet $to $inlet] --- 4632,4639 ---- } else { foreach out_obj $@keynav_iosel_o { ! set from [$@objects search $out_obj] set outlet [lindex $_($out_obj:ioselect) 0] foreach in_obj $@keynav_iosel_i { ! set to [$@objects search $in_obj] set inlet [lindex $_($in_obj:ioselect) 0] $self connect [list $from $outlet $to $inlet] *************** *** 4941,4946 **** mset {from outlet to inlet} $@connects set children [$c objects] ! set @from [lindex $children $from] ! set @to [lindex $children $to] # associate wires to its connected objects lappend _($@from:wires2) $self --- 4950,4955 ---- mset {from outlet to inlet} $@connects set children [$c objects] ! set @from [$children get $from] ! set @to [$children get $to] # associate wires to its connected objects lappend _($@from:wires2) $self *************** *** 8351,8356 **** if {$selcanvas == ""} { list #X connect \ ! [$@canvas children_idx $@from] $@outlet \ ! [$@canvas children_idx $@to] $@inlet } { list #X connect \ --- 8360,8365 ---- if {$selcanvas == ""} { list #X connect \ ! [[$@canvas objects] search $@from] $@outlet \ ! [[$@canvas objects] search $@to] $@inlet } { list #X connect \

1 0

← Newer
1
...
39
40
41
42
43
44
45
...
62
Older →

Jump to page:

2024

2023

2022

2021

2020

2019

2018

2017

2016

2015

2014

2013

2012

2011

2010

2009

2008

2007

2006

2005

2004

2003

Pd-cvs August 2007