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

adjust racket/gui test to cover no-border tab-panel%

Browse Source
This commit is contained in:
Matthew Flatt 2011-03-15 12:44:11 -06:00
parent 7ecf8e6c0b
commit 6a79ebdc97
1 changed files with 6 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
collects/tests/gracket/windowing.rktl
View File

@ -1043,12 +1043,13 @@
(define (panel-test % win?
#:choices? [choices? #f]
#:label? [label? #f]
#:margin [m 0])
#:margin [m 0]
#:style [style '()])
(let* ([frame (make-object frame% "Panel Test" #f 100 100)]
[panel (if %
(cond
[choices?
(new % [parent frame] [choices '("A" "B")])]
(new % [parent frame] [choices '("A" "B")] [style style])]
[label?
(new % [parent frame] [label "Stuff"])]
[else (new % [parent frame])])
@ -1074,8 +1075,9 @@
(panel-test vertical-pane% #f)
(panel-test horizontal-pane% #f)
(panel-test vertical-panel% #t)
(panel-test horizontal-panel% #t))
(panel-test tab-panel% #t #:choices? #t)
(panel-test horizontal-panel% #t)
(panel-test tab-panel% #t #:choices? #t))
(panel-test tab-panel% #t #:choices? #t #:style '(no-border))
(panel-test group-box-panel% #t #:label? #t #:margin 2))
(panel-tests dialog% #f)