Scroll problem demo

# Basic scrollable container setup
package require Tk
canvas .c -width 100 -height 100 -yscrollcommand {.s set}
scrollbar .s -orient vertical -command {.c yview}
pack .c .s -fill y -expand 1 -side left -padx 2 -pady 2
set w .c.f
.c create window 0 0 -window [frame $w] -anchor nw -width 100 -height 150
bind $w <Configure> {.c configure -scrollregion [list 0 0 %w %h]}

# Basic content; scrollable windows *must* be children of scroller
label $w.l -text "Just so you\nknow it is\nscrolled" -background yellow
pack $w.l -expand 1 -fill both

# The problem...
.c configure -relief sunken -borderwidth 2
# ...is that now the label can overlap that border!