head	1.3;
access;
symbols
	iwidgets-4-0-1:1.3
	iwidgets-4-0-0:1.3
	iwidgets_overhaul:1.1.0.6
	tclpro-1-5-0:1.1
	tclpro-1-4-1:1.1
	tclpro-1-4-0:1.1
	itcl-3-2-0:1.1
	ajuba-ajuba2-2-0:1.1
	scriptics-sc-2-0-b5:1.1
	scriptics-sc-2-0-fixed:1.1
	scriptics-sc-2-0-b2:1.1
	scriptics-sc-2-0-b1:1.1
	scriptics-sc-1-1:1.1
	scriptics-sc-1-1-b1:1.1
	scriptics-sc-1-1-branch:1.1.0.4
	scriptics-sc-1-1-base:1.1
	scriptics-sc-1-0:1.1
	scriptics-sc-1-0-branch:1.1.0.2
	scriptics-sc-1-0-base:1.1
	scriptics-bc-1-0-b1:1.1
	scriptics-tclpro-1-3-0:1.1
	scriptics-tclpro-1-3-b4:1.1
	itcl-3-1-0:1.1
	scriptics-tclpro-1-3-b3:1.1
	scriptics-tclpro-1-2:1.1
	scriptics-tclpro-1-2-b2:1.1
	scriptics-tclpro-1-2-b1:1.1
	scriptics-tclpro-1-2-a1:1.1
	itcl-3-0-1:1.1
	itcl3-0-1:1.1
	stanton:1.1;
locks; strict;
comment	@# @;


1.3
date	2001.08.20.19.12.31;	author smithc;	state Exp;
branches;
next	1.2;

1.2
date	2001.08.07.19.56.47;	author smithc;	state Exp;
branches;
next	1.1;

1.1
date	98.07.27.18.51.44;	author stanton;	state Exp;
branches
	1.1.6.1;
next	;

1.1.6.1
date	2001.08.07.19.18.25;	author smithc;	state Exp;
branches;
next	;


desc
@@


1.3
log
@Updating demos for Iwidgets4.0.0 release.
@
text
@# ----------------------------------------------------------------------
#  DEMO: messagebox in [incr Widgets]
# ----------------------------------------------------------------------
package require Iwidgets 4.0

. configure -background white

iwidgets::messagebox .mb -hscrollmode dynamic -labeltext "Messages" \
    -labelpos n -visibleitems 50x8

pack .mb -padx 5 -pady 5 -fill both -expand yes

.mb type add ERROR -background red -foreground white -bell 1
.mb type add WARNING -background yellow -foreground black
.mb type add INFO -background white -foreground black

frame .cntls -background white
pack .cntls -padx 5 -pady 5 -fill x
button .cntls.error -text "Error" -command {
    .mb issue "This is an error message in red with a beep" ERROR
}
pack .cntls.error -side left -expand yes

button .cntls.warning -text "Warning" -command {
    .mb issue "This warning message in yellow" WARNING
}
pack .cntls.warning -side left -expand yes

button .cntls.info -text "Info" -command {
    .mb issue "This is an informational message" INFO
}
pack .cntls.info -side left -expand yes
@


1.2
log
@Merging iwidgets_overhaul branch to CVS head.
@
text
@d4 1
a4 1
package require Iwidgets 3.0
@


1.1
log
@Initial revision
@
text
@a0 1
#!/bin/sh
a3 2
#\
exec itkwish "$0" ${1+"$@@"}
@


1.1.6.1
log
@This merge is from the iwidgets_overhaul branch created by Chad Smith
to extract the [incr Widgets] from the [incr Tcl] distribution.  See
the CHANGES file for a list of changes I made to this distribution.
The new [incr Widgets] version number is 4.0.0.
@
text
@d1 1
d5 2
@

