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

...

Browse Source 
original commit: 8236bf2f06e9c9b53e76be6e67f7d3d87c49dcda
This commit is contained in:
Robby Findler 2001-02-20 21:10:48 +00:00
parent 3bd568d210
commit cfeee48685
2 changed files with 51 additions and 47 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

51
collects/framework/frameworks.ss → collects/framework/private/sig.ss
View File

@ -1,10 +1,7 @@
(module framework-sig mzscheme
(module sig mzscheme
(require (lib "unitsig.ss"))
(require "tests.ss")
(require "guiutilss.ss")
(provide framework^
framework:menu^
(provide framework:menu^
framework:prefs-file^
framework:version^
framework:panel^
@ -31,7 +28,7 @@
framework:main^
framework:color-model^)
(define-signature framework:menu^
(define-signature framework:menu^
(can-restore<%>
can-restore-mixin
can-restore-menu-item%
@ -304,44 +301,4 @@
(define-signature framework:main^ ())
(define-signature framework:color-model^
(rgb-color-distance rgb->xyz xyz->rgb))
(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 gui-utils : framework:gui-utils^]
[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^]
(open frameworkc^))))
(rgb-color-distance rgb->xyz xyz->rgb)))

47
collects/framework/sig.ss Normal file
View File

@ -0,0 +1,47 @@
(module sig mzscheme
(require (lib "unitsig.ss"))
(require "test-sig.ss")
(require "guiutils-sig.ss")
(require "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 gui-utils : framework:gui-utils^]
[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^]
(open frameworkc^))))