ずざざんざん♪

# ボタンを押した時の動作
proc push_button_A {} {
    global buffer
    set buffer "ボタンＡを押しましたね"
    pack forget .b2
}
# ボタンを押した時の動作
proc push_button_B {} {
    global buffer
    set buffer "ボタンＢを押しましたね"
}

# ラベルの作成
label .l -textvariable buffer
pack .l
#ボタンの作成
    button .b1 -text "button Ａ" -command "push_button_A"
    button .b2 -text "button Ｂ" -command "push_button_B"
    # オプションの追加
    pack .b1
    pack .b2
#    button .b1 -text "Ａ" -command "push_button_A"
#    button .b2 -text "Ｂ" -command "push_button_B"
#    # オプションの追加
#    pack .b1  -side left -fill both
#    pack .b2  -side left -fill both

# ボタンを押した時の動作
proc push_button_A {} {
    global buffer
    set buffer "ボタンＡを押しましたね"
    pack forget .b1
    pack forget .b2
    pack .next
}
# ボタンを押した時の動作
proc push_button_B {} {
    global buffer
    set buffer "ボタンＢを押しましたね"
    pack forget .b1
    pack forget .b2
    pack .next
}
# ボタンを押した時の動作
proc push_button_NEXT {} {
    global buffer
    set buffer "ボタンを押して下さい"
    pack forget .next
    # オプションの追加
    pack .b1
    pack .b2
}

# ラベルの作成
label .l -textvariable buffer
pack .l
#ボタンの作成
    global buffer
    set buffer "ボタンを押して下さい"
    button .b1 -text "button Ａ" -command "push_button_A"
    button .b2 -text "button Ｂ" -command "push_button_B"
    button .next -text "NEXT" -command "push_button_NEXT"

    # オプションの追加
    pack .b1
    pack .b2
#    pack .b1  -side left -fill both
#    pack .b2  -side left -fill both