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

moved the surrogate library to scheme/ (out of mzlib/)

Browse Source 
svn: r9554

original commit: baa9ed726a8943cb496cc13f45e2cd85d4a825f3
This commit is contained in:
Robby Findler 2008-05-01 02:51:52 +00:00
parent 6e466e5c1b
commit 4ed12b3ae6
1 changed files with 49 additions and 49 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

98
collects/framework/private/mode.ss
View File

@ -1,50 +1,50 @@
#lang scheme/unit
(require mzlib/surrogate
mzlib/class
"sig.ss")
(import)
(export framework:mode^)
(define-values (host-text-mixin host-text<%> surrogate-text% surrogate-text<%>)
(surrogate
(augment (void) on-change ())
(override on-char (event))
(override on-default-char (event))
(override on-default-event (event))
(augment (void) on-display-size ())
(augment (void) on-edit-sequence ())
(override on-event (event))
(override on-focus (on?))
(augment (void) on-load-file (filename format))
(override on-local-char (event))
(override on-local-event (event))
(override on-new-box (type))
(override on-new-image-snip (filename kind relative-path? inline?))
(override on-paint (before? dc left top right bottom dx dy draw-caret))
(augment (void) on-save-file (filename format))
(augment (void) on-snip-modified (snip modified?))
(augment (void) on-change-style (start len))
(augment (void) on-delete (start len))
(augment (void) on-insert (start len))
(override on-new-string-snip ())
(override on-new-tab-snip ())
(augment (void) on-set-size-constraint ())
(augment (void) after-change-style (start len))
(augment (void) after-delete (start len))
(augment (void) after-insert (start len))
(augment (void) after-set-position ())
(augment (void) after-set-size-constraint ())
(augment (void) after-edit-sequence ())
(augment (void) after-load-file (success?))
(augment (void) after-save-file (success?))
(augment #t can-change-style? (start len))
(augment #t can-delete? (start len))
(augment #t can-insert? (start len))
(augment #t can-set-size-constraint? ())
(override can-do-edit-operation? (op) (op recursive?))
(augment #t can-load-file? (filename format))
(augment #t can-save-file? (filename format))))
(require scheme/class
scheme/surrogate
"sig.ss")
(import)
(export framework:mode^)
(define-values (host-text-mixin host-text<%> surrogate-text% surrogate-text<%>)
(surrogate
(augment (void) on-change ())
(override on-char (event))
(override on-default-char (event))
(override on-default-event (event))
(augment (void) on-display-size ())
(augment (void) on-edit-sequence ())
(override on-event (event))
(override on-focus (on?))
(augment (void) on-load-file (filename format))
(override on-local-char (event))
(override on-local-event (event))
(override on-new-box (type))
(override on-new-image-snip (filename kind relative-path? inline?))
(override on-paint (before? dc left top right bottom dx dy draw-caret))
(augment (void) on-save-file (filename format))
(augment (void) on-snip-modified (snip modified?))
(augment (void) on-change-style (start len))
(augment (void) on-delete (start len))
(augment (void) on-insert (start len))
(override on-new-string-snip ())
(override on-new-tab-snip ())
(augment (void) on-set-size-constraint ())
(augment (void) after-change-style (start len))
(augment (void) after-delete (start len))
(augment (void) after-insert (start len))
(augment (void) after-set-position ())
(augment (void) after-set-size-constraint ())
(augment (void) after-edit-sequence ())
(augment (void) after-load-file (success?))
(augment (void) after-save-file (success?))
(augment #t can-change-style? (start len))
(augment #t can-delete? (start len))
(augment #t can-insert? (start len))
(augment #t can-set-size-constraint? ())
(override can-do-edit-operation? (op) (op recursive?))
(augment #t can-load-file? (filename format))
(augment #t can-save-file? (filename format))))