background foreground |
bitmap image |
cursor text |
font |
See the "options" manual entry for details on the standard options.
buttonBoxPadX padY |
buttonBoxPadY separator |
buttonBoxPos thickness |
padX |
See the "dialogshell" widget manual entry for details on the above inherited options.
master |
modality |
See the "shell" widget manual entry for details on the above inherited options.
title |
See the "Toplevel" widget manual entry for details on the above inherited options.
Name: imagePos Class: Position Command-Line Switch: -imagepos
Name: textPadX Class: Pad Command-Line Switch: -textpadx
Name: textPadY Class: Pad Command-Line Switch: -textpady
The messagedialog command creates a message dialog composite widget. The messagedialog is derived from the Dialog class and is composed of an image and associated message text with commands to manipulate the dialog buttons.
The messagedialog command creates a new Tcl command whose name is pathName. This command may be used to invoke various operations on the widget. It has the following general form:
pathName option ?arg arg ...?Option and the args determine the exact behavior of the command. The following commands are possible for messagedialog widgets:
add insert |
buttonconfigure invoke |
default show |
hide |
See the "buttonbox" widget manual entry for details on the above inherited methods.
childsite |
See the "dialogshell" widget manual entry for details on the above inherited methods.
activate |
center |
deactivate |
See the "dialogshell" widget manual entry for details on the above inherited methods.
Name: image Class: Label
Name: message Class: Label
# # Standard question message dialog used for confirmation. # messagedialog .md -title "Message Dialog" -text "Are you sure ?" \\ -bitmap questhead -modality global .md buttonconfigure OK -text Yes .md buttonconfigure Cancel -text No if {[.md activate]} { .md configure -text "Are you really sure ?" if {[.md activate]} { puts stdout "Yes" } else { puts stdout "No" } } else { puts stdout "No" } destroy .md # # Copyright notice with automatic deactivation. # messagedialog .cr -title "Copyright" -bitmap @dsc.xbm -imagepos n \\ -text "Copyright 1995 DSC Communications Corporation\\n \\ All rights reserved" .cr hide Cancel .cr activate after 10000 ".cr deactivate"