diff options
| author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2020-09-16 13:31:44 (GMT) |
|---|---|---|
| committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2020-09-16 13:31:44 (GMT) |
| commit | 366274267444686d4349c1e8acfd1d86f5574d09 (patch) | |
| tree | 6b8efc37c1d2b325058838397156b505c8fd2554 /tests/visual_bb.test | |
| parent | 5385927e72f73a73d5f8a5e4eb0f033c18d2ad6c (diff) | |
| download | tk-366274267444686d4349c1e8acfd1d86f5574d09.zip tk-366274267444686d4349c1e8acfd1d86f5574d09.tar.gz tk-366274267444686d4349c1e8acfd1d86f5574d09.tar.bz2 | |
(cherry-pick): Require Tcltest 2.2 as a miminum. Run X11 testcases on Travis in 3 Ubuntu variants: Xenial, Bionic and Focal. (MacOS/XQuartz not working yet)
Diffstat (limited to 'tests/visual_bb.test')
| -rw-r--r-- | tests/visual_bb.test | 14 |
1 files changed, 7 insertions, 7 deletions
diff --git a/tests/visual_bb.test b/tests/visual_bb.test index 6b10f76..4560e6b 100644 --- a/tests/visual_bb.test +++ b/tests/visual_bb.test @@ -6,7 +6,7 @@ # at the window to make sure it appears as expected. Individual tests # are kept in separate ".tcl" files in this directory. -package require tcltest 2.1 +package require tcltest 2.2 eval tcltest::configure $argv tcltest::loadTestedCommands @@ -48,7 +48,7 @@ test 1.1 "running visual tests" {userInteraction} { frame .menu -relief raised -borderwidth 1 message .msg -font {Times 18} -relief raised -width 4i \ -borderwidth 1 -text "This application provides a collection of visual tests for the Tk toolkit. Each menu entry invokes a test, which displays information on the screen. You can then verify visually that the information is being displayed in the correct way. The tests under the \"Postscript\" menu exercise the Postscript-generation capabilities of canvas widgets." - + pack .menu -side top -fill x pack .msg -side bottom -expand yes -fill both @@ -60,7 +60,7 @@ test 1.1 "running visual tests" {userInteraction} { menubutton .menu.file -text "File" -menu .menu.file.m menu .menu.file.m .menu.file.m add command -label "Quit" -command end - + menubutton .menu.group1 -text "Group 1" -menu .menu.group1.m menu .menu.group1.m .menu.group1.m add command -label "Canvas arcs" -command {runTest arc.tcl} @@ -72,7 +72,7 @@ test 1.1 "running visual tests" {userInteraction} { -command {runTest butGeom.tcl} .menu.group1.m add command -label "Label/button colors" \ -command {runTest butGeom2.tcl} - + menubutton .menu.ps -text "Canvas Postscript" -menu .menu.ps.m menu .menu.ps.m .menu.ps.m add command -label "Rectangles and other graphics" \ @@ -85,11 +85,11 @@ test 1.1 "running visual tests" {userInteraction} { -command {runTest canvPsImg.tcl} .menu.ps.m add command -label "Arcs" \ -command {runTest canvPsArc.tcl} - + pack .menu.file .menu.group1 .menu.ps -side left -padx 1m - + # Set up for keyboard-based menu traversal - + bind . <Any-FocusIn> { if {("%d" == "NotifyVirtual") && ("%m" == "NotifyNormal")} { focus .menu |