home *** CD-ROM | disk | FTP | other *** search
/ Microsoftware Monthly 19…2 Programming Power Tools / MASO9512.ISO / readme / fileins / vasomfix.ws < prev    next >
Encoding:
Text File  |  1995-10-24  |  1.1 KB  |  24 lines
  1. | class name rcd repo success |
  2.  
  3. (class := Smalltalk classAt: #AbtSOMDStackView2 ifAbsent: [nil]) == nil
  4.     ifTrue: [Transcript cr; show: 'The SOMsupport Samples feature is not loaded; update FAILED.']
  5.     ifFalse: [
  6.         Transcript cr; show: 'Updating ', (name := class printString), ' ...'.
  7.         (success := (rcd := class getPartBuilderRecord) isKindOf: AbtAppBldrRecord) ifTrue: [
  8.             (rcd builder subpartBuilders at: #'SOMD Object Manager') partClass: #SOMDObjectMgr.
  9.             (repo := AbtGlobals at: 'AbtRepository') storageMgr class name = #AbtPOMDev
  10.                 ifTrue: [success := repo abtStoreObjectWithoutDependents: rcd
  11.                             inClass: class
  12.                             as: class partBuilderRepositoryKey]
  13.                 ifFalse: [success := repo abtPrivateStoreObject: rcd
  14.                             inClass: class
  15.                             inApplication: class controller
  16.                             as: class partBuilderRepositoryKey
  17.                             dumper: AbtPOMObjectPersistor dumperWhichRemovesDependents
  18.                             mustBeOpenEdition: false].
  19.             ].
  20.         success
  21.             ifTrue: [Transcript cr; show: name, ' successfully updated.']
  22.             ifFalse: [Transcript cr; show: name, ' update FAILED.'].
  23.         ].
  24.