From ebdaf2bebc4f01bbab3fd2dcb6b1a435faee007d Mon Sep 17 00:00:00 2001 From: Matthew Flatt Date: Tue, 15 Mar 2011 12:44:11 -0600 Subject: [PATCH] adjust racket/gui test to cover no-border tab-panel% original commit: 6a79ebdc973f325af4270a5bbb2169e03dca4041 --- collects/tests/gracket/windowing.rktl | 10 ++++++---- 1 file changed, 6 insertions(+), 4 deletions(-) diff --git a/collects/tests/gracket/windowing.rktl b/collects/tests/gracket/windowing.rktl index 08b71d53..e4de9b4b 100644 --- a/collects/tests/gracket/windowing.rktl +++ b/collects/tests/gracket/windowing.rktl @@ -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)