wm title . "Messagebox Example"

##=========================================================
##	Create a Messagebox iwidget
##=========================================================
##
iwidgets::messagebox .mb \
  -maxlines 100

pack .mb \
  -fill both \
  -expand true

##
##	Create some message types
##
foreach {t c} {info green warning yellow critical red} {

  .mb type add $t \
    -background $c \
	-font {Helvetica 16}
}

##
##	Create some messages that get 
##	written to the messagebox
##
.mb issue "This is just an info message" info
.mb issue "This is just a warning message" warning
.mb issue "This is just a critical message" critical
.mb issue "This is just another info message" info
.mb issue "Oh no, the temperature is getting a little warm" warning
.mb issue "Oh no, the temperature is getting too hot" critical