.

original commit: eb362f1ccadad9cafaad6fdd46a0309f883e0bb1

collects/mred/edit.ss

@@ -56,6 +56,20 @@
     (append-editor-operation-menu-items edit-menu #f)
 
     (append-editor-font-menu-items font-menu)
+    (let ([m (make-object menu% "Smoothing" font-menu)])
+      (let ([mk (lambda (name v)
+		  (make-object menu-item% name m
+			       (lambda (i e)
+				 (let* ([o (send f get-edit-target-object)])
+				   (and o
+					(o . is-a? . editor<%>)
+					(send o change-style 
+					      (make-object style-delta% 'change-smoothing v)))))))])
+	(mk "Default" 'family+size-default)
+	(mk "System Default" 'system-default)
+	(mk "Smoothed" 'smoothed)
+	(mk "Not Smoothed" 'unsmoothed)))
+
     ((current-text-keymap-initializer) (send e get-keymap))
     (send c set-editor e)
 

collects/mred/private/kernel.ss

@@ -505,6 +505,7 @@
   (define-class font% object% #f
     get-font-id
     get-underlined
+    get-smoothing
     get-weight
     get-point-size
     get-style
@@ -1327,6 +1328,10 @@
     set-weight-on
     get-weight-off
     set-weight-off
+    get-smoothing-on
+    set-smoothing-on
+    get-smoothing-off
+    set-smoothing-off
     get-style-on
     set-style-on
     get-style-off
@@ -1366,6 +1371,7 @@
     get-foreground
     get-font
     get-underlined
+    get-smoothing
     get-style
     get-weight
     get-size