Update of /cvsroot/pure-data/pd/src In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv32248
Modified Files: Tag: devel_0_39 desire.tk Log Message: quick commit for $id:class fix so that the bang will bang
Index: desire.tk =================================================================== RCS file: /cvsroot/pure-data/pd/src/Attic/desire.tk,v retrieving revision 1.1.2.25 retrieving revision 1.1.2.26 diff -C2 -d -r1.1.2.25 -r1.1.2.26 *** desire.tk 5 Sep 2005 05:57:43 -0000 1.1.2.25 --- desire.tk 5 Sep 2005 10:05:21 -0000 1.1.2.26 *************** *** 1541,1544 **** --- 1541,1545 ----
set object_id [format %x [expr 0x81168b0 - $offset]] + set _($object_id:class) textobj
puts "new object id -> $object_id" *************** *** 2126,2129 **** --- 2127,2141 ---- # my click select object code begins --chun + switch $_($id:class) { + + bang { + + puts "clicked on bang" + + bang_bang $id $canvas + + } + textobj { + # may need to call canvas_select_object here to work out # the shfit+click selection *************** *** 2169,2185 **** set _($self:select_by) "click" ! #set _($self:edit_object) $id ! #turns the selected object into edit mode ! #if {[llength $_($self:selection)] == 1} { ! # ! # if {$_($self:obj_in_edit) == 0} { ! # set _($self:obj_in_edit) 1 ! # object_edit [lindex $_($self:selection) 0] $canvas ! # } ! # ! #} ! # my click select object code ends --- 2181,2189 ---- set _($self:select_by) "click" ! } ! + } # my click select object code ends *************** *** 2892,2895 **** --- 2896,2900 ---- set fields1 {foo bar x1 y1 class} set fields2 {snd rcv lab ldx ldy fstyle fs bcol fcol lcol} + puts "fields1 = $fields1"
# real classes *************** *** 3446,3449 **** --- 3451,3455 ---- set _($bang_id:snd) 1 set _($bang_id:bcol) 20 + set _($bang_id:fcol) 5 set _($bang_id:ldx) 17 set _($bang_id:ldy) 0 *************** *** 3452,3455 **** --- 3458,3462 ---- set _($bang_id:fs) 10 set _($bang_id:lcol) 13 + set _($bang_id:class) bang
*************** *** 3495,3499 **** def bang bang {canvas} { $canvas itemconfigure ${self}BUT -fill [bluify [parse_color $_($self:fcol)]] ! after 300 [list $canvas itemconfigure ${self}BUT -fill [bluify [parse_color $_($self:bcol)]]] }
--- 3502,3506 ---- def bang bang {canvas} { $canvas itemconfigure ${self}BUT -fill [bluify [parse_color $_($self:fcol)]] ! after 100 [list $canvas itemconfigure ${self}BUT -fill [bluify [parse_color $_($self:bcol)]]] }