suzanne.soy/gui
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

.

Browse Source 
original commit: 8d79547f58bd792f7df1bb617d1d7a4973778064
This commit is contained in:
Matthew Flatt 2004-02-24 23:41:26 +00:00
parent 802cb6c7d8
commit 7158514a79
2 changed files with 7 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
collects/mred/mred.ss
View File

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

1
collects/mred/private/kernel.ss
View File

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