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
