16.4 A sample message widget

The interface:

The code:

message .msg -width 8c -justify left -relief raised -bd 2 \
                -font -Adobe-Helvetica-Medium-R-Normal--*-180-* \
                -text "You have made changes to this document\
                since the last time it was saved. Is it OK to\
                discard the changes?"
pack .msg

Back to Book Examples page

Back to Tcl/Tk page