Lines Matching refs:pad
400 set pad [expr {[$data(canvas) cget -highlightthickness] + \
402 if {$pad < 2} {
403 set pad 2
406 incr W -[expr {$pad*2}]
407 incr H -[expr {$pad*2}]
418 set x [expr {$pad * 2}]
419 set y [expr {$pad * 1}] ; # Why * 1 ?
436 set y [expr {$pad * 1}] ; # *1 ?
449 $data(canvas) configure -scrollregion [list $pad $pad $sW $H]
454 $data(canvas) configure -scrollregion [list $pad $pad $sW $H]
459 set data(itemsPerColumn) [expr {($H-$pad)/$dy}]
501 set pad [expr {[$data(canvas) cget -highlightthickness] + \
506 incr x1 -[expr {$pad * 2}]
507 incr x2 -[expr {$pad * 1}] ; # *1 ?
509 set cW [expr {[winfo width $data(canvas)] - $pad*2}]