...

original commit: 306ac214d207477f7643cfdffd8ee482f9d22c26
2000-07-27 03:44:55 +00:00 · 2000-07-27 03:44:55 +00:00 · 687cff5646
commit 687cff5646
parent c1467860ae
1 changed files with 8 additions and 0 deletions
--- a/collects/help/help.ss
+++ b/collects/help/help.ss
@ -37,6 +37,14 @@
 (define frame-mixin values)
 (define (user-defined-doc-position x) #f)

+(preferences:set-default
+ 'drscheme:font-size
+ (send (send (send (make-object text%) 
+		   get-style-list)
+	     basic-style)
+       get-size)
+ (lambda (x) (and (number? x) (exact? x) (= x (floor x)))))
+
 (define-values/invoke-unit/sig help:help^
  (require-relative-library "helpr.ss")
  #f