the beauty of layer tangling! I love that you have a look at that. I realllllly mean it. Everyday we are getting closer to a nice and modular system (even if I got bashed by people not believe the effort we spent on that). Stef
ClassBuilder>>validateClassName: aString "Validate the new class name" | allowed | aString isSymbol ifFalse: [ ^ false ]. allowed := ($0 to: $9), {$_}, ($A to: $Z), ($a to: $z). (aString detect: [:c | (allowed includes: c) not] ifNone: [ ]) ifNotNil: [ :c | self error: 'Invalid character: ''', c printString, ''''. ^ false]. aString first canBeGlobalVarInitial ifFalse:[ self error: 'Class names must be capitalized'. ^false]. environ at: aString ifPresent:[:old| (old isKindOf: Behavior) ifFalse:[ self notify: aString asText allBold, ' already exists!\Proceed will store over it.' withCRs]]. ^ true
Is it right to do that asText allBold there? :S Shouldn't an exception be raised instead?
Do I open a ticket?
Guille