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

*** empty log message ***

Browse Source 
original commit: 2f340e5e7ef4ca8eeb24b27ea50fbb25397a4692
This commit is contained in:
Robby Findler 1996-07-24 04:27:35 +00:00
parent c8ae6693e3
commit 747ad22012
1 changed files with 2 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
collects/mred/prefs.ss
View File

@ -228,7 +228,6 @@
(define make-preferences-dialog
(lambda ()
(save-user-preferences)
(letrec* ([frame (make-object (class-asi mred:frame% (public [added-pane refresh-menu]))
'() "Preferences")]
[panel (make-object mred:vertical-panel% frame)]
@ -284,8 +283,7 @@
(run-once
(lambda ()
(when preferences-dialog
(send preferences-dialog show #f)
(set! preferences-dialog #f))))))
(send preferences-dialog show #f))))))
(define show-preferences-dialog
(lambda ()
@ -293,6 +291,7 @@
(lambda ()
(run-once
(lambda ()
(save-user-preferences)
(if preferences-dialog
(send preferences-dialog show #t)
(set! preferences-dialog (make-preferences-dialog)))))))))