#!/bin/sh
# the next line restarts using the interpreter \
exec wish "$0" "$@"

option add *BorderWidth 1 ;# reduce all widgets border width
option add *Canvas.BorderWidth 0 ;# restore original values for canvas
option add *Frame.BorderWidth 0 ;# and frame
option add *ScrollbarWidth 12 ;# scrollbars do not need to be so wide

source demo.tcl
