wm minsize . 0 0
frame .top
frame .bottom

message .top.message -text $argv

button .bottom.button -text "Okay" -relief raised -command {destroy .}

pack .top .bottom -padx 10 -pady 5

pack .top.message
pack .bottom.button

