16.1 Frames

The interface:

The code:

foreach relief {raised sunken flat groove ridge} {
        frame .$relief -width 15m -height 10m -relief $relief \
                        -borderwidth 4
        pack .$relief -side left -padx 2m -pady 2m
}
.flat configure -background black

Back to Book Examples page

Back to Tcl/Tk page