original commit: 9484177d7c8c1038c00083eb50468bcb8ae575d5
This commit is contained in:
Robby Findler 2001-02-20 16:55:47 +00:00
parent 58a86a9a6e
commit 3bd568d210

View File

@ -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^))))