Lines Matching refs:getCard
302 set oldI [getCard $w $id -numChildren]
322 set id [getCard $w $id -child]
325 set id [getCard $w $id -child]
341 [getCard $w $car -subtype]] \
342 [getCard $w $cadr -subtype]]} {
372 if { [getCard $w $id -child] == {} } {
412 -sublocation [getCard $w $target -sublocation] \
455 set vs [getCard $w $src -subtype]
459 set column [getCard $w $target -sublocation]
490 set vs [getCard $w $id -subtype]
494 set targetGlob [getCard $w $targetId -dragTargetAcceptGlob]
518 set column [getCard $w $target -sublocation]
526 -dragTargetAcceptGlob [globNextLowerOtherColor [getCard $w $src -subtype]] \
533 if { [getCard $w $target -parent] == {} } {
558 -dragTargetAcceptGlob [globNextLowerOtherColor [getCard $w $target -subtype]] \
563 dirtyTableDragability [getCard $w $target -sublocation]
575 set childNumChildren [getCard $w $src -numChildren]
586 set childNumChildren [getCard $w $src -numChildren]
757 dirtyTableDragability [getCard $w $target -sublocation]