![]() |
ActiveTcl User Guide
|
![]() |
iwidgets::messagedialog - Create and manipulate a message dialog
widget
iwidgets::messagedialog pathName
?options?
itk::Toplevel <- iwidgets::Shell <- iwidgets::Dialogshell
<- iwidgets::Dialog <- iwidgets::Messagedialog
background bitmap cursor font foreground image text
options.
buttonBoxPadX buttonBoxPadY buttonBoxPos padX
above inherited options.
inherited options.
title
inherited options.
e, or w. The default is w.
request for the message text in the X direction. The value may have any of the forms acceptable to Tk_GetPixels.
request for the message text in the X direction. The value may have any of the forms acceptable to Tk_GetPixels. _________________________________________________________________
posite 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.
whose name is pathName. This command may be used to invoke vari- ous operations on the widget. It has the following general form:
pathName option ?arg arg ...?
add buttonconfigure defaulthide insert invoke show
inherited methods.
childsite
above inherited methods.
activate center deactivate
above inherited methods.
pathName cget option
option. Option may have any of the values accepted
by the iwid- gets::messagedialog command.
pathName configure ?option? ?value
option value ...?
option is specified, returns a list describing all of the avail- able options for pathName (see Tk_ConfigureInfo for information on the format of this list). If option is specified with no value, then the command returns a list describing the one named option (this list will be identical to the corresponding sublist of the value returned if no option is specified). If one or more option-value pairs are specified, then the command modifies the given widget option(s) to have the given value(s); in this case the command returns an empty string. Option may have any of the values accepted by the iwidgets::messagedialog command.
ponent item.
dialog. See the «label» widget manual entry for details on the message component item.
package require Iwidgets 4.0
#
# Standard question message dialog used for confirmation. #
iwidgets::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. #
iwidgets::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"
messagedialog, dialog, dialogshell, shell, widget