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

fix multiple registration of make-line-snip snipclass

Browse Source 
svn: r15691
This commit is contained in:
Matthew Flatt 2009-08-09 13:46:20 +00:00
parent d045ab43f6
commit a090aa60a9
1 changed files with 6 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
collects/embedded-gui/private/lines.ss
View File

@ -19,7 +19,7 @@
(super-new
(snip (new vline-snip%)))))
(define (make-line-snip draw-line stretch-w stretch-h)
(define (make-line-snip draw-line stretch-w stretch-h classname)
(letrec ([c (class* snip% (stretchable-snip<%>)
(field
@ -101,7 +101,7 @@
(define/override (read f)
(new c))
(super-new)))])
(send sc set-classname "make-line-snip")
(send sc set-classname classname)
(send sc set-version 1)
(send (get-the-snip-class-list) add sc)
c))
@ -112,14 +112,16 @@
(lambda (dc x y width height)
(send dc draw-line x (+ y (/ height 2)) (+ x width) (+ y (/ height 2))))
true
false))
false
"make-hline-snip"))
(define vline-snip%
(make-line-snip
(lambda (dc x y width height)
(send dc draw-line (+ x (/ width 2)) y (+ x (/ width 2)) (+ y height)))
false
true))
true
"make-line-snip"))
#|
(require