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

Move the gui modules to lang racket

Browse Source
This commit is contained in:
Patrick Mahoney 2012-08-14 20:52:58 -04:00 committed by Gregory Cooper
parent 7337c44604
commit 489d21520e
3 changed files with 7 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
collects/frtime/gui/fred.rkt
View File

@ -1,8 +1,8 @@
(module fred frtime (module fred frtime
(require "mixin-macros.rkt" (require "mixin-macros.rkt"
"aux-mixin-macros.rkt" "aux-mixin-macros.rkt"
mzlib/class racket/class
mzlib/string racket/string
texpict/mrpict texpict/mrpict
(all-except mred send-event) (all-except mred send-event)
framework) framework)
@ -18,7 +18,7 @@
"" ""
(if (string? itm) (if (string? itm)
itm itm
(expr->string itm)))) (number->string itm))))
;; adding assumed methods ;; adding assumed methods
@ -323,6 +323,6 @@
(provide (all-defined) (provide (all-defined)
(all-from mzlib/class) (all-from racket/class)
(all-from "mixin-macros.rkt") (all-from "mixin-macros.rkt")
(all-from "aux-mixin-macros.rkt"))) (all-from "aux-mixin-macros.rkt")))

2
collects/frtime/gui/mixin-macros.rkt
View File

@ -1,5 +1,5 @@
(module mixin-macros frtime (module mixin-macros frtime
(require mzlib/class) (require racket/class)
(define-syntax events->callbacks (define-syntax events->callbacks
(lambda (stx) (lambda (stx)

4
collects/frtime/gui/simple.rkt
View File

@ -1,7 +1,7 @@
(module simple frtime (module simple frtime
(require "fred.rkt" (require "fred.rkt"
mzlib/class racket/class
(rename mred frame% frame%)) (rename mred frame% frame%))
(define widget (lambda (x) x)) (define widget (lambda (x) x))
@ -50,4 +50,4 @@
(provide (all-defined) (provide (all-defined)
(all-from "fred.rkt") (all-from "fred.rkt")
(all-from mzlib/class))) (all-from racket/class)))