original commit: ad5f4bf5f8459e1136ecd3d21484c19ee7f274d5
This commit is contained in:
Robby Findler 2002-09-17 16:16:09 +00:00
parent c57282d01c
commit ca82d56f0e

View File

@ -704,17 +704,18 @@
(string-constant preferences))]
[panel (make-object vertical-panel% frame)]
[popup-callback
(lambda (choices-canvas selection)
(lambda (tab-panel evt)
(unless (null? ppanels)
(send single-panel active-child
(ppanel-panel (list-ref ppanels selection)))))]
(ppanel-panel
(list-ref ppanels
(send tab-panel get-selection))))))]
[make-popup-menu
(lambda ()
(let ([menu (instantiate gui-utils:choices-canvas% ()
(let ([menu (instantiate tab-panel% ()
(choices (map ppanel-title ppanels))
(parent panel)
(callback popup-callback))])
(send menu stretchable-width #f)
menu))]
[popup-menu (make-popup-menu)]
[single-panel (make-object panel:single% panel)]