.

original commit: 8d79547f58bd792f7df1bb617d1d7a4973778064

collects/mred/mred.ss

@@ -8,7 +8,8 @@
 	   (lib "list.ss")
 	   (lib "process.ss")
 	   (lib "moddep.ss" "syntax")
-           "private/seqcontract.ss")
+           "private/seqcontract.ss"
+	   "afm.ss")
 
 ;;;;;;;;;;;;;;; Constants ;;;;;;;;;;;;;;;;;;;;
 
@@ -7423,11 +7424,10 @@
 
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 
-;; Initialize AFM path:
-(with-handlers ([not-break-exn? void])
-  (let ([pss (wx:current-ps-setup)])
-    (unless (send pss get-afm-path)
-      (send pss set-afm-path (collection-path "afm")))))
+;; Initialize AFM/PS:
+(wx:set-ps-draw-text/get-text-extent
+ afm-draw-text
+ afm-get-text-extent)
 
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 

collects/mred/private/kernel.ss

@@ -1484,6 +1484,7 @@
     file-creator-and-type
     set-snip-class-getter
     set-editor-data-class-getter
+    set-ps-draw-text/get-text-extent
     main-eventspace?
     eventspace-handler-thread)