From 8bac0b584221f663bef1a188367882edada37b2d Mon Sep 17 00:00:00 2001 From: Eli Barzilay Date: Tue, 30 May 2006 21:43:58 +0000 Subject: [PATCH] removed some redundant uses of class100 svn: r3136 original commit: 3cb131bece3ae71796190f4371dba29a473f496f --- collects/mred/private/app.ss | 1 - collects/mred/private/fontdialog.ss | 1 - collects/mred/private/moredialogs.ss | 9 ++++----- 3 files changed, 4 insertions(+), 7 deletions(-) diff --git a/collects/mred/private/app.ss b/collects/mred/private/app.ss index dbc04ff3..18895010 100644 --- a/collects/mred/private/app.ss +++ b/collects/mred/private/app.ss @@ -1,6 +1,5 @@ (module app mzscheme (require (lib "class.ss") - (lib "class100.ss") (prefix wx: "kernel.ss") "lock.ss" "helper.ss" diff --git a/collects/mred/private/fontdialog.ss b/collects/mred/private/fontdialog.ss index 79c10808..94ba1fa5 100644 --- a/collects/mred/private/fontdialog.ss +++ b/collects/mred/private/fontdialog.ss @@ -1,6 +1,5 @@ (module fontdialog mzscheme (require (lib "class.ss") - (lib "class100.ss") (lib "etc.ss") (lib "list.ss") (prefix wx: "kernel.ss") diff --git a/collects/mred/private/moredialogs.ss b/collects/mred/private/moredialogs.ss index 70b462b3..c72d3511 100644 --- a/collects/mred/private/moredialogs.ss +++ b/collects/mred/private/moredialogs.ss @@ -1,6 +1,5 @@ (module moredialogs mzscheme (require (lib "class.ss") - (lib "class100.ss") (lib "etc.ss") (lib "list.ss") (prefix wx: "kernel.ss") @@ -284,10 +283,10 @@ (letrec ([ok? #f] [f (make-object dialog% "Choose Color" parent)] [done (lambda (ok) (lambda (b e) (set! ok? ok) (send f show #f)))] - [canvas (make-object (class100 canvas% () - (override - [on-paint (lambda () (repaint #f #f))]) - (sequence (super-init f))))] + [canvas (make-object (class canvas% + (define/override (on-paint) + (repaint #f #f)) + (super-new [parent f])))] [p (make-object vertical-pane% f)] [repaint (lambda (s e) (let ([c (make-object wx:color%