.
original commit: 1b6198247147ee5fe5ba80dd8a4f2b87dfe0e296
This commit is contained in:
parent
36622f8bc5
commit
a8daae7238
|
@ -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))))
|
||||
|
|
Loading…
Reference in New Issue
Block a user