from preamble:

"Change Set:		FixObsoletePrefs-nk
Date:			15 February 2004
Author:			Ned Konz

Every time we change the Preferences class, we hold onto the old
versions in individual preferences.

This CS repairs existing Preferences to point to the current Preferences
class.

"

| obsoletePrefs |

Smalltalk garbageCollect.

obsoletePrefs _
Preference allSubInstances select: [ :ea | | ci |
	ci _ (ea instVarNamed: 'changeInformee').
	ci isBehavior and: [ ci isObsolete ] ].

obsoletePrefs do: [ :pref |
	| ci |
	ci _ (pref instVarNamed: 'changeInformee').
	pref instVarNamed: 'changeInformee' put: (Smalltalk at: ci name
ifAbsent: []) ].

Behavior flushObsoleteSubclasses.!
-------------- next part --------------
A non-text attachment was scrubbed...
Name: FixObsoletePrefs-nk.cs.gz
Type: application/octet-stream
Size: 436 bytes
Desc: not available
Url : http://lists.squeakfoundation.org/pipermail/squeak-dev/attachments/20040215/7a8a4537/FixObsoletePrefs-nk.cs.obj