suzanne.soy/gui
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

..

Browse Source 
original commit: 57b5034bb619304c4c295455604738a94f104192
This commit is contained in:
Robby Findler 2002-12-18 15:50:16 +00:00
parent 8a61eecf38
commit e9519256bf
1 changed files with 11 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
collects/framework/private/preferences.ss
View File

@ -425,8 +425,18 @@
(define (make-preferences-dialog) (define (make-preferences-dialog)
(letrec ([stashed-prefs (get-preference main-preferences-symbol (lambda () null))] (letrec ([stashed-prefs (get-preference main-preferences-symbol (lambda () null))]
[frame-stashed-prefs%
(class frame:basic%
(rename [super-show show])
(define/override (show on?)
(when on?
(set! stashed-prefs
(get-preference main-preferences-symbol
(lambda () null))))
(super-show on?))
(super-instantiate ()))]
[frame [frame
(make-object frame:basic% (make-object frame-stashed-prefs%
(string-constant preferences))] (string-constant preferences))]
[build-ppanel-tree [build-ppanel-tree
(lambda (ppanel tab-panel single-panel) (lambda (ppanel tab-panel single-panel)