# more searching for that Motif bug: value and c should be the same
xtAppInitialize -class Program

xmCommand .command managed
.command commandEnteredCallback "print_command %length"

proc print_command {value} {
    puts stdout "Command from calback: $value"
    .command getValues -command c
    puts stdout "Command from getvalues: $c"
}

. realizeWidget

. mainLoop
