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

..

Browse Source 
original commit: edd77beec581dc78b0b3338f023cb7533f246ce8
This commit is contained in:
Robby Findler 2002-05-01 18:15:01 +00:00
parent 64b55614ce
commit d9396c4b64
4 changed files with 1300 additions and 165 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1408
collects/framework/framework.ss
View File

File diff suppressed because it is too large Load Diff

4
collects/framework/private/autosave.ss
View File

@ -13,6 +13,10 @@
[exit : framework:exit^] [exit : framework:exit^]
[preferences : framework:preferences^]) [preferences : framework:preferences^])
(define autosavable<%>
(interface ()
do-autosave))
(define objects null) (define objects null)
(define autosave-timer% (define autosave-timer%

2
collects/framework/private/editor.ss
View File

@ -354,7 +354,7 @@
; what about checking the autosave files when a file is opened? ; what about checking the autosave files when a file is opened?
(define backup-autosave-mixin (define backup-autosave-mixin
(mixin (basic<%>) (backup-autosave<%>) (mixin (basic<%>) (backup-autosave<%> autosave:autosavable<%>)
(inherit is-modified? get-filename save-file) (inherit is-modified? get-filename save-file)
(rename [super-on-save-file on-save-file] (rename [super-on-save-file on-save-file]
[super-on-change on-change] [super-on-change on-change]

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

@ -129,8 +129,7 @@
()) ())
(define-signature framework:exn-fun^ (define-signature framework:exn-fun^
((struct exn ()) ((struct exn ())
(struct unknown-preference ()) (struct unknown-preference ())))
(struct during-preferences ())))
(define-signature framework:exn^ (define-signature framework:exn^
((open framework:exn-class^) ((open framework:exn-class^)
(open framework:exn-fun^))) (open framework:exn-fun^)))
@ -166,7 +165,7 @@
(open framework:preferences-fun^))) (open framework:preferences-fun^)))
(define-signature framework:autosave-class^ (define-signature framework:autosave-class^
()) (autosavable<%>))
(define-signature framework:autosave-fun^ (define-signature framework:autosave-fun^
(register)) (register))
(define-signature framework:autosave^ (define-signature framework:autosave^
@ -218,14 +217,15 @@
autowrap<%> autowrap<%>
info<%> info<%>
file<%> file<%>
backup-autosave<%>)) backup-autosave<%>
(define-signature framework:editor-fun^ basic-mixin
(basic-mixin
keymap-mixin keymap-mixin
autowrap-mixin autowrap-mixin
info-mixin info-mixin
file-mixin file-mixin
backup-autosave-mixin)) backup-autosave-mixin))
(define-signature framework:editor-fun^
())
(define-signature framework:editor^ (define-signature framework:editor^
((open framework:editor-class^) ((open framework:editor-class^)
(open framework:editor-fun^))) (open framework:editor-fun^)))
@ -263,15 +263,17 @@
clever-file-format% clever-file-format%
backup-autosave% backup-autosave%
searching% searching%
info%)) info%
(define-signature framework:text-fun^
(basic-mixin basic-mixin
hide-caret/selection-mixin hide-caret/selection-mixin
delegate-mixin delegate-mixin
searching-mixin searching-mixin
return-mixin return-mixin
info-mixin info-mixin
clever-file-format-mixin)) clever-file-format-mixin))
(define-signature framework:text-fun^
())
(define-signature framework:text^ (define-signature framework:text^
((open framework:text-class^) ((open framework:text-class^)
(open framework:text-fun^))) (open framework:text-fun^)))
@ -283,12 +285,14 @@
wide-snip<%> wide-snip<%>
wide-snip% wide-snip%
basic% basic%
info%)) info%
(define-signature framework:canvas-fun^
(basic-mixin basic-mixin
delegate-mixin delegate-mixin
info-mixin info-mixin
wide-snip-mixin)) wide-snip-mixin))
(define-signature framework:canvas-fun^
())
(define-signature framework:canvas^ (define-signature framework:canvas^
((open framework:canvas-class^) ((open framework:canvas-class^)
(open framework:canvas-fun^))) (open framework:canvas-fun^)))
@ -317,9 +321,8 @@
searchable% searchable%
delegate% delegate%
pasteboard% pasteboard%
pasteboard-info-file%)) pasteboard-info-file%
(define-signature framework:frame-fun^
(reorder-menus
basic-mixin basic-mixin
standard-menus-mixin standard-menus-mixin
editor-mixin editor-mixin
@ -332,6 +335,8 @@
text-info-mixin text-info-mixin
pasteboard-info-mixin pasteboard-info-mixin
file-mixin)) file-mixin))
(define-signature framework:frame-fun^
(reorder-menus))
(define-signature framework:frame^ (define-signature framework:frame^
((open framework:frame-class^) ((open framework:frame-class^)
(open framework:frame-fun^))) (open framework:frame-fun^)))
@ -383,13 +388,12 @@
(define-signature framework:keymap-class^ (define-signature framework:keymap-class^
(aug-keymap% (aug-keymap%
aug-keymap<%>)) aug-keymap<%>
aug-keymap-mixin))
(define-signature framework:keymap-fun^ (define-signature framework:keymap-fun^
(send-map-function-meta (send-map-function-meta
make-meta-prefix-list make-meta-prefix-list
aug-keymap-mixin
canonicalize-keybinding-string canonicalize-keybinding-string
add-to-right-button-menu add-to-right-button-menu
@ -434,7 +438,9 @@
(define-signature framework:scheme-class^ (define-signature framework:scheme-class^
(text<%> (text<%>
text%)) text%
text-mixin
sexp-snip%))
(define-signature framework:scheme-fun^ (define-signature framework:scheme-fun^
(get-wordbreak-map (get-wordbreak-map
init-wordbreak-map init-wordbreak-map
@ -443,7 +449,6 @@
get-sexp-snip-class get-sexp-snip-class
get-keymap get-keymap
setup-keymap setup-keymap
text-mixin
add-preferences-panel)) add-preferences-panel))
(define-signature framework:scheme^ (define-signature framework:scheme^
((open framework:scheme-class^) ((open framework:scheme-class^)
@ -469,7 +474,11 @@
(define-signature framework:color-model-class^ (define-signature framework:color-model-class^
()) ())
(define-signature framework:color-model-fun^ (define-signature framework:color-model-fun^
(rgb-color-distance (xyz?
xyz-x
xyz-y
xyz-z
rgb-color-distance
rgb->xyz rgb->xyz
xyz->rgb)) xyz->rgb))
(define-signature framework:color-model^ (define-signature framework:color-model^