1 files changed, 133 insertions, 0 deletions
diff --git a/tix/tests/general/filebox.tcl b/tix/tests/general/filebox.tcl
new file mode 100644
index 00000000000..4ded2be0854
--- /dev/null
+++ b/tix/tests/general/filebox.tcl
@@ -0,0 +1,133 @@
+# filebox.tcl --
+#
+#	Tests the File selection box and dialog widget.
+#
+# 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.
+#
+
+proc About {} {
+    return "Testing the (Ex)FileSelectBox and (Ex)FileSelectDialog widgets."
+}
+
+proc FdTest_GetFile {args} {
+    global fdTest_selected
+
+    set fdTest_selected [tixEvent value]
+}
+
+proc Test {} {
+    global fdTest_fullPath
+
+    if [tixStrEq [tix platform] "unix"] {
+	set fdTest_fullPath /etc/passwd
+    } else {
+	set fdTest_fullPath C:\\Windows\\System.ini
+    }
+
+    Test_FileSelectBox
+    Test_FileSelectDialog
+
+    Test_ExFileSelectBox
+    Test_ExFileSelectDialog
+}
+
+proc Test_FileSelectBox {} {
+    global fdTest_selected fdTest_fullPath
+
+    TestBlock filebox-1.1 {FileSelectBox} {
+	set w [tixFileSelectBox .f -command FdTest_GetFile]
+	pack $w -expand yes -fill both
+	update
+
+	InvokeComboBoxByKey [$w subwidget selection] "$fdTest_fullPath"
+	Assert {[tixStrEq $fdTest_selected "$fdTest_fullPath"]}
+    }
+    catch {
+	destroy $w
+    }
+}
+
+proc Test_FileSelectDialog {} {
+    global fdTest_selected fdTest_fullPath
+
+    TestBlock filebox-2.1 {FileSelectDialog} {
+	set w [tixFileSelectDialog .f -command FdTest_GetFile]
+	$w popup
+	update
+
+	InvokeComboBoxByKey [$w subwidget fsbox subwidget selection] \
+	    "$fdTest_fullPath"
+	Assert {[tixStrEq $fdTest_selected "$fdTest_fullPath"]}
+    }
+    catch {
+	destroy $w
+    }
+}
+
+proc Test_ExFileSelectBox {} {
+    global fdTest_selected fdTest_fullPath
+
+    TestBlock filebox-3.1 {ExFileSelectBox} {
+	set w [tixExFileSelectBox .f -command FdTest_GetFile]
+	pack $w -expand yes -fill both
+	update
+
+	$w subwidget file config -selection "$fdTest_fullPath" \
+	    -value "$fdTest_fullPath"
+	Assert {[tixStrEq $fdTest_selected "$fdTest_fullPath"]}
+    }
+
+    TestBlock filebox-3.2 {Keyboard input in ExFileSelectBox entry subwidget} {
+	set dirCbx  [$w subwidget dir]
+	set fileCbx [$w subwidget file]
+	set okBtn   [$w subwidget ok]
+
+	foreach file {Foo bar "Foo Bar"} {
+	    set fdTest_selected ""
+
+	    InvokeComboBoxByKey $fileCbx $file
+	    set fullPath [tixFSJoin [$dirCbx cget -value] $file]
+	    update
+
+	    Assert {[tixStrEq "$fdTest_selected" "$fullPath"]}
+	}
+    }
+
+    TestBlock filebox-3.3 {Keyboard and then press OK} {
+	foreach file {bar "Foo Bar"} {
+	    set fdTest_selected ""
+
+	    SetComboBoxByKey $fileCbx $file
+	    Click $okBtn
+	    set fullPath [tixFSJoin [$dirCbx cget -value] $file]
+	    update
+
+	    Assert {[tixStrEq "$fdTest_selected" "$fullPath"]}
+	}
+    }
+
+    catch {
+	destroy $w
+    }
+}
+
+proc Test_ExFileSelectDialog {} {
+    global fdTest_selected fdTest_fullPath
+
+    TestBlock filebox-4.1 {ExFileSelectDialog} {
+	set w [tixExFileSelectDialog .f -command FdTest_GetFile]
+	$w popup
+	update
+
+	InvokeComboBoxByKey [$w subwidget fsbox subwidget file] \
+	    $fdTest_fullPath
+	Assert {[tixStrEq $fdTest_selected "$fdTest_fullPath"]}
+    }
+
+    catch {
+	destroy $w
+    }
+}