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

Replace uses of unstable/gui/notify with framework/notify.

Browse Source
This commit is contained in:
Vincent St-Amour 2015-08-18 16:06:58 -05:00
parent bf0c4812cd
commit 1a3dec8641
2 changed files with 7 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
rackunit-gui/rackunit/private/gui/controller.rkt
View File

@ -1,7 +1,7 @@
#lang racket/base #lang racket/base
(require racket/class (require racket/class
racket/class/iop racket/class/iop
unstable/gui/notify framework/notify
rackunit/private/base rackunit/private/base
"interfaces.rkt" "interfaces.rkt"
"model.rkt") "model.rkt")
@ -13,10 +13,10 @@
;; model-shown : (notify-box (U model<%> #f)) ;; model-shown : (notify-box (U model<%> #f))
;; The model currently displayed in the Details view, of #f is none. ;; 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) ;; 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<%> ;; view : #f or view<%>
(define view #f) (define view #f)

4
rackunit-gui/rackunit/private/gui/view.rkt
View File

@ -1,7 +1,7 @@
#lang racket/base #lang racket/base
(require racket/class (require racket/class
racket/class/iop racket/class/iop
unstable/gui/notify framework/notify
racket/gui/base racket/gui/base
framework framework
mrlib/hierlist mrlib/hierlist
@ -327,7 +327,7 @@ still be there, just not visible?
(new menu% (new menu%
(label "RackUnit") (label "RackUnit")
(parent (get-menu-bar)))]) (parent (get-menu-bar)))])
(menu-option/notify-box rackunit-menu (notify:menu-option/notify-box rackunit-menu
"Lock" "Lock"
(get-field locked? controller))) (get-field locked? controller)))