# This demonstration script shows an example with a vertical scale.
4
#
5
# SCCS: @(#) vscale.tcl 1.4 97/03/02 16:28:34
6
7
if{![info exists widgetDemo]}{
8
error"This script should be run from the \"widget\" demo."
9
}
10
11
set w .vscale
12
catch{destroy $w}
13
toplevel $w
14
wm title $w"Vertical Scale Demonstration"
15
wm iconname $w"vscale"
16
positionWindow $w
17
18
label $w.msg -font $font -wraplength 3.5i -justify left -text "An arrow and a vertical scale are displayed below. If you click or drag mouse button 1 in the scale, you can change the size of the arrow."