From 7158514a79aa14fb8d8c5fd2f4c5d56bcb9bf7c9 Mon Sep 17 00:00:00 2001 From: Matthew Flatt Date: Tue, 24 Feb 2004 23:41:26 +0000 Subject: [PATCH] . original commit: 8d79547f58bd792f7df1bb617d1d7a4973778064 --- collects/mred/mred.ss | 12 ++++++------ collects/mred/private/kernel.ss | 1 + 2 files changed, 7 insertions(+), 6 deletions(-) diff --git a/collects/mred/mred.ss b/collects/mred/mred.ss index 7b38b4d5..4053691b 100644 --- a/collects/mred/mred.ss +++ b/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) ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; diff --git a/collects/mred/private/kernel.ss b/collects/mred/private/kernel.ss index b8a1d353..03a3a0ad 100644 --- a/collects/mred/private/kernel.ss +++ b/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)