Move the gui modules to lang racket

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

View File

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

View File

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

View File

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