1 files changed, 42 insertions, 0 deletions
diff --git a/tix/library/SimpDlg.tcl b/tix/library/SimpDlg.tcl
new file mode 100644
index 00000000000..054d67e4d69
--- /dev/null
+++ b/tix/library/SimpDlg.tcl
@@ -0,0 +1,42 @@
+# SimpDlg.tcl --
+#
+#	This file implements Simple Dialog widgets
+#
+# Copyright (c) 1996, Expert Interface Technologies
+#
+# See the file "license.terms" for information on usage and redistribution
+# of this file, and for a DISCLAIMER OF ALL WARRANTIES.
+#
+
+tixWidgetClass tixSimpleDialog {
+    -classname TixSimpleDialog
+    -superclass tixDialogShell
+    -method {}
+    -flag   {
+	-buttons -message -type
+    }
+    -configspec {
+	{-buttons buttons Buttons ""}
+	{-message message Message ""}
+	{-type type Type info}
+    }
+}
+
+proc tixSimpleDialog:ConstructWidget {w} {
+    upvar #0 $w data
+
+    tixChainMethod $w ConstructWidget
+
+    frame $w.top
+
+    label $w.top.icon -image [tix getimage $data(-type)]
+    label $w.top.message -text $data(-message)
+
+    pack $w.top.icon    -side left -padx 20 -pady 50 -anchor c
+    pack $w.top.message -side left -padx 10 -pady 50 -anchor c
+
+    frame $w.bot
+
+    pack $w.bot -side bottom -fill x
+    pack $w.top -side top -expand yes -fill both
+}