anchor background bitmap cursor
font foreground image justify
text wrapLength
See the "options" manual entry for details on the standard options.
buttonBoxPadX buttonBoxPadY buttonBoxPos padX
padY separator thickness
See the "dialogshell" widget manual entry for details on the above inherited options.
master modality title
See the "shell" 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 buttonconfigure default hide
insert invoke show
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: msg
Class: Label
#
# Standard question message dialog used for confirmation.
#
messagedialog .md -title "Message Dialog" -text "Are you sure ?" \
-bitmap questhead -modality global
.md hide Help
.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 Apply
.cr hide Cancel
.cr hide Help
.cr activate
after 10000 ".cr deactivate"