save geometry in on-close

svn: r2323
This commit is contained in:
Eli Barzilay 2006-02-27 07:53:32 +00:00
parent 70d2fa327d
commit 63a9e097cd

View File

@ -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]