!=========================================================================
! Copyright (C) VMware, Inc. 1986-2011.  All Rights Reserved.
!
! $Id: convfixsymlists.topaz,v 1.4 2008-01-09 22:50:09 stever Exp $
!
!  Convert all dictionaries in all SymbolLists to SymbolDictionaries
!  convert customer classes (other than those in Globals to 5.0 format)
!=========================================================================

run
  System myUserProfile symbolList convertNativeLanguage .
 ^ true 
%
commit

run
  "Convert the SymbolList dictionaries in the various
   SymbolLists. Also converts the userId from anObsoleteSymbol
   to a String."

  AllUsers do: [ :aUserProfile | | symList |

    aUserProfile userId transformIntoString.
    ((aUserProfile _password41) ~~ nil)
      ifTrue: [ aUserProfile _password41 transformIntoString ].

    symList := aUserProfile symbolList.
    symList convertContentsTo5.
    ].
 ^ true
%
commit

run
  "Convert the Metaclasses first."
  ConvMetaclassesList do: [ :aMetaclass |
    aMetaclass == nil ifTrue: [ ^true ].
    aMetaclass convertTo5.
    ].
  ^ true.
%
commit

run
  "Now convert the Classes."
  ConvMetaclassesList do: [ :aMetaclass |
    aMetaclass == nil ifTrue: [ ^true ].
    aMetaclass thisClass convertTo5.
    ].
  ^ true.
%
commit

logout
login
