original commit: 1b6198247147ee5fe5ba80dd8a4f2b87dfe0e296
This commit is contained in:
Matthew Flatt 1999-08-06 13:56:35 +00:00
parent 36622f8bc5
commit a8daae7238

View File

@ -565,7 +565,7 @@
[ok-callback (lambda args
(save)
(hide-dialog))]
[ok-button (make-object button% "OK" bottom-panel ok-callback)]
[ok-button (make-object button% "OK" bottom-panel ok-callback '(border))]
[cancel-callback (lambda args
(hide-dialog)
(-read))]
@ -578,5 +578,6 @@
(ensure-constructed)
(unless (null? ppanels)
(send popup-menu set-selection 0))
(send popup-menu focus)
(send frame show #t)
frame))))