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

..

Browse Source 
original commit: f40de49249134efd28739675b8a37b5de0f16d4a
This commit is contained in:
Robby Findler 1999-03-31 04:13:07 +00:00
parent b85de1d6b4
commit 5233102667
1 changed files with 10 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

16
collects/framework/prefs.ss
View File

@ -535,12 +535,16 @@
(lambda ()
(letrec ([frame
(make-object (class-asi frame%
(public [added-pane (lambda ()
(ensure-constructed)
(refresh-menu)
(send popup-menu set-selection (sub1 (length ppanels)))
(send single-panel active-child
(ppanel-panel (car (list-tail ppanels (sub1 (length ppanels)))))))]))
(public [added-pane
(lambda ()
(ensure-constructed)
(refresh-menu)
(send popup-menu set-selection (sub1 (length ppanels)))
(send single-panel active-child
(ppanel-panel
(car
(list-tail ppanels
(sub1 (length ppanels)))))))]))
"Preferences")]
[panel (make-object vertical-panel% frame)]
[popup-callback