removed some redundant uses of class100

svn: r3136

collects/games/games.ss

@@ -2,7 +2,6 @@
   (require (lib "mred.ss" "mred")
 	   (lib "class.ss")
            (lib "unit.ss")
-	   (lib "class100.ss")
 	   (lib "list.ss")
            (lib "getinfo.ss" "setup")
 	   (lib "bitmap-label.ss" "mrlib")

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"

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")

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% 

collects/mred/private/wxgroupbox.ss

@@ -1,6 +1,5 @@
 (module wxgroupbox mzscheme
   (require (lib "class.ss")
-	   (lib "class100.ss")
 	   (prefix wx: "kernel.ss")
 	   "lock.ss"
 	   "wx.ss"

collects/mred/private/wxtabgroup.ss

@@ -1,6 +1,5 @@
 (module wxtabgroup mzscheme
   (require (lib "class.ss")
-	   (lib "class100.ss")
 	   (prefix wx: "kernel.ss")
 	   "lock.ss"
 	   "wx.ss"