...
original commit: 6dc2a4b639b22ceb5efc29eeb1b610d72351dd41
This commit is contained in:
parent
701a09379b
commit
ed6d4eddcd
|
@ -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)
|
||||
|
|
Loading…
Reference in New Issue
Block a user