new error icons

svn: r9942

collects/drscheme/private/debug.ss

@@ -178,9 +178,9 @@ profile todo:
                          (super-make-object bitmap))])
                note%))))
     
-    (define bug-note% (make-note% "bug09.png" 'png/mask))
+    (define bug-note% (make-note% "stop-multi.png" 'png/mask))
     (define mf-note% (make-note% "mf.gif" 'gif))
-    (define file-note% (make-note% "file.gif" 'gif))
+    (define file-note% (make-note% "stop-32x32.png" 'gif))
     
     ;; display-stats : (syntax -> syntax)
     ;; count the number of syntax expressions & number of with-continuation-marks in an 

collects/drscheme/private/rep.ss

@@ -510,27 +510,7 @@ TODO
         (if (send bitmap ok?)
             (make-object image-snip% bitmap)
             (make-object string-snip% "[open file]"))))
-    (define docs-icon
-      (let ([bitmap
-             (make-object bitmap%
-               (build-path (collection-path "icons") "book.gif"))])
-        (if (send bitmap ok?)
-            (make-object image-snip% bitmap)
-            (make-object string-snip% "[open file]"))))
-    (define mf-icon 
-      (let ([bitmap
-             (make-object bitmap%
-               (build-path (collection-path "icons") "mf.gif"))])
-        (if (send bitmap ok?)
-            (make-object image-snip% bitmap)
-            (make-object string-snip% "[mf]"))))
-    (define bug-icon 
-      (let ([bitmap
-             (make-object bitmap%
-               (build-path (collection-path "icons") "bug09.png"))])
-        (if (send bitmap ok?)
-            (make-object image-snip% bitmap)
-            (make-object string-snip% "[err]"))))
+    
     
     ;; insert/delta : (instanceof text%) (union snip string) (listof style-delta%) *-> (values number number)
     ;; inserts the string/stnip into the text at the end and changes the