original commit: 6dc2a4b639b22ceb5efc29eeb1b610d72351dd41
This commit is contained in:
Robby Findler 2000-11-20 22:26:28 +00:00
parent 701a09379b
commit ed6d4eddcd

View File

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