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

.

Browse Source 
original commit: 1a68ab9bf6811967a3ea6bfd9b9cb19e572c58ac
This commit is contained in:
Matthew Flatt 2001-07-15 23:24:27 +00:00
parent b86f4f8ff6
commit 67c2782508
1 changed files with 8 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
collects/mred/mred.ss
View File

@ -5807,6 +5807,14 @@
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; 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")))))
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(wx:set-dialogs get-file put-file get-ps-setup-from-user message-box)
(define-syntax propagate