"Filed out from GNU Smalltalk version 2.0k on 2-Mar-2003  0:42:59"!

!BLOX.BLOXBrowser.NamespaceBrowser methodsFor: 'class list blue button menu'!
addSubNamespace: listView
   | newNamespace |

   curNamespace isNil ifTrue: [ ^listView beep ].
   curNamespace isNamespace ifFalse: [ ^listView beep ].
   newNamespace := (Prompter message: 'Enter a new namespace' in: listView) response.
   newNamespace = '' ifTrue: [ ^self ].

   curNamespace addSubspace: newNamespace asSymbol.
   self updateNamespaceList! !