# a file selection box, with file selected printed

fileSelectionBox .file managed
.file okCallback get_selection

proc get_selection {} {
    .file getValues -dirSpec x
    puts stdout "Selected: $x"
}
