From a9131e7726e4f29d1c5a7f41df36d152cdb1851a Mon Sep 17 00:00:00 2001 From: Matthew Flatt Date: Thu, 2 Mar 2006 20:09:02 +0000 Subject: [PATCH] add 'no-sheet dialog style svn: r2347 original commit: e0f43372fdc59f1d419654656723e34146c02121 --- collects/mred/private/mrtop.ss | 6 ++++-- 1 file changed, 4 insertions(+), 2 deletions(-) diff --git a/collects/mred/private/mrtop.ss b/collects/mred/private/mrtop.ss index 0125da80..8a8d4205 100644 --- a/collects/mred/private/mrtop.ss +++ b/collects/mred/private/mrtop.ss @@ -137,7 +137,9 @@ (check-dimension cwho height) (check-init-pos-integer cwho x) (check-init-pos-integer cwho y) - (check-style cwho #f '(no-resize-border no-caption no-system-menu mdi-parent mdi-child toolbar-button hide-menu-bar float metal) + (check-style cwho #f '(no-resize-border no-caption no-system-menu + mdi-parent mdi-child + toolbar-button hide-menu-bar float metal) style) (when (memq 'mdi-child style) (when (memq 'mdi-parent style) @@ -212,7 +214,7 @@ (check-label-string cwho label) (check-top-level-parent/false cwho parent) (for-each (lambda (x) (check-dimension cwho x)) (list width height x y)) - (check-style cwho #f '(no-caption resize-border) style))) + (check-style cwho #f '(no-caption resize-border no-sheet) style))) (rename [super-on-subwindow-char on-subwindow-char]) (private-field [wx #f]) (override