dialog.tk

来自「Linux程序设计(原书第2版)源码」· TK 代码 · 共 13 行

#!/usr/bin/wish -f

wm withdraw .

set i [tk_dialog .info  "Info" "Simple Info Dialog" info  0 Okay Cancel] 
if {$i==0} {
    puts "Okay Button Pressed"
} else {
    puts "Cancel Button Pressed"
}
exit