Update of /cvsroot/pure-data/pd/src In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv10305
Modified Files: Tag: devel_0_39 desire.tk Log Message: first commit for codes dealing with making wires with keys
Index: desire.tk =================================================================== RCS file: /cvsroot/pure-data/pd/src/Attic/desire.tk,v retrieving revision 1.1.2.318 retrieving revision 1.1.2.319 diff -C2 -d -r1.1.2.318 -r1.1.2.319 *** desire.tk 11 Aug 2006 17:18:14 -0000 1.1.2.318 --- desire.tk 12 Aug 2006 15:52:48 -0000 1.1.2.319 *************** *** 543,546 **** --- 543,547 ---- set key(key_nav_right_shift) "Ctrl+RIGHT" set key(key_nav_left_shift) "Ctrl+LEFT" + set key(key_nav_ioselect) "Ctrl+tab" set key(incr_zoom) "Ctrl+equal" set key(decr_zoom) "Ctrl+minus" *************** *** 999,1002 **** --- 1000,1004 ---- set @noutlets 0 set @duplicate 0 + set @ioselect {} super } *************** *** 1289,1292 **** --- 1291,1300 ---- set @coords 0 set @jump 0 + # the io select count + set @keynav_iocount 0 + # which in/outlet is select + set @keynav_port 0 + # the list of objects that has io selected + set @keynav_iosel {} set @keynav_current 0 set @keynav_next 0 *************** *** 2238,2241 **** --- 2246,2250 ---- if {![llength $id]} { $self deselect_all + $self dehilite_io set @action rect $c create line $x $y $x $y $x $y $x $y $x $y \ *************** *** 2527,2536 **** if {[llength $@children] != 0} { $self deselect_all - set @keynav_current [lindex $@children 0] - set @selection $@keynav_current - $@keynav_current selected?= 0 set obj_sel [lindex $@children $@jump] $obj_sel selected?= 1 set @keynav_current $obj_sel #set @selection $obj_sel #puts "jump -> $@jump" --- 2536,2543 ---- if {[llength $@children] != 0} { $self deselect_all set obj_sel [lindex $@children $@jump] $obj_sel selected?= 1 set @keynav_current $obj_sel + set @selection $@keynav_current #set @selection $obj_sel #puts "jump -> $@jump" *************** *** 2577,2581 **** } incr off ! puts "incr ----> $off" if {$off == $max} {break} } --- 2584,2588 ---- } incr off ! #puts "incr ----> $off" if {$off == $max} {break} } *************** *** 2597,2601 **** } incr off ! puts "incr ----> $off" if {$off == $max} {break} } --- 2604,2608 ---- } incr off ! #puts "incr ----> $off" if {$off == $max} {break} } *************** *** 2617,2621 **** } incr off ! puts "incr ----> $off" if {$off == $max} {break} } --- 2624,2628 ---- } incr off ! #puts "incr ----> $off" if {$off == $max} {break} } *************** *** 2637,2641 **** } incr off ! puts "incr ----> $off" if {$off == $max} {break} } --- 2644,2648 ---- } incr off ! #puts "incr ----> $off" if {$off == $max} {break} } *************** *** 2654,2658 **** set @keynav_next [lindex $group $index] } else { ! set @keynav_next $@selection } --- 2661,2665 ---- set @keynav_next [lindex $group $index] } else { ! set @keynav_next [lindex $@selection end end] } *************** *** 2668,2671 **** --- 2675,2738 ---- }
+ def* Canvas key_nav_ioselect {} { + if {[llength $@selection] == 1} { + set var [lindex $@keynav_iosel end end] + if {[lsearch $@keynav_iosel $@selection] < 0} {lappend @keynav_iosel $@selection; set @keynav_iocount 0} + if {$@keynav_port != 0 && $@keynav_current == $var } {set hilitebox $@keynav_port;.$self.c delete ${hilitebox}b} + set obj $@selection + #"$self$which $self$which$i $self" + set ins [$obj ninlets] + set outs [$obj noutlets] + set ports {} + set ports2 {} + set ports3 {} + for {set i 0} {$i < $ins} {incr i} { + lappend ports ${obj}i${i} + lappend ports2 "i" + lappend ports3 $i + } + for {set i 0} {$i < $outs} {incr i} { + lappend ports ${obj}o${i} + lappend ports2 "o" + lappend ports3 $i + } + #incr @keynav_iocount + if {$@keynav_iocount >= [llength $ports]} {set @keynav_iocount 0} + #puts " ports:::: $ports" + #puts " count ::: $@keynav_iocount" + mset {x y x1 y1} [.$self.c bbox [lindex $ports $@keynav_iocount]] + set @keynav_port [lindex $ports $@keynav_iocount] + #puts " port:::: $@keynav_port" + #puts " ports:::: $@keynav_iosel" + #set _($@selection:ioselect) [lindex $ports $@keynav_iocount] + set _($@selection:ioselect) [list [lindex $ports3 $@keynav_iocount] [lindex $ports2 $@keynav_iocount]] + $obj hilite_io [lindex $ports2 $@keynav_iocount] $x $y + + incr @keynav_iocount + #puts " select a io for $@selection|$ins|$outs" + #mset {x y x1 y1} [.$self.c bbox ${obj}i0] + #set port [$obj hilite_io i $x $y] + } + } + + def* Canvas dehilite_io {} { + if {[llength $@keynav_iosel]} { + foreach io $@keynav_iosel { + puts "delete ::::: $_($io:ioselect)" + set box $_($io:ioselect) + #.$self.c delete ${box}b + set type [lindex $_($io:ioselect) 1] + set port [lindex $_($io:ioselect) 0] + set tag ${io}${type}${port} + .$self.c delete ${tag}b + set _($io:ioselect) {} + } + set @keynav_iosel {} + set @keynav_port 0 + set @keynav_iocount 0 + } + + } + def* Canvas incr_zoom {} {$self zoom "in"} def* Canvas decr_zoom {} {$self zoom "out"} *************** *** 2755,2762 **** Return { if {[llength $@selection] == 1} { ! if {$_($@selection:_class) == "ObjectBox"} {$@selection edit} } } ! Escape {if {[llength $@selection] > 0} {$self deselect_all}} default {} } --- 2822,2846 ---- Return { if {[llength $@selection] == 1} { ! if {[llength $@keynav_iosel] < 2} { ! if {$_($@selection:_class) == "ObjectBox"} {$@selection edit; $self dehilite_io} ! } else { ! puts "connect this :::: $@keynav_iosel" ! set from_obj [lindex $@keynav_iosel 0] ! set to_obj [lindex $@keynav_iosel 1] ! set from [lsearch $@children [lindex $@keynav_iosel 0]] ! set to [lsearch $@children [lindex $@keynav_iosel 1]] ! puts "from::: $from to:::$to" ! pd .$self connect [list $from [lindex $_($from_obj:ioselect) 0] $to [lindex $_($to_obj:ioselect) 0]] ! $self dehilite_io ! ! } } } ! Escape {if {[llength $@selection] > 0} { ! $self deselect_all ! $self dehilite_io ! } ! ! } default {} } *************** *** 4383,4387 **** def Listener up {} {if {$@histi>0} {set @histi [expr $@histi-1]; $self replace}} def Listener down {} {if {$@histi<[llength $@hist]} {incr @histi; $self replace}} ! def Listener append {v} {lappend @hist $v; set @histi [llength $@hist]}
def Listener eval {} { --- 4467,4471 ---- def Listener up {} {if {$@histi>0} {set @histi [expr $@histi-1]; $self replace}} def Listener down {} {if {$@histi<[llength $@hist]} {incr @histi; $self replace}} ! def Listener append {v} {set @hist $v; set @histi [llength $@hist]}
def Listener eval {} {