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

removed some redundant uses of class100

Browse Source 
svn: r3136

original commit: 3cb131bece3ae71796190f4371dba29a473f496f
This commit is contained in:
Eli Barzilay 2006-05-30 21:43:58 +00:00
parent 36b497cb42
commit 8bac0b5842
3 changed files with 4 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
collects/mred/private/app.ss
View File

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

1
collects/mred/private/fontdialog.ss
View File

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

9
collects/mred/private/moredialogs.ss
View File

@ -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%