set Objects(warning) { \
	toplevel	TransientShell	warning\
	warning		Layout		warn\
	warn		Frame		warnFrame\
	warnFrame	Layout		WFlayout\
	WFlayout	Icon		warnIcon\
	WFlayout	TextBox		warnText\
	warn		Command		warnOk\
	warn		Command		warnCancel\
}