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

Macro stepper: new notify-box control

Browse Source 
svn: r5956
This commit is contained in:
Ryan Culpepper 2007-04-16 15:54:57 +00:00
parent 4c30528212
commit fec1da11bb
1 changed files with 14 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

15
collects/macro-debugger/view/util.ss
View File

@ -9,7 +9,8 @@
notify-box/pref notify-box/pref
menu-option/notify-box menu-option/notify-box
menu-group/notify-box menu-group/notify-box
check-box/notify-box) check-box/notify-box
choice/notify-box)
(define notification-lock (make-parameter #f)) (define notification-lock (make-parameter #f))
@ -118,6 +119,18 @@
(send nb listen (lambda (value) (send checkbox set-value value))) (send nb listen (lambda (value) (send checkbox set-value value)))
checkbox) 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) (define (menu-group/notify-box parent labels nb)
(map (lambda (option) (map (lambda (option)
(define label (if (pair? option) (car option) option)) (define label (if (pair? option) (car option) option))