- live browsing of Self object memory -

lobby traitsobjectAnnotation

CopyDowns: vector

CreatorPath: traits objectAnnotation

Module: annotation

parent* = traits annotation
setModuleInfoBy: = ( protectedModuleInfo: blk value: moduleInfo)
fieldValues = ( (comment & moduleInfo & isComplete) asVector)Optimization: comparing annotations is slow because of all the performs. Make sure to keep this is sync with fields. -- Adam & Alex, 5/04
fields = traits objectAnnotation fieldsfields must be in order of comparison significance Make sure to keep this is sync with fieldValues. -- Adam & Alex, 5/04
fieldsToIgnoreForCopyDownTest = traits objectAnnotation fieldsToIgnoreForCopyDownTest
fieldsToNotFileOut = vector
fieldsToParse = traits objectAnnotation fieldsToParse
kindOfAnnotation = 'object'
prototype = ( objectAnnotation)

accessing fields

comment = ( protectedComment)
isComplete = ( protectedIsComplete)
moduleInfo = ( protectedModuleInfo)

compatibility for parsing

copyForComment: = ( (copy protectedComment: blk value: comment) setHash)
copyForIsComplete: = ( (copy protectedIsComplete: blk value: isComplete) setHash)
copyForModuleInfo: = ( (copy protectedModuleInfo: blk value: moduleInfo) setHash)

parsing & unparsing isComplete

getStringForParsedField: =
( 
    f = 'isComplete'
      ifFalse: [resend.getStringForParsedField: f]
         True: '')
parseContentsOfField:OldValue:String:IfFail: =
( 
    f = 'isComplete' 
      ifTrue: [ true]
       False: [ resend.parseContentsOfField: f OldValue: old String: new IfFail: fb])