save geometry in on-close
svn: r2323
This commit is contained in:
parent
70d2fa327d
commit
63a9e097cd
|
@ -106,6 +106,7 @@
|
||||||
(send this get-x) (send this get-y)))
|
(send this get-x) (send this get-y)))
|
||||||
(preferences:save)
|
(preferences:save)
|
||||||
(send this show #f))
|
(send this show #f))
|
||||||
|
(define/augment (on-close) (close))
|
||||||
|
|
||||||
;; ----------------------------------------------------------------------
|
;; ----------------------------------------------------------------------
|
||||||
(new button% [parent buttons-pane]
|
(new button% [parent buttons-pane]
|
||||||
|
|
Loading…
Reference in New Issue
Block a user