From db663a88652f4b12d20915a1b393718c75b4bf0b Mon Sep 17 00:00:00 2001
From: Mike MacHenry <dskippy@ccs.neu.edu>
Date: Mon, 15 Dec 2003 19:21:57 +0000
Subject: [PATCH] made decorated-editor-snip into a mixin

original commit: a3b7f2c0312f7fc5eafc09c68c5294336d486dbc
---
 collects/framework/decorated-editor-snip.ss | 54 ++++++++++++---------
 1 file changed, 30 insertions(+), 24 deletions(-)

diff --git a/collects/framework/decorated-editor-snip.ss b/collects/framework/decorated-editor-snip.ss
index 6fde9260..f97e2206 100644
--- a/collects/framework/decorated-editor-snip.ss
+++ b/collects/framework/decorated-editor-snip.ss
@@ -1,22 +1,14 @@
 
 (module decorated-editor-snip mzscheme
   (provide decorated-editor-snip%
-           decorated-editor-snipclass%)
+           decorated-editor-snipclass%
+           decorated-editor-snip-mixin)
 
   (require (lib "class.ss")
            (lib "mred.ss" "mred"))
   
-  (define decorated-editor-snip%
-    (class editor-snip% 
-      (inherit get-editor get-style)
-      
-      ;; make-snip : -> this%
-      ;; returns an instance of this class. used in the copy method
-      (define/public (make-snip) (make-object decorated-editor-snip%))
-      
-      ;; make-editor : -> editor<%>
-      ;; returns the editor to be used in this snip.
-      (define/public (make-editor) (make-object text%))
+  (define (decorated-editor-snip-mixin super%)
+    (class super%
       
       ;; get-corner-bitmap : -> (union #f (is-a?/c bitmap%))
       ;; returns the bitmap to be shown in the top right corner.
@@ -150,16 +142,6 @@
             (send dc set-pen old-pen)
             (send dc set-brush old-brush))))
       
-      (define/override write
-        (lambda (stream-out)
-          (send (get-editor) write-to-file stream-out 0 'eof)))
-
-      (define/override (copy)
-        (let ([snip (make-snip)])
-          (send snip set-editor (send (get-editor) copy-self))
-          (send snip set-style (get-style))
-          snip))
-      
       (inherit set-min-width set-min-height get-margin)
       (define/public (reset-min-sizes)
         (let ([bm (get-corner-bitmap)])
@@ -188,14 +170,38 @@
                          (send bm get-width)
                          0)))]
                [else 4])])
-        (super-instantiate ()
-          (editor (make-editor))
+        (super-new
           (with-border? #f)
           (top-margin top-margin)
           (left-margin left-margin)))
       
       (reset-min-sizes)))
   
+  (define decorated-editor-snip%
+    (class (decorated-editor-snip-mixin editor-snip%)
+      (inherit get-editor get-style)
+      
+      ;; make-snip : -> this%
+      ;; returns an instance of this class. used in the copy method
+      (define/public (make-snip) (make-object decorated-editor-snip%))
+      
+      ;; make-editor : -> editor<%>
+      ;; returns the editor to be used in this snip.
+      (define/public (make-editor) (make-object text%))
+      
+      (define/override write
+        (lambda (stream-out)
+          (send (get-editor) write-to-file stream-out 0 'eof)))
+
+      (define/override (copy)
+        (let ([snip (make-snip)])
+          (send snip set-editor (send (get-editor) copy-self))
+          (send snip set-style (get-style))
+          snip))
+      
+        (super-new
+          (editor (make-editor)))))
+  
   (define decorated-editor-snipclass%
     (class snip-class%