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

updated to new unit/sig stuff

Browse Source 
original commit: e57060928c5cb157be8faba96bcc4ca3a98956ba
This commit is contained in:
Robby Findler 1996-06-20 21:30:57 +00:00
parent 28428ce60b
commit 358990f590
5 changed files with 35 additions and 20 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

15
collects/mred/edit.ss
View File

@ -1,9 +1,14 @@
(define mred:edit@
(unit/s mred:edit^
(import [mred:debug mred:debug^] [mred:finder mred:finder^]
[mred:path-utils mred:path-utils^] [mred:mode mred:mode^]
[mred:scheme-paren mred:scheme-paren^] [mred:keymap mred:keymap^]
[mzlib:function mzlib:function^])
(unit/sig mred:edit^
(import ([unit mred:debug : mred:debug^]
[unit mred:finder : mred:finder^]
[unit mred:path-utils : mred:path-utils^]
[unit mred:mode : mred:mode^]
[unit mred:scheme-paren : mred:scheme-paren^]
[unit mred:keymap : mred:keymap^]
[unit mzlib:function : mzlib:function^]))
(mred:debug:printf 'invoke "mred:edit@")
(define-struct range (start end b/w-bitmap color))
(define-struct rectangle (left top width height b/w-bitmap color))

6
collects/mred/exit.ss
View File

@ -1,8 +1,10 @@
(define mred:exit@
(unit/s mred:exit^
(import [mred:debug mred:debug^])
(unit/sig mred:exit^
(import ([unit mred:debug : mred:debug^]))
(rename (-exit exit))
(mred:debug:printf 'invoke "mred:exit@")
(define exit-callbacks '())
(define insert-exit-callback

10
collects/mred/finder.ss
View File

@ -1,7 +1,11 @@
(define mred:finder@
(unit/s mred:finder^
(import [mred:debug mred:debug^] [mzlib:string mzlib:string^]
[mzlib:function mzlib:function^] [mzlib:file mzlib:file^])
(unit/sig mred:finder^
(import ([unit mred:debug : mred:debug^]
[unit mzlib:string : mzlib:string^]
[unit mzlib:function : mzlib:function^]
[unit mzlib:file : mzlib:file^]))
(mred:debug:printf 'invoke "mred:finder@")
(define filter-match?
(lambda (filter name msg)

14
collects/mred/keys.ss
View File

@ -1,10 +1,12 @@
(define mred:keymap@
(unit/s mred:keymap^
(import [mred:debug mred:debug^] [mred:finder mred:finder^]
[mred:handler mred:handler^] [mred:find-string mred:find-string^]
[mred:scheme-paren mred:scheme-paren^])
(mred:debug:printf "mred:keymap@")
(unit/sig mred:keymap^
(import ([unit mred:debug : mred:debug^]
[unit mred:finder : mred:finder^]
[unit mred:handler : mred:handler^]
[unit mred:find-string : mred:find-string^]
[unit mred:scheme-paren : mred:scheme-paren^]))
(mred:debug:printf 'invoke "mred:keymap@")
; This is a list of keys that are typed with the SHIFT key, but
; are not normally thought of as shifted. It will have to be

10
collects/mred/prefs.ss
View File

@ -6,10 +6,12 @@
;; to see if it needs to be unmarshalled.
(define mred:preferences@
(unit/s mred:preferences^
(import [mred:debug mred:debug^]
[mred:exn mred:exn^]
[mzlib:function mzlib:function^])
(unit/sig mred:preferences^
(import ([unit mred:debug : mred:debug^]
[unit mred:exn : mred:exn^]
[unit mzlib:function : mzlib:function^]))
(mred:debug:printf 'invoke "mred:preferences@")
(define preferences-filename
(case wx:platform