cowan@marob.masa.com (John Cowan) (07/27/90)
" Purpose of ST80COMP.ST: Provides methods which make it possible to import class definitions filed out by Objectworks for Smalltalk-80, version 2.5. " ! Behavior methods ! comment: aString "Set class comment to aString." comment := aString! ! ! Behavior methods ! methodsFor: aDummy "Answer an instance of ClassReader initialized for the receiver. ST-80 compatible version." ^ClassReader forClass: self! ! ! Class methods ! subclass: classSymbol instanceVariableNames: instanceVariables classVariableNames: classVariables poolDictionaries: poolDictNames category: aDummy "Create or modify the class classSymbol to be a subclass of the receiver with the specifed instance variables, class variables, and pool dictionaries. ST-80 compatible version." self isBits ifTrue: [^self error: 'Superclass is non-pointers']. ^(self validateClass: classSymbol instanceVariableNames: instanceVariables) name: classSymbol environment: Smalltalk subclassOf: self instanceVariableNames: instanceVariables variable: self isVariable words: true pointers: true classVariableNames: classVariables poolDictionaries: poolDictNames comment: String new changed: nil! ! ! Class methods ! variableByteSubclass: classSymbol classVariableNames: classVariables poolDictionaries: poolDictNames category: aDummy "Create or modify the class classSymbol to be a variable byte subclass of the receiver with the specified class variables and pool dictionaries. ST-80 compatible version." | aMetaClass | self instSize == 0 ifFalse: [^self error: 'Superclass has pointers']. ^(self validateClass: classSymbol instanceVariableNames: String new) name: classSymbol environment: Smalltalk subclassOf: self instanceVariableNames: String new variable: true words: false pointers: false classVariableNames: classVariables poolDictionaries: poolDictNames comment: String new changed: nil! ! ! Class methods ! variableSubclass: classSymbol instanceVariableNames: instanceVariables classVariableNames: classVariables poolDictionaries: poolDictNames category: aDummy "Create or modify the class classSymbol to be a variable subclass of the receiver with the specifed instance variables, class variables, and pool dictionaries. ST-80 compatible version." | aMetaClass | self isBits ifTrue: [^self error: 'Superclass is non-pointers']. ^(self validateClass: classSymbol instanceVariableNames: instanceVariables) name: classSymbol environment: Smalltalk subclassOf: self instanceVariableNames: instanceVariables variable: true words: true pointers: true classVariableNames: classVariables poolDictionaries: poolDictNames comment: String new changed: nil! ! ! MetaClass methods ! instanceVariableNames: aDummy "ST-80 compatibility routine."! ! -- cowan@marob.masa.com (aka ...!hombre!marob!cowan) e'osai ko sarji la lojban