From a090aa60a91b4ea1a6ec25fcbd54194c3db605dc Mon Sep 17 00:00:00 2001
From: Matthew Flatt <mflatt@racket-lang.org>
Date: Sun, 9 Aug 2009 13:46:20 +0000
Subject: [PATCH] fix multiple registration of make-line-snip snipclass

svn: r15691
---
 collects/embedded-gui/private/lines.ss | 10 ++++++----
 1 file changed, 6 insertions(+), 4 deletions(-)

diff --git a/collects/embedded-gui/private/lines.ss b/collects/embedded-gui/private/lines.ss
index 2e2a04d6f2..5f24dafafb 100644
--- a/collects/embedded-gui/private/lines.ss
+++ b/collects/embedded-gui/private/lines.ss
@@ -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