--- a/MultiViewToolApplication.st	Fri Jul 13 11:56:54 2007 +0200
+++ b/MultiViewToolApplication.st	Mon Jul 16 09:06:00 2007 +0200
@@ -43,6 +43,20 @@
 "
 ! !
 
+!MultiViewToolApplication class methodsFor:'defaults'!
+
+defaultInfoVisible
+    ^ DefaultInfoVisible ? true
+
+    "Created: / 14-07-2007 / 16:38:32 / cg"
+!
+
+defaultToolbarVisible
+    ^ DefaultToolBarVisible ? false
+
+    "Created: / 14-07-2007 / 16:38:47 / cg"
+! !
+
 !MultiViewToolApplication class methodsFor:'help specs'!
 
 helpSpec
@@ -446,6 +460,8 @@
         nil
         nil
       )
+
+    "Modified: / 14-07-2007 / 16:49:04 / cg"
 ! !
 
 !MultiViewToolApplication class methodsFor:'queries'!
@@ -525,13 +541,14 @@
     |holder|
 
     (holder := builder bindingAt:#infoVisibleHolder) isNil ifTrue:[
-        holder := (DefaultInfoVisible ? true) asValue.
+        holder := self class defaultInfoVisible asValue.
         builder aspectAt:#infoVisibleHolder put: holder.
         holder addDependent:self.
     ].
     ^ holder
 
     "Created: / 18-02-2007 / 15:01:05 / cg"
+    "Modified: / 14-07-2007 / 16:39:20 / cg"
 !
 
 selectedWorkspaceIndexHolder
@@ -553,13 +570,14 @@
     |holder|
 
     (holder := builder bindingAt:#toolBarVisibleHolder) isNil ifTrue:[
-        holder := (DefaultToolBarVisible ? false) asValue.
+        holder := self class defaultToolbarVisible asValue.
         builder aspectAt:#toolBarVisibleHolder put: holder.
         holder addDependent:self.
     ].
     ^ holder
 
     "Created: / 18-02-2007 / 14:43:39 / cg"
+    "Modified: / 14-07-2007 / 16:39:55 / cg"
 ! !
 
 !MultiViewToolApplication methodsFor:'aspects-queries'!
@@ -591,9 +609,13 @@
         self toolBarVisibilityChanged.
         ^ self
     ].
+    changedObject == self infoVisibleHolder ifTrue:[
+        self infoVisibilityChanged.
+        ^ self
+    ].
     ^ super update:something with:aParameter from:changedObject
 
-    "Modified: / 18-02-2007 / 14:45:53 / cg"
+    "Modified: / 14-07-2007 / 16:46:14 / cg"
 ! !
 
 !MultiViewToolApplication methodsFor:'defaults'!
@@ -1055,5 +1077,5 @@
 !MultiViewToolApplication class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/MultiViewToolApplication.st,v 1.16 2007-03-15 10:54:57 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/MultiViewToolApplication.st,v 1.17 2007-07-16 07:06:00 cg Exp $'
 ! !