scrolled canvas tcl tk

iwidgets::scrolledcanvas .sc \
 -textbackground gray \
 -width 300 \
 -height 300 \
 -vscrollmode dynamic \
 -hscrollmode dynamic \
 -labeltext "Scrolledcanvas Example"

.sc create rectangle 100 100 200 200 -fill red
.sc create rectangle 300 300 400 400 -fill green
.sc create rectangle 200 200 300 300 -fill blue

pack .sc \
 -padx 10 \
 -pady 10

转载于:https://www.cnblogs.com/greencolor/archive/2011/05/03/2035931.html