'From Squeak3.7 of ''4 September 2004'' [latest update: #5989] on 18 September 2004 at 7:51:47 pm'! "Change Set: Switch-mk Date: 18 September 2004 Author: Oca Emilio Author: Matej Kosik Date Posted: 29 January 2004 Archive ID: 19040 Comments: My application used Switch model. I have noticed that this simple thing when it is asked to print out itself reports something like a Switch The attached changeset ensures that the switch prints itself out as ON-Switch or OFF-Switch This new string appears on the Transcript showing the Switch, also when you 'print it' and also in Explorer. I think that this is reasonable behavior."! !Switch methodsFor: 'converting' stamp: 'md 9/18/2004 19:51'! printOn: aStream self isOn ifTrue: [aStream nextPutAll: 'ON-Switch'] ifFalse: [aStream nextPutAll: 'OFF-Switch']! ! !Switch reorganize! ('converting' printOn:) ('state' clear isOff isOn set switch turnOff turnOn) ('action' doAction: offAction: onAction:) ('private' initializeOff initializeOn) !