From fec1da11bb9564c160efcf021fdf54e51c5a1d0a Mon Sep 17 00:00:00 2001 From: Ryan Culpepper Date: Mon, 16 Apr 2007 15:54:57 +0000 Subject: [PATCH] Macro stepper: new notify-box control svn: r5956 --- collects/macro-debugger/view/util.ss | 15 ++++++++++++++- 1 file changed, 14 insertions(+), 1 deletion(-) diff --git a/collects/macro-debugger/view/util.ss b/collects/macro-debugger/view/util.ss index e1e1d14c12..d6b9f8ec6a 100644 --- a/collects/macro-debugger/view/util.ss +++ b/collects/macro-debugger/view/util.ss @@ -9,7 +9,8 @@ notify-box/pref menu-option/notify-box menu-group/notify-box - check-box/notify-box) + check-box/notify-box + choice/notify-box) (define notification-lock (make-parameter #f)) @@ -118,6 +119,18 @@ (send nb listen (lambda (value) (send checkbox set-value value))) checkbox) + (define (choice/notify-box parent label choices nb) + (define choice + (new choice% + (label label) + (parent parent) + (style '(horizontal-label)) + (choices choices) + (callback (lambda (c e) (send nb set (send c get-string-selection)))))) + (send choice set-string-selection (send nb get)) + (send nb listen (lambda (value) (send choice set-string-selection value))) + choice) + (define (menu-group/notify-box parent labels nb) (map (lambda (option) (define label (if (pair? option) (car option) option))