The Inbox: Kernel-cmm.518.mcz

A new version of Kernel was added to project The Inbox:
http://source.squeak.org/inbox/Kernel-cmm.518.mcz

==================== Summary ====================

Name: Kernel-cmm.518
Author: cmm
Time: 16 November 2010, 5:41:37.87 pm
UUID: 1fd9fc1b-9eb5-4b10-a4e6-2a166ecd358b
Ancestors: Kernel-dtl.517

General Singleton.

=============== Diff against Kernel-dtl.517 ===============

Item was added:
+ Object subclass: #Singleton
+ instanceVariableNames: ''
+ classVariableNames: ''
+ poolDictionaries: ''
+ category: 'Kernel-Objects'!
+ Singleton class
+ instanceVariableNames: 'current'!
+ Singleton class
+ instanceVariableNames: 'current'!

Item was added:
+ ----- Method: Singleton classSide>>current (in category 'accessing') -----
+ current
+
+ ^ current ifNil: [ current := self new ]!

Item was added:
+ ----- Method: Singleton classSide>>current: (in category 'accessing') -----
+ current: anObject
+ "Set the current instance to anObject."
+ current := anObject!

Item was added:
+ ----- Method: Singleton classSide>>initialize (in category 'actions') -----
+ initialize
+
+ super initialize.
+ self reset!

Item was added:
+ ----- Method: Singleton classSide>>reset (in category 'actions') -----
+ reset
+
+ current := nil!