From 018f2b3f9cc61673804b84f25b22d15a2e667512 Mon Sep 17 00:00:00 2001 From: Matthew Flatt Date: Thu, 14 Jan 1999 22:25:08 +0000 Subject: [PATCH] . original commit: be3259e1245b4da5defde9c64f29e910bbc2c562 --- src/mred/wrap/mred.ss | 12 +++++++----- 1 file changed, 7 insertions(+), 5 deletions(-) diff --git a/src/mred/wrap/mred.ss b/src/mred/wrap/mred.ss index 2b362c95..f2168a82 100644 --- a/src/mred/wrap/mred.ss +++ b/src/mred/wrap/mred.ss @@ -1645,7 +1645,7 @@ ;--------------------- wx Panel Classes ------------------------- (define wx:windowless-panel% - (class null (parent x y w h style) + (class object% (parent x y w h style) (private [pos-x 0] [pos-y 0] [width 1] [height 1]) (public @@ -1669,7 +1669,8 @@ [get-x (lambda () pos-x)] [get-y (lambda () pos-y)] [get-width (lambda () width)] - [get-height (lambda () height)]))) + [get-height (lambda () height)]) + (sequence (super-init)))) (define wx-basic-panel<%> (interface ())) @@ -2488,10 +2489,11 @@ (define widget-table (make-hash-table-weak)) (define mred% - (class null (wx) + (class object% (wx) (sequence ; (unless (eq? monitor-owner (current-thread)) (error 'init-mred% "not in monitored area")) - (hash-table-put! widget-table this (make-weak-box wx))))) + (hash-table-put! widget-table this (make-weak-box wx)) + (super-init)))) (define (mred->wx w) ; (unless (eq? monitor-owner (current-thread)) (error 'mred->wx "not in monitored area")) @@ -4016,7 +4018,7 @@ (let ([e (last-position)]) (insert #\newline) (change-style - (send (make-object wx:style-delta% 'change-style 'slant) set-delta-foreground "RED") + (send (make-object wx:style-delta% 'change-italic) set-delta-foreground "RED") s e))) (insert "The current input port always returns eof.") (insert #\newline) (new-prompt))))