Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- #!/usr/bin/wish
- # ボタンを作る
- pack [button .b1 -text "Push Me!" -command [list Run ls -C]]
- # テキスト領域を作る
- pack [text .console -height 8] -fill both -expand yes
- # callback 手続きを実装する
- proc Run args {
- .console insert end [exec {*}$args]\n
- .console see end
- }
Add Comment
Please, Sign In to add comment