WAExternalID

• initialize
• printOn:

• defaultSize
• fromString:
• new
• new:

• initialize

InitialValue:

a Random

inferredType:

Random

InitialValue:

a Semaphore()

inferredType:

Semaphore

	GeneratorMutex critical:
		[1 to: self size do: [:i | self at: i put: ((($a to: $z), ($A to: $Z)) atRandom: Generator) asInteger]]

	self do: [:i | stream nextPut: (Character value: i)]

	^ 8

	| id |
	id _ super new: aString size.
	aString withIndexDo: [:ea :i | id at: i put: ea asInteger].
	^ id

	^ self new: self defaultSize

	^ (super new: aNumber) initialize

	"WAExternalID initialize"

	GeneratorMutex _ Semaphore forMutualExclusion.
	Generator _ Random new.