diff --git a/collects/framework/frameworks.ss b/collects/framework/frameworks.ss index 058968b5..050b3655 100644 --- a/collects/framework/frameworks.ss +++ b/collects/framework/frameworks.ss @@ -1,327 +1,347 @@ -(require-library "refer.ss") -(require-library "macro.ss") -(require-library "cores.ss") -(require-library "dates.ss") -(require-library "match.ss") -(require-library "dates.ss") -(require-library "functios.ss") -(require-library "macro.ss") -(require-relative-library "macro.ss") - -(require-relative-library "tests.ss") -(require-relative-library "guiutilss.ss") - -(define-signature framework:menu^ - (can-restore<%> - can-restore-mixin - can-restore-menu-item% - can-restore-checkable-menu-item%)) - -(define-signature framework:prefs-file^ - (get-preferences-filename)) - -(define-signature framework:version^ - (add-spec - version)) - -(define-signature framework:panel^ - (single-mixin - single<%> - - single-window<%> - single-window-mixin - - ;multi-view-mixin - ;multi-view<%> - - vertical-resizable<%> - vertical-resizable-mixin - - single% - single-pane% - ;multi-view% - vertical-resizable% - vertical-resizable-pane%)) - -(define-signature framework:exn^ - ((struct exn ()) - (struct unknown-preference ()) - (struct during-preferences ()))) - -(define-signature framework:application^ - (current-app-name)) - -(define-signature framework:preferences^ - (get - add-callback - set - set-default - set-un/marshall - - save - read - restore-defaults - - add-panel - add-font-panel - add-general-panel - show-dialog - hide-dialog)) - -(define-signature framework:autosave^ - (register)) - -(define-signature framework:exit^ - (frame-exiting - insert-on-callback - insert-can?-callback - can-exit? - on-exit - exit)) - -(define-signature framework:path-utils^ - (generate-autosave-name - generate-backup-name)) - -(define-signature framework:finder^ - (dialog-parent-parameter - default-extension - common-put-file - common-get-file - std-put-file - std-get-file - common-get-file-list - current-find-file-directory - get-file - put-file)) - -(define-signature framework:editor^ - (basic<%> - keymap<%> - autowrap<%> - info<%> - file<%> - backup-autosave<%> - - basic-mixin - keymap-mixin - autowrap-mixin - info-mixin - file-mixin - backup-autosave-mixin)) - -(define-signature framework:pasteboard^ - (basic% - keymap% - file% - backup-autosave% - info%)) - -(define-signature framework:text^ - (basic<%> - searching<%> - return<%> - info<%> - clever-file-format<%> - - basic-mixin - searching-mixin - return-mixin - info-mixin - clever-file-format-mixin - - basic% - keymap% - return% - autowrap% - file% - clever-file-format% - backup-autosave% - searching% - info%)) - -(define-signature framework:canvas^ - (basic-mixin - basic<%> - - info-mixin - info<%> - - wide-snip-mixin - wide-snip<%> - - wide-snip% - basic% - info%)) - -(define-signature framework:frame^ - (reorder-menus - - basic<%> - basic-mixin - - standard-menus<%> - standard-menus-mixin - - editor<%> - editor-mixin - - text<%> - text-mixin - - pasteboard<%> - pasteboard-mixin - - searchable<%> - searchable-mixin - - searchable-text<%> - searchable-text-mixin - - info<%> - info-mixin - - text-info<%> - text-info-mixin - - pasteboard-info<%> - pasteboard-info-mixin - - file<%> - file-mixin - - basic% - info% - text-info% - pasteboard-info% - standard-menus% - editor% - - text% - text-info-file% - searchable% - pasteboard% - pasteboard-info-file%)) - -(define-signature framework:group^ - (% - get-the-frame-group)) - -(define-signature framework:handler^ - (handler? handler-name handler-extension handler-handler - insert-format-handler - find-format-handler - find-named-format-handler - edit-file - open-file)) - -(define-signature framework:icon^ - (get-paren-highlight-bitmap - get-autowrap-bitmap - - get-lock-bitmap - get-unlock-bitmap - get-anchor-bitmap - - get-gc-on-bitmap - get-gc-off-bitmap)) - -(define-signature framework:keymap^ - (send-map-function-meta - make-meta-prefix-list - - aug-keymap-mixin - aug-keymap% - aug-keymap<%> - - canonicalize-keybinding-string - - add-to-right-button-menu - - setup-global - setup-search - setup-file - setup-editor - - get-global - get-search - get-file - get-editor - - call/text-keymap-initializer)) - -(define-signature framework:match-cache^ - (%)) - -(define-signature framework:scheme-paren^ - (get-comments - get-paren-pairs - get-quote-pairs - forward-match - backward-match - balanced? - backward-containing-sexp)) - -(define-signature framework:scheme^ - (get-wordbreak-map - init-wordbreak-map - - get-style-list - - get-keymap - setup-keymap - text-mixin - text<%> - text% - add-preferences-panel)) - -(define-signature framework:paren^ - (balanced? - forward-match - backward-match - skip-whitespace)) - -(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^))) +(module framework-sig mzscheme + (require (lib "unitsig.ss")) + (require "tests.ss") + (require "guiutilss.ss") + + (provide framework^ + framework:menu^ + framework:prefs-file^ + framework:version^ + framework:panel^ + framework:exn^ + framework:application^ + framework:preferences^ + framework:autosave^ + framework:exit^ + framework:path-utils^ + framework:finder^ + framework:editor^ + framework:pasteboard^ + framework:text^ + framework:canvas^ + framework:frame^ + framework:group^ + framework:handler^ + framework:icon^ + framework:keymap^ + framework:match-cache^ + framework:scheme-paren^ + framework:scheme^ + framework:paren^ + framework:main^ + framework:color-model^) + + (define-signature framework:menu^ + (can-restore<%> + can-restore-mixin + can-restore-menu-item% + can-restore-checkable-menu-item%)) + + (define-signature framework:prefs-file^ + (get-preferences-filename)) + + (define-signature framework:version^ + (add-spec + version)) + + (define-signature framework:panel^ + (single-mixin + single<%> + + single-window<%> + single-window-mixin + + ;;multi-view-mixin + ;;multi-view<%> + + vertical-resizable<%> + vertical-resizable-mixin + + single% + single-pane% + ;;multi-view% + vertical-resizable% + vertical-resizable-pane%)) + + (define-signature framework:exn^ + ((struct exn ()) + (struct unknown-preference ()) + (struct during-preferences ()))) + + (define-signature framework:application^ + (current-app-name)) + + (define-signature framework:preferences^ + (get + add-callback + set + set-default + set-un/marshall + + save + read + restore-defaults + + add-panel + add-font-panel + add-general-panel + show-dialog + hide-dialog)) + + (define-signature framework:autosave^ + (register)) + + (define-signature framework:exit^ + (frame-exiting + insert-on-callback + insert-can?-callback + can-exit? + on-exit + exit)) + + (define-signature framework:path-utils^ + (generate-autosave-name + generate-backup-name)) + + (define-signature framework:finder^ + (dialog-parent-parameter + default-extension + common-put-file + common-get-file + std-put-file + std-get-file + common-get-file-list + current-find-file-directory + get-file + put-file)) + + (define-signature framework:editor^ + (basic<%> + keymap<%> + autowrap<%> + info<%> + file<%> + backup-autosave<%> + + basic-mixin + keymap-mixin + autowrap-mixin + info-mixin + file-mixin + backup-autosave-mixin)) + + (define-signature framework:pasteboard^ + (basic% + keymap% + file% + backup-autosave% + info%)) + + (define-signature framework:text^ + (basic<%> + searching<%> + return<%> + info<%> + clever-file-format<%> + + basic-mixin + searching-mixin + return-mixin + info-mixin + clever-file-format-mixin + + basic% + keymap% + return% + autowrap% + file% + clever-file-format% + backup-autosave% + searching% + info%)) + + (define-signature framework:canvas^ + (basic-mixin + basic<%> + + info-mixin + info<%> + + wide-snip-mixin + wide-snip<%> + + wide-snip% + basic% + info%)) + + (define-signature framework:frame^ + (reorder-menus + + basic<%> + basic-mixin + + standard-menus<%> + standard-menus-mixin + + editor<%> + editor-mixin + + text<%> + text-mixin + + pasteboard<%> + pasteboard-mixin + + searchable<%> + searchable-mixin + + searchable-text<%> + searchable-text-mixin + + info<%> + info-mixin + + text-info<%> + text-info-mixin + + pasteboard-info<%> + pasteboard-info-mixin + + file<%> + file-mixin + + basic% + info% + text-info% + pasteboard-info% + standard-menus% + editor% + + text% + text-info-file% + searchable% + pasteboard% + pasteboard-info-file%)) + + (define-signature framework:group^ + (% + get-the-frame-group)) + + (define-signature framework:handler^ + (handler? handler-name handler-extension handler-handler + insert-format-handler + find-format-handler + find-named-format-handler + edit-file + open-file)) + + (define-signature framework:icon^ + (get-paren-highlight-bitmap + get-autowrap-bitmap + + get-lock-bitmap + get-unlock-bitmap + get-anchor-bitmap + + get-gc-on-bitmap + get-gc-off-bitmap)) + + (define-signature framework:keymap^ + (send-map-function-meta + make-meta-prefix-list + + aug-keymap-mixin + aug-keymap% + aug-keymap<%> + + canonicalize-keybinding-string + + add-to-right-button-menu + + setup-global + setup-search + setup-file + setup-editor + + get-global + get-search + get-file + get-editor + + call/text-keymap-initializer)) + + (define-signature framework:match-cache^ + (%)) + + (define-signature framework:scheme-paren^ + (get-comments + get-paren-pairs + get-quote-pairs + forward-match + backward-match + balanced? + backward-containing-sexp)) + + (define-signature framework:scheme^ + (get-wordbreak-map + init-wordbreak-map + + get-style-list + + get-keymap + setup-keymap + text-mixin + text<%> + text% + add-preferences-panel)) + + (define-signature framework:paren^ + (balanced? + forward-match + backward-match + skip-whitespace)) + + (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^)))) \ No newline at end of file