From e33373486749ea9639936e1f93b985bf5f679bfe Mon Sep 17 00:00:00 2001
From: Robby Findler <robby@racket-lang.org>
Date: Mon, 12 Apr 2010 15:52:15 +0000
Subject: [PATCH] got rid of some bouncing

svn: r18796
---
 .../drscheme/private/module-language-tools.ss | 61 ++++++++++---------
 1 file changed, 32 insertions(+), 29 deletions(-)

diff --git a/collects/drscheme/private/module-language-tools.ss b/collects/drscheme/private/module-language-tools.ss
index 637b145881..2ea943582d 100644
--- a/collects/drscheme/private/module-language-tools.ss
+++ b/collects/drscheme/private/module-language-tools.ss
@@ -135,36 +135,39 @@
 
       (inherit get-tab)
       (define/private (register-new-buttons buttons opt-out-ids)
+        
         (let* ([tab (get-tab)]
-               [frame (send tab get-frame)]
-               [directly-specified-buttons
-                (map (λ (button-spec)
-                       (new switchable-button%
-                            [label (list-ref button-spec 0)]
-                            [bitmap (list-ref button-spec 1)]
-                            [parent (send frame get-toolbar-button-panel)]
-                            [callback
-                             (lambda (button)
-                               ((list-ref button-spec 2) frame))]))
-                     (or buttons '()))]
-               [opt-out-buttons
-                (if (eq? opt-out-ids #f)
-                    '()
-                    (map
-                     (λ (opt-out-toolbar-button)
-                       ((opt-out-toolbar-button-make-button opt-out-toolbar-button) 
-                        frame
-                        (send frame get-toolbar-button-panel)))
-                     (filter (λ (opt-out-toolbar-button)
-                               (not (member (opt-out-toolbar-button-id opt-out-toolbar-button) 
-                                            opt-out-ids)))
-                             opt-out-toolbar-buttons)))])
-          (send tab set-lang-toolbar-buttons
-                (sort
-                 (append directly-specified-buttons
-                         opt-out-buttons)
-                 string<=?
-                 #:key (λ (x) (send x get-label))))))
+               [frame (send tab get-frame)])
+          (send frame begin-container-sequence)
+          (let ([directly-specified-buttons
+                 (map (λ (button-spec)
+                        (new switchable-button%
+                             [label (list-ref button-spec 0)]
+                             [bitmap (list-ref button-spec 1)]
+                             [parent (send frame get-toolbar-button-panel)]
+                             [callback
+                              (lambda (button)
+                                ((list-ref button-spec 2) frame))]))
+                      (or buttons '()))]
+                [opt-out-buttons
+                 (if (eq? opt-out-ids #f)
+                     '()
+                     (map
+                      (λ (opt-out-toolbar-button)
+                        ((opt-out-toolbar-button-make-button opt-out-toolbar-button) 
+                         frame
+                         (send frame get-toolbar-button-panel)))
+                      (filter (λ (opt-out-toolbar-button)
+                                (not (member (opt-out-toolbar-button-id opt-out-toolbar-button) 
+                                             opt-out-ids)))
+                              opt-out-toolbar-buttons)))])
+            (send tab set-lang-toolbar-buttons
+                  (sort
+                   (append directly-specified-buttons
+                           opt-out-buttons)
+                   string<=?
+                   #:key (λ (x) (send x get-label)))))
+          (send frame end-container-sequence)))
       
       (inherit get-text)
       (define/private (get-lang-name pos)