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
(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)

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

@ -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%