--- a/NewSystemBrowser.st	Sat Nov 07 16:56:29 2009 +0100
+++ b/NewSystemBrowser.st	Sat Nov 07 16:56:51 2009 +0100
@@ -11199,6 +11199,19 @@
           )
          (MenuItem
             label: '-'
+            isVisible: classWizardVisibleHolder
+          )
+         (MenuItem
+            label: 'Class Wizard'
+            itemValue: classMenuOpenClassCreationWizard
+            translateLabel: true
+            isButton: true
+            isVisible: classWizardVisibleHolder
+            hideMenuOnActivated: false
+            labelImage: (ResourceRetriever ToolbarIconLibrary newClassWizardIcon)
+          )
+         (MenuItem
+            label: '-'
             isVisible: hasAnyTestCaseOrExecutableClassMethodSelectedHolder
           )
          (MenuItem
@@ -12893,6 +12906,11 @@
     ^ mclass
 !
 
+classWizardVisibleHolder
+    ^ true.
+    "/ ^ builder booleanValueAspectFor:#classWizardVisibleHolder
+!
+
 currentClass
     "the current buffers single selected class;
      nil if no selection or if multiple classes are selected"
@@ -14939,6 +14957,8 @@
     selectedClassesHolder := self selectedClasses.
     selectedClasses := selectedClassesHolder value.
 
+    "/ self classWizardVisibleHolder value:(selectedClasses size == 0).
+
     (navigationState isClassDocumentationBrowser) ifTrue:[
         "/ kludge - docBrowser can only show one single class
         selectedClasses size > 1 ifTrue:[
@@ -43514,11 +43534,11 @@
 !NewSystemBrowser class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/Attic/NewSystemBrowser.st,v 1.1409 2009-11-07 10:37:00 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/Attic/NewSystemBrowser.st,v 1.1410 2009-11-07 15:56:51 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libtool/Attic/NewSystemBrowser.st,v 1.1409 2009-11-07 10:37:00 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/Attic/NewSystemBrowser.st,v 1.1410 2009-11-07 15:56:51 cg Exp $'
 ! !
 
 NewSystemBrowser initialize!

--- a/Tools__NewSystemBrowser.st	Sat Nov 07 16:56:29 2009 +0100
+++ b/Tools__NewSystemBrowser.st	Sat Nov 07 16:56:51 2009 +0100
@@ -11199,6 +11199,19 @@
           )
          (MenuItem
             label: '-'
+            isVisible: classWizardVisibleHolder
+          )
+         (MenuItem
+            label: 'Class Wizard'
+            itemValue: classMenuOpenClassCreationWizard
+            translateLabel: true
+            isButton: true
+            isVisible: classWizardVisibleHolder
+            hideMenuOnActivated: false
+            labelImage: (ResourceRetriever ToolbarIconLibrary newClassWizardIcon)
+          )
+         (MenuItem
+            label: '-'
             isVisible: hasAnyTestCaseOrExecutableClassMethodSelectedHolder
           )
          (MenuItem
@@ -12893,6 +12906,11 @@
     ^ mclass
 !
 
+classWizardVisibleHolder
+    ^ true.
+    "/ ^ builder booleanValueAspectFor:#classWizardVisibleHolder
+!
+
 currentClass
     "the current buffers single selected class;
      nil if no selection or if multiple classes are selected"
@@ -14939,6 +14957,8 @@
     selectedClassesHolder := self selectedClasses.
     selectedClasses := selectedClassesHolder value.
 
+    "/ self classWizardVisibleHolder value:(selectedClasses size == 0).
+
     (navigationState isClassDocumentationBrowser) ifTrue:[
         "/ kludge - docBrowser can only show one single class
         selectedClasses size > 1 ifTrue:[
@@ -43514,11 +43534,11 @@
 !NewSystemBrowser class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/Tools__NewSystemBrowser.st,v 1.1409 2009-11-07 10:37:00 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/Tools__NewSystemBrowser.st,v 1.1410 2009-11-07 15:56:51 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libtool/Tools__NewSystemBrowser.st,v 1.1409 2009-11-07 10:37:00 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/Tools__NewSystemBrowser.st,v 1.1410 2009-11-07 15:56:51 cg Exp $'
 ! !
 
 NewSystemBrowser initialize!