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

add 'no-sheet dialog style

Browse Source 
svn: r2347

original commit: e0f43372fdc59f1d419654656723e34146c02121
This commit is contained in:
Matthew Flatt 2006-03-02 20:09:02 +00:00
parent 464ae47eff
commit a9131e7726
1 changed files with 4 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
collects/mred/private/mrtop.ss
View File

@ -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