1proc message { text { name message } } {
2
3   toplevel .message
4   place_window .message
5
6   wm title .message $name
7
8   frame .message.frame
9
10   text .message.frame.text -width 42 -height 9 -font -Adobe-Helvetica-Medium-R-Normal-*-140-*
11
12   button .message.frame.but -text "Close" -command "destroy .message"
13
14   pack .message.frame
15   pack .message.frame.text
16   pack .message.frame.but -side bottom
17
18   .message.frame.text insert end $text
19}
20