From 4bc904ce076bfe792417c34e777ca85f44530e76 Mon Sep 17 00:00:00 2001
From: Matthew Flatt <mflatt@racket-lang.org>
Date: Thu, 4 Sep 2003 03:22:29 +0000
Subject: [PATCH] .

original commit: f424d084f5257f47938cfb3d7f5d744a89e2e845
---
 collects/mred/mred.ss | 13 +++++++------
 1 file changed, 7 insertions(+), 6 deletions(-)

diff --git a/collects/mred/mred.ss b/collects/mred/mred.ss
index f4b2b0c0..7fb7ad19 100644
--- a/collects/mred/mred.ss
+++ b/collects/mred/mred.ss
@@ -6821,11 +6821,12 @@
 	  ((if async? (lambda (x) (process x) #t) system)
 	   (format (unbox b) (expand-path f)))))))
 
-(define (get-display-size)
-  (let ([xb (box 0)]
-	[yb (box 0)])
-    (wx:display-size xb yb)
-    (values (unbox xb) (unbox yb))))
+(define get-display-size
+  (opt-lambda ([full-screen? #f])
+    (let ([xb (box 0)]
+	  [yb (box 0)])
+      (wx:display-size xb yb (if full-screen? 1 0))
+      (values (unbox xb) (unbox yb)))))
 
 ;; Currently only used for PS print and preview
 (wx:set-executer
@@ -7241,7 +7242,7 @@
 
 (define (get-family-builtin-face family)
   (unless (memq family '(default decorative roman script swiss modern system symbol))
-    (raise-type-error 'get-default-face "family symbol" family))
+    (raise-type-error 'get-family-builtin-face "family symbol" family))
   (case (system-type)
     [(unix)
      ;; Detect Xft by looking for a font with a space in front of its name: