#! /usr/bin/wish

# interface generated by SpecTcl version 1.2 from /home/darmou/SpecTcl/SpecTcl/CreateBitmaps.ui
#   root     is the parent window for this user interface

proc CreateBitmaps_ui {root args} {

	# this treats "." as a special case

	if {$root == "."} {
	    set base ""
	} else {
	    set base $root
	}
    
	label $base.label#1 \
		-bitmap error \
		-text label

	label $base.label#2 \
		-bitmap gray25 \
		-text label

	label $base.label#3 \
		-bitmap gray50 \
		-text label

	label $base.label#5 \
		-bitmap hourglass \
		-text label

	label $base.label#6 \
		-bitmap info \
		-text label

	label $base.label#7 \
		-bitmap questhead \
		-text label

	label $base.label#8 \
		-bitmap question \
		-text label

	label $base.label#9 \
		-bitmap warning \
		-text label


	# Add contents to menus

	# Geometry management

	grid $base.label#1 -in $root	-row 1 -column 1 
	grid $base.label#2 -in $root	-row 1 -column 2 
	grid $base.label#3 -in $root	-row 1 -column 3 
	grid $base.label#5 -in $root	-row 1 -column 4 
	grid $base.label#6 -in $root	-row 1 -column 5 
	grid $base.label#7 -in $root	-row 1 -column 6 
	grid $base.label#8 -in $root	-row 1 -column 7 
	grid $base.label#9 -in $root	-row 1 -column 8 

	# Resize behavior management

	grid rowconfigure $root 1 -weight 0 -minsize 30 -pad 0
	grid columnconfigure $root 1 -weight 0 -minsize 30 -pad 0
	grid columnconfigure $root 2 -weight 0 -minsize 30 -pad 0
	grid columnconfigure $root 3 -weight 0 -minsize 30 -pad 0
	grid columnconfigure $root 4 -weight 0 -minsize 30 -pad 0
	grid columnconfigure $root 5 -weight 0 -minsize 30 -pad 0
	grid columnconfigure $root 6 -weight 0 -minsize 30 -pad 0
	grid columnconfigure $root 7 -weight 0 -minsize 30 -pad 0
	grid columnconfigure $root 8 -weight 0 -minsize 30 -pad 0
# additional interface code
# end additional interface code

}


# Allow interface to be run "stand-alone" for testing

catch {
    if [info exists embed_args] {
	# we are running in the plugin
	CreateBitmaps_ui .
    } else {
	# we are running in stand-alone mode
	if {$argv0 == [info script]} {
	    wm title . "Testing CreateBitmaps_ui"
	    CreateBitmaps_ui .
	}
    }
}
