Widget Demo 解体新書：ラベル

これは簡単ですな．単にラベルを用意するだけ．

まず，配置する領域が３つあるので，左右に分かれている領域に応じてフレームを２つ作成しておきます．

frame .a
frame .b

そのそれぞれのフレームに対してラベルを作成します．左側のラベルは次のようになります．

label .a.a -text "First label"
label .a.b -text "Second label" -relief raised
label .a.c -text "Third label" -relief sunken

そして右側．

label .b.a -bitmap hourglass
label .b.b -text "hourglass"

標準組み込みの砂時計のビットマップを貼り付けています．それと，もうひとつ上部にくるラベルです．

label .c -text "Label Demo"

最後にこれらのラベルを grid でまとめます．デモでは pack を使っていますが，ここでは grid にしました．個々のフレーム内部のラベルをまとめて，

grid .a.a
grid .a.b
grid .a.c
grid .b.a
grid .b.b

から，次に大枠のほうをまとめます．

grid .c -columnspan 2
grid .a .b

ボタンを押したら消えるようにしておきましょうか．

button .btn -text "Dismiss" -command "destroy ."
grid .btn -columnspan 2

bind . <q> exit

これを実行すると次のようになります（スクリプトソース）．

実行結果