diff --git a/collects/framework/framework.ss b/collects/framework/framework.ss index 4029668f..f7b554c1 100644 --- a/collects/framework/framework.ss +++ b/collects/framework/framework.ss @@ -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^))) diff --git a/collects/framework/sig.ss b/collects/framework/sig.ss deleted file mode 100644 index 34265bb6..00000000 --- a/collects/framework/sig.ss +++ /dev/null @@ -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^)))) \ No newline at end of file