From 57b2dd2903cf7cb807c48a8a8c28f52a2b7ff1a4 Mon Sep 17 00:00:00 2001
From: John Clements <clements@racket-lang.org>
Date: Tue, 17 Oct 2006 22:50:13 +0000
Subject: [PATCH] added vertical-separator-snip for pickle-ability

svn: r4621
---
 collects/stepper/private/mred-extensions.ss      | 16 ++++++++++------
 .../stepper/private/vertical-separator-snip.ss   |  9 +++++++++
 2 files changed, 19 insertions(+), 6 deletions(-)
 create mode 100644 collects/stepper/private/vertical-separator-snip.ss

diff --git a/collects/stepper/private/mred-extensions.ss b/collects/stepper/private/mred-extensions.ss
index d67217d323..2026f69d83 100644
--- a/collects/stepper/private/mred-extensions.ss
+++ b/collects/stepper/private/mred-extensions.ss
@@ -13,7 +13,8 @@
    stepper-text%
    snip?
    stepper-warning%
-   finished-text)
+   finished-text
+   vertical-separator-snip-class%)
    
   (define test-dc (make-object bitmap-dc% (make-object bitmap% 1 1)))
   (define reduct-highlight-color (make-object color% 255 255 255))
@@ -36,9 +37,8 @@
   (unless (send red-arrow-bitmap ok?)
     (error 'red-arrow-bitmap "unable to load red-arrow bitmap"))
   
-  (define vertical-separator-snipclass
-    (make-object
-     (class snip-class% ()
+  (define vertical-separator-snip-class%
+    (class snip-class% ()
        (override read)
        
        (define (read s)
@@ -46,11 +46,15 @@
            (send s get size-box)
            (make-object vertical-separator-snip% 100)))
        
-       (super-instantiate ()))))
+       (super-instantiate ())))
+  
+  (define vertical-separator-snipclass
+    (make-object vertical-separator-snip-class%))
+  
   
   (send* vertical-separator-snipclass
     (set-version 1)
-    (set-classname "drscheme:vertical-separator-snip%"))
+    (set-classname (format "~s" `(lib "vertical-separator-snip.ss" "stepper" "private"))))
   
   (send (get-the-snip-class-list) add vertical-separator-snipclass)
   
diff --git a/collects/stepper/private/vertical-separator-snip.ss b/collects/stepper/private/vertical-separator-snip.ss
new file mode 100644
index 0000000000..08c44d7e21
--- /dev/null
+++ b/collects/stepper/private/vertical-separator-snip.ss
@@ -0,0 +1,9 @@
+(module vertical-separator-snip mzscheme
+  (require (lib "mred.ss" "mred")
+	   (lib "class.ss")
+           "mred-extensions.ss")
+  
+  (provide snip-class)
+  (define snip-class (make-object vertical-separator-snip-class%))
+  (send snip-class set-classname (format "~s" `(lib "vertical-separator-snip.ss" "stepper" "private")))
+  (send (get-the-snip-class-list) add snip-class))