Cross Reference: /ast/src/lib/libtk/library/demos/arrow.tcl

Lines Matching refs:width
32     eval "$c create line $v(x1) $v(y) $v(x2) $v(y) -width [expr 10*$v(width)] \
36     set deltaY [expr 10*$v(c)+5*$v(width)]
39 	    $v(x2) $v(y) -width 2 -capstyle round -joinstyle round
49     eval "$c create rect [expr $v(x1)-5] [expr $v(y)-5*$v(width)-5] \
50 	    [expr $v(x1)+5] [expr $v(y)-5*$v(width)+5] $v(boxStyle) \
59 	    -width 2
62 	    -width $v(width) \
65 	    -width $v(width) \
68 	    [expr $v(y)+125] -width $v(width) \
75     $c create line $tmp [expr $v(y)-5*$v(width)] \
81     $c create line $tmp [expr $v(y)-5*$v(width)] \
82 	    $tmp [expr $v(y)+5*$v(width)] \
84     $c create text [expr $v(x1)-15] $v(y) -text $v(width) -anchor e
85     set tmp [expr $v(y)+5*$v(width)+10*$v(c)+10]
96     $c create text $v(x1) 310 -text "-width  $v(width)" \
113 label $w.msg -font $font -wraplength 5i -justify left -text "This widget allows you to experiment with different widths and arrowhead shapes for lines in canvases.  To change the line width or the shape of the arrowhead, drag any of the three boxes attached to the oversized arrow.  The arrows on the right give examples at normal scale.  The text at the bottom shows the configuration options as you'd enter them for a canvas line item."
122 canvas $c -width 500 -height 350 -relief sunken -borderwidth 2
128 set demo_arrowInfo(width) 2
137     set demo_arrowInfo(boxStyle) "-fill {} -outline black -width 1"
138     set demo_arrowInfo(activeStyle) "-fill red -outline black -width 1"
142     set demo_arrowInfo(boxStyle) "-fill {} -outline black -width 1"
143     set demo_arrowInfo(activeStyle) "-fill black -outline black -width 1"
198     set newC [expr ($v(y)+5-round([$c canvasy $y])-5*$v(width))/10]
230     if {$newWidth != $v(width)} {
231 	$c move box3 0 [expr 5*($v(width)-$newWidth)]
232 	set v(width) $newWidth