.

original commit: b58dd97194b162bce69d7ae13d1b750e0e6f3615

collects/mred/mred.ss

@@ -5468,6 +5468,33 @@
     (wx:display-size xb yb)
     (values (unbox xb) (unbox yb))))
 
+;; Currently only used for PS print and preview
+(wx:set-executer
+ (let ([orig-err (current-error-port)])
+   (lambda (prog . args)
+     (let ([cmd (string-append
+		 prog 
+		 (let loop ([args args])
+		   (if (null? args)
+		       ""
+		       (format " ~s~a" (car args) (loop (cdr args))))))])
+       (let-values ([(in out pid err x) (apply values (process cmd))])
+	 (close-output-port out)
+	 (let ([echo (lambda (p)
+		       (thread (lambda ()
+				 (dynamic-wind
+				     void
+				     (lambda ()
+				       (let loop ()
+					 (let ([l (read-line p)])
+					   (unless (eof-object? l)
+					     (fprintf orig-err "~a~n" l)
+					     (loop)))))
+				     (lambda () (close-input-port p))))))])
+	   (echo in)
+	   (echo err)
+	   (void)))))))
+
 (define register-collecting-blit
   (case-lambda
    [(canvas x y w h on off) (register-collecting-blit canvas x y w h on off 0 0 0 0)]

collects/mred/private/kernel.ss

@@ -634,9 +634,7 @@
     force-display-focus
     is-focus-on?
     get-editor
-    set-editor
-    get-wheel-step
-    set-wheel-step)
+    set-editor)
   (define-class editor-admin% object% #f
     refresh-delayed?
     popup-menu
@@ -1397,7 +1395,8 @@
     set-pasteboard-editor-maker
     set-menu-tester
     location->window
-    set-dialogs)
+    set-dialogs
+    set-executer)
 
 )
 ;; end

notes/mred/HISTORY

@@ -1,4 +1,10 @@
 
+Version 199.27:
+
+ * X: when an external program is executed for PS printing or preview,
+   command-line flags can be supplied, and the stdout/stderr output of
+   the program is directed to MrEd's original stderr.
+
 Version 199.26:
 
  * Added a `use-paper-bbox?' initialization argument to