suzanne.soy/gui
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

..

Browse Source 
original commit: 75e1fabb6fbd48bb3cb9330054172a58c5b70664
This commit is contained in:
Robby Findler 2002-06-21 02:01:54 +00:00
parent b61a2d220a
commit de52b148a2
1 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
collects/tests/framework/group-test.ss
View File

@ -87,7 +87,7 @@
(test
'windows-menu
(lambda (x)
(equal? x (list "Bring Frame to Front..." #f "test")))
(equal? x (list "Bring Frame to Front..." "Next Window" "Previous Window" #f "test")))
(lambda ()
(send-sexp-to-mred
'(let ([frame (make-object frame:basic% "test")])
@ -103,7 +103,7 @@
(test
'windows-menu-unshown
(lambda (x)
(equal? x (list "Bring Frame to Front..." #f "test")))
(equal? x (list "Bring Frame to Front..." "Next Window" "Previous Window" #f "test")))
(lambda ()
(send-sexp-to-mred
'(let ([frame1 (make-object frame:basic% "test")]
@ -120,7 +120,7 @@
(test
'windows-menu-sorted1
(lambda (x)
(equal? x (list "Bring Frame to Front..." #f "aaa" "bbb")))
(equal? x (list "Bring Frame to Front..." "Next Window" "Previous Window" #f "aaa" "bbb")))
(lambda ()
(send-sexp-to-mred
'(let ([frame (make-object frame:basic% "aaa")])
@ -141,7 +141,7 @@
(test
'windows-menu-sorted2
(lambda (x)
(equal? x (list "Bring Frame to Front..." #f "aaa" "bbb")))
(equal? x (list "Bring Frame to Front..." "Next Window" "Previous Window" #f "aaa" "bbb")))
(lambda ()
(send-sexp-to-mred
'(let ([frame (make-object frame:basic% "bbb")])