# a Motif bug: getValues -command always returns an empty string
# why? I dunno

command .command managed
.command commandEnteredCallback print_command

proc print_command {} {
    .command getValues -command c
    puts stdout "Command: $c"
}
