diff options
| author | stanton <stanton> | 1998-06-24 16:05:51 (GMT) |
|---|---|---|
| committer | stanton <stanton> | 1998-06-24 16:05:51 (GMT) |
| commit | 651b2d1f0076dd7bc73647bfeaf5cf08481106ef (patch) | |
| tree | 355a3fba1134635fd430cb0b22cd4abca280cefe /tests/filebox.test | |
| parent | 4a4091d8d3e7e8b3559d9b3b69f72b5c2020d520 (diff) | |
| download | tk-651b2d1f0076dd7bc73647bfeaf5cf08481106ef.zip tk-651b2d1f0076dd7bc73647bfeaf5cf08481106ef.tar.gz tk-651b2d1f0076dd7bc73647bfeaf5cf08481106ef.tar.bz2 | |
added test for unusual initialdir
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) { |