# HG changeset patch # User Claus Gittinger # Date 1313708515 -7200 # Node ID 1a41a0700e5919d3812eb123caa0f7bda68de69e # Parent eb7aac2b7128c0a90391163dca7044bf45123357 changed: #openNamespaceChooser isNameSpace -> isNamespace diff -r eb7aac2b7128 -r 1a41a0700e59 Tools__NewClassWizardDialog.st --- a/Tools__NewClassWizardDialog.st Thu Aug 18 16:02:27 2011 +0200 +++ b/Tools__NewClassWizardDialog.st Fri Aug 19 01:01:55 2011 +0200 @@ -847,7 +847,7 @@ namespaceString isNil ifTrue:[^ self]. existing := Smalltalk classNamed:namespaceString. - (existing notNil and:[existing isNamespace]) ifTrue:[ + (existing notNil and:[existing isNameSpace]) ifTrue:[ "/ exists ] ifFalse:[ (existing notNil) ifTrue:[ @@ -859,6 +859,8 @@ NameSpace name:namespaceString. ]. self nameSpaceHolder value:namespaceString. + + "Modified: / 19-08-2011 / 01:00:52 / cg" ! openPackageChooser @@ -1220,5 +1222,5 @@ !NewClassWizardDialog class methodsFor:'documentation'! version_CVS - ^ '$Header: /cvs/stx/stx/libtool/Tools__NewClassWizardDialog.st,v 1.15 2011-01-30 16:20:00 cg Exp $' + ^ '$Header: /cvs/stx/stx/libtool/Tools__NewClassWizardDialog.st,v 1.16 2011-08-18 23:01:55 cg Exp $' ! !