--- a/AbstractSettingsApplication.st	Mon Sep 20 11:01:20 2004 +0200
+++ b/AbstractSettingsApplication.st	Mon Sep 20 11:26:57 2004 +0200
@@ -301,6 +301,19 @@
     ^ self updateModifiedChannel.
 !
 
+reopenToolsAfterChangedViewStyleSetting
+    |app transcript|
+
+    DebugView newDebugger.
+    transcript := Transcript current.
+    (transcript notNil and:[transcript isExternalStream not]) ifTrue:[
+        app := transcript topView application.
+        (app respondsTo:#reopenLauncher) ifTrue:[
+            app reopenLauncher.
+        ].
+    ].
+!
+
 saveRequest
     ^ self saveRequestAsking:self askForChangeOnRelease
 !
@@ -5641,6 +5654,8 @@
 
     MenuView showAcceleratorKeys:self showAccelerators value.
 
+    self reopenToolsAfterChangedViewStyleSetting.
+
     "Modified: / 16.12.2002 / 18:06:31 / penk"
 !
 
@@ -9783,8 +9798,7 @@
 !AbstractSettingsApplication::StyleSettingsAppl methodsFor:'actions'!
 
 basicSaveSettings
-
-    | newStyle transcript|
+    |newStyle|
 
     newStyle := self selectedStyle value.
 
@@ -9792,15 +9806,7 @@
         Transcript showCR:'change style to ' , newStyle , ' ...'.
         View defaultStyle:newStyle asSymbol.
     ].
-    DebugView newDebugger.
-    transcript := Transcript current.
-    (transcript notNil and:[transcript isExternalStream not]) ifTrue:[
-        | app|
-        app := transcript topView application.
-        (app respondsTo:#reopenLauncher) ifTrue:[
-            app reopenLauncher.
-        ].
-    ].
+    self reopenToolsAfterChangedViewStyleSetting.
 !
 
 doubleClickAt:aLine
@@ -11259,5 +11265,5 @@
 !AbstractSettingsApplication class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/AbstractSettingsApplication.st,v 1.174 2004-09-16 15:21:58 cg Exp $'
-! !
+    ^ '$Header: /cvs/stx/stx/libtool/AbstractSettingsApplication.st,v 1.175 2004-09-20 09:26:57 ca Exp $'
+! !