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

no message

Browse Source 
original commit: 0499e63e194697f89da21e6bf795f6a3a8c56068
This commit is contained in:
Robby Findler 2001-04-09 03:25:21 +00:00
parent c8e89dfd65
commit 319fc109f9
2 changed files with 21 additions and 64 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

39
collects/framework/framework.ss
View File

@ -2,24 +2,27 @@
(require (lib "unitsig.ss")
(lib "mred.ss" "mred")
(lib "mred-sig.ss" "mred")
;(prefix test: "test.ss")
;"test-sig.ss"
;(prefix prefs-file: "prefs-file.ss")
;"prefs-file-sig.ss"
;(prefix gui-utils: "gui-utils.ss")
;"gui-utils-sig.ss"
(prefix test: "test.ss")
"test-sig.ss"
(prefix prefs-file: "prefs-file.ss")
"prefs-file-sig.ss"
(prefix gui-utils: "gui-utils.ss")
"gui-utils-sig.ss"
"framework-unit.ss"
"sig.ss")
"framework-sig.ss")
(provide-signature-elements framework^)
(define-values/invoke-unit/sig
frameworkc^
framework-small-part@
#f
mred^
(test : framework:test^)
(prefs-file : framework:prefs-file^)
(gui-utils : framework:gui-utils^)))
(define-values/invoke-unit/sig framework^ framework@ #f mred^)
'(define-values/invoke-unit/sig frameworkc^ framework-small-part@ #f
(test : framework:test^)
(prefs-file : framework:prefs-file^)
(gui-utils : framework:gui-utils^)))

46
collects/framework/sig.ss
View File

@ -1,46 +0,0 @@
(module sig mzscheme
(require (lib "unitsig.ss")
"test-sig.ss"
"gui-utils-sig.ss"
"private/sig.ss")
(provide framework^ frameworkc^)
(define-signature frameworkc^
([unit application : framework:application^]
[unit version : framework:version^]
[unit color-model : framework:color-model^]
[unit exn : framework:exn^]
[unit exit : framework:exit^]
[unit preferences : framework:preferences^]
[unit autosave : framework:autosave^]
[unit handler : framework:handler^]
[unit keymap : framework:keymap^]
[unit match-cache : framework:match-cache^]
[unit paren : framework:paren^]
[unit scheme-paren : framework:scheme-paren^]
[unit path-utils : framework:path-utils^]
[unit icon : framework:icon^]
[unit editor : framework:editor^]
[unit pasteboard : framework:pasteboard^]
[unit text : framework:text^]
[unit finder : framework:finder^]
[unit group : framework:group^]
[unit canvas : framework:canvas^]
[unit panel : framework:panel^]
[unit menu : framework:menu^]
[unit frame : framework:frame^]
[unit scheme : framework:scheme^]
[unit main : framework:main^]))
(define-signature framework^
([unit test : framework:test^]
[unit gui-utils : framework:gui-utils^]
(open frameworkc^))))