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

..

Browse Source 
original commit: aa149bc9bb2799ee7d64dfadfe5f96afdcae365f
This commit is contained in:
Robby Findler 2002-09-28 23:16:37 +00:00
parent 3fb1e1b033
commit 27ee8bece6
1 changed files with 9 additions and 10 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -17,7 +17,8 @@
(import mred^
[exn : framework:exn^]
[exit : framework:exit^]
[panel : framework:panel^])
[panel : framework:panel^]
[frame : framework:frame^])
(rename [-read read])
@ -696,16 +697,14 @@
(lambda ()
(letrec ([stashed-prefs (get-preference main-preferences-symbol (lambda () null))]
[frame
(make-object (class100 frame% args
(public
[added-pane
(lambda (title)
(ensure-constructed)
(send tap-panel append title))])
(sequence
(apply super-init args)))
(make-object (class frame:basic%
(define/public (added-pane title)
(lambda (title)
(ensure-constructed)
(send tap-panel append title)))
(super-instantiate ()))
(string-constant preferences))]
[panel (make-object vertical-panel% frame)]
[panel (make-object vertical-panel% (send frame get-area-container))]
[popup-callback
(lambda (tab-panel evt)
(unless (null? ppanels)