From ded1fd6b0eec21db39b4c28ddcd9d7cd20aad66c Mon Sep 17 00:00:00 2001 From: Matthew Flatt Date: Thu, 4 Oct 2001 21:09:48 +0000 Subject: [PATCH] . original commit: 4d671c766e871d8cdde05984cc352858a148f59d --- collects/mred/mred.ss | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) diff --git a/collects/mred/mred.ss b/collects/mred/mred.ss index 4df470c8..3ba52f95 100644 --- a/collects/mred/mred.ss +++ b/collects/mred/mred.ss @@ -3870,11 +3870,11 @@ (send parent after-new-child this)))) (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 (let ([cwho '(constructor editor-canvas)]) (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-gauge-integer cwho scrolls-per-page) (check-string/false cwho label) @@ -3948,8 +3948,8 @@ parent) (when label (set-label label)) - (when buffer - (set-editor buffer)) + (when editor + (set-editor editor)) (send parent after-new-child this)))) ;-------------------- Final panel interfaces and class constructions --------------------