constructor (new notify:notify-box% [value value])

→ (is-a?/c notify:notify-box%)

value : any/c

Creates a notify-box initially containing value.

method (send a-notify:notify-box get) → any/c

Gets the value currently stored in the notify-box.

method (send a-notify:notify-box set v) → void?

v : any/c

Updates the value stored in the notify-box and notifies the listeners.

method (send a-notify:notify-box listen listener) → void?

listener : (-> any/c any)

Adds a callback to be invoked on the new value when the notify-box’s contents change.

method (send a-notify:notify-box remove-listener listener) → void?

listener : (-> any/c any)

Removes a previously-added callback.

method (send a-notify:notify-box remove-all-listeners) → void?

Removes all previously registered callbacks.

Added in version 1.18 of package gui-lib.

procedure (notify:notify-box/pref   proc      [ #:readonly? readonly?])

→ (is-a?/c notify:notify-box%)

proc : (case-> (-> any/c) (-> any/c void?))

readonly? : boolean? = #f

> (define animal (make-parameter 'ant))

> (define nb (notify:notify-box/pref animal))

> (send nb listen (lambda (v) (printf "New value: ~s\n" v)))

> (send nb set 'bee)

New value: bee

> (animal 'cow)

> (send nb get)

'bee

> (send nb set 'deer)

New value: deer

> (animal)

'deer

syntax (notify:define-notify name value-expr)

value-expr   :   (is-a?/c notify:notify-box%)

> (define config%     (class object%       (notify:define-notify food (new notify:notify-box% (value 'apple)))       (notify:define-notify animal (new notify:notify-box% (value 'ant)))       (super-new)))

> (define c (new config%))

> (send c listen-food           (lambda (v) (when (eq? v 'honey) (send c set-animal 'bear))))

> (let ([food (get-field food c)])     (send food set 'honey))

> (send c get-animal)

'bear

procedure (notify:menu-option/notify-box   parent       label       notify-box)

→ (is-a?/c checkable-menu-item%)

parent : (or/c (is-a?/c menu%) (is-a?/c popup-menu%))

label : label-string?

notify-box : (is-a?/c notify:notify-box%)

procedure (notify:check-box/notify-box   parent             label             notify-box)   →   (is-a?/c check-box%)

parent   :   (or/c (is-a?/c frame%) (is-a?/c dialog%)       (is-a?/c panel%) (is-a?/c pane%))

label : label-string?

notify-box : (is-a?/c notify:notify-box%)

procedure (notify:choice/notify-box   parent             label             choices             notify-box)   →   (is-a?/c choice%)

parent   :   (or/c (is-a?/c frame%) (is-a?/c dialog%)       (is-a?/c panel%) (is-a?/c pane%))

label : label-string?

choices : (listof label-string?)

notify-box : (is-a?/c notify:notify-box%)

procedure (notify:menu-group/notify-box   parent       labels       notify-box)

→ (listof (is-a?/c checkable-menu-item%))

parent : (or/c (is-a?/c menu%) (is-a?/c popup-menu%))

labels : (listof label-string?)

notify-box : (is-a?/c notify:notify-box%)