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

.

Browse Source 
original commit: 3004e602ae72c90115d7a8158592a1b3fef4df6c
This commit is contained in:
Matthew Flatt 1999-04-08 16:01:01 +00:00
parent c88dc69af8
commit e9f2d343ab
1 changed files with 3 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
src/mred/wrap/mred.ss
View File

@ -2876,8 +2876,7 @@
(check-string cwho label)
(check-frame-parent/false cwho parent)
(for-each (lambda (x) (check-dimension cwho x)) (list width height x y))
(check-style cwho #f '(no-thick-border no-resize-border no-caption no-system-menu
iconize maximize mdi-parent mdi-child)
(check-style cwho #f '(no-resize-border no-caption no-system-menu mdi-parent mdi-child)
style)
(when (memq 'mdi-child style)
(when (memq 'mdi-parent style)
@ -4553,8 +4552,8 @@
(and ok? (get-filename))))])])
sel))
(define get-file (mk-file-selector 'get-file #f))
(define put-file (mk-file-selector 'put-file #t))
(define get-file (lambda x (apply (mk-file-selector 'get-file #f) x)))
(define put-file (lambda x (apply (mk-file-selector 'put-file #t) x)))
(define get-color-from-user
(if (not (eq? (system-type) 'unix))