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

...

Browse Source 
original commit: 6dc2a4b639b22ceb5efc29eeb1b610d72351dd41
This commit is contained in:
Robby Findler 2000-11-20 22:26:28 +00:00
parent 701a09379b
commit ed6d4eddcd
1 changed files with 3 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -4573,6 +4573,9 @@
[single? (and (< (length strings) 10) [single? (and (< (length strings) 10)
(andmap (lambda (s) (< (string-length s) 60)) strings))] (andmap (lambda (s) (< (string-length s) 60)) strings))]
[f (make-object (class dialog% () [f (make-object (class dialog% ()
(public
[get-message
(lambda () message)])
(override (override
[on-subwindow-event [on-subwindow-event
(lambda (w e) (lambda (w e)