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

.

Browse Source 
original commit: a7ef767bc5a6472b46ca5fe068197bb45819a6eb
This commit is contained in:
Matthew Flatt 1999-01-09 19:09:01 +00:00
parent e9260073e1
commit a56f780bae
2 changed files with 20 additions and 20 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
collects/tests/mred/paramz.ss
View File

@ -24,7 +24,9 @@
(define c (make-custodian)) (define c (make-custodian))
(define e (parameterize ([current-custodian c]) (make-eventspace))) (define e (parameterize ([current-custodian c]) (make-eventspace)))
(parameterize ([current-eventspace e]) (send (make-object frame% "x" #f 50 50) show #t)) (parameterize ([current-eventspace e]) (send (make-object frame% "x" #f 50 50) show #t))
(test #f 'shutdown? (eventspace-shutdown? e))
(custodian-shutdown-all c) (custodian-shutdown-all c)
(test #t 'shutdown? (eventspace-shutdown? e))
(define (try-use-es t) (define (try-use-es t)
(test (test
'error 'error

36
notes/mred/MrEd_100.txt
View File

@ -351,6 +351,7 @@ area-container<%> : area<%>
container-size container-size
get-children change-children place-children get-children change-children place-children
add-child delete-child add-child delete-child
on-new-child
border - parameter-like border - parameter-like
spacing - parameter-like spacing - parameter-like
set-alignment - takes two syms: 'left/'center/'right 'top/'center/'bottom set-alignment - takes two syms: 'left/'center/'right 'top/'center/'bottom
@ -474,7 +475,7 @@ list-box% : list-control<%>
get-first-visible set-first-visible get-first-visible set-first-visible
canvas<%> : subwindow<%> canvas<%> : subwindow<%>
on-char on-event on-paint on-scroll on-char on-event on-paint on-scroll on-tab-in
popup-menu warp-pointer get-dc popup-menu warp-pointer get-dc
client-min-width client-min-height client-min-width client-min-height
@ -641,9 +642,11 @@ begin-busy-cursor end-busy-cursor is-busy-cursor?
bell bell
label->plain-label label->plain-label
get-resource write-resource get-resource write-resource
yield sleep/yield flush-display
get-face-list - formerly wx:get-font-list get-face-list - formerly wx:get-font-list
yield sleep/yield flush-display
queue-callback
find-graphical-system-path - formerly wx:find-path find-graphical-system-path - formerly wx:find-path
current-ps-setup current-ps-setup
@ -652,8 +655,17 @@ get-top-level-windows
get-top-level-focus-window get-top-level-focus-window
get-top-level-edit-target-window get-top-level-edit-target-window
get-editor-print-margin graphical-read-eval-print-loop
set-editor-print-margin
make-eventspace
eventspace?
current-eventspace
eventspace-shutdown?
eventspace-parameterization
event-dispatch-handler
check-for-break
special-control-key
read-editor-global-header read-editor-global-header
read-editor-global-footer read-editor-global-footer
@ -674,8 +686,6 @@ editor-set-x-selection-mode
get-the-snip-class-list get-the-snip-class-list
get-the-buffer-data-class-list get-the-buffer-data-class-list
graphical-read-eval-print-loop
====================================================================== ======================================================================
4. Constant Mapping 4. Constant Mapping
@ -1085,16 +1095,4 @@ the-color-database only has a find-color method; the others were
TODO: Miscellaneous Cleanup TODO: Miscellaneous Cleanup
----------------------------- -----------------------------
Move the editor margin settings into ps-setup%? null superclass => #f
Blit: b&w in color -> monochrome
null => #f in class
Filter overlapping controls for tabbing!
Add `on-tab' to canvas<%>?
Add a `shutdown?' predicate.
on-new-child method of area-container<%>