tcl/tk: установка положения BWidget::Label

Question

Я показываю метку в мэйнфрейме BWidget и хочу, чтобы она была в верхней части макета. Я пробовал различные перестановки и комбинации -side а также -anchor но безрезультатно; кажется, у меня неправильная ментальная модель.

Пример кода:

package require BWidget
# Menu description
set descmenu {
    "&File" all file 0 {
        {command "E&xit" {} "Exit" {} -command exit}
    }
}

bind all <Escape> { exit }

set mainframe [MainFrame .mainframe -height 50 -textvariable statusText -menu $descmenu ]
$mainframe showstatusbar status
set statusText "<Escape> to { exit }"
wm deiconify .

#Label $mainframe.lab -anchor n -relief sunken -width 50 -helptext { move me to the top }
#pack $mainframe.lab -anchor n -side top
Label $mainframe.lab -relief sunken -width 50 -helptext { move me to the top }
pack $mainframe.lab
pack $mainframe

Рабочая версия через @sergei-golovan:

package require BWidget
# Menu description
set descmenu {
    "&File" all file 0 {
        {command "E&xit" {} "Exit" {} -command exit}
    }
}

bind all <Escape> { exit }

set mainframe [MainFrame .mainframe -height 50 -textvariable statusText -menu $descmenu ]
$mainframe showstatusbar status
set statusText "<Escape> to { exit }"
wm deiconify .

Label $mainframe.lab -relief sunken -width 50 -helptext { moved to the top }
pack $mainframe.lab -in [$mainframe getframe]
pack $mainframe