From 1a3dec8641e59b10662068df36d1c2f2ad251448 Mon Sep 17 00:00:00 2001 From: Vincent St-Amour Date: Tue, 18 Aug 2015 16:06:58 -0500 Subject: [PATCH] Replace uses of unstable/gui/notify with framework/notify. --- rackunit-gui/rackunit/private/gui/controller.rkt | 6 +++--- rackunit-gui/rackunit/private/gui/view.rkt | 8 ++++---- 2 files changed, 7 insertions(+), 7 deletions(-) diff --git a/rackunit-gui/rackunit/private/gui/controller.rkt b/rackunit-gui/rackunit/private/gui/controller.rkt index c015005..fe2f782 100644 --- a/rackunit-gui/rackunit/private/gui/controller.rkt +++ b/rackunit-gui/rackunit/private/gui/controller.rkt @@ -1,7 +1,7 @@ #lang racket/base (require racket/class racket/class/iop - unstable/gui/notify + framework/notify rackunit/private/base "interfaces.rkt" "model.rkt") @@ -13,10 +13,10 @@ ;; model-shown : (notify-box (U model<%> #f)) ;; The model currently displayed in the Details view, of #f is none. - (define-notify selected-model (new notify-box% (value #f))) + (notify:define-notify selected-model (new notify:notify-box% (value #f))) ;; locked? : (notify-box boolean) - (define-notify locked? (new notify-box% (value #f))) + (notify:define-notify locked? (new notify:notify-box% (value #f))) ;; view : #f or view<%> (define view #f) diff --git a/rackunit-gui/rackunit/private/gui/view.rkt b/rackunit-gui/rackunit/private/gui/view.rkt index c5ccaff..64c175b 100644 --- a/rackunit-gui/rackunit/private/gui/view.rkt +++ b/rackunit-gui/rackunit/private/gui/view.rkt @@ -1,7 +1,7 @@ #lang racket/base (require racket/class racket/class/iop - unstable/gui/notify + framework/notify racket/gui/base framework mrlib/hierlist @@ -327,9 +327,9 @@ still be there, just not visible? (new menu% (label "RackUnit") (parent (get-menu-bar)))]) - (menu-option/notify-box rackunit-menu - "Lock" - (get-field locked? controller))) + (notify:menu-option/notify-box rackunit-menu + "Lock" + (get-field locked? controller))) (define view (new view%