1 files changed, 105 insertions, 0 deletions
diff --git a/tix/tests/general/optmenu.tcl b/tix/tests/general/optmenu.tcl
new file mode 100644
index 00000000000..6b0ea0150a2
--- /dev/null
+++ b/tix/tests/general/optmenu.tcl
@@ -0,0 +1,105 @@
+proc About {} {
+    return "Testing Option Menu widget"
+}
+
+proc Test {} {
+    tixOptionMenu .p -label "From File Format : " -command "selectproc input" \
+	-disablecallback 1 \
+	-options {
+	    label.width 19
+	    label.anchor e
+	    menubutton.width 15
+	}
+
+    pack .p
+
+    .p add command text   -label "Plain Text"
+    .p add command post   -label "PostScript"      
+    .p add command format -label "Formatted Text"  
+    .p add command html   -label "HTML"            
+    .p add separator sep
+    .p add command tex    -label "LaTeX"           
+    .p add command rtf    -label "Rich Text Format"
+
+    update
+
+    foreach ent [.p entries] {
+	test {.p delete $ent}
+    }
+
+    Assert {[.p subwidget menubutton cget -text] == {}}
+
+    test {destroy .p}
+
+    # Testing deleting "sep" at the end
+    #
+    tixOptionMenu .p -label "From File Format : " -command "selectproc input" \
+	-disablecallback 1 \
+	-options {
+	    label.width 19
+	    label.anchor e
+	    menubutton.width 15
+	}
+
+
+    pack .p
+
+    .p add command text   -label "Plain Text"
+    .p add command post   -label "PostScript"      
+    .p add command format -label "Formatted Text"  
+    .p add command html   -label "HTML"            
+    .p add separator sep
+    .p add command tex    -label "LaTeX"           
+    .p add command rtf    -label "Rich Text Format"
+
+    test {.p delete text}
+    test {.p delete post}
+    test {.p delete html}
+    test {.p delete format}
+    test {.p delete tex}
+    test {.p delete rtf}
+    test {.p delete sep}
+
+    Assert {[.p subwidget menubutton cget -text] == {}}
+    test {destroy .p}
+
+    # Testing deleting "sep" as the second-last one
+    #
+    tixOptionMenu .p -label "From File Format : " -command "selectproc input" \
+	-disablecallback 1 \
+	-options {
+	    label.width 19
+	    label.anchor e
+	    menubutton.width 15
+	}
+
+
+    pack .p
+
+    .p add command text   -label "Plain Text"
+    .p add command post   -label "PostScript"      
+    .p add command format -label "Formatted Text"  
+    .p add command html   -label "HTML"            
+    .p add separator sep
+    .p add command tex    -label "LaTeX"           
+    .p add command rtf    -label "Rich Text Format"
+
+    test {.p delete text}
+    global .p
+    Assert {[info exists .p(text,type)] == 0}
+    Assert {[info exists .p(text,name)] == 0}
+    Assert {[info exists .p(text,label)] == 0}
+    test {.p delete post}
+    test {.p delete html}
+    test {.p delete format}
+    test {.p delete tex}
+
+    Assert {[.p cget -value] == "rtf"}
+    test {.p delete sep}
+    Assert {[.p cget -value] == "rtf"}
+    test {.p delete rtf}
+
+    Assert {[.p subwidget menubutton cget -text] == {}}
+
+    test {destroy .p}
+}