Move the gui modules to lang racket
This commit is contained in:
parent
7337c44604
commit
489d21520e
|
@ -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")))
|
||||
|
|
|
@ -1,5 +1,5 @@
|
|||
(module mixin-macros frtime
|
||||
(require mzlib/class)
|
||||
(require racket/class)
|
||||
|
||||
(define-syntax events->callbacks
|
||||
(lambda (stx)
|
||||
|
|
|
@ -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)))
|
||||
|
|
Loading…
Reference in New Issue
Block a user