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

.

Browse Source 
original commit: 4d671c766e871d8cdde05984cc352858a148f59d
This commit is contained in:
Matthew Flatt 2001-10-04 21:09:48 +00:00
parent f3d487fb7a
commit ded1fd6b0e
1 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
collects/mred/mred.ss
View File

@ -3870,11 +3870,11 @@
(send parent after-new-child this)))) (send parent after-new-child this))))
(define editor-canvas% (define editor-canvas%
(class100 basic-canvas% (parent [buffer #f] [style null] [scrolls-per-page 100] [label #f]) (class100 basic-canvas% (parent [editor #f] [style null] [scrolls-per-page 100] [label #f])
(sequence (sequence
(let ([cwho '(constructor editor-canvas)]) (let ([cwho '(constructor editor-canvas)])
(check-container-parent cwho parent) (check-container-parent cwho parent)
(check-instance cwho internal-editor<%> "text% or pasteboard%" #t buffer) (check-instance cwho internal-editor<%> "text% or pasteboard%" #t editor)
(check-style cwho #f '(hide-vscroll hide-hscroll no-vscroll no-hscroll) style) (check-style cwho #f '(hide-vscroll hide-hscroll no-vscroll no-hscroll) style)
(check-gauge-integer cwho scrolls-per-page) (check-gauge-integer cwho scrolls-per-page)
(check-string/false cwho label) (check-string/false cwho label)
@ -3948,8 +3948,8 @@
parent) parent)
(when label (when label
(set-label label)) (set-label label))
(when buffer (when editor
(set-editor buffer)) (set-editor editor))
(send parent after-new-child this)))) (send parent after-new-child this))))
;-------------------- Final panel interfaces and class constructions -------------------- ;-------------------- Final panel interfaces and class constructions --------------------