From 2ef66bbdbbc03507ac0a53da166cb309d84acd41 Mon Sep 17 00:00:00 2001
From: Robby Findler <robby@racket-lang.org>
Date: Tue, 13 Nov 2001 15:48:32 +0000
Subject: [PATCH] ...

original commit: 4ba3e770d98ea00f2237c5e124f7143064454e6b
---
 collects/framework/private/group.ss | 14 +++++++++++++-
 collects/framework/private/text.ss  |  7 +++++--
 2 files changed, 18 insertions(+), 3 deletions(-)

diff --git a/collects/framework/private/group.ss b/collects/framework/private/group.ss
index 49ac0c0e..a4d3d0ba 100644
--- a/collects/framework/private/group.ss
+++ b/collects/framework/private/group.ss
@@ -1,3 +1,15 @@
+#|
+
+these should line up!
+
+	aaa
+        aaa
+	aaa
+        aaa
+	aaa
+        aaa
+
+|#
 
 (module group mzscheme
   (require (lib "string-constant.ss" "string-constants")
@@ -40,7 +52,7 @@
           [define get-windows-menu
             (lambda (frame)
               (let ([menu-bar (send frame get-menu-bar)])
-                (and menu-bar
+		(and menu-bar
                      (let ([menus (send menu-bar get-items)])
                        (ormap (lambda (x)
                                 (if (string=? (string-constant windows-menu-label) (send x get-label))
diff --git a/collects/framework/private/text.ss b/collects/framework/private/text.ss
index 489ede03..88dafb2d 100644
--- a/collects/framework/private/text.ss
+++ b/collects/framework/private/text.ss
@@ -21,7 +21,8 @@
               [keymap : framework:keymap^]
               [gui-utils : framework:gui-utils^]
               [color-model : framework:color-model^]
-              [frame : framework:frame^])
+              [frame : framework:frame^]
+              [scheme : framework:scheme^])
       
       (rename [-keymap% keymap%])
       
@@ -383,7 +384,7 @@
       (define delegate-mixin
         (mixin (basic<%>) (delegate<%>) 
           (inherit split-snip find-snip get-snip-position
-                   find-first-snip get-style-list)
+                   find-first-snip get-style-list set-tabs)
           
           (field (delegate #f))
           (define/public (get-delegate) delegate)
@@ -392,6 +393,8 @@
             (when delegate
               (send delegate begin-edit-sequence)
               (send delegate lock #f)
+              (when (is-a? this scheme:text<%>)
+                (send delegate set-tabs null (send this get-tab-size) #f))
               (send delegate hide-caret #t)
               (send delegate erase)
               (send delegate set-style-list (get-style-list))