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

.

Browse Source 
original commit: 53370864edc111651a25ece4b3097ee01fc4ceca
This commit is contained in:
Matthew Flatt 2002-01-27 19:10:28 +00:00
parent a6c7267942
commit 511fcc8475
1 changed files with 5 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
collects/mred/private/kernel.ss
View File

@ -256,7 +256,6 @@
on-local-char on-local-char
on-local-event on-local-event
find-first-snip find-first-snip
size-cache-invalid
blink-caret blink-caret
own-caret own-caret
refresh refresh
@ -422,6 +421,8 @@
(define-class key-event% event% ([key-code #\nul] [shift-down #f] [control-down #f] [meta-down #f] [alt-down #f] [x 0] [y 0] [time-stamp 0]) (define-class key-event% event% ([key-code #\nul] [shift-down #f] [control-down #f] [meta-down #f] [alt-down #f] [x 0] [y 0] [time-stamp 0])
get-key-code get-key-code
set-key-code set-key-code
get-key-release-code
set-key-release-code
get-shift-down get-shift-down
set-shift-down set-shift-down
get-control-down get-control-down
@ -634,7 +635,9 @@
force-display-focus force-display-focus
is-focus-on? is-focus-on?
get-editor get-editor
set-editor) set-editor
get-wheel-step
set-wheel-step)
(define-class editor-admin% object% #f (define-class editor-admin% object% #f
refresh-delayed? refresh-delayed?
popup-menu popup-menu
@ -827,7 +830,6 @@
on-local-char on-local-char
on-local-event on-local-event
find-first-snip find-first-snip
size-cache-invalid
blink-caret blink-caret
own-caret own-caret
refresh refresh
@ -1029,7 +1031,6 @@
on-local-char on-local-char
on-local-event on-local-event
find-first-snip find-first-snip
size-cache-invalid
blink-caret blink-caret
own-caret own-caret
refresh refresh