.

original commit: 14dc1029abed6fd8eb6d4c18f51307099fee2cdb
2003-09-10 01:52:51 +00:00 · 2003-09-10 01:52:51 +00:00 · 9bd01eacd3
commit 9bd01eacd3
parent 8643895ec0
1 changed files with 5 additions and 0 deletions
--- a/collects/mred/edit.ss
+++ b/collects/mred/edit.ss
@ -54,6 +54,11 @@
 		 #\Q)

    (append-editor-operation-menu-items edit-menu #f)
+    (when (eq? editor% text%)
+      (make-object separator-menu-item% edit-menu)
+      (make-object checkable-menu-item% "Wrap Lines" edit-menu
+		   (lambda (item event)
+		     (send e auto-wrap (send item is-checked?)))))

    (append-editor-font-menu-items font-menu)
    (let ([m (make-object menu% "Smoothing" font-menu)])