fixed PR 8701

svn: r6333
2007-05-26 02:47:46 +00:00 · 2007-05-26 02:47:46 +00:00 · 9da97974fa
commit 9da97974fa
parent 574c9b5f78
1 changed files with 1 additions and 0 deletions
--- a/collects/framework/private/scheme.ss
+++ b/collects/framework/private/scheme.ss
@ -1721,6 +1721,7 @@
        (send define-regexp-text set-value (or (object-name (caddr pref)) ""))
        (send lambda-regexp-text set-value (or (object-name (cadddr pref)) ""))))
    (preferences:add-callback 'framework:tabify (λ (p v) (update-gui v)))
+    (update-gui (preferences:get 'framework:tabify))
    main-panel)
      
      )