diff options
| author | stanton <stanton@noemail.net> | 1998-06-24 16:05:51 (GMT) |
|---|---|---|
| committer | stanton <stanton@noemail.net> | 1998-06-24 16:05:51 (GMT) |
| commit | 9f86a98857fe41038bde223d721bf8fa2e28ec6f (patch) | |
| tree | 355a3fba1134635fd430cb0b22cd4abca280cefe /tests/filebox.test | |
| parent | 8e0bad5f832dfcafe061b20be663b8b7b52fe734 (diff) | |
| download | tk-9f86a98857fe41038bde223d721bf8fa2e28ec6f.zip tk-9f86a98857fe41038bde223d721bf8fa2e28ec6f.tar.gz tk-9f86a98857fe41038bde223d721bf8fa2e28ec6f.tar.bz2 | |
added test for unusual initialdir
FossilOrigin-Name: 404910a539b8dc083296018b3e5d71186254127f
Diffstat (limited to 'tests/filebox.test')
| -rw-r--r-- | tests/filebox.test | 8 |
1 files changed, 8 insertions, 0 deletions
diff --git a/tests/filebox.test b/tests/filebox.test index 6bae6c5..83f320c 100644 --- a/tests/filebox.test +++ b/tests/filebox.test @@ -198,6 +198,14 @@ foreach mode $modes { -parent $parent -initialdir $fileDir] } $pathName + test filebox-2.4 "$command command" { + ToPressButton $parent ok + set choice [$command -title "Enter \"$fileName\" and press Ok" \ + -parent $parent -initialdir . \ + -initialfile $fileName] + } $pathName + + set filters(1) {} set filters(2) { |