'!'           Text
'ProtoObject' Name.Class
' '           Text
'subclass:'   Name.Function
' '           Text
'#Object'     Literal.String.Symbol
'\n\t'        Text
'instanceVariableNames:' Name.Function
' '           Text
"''"          Literal.String
'\n\t'        Text
'classVariableNames:' Name.Function
' '           Text
"'DependentsFields'" Literal.String
'\n\t'        Text
'poolDictionaries:' Name.Function
' '           Text
"''"          Literal.String
'\n\t'        Text
'category:'   Name.Function
' '           Text
"'Kernel-Objects'" Literal.String
'!'           Name.Function
'\n\n'        Text

'!'           Keyword
'Object'      Name.Class
' methodsFor: ' Keyword
"'*39Deprecated'" Literal.String
" stamp: 'gk 2/24/2004 08:49'!" Keyword
'\n'          Text

'beep'        Name.Function
'\n\t'        Text
'"Deprecated."' Comment
'\n\t\n\t'    Text
'self'        Name.Builtin.Pseudo
' '           Text
'deprecated:' Name.Function
' '           Text
"'Use Beeper class>>beep instead.'" Literal.String
'.'           Punctuation
'\n\t'        Text
'Beeper'      Name.Class
' '           Text
'beep'        Name.Function
'! !'         Keyword
'\n\n'        Text

'!'           Keyword
'Object'      Name.Class
' methodsFor: ' Keyword
"'*39Deprecated'" Literal.String
" stamp: 'gk 2/24/2004 08:50'!" Keyword
'\n'          Text

'beepPrimitive' Name.Function
'\n\t'        Text
'"Deprecated. Beep in the absence of sound support."' Comment
'\n\t\n\t'    Text
'self'        Name.Builtin.Pseudo
' '           Text
'deprecated:' Name.Function
' '           Text
"'Use Beeper class>>beep or Beeper class>>beepPrimitive instead.'" Literal.String
'.'           Punctuation
'\n\t'        Text
'Beeper'      Name.Class
' '           Text
'beepPrimitive' Name.Function
'! !'         Keyword
'\n\n'        Text

'!'           Keyword
'Object'      Name.Class
' methodsFor: ' Keyword
"'*39Deprecated'" Literal.String
" stamp: 'md 12/12/2003 17:02'!" Keyword
'\n'          Text

'beep:'       Name.Function
' '           Text
'soundName'   Name.Variable
'\n\t'        Text
'"Make the given sound, unless the making of sound is disabled in Preferences."' Comment
'\n\n\t'      Text
'self'        Name.Builtin.Pseudo
' '           Text
'deprecated:' Name.Function
' '           Text
"'Use SampledSound>>playSoundNamed: instead.'" Literal.String
'.'           Punctuation
'\n\t'        Text
'Preferences' Name.Class
' '           Text
'soundsEnabled' Name.Function
'\n\t\t'      Text
'ifTrue:'     Name.Builtin
' '           Text
'['           Text
'self'        Name.Builtin.Pseudo
' '           Text
'playSoundNamed:' Name.Function
' '           Text
'soundName'   Name.Variable
']'           Text
'\n'          Text

'! !'         Keyword
'\n\n'        Text

'!'           Keyword
'Object'      Name.Class
' methodsFor: ' Keyword
"'*39Deprecated'" Literal.String
" stamp: 'sd 11/19/2004 16:57'!" Keyword
'\n'          Text

'contentsGetz:' Name.Function
' '           Text
'x'           Name.Variable
'\n\t'        Text
'self'        Name.Builtin.Pseudo
' '           Text
'deprecated:' Name.Function
' '           Text
"'there is no method named contents in object and in addition only one sender in a method not called'" Literal.String
'.'           Punctuation
' \n\t'       Text
'self'        Name.Builtin.Pseudo
' '           Text
'contents:'   Name.Function
' '           Text
'x'           Name.Variable
'! !'         Keyword
'\n\n'        Text

'!'           Keyword
'Object'      Name.Class
' methodsFor: ' Keyword
"'*39Deprecated'" Literal.String
" stamp: 'sd 11/13/2003 21:10'!" Keyword
'\n'          Text

'deprecatedExplanation:' Name.Function
' '           Text
'aString'     Name.Variable
'\n     '     Text
'"This method is OBSOLETE.  Use #deprecated: instead."' Comment
'\n\t'        Text
'self'        Name.Builtin.Pseudo
' '           Text
'deprecated:' Name.Function
' '           Text
"'Use Object>>deprecated: instead of deprecatedExplanation:.'" Literal.String
'.'           Punctuation
'\n\n\t'      Text
'Preferences' Name.Class
' '           Text
'showDeprecationWarnings' Name.Function
' '           Text
'ifTrue:'     Name.Builtin
'\n\t\t'      Text
'['           Text
'Deprecation' Name.Class
' '           Text
'signal:'     Name.Function
' '           Text
'('           Text
"'{1} has been deprecated. {2}'" Literal.String
' '           Text
'translated'  Name.Function
' '           Text
'format:'     Name.Function
' '           Text
'{'           Text
'thisContext' Name.Builtin.Pseudo
' '           Text
'sender'      Name.Function
' '           Text
'printString' Name.Function
'.'           Punctuation
' '           Text
'aString'     Name.Variable
'}'           Text
')'           Text
']'           Text
'! !'         Keyword
'\n\n'        Text

'!'           Keyword
'Object'      Name.Class
' methodsFor: ' Keyword
"'*39Deprecated'" Literal.String
" stamp: 'sd 11/13/2003 21:11'!" Keyword
'\n'          Text

'deprecated:' Name.Function
' '           Text
'aBlock'      Name.Variable
' '           Text
'explanation:' Name.Function
' '           Text
'aString'     Name.Variable
' \n\t '      Text
'"This method is OBSOLETE.  Use #deprecated:block: instead."' Comment
'\n\t'        Text
'self'        Name.Builtin.Pseudo
' '           Text
'deprecated:' Name.Function
' '           Text
"'Use Object>>deprecated:block: instead of deprecated:explanation:.'" Literal.String
'.'           Punctuation
'\n\n\t'      Text
'Preferences' Name.Class
' '           Text
'showDeprecationWarnings' Name.Function
' '           Text
'ifTrue:'     Name.Builtin
'\n\t\t'      Text
'['           Text
'Deprecation' Name.Class
'\n\t\t\t'    Text
'signal:'     Name.Function
' '           Text
'('           Text
"'{1} has been deprecated. {2}'" Literal.String
' '           Text
'translated'  Name.Function
' '           Text
'format:'     Name.Function
' '           Text
'{'           Text
'thisContext' Name.Builtin.Pseudo
' '           Text
'sender'      Name.Function
' '           Text
'printString' Name.Function
'.'           Punctuation
' '           Text
'aString'     Name.Variable
'}'           Text
')'           Text
']'           Text
'.'           Punctuation
'\n\t'        Text
'^'           Operator
' '           Text
'aBlock'      Name.Variable
' '           Text
'value'       Name.Function
'.'           Punctuation
'\n'          Text

'! !'         Keyword
'\n\n'        Text

'!'           Keyword
'Object'      Name.Class
' methodsFor: ' Keyword
"'*39Deprecated'" Literal.String
" stamp: 'md 12/12/2003 16:25'!" Keyword
'\n'          Text

'doIfNotNil:' Name.Function
' '           Text
'aBlock'      Name.Variable
'\n\t'        Text
'self'        Name.Builtin.Pseudo
' '           Text
'deprecated:' Name.Function
' '           Text
"'use ifNotNilDo:'" Literal.String
'.'           Punctuation
'\n\t'        Text
'^'           Operator
' '           Text
'self'        Name.Builtin.Pseudo
' '           Text
'ifNotNilDo:' Name.Function
' '           Text
'aBlock'      Name.Variable
'\n'          Text

'! !'         Keyword
'\n\n'        Text

'!'           Keyword
'Object'      Name.Class
' methodsFor: ' Keyword
"'*39Deprecated'" Literal.String
" stamp: 'md 11/27/2004 12:20'!" Keyword
'\n'          Text

'ifKindOf:'   Name.Function
' '           Text
'aClass'      Name.Variable
' '           Text
'thenDo:'     Name.Function
' '           Text
'aBlock'      Name.Variable
'\n\t'        Text
'self'        Name.Builtin.Pseudo
' '           Text
'deprecated:' Name.Function
' '           Text
"'Deprecated. Just use #isKindOf:'" Literal.String
'.'           Punctuation
'\n\t'        Text
'^'           Operator
' '           Text
'('           Text
'self'        Name.Builtin.Pseudo
' '           Text
'isKindOf:'   Name.Function
' '           Text
'aClass'      Name.Variable
')'           Text
' '           Text
'ifTrue:'     Name.Builtin
' '           Text
'['           Text
'aBlock'      Name.Variable
' '           Text
'value:'      Name.Function
' '           Text
'self'        Name.Builtin.Pseudo
']'           Text
'! !'         Keyword
'\n\n'        Text

'!'           Keyword
'Object'      Name.Class
' methodsFor: ' Keyword
"'*39Deprecated'" Literal.String
" stamp: 'gk 2/23/2004 20:51'!" Keyword
'\n'          Text

'playSoundNamed:' Name.Function
' '           Text
'soundName'   Name.Variable
'\n\t'        Text
'"Deprecated.\n\tPlay the sound with the given name."' Comment
'\n\n\t'      Text
'self'        Name.Builtin.Pseudo
' '           Text
'deprecated:' Name.Function
' '           Text
'\'Use "SoundService default playSoundNamed: aName" instead.\'' Literal.String
'.'           Punctuation
'\n\t'        Text
'SoundService' Name.Class
' '           Text
'default'     Name.Function
' '           Text
'playSoundNamed:' Name.Function
' '           Text
'soundName'   Name.Variable
'! !'         Keyword
'\n\n\n'      Text

'!'           Keyword
'Object'      Name.Class
' methodsFor: ' Keyword
"'*Aida'"     Literal.String
" stamp: 'JM 4/22/2007 15:23'!" Keyword
'\n'          Text

'aidaCanBeLocked' Name.Function
'\n\t'        Text
'"can we get an exclusive lock on that object (not already locked)?"' Comment
'\n\t'        Text
'^'           Operator
'false'       Name.Builtin.Pseudo
'! !'         Keyword
'\n\n'        Text

'!'           Keyword
'Object'      Name.Class
' methodsFor: ' Keyword
"'*Aida'"     Literal.String
" stamp: 'JM 4/22/2007 15:23'!" Keyword
'\n'          Text

'aidaDontCache' Name.Function
'\n\t'        Text
'"don\'t cache web content in a browser. Appropriate header is added to http response"' Comment
'\n\t'        Text
'^'           Operator
'false'       Name.Builtin.Pseudo
'! !'         Keyword
'\n\n'        Text

'!'           Keyword
'Object'      Name.Class
' methodsFor: ' Keyword
"'*Aida'"     Literal.String
" stamp: 'JM 4/22/2007 15:24'!" Keyword
'\n'          Text

'aidaIsLocked' Name.Function
'\n\t'        Text
'"is object locked exclusively?"' Comment
'\n\t'        Text
'^'           Operator
'false'       Name.Builtin.Pseudo
'! !'         Keyword
'\n\n'        Text

'!'           Keyword
'Object'      Name.Class
' methodsFor: ' Keyword
"'*Aida'"     Literal.String
" stamp: 'JM 4/22/2007 15:24'!" Keyword
'\n'          Text

'aidaLock'    Name.Function
'\n\t'        Text
'"get an exclusive lock on that object. Until unlocked, noon else can get that lock. Return false if already locked, true if successfull"' Comment
'\n\t'        Text
'^'           Operator
'false'       Name.Builtin.Pseudo
'! !'         Keyword
'\n\n'        Text

'!'           Keyword
'Object'      Name.Class
' methodsFor: ' Keyword
"'*Aida'"     Literal.String
" stamp: 'JM 4/22/2007 15:24'!" Keyword
'\n'          Text

'aidaUnlock'  Name.Function
'\n\t'        Text
'"release an exclusive lock if any"' Comment
'\n\t'        Text
'^'           Operator
'true'        Name.Builtin.Pseudo
'! !'         Keyword
'\n\n'        Text

'!'           Keyword
'Object'      Name.Class
' methodsFor: ' Keyword
"'*Aida'"     Literal.String
" stamp: 'JM 4/22/2007 15:24'!" Keyword
'\n'          Text

'app'         Name.Function
'\n\t'        Text
'"fastest and most convinient way to find a web app for that object"' Comment
'\n\t'        Text
'^'           Operator
'self'        Name.Builtin.Pseudo
' '           Text
'webAppFor:'  Name.Function
' '           Text
'self'        Name.Builtin.Pseudo
' '           Text
'firstSessionFromStack' Name.Function
'! !'         Keyword
'\n\n'        Text

'!'           Keyword
'Object'      Name.Class
' methodsFor: ' Keyword
"'*Aida'"     Literal.String
" stamp: 'JM 4/22/2007 15:25'!" Keyword
'\n'          Text

'contentType' Name.Function
'\n'          Text

'\n\t'        Text
'"Janko Mivsek, apr98"' Comment
'\n\t'        Text
'"return \'text/html\' as content type for web pages"' Comment
'\n\n\t'      Text
'^'           Operator
"'text/html'" Literal.String
'! !'         Keyword
'\n\n'        Text

'!'           Keyword
'Object'      Name.Class
' methodsFor: ' Keyword
"'*Aida'"     Literal.String
" stamp: 'JM 4/22/2007 15:25'!" Keyword
'\n'          Text

'deepSearchOfClass:' Name.Function
' '           Text
'aClassName'  Name.Variable
'\n\t'        Text
'"finf all objects of that class down in object hierarchy"' Comment
'\n\t'        Text
'|'           Operator
' objectDictionary class ' Name.Variable
'|'           Operator
'\n\t'        Text
'objectDictionary' Name.Variable
' '           Text
':='          Operator
' '           Text
'IdentityDictionary' Name.Class
' '           Text
'new'         Name.Builtin
'.'           Punctuation
'\n\t'        Text
'self'        Name.Builtin.Pseudo
' '           Text
'deepCopyNotIn:' Name.Function
' '           Text
'objectDictionary' Name.Variable
'.'           Punctuation
'\n\t'        Text
'class'       Name.Variable
' '           Text
':='          Operator
' '           Text
'aClassName'  Name.Variable
' '           Text
'asSymbol'    Name.Function
'.'           Punctuation
'\n\t'        Text
'^'           Operator
'objectDictionary' Name.Variable
' '           Text
'keys'        Name.Function
' '           Text
'select:'     Name.Function
' '           Text
'['           Text
':'           Operator
'each'        Name.Variable
' '           Text
'|'           Operator
' '           Text
'each'        Name.Variable
' '           Text
'class'       Name.Function
' '           Text
'name'        Name.Function
' '           Text
'='           Name.Function
' '           Text
'class'       Name.Variable
']'           Text
'.'           Punctuation
'! !'         Keyword
'\n\n'        Text

'!'           Keyword
'Object'      Name.Class
' methodsFor: ' Keyword
"'*Aida'"     Literal.String
" stamp: 'JM 4/22/2007 15:26'!" Keyword
'\n'          Text

'deepSearchOfObsoleteClasses' Name.Function
'\n\t'        Text
'"find all objects of obsolete classes down in object hierarchy"' Comment
'\n\t'        Text
'|'           Operator
' objectDictionary ' Name.Variable
'|'           Operator
'\n\t'        Text
'objectDictionary' Name.Variable
' '           Text
':='          Operator
' '           Text
'IdentityDictionary' Name.Class
' '           Text
'new'         Name.Builtin
'.'           Punctuation
'\n\t'        Text
'self'        Name.Builtin.Pseudo
' '           Text
'deepCopyNotIn:' Name.Function
' '           Text
'objectDictionary' Name.Variable
'.'           Punctuation
'\n\t'        Text
'^'           Operator
'objectDictionary' Name.Variable
' '           Text
'keys'        Name.Function
' '           Text
'select:'     Name.Function
' '           Text
'['           Text
':'           Operator
'each'        Name.Variable
' '           Text
'|'           Operator
' '           Text
'each'        Name.Variable
' '           Text
'class'       Name.Function
' '           Text
'isObsolete'  Name.Function
']'           Text
'.'           Punctuation
'! !'         Keyword
'\n\n'        Text

'!'           Keyword
'Object'      Name.Class
' methodsFor: ' Keyword
"'*Aida'"     Literal.String
" stamp: 'JM 4/22/2007 15:26'!" Keyword
'\n'          Text

'expiresTimestamp' Name.Function
'\n\t'        Text
'"until when content of this object wont be changed"' Comment
'\n\t'        Text
'"used in http response, override if you like to be included"' Comment
'\n\t'        Text
'^'           Operator
'self'        Name.Builtin.Pseudo
' '           Text
'modifiedTimestamp' Name.Function
'  '          Text
'"to reload pages immediately"' Comment
'! !'         Keyword
'\n\n'        Text

'!'           Keyword
'Object'      Name.Class
' methodsFor: ' Keyword
"'*Aida'"     Literal.String
" stamp: 'JM 4/22/2007 15:26'!" Keyword
'\n'          Text

'firstAppFromStack' Name.Function
'\n\t'        Text
'"try to find a first sender up in calling stack, who is  WebApplication"' Comment
'\n\t'        Text
'|'           Operator
' context '   Name.Variable
'|'           Operator
'\n\t'        Text
'context'     Name.Variable
' '           Text
':='          Operator
' '           Text
'thisContext' Name.Builtin.Pseudo
'.'           Punctuation
'\n\t'        Text
'['           Text
'context'     Name.Variable
' '           Text
'notNil'      Name.Function
']'           Text
' '           Text
'whileTrue:'  Name.Builtin
' '           Text
'['           Text
'\n\t\t'      Text
'('           Text
'context'     Name.Variable
' '           Text
'receiver'    Name.Function
' '           Text
'isKindOf:'   Name.Function
' '           Text
'WebApplication' Name.Class
')'           Text
' '           Text
'ifTrue:'     Name.Builtin
' '           Text
'['           Text
'^'           Operator
'context'     Name.Variable
' '           Text
'receiver'    Name.Function
']'           Text
'.'           Punctuation
'\n\t\t'      Text
'context'     Name.Variable
' '           Text
':='          Operator
' '           Text
'context'     Name.Variable
' '           Text
'sender'      Name.Function
']'           Text
'.'           Punctuation
'\n\t'        Text
'^'           Operator
'self'        Name.Builtin.Pseudo
' '           Text
'firstSessionFromStack' Name.Function
' '           Text
'lastApp'     Name.Function
'! !'         Keyword
'\n\n'        Text

'!'           Keyword
'Object'      Name.Class
' methodsFor: ' Keyword
"'*Aida'"     Literal.String
" stamp: 'JM 4/25/2007 21:34'!" Keyword
'\n'          Text

'firstSessionFromStack' Name.Function
'\n\t'        Text
'"try to find a first sender up in calling stack, who is  AIDASite and get session if that call"' Comment
'\n\t'        Text
'|'           Operator
' context '   Name.Variable
'|'           Operator
'\n\t'        Text
'context'     Name.Variable
' '           Text
':='          Operator
' '           Text
'thisContext' Name.Builtin.Pseudo
'.'           Punctuation
'\n\t'        Text
'['           Text
'context'     Name.Variable
' '           Text
'notNil'      Name.Function
']'           Text
' '           Text
'whileTrue:'  Name.Builtin
' '           Text
'['           Text
'\n\t\t'      Text
'('           Text
'context'     Name.Variable
' '           Text
'receiver'    Name.Function
' '           Text
'isKindOf:'   Name.Function
' '           Text
'AIDASite'    Name.Class
')'           Text
' '           Text
'ifTrue:'     Name.Builtin
' \t'         Text
'['           Text
'^'           Operator
'('           Text
'context'     Name.Variable
' '           Text
'at:'         Name.Function
' '           Text
'3'           Literal.Number
')'           Text
' '           Text
'"always?"'   Comment
']'           Text
'.'           Punctuation
'\n\t\t'      Text
'context'     Name.Variable
' '           Text
':='          Operator
' '           Text
'context'     Name.Variable
' '           Text
'sender'      Name.Function
']'           Text
'.'           Punctuation
'\n\t'        Text
'^'           Operator
'nil'         Name.Builtin.Pseudo
'! !'         Keyword
'\n\n'        Text

'!'           Keyword
'Object'      Name.Class
' methodsFor: ' Keyword
"'*Aida'"     Literal.String
" stamp: 'mivsek 1/10/2008 18:14'!" Keyword
'\n'          Text

'forLanguage:' Name.Function
' '           Text
'aLanguageCodeSymbol' Name.Variable
'\n\t'        Text
'"for multilingual support: returns an apropriate instance of itself for that language. \n\tLangage is defined by ISO 639 2-letter language code, see \n\thttp://en.wikipedia.org/wiki/List_of_ISO_639-1_codes"' Comment
'\n\t'        Text
'^'           Operator
'false'       Name.Builtin.Pseudo
'! !'         Keyword
'\n\n'        Text

'!'           Keyword
'Object'      Name.Class
' methodsFor: ' Keyword
"'*Aida'"     Literal.String
" stamp: 'mivsek 1/10/2008 18:14'!" Keyword
'\n'          Text

'isMultilingual' Name.Function
'\n\t'        Text
'"for multilingual support: override this if your domain object responds \n\tto #forLanguage: and returns an apropriate instance of itself for that language"' Comment
'\n\t'        Text
'^'           Operator
'false'       Name.Builtin.Pseudo
'! !'         Keyword
'\n\n'        Text

'!'           Keyword
'Object'      Name.Class
' methodsFor: ' Keyword
"'*Aida'"     Literal.String
" stamp: 'JM 4/22/2007 15:27'!" Keyword
'\n'          Text

'isVersionedObject' Name.Function
'\n\t'        Text
'^'           Operator
'false'       Name.Builtin.Pseudo
'! !'         Keyword
'\n\n'        Text

'!'           Keyword
'Object'      Name.Class
' methodsFor: ' Keyword
"'*Aida'"     Literal.String
" stamp: 'JM 4/22/2007 15:27'!" Keyword
'\n'          Text

'isWebApplication' Name.Function
'\n\t'        Text
'^'           Operator
'false'       Name.Builtin.Pseudo
'! !'         Keyword
'\n\n'        Text

'!'           Keyword
'Object'      Name.Class
' methodsFor: ' Keyword
"'*Aida'"     Literal.String
" stamp: 'JM 4/22/2007 15:27'!" Keyword
'\n'          Text

'isWebStyle'  Name.Function
'\n\t'        Text
'^'           Operator
'false'       Name.Builtin.Pseudo
'! !'         Keyword
'\n\n'        Text

'!'           Keyword
'Object'      Name.Class
' methodsFor: ' Keyword
"'*Aida'"     Literal.String
" stamp: 'JM 4/22/2007 15:27'!" Keyword
'\n'          Text

'modifiedTimestamp' Name.Function
'\n\t'        Text
'"when this object was last modified"' Comment
'\n\t'        Text
'"used in http response, override if you like to be included"' Comment
'\n\t'        Text
'^'           Operator
'nil'         Name.Builtin.Pseudo
'! !'         Keyword
'\n\n'        Text

'!'           Keyword
'Object'      Name.Class
' methodsFor: ' Keyword
"'*Aida'"     Literal.String
" stamp: 'JM 4/22/2007 15:28'!" Keyword
'\n'          Text

'preferedUrl' Name.Function
'\n\t'        Text
'"override with a suggestion for url of this method!! If not already used, \n\tit will be considered by URLResolver during automatic url generation"' Comment
'\n\t'        Text
'^'           Operator
'nil'         Name.Builtin.Pseudo
'! !'         Keyword
'\n\n'        Text

'!'           Keyword
'Object'      Name.Class
' methodsFor: ' Keyword
"'*Aida'"     Literal.String
" stamp: 'JM 4/22/2007 15:28'!" Keyword
'\n'          Text

'printWebAppNotFoundFor:' Name.Function
' '           Text
'aSession'    Name.Variable
' \n\t'       Text
'|'           Operator
' page '      Name.Variable
'|'           Operator
'\n\t'        Text
'page'        Name.Variable
' '           Text
':='          Operator
' '           Text
'WebPage'     Name.Class
' '           Text
'new'         Name.Builtin
'.'           Punctuation
'\n\t'        Text
'page'        Name.Variable
' '           Text
'addText:'    Name.Function
' '           Text
"'Cannot find aWebApplication for object a'" Literal.String
','           Name.Function
' '           Text
'self'        Name.Builtin.Pseudo
' '           Text
'class'       Name.Function
' '           Text
'name'        Name.Function
'.'           Punctuation
'\n\t'        Text
'^'           Operator
'page'        Name.Variable
'! !'         Keyword
'\n\n'        Text

'!'           Keyword
'Object'      Name.Class
' methodsFor: ' Keyword
"'*Aida'"     Literal.String
" stamp: 'JM 4/22/2007 15:28'!" Keyword
'\n'          Text

'printWebPageFor:' Name.Function
' '           Text
'aSession'    Name.Variable
' \n\t'       Text
'"find appropriate web application to represent self as web page"' Comment
'\n\n\t'      Text
'|'           Operator
' webApp '    Name.Variable
'|'           Operator
'\n\t'        Text
'webApp'      Name.Variable
' '           Text
':='          Operator
' '           Text
'self'        Name.Builtin.Pseudo
' '           Text
'webAppFor:'  Name.Function
' '           Text
'aSession'    Name.Variable
'.'           Punctuation
'\n\t'        Text
'^'           Operator
'webApp'      Name.Variable
' '           Text
'notNil'      Name.Function
' \n\t\t'     Text
'ifTrue:'     Name.Builtin
' '           Text
'['           Text
'webApp'      Name.Variable
' '           Text
'printWebPage' Name.Function
']'           Text
'\n\t\t'      Text
'ifFalse:'    Name.Builtin
' '           Text
'['           Text
'self'        Name.Builtin.Pseudo
' '           Text
'printWebAppNotFoundFor:' Name.Function
' '           Text
'aSession'    Name.Variable
']'           Text
'! !'         Keyword
'\n\n'        Text

'!'           Keyword
'Object'      Name.Class
' methodsFor: ' Keyword
"'*Aida'"     Literal.String
" stamp: 'JM 4/22/2007 15:29'!" Keyword
'\n'          Text

'sendOver:'   Name.Function
' '           Text
'aStream'     Name.Variable
' \n\t'       Text
'"from Wiki rendering"' Comment
'\n\t'        Text
'self'        Name.Builtin.Pseudo
' '           Text
'printOn:'    Name.Function
' '           Text
'aStream'     Name.Variable
'! !'         Keyword
'\n\n'        Text

'!'           Keyword
'Object'      Name.Class
' methodsFor: ' Keyword
"'*Aida'"     Literal.String
" stamp: 'JM 4/22/2007 15:29'!" Keyword
'\n'          Text

'webAppFor:'  Name.Function
' '           Text
'aSession'    Name.Variable
'\n\t'        Text
'|'           Operator
' webApp '    Name.Variable
'|'           Operator
'\n\t'        Text
'aSession'    Name.Variable
' '           Text
'isNil'       Name.Function
' '           Text
'ifTrue:'     Name.Builtin
' '           Text
'['           Text
'^'           Operator
'nil'         Name.Builtin.Pseudo
']'           Text
'.'           Punctuation
'\n\t'        Text
'webApp'      Name.Variable
' '           Text
':='          Operator
' '           Text
'aSession'    Name.Variable
' '           Text
'webAppFor:'  Name.Function
' '           Text
'self'        Name.Builtin.Pseudo
'.'           Punctuation
'\n\t'        Text
'webApp'      Name.Variable
' '           Text
'notNil'      Name.Function
' '           Text
'ifTrue:'     Name.Builtin
' '           Text
'['           Text
'^'           Operator
'webApp'      Name.Variable
']'           Text
'.'           Punctuation
'\n\t'        Text
'webApp'      Name.Variable
' '           Text
':='          Operator
' '           Text
'WebApplication' Name.Class
' '           Text
'newFor:'     Name.Function
' '           Text
'self'        Name.Builtin.Pseudo
' '           Text
'on:'         Name.Function
' '           Text
'aSession'    Name.Variable
'.'           Punctuation
'\n\t'        Text
'webApp'      Name.Variable
' '           Text
'notNil'      Name.Function
' '           Text
'ifTrue:'     Name.Builtin
' '           Text
'['           Text
'aSession'    Name.Variable
' '           Text
'addWebApp:'  Name.Function
' '           Text
'webApp'      Name.Variable
' '           Text
'for:'        Name.Function
' '           Text
'self'        Name.Builtin.Pseudo
']'           Text
'.'           Punctuation
'\n\t'        Text
'^'           Operator
'webApp'      Name.Variable
'! !'         Keyword
'\n\n\n'      Text

'!'           Keyword
'Object'      Name.Class
' methodsFor: ' Keyword
"'*DynamicBindings'" Literal.String
" stamp: 'svp 3/6/2003 16:08'!" Keyword
'\n'          Text

'binding'     Name.Function
'\n\t'        Text
'"Answer the DynamicBinding for the receiver (if any)"' Comment
'\n\n\t'      Text
'^'           Operator
'Bindings'    Name.Class
' '           Text
'bindingFor:' Name.Function
' '           Text
'self'        Name.Builtin.Pseudo
' '           Text
'ifNotBound:' Name.Function
' '           Text
'['           Text
'nil'         Name.Builtin.Pseudo
']'           Text
'! !'         Keyword
'\n\n'        Text

'!'           Keyword
'Object'      Name.Class
' methodsFor: ' Keyword
"'*DynamicBindings'" Literal.String
" stamp: 'svp 4/29/2003 00:35'!" Keyword
'\n'          Text

'binding:'    Name.Function
' '           Text
'anObject'    Name.Variable
'\n\t'        Text
'"Set the dynamic binding for the receiver, if anObject is nil, then \n\tremove the receiver\'s dynamic binding (if any)"' Comment
'\n\n\t'      Text
'^'           Operator
'anObject'    Name.Variable
' \n\t\t'     Text
'ifNil:'      Name.Function
' '           Text
'['           Text
'self'        Name.Builtin.Pseudo
' '           Text
'removeBinding' Name.Function
']'           Text
'\n\t\t'      Text
'ifNotNil:'   Name.Function
' '           Text
'['           Text
'Bindings'    Name.Class
' '           Text
'bind:'       Name.Function
' '           Text
'self'        Name.Builtin.Pseudo
' '           Text
'to:'         Name.Function
' '           Text
'anObject'    Name.Variable
']'           Text
'! !'         Keyword
'\n\n'        Text

'!'           Keyword
'Object'      Name.Class
' methodsFor: ' Keyword
"'*DynamicBindings'" Literal.String
" stamp: 'svp 3/6/2003 16:09'!" Keyword
'\n'          Text

'hasBinding'  Name.Function
'\n\t'        Text
'"Answer whether or not the receiver has a dynamic binding"' Comment
'\n\n\t'      Text
'^'           Operator
'Bindings'    Name.Class
' '           Text
'includesKey:' Name.Function
' '           Text
'self'        Name.Builtin.Pseudo
'! !'         Keyword
'\n\n'        Text

'!'           Keyword
'Object'      Name.Class
' methodsFor: ' Keyword
"'*DynamicBindings'" Literal.String
" stamp: 'svp 3/6/2003 16:09'!" Keyword
'\n'          Text

'removeBinding' Name.Function
'\n\t'        Text
'"Remove the dynamic binding associated with the receiver"' Comment
'\n\n\t'      Text
'^'           Operator
'Bindings'    Name.Class
' '           Text
'removeKey:'  Name.Function
' '           Text
'self'        Name.Builtin.Pseudo
' '           Text
'ifAbsent:'   Name.Function
' '           Text
'['           Text
']'           Text
'! !'         Keyword
'\n\n\n'      Text

'!'           Keyword
'Object'      Name.Class
' methodsFor: ' Keyword
"'*KomHttpServer'" Literal.String
" stamp: 'SVP 8/23/1999 19:17'!" Keyword
'\n'          Text

'asHtmlDocumentForRequest:' Name.Function
' '           Text
'aNetworkRequest' Name.Variable
'\n\n\t'      Text
'self'        Name.Builtin.Pseudo
' '           Text
'error:'      Name.Function
' \n\t\t'     Text
'('           Text
"'The requested object ('" Literal.String
','           Name.Function
' \n\t\t'     Text
'self'        Name.Builtin.Pseudo
' '           Text
'asString'    Name.Function
','           Name.Function
' \n\t\t'     Text
"'), could not be converted into HTML for your browser.'" Literal.String
')'           Text
'! !'         Keyword
'\n\n'        Text

'!'           Keyword
'Object'      Name.Class
' methodsFor: ' Keyword
"'*KomHttpServer'" Literal.String
" stamp: 'SVP 8/23/1999 19:23'!" Keyword
'\n'          Text

'asHttpResponseTo:' Name.Function
' '           Text
'anHttpRequest' Name.Variable
'\n\n\t'      Text
'^'           Operator
'('           Text
'self'        Name.Builtin.Pseudo
' '           Text
'asHtmlDocumentForRequest:' Name.Function
' '           Text
'anHttpRequest' Name.Variable
')'           Text
' \n\t\t'     Text
'asHttpResponseTo:' Name.Function
' '           Text
'anHttpRequest' Name.Variable
'\n'          Text

'! !'         Keyword
'\n\n'        Text

'!'           Keyword
'Object'      Name.Class
' methodsFor: ' Keyword
"'*KomHttpServer'" Literal.String
" stamp: 'svp 5/16/2003 12:47'!" Keyword
'\n'          Text

'isComancheModule' Name.Function
'\n'          Text

'\n\t'        Text
'^'           Operator
'false'       Name.Builtin.Pseudo
'! !'         Keyword
'\n\n'        Text

'!'           Keyword
'Object'      Name.Class
' methodsFor: ' Keyword
"'*KomHttpServer'" Literal.String
" stamp: 'SVP 8/17/1999 17:51'!" Keyword
'\n'          Text

'mimeType'    Name.Function
'\n'          Text

'\n\t'        Text
'^'           Operator
'MIMEDocument' Name.Class
' '           Text
'defaultContentType' Name.Function
'! !'         Keyword
'\n\n\n'      Text

'!'           Keyword
'Object'      Name.Class
' methodsFor: ' Keyword
"'*Morphic-NewCurve-testing'''" Literal.String
" stamp: 'wiz 12/31/2005 21:31'!" Keyword
'\n'          Text

'isNonZero'   Name.Function
'\n'          Text

'"Overriden in Number. This returns the backstop answer for non-numbers"' Comment
'\n'          Text

'^'           Operator
'false'       Name.Builtin.Pseudo
'.'           Punctuation
'! !'         Keyword
'\n\n\n'      Text

'!'           Keyword
'Object'      Name.Class
' methodsFor: ' Keyword
"'*Pinesoft-EventEnhancements'" Literal.String
" stamp: 'gvc 10/25/2006 18:18'!" Keyword
'\n'          Text

'when:'       Name.Function
' '           Text
'anEventSelector' Name.Variable
'\n'          Text

'send:'       Name.Function
' '           Text
'aMessageSelector' Name.Variable
'\n'          Text

'to:'         Name.Function
' '           Text
'anObject'    Name.Variable
'\n'          Text

'exclusive:'  Name.Function
' '           Text
'aValueHolder' Name.Variable
'\n \n\t'     Text
'self'        Name.Builtin.Pseudo
'\n\t\t'      Text
'when:'       Name.Function
' '           Text
'anEventSelector' Name.Variable
'\n\t\t'      Text
'evaluate:'   Name.Function
' '           Text
'('           Text
'('           Text
'ExclusiveWeakMessageSend' Name.Class
'\n\t\t\t\t\t' Text
'receiver:'   Name.Function
' '           Text
'anObject'    Name.Variable
'\n\t\t\t\t\t' Text
'selector:'   Name.Function
' '           Text
'aMessageSelector' Name.Variable
')'           Text
'\n\t\t\t\t\t\t' Text
'basicExecuting:' Name.Function
' '           Text
'aValueHolder' Name.Variable
')'           Text
'! !'         Keyword
'\n\n'        Text

'!'           Keyword
'Object'      Name.Class
' methodsFor: ' Keyword
"'*Pinesoft-EventEnhancements'" Literal.String
" stamp: 'gvc 10/25/2006 18:17'!" Keyword
'\n'          Text

'when:'       Name.Function
' '           Text
'anEventSelector' Name.Variable
'\n'          Text

'send:'       Name.Function
' '           Text
'aMessageSelector' Name.Variable
'\n'          Text

'to:'         Name.Function
' '           Text
'anObject'    Name.Variable
'\n'          Text

'with:'       Name.Function
' '           Text
'anArg'       Name.Variable
'\n'          Text

'exclusive:'  Name.Function
' '           Text
'aValueHolder' Name.Variable
'\n \n    '   Text
'self'        Name.Builtin.Pseudo
'\n        '  Text
'when:'       Name.Function
' '           Text
'anEventSelector' Name.Variable
'\n        '  Text
'evaluate:'   Name.Function
' '           Text
'('           Text
'('           Text
'ExclusiveWeakMessageSend' Name.Class
'\n \t\t'     Text
'receiver:'   Name.Function
' '           Text
'anObject'    Name.Variable
'\n\t\t'      Text
'selector:'   Name.Function
' '           Text
'aMessageSelector' Name.Variable
'\n\t\t'      Text
'arguments:'  Name.Function
' '           Text
'('           Text
'Array'       Name.Class
' '           Text
'with:'       Name.Function
' '           Text
'anArg'       Name.Variable
')'           Text
')'           Text
'\n\t\t\t'    Text
'basicExecuting:' Name.Function
' '           Text
'aValueHolder' Name.Variable
')'           Text
'! !'         Keyword
'\n\n'        Text

'!'           Keyword
'Object'      Name.Class
' methodsFor: ' Keyword
"'*Pinesoft-EventEnhancements'" Literal.String
" stamp: 'gvc 10/25/2006 18:17'!" Keyword
'\n'          Text

'when:'       Name.Function
' '           Text
'anEventSelector' Name.Variable
'\n'          Text

'send:'       Name.Function
' '           Text
'aMessageSelector' Name.Variable
'\n'          Text

'to:'         Name.Function
' '           Text
'anObject'    Name.Variable
'\n'          Text

'withArguments:' Name.Function
' '           Text
'anArgArray'  Name.Variable
'\n'          Text

'exclusive:'  Name.Function
' '           Text
'aValueHolder' Name.Variable
'\n \n    '   Text
'self'        Name.Builtin.Pseudo
'\n        '  Text
'when:'       Name.Function
' '           Text
'anEventSelector' Name.Variable
'\n        '  Text
'evaluate:'   Name.Function
' '           Text
'('           Text
'('           Text
'ExclusiveWeakMessageSend' Name.Class
'\n\t\t'      Text
'receiver:'   Name.Function
' '           Text
'anObject'    Name.Variable
'\n\t\t'      Text
'selector:'   Name.Function
' '           Text
'aMessageSelector' Name.Variable
'\n\t\t'      Text
'arguments:'  Name.Function
' '           Text
'anArgArray'  Name.Variable
')'           Text
'\n\t\t\t'    Text
'basicExecuting:' Name.Function
' '           Text
'aValueHolder' Name.Variable
')'           Text
'! !'         Keyword
'\n\n'        Text

'!'           Keyword
'Object'      Name.Class
' methodsFor: ' Keyword
"'*Pinesoft-EventEnhancements'" Literal.String
" stamp: 'gvc 10/24/2006 11:50'!" Keyword
'\n'          Text

'when:'       Name.Function
' '           Text
'anEventSelector' Name.Variable
'\n'          Text

'sendOnce:'   Name.Function
' '           Text
'aMessageSelector' Name.Variable
'\n'          Text

'to:'         Name.Function
' '           Text
'anObject'    Name.Variable
'\n \n    '   Text
'self'        Name.Builtin.Pseudo
'\n        '  Text
'when:'       Name.Function
' '           Text
'anEventSelector' Name.Variable
'\n        '  Text
'evaluate:'   Name.Function
' '           Text
'('           Text
'NonReentrantWeakMessageSend' Name.Class
'\n            ' Text
'receiver:'   Name.Function
' '           Text
'anObject'    Name.Variable
'\n            ' Text
'selector:'   Name.Function
' '           Text
'aMessageSelector' Name.Variable
')'           Text
'! !'         Keyword
'\n\n'        Text

'!'           Keyword
'Object'      Name.Class
' methodsFor: ' Keyword
"'*Pinesoft-EventEnhancements'" Literal.String
" stamp: 'gvc 10/24/2006 11:49'!" Keyword
'\n'          Text

'when:'       Name.Function
' '           Text
'anEventSelector' Name.Variable
'\n'          Text

'sendOnce:'   Name.Function
' '           Text
'aMessageSelector' Name.Variable
'\n'          Text

'to:'         Name.Function
' '           Text
'anObject'    Name.Variable
'\n'          Text

'with:'       Name.Function
' '           Text
'anArg'       Name.Variable
'\n \n    '   Text
'self'        Name.Builtin.Pseudo
'\n        '  Text
'when:'       Name.Function
' '           Text
'anEventSelector' Name.Variable
'\n        '  Text
'evaluate:'   Name.Function
' '           Text
'('           Text
'NonReentrantWeakMessageSend' Name.Class
'\n            ' Text
'receiver:'   Name.Function
' '           Text
'anObject'    Name.Variable
'\n            ' Text
'selector:'   Name.Function
' '           Text
'aMessageSelector' Name.Variable
'\n\t\t'      Text
'arguments:'  Name.Function
' '           Text
'('           Text
'Array'       Name.Class
' '           Text
'with:'       Name.Function
' '           Text
'anArg'       Name.Variable
')'           Text
')'           Text
'! !'         Keyword
'\n\n'        Text

'!'           Keyword
'Object'      Name.Class
' methodsFor: ' Keyword
"'*Pinesoft-EventEnhancements'" Literal.String
" stamp: 'gvc 10/24/2006 11:49'!" Keyword
'\n'          Text

'when:'       Name.Function
' '           Text
'anEventSelector' Name.Variable
'\n'          Text

'sendOnce:'   Name.Function
' '           Text
'aMessageSelector' Name.Variable
'\n'          Text

'to:'         Name.Function
' '           Text
'anObject'    Name.Variable
'\n'          Text

'withArguments:' Name.Function
' '           Text
'anArgArray'  Name.Variable
'\n \n    '   Text
'self'        Name.Builtin.Pseudo
'\n        '  Text
'when:'       Name.Function
' '           Text
'anEventSelector' Name.Variable
'\n        '  Text
'evaluate:'   Name.Function
' '           Text
'('           Text
'NonReentrantWeakMessageSend' Name.Class
'\n            ' Text
'receiver:'   Name.Function
' '           Text
'anObject'    Name.Variable
'\n            ' Text
'selector:'   Name.Function
' '           Text
'aMessageSelector' Name.Variable
'\n\t\t'      Text
'arguments:'  Name.Function
' '           Text
'anArgArray'  Name.Variable
')'           Text
'! !'         Keyword
'\n\n\n'      Text

'!'           Keyword
'Object'      Name.Class
' methodsFor: ' Keyword
"'*Pinesoft-Widgets'" Literal.String
" stamp: 'gvc 1/10/2007 11:41'!" Keyword
'\n'          Text

'okToClose'   Name.Function
'\n\t'        Text
'"Sent to models when a window closing.\n\tAllows this check to be independent of okToChange."' Comment
'\n\t\n\t'    Text
'^'           Operator
'true'        Name.Builtin.Pseudo
'! !'         Keyword
'\n\n'        Text

'!'           Keyword
'Object'      Name.Class
' methodsFor: ' Keyword
"'*Pinesoft-Widgets'" Literal.String
" stamp: 'gvc 4/17/2007 17:41'!" Keyword
'\n'          Text

'taskbarIcon' Name.Function
'\n\t'        Text
'"Answer the icon for the receiver in a task bar\n\tor nil for the default."' Comment
'\n\n\t'      Text
'^'           Operator
'self'        Name.Builtin.Pseudo
' '           Text
'class'       Name.Function
' '           Text
'taskbarIcon' Name.Function
'! !'         Keyword
'\n\n\n'      Text

'!'           Keyword
'Object'      Name.Class
' methodsFor: ' Keyword
"'*Pinesoft-Widgets-override'" Literal.String
" stamp: 'gvc 9/4/2007 12:32'!" Keyword
'\n'          Text

'windowActiveOnFirstClick' Name.Function
'\n\t'        Text
'"Return true if my window should be active on first click."' Comment
'\n\n\t'      Text
'^'           Operator
'true'        Name.Builtin.Pseudo
'! !'         Keyword
'\n\n\n'      Text

'!'           Keyword
'Object'      Name.Class
' methodsFor: ' Keyword
"'*SeasideAdaptersCompatibility'" Literal.String
" stamp: 'pmm 11/25/2007 14:17'!" Keyword
'\n'          Text

'toString'    Name.Function
'\n\t'        Text
'^'           Operator
'self'        Name.Builtin.Pseudo
'! !'         Keyword
'\n\n\n'      Text

'!'           Keyword
'Object'      Name.Class
' methodsFor: ' Keyword
"'*Tools-Explorer'" Literal.String
" stamp: 'stephaneducasse 9/17/2005 21:52'!" Keyword
'\n'          Text

'exploreAndYourself' Name.Function
'\n\t'        Text
'"i.e. explore; yourself. Thisway i can peek w/o typing all the parentheses"' Comment
'\n\t'        Text
'self'        Name.Builtin.Pseudo
' '           Text
'explore'     Name.Function
'.'           Punctuation
' \n     '    Text
'^'           Operator
'self'        Name.Builtin.Pseudo
'! !'         Keyword
'\n\n'        Text

'!'           Keyword
'Object'      Name.Class
' methodsFor: ' Keyword
"'*Tools-Explorer'" Literal.String
" stamp: 'stephaneducasse 9/17/2005 21:48'!" Keyword
'\n'          Text

'exploreWithLabel:' Name.Function
' '           Text
'label'       Name.Variable
'\n\n\t'      Text
'^'           Operator
' '           Text
'ObjectExplorer' Name.Class
' '           Text
'new'         Name.Builtin
' '           Text
'openExplorerFor:' Name.Function
' '           Text
'self'        Name.Builtin.Pseudo
' '           Text
'withLabel:'  Name.Function
'\n'          Text

'label'       Name.Variable
'! !'         Keyword
'\n\n\n'      Text

'!'           Keyword
'Object'      Name.Class
' methodsFor: ' Keyword
"'*kernel-extensions-flagging'" Literal.String
" stamp: 'mtf 1/26/2008 23:34'!" Keyword
'\n'          Text

'deprecated'  Name.Function
'\n\t'        Text
'"Warn that the sending method has been deprecated."' Comment
'\n\n\t'      Text
'Preferences' Name.Class
' '           Text
'showDeprecationWarnings' Name.Function
' '           Text
'ifTrue:'     Name.Builtin
'\n\t\t'      Text
'['           Text
'Deprecation' Name.Class
' '           Text
'signal:'     Name.Function
' '           Text
'thisContext' Name.Builtin.Pseudo
' '           Text
'sender'      Name.Function
' '           Text
'printString' Name.Function
','           Name.Function
' '           Text
"' has been deprecated.'" Literal.String
']'           Text
'! !'         Keyword
'\n\n\n'      Text

'!'           Keyword
'Object'      Name.Class
' methodsFor: ' Keyword
"'*kernel-extensions-flexibility'" Literal.String
" stamp: 'kph 1/27/2008 19:21'!" Keyword
'\n'          Text

'askFor:'     Name.Function
' '           Text
'selector'    Name.Variable
' \n\n    '   Text
'"returns true or false"' Comment
'\n\t\n\t'    Text
'^'           Operator
' '           Text
'('           Text
'self'        Name.Builtin.Pseudo
' '           Text
'askFor:'     Name.Function
' '           Text
'selector'    Name.Variable
' '           Text
'ifAbsent:'   Name.Function
' '           Text
'nil'         Name.Builtin.Pseudo
')'           Text
' '           Text
'=='          Name.Function
' '           Text
'true'        Name.Builtin.Pseudo
'! !'         Keyword
'\n\n'        Text

'!'           Keyword
'Object'      Name.Class
' methodsFor: ' Keyword
"'*kernel-extensions-flexibility'" Literal.String
" stamp: 'kph 10/17/2007 14:01'!" Keyword
'\n'          Text

'askFor:'     Name.Function
' '           Text
'selector'    Name.Variable
' '           Text
'ifAbsent:'   Name.Function
' '           Text
'aBlock'      Name.Variable
'\n\n   '     Text
'"enables a default value to be specified in order to be tolerant of potentially missing methods\n\t\n\te.g.\n\t(myPoint askFor: #originOffset) ifAbsent: [ 0@0 ].\n\t"' Comment
'\n\n\t'      Text
'^'           Operator
' '           Text
'('           Text
'self'        Name.Builtin.Pseudo
' '           Text
'class'       Name.Function
' '           Text
'canUnderstand:' Name.Function
' '           Text
'selector'    Name.Variable
')'           Text
' '           Text
'ifFalse:'    Name.Builtin
' '           Text
'['           Text
' '           Text
'aBlock'      Name.Variable
' '           Text
'value'       Name.Function
' '           Text
']'           Text
' '           Text
'ifTrue:'     Name.Builtin
' '           Text
'['           Text
'self'        Name.Builtin.Pseudo
' '           Text
'perform:'    Name.Function
' '           Text
'selector'    Name.Variable
']'           Text
'! !'         Keyword
'\n\n\n'      Text

'!'           Keyword
'Object'      Name.Class
' methodsFor: ' Keyword
"'*kernel-extensions-logging'" Literal.String
" stamp: 'mtf 1/26/2008 23:52'!" Keyword
'\n'          Text

'log'         Name.Function
'\n\t'        Text
'"This method provides the univeral entry point fo all logging mechanisms"' Comment
'\n\t\n\t'    Text
'"Options:\n\t1. Null for null logging\n\t2. A LogRouter instance wih a FrameworkAdaptor.\n\t3. CurrentLog a process local variable supplying a LogRouter"' Comment
'\n\t\n\t'    Text
'^'           Operator
' '           Text
'('           Text
'Smalltalk'   Name.Class
' '           Text
'at:'         Name.Function
' '           Text
'#CurrentLog' Literal.String.Symbol
' '           Text
'ifAbsent:'   Name.Function
' '           Text
'['           Text
' '           Text
'Null'        Name.Class
' '           Text
'default'     Name.Function
' '           Text
']'           Text
')'           Text
' '           Text
'value'       Name.Function
'\n\t\t'      Text
'sender:'     Name.Function
' '           Text
'thisContext' Name.Builtin.Pseudo
' '           Text
'sender'      Name.Function
';'           Punctuation
' '           Text
'beginEntry'  Name.Function
';'           Punctuation
' '           Text
'yourself'    Name.Function
'! !'         Keyword
'\n\n\n'      Text

'!'           Keyword
'Object'      Name.Class
' methodsFor: ' Keyword
"'*magritte-model-accessing'" Literal.String
" stamp: 'lr 3/9/2006 11:31'!" Keyword
'\n'          Text

'description' Name.Function
'\n\t'        Text
'"Return the description of the reciever. Subclasses might override this message to return instance-based descriptions."' Comment
'\n\n\t'      Text
'^'           Operator
' '           Text
'self'        Name.Builtin.Pseudo
' '           Text
'class'       Name.Function
' '           Text
'description' Name.Function
'! !'         Keyword
'\n\n'        Text

'!'           Keyword
'Object'      Name.Class
' methodsFor: ' Keyword
"'*magritte-model-accessing'" Literal.String
" stamp: 'lr 3/9/2006 11:31'!" Keyword
'\n'          Text

'mementoClass' Name.Function
'\n\t'        Text
'"Return a class to be used to remember or cache the receiver, namely a memento object."' Comment
'\n\n\t'      Text
'^'           Operator
' '           Text
'MACheckedMemento' Name.Class
'! !'         Keyword
'\n\n\n'      Text

'!'           Keyword
'Object'      Name.Class
' methodsFor: ' Keyword
"'*magritte-model-model'" Literal.String
" stamp: 'lr 3/9/2006 11:31'!" Keyword
'\n'          Text

'readUsing:'  Name.Function
' '           Text
'aDescription' Name.Variable
'\n\t'        Text
'"Dispatch the read-access to the receiver using the accessor of aDescription."' Comment
'\n\n\t'      Text
'^'           Operator
' '           Text
'aDescription' Name.Variable
' '           Text
'accessor'    Name.Function
' '           Text
'read:'       Name.Function
' '           Text
'self'        Name.Builtin.Pseudo
'! !'         Keyword
'\n\n'        Text

'!'           Keyword
'Object'      Name.Class
' methodsFor: ' Keyword
"'*magritte-model-model'" Literal.String
" stamp: 'lr 3/9/2006 11:31'!" Keyword
'\n'          Text

'write:'      Name.Function
' '           Text
'anObject'    Name.Variable
' '           Text
'using:'      Name.Function
' '           Text
'aDescription' Name.Variable
'\n\t'        Text
'"Dispatch the write-access to the receiver of anObject using the accessor of aDescription."' Comment
'\n\n\t'      Text
'aDescription' Name.Variable
' '           Text
'accessor'    Name.Function
' '           Text
'write:'      Name.Function
' '           Text
'anObject'    Name.Variable
' '           Text
'to:'         Name.Function
' '           Text
'self'        Name.Builtin.Pseudo
'! !'         Keyword
'\n\n\n'      Text

'!'           Keyword
'Object'      Name.Class
' methodsFor: ' Keyword
"'*magritte-model-testing'" Literal.String
" stamp: 'lr 3/9/2006 11:31'!" Keyword
'\n'          Text

'isDescription' Name.Function
'\n\t'        Text
'^'           Operator
' '           Text
'false'       Name.Builtin.Pseudo
'! !'         Keyword
'\n\n\n'      Text

'!'           Keyword
'Object'      Name.Class
' methodsFor: ' Keyword
"'*magritte-morph-converting'" Literal.String
" stamp: 'lr 3/9/2006 11:33'!" Keyword
'\n'          Text

'asMorph'     Name.Function
'\n\t'        Text
'^'           Operator
' '           Text
'self'        Name.Builtin.Pseudo
' '           Text
'description' Name.Function
' '           Text
'asMorphOn:'  Name.Function
' '           Text
'self'        Name.Builtin.Pseudo
'! !'         Keyword
'\n\n\n'      Text

'!'           Keyword
'Object'      Name.Class
' methodsFor: ' Keyword
"'*magritte-seaside-converting'" Literal.String
" stamp: 'lr 3/9/2006 11:33'!" Keyword
'\n'          Text

'asComponent' Name.Function
'\n\t'        Text
'^'           Operator
' '           Text
'self'        Name.Builtin.Pseudo
' '           Text
'description' Name.Function
' '           Text
'asComponentOn:' Name.Function
' '           Text
'self'        Name.Builtin.Pseudo
'! !'         Keyword
'\n\n\n'      Text

'!'           Keyword
'Object'      Name.Class
' methodsFor: ' Keyword
"'*monticello'" Literal.String
" stamp: 'dvf 8/10/2004 23:25'!" Keyword
'\n'          Text

'isConflict'  Name.Function
'\n\t'        Text
'^'           Operator
'false'       Name.Builtin.Pseudo
'! !'         Keyword
'\n\n\n'      Text

'!'           Keyword
'Object'      Name.Class
' methodsFor: ' Keyword
"'*null'"     Literal.String
" stamp: 'kph 9/6/2007 23:31'!" Keyword
'\n'          Text

'ifNull:'     Name.Function
' '           Text
'aBlock'      Name.Variable
'\n\n\t'      Text
'^'           Operator
' '           Text
'self'        Name.Builtin.Pseudo
'! !'         Keyword
'\n\n'        Text

'!'           Keyword
'Object'      Name.Class
' methodsFor: ' Keyword
"'*null'"     Literal.String
" stamp: 'kph 9/6/2007 23:33'!" Keyword
'\n'          Text

'isNull'      Name.Function
'\n'          Text

'\n\t'        Text
'^'           Operator
' '           Text
'false'       Name.Builtin.Pseudo
'! !'         Keyword
'\n\n'        Text

'!'           Keyword
'Object'      Name.Class
' methodsFor: ' Keyword
"'*null'"     Literal.String
" stamp: 'kph 4/12/2007 08:27'!" Keyword
'\n'          Text

'orNull'      Name.Function
'\n'          Text

'\n\t'        Text
'^'           Operator
' '           Text
'self'        Name.Builtin.Pseudo
'! !'         Keyword
'\n\n\n'      Text

'!'           Keyword
'Object'      Name.Class
' methodsFor: ' Keyword
"'*ob-tools-inspector'" Literal.String
" stamp: 'lr 6/5/2008 11:07'!" Keyword
'\n'          Text

'basicInspectorNodes' Name.Function
'\n\t'        Text
'<'           Text
'inspector:'  Keyword
" #'1' priority: 600" Text
'>'           Text
'\n\t\n\t'    Text
'|'           Operator
' nodes '     Name.Variable
'|'           Operator
'\n\t'        Text
'nodes'       Name.Variable
' '           Text
':='          Operator
' '           Text
'OrderedCollection' Name.Class
' '           Text
'new:'        Name.Function
' '           Text
'self'        Name.Builtin.Pseudo
' '           Text
'class'       Name.Function
' '           Text
'instSize'    Name.Function
' '           Text
'+'           Name.Function
' '           Text
'self'        Name.Builtin.Pseudo
' '           Text
'basicSize'   Name.Function
' '           Text
'+'           Name.Function
' '           Text
'5'           Literal.Number
'.'           Punctuation
'\n\t'        Text
'nodes'       Name.Variable
' '           Text
'add:'        Name.Function
' '           Text
'self'        Name.Builtin.Pseudo
' '           Text
'selfInspectorNode' Name.Function
'.'           Punctuation
'\n\t'        Text
'self'        Name.Builtin.Pseudo
' '           Text
'class'       Name.Function
' '           Text
'allInstVarNames' Name.Function
' '           Text
'withIndexDo:' Name.Function
' '           Text
'['           Text
' '           Text
':'           Operator
'name'        Name.Variable
' '           Text
':'           Operator
'index'       Name.Variable
' '           Text
'|'           Operator
'\n\t\t'      Text
'nodes'       Name.Variable
' '           Text
'add:'        Name.Function
' '           Text
'('           Text
'OTNamedVariableNode' Name.Class
' '           Text
'on:'         Name.Function
' '           Text
'self'        Name.Builtin.Pseudo
' '           Text
'index:'      Name.Function
' '           Text
'index'       Name.Variable
' '           Text
'name:'       Name.Function
' '           Text
'name'        Name.Variable
')'           Text
' '           Text
']'           Text
'.'           Punctuation
'\n\t'        Text
'1'           Literal.Number
' '           Text
'to:'         Name.Function
' '           Text
'self'        Name.Builtin.Pseudo
' '           Text
'basicSize'   Name.Function
' '           Text
'do:'         Name.Function
' '           Text
'['           Text
' '           Text
':'           Operator
'index'       Name.Variable
' '           Text
'|'           Operator
'\n\t\t'      Text
'nodes'       Name.Variable
' '           Text
'add:'        Name.Function
' '           Text
'('           Text
'OTIndexedVariableNode' Name.Class
' '           Text
'on:'         Name.Function
' '           Text
'self'        Name.Builtin.Pseudo
' '           Text
'index:'      Name.Function
' '           Text
'index'       Name.Variable
')'           Text
' '           Text
']'           Text
'.'           Punctuation
'\n\t'        Text
'^'           Operator
' '           Text
'nodes'       Name.Variable
'! !'         Keyword
'\n\n'        Text

'!'           Keyword
'Object'      Name.Class
' methodsFor: ' Keyword
"'*ob-tools-inspector'" Literal.String
" stamp: 'lr 6/5/2008 11:07'!" Keyword
'\n'          Text

'protocolInspectorNodes' Name.Function
'\n\t'        Text
'<'           Text
'inspector:'  Keyword
" #'#' priority: 800" Text
'>'           Text
'\n\n\t'      Text
'^'           Operator
' '           Text
'self'        Name.Builtin.Pseudo
' '           Text
'class'       Name.Function
' '           Text
'allSelectors' Name.Function
' '           Text
'asArray'     Name.Function
' '           Text
'sort'        Name.Function
'\n\t\t'      Text
'collect:'    Name.Function
' '           Text
'['           Text
' '           Text
':'           Operator
'each'        Name.Variable
' '           Text
'|'           Operator
' '           Text
'OTProtocolInspectorNode' Name.Class
' '           Text
'on:'         Name.Function
' '           Text
'self'        Name.Builtin.Pseudo
' '           Text
'selector:'   Name.Function
' '           Text
'each'        Name.Variable
' '           Text
']'           Text
'! !'         Keyword
'\n\n'        Text

'!'           Keyword
'Object'      Name.Class
' methodsFor: ' Keyword
"'*ob-tools-inspector'" Literal.String
" stamp: 'lr 6/5/2008 09:58'!" Keyword
'\n'          Text

'selfInspectorNode' Name.Function
'\n\t'        Text
'^'           Operator
' '           Text
'OTDerivedInspectorNode' Name.Class
' '           Text
'on:'         Name.Function
' '           Text
'self'        Name.Builtin.Pseudo
' '           Text
'label:'      Name.Function
' '           Text
"'self'"      Literal.String
' '           Text
'block:'      Name.Function
' '           Text
'['           Text
' '           Text
':'           Operator
'obj'         Name.Variable
' '           Text
'|'           Operator
' '           Text
'obj'         Name.Variable
' '           Text
']'           Text
'! !'         Keyword
'\n\n\n'      Text

'!'           Keyword
'Object'      Name.Class
' methodsFor: ' Keyword
"'*omnibrowser-converting'" Literal.String
" stamp: 'cwp 4/17/2006 12:16'!" Keyword
'\n'          Text

'asAnnouncement' Name.Function
'\n\t'        Text
'^'           Operator
' '           Text
'self'        Name.Builtin.Pseudo
'! !'         Keyword
'\n\n\n'      Text

'!'           Keyword
'Object'      Name.Class
' methodsFor: ' Keyword
"'*pier-model'" Literal.String
" stamp: 'lr 3/9/2006 11:29'!" Keyword
'\n'          Text

'accept:'     Name.Function
' '           Text
'aVisitor'    Name.Variable
'\n\t'        Text
'self'        Name.Builtin.Pseudo
' '           Text
'subclassResponsibility' Name.Function
'! !'         Keyword
'\n\n'        Text

'!'           Keyword
'Object'      Name.Class
' methodsFor: ' Keyword
"'*pier-model'" Literal.String
" stamp: 'lr 3/9/2006 11:29'!" Keyword
'\n'          Text

'acceptDecorated:' Name.Function
' '           Text
'aVisitor'    Name.Variable
'\n\t'        Text
'self'        Name.Builtin.Pseudo
' '           Text
'accept:'     Name.Function
' '           Text
'aVisitor'    Name.Variable
'! !'         Keyword
'\n\n\n'      Text

'!'           Keyword
'Object'      Name.Class
' methodsFor: ' Keyword
"'*rio-kernel'" Literal.String
" stamp: 'kph 3/8/2007 21:25'!" Keyword
'\n'          Text

'isRio'       Name.Function
'\n'          Text

'\n\t'        Text
'^'           Operator
' '           Text
'false'       Name.Builtin.Pseudo
'! !'         Keyword
'\n\n\n'      Text

'!'           Keyword
'Object'      Name.Class
' methodsFor: ' Keyword
"'*scriptaculous'" Literal.String
" stamp: 'lr 1/4/2007 17:20'!" Keyword
'\n'          Text

'asFunction'  Name.Function
'\n\t'        Text
'^'           Operator
' '           Text
'self'        Name.Builtin.Pseudo
' '           Text
'asFunction:' Name.Function
' '           Text
'#('          Literal.String.Symbol
')'           Literal.String.Symbol
'! !'         Keyword
'\n\n'        Text

'!'           Keyword
'Object'      Name.Class
' methodsFor: ' Keyword
"'*scriptaculous'" Literal.String
" stamp: 'lr 1/4/2007 17:21'!" Keyword
'\n'          Text

'asFunction:' Name.Function
' '           Text
'aCollection' Name.Variable
'\n\t'        Text
'^'           Operator
' '           Text
'SUFunction'  Name.Class
' '           Text
'new'         Name.Builtin
' '           Text
'add:'        Name.Function
' '           Text
'self'        Name.Builtin.Pseudo
';'           Punctuation
' '           Text
'arguments:'  Name.Function
' '           Text
'aCollection' Name.Variable
'! !'         Keyword
'\n\n'        Text

'!'           Keyword
'Object'      Name.Class
' methodsFor: ' Keyword
"'*scriptaculous'" Literal.String
" stamp: 'lr 4/11/2006 19:49'!" Keyword
'\n'          Text

'asJavascript' Name.Function
'\n\t'        Text
'^'           Operator
' '           Text
'String'      Name.Class
' '           Text
'streamContents:' Name.Function
' '           Text
'['           Text
' '           Text
':'           Operator
'stream'      Name.Variable
' '           Text
'|'           Operator
' '           Text
'self'        Name.Builtin.Pseudo
' '           Text
'javascriptOn:' Name.Function
' '           Text
'stream'      Name.Variable
' '           Text
']'           Text
'! !'         Keyword
'\n\n\n'      Text

'!'           Keyword
'Object'      Name.Class
' methodsFor: ' Keyword
"'*scriptaculous-printing'" Literal.String
" stamp: 'lr 4/20/2006 21:10'!" Keyword
'\n'          Text

'javascriptOn:' Name.Function
' '           Text
'aStream'     Name.Variable
'\n\t'        Text
'self'        Name.Builtin.Pseudo
' '           Text
'printOn:'    Name.Function
' '           Text
'aStream'     Name.Variable
'! !'         Keyword
'\n\n\n'      Text

'!'           Keyword
'Object'      Name.Class
' methodsFor: ' Keyword
"'*seaside2'" Literal.String
" stamp: 'lr 6/5/2007 21:35'!" Keyword
'\n'          Text

'deprecatedApi' Name.Function
'\n\t'        Text
'self'        Name.Builtin.Pseudo
' '           Text
'deprecatedApi:' Name.Function
' '           Text
'thisContext' Name.Builtin.Pseudo
' '           Text
'sender'      Name.Function
' '           Text
'displayString' Name.Function
'! !'         Keyword
'\n\n'        Text

'!'           Keyword
'Object'      Name.Class
' methodsFor: ' Keyword
"'*seaside2'" Literal.String
" stamp: 'lr 6/5/2007 21:35'!" Keyword
'\n'          Text

'deprecatedApi:' Name.Function
' '           Text
'aString'     Name.Variable
'\n\t'        Text
'WADeprecatedApi' Name.Class
' '           Text
'raiseSignal:' Name.Function
' '           Text
'aString'     Name.Variable
'! !'         Keyword
'\n\n'        Text

'!'           Keyword
'Object'      Name.Class
' methodsFor: ' Keyword
"'*seaside2'" Literal.String
" stamp: 'lr 5/9/2007 08:47'!" Keyword
'\n'          Text

'inspectorFields' Name.Function
'\n\t'        Text
'|'           Operator
' members '   Name.Variable
'|'           Operator
'\n\t'        Text
'members'     Name.Variable
' '           Text
':='          Operator
' '           Text
'Array'       Name.Class
' '           Text
'new'         Name.Builtin
' '           Text
'writeStream' Name.Function
'.'           Punctuation
'\n\t'        Text
'self'        Name.Builtin.Pseudo
' '           Text
'class'       Name.Function
' '           Text
'allInstVarNames' Name.Function
' '           Text
'withIndexDo:' Name.Function
' '           Text
'['           Text
' '           Text
':'           Operator
'each'        Name.Variable
' '           Text
':'           Operator
'index'       Name.Variable
' '           Text
'|'           Operator
'\n\t\t'      Text
'members'     Name.Variable
' '           Text
'nextPut:'    Name.Function
' '           Text
'each'        Name.Variable
' '           Text
'->'          Name.Function
' '           Text
'('           Text
'self'        Name.Builtin.Pseudo
' '           Text
'instVarAt:'  Name.Function
' '           Text
'index'       Name.Variable
')'           Text
' '           Text
']'           Text
'.'           Punctuation
'\n\t'        Text
'self'        Name.Builtin.Pseudo
' '           Text
'class'       Name.Function
' '           Text
'isVariable'  Name.Function
' '           Text
'ifTrue:'     Name.Builtin
' '           Text
'['           Text
'\n\t\t'      Text
'1'           Literal.Number
' '           Text
'to:'         Name.Function
' '           Text
'self'        Name.Builtin.Pseudo
' '           Text
'size'        Name.Function
' '           Text
'do:'         Name.Function
' '           Text
'['           Text
' '           Text
':'           Operator
'index'       Name.Variable
' '           Text
'|'           Operator
'\n\t\t\t'    Text
'members'     Name.Variable
' '           Text
'nextPut:'    Name.Function
' '           Text
'index'       Name.Variable
' '           Text
'->'          Name.Function
' '           Text
'('           Text
'self'        Name.Builtin.Pseudo
' '           Text
'at:'         Name.Function
' '           Text
'index'       Name.Variable
')'           Text
' '           Text
']'           Text
' '           Text
']'           Text
'.'           Punctuation
'\n\t'        Text
'^'           Operator
' '           Text
'members'     Name.Variable
' '           Text
'contents'    Name.Function
'! !'         Keyword
'\n\n'        Text

'!'           Keyword
'Object'      Name.Class
' methodsFor: ' Keyword
"'*seaside2'" Literal.String
" stamp: 'avi 3/14/2005 15:19'!" Keyword
'\n'          Text

'labelForSelector:' Name.Function
' '           Text
'aSymbol'     Name.Variable
'\n\t'        Text
'^'           Operator
' '           Text
'aSymbol'     Name.Variable
' '           Text
'asCapitalizedPhrase' Name.Function
'! !'         Keyword
'\n\n'        Text

'!'           Keyword
'Object'      Name.Class
' methodsFor: ' Keyword
"'*seaside2'" Literal.String
" stamp: 'pmm 4/7/2007 17:14'!" Keyword
'\n'          Text

'renderOn:'   Name.Function
' '           Text
'aRenderer'   Name.Variable
'\n\t'        Text
'"Override this method to customize how objects (not components) are rendered when passed as an argument to #render:. The default is the return value of #displayString.\n\tJust remember that you can not use #callback:, #on:of:, or #call:"' Comment
'\n\n\t'      Text
'aRenderer'   Name.Variable
' '           Text
'text:'       Name.Function
' '           Text
'self'        Name.Builtin.Pseudo
'! !'         Keyword
'\n\n'        Text

'!'           Keyword
'Object'      Name.Class
' methodsFor: ' Keyword
"'*seaside2'" Literal.String
" stamp: 'lr 3/19/2007 23:13'!" Keyword
'\n'          Text

'restoreFromSnapshot:' Name.Function
' '           Text
'anObject'    Name.Variable
'\n\t'        Text
'self'        Name.Builtin.Pseudo
' '           Text
'copyFrom:'   Name.Function
' '           Text
'anObject'    Name.Variable
'! !'         Keyword
'\n\n'        Text

'!'           Keyword
'Object'      Name.Class
' methodsFor: ' Keyword
"'*seaside2'" Literal.String
" stamp: 'avi 9/1/2004 21:20'!" Keyword
'\n'          Text

'snapshotCopy' Name.Function
'\n\t'        Text
'^'           Operator
' '           Text
'self'        Name.Builtin.Pseudo
' '           Text
'shallowCopy' Name.Function
'! !'         Keyword
'\n\n'        Text

'!'           Keyword
'Object'      Name.Class
' methodsFor: ' Keyword
"'*seaside2'" Literal.String
" stamp: 'lr 10/28/2007 14:42'!" Keyword
'\n'          Text

'validationError:' Name.Function
' '           Text
'message'     Name.Variable
'\n\t'        Text
'^'           Operator
'WAValidationNotification' Name.Class
' '           Text
'raiseSignal:' Name.Function
' '           Text
'message'     Name.Variable
'! !'         Keyword
'\n\n\n'      Text

'!'           Keyword
'Object'      Name.Class
' methodsFor: ' Keyword
"'*seaside2-encoding'" Literal.String
" stamp: 'lr 3/26/2007 20:16'!" Keyword
'\n'          Text

'encodeOn:'   Name.Function
' '           Text
'aDocument'   Name.Variable
'\n\t'        Text
'aDocument'   Name.Variable
' '           Text
'print:'      Name.Function
' '           Text
'self'        Name.Builtin.Pseudo
' '           Text
'displayString' Name.Function
'! !'         Keyword
'\n\n\n'      Text

'!'           Keyword
'Object'      Name.Class
' methodsFor: ' Keyword
"'*seaside2-squeak'" Literal.String
" stamp: 'pmm 5/22/2007 22:10'!" Keyword
'\n'          Text

'beMutable'   Name.Function
'\n\t'        Text
'"for VW compatibility, a hack that allows to cache a value in a literal array"' Comment
'! !'         Keyword
'\n\n'        Text

'!'           Keyword
'Object'      Name.Class
' methodsFor: ' Keyword
"'*seaside2-squeak'" Literal.String
" stamp: 'lr 7/12/2005 17:01'!" Keyword
'\n'          Text

'displayString' Name.Function
'\n\t'        Text
'^'           Operator
' '           Text
'self'        Name.Builtin.Pseudo
' '           Text
'asString'    Name.Function
'! !'         Keyword
'\n\n\n'      Text

'!'           Keyword
'Object'      Name.Class
' methodsFor: ' Keyword
"'*services-base'" Literal.String
" stamp: 'rr 3/21/2006 11:54'!" Keyword
'\n'          Text

'requestor'   Name.Function
'\n\t'        Text
'"returns the focused window\'s requestor"' Comment
'\n\n\t'      Text
'"SystemWindow focusedWindow ifNotNilDo: [:w | ^ w requestor]."' Comment
'\n\n\t'      Text
'"triggers an infinite loop"' Comment
'\n\n\t'      Text
'^'           Operator
' '           Text
'Requestor'   Name.Class
' '           Text
'default'     Name.Function
'! !'         Keyword
'\n\n\n'      Text

'!'           Keyword
'Object'      Name.Class
' methodsFor: ' Keyword
"'*system-support'" Literal.String
" stamp: 'dvf 8/23/2003 12:27'!" Keyword
'\n'          Text

'systemNavigation' Name.Function
'\n'          Text

'\n\t'        Text
'^'           Operator
' '           Text
'SystemNavigation' Name.Class
' '           Text
'default'     Name.Function
'! !'         Keyword
'\n\n\n'      Text

'!'           Keyword
'Object'      Name.Class
' methodsFor: ' Keyword
"'*tools-browser'" Literal.String
" stamp: 'mu 3/6/2004 15:13'!" Keyword
'\n'          Text

'browse'      Name.Function
'\n\t'        Text
'self'        Name.Builtin.Pseudo
' '           Text
'systemNavigation' Name.Function
' '           Text
'browseClass:' Name.Function
' '           Text
'self'        Name.Builtin.Pseudo
' '           Text
'class'       Name.Function
'! !'         Keyword
'\n\n'        Text

'!'           Keyword
'Object'      Name.Class
' methodsFor: ' Keyword
"'*tools-browser'" Literal.String
" stamp: 'mu 3/11/2004 16:00'!" Keyword
'\n'          Text

'browseHierarchy' Name.Function
'\n\t'        Text
'self'        Name.Builtin.Pseudo
' '           Text
'systemNavigation' Name.Function
' '           Text
'browseHierarchy:' Name.Function
' '           Text
'self'        Name.Builtin.Pseudo
' '           Text
'class'       Name.Function
'! !'         Keyword
'\n\n\n'      Text

'!'           Keyword
'Object'      Name.Class
' methodsFor: ' Keyword
"'*universes'" Literal.String
" stamp: 'ls 11/26/2006 12:33'!" Keyword
'\n'          Text

'isUPackage'  Name.Function
'\n\t'        Text
'^'           Operator
'false'       Name.Builtin.Pseudo
'! !'         Keyword
'\n\n'        Text

'!'           Keyword
'Object'      Name.Class
' methodsFor: ' Keyword
"'*universes'" Literal.String
" stamp: 'ls 11/26/2006 12:33'!" Keyword
'\n'          Text

'isUPackageCategory' Name.Function
'\n\t'        Text
'^'           Operator
'false'       Name.Builtin.Pseudo
'! !'         Keyword
'\n\n\n'      Text

'!'           Keyword
'Object'      Name.Class
' methodsFor: ' Keyword
"'accessing'" Literal.String
" stamp: 'sw 4/30/1998 12:18'!" Keyword
'\n'          Text

'addInstanceVarNamed:' Name.Function
' '           Text
'aName'       Name.Variable
' '           Text
'withValue:'  Name.Function
' '           Text
'aValue'      Name.Variable
'\n\t'        Text
'"Add an instance variable named aName and give it value aValue"' Comment
'\n\t'        Text
'self'        Name.Builtin.Pseudo
' '           Text
'class'       Name.Function
' '           Text
'addInstVarName:' Name.Function
' '           Text
'aName'       Name.Variable
' '           Text
'asString'    Name.Function
'.'           Punctuation
'\n\t'        Text
'self'        Name.Builtin.Pseudo
' '           Text
'instVarAt:'  Name.Function
' '           Text
'self'        Name.Builtin.Pseudo
' '           Text
'class'       Name.Function
' '           Text
'instSize'    Name.Function
' '           Text
'put:'        Name.Function
' '           Text
'aValue'      Name.Variable
'! !'         Keyword
'\n\n'        Text

'!'           Keyword
'Object'      Name.Class
' methodsFor: ' Keyword
"'accessing'" Literal.String
" stamp: 'yo 6/29/2004 11:39'!" Keyword
'\n'          Text

'at:'         Name.Function
' '           Text
'index'       Name.Variable
' \n\t'       Text
'"Primitive. Assumes receiver is indexable. Answer the value of an \n\tindexable element in the receiver. Fail if the argument index is not an \n\tInteger or is out of bounds. Essential. See Object documentation \n\twhatIsAPrimitive."' Comment
'\n\n\t'      Text
'<'           Text
'primitive:'  Keyword
' 60'         Text
'>'           Text
'\n\t'        Text
'index'       Name.Variable
' '           Text
'isInteger'   Name.Function
' '           Text
'ifTrue:'     Name.Builtin
'\n\t\t'      Text
'['           Text
'self'        Name.Builtin.Pseudo
' '           Text
'class'       Name.Function
' '           Text
'isVariable'  Name.Function
'\n\t\t\t'    Text
'ifTrue:'     Name.Builtin
' '           Text
'['           Text
'self'        Name.Builtin.Pseudo
' '           Text
'errorSubscriptBounds:' Name.Function
' '           Text
'index'       Name.Variable
']'           Text
'\n\t\t\t'    Text
'ifFalse:'    Name.Builtin
' '           Text
'['           Text
'self'        Name.Builtin.Pseudo
' '           Text
'errorNotIndexable' Name.Function
']'           Text
']'           Text
'.'           Punctuation
'\n\t'        Text
'index'       Name.Variable
' '           Text
'isNumber'    Name.Function
'\n\t\t'      Text
'ifTrue:'     Name.Builtin
' '           Text
'['           Text
'^'           Operator
'self'        Name.Builtin.Pseudo
' '           Text
'at:'         Name.Function
' '           Text
'index'       Name.Variable
' '           Text
'asInteger'   Name.Function
']'           Text
'\n\t\t'      Text
'ifFalse:'    Name.Builtin
' '           Text
'['           Text
'self'        Name.Builtin.Pseudo
' '           Text
'errorNonIntegerIndex' Name.Function
']'           Text
'! !'         Keyword
'\n\n'        Text

'!'           Keyword
'Object'      Name.Class
' methodsFor: ' Keyword
"'accessing'" Literal.String
'!'           Keyword
'\n'          Text

'at:'         Name.Function
' '           Text
'index'       Name.Variable
' '           Text
'modify:'     Name.Function
' '           Text
'aBlock'      Name.Variable
'\n\t'        Text
'"Replace the element of the collection with itself transformed by the block"' Comment
'\n\t'        Text
'^'           Operator
' '           Text
'self'        Name.Builtin.Pseudo
' '           Text
'at:'         Name.Function
' '           Text
'index'       Name.Variable
' '           Text
'put:'        Name.Function
' '           Text
'('           Text
'aBlock'      Name.Variable
' '           Text
'value:'      Name.Function
' '           Text
'('           Text
'self'        Name.Builtin.Pseudo
' '           Text
'at:'         Name.Function
' '           Text
'index'       Name.Variable
')'           Text
')'           Text
'! !'         Keyword
'\n\n'        Text

'!'           Keyword
'Object'      Name.Class
' methodsFor: ' Keyword
"'accessing'" Literal.String
" stamp: 'yo 6/29/2004 13:08'!" Keyword
'\n'          Text

'at:'         Name.Function
' '           Text
'index'       Name.Variable
' '           Text
'put:'        Name.Function
' '           Text
'value'       Name.Variable
' \n\t'       Text
'"Primitive. Assumes receiver is indexable. Store the argument value in \n\tthe indexable element of the receiver indicated by index. Fail if the \n\tindex is not an Integer or is out of bounds. Or fail if the value is not of \n\tthe right type for this kind of collection. Answer the value that was \n\tstored. Essential. See Object documentation whatIsAPrimitive."' Comment
'\n\n\t'      Text
'<'           Text
'primitive:'  Keyword
' 61'         Text
'>'           Text
'\n\t'        Text
'index'       Name.Variable
' '           Text
'isInteger'   Name.Function
' '           Text
'ifTrue:'     Name.Builtin
'\n\t\t'      Text
'['           Text
'self'        Name.Builtin.Pseudo
' '           Text
'class'       Name.Function
' '           Text
'isVariable'  Name.Function
'\n\t\t\t'    Text
'ifTrue:'     Name.Builtin
' '           Text
'['           Text
'('           Text
'index'       Name.Variable
' '           Text
'>='          Name.Function
' '           Text
'1'           Literal.Number
' '           Text
'and:'        Name.Function
' '           Text
'['           Text
'index'       Name.Variable
' '           Text
'<='          Name.Function
' '           Text
'self'        Name.Builtin.Pseudo
' '           Text
'size'        Name.Function
']'           Text
')'           Text
'\n\t\t\t\t\t' Text
'ifTrue:'     Name.Builtin
' '           Text
'['           Text
'self'        Name.Builtin.Pseudo
' '           Text
'errorImproperStore' Name.Function
']'           Text
'\n\t\t\t\t\t' Text
'ifFalse:'    Name.Builtin
' '           Text
'['           Text
'self'        Name.Builtin.Pseudo
' '           Text
'errorSubscriptBounds:' Name.Function
' '           Text
'index'       Name.Variable
']'           Text
']'           Text
'\n\t\t\t'    Text
'ifFalse:'    Name.Builtin
' '           Text
'['           Text
'self'        Name.Builtin.Pseudo
' '           Text
'errorNotIndexable' Name.Function
']'           Text
']'           Text
'.'           Punctuation
'\n\t'        Text
'index'       Name.Variable
' '           Text
'isNumber'    Name.Function
'\n\t\t'      Text
'ifTrue:'     Name.Builtin
' '           Text
'['           Text
'^'           Operator
'self'        Name.Builtin.Pseudo
' '           Text
'at:'         Name.Function
' '           Text
'index'       Name.Variable
' '           Text
'asInteger'   Name.Function
' '           Text
'put:'        Name.Function
' '           Text
'value'       Name.Variable
']'           Text
'\n\t\t'      Text
'ifFalse:'    Name.Builtin
' '           Text
'['           Text
'self'        Name.Builtin.Pseudo
' '           Text
'errorNonIntegerIndex' Name.Function
']'           Text
'! !'         Keyword
'\n\n'        Text

'!'           Keyword
'Object'      Name.Class
' methodsFor: ' Keyword
"'accessing'" Literal.String
" stamp: 'yo 9/20/2004 10:22'!" Keyword
'\n'          Text

'basicAddInstanceVarNamed:' Name.Function
' '           Text
'aName'       Name.Variable
' '           Text
'withValue:'  Name.Function
' '           Text
'aValue'      Name.Variable
'\n\t'        Text
'"Add an instance variable named aName and give it value aValue"' Comment
'\n\t'        Text
'self'        Name.Builtin.Pseudo
' '           Text
'class'       Name.Function
' '           Text
'addInstVarName:' Name.Function
' '           Text
'aName'       Name.Variable
' '           Text
'asString'    Name.Function
'.'           Punctuation
'\n\t'        Text
'self'        Name.Builtin.Pseudo
' '           Text
'instVarAt:'  Name.Function
' '           Text
'self'        Name.Builtin.Pseudo
' '           Text
'class'       Name.Function
' '           Text
'instSize'    Name.Function
' '           Text
'put:'        Name.Function
' '           Text
'aValue'      Name.Variable
'! !'         Keyword
'\n\n'        Text

'!'           Keyword
'Object'      Name.Class
' methodsFor: ' Keyword
"'accessing'" Literal.String
'!'           Keyword
'\n'          Text

'basicAt:'    Name.Function
' '           Text
'index'       Name.Variable
' \n\t'       Text
'"Primitive. Assumes receiver is indexable. Answer the value of an \n\tindexable element in the receiver. Fail if the argument index is not an \n\tInteger or is out of bounds. Essential. Do not override in a subclass. See \n\tObject documentation whatIsAPrimitive."' Comment
'\n\n\t'      Text
'<'           Text
'primitive:'  Keyword
' 60'         Text
'>'           Text
'\n\t'        Text
'index'       Name.Variable
' '           Text
'isInteger'   Name.Function
' '           Text
'ifTrue:'     Name.Builtin
' '           Text
'['           Text
'self'        Name.Builtin.Pseudo
' '           Text
'errorSubscriptBounds:' Name.Function
' '           Text
'index'       Name.Variable
']'           Text
'.'           Punctuation
'\n\t'        Text
'index'       Name.Variable
' '           Text
'isNumber'    Name.Function
'\n\t\t'      Text
'ifTrue:'     Name.Builtin
' '           Text
'['           Text
'^'           Operator
'self'        Name.Builtin.Pseudo
' '           Text
'basicAt:'    Name.Function
' '           Text
'index'       Name.Variable
' '           Text
'asInteger'   Name.Function
']'           Text
'\n\t\t'      Text
'ifFalse:'    Name.Builtin
' '           Text
'['           Text
'self'        Name.Builtin.Pseudo
' '           Text
'errorNonIntegerIndex' Name.Function
']'           Text
'! !'         Keyword
'\n\n'        Text

'!'           Keyword
'Object'      Name.Class
' methodsFor: ' Keyword
"'accessing'" Literal.String
'!'           Keyword
'\n'          Text

'basicAt:'    Name.Function
' '           Text
'index'       Name.Variable
' '           Text
'put:'        Name.Function
' '           Text
'value'       Name.Variable
' \n\t'       Text
'"Primitive. Assumes receiver is indexable. Store the second argument \n\tvalue in the indexable element of the receiver indicated by index. Fail \n\tif the index is not an Integer or is out of bounds. Or fail if the value is \n\tnot of the right type for this kind of collection. Answer the value that \n\twas stored. Essential. Do not override in a subclass. See Object \n\tdocumentation whatIsAPrimitive."' Comment
'\n\n\t'      Text
'<'           Text
'primitive:'  Keyword
' 61'         Text
'>'           Text
'\n\t'        Text
'index'       Name.Variable
' '           Text
'isInteger'   Name.Function
'\n\t\t'      Text
'ifTrue:'     Name.Builtin
' '           Text
'['           Text
'('           Text
'index'       Name.Variable
' '           Text
'>='          Name.Function
' '           Text
'1'           Literal.Number
' '           Text
'and:'        Name.Function
' '           Text
'['           Text
'index'       Name.Variable
' '           Text
'<='          Name.Function
' '           Text
'self'        Name.Builtin.Pseudo
' '           Text
'size'        Name.Function
']'           Text
')'           Text
'\n\t\t\t\t\t' Text
'ifTrue:'     Name.Builtin
' '           Text
'['           Text
'self'        Name.Builtin.Pseudo
' '           Text
'errorImproperStore' Name.Function
']'           Text
'\n\t\t\t\t\t' Text
'ifFalse:'    Name.Builtin
' '           Text
'['           Text
'self'        Name.Builtin.Pseudo
' '           Text
'errorSubscriptBounds:' Name.Function
' '           Text
'index'       Name.Variable
']'           Text
']'           Text
'.'           Punctuation
'\n\t'        Text
'index'       Name.Variable
' '           Text
'isNumber'    Name.Function
'\n\t\t'      Text
'ifTrue:'     Name.Builtin
' '           Text
'['           Text
'^'           Operator
'self'        Name.Builtin.Pseudo
' '           Text
'basicAt:'    Name.Function
' '           Text
'index'       Name.Variable
' '           Text
'asInteger'   Name.Function
' '           Text
'put:'        Name.Function
' '           Text
'value'       Name.Variable
']'           Text
'\n\t\t'      Text
'ifFalse:'    Name.Builtin
' '           Text
'['           Text
'self'        Name.Builtin.Pseudo
' '           Text
'errorNonIntegerIndex' Name.Function
']'           Text
'! !'         Keyword
'\n\n'        Text

'!'           Keyword
'Object'      Name.Class
' methodsFor: ' Keyword
"'accessing'" Literal.String
'!'           Keyword
'\n'          Text

'basicSize'   Name.Function
'\n\t'        Text
'"Primitive. Answer the number of indexable variables in the receiver. \n\tThis value is the same as the largest legal subscript. Essential. Do not \n\toverride in any subclass. See Object documentation whatIsAPrimitive."' Comment
'\n\n\t'      Text
'<'           Text
'primitive:'  Keyword
' 62'         Text
'>'           Text
'\n\t'        Text
'"The number of indexable fields of fixed-length objects is 0"' Comment
'\n\t'        Text
'^'           Operator
'0'           Literal.Number
'\t'          Text
'! !'         Keyword
'\n\n'        Text

'!'           Keyword
'Object'      Name.Class
' methodsFor: ' Keyword
"'accessing'" Literal.String
'!'           Keyword
'\n'          Text

'bindWithTemp:' Name.Function
' '           Text
'aBlock'      Name.Variable
'\n\t'        Text
'^'           Operator
' '           Text
'aBlock'      Name.Variable
' '           Text
'value:'      Name.Function
' '           Text
'self'        Name.Builtin.Pseudo
' '           Text
'value:'      Name.Function
' '           Text
'nil'         Name.Builtin.Pseudo
'! !'         Keyword
'\n\n'        Text

'!'           Keyword
'Object'      Name.Class
' methodsFor: ' Keyword
"'accessing'" Literal.String
" stamp: 'md 10/7/2004 15:43'!" Keyword
'\n'          Text

'ifNil:'      Name.Function
' '           Text
'nilBlock'    Name.Variable
' '           Text
'ifNotNilDo:' Name.Function
' '           Text
'aBlock'      Name.Variable
' \n\t'       Text
'"Evaluate aBlock with the receiver as its argument."' Comment
'\n\n\t'      Text
'^'           Operator
' '           Text
'aBlock'      Name.Variable
' '           Text
'value:'      Name.Function
' '           Text
'self'        Name.Builtin.Pseudo
'\n'          Text

'! !'         Keyword
'\n\n'        Text

'!'           Keyword
'Object'      Name.Class
' methodsFor: ' Keyword
"'accessing'" Literal.String
" stamp: 'di 11/8/2000 21:04'!" Keyword
'\n'          Text

'ifNotNilDo:' Name.Function
' '           Text
'aBlock'      Name.Variable
'\n\t'        Text
'"Evaluate the given block with the receiver as its argument."' Comment
'\n\n\t'      Text
'^'           Operator
' '           Text
'aBlock'      Name.Variable
' '           Text
'value:'      Name.Function
' '           Text
'self'        Name.Builtin.Pseudo
'\n'          Text

'! !'         Keyword
'\n\n'        Text

'!'           Keyword
'Object'      Name.Class
' methodsFor: ' Keyword
"'accessing'" Literal.String
" stamp: 'md 10/7/2004 15:43'!" Keyword
'\n'          Text

'ifNotNilDo:' Name.Function
' '           Text
'aBlock'      Name.Variable
' '           Text
'ifNil:'      Name.Function
' '           Text
'nilBlock'    Name.Variable
'\n\t'        Text
'"Evaluate aBlock with the receiver as its argument."' Comment
'\n\n\t'      Text
'^'           Operator
' '           Text
'aBlock'      Name.Variable
' '           Text
'value:'      Name.Function
' '           Text
'self'        Name.Builtin.Pseudo
'\n'          Text

'! !'         Keyword
'\n\n'        Text

'!'           Keyword
'Object'      Name.Class
' methodsFor: ' Keyword
"'accessing'" Literal.String
" stamp: 'ajh 1/21/2003 12:59'!" Keyword
'\n'          Text

'in:'         Name.Function
' '           Text
'aBlock'      Name.Variable
'\n\t'        Text
'"Evaluate the given block with the receiver as its argument."' Comment
'\n\n\t'      Text
'^'           Operator
' '           Text
'aBlock'      Name.Variable
' '           Text
'value:'      Name.Function
' '           Text
'self'        Name.Builtin.Pseudo
'\n'          Text

'! !'         Keyword
'\n\n'        Text

'!'           Keyword
'Object'      Name.Class
' methodsFor: ' Keyword
"'accessing'" Literal.String
" stamp: 'sw 10/17/2000 11:15'!" Keyword
'\n'          Text

'presenter'   Name.Function
'\n\t'        Text
'"Answer the presenter object associated with the receiver.  For morphs, there is in effect a clear containment hierarchy of presenters (accessed via their association with PasteUpMorphs); for arbitrary objects the hook is simply via the current world, at least at present."' Comment
'\n\n\t'      Text
'^'           Operator
' '           Text
'self'        Name.Builtin.Pseudo
' '           Text
'currentWorld' Name.Function
' '           Text
'presenter'   Name.Function
'! !'         Keyword
'\n\n'        Text

'!'           Keyword
'Object'      Name.Class
' methodsFor: ' Keyword
"'accessing'" Literal.String
'!'           Keyword
'\n'          Text

'readFromString:' Name.Function
' '           Text
'aString'     Name.Variable
'\n\t'        Text
'"Create an object based on the contents of aString."' Comment
'\n\n\t'      Text
'^'           Operator
'self'        Name.Builtin.Pseudo
' '           Text
'readFrom:'   Name.Function
' '           Text
'('           Text
'ReadStream'  Name.Class
' '           Text
'on:'         Name.Function
' '           Text
'aString'     Name.Variable
')'           Text
'! !'         Keyword
'\n\n'        Text

'!'           Keyword
'Object'      Name.Class
' methodsFor: ' Keyword
"'accessing'" Literal.String
" stamp: 'di 3/29/1999 13:10'!" Keyword
'\n'          Text

'size'        Name.Function
'\n\t'        Text
'"Primitive. Answer the number of indexable variables in the receiver. \n\tThis value is the same as the largest legal subscript. Essential. See Object \n\tdocumentation whatIsAPrimitive."' Comment
'\n\n\t'      Text
'<'           Text
'primitive:'  Keyword
' 62'         Text
'>'           Text
'\n\t'        Text
'self'        Name.Builtin.Pseudo
' '           Text
'class'       Name.Function
' '           Text
'isVariable'  Name.Function
' '           Text
'ifFalse:'    Name.Builtin
' '           Text
'['           Text
'self'        Name.Builtin.Pseudo
' '           Text
'errorNotIndexable' Name.Function
']'           Text
'.'           Punctuation
'\n\t'        Text
'^'           Operator
' '           Text
'0'           Literal.Number
'! !'         Keyword
'\n\n'        Text

'!'           Keyword
'Object'      Name.Class
' methodsFor: ' Keyword
"'accessing'" Literal.String
" stamp: 'md 5/16/2006 12:34'!" Keyword
'\n'          Text

'yourself'    Name.Function
'\n\t'        Text
'"Answer self."' Comment
'\n\t'        Text
'^'           Operator
'self'        Name.Builtin.Pseudo
'! !'         Keyword
'\n\n\n'      Text

'!'           Keyword
'Object'      Name.Class
' methodsFor: ' Keyword
"'associating'" Literal.String
" stamp: 'md 7/22/2005 16:03'!" Keyword
'\n'          Text

'->'          Name.Function
' '           Text
'anObject'    Name.Variable
'\n\t'        Text
'"Answer an Association between self and anObject"' Comment
'\n\n\t'      Text
'^'           Operator
'Association' Name.Class
' '           Text
'basicNew'    Name.Function
' '           Text
'key:'        Name.Function
' '           Text
'self'        Name.Builtin.Pseudo
' '           Text
'value:'      Name.Function
' '           Text
'anObject'    Name.Variable
'! !'         Keyword
'\n\n\n'      Text

'!'           Keyword
'Object'      Name.Class
' methodsFor: ' Keyword
"'binding'"   Literal.String
'!'           Keyword
'\n'          Text

'bindingOf:'  Name.Function
' '           Text
'aString'     Name.Variable
'\n\t'        Text
'^'           Operator
'nil'         Name.Builtin.Pseudo
'! !'         Keyword
'\n\n\n'      Text

'!'           Keyword
'Object'      Name.Class
' methodsFor: ' Keyword
"'breakpoint'" Literal.String
" stamp: 'bkv 7/1/2003 12:33'!" Keyword
'\n'          Text

'break'       Name.Function
'\n\t'        Text
'"This is a simple message to use for inserting breakpoints during debugging.\n\tThe debugger is opened by sending a signal. This gives a chance to restore\n\tinvariants related to multiple processes."' Comment
'\n\n\t'      Text
'BreakPoint'  Name.Class
' '           Text
'signal'      Name.Function
'.'           Punctuation
'\n\n\t'      Text
'"nil break."' Comment
'! !'         Keyword
'\n\n\n'      Text

'!'           Keyword
'Object'      Name.Class
' methodsFor: ' Keyword
"'casing'"    Literal.String
'!'           Keyword
'\n'          Text

'caseOf:'     Name.Function
' '           Text
'aBlockAssociationCollection' Name.Variable
'\n\t'        Text
'"The elements of aBlockAssociationCollection are associations between blocks.\n\t Answer the evaluated value of the first association in aBlockAssociationCollection\n\t whose evaluated key equals the receiver.  If no match is found, report an error."' Comment
'\n\n\t'      Text
'^'           Operator
' '           Text
'self'        Name.Builtin.Pseudo
' '           Text
'caseOf:'     Name.Function
' '           Text
'aBlockAssociationCollection' Name.Variable
' '           Text
'otherwise:'  Name.Function
' '           Text
'['           Text
'self'        Name.Builtin.Pseudo
' '           Text
'caseError'   Name.Function
']'           Text
'\n\n'        Text

'"| z | z _ {[#a]->[1+1]. [\'b\' asSymbol]->[2+2]. [#c]->[3+3]}. #b caseOf: z"' Comment
'\n'          Text

'"| z | z _ {[#a]->[1+1]. [\'d\' asSymbol]->[2+2]. [#c]->[3+3]}. #b caseOf: z"' Comment
'\n'          Text

'"The following are compiled in-line:"' Comment
'\n'          Text

'"#b caseOf: {[#a]->[1+1]. [\'b\' asSymbol]->[2+2]. [#c]->[3+3]}"' Comment
'\n'          Text

'"#b caseOf: {[#a]->[1+1]. [\'d\' asSymbol]->[2+2]. [#c]->[3+3]}"' Comment
'! !'         Keyword
'\n\n'        Text

'!'           Keyword
'Object'      Name.Class
' methodsFor: ' Keyword
"'casing'"    Literal.String
'!'           Keyword
'\n'          Text

'caseOf:'     Name.Function
' '           Text
'aBlockAssociationCollection' Name.Variable
' '           Text
'otherwise:'  Name.Function
' '           Text
'aBlock'      Name.Variable
'\n\t'        Text
'"The elements of aBlockAssociationCollection are associations between blocks.\n\t Answer the evaluated value of the first association in aBlockAssociationCollection\n\t whose evaluated key equals the receiver.  If no match is found, answer the result\n\t of evaluating aBlock."' Comment
'\n\n\t'      Text
'aBlockAssociationCollection' Name.Variable
' '           Text
'associationsDo:' Name.Function
'\n\t\t'      Text
'['           Text
':'           Operator
'assoc'       Name.Variable
' '           Text
'|'           Operator
' '           Text
'('           Text
'assoc'       Name.Variable
' '           Text
'key'         Name.Function
' '           Text
'value'       Name.Function
' '           Text
'='           Name.Function
' '           Text
'self'        Name.Builtin.Pseudo
')'           Text
' '           Text
'ifTrue:'     Name.Builtin
' '           Text
'['           Text
'^'           Operator
'assoc'       Name.Variable
' '           Text
'value'       Name.Function
' '           Text
'value'       Name.Function
']'           Text
']'           Text
'.'           Punctuation
'\n\t'        Text
'^'           Operator
' '           Text
'aBlock'      Name.Variable
' '           Text
'value'       Name.Function
'\n\n'        Text

'"| z | z _ {[#a]->[1+1]. [\'b\' asSymbol]->[2+2]. [#c]->[3+3]}. #b caseOf: z otherwise: [0]"' Comment
'\n'          Text

'"| z | z _ {[#a]->[1+1]. [\'d\' asSymbol]->[2+2]. [#c]->[3+3]}. #b caseOf: z otherwise: [0]"' Comment
'\n'          Text

'"The following are compiled in-line:"' Comment
'\n'          Text

'"#b caseOf: {[#a]->[1+1]. [\'b\' asSymbol]->[2+2]. [#c]->[3+3]} otherwise: [0]"' Comment
'\n'          Text

'"#b caseOf: {[#a]->[1+1]. [\'d\' asSymbol]->[2+2]. [#c]->[3+3]} otherwise: [0]"' Comment
'! !'         Keyword
'\n\n\n'      Text

'!'           Keyword
'Object'      Name.Class
' methodsFor: ' Keyword
"'class membership'" Literal.String
'!'           Keyword
'\n'          Text

'class'       Name.Function
'\n\t'        Text
'"Primitive. Answer the object which is the receiver\'s class. Essential. See \n\tObject documentation whatIsAPrimitive."' Comment
'\n\n\t'      Text
'<'           Text
'primitive:'  Keyword
' 111'        Text
'>'           Text
'\n\t'        Text
'self'        Name.Builtin.Pseudo
' '           Text
'primitiveFailed' Name.Function
'! !'         Keyword
'\n\n'        Text

'!'           Keyword
'Object'      Name.Class
' methodsFor: ' Keyword
"'class membership'" Literal.String
" stamp: 'sw 9/27/2001 15:51'!" Keyword
'\n'          Text

'inheritsFromAnyIn:' Name.Function
' '           Text
'aList'       Name.Variable
'\n\t'        Text
'"Answer whether the receiver inherits from any class represented by any element in the list.  The elements of the list can be classes, class name symbols, or strings representing possible class names.  This allows speculative membership tests to be made even when some of the classes may not be known to the current image, and even when their names are not interned symbols."' Comment
'\n\n\t'      Text
'|'           Operator
' aClass '    Name.Variable
'|'           Operator
'\n\t'        Text
'aList'       Name.Variable
' '           Text
'do:'         Name.Function
'\n\t\t'      Text
'['           Text
':'           Operator
'elem'        Name.Variable
' '           Text
'|'           Operator
' '           Text
'Symbol'      Name.Class
' '           Text
'hasInterned:' Name.Function
' '           Text
'elem'        Name.Variable
' '           Text
'asString'    Name.Function
' '           Text
'ifTrue:'     Name.Builtin
' \n\t\t\t'   Text
'['           Text
':'           Operator
'elemSymbol'  Name.Variable
' '           Text
'|'           Operator
' '           Text
'('           Text
'('           Text
'('           Text
'aClass'      Name.Variable
' '           Text
'_'           Operator
' '           Text
'Smalltalk'   Name.Class
' '           Text
'at:'         Name.Function
' '           Text
'elemSymbol'  Name.Variable
' '           Text
'ifAbsent:'   Name.Function
' '           Text
'['           Text
'nil'         Name.Builtin.Pseudo
']'           Text
')'           Text
' '           Text
'isKindOf:'   Name.Function
' '           Text
'Class'       Name.Class
')'           Text
'\n\t\t\t\t\t\t' Text
'and:'        Name.Function
' '           Text
'['           Text
'self'        Name.Builtin.Pseudo
' '           Text
'isKindOf:'   Name.Function
' '           Text
'aClass'      Name.Variable
']'           Text
')'           Text
'\n\t\t\t\t'  Text
'ifTrue:'     Name.Builtin
'\n\t\t\t\t\t' Text
'['           Text
'^'           Operator
' '           Text
'true'        Name.Builtin.Pseudo
']'           Text
']'           Text
']'           Text
'.'           Punctuation
'\n\t'        Text
'^'           Operator
' '           Text
'false'       Name.Builtin.Pseudo
'\n\n\n'      Text

'"\n{3.  true. \'olive\'} do:\n\t[:token |\n\t\t {{#Number. #Boolean}. {Number.  Boolean }.  {\'Number\'. \'Boolean\'}} do:\n\t\t\t[:list |\n\t\t\t\tTranscript cr; show: token asString, \' list element provided as a \', list first class name, \' - \', (token inheritsFromAnyIn: list) asString]]\n"' Comment
'! !'         Keyword
'\n\n'        Text

'!'           Keyword
'Object'      Name.Class
' methodsFor: ' Keyword
"'class membership'" Literal.String
'!'           Keyword
'\n'          Text

'isKindOf:'   Name.Function
' '           Text
'aClass'      Name.Variable
' \n\t'       Text
'"Answer whether the class, aClass, is a superclass or class of the receiver."' Comment
'\n\n\t'      Text
'self'        Name.Builtin.Pseudo
' '           Text
'class'       Name.Function
' '           Text
'=='          Name.Function
' '           Text
'aClass'      Name.Variable
'\n\t\t'      Text
'ifTrue:'     Name.Builtin
' '           Text
'['           Text
'^'           Operator
'true'        Name.Builtin.Pseudo
']'           Text
'\n\t\t'      Text
'ifFalse:'    Name.Builtin
' '           Text
'['           Text
'^'           Operator
'self'        Name.Builtin.Pseudo
' '           Text
'class'       Name.Function
' '           Text
'inheritsFrom:' Name.Function
' '           Text
'aClass'      Name.Variable
']'           Text
'! !'         Keyword
'\n\n'        Text

'!'           Keyword
'Object'      Name.Class
' methodsFor: ' Keyword
"'class membership'" Literal.String
" stamp: 'sw 2/16/98 02:08'!" Keyword
'\n'          Text

'isKindOf:'   Name.Function
' '           Text
'aClass'      Name.Variable
' '           Text
'orOf:'       Name.Function
' '           Text
'anotherClass' Name.Variable
'\n\t'        Text
'"Answer whether either of the classes, aClass or anotherClass,, is a superclass or class of the receiver.  A convenience; could be somewhat optimized"' Comment
'\n\t'        Text
'^'           Operator
' '           Text
'('           Text
'self'        Name.Builtin.Pseudo
' '           Text
'isKindOf:'   Name.Function
' '           Text
'aClass'      Name.Variable
')'           Text
' '           Text
'or:'         Name.Function
' '           Text
'['           Text
'self'        Name.Builtin.Pseudo
' '           Text
'isKindOf:'   Name.Function
' '           Text
'anotherClass' Name.Variable
']'           Text
'! !'         Keyword
'\n\n'        Text

'!'           Keyword
'Object'      Name.Class
' methodsFor: ' Keyword
"'class membership'" Literal.String
'!'           Keyword
'\n'          Text

'isMemberOf:' Name.Function
' '           Text
'aClass'      Name.Variable
' \n\t'       Text
'"Answer whether the receiver is an instance of the class, aClass."' Comment
'\n\n\t'      Text
'^'           Operator
'self'        Name.Builtin.Pseudo
' '           Text
'class'       Name.Function
' '           Text
'=='          Name.Function
' '           Text
'aClass'      Name.Variable
'! !'         Keyword
'\n\n'        Text

'!'           Keyword
'Object'      Name.Class
' methodsFor: ' Keyword
"'class membership'" Literal.String
'!'           Keyword
'\n'          Text

'respondsTo:' Name.Function
' '           Text
'aSymbol'     Name.Variable
' \n\t'       Text
'"Answer whether the method dictionary of the receiver\'s class contains \n\taSymbol as a message selector."' Comment
'\n\n\t'      Text
'^'           Operator
'self'        Name.Builtin.Pseudo
' '           Text
'class'       Name.Function
' '           Text
'canUnderstand:' Name.Function
' '           Text
'aSymbol'     Name.Variable
'! !'         Keyword
'\n\n'        Text

'!'           Keyword
'Object'      Name.Class
' methodsFor: ' Keyword
"'class membership'" Literal.String
" stamp: 'tk 10/21/1998 12:38'!" Keyword
'\n'          Text

'xxxClass'    Name.Function
'\n\t'        Text
'"For subclasses of nil, such as ObjectOut"' Comment
'\n\t'        Text
'^'           Operator
' '           Text
'self'        Name.Builtin.Pseudo
' '           Text
'class'       Name.Function
'! !'         Keyword
'\n\n\n'      Text

'!'           Keyword
'Object'      Name.Class
' methodsFor: ' Keyword
"'comparing'" Literal.String
" stamp: 'tk 4/16/1999 18:26'!" Keyword
'\n'          Text

'closeTo:'    Name.Function
' '           Text
'anObject'    Name.Variable
'\n\t'        Text
'"Answer whether the receiver and the argument represent the same\n\tobject. If = is redefined in any subclass, consider also redefining the\n\tmessage hash."' Comment
'\n\n\t'      Text
'|'           Operator
' ans '       Name.Variable
'|'           Operator
'\n\t'        Text
'['           Text
'ans'         Name.Variable
' '           Text
'_'           Operator
' '           Text
'self'        Name.Builtin.Pseudo
' '           Text
'='           Name.Function
' '           Text
'anObject'    Name.Variable
']'           Text
' '           Text
'ifError:'    Name.Function
' '           Text
'['           Text
':'           Operator
'aString'     Name.Variable
' '           Text
':'           Operator
'aReceiver'   Name.Variable
' '           Text
'|'           Operator
' '           Text
'^'           Operator
' '           Text
'false'       Name.Builtin.Pseudo
']'           Text
'.'           Punctuation
'\n\t'        Text
'^'           Operator
' '           Text
'ans'         Name.Variable
'! !'         Keyword
'\n\n'        Text

'!'           Keyword
'Object'      Name.Class
' methodsFor: ' Keyword
"'comparing'" Literal.String
'!'           Keyword
'\n'          Text

'hash'        Name.Function
'\n\t'        Text
'"Answer a SmallInteger whose value is related to the receiver\'s identity.\n\tMay be overridden, and should be overridden in any classes that define = "' Comment
'\n\n\t'      Text
'^'           Operator
' '           Text
'self'        Name.Builtin.Pseudo
' '           Text
'identityHash' Name.Function
'! !'         Keyword
'\n\n'        Text

'!'           Keyword
'Object'      Name.Class
' methodsFor: ' Keyword
"'comparing'" Literal.String
" stamp: 'pm 9/23/97 09:36'!" Keyword
'\n'          Text

'hashMappedBy:' Name.Function
' '           Text
'map'         Name.Variable
'\n\t'        Text
'"Answer what my hash would be if oops changed according to map."' Comment
'\n\n\t'      Text
'^'           Operator
'map'         Name.Variable
' '           Text
'newHashFor:' Name.Function
' '           Text
'self'        Name.Builtin.Pseudo
'! !'         Keyword
'\n\n'        Text

'!'           Keyword
'Object'      Name.Class
' methodsFor: ' Keyword
"'comparing'" Literal.String
" stamp: 'di 9/27/97 20:23'!" Keyword
'\n'          Text

'identityHashMappedBy:' Name.Function
' '           Text
'map'         Name.Variable
'\n\t'        Text
'"Answer what my hash would be if oops changed according to map."' Comment
'\n\n\t'      Text
'^'           Operator
'map'         Name.Variable
' '           Text
'newHashFor:' Name.Function
' '           Text
'self'        Name.Builtin.Pseudo
'! !'         Keyword
'\n\n'        Text

'!'           Keyword
'Object'      Name.Class
' methodsFor: ' Keyword
"'comparing'" Literal.String
" stamp: 'sw 8/20/1998 12:34'!" Keyword
'\n'          Text

'identityHashPrintString' Name.Function
'\n\t'        Text
'"\'fred\' identityHashPrintString"' Comment
'\n\n\t'      Text
'^'           Operator
' '           Text
"'('"         Literal.String
','           Name.Function
' '           Text
'self'        Name.Builtin.Pseudo
' '           Text
'identityHash' Name.Function
' '           Text
'printString' Name.Function
','           Name.Function
' '           Text
"')'"         Literal.String
'! !'         Keyword
'\n\n'        Text

'!'           Keyword
'Object'      Name.Class
' methodsFor: ' Keyword
"'comparing'" Literal.String
" stamp: 'ajh 2/2/2002 15:02'!" Keyword
'\n'          Text

'literalEqual:' Name.Function
' '           Text
'other'       Name.Variable
'\n\n\t'      Text
'^'           Operator
' '           Text
'self'        Name.Builtin.Pseudo
' '           Text
'class'       Name.Function
' '           Text
'=='          Name.Function
' '           Text
'other'       Name.Variable
' '           Text
'class'       Name.Function
' '           Text
'and:'        Name.Function
' '           Text
'['           Text
'self'        Name.Builtin.Pseudo
' '           Text
'='           Name.Function
' '           Text
'other'       Name.Variable
']'           Text
'! !'         Keyword
'\n\n'        Text

'!'           Keyword
'Object'      Name.Class
' methodsFor: ' Keyword
"'comparing'" Literal.String
'!'           Keyword
'\n'          Text

'='           Name.Function
' '           Text
'anObject'    Name.Variable
' '           Text
'\n\t'        Text
'"Answer whether the receiver and the argument represent the same \n\tobject. If = is redefined in any subclass, consider also redefining the \n\tmessage hash."' Comment
'\n\n\t'      Text
'^'           Operator
'self'        Name.Builtin.Pseudo
' '           Text
'=='          Name.Function
' '           Text
'anObject'    Name.Variable
'! !'         Keyword
'\n\n'        Text

'!'           Keyword
'Object'      Name.Class
' methodsFor: ' Keyword
"'comparing'" Literal.String
'!'           Keyword
'\n'          Text

'~='          Name.Function
' '           Text
'anObject'    Name.Variable
' '           Text
'\n\t'        Text
'"Answer whether the receiver and the argument do not represent the \n\tsame object."' Comment
'\n\n\t'      Text
'^'           Operator
'self'        Name.Builtin.Pseudo
' '           Text
'='           Name.Function
' '           Text
'anObject'    Name.Variable
' '           Text
'=='          Name.Function
' '           Text
'false'       Name.Builtin.Pseudo
'! !'         Keyword
'\n\n\n'      Text

'!'           Keyword
'Object'      Name.Class
' methodsFor: ' Keyword
"'converting'" Literal.String
" stamp: 'di 11/9/1998 12:15'!" Keyword
'\n'          Text

'adaptToFloat:' Name.Function
' '           Text
'rcvr'        Name.Variable
' '           Text
'andSend:'    Name.Function
' '           Text
'selector'    Name.Variable
'\n\t'        Text
'"If no method has been provided for adapting an object to a Float,\n\tthen it may be adequate to simply adapt it to a number."' Comment
'\n\t'        Text
'^'           Operator
' '           Text
'self'        Name.Builtin.Pseudo
' '           Text
'adaptToNumber:' Name.Function
' '           Text
'rcvr'        Name.Variable
' '           Text
'andSend:'    Name.Function
' '           Text
'selector'    Name.Variable
'! !'         Keyword
'\n\n'        Text

'!'           Keyword
'Object'      Name.Class
' methodsFor: ' Keyword
"'converting'" Literal.String
" stamp: 'di 11/9/1998 12:14'!" Keyword
'\n'          Text

'adaptToFraction:' Name.Function
' '           Text
'rcvr'        Name.Variable
' '           Text
'andSend:'    Name.Function
' '           Text
'selector'    Name.Variable
'\n\t'        Text
'"If no method has been provided for adapting an object to a Fraction,\n\tthen it may be adequate to simply adapt it to a number."' Comment
'\n\t'        Text
'^'           Operator
' '           Text
'self'        Name.Builtin.Pseudo
' '           Text
'adaptToNumber:' Name.Function
' '           Text
'rcvr'        Name.Variable
' '           Text
'andSend:'    Name.Function
' '           Text
'selector'    Name.Variable
'! !'         Keyword
'\n\n'        Text

'!'           Keyword
'Object'      Name.Class
' methodsFor: ' Keyword
"'converting'" Literal.String
" stamp: 'di 11/9/1998 12:15'!" Keyword
'\n'          Text

'adaptToInteger:' Name.Function
' '           Text
'rcvr'        Name.Variable
' '           Text
'andSend:'    Name.Function
' '           Text
'selector'    Name.Variable
'\n\t'        Text
'"If no method has been provided for adapting an object to a Integer,\n\tthen it may be adequate to simply adapt it to a number."' Comment
'\n\t'        Text
'^'           Operator
' '           Text
'self'        Name.Builtin.Pseudo
' '           Text
'adaptToNumber:' Name.Function
' '           Text
'rcvr'        Name.Variable
' '           Text
'andSend:'    Name.Function
' '           Text
'selector'    Name.Variable
'! !'         Keyword
'\n\n'        Text

'!'           Keyword
'Object'      Name.Class
' methodsFor: ' Keyword
"'converting'" Literal.String
" stamp: 'rw 4/27/2002 07:48'!" Keyword
'\n'          Text

'asActionSequence' Name.Function
'\n'          Text

'\n\t'        Text
'^'           Operator
'WeakActionSequence' Name.Class
' '           Text
'with:'       Name.Function
' '           Text
'self'        Name.Builtin.Pseudo
'! !'         Keyword
'\n\n'        Text

'!'           Keyword
'Object'      Name.Class
' methodsFor: ' Keyword
"'converting'" Literal.String
" stamp: 'rw 7/20/2003 16:03'!" Keyword
'\n'          Text

'asActionSequenceTrappingErrors' Name.Function
'\n'          Text

'\n\t'        Text
'^'           Operator
'WeakActionSequenceTrappingErrors' Name.Class
' '           Text
'with:'       Name.Function
' '           Text
'self'        Name.Builtin.Pseudo
'! !'         Keyword
'\n\n'        Text

'!'           Keyword
'Object'      Name.Class
' methodsFor: ' Keyword
"'converting'" Literal.String
" stamp: 'svp 5/16/2000 18:14'!" Keyword
'\n'          Text

'asDraggableMorph' Name.Function
'\n\t'        Text
'^'           Operator
'('           Text
'StringMorph' Name.Class
' '           Text
'contents:'   Name.Function
' '           Text
'self'        Name.Builtin.Pseudo
' '           Text
'printString' Name.Function
')'           Text
'\n\t\t'      Text
'color:'      Name.Function
' '           Text
'Color'       Name.Class
' '           Text
'white'       Name.Function
';'           Punctuation
'\n\t\t'      Text
'yourself'    Name.Function
'! !'         Keyword
'\n\n'        Text

'!'           Keyword
'Object'      Name.Class
' methodsFor: ' Keyword
"'converting'" Literal.String
" stamp: 'sma 5/12/2000 17:39'!" Keyword
'\n'          Text

'asOrderedCollection' Name.Function
'\n\t'        Text
'"Answer an OrderedCollection with the receiver as its only element."' Comment
'\n\n\t'      Text
'^'           Operator
' '           Text
'OrderedCollection' Name.Class
' '           Text
'with:'       Name.Function
' '           Text
'self'        Name.Builtin.Pseudo
'! !'         Keyword
'\n\n'        Text

'!'           Keyword
'Object'      Name.Class
' methodsFor: ' Keyword
"'converting'" Literal.String
'!'           Keyword
'\n'          Text

'asString'    Name.Function
'\n\t'        Text
'"Answer a string that represents the receiver."' Comment
'\n\n\t'      Text
'^'           Operator
' '           Text
'self'        Name.Builtin.Pseudo
' '           Text
'printString' Name.Function
' '           Text
'! !'         Keyword
'\n\n'        Text

'!'           Keyword
'Object'      Name.Class
' methodsFor: ' Keyword
"'converting'" Literal.String
" stamp: 'ajh 3/11/2003 10:27'!" Keyword
'\n'          Text

'asStringOrText' Name.Function
'\n\t'        Text
'"Answer a string that represents the receiver."' Comment
'\n\n\t'      Text
'^'           Operator
' '           Text
'self'        Name.Builtin.Pseudo
' '           Text
'printString' Name.Function
' '           Text
'! !'         Keyword
'\n\n'        Text

'!'           Keyword
'Object'      Name.Class
' methodsFor: ' Keyword
"'converting'" Literal.String
'!'           Keyword
'\n'          Text

'as:'         Name.Function
' '           Text
'aSimilarClass' Name.Variable
'\n\t'        Text
'"Create an object of class aSimilarClass that has similar contents to the receiver."' Comment
'\n\n\t'      Text
'^'           Operator
' '           Text
'aSimilarClass' Name.Variable
' '           Text
'newFrom:'    Name.Function
' '           Text
'self'        Name.Builtin.Pseudo
'! !'         Keyword
'\n\n'        Text

'!'           Keyword
'Object'      Name.Class
' methodsFor: ' Keyword
"'converting'" Literal.String
" stamp: 'RAA 8/2/1999 12:41'!" Keyword
'\n'          Text

'complexContents' Name.Function
'\n'          Text

'\n\t'        Text
'^'           Operator
'self'        Name.Builtin.Pseudo
'! !'         Keyword
'\n\n'        Text

'!'           Keyword
'Object'      Name.Class
' methodsFor: ' Keyword
"'converting'" Literal.String
" stamp: 'ajh 7/6/2003 20:37'!" Keyword
'\n'          Text

'mustBeBoolean' Name.Function
'\n\t'        Text
'"Catches attempts to test truth of non-Booleans.  This message is sent from the VM.  The sending context is rewound to just before the jump causing this exception."' Comment
'\n\n\t'      Text
'^'           Operator
' '           Text
'self'        Name.Builtin.Pseudo
' '           Text
'mustBeBooleanIn:' Name.Function
' '           Text
'thisContext' Name.Builtin.Pseudo
' '           Text
'sender'      Name.Function
'! !'         Keyword
'\n\n'        Text

'!'           Keyword
'Object'      Name.Class
' methodsFor: ' Keyword
"'converting'" Literal.String
" stamp: 'ajh 7/6/2003 20:40'!" Keyword
'\n'          Text

'mustBeBooleanIn:' Name.Function
' '           Text
'context'     Name.Variable
'\n\t'        Text
'"context is the where the non-boolean error occurred. Rewind context to before jump then raise error."' Comment
'\n\n\t'      Text
'|'           Operator
' proceedValue ' Name.Variable
'|'           Operator
'\n\t'        Text
'context'     Name.Variable
' '           Text
'skipBackBeforeJump' Name.Function
'.'           Punctuation
'\n\t'        Text
'proceedValue' Name.Variable
' '           Text
'_'           Operator
' '           Text
'NonBooleanReceiver' Name.Class
' '           Text
'new'         Name.Builtin
'\n\t\t'      Text
'object:'     Name.Function
' '           Text
'self'        Name.Builtin.Pseudo
';'           Punctuation
'\n\t\t'      Text
'signal:'     Name.Function
' '           Text
"'proceed for truth.'" Literal.String
'.'           Punctuation
'\n\t'        Text
'^'           Operator
' '           Text
'proceedValue' Name.Variable
' '           Text
'~~'          Name.Function
' '           Text
'false'       Name.Builtin.Pseudo
'! !'         Keyword
'\n\n'        Text

'!'           Keyword
'Object'      Name.Class
' methodsFor: ' Keyword
"'converting'" Literal.String
" stamp: 'sw 3/26/2001 12:12'!" Keyword
'\n'          Text

'printDirectlyToDisplay' Name.Function
'\n\t'        Text
'"For debugging: write the receiver\'s printString directly to the display at (0, 100); senders of this are detected by the check-for-slips mechanism."' Comment
'\n\n\t'      Text
'self'        Name.Builtin.Pseudo
' '           Text
'asString'    Name.Function
' '           Text
'displayAt:'  Name.Function
' '           Text
'0'           Literal.Number
'@'           Name.Function
'100'         Literal.Number
'\n\n'        Text

'"StringMorph someInstance printDirectlyToDisplay"' Comment
'! !'         Keyword
'\n\n'        Text

'!'           Keyword
'Object'      Name.Class
' methodsFor: ' Keyword
"'converting'" Literal.String
" stamp: 'RAA 3/31/1999 12:13'!" Keyword
'\n'          Text

'withoutListWrapper' Name.Function
'\n'          Text

'\n\t'        Text
'^'           Operator
'self'        Name.Builtin.Pseudo
'! !'         Keyword
'\n\n\n'      Text

'!'           Keyword
'Object'      Name.Class
' methodsFor: ' Keyword
"'copying'"   Literal.String
'!'           Keyword
'\n'          Text

'clone'       Name.Function
'\n'          Text

'\n\t'        Text
'<'           Text
'primitive:'  Keyword
' 148'        Text
'>'           Text
'\n\t'        Text
'self'        Name.Builtin.Pseudo
' '           Text
'primitiveFailed' Name.Function
'! !'         Keyword
'\n\n'        Text

'!'           Keyword
'Object'      Name.Class
' methodsFor: ' Keyword
"'copying'"   Literal.String
" stamp: 'ajh 8/18/2001 21:25'!" Keyword
'\n'          Text

'copy'        Name.Function
'\n\t'        Text
'"Answer another instance just like the receiver. Subclasses typically override postCopy; they typically do not override shallowCopy."' Comment
'\n\n\t'      Text
'^'           Operator
'self'        Name.Builtin.Pseudo
' '           Text
'shallowCopy' Name.Function
' '           Text
'postCopy'    Name.Function
'! !'         Keyword
'\n\n'        Text

'!'           Keyword
'Object'      Name.Class
' methodsFor: ' Keyword
"'copying'"   Literal.String
" stamp: 'tk 8/20/1998 16:01'!" Keyword
'\n'          Text

'copyAddedStateFrom:' Name.Function
' '           Text
'anotherObject' Name.Variable
'\n\t'        Text
'"Copy over the values of instance variables added by the receiver\'s class from anotherObject to the receiver.  These will be remapped in mapUniClasses, if needed."' Comment
'\n\n\t'      Text
'self'        Name.Builtin.Pseudo
' '           Text
'class'       Name.Function
' '           Text
'superclass'  Name.Function
' '           Text
'instSize'    Name.Function
' '           Text
'+'           Name.Function
' '           Text
'1'           Literal.Number
' '           Text
'to:'         Name.Function
' '           Text
'self'        Name.Builtin.Pseudo
' '           Text
'class'       Name.Function
' '           Text
'instSize'    Name.Function
' '           Text
'do:'         Name.Function
'\n\t\t'      Text
'['           Text
':'           Operator
'index'       Name.Variable
' '           Text
'|'           Operator
' '           Text
'self'        Name.Builtin.Pseudo
' '           Text
'instVarAt:'  Name.Function
' '           Text
'index'       Name.Variable
' '           Text
'put:'        Name.Function
' '           Text
'('           Text
'anotherObject' Name.Variable
' '           Text
'instVarAt:'  Name.Function
' '           Text
'index'       Name.Variable
')'           Text
']'           Text
'! !'         Keyword
'\n\n'        Text

'!'           Keyword
'Object'      Name.Class
' methodsFor: ' Keyword
"'copying'"   Literal.String
" stamp: 'tpr 2/14/2004 21:53'!" Keyword
'\n'          Text

'copyFrom:'   Name.Function
' '           Text
'anotherObject' Name.Variable
'\n\t'        Text
'"Copy to myself all instance variables I have in common with anotherObject.  This is dangerous because it ignores an object\'s control over its own inst vars.  "' Comment
'\n\n\t'      Text
'|'           Operator
' mine his '  Name.Variable
'|'           Operator
'\n\t'        Text
'<'           Text
'primitive:'  Keyword
' 168'        Text
'>'           Text
'\n\t'        Text
'mine'        Name.Variable
' '           Text
'_'           Operator
' '           Text
'self'        Name.Builtin.Pseudo
' '           Text
'class'       Name.Function
' '           Text
'allInstVarNames' Name.Function
'.'           Punctuation
'\n\t'        Text
'his'         Name.Variable
' '           Text
'_'           Operator
' '           Text
'anotherObject' Name.Variable
' '           Text
'class'       Name.Function
' '           Text
'allInstVarNames' Name.Function
'.'           Punctuation
'\n\t'        Text
'1'           Literal.Number
' '           Text
'to:'         Name.Function
' '           Text
'('           Text
'mine'        Name.Variable
' '           Text
'size'        Name.Function
' '           Text
'min:'        Name.Function
' '           Text
'his'         Name.Variable
' '           Text
'size'        Name.Function
')'           Text
' '           Text
'do:'         Name.Function
' '           Text
'['           Text
':'           Operator
'ind'         Name.Variable
' '           Text
'|'           Operator
'\n\t\t'      Text
'('           Text
'mine'        Name.Variable
' '           Text
'at:'         Name.Function
' '           Text
'ind'         Name.Variable
')'           Text
' '           Text
'='           Name.Function
' '           Text
'('           Text
'his'         Name.Variable
' '           Text
'at:'         Name.Function
' '           Text
'ind'         Name.Variable
')'           Text
' '           Text
'ifTrue:'     Name.Builtin
' '           Text
'['           Text
'\n\t\t\t'    Text
'self'        Name.Builtin.Pseudo
' '           Text
'instVarAt:'  Name.Function
' '           Text
'ind'         Name.Variable
' '           Text
'put:'        Name.Function
' '           Text
'('           Text
'anotherObject' Name.Variable
' '           Text
'instVarAt:'  Name.Function
' '           Text
'ind'         Name.Variable
')'           Text
']'           Text
']'           Text
'.'           Punctuation
'\n\t'        Text
'self'        Name.Builtin.Pseudo
' '           Text
'class'       Name.Function
' '           Text
'isVariable'  Name.Function
' '           Text
'&'           Name.Function
' '           Text
'anotherObject' Name.Variable
' '           Text
'class'       Name.Function
' '           Text
'isVariable'  Name.Function
' '           Text
'ifTrue:'     Name.Builtin
' '           Text
'['           Text
'\n\t\t'      Text
'1'           Literal.Number
' '           Text
'to:'         Name.Function
' '           Text
'('           Text
'self'        Name.Builtin.Pseudo
' '           Text
'basicSize'   Name.Function
' '           Text
'min:'        Name.Function
' '           Text
'anotherObject' Name.Variable
' '           Text
'basicSize'   Name.Function
')'           Text
' '           Text
'do:'         Name.Function
' '           Text
'['           Text
':'           Operator
'ind'         Name.Variable
' '           Text
'|'           Operator
'\n\t\t\t'    Text
'self'        Name.Builtin.Pseudo
' '           Text
'basicAt:'    Name.Function
' '           Text
'ind'         Name.Variable
' '           Text
'put:'        Name.Function
' '           Text
'('           Text
'anotherObject' Name.Variable
' '           Text
'basicAt:'    Name.Function
' '           Text
'ind'         Name.Variable
')'           Text
']'           Text
']'           Text
'.'           Punctuation
'! !'         Keyword
'\n\n'        Text

'!'           Keyword
'Object'      Name.Class
' methodsFor: ' Keyword
"'copying'"   Literal.String
" stamp: 'ajh 5/23/2002 00:38'!" Keyword
'\n'          Text

'copySameFrom:' Name.Function
' '           Text
'otherObject' Name.Variable
'\n\t'        Text
'"Copy to myself all instance variables named the same in otherObject.\n\tThis ignores otherObject\'s control over its own inst vars."' Comment
'\n\n\t'      Text
'|'           Operator
' myInstVars otherInstVars match ' Name.Variable
'|'           Operator
'\n\t'        Text
'myInstVars'  Name.Variable
' '           Text
'_'           Operator
' '           Text
'self'        Name.Builtin.Pseudo
' '           Text
'class'       Name.Function
' '           Text
'allInstVarNames' Name.Function
'.'           Punctuation
'\n\t'        Text
'otherInstVars' Name.Variable
' '           Text
'_'           Operator
' '           Text
'otherObject' Name.Variable
' '           Text
'class'       Name.Function
' '           Text
'allInstVarNames' Name.Function
'.'           Punctuation
'\n\t'        Text
'myInstVars'  Name.Variable
' '           Text
'doWithIndex:' Name.Function
' '           Text
'['           Text
':'           Operator
'each'        Name.Variable
' '           Text
':'           Operator
'index'       Name.Variable
' '           Text
'|'           Operator
'\n\t\t'      Text
'('           Text
'match'       Name.Variable
' '           Text
'_'           Operator
' '           Text
'otherInstVars' Name.Variable
' '           Text
'indexOf:'    Name.Function
' '           Text
'each'        Name.Variable
')'           Text
' '           Text
'>'           Name.Function
' '           Text
'0'           Literal.Number
' '           Text
'ifTrue:'     Name.Builtin
'\n\t\t\t'    Text
'['           Text
'self'        Name.Builtin.Pseudo
' '           Text
'instVarAt:'  Name.Function
' '           Text
'index'       Name.Variable
' '           Text
'put:'        Name.Function
' '           Text
'('           Text
'otherObject' Name.Variable
' '           Text
'instVarAt:'  Name.Function
' '           Text
'match'       Name.Variable
')'           Text
']'           Text
']'           Text
'.'           Punctuation
'\n\t'        Text
'1'           Literal.Number
' '           Text
'to:'         Name.Function
' '           Text
'('           Text
'self'        Name.Builtin.Pseudo
' '           Text
'basicSize'   Name.Function
' '           Text
'min:'        Name.Function
' '           Text
'otherObject' Name.Variable
' '           Text
'basicSize'   Name.Function
')'           Text
' '           Text
'do:'         Name.Function
' '           Text
'['           Text
':'           Operator
'i'           Name.Variable
' '           Text
'|'           Operator
'\n\t\t'      Text
'self'        Name.Builtin.Pseudo
' '           Text
'basicAt:'    Name.Function
' '           Text
'i'           Name.Variable
' '           Text
'put:'        Name.Function
' '           Text
'('           Text
'otherObject' Name.Variable
' '           Text
'basicAt:'    Name.Function
' '           Text
'i'           Name.Variable
')'           Text
']'           Text
'.'           Punctuation
'\n'          Text

'! !'         Keyword
'\n\n'        Text

'!'           Keyword
'Object'      Name.Class
' methodsFor: ' Keyword
"'copying'"   Literal.String
" stamp: 'tk 4/20/1999 14:44'!" Keyword
'\n'          Text

'copyTwoLevel' Name.Function
'\n\t'        Text
'"one more level than a shallowCopy"' Comment
'\n\n\t'      Text
'|'           Operator
' newObject class index ' Name.Variable
'|'           Operator
'\n\t'        Text
'class'       Name.Variable
' '           Text
'_'           Operator
' '           Text
'self'        Name.Builtin.Pseudo
' '           Text
'class'       Name.Function
'.'           Punctuation
'\n\t'        Text
'newObject'   Name.Variable
' '           Text
'_'           Operator
' '           Text
'self'        Name.Builtin.Pseudo
' '           Text
'clone'       Name.Function
'.'           Punctuation
'\n\t'        Text
'newObject'   Name.Variable
' '           Text
'=='          Name.Function
' '           Text
'self'        Name.Builtin.Pseudo
' '           Text
'ifTrue:'     Name.Builtin
' '           Text
'['           Text
'^'           Operator
' '           Text
'self'        Name.Builtin.Pseudo
']'           Text
'.'           Punctuation
'\n\t'        Text
'class'       Name.Variable
' '           Text
'isVariable'  Name.Function
'\n\t\t'      Text
'ifTrue:'     Name.Builtin
' \n\t\t\t'   Text
'['           Text
'index'       Name.Variable
' '           Text
'_'           Operator
' '           Text
'self'        Name.Builtin.Pseudo
' '           Text
'basicSize'   Name.Function
'.'           Punctuation
'\n\t\t\t'    Text
'['           Text
'index'       Name.Variable
' '           Text
'>'           Name.Function
' '           Text
'0'           Literal.Number
']'           Text
'\n\t\t\t\t'  Text
'whileTrue:'  Name.Builtin
' \n\t\t\t\t\t' Text
'['           Text
'newObject'   Name.Variable
' '           Text
'basicAt:'    Name.Function
' '           Text
'index'       Name.Variable
' '           Text
'put:'        Name.Function
' '           Text
'('           Text
'self'        Name.Builtin.Pseudo
' '           Text
'basicAt:'    Name.Function
' '           Text
'index'       Name.Variable
')'           Text
' '           Text
'shallowCopy' Name.Function
'.'           Punctuation
'\n\t\t\t\t\t' Text
'index'       Name.Variable
' '           Text
'_'           Operator
' '           Text
'index'       Name.Variable
' '           Text
'-'           Name.Function
' '           Text
'1'           Literal.Number
']'           Text
']'           Text
'.'           Punctuation
'\n\t'        Text
'index'       Name.Variable
' '           Text
'_'           Operator
' '           Text
'class'       Name.Variable
' '           Text
'instSize'    Name.Function
'.'           Punctuation
'\n\t'        Text
'['           Text
'index'       Name.Variable
' '           Text
'>'           Name.Function
' '           Text
'0'           Literal.Number
']'           Text
'\n\t\t'      Text
'whileTrue:'  Name.Builtin
' \n\t\t\t'   Text
'['           Text
'newObject'   Name.Variable
' '           Text
'instVarAt:'  Name.Function
' '           Text
'index'       Name.Variable
' '           Text
'put:'        Name.Function
' '           Text
'('           Text
'self'        Name.Builtin.Pseudo
' '           Text
'instVarAt:'  Name.Function
' '           Text
'index'       Name.Variable
')'           Text
' '           Text
'shallowCopy' Name.Function
'.'           Punctuation
'\n\t\t\t'    Text
'index'       Name.Variable
' '           Text
'_'           Operator
' '           Text
'index'       Name.Variable
' '           Text
'-'           Name.Function
' '           Text
'1'           Literal.Number
']'           Text
'.'           Punctuation
'\n\t'        Text
'^'           Operator
'newObject'   Name.Variable
'! !'         Keyword
'\n\n'        Text

'!'           Keyword
'Object'      Name.Class
' methodsFor: ' Keyword
"'copying'"   Literal.String
'!'           Keyword
'\n'          Text

'deepCopy'    Name.Function
'\n\t'        Text
'"Answer a copy of the receiver with its own copy of each instance \n\tvariable."' Comment
'\n\n\t'      Text
'|'           Operator
' newObject class index ' Name.Variable
'|'           Operator
'\n\t'        Text
'class'       Name.Variable
' '           Text
'_'           Operator
' '           Text
'self'        Name.Builtin.Pseudo
' '           Text
'class'       Name.Function
'.'           Punctuation
'\n\t'        Text
'('           Text
'class'       Name.Variable
' '           Text
'=='          Name.Function
' '           Text
'Object'      Name.Class
')'           Text
' '           Text
'ifTrue:'     Name.Builtin
' '           Text
'['           Text
'^'           Operator
'self'        Name.Builtin.Pseudo
']'           Text
'.'           Punctuation
'\n\t'        Text
'class'       Name.Variable
' '           Text
'isVariable'  Name.Function
'\n\t\t'      Text
'ifTrue:'     Name.Builtin
' \n\t\t\t'   Text
'['           Text
'index'       Name.Variable
' '           Text
'_'           Operator
' '           Text
'self'        Name.Builtin.Pseudo
' '           Text
'basicSize'   Name.Function
'.'           Punctuation
'\n\t\t\t'    Text
'newObject'   Name.Variable
' '           Text
'_'           Operator
' '           Text
'class'       Name.Variable
' '           Text
'basicNew:'   Name.Function
' '           Text
'index'       Name.Variable
'.'           Punctuation
'\n\t\t\t'    Text
'['           Text
'index'       Name.Variable
' '           Text
'>'           Name.Function
' '           Text
'0'           Literal.Number
']'           Text
'\n\t\t\t\t'  Text
'whileTrue:'  Name.Builtin
' \n\t\t\t\t\t' Text
'['           Text
'newObject'   Name.Variable
' '           Text
'basicAt:'    Name.Function
' '           Text
'index'       Name.Variable
' '           Text
'put:'        Name.Function
' '           Text
'('           Text
'self'        Name.Builtin.Pseudo
' '           Text
'basicAt:'    Name.Function
' '           Text
'index'       Name.Variable
')'           Text
' '           Text
'deepCopy'    Name.Function
'.'           Punctuation
'\n\t\t\t\t\t' Text
'index'       Name.Variable
' '           Text
'_'           Operator
' '           Text
'index'       Name.Variable
' '           Text
'-'           Name.Function
' '           Text
'1'           Literal.Number
']'           Text
']'           Text
'\n\t\t'      Text
'ifFalse:'    Name.Builtin
' '           Text
'['           Text
'newObject'   Name.Variable
' '           Text
'_'           Operator
' '           Text
'class'       Name.Variable
' '           Text
'basicNew'    Name.Function
']'           Text
'.'           Punctuation
'\n\t'        Text
'index'       Name.Variable
' '           Text
'_'           Operator
' '           Text
'class'       Name.Variable
' '           Text
'instSize'    Name.Function
'.'           Punctuation
'\n\t'        Text
'['           Text
'index'       Name.Variable
' '           Text
'>'           Name.Function
' '           Text
'0'           Literal.Number
']'           Text
'\n\t\t'      Text
'whileTrue:'  Name.Builtin
' \n\t\t\t'   Text
'['           Text
'newObject'   Name.Variable
' '           Text
'instVarAt:'  Name.Function
' '           Text
'index'       Name.Variable
' '           Text
'put:'        Name.Function
' '           Text
'('           Text
'self'        Name.Builtin.Pseudo
' '           Text
'instVarAt:'  Name.Function
' '           Text
'index'       Name.Variable
')'           Text
' '           Text
'deepCopy'    Name.Function
'.'           Punctuation
'\n\t\t\t'    Text
'index'       Name.Variable
' '           Text
'_'           Operator
' '           Text
'index'       Name.Variable
' '           Text
'-'           Name.Function
' '           Text
'1'           Literal.Number
']'           Text
'.'           Punctuation
'\n\t'        Text
'^'           Operator
'newObject'   Name.Variable
'! !'         Keyword
'\n\n'        Text

'!'           Keyword
'Object'      Name.Class
' methodsFor: ' Keyword
"'copying'"   Literal.String
" stamp: 'hg 11/23/1999 13:43'!" Keyword
'\n'          Text

'initialDeepCopierSize' Name.Function
'\n\t'        Text
'"default value is 4096; other classes may override this, esp. for smaller (=faster) sizes"' Comment
'\n\n\t'      Text
'^'           Operator
'4096'        Literal.Number
'! !'         Keyword
'\n\n'        Text

'!'           Keyword
'Object'      Name.Class
' methodsFor: ' Keyword
"'copying'"   Literal.String
" stamp: 'ajh 1/27/2003 18:45'!" Keyword
'\n'          Text

'postCopy'    Name.Function
'\n\t'        Text
'"self is a shallow copy, subclasses should copy fields as necessary to complete the full copy"' Comment
'\n\n\t'      Text
'^'           Operator
' '           Text
'self'        Name.Builtin.Pseudo
'! !'         Keyword
'\n\n'        Text

'!'           Keyword
'Object'      Name.Class
' methodsFor: ' Keyword
"'copying'"   Literal.String
" stamp: 'jm 11/14/97 11:08'!" Keyword
'\n'          Text

'shallowCopy' Name.Function
'\n\t'        Text
'"Answer a copy of the receiver which shares the receiver\'s instance variables."' Comment
'\n\t'        Text
'|'           Operator
' class newObject index ' Name.Variable
'|'           Operator
'\n\t'        Text
'<'           Text
'primitive:'  Keyword
' 148'        Text
'>'           Text
'\n\t'        Text
'class'       Name.Variable
' '           Text
'_'           Operator
' '           Text
'self'        Name.Builtin.Pseudo
' '           Text
'class'       Name.Function
'.'           Punctuation
'\n\t'        Text
'class'       Name.Variable
' '           Text
'isVariable'  Name.Function
'\n\t\t'      Text
'ifTrue:'     Name.Builtin
' \n\t\t\t'   Text
'['           Text
'index'       Name.Variable
' '           Text
'_'           Operator
' '           Text
'self'        Name.Builtin.Pseudo
' '           Text
'basicSize'   Name.Function
'.'           Punctuation
'\n\t\t\t'    Text
'newObject'   Name.Variable
' '           Text
'_'           Operator
' '           Text
'class'       Name.Variable
' '           Text
'basicNew:'   Name.Function
' '           Text
'index'       Name.Variable
'.'           Punctuation
'\n\t\t\t'    Text
'['           Text
'index'       Name.Variable
' '           Text
'>'           Name.Function
' '           Text
'0'           Literal.Number
']'           Text
'\n\t\t\t\t'  Text
'whileTrue:'  Name.Builtin
' \n\t\t\t\t\t' Text
'['           Text
'newObject'   Name.Variable
' '           Text
'basicAt:'    Name.Function
' '           Text
'index'       Name.Variable
' '           Text
'put:'        Name.Function
' '           Text
'('           Text
'self'        Name.Builtin.Pseudo
' '           Text
'basicAt:'    Name.Function
' '           Text
'index'       Name.Variable
')'           Text
'.'           Punctuation
'\n\t\t\t\t\t' Text
'index'       Name.Variable
' '           Text
'_'           Operator
' '           Text
'index'       Name.Variable
' '           Text
'-'           Name.Function
' '           Text
'1'           Literal.Number
']'           Text
']'           Text
'\n\t\t'      Text
'ifFalse:'    Name.Builtin
' '           Text
'['           Text
'newObject'   Name.Variable
' '           Text
'_'           Operator
' '           Text
'class'       Name.Variable
' '           Text
'basicNew'    Name.Function
']'           Text
'.'           Punctuation
'\n\t'        Text
'index'       Name.Variable
' '           Text
'_'           Operator
' '           Text
'class'       Name.Variable
' '           Text
'instSize'    Name.Function
'.'           Punctuation
'\n\t'        Text
'['           Text
'index'       Name.Variable
' '           Text
'>'           Name.Function
' '           Text
'0'           Literal.Number
']'           Text
'\n\t\t'      Text
'whileTrue:'  Name.Builtin
' \n\t\t\t'   Text
'['           Text
'newObject'   Name.Variable
' '           Text
'instVarAt:'  Name.Function
' '           Text
'index'       Name.Variable
' '           Text
'put:'        Name.Function
' '           Text
'('           Text
'self'        Name.Builtin.Pseudo
' '           Text
'instVarAt:'  Name.Function
' '           Text
'index'       Name.Variable
')'           Text
'.'           Punctuation
'\n\t\t\t'    Text
'index'       Name.Variable
' '           Text
'_'           Operator
' '           Text
'index'       Name.Variable
' '           Text
'-'           Name.Function
' '           Text
'1'           Literal.Number
']'           Text
'.'           Punctuation
'\n\t'        Text
'^'           Operator
' '           Text
'newObject'   Name.Variable
'! !'         Keyword
'\n\n'        Text

'!'           Keyword
'Object'      Name.Class
' methodsFor: ' Keyword
"'copying'"   Literal.String
" stamp: 'tk 3/11/2003 13:58'!" Keyword
'\n'          Text

'veryDeepCopy' Name.Function
'\n\t'        Text
'"Do a complete tree copy using a dictionary.  An object in the tree twice is only copied once.  All references to the object in the copy of the tree will point to the new copy."' Comment
'\n\n\t'      Text
'|'           Operator
' copier new ' Name.Variable
'|'           Operator
'\n\t'        Text
'copier'      Name.Variable
' '           Text
'_'           Operator
' '           Text
'DeepCopier'  Name.Class
' '           Text
'new'         Name.Builtin
' '           Text
'initialize:' Name.Function
' '           Text
'self'        Name.Builtin.Pseudo
' '           Text
'initialDeepCopierSize' Name.Function
'.'           Punctuation
'\n\t'        Text
'new'         Name.Variable
' '           Text
'_'           Operator
' '           Text
'self'        Name.Builtin.Pseudo
' '           Text
'veryDeepCopyWith:' Name.Function
' '           Text
'copier'      Name.Variable
'.'           Punctuation
'\n\t'        Text
'copier'      Name.Variable
' '           Text
'mapUniClasses' Name.Function
'.'           Punctuation
'\n\t'        Text
'copier'      Name.Variable
' '           Text
'references'  Name.Function
' '           Text
'associationsDo:' Name.Function
' '           Text
'['           Text
':'           Operator
'assoc'       Name.Variable
' '           Text
'|'           Operator
' \n\t\t'     Text
'assoc'       Name.Variable
' '           Text
'value'       Name.Function
' '           Text
'veryDeepFixupWith:' Name.Function
' '           Text
'copier'      Name.Variable
']'           Text
'.'           Punctuation
'\n\t'        Text
'copier'      Name.Variable
' '           Text
'fixDependents' Name.Function
'.'           Punctuation
'\n\t'        Text
'^'           Operator
' '           Text
'new'         Name.Variable
'! !'         Keyword
'\n\n'        Text

'!'           Keyword
'Object'      Name.Class
' methodsFor: ' Keyword
"'copying'"   Literal.String
" stamp: 'tk 3/11/2003 13:58'!" Keyword
'\n'          Text

'veryDeepCopySibling' Name.Function
'\n\t'        Text
'"Do a complete tree copy using a dictionary.  Substitute a clone of oldPlayer for the root.  Normally, a Player or non systemDefined object would have a new class.  We do not want one this time.  An object in the tree twice, is only copied once.  All references to the object in the copy of the tree will point to the new copy."' Comment
'\n\n\t'      Text
'|'           Operator
' copier new ' Name.Variable
'|'           Operator
'\n\t'        Text
'copier'      Name.Variable
' '           Text
'_'           Operator
' '           Text
'DeepCopier'  Name.Class
' '           Text
'new'         Name.Builtin
' '           Text
'initialize:' Name.Function
' '           Text
'self'        Name.Builtin.Pseudo
' '           Text
'initialDeepCopierSize' Name.Function
'.'           Punctuation
'\n\t'        Text
'copier'      Name.Variable
' '           Text
'newUniClasses:' Name.Function
' '           Text
'false'       Name.Builtin.Pseudo
'.'           Punctuation
'\n\t'        Text
'new'         Name.Variable
' '           Text
'_'           Operator
' '           Text
'self'        Name.Builtin.Pseudo
' '           Text
'veryDeepCopyWith:' Name.Function
' '           Text
'copier'      Name.Variable
'.'           Punctuation
'\n\t'        Text
'copier'      Name.Variable
' '           Text
'mapUniClasses' Name.Function
'.'           Punctuation
'\n\t'        Text
'copier'      Name.Variable
' '           Text
'references'  Name.Function
' '           Text
'associationsDo:' Name.Function
' '           Text
'['           Text
':'           Operator
'assoc'       Name.Variable
' '           Text
'|'           Operator
' \n\t\t'     Text
'assoc'       Name.Variable
' '           Text
'value'       Name.Function
' '           Text
'veryDeepFixupWith:' Name.Function
' '           Text
'copier'      Name.Variable
']'           Text
'.'           Punctuation
'\n\t'        Text
'copier'      Name.Variable
' '           Text
'fixDependents' Name.Function
'.'           Punctuation
'\n\t'        Text
'^'           Operator
' '           Text
'new'         Name.Variable
'! !'         Keyword
'\n\n'        Text

'!'           Keyword
'Object'      Name.Class
' methodsFor: ' Keyword
"'copying'"   Literal.String
" stamp: 'tk 5/13/2003 19:39'!" Keyword
'\n'          Text

'veryDeepCopyUsing:' Name.Function
' '           Text
'copier'      Name.Variable
'\n\t'        Text
'"Do a complete tree copy using a dictionary.  An object in the tree twice is only copied once.  All references to the object in the copy of the tree will point to the new copy.\n\tSame as veryDeepCopy except copier (with dictionary) is supplied.\n\t** do not delete this method, even if it has no callers **"' Comment
'\n\n\t'      Text
'|'           Operator
' new refs newDep newModel ' Name.Variable
'|'           Operator
'\n\t'        Text
'new'         Name.Variable
' '           Text
'_'           Operator
' '           Text
'self'        Name.Builtin.Pseudo
' '           Text
'veryDeepCopyWith:' Name.Function
' '           Text
'copier'      Name.Variable
'.'           Punctuation
'\n\t'        Text
'copier'      Name.Variable
' '           Text
'mapUniClasses' Name.Function
'.'           Punctuation
'\n\t'        Text
'copier'      Name.Variable
' '           Text
'references'  Name.Function
' '           Text
'associationsDo:' Name.Function
' '           Text
'['           Text
':'           Operator
'assoc'       Name.Variable
' '           Text
'|'           Operator
' \n\t\t'     Text
'assoc'       Name.Variable
' '           Text
'value'       Name.Function
' '           Text
'veryDeepFixupWith:' Name.Function
' '           Text
'copier'      Name.Variable
']'           Text
'.'           Punctuation
'\n\t'        Text
'"Fix dependents"' Comment
'\n\t'        Text
'refs'        Name.Variable
' '           Text
'_'           Operator
' '           Text
'copier'      Name.Variable
' '           Text
'references'  Name.Function
'.'           Punctuation
'\n\t'        Text
'DependentsFields' Name.Class
' '           Text
'associationsDo:' Name.Function
' '           Text
'['           Text
':'           Operator
'pair'        Name.Variable
' '           Text
'|'           Operator
'\n\t\t'      Text
'pair'        Name.Variable
' '           Text
'value'       Name.Function
' '           Text
'do:'         Name.Function
' '           Text
'['           Text
':'           Operator
'dep'         Name.Variable
' '           Text
'|'           Operator
' \n\t\t\t'   Text
'('           Text
'newDep'      Name.Variable
' '           Text
'_'           Operator
' '           Text
'refs'        Name.Variable
' '           Text
'at:'         Name.Function
' '           Text
'dep'         Name.Variable
' '           Text
'ifAbsent:'   Name.Function
' '           Text
'['           Text
'nil'         Name.Builtin.Pseudo
']'           Text
')'           Text
' '           Text
'ifNotNil:'   Name.Function
' '           Text
'['           Text
'\n\t\t\t\t'  Text
'newModel'    Name.Variable
' '           Text
'_'           Operator
' '           Text
'refs'        Name.Variable
' '           Text
'at:'         Name.Function
' '           Text
'pair'        Name.Variable
' '           Text
'key'         Name.Function
' '           Text
'ifAbsent:'   Name.Function
' '           Text
'['           Text
'pair'        Name.Variable
' '           Text
'key'         Name.Function
']'           Text
'.'           Punctuation
'\n\t\t\t\t'  Text
'newModel'    Name.Variable
' '           Text
'addDependent:' Name.Function
' '           Text
'newDep'      Name.Variable
']'           Text
']'           Text
']'           Text
'.'           Punctuation
'\n\t'        Text
'^'           Operator
' '           Text
'new'         Name.Variable
'! !'         Keyword
'\n\n'        Text

'!'           Keyword
'Object'      Name.Class
' methodsFor: ' Keyword
"'copying'"   Literal.String
" stamp: 'tk 3/11/2003 14:12'!" Keyword
'\n'          Text

'veryDeepCopyWith:' Name.Function
' '           Text
'deepCopier'  Name.Variable
'\n\t'        Text
'"Copy me and the entire tree of objects I point to.  An object in the tree twice is copied once, and both references point to him.  deepCopier holds a dictionary of objects we have seen.  Some classes refuse to be copied.  Some classes are picky about which fields get deep copied."' Comment
'\n\t'        Text
'|'           Operator
' class index sub subAss new uc sup has mine ' Name.Variable
'|'           Operator
'\n\t'        Text
'deepCopier'  Name.Variable
' '           Text
'references'  Name.Function
' '           Text
'at:'         Name.Function
' '           Text
'self'        Name.Builtin.Pseudo
' '           Text
'ifPresent:'  Name.Function
' '           Text
'['           Text
':'           Operator
'newer'       Name.Variable
' '           Text
'|'           Operator
' '           Text
'^'           Operator
' '           Text
'newer'       Name.Variable
']'           Text
'.'           Punctuation
' \t'         Text
'"already did him"' Comment
'\n\t'        Text
'class'       Name.Variable
' '           Text
'_'           Operator
' '           Text
'self'        Name.Builtin.Pseudo
' '           Text
'class'       Name.Function
'.'           Punctuation
'\n\t'        Text
'class'       Name.Variable
' '           Text
'isMeta'      Name.Function
' '           Text
'ifTrue:'     Name.Builtin
' '           Text
'['           Text
'^'           Operator
' '           Text
'self'        Name.Builtin.Pseudo
']'           Text
'.'           Punctuation
'\t\t'        Text
'"a class"'   Comment
'\n\t'        Text
'new'         Name.Variable
' '           Text
'_'           Operator
' '           Text
'self'        Name.Builtin.Pseudo
' '           Text
'clone'       Name.Function
'.'           Punctuation
'\n\t'        Text
'('           Text
'class'       Name.Variable
' '           Text
'isSystemDefined' Name.Function
' '           Text
'not'         Name.Function
' '           Text
'and:'        Name.Function
' '           Text
'['           Text
'deepCopier'  Name.Variable
' '           Text
'newUniClasses' Name.Function
' '           Text
'"allowed"'   Comment
']'           Text
')'           Text
' '           Text
'ifTrue:'     Name.Builtin
' '           Text
'['           Text
'\n\t\t'      Text
'uc'          Name.Variable
' '           Text
'_'           Operator
' '           Text
'deepCopier'  Name.Variable
' '           Text
'uniClasses'  Name.Function
' '           Text
'at:'         Name.Function
' '           Text
'class'       Name.Variable
' '           Text
'ifAbsent:'   Name.Function
' '           Text
'['           Text
'nil'         Name.Builtin.Pseudo
']'           Text
'.'           Punctuation
'\n\t\t'      Text
'uc'          Name.Variable
' '           Text
'ifNil:'      Name.Function
' '           Text
'['           Text
'\n\t\t\t'    Text
'deepCopier'  Name.Variable
' '           Text
'uniClasses'  Name.Function
' '           Text
'at:'         Name.Function
' '           Text
'class'       Name.Variable
' '           Text
'put:'        Name.Function
' '           Text
'('           Text
'uc'          Name.Variable
' '           Text
'_'           Operator
' '           Text
'self'        Name.Builtin.Pseudo
' '           Text
'copyUniClassWith:' Name.Function
' '           Text
'deepCopier'  Name.Variable
')'           Text
'.'           Punctuation
'\n\t\t\t'    Text
'deepCopier'  Name.Variable
' '           Text
'references'  Name.Function
' '           Text
'at:'         Name.Function
' '           Text
'class'       Name.Variable
' '           Text
'put:'        Name.Function
' '           Text
'uc'          Name.Variable
']'           Text
'.'           Punctuation
'\t'          Text
'"remember"'  Comment
'\n\t\t'      Text
'new'         Name.Variable
' '           Text
'_'           Operator
' '           Text
'uc'          Name.Variable
' '           Text
'new'         Name.Builtin
'.'           Punctuation
'\n\t\t'      Text
'new'         Name.Variable
' '           Text
'copyFrom:'   Name.Function
' '           Text
'self'        Name.Builtin.Pseudo
']'           Text
'.'           Punctuation
'\t'          Text
'"copy inst vars in case any are weak"' Comment
'\n\t'        Text
'deepCopier'  Name.Variable
' '           Text
'references'  Name.Function
' '           Text
'at:'         Name.Function
' '           Text
'self'        Name.Builtin.Pseudo
' '           Text
'put:'        Name.Function
' '           Text
'new'         Name.Variable
'.'           Punctuation
'\t'          Text
'"remember"'  Comment
'\n\t'        Text
'('           Text
'class'       Name.Variable
' '           Text
'isVariable'  Name.Function
' '           Text
'and:'        Name.Function
' '           Text
'['           Text
'class'       Name.Variable
' '           Text
'isPointers'  Name.Function
']'           Text
')'           Text
' '           Text
'ifTrue:'     Name.Builtin
' \n\t\t'     Text
'['           Text
'index'       Name.Variable
' '           Text
'_'           Operator
' '           Text
'self'        Name.Builtin.Pseudo
' '           Text
'basicSize'   Name.Function
'.'           Punctuation
'\n\t\t'      Text
'['           Text
'index'       Name.Variable
' '           Text
'>'           Name.Function
' '           Text
'0'           Literal.Number
']'           Text
' '           Text
'whileTrue:'  Name.Builtin
' \n\t\t\t'   Text
'['           Text
'sub'         Name.Variable
' '           Text
'_'           Operator
' '           Text
'self'        Name.Builtin.Pseudo
' '           Text
'basicAt:'    Name.Function
' '           Text
'index'       Name.Variable
'.'           Punctuation
'\n\t\t\t'    Text
'('           Text
'subAss'      Name.Variable
' '           Text
'_'           Operator
' '           Text
'deepCopier'  Name.Variable
' '           Text
'references'  Name.Function
' '           Text
'associationAt:' Name.Function
' '           Text
'sub'         Name.Variable
' '           Text
'ifAbsent:'   Name.Function
' '           Text
'['           Text
'nil'         Name.Builtin.Pseudo
']'           Text
')'           Text
'\n\t\t\t\t'  Text
'ifNil:'      Name.Function
' '           Text
'['           Text
'new'         Name.Variable
' '           Text
'basicAt:'    Name.Function
' '           Text
'index'       Name.Variable
' '           Text
'put:'        Name.Function
' '           Text
'('           Text
'sub'         Name.Variable
' '           Text
'veryDeepCopyWith:' Name.Function
' '           Text
'deepCopier'  Name.Variable
')'           Text
']'           Text
'\n\t\t\t\t'  Text
'ifNotNil:'   Name.Function
' '           Text
'['           Text
'new'         Name.Variable
' '           Text
'basicAt:'    Name.Function
' '           Text
'index'       Name.Variable
' '           Text
'put:'        Name.Function
' '           Text
'subAss'      Name.Variable
' '           Text
'value'       Name.Function
']'           Text
'.'           Punctuation
'\n\t\t\t'    Text
'index'       Name.Variable
' '           Text
'_'           Operator
' '           Text
'index'       Name.Variable
' '           Text
'-'           Name.Function
' '           Text
'1'           Literal.Number
']'           Text
']'           Text
'.'           Punctuation
'\n\t'        Text
'"Ask each superclass if it wants to share (weak copy) any inst vars"' Comment
'\n\t'        Text
'new'         Name.Variable
' '           Text
'veryDeepInner:' Name.Function
' '           Text
'deepCopier'  Name.Variable
'.'           Punctuation
'\t\t'        Text
'"does super a lot"' Comment
'\n\n\t'      Text
'"other superclasses want all inst vars deep copied"' Comment
'\n\t'        Text
'sup'         Name.Variable
' '           Text
'_'           Operator
' '           Text
'class'       Name.Variable
'.'           Punctuation
'  '          Text
'index'       Name.Variable
' '           Text
'_'           Operator
' '           Text
'class'       Name.Variable
' '           Text
'instSize'    Name.Function
'.'           Punctuation
'\n\t'        Text
'['           Text
'has'         Name.Variable
' '           Text
'_'           Operator
' '           Text
'sup'         Name.Variable
' '           Text
'compiledMethodAt:' Name.Function
' '           Text
'#veryDeepInner:' Literal.String.Symbol
' '           Text
'ifAbsent:'   Name.Function
' '           Text
'['           Text
'nil'         Name.Builtin.Pseudo
']'           Text
'.'           Punctuation
'\n\t'        Text
'has'         Name.Variable
' '           Text
'_'           Operator
' '           Text
'has'         Name.Variable
' '           Text
'ifNil:'      Name.Function
' '           Text
'['           Text
'class'       Name.Variable
' '           Text
'isSystemDefined' Name.Function
' '           Text
'not'         Name.Function
' '           Text
'"is a uniClass"' Comment
']'           Text
' '           Text
'ifNotNil:'   Name.Function
' '           Text
'['           Text
'true'        Name.Builtin.Pseudo
']'           Text
'.'           Punctuation
'\n\t'        Text
'mine'        Name.Variable
' '           Text
'_'           Operator
' '           Text
'sup'         Name.Variable
' '           Text
'instVarNames' Name.Function
'.'           Punctuation
'\n\t'        Text
'has'         Name.Variable
' '           Text
'ifTrue:'     Name.Builtin
' '           Text
'['           Text
'index'       Name.Variable
' '           Text
'_'           Operator
' '           Text
'index'       Name.Variable
' '           Text
'-'           Name.Function
' '           Text
'mine'        Name.Variable
' '           Text
'size'        Name.Function
']'           Text
'\t'          Text
'"skip inst vars"' Comment
'\n\t\t'      Text
'ifFalse:'    Name.Builtin
' '           Text
'['           Text
'1'           Literal.Number
' '           Text
'to:'         Name.Function
' '           Text
'mine'        Name.Variable
' '           Text
'size'        Name.Function
' '           Text
'do:'         Name.Function
' '           Text
'['           Text
':'           Operator
'xx'          Name.Variable
' '           Text
'|'           Operator
'\n\t\t\t\t'  Text
'sub'         Name.Variable
' '           Text
'_'           Operator
' '           Text
'self'        Name.Builtin.Pseudo
' '           Text
'instVarAt:'  Name.Function
' '           Text
'index'       Name.Variable
'.'           Punctuation
'\n\t\t\t\t'  Text
'('           Text
'subAss'      Name.Variable
' '           Text
'_'           Operator
' '           Text
'deepCopier'  Name.Variable
' '           Text
'references'  Name.Function
' '           Text
'associationAt:' Name.Function
' '           Text
'sub'         Name.Variable
' '           Text
'ifAbsent:'   Name.Function
' '           Text
'['           Text
'nil'         Name.Builtin.Pseudo
']'           Text
')'           Text
'\n\t\t\t\t\t\t' Text
'"use association, not value, so nil is an exceptional value"' Comment
'\n\t\t\t\t\t' Text
'ifNil:'      Name.Function
' '           Text
'['           Text
'new'         Name.Variable
' '           Text
'instVarAt:'  Name.Function
' '           Text
'index'       Name.Variable
' '           Text
'put:'        Name.Function
' \n\t\t\t\t\t\t\t\t' Text
'('           Text
'sub'         Name.Variable
' '           Text
'veryDeepCopyWith:' Name.Function
' '           Text
'deepCopier'  Name.Variable
')'           Text
']'           Text
'\n\t\t\t\t\t' Text
'ifNotNil:'   Name.Function
' '           Text
'['           Text
'new'         Name.Variable
' '           Text
'instVarAt:'  Name.Function
' '           Text
'index'       Name.Variable
' '           Text
'put:'        Name.Function
' '           Text
'subAss'      Name.Variable
' '           Text
'value'       Name.Function
']'           Text
'.'           Punctuation
'\n\t\t\t\t'  Text
'index'       Name.Variable
' '           Text
'_'           Operator
' '           Text
'index'       Name.Variable
' '           Text
'-'           Name.Function
' '           Text
'1'           Literal.Number
']'           Text
']'           Text
'.'           Punctuation
'\n\t'        Text
'('           Text
'sup'         Name.Variable
' '           Text
'_'           Operator
' '           Text
'sup'         Name.Variable
' '           Text
'superclass'  Name.Function
')'           Text
' '           Text
'=='          Name.Function
' '           Text
'nil'         Name.Builtin.Pseudo
']'           Text
' '           Text
'whileFalse'  Name.Function
'.'           Punctuation
'\n\t'        Text
'new'         Name.Variable
' '           Text
'rehash'      Name.Function
'.'           Punctuation
'\t'          Text
'"force Sets and Dictionaries to rehash"' Comment
'\n\t'        Text
'^'           Operator
' '           Text
'new'         Name.Variable
'\n'          Text

'! !'         Keyword
'\n\n'        Text

'!'           Keyword
'Object'      Name.Class
' methodsFor: ' Keyword
"'copying'"   Literal.String
" stamp: 'tk 1/6/1999 17:39'!" Keyword
'\n'          Text

'veryDeepFixupWith:' Name.Function
' '           Text
'deepCopier'  Name.Variable
'\n\t'        Text
'"I have no fields and no superclass.  Catch the super call."' Comment
'\n'          Text

'! !'         Keyword
'\n\n'        Text

'!'           Keyword
'Object'      Name.Class
' methodsFor: ' Keyword
"'copying'"   Literal.String
" stamp: 'tk 9/4/2001 10:30'!" Keyword
'\n'          Text

'veryDeepInner:' Name.Function
' '           Text
'deepCopier'  Name.Variable
'\n\t'        Text
'"No special treatment for inst vars of my superclasses.  Override when some need to be weakly copied.  Object>>veryDeepCopyWith: will veryDeepCopy any inst var whose class does not actually define veryDeepInner:"' Comment
'\n'          Text

'! !'         Keyword
'\n\n\n'      Text

'!'           Keyword
'Object'      Name.Class
' methodsFor: ' Keyword
"'creation'"  Literal.String
" stamp: 'nk 2/26/2004 13:35'!" Keyword
'\n'          Text

'asStringMorph' Name.Function
'\n\t'        Text
'"Open a StringMorph, as best one can, on the receiver"' Comment
'\n\n\t'      Text
'^'           Operator
' '           Text
'self'        Name.Builtin.Pseudo
' '           Text
'asStringOrText' Name.Function
' '           Text
'asStringMorph' Name.Function
'\n'          Text

'! !'         Keyword
'\n\n'        Text

'!'           Keyword
'Object'      Name.Class
' methodsFor: ' Keyword
"'creation'"  Literal.String
" stamp: 'nk 2/26/2004 13:35'!" Keyword
'\n'          Text

'asTextMorph' Name.Function
'\n\t'        Text
'"Open a TextMorph, as best one can, on the receiver"' Comment
'\n\n\t'      Text
'^'           Operator
' '           Text
'TextMorph'   Name.Class
' '           Text
'new'         Name.Builtin
' '           Text
'contentsAsIs:' Name.Function
' '           Text
'self'        Name.Builtin.Pseudo
' '           Text
'asStringOrText' Name.Function
'\n'          Text

'! !'         Keyword
'\n\n'        Text

'!'           Keyword
'Object'      Name.Class
' methodsFor: ' Keyword
"'creation'"  Literal.String
" stamp: 'sw 1/29/2002 21:45'!" Keyword
'\n'          Text

'openAsMorph' Name.Function
'\n\t'        Text
'"Open a morph, as best one can, on the receiver"' Comment
'\n\n\t'      Text
'^'           Operator
' '           Text
'self'        Name.Builtin.Pseudo
' '           Text
'asMorph'     Name.Function
' '           Text
'openInHand'  Name.Function
'\n\n'        Text

'"\n234 openAsMorph\n(ScriptingSystem formAtKey: #TinyMenu) openAsMorph\n\'fred\' openAsMorph\n"' Comment
'! !'         Keyword
'\n\n\n'      Text

'!'           Keyword
'Object'      Name.Class
' methodsFor: ' Keyword
"'debugging'" Literal.String
" stamp: 'md 11/24/2004 11:45'!" Keyword
'\n'          Text

'haltIf:'     Name.Function
' '           Text
'condition'   Name.Variable
'\n\t'        Text
'"This is the typical message to use for inserting breakpoints during \n\tdebugging.  Param can be a block or expression, halt if true.\n\tIf the Block has one arg, the receiver is bound to that.\n \tIf the condition is a selector, we look up in the callchain. Halt if\n      any method\'s selector equals selector."' Comment
'\n\t'        Text
'|'           Operator
' cntxt '     Name.Variable
'|'           Operator
'\n\n\t'      Text
'condition'   Name.Variable
' '           Text
'isSymbol'    Name.Function
' '           Text
'ifTrue:'     Name.Builtin
'['           Text
'\n\t\t'      Text
'"only halt if a method with selector symbol is in callchain"' Comment
'\n\t\t'      Text
'cntxt'       Name.Variable
' '           Text
':='          Operator
' '           Text
'thisContext' Name.Builtin.Pseudo
'.'           Punctuation
'\n\t\t'      Text
'['           Text
'cntxt'       Name.Variable
' '           Text
'sender'      Name.Function
' '           Text
'isNil'       Name.Function
']'           Text
' '           Text
'whileFalse:' Name.Builtin
' '           Text
'['           Text
'\n\t\t\t'    Text
'cntxt'       Name.Variable
' '           Text
':='          Operator
' '           Text
'cntxt'       Name.Variable
' '           Text
'sender'      Name.Function
'.'           Punctuation
' \n\t\t\t'   Text
'('           Text
'cntxt'       Name.Variable
' '           Text
'selector'    Name.Function
' '           Text
'='           Name.Function
' '           Text
'condition'   Name.Variable
')'           Text
' '           Text
'ifTrue:'     Name.Builtin
' '           Text
'['           Text
'Halt'        Name.Class
' '           Text
'signal'      Name.Function
']'           Text
'.'           Punctuation
'\n\t\t\t'    Text
']'           Text
'.'           Punctuation
'\n\t\t'      Text
'^'           Operator
'self'        Name.Builtin.Pseudo
'.'           Punctuation
'\n\t'        Text
']'           Text
'.'           Punctuation
'\n\t'        Text
'('           Text
'condition'   Name.Variable
' '           Text
'isBlock'     Name.Function
' \n\t\t\t'   Text
'ifTrue:'     Name.Builtin
' '           Text
'['           Text
'condition'   Name.Variable
' '           Text
'valueWithPossibleArgument:' Name.Function
' '           Text
'self'        Name.Builtin.Pseudo
']'           Text
' \n\t\t\t'   Text
'ifFalse:'    Name.Builtin
' '           Text
'['           Text
'condition'   Name.Variable
']'           Text
' \n\t'       Text
')'           Text
' '           Text
'ifTrue:'     Name.Builtin
' '           Text
'['           Text
'\n\t\t'      Text
'Halt'        Name.Class
' '           Text
'signal'      Name.Function
'\n\t'        Text
']'           Text
'.'           Punctuation
'! !'         Keyword
'\n\n'        Text

'!'           Keyword
'Object'      Name.Class
' methodsFor: ' Keyword
"'debugging'" Literal.String
'!'           Keyword
'\n'          Text

'needsWork'   Name.Variable
'! !'         Keyword
'\n\n\n'      Text

'!'           Keyword
'Object'      Name.Class
' methodsFor: ' Keyword
"'debugging-haltOnce'" Literal.String
" stamp: 'sbw 6/2/2004 08:26'!" Keyword
'\n'          Text

'checkHaltCountExpired' Name.Function
'\n\t'        Text
'|'           Operator
' counter '   Name.Variable
'|'           Operator
'\n\t'        Text
'counter'     Name.Variable
' '           Text
'_'           Operator
' '           Text
'Smalltalk'   Name.Class
' '           Text
'at:'         Name.Function
' '           Text
'#HaltCount'  Literal.String.Symbol
' '           Text
'ifAbsent:'   Name.Function
' '           Text
'['           Text
'0'           Literal.Number
']'           Text
'.'           Punctuation
'\n\t'        Text
'^'           Operator
'counter'     Name.Variable
' '           Text
'='           Name.Function
' '           Text
'0'           Literal.Number
'! !'         Keyword
'\n\n'        Text

'!'           Keyword
'Object'      Name.Class
' methodsFor: ' Keyword
"'debugging-haltOnce'" Literal.String
" stamp: 'sbw 5/19/2004 19:04'!" Keyword
'\n'          Text

'clearHaltOnce' Name.Function
'\n\t'        Text
'"Turn on the halt once flag."' Comment
'\n\t'        Text
'Smalltalk'   Name.Class
' '           Text
'at:'         Name.Function
' '           Text
'#HaltOnce'   Literal.String.Symbol
' '           Text
'put:'        Name.Function
' '           Text
'false'       Name.Builtin.Pseudo
'! !'         Keyword
'\n\n'        Text

'!'           Keyword
'Object'      Name.Class
' methodsFor: ' Keyword
"'debugging-haltOnce'" Literal.String
" stamp: 'sbw 6/2/2004 08:30'!" Keyword
'\n'          Text

'decrementAndCheckHaltCount' Name.Function
'\n\t'        Text
'self'        Name.Builtin.Pseudo
' '           Text
'decrementHaltCount' Name.Function
'.'           Punctuation
'\n\t'        Text
'^'           Operator
'self'        Name.Builtin.Pseudo
' '           Text
'checkHaltCountExpired' Name.Function
'! !'         Keyword
'\n\n'        Text

'!'           Keyword
'Object'      Name.Class
' methodsFor: ' Keyword
"'debugging-haltOnce'" Literal.String
" stamp: 'sbw 6/2/2004 08:28'!" Keyword
'\n'          Text

'decrementHaltCount' Name.Function
'\n\t'        Text
'|'           Operator
' counter '   Name.Variable
'|'           Operator
'\n\t'        Text
'counter'     Name.Variable
' '           Text
':='          Operator
' '           Text
'Smalltalk'   Name.Class
'\n\t\t\t\t'  Text
'at:'         Name.Function
' '           Text
'#HaltCount'  Literal.String.Symbol
'\n\t\t\t\t'  Text
'ifAbsent:'   Name.Function
' '           Text
'['           Text
'0'           Literal.Number
']'           Text
'.'           Punctuation
'\n\t'        Text
'counter'     Name.Variable
' '           Text
'>'           Name.Function
' '           Text
'0'           Literal.Number
' '           Text
'ifTrue:'     Name.Builtin
' '           Text
'['           Text
'\n\t\t'      Text
'counter'     Name.Variable
' '           Text
'_'           Operator
' '           Text
'counter'     Name.Variable
' '           Text
'-'           Name.Function
' '           Text
'1'           Literal.Number
'.'           Punctuation
'\n\t\t'      Text
'self'        Name.Builtin.Pseudo
' '           Text
'setHaltCountTo:' Name.Function
' '           Text
'counter'     Name.Variable
']'           Text
'! !'         Keyword
'\n\n'        Text

'!'           Keyword
'Object'      Name.Class
' methodsFor: ' Keyword
"'debugging-haltOnce'" Literal.String
" stamp: 'sbw 6/2/2004 08:42'!" Keyword
'\n'          Text

'doExpiredHaltCount' Name.Function
'\n\t'        Text
'self'        Name.Builtin.Pseudo
' '           Text
'clearHaltOnce' Name.Function
'.'           Punctuation
'\n\t'        Text
'self'        Name.Builtin.Pseudo
' '           Text
'removeHaltCount' Name.Function
'.'           Punctuation
'\n\t'        Text
'self'        Name.Builtin.Pseudo
' '           Text
'halt'        Name.Function
'! !'         Keyword
'\n\n'        Text

'!'           Keyword
'Object'      Name.Class
' methodsFor: ' Keyword
"'debugging-haltOnce'" Literal.String
" stamp: 'sbw 6/2/2004 08:44'!" Keyword
'\n'          Text

'doExpiredHaltCount:' Name.Function
' '           Text
'aString'     Name.Variable
'\n\t'        Text
'self'        Name.Builtin.Pseudo
' '           Text
'clearHaltOnce' Name.Function
'.'           Punctuation
'\n\t'        Text
'self'        Name.Builtin.Pseudo
' '           Text
'removeHaltCount' Name.Function
'.'           Punctuation
'\n\t'        Text
'self'        Name.Builtin.Pseudo
' '           Text
'halt:'       Name.Function
' '           Text
'aString'     Name.Variable
'! !'         Keyword
'\n\n'        Text

'!'           Keyword
'Object'      Name.Class
' methodsFor: ' Keyword
"'debugging-haltOnce'" Literal.String
" stamp: 'sbw 6/2/2004 08:45'!" Keyword
'\n'          Text

'doExpiredInspectCount' Name.Function
'\n\t'        Text
'self'        Name.Builtin.Pseudo
' '           Text
'clearHaltOnce' Name.Function
'.'           Punctuation
'\n\t'        Text
'self'        Name.Builtin.Pseudo
' '           Text
'removeHaltCount' Name.Function
'.'           Punctuation
'\n\t'        Text
'self'        Name.Builtin.Pseudo
' '           Text
'inspect'     Name.Function
'! !'         Keyword
'\n\n'        Text

'!'           Keyword
'Object'      Name.Class
' methodsFor: ' Keyword
"'debugging-haltOnce'" Literal.String
" stamp: 'sbw 6/2/2004 08:43'!" Keyword
'\n'          Text

'haltOnCount:' Name.Function
' '           Text
'int'         Name.Variable
' \n\t'       Text
'self'        Name.Builtin.Pseudo
' '           Text
'haltOnceEnabled' Name.Function
'\n\t\t'      Text
'ifTrue:'     Name.Builtin
' '           Text
'['           Text
'self'        Name.Builtin.Pseudo
' '           Text
'hasHaltCount' Name.Function
'\n\t\t\t\t'  Text
'ifTrue:'     Name.Builtin
' '           Text
'['           Text
'self'        Name.Builtin.Pseudo
' '           Text
'decrementAndCheckHaltCount' Name.Function
'\n\t\t\t\t\t\t' Text
'ifTrue:'     Name.Builtin
' '           Text
'['           Text
'self'        Name.Builtin.Pseudo
' '           Text
'doExpiredHaltCount' Name.Function
']'           Text
']'           Text
'\n\t\t\t\t'  Text
'ifFalse:'    Name.Builtin
' '           Text
'['           Text
'int'         Name.Variable
' '           Text
'='           Name.Function
' '           Text
'1'           Literal.Number
'\n\t\t\t\t\t\t' Text
'ifTrue:'     Name.Builtin
' '           Text
'['           Text
'self'        Name.Builtin.Pseudo
' '           Text
'doExpiredHaltCount' Name.Function
']'           Text
'\n\t\t\t\t\t\t' Text
'ifFalse:'    Name.Builtin
' '           Text
'['           Text
'self'        Name.Builtin.Pseudo
' '           Text
'setHaltCountTo:' Name.Function
' '           Text
'int'         Name.Variable
' '           Text
'-'           Name.Function
' '           Text
'1'           Literal.Number
']'           Text
']'           Text
']'           Text
'! !'         Keyword
'\n\n'        Text

'!'           Keyword
'Object'      Name.Class
' methodsFor: ' Keyword
"'debugging-haltOnce'" Literal.String
" stamp: 'sbw 5/19/2004 19:05'!" Keyword
'\n'          Text

'haltOnce'    Name.Function
'\n\t'        Text
'"Halt unless we have already done it once."' Comment
'\n\t'        Text
'self'        Name.Builtin.Pseudo
' '           Text
'haltOnceEnabled' Name.Function
'\n\t\t'      Text
'ifTrue:'     Name.Builtin
' '           Text
'['           Text
'self'        Name.Builtin.Pseudo
' '           Text
'clearHaltOnce' Name.Function
'.'           Punctuation
'\n\t\t\t'    Text
'^'           Operator
' '           Text
'self'        Name.Builtin.Pseudo
' '           Text
'halt'        Name.Function
']'           Text
'! !'         Keyword
'\n\n'        Text

'!'           Keyword
'Object'      Name.Class
' methodsFor: ' Keyword
"'debugging-haltOnce'" Literal.String
" stamp: 'sbw 5/19/2004 19:04'!" Keyword
'\n'          Text

'haltOnceEnabled' Name.Function
'\n\t'        Text
'^'           Operator
' '           Text
'Smalltalk'   Name.Class
'\n\t\t'      Text
'at:'         Name.Function
' '           Text
'#HaltOnce'   Literal.String.Symbol
'\n\t\t'      Text
'ifAbsent:'   Name.Function
' '           Text
'['           Text
'false'       Name.Builtin.Pseudo
']'           Text
'! !'         Keyword
'\n\n'        Text

'!'           Keyword
'Object'      Name.Class
' methodsFor: ' Keyword
"'debugging-haltOnce'" Literal.String
" stamp: 'sbw 5/19/2004 19:05'!" Keyword
'\n'          Text

'haltOnce:'   Name.Function
' '           Text
'aString'     Name.Variable
' \n\t'       Text
'"Halt unless we have already done it once."' Comment
'\n\t'        Text
'self'        Name.Builtin.Pseudo
' '           Text
'haltOnceEnabled' Name.Function
'\n\t\t'      Text
'ifTrue:'     Name.Builtin
' '           Text
'['           Text
'self'        Name.Builtin.Pseudo
' '           Text
'clearHaltOnce' Name.Function
'.'           Punctuation
'\n\t\t\t'    Text
'^'           Operator
' '           Text
'self'        Name.Builtin.Pseudo
' '           Text
'halt:'       Name.Function
' '           Text
'aString'     Name.Variable
']'           Text
'! !'         Keyword
'\n\n'        Text

'!'           Keyword
'Object'      Name.Class
' methodsFor: ' Keyword
"'debugging-haltOnce'" Literal.String
" stamp: 'sbw 6/2/2004 08:45'!" Keyword
'\n'          Text

'halt:'       Name.Function
' '           Text
'aString'     Name.Variable
' '           Text
'onCount:'    Name.Function
' '           Text
'int'         Name.Variable
' \n\t'       Text
'self'        Name.Builtin.Pseudo
' '           Text
'haltOnceEnabled' Name.Function
'\n\t\t'      Text
'ifTrue:'     Name.Builtin
' '           Text
'['           Text
'self'        Name.Builtin.Pseudo
' '           Text
'hasHaltCount' Name.Function
'\n\t\t\t\t'  Text
'ifTrue:'     Name.Builtin
' '           Text
'['           Text
'self'        Name.Builtin.Pseudo
' '           Text
'decrementAndCheckHaltCount' Name.Function
'\n\t\t\t\t\t\t' Text
'ifTrue:'     Name.Builtin
' '           Text
'['           Text
'self'        Name.Builtin.Pseudo
' '           Text
'doExpiredHaltCount:' Name.Function
' '           Text
'aString'     Name.Variable
']'           Text
']'           Text
'\n\t\t\t\t'  Text
'ifFalse:'    Name.Builtin
' '           Text
'['           Text
'int'         Name.Variable
' '           Text
'='           Name.Function
' '           Text
'1'           Literal.Number
'\n\t\t\t\t\t\t' Text
'ifTrue:'     Name.Builtin
' '           Text
'['           Text
'self'        Name.Builtin.Pseudo
' '           Text
'doExpiredHaltCount:' Name.Function
' '           Text
'aString'     Name.Variable
']'           Text
'\n\t\t\t\t\t\t' Text
'ifFalse:'    Name.Builtin
' '           Text
'['           Text
'self'        Name.Builtin.Pseudo
' '           Text
'setHaltCountTo:' Name.Function
' '           Text
'int'         Name.Variable
' '           Text
'-'           Name.Function
' '           Text
'1'           Literal.Number
']'           Text
']'           Text
']'           Text
'! !'         Keyword
'\n\n'        Text

'!'           Keyword
'Object'      Name.Class
' methodsFor: ' Keyword
"'debugging-haltOnce'" Literal.String
" stamp: 'sbw 6/2/2004 08:36'!" Keyword
'\n'          Text

'hasHaltCount' Name.Function
'\n\t'        Text
'^'           Operator
'Smalltalk'   Name.Class
'\n\t\t\t\t'  Text
'includesKey:' Name.Function
' '           Text
'#HaltCount'  Literal.String.Symbol
'! !'         Keyword
'\n\n'        Text

'!'           Keyword
'Object'      Name.Class
' methodsFor: ' Keyword
"'debugging-haltOnce'" Literal.String
" stamp: 'sbw 6/2/2004 08:46'!" Keyword
'\n'          Text

'inspectOnCount:' Name.Function
' '           Text
'int'         Name.Variable
' \n\t'       Text
'self'        Name.Builtin.Pseudo
' '           Text
'haltOnceEnabled' Name.Function
'\n\t\t'      Text
'ifTrue:'     Name.Builtin
' '           Text
'['           Text
'self'        Name.Builtin.Pseudo
' '           Text
'hasHaltCount' Name.Function
'\n\t\t\t\t'  Text
'ifTrue:'     Name.Builtin
' '           Text
'['           Text
'self'        Name.Builtin.Pseudo
' '           Text
'decrementAndCheckHaltCount' Name.Function
'\n\t\t\t\t\t\t' Text
'ifTrue:'     Name.Builtin
' '           Text
'['           Text
'self'        Name.Builtin.Pseudo
' '           Text
'doExpiredInspectCount' Name.Function
']'           Text
']'           Text
'\n\t\t\t\t'  Text
'ifFalse:'    Name.Builtin
' '           Text
'['           Text
'int'         Name.Variable
' '           Text
'='           Name.Function
' '           Text
'1'           Literal.Number
'\n\t\t\t\t\t\t' Text
'ifTrue:'     Name.Builtin
' '           Text
'['           Text
'self'        Name.Builtin.Pseudo
' '           Text
'doExpiredInspectCount' Name.Function
']'           Text
'\n\t\t\t\t\t\t' Text
'ifFalse:'    Name.Builtin
' '           Text
'['           Text
'self'        Name.Builtin.Pseudo
' '           Text
'setHaltCountTo:' Name.Function
' '           Text
'int'         Name.Variable
' '           Text
'-'           Name.Function
' '           Text
'1'           Literal.Number
']'           Text
']'           Text
']'           Text
'! !'         Keyword
'\n\n'        Text

'!'           Keyword
'Object'      Name.Class
' methodsFor: ' Keyword
"'debugging-haltOnce'" Literal.String
" stamp: 'sbw 5/19/2004 19:05'!" Keyword
'\n'          Text

'inspectOnce' Name.Function
'\n\t'        Text
'"Inspect unless we have already done it once."' Comment
'\n\t'        Text
'self'        Name.Builtin.Pseudo
' '           Text
'haltOnceEnabled' Name.Function
'\n\t\t'      Text
'ifTrue:'     Name.Builtin
' '           Text
'['           Text
'self'        Name.Builtin.Pseudo
' '           Text
'clearHaltOnce' Name.Function
'.'           Punctuation
'\n\t\t\t'    Text
'^'           Operator
' '           Text
'self'        Name.Builtin.Pseudo
' '           Text
'inspect'     Name.Function
']'           Text
'! !'         Keyword
'\n\n'        Text

'!'           Keyword
'Object'      Name.Class
' methodsFor: ' Keyword
"'debugging-haltOnce'" Literal.String
" stamp: 'sbw 6/2/2004 13:20'!" Keyword
'\n'          Text

'inspectUntilCount:' Name.Function
' '           Text
'int'         Name.Variable
' \n\t'       Text
'self'        Name.Builtin.Pseudo
' '           Text
'haltOnceEnabled' Name.Function
'\n\t\t'      Text
'ifTrue:'     Name.Builtin
' '           Text
'['           Text
'self'        Name.Builtin.Pseudo
' '           Text
'hasHaltCount' Name.Function
'\n\t\t\t\t'  Text
'ifTrue:'     Name.Builtin
' '           Text
'['           Text
'self'        Name.Builtin.Pseudo
' '           Text
'decrementAndCheckHaltCount' Name.Function
'\n\t\t\t\t\t\t' Text
'ifTrue:'     Name.Builtin
' '           Text
'['           Text
'self'        Name.Builtin.Pseudo
' '           Text
'doExpiredInspectCount' Name.Function
']'           Text
'\n\t\t\t\t\t\t' Text
'ifFalse:'    Name.Builtin
' '           Text
'['           Text
'self'        Name.Builtin.Pseudo
' '           Text
'inspect'     Name.Function
']'           Text
']'           Text
'\n\t\t\t\t'  Text
'ifFalse:'    Name.Builtin
' '           Text
'['           Text
'int'         Name.Variable
' '           Text
'='           Name.Function
' '           Text
'1'           Literal.Number
'\n\t\t\t\t\t\t' Text
'ifTrue:'     Name.Builtin
' '           Text
'['           Text
'self'        Name.Builtin.Pseudo
' '           Text
'doExpiredInspectCount' Name.Function
']'           Text
'\n\t\t\t\t\t\t' Text
'ifFalse:'    Name.Builtin
' '           Text
'['           Text
'self'        Name.Builtin.Pseudo
' '           Text
'setHaltCountTo:' Name.Function
' '           Text
'int'         Name.Variable
' '           Text
'-'           Name.Function
' '           Text
'1'           Literal.Number
']'           Text
']'           Text
']'           Text
'! !'         Keyword
'\n\n'        Text

'!'           Keyword
'Object'      Name.Class
' methodsFor: ' Keyword
"'debugging-haltOnce'" Literal.String
" stamp: 'sbw 6/2/2004 08:49'!" Keyword
'\n'          Text

'removeHaltCount' Name.Function
'\n\t'        Text
'('           Text
'Smalltalk'   Name.Class
' '           Text
'includesKey:' Name.Function
' '           Text
'#HaltCount'  Literal.String.Symbol
')'           Text
' '           Text
'ifTrue:'     Name.Builtin
' '           Text
'['           Text
'\n\t\t'      Text
'Smalltalk'   Name.Class
' '           Text
'removeKey:'  Name.Function
' '           Text
'#HaltCount'  Literal.String.Symbol
']'           Text
'! !'         Keyword
'\n\n'        Text

'!'           Keyword
'Object'      Name.Class
' methodsFor: ' Keyword
"'debugging-haltOnce'" Literal.String
" stamp: 'sbw 6/2/2004 08:25'!" Keyword
'\n'          Text

'setHaltCountTo:' Name.Function
' '           Text
'int'         Name.Variable
'\n\t'        Text
'Smalltalk'   Name.Class
' '           Text
'at:'         Name.Function
' '           Text
'#HaltCount'  Literal.String.Symbol
' '           Text
'put:'        Name.Function
' '           Text
'int'         Name.Variable
'! !'         Keyword
'\n\n'        Text

'!'           Keyword
'Object'      Name.Class
' methodsFor: ' Keyword
"'debugging-haltOnce'" Literal.String
" stamp: 'sbw 5/19/2004 19:04'!" Keyword
'\n'          Text

'setHaltOnce' Name.Function
'\n\t'        Text
'"Turn on the halt once flag."' Comment
'\n\t'        Text
'Smalltalk'   Name.Class
' '           Text
'at:'         Name.Function
' '           Text
'#HaltOnce'   Literal.String.Symbol
' '           Text
'put:'        Name.Function
' '           Text
'true'        Name.Builtin.Pseudo
'! !'         Keyword
'\n\n'        Text

'!'           Keyword
'Object'      Name.Class
' methodsFor: ' Keyword
"'debugging-haltOnce'" Literal.String
" stamp: 'sbw 5/19/2004 19:04'!" Keyword
'\n'          Text

'toggleHaltOnce' Name.Function
'\n\t'        Text
'self'        Name.Builtin.Pseudo
' '           Text
'haltOnceEnabled' Name.Function
'\n\t\t'      Text
'ifTrue:'     Name.Builtin
' '           Text
'['           Text
'self'        Name.Builtin.Pseudo
' '           Text
'clearHaltOnce' Name.Function
']'           Text
'\n\t\t'      Text
'ifFalse:'    Name.Builtin
' '           Text
'['           Text
'self'        Name.Builtin.Pseudo
' '           Text
'setHaltOnce' Name.Function
']'           Text
'! !'         Keyword
'\n\n\n'      Text

'!'           Keyword
'Object'      Name.Class
' methodsFor: ' Keyword
"'dependents access'" Literal.String
" stamp: 'ar 2/11/2001 01:55'!" Keyword
'\n'          Text

'addDependent:' Name.Function
' '           Text
'anObject'    Name.Variable
'\n\t'        Text
'"Make the given object one of the receiver\'s dependents."' Comment
'\n\n\t'      Text
'|'           Operator
' dependents ' Name.Variable
'|'           Operator
'\n\t'        Text
'dependents'  Name.Variable
' '           Text
'_'           Operator
' '           Text
'self'        Name.Builtin.Pseudo
' '           Text
'dependents'  Name.Function
'.'           Punctuation
'\n\t'        Text
'('           Text
'dependents'  Name.Variable
' '           Text
'includes:'   Name.Function
' '           Text
'anObject'    Name.Variable
')'           Text
' '           Text
'ifFalse:'    Name.Builtin
'\n\t\t'      Text
'['           Text
'self'        Name.Builtin.Pseudo
' '           Text
'myDependents:' Name.Function
' '           Text
'('           Text
'dependents'  Name.Variable
' '           Text
'copyWithDependent:' Name.Function
' '           Text
'anObject'    Name.Variable
')'           Text
']'           Text
'.'           Punctuation
'\n\t'        Text
'^'           Operator
' '           Text
'anObject'    Name.Variable
'! !'         Keyword
'\n\n'        Text

'!'           Keyword
'Object'      Name.Class
' methodsFor: ' Keyword
"'dependents access'" Literal.String
" stamp: 'sma 2/29/2000 19:53'!" Keyword
'\n'          Text

'breakDependents' Name.Function
'\n\t'        Text
'"Remove all of the receiver\'s dependents."' Comment
'\n\n\t'      Text
'self'        Name.Builtin.Pseudo
' '           Text
'myDependents:' Name.Function
' '           Text
'nil'         Name.Builtin.Pseudo
'! !'         Keyword
'\n\n'        Text

'!'           Keyword
'Object'      Name.Class
' methodsFor: ' Keyword
"'dependents access'" Literal.String
" stamp: 'sma 2/29/2000 19:26'!" Keyword
'\n'          Text

'canDiscardEdits' Name.Function
'\n\t'        Text
'"Answer true if none of the views on this model has unaccepted edits that matter."' Comment
'\n\n\t'      Text
'self'        Name.Builtin.Pseudo
' '           Text
'dependents'  Name.Function
'\n\t\t'      Text
'do:'         Name.Function
' '           Text
'['           Text
':'           Operator
'each'        Name.Variable
' '           Text
'|'           Operator
' '           Text
'each'        Name.Variable
' '           Text
'canDiscardEdits' Name.Function
' '           Text
'ifFalse:'    Name.Builtin
' '           Text
'['           Text
'^'           Operator
' '           Text
'false'       Name.Builtin.Pseudo
']'           Text
']'           Text
'\n\t\t'      Text
'without:'    Name.Function
' '           Text
'self'        Name.Builtin.Pseudo
'.'           Punctuation
'\n\t'        Text
'^'           Operator
' '           Text
'true'        Name.Builtin.Pseudo
'! !'         Keyword
'\n\n'        Text

'!'           Keyword
'Object'      Name.Class
' methodsFor: ' Keyword
"'dependents access'" Literal.String
" stamp: 'sma 2/29/2000 19:58'!" Keyword
'\n'          Text

'dependents'  Name.Function
'\n\t'        Text
'"Answer a collection of objects that are \'dependent\' on the receiver;\n\t that is, all objects that should be notified if the receiver changes."' Comment
'\n\n\t'      Text
'^'           Operator
' '           Text
'self'        Name.Builtin.Pseudo
' '           Text
'myDependents' Name.Function
' '           Text
'ifNil:'      Name.Function
' '           Text
'['           Text
'#('          Literal.String.Symbol
')'           Literal.String.Symbol
']'           Text
'! !'         Keyword
'\n\n'        Text

'!'           Keyword
'Object'      Name.Class
' methodsFor: ' Keyword
"'dependents access'" Literal.String
'!'           Keyword
'\n'          Text

'evaluate:'   Name.Function
' '           Text
'actionBlock' Name.Variable
' '           Text
'wheneverChangeIn:' Name.Function
' '           Text
'aspectBlock' Name.Variable
'\n\t'        Text
'|'           Operator
' viewerThenObject objectThenViewer ' Name.Variable
'|'           Operator
'\n\t'        Text
'objectThenViewer' Name.Variable
' '           Text
'_'           Operator
' '           Text
'self'        Name.Builtin.Pseudo
'.'           Punctuation
'\n\t'        Text
'viewerThenObject' Name.Variable
' '           Text
'_'           Operator
' '           Text
'ObjectViewer' Name.Class
' '           Text
'on:'         Name.Function
' '           Text
'objectThenViewer' Name.Variable
'.'           Punctuation
'\n\t'        Text
'objectThenViewer' Name.Variable
' '           Text
'become:'     Name.Function
' '           Text
'viewerThenObject' Name.Variable
'.'           Punctuation
'\n\t'        Text
'"--- Then ---"' Comment
'\n\t'        Text
'objectThenViewer' Name.Variable
' '           Text
'xxxViewedObject:' Name.Function
' '           Text
'viewerThenObject' Name.Variable
'\n\t\t\t'    Text
'evaluate:'   Name.Function
' '           Text
'actionBlock' Name.Variable
'\n\t\t\t'    Text
'wheneverChangeIn:' Name.Function
' '           Text
'aspectBlock' Name.Variable
'! !'         Keyword
'\n\n'        Text

'!'           Keyword
'Object'      Name.Class
' methodsFor: ' Keyword
"'dependents access'" Literal.String
" stamp: 'sma 2/29/2000 19:59'!" Keyword
'\n'          Text

'hasUnacceptedEdits' Name.Function
'\n\t'        Text
'"Answer true if any of the views on this object has unaccepted edits."' Comment
'\n\n\t'      Text
'self'        Name.Builtin.Pseudo
' '           Text
'dependents'  Name.Function
'\n\t\t'      Text
'do:'         Name.Function
' '           Text
'['           Text
':'           Operator
'each'        Name.Variable
' '           Text
'|'           Operator
' '           Text
'each'        Name.Variable
' '           Text
'hasUnacceptedEdits' Name.Function
' '           Text
'ifTrue:'     Name.Builtin
' '           Text
'['           Text
'^'           Operator
' '           Text
'true'        Name.Builtin.Pseudo
']'           Text
']'           Text
'\n\t\t'      Text
'without:'    Name.Function
' '           Text
'self'        Name.Builtin.Pseudo
'.'           Punctuation
'\n\t'        Text
'^'           Operator
' '           Text
'false'       Name.Builtin.Pseudo
'! !'         Keyword
'\n\n'        Text

'!'           Keyword
'Object'      Name.Class
' methodsFor: ' Keyword
"'dependents access'" Literal.String
" stamp: 'sma 2/29/2000 19:55'!" Keyword
'\n'          Text

'myDependents' Name.Function
'\n\t'        Text
'"Private. Answer a list of all the receiver\'s dependents."' Comment
'\n\n\t'      Text
'^'           Operator
' '           Text
'DependentsFields' Name.Class
' '           Text
'at:'         Name.Function
' '           Text
'self'        Name.Builtin.Pseudo
' '           Text
'ifAbsent:'   Name.Function
' '           Text
'['           Text
']'           Text
'! !'         Keyword
'\n\n'        Text

'!'           Keyword
'Object'      Name.Class
' methodsFor: ' Keyword
"'dependents access'" Literal.String
" stamp: 'sma 2/29/2000 19:52'!" Keyword
'\n'          Text

'myDependents:' Name.Function
' '           Text
'aCollectionOrNil' Name.Variable
'\n\t'        Text
'"Private. Set (or remove) the receiver\'s dependents list."' Comment
'\n\n\t'      Text
'aCollectionOrNil' Name.Variable
'\n\t\t'      Text
'ifNil:'      Name.Function
' '           Text
'['           Text
'DependentsFields' Name.Class
' '           Text
'removeKey:'  Name.Function
' '           Text
'self'        Name.Builtin.Pseudo
' '           Text
'ifAbsent:'   Name.Function
' '           Text
'['           Text
']'           Text
']'           Text
'\n\t\t'      Text
'ifNotNil:'   Name.Function
' '           Text
'['           Text
'DependentsFields' Name.Class
' '           Text
'at:'         Name.Function
' '           Text
'self'        Name.Builtin.Pseudo
' '           Text
'put:'        Name.Function
' '           Text
'aCollectionOrNil' Name.Variable
']'           Text
'! !'         Keyword
'\n\n'        Text

'!'           Keyword
'Object'      Name.Class
' methodsFor: ' Keyword
"'dependents access'" Literal.String
" stamp: 'reThink 2/18/2001 17:06'!" Keyword
'\n'          Text

'release'     Name.Function
'\n\t'        Text
'"Remove references to objects that may refer to the receiver. This message \n\tshould be overridden by subclasses with any cycles, in which case the \n\tsubclass should also include the expression super release."' Comment
'\n\n\t'      Text
'self'        Name.Builtin.Pseudo
' '           Text
'releaseActionMap' Name.Function
'! !'         Keyword
'\n\n'        Text

'!'           Keyword
'Object'      Name.Class
' methodsFor: ' Keyword
"'dependents access'" Literal.String
" stamp: 'sma 2/29/2000 20:23'!" Keyword
'\n'          Text

'removeDependent:' Name.Function
' '           Text
'anObject'    Name.Variable
'\n\t'        Text
'"Remove the given object as one of the receiver\'s dependents."' Comment
'\n\n\t'      Text
'|'           Operator
' dependents ' Name.Variable
'|'           Operator
'\n\t'        Text
'dependents'  Name.Variable
' '           Text
'_'           Operator
' '           Text
'self'        Name.Builtin.Pseudo
' '           Text
'dependents'  Name.Function
' '           Text
'reject:'     Name.Function
' '           Text
'['           Text
':'           Operator
'each'        Name.Variable
' '           Text
'|'           Operator
' '           Text
'each'        Name.Variable
' '           Text
'=='          Name.Function
' '           Text
'anObject'    Name.Variable
']'           Text
'.'           Punctuation
'\n\t'        Text
'self'        Name.Builtin.Pseudo
' '           Text
'myDependents:' Name.Function
' '           Text
'('           Text
'dependents'  Name.Variable
' '           Text
'isEmpty'     Name.Function
' '           Text
'ifFalse:'    Name.Builtin
' '           Text
'['           Text
'dependents'  Name.Variable
']'           Text
')'           Text
'.'           Punctuation
'\n\t'        Text
'^'           Operator
' '           Text
'anObject'    Name.Variable
'! !'         Keyword
'\n\n\n'      Text

'!'           Keyword
'Object'      Name.Class
' methodsFor: ' Keyword
"'drag and drop'" Literal.String
" stamp: 'bh 9/16/2001 18:10'!" Keyword
'\n'          Text

'acceptDroppingMorph:' Name.Function
' '           Text
'transferMorph' Name.Variable
' '           Text
'event:'      Name.Function
' '           Text
'evt'         Name.Variable
' '           Text
'inMorph:'    Name.Function
' '           Text
'dstListMorph' Name.Variable
' \n\t\n\t'   Text
'^'           Operator
'false'       Name.Builtin.Pseudo
'.'           Punctuation
'! !'         Keyword
'\n\n'        Text

'!'           Keyword
'Object'      Name.Class
' methodsFor: ' Keyword
"'drag and drop'" Literal.String
" stamp: 'mir 5/16/2000 11:35'!" Keyword
'\n'          Text

'dragAnimationFor:' Name.Function
' '           Text
'item'        Name.Variable
' '           Text
'transferMorph:' Name.Function
' '           Text
'transferMorph' Name.Variable
' \n\t'       Text
'"Default do nothing"' Comment
'! !'         Keyword
'\n\n'        Text

'!'           Keyword
'Object'      Name.Class
' methodsFor: ' Keyword
"'drag and drop'" Literal.String
" stamp: 'panda 4/28/2000 16:20'!" Keyword
'\n'          Text

'dragPassengerFor:' Name.Function
' '           Text
'item'        Name.Variable
' '           Text
'inMorph:'    Name.Function
' '           Text
'dragSource'  Name.Variable
' \n\t'       Text
'^'           Operator
'item'        Name.Variable
'! !'         Keyword
'\n\n'        Text

'!'           Keyword
'Object'      Name.Class
' methodsFor: ' Keyword
"'drag and drop'" Literal.String
" stamp: 'panda 4/28/2000 16:11'!" Keyword
'\n'          Text

'dragTransferType' Name.Function
'\n\t'        Text
'^'           Operator
'nil'         Name.Builtin.Pseudo
'! !'         Keyword
'\n\n'        Text

'!'           Keyword
'Object'      Name.Class
' methodsFor: ' Keyword
"'drag and drop'" Literal.String
" stamp: 'panda 4/28/2000 16:05'!" Keyword
'\n'          Text

'dragTransferTypeForMorph:' Name.Function
' '           Text
'dragSource'  Name.Variable
' \n\t'       Text
'^'           Operator
'nil'         Name.Builtin.Pseudo
'! !'         Keyword
'\n\n'        Text

'!'           Keyword
'Object'      Name.Class
' methodsFor: ' Keyword
"'drag and drop'" Literal.String
" stamp: 'mir 5/8/2000 17:19'!" Keyword
'\n'          Text

'wantsDroppedMorph:' Name.Function
' '           Text
'aMorph'      Name.Variable
' '           Text
'event:'      Name.Function
' '           Text
'anEvent'     Name.Variable
' '           Text
'inMorph:'    Name.Function
' '           Text
'destinationLM' Name.Variable
' \n\t'       Text
'^'           Operator
'false'       Name.Builtin.Pseudo
'! !'         Keyword
'\n\n\n'      Text

'!'           Keyword
'Object'      Name.Class
' methodsFor: ' Keyword
"'error handling'" Literal.String
" stamp: 'sma 5/6/2000 19:35'!" Keyword
'\n'          Text

'assert:'     Name.Function
' '           Text
'aBlock'      Name.Variable
'\n\t'        Text
'"Throw an assertion error if aBlock does not evaluates to true."' Comment
'\n\n\t'      Text
'aBlock'      Name.Variable
' '           Text
'value'       Name.Function
' '           Text
'ifFalse:'    Name.Builtin
' '           Text
'['           Text
'AssertionFailure' Name.Class
' '           Text
'signal:'     Name.Function
' '           Text
"'Assertion failed'" Literal.String
']'           Text
'! !'         Keyword
'\n\n'        Text

'!'           Keyword
'Object'      Name.Class
' methodsFor: ' Keyword
"'error handling'" Literal.String
" stamp: 'nk 1/15/2004 10:54'!" Keyword
'\n'          Text

'assert:'     Name.Function
' '           Text
'aBlock'      Name.Variable
' '           Text
'descriptionBlock:' Name.Function
' '           Text
'descriptionBlock' Name.Variable
'\n\t'        Text
'"Throw an assertion error if aBlock does not evaluate to true."' Comment
'\n\n\t'      Text
'aBlock'      Name.Variable
' '           Text
'value'       Name.Function
' '           Text
'ifFalse:'    Name.Builtin
' '           Text
'['           Text
'AssertionFailure' Name.Class
' '           Text
'signal:'     Name.Function
' '           Text
'descriptionBlock' Name.Variable
' '           Text
'value'       Name.Function
' '           Text
'asString'    Name.Function
' '           Text
']'           Text
'! !'         Keyword
'\n\n'        Text

'!'           Keyword
'Object'      Name.Class
' methodsFor: ' Keyword
"'error handling'" Literal.String
" stamp: 'nk 10/25/2003 16:47'!" Keyword
'\n'          Text

'assert:'     Name.Function
' '           Text
'aBlock'      Name.Variable
' '           Text
'description:' Name.Function
' '           Text
'aString'     Name.Variable
'\n\t'        Text
'"Throw an assertion error if aBlock does not evaluates to true."' Comment
'\n\n\t'      Text
'aBlock'      Name.Variable
' '           Text
'value'       Name.Function
' '           Text
'ifFalse:'    Name.Builtin
' '           Text
'['           Text
'AssertionFailure' Name.Class
' '           Text
'signal:'     Name.Function
' '           Text
'aString'     Name.Variable
' '           Text
']'           Text
'! !'         Keyword
'\n\n'        Text

'!'           Keyword
'Object'      Name.Class
' methodsFor: ' Keyword
"'error handling'" Literal.String
" stamp: 'md 10/13/2004 15:59'!" Keyword
'\n'          Text

'backwardCompatibilityOnly:' Name.Function
' '           Text
'anExplanationString' Name.Variable
'\n\t'        Text
'"Warn that the sending method has been deprecated. Methods that are tagt with #backwardCompatibility:\n\t are kept for compatibility."' Comment
'\n\n\t'      Text
'Preferences' Name.Class
' '           Text
'showDeprecationWarnings' Name.Function
' '           Text
'ifTrue:'     Name.Builtin
'\n\t\t'      Text
'['           Text
'Deprecation' Name.Class
' '           Text
'signal:'     Name.Function
' '           Text
'thisContext' Name.Builtin.Pseudo
' '           Text
'sender'      Name.Function
' '           Text
'printString' Name.Function
','           Name.Function
' '           Text
"' has been deprecated (but will be kept for compatibility). '" Literal.String
','           Name.Function
' '           Text
'anExplanationString' Name.Variable
']'           Text
'! !'         Keyword
'\n\n'        Text

'!'           Keyword
'Object'      Name.Class
' methodsFor: ' Keyword
"'error handling'" Literal.String
'!'           Keyword
'\n'          Text

'caseError'   Name.Function
'\n\t'        Text
'"Report an error from an in-line or explicit case statement."' Comment
'\n\n\t'      Text
'self'        Name.Builtin.Pseudo
' '           Text
'error:'      Name.Function
' '           Text
"'Case not found, and no otherwise clause'" Literal.String
'! !'         Keyword
'\n\n'        Text

'!'           Keyword
'Object'      Name.Class
' methodsFor: ' Keyword
"'error handling'" Literal.String
" stamp: 'rbb 3/1/2005 09:26'!" Keyword
'\n'          Text

'confirm:'    Name.Function
' '           Text
'queryString' Name.Variable
'\n\t'        Text
'"Put up a yes/no menu with caption queryString. Answer true if the \n\tresponse is yes, false if no. This is a modal question--the user must \n\trespond yes or no."' Comment
'\n\n\t'      Text
'"nil confirm: \'Are you hungry?\'"' Comment
'\n\n\t'      Text
'^'           Operator
' '           Text
'UIManager'   Name.Class
' '           Text
'default'     Name.Function
' '           Text
'confirm:'    Name.Function
' '           Text
'queryString' Name.Variable
'! !'         Keyword
'\n\n'        Text

'!'           Keyword
'Object'      Name.Class
' methodsFor: ' Keyword
"'error handling'" Literal.String
" stamp: 'rbb 3/1/2005 09:27'!" Keyword
'\n'          Text

'confirm:'    Name.Function
' '           Text
'aString'     Name.Variable
' '           Text
'orCancel:'   Name.Function
' '           Text
'cancelBlock' Name.Variable
'\n\t'        Text
'"Put up a yes/no/cancel menu with caption aString. Answer true if  \n\tthe response is yes, false if no. If cancel is chosen, evaluate  \n\tcancelBlock. This is a modal question--the user must respond yes or no."' Comment
'\n\n\t'      Text
'^'           Operator
' '           Text
'UIManager'   Name.Class
' '           Text
'default'     Name.Function
' '           Text
'confirm:'    Name.Function
' '           Text
'aString'     Name.Variable
' '           Text
'orCancel:'   Name.Function
' '           Text
'cancelBlock' Name.Variable
'! !'         Keyword
'\n\n'        Text

'!'           Keyword
'Object'      Name.Class
' methodsFor: ' Keyword
"'error handling'" Literal.String
" stamp: 'dew 10/6/2003 18:20'!" Keyword
'\n'          Text

'deprecated:' Name.Function
' '           Text
'anExplanationString' Name.Variable
'\n\t'        Text
'"Warn that the sending method has been deprecated."' Comment
'\n\n\t'      Text
'Preferences' Name.Class
' '           Text
'showDeprecationWarnings' Name.Function
' '           Text
'ifTrue:'     Name.Builtin
'\n\t\t'      Text
'['           Text
'Deprecation' Name.Class
' '           Text
'signal:'     Name.Function
' '           Text
'thisContext' Name.Builtin.Pseudo
' '           Text
'sender'      Name.Function
' '           Text
'printString' Name.Function
','           Name.Function
' '           Text
"' has been deprecated. '" Literal.String
','           Name.Function
' '           Text
'anExplanationString' Name.Variable
']'           Text
'! !'         Keyword
'\n\n'        Text

'!'           Keyword
'Object'      Name.Class
' methodsFor: ' Keyword
"'error handling'" Literal.String
" stamp: 'dew 10/7/2003 00:26'!" Keyword
'\n'          Text

'deprecated:' Name.Function
' '           Text
'anExplanationString' Name.Variable
' '           Text
'block:'      Name.Function
' '           Text
'aBlock'      Name.Variable
' \n\t '      Text
'"Warn that the sender has been deprecated.  Answer the value of aBlock on resumption.  (Note that #deprecated: is usually the preferred method.)"' Comment
'\n\n\t'      Text
'Preferences' Name.Class
' '           Text
'showDeprecationWarnings' Name.Function
' '           Text
'ifTrue:'     Name.Builtin
'\n\t\t'      Text
'['           Text
'Deprecation' Name.Class
'\n\t\t\t'    Text
'signal:'     Name.Function
' '           Text
'thisContext' Name.Builtin.Pseudo
' '           Text
'sender'      Name.Function
' '           Text
'printString' Name.Function
','           Name.Function
' '           Text
"' has been deprecated. '" Literal.String
','           Name.Function
' '           Text
'anExplanationString' Name.Variable
']'           Text
'.'           Punctuation
'\n\t'        Text
'^'           Operator
' '           Text
'aBlock'      Name.Variable
' '           Text
'value'       Name.Function
'.'           Punctuation
'\n'          Text

'! !'         Keyword
'\n\n'        Text

'!'           Keyword
'Object'      Name.Class
' methodsFor: ' Keyword
"'error handling'" Literal.String
" stamp: 'md 2/22/2006 21:21'!" Keyword
'\n'          Text

'doesNotUnderstand:' Name.Function
' '           Text
'aMessage'    Name.Variable
' \n\t '      Text
'"Handle the fact that there was an attempt to send the given message to the receiver but the receiver does not understand this message (typically sent from the machine when a message is sent to the receiver and no method is defined for that selector)."' Comment
'\n\t'        Text
'"Testing: (3 activeProcess)"' Comment
'\n\n\t'      Text
'MessageNotUnderstood' Name.Class
' '           Text
'new'         Name.Builtin
' \n\t\t'     Text
'message:'    Name.Function
' '           Text
'aMessage'    Name.Variable
';'           Punctuation
'\n\t\t'      Text
'receiver:'   Name.Function
' '           Text
'self'        Name.Builtin.Pseudo
';'           Punctuation
'\n\t\t'      Text
'signal'      Name.Function
'.'           Punctuation
'\n\t'        Text
'^'           Operator
' '           Text
'aMessage'    Name.Variable
' '           Text
'sentTo:'     Name.Function
' '           Text
'self'        Name.Builtin.Pseudo
'.'           Punctuation
'\n'          Text

'! !'         Keyword
'\n\n'        Text

'!'           Keyword
'Object'      Name.Class
' methodsFor: ' Keyword
"'error handling'" Literal.String
" stamp: 'TRee 11/4/2003 16:47'!" Keyword
'\n'          Text

'dpsTrace:'   Name.Function
' '           Text
'reportObject' Name.Variable
'  \n\t'      Text
'Transcript'  Name.Class
' '           Text
'myDependents' Name.Function
' '           Text
'isNil'       Name.Function
' '           Text
'ifTrue:'     Name.Builtin
' '           Text
'['           Text
'^'           Operator
'self'        Name.Builtin.Pseudo
']'           Text
'.'           Punctuation
'\n\t'        Text
'self'        Name.Builtin.Pseudo
' '           Text
'dpsTrace:'   Name.Function
' '           Text
'reportObject' Name.Variable
' '           Text
'levels:'     Name.Function
' '           Text
'1'           Literal.Number
' '           Text
'withContext:' Name.Function
' '           Text
'thisContext' Name.Builtin.Pseudo
'\n\t\t\n'    Text

'" nil dpsTrace: \'sludder\'. "' Comment
'! !'         Keyword
'\n\n'        Text

'!'           Keyword
'Object'      Name.Class
' methodsFor: ' Keyword
"'error handling'" Literal.String
" stamp: 'TRee 11/4/2003 16:49'!" Keyword
'\n'          Text

'dpsTrace:'   Name.Function
' '           Text
'reportObject' Name.Variable
' '           Text
'levels:'     Name.Function
' '           Text
'anInt'       Name.Variable
'\n\t'        Text
'self'        Name.Builtin.Pseudo
' '           Text
'dpsTrace:'   Name.Function
' '           Text
'reportObject' Name.Variable
' '           Text
'levels:'     Name.Function
' '           Text
'anInt'       Name.Variable
' '           Text
'withContext:' Name.Function
' '           Text
'thisContext' Name.Builtin.Pseudo
'\n\n'        Text

'"(1 to: 3) do: [:int | nil dpsTrace: int levels: 5.]"' Comment
'! !'         Keyword
'\n\n'        Text

'!'           Keyword
'Object'      Name.Class
' methodsFor: ' Keyword
"'error handling'" Literal.String
" stamp: 'TRee 11/4/2003 17:02'!" Keyword
'\n'          Text

'dpsTrace:'   Name.Function
' '           Text
'reportObject' Name.Variable
' '           Text
'levels:'     Name.Function
' '           Text
'anInt'       Name.Variable
' '           Text
'withContext:' Name.Function
' '           Text
'currentContext' Name.Variable
'\n\t'        Text
'|'           Operator
' reportString context displayCount ' Name.Variable
'|'           Operator
'\n\t'        Text
'reportString' Name.Variable
' '           Text
':='          Operator
' '           Text
'('           Text
'reportObject' Name.Variable
' '           Text
'respondsTo:' Name.Function
' '           Text
'#asString'   Literal.String.Symbol
')'           Text
' \n\t\t\t'   Text
'ifTrue:'     Name.Builtin
' '           Text
'['           Text
'reportObject' Name.Variable
' '           Text
'asString'    Name.Function
']'           Text
' '           Text
'ifFalse:'    Name.Builtin
' '           Text
'['           Text
'reportObject' Name.Variable
' '           Text
'printString' Name.Function
']'           Text
'.'           Punctuation
'\n\t'        Text
'('           Text
'Smalltalk'   Name.Class
' '           Text
'at:'         Name.Function
' '           Text
'#Decompiler' Literal.String.Symbol
' '           Text
'ifAbsent:'   Name.Function
' '           Text
'['           Text
'nil'         Name.Builtin.Pseudo
']'           Text
')'           Text
' \n\t'       Text
'ifNil:'      Name.Function
' \n\t\t'     Text
'['           Text
'Transcript'  Name.Class
' '           Text
'cr'          Name.Function
';'           Punctuation
' '           Text
'show:'       Name.Function
' '           Text
'reportString' Name.Variable
']'           Text
'\n\t'        Text
'ifNotNil:'   Name.Function
'\n\t\t'      Text
'['           Text
'context'     Name.Variable
' '           Text
':='          Operator
' '           Text
'currentContext' Name.Variable
'.'           Punctuation
'\n\t\t'      Text
'displayCount' Name.Variable
' '           Text
':='          Operator
' '           Text
'anInt'       Name.Variable
' '           Text
'>'           Name.Function
' '           Text
'1'           Literal.Number
'.'           Punctuation
'\n\t\t'      Text
'1'           Literal.Number
' '           Text
'to:'         Name.Function
' '           Text
'anInt'       Name.Variable
' '           Text
'do:'         Name.Function
'\n\t\t\t'    Text
'['           Text
':'           Operator
'count'       Name.Variable
' '           Text
'|'           Operator
'\n\t\t\t'    Text
'Transcript'  Name.Class
' '           Text
'cr'          Name.Function
'.'           Punctuation
'\n\t\t\t'    Text
'displayCount' Name.Variable
'\n\t\t\t\t'  Text
'ifTrue:'     Name.Builtin
' '           Text
'['           Text
'Transcript'  Name.Class
' '           Text
'show:'       Name.Function
' '           Text
'count'       Name.Variable
' '           Text
'printString' Name.Function
','           Name.Function
' '           Text
"': '"        Literal.String
']'           Text
'.'           Punctuation
'\n\t\t\t\n\t\t\t' Text
'reportString' Name.Variable
' '           Text
'notNil'      Name.Function
'\n\t\t\t'    Text
'ifTrue:'     Name.Builtin
'\n\t\t\t\t'  Text
'['           Text
'Transcript'  Name.Class
' '           Text
'show:'       Name.Function
' '           Text
'context'     Name.Variable
' '           Text
'home'        Name.Function
' '           Text
'class'       Name.Function
' '           Text
'name'        Name.Function
' \n\t\t\t'   Text
','           Name.Function
' '           Text
"'/'"         Literal.String
' '           Text
','           Name.Function
' '           Text
'context'     Name.Variable
' '           Text
'sender'      Name.Function
' '           Text
'selector'    Name.Function
','           Name.Function
'  '          Text
"' ('"        Literal.String
' '           Text
','           Name.Function
' '           Text
'reportString' Name.Variable
' '           Text
','           Name.Function
' '           Text
"')'"         Literal.String
'.'           Punctuation
'\n\t\t\t\t'  Text
'context'     Name.Variable
' '           Text
':='          Operator
' '           Text
'context'     Name.Variable
' '           Text
'sender'      Name.Function
'.'           Punctuation
'\n\t\t\t\t'  Text
'reportString' Name.Variable
' '           Text
':='          Operator
' '           Text
'nil'         Name.Builtin.Pseudo
']'           Text
'\n\t\t\t'    Text
'ifFalse:'    Name.Builtin
'\n\t\t\t\t'  Text
'['           Text
'('           Text
'context'     Name.Variable
' '           Text
'notNil'      Name.Function
' '           Text
'and:'        Name.Function
' '           Text
'['           Text
'('           Text
'context'     Name.Variable
' '           Text
':='          Operator
' '           Text
'context'     Name.Variable
' '           Text
'sender'      Name.Function
')'           Text
' '           Text
'notNil'      Name.Function
']'           Text
')'           Text
'\n\t\t\t\t'  Text
'ifTrue:'     Name.Builtin
' '           Text
'['           Text
'Transcript'  Name.Class
' '           Text
'show:'       Name.Function
' '           Text
'context'     Name.Variable
' '           Text
'receiver'    Name.Function
' '           Text
'class'       Name.Function
' '           Text
'name'        Name.Function
' '           Text
','           Name.Function
' '           Text
"'/'"         Literal.String
' '           Text
','           Name.Function
' '           Text
'context'     Name.Variable
' '           Text
'selector'    Name.Function
']'           Text
']'           Text
']'           Text
'.'           Punctuation
'\n\t\t'      Text
'"Transcript cr"' Comment
']'           Text
'.'           Punctuation
'! !'         Keyword
'\n\n'        Text

'!'           Keyword
'Object'      Name.Class
' methodsFor: ' Keyword
"'error handling'" Literal.String
" stamp: 'md 8/2/2005 22:17'!" Keyword
'\n'          Text

'error'       Name.Function
'\n\t'        Text
'"Throw a generic Error exception."' Comment
'\n\n\t'      Text
'^'           Operator
'self'        Name.Builtin.Pseudo
' '           Text
'error:'      Name.Function
' '           Text
"'Error!!'"   Literal.String
'.'           Punctuation
'! !'         Keyword
'\n\n'        Text

'!'           Keyword
'Object'      Name.Class
' methodsFor: ' Keyword
"'error handling'" Literal.String
" stamp: 'tfei 4/12/1999 12:55'!" Keyword
'\n'          Text

'error:'      Name.Function
' '           Text
'aString'     Name.Variable
' \n\t'       Text
'"Throw a generic Error exception."' Comment
'\n\n\t'      Text
'^'           Operator
'Error'       Name.Class
' '           Text
'new'         Name.Builtin
' '           Text
'signal:'     Name.Function
' '           Text
'aString'     Name.Variable
'! !'         Keyword
'\n\n'        Text

'!'           Keyword
'Object'      Name.Class
' methodsFor: ' Keyword
"'error handling'" Literal.String
" stamp: 'al 9/16/2005 14:12'!" Keyword
'\n'          Text

'explicitRequirement' Name.Function
'\n\t'        Text
'self'        Name.Builtin.Pseudo
' '           Text
'error:'      Name.Function
' '           Text
"'Explicitly required method'" Literal.String
'! !'         Keyword
'\n\n'        Text

'!'           Keyword
'Object'      Name.Class
' methodsFor: ' Keyword
"'error handling'" Literal.String
" stamp: 'al 2/13/2006 22:20'!" Keyword
'\n'          Text

'halt'        Name.Function
'\n\t'        Text
'"This is the typical message to use for inserting breakpoints during \n\tdebugging. It behaves like halt:, but does not call on halt: in order to \n\tavoid putting this message on the stack. Halt is especially useful when \n\tthe breakpoint message is an arbitrary one."' Comment
'\n\n\t'      Text
'Halt'        Name.Class
' '           Text
'signal'      Name.Function
'! !'         Keyword
'\n\n'        Text

'!'           Keyword
'Object'      Name.Class
' methodsFor: ' Keyword
"'error handling'" Literal.String
" stamp: 'tfei 4/12/1999 12:59'!" Keyword
'\n'          Text

'halt:'       Name.Function
' '           Text
'aString'     Name.Variable
' \n\t'       Text
'"This is the typical message to use for inserting breakpoints during \n\tdebugging. It creates and schedules a Notifier with the argument, \n\taString, as the label."' Comment
'\n\t\n\t'    Text
'Halt'        Name.Class
' '           Text
'new'         Name.Builtin
' '           Text
'signal:'     Name.Function
' '           Text
'aString'     Name.Variable
'! !'         Keyword
'\n\n'        Text

'!'           Keyword
'Object'      Name.Class
' methodsFor: ' Keyword
"'error handling'" Literal.String
" stamp: 'md 1/20/2006 16:24'!" Keyword
'\n'          Text

'handles:'    Name.Function
' '           Text
'exception'   Name.Variable
'\n\t'        Text
'"This method exists in case a non exception class is the first arg in an on:do: (for instance using a exception class that is not loaded). We prefer this to raising an error during error handling itself. Also, semantically it makes sense that the exception handler is not active if its exception class is not loaded"' Comment
'\n\n\t'      Text
'^'           Operator
' '           Text
'false'       Name.Builtin.Pseudo
'! !'         Keyword
'\n\n'        Text

'!'           Keyword
'Object'      Name.Class
' methodsFor: ' Keyword
"'error handling'" Literal.String
" stamp: 'ar 9/27/2005 20:24'!" Keyword
'\n'          Text

'notifyWithLabel:' Name.Function
' '           Text
'aString'     Name.Variable
' \n\t'       Text
'"Create and schedule a Notifier with aString as the window label as well as the contents of the window, in  order to request confirmation before a process can proceed."' Comment
'\n\n\t'      Text
'ToolSet'     Name.Class
'\n\t\t'      Text
'debugContext:' Name.Function
' '           Text
'thisContext' Name.Builtin.Pseudo
'\n\t\t'      Text
'label:'      Name.Function
' '           Text
'aString'     Name.Variable
'\n\t\t'      Text
'contents:'   Name.Function
' '           Text
'aString'     Name.Variable
'\n\n\t'      Text
'"nil notifyWithLabel: \'let us see if this works\'"' Comment
'! !'         Keyword
'\n\n'        Text

'!'           Keyword
'Object'      Name.Class
' methodsFor: ' Keyword
"'error handling'" Literal.String
" stamp: 'hg 10/2/2001 20:49'!" Keyword
'\n'          Text

'notify:'     Name.Function
' '           Text
'aString'     Name.Variable
' \n\t'       Text
'"Create and schedule a Notifier with the argument as the message in \n\torder to request confirmation before a process can proceed."' Comment
'\n\n\t'      Text
'Warning'     Name.Class
' '           Text
'signal:'     Name.Function
' '           Text
'aString'     Name.Variable
'\n\n\t'      Text
'"nil notify: \'confirmation message\'"' Comment
'! !'         Keyword
'\n\n'        Text

'!'           Keyword
'Object'      Name.Class
' methodsFor: ' Keyword
"'error handling'" Literal.String
'!'           Keyword
'\n'          Text

'notify:'     Name.Function
' '           Text
'aString'     Name.Variable
' '           Text
'at:'         Name.Function
' '           Text
'location'    Name.Variable
'\n\t'        Text
'"Create and schedule a Notifier with the argument as the message in \n\torder to request confirmation before a process can proceed. Subclasses can\n\toverride this and insert an error message at location within aString."' Comment
'\n\n\t'      Text
'self'        Name.Builtin.Pseudo
' '           Text
'notify:'     Name.Function
' '           Text
'aString'     Name.Variable
'\n\n\t'      Text
'"nil notify: \'confirmation message\' at: 12"' Comment
'! !'         Keyword
'\n\n'        Text

'!'           Keyword
'Object'      Name.Class
' methodsFor: ' Keyword
"'error handling'" Literal.String
'!'           Keyword
'\n'          Text

'primitiveFailed' Name.Function
'\n\t'        Text
'"Announce that a primitive has failed and there is no appropriate \n\tSmalltalk code to run."' Comment
'\n\n\t'      Text
'self'        Name.Builtin.Pseudo
' '           Text
'error:'      Name.Function
' '           Text
"'a primitive has failed'" Literal.String
'! !'         Keyword
'\n\n'        Text

'!'           Keyword
'Object'      Name.Class
' methodsFor: ' Keyword
"'error handling'" Literal.String
" stamp: 'al 9/16/2005 14:12'!" Keyword
'\n'          Text

'requirement' Name.Function
'\n\t'        Text
'self'        Name.Builtin.Pseudo
' '           Text
'error:'      Name.Function
' '           Text
"'Implicitly required method'" Literal.String
'! !'         Keyword
'\n\n'        Text

'!'           Keyword
'Object'      Name.Class
' methodsFor: ' Keyword
"'error handling'" Literal.String
" stamp: 'AFi 2/8/2003 22:52'!" Keyword
'\n'          Text

'shouldBeImplemented' Name.Function
'\n\t'        Text
'"Announce that this message should be implemented"' Comment
'\n\n\t'      Text
'self'        Name.Builtin.Pseudo
' '           Text
'error:'      Name.Function
' '           Text
"'This message should be implemented'" Literal.String
'! !'         Keyword
'\n\n'        Text

'!'           Keyword
'Object'      Name.Class
' methodsFor: ' Keyword
"'error handling'" Literal.String
'!'           Keyword
'\n'          Text

'shouldNotImplement' Name.Function
'\n\t'        Text
'"Announce that, although the receiver inherits this message, it should \n\tnot implement it."' Comment
'\n\n\t'      Text
'self'        Name.Builtin.Pseudo
' '           Text
'error:'      Name.Function
' '           Text
"'This message is not appropriate for this object'" Literal.String
'! !'         Keyword
'\n\n'        Text

'!'           Keyword
'Object'      Name.Class
' methodsFor: ' Keyword
"'error handling'" Literal.String
" stamp: 'md 2/17/2006 12:02'!" Keyword
'\n'          Text

'subclassResponsibility' Name.Function
'\n\t'        Text
'"This message sets up a framework for the behavior of the class\' subclasses.\n\tAnnounce that the subclass should have implemented this message."' Comment
'\n\n\t'      Text
'self'        Name.Builtin.Pseudo
' '           Text
'error:'      Name.Function
' '           Text
"'My subclass should have overridden '" Literal.String
','           Name.Function
' '           Text
'thisContext' Name.Builtin.Pseudo
' '           Text
'sender'      Name.Function
' '           Text
'selector'    Name.Function
' '           Text
'printString' Name.Function
'! !'         Keyword
'\n\n'        Text

'!'           Keyword
'Object'      Name.Class
' methodsFor: ' Keyword
"'error handling'" Literal.String
" stamp: 'al 12/16/2003 16:16'!" Keyword
'\n'          Text

'traitConflict' Name.Function
'\n\t'        Text
'self'        Name.Builtin.Pseudo
' '           Text
'error:'      Name.Function
' '           Text
"'A class or trait does not properly resolve a conflict between multiple traits it uses.'" Literal.String
'! !'         Keyword
'\n\n\n'      Text

'!'           Keyword
'Object'      Name.Class
' methodsFor: ' Keyword
"'evaluating'" Literal.String
" stamp: 'reThink 3/12/2001 18:14'!" Keyword
'\n'          Text

'value'       Name.Function
'\n'          Text

'\n\t'        Text
'^'           Operator
'self'        Name.Builtin.Pseudo
'! !'         Keyword
'\n\n'        Text

'!'           Keyword
'Object'      Name.Class
' methodsFor: ' Keyword
"'evaluating'" Literal.String
" stamp: 'reThink 2/18/2001 15:23'!" Keyword
'\n'          Text

'valueWithArguments:' Name.Function
' '           Text
'aSequenceOfArguments' Name.Variable
'\n\n\t'      Text
'^'           Operator
'self'        Name.Builtin.Pseudo
'! !'         Keyword
'\n\n\n'      Text

'!'           Keyword
'Object'      Name.Class
' methodsFor: ' Keyword
"'events'"    Literal.String
" stamp: 'nk 8/27/2003 16:23'!" Keyword
'\n'          Text

'actionsWithReceiver:' Name.Function
' '           Text
'anObject'    Name.Variable
' '           Text
'forEvent:'   Name.Function
' '           Text
'anEventSelector' Name.Variable
'\n\n\t'      Text
'^'           Operator
'('           Text
'self'        Name.Builtin.Pseudo
' '           Text
'actionSequenceForEvent:' Name.Function
' '           Text
'anEventSelector' Name.Variable
')'           Text
'\n                ' Text
'select:'     Name.Function
' '           Text
'['           Text
':'           Operator
'anAction'    Name.Variable
' '           Text
'|'           Operator
' '           Text
'anAction'    Name.Variable
' '           Text
'receiver'    Name.Function
' '           Text
'=='          Name.Function
' '           Text
'anObject'    Name.Variable
' '           Text
']'           Text
'! !'         Keyword
'\n\n'        Text

'!'           Keyword
'Object'      Name.Class
' methodsFor: ' Keyword
"'events'"    Literal.String
" stamp: 'nk 8/27/2003 17:45'!" Keyword
'\n'          Text

'renameActionsWithReceiver:' Name.Function
' '           Text
'anObject'    Name.Variable
' '           Text
'forEvent:'   Name.Function
' '           Text
'anEventSelector' Name.Variable
' '           Text
'toEvent:'    Name.Function
' '           Text
'newEvent'    Name.Variable
'\n\n\t'      Text
'|'           Operator
' oldActions newActions ' Name.Variable
'|'           Operator
'\n\t'        Text
'oldActions'  Name.Variable
' '           Text
'_'           Operator
' '           Text
'Set'         Name.Class
' '           Text
'new'         Name.Builtin
'.'           Punctuation
'\n\t'        Text
'newActions'  Name.Variable
' '           Text
'_'           Operator
' '           Text
'Set'         Name.Class
' '           Text
'new'         Name.Builtin
'.'           Punctuation
'\n\t'        Text
'('           Text
'self'        Name.Builtin.Pseudo
' '           Text
'actionSequenceForEvent:' Name.Function
' '           Text
'anEventSelector' Name.Variable
')'           Text
' '           Text
'do:'         Name.Function
' '           Text
'['           Text
' '           Text
':'           Operator
'action'      Name.Variable
' '           Text
'|'           Operator
'\n\t\t'      Text
'action'      Name.Variable
' '           Text
'receiver'    Name.Function
' '           Text
'=='          Name.Function
' '           Text
'anObject'    Name.Variable
'\n\t\t\t'    Text
'ifTrue:'     Name.Builtin
' '           Text
'['           Text
' '           Text
'oldActions'  Name.Variable
' '           Text
'add:'        Name.Function
' '           Text
'anObject'    Name.Variable
' '           Text
']'           Text
'\n\t\t\t'    Text
'ifFalse:'    Name.Builtin
' '           Text
'['           Text
' '           Text
'newActions'  Name.Variable
' '           Text
'add:'        Name.Function
' '           Text
'anObject'    Name.Variable
' '           Text
']'           Text
']'           Text
'.'           Punctuation
'\n\t'        Text
'self'        Name.Builtin.Pseudo
' '           Text
'setActionSequence:' Name.Function
' '           Text
'('           Text
'ActionSequence' Name.Class
' '           Text
'withAll:'    Name.Function
' '           Text
'newActions'  Name.Variable
')'           Text
' '           Text
'forEvent:'   Name.Function
' '           Text
'anEventSelector' Name.Variable
'.'           Punctuation
'\n\t'        Text
'oldActions'  Name.Variable
' '           Text
'do:'         Name.Function
' '           Text
'['           Text
' '           Text
':'           Operator
'act'         Name.Variable
' '           Text
'|'           Operator
' '           Text
'self'        Name.Builtin.Pseudo
' '           Text
'when:'       Name.Function
' '           Text
'newEvent'    Name.Variable
' '           Text
'evaluate:'   Name.Function
' '           Text
'act'         Name.Variable
' '           Text
']'           Text
'.'           Punctuation
'! !'         Keyword
'\n\n\n'      Text

'!'           Keyword
'Object'      Name.Class
' methodsFor: ' Keyword
"'events-accessing'" Literal.String
" stamp: 'nk 12/20/2002 17:48'!" Keyword
'\n'          Text

'actionForEvent:' Name.Function
' '           Text
'anEventSelector' Name.Variable
'\n    '      Text
'"Answer the action to be evaluated when <anEventSelector> has been triggered."' Comment
'\n\n\t'      Text
'|'           Operator
' actions '   Name.Variable
'|'           Operator
'\n\t'        Text
'actions'     Name.Variable
' '           Text
':='          Operator
' '           Text
'self'        Name.Builtin.Pseudo
' '           Text
'actionMap'   Name.Function
'\n\t\t'      Text
'at:'         Name.Function
' '           Text
'anEventSelector' Name.Variable
' '           Text
'asSymbol'    Name.Function
'\n\t\t'      Text
'ifAbsent:'   Name.Function
' '           Text
'['           Text
'nil'         Name.Builtin.Pseudo
']'           Text
'.'           Punctuation
'\n\t'        Text
'actions'     Name.Variable
' '           Text
'ifNil:'      Name.Function
' '           Text
'['           Text
'^'           Operator
'nil'         Name.Builtin.Pseudo
']'           Text
'.'           Punctuation
'\n\t'        Text
'^'           Operator
' '           Text
'actions'     Name.Variable
' '           Text
'asMinimalRepresentation' Name.Function
'! !'         Keyword
'\n\n'        Text

'!'           Keyword
'Object'      Name.Class
' methodsFor: ' Keyword
"'events-accessing'" Literal.String
" stamp: 'nk 12/20/2002 17:48'!" Keyword
'\n'          Text

'actionForEvent:' Name.Function
' '           Text
'anEventSelector' Name.Variable
'\n'          Text

'ifAbsent:'   Name.Function
' '           Text
'anExceptionBlock' Name.Variable
'\n    '      Text
'"Answer the action to be evaluated when <anEventSelector> has been triggered."' Comment
'\n\n\t'      Text
'|'           Operator
' actions '   Name.Variable
'|'           Operator
'\n\t'        Text
'actions'     Name.Variable
' '           Text
':='          Operator
' '           Text
'self'        Name.Builtin.Pseudo
' '           Text
'actionMap'   Name.Function
'\n\t\t'      Text
'at:'         Name.Function
' '           Text
'anEventSelector' Name.Variable
' '           Text
'asSymbol'    Name.Function
'\n\t\t'      Text
'ifAbsent:'   Name.Function
' '           Text
'['           Text
'nil'         Name.Builtin.Pseudo
']'           Text
'.'           Punctuation
'\n\t'        Text
'actions'     Name.Variable
' '           Text
'ifNil:'      Name.Function
' '           Text
'['           Text
'^'           Operator
'anExceptionBlock' Name.Variable
' '           Text
'value'       Name.Function
']'           Text
'.'           Punctuation
'\n\t'        Text
'^'           Operator
' '           Text
'actions'     Name.Variable
' '           Text
'asMinimalRepresentation' Name.Function
'! !'         Keyword
'\n\n'        Text

'!'           Keyword
'Object'      Name.Class
' methodsFor: ' Keyword
"'events-accessing'" Literal.String
" stamp: 'reThink 2/18/2001 14:43'!" Keyword
'\n'          Text

'actionMap'   Name.Function
'\n'          Text

'\n\t'        Text
'^'           Operator
'EventManager' Name.Class
' '           Text
'actionMapFor:' Name.Function
' '           Text
'self'        Name.Builtin.Pseudo
'! !'         Keyword
'\n\n'        Text

'!'           Keyword
'Object'      Name.Class
' methodsFor: ' Keyword
"'events-accessing'" Literal.String
" stamp: 'rw 4/27/2002 08:35'!" Keyword
'\n'          Text

'actionSequenceForEvent:' Name.Function
' '           Text
'anEventSelector' Name.Variable
'\n\n    '    Text
'^'           Operator
'('           Text
'self'        Name.Builtin.Pseudo
' '           Text
'actionMap'   Name.Function
'\n        '  Text
'at:'         Name.Function
' '           Text
'anEventSelector' Name.Variable
' '           Text
'asSymbol'    Name.Function
'\n        '  Text
'ifAbsent:'   Name.Function
' '           Text
'['           Text
'^'           Operator
'WeakActionSequence' Name.Class
' '           Text
'new'         Name.Builtin
']'           Text
')'           Text
'\n            ' Text
'asActionSequence' Name.Function
'! !'         Keyword
'\n\n'        Text

'!'           Keyword
'Object'      Name.Class
' methodsFor: ' Keyword
"'events-accessing'" Literal.String
" stamp: 'SqR 6/28/2001 13:19'!" Keyword
'\n'          Text

'actionsDo:'  Name.Function
' '           Text
'aBlock'      Name.Variable
'\n\n\t'      Text
'self'        Name.Builtin.Pseudo
' '           Text
'actionMap'   Name.Function
' '           Text
'do:'         Name.Function
' '           Text
'aBlock'      Name.Variable
'! !'         Keyword
'\n\n'        Text

'!'           Keyword
'Object'      Name.Class
' methodsFor: ' Keyword
"'events-accessing'" Literal.String
" stamp: 'rw 2/10/2002 13:05'!" Keyword
'\n'          Text

'createActionMap' Name.Function
'\n'          Text

'\n\t'        Text
'^'           Operator
'IdentityDictionary' Name.Class
' '           Text
'new'         Name.Builtin
'! !'         Keyword
'\n\n'        Text

'!'           Keyword
'Object'      Name.Class
' methodsFor: ' Keyword
"'events-accessing'" Literal.String
" stamp: 'SqR 2/19/2001 14:04'!" Keyword
'\n'          Text

'hasActionForEvent:' Name.Function
' '           Text
'anEventSelector' Name.Variable
'\n    '      Text
'"Answer true if there is an action associated with anEventSelector"' Comment
'\n\n    '    Text
'^'           Operator
'('           Text
'self'        Name.Builtin.Pseudo
' '           Text
'actionForEvent:' Name.Function
' '           Text
'anEventSelector' Name.Variable
')'           Text
' '           Text
'notNil'      Name.Function
'! !'         Keyword
'\n\n'        Text

'!'           Keyword
'Object'      Name.Class
' methodsFor: ' Keyword
"'events-accessing'" Literal.String
" stamp: 'reThink 2/18/2001 15:29'!" Keyword
'\n'          Text

'setActionSequence:' Name.Function
' '           Text
'actionSequence' Name.Variable
'\n'          Text

'forEvent:'   Name.Function
' '           Text
'anEventSelector' Name.Variable
'\n\n    '    Text
'|'           Operator
' action '    Name.Variable
'|'           Operator
'\n    '      Text
'action'      Name.Variable
' '           Text
':='          Operator
' '           Text
'actionSequence' Name.Variable
' '           Text
'asMinimalRepresentation' Name.Function
'.'           Punctuation
'\n    '      Text
'action'      Name.Variable
' '           Text
'=='          Name.Function
' '           Text
'nil'         Name.Builtin.Pseudo
'\n        '  Text
'ifTrue:'     Name.Builtin
'\n            ' Text
'['           Text
'self'        Name.Builtin.Pseudo
' '           Text
'removeActionsForEvent:' Name.Function
' '           Text
'anEventSelector' Name.Variable
']'           Text
'\n        '  Text
'ifFalse:'    Name.Builtin
'\n            ' Text
'['           Text
'self'        Name.Builtin.Pseudo
' '           Text
'updateableActionMap' Name.Function
'\n                ' Text
'at:'         Name.Function
' '           Text
'anEventSelector' Name.Variable
' '           Text
'asSymbol'    Name.Function
'\n                ' Text
'put:'        Name.Function
' '           Text
'action'      Name.Variable
']'           Text
'! !'         Keyword
'\n\n'        Text

'!'           Keyword
'Object'      Name.Class
' methodsFor: ' Keyword
"'events-accessing'" Literal.String
" stamp: 'reThink 2/25/2001 08:50'!" Keyword
'\n'          Text

'updateableActionMap' Name.Function
'\n'          Text

'\n\t'        Text
'^'           Operator
'EventManager' Name.Class
' '           Text
'updateableActionMapFor:' Name.Function
' '           Text
'self'        Name.Builtin.Pseudo
'! !'         Keyword
'\n\n\n'      Text

'!'           Keyword
'Object'      Name.Class
' methodsFor: ' Keyword
"'events-registering'" Literal.String
" stamp: 'reThink 2/18/2001 15:04'!" Keyword
'\n'          Text

'when:'       Name.Function
' '           Text
'anEventSelector' Name.Variable
' '           Text
'evaluate:'   Name.Function
' '           Text
'anAction'    Name.Variable
' \n\n\t'     Text
'|'           Operator
' actions '   Name.Variable
'|'           Operator
'\n\t'        Text
'actions'     Name.Variable
' '           Text
':='          Operator
' '           Text
'self'        Name.Builtin.Pseudo
' '           Text
'actionSequenceForEvent:' Name.Function
' '           Text
'anEventSelector' Name.Variable
'.'           Punctuation
'\n\t'        Text
'('           Text
'actions'     Name.Variable
' '           Text
'includes:'   Name.Function
' '           Text
'anAction'    Name.Variable
')'           Text
'\n\t\t'      Text
'ifTrue:'     Name.Builtin
' '           Text
'['           Text
'^'           Operator
' '           Text
'self'        Name.Builtin.Pseudo
']'           Text
'.'           Punctuation
'\n\t'        Text
'self'        Name.Builtin.Pseudo
' \n\t\t'     Text
'setActionSequence:' Name.Function
' '           Text
'('           Text
'actions'     Name.Variable
' '           Text
'copyWith:'   Name.Function
' '           Text
'anAction'    Name.Variable
')'           Text
'\n\t\t'      Text
'forEvent:'   Name.Function
' '           Text
'anEventSelector' Name.Variable
'! !'         Keyword
'\n\n'        Text

'!'           Keyword
'Object'      Name.Class
' methodsFor: ' Keyword
"'events-registering'" Literal.String
" stamp: 'rww 12/30/2002 10:37'!" Keyword
'\n'          Text

'when:'       Name.Function
' '           Text
'anEventSelector' Name.Variable
'\n'          Text

'send:'       Name.Function
' '           Text
'aMessageSelector' Name.Variable
'\n'          Text

'to:'         Name.Function
' '           Text
'anObject'    Name.Variable
'\n \n    '   Text
'self'        Name.Builtin.Pseudo
'\n        '  Text
'when:'       Name.Function
' '           Text
'anEventSelector' Name.Variable
'\n        '  Text
'evaluate:'   Name.Function
' '           Text
'('           Text
'WeakMessageSend' Name.Class
'\n            ' Text
'receiver:'   Name.Function
' '           Text
'anObject'    Name.Variable
'\n            ' Text
'selector:'   Name.Function
' '           Text
'aMessageSelector' Name.Variable
')'           Text
'! !'         Keyword
'\n\n'        Text

'!'           Keyword
'Object'      Name.Class
' methodsFor: ' Keyword
"'events-registering'" Literal.String
" stamp: 'rww 12/30/2002 10:37'!" Keyword
'\n'          Text

'when:'       Name.Function
' '           Text
'anEventSelector' Name.Variable
'\n'          Text

'send:'       Name.Function
' '           Text
'aMessageSelector' Name.Variable
'\n'          Text

'to:'         Name.Function
' '           Text
'anObject'    Name.Variable
'\n'          Text

'withArguments:' Name.Function
' '           Text
'anArgArray'  Name.Variable
'\n \n    '   Text
'self'        Name.Builtin.Pseudo
'\n        '  Text
'when:'       Name.Function
' '           Text
'anEventSelector' Name.Variable
'\n        '  Text
'evaluate:'   Name.Function
' '           Text
'('           Text
'WeakMessageSend' Name.Class
'\n            ' Text
'receiver:'   Name.Function
' '           Text
'anObject'    Name.Variable
'\n            ' Text
'selector:'   Name.Function
' '           Text
'aMessageSelector' Name.Variable
'\n\t\t'      Text
'arguments:'  Name.Function
' '           Text
'anArgArray'  Name.Variable
')'           Text
'! !'         Keyword
'\n\n'        Text

'!'           Keyword
'Object'      Name.Class
' methodsFor: ' Keyword
"'events-registering'" Literal.String
" stamp: 'rww 12/30/2002 10:37'!" Keyword
'\n'          Text

'when:'       Name.Function
' '           Text
'anEventSelector' Name.Variable
'\n'          Text

'send:'       Name.Function
' '           Text
'aMessageSelector' Name.Variable
'\n'          Text

'to:'         Name.Function
' '           Text
'anObject'    Name.Variable
'\n'          Text

'with:'       Name.Function
' '           Text
'anArg'       Name.Variable
'\n \n    '   Text
'self'        Name.Builtin.Pseudo
'\n        '  Text
'when:'       Name.Function
' '           Text
'anEventSelector' Name.Variable
'\n        '  Text
'evaluate:'   Name.Function
' '           Text
'('           Text
'WeakMessageSend' Name.Class
'\n            ' Text
'receiver:'   Name.Function
' '           Text
'anObject'    Name.Variable
'\n            ' Text
'selector:'   Name.Function
' '           Text
'aMessageSelector' Name.Variable
'\n\t\t'      Text
'arguments:'  Name.Function
' '           Text
'('           Text
'Array'       Name.Class
' '           Text
'with:'       Name.Function
' '           Text
'anArg'       Name.Variable
')'           Text
')'           Text
'! !'         Keyword
'\n\n\n'      Text

'!'           Keyword
'Object'      Name.Class
' methodsFor: ' Keyword
"'events-removing'" Literal.String
" stamp: 'reThink 2/18/2001 15:33'!" Keyword
'\n'          Text

'releaseActionMap' Name.Function
'\n'          Text

'\n\t'        Text
'EventManager' Name.Class
' '           Text
'releaseActionMapFor:' Name.Function
' '           Text
'self'        Name.Builtin.Pseudo
'! !'         Keyword
'\n\n'        Text

'!'           Keyword
'Object'      Name.Class
' methodsFor: ' Keyword
"'events-removing'" Literal.String
" stamp: 'reThink 2/18/2001 15:33'!" Keyword
'\n'          Text

'removeActionsForEvent:' Name.Function
' '           Text
'anEventSelector' Name.Variable
'\n\n    '    Text
'|'           Operator
' map '       Name.Variable
'|'           Operator
'\n    '      Text
'map'         Name.Variable
' '           Text
':='          Operator
' '           Text
'self'        Name.Builtin.Pseudo
' '           Text
'actionMap'   Name.Function
'.'           Punctuation
'\n    '      Text
'map'         Name.Variable
' '           Text
'removeKey:'  Name.Function
' '           Text
'anEventSelector' Name.Variable
' '           Text
'asSymbol'    Name.Function
' '           Text
'ifAbsent:'   Name.Function
' '           Text
'['           Text
']'           Text
'.'           Punctuation
'\n    '      Text
'map'         Name.Variable
' '           Text
'isEmpty'     Name.Function
'\n        '  Text
'ifTrue:'     Name.Builtin
' '           Text
'['           Text
'self'        Name.Builtin.Pseudo
' '           Text
'releaseActionMap' Name.Function
']'           Text
'! !'         Keyword
'\n\n'        Text

'!'           Keyword
'Object'      Name.Class
' methodsFor: ' Keyword
"'events-removing'" Literal.String
" stamp: 'nk 8/25/2003 21:46'!" Keyword
'\n'          Text

'removeActionsSatisfying:' Name.Function
' '           Text
'aBlock'      Name.Variable
'\n\n\t'      Text
'self'        Name.Builtin.Pseudo
' '           Text
'actionMap'   Name.Function
' '           Text
'keys'        Name.Function
' '           Text
'do:'         Name.Function
'\n\t\t'      Text
'['           Text
':'           Operator
'eachEventSelector' Name.Variable
' '           Text
'|'           Operator
'\n\t\t\t'    Text
'self'        Name.Builtin.Pseudo
'\n   \t\t\t\t' Text
'removeActionsSatisfying:' Name.Function
' '           Text
'aBlock'      Name.Variable
'\n\t\t\t\t'  Text
'forEvent:'   Name.Function
' '           Text
'eachEventSelector' Name.Variable
'\n\t\t'      Text
']'           Text
'! !'         Keyword
'\n\n'        Text

'!'           Keyword
'Object'      Name.Class
' methodsFor: ' Keyword
"'events-removing'" Literal.String
" stamp: 'reThink 2/18/2001 15:31'!" Keyword
'\n'          Text

'removeActionsSatisfying:' Name.Function
' '           Text
'aOneArgBlock' Name.Variable
' \n'         Text

'forEvent:'   Name.Function
' '           Text
'anEventSelector' Name.Variable
'\n\n    '    Text
'self'        Name.Builtin.Pseudo
'\n        '  Text
'setActionSequence:' Name.Function
'\n            ' Text
'('           Text
'('           Text
'self'        Name.Builtin.Pseudo
' '           Text
'actionSequenceForEvent:' Name.Function
' '           Text
'anEventSelector' Name.Variable
')'           Text
'\n                ' Text
'reject:'     Name.Function
' '           Text
'['           Text
':'           Operator
'anAction'    Name.Variable
' '           Text
'|'           Operator
' '           Text
'aOneArgBlock' Name.Variable
' '           Text
'value:'      Name.Function
' '           Text
'anAction'    Name.Variable
']'           Text
')'           Text
'\n        '  Text
'forEvent:'   Name.Function
' '           Text
'anEventSelector' Name.Variable
'! !'         Keyword
'\n\n'        Text

'!'           Keyword
'Object'      Name.Class
' methodsFor: ' Keyword
"'events-removing'" Literal.String
" stamp: 'rw 7/29/2003 17:18'!" Keyword
'\n'          Text

'removeActionsWithReceiver:' Name.Function
' '           Text
'anObject'    Name.Variable
'\n\n\t'      Text
'self'        Name.Builtin.Pseudo
' '           Text
'actionMap'   Name.Function
' '           Text
'copy'        Name.Function
' '           Text
'keysDo:'     Name.Function
'\n\t\t'      Text
'['           Text
':'           Operator
'eachEventSelector' Name.Variable
' '           Text
'|'           Operator
'\n\t\t\t'    Text
'self'        Name.Builtin.Pseudo
'\n   \t\t\t\t' Text
'removeActionsSatisfying:' Name.Function
' '           Text
'['           Text
':'           Operator
'anAction'    Name.Variable
' '           Text
'|'           Operator
' '           Text
'anAction'    Name.Variable
' '           Text
'receiver'    Name.Function
' '           Text
'=='          Name.Function
' '           Text
'anObject'    Name.Variable
']'           Text
'\n\t\t\t\t'  Text
'forEvent:'   Name.Function
' '           Text
'eachEventSelector' Name.Variable
'\n\t\t'      Text
']'           Text
'! !'         Keyword
'\n\n'        Text

'!'           Keyword
'Object'      Name.Class
' methodsFor: ' Keyword
"'events-removing'" Literal.String
" stamp: 'reThink 2/18/2001 15:36'!" Keyword
'\n'          Text

'removeActionsWithReceiver:' Name.Function
' '           Text
'anObject'    Name.Variable
'\n'          Text

'forEvent:'   Name.Function
' '           Text
'anEventSelector' Name.Variable
'\n\n    '    Text
'self'        Name.Builtin.Pseudo
'\n        '  Text
'removeActionsSatisfying:' Name.Function
'\n            ' Text
'['           Text
':'           Operator
'anAction'    Name.Variable
' '           Text
'|'           Operator
'\n            ' Text
'anAction'    Name.Variable
' '           Text
'receiver'    Name.Function
' '           Text
'=='          Name.Function
' '           Text
'anObject'    Name.Variable
']'           Text
'\n        '  Text
'forEvent:'   Name.Function
' '           Text
'anEventSelector' Name.Variable
'! !'         Keyword
'\n\n'        Text

'!'           Keyword
'Object'      Name.Class
' methodsFor: ' Keyword
"'events-removing'" Literal.String
" stamp: 'reThink 2/18/2001 15:31'!" Keyword
'\n'          Text

'removeAction:' Name.Function
' '           Text
'anAction'    Name.Variable
'\n'          Text

'forEvent:'   Name.Function
' '           Text
'anEventSelector' Name.Variable
'\n\n    '    Text
'self'        Name.Builtin.Pseudo
'\n        '  Text
'removeActionsSatisfying:' Name.Function
' '           Text
'['           Text
':'           Operator
'action'      Name.Variable
' '           Text
'|'           Operator
' '           Text
'action'      Name.Variable
' '           Text
'='           Name.Function
' '           Text
'anAction'    Name.Variable
']'           Text
'\n        '  Text
'forEvent:'   Name.Function
' '           Text
'anEventSelector' Name.Variable
'! !'         Keyword
'\n\n\n'      Text

'!'           Keyword
'Object'      Name.Class
' methodsFor: ' Keyword
"'events-triggering'" Literal.String
" stamp: 'reThink 2/18/2001 15:22'!" Keyword
'\n'          Text

'triggerEvent:' Name.Function
' '           Text
'anEventSelector' Name.Variable
'\n\t'        Text
'"Evaluate all actions registered for <anEventSelector>. Return the value of the last registered action."' Comment
'\n\n    '    Text
'^'           Operator
'('           Text
'self'        Name.Builtin.Pseudo
' '           Text
'actionForEvent:' Name.Function
' '           Text
'anEventSelector' Name.Variable
')'           Text
' '           Text
'value'       Name.Function
'! !'         Keyword
'\n\n'        Text

'!'           Keyword
'Object'      Name.Class
' methodsFor: ' Keyword
"'events-triggering'" Literal.String
" stamp: 'reThink 2/18/2001 17:09'!" Keyword
'\n'          Text

'triggerEvent:' Name.Function
' '           Text
'anEventSelector' Name.Variable
'\n'          Text

'ifNotHandled:' Name.Function
' '           Text
'anExceptionBlock' Name.Variable
'\n\t'        Text
'"Evaluate all actions registered for <anEventSelector>. Return the value of the last registered action."' Comment
'\n\n    '    Text
'^'           Operator
'('           Text
'self'        Name.Builtin.Pseudo
' \n\t\t'     Text
'actionForEvent:' Name.Function
' '           Text
'anEventSelector' Name.Variable
'\n\t\t'      Text
'ifAbsent:'   Name.Function
' '           Text
'['           Text
'^'           Operator
'anExceptionBlock' Name.Variable
' '           Text
'value'       Name.Function
']'           Text
')'           Text
' '           Text
'value'       Name.Function
'\n'          Text

'! !'         Keyword
'\n\n'        Text

'!'           Keyword
'Object'      Name.Class
' methodsFor: ' Keyword
"'events-triggering'" Literal.String
" stamp: 'reThink 2/18/2001 15:21'!" Keyword
'\n'          Text

'triggerEvent:' Name.Function
' '           Text
'anEventSelector' Name.Variable
'\n'          Text

'withArguments:' Name.Function
' '           Text
'anArgumentList' Name.Variable
'\n\n    '    Text
'^'           Operator
'('           Text
'self'        Name.Builtin.Pseudo
' '           Text
'actionForEvent:' Name.Function
' '           Text
'anEventSelector' Name.Variable
')'           Text
'\n        '  Text
'valueWithArguments:' Name.Function
' '           Text
'anArgumentList' Name.Variable
'! !'         Keyword
'\n\n'        Text

'!'           Keyword
'Object'      Name.Class
' methodsFor: ' Keyword
"'events-triggering'" Literal.String
" stamp: 'reThink 2/18/2001 15:21'!" Keyword
'\n'          Text

'triggerEvent:' Name.Function
' '           Text
'anEventSelector' Name.Variable
'\n'          Text

'withArguments:' Name.Function
' '           Text
'anArgumentList' Name.Variable
'\n'          Text

'ifNotHandled:' Name.Function
' '           Text
'anExceptionBlock' Name.Variable
'\n\n    '    Text
'^'           Operator
'('           Text
'self'        Name.Builtin.Pseudo
' \n\t\t'     Text
'actionForEvent:' Name.Function
' '           Text
'anEventSelector' Name.Variable
'\n\t\t'      Text
'ifAbsent:'   Name.Function
' '           Text
'['           Text
'^'           Operator
'anExceptionBlock' Name.Variable
' '           Text
'value'       Name.Function
']'           Text
')'           Text
'\n        '  Text
'valueWithArguments:' Name.Function
' '           Text
'anArgumentList' Name.Variable
'! !'         Keyword
'\n\n'        Text

'!'           Keyword
'Object'      Name.Class
' methodsFor: ' Keyword
"'events-triggering'" Literal.String
" stamp: 'reThink 2/18/2001 14:59'!" Keyword
'\n'          Text

'triggerEvent:' Name.Function
' '           Text
'anEventSelector' Name.Variable
'\n'          Text

'with:'       Name.Function
' '           Text
'anObject'    Name.Variable
'\n\n    '    Text
'^'           Operator
'self'        Name.Builtin.Pseudo
' \n\t\t'     Text
'triggerEvent:' Name.Function
' '           Text
'anEventSelector' Name.Variable
'\n\t\t'      Text
'withArguments:' Name.Function
' '           Text
'('           Text
'Array'       Name.Class
' '           Text
'with:'       Name.Function
' '           Text
'anObject'    Name.Variable
')'           Text
'! !'         Keyword
'\n\n'        Text

'!'           Keyword
'Object'      Name.Class
' methodsFor: ' Keyword
"'events-triggering'" Literal.String
" stamp: 'reThink 2/18/2001 14:59'!" Keyword
'\n'          Text

'triggerEvent:' Name.Function
' '           Text
'anEventSelector' Name.Variable
'\n'          Text

'with:'       Name.Function
' '           Text
'anObject'    Name.Variable
'\n'          Text

'ifNotHandled:' Name.Function
' '           Text
'anExceptionBlock' Name.Variable
'\n\n    '    Text
'^'           Operator
'self'        Name.Builtin.Pseudo
' \n\t\t'     Text
'triggerEvent:' Name.Function
' '           Text
'anEventSelector' Name.Variable
'\n\t\t'      Text
'withArguments:' Name.Function
' '           Text
'('           Text
'Array'       Name.Class
' '           Text
'with:'       Name.Function
' '           Text
'anObject'    Name.Variable
')'           Text
'\n\t\t'      Text
'ifNotHandled:' Name.Function
' '           Text
'anExceptionBlock' Name.Variable
'! !'         Keyword
'\n\n\n'      Text

'!'           Keyword
'Object'      Name.Class
' methodsFor: ' Keyword
"'filter streaming'" Literal.String
" stamp: 'MPW 1/1/1901 00:42'!" Keyword
'\n'          Text

'byteEncode:' Name.Function
'aStream'     Name.Variable
'\n\t'        Text
'self'        Name.Builtin.Pseudo
' '           Text
'flattenOnStream:' Name.Function
'aStream'     Name.Variable
'.'           Punctuation
'\n'          Text

'! !'         Keyword
'\n\n'        Text

'!'           Keyword
'Object'      Name.Class
' methodsFor: ' Keyword
"'filter streaming'" Literal.String
'!'           Keyword
'\n'          Text

'drawOnCanvas:' Name.Function
'aStream'     Name.Variable
'\n\t'        Text
'self'        Name.Builtin.Pseudo
' '           Text
'flattenOnStream:' Name.Function
'aStream'     Name.Variable
'.'           Punctuation
'\n'          Text

'! !'         Keyword
'\n\n'        Text

'!'           Keyword
'Object'      Name.Class
' methodsFor: ' Keyword
"'filter streaming'" Literal.String
" stamp: 'MPW 1/1/1901 01:31'!" Keyword
'\n'          Text

'elementSeparator' Name.Function
'\n\t'        Text
'^'           Operator
'nil'         Name.Builtin.Pseudo
'.'           Punctuation
'! !'         Keyword
'\n\n'        Text

'!'           Keyword
'Object'      Name.Class
' methodsFor: ' Keyword
"'filter streaming'" Literal.String
'!'           Keyword
'\n'          Text

'encodePostscriptOn:' Name.Function
'aStream'     Name.Variable
'\n\t'        Text
'self'        Name.Builtin.Pseudo
' '           Text
'byteEncode:' Name.Function
'aStream'     Name.Variable
'.'           Punctuation
'\n'          Text

'! !'         Keyword
'\n\n'        Text

'!'           Keyword
'Object'      Name.Class
' methodsFor: ' Keyword
"'filter streaming'" Literal.String
" stamp: 'MPW 1/1/1901 00:07'!" Keyword
'\n'          Text

'flattenOnStream:' Name.Function
'aStream'     Name.Variable
'\n\t'        Text
'self'        Name.Builtin.Pseudo
' '           Text
'writeOnFilterStream:' Name.Function
'aStream'     Name.Variable
'.'           Punctuation
'\n'          Text

'! !'         Keyword
'\n\n'        Text

'!'           Keyword
'Object'      Name.Class
' methodsFor: ' Keyword
"'filter streaming'" Literal.String
" stamp: 'mpw 6/22/1930 22:56'!" Keyword
'\n'          Text

'fullDrawPostscriptOn:' Name.Function
'aStream'     Name.Variable
'\n\t'        Text
'^'           Operator
'aStream'     Name.Variable
' '           Text
'fullDraw:'   Name.Function
'self'        Name.Builtin.Pseudo
'.'           Punctuation
'\n'          Text

'! !'         Keyword
'\n\n'        Text

'!'           Keyword
'Object'      Name.Class
' methodsFor: ' Keyword
"'filter streaming'" Literal.String
" stamp: 'MPW 1/1/1901 01:51'!" Keyword
'\n'          Text

'printOnStream:' Name.Function
'aStream'     Name.Variable
'\n\t'        Text
'self'        Name.Builtin.Pseudo
' '           Text
'byteEncode:' Name.Function
'aStream'     Name.Variable
'.'           Punctuation
'\n'          Text

'! !'         Keyword
'\n\n'        Text

'!'           Keyword
'Object'      Name.Class
' methodsFor: ' Keyword
"'filter streaming'" Literal.String
" stamp: 'MPW 1/1/1901 00:49'!" Keyword
'\n'          Text

'putOn:'      Name.Function
'aStream'     Name.Variable
'\n\t'        Text
'^'           Operator
'aStream'     Name.Variable
' '           Text
'nextPut:'    Name.Function
'self'        Name.Builtin.Pseudo
'.'           Punctuation
'\n'          Text

'! !'         Keyword
'\n\n'        Text

'!'           Keyword
'Object'      Name.Class
' methodsFor: ' Keyword
"'filter streaming'" Literal.String
" stamp: 'MPW 1/1/1901 01:53'!" Keyword
'\n'          Text

'storeOnStream:' Name.Function
'aStream'     Name.Variable
'\n\t'        Text
'self'        Name.Builtin.Pseudo
' '           Text
'printOnStream:' Name.Function
'aStream'     Name.Variable
'.'           Punctuation
'\n'          Text

'! !'         Keyword
'\n\n'        Text

'!'           Keyword
'Object'      Name.Class
' methodsFor: ' Keyword
"'filter streaming'" Literal.String
" stamp: 'MPW 1/1/1901 00:06'!" Keyword
'\n'          Text

'writeOnFilterStream:' Name.Function
'aStream'     Name.Variable
'\n\t'        Text
'aStream'     Name.Variable
' '           Text
'writeObject:' Name.Function
'self'        Name.Builtin.Pseudo
'.'           Punctuation
'\n'          Text

'! !'         Keyword
'\n\n\n'      Text

'!'           Keyword
'Object'      Name.Class
' methodsFor: ' Keyword
"'finalization'" Literal.String
" stamp: 'ar 3/21/98 16:26'!" Keyword
'\n'          Text

'actAsExecutor' Name.Function
'\n\t'        Text
'"Prepare the receiver to act as executor for any resources associated with it"' Comment
'\n\t'        Text
'self'        Name.Builtin.Pseudo
' '           Text
'breakDependents' Name.Function
'! !'         Keyword
'\n\n'        Text

'!'           Keyword
'Object'      Name.Class
' methodsFor: ' Keyword
"'finalization'" Literal.String
" stamp: 'ar 3/20/98 22:19'!" Keyword
'\n'          Text

'executor'    Name.Function
'\n\t'        Text
'"Return an object which can act as executor for finalization of the receiver"' Comment
'\n\t'        Text
'^'           Operator
'self'        Name.Builtin.Pseudo
' '           Text
'shallowCopy' Name.Function
' '           Text
'actAsExecutor' Name.Function
'! !'         Keyword
'\n\n'        Text

'!'           Keyword
'Object'      Name.Class
' methodsFor: ' Keyword
"'finalization'" Literal.String
" stamp: 'ar 5/19/2003 20:10'!" Keyword
'\n'          Text

'finalizationRegistry' Name.Function
'\n\t'        Text
'"Answer the finalization registry associated with the receiver."' Comment
'\n\t'        Text
'^'           Operator
'WeakRegistry' Name.Class
' '           Text
'default'     Name.Function
'! !'         Keyword
'\n\n'        Text

'!'           Keyword
'Object'      Name.Class
' methodsFor: ' Keyword
"'finalization'" Literal.String
" stamp: 'ar 3/21/98 16:27'!" Keyword
'\n'          Text

'finalize'    Name.Function
'\n\t'        Text
'"Finalize the resource associated with the receiver. This message should only be sent during the finalization process. There is NO garantuee that the resource associated with the receiver hasn\'t been free\'d before so take care that you don\'t run into trouble - this all may happen with interrupt priority."' Comment
'! !'         Keyword
'\n\n'        Text

'!'           Keyword
'Object'      Name.Class
' methodsFor: ' Keyword
"'finalization'" Literal.String
" stamp: 'ar 3/21/98 18:38'!" Keyword
'\n'          Text

'retryWithGC:' Name.Function
' '           Text
'execBlock'   Name.Variable
' '           Text
'until:'      Name.Function
' '           Text
'testBlock'   Name.Variable
'\n\t'        Text
'"Retry execBlock as long as testBlock returns false. Do an incremental GC after the first try, a full GC after the second try."' Comment
'\n\t'        Text
'|'           Operator
' blockValue ' Name.Variable
'|'           Operator
'\n\t'        Text
'blockValue'  Name.Variable
' '           Text
':='          Operator
' '           Text
'execBlock'   Name.Variable
' '           Text
'value'       Name.Function
'.'           Punctuation
'\n\t'        Text
'('           Text
'testBlock'   Name.Variable
' '           Text
'value:'      Name.Function
' '           Text
'blockValue'  Name.Variable
')'           Text
' '           Text
'ifTrue:'     Name.Builtin
'['           Text
'^'           Operator
'blockValue'  Name.Variable
']'           Text
'.'           Punctuation
'\n\t'        Text
'Smalltalk'   Name.Class
' '           Text
'garbageCollectMost' Name.Function
'.'           Punctuation
'\n\t'        Text
'blockValue'  Name.Variable
' '           Text
':='          Operator
' '           Text
'execBlock'   Name.Variable
' '           Text
'value'       Name.Function
'.'           Punctuation
'\n\t'        Text
'('           Text
'testBlock'   Name.Variable
' '           Text
'value:'      Name.Function
' '           Text
'blockValue'  Name.Variable
')'           Text
' '           Text
'ifTrue:'     Name.Builtin
'['           Text
'^'           Operator
'blockValue'  Name.Variable
']'           Text
'.'           Punctuation
'\n\t'        Text
'Smalltalk'   Name.Class
' '           Text
'garbageCollect' Name.Function
'.'           Punctuation
'\n\t'        Text
'^'           Operator
'execBlock'   Name.Variable
' '           Text
'value'       Name.Function
'.'           Punctuation
'! !'         Keyword
'\n\n'        Text

'!'           Keyword
'Object'      Name.Class
' methodsFor: ' Keyword
"'finalization'" Literal.String
" stamp: 'ar 5/19/2003 20:14'!" Keyword
'\n'          Text

'toFinalizeSend:' Name.Function
' '           Text
'aSelector'   Name.Variable
' '           Text
'to:'         Name.Function
' '           Text
'aFinalizer'  Name.Variable
' '           Text
'with:'       Name.Function
' '           Text
'aResourceHandle' Name.Variable
'\n\t'        Text
'"When I am finalized (e.g., garbage collected) close the associated resource handle by sending aSelector to the appropriate finalizer (the guy who knows how to get rid of the resource).\n\tWARNING: Neither the finalizer nor the resource handle are allowed to reference me. If they do, then I will NEVER be garbage collected. Since this cannot be validated here, it is up to the client to make sure this invariant is not broken."' Comment
'\n\t'        Text
'self'        Name.Builtin.Pseudo
' '           Text
'=='          Name.Function
' '           Text
'aFinalizer'  Name.Variable
' '           Text
'ifTrue:'     Name.Builtin
'['           Text
'self'        Name.Builtin.Pseudo
' '           Text
'error:'      Name.Function
' '           Text
"'I cannot finalize myself'" Literal.String
']'           Text
'.'           Punctuation
'\n\t'        Text
'self'        Name.Builtin.Pseudo
' '           Text
'=='          Name.Function
' '           Text
'aResourceHandle' Name.Variable
' '           Text
'ifTrue:'     Name.Builtin
'['           Text
'self'        Name.Builtin.Pseudo
' '           Text
'error:'      Name.Function
' '           Text
"'I cannot finalize myself'" Literal.String
']'           Text
'.'           Punctuation
'\n\t'        Text
'^'           Operator
'self'        Name.Builtin.Pseudo
' '           Text
'finalizationRegistry' Name.Function
' '           Text
'add:'        Name.Function
' '           Text
'self'        Name.Builtin.Pseudo
' '           Text
'executor:'   Name.Function
'\n\t\t'      Text
'('           Text
'ObjectFinalizer' Name.Class
' '           Text
'new'         Name.Builtin
'\n\t\t\t'    Text
'receiver:'   Name.Function
' '           Text
'aFinalizer'  Name.Variable
'\n\t\t\t'    Text
'selector:'   Name.Function
' '           Text
'aSelector'   Name.Variable
'\n\t\t\t'    Text
'argument:'   Name.Function
' '           Text
'aResourceHandle' Name.Variable
')'           Text
'! !'         Keyword
'\n\n\n'      Text

'!'           Keyword
'Object'      Name.Class
' methodsFor: ' Keyword
"'flagging'"  Literal.String
" stamp: 'sw 8/4/97 16:49'!" Keyword
'\n'          Text

'isThisEverCalled' Name.Function
'\n\t'        Text
'^'           Operator
' '           Text
'self'        Name.Builtin.Pseudo
' '           Text
'isThisEverCalled:' Name.Function
' '           Text
'thisContext' Name.Builtin.Pseudo
' '           Text
'sender'      Name.Function
' '           Text
'printString' Name.Function
'! !'         Keyword
'\n\n'        Text

'!'           Keyword
'Object'      Name.Class
' methodsFor: ' Keyword
"'flagging'"  Literal.String
'!'           Keyword
'\n'          Text

'isThisEverCalled:' Name.Function
' '           Text
'msg'         Name.Variable
'\n\t'        Text
'"Send this message, with some useful printable argument, from methods or branches of methods which you believe are never reached.  2/5/96 sw"' Comment
'\n\n\t'      Text
'self'        Name.Builtin.Pseudo
' '           Text
'halt:'       Name.Function
' '           Text
"'This is indeed called: '" Literal.String
','           Name.Function
' '           Text
'msg'         Name.Variable
' '           Text
'printString' Name.Function
'! !'         Keyword
'\n\n'        Text

'!'           Keyword
'Object'      Name.Class
' methodsFor: ' Keyword
"'flagging'"  Literal.String
" stamp: 'jm 3/18/98 17:23'!" Keyword
'\n'          Text

'logEntry'    Name.Function
'\n'          Text

'\n\t'        Text
'Transcript'  Name.Class
' '           Text
'show:'       Name.Function
' '           Text
"'Entered '"  Literal.String
','           Name.Function
' '           Text
'thisContext' Name.Builtin.Pseudo
' '           Text
'sender'      Name.Function
' '           Text
'printString' Name.Function
';'           Punctuation
' '           Text
'cr'          Name.Function
'.'           Punctuation
'\n'          Text

'! !'         Keyword
'\n\n'        Text

'!'           Keyword
'Object'      Name.Class
' methodsFor: ' Keyword
"'flagging'"  Literal.String
" stamp: 'jm 3/18/98 17:23'!" Keyword
'\n'          Text

'logExecution' Name.Function
'\n'          Text

'\n\t'        Text
'Transcript'  Name.Class
' '           Text
'show:'       Name.Function
' '           Text
"'Executing '" Literal.String
','           Name.Function
' '           Text
'thisContext' Name.Builtin.Pseudo
' '           Text
'sender'      Name.Function
' '           Text
'printString' Name.Function
';'           Punctuation
' '           Text
'cr'          Name.Function
'.'           Punctuation
'\n'          Text

'! !'         Keyword
'\n\n'        Text

'!'           Keyword
'Object'      Name.Class
' methodsFor: ' Keyword
"'flagging'"  Literal.String
" stamp: 'jm 3/18/98 17:22'!" Keyword
'\n'          Text

'logExit'     Name.Function
'\n'          Text

'\n\t'        Text
'Transcript'  Name.Class
' '           Text
'show:'       Name.Function
'  '          Text
"'Exited '"   Literal.String
','           Name.Function
' '           Text
'thisContext' Name.Builtin.Pseudo
' '           Text
'sender'      Name.Function
' '           Text
'printString' Name.Function
';'           Punctuation
' '           Text
'cr'          Name.Function
'.'           Punctuation
'\n'          Text

'! !'         Keyword
'\n\n\n'      Text

'!'           Keyword
'Object'      Name.Class
' methodsFor: ' Keyword
"'graph model'" Literal.String
" stamp: 'dgd 9/18/2004 15:07'!" Keyword
'\n'          Text

'addModelYellowButtonMenuItemsTo:' Name.Function
' '           Text
'aCustomMenu' Name.Variable
' '           Text
'forMorph:'   Name.Function
' '           Text
'aMorph'      Name.Variable
' '           Text
'hand:'       Name.Function
' '           Text
'aHandMorph'  Name.Variable
' \n\t'       Text
'"The receiver serves as the model for aMorph; a menu is being constructed for the morph, and here the receiver is able to add its own items"' Comment
'\n\t'        Text
'Preferences' Name.Class
' '           Text
'cmdGesturesEnabled' Name.Function
' '           Text
'ifTrue:'     Name.Builtin
' '           Text
'['           Text
' '           Text
'"build mode"' Comment
'\n\t\t'      Text
'aCustomMenu' Name.Variable
' '           Text
'add:'        Name.Function
' '           Text
"'inspect model'" Literal.String
' '           Text
'translated'  Name.Function
' '           Text
'target:'     Name.Function
' '           Text
'self'        Name.Builtin.Pseudo
' '           Text
'action:'     Name.Function
' '           Text
'#inspect'    Literal.String.Symbol
'.'           Punctuation
'\n\t'        Text
']'           Text
'.'           Punctuation
'\n\n\t'      Text
'^'           Operator
'aCustomMenu' Name.Variable
'\n'          Text

'! !'         Keyword
'\n\n'        Text

'!'           Keyword
'Object'      Name.Class
' methodsFor: ' Keyword
"'graph model'" Literal.String
" stamp: 'nk 1/23/2004 14:35'!" Keyword
'\n'          Text

'hasModelYellowButtonMenuItems' Name.Function
'\n\t'        Text
'^'           Operator
'Preferences' Name.Class
' '           Text
'cmdGesturesEnabled' Name.Function
'! !'         Keyword
'\n\n\n'      Text

'!'           Keyword
'Object'      Name.Class
' methodsFor: ' Keyword
"'inspecting'" Literal.String
" stamp: 'ar 9/27/2005 18:31'!" Keyword
'\n'          Text

'basicInspect' Name.Function
'\n\t'        Text
'"Create and schedule an Inspector in which the user can examine the \n\treceiver\'s variables. This method should not be overriden."' Comment
'\n\t'        Text
'^'           Operator
'ToolSet'     Name.Class
' '           Text
'basicInspect:' Name.Function
' '           Text
'self'        Name.Builtin.Pseudo
'! !'         Keyword
'\n\n'        Text

'!'           Keyword
'Object'      Name.Class
' methodsFor: ' Keyword
"'inspecting'" Literal.String
" stamp: 'md 1/18/2006 19:09'!" Keyword
'\n'          Text

'inspect'     Name.Function
'\n\t'        Text
'"Create and schedule an Inspector in which the user can examine the receiver\'s variables."' Comment
'\n\t'        Text
'ToolSet'     Name.Class
' '           Text
'inspect:'    Name.Function
' '           Text
'self'        Name.Builtin.Pseudo
'! !'         Keyword
'\n\n'        Text

'!'           Keyword
'Object'      Name.Class
' methodsFor: ' Keyword
"'inspecting'" Literal.String
" stamp: 'apb 7/14/2004 12:19'!" Keyword
'\n'          Text

'inspectorClass' Name.Function
'\n\t'        Text
'"Answer the class of the inspector to be used on the receiver.  Called by inspect; \n\tuse basicInspect to get a normal (less useful) type of inspector."' Comment
'\n\n\t'      Text
'^'           Operator
' '           Text
'Inspector'   Name.Class
'! !'         Keyword
'\n\n\n'      Text

'!'           Keyword
'Object'      Name.Class
' methodsFor: ' Keyword
"'locales'"   Literal.String
" stamp: 'tak 8/4/2005 14:55'!" Keyword
'\n'          Text

'localeChanged' Name.Function
'\n\t'        Text
'self'        Name.Builtin.Pseudo
' '           Text
'shouldBeImplemented' Name.Function
'! !'         Keyword
'\n\n\n'      Text

'!'           Keyword
'Object'      Name.Class
' methodsFor: ' Keyword
"'macpal'"    Literal.String
" stamp: 'sw 5/7/1998 23:00'!" Keyword
'\n'          Text

'codeStrippedOut:' Name.Function
' '           Text
'messageString' Name.Variable
'\n\t'        Text
'"When a method is stripped out for external release, it is replaced by a method that calls this"' Comment
'\n\n\t'      Text
'self'        Name.Builtin.Pseudo
' '           Text
'halt:'       Name.Function
' '           Text
"'Code stripped out -- '" Literal.String
','           Name.Function
' '           Text
'messageString' Name.Variable
','           Name.Function
' '           Text
"'-- do not proceed.'" Literal.String
'! !'         Keyword
'\n\n'        Text

'!'           Keyword
'Object'      Name.Class
' methodsFor: ' Keyword
"'macpal'"    Literal.String
" stamp: 'sw 1/28/1999 17:31'!" Keyword
'\n'          Text

'contentsChanged' Name.Function
'\n\t'        Text
'self'        Name.Builtin.Pseudo
' '           Text
'changed:'    Name.Function
' '           Text
'#contents'   Literal.String.Symbol
'! !'         Keyword
'\n\n'        Text

'!'           Keyword
'Object'      Name.Class
' methodsFor: ' Keyword
"'macpal'"    Literal.String
" stamp: 'ar 3/18/2001 00:03'!" Keyword
'\n'          Text

'currentEvent' Name.Function
'\n\t'        Text
'"Answer the current Morphic event.  This method never returns nil."' Comment
'\n\t'        Text
'^'           Operator
'ActiveEvent' Name.Class
' '           Text
'ifNil:'      Name.Function
'['           Text
'self'        Name.Builtin.Pseudo
' '           Text
'currentHand' Name.Function
' '           Text
'lastEvent'   Name.Function
']'           Text
'! !'         Keyword
'\n\n'        Text

'!'           Keyword
'Object'      Name.Class
' methodsFor: ' Keyword
"'macpal'"    Literal.String
" stamp: 'nk 9/1/2004 10:41'!" Keyword
'\n'          Text

'currentHand' Name.Function
'\n\t'        Text
'"Return a usable HandMorph -- the one associated with the object\'s current environment.  This method will always return a hand, even if it has to conjure one up as a last resort.  If a particular hand is actually handling events at the moment (such as a remote hand or a ghost hand), it will be returned."' Comment
'\n\n\t'      Text
'^'           Operator
'ActiveHand'  Name.Class
' '           Text
'ifNil:'      Name.Function
' '           Text
'['           Text
' '           Text
'self'        Name.Builtin.Pseudo
' '           Text
'currentWorld' Name.Function
' '           Text
'primaryHand' Name.Function
' '           Text
']'           Text
'! !'         Keyword
'\n\n'        Text

'!'           Keyword
'Object'      Name.Class
' methodsFor: ' Keyword
"'macpal'"    Literal.String
" stamp: 'sw 5/17/2001 12:08'!" Keyword
'\n'          Text

'currentVocabulary' Name.Function
'\n\t'        Text
'"Answer the currently-prevailing default vocabulary."' Comment
'\n\n\t'      Text
'^'           Operator
' '           Text
'Smalltalk'   Name.Class
' '           Text
'isMorphic'   Name.Function
' '           Text
'ifTrue:'     Name.Builtin
'\n\t\t\t'    Text
'['           Text
'ActiveWorld' Name.Class
' '           Text
'currentVocabulary' Name.Function
']'           Text
'\n\t\t'      Text
'ifFalse:'    Name.Builtin
'\n\t\t\t'    Text
'['           Text
'Vocabulary'  Name.Class
' '           Text
'fullVocabulary' Name.Function
']'           Text
'! !'         Keyword
'\n\n'        Text

'!'           Keyword
'Object'      Name.Class
' methodsFor: ' Keyword
"'macpal'"    Literal.String
" stamp: 'ar 3/18/2001 00:08'!" Keyword
'\n'          Text

'currentWorld' Name.Function
'\n\t'        Text
'"Answer a morphic world that is the current UI focus.\n\t\tIf in an embedded world, it\'s that world.\n\t\tIf in a morphic project, it\'s that project\'s world.  \n\t\tIf in an mvc project, it is the topmost morphic-mvc-window\'s worldMorph. \n\t\tIf in an mvc project that has no morphic-mvc-windows, then it\'s just some existing worldmorph instance.\n\t\tIf in an mvc project in a Squeak that has NO WorldMorph instances, one is created.\n\n\tThis method will never return nil, it will always return its best effort at returning a relevant world morph, but if need be -- if there are no worlds anywhere, it will create a new one."' Comment
'\n\n\t'      Text
'|'           Operator
' aView aSubview ' Name.Variable
'|'           Operator
'\n\t'        Text
'ActiveWorld' Name.Class
' '           Text
'ifNotNil:'   Name.Function
'['           Text
'^'           Operator
'ActiveWorld' Name.Class
']'           Text
'.'           Punctuation
'\n\t'        Text
'World'       Name.Class
' '           Text
'ifNotNil:'   Name.Function
'['           Text
'^'           Operator
'World'       Name.Class
']'           Text
'.'           Punctuation
'\n\t'        Text
'aView'       Name.Variable
' '           Text
'_'           Operator
' '           Text
'ScheduledControllers' Name.Class
' '           Text
'controllerSatisfying:' Name.Function
'\n\t\t'      Text
'['           Text
':'           Operator
'ctrl'        Name.Variable
' '           Text
'|'           Operator
' '           Text
'('           Text
'aSubview'    Name.Variable
' '           Text
'_'           Operator
' '           Text
'ctrl'        Name.Variable
' '           Text
'view'        Name.Function
' '           Text
'firstSubView' Name.Function
')'           Text
' '           Text
'notNil'      Name.Function
' '           Text
'and:'        Name.Function
'\n\t\t\t'    Text
'['           Text
'aSubview'    Name.Variable
' '           Text
'model'       Name.Function
' '           Text
'isMorph'     Name.Function
' '           Text
'and:'        Name.Function
' '           Text
'['           Text
'aSubview'    Name.Variable
' '           Text
'model'       Name.Function
' '           Text
'isWorldMorph' Name.Function
']'           Text
']'           Text
']'           Text
'.'           Punctuation
'\n\t'        Text
'^'           Operator
'aView'       Name.Variable
'\n\t\t'      Text
'ifNotNil:'   Name.Function
'\n\t\t\t'    Text
'['           Text
'aSubview'    Name.Variable
' '           Text
'model'       Name.Function
']'           Text
'\n\t\t'      Text
'ifNil:'      Name.Function
'\n\t\t\t'    Text
'['           Text
'MVCWiWPasteUpMorph' Name.Class
' '           Text
'newWorldForProject:' Name.Function
' '           Text
'nil'         Name.Builtin.Pseudo
']'           Text
'.'           Punctuation
'! !'         Keyword
'\n\n'        Text

'!'           Keyword
'Object'      Name.Class
' methodsFor: ' Keyword
"'macpal'"    Literal.String
" stamp: 'jm 5/6/1998 22:35'!" Keyword
'\n'          Text

'flash'       Name.Function
'\n\t'        Text
'"Do nothing."' Comment
'\n'          Text

'! !'         Keyword
'\n\n'        Text

'!'           Keyword
'Object'      Name.Class
' methodsFor: ' Keyword
"'macpal'"    Literal.String
" stamp: 'sw 6/16/1998 15:07'!" Keyword
'\n'          Text

'instanceVariableValues' Name.Function
'\n\t'        Text
'"Answer a collection whose elements are the values of those instance variables of the receiver which were added by the receiver\'s class"' Comment
'\n\t'        Text
'|'           Operator
' c '         Name.Variable
'|'           Operator
'\n\t'        Text
'c'           Name.Variable
' '           Text
'_'           Operator
' '           Text
'OrderedCollection' Name.Class
' '           Text
'new'         Name.Builtin
'.'           Punctuation
'\n\t'        Text
'self'        Name.Builtin.Pseudo
' '           Text
'class'       Name.Function
' '           Text
'superclass'  Name.Function
' '           Text
'instSize'    Name.Function
' '           Text
'+'           Name.Function
' '           Text
'1'           Literal.Number
' '           Text
'to:'         Name.Function
' '           Text
'self'        Name.Builtin.Pseudo
' '           Text
'class'       Name.Function
' '           Text
'instSize'    Name.Function
' '           Text
'do:'         Name.Function
'\n\t\t'      Text
'['           Text
':'           Operator
'i'           Name.Variable
' '           Text
'|'           Operator
' '           Text
'c'           Name.Variable
' '           Text
'add:'        Name.Function
' '           Text
'('           Text
'self'        Name.Builtin.Pseudo
' '           Text
'instVarAt:'  Name.Function
' '           Text
'i'           Name.Variable
')'           Text
']'           Text
'.'           Punctuation
'\n\t'        Text
'^'           Operator
' '           Text
'c'           Name.Variable
'! !'         Keyword
'\n\n'        Text

'!'           Keyword
'Object'      Name.Class
' methodsFor: ' Keyword
"'macpal'"    Literal.String
" stamp: 'sw 3/20/2001 13:29'!" Keyword
'\n'          Text

'isUniversalTiles' Name.Function
'\n\t'        Text
'"Return true if I (my world) uses universal tiles.  This message can be called in places where the current World is not known, such as when writing out a project.  For more information about the project-writing subtlety addressed by this protocol, kindly contact Ted Kaehler."' Comment
'\n\n\t'      Text
'^'           Operator
' '           Text
'Preferences' Name.Class
' '           Text
'universalTiles' Name.Function
'! !'         Keyword
'\n\n'        Text

'!'           Keyword
'Object'      Name.Class
' methodsFor: ' Keyword
"'macpal'"    Literal.String
" stamp: 'sw 10/24/2000 07:04'!" Keyword
'\n'          Text

'objectRepresented' Name.Function
'\n\t'        Text
'"most objects represent themselves; this provides a hook for aliases to grab on to"' Comment
'\n\n\t'      Text
'^'           Operator
' '           Text
'self'        Name.Builtin.Pseudo
'! !'         Keyword
'\n\n'        Text

'!'           Keyword
'Object'      Name.Class
' methodsFor: ' Keyword
"'macpal'"    Literal.String
" stamp: 'sw 5/22/2001 18:31'!" Keyword
'\n'          Text

'refusesToAcceptCode' Name.Function
'\n\t'        Text
'"Answer whether the receiver is a code-bearing instrument which at the moment refuses to allow its contents to be submitted"' Comment
'\n\n\t'      Text
'^'           Operator
' '           Text
'false'       Name.Builtin.Pseudo
'\n\t'        Text
'! !'         Keyword
'\n\n'        Text

'!'           Keyword
'Object'      Name.Class
' methodsFor: ' Keyword
"'macpal'"    Literal.String
" stamp: 'jm 2/24/1999 12:40'!" Keyword
'\n'          Text

'scriptPerformer' Name.Function
'\n'          Text

'\n\t'        Text
'^'           Operator
' '           Text
'self'        Name.Builtin.Pseudo
'\n'          Text

'! !'         Keyword
'\n\n'        Text

'!'           Keyword
'Object'      Name.Class
' methodsFor: ' Keyword
"'macpal'"    Literal.String
" stamp: 'sw 3/20/2001 13:40'!" Keyword
'\n'          Text

'slotInfo'    Name.Function
'\n\t'        Text
'"Answer a list of slot-information objects.  Initally only provides useful info for players"' Comment
'\n\n\t'      Text
'^'           Operator
' '           Text
'Dictionary'  Name.Class
' '           Text
'new'         Name.Builtin
'! !'         Keyword
'\n\n\n'      Text

'!'           Keyword
'Object'      Name.Class
' methodsFor: ' Keyword
"'message handling'" Literal.String
" stamp: 'md 1/20/2006 16:28'!" Keyword
'\n'          Text

'executeMethod:' Name.Function
' '           Text
'compiledMethod' Name.Variable
'\n\t'        Text
'"Execute compiledMethod against the receiver with no args"' Comment
'\n\n\t'      Text
'"<primitive: 189>"' Comment
' '           Text
'"uncomment once prim 189 is in VM"' Comment
'\n\t'        Text
'^'           Operator
' '           Text
'self'        Name.Builtin.Pseudo
' '           Text
'withArgs:'   Name.Function
' '           Text
'#('          Literal.String.Symbol
')'           Literal.String.Symbol
' '           Text
'executeMethod:' Name.Function
' '           Text
'compiledMethod' Name.Variable
'! !'         Keyword
'\n\n'        Text

'!'           Keyword
'Object'      Name.Class
' methodsFor: ' Keyword
"'message handling'" Literal.String
" stamp: 'di 3/26/1999 07:52'!" Keyword
'\n'          Text

'perform:'    Name.Function
' '           Text
'aSymbol'     Name.Variable
' \n\t'       Text
'"Send the unary selector, aSymbol, to the receiver.\n\tFail if the number of arguments expected by the selector is not zero.\n\tPrimitive. Optional. See Object documentation whatIsAPrimitive."' Comment
'\n\n\t'      Text
'<'           Text
'primitive:'  Keyword
' 83'         Text
'>'           Text
'\n\t'        Text
'^'           Operator
' '           Text
'self'        Name.Builtin.Pseudo
' '           Text
'perform:'    Name.Function
' '           Text
'aSymbol'     Name.Variable
' '           Text
'withArguments:' Name.Function
' '           Text
'('           Text
'Array'       Name.Class
' '           Text
'new:'        Name.Function
' '           Text
'0'           Literal.Number
')'           Text
'! !'         Keyword
'\n\n'        Text

'!'           Keyword
'Object'      Name.Class
' methodsFor: ' Keyword
"'message handling'" Literal.String
" stamp: 'st 11/5/2004 16:19'!" Keyword
'\n'          Text

'perform:'    Name.Function
' '           Text
'selector'    Name.Variable
' '           Text
'orSendTo:'   Name.Function
' '           Text
'otherTarget' Name.Variable
'\n\t'        Text
'"If I wish to intercept and handle selector myself, do it; else send it to otherTarget"' Comment
'\n\t'        Text
'^'           Operator
' '           Text
'('           Text
'self'        Name.Builtin.Pseudo
' '           Text
'respondsTo:' Name.Function
' '           Text
'selector'    Name.Variable
')'           Text
' '           Text
'ifTrue:'     Name.Builtin
' '           Text
'['           Text
'self'        Name.Builtin.Pseudo
' '           Text
'perform:'    Name.Function
' '           Text
'selector'    Name.Variable
']'           Text
' '           Text
'ifFalse:'    Name.Builtin
' '           Text
'['           Text
'otherTarget' Name.Variable
' '           Text
'perform:'    Name.Function
' '           Text
'selector'    Name.Variable
']'           Text
'! !'         Keyword
'\n\n'        Text

'!'           Keyword
'Object'      Name.Class
' methodsFor: ' Keyword
"'message handling'" Literal.String
" stamp: 'di 3/26/1999 07:55'!" Keyword
'\n'          Text

'perform:'    Name.Function
' '           Text
'selector'    Name.Variable
' '           Text
'withArguments:' Name.Function
' '           Text
'argArray'    Name.Variable
' \n\t'       Text
'"Send the selector, aSymbol, to the receiver with arguments in argArray.\n\tFail if the number of arguments expected by the selector \n\tdoes not match the size of argArray.\n\tPrimitive. Optional. See Object documentation whatIsAPrimitive."' Comment
'\n\n\t'      Text
'<'           Text
'primitive:'  Keyword
' 84'         Text
'>'           Text
'\n\t'        Text
'^'           Operator
' '           Text
'self'        Name.Builtin.Pseudo
' '           Text
'perform:'    Name.Function
' '           Text
'selector'    Name.Variable
' '           Text
'withArguments:' Name.Function
' '           Text
'argArray'    Name.Variable
' '           Text
'inSuperclass:' Name.Function
' '           Text
'self'        Name.Builtin.Pseudo
' '           Text
'class'       Name.Function
'! !'         Keyword
'\n\n'        Text

'!'           Keyword
'Object'      Name.Class
' methodsFor: ' Keyword
"'message handling'" Literal.String
" stamp: 'ar 4/25/2005 13:35'!" Keyword
'\n'          Text

'perform:'    Name.Function
' '           Text
'selector'    Name.Variable
' '           Text
'withArguments:' Name.Function
' '           Text
'argArray'    Name.Variable
' '           Text
'inSuperclass:' Name.Function
' '           Text
'lookupClass' Name.Variable
'\n\t'        Text
'"NOTE:  This is just like perform:withArguments:, except that\n\tthe message lookup process begins, not with the receivers\'s class,\n\tbut with the supplied superclass instead.  It will fail if lookupClass\n\tcannot be found among the receiver\'s superclasses.\n\tPrimitive. Essential. See Object documentation whatIsAPrimitive."' Comment
'\n\n\t'      Text
'<'           Text
'primitive:'  Keyword
' 100'        Text
'>'           Text
'\n\t'        Text
'('           Text
'selector'    Name.Variable
' '           Text
'isSymbol'    Name.Function
')'           Text
'\n\t\t'      Text
'ifFalse:'    Name.Builtin
' '           Text
'['           Text
'^'           Operator
' '           Text
'self'        Name.Builtin.Pseudo
' '           Text
'error:'      Name.Function
' '           Text
"'selector argument must be a Symbol'" Literal.String
']'           Text
'.'           Punctuation
'\n\t'        Text
'('           Text
'selector'    Name.Variable
' '           Text
'numArgs'     Name.Function
' '           Text
'='           Name.Function
' '           Text
'argArray'    Name.Variable
' '           Text
'size'        Name.Function
')'           Text
'\n\t\t'      Text
'ifFalse:'    Name.Builtin
' '           Text
'['           Text
'^'           Operator
' '           Text
'self'        Name.Builtin.Pseudo
' '           Text
'error:'      Name.Function
' '           Text
"'incorrect number of arguments'" Literal.String
']'           Text
'.'           Punctuation
'\n\t'        Text
'('           Text
'self'        Name.Builtin.Pseudo
' '           Text
'class'       Name.Function
' '           Text
'=='          Name.Function
' '           Text
'lookupClass' Name.Variable
' '           Text
'or:'         Name.Function
' '           Text
'['           Text
'self'        Name.Builtin.Pseudo
' '           Text
'class'       Name.Function
' '           Text
'inheritsFrom:' Name.Function
' '           Text
'lookupClass' Name.Variable
']'           Text
')'           Text
'\n\t\t'      Text
'ifFalse:'    Name.Builtin
' '           Text
'['           Text
'^'           Operator
' '           Text
'self'        Name.Builtin.Pseudo
' '           Text
'error:'      Name.Function
' '           Text
"'lookupClass is not in my inheritance chain'" Literal.String
']'           Text
'.'           Punctuation
'\n\t'        Text
'self'        Name.Builtin.Pseudo
' '           Text
'primitiveFailed' Name.Function
'! !'         Keyword
'\n\n'        Text

'!'           Keyword
'Object'      Name.Class
' methodsFor: ' Keyword
"'message handling'" Literal.String
" stamp: 'nk 4/11/2002 14:13'!" Keyword
'\n'          Text

'perform:'    Name.Function
' '           Text
'selector'    Name.Variable
' '           Text
'withEnoughArguments:' Name.Function
' '           Text
'anArray'     Name.Variable
'\n\t'        Text
'"Send the selector, aSymbol, to the receiver with arguments in argArray.\n\tOnly use enough arguments for the arity of the selector; supply nils for missing ones."' Comment
'\n\t'        Text
'|'           Operator
' numArgs args ' Name.Variable
'|'           Operator
'\n\t'        Text
'numArgs'     Name.Variable
' '           Text
'_'           Operator
' '           Text
'selector'    Name.Variable
' '           Text
'numArgs'     Name.Function
'.'           Punctuation
'\n\t'        Text
'anArray'     Name.Variable
' '           Text
'size'        Name.Function
' '           Text
'=='          Name.Function
' '           Text
'numArgs'     Name.Variable
'\n\t\t'      Text
'ifTrue:'     Name.Builtin
' '           Text
'['           Text
' '           Text
'^'           Operator
'self'        Name.Builtin.Pseudo
' '           Text
'perform:'    Name.Function
' '           Text
'selector'    Name.Variable
' '           Text
'withArguments:' Name.Function
' '           Text
'anArray'     Name.Variable
' '           Text
'asArray'     Name.Function
' '           Text
']'           Text
'.'           Punctuation
'\n\n\t'      Text
'args'        Name.Variable
' '           Text
'_'           Operator
' '           Text
'Array'       Name.Class
' '           Text
'new:'        Name.Function
' '           Text
'numArgs'     Name.Variable
'.'           Punctuation
'\n\t'        Text
'args'        Name.Variable
' '           Text
'replaceFrom:' Name.Function
' '           Text
'1'           Literal.Number
'\n\t\t'      Text
'to:'         Name.Function
' '           Text
'('           Text
'anArray'     Name.Variable
' '           Text
'size'        Name.Function
' '           Text
'min:'        Name.Function
' '           Text
'args'        Name.Variable
' '           Text
'size'        Name.Function
')'           Text
'\n\t\t'      Text
'with:'       Name.Function
' '           Text
'anArray'     Name.Variable
'\n\t\t'      Text
'startingAt:' Name.Function
' '           Text
'1'           Literal.Number
'.'           Punctuation
'\n\n\t'      Text
'^'           Operator
' '           Text
'self'        Name.Builtin.Pseudo
' '           Text
'perform:'    Name.Function
' '           Text
'selector'    Name.Variable
' '           Text
'withArguments:' Name.Function
' '           Text
'args'        Name.Variable
'! !'         Keyword
'\n\n'        Text

'!'           Keyword
'Object'      Name.Class
' methodsFor: ' Keyword
"'message handling'" Literal.String
" stamp: 'di 3/26/1999 07:52'!" Keyword
'\n'          Text

'perform:'    Name.Function
' '           Text
'aSymbol'     Name.Variable
' '           Text
'with:'       Name.Function
' '           Text
'anObject'    Name.Variable
' \n\t'       Text
'"Send the selector, aSymbol, to the receiver with anObject as its argument.\n\tFail if the number of arguments expected by the selector is not one.\n\tPrimitive. Optional. See Object documentation whatIsAPrimitive."' Comment
'\n\n\t'      Text
'<'           Text
'primitive:'  Keyword
' 83'         Text
'>'           Text
'\n\t'        Text
'^'           Operator
' '           Text
'self'        Name.Builtin.Pseudo
' '           Text
'perform:'    Name.Function
' '           Text
'aSymbol'     Name.Variable
' '           Text
'withArguments:' Name.Function
' '           Text
'('           Text
'Array'       Name.Class
' '           Text
'with:'       Name.Function
' '           Text
'anObject'    Name.Variable
')'           Text
'! !'         Keyword
'\n\n'        Text

'!'           Keyword
'Object'      Name.Class
' methodsFor: ' Keyword
"'message handling'" Literal.String
" stamp: 'di 3/26/1999 07:52'!" Keyword
'\n'          Text

'perform:'    Name.Function
' '           Text
'aSymbol'     Name.Variable
' '           Text
'with:'       Name.Function
' '           Text
'firstObject' Name.Variable
' '           Text
'with:'       Name.Function
' '           Text
'secondObject' Name.Variable
' \n\t'       Text
'"Send the selector, aSymbol, to the receiver with the given arguments.\n\tFail if the number of arguments expected by the selector is not two.\n\tPrimitive. Optional. See Object documentation whatIsAPrimitive."' Comment
'\n\n\t'      Text
'<'           Text
'primitive:'  Keyword
' 83'         Text
'>'           Text
'\n\t'        Text
'^'           Operator
' '           Text
'self'        Name.Builtin.Pseudo
' '           Text
'perform:'    Name.Function
' '           Text
'aSymbol'     Name.Variable
' '           Text
'withArguments:' Name.Function
' '           Text
'('           Text
'Array'       Name.Class
' '           Text
'with:'       Name.Function
' '           Text
'firstObject' Name.Variable
' '           Text
'with:'       Name.Function
' '           Text
'secondObject' Name.Variable
')'           Text
'! !'         Keyword
'\n\n'        Text

'!'           Keyword
'Object'      Name.Class
' methodsFor: ' Keyword
"'message handling'" Literal.String
" stamp: 'di 3/26/1999 07:51'!" Keyword
'\n'          Text

'perform:'    Name.Function
' '           Text
'aSymbol'     Name.Variable
' '           Text
'with:'       Name.Function
' '           Text
'firstObject' Name.Variable
' '           Text
'with:'       Name.Function
' '           Text
'secondObject' Name.Variable
' '           Text
'with:'       Name.Function
' '           Text
'thirdObject' Name.Variable
' \n\t'       Text
'"Send the selector, aSymbol, to the receiver with the given arguments.\n\tFail if the number of arguments expected by the selector is not three.\n\tPrimitive. Optional. See Object documentation whatIsAPrimitive."' Comment
'\n\n\t'      Text
'<'           Text
'primitive:'  Keyword
' 83'         Text
'>'           Text
'\n\t'        Text
'^'           Operator
' '           Text
'self'        Name.Builtin.Pseudo
' '           Text
'perform:'    Name.Function
' '           Text
'aSymbol'     Name.Variable
'\n\t\t'      Text
'withArguments:' Name.Function
' '           Text
'('           Text
'Array'       Name.Class
' '           Text
'with:'       Name.Function
' '           Text
'firstObject' Name.Variable
' '           Text
'with:'       Name.Function
' '           Text
'secondObject' Name.Variable
' '           Text
'with:'       Name.Function
' '           Text
'thirdObject' Name.Variable
')'           Text
'! !'         Keyword
'\n\n'        Text

'!'           Keyword
'Object'      Name.Class
' methodsFor: ' Keyword
"'message handling'" Literal.String
" stamp: 'NS 1/28/2004 11:19'!" Keyword
'\n'          Text

'withArgs:'   Name.Function
' '           Text
'argArray'    Name.Variable
' '           Text
'executeMethod:' Name.Function
' '           Text
'compiledMethod' Name.Variable
'\n\t'        Text
'"Execute compiledMethod against the receiver and args in argArray"' Comment
'\n\n\t'      Text
'|'           Operator
' selector '  Name.Variable
'|'           Operator
'\n\t'        Text
'<'           Text
'primitive:'  Keyword
' 188'        Text
'>'           Text
'\n\t'        Text
'selector'    Name.Variable
' '           Text
'_'           Operator
' '           Text
'Symbol'      Name.Class
' '           Text
'new'         Name.Builtin
'.'           Punctuation
'\n\t'        Text
'self'        Name.Builtin.Pseudo
' '           Text
'class'       Name.Function
' '           Text
'addSelectorSilently:' Name.Function
' '           Text
'selector'    Name.Variable
' '           Text
'withMethod:' Name.Function
' '           Text
'compiledMethod' Name.Variable
'.'           Punctuation
'\n\t'        Text
'^'           Operator
' '           Text
'['           Text
'self'        Name.Builtin.Pseudo
' '           Text
'perform:'    Name.Function
' '           Text
'selector'    Name.Variable
' '           Text
'withArguments:' Name.Function
' '           Text
'argArray'    Name.Variable
']'           Text
'\n\t\t'      Text
'ensure:'     Name.Function
' '           Text
'['           Text
'self'        Name.Builtin.Pseudo
' '           Text
'class'       Name.Function
' '           Text
'basicRemoveSelector:' Name.Function
' '           Text
'selector'    Name.Variable
']'           Text
'! !'         Keyword
'\n\n'        Text

'!'           Keyword
'Object'      Name.Class
' methodsFor: ' Keyword
"'message handling'" Literal.String
" stamp: 'md 1/20/2006 16:28'!" Keyword
'\n'          Text

'with:'       Name.Function
' '           Text
'arg1'        Name.Variable
' '           Text
'executeMethod:' Name.Function
' '           Text
'compiledMethod' Name.Variable
'\n\t'        Text
'"Execute compiledMethod against the receiver and arg1"' Comment
'\n\n\t'      Text
'"<primitive: 189>"' Comment
' '           Text
'"uncomment once prim 189 is in VM"' Comment
'\n\t'        Text
'^'           Operator
' '           Text
'self'        Name.Builtin.Pseudo
' '           Text
'withArgs:'   Name.Function
' '           Text
'{'           Text
'arg1'        Name.Variable
'}'           Text
' '           Text
'executeMethod:' Name.Function
' '           Text
'compiledMethod' Name.Variable
'! !'         Keyword
'\n\n'        Text

'!'           Keyword
'Object'      Name.Class
' methodsFor: ' Keyword
"'message handling'" Literal.String
" stamp: 'md 1/20/2006 16:28'!" Keyword
'\n'          Text

'with:'       Name.Function
' '           Text
'arg1'        Name.Variable
' '           Text
'with:'       Name.Function
' '           Text
'arg2'        Name.Variable
' '           Text
'executeMethod:' Name.Function
' '           Text
'compiledMethod' Name.Variable
'\n\t'        Text
'"Execute compiledMethod against the receiver and arg1 & arg2"' Comment
'\n\n\t'      Text
'"<primitive: 189>"' Comment
' '           Text
'"uncomment once prim 189 is in VM"' Comment
'\n\t'        Text
'^'           Operator
' '           Text
'self'        Name.Builtin.Pseudo
' '           Text
'withArgs:'   Name.Function
' '           Text
'{'           Text
'arg1'        Name.Variable
'.'           Punctuation
' '           Text
'arg2'        Name.Variable
'}'           Text
' '           Text
'executeMethod:' Name.Function
' '           Text
'compiledMethod' Name.Variable
'! !'         Keyword
'\n\n'        Text

'!'           Keyword
'Object'      Name.Class
' methodsFor: ' Keyword
"'message handling'" Literal.String
" stamp: 'md 1/20/2006 16:28'!" Keyword
'\n'          Text

'with:'       Name.Function
' '           Text
'arg1'        Name.Variable
' '           Text
'with:'       Name.Function
' '           Text
'arg2'        Name.Variable
' '           Text
'with:'       Name.Function
' '           Text
'arg3'        Name.Variable
' '           Text
'executeMethod:' Name.Function
' '           Text
'compiledMethod' Name.Variable
'\n\t'        Text
'"Execute compiledMethod against the receiver and arg1, arg2, & arg3"' Comment
'\n\n\t'      Text
'"<primitive: 189>"' Comment
' '           Text
'"uncomment once prim 189 is in VM"' Comment
'\n\t'        Text
'^'           Operator
' '           Text
'self'        Name.Builtin.Pseudo
' '           Text
'withArgs:'   Name.Function
' '           Text
'{'           Text
'arg1'        Name.Variable
'.'           Punctuation
' '           Text
'arg2'        Name.Variable
'.'           Punctuation
' '           Text
'arg3'        Name.Variable
'}'           Text
' '           Text
'executeMethod:' Name.Function
' '           Text
'compiledMethod' Name.Variable
'! !'         Keyword
'\n\n'        Text

'!'           Keyword
'Object'      Name.Class
' methodsFor: ' Keyword
"'message handling'" Literal.String
" stamp: 'md 1/20/2006 16:28'!" Keyword
'\n'          Text

'with:'       Name.Function
' '           Text
'arg1'        Name.Variable
' '           Text
'with:'       Name.Function
' '           Text
'arg2'        Name.Variable
' '           Text
'with:'       Name.Function
' '           Text
'arg3'        Name.Variable
' '           Text
'with:'       Name.Function
' '           Text
'arg4'        Name.Variable
' '           Text
'executeMethod:' Name.Function
' '           Text
'compiledMethod' Name.Variable
'\n\t'        Text
'"Execute compiledMethod against the receiver and arg1, arg2, arg3, & arg4"' Comment
'\n\n\t'      Text
'"<primitive: 189>"' Comment
' '           Text
'"uncomment once prim 189 is in VM"' Comment
'\n\t'        Text
'^'           Operator
' '           Text
'self'        Name.Builtin.Pseudo
' '           Text
'withArgs:'   Name.Function
' '           Text
'{'           Text
'arg1'        Name.Variable
'.'           Punctuation
' '           Text
'arg2'        Name.Variable
'.'           Punctuation
' '           Text
'arg3'        Name.Variable
'.'           Punctuation
' '           Text
'arg4'        Name.Variable
'}'           Text
' '           Text
'executeMethod:' Name.Function
' '           Text
'compiledMethod' Name.Variable
'! !'         Keyword
'\n\n\n'      Text

'!'           Keyword
'Object'      Name.Class
' methodsFor: ' Keyword
"'objects from disk'" Literal.String
" stamp: 'tk 4/8/1999 12:46'!" Keyword
'\n'          Text

'comeFullyUpOnReload:' Name.Function
' '           Text
'smartRefStream' Name.Variable
'\n\t'        Text
'"Normally this read-in object is exactly what we want to store. 7/26/96 tk"' Comment
'\n\n\t'      Text
'^'           Operator
' '           Text
'self'        Name.Builtin.Pseudo
'! !'         Keyword
'\n\n'        Text

'!'           Keyword
'Object'      Name.Class
' methodsFor: ' Keyword
"'objects from disk'" Literal.String
" stamp: 'RAA 12/20/2000 16:51'!" Keyword
'\n'          Text

'convertToCurrentVersion:' Name.Function
' '           Text
'varDict'     Name.Variable
' '           Text
'refStream:'  Name.Function
' '           Text
'smartRefStrm' Name.Variable
'\n\n\t'      Text
'"subclasses should implement if they wish to convert old instances to modern ones"' Comment
'! !'         Keyword
'\n\n'        Text

'!'           Keyword
'Object'      Name.Class
' methodsFor: ' Keyword
"'objects from disk'" Literal.String
" stamp: 'tk 11/29/2004 15:04'!" Keyword
'\n'          Text

'fixUponLoad:' Name.Function
' '           Text
'aProject'    Name.Variable
' '           Text
'seg:'        Name.Function
' '           Text
'anImageSegment' Name.Variable
'\n\t'        Text
'"change the object due to conventions that have changed on\nthe project level.  (sent to all objects in the incoming project).\nSpecific classes should reimplement this."' Comment
'! !'         Keyword
'\n\n'        Text

'!'           Keyword
'Object'      Name.Class
' methodsFor: ' Keyword
"'objects from disk'" Literal.String
" stamp: 'RAA 1/10/2001 14:02'!" Keyword
'\n'          Text

'indexIfCompact' Name.Function
'\n'          Text

'\n\t'        Text
'^'           Operator
'0'           Literal.Number
'\t\t'        Text
'"helps avoid a #respondsTo: in publishing"' Comment
'! !'         Keyword
'\n\n'        Text

'!'           Keyword
'Object'      Name.Class
' methodsFor: ' Keyword
"'objects from disk'" Literal.String
" stamp: 'tk 2/24/1999 11:08'!" Keyword
'\n'          Text

'objectForDataStream:' Name.Function
' '           Text
'refStrm'     Name.Variable
'\n    '      Text
'"Return an object to store on an external data stream."' Comment
'\n\n    '    Text
'^'           Operator
' '           Text
'self'        Name.Builtin.Pseudo
'! !'         Keyword
'\n\n'        Text

'!'           Keyword
'Object'      Name.Class
' methodsFor: ' Keyword
"'objects from disk'" Literal.String
" stamp: 'tk 4/8/1999 12:05'!" Keyword
'\n'          Text

'readDataFrom:' Name.Function
' '           Text
'aDataStream' Name.Variable
' '           Text
'size:'       Name.Function
' '           Text
'varsOnDisk'  Name.Variable
'\n\t'        Text
'"Fill in the fields of self based on the contents of aDataStream.  Return self.\n\t Read in the instance-variables written by Object>>storeDataOn:.\n\t NOTE: This method must send beginReference: before reading any objects from aDataStream that might reference it.\n\t Allow aDataStream to have fewer inst vars.  See SmartRefStream."' Comment
'\n\t'        Text
'|'           Operator
' cntInstVars cntIndexedVars ' Name.Variable
'|'           Operator
'\n\n\t'      Text
'cntInstVars' Name.Variable
' '           Text
'_'           Operator
' '           Text
'self'        Name.Builtin.Pseudo
' '           Text
'class'       Name.Function
' '           Text
'instSize'    Name.Function
'.'           Punctuation
'\n\t'        Text
'self'        Name.Builtin.Pseudo
' '           Text
'class'       Name.Function
' '           Text
'isVariable'  Name.Function
'\n\t\t'      Text
'ifTrue:'     Name.Builtin
' '           Text
'['           Text
'cntIndexedVars' Name.Variable
' '           Text
'_'           Operator
' '           Text
'varsOnDisk'  Name.Variable
' '           Text
'-'           Name.Function
' '           Text
'cntInstVars' Name.Variable
'.'           Punctuation
'\n\t\t\t\t'  Text
'cntIndexedVars' Name.Variable
' '           Text
'<'           Name.Function
' '           Text
'0'           Literal.Number
' '           Text
'ifTrue:'     Name.Builtin
' '           Text
'['           Text
'\n\t\t\t\t\t' Text
'self'        Name.Builtin.Pseudo
' '           Text
'error:'      Name.Function
' '           Text
"'Class has changed too much.  Define a convertxxx method'" Literal.String
']'           Text
']'           Text
'\n\t\t'      Text
'ifFalse:'    Name.Builtin
' '           Text
'['           Text
'cntIndexedVars' Name.Variable
' '           Text
'_'           Operator
' '           Text
'0'           Literal.Number
'.'           Punctuation
'\n\t\t\t\t'  Text
'cntInstVars' Name.Variable
' '           Text
'_'           Operator
' '           Text
'varsOnDisk'  Name.Variable
']'           Text
'.'           Punctuation
' \t'         Text
'"OK if fewer than now"' Comment
'\n\n\t'      Text
'aDataStream' Name.Variable
' '           Text
'beginReference:' Name.Function
' '           Text
'self'        Name.Builtin.Pseudo
'.'           Punctuation
'\n\t'        Text
'1'           Literal.Number
' '           Text
'to:'         Name.Function
' '           Text
'cntInstVars' Name.Variable
' '           Text
'do:'         Name.Function
'\n\t\t'      Text
'['           Text
':'           Operator
'i'           Name.Variable
' '           Text
'|'           Operator
' '           Text
'self'        Name.Builtin.Pseudo
' '           Text
'instVarAt:'  Name.Function
' '           Text
'i'           Name.Variable
' '           Text
'put:'        Name.Function
' '           Text
'aDataStream' Name.Variable
' '           Text
'next'        Name.Function
']'           Text
'.'           Punctuation
'\n\t'        Text
'1'           Literal.Number
' '           Text
'to:'         Name.Function
' '           Text
'cntIndexedVars' Name.Variable
' '           Text
'do:'         Name.Function
'\n\t\t'      Text
'['           Text
':'           Operator
'i'           Name.Variable
' '           Text
'|'           Operator
' '           Text
'self'        Name.Builtin.Pseudo
' '           Text
'basicAt:'    Name.Function
' '           Text
'i'           Name.Variable
' '           Text
'put:'        Name.Function
' '           Text
'aDataStream' Name.Variable
' '           Text
'next'        Name.Function
']'           Text
'.'           Punctuation
'\n\t'        Text
'"Total number read MUST be equal to varsOnDisk!!"' Comment
'\n\t'        Text
'^'           Operator
' '           Text
'self'        Name.Builtin.Pseudo
'\t'          Text
'"If we ever return something other than self, fix calls \n\t\t\ton (super readDataFrom: aDataStream size: anInteger)"' Comment
'! !'         Keyword
'\n\n'        Text

'!'           Keyword
'Object'      Name.Class
' methodsFor: ' Keyword
"'objects from disk'" Literal.String
" stamp: 'CdG 10/17/2005 20:32'!" Keyword
'\n'          Text

'saveOnFile'  Name.Function
'\n\t'        Text
'"Ask the user for a filename and save myself on a SmartReferenceStream file.  Writes out the version and class structure.  The file is fileIn-able.  Does not file out the class of the object.  tk 6/26/97 13:48"' Comment
'\n\n\t'      Text
'|'           Operator
' aFileName fileStream ' Name.Variable
'|'           Operator
'\n\t'        Text
'aFileName'   Name.Variable
' '           Text
':='          Operator
' '           Text
'self'        Name.Builtin.Pseudo
' '           Text
'class'       Name.Function
' '           Text
'name'        Name.Function
' '           Text
'asFileName'  Name.Function
'.'           Punctuation
'\t'          Text
'"do better?"' Comment
'\n\t'        Text
'aFileName'   Name.Variable
' '           Text
':='          Operator
' '           Text
'UIManager'   Name.Class
' '           Text
'default'     Name.Function
' \n\t\t\t\t' Text
'request:'    Name.Function
' '           Text
"'File name?'" Literal.String
' '           Text
'translated'  Name.Function
' '           Text
'initialAnswer:' Name.Function
' '           Text
'aFileName'   Name.Variable
'.'           Punctuation
'\n\t'        Text
'aFileName'   Name.Variable
' '           Text
'size'        Name.Function
' '           Text
'=='          Name.Function
' '           Text
'0'           Literal.Number
' '           Text
'ifTrue:'     Name.Builtin
' '           Text
'['           Text
'^'           Operator
' '           Text
'Beeper'      Name.Class
' '           Text
'beep'        Name.Function
']'           Text
'.'           Punctuation
'\n\n\t'      Text
'fileStream'  Name.Variable
' '           Text
':='          Operator
' '           Text
'FileStream'  Name.Class
' '           Text
'newFileNamed:' Name.Function
' '           Text
'aFileName'   Name.Variable
' '           Text
'asFileName'  Name.Function
'.'           Punctuation
'\n\t'        Text
'fileStream'  Name.Variable
' '           Text
'fileOutClass:' Name.Function
' '           Text
'nil'         Name.Builtin.Pseudo
' '           Text
'andObject:'  Name.Function
' '           Text
'self'        Name.Builtin.Pseudo
'.'           Punctuation
'! !'         Keyword
'\n\n'        Text

'!'           Keyword
'Object'      Name.Class
' methodsFor: ' Keyword
"'objects from disk'" Literal.String
" stamp: 'tk 8/9/2001 15:40'!" Keyword
'\n'          Text

'storeDataOn:' Name.Function
' '           Text
'aDataStream' Name.Variable
'\n\t'        Text
'"Store myself on a DataStream.  Answer self.  This is a low-level DataStream/ReferenceStream method. See also objectToStoreOnDataStream.  NOTE: This method must send \'aDataStream beginInstance:size:\' and then (nextPut:/nextPutWeak:) its subobjects.  readDataFrom:size: reads back what we write here."' Comment
'\n\t'        Text
'|'           Operator
' cntInstVars cntIndexedVars ' Name.Variable
'|'           Operator
'\n\n\t'      Text
'cntInstVars' Name.Variable
' '           Text
'_'           Operator
' '           Text
'self'        Name.Builtin.Pseudo
' '           Text
'class'       Name.Function
' '           Text
'instSize'    Name.Function
'.'           Punctuation
'\n\t'        Text
'cntIndexedVars' Name.Variable
' '           Text
'_'           Operator
' '           Text
'self'        Name.Builtin.Pseudo
' '           Text
'basicSize'   Name.Function
'.'           Punctuation
'\n\t'        Text
'aDataStream' Name.Variable
'\n\t\t'      Text
'beginInstance:' Name.Function
' '           Text
'self'        Name.Builtin.Pseudo
' '           Text
'class'       Name.Function
'\n\t\t'      Text
'size:'       Name.Function
' '           Text
'cntInstVars' Name.Variable
' '           Text
'+'           Name.Function
' '           Text
'cntIndexedVars' Name.Variable
'.'           Punctuation
'\n\t'        Text
'1'           Literal.Number
' '           Text
'to:'         Name.Function
' '           Text
'cntInstVars' Name.Variable
' '           Text
'do:'         Name.Function
'\n\t\t'      Text
'['           Text
':'           Operator
'i'           Name.Variable
' '           Text
'|'           Operator
' '           Text
'aDataStream' Name.Variable
' '           Text
'nextPut:'    Name.Function
' '           Text
'('           Text
'self'        Name.Builtin.Pseudo
' '           Text
'instVarAt:'  Name.Function
' '           Text
'i'           Name.Variable
')'           Text
']'           Text
'.'           Punctuation
'\n\n\t'      Text
'"Write fields of a variable length object.  When writing to a dummy \n\t\tstream, don\'t bother to write the bytes"' Comment
'\n\t'        Text
'('           Text
'('           Text
'aDataStream' Name.Variable
' '           Text
'byteStream'  Name.Function
' '           Text
'class'       Name.Function
' '           Text
'=='          Name.Function
' '           Text
'DummyStream' Name.Class
')'           Text
' '           Text
'and:'        Name.Function
' '           Text
'['           Text
'self'        Name.Builtin.Pseudo
' '           Text
'class'       Name.Function
' '           Text
'isBits'      Name.Function
']'           Text
')'           Text
' '           Text
'ifFalse:'    Name.Builtin
' '           Text
'['           Text
'\n\t\t'      Text
'1'           Literal.Number
' '           Text
'to:'         Name.Function
' '           Text
'cntIndexedVars' Name.Variable
' '           Text
'do:'         Name.Function
'\n\t\t\t'    Text
'['           Text
':'           Operator
'i'           Name.Variable
' '           Text
'|'           Operator
' '           Text
'aDataStream' Name.Variable
' '           Text
'nextPut:'    Name.Function
' '           Text
'('           Text
'self'        Name.Builtin.Pseudo
' '           Text
'basicAt:'    Name.Function
' '           Text
'i'           Name.Variable
')'           Text
']'           Text
']'           Text
'.'           Punctuation
'\n'          Text

'! !'         Keyword
'\n\n\n'      Text

'!'           Keyword
'Object'      Name.Class
' methodsFor: ' Keyword
"'parts bin'" Literal.String
" stamp: 'sw 10/24/2001 16:34'!" Keyword
'\n'          Text

'descriptionForPartsBin' Name.Function
'\n\t'        Text
'"If the receiver is a member of a class that would like to be represented in a parts bin, answer the name by which it should be known, and a documentation string to be provided, for example, as balloon help.  When the \'nativitySelector\' is sent to the \'globalReceiver\', it is expected that some kind of Morph will result.  The parameters used in the implementation below are for documentation purposes only!!"' Comment
'\n\n\t'      Text
'^'           Operator
' '           Text
'DescriptionForPartsBin' Name.Class
'\n\t\t'      Text
'formalName:' Name.Function
' '           Text
"'PutFormalNameHere'" Literal.String
'\n\t\t'      Text
'categoryList:' Name.Function
' '           Text
'#('          Literal.String.Symbol
'PutACategoryHere' Literal.String.Symbol
' '           Text
'MaybePutAnotherCategoryHere' Literal.String.Symbol
')'           Literal.String.Symbol
'\n\t\t'      Text
'documentation:' Name.Function
' '           Text
"'Put the balloon help here'" Literal.String
'\n\t\t'      Text
'globalReceiverSymbol:' Name.Function
' '           Text
'#PutAGlobalHere' Literal.String.Symbol
'\n\t\t'      Text
'nativitySelector:' Name.Function
' '           Text
'#PutASelectorHere' Literal.String.Symbol
'! !'         Keyword
'\n\n\n'      Text

'!'           Keyword
'Object'      Name.Class
' methodsFor: ' Keyword
"'printing'"  Literal.String
" stamp: 'di 6/20/97 08:57'!" Keyword
'\n'          Text

'fullPrintString' Name.Function
'\n\t'        Text
'"Answer a String whose characters are a description of the receiver."' Comment
'\n\n\t'      Text
'^'           Operator
' '           Text
'String'      Name.Class
' '           Text
'streamContents:' Name.Function
' '           Text
'['           Text
':'           Operator
's'           Name.Variable
' '           Text
'|'           Operator
' '           Text
'self'        Name.Builtin.Pseudo
' '           Text
'printOn:'    Name.Function
' '           Text
's'           Name.Variable
']'           Text
'! !'         Keyword
'\n\n'        Text

'!'           Keyword
'Object'      Name.Class
' methodsFor: ' Keyword
"'printing'"  Literal.String
'!'           Keyword
'\n'          Text

'isLiteral'   Name.Function
'\n\t'        Text
'"Answer whether the receiver has a literal text form recognized by the \n\tcompiler."' Comment
'\n\n\t'      Text
'^'           Operator
'false'       Name.Builtin.Pseudo
'! !'         Keyword
'\n\n'        Text

'!'           Keyword
'Object'      Name.Class
' methodsFor: ' Keyword
"'printing'"  Literal.String
" stamp: 'sma 6/1/2000 09:28'!" Keyword
'\n'          Text

'longPrintOn:' Name.Function
' '           Text
'aStream'     Name.Variable
'\n\t'        Text
'"Append to the argument, aStream, the names and values of all \n\tof the receiver\'s instance variables."' Comment
'\n\n\t'      Text
'self'        Name.Builtin.Pseudo
' '           Text
'class'       Name.Function
' '           Text
'allInstVarNames' Name.Function
' '           Text
'doWithIndex:' Name.Function
'\n\t\t'      Text
'['           Text
':'           Operator
'title'       Name.Variable
' '           Text
':'           Operator
'index'       Name.Variable
' '           Text
'|'           Operator
'\n\t\t'      Text
'aStream'     Name.Variable
' '           Text
'nextPutAll:' Name.Function
' '           Text
'title'       Name.Variable
';'           Punctuation
'\n\t\t '     Text
'nextPut:'    Name.Function
' '           Text
'$:'          Literal.String.Char
';'           Punctuation
'\n\t\t '     Text
'space'       Name.Function
';'           Punctuation
'\n\t\t '     Text
'tab'         Name.Function
';'           Punctuation
'\n\t\t '     Text
'print:'      Name.Function
' '           Text
'('           Text
'self'        Name.Builtin.Pseudo
' '           Text
'instVarAt:'  Name.Function
' '           Text
'index'       Name.Variable
')'           Text
';'           Punctuation
'\n\t\t '     Text
'cr'          Name.Function
']'           Text
'! !'         Keyword
'\n\n'        Text

'!'           Keyword
'Object'      Name.Class
' methodsFor: ' Keyword
"'printing'"  Literal.String
" stamp: 'tk 10/19/2001 11:18'!" Keyword
'\n'          Text

'longPrintOn:' Name.Function
' '           Text
'aStream'     Name.Variable
' '           Text
'limitedTo:'  Name.Function
' '           Text
'sizeLimit'   Name.Variable
' '           Text
'indent:'     Name.Function
' '           Text
'indent'      Name.Variable
'\n\t'        Text
'"Append to the argument, aStream, the names and values of all of the receiver\'s instance variables.  Limit is the length limit for each inst var."' Comment
'\n\n\t'      Text
'self'        Name.Builtin.Pseudo
' '           Text
'class'       Name.Function
' '           Text
'allInstVarNames' Name.Function
' '           Text
'doWithIndex:' Name.Function
'\n\t\t'      Text
'['           Text
':'           Operator
'title'       Name.Variable
' '           Text
':'           Operator
'index'       Name.Variable
' '           Text
'|'           Operator
'\n\t\t'      Text
'indent'      Name.Variable
' '           Text
'timesRepeat:' Name.Builtin
' '           Text
'['           Text
'aStream'     Name.Variable
' '           Text
'tab'         Name.Function
']'           Text
'.'           Punctuation
'\n\t\t'      Text
'aStream'     Name.Variable
' '           Text
'nextPutAll:' Name.Function
' '           Text
'title'       Name.Variable
';'           Punctuation
'\n\t\t '     Text
'nextPut:'    Name.Function
' '           Text
'$:'          Literal.String.Char
';'           Punctuation
'\n\t\t '     Text
'space'       Name.Function
';'           Punctuation
'\n\t\t '     Text
'tab'         Name.Function
';'           Punctuation
'\n\t\t '     Text
'nextPutAll:' Name.Function
' \n\t\t\t'   Text
'('           Text
'('           Text
'self'        Name.Builtin.Pseudo
' '           Text
'instVarAt:'  Name.Function
' '           Text
'index'       Name.Variable
')'           Text
' '           Text
'printStringLimitedTo:' Name.Function
' '           Text
'('           Text
'sizeLimit'   Name.Variable
' '           Text
'-'           Name.Function
'3'           Literal.Number
' '           Text
'-'           Name.Function
'title'       Name.Variable
' '           Text
'size'        Name.Function
' '           Text
'max:'        Name.Function
' '           Text
'1'           Literal.Number
')'           Text
')'           Text
';'           Punctuation
'\n\t\t '     Text
'cr'          Name.Function
']'           Text
'! !'         Keyword
'\n\n'        Text

'!'           Keyword
'Object'      Name.Class
' methodsFor: ' Keyword
"'printing'"  Literal.String
" stamp: 'tk 10/16/2001 19:41'!" Keyword
'\n'          Text

'longPrintString' Name.Function
'\n\t'        Text
'"Answer a String whose characters are a description of the receiver."' Comment
'\n\t\n\t'    Text
'|'           Operator
' str '       Name.Variable
'|'           Operator
'\n\t'        Text
'str'         Name.Variable
' '           Text
'_'           Operator
' '           Text
'String'      Name.Class
' '           Text
'streamContents:' Name.Function
' '           Text
'['           Text
':'           Operator
'aStream'     Name.Variable
' '           Text
'|'           Operator
' '           Text
'self'        Name.Builtin.Pseudo
' '           Text
'longPrintOn:' Name.Function
' '           Text
'aStream'     Name.Variable
']'           Text
'.'           Punctuation
'\n\t'        Text
'"Objects without inst vars should return something"' Comment
'\n\t'        Text
'^'           Operator
' '           Text
'str'         Name.Variable
' '           Text
'isEmpty'     Name.Function
' '           Text
'ifTrue:'     Name.Builtin
' '           Text
'['           Text
'self'        Name.Builtin.Pseudo
' '           Text
'printString' Name.Function
','           Name.Function
' '           Text
'String'      Name.Class
' '           Text
'cr'          Name.Function
']'           Text
' '           Text
'ifFalse:'    Name.Builtin
' '           Text
'['           Text
'str'         Name.Variable
']'           Text
'! !'         Keyword
'\n\n'        Text

'!'           Keyword
'Object'      Name.Class
' methodsFor: ' Keyword
"'printing'"  Literal.String
" stamp: 'BG 11/7/2004 13:39'!" Keyword
'\n'          Text

'longPrintStringLimitedTo:' Name.Function
' '           Text
'aLimitValue' Name.Variable
'\n\t'        Text
'"Answer a String whose characters are a description of the receiver."' Comment
'\n\t\n\t'    Text
'|'           Operator
' str '       Name.Variable
'|'           Operator
'\n\t'        Text
'str'         Name.Variable
' '           Text
'_'           Operator
' '           Text
'String'      Name.Class
' '           Text
'streamContents:' Name.Function
' '           Text
'['           Text
':'           Operator
'aStream'     Name.Variable
' '           Text
'|'           Operator
' '           Text
'self'        Name.Builtin.Pseudo
' '           Text
'longPrintOn:' Name.Function
' '           Text
'aStream'     Name.Variable
' '           Text
'limitedTo:'  Name.Function
' '           Text
'aLimitValue' Name.Variable
' '           Text
'indent:'     Name.Function
' '           Text
'0'           Literal.Number
']'           Text
'.'           Punctuation
'\n\t'        Text
'"Objects without inst vars should return something"' Comment
'\n\t'        Text
'^'           Operator
' '           Text
'str'         Name.Variable
' '           Text
'isEmpty'     Name.Function
' '           Text
'ifTrue:'     Name.Builtin
' '           Text
'['           Text
'self'        Name.Builtin.Pseudo
' '           Text
'printString' Name.Function
','           Name.Function
' '           Text
'String'      Name.Class
' '           Text
'cr'          Name.Function
']'           Text
' '           Text
'ifFalse:'    Name.Builtin
' '           Text
'['           Text
'str'         Name.Variable
']'           Text
'! !'         Keyword
'\n\n'        Text

'!'           Keyword
'Object'      Name.Class
' methodsFor: ' Keyword
"'printing'"  Literal.String
" stamp: 'sw 3/7/2001 13:14'!" Keyword
'\n'          Text

'nominallyUnsent:' Name.Function
' '           Text
'aSelectorSymbol' Name.Variable
'\n\t'        Text
'"From within the body of a method which is not formally sent within the system, but which you intend to have remain in the system (for potential manual invocation, or for documentation, or perhaps because it\'s sent by commented-out-code that you anticipate uncommenting out someday, send this message, with the selector itself as the argument.\n\nThis will serve two purposes:\n\n\t(1)  The method will not be returned by searches for unsent selectors (because it, in a manner of speaking, sends itself).\n\t(2)\tYou can locate all such methods by browsing senders of #nominallyUnsent:"' Comment
'\n\n\t'      Text
'false'       Name.Builtin.Pseudo
' '           Text
'ifTrue:'     Name.Builtin
' '           Text
'['           Text
'self'        Name.Builtin.Pseudo
' '           Text
'flag:'       Name.Function
' '           Text
'#nominallyUnsent:' Literal.String.Symbol
']'           Text
'    '        Text
'"So that this method itself will appear to be sent"' Comment
'\n'          Text

'! !'         Keyword
'\n\n'        Text

'!'           Keyword
'Object'      Name.Class
' methodsFor: ' Keyword
"'printing'"  Literal.String
" stamp: 'sma 6/1/2000 09:31'!" Keyword
'\n'          Text

'printOn:'    Name.Function
' '           Text
'aStream'     Name.Variable
'\n\t'        Text
'"Append to the argument, aStream, a sequence of characters that  \n\tidentifies the receiver."' Comment
'\n\n\t'      Text
'|'           Operator
' title '     Name.Variable
'|'           Operator
'\n\t'        Text
'title'       Name.Variable
' '           Text
'_'           Operator
' '           Text
'self'        Name.Builtin.Pseudo
' '           Text
'class'       Name.Function
' '           Text
'name'        Name.Function
'.'           Punctuation
'\n\t'        Text
'aStream'     Name.Variable
'\n\t\t'      Text
'nextPutAll:' Name.Function
' '           Text
'('           Text
'title'       Name.Variable
' '           Text
'first'       Name.Function
' '           Text
'isVowel'     Name.Function
' '           Text
'ifTrue:'     Name.Builtin
' '           Text
'['           Text
"'an '"       Literal.String
']'           Text
' '           Text
'ifFalse:'    Name.Builtin
' '           Text
'['           Text
"'a '"        Literal.String
']'           Text
')'           Text
';'           Punctuation
'\n\t\t'      Text
'nextPutAll:' Name.Function
' '           Text
'title'       Name.Variable
'! !'         Keyword
'\n\n'        Text

'!'           Keyword
'Object'      Name.Class
' methodsFor: ' Keyword
"'printing'"  Literal.String
" stamp: 'sma 6/1/2000 09:22'!" Keyword
'\n'          Text

'printString' Name.Function
'\n\t'        Text
'"Answer a String whose characters are a description of the receiver. \n\tIf you want to print without a character limit, use fullPrintString."' Comment
'\n\n\t'      Text
'^'           Operator
' '           Text
'self'        Name.Builtin.Pseudo
' '           Text
'printStringLimitedTo:' Name.Function
' '           Text
'50000'       Literal.Number
'! !'         Keyword
'\n\n'        Text

'!'           Keyword
'Object'      Name.Class
' methodsFor: ' Keyword
"'printing'"  Literal.String
" stamp: 'tk 5/7/1999 16:20'!" Keyword
'\n'          Text

'printStringLimitedTo:' Name.Function
' '           Text
'limit'       Name.Variable
'\n\t'        Text
'"Answer a String whose characters are a description of the receiver.\n\tIf you want to print without a character limit, use fullPrintString."' Comment
'\n\t'        Text
'|'           Operator
' limitedString ' Name.Variable
'|'           Operator
'\n\t'        Text
'limitedString' Name.Variable
' '           Text
'_'           Operator
' '           Text
'String'      Name.Class
' '           Text
'streamContents:' Name.Function
' '           Text
'['           Text
':'           Operator
's'           Name.Variable
' '           Text
'|'           Operator
' '           Text
'self'        Name.Builtin.Pseudo
' '           Text
'printOn:'    Name.Function
' '           Text
's'           Name.Variable
']'           Text
' '           Text
'limitedTo:'  Name.Function
' '           Text
'limit'       Name.Variable
'.'           Punctuation
'\n\t'        Text
'limitedString' Name.Variable
' '           Text
'size'        Name.Function
' '           Text
'<'           Name.Function
' '           Text
'limit'       Name.Variable
' '           Text
'ifTrue:'     Name.Builtin
' '           Text
'['           Text
'^'           Operator
' '           Text
'limitedString' Name.Variable
']'           Text
'.'           Punctuation
'\n\t'        Text
'^'           Operator
' '           Text
'limitedString' Name.Variable
' '           Text
','           Name.Function
' '           Text
"'...etc...'" Literal.String
'! !'         Keyword
'\n\n'        Text

'!'           Keyword
'Object'      Name.Class
' methodsFor: ' Keyword
"'printing'"  Literal.String
" stamp: 'MPW 1/1/1901 00:30'!" Keyword
'\n'          Text

'propertyList' Name.Function
'\n\t'        Text
'"Answer a String whose characters are a property-list description of the receiver."' Comment
'\n\n\t'      Text
'^'           Operator
' '           Text
'PropertyListEncoder' Name.Class
' '           Text
'process:'    Name.Function
'self'        Name.Builtin.Pseudo
'.'           Punctuation
'\n'          Text

'! !'         Keyword
'\n\n'        Text

'!'           Keyword
'Object'      Name.Class
' methodsFor: ' Keyword
"'printing'"  Literal.String
" stamp: 'sw 10/17/2000 11:16'!" Keyword
'\n'          Text

'reportableSize' Name.Function
'\n\t'        Text
'"Answer a string that reports the size of the receiver -- useful for showing in a list view, for example"' Comment
'\n\n\t'      Text
'^'           Operator
' '           Text
'('           Text
'self'        Name.Builtin.Pseudo
' '           Text
'basicSize'   Name.Function
' '           Text
'+'           Name.Function
' '           Text
'self'        Name.Builtin.Pseudo
' '           Text
'class'       Name.Function
' '           Text
'instSize'    Name.Function
')'           Text
' '           Text
'printString' Name.Function
'! !'         Keyword
'\n\n'        Text

'!'           Keyword
'Object'      Name.Class
' methodsFor: ' Keyword
"'printing'"  Literal.String
'!'           Keyword
'\n'          Text

'storeOn:'    Name.Function
' '           Text
'aStream'     Name.Variable
' \n\t'       Text
'"Append to the argument aStream a sequence of characters that is an \n\texpression whose evaluation creates an object similar to the receiver."' Comment
'\n\n\t'      Text
'aStream'     Name.Variable
' '           Text
'nextPut:'    Name.Function
' '           Text
'$('          Literal.String.Char
'.'           Punctuation
'\n\t'        Text
'self'        Name.Builtin.Pseudo
' '           Text
'class'       Name.Function
' '           Text
'isVariable'  Name.Function
'\n\t\t'      Text
'ifTrue:'     Name.Builtin
' '           Text
'['           Text
'aStream'     Name.Variable
' '           Text
'nextPutAll:' Name.Function
' '           Text
"'('"         Literal.String
','           Name.Function
' '           Text
'self'        Name.Builtin.Pseudo
' '           Text
'class'       Name.Function
' '           Text
'name'        Name.Function
','           Name.Function
' '           Text
"' basicNew: '" Literal.String
';'           Punctuation
'\n\t\t\t\t\t' Text
'store:'      Name.Function
' '           Text
'self'        Name.Builtin.Pseudo
' '           Text
'basicSize'   Name.Function
';'           Punctuation
'\n\t\t\t\t\t' Text
'nextPutAll:' Name.Function
' '           Text
"') '"        Literal.String
']'           Text
'\n\t\t'      Text
'ifFalse:'    Name.Builtin
' '           Text
'['           Text
'aStream'     Name.Variable
' '           Text
'nextPutAll:' Name.Function
' '           Text
'self'        Name.Builtin.Pseudo
' '           Text
'class'       Name.Function
' '           Text
'name'        Name.Function
','           Name.Function
' '           Text
"' basicNew'" Literal.String
']'           Text
'.'           Punctuation
'\n\t'        Text
'1'           Literal.Number
' '           Text
'to:'         Name.Function
' '           Text
'self'        Name.Builtin.Pseudo
' '           Text
'class'       Name.Function
' '           Text
'instSize'    Name.Function
' '           Text
'do:'         Name.Function
'\n\t\t'      Text
'['           Text
':'           Operator
'i'           Name.Variable
' '           Text
'|'           Operator
'\n\t\t'      Text
'aStream'     Name.Variable
' '           Text
'nextPutAll:' Name.Function
' '           Text
"' instVarAt: '" Literal.String
';'           Punctuation
'\n\t\t\t'    Text
'store:'      Name.Function
' '           Text
'i'           Name.Variable
';'           Punctuation
'\n\t\t\t'    Text
'nextPutAll:' Name.Function
' '           Text
"' put: '"    Literal.String
';'           Punctuation
'\n\t\t\t'    Text
'store:'      Name.Function
' '           Text
'('           Text
'self'        Name.Builtin.Pseudo
' '           Text
'instVarAt:'  Name.Function
' '           Text
'i'           Name.Variable
')'           Text
';'           Punctuation
'\n\t\t\t'    Text
'nextPut:'    Name.Function
' '           Text
'$;'          Literal.String.Char
']'           Text
'.'           Punctuation
'\n\t'        Text
'1'           Literal.Number
' '           Text
'to:'         Name.Function
' '           Text
'self'        Name.Builtin.Pseudo
' '           Text
'basicSize'   Name.Function
' '           Text
'do:'         Name.Function
'\n\t\t'      Text
'['           Text
':'           Operator
'i'           Name.Variable
' '           Text
'|'           Operator
'\n\t\t'      Text
'aStream'     Name.Variable
' '           Text
'nextPutAll:' Name.Function
' '           Text
"' basicAt: '" Literal.String
';'           Punctuation
'\n\t\t\t'    Text
'store:'      Name.Function
' '           Text
'i'           Name.Variable
';'           Punctuation
'\n\t\t\t'    Text
'nextPutAll:' Name.Function
' '           Text
"' put: '"    Literal.String
';'           Punctuation
'\n\t\t\t'    Text
'store:'      Name.Function
' '           Text
'('           Text
'self'        Name.Builtin.Pseudo
' '           Text
'basicAt:'    Name.Function
' '           Text
'i'           Name.Variable
')'           Text
';'           Punctuation
'\n\t\t\t'    Text
'nextPut:'    Name.Function
' '           Text
'$;'          Literal.String.Char
']'           Text
'.'           Punctuation
'\n\t'        Text
'aStream'     Name.Variable
' '           Text
'nextPutAll:' Name.Function
' '           Text
"' yourself)'" Literal.String
'\n'          Text

'! !'         Keyword
'\n\n'        Text

'!'           Keyword
'Object'      Name.Class
' methodsFor: ' Keyword
"'printing'"  Literal.String
" stamp: 'di 6/20/97 09:12'!" Keyword
'\n'          Text

'storeString' Name.Function
'\n\t'        Text
'"Answer a String representation of the receiver from which the receiver \n\tcan be reconstructed."' Comment
'\n\n\t'      Text
'^'           Operator
' '           Text
'String'      Name.Class
' '           Text
'streamContents:' Name.Function
' '           Text
'['           Text
':'           Operator
's'           Name.Variable
' '           Text
'|'           Operator
' '           Text
'self'        Name.Builtin.Pseudo
' '           Text
'storeOn:'    Name.Function
' '           Text
's'           Name.Variable
']'           Text
'! !'         Keyword
'\n\n'        Text

'!'           Keyword
'Object'      Name.Class
' methodsFor: ' Keyword
"'printing'"  Literal.String
" stamp: 'sw 5/2/1998 13:55'!" Keyword
'\n'          Text

'stringForReadout' Name.Function
'\n\t'        Text
'^'           Operator
' '           Text
'self'        Name.Builtin.Pseudo
' '           Text
'stringRepresentation' Name.Function
'! !'         Keyword
'\n\n'        Text

'!'           Keyword
'Object'      Name.Class
' methodsFor: ' Keyword
"'printing'"  Literal.String
'!'           Keyword
'\n'          Text

'stringRepresentation' Name.Function
'\n\t'        Text
'"Answer a string that represents the receiver.  For most objects this is simply its printString, but for strings themselves, it\'s themselves.  6/12/96 sw"' Comment
'\n\n\t'      Text
'^'           Operator
' '           Text
'self'        Name.Builtin.Pseudo
' '           Text
'printString' Name.Function
' '           Text
'! !'         Keyword
'\n\n\n'      Text

'!'           Keyword
'Object'      Name.Class
' methodsFor: ' Keyword
"'scripting'" Literal.String
" stamp: 'ar 3/17/2001 20:11'!" Keyword
'\n'          Text

'adaptedToWorld:' Name.Function
' '           Text
'aWorld'      Name.Variable
'\n\t'        Text
'"If I refer to a world or a hand, return the corresponding items in the new world."' Comment
'\n\t'        Text
'^'           Operator
'self'        Name.Builtin.Pseudo
'! !'         Keyword
'\n\n'        Text

'!'           Keyword
'Object'      Name.Class
' methodsFor: ' Keyword
"'scripting'" Literal.String
" stamp: 'sw 3/10/2000 13:57'!" Keyword
'\n'          Text

'defaultFloatPrecisionFor:' Name.Function
' '           Text
'aGetSelector' Name.Variable
'\n\t'        Text
'"Answer a number indicating the default float precision to be used in a numeric readout for which the receiver is the model."' Comment
'\n\n\t'      Text
'^'           Operator
' '           Text
'1'           Literal.Number
'! !'         Keyword
'\n\n'        Text

'!'           Keyword
'Object'      Name.Class
' methodsFor: ' Keyword
"'scripting'" Literal.String
" stamp: 'RAA 3/9/2001 17:08'!" Keyword
'\n'          Text

'evaluateUnloggedForSelf:' Name.Function
' '           Text
'aCodeString' Name.Variable
'\n\n\t'      Text
'^'           Operator
'Compiler'    Name.Class
' '           Text
'evaluate:'   Name.Function
'\n\t\t'      Text
'aCodeString' Name.Variable
'\n\t\t'      Text
'for:'        Name.Function
' '           Text
'self'        Name.Builtin.Pseudo
'\n\t\t'      Text
'logged:'     Name.Function
' '           Text
'false'       Name.Builtin.Pseudo
'! !'         Keyword
'\n\n'        Text

'!'           Keyword
'Object'      Name.Class
' methodsFor: ' Keyword
"'scripting'" Literal.String
" stamp: 'yo 12/25/2003 16:43'!" Keyword
'\n'          Text

'methodInterfacesForCategory:' Name.Function
' '           Text
'aCategorySymbol' Name.Variable
' '           Text
'inVocabulary:' Name.Function
' '           Text
'aVocabulary' Name.Variable
' '           Text
'limitClass:' Name.Function
' '           Text
'aLimitClass' Name.Variable
'\n\t'        Text
'"Return a list of methodInterfaces for the receiver in the given category, given a vocabulary.  aCategorySymbol is the inherent category symbol, not necessarily the wording as expressed in the vocabulary."' Comment
'\n\n\t'      Text
'|'           Operator
' categorySymbol ' Name.Variable
'|'           Operator
'\n\t'        Text
'categorySymbol' Name.Variable
' '           Text
'_'           Operator
' '           Text
'aCategorySymbol' Name.Variable
' '           Text
'asSymbol'    Name.Function
'.'           Punctuation
'\n\n\t'      Text
'('           Text
'categorySymbol' Name.Variable
' '           Text
'=='          Name.Function
' '           Text
'ScriptingSystem' Name.Class
' '           Text
'nameForInstanceVariablesCategory' Name.Function
')'           Text
' '           Text
'ifTrue:'     Name.Builtin
' '           Text
'['           Text
'\n\t\t'      Text
'"user-defined instance variables"' Comment
'\n\t\t'      Text
'^'           Operator
' '           Text
'self'        Name.Builtin.Pseudo
' '           Text
'methodInterfacesForInstanceVariablesCategoryIn:' Name.Function
' '           Text
'aVocabulary' Name.Variable
']'           Text
'.'           Punctuation
'\n\t'        Text
'('           Text
'categorySymbol' Name.Variable
' '           Text
'=='          Name.Function
' '           Text
'ScriptingSystem' Name.Class
' '           Text
'nameForScriptsCategory' Name.Function
')'           Text
' '           Text
'ifTrue:'     Name.Builtin
' '           Text
'['           Text
'\n\t\t'      Text
'"user-defined scripts"' Comment
'\n\t\t'      Text
'^'           Operator
' '           Text
'self'        Name.Builtin.Pseudo
' '           Text
'methodInterfacesForScriptsCategoryIn:' Name.Function
' '           Text
'aVocabulary' Name.Variable
']'           Text
'.'           Punctuation
'\n\t'        Text
'"all others"' Comment
'\n\t'        Text
'^'           Operator
' '           Text
'self'        Name.Builtin.Pseudo
' '           Text
'usableMethodInterfacesIn:' Name.Function
' '           Text
'('           Text
'aVocabulary' Name.Variable
' '           Text
'methodInterfacesInCategory:' Name.Function
' '           Text
'categorySymbol' Name.Variable
'\n\t\t'      Text
'forInstance:' Name.Function
' '           Text
'self'        Name.Builtin.Pseudo
'\n\t\t'      Text
'ofClass:'    Name.Function
' '           Text
'self'        Name.Builtin.Pseudo
' '           Text
'class'       Name.Function
'\n\t\t'      Text
'limitClass:' Name.Function
' '           Text
'aLimitClass' Name.Variable
')'           Text
'\n'          Text

'! !'         Keyword
'\n\n'        Text

'!'           Keyword
'Object'      Name.Class
' methodsFor: ' Keyword
"'scripting'" Literal.String
" stamp: 'sw 8/3/2001 13:54'!" Keyword
'\n'          Text

'methodInterfacesForInstanceVariablesCategoryIn:' Name.Function
' '           Text
'aVocabulary' Name.Variable
'\n\t'        Text
'"Return a collection of methodInterfaces for the instance-variables category.  The vocabulary parameter, at present anyway, is not used.  And for non-players, the method is at present vacuous in any case"' Comment
'\n\n\t'      Text
'^'           Operator
'  '          Text
'OrderedCollection' Name.Class
' '           Text
'new'         Name.Builtin
'! !'         Keyword
'\n\n'        Text

'!'           Keyword
'Object'      Name.Class
' methodsFor: ' Keyword
"'scripting'" Literal.String
" stamp: 'sw 8/3/2001 13:53'!" Keyword
'\n'          Text

'methodInterfacesForScriptsCategoryIn:' Name.Function
' '           Text
'aVocabulary' Name.Variable
'\n\t'        Text
'"Answer a list of method interfaces for the category #scripts, as seen in a viewer or other tool.  The vocabulary argument is not presently used.  Also, at present, only Players really do anyting interesting here."' Comment
'\n\n\t'      Text
'^'           Operator
' '           Text
'OrderedCollection' Name.Class
' '           Text
'new'         Name.Builtin
'! !'         Keyword
'\n\n'        Text

'!'           Keyword
'Object'      Name.Class
' methodsFor: ' Keyword
"'scripting'" Literal.String
" stamp: 'RAA 2/16/2001 19:37'!" Keyword
'\n'          Text

'selfWrittenAsIll' Name.Function
'\n'          Text

'\n\t'        Text
'^'           Operator
'self'        Name.Builtin.Pseudo
'! !'         Keyword
'\n\n'        Text

'!'           Keyword
'Object'      Name.Class
' methodsFor: ' Keyword
"'scripting'" Literal.String
" stamp: 'RAA 2/16/2001 19:38'!" Keyword
'\n'          Text

'selfWrittenAsIm' Name.Function
'\n'          Text

'\n\t'        Text
'^'           Operator
'self'        Name.Builtin.Pseudo
'! !'         Keyword
'\n\n'        Text

'!'           Keyword
'Object'      Name.Class
' methodsFor: ' Keyword
"'scripting'" Literal.String
" stamp: 'RAA 2/16/2001 19:37'!" Keyword
'\n'          Text

'selfWrittenAsMe' Name.Function
'\n'          Text

'\n\t'        Text
'^'           Operator
'self'        Name.Builtin.Pseudo
'! !'         Keyword
'\n\n'        Text

'!'           Keyword
'Object'      Name.Class
' methodsFor: ' Keyword
"'scripting'" Literal.String
" stamp: 'RAA 2/16/2001 19:37'!" Keyword
'\n'          Text

'selfWrittenAsMy' Name.Function
'\n'          Text

'\n\t'        Text
'^'           Operator
'self'        Name.Builtin.Pseudo
'! !'         Keyword
'\n\n'        Text

'!'           Keyword
'Object'      Name.Class
' methodsFor: ' Keyword
"'scripting'" Literal.String
" stamp: 'RAA 2/16/2001 19:38'!" Keyword
'\n'          Text

'selfWrittenAsThis' Name.Function
'\n'          Text

'\n\t'        Text
'^'           Operator
'self'        Name.Builtin.Pseudo
'! !'         Keyword
'\n\n\n'      Text

'!'           Keyword
'Object'      Name.Class
' methodsFor: ' Keyword
"'scripts-kernel'" Literal.String
" stamp: 'nk 10/14/2004 10:55'!" Keyword
'\n'          Text

'universalTilesForGetterOf:' Name.Function
' '           Text
'aMethodInterface' Name.Variable
'\n\t'        Text
'"Return universal tiles for a getter on the given method interface."' Comment
'\n\n\t'      Text
'|'           Operator
' ms argTile argArray itsSelector ' Name.Variable
'|'           Operator
'\n\t'        Text
'itsSelector' Name.Variable
' '           Text
'_'           Operator
' '           Text
'aMethodInterface' Name.Variable
' '           Text
'selector'    Name.Function
'.'           Punctuation
'\n\t'        Text
'argArray'    Name.Variable
' '           Text
'_'           Operator
' '           Text
'#('          Literal.String.Symbol
')'           Literal.String.Symbol
'.'           Punctuation
'\n\n\t'      Text
'"Four gratuituous special cases..."' Comment
'\n\n\t'      Text
'('           Text
'itsSelector' Name.Variable
' '           Text
'=='          Name.Function
' '           Text
'#color:sees:' Literal.String.Symbol
')'           Text
' '           Text
'ifTrue:'     Name.Builtin
'\n\t\t'      Text
'['           Text
'argTile'     Name.Variable
' '           Text
'_'           Operator
' '           Text
'ScriptingSystem' Name.Class
' '           Text
'tileForArgType:' Name.Function
' '           Text
'#Color'      Literal.String.Symbol
'.'           Punctuation
'\n\t\t'      Text
'argArray'    Name.Variable
' '           Text
'_'           Operator
' '           Text
'Array'       Name.Class
' '           Text
'with:'       Name.Function
' '           Text
'argTile'     Name.Variable
' '           Text
'colorSwatch' Name.Function
' '           Text
'color'       Name.Function
' '           Text
'with:'       Name.Function
' '           Text
'argTile'     Name.Variable
' '           Text
'colorSwatch' Name.Function
' '           Text
'color'       Name.Function
' '           Text
'copy'        Name.Function
']'           Text
'.'           Punctuation
'\n\n\t'      Text
'itsSelector' Name.Variable
' '           Text
'=='          Name.Function
' '           Text
'#seesColor:' Literal.String.Symbol
' '           Text
'ifTrue:'     Name.Builtin
'\n\t\t'      Text
'['           Text
'argTile'     Name.Variable
' '           Text
'_'           Operator
' '           Text
'ScriptingSystem' Name.Class
' '           Text
'tileForArgType:' Name.Function
' '           Text
'#Color'      Literal.String.Symbol
'.'           Punctuation
'\n\t\t'      Text
'argArray'    Name.Variable
' '           Text
'_'           Operator
'  '          Text
'Array'       Name.Class
' '           Text
'with:'       Name.Function
' '           Text
'argTile'     Name.Variable
' '           Text
'colorSwatch' Name.Function
' '           Text
'color'       Name.Function
']'           Text
'.'           Punctuation
'\n\n\t'      Text
'('           Text
'#('          Literal.String.Symbol
'touchesA:'   Literal.String.Symbol
' '           Text
'overlaps:'   Literal.String.Symbol
' '           Text
'overlapsAny:' Literal.String.Symbol
')'           Literal.String.Symbol
' '           Text
'includes:'   Name.Function
' '           Text
'itsSelector' Name.Variable
')'           Text
' '           Text
'ifTrue:'     Name.Builtin
'\n\t\t'      Text
'['           Text
'argTile'     Name.Variable
' '           Text
'_'           Operator
' '           Text
'ScriptingSystem' Name.Class
' '           Text
'tileForArgType:' Name.Function
' '           Text
'#Player'     Literal.String.Symbol
'.'           Punctuation
'\n\t\t'      Text
'argArray'    Name.Variable
' '           Text
'_'           Operator
' '           Text
'Array'       Name.Class
' '           Text
'with:'       Name.Function
' '           Text
'argTile'     Name.Variable
' '           Text
'actualObject' Name.Function
']'           Text
'.'           Punctuation
'\n\n\t'      Text
'ms'          Name.Variable
' '           Text
'_'           Operator
' '           Text
'MessageSend' Name.Class
' '           Text
'receiver:'   Name.Function
' '           Text
'self'        Name.Builtin.Pseudo
' '           Text
'selector:'   Name.Function
' '           Text
'itsSelector' Name.Variable
' '           Text
'arguments:'  Name.Function
' '           Text
'argArray'    Name.Variable
'.'           Punctuation
'\n\t'        Text
'^'           Operator
' '           Text
'ms'          Name.Variable
' '           Text
'asTilesIn:'  Name.Function
' '           Text
'self'        Name.Builtin.Pseudo
' '           Text
'class'       Name.Function
' '           Text
'globalNames:' Name.Function
' '           Text
'('           Text
'self'        Name.Builtin.Pseudo
' '           Text
'class'       Name.Function
' '           Text
'officialClass' Name.Function
' '           Text
'~~'          Name.Function
' '           Text
'CardPlayer'  Name.Class
')'           Text
'\n\t\t\t'    Text
'"For CardPlayers, use \'self\'.  For others, name it, and use its name."' Comment
'! !'         Keyword
'\n\n'        Text

'!'           Keyword
'Object'      Name.Class
' methodsFor: ' Keyword
"'scripts-kernel'" Literal.String
" stamp: 'tk 9/28/2001 13:30'!" Keyword
'\n'          Text

'universalTilesForInterface:' Name.Function
' '           Text
'aMethodInterface' Name.Variable
'\n\t'        Text
'"Return universal tiles for the given method interface.  Record who self is."' Comment
'\n\n\t'      Text
'|'           Operator
' ms argTile itsSelector aType argList ' Name.Variable
'|'           Operator
'\n\t'        Text
'itsSelector' Name.Variable
' '           Text
'_'           Operator
' '           Text
'aMethodInterface' Name.Variable
' '           Text
'selector'    Name.Function
'.'           Punctuation
'\n\t'        Text
'argList'     Name.Variable
' '           Text
'_'           Operator
' '           Text
'OrderedCollection' Name.Class
' '           Text
'new'         Name.Builtin
'.'           Punctuation
'\n\t'        Text
'aMethodInterface' Name.Variable
' '           Text
'argumentVariables' Name.Function
' '           Text
'doWithIndex:' Name.Function
'\n\t\t'      Text
'['           Text
':'           Operator
'anArgumentVariable' Name.Variable
' '           Text
':'           Operator
'anIndex'     Name.Variable
' '           Text
'|'           Operator
' \n\t\t\t'   Text
'argTile'     Name.Variable
' '           Text
'_'           Operator
' '           Text
'ScriptingSystem' Name.Class
' '           Text
'tileForArgType:' Name.Function
' '           Text
'('           Text
'aType'       Name.Variable
' '           Text
'_'           Operator
' '           Text
'aMethodInterface' Name.Variable
' '           Text
'typeForArgumentNumber:' Name.Function
' '           Text
'anIndex'     Name.Variable
')'           Text
'.'           Punctuation
'\n\t\t\t'    Text
'argList'     Name.Variable
' '           Text
'add:'        Name.Function
' '           Text
'('           Text
'aType'       Name.Variable
' '           Text
'=='          Name.Function
' '           Text
'#Player'     Literal.String.Symbol
' \n\t\t\t\t' Text
'ifTrue:'     Name.Builtin
' '           Text
'['           Text
'argTile'     Name.Variable
' '           Text
'actualObject' Name.Function
']'           Text
'\n\t\t\t\t'  Text
'ifFalse:'    Name.Builtin
' '           Text
'['           Text
'argTile'     Name.Variable
' '           Text
'literal'     Name.Function
']'           Text
')'           Text
'.'           Punctuation
'\t'          Text
'"default value for each type"' Comment
']'           Text
'.'           Punctuation
'\n\n\t'      Text
'ms'          Name.Variable
' '           Text
'_'           Operator
' '           Text
'MessageSend' Name.Class
' '           Text
'receiver:'   Name.Function
' '           Text
'self'        Name.Builtin.Pseudo
' '           Text
'selector:'   Name.Function
' '           Text
'itsSelector' Name.Variable
' '           Text
'arguments:'  Name.Function
' '           Text
'argList'     Name.Variable
' '           Text
'asArray'     Name.Function
'.'           Punctuation
'\n\t'        Text
'^'           Operator
' '           Text
'ms'          Name.Variable
' '           Text
'asTilesIn:'  Name.Function
' '           Text
'self'        Name.Builtin.Pseudo
' '           Text
'class'       Name.Function
' '           Text
'globalNames:' Name.Function
' '           Text
'('           Text
'self'        Name.Builtin.Pseudo
' '           Text
'class'       Name.Function
' '           Text
'officialClass' Name.Function
' '           Text
'~~'          Name.Function
' '           Text
'CardPlayer'  Name.Class
')'           Text
'\n\t\t\t'    Text
'"For CardPlayers, use \'self\'.  For others, name it, and use its name."' Comment
'! !'         Keyword
'\n\n\n'      Text

'!'           Keyword
'Object'      Name.Class
' methodsFor: ' Keyword
"'self evaluating'" Literal.String
" stamp: 'sd 7/31/2005 21:47'!" Keyword
'\n'          Text

'isSelfEvaluating' Name.Function
'\n\t'        Text
'^'           Operator
' '           Text
'self'        Name.Builtin.Pseudo
' '           Text
'isLiteral'   Name.Function
'! !'         Keyword
'\n\n\n'      Text

'!'           Keyword
'Object'      Name.Class
' methodsFor: ' Keyword
"'system primitives'" Literal.String
'!'           Keyword
'\n'          Text

'asOop'       Name.Function
'\n\t'        Text
'"Primitive. Answer a SmallInteger whose value is half of the receiver\'s \n\tobject pointer (interpreting object pointers as 16-bit signed quantities). \n\tFail if the receiver is a SmallInteger. Essential. See Object documentation \n\twhatIsAPrimitive."' Comment
'\n\n\t'      Text
'<'           Text
'primitive:'  Keyword
' 75'         Text
'>'           Text
'\n\t'        Text
'self'        Name.Builtin.Pseudo
' '           Text
'primitiveFailed' Name.Function
'! !'         Keyword
'\n\n'        Text

'!'           Keyword
'Object'      Name.Class
' methodsFor: ' Keyword
"'system primitives'" Literal.String
" stamp: 'di 1/9/1999 15:19'!" Keyword
'\n'          Text

'becomeForward:' Name.Function
' '           Text
'otherObject' Name.Variable
' \n\t'       Text
'"Primitive. All variables in the entire system that used to point\n\tto the receiver now point to the argument.\n\tFails if either argument is a SmallInteger."' Comment
'\n\n\t'      Text
'('           Text
'Array'       Name.Class
' '           Text
'with:'       Name.Function
' '           Text
'self'        Name.Builtin.Pseudo
')'           Text
'\n\t\t'      Text
'elementsForwardIdentityTo:' Name.Function
'\n\t\t\t'    Text
'('           Text
'Array'       Name.Class
' '           Text
'with:'       Name.Function
' '           Text
'otherObject' Name.Variable
')'           Text
'! !'         Keyword
'\n\n'        Text

'!'           Keyword
'Object'      Name.Class
' methodsFor: ' Keyword
"'system primitives'" Literal.String
" stamp: 'zz 3/3/2004 23:53'!" Keyword
'\n'          Text

'becomeForward:' Name.Function
' '           Text
'otherObject' Name.Variable
' '           Text
'copyHash:'   Name.Function
' '           Text
'copyHash'    Name.Variable
'\n\t'        Text
'"Primitive. All variables in the entire system that used to point to the receiver now point to the argument.\n\tIf copyHash is true, the argument\'s identity hash bits will be set to those of the receiver.\n\tFails if either argument is a SmallInteger."' Comment
'\n\n\t'      Text
'('           Text
'Array'       Name.Class
' '           Text
'with:'       Name.Function
' '           Text
'self'        Name.Builtin.Pseudo
')'           Text
'\n\t\t'      Text
'elementsForwardIdentityTo:' Name.Function
'\n\t\t\t'    Text
'('           Text
'Array'       Name.Class
' '           Text
'with:'       Name.Function
' '           Text
'otherObject' Name.Variable
')'           Text
'\n\t\t\t\t'  Text
'copyHash:'   Name.Function
' '           Text
'copyHash'    Name.Variable
'! !'         Keyword
'\n\n'        Text

'!'           Keyword
'Object'      Name.Class
' methodsFor: ' Keyword
"'system primitives'" Literal.String
" stamp: 'sw 10/16/2000 10:59'!" Keyword
'\n'          Text

'className'   Name.Function
'\n\t'        Text
'"Answer a string characterizing the receiver\'s class, for use in list views for example"' Comment
'\n\n\t'      Text
'^'           Operator
' '           Text
'self'        Name.Builtin.Pseudo
' '           Text
'class'       Name.Function
' '           Text
'name'        Name.Function
' '           Text
'asString'    Name.Function
'! !'         Keyword
'\n\n'        Text

'!'           Keyword
'Object'      Name.Class
' methodsFor: ' Keyword
"'system primitives'" Literal.String
" stamp: 'sw 10/16/2000 11:04'!" Keyword
'\n'          Text

'creationStamp' Name.Function
'\n\t'        Text
'"Answer a string which reports the creation particulars of the receiver.  Intended perhaps for list views, but this is presently a feature not easily accessible"' Comment
'\n\n\t'      Text
'^'           Operator
' '           Text
"'<no creation stamp>'" Literal.String
'! !'         Keyword
'\n\n'        Text

'!'           Keyword
'Object'      Name.Class
' methodsFor: ' Keyword
"'system primitives'" Literal.String
'!'           Keyword
'\n'          Text

'instVarAt:'  Name.Function
' '           Text
'index'       Name.Variable
' \n\t'       Text
'"Primitive. Answer a fixed variable in an object. The numbering of the \n\tvariables corresponds to the named instance variables. Fail if the index \n\tis not an Integer or is not the index of a fixed variable. Essential. See \n\tObject documentation whatIsAPrimitive."' Comment
'\n\n\t'      Text
'<'           Text
'primitive:'  Keyword
' 73'         Text
'>'           Text
'\n\t'        Text
'"Access beyond fixed variables."' Comment
'\n\t'        Text
'^'           Operator
'self'        Name.Builtin.Pseudo
' '           Text
'basicAt:'    Name.Function
' '           Text
'index'       Name.Variable
' '           Text
'-'           Name.Function
' '           Text
'self'        Name.Builtin.Pseudo
' '           Text
'class'       Name.Function
' '           Text
'instSize'    Name.Function
'\t\t'        Text
'! !'         Keyword
'\n\n'        Text

'!'           Keyword
'Object'      Name.Class
' methodsFor: ' Keyword
"'system primitives'" Literal.String
'!'           Keyword
'\n'          Text

'instVarAt:'  Name.Function
' '           Text
'anInteger'   Name.Variable
' '           Text
'put:'        Name.Function
' '           Text
'anObject'    Name.Variable
' \n\t'       Text
'"Primitive. Store a value into a fixed variable in the receiver. The \n\tnumbering of the variables corresponds to the named instance variables. \n\tFail if the index is not an Integer or is not the index of a fixed variable. \n\tAnswer the value stored as the result. Using this message violates the \n\tprinciple that each object has sovereign control over the storing of \n\tvalues into its instance variables. Essential. See Object documentation \n\twhatIsAPrimitive."' Comment
'\n\n\t'      Text
'<'           Text
'primitive:'  Keyword
' 74'         Text
'>'           Text
'\n\t'        Text
'"Access beyond fixed fields"' Comment
'\n\t'        Text
'^'           Operator
'self'        Name.Builtin.Pseudo
' '           Text
'basicAt:'    Name.Function
' '           Text
'anInteger'   Name.Variable
' '           Text
'-'           Name.Function
' '           Text
'self'        Name.Builtin.Pseudo
' '           Text
'class'       Name.Function
' '           Text
'instSize'    Name.Function
' '           Text
'put:'        Name.Function
' '           Text
'anObject'    Name.Variable
'! !'         Keyword
'\n\n'        Text

'!'           Keyword
'Object'      Name.Class
' methodsFor: ' Keyword
"'system primitives'" Literal.String
" stamp: 'sw 10/16/2000 11:09'!" Keyword
'\n'          Text

'instVarNamed:' Name.Function
' '           Text
'aString'     Name.Variable
'\n\t'        Text
'"Return the value of the instance variable in me with that name.  Slow and unclean, but very useful. "' Comment
'\n\n\t'      Text
'^'           Operator
' '           Text
'self'        Name.Builtin.Pseudo
' '           Text
'instVarAt:'  Name.Function
' '           Text
'('           Text
'self'        Name.Builtin.Pseudo
' '           Text
'class'       Name.Function
' '           Text
'allInstVarNames' Name.Function
' '           Text
'indexOf:'    Name.Function
' '           Text
'aString'     Name.Variable
' '           Text
'asString'    Name.Function
')'           Text
'\n\n\n'      Text

'! !'         Keyword
'\n\n'        Text

'!'           Keyword
'Object'      Name.Class
' methodsFor: ' Keyword
"'system primitives'" Literal.String
" stamp: 'sw 10/16/2000 11:10'!" Keyword
'\n'          Text

'instVarNamed:' Name.Function
' '           Text
'aString'     Name.Variable
' '           Text
'put:'        Name.Function
' '           Text
'aValue'      Name.Variable
'\n\t'        Text
'"Store into the value of the instance variable in me of that name.  Slow and unclean, but very useful. "' Comment
'\n\n\t'      Text
'^'           Operator
' '           Text
'self'        Name.Builtin.Pseudo
' '           Text
'instVarAt:'  Name.Function
' '           Text
'('           Text
'self'        Name.Builtin.Pseudo
' '           Text
'class'       Name.Function
' '           Text
'allInstVarNames' Name.Function
' '           Text
'indexOf:'    Name.Function
' '           Text
'aString'     Name.Variable
' '           Text
'asString'    Name.Function
')'           Text
' '           Text
'put:'        Name.Function
' '           Text
'aValue'      Name.Variable
'\n'          Text

'! !'         Keyword
'\n\n'        Text

'!'           Keyword
'Object'      Name.Class
' methodsFor: ' Keyword
"'system primitives'" Literal.String
" stamp: 'sw 10/17/2000 11:12'!" Keyword
'\n'          Text

'oopString'   Name.Function
'\n\t'        Text
'"Answer a string that represents the oop of the receiver"' Comment
'\n\n\t'      Text
'^'           Operator
' '           Text
'self'        Name.Builtin.Pseudo
' '           Text
'asOop'       Name.Function
' '           Text
'printString' Name.Function
'! !'         Keyword
'\n\n'        Text

'!'           Keyword
'Object'      Name.Class
' methodsFor: ' Keyword
"'system primitives'" Literal.String
" stamp: 'ar 3/2/2001 01:34'!" Keyword
'\n'          Text

'primitiveChangeClassTo:' Name.Function
' '           Text
'anObject'    Name.Variable
'\n\t'        Text
'"Primitive. Change the class of the receiver into the class of the argument given that the format of the receiver matches the format of the argument\'s class. Fail if receiver or argument are SmallIntegers, or the receiver is an instance of a compact class and the argument isn\'t, or when the argument\'s class is compact and the receiver isn\'t, or when the format of the receiver is different from the format of the argument\'s class, or when the arguments class is fixed and the receiver\'s size differs from the size that an instance of the argument\'s class should have.\n\tNote: The primitive will fail in most cases that you think might work. This is mostly because of a) the difference between compact and non-compact classes, and b) because of differences in the format. As an example, \'(Array new: 3) primitiveChangeClassTo: Morph basicNew\' would fail for three of the reasons mentioned above. Array is compact, Morph is not (failure #1). Array is variable and Morph is fixed (different format - failure #2). Morph is a fixed-field-only object and the array is too short (failure #3).\n\tThe facility is really provided for certain, very specific applications (mostly related to classes changing shape) and not for casual use."' Comment
'\n\n\t'      Text
'<'           Text
'primitive:'  Keyword
' 115'        Text
'>'           Text
'\n\t'        Text
'self'        Name.Builtin.Pseudo
' '           Text
'primitiveFailed' Name.Function
'! !'         Keyword
'\n\n'        Text

'!'           Keyword
'Object'      Name.Class
' methodsFor: ' Keyword
"'system primitives'" Literal.String
" stamp: 'di 3/27/1999 12:21'!" Keyword
'\n'          Text

'rootStubInImageSegment:' Name.Function
' '           Text
'imageSegment' Name.Variable
'\n\n\t'      Text
'^'           Operator
' '           Text
'ImageSegmentRootStub' Name.Class
' '           Text
'new'         Name.Builtin
'\n\t\t'      Text
'xxSuperclass:' Name.Function
' '           Text
'nil'         Name.Builtin.Pseudo
'\n\t\t'      Text
'format:'     Name.Function
' '           Text
'nil'         Name.Builtin.Pseudo
'\n\t\t'      Text
'segment:'    Name.Function
' '           Text
'imageSegment' Name.Variable
'! !'         Keyword
'\n\n'        Text

'!'           Keyword
'Object'      Name.Class
' methodsFor: ' Keyword
"'system primitives'" Literal.String
'!'           Keyword
'\n'          Text

'someObject'  Name.Function
'\n\t'        Text
'"Primitive. Answer the first object in the enumeration of all\n\t objects."' Comment
'\n\n\t'      Text
'<'           Text
'primitive:'  Keyword
' 138'        Text
'>'           Text
'\n\t'        Text
'self'        Name.Builtin.Pseudo
' '           Text
'primitiveFailed' Name.Function
'.'           Punctuation
'! !'         Keyword
'\n\n\n'      Text

'!'           Keyword
'Object'      Name.Class
' methodsFor: ' Keyword
"'testing'"   Literal.String
" stamp: 'sw 9/26/2001 11:58'!" Keyword
'\n'          Text

'basicType'   Name.Function
'\n\t'        Text
'"Answer a symbol representing the inherent type of the receiver"' Comment
'\n\n\t'      Text
'^'           Operator
' '           Text
'#Object'     Literal.String.Symbol
'! !'         Keyword
'\n\n'        Text

'!'           Keyword
'Object'      Name.Class
' methodsFor: ' Keyword
"'testing'"   Literal.String
" stamp: 'sw 5/3/2001 16:19'!" Keyword
'\n'          Text

'beViewed'    Name.Function
'\n\t'        Text
'"Open up a viewer on the receiver.  The Presenter is invited to decide just how to present this viewer"' Comment
'\n\n\t'      Text
'self'        Name.Builtin.Pseudo
' '           Text
'uniqueNameForReference' Name.Function
'.'           Punctuation
'  '          Text
'"So the viewer will have something nice to refer to"' Comment
'\n\t'        Text
'self'        Name.Builtin.Pseudo
' '           Text
'presenter'   Name.Function
' '           Text
'viewObject:' Name.Function
' '           Text
'self'        Name.Builtin.Pseudo
'! !'         Keyword
'\n\n'        Text

'!'           Keyword
'Object'      Name.Class
' methodsFor: ' Keyword
"'testing'"   Literal.String
" stamp: 'sw 10/16/2000 11:01'!" Keyword
'\n'          Text

'costumes'    Name.Function
'\n\t'        Text
'"Answer a list of costumes associated with the receiver.  The appearance of this method in class Object serves only as a backstop, probably only transitionally"' Comment
'\n\n\t'      Text
'^'           Operator
' '           Text
'nil'         Name.Builtin.Pseudo
'! !'         Keyword
'\n\n'        Text

'!'           Keyword
'Object'      Name.Class
' methodsFor: ' Keyword
"'testing'"   Literal.String
" stamp: 'sw 1/12/98 18:09'!" Keyword
'\n'          Text

'haltIfNil'   Name.Variable
'! !'         Keyword
'\n\n'        Text

'!'           Keyword
'Object'      Name.Class
' methodsFor: ' Keyword
"'testing'"   Literal.String
" stamp: 'md 1/20/2006 17:09'!" Keyword
'\n'          Text

'hasLiteralSuchThat:' Name.Function
' '           Text
'testBlock'   Name.Variable
'\n\t'        Text
'"This is the end of the imbedded structure path so return false."' Comment
'\n\n\t'      Text
'^'           Operator
' '           Text
'false'       Name.Builtin.Pseudo
'! !'         Keyword
'\n\n'        Text

'!'           Keyword
'Object'      Name.Class
' methodsFor: ' Keyword
"'testing'"   Literal.String
" stamp: 'md 1/20/2006 17:10'!" Keyword
'\n'          Text

'hasLiteralThorough:' Name.Function
' '           Text
'literal'     Name.Variable
'\n\t'        Text
'"Answer true if literal is identical to any literal in this array, even if imbedded in further structures.  This is the end of the imbedded structure path so return false."' Comment
'\n\n\t'      Text
'^'           Operator
' '           Text
'false'       Name.Builtin.Pseudo
'! !'         Keyword
'\n\n'        Text

'!'           Keyword
'Object'      Name.Class
' methodsFor: ' Keyword
"'testing'"   Literal.String
" stamp: 'sw 1/30/2001 22:24'!" Keyword
'\n'          Text

'haveFullProtocolBrowsed' Name.Function
'\n\t'        Text
'"Open up a Lexicon on the receiver"' Comment
'\n\n\t'      Text
'^'           Operator
' '           Text
'self'        Name.Builtin.Pseudo
' '           Text
'haveFullProtocolBrowsedShowingSelector:' Name.Function
' '           Text
'nil'         Name.Builtin.Pseudo
'\n\n\t'      Text
'"(2@3) haveFullProtocolBrowsed"' Comment
'\n'          Text

'! !'         Keyword
'\n\n'        Text

'!'           Keyword
'Object'      Name.Class
' methodsFor: ' Keyword
"'testing'"   Literal.String
" stamp: 'ar 9/27/2005 21:04'!" Keyword
'\n'          Text

'haveFullProtocolBrowsedShowingSelector:' Name.Function
' '           Text
'aSelector'   Name.Variable
'\n\t'        Text
'"Open up a Lexicon on the receiver, having it open up showing aSelector, which may be nil"' Comment
'\n\n\t'      Text
'|'           Operator
' aBrowser '  Name.Variable
'|'           Operator
'\n\t'        Text
'aBrowser'    Name.Variable
' '           Text
':='          Operator
' '           Text
'('           Text
'Smalltalk'   Name.Class
' '           Text
'at:'         Name.Function
' '           Text
'#InstanceBrowser' Literal.String.Symbol
' '           Text
'ifAbsent:'   Name.Function
'['           Text
'^'           Operator
'nil'         Name.Builtin.Pseudo
']'           Text
')'           Text
' '           Text
'new'         Name.Builtin
' '           Text
'useVocabulary:' Name.Function
' '           Text
'Vocabulary'  Name.Class
' '           Text
'fullVocabulary' Name.Function
'.'           Punctuation
'\n\t'        Text
'aBrowser'    Name.Variable
' '           Text
'openOnObject:' Name.Function
' '           Text
'self'        Name.Builtin.Pseudo
' '           Text
'inWorld:'    Name.Function
' '           Text
'ActiveWorld' Name.Class
' '           Text
'showingSelector:' Name.Function
' '           Text
'aSelector'   Name.Variable
'\n\n\t'      Text
'"(2@3) haveFullProtocolBrowsed"' Comment
'! !'         Keyword
'\n\n'        Text

'!'           Keyword
'Object'      Name.Class
' methodsFor: ' Keyword
"'testing'"   Literal.String
" stamp: 'md 7/30/2005 21:21'!" Keyword
'\n'          Text

'isArray'     Name.Function
'\n\t'        Text
'^'           Operator
'false'       Name.Builtin.Pseudo
'! !'         Keyword
'\n\n'        Text

'!'           Keyword
'Object'      Name.Class
' methodsFor: ' Keyword
"'testing'"   Literal.String
" stamp: 'ar 7/9/1999 18:18'!" Keyword
'\n'          Text

'isBehavior'  Name.Function
'\n\t'        Text
'"Return true if the receiver is a behavior.\n\tNote: Do not override in any class except behavior."' Comment
'\n\t'        Text
'^'           Operator
'false'       Name.Builtin.Pseudo
'! !'         Keyword
'\n\n'        Text

'!'           Keyword
'Object'      Name.Class
' methodsFor: ' Keyword
"'testing'"   Literal.String
" stamp: 'ajh 1/21/2003 13:15'!" Keyword
'\n'          Text

'isBlock'     Name.Function
'\n'          Text

'\n\t'        Text
'^'           Operator
' '           Text
'false'       Name.Builtin.Pseudo
'! !'         Keyword
'\n\n'        Text

'!'           Keyword
'Object'      Name.Class
' methodsFor: ' Keyword
"'testing'"   Literal.String
" stamp: 'md 11/21/2003 12:14'!" Keyword
'\n'          Text

'isBlockClosure' Name.Function
'\n'          Text

'\n\t'        Text
'^'           Operator
' '           Text
'false'       Name.Builtin.Pseudo
'! !'         Keyword
'\n\n'        Text

'!'           Keyword
'Object'      Name.Class
' methodsFor: ' Keyword
"'testing'"   Literal.String
" stamp: 'yo 8/28/2002 13:41'!" Keyword
'\n'          Text

'isCharacter' Name.Function
'\n'          Text

'\n\t'        Text
'^'           Operator
' '           Text
'false'       Name.Builtin.Pseudo
'.'           Punctuation
'\n'          Text

'! !'         Keyword
'\n\n'        Text

'!'           Keyword
'Object'      Name.Class
' methodsFor: ' Keyword
"'testing'"   Literal.String
" stamp: 'ar 8/17/1999 19:43'!" Keyword
'\n'          Text

'isCollection' Name.Function
'\n\t'        Text
'"Return true if the receiver is some sort of Collection and responds to basic collection messages such as #size and #do:"' Comment
'\n\t'        Text
'^'           Operator
'false'       Name.Builtin.Pseudo
'! !'         Keyword
'\n\n'        Text

'!'           Keyword
'Object'      Name.Class
' methodsFor: ' Keyword
"'testing'"   Literal.String
'!'           Keyword
'\n'          Text

'isColor'     Name.Function
'\n\t'        Text
'"Answer true if receiver is a Color. False by default."' Comment
'\n\n\t'      Text
'^'           Operator
' '           Text
'false'       Name.Builtin.Pseudo
'\n'          Text

'! !'         Keyword
'\n\n'        Text

'!'           Keyword
'Object'      Name.Class
' methodsFor: ' Keyword
"'testing'"   Literal.String
" stamp: 'nk 4/17/2004 19:43'!" Keyword
'\n'          Text

'isColorForm' Name.Function
'\n\t'        Text
'^'           Operator
'false'       Name.Builtin.Pseudo
'! !'         Keyword
'\n\n'        Text

'!'           Keyword
'Object'      Name.Class
' methodsFor: ' Keyword
"'testing'"   Literal.String
" stamp: 'md 11/21/2003 12:14'!" Keyword
'\n'          Text

'isCompiledMethod' Name.Function
'\n'          Text

'\n\t'        Text
'^'           Operator
' '           Text
'false'       Name.Builtin.Pseudo
'! !'         Keyword
'\n\n'        Text

'!'           Keyword
'Object'      Name.Class
' methodsFor: ' Keyword
"'testing'"   Literal.String
" stamp: 'mk 10/27/2003 17:33'!" Keyword
'\n'          Text

'isComplex'   Name.Function
'\n\t'        Text
'"Answer true if receiver is a Complex number. False by default."' Comment
'\n\n\t'      Text
'^'           Operator
' '           Text
'false'       Name.Builtin.Pseudo
'\n'          Text

'! !'         Keyword
'\n\n'        Text

'!'           Keyword
'Object'      Name.Class
' methodsFor: ' Keyword
"'testing'"   Literal.String
" stamp: 'md 8/11/2005 16:45'!" Keyword
'\n'          Text

'isDictionary' Name.Function
'\n\t'        Text
'^'           Operator
'false'       Name.Builtin.Pseudo
'! !'         Keyword
'\n\n'        Text

'!'           Keyword
'Object'      Name.Class
' methodsFor: ' Keyword
"'testing'"   Literal.String
" stamp: 'di 11/9/1998 09:38'!" Keyword
'\n'          Text

'isFloat'     Name.Function
'\n\t'        Text
'"Overridden to return true in Float, natch"' Comment
'\n\t'        Text
'^'           Operator
' '           Text
'false'       Name.Builtin.Pseudo
'! !'         Keyword
'\n\n'        Text

'!'           Keyword
'Object'      Name.Class
' methodsFor: ' Keyword
"'testing'"   Literal.String
" stamp: 'ar 10/30/2000 23:22'!" Keyword
'\n'          Text

'isForm'      Name.Function
'\n\t'        Text
'^'           Operator
'false'       Name.Builtin.Pseudo
'! !'         Keyword
'\n\n'        Text

'!'           Keyword
'Object'      Name.Class
' methodsFor: ' Keyword
"'testing'"   Literal.String
" stamp: 'len 1/13/98 21:18'!" Keyword
'\n'          Text

'isFraction'  Name.Function
'\n\t'        Text
'"Answer true if the receiver is a Fraction."' Comment
'\n\n\t'      Text
'^'           Operator
' '           Text
'false'       Name.Builtin.Pseudo
'! !'         Keyword
'\n\n'        Text

'!'           Keyword
'Object'      Name.Class
' methodsFor: ' Keyword
"'testing'"   Literal.String
" stamp: 'rhi 8/14/2003 08:51'!" Keyword
'\n'          Text

'isHeap'      Name.Function
'\n'          Text

'\n\t'        Text
'^'           Operator
' '           Text
'false'       Name.Builtin.Pseudo
'! !'         Keyword
'\n\n'        Text

'!'           Keyword
'Object'      Name.Class
' methodsFor: ' Keyword
"'testing'"   Literal.String
'!'           Keyword
'\n'          Text

'isInteger'   Name.Function
'\n\t'        Text
'"Overridden to return true in Integer."' Comment
'\n\n\t'      Text
'^'           Operator
' '           Text
'false'       Name.Builtin.Pseudo
'! !'         Keyword
'\n\n'        Text

'!'           Keyword
'Object'      Name.Class
' methodsFor: ' Keyword
"'testing'"   Literal.String
" stamp: 'rhi 8/12/2003 09:52'!" Keyword
'\n'          Text

'isInterval'  Name.Function
'\n'          Text

'\n\t'        Text
'^'           Operator
' '           Text
'false'       Name.Builtin.Pseudo
'! !'         Keyword
'\n\n'        Text

'!'           Keyword
'Object'      Name.Class
' methodsFor: ' Keyword
"'testing'"   Literal.String
" stamp: 'nk 4/25/2002 08:04'!" Keyword
'\n'          Text

'isMessageSend' Name.Function
'\n\t'        Text
'^'           Operator
'false'       Name.Builtin.Pseudo
'\n'          Text

'! !'         Keyword
'\n\n'        Text

'!'           Keyword
'Object'      Name.Class
' methodsFor: ' Keyword
"'testing'"   Literal.String
" stamp: 'md 2/19/2006 11:24'!" Keyword
'\n'          Text

'isMethodProperties' Name.Function
'\n\t'        Text
'^'           Operator
'false'       Name.Builtin.Pseudo
'! !'         Keyword
'\n\n'        Text

'!'           Keyword
'Object'      Name.Class
' methodsFor: ' Keyword
"'testing'"   Literal.String
'!'           Keyword
'\n'          Text

'isMorph'     Name.Function
'\n'          Text

'\n\t'        Text
'^'           Operator
' '           Text
'false'       Name.Builtin.Pseudo
'! !'         Keyword
'\n\n'        Text

'!'           Keyword
'Object'      Name.Class
' methodsFor: ' Keyword
"'testing'"   Literal.String
" stamp: 'ar 9/13/2000 15:37'!" Keyword
'\n'          Text

'isMorphicEvent' Name.Function
'\n\t'        Text
'^'           Operator
'false'       Name.Builtin.Pseudo
'! !'         Keyword
'\n\n'        Text

'!'           Keyword
'Object'      Name.Class
' methodsFor: ' Keyword
"'testing'"   Literal.String
" stamp: 'gm 2/22/2003 12:56'!" Keyword
'\n'          Text

'isMorphicModel' Name.Function
'\n\t'        Text
'"Return true if the receiver is a morphic model"' Comment
'\n\t'        Text
'^'           Operator
'false'       Name.Builtin.Pseudo
'\n'          Text

'! !'         Keyword
'\n\n'        Text

'!'           Keyword
'Object'      Name.Class
' methodsFor: ' Keyword
"'testing'"   Literal.String
'!'           Keyword
'\n'          Text

'isNumber'    Name.Function
'\n\t'        Text
'"Overridden to return true in Number, natch"' Comment
'\n\t'        Text
'^'           Operator
' '           Text
'false'       Name.Builtin.Pseudo
'! !'         Keyword
'\n\n'        Text

'!'           Keyword
'Object'      Name.Class
' methodsFor: ' Keyword
"'testing'"   Literal.String
" stamp: 'di 11/6/1998 08:04'!" Keyword
'\n'          Text

'isPoint'     Name.Function
'\n\t'        Text
'"Overridden to return true in Point."' Comment
'\n\n\t'      Text
'^'           Operator
' '           Text
'false'       Name.Builtin.Pseudo
'! !'         Keyword
'\n\n'        Text

'!'           Keyword
'Object'      Name.Class
' methodsFor: ' Keyword
"'testing'"   Literal.String
" stamp: 'ikp 9/26/97 14:45'!" Keyword
'\n'          Text

'isPseudoContext' Name.Function
'\n\t'        Text
'^'           Operator
'false'       Name.Builtin.Pseudo
'! !'         Keyword
'\n\n'        Text

'!'           Keyword
'Object'      Name.Class
' methodsFor: ' Keyword
"'testing'"   Literal.String
" stamp: 'md 10/2/2005 21:52'!" Keyword
'\n'          Text

'isRectangle' Name.Function
'\n\t'        Text
'^'           Operator
'false'       Name.Builtin.Pseudo
'! !'         Keyword
'\n\n'        Text

'!'           Keyword
'Object'      Name.Class
' methodsFor: ' Keyword
"'testing'"   Literal.String
" stamp: 'nk 6/14/2004 16:49'!" Keyword
'\n'          Text

'isSketchMorph' Name.Function
'\n\t'        Text
'^'           Operator
'false'       Name.Builtin.Pseudo
'! !'         Keyword
'\n\n'        Text

'!'           Keyword
'Object'      Name.Class
' methodsFor: ' Keyword
"'testing'"   Literal.String
" stamp: 'ar 12/23/1999 15:43'!" Keyword
'\n'          Text

'isStream'    Name.Function
'\n\t'        Text
'"Return true if the receiver responds to the stream protocol"' Comment
'\n\t'        Text
'^'           Operator
'false'       Name.Builtin.Pseudo
'\n'          Text

'! !'         Keyword
'\n\n'        Text

'!'           Keyword
'Object'      Name.Class
' methodsFor: ' Keyword
"'testing'"   Literal.String
" stamp: 'sma 6/15/2000 15:48'!" Keyword
'\n'          Text

'isString'    Name.Function
'\n\t'        Text
'"Overridden to return true in String, natch"' Comment
'\n\t'        Text
'^'           Operator
' '           Text
'false'       Name.Builtin.Pseudo
'! !'         Keyword
'\n\n'        Text

'!'           Keyword
'Object'      Name.Class
' methodsFor: ' Keyword
"'testing'"   Literal.String
" stamp: 'md 4/30/2003 15:30'!" Keyword
'\n'          Text

'isSymbol'    Name.Function
'\n\t'        Text
'^'           Operator
' '           Text
'false'       Name.Builtin.Pseudo
' '           Text
'! !'         Keyword
'\n\n'        Text

'!'           Keyword
'Object'      Name.Class
' methodsFor: ' Keyword
"'testing'"   Literal.String
" stamp: 'jam 3/9/2003 15:10'!" Keyword
'\n'          Text

'isSystemWindow' Name.Function
'\n'          Text

'"answer whatever the receiver is a SystemWindow"' Comment
'\n\t'        Text
'^'           Operator
' '           Text
'false'       Name.Builtin.Pseudo
'! !'         Keyword
'\n\n'        Text

'!'           Keyword
'Object'      Name.Class
' methodsFor: ' Keyword
"'testing'"   Literal.String
'!'           Keyword
'\n'          Text

'isText'      Name.Function
'\n\t'        Text
'^'           Operator
' '           Text
'false'       Name.Builtin.Pseudo
'! !'         Keyword
'\n\n'        Text

'!'           Keyword
'Object'      Name.Class
' methodsFor: ' Keyword
"'testing'"   Literal.String
" stamp: 'pmm 7/6/2006 20:46'!" Keyword
'\n'          Text

'isTrait'     Name.Function
'\n\t'        Text
'"Return true if the receiver is a trait.\n\tNote: Do not override in any class except TraitBehavior."' Comment
'\n\t'        Text
'^'           Operator
'false'       Name.Builtin.Pseudo
'! !'         Keyword
'\n\n'        Text

'!'           Keyword
'Object'      Name.Class
' methodsFor: ' Keyword
"'testing'"   Literal.String
" stamp: 'tk 10/21/97 12:45'!" Keyword
'\n'          Text

'isTransparent' Name.Function
'\n\t'        Text
'^'           Operator
' '           Text
'false'       Name.Builtin.Pseudo
'! !'         Keyword
'\n\n'        Text

'!'           Keyword
'Object'      Name.Class
' methodsFor: ' Keyword
"'testing'"   Literal.String
" stamp: 'ar 8/14/2001 23:19'!" Keyword
'\n'          Text

'isVariableBinding' Name.Function
'\n\t'        Text
'"Return true if I represent a literal variable binding"' Comment
'\n\t'        Text
'^'           Operator
'false'       Name.Builtin.Pseudo
'\n\t'        Text
'! !'         Keyword
'\n\n'        Text

'!'           Keyword
'Object'      Name.Class
' methodsFor: ' Keyword
"'testing'"   Literal.String
" stamp: 'ls 7/14/1998 21:45'!" Keyword
'\n'          Text

'isWebBrowser' Name.Function
'\n\t'        Text
'"whether this object is a web browser.  See class: Scamper"' Comment
'\n\t'        Text
'^'           Operator
'false'       Name.Builtin.Pseudo
'! !'         Keyword
'\n\n'        Text

'!'           Keyword
'Object'      Name.Class
' methodsFor: ' Keyword
"'testing'"   Literal.String
" stamp: 'sw 10/27/2000 06:58'!" Keyword
'\n'          Text

'knownName'   Name.Function
'\n\t'        Text
'"If a formal name has been handed out for this object, answer it, else nil"' Comment
'\n\t\n\t'    Text
'^'           Operator
' '           Text
'Preferences' Name.Class
' '           Text
'capitalizedReferences' Name.Function
'\n\t\t'      Text
'ifTrue:'     Name.Builtin
'\n\t\t\t'    Text
'['           Text
'References'  Name.Class
' '           Text
'keyAtValue:' Name.Function
' '           Text
'self'        Name.Builtin.Pseudo
' '           Text
'ifAbsent:'   Name.Function
' '           Text
'['           Text
'nil'         Name.Builtin.Pseudo
']'           Text
']'           Text
'\n\t\t'      Text
'ifFalse:'    Name.Builtin
'\n\t\t\t'    Text
'['           Text
'nil'         Name.Builtin.Pseudo
']'           Text
'! !'         Keyword
'\n\n'        Text

'!'           Keyword
'Object'      Name.Class
' methodsFor: ' Keyword
"'testing'"   Literal.String
" stamp: 'sw 9/27/96'!" Keyword
'\n'          Text

'name'        Name.Function
'\n\t'        Text
'"Answer a name for the receiver.  This is used generically in the title of certain inspectors, such as the referred-to inspector, and specificially by various subsystems.  By default, we let the object just print itself out..  "' Comment
'\n\n\t'      Text
'^'           Operator
' '           Text
'self'        Name.Builtin.Pseudo
' '           Text
'printString' Name.Function
'! !'         Keyword
'\n\n'        Text

'!'           Keyword
'Object'      Name.Class
' methodsFor: ' Keyword
"'testing'"   Literal.String
" stamp: 'sw 11/19/2001 13:28'!" Keyword
'\n'          Text

'nameForViewer' Name.Function
'\n\t'        Text
'"Answer a name to be shown in a Viewer that is viewing the receiver"' Comment
'\n\n\t'      Text
'|'           Operator
' aName '     Name.Variable
'|'           Operator
'\n\t'        Text
'('           Text
'aName'       Name.Variable
' '           Text
'_'           Operator
' '           Text
'self'        Name.Builtin.Pseudo
' '           Text
'uniqueNameForReferenceOrNil' Name.Function
')'           Text
' '           Text
'ifNotNil:'   Name.Function
' '           Text
'['           Text
'^'           Operator
' '           Text
'aName'       Name.Variable
']'           Text
'.'           Punctuation
'\n\t'        Text
'('           Text
'aName'       Name.Variable
' '           Text
'_'           Operator
' '           Text
'self'        Name.Builtin.Pseudo
' '           Text
'knownName'   Name.Function
')'           Text
' '           Text
'ifNotNil:'   Name.Function
' '           Text
'['           Text
'^'           Operator
' '           Text
'aName'       Name.Variable
']'           Text
'.'           Punctuation
'\n\n\t'      Text
'^'           Operator
' '           Text
'['           Text
'('           Text
'self'        Name.Builtin.Pseudo
' '           Text
'asString'    Name.Function
' '           Text
'copyWithout:' Name.Function
' '           Text
'Character'   Name.Class
' '           Text
'cr'          Name.Function
')'           Text
' '           Text
'truncateTo:' Name.Function
'  '          Text
'27'          Literal.Number
']'           Text
' '           Text
'ifError:'    Name.Function
'\n\t\t'      Text
'['           Text
':'           Operator
'msg'         Name.Variable
' '           Text
':'           Operator
'rcvr'        Name.Variable
' '           Text
'|'           Operator
' '           Text
'^'           Operator
' '           Text
'self'        Name.Builtin.Pseudo
' '           Text
'class'       Name.Function
' '           Text
'name'        Name.Function
' '           Text
'printString' Name.Function
']'           Text
'! !'         Keyword
'\n\n'        Text

'!'           Keyword
'Object'      Name.Class
' methodsFor: ' Keyword
"'testing'"   Literal.String
'!'           Keyword
'\n'          Text

'notNil'      Name.Function
'\n\t'        Text
'"Coerces nil to false and everything else to true."' Comment
'\n\n\t'      Text
'^'           Operator
'true'        Name.Builtin.Pseudo
'! !'         Keyword
'\n\n'        Text

'!'           Keyword
'Object'      Name.Class
' methodsFor: ' Keyword
"'testing'"   Literal.String
" stamp: 'tk 9/6/2001 19:15'!" Keyword
'\n'          Text

'openInstanceBrowserWithTiles' Name.Function
'\n\t'        Text
'"Open up an instance browser on me with tiles as the code type, and with the search level as desired."' Comment
'\n\n\t'      Text
'|'           Operator
' aBrowser '  Name.Variable
'|'           Operator
'\n\t'        Text
'aBrowser'    Name.Variable
' '           Text
'_'           Operator
' '           Text
'InstanceBrowser' Name.Class
' '           Text
'new'         Name.Builtin
'.'           Punctuation
'\n\t'        Text
'aBrowser'    Name.Variable
' '           Text
'useVocabulary:' Name.Function
' '           Text
'Vocabulary'  Name.Class
' '           Text
'fullVocabulary' Name.Function
'.'           Punctuation
'\n\t'        Text
'aBrowser'    Name.Variable
' '           Text
'limitClass:' Name.Function
' '           Text
'self'        Name.Builtin.Pseudo
' '           Text
'class'       Name.Function
'.'           Punctuation
'\n\t'        Text
'aBrowser'    Name.Variable
' '           Text
'contentsSymbol:' Name.Function
' '           Text
'#tiles'      Literal.String.Symbol
'.'           Punctuation
'\t\t'        Text
'"preset it to make extra buttons (tile menus)"' Comment
'\n\t'        Text
'aBrowser'    Name.Variable
' '           Text
'openOnObject:' Name.Function
' '           Text
'self'        Name.Builtin.Pseudo
' '           Text
'inWorld:'    Name.Function
' '           Text
'ActiveWorld' Name.Class
' '           Text
'showingSelector:' Name.Function
' '           Text
'nil'         Name.Builtin.Pseudo
'.'           Punctuation
'\n\t'        Text
'aBrowser'    Name.Variable
' '           Text
'contentsSymbol:' Name.Function
' '           Text
'#source'     Literal.String.Symbol
'.'           Punctuation
'\n\t'        Text
'aBrowser'    Name.Variable
' '           Text
'toggleShowingTiles' Name.Function
'.'           Punctuation
'\n\n\t'      Text
'"\n(2@3) openInstanceBrowserWithTiles.\nWatchMorph new openInstanceBrowserWithTiles\n"' Comment
'! !'         Keyword
'\n\n'        Text

'!'           Keyword
'Object'      Name.Class
' methodsFor: ' Keyword
"'testing'"   Literal.String
" stamp: 'tk 7/28/2005 04:50'!" Keyword
'\n'          Text

'renameInternal:' Name.Function
' '           Text
'newName'     Name.Variable
' \n\t'       Text
'"Change the internal name (because of a conflict) but leave the external name unchanged.  Change Player class name, but do not change the names that appear in tiles.  Any object that might be pointed to in the References dictionary might get this message sent to it upon reload"' Comment
'\n\n\t'      Text
'^'           Operator
' '           Text
'nil'         Name.Builtin.Pseudo
'\t'          Text
'"caller will renameTo:.  new name may be different"' Comment
'! !'         Keyword
'\n\n'        Text

'!'           Keyword
'Object'      Name.Class
' methodsFor: ' Keyword
"'testing'"   Literal.String
" stamp: 'sw 2/27/2002 14:55'!" Keyword
'\n'          Text

'renameTo:'   Name.Function
' '           Text
'newName'     Name.Variable
'\n\t'        Text
'"If the receiver has an inherent idea about its own name, it should take action here.  Any object that might be pointed to in the References dictionary might get this message sent to it upon reload"' Comment
'! !'         Keyword
'\n\n'        Text

'!'           Keyword
'Object'      Name.Class
' methodsFor: ' Keyword
"'testing'"   Literal.String
" stamp: 'sw 1/18/2001 13:43'!" Keyword
'\n'          Text

'showDiffs'   Name.Function
'\n\t'        Text
'"Answer whether the receiver, serving as the model of a text-bearing entity, is \'showing differences\' -- if it is, the editor may wish to show special feedback"' Comment
'\n\n\t'      Text
'^'           Operator
' '           Text
'false'       Name.Builtin.Pseudo
'! !'         Keyword
'\n\n'        Text

'!'           Keyword
'Object'      Name.Class
' methodsFor: ' Keyword
"'testing'"   Literal.String
" stamp: 'sw 10/20/1999 14:52'!" Keyword
'\n'          Text

'stepAt:'     Name.Function
' '           Text
'millisecondClockValue' Name.Variable
' '           Text
'in:'         Name.Function
' '           Text
'aWindow'     Name.Variable
'\n\n\t'      Text
'^'           Operator
' '           Text
'self'        Name.Builtin.Pseudo
' '           Text
'stepIn:'     Name.Function
' '           Text
'aWindow'     Name.Variable
'! !'         Keyword
'\n\n'        Text

'!'           Keyword
'Object'      Name.Class
' methodsFor: ' Keyword
"'testing'"   Literal.String
" stamp: 'sw 10/19/1999 08:16'!" Keyword
'\n'          Text

'stepIn:'     Name.Function
' '           Text
'aWindow'     Name.Variable
'\n\n\t'      Text
'^'           Operator
' '           Text
'self'        Name.Builtin.Pseudo
' '           Text
'step'        Name.Function
'! !'         Keyword
'\n\n'        Text

'!'           Keyword
'Object'      Name.Class
' methodsFor: ' Keyword
"'testing'"   Literal.String
" stamp: 'sw 10/19/1999 08:21'!" Keyword
'\n'          Text

'stepTime'    Name.Function
'\n\t'        Text
'\n\t'        Text
'^'           Operator
' '           Text
'1000'        Literal.Number
' '           Text
'"milliseconds -- default backstop for objects serving as models of system windows"' Comment
'! !'         Keyword
'\n\n'        Text

'!'           Keyword
'Object'      Name.Class
' methodsFor: ' Keyword
"'testing'"   Literal.String
" stamp: 'sw 10/19/1999 08:22'!" Keyword
'\n'          Text

'stepTimeIn:' Name.Function
' '           Text
'aSystemWindow' Name.Variable
'\n\t\n\t'    Text
'^'           Operator
' '           Text
'1000'        Literal.Number
' '           Text
'"milliseconds -- default backstop for objects serving as models of system windows"' Comment
'! !'         Keyword
'\n\n'        Text

'!'           Keyword
'Object'      Name.Class
' methodsFor: ' Keyword
"'testing'"   Literal.String
" stamp: 'sw 5/3/2001 18:22'!" Keyword
'\n'          Text

'vocabularyDemanded' Name.Function
'\n\t'        Text
'"Answer a vocabulary that the receiver insists be used when it is looked at in a Viewer.  This allows specific classes to insist on specific custom vocabularies"' Comment
'\n\n\t'      Text
'^'           Operator
' '           Text
'nil'         Name.Builtin.Pseudo
'! !'         Keyword
'\n\n'        Text

'!'           Keyword
'Object'      Name.Class
' methodsFor: ' Keyword
"'testing'"   Literal.String
" stamp: 'sw 11/13/2001 07:26'!" Keyword
'\n'          Text

'wantsDiffFeedback' Name.Function
'\n\t'        Text
'"Answer whether the receiver, serving as the model of a text-bearing entity, would like for \'diffs\' green pane-border feedback to be shown"' Comment
'\n\n\t'      Text
'^'           Operator
' '           Text
'false'       Name.Builtin.Pseudo
'! !'         Keyword
'\n\n'        Text

'!'           Keyword
'Object'      Name.Class
' methodsFor: ' Keyword
"'testing'"   Literal.String
" stamp: 'di 1/8/1999 15:04'!" Keyword
'\n'          Text

'wantsSteps'  Name.Function
'\n\t'        Text
'"Overridden by morphic classes whose instances want to be stepped,\n\tor by model classes who want their morphic views to be stepped."' Comment
'\n\n\t'      Text
'^'           Operator
' '           Text
'false'       Name.Builtin.Pseudo
'! !'         Keyword
'\n\n'        Text

'!'           Keyword
'Object'      Name.Class
' methodsFor: ' Keyword
"'testing'"   Literal.String
" stamp: 'sw 10/19/1999 08:26'!" Keyword
'\n'          Text

'wantsStepsIn:' Name.Function
' '           Text
'aSystemWindow' Name.Variable
'\n\t\n\t'    Text
'^'           Operator
' '           Text
'self'        Name.Builtin.Pseudo
' '           Text
'wantsSteps'  Name.Function
'! !'         Keyword
'\n\n\n'      Text

'!'           Keyword
'Object'      Name.Class
' methodsFor: ' Keyword
"'thumbnail'" Literal.String
" stamp: 'dgd 9/25/2004 23:17'!" Keyword
'\n'          Text

'iconOrThumbnailOfSize:' Name.Function
' '           Text
'aNumberOrPoint' Name.Variable
' \n\t'       Text
'"Answer an appropiate form to represent the receiver"' Comment
'\n\t'        Text
'^'           Operator
' '           Text
'nil'         Name.Builtin.Pseudo
'! !'         Keyword
'\n\n\n'      Text

'!'           Keyword
'Object'      Name.Class
' methodsFor: ' Keyword
"'translation support'" Literal.String
'!'           Keyword
'\n'          Text

'inline:'     Name.Function
' '           Text
'inlineFlag'  Name.Variable
'\n\t'        Text
'"For translation only; noop when running in Smalltalk."' Comment
'! !'         Keyword
'\n\n'        Text

'!'           Keyword
'Object'      Name.Class
' methodsFor: ' Keyword
"'translation support'" Literal.String
'!'           Keyword
'\n'          Text

'var:'        Name.Function
' '           Text
'varSymbol'   Name.Variable
' '           Text
'declareC:'   Name.Function
' '           Text
'declString'  Name.Variable
'\n\t'        Text
'"For translation only; noop when running in Smalltalk."' Comment
'! !'         Keyword
'\n\n\n'      Text

'!'           Keyword
'Object'      Name.Class
' methodsFor: ' Keyword
"'undo'"      Literal.String
" stamp: 'di 9/11/2000 20:32'!" Keyword
'\n'          Text

'capturedState' Name.Function
'\n\t'        Text
'"May be overridden in subclasses."' Comment
'\n\n\t'      Text
'^'           Operator
' '           Text
'self'        Name.Builtin.Pseudo
' '           Text
'shallowCopy' Name.Function
'\n'          Text

'! !'         Keyword
'\n\n'        Text

'!'           Keyword
'Object'      Name.Class
' methodsFor: ' Keyword
"'undo'"      Literal.String
" stamp: 'di 9/11/2000 20:29'!" Keyword
'\n'          Text

'commandHistory' Name.Function
'\n\t'        Text
'"Return the command history for the receiver"' Comment
'\n\t'        Text
'|'           Operator
' w '         Name.Variable
'|'           Operator
'\n\t'        Text
'('           Text
'w'           Name.Variable
' '           Text
'_'           Operator
' '           Text
'self'        Name.Builtin.Pseudo
' '           Text
'currentWorld' Name.Function
')'           Text
' '           Text
'ifNotNil:'   Name.Function
' '           Text
'['           Text
'^'           Operator
' '           Text
'w'           Name.Variable
' '           Text
'commandHistory' Name.Function
']'           Text
'.'           Punctuation
'\n\t'        Text
'^'           Operator
' '           Text
'CommandHistory' Name.Class
' '           Text
'new'         Name.Builtin
'.'           Punctuation
' '           Text
'"won\'t really record anything but prevent breaking things"' Comment
'! !'         Keyword
'\n\n'        Text

'!'           Keyword
'Object'      Name.Class
' methodsFor: ' Keyword
"'undo'"      Literal.String
" stamp: 'di 12/12/2000 15:01'!" Keyword
'\n'          Text

'purgeAllCommands' Name.Function
'\n\t'        Text
'"Purge all commands for this object"' Comment
'\n\t'        Text
'Preferences' Name.Class
' '           Text
'useUndo'     Name.Function
' '           Text
'ifFalse:'    Name.Builtin
' '           Text
'['           Text
'^'           Operator
' '           Text
'self'        Name.Builtin.Pseudo
']'           Text
'.'           Punctuation
' '           Text
'"get out quickly"' Comment
'\n\t'        Text
'self'        Name.Builtin.Pseudo
' '           Text
'commandHistory' Name.Function
' '           Text
'purgeAllCommandsSuchThat:' Name.Function
' '           Text
'['           Text
':'           Operator
'cmd'         Name.Variable
' '           Text
'|'           Operator
' '           Text
'cmd'         Name.Variable
' '           Text
'undoTarget'  Name.Function
' '           Text
'=='          Name.Function
' '           Text
'self'        Name.Builtin.Pseudo
']'           Text
'.'           Punctuation
'\n'          Text

'! !'         Keyword
'\n\n'        Text

'!'           Keyword
'Object'      Name.Class
' methodsFor: ' Keyword
"'undo'"      Literal.String
" stamp: 'di 9/12/2000 08:15'!" Keyword
'\n'          Text

'redoFromCapturedState:' Name.Function
' '           Text
'st'          Name.Variable
' \n\t'       Text
'"May be overridden in subclasses.  See also capturedState"' Comment
'\n\n\t'      Text
'self'        Name.Builtin.Pseudo
' '           Text
'undoFromCapturedState:' Name.Function
' '           Text
'st'          Name.Variable
'  '          Text
'"Simple cases are symmetric"' Comment
'\n'          Text

'! !'         Keyword
'\n\n'        Text

'!'           Keyword
'Object'      Name.Class
' methodsFor: ' Keyword
"'undo'"      Literal.String
" stamp: 'sw 11/16/2000 14:42'!" Keyword
'\n'          Text

'refineRedoTarget:' Name.Function
' '           Text
'target'      Name.Variable
' '           Text
'selector:'   Name.Function
' '           Text
'aSymbol'     Name.Variable
' '           Text
'arguments:'  Name.Function
' '           Text
'arguments'   Name.Variable
' '           Text
'in:'         Name.Function
' '           Text
'refineBlock' Name.Variable
' \n\t'       Text
'"Any object can override this method to refine its redo specification"' Comment
'\n\n\t'      Text
'^'           Operator
' '           Text
'refineBlock' Name.Variable
'\n\t\t'      Text
'value:'      Name.Function
' '           Text
'target'      Name.Variable
'\n\t\t'      Text
'value:'      Name.Function
' '           Text
'aSymbol'     Name.Variable
'\n\t\t'      Text
'value:'      Name.Function
' '           Text
'arguments'   Name.Variable
'! !'         Keyword
'\n\n'        Text

'!'           Keyword
'Object'      Name.Class
' methodsFor: ' Keyword
"'undo'"      Literal.String
" stamp: 'sw 11/16/2000 14:42'!" Keyword
'\n'          Text

'refineUndoTarget:' Name.Function
' '           Text
'target'      Name.Variable
' '           Text
'selector:'   Name.Function
' '           Text
'aSymbol'     Name.Variable
' '           Text
'arguments:'  Name.Function
' '           Text
'arguments'   Name.Variable
' '           Text
'in:'         Name.Function
' '           Text
'refineBlock' Name.Variable
' \n\t'       Text
'"Any object can override this method to refine its undo specification"' Comment
'\n\n\t'      Text
'^'           Operator
' '           Text
'refineBlock' Name.Variable
'\n\t\t'      Text
'value:'      Name.Function
' '           Text
'target'      Name.Variable
'\n\t\t'      Text
'value:'      Name.Function
' '           Text
'aSymbol'     Name.Variable
'\n\t\t'      Text
'value:'      Name.Function
' '           Text
'arguments'   Name.Variable
'! !'         Keyword
'\n\n'        Text

'!'           Keyword
'Object'      Name.Class
' methodsFor: ' Keyword
"'undo'"      Literal.String
" stamp: 'di 9/11/2000 20:30'!" Keyword
'\n'          Text

'rememberCommand:' Name.Function
' '           Text
'aCommand'    Name.Variable
'\n\t'        Text
'"Remember the given command for undo"' Comment
'\n\t'        Text
'Preferences' Name.Class
' '           Text
'useUndo'     Name.Function
' '           Text
'ifFalse:'    Name.Builtin
' '           Text
'['           Text
'^'           Operator
' '           Text
'self'        Name.Builtin.Pseudo
']'           Text
'.'           Punctuation
' '           Text
'"get out quickly"' Comment
'\n\t'        Text
'^'           Operator
' '           Text
'self'        Name.Builtin.Pseudo
' '           Text
'commandHistory' Name.Function
' '           Text
'rememberCommand:' Name.Function
' '           Text
'aCommand'    Name.Variable
'! !'         Keyword
'\n\n'        Text

'!'           Keyword
'Object'      Name.Class
' methodsFor: ' Keyword
"'undo'"      Literal.String
" stamp: 'di 9/11/2000 20:30'!" Keyword
'\n'          Text

'rememberUndoableAction:' Name.Function
' '           Text
'actionBlock' Name.Variable
' '           Text
'named:'      Name.Function
' '           Text
'caption'     Name.Variable
'\n\t'        Text
'|'           Operator
' cmd result ' Name.Variable
'|'           Operator
'\n\t'        Text
'cmd'         Name.Variable
' '           Text
'_'           Operator
' '           Text
'Command'     Name.Class
' '           Text
'new'         Name.Builtin
' '           Text
'cmdWording:' Name.Function
' '           Text
'caption'     Name.Variable
'.'           Punctuation
'\n\t'        Text
'cmd'         Name.Variable
' '           Text
'undoTarget:' Name.Function
' '           Text
'self'        Name.Builtin.Pseudo
' '           Text
'selector:'   Name.Function
' '           Text
'#undoFromCapturedState:' Literal.String.Symbol
' '           Text
'argument:'   Name.Function
' '           Text
'self'        Name.Builtin.Pseudo
' '           Text
'capturedState' Name.Function
'.'           Punctuation
'\n\t'        Text
'result'      Name.Variable
' '           Text
'_'           Operator
' '           Text
'actionBlock' Name.Variable
' '           Text
'value'       Name.Function
'.'           Punctuation
'\n\t'        Text
'cmd'         Name.Variable
' '           Text
'redoTarget:' Name.Function
' '           Text
'self'        Name.Builtin.Pseudo
' '           Text
'selector:'   Name.Function
' '           Text
'#redoFromCapturedState:' Literal.String.Symbol
' '           Text
'argument:'   Name.Function
' '           Text
'self'        Name.Builtin.Pseudo
' '           Text
'capturedState' Name.Function
'.'           Punctuation
'\n\t'        Text
'self'        Name.Builtin.Pseudo
' '           Text
'rememberCommand:' Name.Function
' '           Text
'cmd'         Name.Variable
'.'           Punctuation
'\n\t'        Text
'^'           Operator
' '           Text
'result'      Name.Variable
'! !'         Keyword
'\n\n'        Text

'!'           Keyword
'Object'      Name.Class
' methodsFor: ' Keyword
"'undo'"      Literal.String
" stamp: 'di 9/11/2000 20:32'!" Keyword
'\n'          Text

'undoFromCapturedState:' Name.Function
' '           Text
'st'          Name.Variable
' \n\t'       Text
'"May be overridden in subclasses.  See also capturedState"' Comment
'\n\n\t'      Text
'self'        Name.Builtin.Pseudo
' '           Text
'copyFrom:'   Name.Function
' '           Text
'st'          Name.Variable
'\n'          Text

'! !'         Keyword
'\n\n\n'      Text

'!'           Keyword
'Object'      Name.Class
' methodsFor: ' Keyword
"'updating'"  Literal.String
'!'           Keyword
'\n'          Text

'changed'     Name.Function
'\n\t'        Text
'"Receiver changed in a general way; inform all the dependents by \n\tsending each dependent an update: message."' Comment
'\n\n\t'      Text
'self'        Name.Builtin.Pseudo
' '           Text
'changed:'    Name.Function
' '           Text
'self'        Name.Builtin.Pseudo
'! !'         Keyword
'\n\n'        Text

'!'           Keyword
'Object'      Name.Class
' methodsFor: ' Keyword
"'updating'"  Literal.String
'!'           Keyword
'\n'          Text

'changed:'    Name.Function
' '           Text
'aParameter'  Name.Variable
' \n\t'       Text
'"Receiver changed. The change is denoted by the argument aParameter. \n\tUsually the argument is a Symbol that is part of the dependent\'s change \n\tprotocol. Inform all of the dependents."' Comment
'\n\n\t'      Text
'self'        Name.Builtin.Pseudo
' '           Text
'dependents'  Name.Function
' '           Text
'do:'         Name.Function
' '           Text
'['           Text
':'           Operator
'aDependent'  Name.Variable
' '           Text
'|'           Operator
' '           Text
'aDependent'  Name.Variable
' '           Text
'update:'     Name.Function
' '           Text
'aParameter'  Name.Variable
']'           Text
'! !'         Keyword
'\n\n'        Text

'!'           Keyword
'Object'      Name.Class
' methodsFor: ' Keyword
"'updating'"  Literal.String
" stamp: 'nk 2/17/2004 11:12'!" Keyword
'\n'          Text

'changed:'    Name.Function
' '           Text
'anAspect'    Name.Variable
' '           Text
'with:'       Name.Function
' '           Text
'anObject'    Name.Variable
'\n\t'        Text
'"Receiver changed. The change is denoted by the argument anAspect. \n\tUsually the argument is a Symbol that is part of the dependent\'s change \n\tprotocol. Inform all of the dependents. Also pass anObject for additional information."' Comment
'\n\n\t'      Text
'self'        Name.Builtin.Pseudo
' '           Text
'dependents'  Name.Function
' '           Text
'do:'         Name.Function
' '           Text
'['           Text
':'           Operator
'aDependent'  Name.Variable
' '           Text
'|'           Operator
' '           Text
'aDependent'  Name.Variable
' '           Text
'update:'     Name.Function
' '           Text
'anAspect'    Name.Variable
' '           Text
'with:'       Name.Function
' '           Text
'anObject'    Name.Variable
']'           Text
'! !'         Keyword
'\n\n'        Text

'!'           Keyword
'Object'      Name.Class
' methodsFor: ' Keyword
"'updating'"  Literal.String
" stamp: 'sw 10/12/1999 18:15'!" Keyword
'\n'          Text

'handledListVerification' Name.Function
'\n\t'        Text
'"When a self-updating PluggableListMorph lazily checks to see the state of affairs, it first gives its model an opportunity to handle the list verification itself (this is appropriate for some models, such as VersionsBrowser); if a list\'s model has indeed handled things itself, it returns true here"' Comment
'\n\n\t'      Text
'^'           Operator
' '           Text
'false'       Name.Builtin.Pseudo
'! !'         Keyword
'\n\n'        Text

'!'           Keyword
'Object'      Name.Class
' methodsFor: ' Keyword
"'updating'"  Literal.String
" stamp: 'sw 10/31/1999 00:15'!" Keyword
'\n'          Text

'noteSelectionIndex:' Name.Function
' '           Text
'anInteger'   Name.Variable
' '           Text
'for:'        Name.Function
' '           Text
'aSymbol'     Name.Variable
'\n\t'        Text
'"backstop"'  Comment
'! !'         Keyword
'\n\n'        Text

'!'           Keyword
'Object'      Name.Class
' methodsFor: ' Keyword
"'updating'"  Literal.String
'!'           Keyword
'\n'          Text

'okToChange'  Name.Function
'\n\t'        Text
'"Allows a controller to ask this of any model"' Comment
'\n\t'        Text
'^'           Operator
' '           Text
'true'        Name.Builtin.Pseudo
'! !'         Keyword
'\n\n'        Text

'!'           Keyword
'Object'      Name.Class
' methodsFor: ' Keyword
"'updating'"  Literal.String
" stamp: 'sw 10/19/1999 14:39'!" Keyword
'\n'          Text

'updateListsAndCodeIn:' Name.Function
' '           Text
'aWindow'     Name.Variable
'\n\t'        Text
'self'        Name.Builtin.Pseudo
' '           Text
'canDiscardEdits' Name.Function
' '           Text
'ifFalse:'    Name.Builtin
' '           Text
'['           Text
'^'           Operator
' '           Text
'self'        Name.Builtin.Pseudo
']'           Text
'.'           Punctuation
'\n\t'        Text
'aWindow'     Name.Variable
' '           Text
'updatablePanes' Name.Function
' '           Text
'do:'         Name.Function
' '           Text
'['           Text
':'           Operator
'aPane'       Name.Variable
' '           Text
'|'           Operator
' '           Text
'aPane'       Name.Variable
' '           Text
'verifyContents' Name.Function
']'           Text
'! !'         Keyword
'\n\n'        Text

'!'           Keyword
'Object'      Name.Class
' methodsFor: ' Keyword
"'updating'"  Literal.String
" stamp: 'sma 2/29/2000 20:05'!" Keyword
'\n'          Text

'update:'     Name.Function
' '           Text
'aParameter'  Name.Variable
' \n\t'       Text
'"Receive a change notice from an object of whom the receiver is a \n\tdependent. The default behavior is to do nothing; a subclass might want \n\tto change itself in some way."' Comment
'\n\n\t'      Text
'^'           Operator
' '           Text
'self'        Name.Builtin.Pseudo
'! !'         Keyword
'\n\n'        Text

'!'           Keyword
'Object'      Name.Class
' methodsFor: ' Keyword
"'updating'"  Literal.String
" stamp: 'nk 2/17/2004 11:13'!" Keyword
'\n'          Text

'update:'     Name.Function
' '           Text
'anAspect'    Name.Variable
' '           Text
'with:'       Name.Function
' '           Text
'anObject'    Name.Variable
'\n\t'        Text
'"Receive a change notice from an object of whom the receiver is a \n\tdependent. The default behavior is to call update:,\n\twhich by default does nothing; a subclass might want \n\tto change itself in some way."' Comment
'\n\n\t'      Text
'^'           Operator
' '           Text
'self'        Name.Builtin.Pseudo
' '           Text
'update:'     Name.Function
' '           Text
'anAspect'    Name.Variable
'! !'         Keyword
'\n\n'        Text

'!'           Keyword
'Object'      Name.Class
' methodsFor: ' Keyword
"'updating'"  Literal.String
" stamp: 'jm 8/20/1998 18:26'!" Keyword
'\n'          Text

'windowIsClosing' Name.Function
'\n\t'        Text
'"This message is used to inform a models that its window is closing. Most models do nothing, but some, such as the Debugger, must do some cleanup. Note that this mechanism must be used with care by models that support multiple views, since one view may be closed while others left open."' Comment
'\n'          Text

'! !'         Keyword
'\n\n\n'      Text

'!'           Keyword
'Object'      Name.Class
' methodsFor: ' Keyword
"'user interface'" Literal.String
" stamp: 'sw 10/4/1999 08:13'!" Keyword
'\n'          Text

'addModelItemsToWindowMenu:' Name.Function
' '           Text
'aMenu'       Name.Variable
'\n\t'        Text
'"aMenu is being constructed to be presented to the user in response to the user\'s pressing on the menu widget in the title bar of a morphic window.  Here, the model is given the opportunity to add any model-specific items to the menu, whose default target is the SystemWindow itself."' Comment
'! !'         Keyword
'\n\n'        Text

'!'           Keyword
'Object'      Name.Class
' methodsFor: ' Keyword
"'user interface'" Literal.String
" stamp: 'sw 10/5/1998 14:39'!" Keyword
'\n'          Text

'addModelMenuItemsTo:' Name.Function
' '           Text
'aCustomMenu' Name.Variable
' '           Text
'forMorph:'   Name.Function
' '           Text
'aMorph'      Name.Variable
' '           Text
'hand:'       Name.Function
' '           Text
'aHandMorph'  Name.Variable
' \n\t'       Text
'"The receiver serves as the model for aMorph; a menu is being constructed for the morph, and here the receiver is able to add its own items"' Comment
'\n'          Text

'! !'         Keyword
'\n\n'        Text

'!'           Keyword
'Object'      Name.Class
' methodsFor: ' Keyword
"'user interface'" Literal.String
" stamp: 'sma 11/12/2000 11:43'!" Keyword
'\n'          Text

'asExplorerString' Name.Function
'\n\t'        Text
'^'           Operator
' '           Text
'self'        Name.Builtin.Pseudo
' '           Text
'printString' Name.Function
'! !'         Keyword
'\n\n'        Text

'!'           Keyword
'Object'      Name.Class
' methodsFor: ' Keyword
"'user interface'" Literal.String
" stamp: 'sw 7/13/1999 15:53'!" Keyword
'\n'          Text

'defaultBackgroundColor' Name.Function
'\n\t'        Text
'"Answer the color to be used as the base window color for a window whose model is an object of the receiver\'s class"' Comment
'\n\t\n\t'    Text
'^'           Operator
' '           Text
'Preferences' Name.Class
' '           Text
'windowColorFor:' Name.Function
' '           Text
'self'        Name.Builtin.Pseudo
' '           Text
'class'       Name.Function
' '           Text
'name'        Name.Function
'! !'         Keyword
'\n\n'        Text

'!'           Keyword
'Object'      Name.Class
' methodsFor: ' Keyword
"'user interface'" Literal.String
'!'           Keyword
'\n'          Text

'defaultLabelForInspector' Name.Function
'\n\t'        Text
'"Answer the default label to be used for an Inspector window on the receiver."' Comment
'\n\n\t'      Text
'^'           Operator
' '           Text
'self'        Name.Builtin.Pseudo
' '           Text
'class'       Name.Function
' '           Text
'name'        Name.Function
'! !'         Keyword
'\n\n'        Text

'!'           Keyword
'Object'      Name.Class
' methodsFor: ' Keyword
"'user interface'" Literal.String
" stamp: 'RAA 7/10/2000 08:11'!" Keyword
'\n'          Text

'eToyStreamedRepresentationNotifying:' Name.Function
' '           Text
'aWidget'     Name.Variable
'\n\n\t'      Text
'|'           Operator
' outData '   Name.Variable
'|'           Operator
'\n\t'        Text
'['           Text
' '           Text
'outData'     Name.Variable
' '           Text
'_'           Operator
' '           Text
'SmartRefStream' Name.Class
' '           Text
'streamedRepresentationOf:' Name.Function
' '           Text
'self'        Name.Builtin.Pseudo
' '           Text
']'           Text
' \n\t\t'     Text
'on:'         Name.Function
' '           Text
'ProgressInitiationException' Name.Class
'\n\t\t'      Text
'do:'         Name.Function
' '           Text
'['           Text
' '           Text
':'           Operator
'ex'          Name.Variable
' '           Text
'|'           Operator
' \n\t\t\t'   Text
'ex'          Name.Variable
' '           Text
'sendNotificationsTo:' Name.Function
' '           Text
'['           Text
' '           Text
':'           Operator
'min'         Name.Variable
' '           Text
':'           Operator
'max'         Name.Variable
' '           Text
':'           Operator
'curr'        Name.Variable
' '           Text
'|'           Operator
'\n\t\t\t\t'  Text
'aWidget'     Name.Variable
' '           Text
'ifNotNil:'   Name.Function
' '           Text
'['           Text
'aWidget'     Name.Variable
' '           Text
'flashIndicator:' Name.Function
' '           Text
'#working'    Literal.String.Symbol
']'           Text
'.'           Punctuation
'\n\t\t\t'    Text
']'           Text
'.'           Punctuation
'\n\t\t'      Text
']'           Text
'.'           Punctuation
'\n\t'        Text
'^'           Operator
'outData'     Name.Variable
'\n'          Text

'! !'         Keyword
'\n\n'        Text

'!'           Keyword
'Object'      Name.Class
' methodsFor: ' Keyword
"'user interface'" Literal.String
" stamp: 'ar 9/27/2005 20:29'!" Keyword
'\n'          Text

'explore'     Name.Function
'\n\t'        Text
'^'           Operator
'ToolSet'     Name.Class
' '           Text
'explore:'    Name.Function
' '           Text
'self'        Name.Builtin.Pseudo
'! !'         Keyword
'\n\n'        Text

'!'           Keyword
'Object'      Name.Class
' methodsFor: ' Keyword
"'user interface'" Literal.String
" stamp: 'sw 8/15/97 17:25'!" Keyword
'\n'          Text

'fullScreenSize' Name.Function
'\n\t'        Text
'"Answer the size to which a window displaying the receiver should be set"' Comment
'\n\t'        Text
'|'           Operator
' adj '       Name.Variable
'|'           Operator
'\n\t'        Text
'adj'         Name.Variable
' '           Text
'_'           Operator
' '           Text
'('           Text
'3'           Literal.Number
' '           Text
'*'           Name.Function
' '           Text
'Preferences' Name.Class
' '           Text
'scrollBarWidth' Name.Function
')'           Text
' '           Text
'@'           Name.Function
' '           Text
'0'           Literal.Number
'.'           Punctuation
'\n\t'        Text
'^'           Operator
' '           Text
'Rectangle'   Name.Class
' '           Text
'origin:'     Name.Function
' '           Text
'adj'         Name.Variable
' '           Text
'extent:'     Name.Function
' '           Text
'('           Text
'DisplayScreen' Name.Class
' '           Text
'actualScreenSize' Name.Function
' '           Text
'-'           Name.Function
' '           Text
'adj'         Name.Variable
')'           Text
'! !'         Keyword
'\n\n'        Text

'!'           Keyword
'Object'      Name.Class
' methodsFor: ' Keyword
"'user interface'" Literal.String
" stamp: 'RAA 6/21/1999 11:27'!" Keyword
'\n'          Text

'hasContentsInExplorer' Name.Function
'\n'          Text

'\n\t'        Text
'^'           Operator
'self'        Name.Builtin.Pseudo
' '           Text
'basicSize'   Name.Function
' '           Text
'>'           Name.Function
' '           Text
'0'           Literal.Number
' '           Text
'or:'         Name.Function
' '           Text
'['           Text
'self'        Name.Builtin.Pseudo
' '           Text
'class'       Name.Function
' '           Text
'allInstVarNames' Name.Function
' '           Text
'isEmpty'     Name.Function
' '           Text
'not'         Name.Function
']'           Text
'\n'          Text

'! !'         Keyword
'\n\n'        Text

'!'           Keyword
'Object'      Name.Class
' methodsFor: ' Keyword
"'user interface'" Literal.String
" stamp: 'rbb 3/1/2005 09:28'!" Keyword
'\n'          Text

'inform:'     Name.Function
' '           Text
'aString'     Name.Variable
'\n\t'        Text
'"Display a message for the user to read and then dismiss. 6/9/96 sw"' Comment
'\n\n\t'      Text
'aString'     Name.Variable
' '           Text
'isEmptyOrNil' Name.Function
' '           Text
'ifFalse:'    Name.Builtin
' '           Text
'['           Text
'UIManager'   Name.Class
' '           Text
'default'     Name.Function
' '           Text
'inform:'     Name.Function
' '           Text
'aString'     Name.Variable
']'           Text
'! !'         Keyword
'\n\n'        Text

'!'           Keyword
'Object'      Name.Class
' methodsFor: ' Keyword
"'user interface'" Literal.String
'!'           Keyword
'\n'          Text

'initialExtent' Name.Function
'\n\t'        Text
'"Answer the desired extent for the receiver when a view on it is first opened on the screen. \n\t5/22/96 sw: in the absence of any override, obtain from RealEstateAgent"' Comment
'\n\n\t'      Text
'^'           Operator
' '           Text
'RealEstateAgent' Name.Class
' '           Text
'standardWindowExtent' Name.Function
'! !'         Keyword
'\n\n'        Text

'!'           Keyword
'Object'      Name.Class
' methodsFor: ' Keyword
"'user interface'" Literal.String
" stamp: 'ar 9/27/2005 20:30'!" Keyword
'\n'          Text

'inspectWithLabel:' Name.Function
' '           Text
'aLabel'      Name.Variable
'\n\t'        Text
'"Create and schedule an Inspector in which the user can examine the receiver\'s variables."' Comment
'\n\t'        Text
'^'           Operator
'ToolSet'     Name.Class
' '           Text
'inspect:'    Name.Function
' '           Text
'self'        Name.Builtin.Pseudo
' '           Text
'label:'      Name.Function
' '           Text
'aLabel'      Name.Variable
'! !'         Keyword
'\n\n'        Text

'!'           Keyword
'Object'      Name.Class
' methodsFor: ' Keyword
"'user interface'" Literal.String
" stamp: 'sw 6/12/2001 11:09'!" Keyword
'\n'          Text

'launchPartVia:' Name.Function
' '           Text
'aSelector'   Name.Variable
'\n\t'        Text
'"Obtain a morph by sending aSelector to self, and attach it to the morphic hand.  This provides a general protocol for parts bins"' Comment
'\n\n\t'      Text
'|'           Operator
' aMorph '    Name.Variable
'|'           Operator
'\n\t'        Text
'aMorph'      Name.Variable
' '           Text
'_'           Operator
' '           Text
'self'        Name.Builtin.Pseudo
' '           Text
'perform:'    Name.Function
' '           Text
'aSelector'   Name.Variable
'.'           Punctuation
'\n\t'        Text
'aMorph'      Name.Variable
' '           Text
'setProperty:' Name.Function
' '           Text
'#beFullyVisibleAfterDrop' Literal.String.Symbol
' '           Text
'toValue:'    Name.Function
' '           Text
'true'        Name.Builtin.Pseudo
'.'           Punctuation
'\n\t'        Text
'aMorph'      Name.Variable
' '           Text
'openInHand'  Name.Function
'! !'         Keyword
'\n\n'        Text

'!'           Keyword
'Object'      Name.Class
' methodsFor: ' Keyword
"'user interface'" Literal.String
" stamp: 'sw 6/17/2004 01:47'!" Keyword
'\n'          Text

'launchPartVia:' Name.Function
' '           Text
'aSelector'   Name.Variable
' '           Text
'label:'      Name.Function
' '           Text
'aString'     Name.Variable
'\n\t'        Text
'"Obtain a morph by sending aSelector to self, and attach it to the morphic hand.  This provides a general protocol for parts bins"' Comment
'\n\n\t'      Text
'|'           Operator
' aMorph '    Name.Variable
'|'           Operator
'\n\t'        Text
'aMorph'      Name.Variable
' '           Text
'_'           Operator
' '           Text
'self'        Name.Builtin.Pseudo
' '           Text
'perform:'    Name.Function
' '           Text
'aSelector'   Name.Variable
'.'           Punctuation
'\n\t'        Text
'aMorph'      Name.Variable
' '           Text
'setNameTo:'  Name.Function
' '           Text
'('           Text
'ActiveWorld' Name.Class
' '           Text
'unusedMorphNameLike:' Name.Function
' '           Text
'aString'     Name.Variable
')'           Text
'.'           Punctuation
'\n\t'        Text
'aMorph'      Name.Variable
' '           Text
'setProperty:' Name.Function
' '           Text
'#beFullyVisibleAfterDrop' Literal.String.Symbol
' '           Text
'toValue:'    Name.Function
' '           Text
'true'        Name.Builtin.Pseudo
'.'           Punctuation
'\n\t'        Text
'aMorph'      Name.Variable
' '           Text
'openInHand'  Name.Function
'! !'         Keyword
'\n\n'        Text

'!'           Keyword
'Object'      Name.Class
' methodsFor: ' Keyword
"'user interface'" Literal.String
" stamp: 'sw 10/16/2000 11:11'!" Keyword
'\n'          Text

'launchTileToRefer' Name.Function
'\n\t'        Text
'"Create a tile to reference the receiver, and attach it to the hand"' Comment
'\n\n\t'      Text
'self'        Name.Builtin.Pseudo
' '           Text
'currentHand' Name.Function
' '           Text
'attachMorph:' Name.Function
' '           Text
'self'        Name.Builtin.Pseudo
' '           Text
'tileToRefer' Name.Function
'! !'         Keyword
'\n\n'        Text

'!'           Keyword
'Object'      Name.Class
' methodsFor: ' Keyword
"'user interface'" Literal.String
" stamp: 'di 5/11/1999 22:26'!" Keyword
'\n'          Text

'modelSleep'  Name.Function
'\n\t'        Text
'"A window with me as model is being exited or collapsed or closed.\n\tDefault response is no-op"' Comment
' '           Text
'! !'         Keyword
'\n\n'        Text

'!'           Keyword
'Object'      Name.Class
' methodsFor: ' Keyword
"'user interface'" Literal.String
" stamp: 'di 5/11/1999 22:01'!" Keyword
'\n'          Text

'modelWakeUp' Name.Function
'\n\t'        Text
'"A window with me as model is being entered or expanded.  Default response is no-op"' Comment
' '           Text
'! !'         Keyword
'\n\n'        Text

'!'           Keyword
'Object'      Name.Class
' methodsFor: ' Keyword
"'user interface'" Literal.String
" stamp: 'sw 10/16/1999 22:45'!" Keyword
'\n'          Text

'modelWakeUpIn:' Name.Function
' '           Text
'aWindow'     Name.Variable
'\n\t'        Text
'"A window with me as model is being entered or expanded.  Default response is no-op"' Comment
' \n\t'       Text
'self'        Name.Builtin.Pseudo
' '           Text
'modelWakeUp' Name.Function
'! !'         Keyword
'\n\n'        Text

'!'           Keyword
'Object'      Name.Class
' methodsFor: ' Keyword
"'user interface'" Literal.String
" stamp: 'sw 3/8/1999 15:27'!" Keyword
'\n'          Text

'mouseUpBalk:' Name.Function
' '           Text
'evt'         Name.Variable
'\n\t'        Text
'"A button I own got a mouseDown, but the user moved out before letting up.  Certain kinds of objects (so-called \'radio buttons\', for example, and other structures that must always have some selection, e.g. PaintBoxMorph) wish to take special action in this case; this default does nothing."' Comment
'\n'          Text

'! !'         Keyword
'\n\n'        Text

'!'           Keyword
'Object'      Name.Class
' methodsFor: ' Keyword
"'user interface'" Literal.String
" stamp: 'sw 8/22/97 13:14'!" Keyword
'\n'          Text

'newTileMorphRepresentative' Name.Function
'\n\t'        Text
'^'           Operator
' '           Text
'TileMorph'   Name.Class
' '           Text
'new'         Name.Builtin
' '           Text
'setLiteral:' Name.Function
' '           Text
'self'        Name.Builtin.Pseudo
'! !'         Keyword
'\n\n'        Text

'!'           Keyword
'Object'      Name.Class
' methodsFor: ' Keyword
"'user interface'" Literal.String
" stamp: 'jcg 11/1/2001 13:13'!" Keyword
'\n'          Text

'notYetImplemented' Name.Function
'\n\t'        Text
'self'        Name.Builtin.Pseudo
' '           Text
'inform:'     Name.Function
' '           Text
"'Not yet implemented ('" Literal.String
','           Name.Function
' '           Text
'thisContext' Name.Builtin.Pseudo
' '           Text
'sender'      Name.Function
' '           Text
'printString' Name.Function
','           Name.Function
' '           Text
"')'"         Literal.String
'! !'         Keyword
'\n\n'        Text

'!'           Keyword
'Object'      Name.Class
' methodsFor: ' Keyword
"'user interface'" Literal.String
" stamp: 'di 6/10/1998 15:06'!" Keyword
'\n'          Text

'windowReqNewLabel:' Name.Function
' '           Text
'labelString' Name.Variable
'\n\t'        Text
'"My window\'s title has been edited.\n\tReturn true if this is OK, and override for further behavior."' Comment
'\n\n\t'      Text
'^'           Operator
' '           Text
'true'        Name.Builtin.Pseudo
'! !'         Keyword
'\n\n\n'      Text

'!'           Keyword
'Object'      Name.Class
' methodsFor: ' Keyword
"'viewer'"    Literal.String
" stamp: 'sw 10/16/2000 10:35'!" Keyword
'\n'          Text

'assureUniClass' Name.Function
'\n\t'        Text
'"If the receiver is not yet an instance of a uniclass, create a uniclass for it and make the receiver become an instance of that class."' Comment
'\n\n\t'      Text
'|'           Operator
' anInstance ' Name.Variable
'|'           Operator
'\n\t'        Text
'self'        Name.Builtin.Pseudo
' '           Text
'belongsToUniClass' Name.Function
' '           Text
'ifTrue:'     Name.Builtin
' '           Text
'['           Text
'^'           Operator
' '           Text
'self'        Name.Builtin.Pseudo
']'           Text
'.'           Punctuation
'\n\t'        Text
'anInstance'  Name.Variable
' '           Text
'_'           Operator
' '           Text
'self'        Name.Builtin.Pseudo
' '           Text
'class'       Name.Function
' '           Text
'instanceOfUniqueClass' Name.Function
'.'           Punctuation
'\n\t'        Text
'self'        Name.Builtin.Pseudo
' '           Text
'become:'     Name.Function
' '           Text
'('           Text
'self'        Name.Builtin.Pseudo
' '           Text
'as:'         Name.Function
' '           Text
'anInstance'  Name.Variable
' '           Text
'class'       Name.Function
')'           Text
'.'           Punctuation
'\n\t'        Text
'^'           Operator
' '           Text
'anInstance'  Name.Variable
'! !'         Keyword
'\n\n'        Text

'!'           Keyword
'Object'      Name.Class
' methodsFor: ' Keyword
"'viewer'"    Literal.String
" stamp: 'sw 10/16/2000 10:41'!" Keyword
'\n'          Text

'belongsToUniClass' Name.Function
'\n\t'        Text
'"Answer whether the receiver belongs to a uniclass.  For the moment (this is not entirely satisfactory) this is precisely equated with the classname ending in a digit"' Comment
'\n\n\t'      Text
'^'           Operator
' '           Text
'self'        Name.Builtin.Pseudo
' '           Text
'class'       Name.Function
' '           Text
'name'        Name.Function
' '           Text
'endsWithDigit' Name.Function
'! !'         Keyword
'\n\n'        Text

'!'           Keyword
'Object'      Name.Class
' methodsFor: ' Keyword
"'viewer'"    Literal.String
" stamp: 'sw 12/11/2000 15:37'!" Keyword
'\n'          Text

'browseOwnClassSubProtocol' Name.Function
'\n\t'        Text
'"Open up a ProtocolBrowser on the subprotocol of the receiver"' Comment
'\n\n\t'      Text
'ProtocolBrowser' Name.Class
' '           Text
'openSubProtocolForClass:' Name.Function
' '           Text
'self'        Name.Builtin.Pseudo
' '           Text
'class'       Name.Function
'\n'          Text

'! !'         Keyword
'\n\n'        Text

'!'           Keyword
'Object'      Name.Class
' methodsFor: ' Keyword
"'viewer'"    Literal.String
" stamp: 'sw 8/4/2001 00:51'!" Keyword
'\n'          Text

'categoriesForViewer:' Name.Function
' '           Text
'aViewer'     Name.Variable
'\n\t'        Text
'"Answer a list of categories to offer in the given viewer"' Comment
'\n\n\t'      Text
'^'           Operator
' '           Text
'aViewer'     Name.Variable
' '           Text
'currentVocabulary' Name.Function
' '           Text
'categoryListForInstance:' Name.Function
' '           Text
'self'        Name.Builtin.Pseudo
' '           Text
'ofClass:'    Name.Function
' '           Text
'self'        Name.Builtin.Pseudo
' '           Text
'class'       Name.Function
' '           Text
'limitClass:' Name.Function
' '           Text
'aViewer'     Name.Variable
' '           Text
'limitClass'  Name.Function
'! !'         Keyword
'\n\n'        Text

'!'           Keyword
'Object'      Name.Class
' methodsFor: ' Keyword
"'viewer'"    Literal.String
" stamp: 'sw 8/3/2001 22:08'!" Keyword
'\n'          Text

'categoriesForVocabulary:' Name.Function
' '           Text
'aVocabulary' Name.Variable
' '           Text
'limitClass:' Name.Function
' '           Text
'aLimitClass' Name.Variable
'\n\t'        Text
'"Answer a list of categories of methods for the receiver when using the given vocabulary, given that one considers only methods that are implemented not further away than aLimitClass"' Comment
'\n\n\t'      Text
'^'           Operator
' '           Text
'aVocabulary' Name.Variable
' '           Text
'categoryListForInstance:' Name.Function
' '           Text
'self'        Name.Builtin.Pseudo
' '           Text
'ofClass:'    Name.Function
' '           Text
'self'        Name.Builtin.Pseudo
' '           Text
'class'       Name.Function
' '           Text
'limitClass:' Name.Function
' '           Text
'aLimitClass' Name.Variable
'! !'         Keyword
'\n\n'        Text

'!'           Keyword
'Object'      Name.Class
' methodsFor: ' Keyword
"'viewer'"    Literal.String
" stamp: 'sw 10/25/2000 07:20'!" Keyword
'\n'          Text

'chooseNewNameForReference' Name.Function
'\n\t'        Text
'"Offer an opportunity for the receiver, presumed already to be known in the References registry, to be renamed"' Comment
'\n\n\t'      Text
'|'           Operator
'  nameSym current newName ' Name.Variable
'|'           Operator
'\n\t'        Text
'current'     Name.Variable
' '           Text
'_'           Operator
' '           Text
'References'  Name.Class
' '           Text
'keyAtValue:' Name.Function
' '           Text
'self'        Name.Builtin.Pseudo
' '           Text
'ifAbsent:'   Name.Function
' '           Text
'['           Text
'^'           Operator
' '           Text
'self'        Name.Builtin.Pseudo
' '           Text
'error:'      Name.Function
' '           Text
"'not found in References'" Literal.String
']'           Text
'.'           Punctuation
'\n\n\t'      Text
'newName'     Name.Variable
' '           Text
'_'           Operator
' '           Text
'FillInTheBlank' Name.Class
' '           Text
'request:'    Name.Function
' '           Text
"'Please enter new name'" Literal.String
' '           Text
'initialAnswer:' Name.Function
' '           Text
'current'     Name.Variable
'.'           Punctuation
'\n\t'        Text
'"Want to user some better way of determining the validity of the chosen identifier, and also want to give more precise diagnostic if the string the user types in is not acceptable.  Work to be done here."' Comment
'\n\n\t'      Text
'newName'     Name.Variable
' '           Text
'isEmpty'     Name.Function
' '           Text
'ifTrue:'     Name.Builtin
' '           Text
'['           Text
'^'           Operator
' '           Text
'nil'         Name.Builtin.Pseudo
']'           Text
'.'           Punctuation
'\n\t'        Text
'('           Text
'('           Text
'Scanner'     Name.Class
' '           Text
'isLiteralSymbol:' Name.Function
' '           Text
'newName'     Name.Variable
')'           Text
' '           Text
'and:'        Name.Function
' '           Text
'['           Text
'('           Text
'newName'     Name.Variable
' '           Text
'includes:'   Name.Function
' '           Text
'$:'          Literal.String.Char
')'           Text
' '           Text
'not'         Name.Function
']'           Text
')'           Text
'\n\t\t'      Text
'ifTrue:'     Name.Builtin
'\n\t\t\t'    Text
'['           Text
'nameSym'     Name.Variable
' '           Text
'_'           Operator
' '           Text
'newName'     Name.Variable
' '           Text
'capitalized' Name.Function
' '           Text
'asSymbol'    Name.Function
'.'           Punctuation
'\n\t\t\t'    Text
'('           Text
'('           Text
'('           Text
'References'  Name.Class
' '           Text
'includesKey:' Name.Function
'  '          Text
'nameSym'     Name.Variable
')'           Text
' '           Text
'not'         Name.Function
' '           Text
'and:'        Name.Function
'\n\t\t\t\t'  Text
'['           Text
'('           Text
'Smalltalk'   Name.Class
' '           Text
'includesKey:' Name.Function
' '           Text
'nameSym'     Name.Variable
')'           Text
' '           Text
'not'         Name.Function
']'           Text
')'           Text
' '           Text
'and:'        Name.Function
'\n\t\t\t\t\t\t' Text
'['           Text
'('           Text
'ScriptingSystem' Name.Class
' '           Text
'allKnownClassVariableNames' Name.Function
' '           Text
'includes:'   Name.Function
' '           Text
'nameSym'     Name.Variable
')'           Text
' '           Text
'not'         Name.Function
']'           Text
')'           Text
'\n\t\t\t\t\t' Text
'ifTrue:'     Name.Builtin
'\n\t\t\t\t\t\t' Text
'['           Text
'('           Text
'References'  Name.Class
' '           Text
'associationAt:' Name.Function
' '           Text
'current'     Name.Variable
')'           Text
' '           Text
'key:'        Name.Function
' '           Text
'nameSym'     Name.Variable
'.'           Punctuation
'\n\t\t\t\t\t\t' Text
'References'  Name.Class
' '           Text
'rehash'      Name.Function
'.'           Punctuation
'\n\t\t\t\t\t\t' Text
'^'           Operator
' '           Text
'nameSym'     Name.Variable
']'           Text
']'           Text
'.'           Punctuation
'\n\t'        Text
'self'        Name.Builtin.Pseudo
' '           Text
'inform:'     Name.Function
' '           Text
"'Sorry, that name is not available.'" Literal.String
'.'           Punctuation
'\n\t'        Text
'^'           Operator
' '           Text
'nil'         Name.Builtin.Pseudo
'! !'         Keyword
'\n\n'        Text

'!'           Keyword
'Object'      Name.Class
' methodsFor: ' Keyword
"'viewer'"    Literal.String
" stamp: 'sw 8/3/2001 21:22'!" Keyword
'\n'          Text

'defaultLimitClassForVocabulary:' Name.Function
' '           Text
'aVocabulary' Name.Variable
'\n\t'        Text
'"Answer the class to use, by default, as the limit class on a protocol browser or viewer opened up on the receiver, within the purview of the Vocabulary provided"' Comment
'\n\n\t'      Text
'^'           Operator
' '           Text
'('           Text
'aVocabulary' Name.Variable
' '           Text
'isKindOf:'   Name.Function
' '           Text
'FullVocabulary' Name.Class
')'           Text
'\n\t\t'      Text
'ifTrue:'     Name.Builtin
'\n\t\t\t '   Text
'['           Text
'self'        Name.Builtin.Pseudo
' '           Text
'class'       Name.Function
' '           Text
'superclass'  Name.Function
' '           Text
'=='          Name.Function
' '           Text
'Object'      Name.Class
'\n\t\t\t\t'  Text
'ifTrue:'     Name.Builtin
'\n\t\t\t\t\t' Text
'['           Text
'self'        Name.Builtin.Pseudo
' '           Text
'class'       Name.Function
']'           Text
'\n\t\t\t\t'  Text
'ifFalse:'    Name.Builtin
'\n\t\t\t\t\t' Text
'['           Text
'self'        Name.Builtin.Pseudo
' '           Text
'class'       Name.Function
' '           Text
'superclass'  Name.Function
']'           Text
']'           Text
'\n\t\t'      Text
'ifFalse:'    Name.Builtin
'\n\t\t\t'    Text
'['           Text
'ProtoObject' Name.Class
']'           Text
'! !'         Keyword
'\n\n'        Text

'!'           Keyword
'Object'      Name.Class
' methodsFor: ' Keyword
"'viewer'"    Literal.String
" stamp: 'sw 2/14/2000 14:24'!" Keyword
'\n'          Text

'defaultNameStemForInstances' Name.Function
'\n\t'        Text
'"Answer a basis for names of default instances of the receiver.  The default is to let the class specify, but certain instances will want to override.  (PasteUpMorphs serving as Worlds come to mind"' Comment
'\n\n\t'      Text
'^'           Operator
' '           Text
'self'        Name.Builtin.Pseudo
' '           Text
'class'       Name.Function
' '           Text
'defaultNameStemForInstances' Name.Function
'! !'         Keyword
'\n\n'        Text

'!'           Keyword
'Object'      Name.Class
' methodsFor: ' Keyword
"'viewer'"    Literal.String
" stamp: 'sw 5/22/2001 16:53'!" Keyword
'\n'          Text

'elementTypeFor:' Name.Function
' '           Text
'aStringOrSymbol' Name.Variable
' '           Text
'vocabulary:' Name.Function
' '           Text
'aVocabulary' Name.Variable
'\n\t'        Text
'"Answer a symbol characterizing what kind of element aStringOrSymbol represents.  Realistically, at present, this always just returns #systemScript; a prototyped but not-incorporated architecture supported use of a leading colon to characterize an inst var of a system class, and for the moment we still see its remnant here."' Comment
'\n\n\t'      Text
'self'        Name.Builtin.Pseudo
' '           Text
'flag:'       Name.Function
' '           Text
'#deferred'   Literal.String.Symbol
'.'           Punctuation
'  '          Text
'"a loose end in the non-player case"' Comment
'\n\t'        Text
'^'           Operator
' '           Text
'#systemScript' Literal.String.Symbol
'! !'         Keyword
'\n\n'        Text

'!'           Keyword
'Object'      Name.Class
' methodsFor: ' Keyword
"'viewer'"    Literal.String
" stamp: 'sw 5/4/2001 07:04'!" Keyword
'\n'          Text

'externalName' Name.Function
'\n\t'        Text
'"Answer an external name by which the receiver is known.  Generic implementation here is a transitional backstop. probably"' Comment
'\n\n\t'      Text
'^'           Operator
' '           Text
'self'        Name.Builtin.Pseudo
' '           Text
'nameForViewer' Name.Function
'! !'         Keyword
'\n\n'        Text

'!'           Keyword
'Object'      Name.Class
' methodsFor: ' Keyword
"'viewer'"    Literal.String
" stamp: 'sw 5/4/2001 07:06'!" Keyword
'\n'          Text

'graphicForViewerTab' Name.Function
'\n\t'        Text
'"When a Viewer is open on the receiver, its tab needs some graphic to show to the user.  Answer a form or a morph to serve that purpose.  A generic image is used for arbitrary objects, but note my reimplementors"' Comment
'\n\t\n\t'    Text
'^'           Operator
' '           Text
'ScriptingSystem' Name.Class
' '           Text
'formAtKey:'  Name.Function
' '           Text
"'Image'"     Literal.String
'! !'         Keyword
'\n\n'        Text

'!'           Keyword
'Object'      Name.Class
' methodsFor: ' Keyword
"'viewer'"    Literal.String
" stamp: 'sw 5/4/2001 07:08'!" Keyword
'\n'          Text

'hasUserDefinedSlots' Name.Function
'\n\t'        Text
'"Answer whether the receiver has any user-defined slots, in the omniuser sense of the term.  This is needed to allow Viewers to look at any object, not just at Players."' Comment
'\n\n\t'      Text
'^'           Operator
' '           Text
'false'       Name.Builtin.Pseudo
'! !'         Keyword
'\n\n'        Text

'!'           Keyword
'Object'      Name.Class
' methodsFor: ' Keyword
"'viewer'"    Literal.String
" stamp: 'sw 8/22/2002 14:07'!" Keyword
'\n'          Text

'infoFor:'    Name.Function
' '           Text
'anElement'   Name.Variable
' '           Text
'inViewer:'   Name.Function
' '           Text
'aViewer'     Name.Variable
'\n\t'        Text
'"The user made a gesture asking for info/menu relating to me.  Some of the messages dispatched here are not yet available in this image"' Comment
'\n\n\t'      Text
'|'           Operator
' aMenu elementType ' Name.Variable
'|'           Operator
'\n\t'        Text
'elementType' Name.Variable
' '           Text
'_'           Operator
' '           Text
'self'        Name.Builtin.Pseudo
' '           Text
'elementTypeFor:' Name.Function
' '           Text
'anElement'   Name.Variable
' '           Text
'vocabulary:' Name.Function
' '           Text
'aViewer'     Name.Variable
' '           Text
'currentVocabulary' Name.Function
'.'           Punctuation
'\n\t'        Text
'('           Text
'('           Text
'elementType' Name.Variable
' '           Text
'='           Name.Function
' '           Text
'#systemSlot' Literal.String.Symbol
')'           Text
' '           Text
'|'           Name.Function
' '           Text
'('           Text
'elementType' Name.Variable
' '           Text
'=='          Name.Function
' '           Text
'#userSlot'   Literal.String.Symbol
')'           Text
')'           Text
'\n\t\t'      Text
'ifTrue:'     Name.Builtin
'\t'          Text
'['           Text
'^'           Operator
' '           Text
'self'        Name.Builtin.Pseudo
' '           Text
'slotInfoButtonHitFor:' Name.Function
' '           Text
'anElement'   Name.Variable
' '           Text
'inViewer:'   Name.Function
' '           Text
'aViewer'     Name.Variable
']'           Text
'.'           Punctuation
'\n\t'        Text
'self'        Name.Builtin.Pseudo
' '           Text
'flag:'       Name.Function
' '           Text
'#deferred'   Literal.String.Symbol
'.'           Punctuation
'  '          Text
'"Use a traditional MenuMorph, and reinstate the pacify thing"' Comment
'\n\t'        Text
'aMenu'       Name.Variable
' '           Text
'_'           Operator
' '           Text
'MenuMorph'   Name.Class
' '           Text
'new'         Name.Builtin
' '           Text
'defaultTarget:' Name.Function
' '           Text
'aViewer'     Name.Variable
'.'           Punctuation
'\n\t'        Text
'#('          Literal.String.Symbol
'\t'          Text
'('           Literal.String.Symbol
"'implementors'" Literal.String
'\t\t\t'      Text
'browseImplementorsOf:' Literal.String.Symbol
')'           Literal.String.Symbol
'\n\t\t'      Text
'('           Literal.String.Symbol
"'senders'"   Literal.String
'\t\t\t\t'    Text
'browseSendersOf:' Literal.String.Symbol
')'           Literal.String.Symbol
'\n\t\t'      Text
'('           Literal.String.Symbol
"'versions'"  Literal.String
'\t\t\t\t'    Text
'browseVersionsOf:' Literal.String.Symbol
')'           Literal.String.Symbol
'\n\t\t'      Text
'-'           Literal.String.Symbol
'\n\t\t'      Text
'('           Literal.String.Symbol
"'browse full'" Literal.String
'\t\t\t'      Text
'browseMethodFull:' Literal.String.Symbol
')'           Literal.String.Symbol
'\n\t\t'      Text
'('           Literal.String.Symbol
"'inheritance'" Literal.String
'\t\t\t'      Text
'browseMethodInheritance:' Literal.String.Symbol
')'           Literal.String.Symbol
'\n\t\t'      Text
'-'           Literal.String.Symbol
'\n\t\t'      Text
'('           Literal.String.Symbol
"'about this method'" Literal.String
'\t\t'        Text
'aboutMethod:' Literal.String.Symbol
')'           Literal.String.Symbol
')'           Literal.String.Symbol
' '           Text
'do:'         Name.Function
'\n\n\t\t\t'  Text
'['           Text
':'           Operator
'pair'        Name.Variable
' '           Text
'|'           Operator
'\n\t\t\t\t'  Text
'pair'        Name.Variable
' '           Text
'='           Name.Function
' '           Text
"'-'"         Literal.String
'\n\t\t\t\t\t' Text
'ifTrue:'     Name.Builtin
'\n\t\t\t\t\t\t' Text
'['           Text
'aMenu'       Name.Variable
' '           Text
'addLine'     Name.Function
']'           Text
'\n\t\t\t\t\t' Text
'ifFalse:'    Name.Builtin
'\n\t\t\t\t\t\t' Text
'['           Text
'aMenu'       Name.Variable
' '           Text
'add:'        Name.Function
' '           Text
'pair'        Name.Variable
' '           Text
'first'       Name.Function
' '           Text
'target:'     Name.Function
' '           Text
'aViewer'     Name.Variable
' '           Text
'selector:'   Name.Function
' '           Text
'pair'        Name.Variable
' '           Text
'second'      Name.Function
' '           Text
'argument:'   Name.Function
' '           Text
'anElement'   Name.Variable
']'           Text
']'           Text
'.'           Punctuation
'\n\t'        Text
'aMenu'       Name.Variable
' '           Text
'addLine'     Name.Function
'.'           Punctuation
'\n\t'        Text
'aMenu'       Name.Variable
' '           Text
'defaultTarget:' Name.Function
' '           Text
'self'        Name.Builtin.Pseudo
'.'           Punctuation
'\n\t'        Text
'#('          Literal.String.Symbol
'\t'          Text
'('           Literal.String.Symbol
"'destroy script'" Literal.String
'\t\t'        Text
'removeScript:' Literal.String.Symbol
')'           Literal.String.Symbol
'\n\t\t'      Text
'('           Literal.String.Symbol
"'rename script'" Literal.String
'\t\t'        Text
'renameScript:' Literal.String.Symbol
')'           Literal.String.Symbol
'\n\t\t'      Text
'('           Literal.String.Symbol
"'pacify script'" Literal.String
'\t\t'        Text
'pacifyScript:' Literal.String.Symbol
')'           Literal.String.Symbol
')'           Literal.String.Symbol
' '           Text
'do:'         Name.Function
'\n\t\t\t'    Text
'['           Text
':'           Operator
'pair'        Name.Variable
' '           Text
'|'           Operator
'\n\t\t\t\t'  Text
'aMenu'       Name.Variable
' '           Text
'add:'        Name.Function
' '           Text
'pair'        Name.Variable
' '           Text
'first'       Name.Function
' '           Text
'target:'     Name.Function
' '           Text
'self'        Name.Builtin.Pseudo
' '           Text
'selector:'   Name.Function
' '           Text
'pair'        Name.Variable
' '           Text
'second'      Name.Function
' '           Text
'argument:'   Name.Function
' '           Text
'anElement'   Name.Variable
']'           Text
'.'           Punctuation
'\n\n\t'      Text
'aMenu'       Name.Variable
' '           Text
'addLine'     Name.Function
'.'           Punctuation
'\n\t'        Text
'aMenu'       Name.Variable
'  '          Text
'add:'        Name.Function
' '           Text
"'show categories....'" Literal.String
' '           Text
'target:'     Name.Function
' '           Text
'aViewer'     Name.Variable
' '           Text
'selector:'   Name.Function
' '           Text
'#showCategoriesFor:' Literal.String.Symbol
' '           Text
'argument:'   Name.Function
' '           Text
'anElement'   Name.Variable
'.'           Punctuation
'\n\t'        Text
'aMenu'       Name.Variable
' '           Text
'items'       Name.Function
' '           Text
'size'        Name.Function
' '           Text
'=='          Name.Function
' '           Text
'0'           Literal.Number
' '           Text
'ifTrue:'     Name.Builtin
'  '          Text
'"won\'t happen at the moment a/c the above"' Comment
'\n\t\t'      Text
'['           Text
'aMenu'       Name.Variable
' '           Text
'add:'        Name.Function
' '           Text
"'ok'"        Literal.String
' '           Text
'action:'     Name.Function
' '           Text
'nil'         Name.Builtin.Pseudo
']'           Text
'.'           Punctuation
'  '          Text
'"in case it was a slot -- weird, transitional"' Comment
'\n\n\t'      Text
'aMenu'       Name.Variable
' '           Text
'addTitle:'   Name.Function
' '           Text
'anElement'   Name.Variable
' '           Text
'asString'    Name.Function
','           Name.Function
' '           Text
"' ('"        Literal.String
','           Name.Function
' '           Text
'elementType' Name.Variable
','           Name.Function
' '           Text
"')'"         Literal.String
'.'           Punctuation
'\n\n\t'      Text
'aMenu'       Name.Variable
' '           Text
'popUpInWorld:' Name.Function
' '           Text
'self'        Name.Builtin.Pseudo
' '           Text
'currentWorld' Name.Function
'.'           Punctuation
'\n '         Text
'! !'         Keyword
'\n\n'        Text

'!'           Keyword
'Object'      Name.Class
' methodsFor: ' Keyword
"'viewer'"    Literal.String
" stamp: 'sw 9/26/2001 11:58'!" Keyword
'\n'          Text

'initialTypeForSlotNamed:' Name.Function
' '           Text
'aName'       Name.Variable
'\n\t'        Text
'"Answer the initial type to be ascribed to the given instance variable"' Comment
'\n\n\t'      Text
'^'           Operator
' '           Text
'#Object'     Literal.String.Symbol
'! !'         Keyword
'\n\n'        Text

'!'           Keyword
'Object'      Name.Class
' methodsFor: ' Keyword
"'viewer'"    Literal.String
" stamp: 'ar 5/26/2001 16:13'!" Keyword
'\n'          Text

'isPlayerLike' Name.Function
'\n\t'        Text
'"Return true if the receiver is a player-like object"' Comment
'\n\t'        Text
'^'           Operator
'false'       Name.Builtin.Pseudo
'! !'         Keyword
'\n\n'        Text

'!'           Keyword
'Object'      Name.Class
' methodsFor: ' Keyword
"'viewer'"    Literal.String
" stamp: 'nk 9/11/2004 16:53'!" Keyword
'\n'          Text

'methodInterfacesInPresentationOrderFrom:' Name.Function
' '           Text
'interfaceList' Name.Variable
' '           Text
'forCategory:' Name.Function
' '           Text
'aCategory'   Name.Variable
' \n\t'       Text
'"Answer the interface list sorted in desired presentation order, using a \n\tstatic master-ordering list, q.v. The category parameter allows an \n\tescape in case one wants to apply different order strategies in different \n\tcategories, but for now a single master-priority-ordering is used -- see \n\tthe comment in method EToyVocabulary.masterOrderingOfPhraseSymbols"' Comment
'\n\n\t'      Text
'|'           Operator
' masterOrder ordered unordered index ' Name.Variable
'|'           Operator
'\n\t'        Text
'masterOrder' Name.Variable
' '           Text
':='          Operator
' '           Text
'Vocabulary'  Name.Class
' '           Text
'eToyVocabulary' Name.Function
' '           Text
'masterOrderingOfPhraseSymbols' Name.Function
'.'           Punctuation
'\n\t'        Text
'ordered'     Name.Variable
' '           Text
':='          Operator
' '           Text
'SortedCollection' Name.Class
' '           Text
'sortBlock:'  Name.Function
' '           Text
'['           Text
':'           Operator
'a'           Name.Variable
' '           Text
':'           Operator
'b'           Name.Variable
' '           Text
'|'           Operator
' '           Text
'a'           Name.Variable
' '           Text
'key'         Name.Function
' '           Text
'<'           Name.Function
' '           Text
'b'           Name.Variable
' '           Text
'key'         Name.Function
']'           Text
'.'           Punctuation
'\n\t'        Text
'unordered'   Name.Variable
' '           Text
':='          Operator
' '           Text
'SortedCollection' Name.Class
' '           Text
'sortBlock:'  Name.Function
' '           Text
'['           Text
':'           Operator
'a'           Name.Variable
' '           Text
':'           Operator
'b'           Name.Variable
' '           Text
'|'           Operator
' '           Text
'a'           Name.Variable
' '           Text
'wording'     Name.Function
' '           Text
'<'           Name.Function
' '           Text
'b'           Name.Variable
' '           Text
'wording'     Name.Function
']'           Text
'.'           Punctuation
'\n\n\t'      Text
'interfaceList' Name.Variable
' '           Text
'do:'         Name.Function
' '           Text
'['           Text
':'           Operator
'interface'   Name.Variable
' '           Text
'|'           Operator
' \n\t\t'     Text
'index'       Name.Variable
' '           Text
':='          Operator
' '           Text
'masterOrder' Name.Variable
' '           Text
'indexOf:'    Name.Function
' '           Text
'interface'   Name.Variable
' '           Text
'elementSymbol' Name.Function
'.'           Punctuation
'\n\t\t'      Text
'index'       Name.Variable
' '           Text
'isZero'      Name.Function
'\n\t\t\t'    Text
'ifTrue:'     Name.Builtin
' '           Text
'['           Text
'unordered'   Name.Variable
' '           Text
'add:'        Name.Function
' '           Text
'interface'   Name.Variable
']'           Text
'\n\t\t\t'    Text
'ifFalse:'    Name.Builtin
' '           Text
'['           Text
'ordered'     Name.Variable
' '           Text
'add:'        Name.Function
' '           Text
'index'       Name.Variable
' '           Text
'->'          Name.Function
' '           Text
'interface'   Name.Variable
']'           Text
']'           Text
'.'           Punctuation
'\n\n\t'      Text
'^'           Operator
' '           Text
'Array'       Name.Class
'\n\t\t'      Text
'streamContents:' Name.Function
' '           Text
'['           Text
':'           Operator
'stream'      Name.Variable
' '           Text
'|'           Operator
' \n\t\t\t'   Text
'ordered'     Name.Variable
' '           Text
'do:'         Name.Function
' '           Text
'['           Text
':'           Operator
'assoc'       Name.Variable
' '           Text
'|'           Operator
' '           Text
'stream'      Name.Variable
' '           Text
'nextPut:'    Name.Function
' '           Text
'assoc'       Name.Variable
' '           Text
'value'       Name.Function
']'           Text
'.'           Punctuation
'\n\t\t\t'    Text
'stream'      Name.Variable
' '           Text
'nextPutAll:' Name.Function
' '           Text
'unordered'   Name.Variable
']'           Text
'! !'         Keyword
'\n\n'        Text

'!'           Keyword
'Object'      Name.Class
' methodsFor: ' Keyword
"'viewer'"    Literal.String
" stamp: 'sw 10/24/2000 11:36'!" Keyword
'\n'          Text

'newScriptorAround:' Name.Function
' '           Text
'aPhraseTileMorph' Name.Variable
'\n\t'        Text
'"Sprout a scriptor around aPhraseTileMorph, thus making a new script.  This is where generalized scriptors will be threaded in"' Comment
'\n\n\t'      Text
'^'           Operator
' '           Text
'nil'         Name.Builtin.Pseudo
'! !'         Keyword
'\n\n'        Text

'!'           Keyword
'Object'      Name.Class
' methodsFor: ' Keyword
"'viewer'"    Literal.String
" stamp: 'sw 10/25/2000 17:42'!" Keyword
'\n'          Text

'offerViewerMenuForEvt:' Name.Function
' '           Text
'anEvent'     Name.Variable
' '           Text
'morph:'      Name.Function
' '           Text
'aMorph'      Name.Variable
'\n\t'        Text
'"Offer the viewer\'s primary menu to the user.  aMorph is some morph within the viewer itself, the one within which a mousedown triggered the need for this menu, and it is used only to retrieve the Viewer itself"' Comment
'\n\n\t'      Text
'self'        Name.Builtin.Pseudo
' '           Text
'offerViewerMenuFor:' Name.Function
' '           Text
'('           Text
'aMorph'      Name.Variable
' '           Text
'ownerThatIsA:' Name.Function
' '           Text
'StandardViewer' Name.Class
')'           Text
' '           Text
'event:'      Name.Function
' '           Text
'anEvent'     Name.Variable
'! !'         Keyword
'\n\n'        Text

'!'           Keyword
'Object'      Name.Class
' methodsFor: ' Keyword
"'viewer'"    Literal.String
" stamp: 'sw 8/11/2002 02:03'!" Keyword
'\n'          Text

'offerViewerMenuFor:' Name.Function
' '           Text
'aViewer'     Name.Variable
' '           Text
'event:'      Name.Function
' '           Text
'evt'         Name.Variable
'\n\t'        Text
'"Offer the primary Viewer menu to the user.  Copied up from Player code, but most of the functions suggested here don\'t work for non-Player objects, many aren\'t even defined, some relate to exploratory sw work not yet reflected in the current corpus.  We are early in the life cycle of this method..."' Comment
'\n\n\t'      Text
'|'           Operator
' aMenu '     Name.Variable
'|'           Operator
'\n\t'        Text
'aMenu'       Name.Variable
' '           Text
'_'           Operator
' '           Text
'MenuMorph'   Name.Class
' '           Text
'new'         Name.Builtin
' '           Text
'defaultTarget:' Name.Function
' '           Text
'self'        Name.Builtin.Pseudo
'.'           Punctuation
'\n\t'        Text
'aMenu'       Name.Variable
' '           Text
'addStayUpItem' Name.Function
'.'           Punctuation
'\n\t'        Text
'aMenu'       Name.Variable
' '           Text
'title:'      Name.Function
' '           Text
"'**CAUTION -- UNDER CONSTRUCTION!!**\nMany things may not work!!\n'" Literal.String
','           Name.Function
' '           Text
'self'        Name.Builtin.Pseudo
' '           Text
'nameForViewer' Name.Function
'.'           Punctuation
'\n\t'        Text
'('           Text
'aViewer'     Name.Variable
' '           Text
'affordsUniclass' Name.Function
' '           Text
'and:'        Name.Function
' '           Text
'['           Text
'self'        Name.Builtin.Pseudo
' '           Text
'belongsToUniClass' Name.Function
' '           Text
'not'         Name.Function
']'           Text
')'           Text
' '           Text
'ifTrue:'     Name.Builtin
'\n\t\t'      Text
'['           Text
'aMenu'       Name.Variable
' '           Text
'add:'        Name.Function
' '           Text
"'give me a Uniclass'" Literal.String
' '           Text
'action:'     Name.Function
' '           Text
'#assureUniClass' Literal.String.Symbol
'.'           Punctuation
'\n\t\t'      Text
'aMenu'       Name.Variable
' '           Text
'addLine'     Name.Function
']'           Text
'.'           Punctuation
'\n\t'        Text
'aMenu'       Name.Variable
' '           Text
'add:'        Name.Function
' '           Text
"'choose vocabulary...'" Literal.String
' '           Text
'target:'     Name.Function
' '           Text
'aViewer'     Name.Variable
' '           Text
'action:'     Name.Function
' '           Text
'#chooseVocabulary' Literal.String.Symbol
'.'           Punctuation
'\n\t'        Text
'aMenu'       Name.Variable
' '           Text
'add:'        Name.Function
' '           Text
"'choose limit class...'" Literal.String
' '           Text
'target:'     Name.Function
' '           Text
'aViewer'     Name.Variable
' '           Text
'action:'     Name.Function
' '           Text
'#chooseLimitClass' Literal.String.Symbol
'.'           Punctuation
'\n\t'        Text
'aMenu'       Name.Variable
' '           Text
'add:'        Name.Function
' '           Text
"'add search pane'" Literal.String
' '           Text
'target:'     Name.Function
' '           Text
'aViewer'     Name.Variable
' '           Text
'action:'     Name.Function
' '           Text
'#addSearchPane' Literal.String.Symbol
'.'           Punctuation
'\n\t'        Text
'aMenu'       Name.Variable
' '           Text
'balloonTextForLastItem:' Name.Function
' '           Text
"'Specify which class should be the most generic one to have its methods shown in this Viewer'" Literal.String
'.'           Punctuation
'\n\t'        Text
'aMenu'       Name.Variable
' '           Text
'addLine'     Name.Function
'.'           Punctuation
'\n\n\t'      Text
'self'        Name.Builtin.Pseudo
' '           Text
'belongsToUniClass' Name.Function
' '           Text
'ifTrue:'     Name.Builtin
'\n\t\t'      Text
'['           Text
'aMenu'       Name.Variable
' '           Text
'add:'        Name.Function
' '           Text
"'add a new instance variable'" Literal.String
' '           Text
'target:'     Name.Function
' '           Text
'self'        Name.Builtin.Pseudo
' '           Text
'selector:'   Name.Function
' '           Text
'#addInstanceVariableIn:' Literal.String.Symbol
' '           Text
'argument:'   Name.Function
' '           Text
'aViewer'     Name.Variable
'.'           Punctuation
'\n\t\t'      Text
'aMenu'       Name.Variable
' '           Text
'add:'        Name.Function
' '           Text
"'add a new script'" Literal.String
' '           Text
'target:'     Name.Function
' '           Text
'aViewer'     Name.Variable
' '           Text
'selector:'   Name.Function
' '           Text
'#newPermanentScriptIn:' Literal.String.Symbol
' '           Text
'argument:'   Name.Function
' '           Text
'aViewer'     Name.Variable
'.'           Punctuation
'\n\t\t'      Text
'aMenu'       Name.Variable
' '           Text
'addLine'     Name.Function
'.'           Punctuation
'\n\t\t'      Text
'aMenu'       Name.Variable
' '           Text
'add:'        Name.Function
' '           Text
"'make my class be first-class'" Literal.String
' '           Text
'target:'     Name.Function
' '           Text
'self'        Name.Builtin.Pseudo
' '           Text
'selector:'   Name.Function
' '           Text
'#makeFirstClassClassIn:' Literal.String.Symbol
' '           Text
'argument:'   Name.Function
' '           Text
'aViewer'     Name.Variable
'.'           Punctuation
'\n\t\t'      Text
'aMenu'       Name.Variable
' '           Text
'add:'        Name.Function
' '           Text
"'move my changes up to my superclass'" Literal.String
' '           Text
'target:'     Name.Function
' '           Text
'self'        Name.Builtin.Pseudo
' '           Text
'action:'     Name.Function
' '           Text
'#promoteChangesToSuperclass' Literal.String.Symbol
'.'           Punctuation
'\n\t\t'      Text
'aMenu'       Name.Variable
' '           Text
'addLine'     Name.Function
']'           Text
'.'           Punctuation
'\n\n\t'      Text
'aMenu'       Name.Variable
' '           Text
'add:'        Name.Function
' '           Text
"'tear off a tile'" Literal.String
' '           Text
'target:'     Name.Function
' '           Text
'self'        Name.Builtin.Pseudo
' '           Text
'selector:'   Name.Function
' '           Text
'#launchTileToRefer' Literal.String.Symbol
'.'           Punctuation
'\n\t'        Text
'aMenu'       Name.Variable
' '           Text
'addLine'     Name.Function
'.'           Punctuation
'\n\n\t'      Text
'aMenu'       Name.Variable
' '           Text
'add:'        Name.Function
' '           Text
"'inspect me'" Literal.String
' '           Text
'target:'     Name.Function
' '           Text
'self'        Name.Builtin.Pseudo
' '           Text
'selector:'   Name.Function
' '           Text
'#inspect'    Literal.String.Symbol
'.'           Punctuation
'\n\t'        Text
'aMenu'       Name.Variable
' '           Text
'add:'        Name.Function
' '           Text
"'inspect my class'" Literal.String
' '           Text
'target:'     Name.Function
' '           Text
'self'        Name.Builtin.Pseudo
' '           Text
'class'       Name.Function
' '           Text
'action:'     Name.Function
' '           Text
'#inspect'    Literal.String.Symbol
'.'           Punctuation
'\n\t'        Text
'aMenu'       Name.Variable
' '           Text
'addLine'     Name.Function
'.'           Punctuation
'\n\n\t'      Text
'aMenu'       Name.Variable
' '           Text
'add:'        Name.Function
' '           Text
"'browse vocabulary'" Literal.String
' '           Text
'action:'     Name.Function
' '           Text
'#haveFullProtocolBrowsed' Literal.String.Symbol
'.'           Punctuation
'\n\t'        Text
'aMenu'       Name.Variable
' '           Text
'add:'        Name.Function
' '           Text
"'inspect this Viewer'" Literal.String
' '           Text
'target:'     Name.Function
' '           Text
'aViewer'     Name.Variable
' '           Text
'action:'     Name.Function
' '           Text
'#inspect'    Literal.String.Symbol
'.'           Punctuation
'\n\n\t'      Text
'aMenu'       Name.Variable
' '           Text
'popUpEvent:' Name.Function
' '           Text
'evt'         Name.Variable
' '           Text
'in:'         Name.Function
' '           Text
'aViewer'     Name.Variable
' '           Text
'currentWorld' Name.Function
'\n\n'        Text

'"\n\taMenu add: \'references to me\' target: aViewer action: #browseReferencesToObject.\n\taMenu add: \'toggle scratch pane\' target: aViewer selector: #toggleScratchPane.\n\taMenu add: \'make a nascent script for me\' target: aViewer selector: #makeNascentScript.\n\taMenu add: \'rename me\' target: aViewer selector: #chooseNewNameForReference.\n\taMenu add: \'browse full\' action: #browseOwnClassFull.\n\taMenu add: \'browse hierarchy\' action: #browseOwnClassHierarchy.\n\taMenu add: \'set user level...\' target: aViewer action: #setUserLevel.\n\taMenu add: \'browse sub-protocol\' action: #browseOwnClassSubProtocol.\n\taMenu addLine.\n\n"' Comment
'! !'         Keyword
'\n\n'        Text

'!'           Keyword
'Object'      Name.Class
' methodsFor: ' Keyword
"'viewer'"    Literal.String
" stamp: 'sw 1/22/2001 15:20'!" Keyword
'\n'          Text

'renameScript:' Name.Function
' '           Text
'oldSelector' Name.Variable
'\n\t'        Text
'"prompt the user for a new selector and apply it.  Presently only works for players"' Comment
'\n\n\t'      Text
'self'        Name.Builtin.Pseudo
' '           Text
'notYetImplemented' Name.Function
'! !'         Keyword
'\n\n'        Text

'!'           Keyword
'Object'      Name.Class
' methodsFor: ' Keyword
"'viewer'"    Literal.String
" stamp: 'sw 8/10/2004 11:53'!" Keyword
'\n'          Text

'tilePhrasesForCategory:' Name.Function
' '           Text
'aCategorySymbol' Name.Variable
' '           Text
'inViewer:'   Name.Function
' '           Text
'aViewer'     Name.Variable
'\n\t'        Text
'"Return a collection of phrases for the category."' Comment
'\n\n\t'      Text
'|'           Operator
' interfaces ' Name.Variable
'|'           Operator
'\n\t'        Text
'interfaces'  Name.Variable
' '           Text
'_'           Operator
' '           Text
'self'        Name.Builtin.Pseudo
' '           Text
'methodInterfacesForCategory:' Name.Function
' '           Text
'aCategorySymbol' Name.Variable
' '           Text
'inVocabulary:' Name.Function
' '           Text
'aViewer'     Name.Variable
' '           Text
'currentVocabulary' Name.Function
' '           Text
'limitClass:' Name.Function
' '           Text
'aViewer'     Name.Variable
' '           Text
'limitClass'  Name.Function
'.'           Punctuation
'\n\t'        Text
'interfaces'  Name.Variable
' '           Text
'_'           Operator
' '           Text
'self'        Name.Builtin.Pseudo
' '           Text
'methodInterfacesInPresentationOrderFrom:' Name.Function
' '           Text
'interfaces'  Name.Variable
' '           Text
'forCategory:' Name.Function
' '           Text
'aCategorySymbol' Name.Variable
'.'           Punctuation
'\n\t'        Text
'^'           Operator
' '           Text
'self'        Name.Builtin.Pseudo
' '           Text
'tilePhrasesForMethodInterfaces:' Name.Function
' '           Text
'interfaces'  Name.Variable
' '           Text
'inViewer:'   Name.Function
' '           Text
'aViewer'     Name.Variable
'! !'         Keyword
'\n\n'        Text

'!'           Keyword
'Object'      Name.Class
' methodsFor: ' Keyword
"'viewer'"    Literal.String
" stamp: 'sw 8/10/2004 11:53'!" Keyword
'\n'          Text

'tilePhrasesForMethodInterfaces:' Name.Function
' '           Text
'methodInterfaceList' Name.Variable
' '           Text
'inViewer:'   Name.Function
' '           Text
'aViewer'     Name.Variable
'\n\t'        Text
'"Return a collection of ViewerLine objects corresponding to the method-interface list provided.   The resulting list will be in the same order as the incoming list, but may be smaller if the viewer\'s vocbulary suppresses some of the methods, or if, in classic tiles mode, the selector requires more arguments than can be handled."' Comment
'\n\n\t'      Text
'|'           Operator
' toSuppress interfaces resultType itsSelector ' Name.Variable
'|'           Operator
'\n\t'        Text
'toSuppress'  Name.Variable
' '           Text
'_'           Operator
' '           Text
'aViewer'     Name.Variable
' '           Text
'currentVocabulary' Name.Function
' '           Text
'phraseSymbolsToSuppress' Name.Function
'.'           Punctuation
'\n\t'        Text
'interfaces'  Name.Variable
' '           Text
'_'           Operator
' '           Text
'methodInterfaceList' Name.Variable
' '           Text
'reject:'     Name.Function
' '           Text
'['           Text
':'           Operator
'int'         Name.Variable
' '           Text
'|'           Operator
' '           Text
'toSuppress'  Name.Variable
' '           Text
'includes:'   Name.Function
' '           Text
'int'         Name.Variable
' '           Text
'selector'    Name.Function
']'           Text
'.'           Punctuation
'\n\t'        Text
'Preferences' Name.Class
' '           Text
'universalTiles' Name.Function
' '           Text
'ifFalse:'    Name.Builtin
'  '          Text
'"Classic tiles have their limitations..."' Comment
'\n\t\t'      Text
'['           Text
'interfaces'  Name.Variable
' '           Text
'_'           Operator
' '           Text
'interfaces'  Name.Variable
' '           Text
'select:'     Name.Function
'\n\t\t\t'    Text
'['           Text
':'           Operator
'int'         Name.Variable
' '           Text
'|'           Operator
'\n\t\t\t\t'  Text
'itsSelector' Name.Variable
' '           Text
'_'           Operator
' '           Text
'int'         Name.Variable
' '           Text
'selector'    Name.Function
'.'           Punctuation
'\n\t\t\t\t'  Text
'itsSelector' Name.Variable
' '           Text
'numArgs'     Name.Function
' '           Text
'<'           Name.Function
' '           Text
'2'           Literal.Number
' '           Text
'or:'         Name.Function
'\n\t\t\t\t\t' Text
'"The lone two-arg loophole in classic tiles"' Comment
'\n\t\t\t\t\t' Text
'['           Text
'#('          Literal.String.Symbol
'color:sees:' Literal.String.Symbol
')'           Literal.String.Symbol
' '           Text
'includes:'   Name.Function
' '           Text
'itsSelector' Name.Variable
']'           Text
']'           Text
']'           Text
'.'           Punctuation
'\n\n\t'      Text
'^'           Operator
' '           Text
'interfaces'  Name.Variable
' '           Text
'collect:'    Name.Function
'\n\t\t'      Text
'['           Text
':'           Operator
'aMethodInterface' Name.Variable
' '           Text
'|'           Operator
'\n\t\t\t'    Text
'('           Text
'('           Text
'resultType'  Name.Variable
' '           Text
'_'           Operator
' '           Text
'aMethodInterface' Name.Variable
' '           Text
'resultType'  Name.Function
')'           Text
' '           Text
'notNil'      Name.Function
' '           Text
'and:'        Name.Function
' '           Text
'['           Text
'resultType'  Name.Variable
' '           Text
'~~'          Name.Function
' '           Text
'#unknown'    Literal.String.Symbol
']'           Text
')'           Text
' \n\t\t\t\t' Text
'ifTrue:'     Name.Builtin
'\n\t\t\t\t\t' Text
'['           Text
'aViewer'     Name.Variable
' '           Text
'phraseForVariableFrom:' Name.Function
' '           Text
'aMethodInterface' Name.Variable
']'           Text
'\n\t\t\t\t'  Text
'ifFalse:'    Name.Builtin
'\n\t\t\t\t\t' Text
'['           Text
'aViewer'     Name.Variable
' '           Text
'phraseForCommandFrom:' Name.Function
' '           Text
'aMethodInterface' Name.Variable
']'           Text
']'           Text
'! !'         Keyword
'\n\n'        Text

'!'           Keyword
'Object'      Name.Class
' methodsFor: ' Keyword
"'viewer'"    Literal.String
" stamp: 'sw 8/10/2004 12:23'!" Keyword
'\n'          Text

'tilePhrasesForSelectorList:' Name.Function
' '           Text
'aList'       Name.Variable
' '           Text
'inViewer:'   Name.Function
' '           Text
'aViewer'     Name.Variable
'\n\t'        Text
'"Particular to the search facility in viewers.  Answer a list, in appropriate order, of ViewerLine objects to put into the viewer."' Comment
'\n\n\t'      Text
'|'           Operator
' interfaces aVocab ' Name.Variable
'|'           Operator
'\n\t'        Text
'aVocab'      Name.Variable
' '           Text
'_'           Operator
' '           Text
'aViewer'     Name.Variable
' '           Text
'currentVocabulary' Name.Function
'.'           Punctuation
'\n\t'        Text
'interfaces'  Name.Variable
' '           Text
'_'           Operator
' '           Text
'self'        Name.Builtin.Pseudo
'\n\t\t'      Text
'methodInterfacesInPresentationOrderFrom:' Name.Function
'\n\t\t\t'    Text
'('           Text
'aList'       Name.Variable
' '           Text
'collect:'    Name.Function
' '           Text
'['           Text
':'           Operator
'aSel'        Name.Variable
' '           Text
'|'           Operator
' '           Text
'aVocab'      Name.Variable
' '           Text
'methodInterfaceForSelector:' Name.Function
' '           Text
'aSel'        Name.Variable
' '           Text
'class:'      Name.Function
' '           Text
'self'        Name.Builtin.Pseudo
' '           Text
'class'       Name.Function
']'           Text
')'           Text
'\n\t\t'      Text
'forCategory:' Name.Function
' '           Text
'#search'     Literal.String.Symbol
'.'           Punctuation
'\n\t'        Text
'^'           Operator
' '           Text
'self'        Name.Builtin.Pseudo
' '           Text
'tilePhrasesForMethodInterfaces:' Name.Function
' '           Text
'interfaces'  Name.Variable
' '           Text
'inViewer:'   Name.Function
' '           Text
'aViewer'     Name.Variable
'! !'         Keyword
'\n\n'        Text

'!'           Keyword
'Object'      Name.Class
' methodsFor: ' Keyword
"'viewer'"    Literal.String
" stamp: 'sw 5/4/2001 04:51'!" Keyword
'\n'          Text

'tileToRefer' Name.Function
'\n\t'        Text
'"Answer a reference tile that comprises an alias to me"' Comment
'\n\n\t'      Text
'^'           Operator
' '           Text
'TileMorph'   Name.Class
' '           Text
'new'         Name.Builtin
' '           Text
'setToReferTo:' Name.Function
' '           Text
'self'        Name.Builtin.Pseudo
'! !'         Keyword
'\n\n'        Text

'!'           Keyword
'Object'      Name.Class
' methodsFor: ' Keyword
"'viewer'"    Literal.String
" stamp: 'sd 3/30/2005 22:04'!" Keyword
'\n'          Text

'uniqueInstanceVariableNameLike:' Name.Function
' '           Text
'aString'     Name.Variable
' '           Text
'excluding:'  Name.Function
' '           Text
'takenNames'  Name.Variable
'\n\t'        Text
'"Answer a nice instance-variable name to be added to the receiver which resembles aString, making sure it does not coincide with any element in takenNames"' Comment
'\n\n\t'      Text
'|'           Operator
' okBase uniqueName usedNames ' Name.Variable
'|'           Operator
'\n\t'        Text
'usedNames'   Name.Variable
' '           Text
'_'           Operator
' '           Text
'self'        Name.Builtin.Pseudo
' '           Text
'class'       Name.Function
' '           Text
'allInstVarNamesEverywhere' Name.Function
'.'           Punctuation
'\n\t'        Text
'usedNames'   Name.Variable
' '           Text
'removeAllFoundIn:' Name.Function
' '           Text
'self'        Name.Builtin.Pseudo
' '           Text
'class'       Name.Function
' '           Text
'instVarNames' Name.Function
'.'           Punctuation
'\n\t'        Text
'usedNames'   Name.Variable
' '           Text
'addAll:'     Name.Function
' '           Text
'takenNames'  Name.Variable
'.'           Punctuation
'\n\t'        Text
'okBase'      Name.Variable
' '           Text
'_'           Operator
' '           Text
'Scanner'     Name.Class
' '           Text
'wellFormedInstanceVariableNameFrom:' Name.Function
' '           Text
'aString'     Name.Variable
'.'           Punctuation
'\n\n\t'      Text
'uniqueName'  Name.Variable
' '           Text
'_'           Operator
' '           Text
'Utilities'   Name.Class
' '           Text
'keyLike:'    Name.Function
' '           Text
'okBase'      Name.Variable
' '           Text
'satisfying:' Name.Function
' \n\t\t'     Text
'['           Text
':'           Operator
'aKey'        Name.Variable
' '           Text
'|'           Operator
' '           Text
'('           Text
'usedNames'   Name.Variable
' '           Text
'includes:'   Name.Function
' '           Text
'aKey'        Name.Variable
')'           Text
' '           Text
'not'         Name.Function
']'           Text
'.'           Punctuation
'\n\n\t'      Text
'^'           Operator
' '           Text
'uniqueName'  Name.Variable
'! !'         Keyword
'\n\n'        Text

'!'           Keyword
'Object'      Name.Class
' methodsFor: ' Keyword
"'viewer'"    Literal.String
" stamp: 'sw 11/21/2001 15:16'!" Keyword
'\n'          Text

'uniqueNameForReference' Name.Function
'\n\t'        Text
'"Answer a nice name by which the receiver can be referred to by other objects.  At present this uses a global References dictionary to hold the database of references, but in due course this will need to acquire some locality"' Comment
'\n\n\t'      Text
'|'           Operator
' aName nameSym stem knownClassVars ' Name.Variable
'|'           Operator
'\n\t'        Text
'('           Text
'aName'       Name.Variable
' '           Text
'_'           Operator
' '           Text
'self'        Name.Builtin.Pseudo
' '           Text
'uniqueNameForReferenceOrNil' Name.Function
')'           Text
' '           Text
'ifNotNil:'   Name.Function
' '           Text
'['           Text
'^'           Operator
' '           Text
'aName'       Name.Variable
']'           Text
'.'           Punctuation
'\n\t'        Text
'('           Text
'stem'        Name.Variable
' '           Text
'_'           Operator
' '           Text
'self'        Name.Builtin.Pseudo
' '           Text
'knownName'   Name.Function
')'           Text
' '           Text
'ifNil:'      Name.Function
'\n\t\t'      Text
'['           Text
'stem'        Name.Variable
' '           Text
'_'           Operator
' '           Text
'self'        Name.Builtin.Pseudo
' '           Text
'defaultNameStemForInstances' Name.Function
' '           Text
'asString'    Name.Function
']'           Text
'.'           Punctuation
'\n\t'        Text
'stem'        Name.Variable
' '           Text
'_'           Operator
' '           Text
'stem'        Name.Variable
' '           Text
'select:'     Name.Function
' '           Text
'['           Text
':'           Operator
'ch'          Name.Variable
' '           Text
'|'           Operator
' '           Text
'ch'          Name.Variable
' '           Text
'isLetter'    Name.Function
' '           Text
'or:'         Name.Function
' '           Text
'['           Text
'ch'          Name.Variable
' '           Text
'isDigit'     Name.Function
']'           Text
']'           Text
'.'           Punctuation
'\n\t'        Text
'stem'        Name.Variable
' '           Text
'size'        Name.Function
' '           Text
'=='          Name.Function
' '           Text
'0'           Literal.Number
' '           Text
'ifTrue:'     Name.Builtin
' '           Text
'['           Text
'stem'        Name.Variable
' '           Text
'_'           Operator
' '           Text
"'A'"         Literal.String
']'           Text
'.'           Punctuation
'\n\t'        Text
'stem'        Name.Variable
' '           Text
'first'       Name.Function
' '           Text
'isLetter'    Name.Function
' '           Text
'ifFalse:'    Name.Builtin
'\n\t\t'      Text
'['           Text
'stem'        Name.Variable
' '           Text
'_'           Operator
' '           Text
"'A'"         Literal.String
','           Name.Function
' '           Text
'stem'        Name.Variable
']'           Text
'.'           Punctuation
'\n\t'        Text
'stem'        Name.Variable
' '           Text
'_'           Operator
' '           Text
'stem'        Name.Variable
' '           Text
'capitalized' Name.Function
'.'           Punctuation
'\n\t'        Text
'knownClassVars' Name.Variable
' '           Text
'_'           Operator
' '           Text
'ScriptingSystem' Name.Class
' '           Text
'allKnownClassVariableNames' Name.Function
'.'           Punctuation
'\n\t'        Text
'aName'       Name.Variable
' '           Text
'_'           Operator
' '           Text
'Utilities'   Name.Class
' '           Text
'keyLike:'    Name.Function
'  '          Text
'stem'        Name.Variable
' '           Text
'satisfying:' Name.Function
'\n\t\t'      Text
'['           Text
':'           Operator
'jinaLake'    Name.Variable
' '           Text
'|'           Operator
'\n\t\t\t'    Text
'nameSym'     Name.Variable
' '           Text
'_'           Operator
' '           Text
'jinaLake'    Name.Variable
' '           Text
'asSymbol'    Name.Function
'.'           Punctuation
'\n\t\t\t '   Text
'('           Text
'('           Text
'References'  Name.Class
' '           Text
'includesKey:' Name.Function
'  '          Text
'nameSym'     Name.Variable
')'           Text
' '           Text
'not'         Name.Function
' '           Text
'and:'        Name.Function
'\n\t\t\t\t'  Text
'['           Text
'('           Text
'Smalltalk'   Name.Class
' '           Text
'includesKey:' Name.Function
' '           Text
'nameSym'     Name.Variable
')'           Text
' '           Text
'not'         Name.Function
']'           Text
')'           Text
' '           Text
'and:'        Name.Function
'\n\t\t\t\t\t\t' Text
'['           Text
'('           Text
'knownClassVars' Name.Variable
' '           Text
'includes:'   Name.Function
' '           Text
'nameSym'     Name.Variable
')'           Text
' '           Text
'not'         Name.Function
']'           Text
']'           Text
'.'           Punctuation
'\n\n\t'      Text
'References'  Name.Class
' '           Text
'at:'         Name.Function
' '           Text
'('           Text
'aName'       Name.Variable
' '           Text
'_'           Operator
' '           Text
'aName'       Name.Variable
' '           Text
'asSymbol'    Name.Function
')'           Text
' '           Text
'put:'        Name.Function
' '           Text
'self'        Name.Builtin.Pseudo
'.'           Punctuation
'\n\t'        Text
'^'           Operator
' '           Text
'aName'       Name.Variable
'! !'         Keyword
'\n\n'        Text

'!'           Keyword
'Object'      Name.Class
' methodsFor: ' Keyword
"'viewer'"    Literal.String
" stamp: 'md 1/17/2006 17:58'!" Keyword
'\n'          Text

'uniqueNameForReferenceFrom:' Name.Function
' '           Text
'proposedName' Name.Variable
'\n\t'        Text
'"Answer a satisfactory symbol, similar to the proposedName but obeying the rules, to represent the receiver"' Comment
'\n\n\t'      Text
'|'           Operator
' aName nameSym stem okay ' Name.Variable
'|'           Operator
'\n\t'        Text
'proposedName' Name.Variable
' '           Text
'='           Name.Function
' '           Text
'self'        Name.Builtin.Pseudo
' '           Text
'uniqueNameForReferenceOrNil' Name.Function
' \n\t\t'     Text
'ifTrue:'     Name.Builtin
' '           Text
'['           Text
'^'           Operator
' '           Text
'proposedName' Name.Variable
']'           Text
'.'           Punctuation
'  '          Text
'"No change"' Comment
'\n\n\t'      Text
'stem'        Name.Variable
' '           Text
'_'           Operator
' '           Text
'proposedName' Name.Variable
' '           Text
'select:'     Name.Function
' '           Text
'['           Text
':'           Operator
'ch'          Name.Variable
' '           Text
'|'           Operator
' '           Text
'ch'          Name.Variable
' '           Text
'isLetter'    Name.Function
' '           Text
'or:'         Name.Function
' '           Text
'['           Text
'ch'          Name.Variable
' '           Text
'isDigit'     Name.Function
']'           Text
']'           Text
'.'           Punctuation
'\n\t'        Text
'stem'        Name.Variable
' '           Text
'size'        Name.Function
' '           Text
'=='          Name.Function
' '           Text
'0'           Literal.Number
' '           Text
'ifTrue:'     Name.Builtin
' '           Text
'['           Text
'stem'        Name.Variable
' '           Text
'_'           Operator
' '           Text
"'A'"         Literal.String
']'           Text
'.'           Punctuation
'\n\t'        Text
'stem'        Name.Variable
' '           Text
'first'       Name.Function
' '           Text
'isLetter'    Name.Function
' '           Text
'ifFalse:'    Name.Builtin
'\n\t\t'      Text
'['           Text
'stem'        Name.Variable
' '           Text
'_'           Operator
' '           Text
"'A'"         Literal.String
','           Name.Function
' '           Text
'stem'        Name.Variable
']'           Text
'.'           Punctuation
'\n\t'        Text
'stem'        Name.Variable
' '           Text
'_'           Operator
' '           Text
'stem'        Name.Variable
' '           Text
'capitalized' Name.Function
'.'           Punctuation
'\n\t'        Text
'aName'       Name.Variable
' '           Text
'_'           Operator
' '           Text
'Utilities'   Name.Class
' '           Text
'keyLike:'    Name.Function
' '           Text
'stem'        Name.Variable
' '           Text
'satisfying:' Name.Function
'\n\t\t'      Text
'['           Text
':'           Operator
'jinaLake'    Name.Variable
' '           Text
'|'           Operator
'\n\t\t\t'    Text
'nameSym'     Name.Variable
' '           Text
'_'           Operator
' '           Text
'jinaLake'    Name.Variable
' '           Text
'asSymbol'    Name.Function
'.'           Punctuation
'\n\t\t\t'    Text
'okay'        Name.Variable
' '           Text
'_'           Operator
' '           Text
'true'        Name.Builtin.Pseudo
'.'           Punctuation
'\n\t\t\t'    Text
'('           Text
'self'        Name.Builtin.Pseudo
' '           Text
'class'       Name.Function
' '           Text
'bindingOf:'  Name.Function
' '           Text
'nameSym'     Name.Variable
')'           Text
' '           Text
'ifNotNil:'   Name.Function
' '           Text
'['           Text
'okay'        Name.Variable
' '           Text
'_'           Operator
' '           Text
'false'       Name.Builtin.Pseudo
' '           Text
'"don\'t use it"' Comment
']'           Text
'.'           Punctuation
'\n\t\t\t'    Text
'okay'        Name.Variable
']'           Text
'.'           Punctuation
'\n\t'        Text
'^'           Operator
' '           Text
'aName'       Name.Variable
' '           Text
'asSymbol'    Name.Function
'! !'         Keyword
'\n\n'        Text

'!'           Keyword
'Object'      Name.Class
' methodsFor: ' Keyword
"'viewer'"    Literal.String
" stamp: 'sw 3/15/2004 23:01'!" Keyword
'\n'          Text

'uniqueNameForReferenceOrNil' Name.Function
'\n\t'        Text
'"If the receiver has a unique name for reference, return it here, else return nil"' Comment
'\n\n\t'      Text
'^'           Operator
' '           Text
'References'  Name.Class
' '           Text
'keyAtValue:' Name.Function
' '           Text
'self'        Name.Builtin.Pseudo
' '           Text
'ifAbsent:'   Name.Function
' '           Text
'['           Text
'nil'         Name.Builtin.Pseudo
']'           Text
'! !'         Keyword
'\n\n'        Text

'!'           Keyword
'Object'      Name.Class
' methodsFor: ' Keyword
"'viewer'"    Literal.String
" stamp: 'ar 5/16/2001 01:40'!" Keyword
'\n'          Text

'updateThresholdForGraphicInViewerTab' Name.Function
'\n\t'        Text
'"When a Viewer is open on the receiver, its tab needs some graphic to show to the user. Computing this graphic can take quite some time so we want to make the update frequency depending on how long it takes to compute the thumbnail. The threshold returned by this method defines that the viewer will update at most every \'threshold * timeItTakesToDraw\' milliseconds. Thus, if the time for computing the receiver\'s thumbnail is 200 msecs and the the threshold is 10, the viewer will update at most every two seconds."' Comment
'\n\t'        Text
'^'           Operator
'20'          Literal.Number
' '           Text
'"seems to be a pretty good general choice"' Comment
'! !'         Keyword
'\n\n'        Text

'!'           Keyword
'Object'      Name.Class
' methodsFor: ' Keyword
"'viewer'"    Literal.String
" stamp: 'sw 3/9/2001 13:48'!" Keyword
'\n'          Text

'usableMethodInterfacesIn:' Name.Function
' '           Text
'aListOfMethodInterfaces' Name.Variable
'\n\t'        Text
'"Filter aList, returning a subset list of apt phrases"' Comment
'\n\n\t'      Text
'^'           Operator
' '           Text
'aListOfMethodInterfaces' Name.Variable
'\n'          Text

'! !'         Keyword
'\n\n\n'      Text

'!'           Keyword
'Object'      Name.Class
' methodsFor: ' Keyword
"'world hacking'" Literal.String
" stamp: 'ar 3/17/2001 23:45'!" Keyword
'\n'          Text

'couldOpenInMorphic' Name.Function
'\n'          Text

'\n        '  Text
'"is there an obvious morphic world in which to open a new morph?"' Comment
'\n\n        ' Text
'^'           Operator
'World'       Name.Class
' '           Text
'notNil'      Name.Function
' '           Text
'or:'         Name.Function
' '           Text
'['           Text
'ActiveWorld' Name.Class
' '           Text
'notNil'      Name.Function
']'           Text
'! !'         Keyword
'\n\n\n'      Text

'!'           Keyword
'Object'      Name.Class
' methodsFor: ' Keyword
"'private'"   Literal.String
'!'           Keyword
'\n'          Text

'errorImproperStore' Name.Function
'\n\t'        Text
'"Create an error notification that an improper store was attempted."' Comment
'\n\n\t'      Text
'self'        Name.Builtin.Pseudo
' '           Text
'error:'      Name.Function
' '           Text
"'Improper store into indexable object'" Literal.String
'! !'         Keyword
'\n\n'        Text

'!'           Keyword
'Object'      Name.Class
' methodsFor: ' Keyword
"'private'"   Literal.String
'!'           Keyword
'\n'          Text

'errorNonIntegerIndex' Name.Function
'\n\t'        Text
'"Create an error notification that an improper object was used as an index."' Comment
'\n\n\t'      Text
'self'        Name.Builtin.Pseudo
' '           Text
'error:'      Name.Function
' '           Text
"'only integers should be used as indices'" Literal.String
'! !'         Keyword
'\n\n'        Text

'!'           Keyword
'Object'      Name.Class
' methodsFor: ' Keyword
"'private'"   Literal.String
" stamp: 'yo 6/29/2004 11:37'!" Keyword
'\n'          Text

'errorNotIndexable' Name.Function
'\n\t'        Text
'"Create an error notification that the receiver is not indexable."' Comment
'\n\n\t'      Text
'self'        Name.Builtin.Pseudo
' '           Text
'error:'      Name.Function
' '           Text
'('           Text
"'Instances of {1} are not indexable'" Literal.String
' '           Text
'translated'  Name.Function
' '           Text
'format:'     Name.Function
' '           Text
'{'           Text
'self'        Name.Builtin.Pseudo
' '           Text
'class'       Name.Function
' '           Text
'name'        Name.Function
'}'           Text
')'           Text
'! !'         Keyword
'\n\n'        Text

'!'           Keyword
'Object'      Name.Class
' methodsFor: ' Keyword
"'private'"   Literal.String
'!'           Keyword
'\n'          Text

'errorSubscriptBounds:' Name.Function
' '           Text
'index'       Name.Variable
' \n\t'       Text
'"Create an error notification that an improper integer was used as an index."' Comment
'\n\n\t'      Text
'self'        Name.Builtin.Pseudo
' '           Text
'error:'      Name.Function
' '           Text
"'subscript is out of bounds: '" Literal.String
' '           Text
','           Name.Function
' '           Text
'index'       Name.Variable
' '           Text
'printString' Name.Function
'! !'         Keyword
'\n\n'        Text

'!'           Keyword
'Object'      Name.Class
' methodsFor: ' Keyword
"'private'"   Literal.String
" stamp: 'ar 2/6/2004 14:47'!" Keyword
'\n'          Text

'primitiveError:' Name.Function
' '           Text
'aString'     Name.Variable
' \n\t'       Text
'"This method is called when the error handling results in a recursion in \n\tcalling on error: or halt or halt:."' Comment
'\n\n\t'      Text
'|'           Operator
' context '   Name.Variable
'|'           Operator
'\n\t'        Text
'('           Text
'String'      Name.Class
'\n\t\t'      Text
'streamContents:' Name.Function
' \n\t\t\t'   Text
'['           Text
':'           Operator
's'           Name.Variable
' '           Text
'|'           Operator
'\n\t\t\t'    Text
's'           Name.Variable
' '           Text
'nextPutAll:' Name.Function
' '           Text
"'***System error handling failed***'" Literal.String
'.'           Punctuation
'\n\t\t\t'    Text
's'           Name.Variable
' '           Text
'cr'          Name.Function
';'           Punctuation
' '           Text
'nextPutAll:' Name.Function
' '           Text
'aString'     Name.Variable
'.'           Punctuation
'\n\t\t\t'    Text
'context'     Name.Variable
' '           Text
'_'           Operator
' '           Text
'thisContext' Name.Builtin.Pseudo
' '           Text
'sender'      Name.Function
' '           Text
'sender'      Name.Function
'.'           Punctuation
'\n\t\t\t'    Text
'20'          Literal.Number
' '           Text
'timesRepeat:' Name.Builtin
' '           Text
'['           Text
'context'     Name.Variable
' '           Text
'=='          Name.Function
' '           Text
'nil'         Name.Builtin.Pseudo
' '           Text
'ifFalse:'    Name.Builtin
' '           Text
'['           Text
's'           Name.Variable
' '           Text
'cr'          Name.Function
';'           Punctuation
' '           Text
'print:'      Name.Function
' '           Text
'('           Text
'context'     Name.Variable
' '           Text
'_'           Operator
' '           Text
'context'     Name.Variable
' '           Text
'sender'      Name.Function
')'           Text
']'           Text
']'           Text
'.'           Punctuation
'\n\t\t\t'    Text
's'           Name.Variable
' '           Text
'cr'          Name.Function
';'           Punctuation
' '           Text
'nextPutAll:' Name.Function
' '           Text
"'-------------------------------'" Literal.String
'.'           Punctuation
'\n\t\t\t'    Text
's'           Name.Variable
' '           Text
'cr'          Name.Function
';'           Punctuation
' '           Text
'nextPutAll:' Name.Function
' '           Text
"'Type CR to enter an emergency evaluator.'" Literal.String
'.'           Punctuation
'\n\t\t\t'    Text
's'           Name.Variable
' '           Text
'cr'          Name.Function
';'           Punctuation
' '           Text
'nextPutAll:' Name.Function
' '           Text
"'Type any other character to restart.'" Literal.String
']'           Text
')'           Text
'\n\t\t'      Text
'displayAt:'  Name.Function
' '           Text
'0'           Literal.Number
' '           Text
'@'           Name.Function
' '           Text
'0'           Literal.Number
'.'           Punctuation
'\n\t'        Text
'['           Text
'Sensor'      Name.Class
' '           Text
'keyboardPressed' Name.Function
']'           Text
' '           Text
'whileFalse'  Name.Function
'.'           Punctuation
'\n\t'        Text
'Sensor'      Name.Class
' '           Text
'keyboard'    Name.Function
' '           Text
'='           Name.Function
' '           Text
'Character'   Name.Class
' '           Text
'cr'          Name.Function
' '           Text
'ifTrue:'     Name.Builtin
' '           Text
'['           Text
'Transcripter' Name.Class
' '           Text
'emergencyEvaluator' Name.Function
']'           Text
'.'           Punctuation
'\n\t'        Text
'Smalltalk'   Name.Class
' '           Text
'isMorphic'   Name.Function
'\n\t\t'      Text
'ifTrue:'     Name.Builtin
' '           Text
'['           Text
'World'       Name.Class
' '           Text
'install'     Name.Function
' '           Text
'"init hands and redisplay"' Comment
']'           Text
'\n\t\t'      Text
'ifFalse:'    Name.Builtin
' '           Text
'['           Text
'ScheduledControllers' Name.Class
' '           Text
'searchForActiveController' Name.Function
']'           Text
'! !'         Keyword
'\n\n'        Text

'!'           Keyword
'Object'      Name.Class
' methodsFor: ' Keyword
"'private'"   Literal.String
'!'           Keyword
'\n'          Text

'species'     Name.Function
'\n\t'        Text
'"Answer the preferred class for reconstructing the receiver.  For example, \n\tcollections create new collections whenever enumeration messages such as \n\tcollect: or select: are invoked.  The new kind of collection is determined by \n\tthe species of the original collection.  Species and class are not always the \n\tsame.  For example, the species of Interval is Array."' Comment
'\n\n\t'      Text
'^'           Operator
'self'        Name.Builtin.Pseudo
' '           Text
'class'       Name.Function
'! !'         Keyword
'\n\n'        Text

'!'           Keyword
'Object'      Name.Class
' methodsFor: ' Keyword
"'private'"   Literal.String
'!'           Keyword
'\n'          Text

'storeAt:'    Name.Function
' '           Text
'offset'      Name.Variable
' '           Text
'inTempFrame:' Name.Function
' '           Text
'aContext'    Name.Variable
'\n\t'        Text
'"This message had to get sent to an expression already on the stack\n\tas a Block argument being accessed by the debugger.\n\tJust re-route it to the temp frame."' Comment
'\n\t'        Text
'^'           Operator
' '           Text
'aContext'    Name.Variable
' '           Text
'tempAt:'     Name.Function
' '           Text
'offset'      Name.Variable
' '           Text
'put:'        Name.Function
' '           Text
'self'        Name.Builtin.Pseudo
'! !'         Keyword
'\n\n'        Text

'"-- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- "!' Keyword
'\n\n'        Text

'Object class' Name.Class
'\n\tinstanceVariableNames: ' Keyword
"''"          Literal.String
'!'           Keyword
'\n\n'        Text

'!'           Keyword
'Object class' Name.Class
' methodsFor: ' Keyword
"'*Pinesoft-Widgets'" Literal.String
" stamp: 'gvc 4/17/2007 17:40'!" Keyword
'\n'          Text

'taskbarIcon' Name.Function
'\n\t'        Text
'"Answer the icon for an instance of the receiver in a task bar\n\tor nil for the default."' Comment
'\n\n\t'      Text
'^'           Operator
'nil'         Name.Builtin.Pseudo
'! !'         Keyword
'\n\n\n'      Text

'!'           Keyword
'Object class' Name.Class
' methodsFor: ' Keyword
"'*magritte-model-accessing'" Literal.String
" stamp: 'lr 3/27/2006 15:47'!" Keyword
'\n'          Text

'description' Name.Function
'\n\t'        Text
'^'           Operator
' '           Text
'MADescriptionBuilder' Name.Class
' '           Text
'for:'        Name.Function
' '           Text
'self'        Name.Builtin.Pseudo
'! !'         Keyword
'\n\n\n'      Text

'!'           Keyword
'Object class' Name.Class
' methodsFor: ' Keyword
"'class initialization'" Literal.String
" stamp: 'ar 2/11/2001 02:00'!" Keyword
'\n'          Text

'flushDependents' Name.Function
'\n\t'        Text
'DependentsFields' Name.Class
' '           Text
'keysAndValuesDo:' Name.Function
'['           Text
':'           Operator
'key'         Name.Variable
' '           Text
':'           Operator
'dep'         Name.Variable
'|'           Operator
'\n\t\t'      Text
'key'         Name.Variable
' '           Text
'ifNotNil:'   Name.Function
'['           Text
'key'         Name.Variable
' '           Text
'removeDependent:' Name.Function
' '           Text
'nil'         Name.Builtin.Pseudo
']'           Text
'.'           Punctuation
'\n\t'        Text
']'           Text
'.'           Punctuation
'\n\t'        Text
'DependentsFields' Name.Class
' '           Text
'finalizeValues' Name.Function
'.'           Punctuation
'! !'         Keyword
'\n\n'        Text

'!'           Keyword
'Object class' Name.Class
' methodsFor: ' Keyword
"'class initialization'" Literal.String
" stamp: 'rw 2/10/2002 13:09'!" Keyword
'\n'          Text

'flushEvents' Name.Function
'\n\t'        Text
'"Object flushEvents"' Comment
'\n\n\t'      Text
'EventManager' Name.Class
' '           Text
'flushEvents' Name.Function
'.'           Punctuation
' '           Text
'! !'         Keyword
'\n\n'        Text

'!'           Keyword
'Object class' Name.Class
' methodsFor: ' Keyword
"'class initialization'" Literal.String
" stamp: 'rww 10/2/2001 07:35'!" Keyword
'\n'          Text

'initialize'  Name.Function
'\n\t'        Text
'"Object initialize"' Comment
'\n\t'        Text
'DependentsFields' Name.Class
' '           Text
'ifNil:'      Name.Function
'['           Text
'self'        Name.Builtin.Pseudo
' '           Text
'initializeDependentsFields' Name.Function
']'           Text
'.'           Punctuation
'! !'         Keyword
'\n\n'        Text

'!'           Keyword
'Object class' Name.Class
' methodsFor: ' Keyword
"'class initialization'" Literal.String
" stamp: 'ar 2/11/2001 01:41'!" Keyword
'\n'          Text

'initializeDependentsFields' Name.Function
'\n\t'        Text
'"Object initialize"' Comment
'\n\t'        Text
'DependentsFields' Name.Class
' '           Text
'_'           Operator
' '           Text
'WeakIdentityKeyDictionary' Name.Class
' '           Text
'new'         Name.Builtin
'.'           Punctuation
'\n'          Text

'! !'         Keyword
'\n\n'        Text

'!'           Keyword
'Object class' Name.Class
' methodsFor: ' Keyword
"'class initialization'" Literal.String
" stamp: 'ar 2/11/2001 01:45'!" Keyword
'\n'          Text

'reInitializeDependentsFields' Name.Function
'\n\t'        Text
'"Object reInitializeDependentsFields"' Comment
'\n\t'        Text
'|'           Operator
' oldFields ' Name.Variable
'|'           Operator
'\n\t'        Text
'oldFields'   Name.Variable
' '           Text
'_'           Operator
' '           Text
'DependentsFields' Name.Class
'.'           Punctuation
'\n\t'        Text
'DependentsFields' Name.Class
' '           Text
'_'           Operator
' '           Text
'WeakIdentityKeyDictionary' Name.Class
' '           Text
'new'         Name.Builtin
'.'           Punctuation
'\n\t'        Text
'oldFields'   Name.Variable
' '           Text
'keysAndValuesDo:' Name.Function
'['           Text
':'           Operator
'obj'         Name.Variable
' '           Text
':'           Operator
'deps'        Name.Variable
'|'           Operator
'\n\t\t'      Text
'deps'        Name.Variable
' '           Text
'do:'         Name.Function
'['           Text
':'           Operator
'd'           Name.Variable
'|'           Operator
' '           Text
'obj'         Name.Variable
' '           Text
'addDependent:' Name.Function
' '           Text
'd'           Name.Variable
']'           Text
']'           Text
'.'           Punctuation
'\n'          Text

'! !'         Keyword
'\n\n\n'      Text

'!'           Keyword
'Object class' Name.Class
' methodsFor: ' Keyword
"'documentation'" Literal.String
'!'           Keyword
'\n'          Text

'howToModifyPrimitives' Name.Function
'\n\t'        Text
'"You are allowed to write methods which specify primitives, but please use \n\tcaution.  If you make a subclass of a class which contains a primitive method, \n\tthe subclass inherits the primitive.  The message which is implemented \n\tprimitively may be overridden in the subclass (E.g., see at:put: in String\'s \n\tsubclass Symbol).  The primitive behavior can be invoked using super (see \n\tSymbol string:). \n\t \n\tA class which attempts to mimic the behavior of another class without being \n\tits subclass may or may not be able to use the primitives of the original class.  \n\tIn general, if the instance variables read or written by a primitive have the \n\tsame meanings and are in the same fields in both classes, the primitive will \n\twork.  \n\n\tFor certain frequently used \'special selectors\', the compiler emits a \n\tsend-special-selector bytecode instead of a send-message bytecode.  \n\tSpecial selectors were created because they offer two advantages.  Code \n\twhich sends special selectors compiles into fewer bytes than normal.  For \n\tsome pairs of receiver classes and special selectors, the interpreter jumps \n\tdirectly to a primitive routine without looking up the method in the class.  \n\tThis is much faster than a normal message lookup. \n\t \n\tA selector which is a special selector solely in order to save space has a \n\tnormal behavior.  Methods whose selectors are special in order to \n\tgain speed contain the comment, \'No Lookup\'.  When the interpreter \n\tencounters a send-special-selector bytecode, it checks the class of the \n\treceiver and the selector.  If the class-selector pair is a no-lookup pair, \n\tthen the interpreter swiftly jumps to the routine which implements the \n\tcorresponding primitive.  (A special selector whose receiver is not of the \n\tright class to make a no-lookup pair, is looked up normally).  The pairs are \n\tlisted below.  No-lookup methods contain a primitive number specification, \n\t<primitive: xx>, which is redundant.  Since the method is not normally looked \n\tup, deleting the primitive number specification cannot prevent this \n\tprimitive from running.  If a no-lookup primitive fails, the method is looked \n\tup normally, and the expressions in it are executed. \n\t \n\tNo Lookup pairs of (class, selector) \n\t \n\tSmallInteger with any of\t\t+ - * /  \\\\  bitOr: bitShift: bitAnd:  // \n\tSmallInteger with any of\t\t=  ~=  >  <  >=  <= \n\tAny class with\t\t\t\t\t== \n\tAny class with \t\t\t\t\t@ \n\tPoint with either of\t\t\t\tx y \n\tContextPart with\t\t\t\t\tblockCopy: \n\tBlockContext with either of \t\tvalue value:\n\t"' Comment
'\n\n\t'      Text
'self'        Name.Builtin.Pseudo
' '           Text
'error:'      Name.Function
' '           Text
"'comment only'" Literal.String
'! !'         Keyword
'\n\n'        Text

'!'           Keyword
'Object class' Name.Class
' methodsFor: ' Keyword
"'documentation'" Literal.String
'!'           Keyword
'\n'          Text

'whatIsAPrimitive' Name.Function
'\n\t'        Text
'"Some messages in the system are responded to primitively. A primitive   \n\tresponse is performed directly by the interpreter rather than by evaluating   \n\texpressions in a method. The methods for these messages indicate the   \n\tpresence of a primitive response by including <primitive: xx> before the   \n\tfirst expression in the method.   \n\t  \n\tPrimitives exist for several reasons. Certain basic or \'primitive\' \n\toperations cannot be performed in any other way. Smalltalk without \n\tprimitives can move values from one variable to another, but cannot add two \n\tSmallIntegers together. Many methods for arithmetic and comparison \n\tbetween numbers are primitives. Some primitives allow Smalltalk to \n\tcommunicate with I/O devices such as the disk, the display, and the keyboard. \n\tSome primitives exist only to make the system run faster; each does the same \n\tthing as a certain Smalltalk method, and its implementation as a primitive is \n\toptional.  \n\t  \n\tWhen the Smalltalk interpreter begins to execute a method which specifies a \n\tprimitive response, it tries to perform the primitive action and to return a \n\tresult. If the routine in the interpreter for this primitive is successful, \n\tit will return a value and the expressions in the method will not be evaluated. \n\tIf the primitive routine is not successful, the primitive \'fails\', and the \n\tSmalltalk expressions in the method are executed instead. These \n\texpressions are evaluated as though the primitive routine had not been \n\tcalled.  \n\t  \n\tThe Smalltalk code that is evaluated when a primitive fails usually \n\tanticipates why that primitive might fail. If the primitive is optional, the \n\texpressions in the method do exactly what the primitive would have done (See \n\tNumber @). If the primitive only works on certain classes of arguments, the \n\tSmalltalk code tries to coerce the argument or appeals to a superclass to find \n\ta more general way of doing the operation (see SmallInteger +). If the \n\tprimitive is never supposed to fail, the expressions signal an error (see \n\tSmallInteger asFloat).  \n\t  \n\tEach method that specifies a primitive has a comment in it. If the primitive is \n\toptional, the comment will say \'Optional\'. An optional primitive that is not \n\timplemented always fails, and the Smalltalk expressions do the work \n\tinstead.  \n\t \n\tIf a primitive is not optional, the comment will say, \'Essential\'. Some \n\tmethods will have the comment, \'No Lookup\'. See Object \n\thowToModifyPrimitives for an explanation of special selectors which are \n\tnot looked up.  \n\t  \n\tFor the primitives for +, -, *, and bitShift: in SmallInteger, and truncated \n\tin Float, the primitive constructs and returns a 16-bit \n\tLargePositiveInteger when the result warrants it. Returning 16-bit \n\tLargePositiveIntegers from these primitives instead of failing is \n\toptional in the same sense that the LargePositiveInteger arithmetic \n\tprimitives are optional. The comments in the SmallInteger primitives say, \n\t\'Fails if result is not a SmallInteger\', even though the implementor has the \n\toption to construct a LargePositiveInteger. For further information on \n\tprimitives, see the \'Primitive Methods\' part of the chapter on the formal \n\tspecification of the interpreter in the Smalltalk book."' Comment
'\n\n\t'      Text
'self'        Name.Builtin.Pseudo
' '           Text
'error:'      Name.Function
' '           Text
"'comment only'" Literal.String
'! !'         Keyword
'\n\n\n'      Text

'!'           Keyword
'Object class' Name.Class
' methodsFor: ' Keyword
"'file list services'" Literal.String
" stamp: 'nk 6/12/2004 11:41'!" Keyword
'\n'          Text

'fileReaderServicesForDirectory:' Name.Function
' '           Text
'aFileDirectory' Name.Variable
'\n\t'        Text
'"Backstop"'  Comment
'\n\t'        Text
'^'           Operator
'#('          Literal.String.Symbol
')'           Literal.String.Symbol
'! !'         Keyword
'\n\n'        Text

'!'           Keyword
'Object class' Name.Class
' methodsFor: ' Keyword
"'file list services'" Literal.String
" stamp: 'nk 6/12/2004 11:30'!" Keyword
'\n'          Text

'fileReaderServicesForFile:' Name.Function
' '           Text
'fullName'    Name.Variable
' '           Text
'suffix:'     Name.Function
' '           Text
'suffix'      Name.Variable
'\n\t'        Text
'"Backstop"'  Comment
'\n\t'        Text
'^'           Operator
'#('          Literal.String.Symbol
')'           Literal.String.Symbol
'! !'         Keyword
'\n\n'        Text

'!'           Keyword
'Object class' Name.Class
' methodsFor: ' Keyword
"'file list services'" Literal.String
" stamp: 'md 2/15/2006 17:20'!" Keyword
'\n'          Text

'services'    Name.Function
'\n\t'        Text
'"Backstop"'  Comment
'\n\t'        Text
'^'           Operator
'#('          Literal.String.Symbol
')'           Literal.String.Symbol
'! !'         Keyword
'\n\n\n'      Text

'!'           Keyword
'Object class' Name.Class
' methodsFor: ' Keyword
"'instance creation'" Literal.String
" stamp: 'sw 1/23/2003 09:45'!" Keyword
'\n'          Text

'categoryForUniclasses' Name.Function
'\n\t'        Text
'"Answer the default system category into which to place unique-class instances"' Comment
'\n\n\t'      Text
'^'           Operator
' '           Text
"'UserObjects'" Literal.String
'! !'         Keyword
'\n\n'        Text

'!'           Keyword
'Object class' Name.Class
' methodsFor: ' Keyword
"'instance creation'" Literal.String
" stamp: 'sw 7/28/97 15:56'!" Keyword
'\n'          Text

'chooseUniqueClassName' Name.Function
'\n\t'        Text
'|'           Operator
' i className ' Name.Variable
'|'           Operator
'\n\t'        Text
'i'           Name.Variable
' '           Text
'_'           Operator
' '           Text
'1'           Literal.Number
'.'           Punctuation
'\n\t'        Text
'['           Text
'className'   Name.Variable
' '           Text
'_'           Operator
' '           Text
'('           Text
'self'        Name.Builtin.Pseudo
' '           Text
'name'        Name.Function
' '           Text
','           Name.Function
' '           Text
'i'           Name.Variable
' '           Text
'printString' Name.Function
')'           Text
' '           Text
'asSymbol'    Name.Function
'.'           Punctuation
'\n\t '       Text
'Smalltalk'   Name.Class
' '           Text
'includesKey:' Name.Function
' '           Text
'className'   Name.Variable
']'           Text
'\n\t\t'      Text
'whileTrue:'  Name.Builtin
' '           Text
'['           Text
'i'           Name.Variable
' '           Text
'_'           Operator
' '           Text
'i'           Name.Variable
' '           Text
'+'           Name.Function
' '           Text
'1'           Literal.Number
']'           Text
'.'           Punctuation
'\n\t'        Text
'^'           Operator
' '           Text
'className'   Name.Variable
'! !'         Keyword
'\n\n'        Text

'!'           Keyword
'Object class' Name.Class
' methodsFor: ' Keyword
"'instance creation'" Literal.String
" stamp: 'tk 8/22/1998 08:22'!" Keyword
'\n'          Text

'initialInstance' Name.Function
'\n\t'        Text
'"Answer the first instance of the receiver, generate an error if there is one already"' Comment
'\n\t'        Text
'"self instanceCount > 0 ifTrue: [self error: \'instance(s) already exist.\']."' Comment
'\n\t\t'      Text
'"Debugging test that is very slow"' Comment
'\n\t'        Text
'^'           Operator
' '           Text
'self'        Name.Builtin.Pseudo
' '           Text
'new'         Name.Builtin
'! !'         Keyword
'\n\n'        Text

'!'           Keyword
'Object class' Name.Class
' methodsFor: ' Keyword
"'instance creation'" Literal.String
" stamp: 'sw 5/5/2000 09:30'!" Keyword
'\n'          Text

'initializedInstance' Name.Function
'\n\t'        Text
'^'           Operator
' '           Text
'self'        Name.Builtin.Pseudo
' '           Text
'new'         Name.Builtin
'! !'         Keyword
'\n\n'        Text

'!'           Keyword
'Object class' Name.Class
' methodsFor: ' Keyword
"'instance creation'" Literal.String
" stamp: 'sw 10/16/2000 10:58'!" Keyword
'\n'          Text

'instanceOfUniqueClass' Name.Function
'\n\t'        Text
'"Answer an instance of a unique subclass of the receiver"' Comment
'\n\n\t'      Text
'^'           Operator
' '           Text
'self'        Name.Builtin.Pseudo
' '           Text
'instanceOfUniqueClassWithInstVarString:' Name.Function
' '           Text
"''"          Literal.String
' '           Text
'andClassInstVarString:' Name.Function
' '           Text
"''"          Literal.String
'! !'         Keyword
'\n\n'        Text

'!'           Keyword
'Object class' Name.Class
' methodsFor: ' Keyword
"'instance creation'" Literal.String
" stamp: 'tk 8/22/1998 08:27'!" Keyword
'\n'          Text

'instanceOfUniqueClassWithInstVarString:' Name.Function
' '           Text
'instVarString' Name.Variable
' '           Text
'andClassInstVarString:' Name.Function
' '           Text
'classInstVarString' Name.Variable
'\n\t'        Text
'"Create a unique class for the receiver, and answer an instance of it"' Comment
'\n\n\t'      Text
'^'           Operator
' '           Text
'('           Text
'self'        Name.Builtin.Pseudo
' '           Text
'newUniqueClassInstVars:' Name.Function
' '           Text
'instVarString' Name.Variable
' \n\t\t'     Text
'classInstVars:' Name.Function
' '           Text
'classInstVarString' Name.Variable
')'           Text
' '           Text
'initialInstance' Name.Function
'! !'         Keyword
'\n\n'        Text

'!'           Keyword
'Object class' Name.Class
' methodsFor: ' Keyword
"'instance creation'" Literal.String
" stamp: 'sw 10/23/1999 22:51'!" Keyword
'\n'          Text

'isUniClass'  Name.Function
'\n\t'        Text
'^'           Operator
' '           Text
'false'       Name.Builtin.Pseudo
'! !'         Keyword
'\n\n'        Text

'!'           Keyword
'Object class' Name.Class
' methodsFor: ' Keyword
"'instance creation'" Literal.String
" stamp: 'ajh 5/23/2002 00:35'!" Keyword
'\n'          Text

'newFrom:'    Name.Function
' '           Text
'aSimilarObject' Name.Variable
'\n\t'        Text
'"Create an object that has similar contents to aSimilarObject.\n\tIf the classes have any instance varaibles with the same names, copy them across.\n\tIf this is bad for a class, override this method."' Comment
'\n\n\t'      Text
'^'           Operator
' '           Text
'('           Text
'self'        Name.Builtin.Pseudo
' '           Text
'isVariable'  Name.Function
'\n\t\t'      Text
'ifTrue:'     Name.Builtin
' '           Text
'['           Text
'self'        Name.Builtin.Pseudo
' '           Text
'basicNew:'   Name.Function
' '           Text
'aSimilarObject' Name.Variable
' '           Text
'basicSize'   Name.Function
']'           Text
'\n\t\t'      Text
'ifFalse:'    Name.Builtin
' '           Text
'['           Text
'self'        Name.Builtin.Pseudo
' '           Text
'basicNew'    Name.Function
']'           Text
'\n\t  '      Text
')'           Text
' '           Text
'copySameFrom:' Name.Function
' '           Text
'aSimilarObject' Name.Variable
'! !'         Keyword
'\n\n'        Text

'!'           Keyword
'Object class' Name.Class
' methodsFor: ' Keyword
"'instance creation'" Literal.String
" stamp: 'tk 6/29/1998 12:11'!" Keyword
'\n'          Text

'newUniqueClassInstVars:' Name.Function
' '           Text
'instVarString' Name.Variable
' '           Text
'classInstVars:' Name.Function
' '           Text
'classInstVarString' Name.Variable
'\n\t'        Text
'"Create a unique class for the receiver"' Comment
'\n\n\t'      Text
'|'           Operator
' aName aClass ' Name.Variable
'|'           Operator
'\n\t'        Text
'self'        Name.Builtin.Pseudo
' '           Text
'isSystemDefined' Name.Function
' '           Text
'ifFalse:'    Name.Builtin
'\n\t\t'      Text
'['           Text
'^'           Operator
' '           Text
'superclass'  Name.Variable
' '           Text
'newUniqueClassInstVars:' Name.Function
' '           Text
'instVarString' Name.Variable
' '           Text
'classInstVars:' Name.Function
' '           Text
'classInstVarString' Name.Variable
']'           Text
'.'           Punctuation
'\n\t'        Text
'aName'       Name.Variable
' '           Text
'_'           Operator
' '           Text
'self'        Name.Builtin.Pseudo
' '           Text
'chooseUniqueClassName' Name.Function
'.'           Punctuation
'\n\t'        Text
'aClass'      Name.Variable
' '           Text
'_'           Operator
' '           Text
'self'        Name.Builtin.Pseudo
' '           Text
'subclass:'   Name.Function
' '           Text
'aName'       Name.Variable
' '           Text
'instanceVariableNames:' Name.Function
' '           Text
'instVarString' Name.Variable
' \n\t\t'     Text
'classVariableNames:' Name.Function
' '           Text
"''"          Literal.String
' '           Text
'poolDictionaries:' Name.Function
' '           Text
"''"          Literal.String
' '           Text
'category:'   Name.Function
' '           Text
'self'        Name.Builtin.Pseudo
' '           Text
'categoryForUniclasses' Name.Function
'.'           Punctuation
'\n\t'        Text
'classInstVarString' Name.Variable
' '           Text
'size'        Name.Function
' '           Text
'>'           Name.Function
' '           Text
'0'           Literal.Number
' '           Text
'ifTrue:'     Name.Builtin
'\n\t\t'      Text
'['           Text
'aClass'      Name.Variable
' '           Text
'class'       Name.Function
' '           Text
'instanceVariableNames:' Name.Function
' '           Text
'classInstVarString' Name.Variable
']'           Text
'.'           Punctuation
'\n\t'        Text
'^'           Operator
' '           Text
'aClass'      Name.Variable
'! !'         Keyword
'\n\n'        Text

'!'           Keyword
'Object class' Name.Class
' methodsFor: ' Keyword
"'instance creation'" Literal.String
" stamp: 'sw 7/28/97 15:56'!" Keyword
'\n'          Text

'newUserInstance' Name.Function
'\n\t'        Text
'"Answer an instance of an appropriate class to serve as a user object in the containment hierarchy"' Comment
'\n\n\t'      Text
'^'           Operator
' '           Text
'self'        Name.Builtin.Pseudo
' '           Text
'instanceOfUniqueClass' Name.Function
'! !'         Keyword
'\n\n'        Text

'!'           Keyword
'Object class' Name.Class
' methodsFor: ' Keyword
"'instance creation'" Literal.String
" stamp: 'nk 8/30/2004 07:57'!" Keyword
'\n'          Text

'readCarefullyFrom:' Name.Function
' '           Text
'textStringOrStream' Name.Variable
'\n\t'        Text
'"Create an object based on the contents of textStringOrStream.  Return an error instead of putting up a SyntaxError window."' Comment
'\n\n\t'      Text
'|'           Operator
' object '    Name.Variable
'|'           Operator
'\n\t'        Text
'('           Text
'Compiler'    Name.Class
' '           Text
'couldEvaluate:' Name.Function
' '           Text
'textStringOrStream' Name.Variable
')'           Text
'\n\t\t'      Text
'ifFalse:'    Name.Builtin
' '           Text
'['           Text
'^'           Operator
' '           Text
'self'        Name.Builtin.Pseudo
' '           Text
'error:'      Name.Function
' '           Text
"'expected String, Stream, or Text'" Literal.String
']'           Text
'.'           Punctuation
'\n\t'        Text
'object'      Name.Variable
' '           Text
'_'           Operator
' '           Text
'Compiler'    Name.Class
' '           Text
'evaluate:'   Name.Function
' '           Text
'textStringOrStream' Name.Variable
' '           Text
'for:'        Name.Function
' '           Text
'nil'         Name.Builtin.Pseudo
' \n\t\t\t\t' Text
'notifying:'  Name.Function
' '           Text
'#error:'     Literal.String.Symbol
' '           Text
'"signal we want errors"' Comment
' '           Text
'logged:'     Name.Function
' '           Text
'false'       Name.Builtin.Pseudo
'.'           Punctuation
'\n\t'        Text
'('           Text
'object'      Name.Variable
' '           Text
'isKindOf:'   Name.Function
' '           Text
'self'        Name.Builtin.Pseudo
')'           Text
' '           Text
'ifFalse:'    Name.Builtin
' '           Text
'['           Text
'self'        Name.Builtin.Pseudo
' '           Text
'error:'      Name.Function
' '           Text
'self'        Name.Builtin.Pseudo
' '           Text
'name'        Name.Function
','           Name.Function
' '           Text
"' expected'" Literal.String
']'           Text
'.'           Punctuation
'\n\t'        Text
'^'           Operator
'object'      Name.Variable
'! !'         Keyword
'\n\n'        Text

'!'           Keyword
'Object class' Name.Class
' methodsFor: ' Keyword
"'instance creation'" Literal.String
" stamp: 'nk 8/30/2004 07:57'!" Keyword
'\n'          Text

'readFrom:'   Name.Function
' '           Text
'textStringOrStream' Name.Variable
'\n\t'        Text
'"Create an object based on the contents of textStringOrStream."' Comment
'\n\n\t'      Text
'|'           Operator
' object '    Name.Variable
'|'           Operator
'\n\t'        Text
'('           Text
'Compiler'    Name.Class
' '           Text
'couldEvaluate:' Name.Function
' '           Text
'textStringOrStream' Name.Variable
')'           Text
'\n\t\t'      Text
'ifFalse:'    Name.Builtin
' '           Text
'['           Text
'^'           Operator
' '           Text
'self'        Name.Builtin.Pseudo
' '           Text
'error:'      Name.Function
' '           Text
"'expected String, Stream, or Text'" Literal.String
']'           Text
'.'           Punctuation
'\n\t'        Text
'object'      Name.Variable
' '           Text
'_'           Operator
' '           Text
'Compiler'    Name.Class
' '           Text
'evaluate:'   Name.Function
' '           Text
'textStringOrStream' Name.Variable
'.'           Punctuation
'\n\t'        Text
'('           Text
'object'      Name.Variable
' '           Text
'isKindOf:'   Name.Function
' '           Text
'self'        Name.Builtin.Pseudo
')'           Text
' '           Text
'ifFalse:'    Name.Builtin
' '           Text
'['           Text
'self'        Name.Builtin.Pseudo
' '           Text
'error:'      Name.Function
' '           Text
'self'        Name.Builtin.Pseudo
' '           Text
'name'        Name.Function
','           Name.Function
' '           Text
"' expected'" Literal.String
']'           Text
'.'           Punctuation
'\n\t'        Text
'^'           Operator
'object'      Name.Variable
'! !'         Keyword
'\n\n\n'      Text

'!'           Keyword
'Object class' Name.Class
' methodsFor: ' Keyword
"'objects from disk'" Literal.String
" stamp: 'tk 1/8/97'!" Keyword
'\n'          Text

'createFrom:' Name.Function
' '           Text
'aSmartRefStream' Name.Variable
' '           Text
'size:'       Name.Function
' '           Text
'varsOnDisk'  Name.Variable
' '           Text
'version:'    Name.Function
' '           Text
'instVarList' Name.Variable
'\n\t'        Text
'"Create an instance of me so objects on the disk can be read in.  Tricky part is computing the size if variable.  Inst vars will be filled in later.  "' Comment
'\n\n\t'      Text
'^'           Operator
' '           Text
'self'        Name.Builtin.Pseudo
' '           Text
'isVariable'  Name.Function
'\n\t\t'      Text
'ifFalse:'    Name.Builtin
' '           Text
'['           Text
'self'        Name.Builtin.Pseudo
' '           Text
'basicNew'    Name.Function
']'           Text
'\n\t\t'      Text
'ifTrue:'     Name.Builtin
' '           Text
'['           Text
'"instVarList is names of old class\'s inst vars plus a version number"' Comment
' \n\t\t\t\t' Text
'self'        Name.Builtin.Pseudo
' '           Text
'basicNew:'   Name.Function
' '           Text
'('           Text
'varsOnDisk'  Name.Variable
' '           Text
'-'           Name.Function
' '           Text
'('           Text
'instVarList' Name.Variable
' '           Text
'size'        Name.Function
' '           Text
'-'           Name.Function
' '           Text
'1'           Literal.Number
')'           Text
')'           Text
']'           Text
'\n'          Text

'! !'         Keyword
'\n\n\n'      Text

'!'           Keyword
'Object class' Name.Class
' methodsFor: ' Keyword
"'window color'" Literal.String
" stamp: 'nk 6/10/2004 08:10'!" Keyword
'\n'          Text

'windowColorSpecification' Name.Function
'\n\t'        Text
'"Answer a WindowColorSpec object that declares my preference.\n\tThis is a backstop for classes that don\'t otherwise define a preference."' Comment
'\n\n\t'      Text
'^'           Operator
' '           Text
'WindowColorSpec' Name.Class
' '           Text
'classSymbol:' Name.Function
' '           Text
'self'        Name.Builtin.Pseudo
' '           Text
'name'        Name.Function
'\n\t\t'      Text
'wording:'    Name.Function
' '           Text
"'Default'"   Literal.String
' '           Text
'brightColor:' Name.Function
' '           Text
'#white'      Literal.String.Symbol
'\n\t\t'      Text
'pastelColor:' Name.Function
' '           Text
'#white'      Literal.String.Symbol
'\n\t\t'      Text
'helpMessage:' Name.Function
' '           Text
"'Other windows without color preferences.'" Literal.String
'! !'         Keyword
'\n\n\n'      Text

'!'           Keyword
'Object class' Name.Class
' methodsFor: ' Keyword
"'private'"   Literal.String
" stamp: 'mir 8/22/2001 15:20'!" Keyword
'\n'          Text

'releaseExternalSettings' Name.Function
'\n\t'        Text
'"Do nothing as a default"' Comment
'! !'         Keyword
'\n\n\n'      Text

'Object'      Name.Class
' '           Text
'initialize'  Name.Function
'!'           Name.Function
'\n'          Text
