From b0833496993ed257bda07371cdaec6f039e11457 Mon Sep 17 00:00:00 2001
From: Mike MacHenry <dskippy@ccs.neu.edu>
Date: Thu, 18 Dec 2003 23:50:56 +0000
Subject: [PATCH] ...

original commit: e2feb3c3731402afb70ca2b2e59c23632884f4b1
---
 .../private/fixed-width-label-snip.ss         | 27 +++++++++----------
 1 file changed, 13 insertions(+), 14 deletions(-)

diff --git a/collects/test-suite/private/fixed-width-label-snip.ss b/collects/test-suite/private/fixed-width-label-snip.ss
index dc3cedfb..db81e592 100644
--- a/collects/test-suite/private/fixed-width-label-snip.ss
+++ b/collects/test-suite/private/fixed-width-label-snip.ss
@@ -3,8 +3,7 @@
   (require
    (lib "class.ss")
    (lib "list.ss")
-   (lib "mred.ss" "mred")
-   (lib "debug.ss" "mike-lib"))
+   (lib "mred.ss" "mred"))
   
   (provide fixed-width-label-snip)
   
@@ -19,7 +18,7 @@
          (top-margin 5)
          (bottom-margin 5))
         
-        (field [font (make-object font% 12 'roman 'normal 'normal)])
+        (field [font (make-object font% 10 'roman 'normal 'normal)])
         
         (unless (member label labels)
           (error 'fixed-width-label-snip
@@ -101,15 +100,15 @@
   ;;;;;;;;;;
   ;; tests
   
-  (define mylabels (list "Call" "Expected" "Actual"))
-  (define label% (fixed-width-label-snip mylabels))
-  (define align? #t)
-  (define f (new frame% (label "test") (width 175) (height 175)))
-  (define e (new pasteboard%))
-  (define c (new editor-canvas% (editor e) (parent f)))
-  (for-each
-   (lambda (s)
-     (send e insert (new label% (label s))))
-   '("Expected"))
-  (send f show #t)
+  ;(define mylabels (list "Call" "Expected" "Actual"))
+  ;(define label% (fixed-width-label-snip mylabels))
+  ;(define align? #t)
+  ;(define f (new frame% (label "test") (width 175) (height 175)))
+  ;(define e (new pasteboard%))
+  ;(define c (new editor-canvas% (editor e) (parent f)))
+  ;(for-each
+  ; (lambda (s)
+  ;   (send e insert (new label% (label s))))
+  ; '("Expected"))
+  ;(send f show #t)
   )
\ No newline at end of file