filebox.tcl

这是一个Linux下的集成开发环境

# 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
    }
}