Packages August 2008

packages@lists.squeakfoundation.org

4 participants
40 discussions

Installer: Installer-Launcher-klc.9.mcz
by squeaksource-noreply＠iam.unibe.ch 14 Aug '08

14 Aug '08

Ken Causey uploaded a new version of Installer-Launcher to project Installer: http://www.squeaksource.com/Installer/Installer-Launcher-klc.9.mcz ==================== Summary ==================== Name: Installer-Launcher-klc.9 Author: klc Time: 14 August 2008, 2:35:53 pm UUID: 762fd659-b2b6-4637-8244-53c8edcc3d52 Ancestors: Installer-Launcher-klc.8 The source files were being loaded but never actually installed. Surely that was not the intended use? =============== Diff against Installer-Launcher-klc.8 =============== Item was changed: ----- Method: Launcher class>>launchWith: (in category 'as yet unclassified') ----- launchWith: params params at: 'H' ifPresent: [:v | params at: 'HELP' put: v ]. params at: 'S' ifPresent: [ :v | params at: 'SCRIPTS' put: v ]. params at: 'HELP' ifPresent: [ :v | Script new writeHelp ]. params at: 'SCRIPTS' ifPresent: [:v | + CodeLoader new loadSourceFiles: (Array withAll: (v findTokens: ' ')) ; + installSourceFiles]. - CodeLoader new loadSourceFiles: (Array withAll: (v findTokens: ' '))]. ^true!

1 0

Installer: Installer-Launcher-klc.8.mcz
by squeaksource-noreply＠iam.unibe.ch 14 Aug '08

14 Aug '08

Ken Causey uploaded a new version of Installer-Launcher to project Installer: http://www.squeaksource.com/Installer/Installer-Launcher-klc.8.mcz ==================== Summary ==================== Name: Installer-Launcher-klc.8 Author: klc Time: 13 August 2008, 6:21:40 pm UUID: f7182b27-2cba-4635-80e3-edf305cf47fe Ancestors: Installer-Launcher-mtf.7 Replaces send to #with: (single value) to #withAll: (multiple values) =============== Diff against Installer-Launcher-mtf.7 =============== Item was changed: ----- Method: Launcher class>>launchWith: (in category 'as yet unclassified') ----- launchWith: params params at: 'H' ifPresent: [:v | params at: 'HELP' put: v ]. params at: 'S' ifPresent: [ :v | params at: 'SCRIPTS' put: v ]. params at: 'HELP' ifPresent: [ :v | Script new writeHelp ]. params at: 'SCRIPTS' ifPresent: [:v | + CodeLoader new loadSourceFiles: (Array withAll: (v findTokens: ' '))]. - CodeLoader new loadSourceFiles: (Array with: (v findTokens: ' '))]. ^true!

1 0

SystemEditor: SystemEditor-mtf.115.mcz
by squeaksource-noreply＠iam.unibe.ch 13 Aug '08

13 Aug '08

A new version of SystemEditor was added to project SystemEditor: http://www.squeaksource.com/SystemEditor/SystemEditor-mtf.115.mcz ==================== Summary ==================== Name: SystemEditor-mtf.115 Author: mtf Time: 13 August 2008, 12:44:35 am UUID: 9817a1d9-91ee-4f7f-b4b4-bc9cf4856f30 Ancestors: SystemEditor-mtf.114 renamed the Behavior-derived MetaclassEditor to OldMetaclassEditor, and created a new MetaclassEditor derived from ClassDescriptionEditor I believe that MetaclassEditor derives more from ClassDescriptionEditor than from Behavior, so I'll duplicate the necessary parts of Behavior rather than those of ClassDescriptionEditor =============== Diff against SystemEditor-mtf.114 =============== Item was changed: ----- Method: MetaclassEditor>>definitionST80 (in category 'reflecting') ----- definitionST80 ^ String streamContents: [:strm | strm print: self; crtab; nextPutAll: 'instanceVariableNames: '; store: self instanceVariablesString]! Item was added: + ----- Method: OldMetaclassEditor>>subject (in category 'accessing') ----- + subject + ^ editor subject ifNotNilDo: [:subject | subject class]! Item was changed: ----- Method: RootClassEditor class>>classMetaclassEditor (in category 'instance creation') ----- classMetaclassEditor + ^ OldRootMetaclassEditor! - ^ RootMetaclassEditor! Item was added: + ----- Method: OldMetaclassEditor>>methods (in category 'accessing') ----- + methods + ^ methods ifNil: [methods := MethodDictionaryEditor for: self]! Item was changed: ----- Method: MetaclassEditor>>edMethodsDo: (in category 'building') ----- edMethodsDo: aBlock methods ifNotNil: [methods do: aBlock]! Item was added: + ----- Method: OldMetaclassEditor>>theNonMetaClass (in category 'reflecting') ----- + theNonMetaClass + ^ editor! Item was added: + OldMetaclassEditor subclass: #OldRootMetaclassEditor + instanceVariableNames: '' + classVariableNames: '' + poolDictionaries: '' + category: 'SystemEditor-Editors'! Item was added: + ----- Method: OldRootMetaclassEditor class>>classClassEditor (in category 'instance creation') ----- + classClassEditor + ^ RootClassEditor! Item was changed: ----- Method: MetaclassEditor>>indexIfCompact (in category 'reflecting') ----- indexIfCompact self subject ifNotNil: [^ self subject indexIfCompact]. ^ 0! Item was added: + ----- Method: RootMetaclassEditor>>edRequiresBuild (in category 'building') ----- + edRequiresBuild + ^ false! Item was added: + ----- Method: OldRootMetaclassEditor>>product (in category 'building') ----- + product + ^ nil! Item was added: + ----- Method: OldMetaclassEditor>>superclass: (in category 'editing') ----- + superclass: aClass + superEditor := self system edEditorFor: aClass! Item was changed: ----- Method: MetaclassEditor>>removeInstVarName: (in category 'editing') ----- removeInstVarName: aString instVarNames ifNil: [instVarNames := self subject instVarNames]. instVarNames := instVarNames copyWithout: aString! Item was changed: ----- Method: MetaclassEditor>>edBuild (in category 'building') ----- edBuild | result class | class := self subject ifNil: [Metaclass] ifNotNilDo: [:subject | subject class]. result := class basicNew. result superclass: self edSuperclass methodDictionary: MethodDictionary new format: self format; organization: self organization build. result setInstVarNames: self instVarNames. ^ result! Item was added: + ----- Method: OldMetaclassEditor>>compile:classified:withStamp:notifying:logSource: (in category 'editing') ----- + compile: source classified: category withStamp: aString notifying: anObject logSource: aBoolean + | cm | + cm := MethodEditor + source: source + classified: category + stamp: aString + notifying: anObject + logging: aBoolean. + self methods add: cm.! Item was added: + ----- Method: OldMetaclassEditor>>edMethodAt:ifAbsent: (in category 'editing') ----- + edMethodAt: aSelector ifAbsent: aBlock + ^ self methods at: aSelector ifAbsent: aBlock! Item was added: + ----- Method: OldMetaclassEditor>>instVarNames (in category 'reflecting') ----- + instVarNames + "Override the implemenation in Behavior. That will return the inst vars of + ClassEditor, but we want the inst vars of the subject's class." + + self isDebuggingAsEditor ifTrue: [^ super instVarNames]. + ^ instVarNames ifNil: [self subject instVarNames]! Item was changed: ----- Method: MetaclassEditor class>>classClassEditor (in category 'instance creation') ----- classClassEditor "Answers the class of my instance-side editor" ^ ClassEditor! Item was added: + ----- Method: RootMetaclassEditor>>typeOfClass (in category 'reflecting') ----- + typeOfClass + ^ #normal! Item was changed: ----- Method: ClassEditor class>>classMetaclassEditor (in category 'instance creation') ----- classMetaclassEditor "Answer the class of editors for my instances' cooresponding metaclass editor" + ^ OldMetaclassEditor! - ^ MetaclassEditor! Item was changed: ----- Method: MetaclassEditor>>isMeta (in category 'reflecting') ----- isMeta ^ true! Item was added: + ----- Method: OldMetaclassEditor class>>new (in category 'instance creation') ----- + new + | instance | + instance := self basicNew. + instance + superclass: self classClassEditor + methodDictionary: MethodDictionary new + format: self classClassEditor format. + ^ instance! Item was added: + ----- Method: OldMetaclassEditor>>instSize (in category 'reflecting') ----- + instSize + "Override the implemenation in Behavior, so that when inspecting the + ClassEditor, it will look like a regular Class" + + self isDebuggingAsEditor ifTrue: [^ super instSize]. + ^ self instVarNames size + (self edSuperclass + ifNil: [0] ifNotNilDo: [:ed | ed instSize])! Item was added: + ----- Method: OldMetaclassEditor>>classSide (in category 'reflecting') ----- + classSide + ^self theMetaClass! Item was changed: ----- Method: MetaclassEditor>>system (in category 'accessing') ----- system ^ editor system! Item was changed: ----- Method: MetaclassEditor>>product (in category 'building') ----- product ^ editor product class! Item was added: + ----- Method: OldMetaclassEditor>>instanceVariableNames: (in category 'reflecting') ----- + instanceVariableNames: instString + instVarNames := Scanner new scanFieldNames: instString! Item was added: + ----- Method: OldMetaclassEditor>>format (in category 'reflecting') ----- + format + "Override the implemenation in Behavior. That will return the format of ClassEditor, but we want the format of the subject's meta class" + + ^ self edClassFormat bits! Item was changed: ----- Method: MetaclassEditor>>edRequiresBuild (in category 'building') ----- edRequiresBuild ^ (superEditor ~~ nil) | (instVarNames ~~ nil) | (methods ~~ nil)! Item was changed: ----- Method: MetaclassEditor>>classPool (in category 'reflecting') ----- classPool ^ editor classPool! Item was added: + ----- Method: OldRootMetaclassEditor class>>canEdit:for: (in category 'instance creation') ----- + canEdit: anObject for: anEditor + ^ false! Item was changed: ----- Method: MetaclassEditor>>compiledMethodAt: (in category 'reflecting') ----- compiledMethodAt: aSelector ^ self subjectDo: [:subject | subject compiledMethodAt: aSelector]! Item was added: + ----- Method: OldMetaclassEditor>>definition (in category 'reflecting') ----- + definition + ^ self definitionST80! Item was changed: ----- Method: MetaclassEditor>>compile:classified: (in category 'editing') ----- compile: source classified: cat ^ self compile: source classified: cat withStamp: Utilities changeStamp notifying: nil logSource: self acceptsLoggingOfCompilation ! Item was added: + ----- Method: RootMetaclassEditor>>edRegisterEditor (in category 'initialize-release') ----- + edRegisterEditor + "Do nothing"! Item was added: + ----- Method: OldMetaclassEditor>>compile:classified:withStamp:notifying: (in category 'editing') ----- + compile: source classified: cat withStamp: aString notifying: anObject + ^ self + compile: source + classified: cat + withStamp: aString + notifying: anObject + logSource: self acceptsLoggingOfCompilation ! Item was added: + ----- Method: OldMetaclassEditor>>isUniClass (in category 'reflecting') ----- + isUniClass + "The debugger sometimes sends this message" + ^ false! Item was added: + ----- Method: OldMetaclassEditor>>acceptsLoggingOfCompilation (in category 'reflecting') ----- + acceptsLoggingOfCompilation + + ^ self instanceSide acceptsLoggingOfCompilation! Item was added: + ----- Method: OldMetaclassEditor>>superclass (in category 'reflecting') ----- + superclass + | subjectSuperclass | + superEditor ifNotNil: [^ superEditor]. + subjectSuperclass := self subject + ifNil: [Object] + ifNotNil: [self subject superclass]. + ^ self system edEditorFor: subjectSuperclass! Item was added: + ----- Method: OldMetaclassEditor>>isDebuggingAsEditor (in category 'debugging') ----- + isDebuggingAsEditor + "To be transparent enough to fool most existing software, + MetaclassEditors must answer their subject's instance variables when + sent the message allInstVarNames. However, this message is also used by + the debugger, inspector, and explorer, when inspecting ClassEditors, and + an inspector should see the real instance variables of ClassEditor rather + than those of the MetaclassEditor's subject. So there is a conflict of + interest already. + + But it gets worse. If you do open an inspector on an object that is + reporting wrong information about it's instance variables, Bad things + happen. Specifically, the inspector calls instVarAt: on an instance + variable that does not exist, leading to an error every time the display + is updated. Less severe, instVarAt: will answer nonsensical. + + So I took the instance variable proxying behavior all the way so that it + successfully fools the debugger, inspector, and explorer into seeing + proxied instance variables (see the senders af this message if you want + to know how). But there is still the original problem that you, the + programmer want to see the real state of ClassEditor. That is where this + method comes in. + + If this method returns false, everybody sees the proxied instance + variables. This is the correct behavior. If this method returns false, + everyone sees the true instance variables of ClassEditor. This is + incorrect behavior, and breaks the Unit tests, but it is invaluable if + you are debugging ClassEditor. + + Just be sure to make sure this returns false whenever making a release" + ^ false! Item was added: + ----- Method: OldMetaclassEditor>>removeSelector: (in category 'editing') ----- + removeSelector: aSymbol + methods ifNil: [methods := MethodDictionaryEditor for: self]. + methods remove: aSymbol.! Item was added: + ----- Method: OldMetaclassEditor>>lookupSelector: (in category 'metaclass') ----- + lookupSelector: aSelector + + "Override the implementation in Behavior to make ClassEditor + debuggable. The debugger calls this during simulated execution, + and since we override #includesSelector and #superclass to + reflect on the subject, we get incorrect method dispatch." + + | lookupClass dict | + lookupClass := self. + [lookupClass == nil] whileFalse: + [dict := lookupClass instVarAt: 2. + (dict includesKey: aSelector) + ifTrue: [^ dict at: aSelector]. + lookupClass := lookupClass instVarAt: 1]. + ^ nil! Item was added: + ----- Method: OldMetaclassEditor>>edRequiresSubclassRebuild (in category 'building') ----- + edRequiresSubclassRebuild + ^ self subject + ifNotNilDo: [:subject | subject format ~= self format] + ifNil: [false]! Item was changed: ----- Method: MetaclassEditor>>instanceSide (in category 'reflecting') ----- instanceSide ^ self theNonMetaClass! Item was added: + ----- Method: OldMetaclassEditor>>hasComment (in category 'reflecting') ----- + hasComment + ^ self instanceSide hasComment! Item was changed: ----- Method: MetaclassEditor>>addInstVarName: (in category 'editing') ----- addInstVarName: aString instVarNames ifNil: [instVarNames := self subject instVarNames]. instVarNames := instVarNames copyWith: aString! Item was added: + ----- Method: OldMetaclassEditor>>compile:classified:notifying: (in category 'editing') ----- + compile: source classified: cat notifying: anObject + ^ self + compile: source + classified: cat + withStamp: Utilities changeStamp + notifying: anObject + logSource: self acceptsLoggingOfCompilation ! Item was changed: ----- Method: MetaclassEditor>>printOn: (in category 'printing') ----- printOn: aStream aStream nextPutAll: 'a MetaclassEditor on: '; print: editor subject ! Item was changed: ----- Method: MetaclassEditor>>includesSelector: (in category 'reflecting') ----- includesSelector: aSelector ^ (methods ifNil: [self subject] ifNotNil: [methods]) includesSelector: aSelector! Item was changed: ----- Method: MetaclassEditor>>comment (in category 'reflecting') ----- comment ^ self instanceSide comment! Item was changed: ----- Method: MetaclassEditor>>environment (in category 'reflecting') ----- environment ^ self system! Item was changed: ----- Method: MetaclassEditor>>rearrangeInstVarNames: (in category 'editing') ----- rearrangeInstVarNames: associations "The associations are name -> pos and cover the subset of vars that should be moved. The old just fill in the holes." instVarNames := ClassEditor rearrangeVarNames: associations oldNames: instVarNames! Item was changed: ----- Method: MetaclassEditor>>new (in category 'metaclass') ----- new ^ editor := self basicNew! Item was changed: ----- Method: MetaclassEditor>>name (in category 'reflecting') ----- name ^ editor name, ' class'! Item was changed: ----- Method: MetaclassEditor>>subjectDo: (in category 'accessing') ----- subjectDo: aBlock ^ self subject ifNotNilDo: [:subject | aBlock value: subject] ifNil: [self error: 'key not found']! Item was changed: ----- Method: MetaclassEditor>>edInitializeForNewClass (in category 'building') ----- edInitializeForNewClass superEditor := self system edEditorFor: Object class. instVarNames := Array new. methods := MethodDictionaryEditor for: self! Item was changed: ----- Method: MetaclassEditor>>sourceCodeAt: (in category 'reflecting') ----- sourceCodeAt: aSelector ^ self subjectDo: [:subject | subject sourceCodeAt: aSelector]! Item was added: + ----- Method: OldMetaclassEditor>>instanceVariablesString (in category 'reflecting') ----- + instanceVariablesString + ^ String streamContents: + [:stream | + self allInstVarNames + do: [:ea | stream nextPutAll: ea] + separatedBy: [stream nextPut: $ ]]! Item was added: + ----- Method: RootMetaclassEditor class>>classClassEditor (in category 'instance creation') ----- + classClassEditor + ^ RootClassEditor! Item was added: + ----- Method: OldRootMetaclassEditor>>allSuperclasses (in category 'reflecting') ----- + allSuperclasses + ^ OrderedCollection new! Item was changed: ----- Method: MetaclassEditor>>edMethodAt: (in category 'editing') ----- edMethodAt: aSelector ^ self methods at: aSelector! Item was added: + ----- Method: OldRootMetaclassEditor>>subject (in category 'accessing') ----- + subject + ^ nil! Item was added: + ----- Method: OldMetaclassEditor>>allInstVarNames (in category 'reflecting') ----- + allInstVarNames + "specialized in order to enable debugger to show as self" + + self isDebuggingAsEditor ifTrue: [^ super allInstVarNames]. + ^ self edSuperclass + ifNil: [self instVarNames copy] + ifNotNil: [self edSuperclass allInstVarNames, self instVarNames]! Item was changed: ----- Method: MetaclassEditor>>methodDictionary (in category 'reflecting') ----- methodDictionary | methodEditor | (methods isNil and: [self edRequiresRecompile not]) ifTrue: [^ self subject methodDictionary]. methodEditor := methods ifNil: [MethodDictionaryEditor for: self]. ^ methodEditor buildFor: self! Item was changed: ----- Method: MetaclassEditor>>definitionST80: (in category 'reflecting') ----- definitionST80: isST80 ^ isST80 ifTrue: [self definitionST80] ifFalse: [self definition]! Item was added: + ----- Method: OldMetaclassEditor>>edSuperclass (in category 'building') ----- + edSuperclass + ^ superEditor + ifNil: [self subject superclass] + ifNotNil: [superEditor product]! Item was changed: ----- Method: MetaclassEditor>>edClassFormat (in category 'building') ----- edClassFormat ^ ClassFormat size: self instSize type: self typeOfClass index: self indexIfCompact! Item was added: + ----- Method: RootMetaclassEditor>>product (in category 'building') ----- + product + ^ nil! Item was added: + ----- Method: OldMetaclassEditor>>typeOfClass (in category 'reflecting') ----- + typeOfClass + ^ #normal! Item was added: + Behavior subclass: #OldMetaclassEditor + instanceVariableNames: 'editor superEditor instVarNames methods organization traitComposition' + classVariableNames: '' + poolDictionaries: '' + category: 'SystemEditor-Editors'! Item was changed: ----- Method: MetaclassEditor>>browserDefinition: (in category 'reflecting') ----- browserDefinition: style ^ self definition! Item was added: + ----- Method: OldRootMetaclassEditor>>ultimateSourceCodeAt:ifAbsent: (in category 'reflecting') ----- + ultimateSourceCodeAt: selector ifAbsent: aBlock + "Return the source code at selector, deferring to superclass if necessary" + + ^ aBlock value! Item was changed: ----- Method: MetaclassEditor>>subject (in category 'accessing') ----- subject ^ editor subject ifNotNilDo: [:subject | subject class]! Item was added: + ----- Method: OldMetaclassEditor>>edIsEditor (in category 'testing') ----- + edIsEditor + ^ true! Item was added: + ----- Method: OldRootMetaclassEditor>>allInstVarNames (in category 'reflecting') ----- + allInstVarNames + ^ #()! Item was changed: ----- Method: MetaclassEditor>>methods (in category 'accessing') ----- methods ^ methods ifNil: [methods := MethodDictionaryEditor for: self]! Item was added: + ----- Method: OldMetaclassEditor>>theMetaClass (in category 'reflecting') ----- + theMetaClass + ^ self! Item was added: + ----- Method: OldMetaclassEditor>>edRequiresRecompile (in category 'building') ----- + edRequiresRecompile + ^ instVarNames ~~ nil! Item was added: + ----- Method: RootMetaclassEditor class>>canEdit:for: (in category 'instance creation') ----- + canEdit: anObject for: anEditor + ^ false! Item was added: + ----- Method: OldMetaclassEditor>>definitionST80 (in category 'reflecting') ----- + definitionST80 + ^ String streamContents: + [:strm | + strm print: self; + crtab; + nextPutAll: 'instanceVariableNames: '; + store: self instanceVariablesString]! Item was changed: ----- Method: MetaclassEditor>>theNonMetaClass (in category 'reflecting') ----- theNonMetaClass ^ editor! Item was added: + ----- Method: OldMetaclassEditor>>environment (in category 'reflecting') ----- + environment + ^ self system! Item was added: + ----- Method: OldMetaclassEditor>>edMethodsDo: (in category 'building') ----- + edMethodsDo: aBlock + methods ifNotNil: [methods do: aBlock]! Item was changed: + ClassDescriptionEditor subclass: #MetaclassEditor + instanceVariableNames: 'editor' - Behavior subclass: #MetaclassEditor - instanceVariableNames: 'editor superEditor instVarNames methods organization traitComposition' classVariableNames: '' poolDictionaries: '' category: 'SystemEditor-Editors'! Item was added: + ----- Method: RootMetaclassEditor>>instSize (in category 'reflecting') ----- + instSize + ^ 0! Item was added: + ----- Method: OldRootMetaclassEditor>>instSize (in category 'reflecting') ----- + instSize + ^ 0! Item was changed: ----- Method: MetaclassEditor>>superclass: (in category 'editing') ----- superclass: aClass superEditor := self system edEditorFor: aClass! Item was added: + ----- Method: OldRootMetaclassEditor>>edRequiresRecompile (in category 'building') ----- + edRequiresRecompile + ^ false! Item was changed: ----- Method: MetaclassEditor>>compile:classified:withStamp:notifying:logSource: (in category 'editing') ----- compile: source classified: category withStamp: aString notifying: anObject logSource: aBoolean | cm | cm := MethodEditor source: source classified: category stamp: aString notifying: anObject logging: aBoolean. self methods add: cm.! Item was changed: ----- Method: MetaclassEditor>>edMethodAt:ifAbsent: (in category 'editing') ----- edMethodAt: aSelector ifAbsent: aBlock ^ self methods at: aSelector ifAbsent: aBlock! Item was added: + MetaclassEditor subclass: #RootMetaclassEditor + instanceVariableNames: '' + classVariableNames: '' + poolDictionaries: '' + category: 'SystemEditor-Editors'! Item was changed: ----- Method: MetaclassEditor>>instVarNames (in category 'reflecting') ----- instVarNames "Override the implemenation in Behavior. That will return the inst vars of ClassEditor, but we want the inst vars of the subject's class." self isDebuggingAsEditor ifTrue: [^ super instVarNames]. ^ instVarNames ifNil: [self subject instVarNames]! Item was added: + ----- Method: OldMetaclassEditor>>definitionST80: (in category 'reflecting') ----- + definitionST80: isST80 + ^ isST80 ifTrue: [self definitionST80] ifFalse: [self definition]! Item was added: + ----- Method: OldMetaclassEditor>>edClassFormat (in category 'building') ----- + edClassFormat + ^ ClassFormat + size: self instSize + type: self typeOfClass + index: self indexIfCompact! Item was added: + ----- Method: OldMetaclassEditor>>indexIfCompact (in category 'reflecting') ----- + indexIfCompact + self subject ifNotNil: [^ self subject indexIfCompact]. + ^ 0! Item was changed: ----- Method: MetaclassEditor class>>new (in category 'instance creation') ----- new | instance | instance := self basicNew. instance superclass: self classClassEditor methodDictionary: MethodDictionary new format: self classClassEditor format. ^ instance! Item was changed: ----- Method: MetaclassEditor>>instSize (in category 'reflecting') ----- instSize "Override the implemenation in Behavior, so that when inspecting the ClassEditor, it will look like a regular Class" self isDebuggingAsEditor ifTrue: [^ super instSize]. ^ self instVarNames size + (self edSuperclass ifNil: [0] ifNotNilDo: [:ed | ed instSize])! Item was changed: ----- Method: MetaclassEditor>>classSide (in category 'reflecting') ----- classSide ^self theMetaClass! Item was added: + ----- Method: OldMetaclassEditor>>removeInstVarName: (in category 'editing') ----- + removeInstVarName: aString + instVarNames ifNil: [instVarNames := self subject instVarNames]. + instVarNames := instVarNames copyWithout: aString! Item was added: + ----- Method: OldMetaclassEditor>>edBuild (in category 'building') ----- + edBuild + | result class | + class := self subject ifNil: [Metaclass] ifNotNilDo: [:subject | subject class]. + result := class basicNew. + result + superclass: self edSuperclass + methodDictionary: MethodDictionary new + format: self format; + organization: self organization build. + result setInstVarNames: self instVarNames. + ^ result! Item was changed: ----- Method: MetaclassEditor>>instanceVariableNames: (in category 'reflecting') ----- instanceVariableNames: instString instVarNames := Scanner new scanFieldNames: instString! Item was changed: ----- Method: MetaclassEditor>>format (in category 'reflecting') ----- format "Override the implemenation in Behavior. That will return the format of ClassEditor, but we want the format of the subject's meta class" ^ self edClassFormat bits! Item was added: + ----- Method: OldMetaclassEditor class>>classClassEditor (in category 'instance creation') ----- + classClassEditor + "Answers the class of my instance-side editor" + + ^ ClassEditor! Item was added: + ----- Method: OldMetaclassEditor>>isMeta (in category 'reflecting') ----- + isMeta + ^ true! Item was added: + ----- Method: OldMetaclassEditor>>product (in category 'building') ----- + product + ^ editor product class! Item was added: + ----- Method: OldMetaclassEditor>>system (in category 'accessing') ----- + system + ^ editor system! Item was changed: ----- Method: MetaclassEditor>>definition (in category 'reflecting') ----- definition ^ self definitionST80! Item was added: + ----- Method: OldMetaclassEditor>>edRequiresBuild (in category 'building') ----- + edRequiresBuild + ^ (superEditor ~~ nil) | (instVarNames ~~ nil) | (methods ~~ nil)! Item was changed: ----- Method: MetaclassEditor>>organization (in category 'reflecting') ----- organization ^ organization ifNil: [organization := OrganizationEditor for: self]! Item was added: + ----- Method: RootMetaclassEditor>>allSuperclasses (in category 'reflecting') ----- + allSuperclasses + ^ OrderedCollection new! Item was added: + ----- Method: OldMetaclassEditor>>classPool (in category 'reflecting') ----- + classPool + ^ editor classPool! Item was added: + ----- Method: RootMetaclassEditor>>subject (in category 'accessing') ----- + subject + ^ nil! Item was added: + ----- Method: OldMetaclassEditor>>compiledMethodAt: (in category 'reflecting') ----- + compiledMethodAt: aSelector + ^ self subjectDo: [:subject | subject compiledMethodAt: aSelector]! Item was changed: ----- Method: MetaclassEditor>>compile:classified:withStamp:notifying: (in category 'editing') ----- compile: source classified: cat withStamp: aString notifying: anObject ^ self compile: source classified: cat withStamp: aString notifying: anObject logSource: self acceptsLoggingOfCompilation ! Item was changed: ----- Method: MetaclassEditor>>isUniClass (in category 'reflecting') ----- isUniClass "The debugger sometimes sends this message" ^ false! Item was changed: ----- Method: MetaclassEditor>>acceptsLoggingOfCompilation (in category 'reflecting') ----- acceptsLoggingOfCompilation ^ self instanceSide acceptsLoggingOfCompilation! Item was added: + ----- Method: OldMetaclassEditor>>compile:classified: (in category 'editing') ----- + compile: source classified: cat + ^ self + compile: source + classified: cat + withStamp: Utilities changeStamp + notifying: nil + logSource: self acceptsLoggingOfCompilation ! Item was changed: ----- Method: MetaclassEditor>>superclass (in category 'reflecting') ----- superclass | subjectSuperclass | superEditor ifNotNil: [^ superEditor]. subjectSuperclass := self subject ifNil: [Object] ifNotNil: [self subject superclass]. ^ self system edEditorFor: subjectSuperclass! Item was changed: ----- Method: MetaclassEditor>>isDebuggingAsEditor (in category 'debugging') ----- isDebuggingAsEditor "To be transparent enough to fool most existing software, MetaclassEditors must answer their subject's instance variables when sent the message allInstVarNames. However, this message is also used by the debugger, inspector, and explorer, when inspecting ClassEditors, and an inspector should see the real instance variables of ClassEditor rather than those of the MetaclassEditor's subject. So there is a conflict of interest already. But it gets worse. If you do open an inspector on an object that is reporting wrong information about it's instance variables, Bad things happen. Specifically, the inspector calls instVarAt: on an instance variable that does not exist, leading to an error every time the display is updated. Less severe, instVarAt: will answer nonsensical. So I took the instance variable proxying behavior all the way so that it successfully fools the debugger, inspector, and explorer into seeing proxied instance variables (see the senders af this message if you want to know how). But there is still the original problem that you, the programmer want to see the real state of ClassEditor. That is where this method comes in. If this method returns false, everybody sees the proxied instance variables. This is the correct behavior. If this method returns false, everyone sees the true instance variables of ClassEditor. This is incorrect behavior, and breaks the Unit tests, but it is invaluable if you are debugging ClassEditor. Just be sure to make sure this returns false whenever making a release" ^ false! Item was added: + ----- Method: OldRootMetaclassEditor>>edRequiresBuild (in category 'building') ----- + edRequiresBuild + ^ false! Item was added: + ----- Method: RootMetaclassEditor>>ultimateSourceCodeAt:ifAbsent: (in category 'reflecting') ----- + ultimateSourceCodeAt: selector ifAbsent: aBlock + "Return the source code at selector, deferring to superclass if necessary" + + ^ aBlock value! Item was changed: ----- Method: MetaclassEditor>>removeSelector: (in category 'editing') ----- removeSelector: aSymbol methods ifNil: [methods := MethodDictionaryEditor for: self]. methods remove: aSymbol.! Item was changed: ----- Method: MetaclassEditor>>lookupSelector: (in category 'metaclass') ----- lookupSelector: aSelector "Override the implementation in Behavior to make ClassEditor debuggable. The debugger calls this during simulated execution, and since we override #includesSelector and #superclass to reflect on the subject, we get incorrect method dispatch." | lookupClass dict | lookupClass := self. [lookupClass == nil] whileFalse: [dict := lookupClass instVarAt: 2. (dict includesKey: aSelector) ifTrue: [^ dict at: aSelector]. lookupClass := lookupClass instVarAt: 1]. ^ nil! Item was changed: ----- Method: MetaclassEditor>>edRequiresSubclassRebuild (in category 'building') ----- edRequiresSubclassRebuild ^ self subject ifNotNilDo: [:subject | subject format ~= self format] ifNil: [false]! Item was changed: ----- Method: MetaclassEditor>>hasComment (in category 'reflecting') ----- hasComment ^ self instanceSide hasComment! Item was changed: ----- Method: MetaclassEditor>>compile:classified:notifying: (in category 'editing') ----- compile: source classified: cat notifying: anObject ^ self compile: source classified: cat withStamp: Utilities changeStamp notifying: anObject logSource: self acceptsLoggingOfCompilation ! Item was added: + ----- Method: RootMetaclassEditor>>allInstVarNames (in category 'reflecting') ----- + allInstVarNames + ^ #()! Item was added: + ----- Method: OldRootMetaclassEditor>>typeOfClass (in category 'reflecting') ----- + typeOfClass + ^ #normal! Item was added: + ----- Method: OldMetaclassEditor>>instanceSide (in category 'reflecting') ----- + instanceSide + ^ self theNonMetaClass! Item was added: + ----- Method: OldMetaclassEditor>>addInstVarName: (in category 'editing') ----- + addInstVarName: aString + instVarNames ifNil: [instVarNames := self subject instVarNames]. + instVarNames := instVarNames copyWith: aString! Item was added: + ----- Method: OldMetaclassEditor>>printOn: (in category 'printing') ----- + printOn: aStream + aStream + nextPutAll: 'a MetaclassEditor on: '; + print: editor subject ! Item was changed: ----- Method: MetaclassEditor>>instanceVariablesString (in category 'reflecting') ----- instanceVariablesString ^ String streamContents: [:stream | self allInstVarNames do: [:ea | stream nextPutAll: ea] separatedBy: [stream nextPut: $ ]]! Item was added: + ----- Method: OldMetaclassEditor>>includesSelector: (in category 'reflecting') ----- + includesSelector: aSelector + ^ (methods ifNil: [self subject] ifNotNil: [methods]) + includesSelector: aSelector! Item was added: + ----- Method: OldMetaclassEditor>>comment (in category 'reflecting') ----- + comment + ^ self instanceSide comment! Item was added: + ----- Method: OldMetaclassEditor>>rearrangeInstVarNames: (in category 'editing') ----- + rearrangeInstVarNames: associations + "The associations are name -> pos and cover the subset + of vars that should be moved. The old just fill in the holes." + + instVarNames := ClassEditor rearrangeVarNames: associations oldNames: instVarNames! Item was added: + ----- Method: OldMetaclassEditor>>new (in category 'metaclass') ----- + new + ^ editor := self basicNew! Item was changed: ----- Method: MetaclassEditor>>allInstVarNames (in category 'reflecting') ----- allInstVarNames "specialized in order to enable debugger to show as self" self isDebuggingAsEditor ifTrue: [^ super allInstVarNames]. ^ self edSuperclass ifNil: [self instVarNames copy] ifNotNil: [self edSuperclass allInstVarNames, self instVarNames]! Item was added: + ----- Method: OldMetaclassEditor>>name (in category 'reflecting') ----- + name + ^ editor name, ' class'! Item was added: + ----- Method: OldMetaclassEditor>>subjectDo: (in category 'accessing') ----- + subjectDo: aBlock + ^ self subject + ifNotNilDo: [:subject | aBlock value: subject] + ifNil: [self error: 'key not found']! Item was added: + ----- Method: OldMetaclassEditor>>edInitializeForNewClass (in category 'building') ----- + edInitializeForNewClass + superEditor := self system edEditorFor: Object class. + instVarNames := Array new. + methods := MethodDictionaryEditor for: self! Item was changed: ----- Method: MetaclassEditor>>edSuperclass (in category 'building') ----- edSuperclass ^ superEditor ifNil: [self subject superclass] ifNotNil: [superEditor product]! Item was changed: ----- Method: MetaclassEditor>>typeOfClass (in category 'reflecting') ----- typeOfClass ^ #normal! Item was added: + ----- Method: OldMetaclassEditor>>sourceCodeAt: (in category 'reflecting') ----- + sourceCodeAt: aSelector + ^ self subjectDo: [:subject | subject sourceCodeAt: aSelector]! Item was added: + ----- Method: OldMetaclassEditor>>organization (in category 'reflecting') ----- + organization + ^ organization ifNil: [organization := OrganizationEditor for: self]! Item was added: + ----- Method: RootMetaclassEditor>>edRequiresRecompile (in category 'building') ----- + edRequiresRecompile + ^ false! Item was added: + ----- Method: OldRootMetaclassEditor>>edRegisterEditor (in category 'initialize-release') ----- + edRegisterEditor + "Do nothing"! Item was added: + ----- Method: OldMetaclassEditor>>edMethodAt: (in category 'editing') ----- + edMethodAt: aSelector + ^ self methods at: aSelector! Item was added: + ----- Method: OldMetaclassEditor>>methodDictionary (in category 'reflecting') ----- + methodDictionary + | methodEditor | + (methods isNil and: [self edRequiresRecompile not]) ifTrue: [^ self subject methodDictionary]. + methodEditor := methods ifNil: [MethodDictionaryEditor for: self]. + ^ methodEditor buildFor: self! Item was changed: ----- Method: MetaclassEditor>>edIsEditor (in category 'testing') ----- edIsEditor ^ true! Item was added: + ----- Method: OldMetaclassEditor>>browserDefinition: (in category 'reflecting') ----- + browserDefinition: style + ^ self definition! Item was changed: ----- Method: MetaclassEditor>>edRequiresRecompile (in category 'building') ----- edRequiresRecompile ^ instVarNames ~~ nil! Item was changed: ----- Method: MetaclassEditor>>theMetaClass (in category 'reflecting') ----- theMetaClass ^ self! Item was removed: - MetaclassEditor subclass: #RootMetalassEditor - instanceVariableNames: '' - classVariableNames: '' - poolDictionaries: '' - category: 'SystemEditor-Editors'! Item was removed: - ----- Method: RootMetalassEditor>>allSuperclasses (in category 'reflecting') ----- - allSuperclasses - ^ OrderedCollection new! Item was removed: - ----- Method: RootMetalassEditor>>subject (in category 'accessing') ----- - subject - ^ nil! Item was removed: - ----- Method: RootMetalassEditor class>>canEdit:for: (in category 'instance creation') ----- - canEdit: anObject for: anEditor - ^ false! Item was removed: - ----- Method: RootMetalassEditor>>instSize (in category 'reflecting') ----- - instSize - ^ 0! Item was removed: - ----- Method: RootMetalassEditor>>ultimateSourceCodeAt:ifAbsent: (in category 'reflecting') ----- - ultimateSourceCodeAt: selector ifAbsent: aBlock - "Return the source code at selector, deferring to superclass if necessary" - - ^ aBlock value! Item was removed: - ----- Method: RootMetalassEditor>>allInstVarNames (in category 'reflecting') ----- - allInstVarNames - ^ #()! Item was removed: - ----- Method: RootMetalassEditor>>typeOfClass (in category 'reflecting') ----- - typeOfClass - ^ #normal! Item was removed: - ----- Method: RootMetalassEditor>>edRequiresRecompile (in category 'building') ----- - edRequiresRecompile - ^ false! Item was removed: - ----- Method: RootMetalassEditor>>edRegisterEditor (in category 'initialize-release') ----- - edRegisterEditor - "Do nothing"! Item was removed: - ----- Method: RootMetalassEditor class>>classClassEditor (in category 'instance creation') ----- - classClassEditor - ^ RootClassEditor! Item was removed: - ----- Method: RootMetalassEditor>>product (in category 'building') ----- - product - ^ nil! Item was removed: - ----- Method: RootMetalassEditor>>edRequiresBuild (in category 'building') ----- - edRequiresBuild - ^ false!

1 0

SystemEditor: SystemEditor-mtf.114.mcz
by squeaksource-noreply＠iam.unibe.ch 13 Aug '08

13 Aug '08

A new version of SystemEditor was added to project SystemEditor: http://www.squeaksource.com/SystemEditor/SystemEditor-mtf.114.mcz ==================== Summary ==================== Name: SystemEditor-mtf.114 Author: mtf Time: 13 August 2008, 12:06:44 am UUID: a0b5f178-9445-43fc-8da6-f3b84d6bd41b Ancestors: SystemEditor-mtf.113, SystemEditor-mtf.111 merged the stable branch (107-111) with the unstable branch (112-113) =============== Diff against SystemEditor-mtf.113 =============== Item was added: + ----- Method: MetaclassEditor>>indexIfCompact (in category 'reflecting') ----- + indexIfCompact + self subject ifNotNil: [^ self subject indexIfCompact]. + ^ 0! Item was added: + ----- Method: ClassOrganizer>>edClassComment:stamp: (in category '*SystemEditor-workaround') ----- + edClassComment: aString stamp: aStamp + "Set the comment and stamp directly, with no checks.This works around a silly check in ClassOrganizer>>classComment:stamp: in Croquet. This check raises an error if the subject is either nil or a metaclass. The check does not exist in Squeak 3.8 and above" + ^ super classComment: aString stamp: aStamp! Item was changed: ----- Method: OrganizationEditor>>build (in category 'building') ----- build | result | self subject. subject ifNil: [ result := ClassOrganizer defaultList: #()] ifNotNil: [ result := ClassOrganizer defaultList: self subject elementArray. self subject categories ifNotNilDo: [:categories | categories do: [:ea | result classifyAll: (subject listAtCategoryNamed: ea) under: ea]]]. classEditor edMethodsDo: [:ea | result classify: ea selector under: (self categoryOfElement: ea selector)]. + result + edClassComment: self commentRemoteStr + stamp: self commentStamp. - result classComment: self commentRemoteStr stamp: self commentStamp. ^ result! Item was changed: ----- Method: ClassEditor>>edName:superclassEditor:type:instVarString:classVarString:poolImports:category: (in category 'building') ----- edName: aSymbol superclassEditor: anEditor type: typeOfClass instVarString: instString classVarString: classString poolImports: poolString category: catString | scanner | scanner := Scanner new. name := aSymbol. + self superclass: anEditor. - superEditor := anEditor. type := typeOfClass. category := catString. instVarNames := scanner scanFieldNames: instString. classVarNames := scanner scanFieldNames: classString. sharedPools := (scanner scanFieldNames: poolString) collect: [:ea | system edResolve: ea asSymbol]! Item was changed: ----- Method: MetaclassEditor>>instSize (in category 'reflecting') ----- instSize "Override the implemenation in Behavior, so that when inspecting the ClassEditor, it will look like a regular Class" self isDebuggingAsEditor ifTrue: [^ super instSize]. + ^ self instVarNames size + (self edSuperclass + ifNil: [0] ifNotNilDo: [:ed | ed instSize])! - ^ self allInstVarNames size! Item was changed: ----- Method: MethodEditor>>compileFor: (in category 'building') ----- compileFor: aClassEditor + [ | node method | node := aClassEditor compilerClass new compile: source in: aClassEditor product notifying: requestor ifFail: nil. node encoder requestor: self. method := node generate: #(0 0 0 0). method selector: node selector. + ^ method + ] on: SyntaxErrorNotification do: [:ex | + "Let the user install the fixed code into the system" + ex defaultAction. + "Now fetch and use that code instead" + source := aClassEditor product sourceCodeAt: self selector ifAbsent: [^ nil]. + ^ aClassEditor product compiledMethodAt: self selector + ]! - ^ method! Item was changed: ----- Method: ClassEditor>>edBuild (in category 'building') ----- edBuild | meta | meta := self class edBuild. product := subject ifNil: [meta new] ifNotNil: [meta adoptInstance: subject from: subject class]. product superclass: self edSuperclass; setFormat: self format; setName: self name; setInstVarNames: self instVarNames; classPoolFrom: self; instVarNamed: #sharedPools put: self sharedPools; organization: self organization build. + product methodDictionary: MethodDictionary new. self decoratorsDo: [:ea | ea buildFor: self]. + + "Class methods should be compiled before instance methods, + since #compilerClass may be among the class methods" + self class methods buildFor: self class. + self methods buildFor: self. - product methodDictionary: self methodDictionary. - product class methodDictionary: self class methodDictionary. ^product! Item was changed: ----- Method: MetaclassEditor>>allInstVarNames (in category 'reflecting') ----- allInstVarNames "specialized in order to enable debugger to show as self" - | vars | self isDebuggingAsEditor ifTrue: [^ super allInstVarNames]. + ^ self edSuperclass + ifNil: [self instVarNames copy] + ifNotNil: [self edSuperclass allInstVarNames, self instVarNames]! - - vars := self subject ifNil: [ #() ] ifNotNil: [ self instVarNames ]. - - ^ superclass == nil - ifTrue: [ vars copy] "Guarantee a copy is answered." - ifFalse: [ self superclass allInstVarNames , vars ]. - ! Item was changed: ----- Method: MetaclassEditor>>edSuperclass (in category 'building') ----- edSuperclass ^ superEditor ifNil: [self subject superclass] + ifNotNil: [superEditor product]! - ifNotNil: [superEditor subject]! Item was added: + ----- Method: MetaclassEditor>>typeOfClass (in category 'reflecting') ----- + typeOfClass + ^ #normal! Item was changed: ----- Method: MethodDictionaryEditor>>buildFor: (in category 'editing') ----- buildFor: aClassEditor | result old | + result := aClassEditor product methodDictionary. - result := MethodDictionary new. self subject keysAndValuesDo: [:selector :cm | (self selectorIsModified: selector) ifFalse: [result at: selector put: (self recompile: selector from: cm for: aClassEditor)]]. additions keysAndValuesDo: [:selector :mm | old := self subject at: selector ifAbsent: [nil]. result at: selector put: (mm compileFrom: old for: aClassEditor)]. ^ result !

1 0

Monticello Public: Monticello.impl-mtf.562.mcz
by squeaksource-noreply＠iam.unibe.ch 13 Aug '08

13 Aug '08

A new version of Monticello.impl was added to project Monticello Public: http://www.squeaksource.com/mc/Monticello.impl-mtf.562.mcz ==================== Summary ==================== Name: Monticello.impl-mtf.562 Author: mtf Time: 12 August 2008, 4:48:17 pm UUID: 8147bb8a-e715-4a0e-bb1e-e1773c35f9e5 Ancestors: Monticello.impl-mtf.561 removed dependence on keith's progress bar enhancements =============== Diff against Monticello.impl-mtf.561 =============== Item was changed: ----- Method: MCPackageLoader2>>basicLoad (in category 'private') ----- basicLoad + - | postloads postunloads | editor := SystemEditor new. + postloads := OrderedCollection new. + postunloads := OrderedCollection new. + + additions do: [:defn | (defn edLoad: editor) ifTrue: [postloads add: defn]] + displayingProgress: 'Assembling Changes...'. + removals do: [:defn | (defn edUnload: editor) ifTrue: [postunloads add: defn]] + displayingProgress: 'Assembling Removals...'. - postloads := additions select: [:defn | self progressBar value: #increment. defn edLoad: editor ]. - postunloads := removals select: [:defn | self progressBar value: #increment. defn edUnload: editor ]. - - "idiom add our work to the progress bar" - self progressBar value: (self progressBar value: #setMax) + postloads size + postunloads size. - "the business" + editor commitWithProgress. + + postloads do: [:ea | ea edPostload] displayingProgress: 'Running post-load scripts...'. + postunloads do: [ :ea | ea edPostunload] displayingProgress: 'Running post-unload scripts...'.! - editor setProgressBar: self progressBar. "here use mine!!" - editor commitWithProgress. - - postloads do: [:ea | self progressBar value: #increment. ea edPostload ]. - postunloads do: [ :ea | self progressBar value: #increment. ea edPostunload ]. - - ! Item was changed: Object subclass: #MCPackageLoader2 + instanceVariableNames: 'editor requirements unloadableDefinitions obsoletions additions removals errorDefinitions provisions isUnloading isMultiplePackage' - instanceVariableNames: 'editor requirements unloadableDefinitions obsoletions additions removals errorDefinitions provisions isUnloading progressBar isMultiplePackage' classVariableNames: '' poolDictionaries: '' category: 'Monticello-Loading'! !MCPackageLoader2 commentStamp: 'kph 5/26/2007 09:32' prior: 0! MCPackageLoader2 ProgressBar has great improvements. #setProgressBar: is used for clients to control how progress is displayed. If no one indicates a preference we display our own progress bar. Otherwise we use the one passed to us. To not have any progress bar displayed give us an empty block. #setProgressBar: [:v | ] ! Item was changed: ----- Method: MCPackageLoader2>>protectedLoad (in category 'private') ----- protectedLoad [ [ + [ self basicLoad ] on: InMidstOfFileinNotification do: [:n | n resume: true] - [ self progressedLoad ] on: InMidstOfFileinNotification do: [:n | n resume: true] ] ensure: [self flushChangesFile]. ] on: MCOrphanedNotification do: [ :ex | additions remove: ex orphan ifAbsent: []. errorDefinitions add: ex orphan. ex resume. ] ! Item was removed: - ----- Method: MCPackageLoader2>>progressedLoad (in category 'private') ----- - progressedLoad - - 'Loading...' - - displayProgress: progressBar at: Sensor cursorPoint - from: 0 to: (additions size + removals size) - during: [ :bar | - self setProgressBar: bar. - self basicLoad. - self setProgressBar: nil. - ]. - - - - !

1 0

SystemEditor: SystemEditor-mtf.113.mcz
by squeaksource-noreply＠iam.unibe.ch 13 Aug '08

13 Aug '08

A new version of SystemEditor was added to project SystemEditor: http://www.squeaksource.com/SystemEditor/SystemEditor-mtf.113.mcz ==================== Summary ==================== Name: SystemEditor-mtf.113 Author: mtf Time: 12 August 2008, 4:25:25 pm UUID: 5f9774f4-e3ab-4b88-800d-62a6b7e44a8b Ancestors: SystemEditor-mtf.112 I missed a commit note: - simplified the protocol for accessing superclasses and superEditors, and commented on how they work =============== Diff against SystemEditor-mtf.112 ===============

1 0

SystemEditor: SystemEditor-mtf.112.mcz
by squeaksource-noreply＠iam.unibe.ch 13 Aug '08

13 Aug '08

A new version of SystemEditor was added to project SystemEditor: http://www.squeaksource.com/SystemEditor/SystemEditor-mtf.112.mcz ==================== Summary ==================== Name: SystemEditor-mtf.112 Author: mtf Time: 12 August 2008, 3:30:26 pm UUID: a6b9a676-4bf5-48ed-88e1-2ff45642b662 Ancestors: SystemEditor-mtf.106 I went way too long without comitting this: - Created ClassDescriptionEditor and moved all the methods ClassEditor and MetaclassEditor should share down there - Created RootClassEditor to simplify queries that recurse up the class heiarchy - fixed a bug in MethodDictionaryEditor that caused global variables to raise an error during compilation - Made ClassEditor and MetaclassEditor be easily subclassable, so that a custom ClassEditor can have a custom MetaclassEditor - Removed dependence on keith's fancy progress bar stuff =============== Diff against SystemEditor-mtf.106 =============== Item was changed: ----- Method: MethodDictionaryEditor>>recompile:from:for: (in category 'building') ----- recompile: aSelector from: aCompiledMethod for: aClassEditor | trailer node | aClassEditor edRequiresRecompile ifFalse: [^ aCompiledMethod]. trailer := aCompiledMethod trailer. node := aClassEditor compilerClass new compile: (aCompiledMethod getSourceFor: aSelector in: aClassEditor) + in: aClassEditor product - in: aClassEditor notifying: nil ifFail: [self error: 'Compilation failed']. node selector == aSelector ifFalse: [self error: 'selector changed!!']. ^ node generate: trailer! Item was added: + ----- Method: AbstractEditor>>edIsEditor (in category 'testing') ----- + edIsEditor + ^ true! Item was added: + ----- Method: RootClassEditor class>>classMetaclassEditor (in category 'instance creation') ----- + classMetaclassEditor + ^ RootMetaclassEditor! Item was changed: Object subclass: #ObjectMigrator instanceVariableNames: 'origin destination' classVariableNames: '' poolDictionaries: '' category: 'SystemEditor-Editors'! + + !ObjectMigrator commentStamp: 'mtf 7/14/2008 11:59' prior: 0! + My instances store an old and new version of a single object that will be swapped during MigrationTransaction>>commit! Item was added: + ----- Method: ClassDescriptionEditor>>sourceCodeAt:ifAbsent: (in category 'reflecting') ----- + sourceCodeAt: aSelector ifAbsent: aBlock + ^ (self edMethodAt: aSelector ifAbsent: aBlock) source! Item was added: + ----- Method: ClassDescriptionEditor>>typeOfClass: (in category 'accessing') ----- + typeOfClass: aSymbol + type := aSymbol! Item was changed: + ----- Method: ClassEditor>>edIsValid (in category '*SystemEditor-Tests') ----- - ----- Method: ClassEditor>>edIsValid (in category 'testing') ----- edIsValid [self validate] on: InvalidSystemChange do: [:ex | ^ false]. ^ true! Item was changed: ----- Method: SystemEditor>>commit (in category 'building') ----- commit | migration export | + showProgress ifNil: [showProgress := false]. self validate. self edExpandEditors. migration := MigrationTransaction new. self edPrepareMigration: migration. export := ClassExporter on: subject. self edPrepareExport: export. + + showProgress ifTrue: [(1 to: 2) do: [:ea | ] displayingProgress: 'Comitting...']. - [migration commit. export commit. self edCommitRemovals. self edRecategorize.] valueUnpreemptively. ^ true! Item was added: + ----- Method: ClassDescriptionEditor>>superclass: (in category 'editing') ----- + superclass: aClassOrEditor + superEditor := self environment edEditorFor: aClassOrEditor! Item was added: + ----- Method: ClassDescriptionEditor>>compile:classified:withStamp:notifying:logSource: (in category 'editing') ----- + compile: source classified: cat withStamp: aString notifying: anObject logSource: aBoolean + | cm | + cm := MethodEditor + source: source + classified: cat + stamp: aString + notifying: anObject + logging: aBoolean. + self methods add: cm. + ^ cm selector! Item was added: + ----- Method: ClassDescriptionEditor>>edMethodAt:ifAbsent: (in category 'editing') ----- + edMethodAt: aSelector ifAbsent: aBlock + ^ self methods at: aSelector ifAbsent: aBlock! Item was added: + ----- Method: ClassDescriptionEditor>>instVarNames (in category 'editing') ----- + instVarNames + ^ instVarNames ifNil: [instVarNames := self subject instVarNames]! Item was added: + ----- Method: ClassDescriptionEditor>>validateFormat (in category 'validating') ----- + validateFormat + self edClassFormat + validate; + validateAgainstSuper: self edSuperFormat; + validateAgainstOld: self edOldFormat! Item was added: + ----- Method: RootClassEditor>>product (in category 'building') ----- + product + ^ nil! Item was changed: + ----- Method: ClassEditor>>environment (in category 'accessing') ----- - ----- Method: ClassEditor>>environment (in category 'reflecting') ----- environment ^ self system! Item was added: + ----- Method: ClassDescriptionEditor>>isWords (in category 'testing') ----- + isWords + ^ #(words weak variable) includes: self typeOfClass ! Item was added: + ----- Method: ClassDescriptionEditor>>instSize (in category 'reflecting') ----- + instSize + ^ self instVarNames size + self superclassOrEditor instSize! Item was added: + ----- Method: ClassDescriptionEditor>>propertyAt:ifAbsent: (in category 'accessing properties') ----- + propertyAt: key ifAbsent: aBlock + + properties ifNil: [^ aBlock value]. + ^ properties at: key ifAbsent: aBlock! Item was added: + ----- Method: ClassDescriptionEditor>>classSide (in category 'reflecting') ----- + classSide + ^self theMetaClass! Item was added: + ----- Method: ClassDescriptionEditor>>whichCategoryIncludesSelector: (in category 'reflecting') ----- + whichCategoryIncludesSelector: aSymbol + ^ self organization categoryOfElement: aSymbol! Item was added: + ----- Method: ClassDescriptionEditor>>instanceVariableNames: (in category 'reflecting') ----- + instanceVariableNames: instString + instVarNames := Scanner new scanFieldNames: instString! Item was added: + ----- Method: ClassDescriptionEditor>>format (in category 'reflecting') ----- + format + ^ self edClassFormat bits! Item was added: + ----- Method: ClassDescriptionEditor>>addInstVarName: (in category 'editing') ----- + addInstVarName: aString + instVarNames ifNil: [instVarNames := self subject instVarNames]. + (instVarNames includes: aString) + ifFalse: [instVarNames := instVarNames copyWith: aString]! Item was added: + ----- Method: MetaclassEditor class>>classClassEditor (in category 'instance creation') ----- + classClassEditor + "Answers the class of my instance-side editor" + + ^ ClassEditor! Item was added: + ----- Method: ClassDescriptionEditor>>isBytes (in category 'testing') ----- + isBytes + ^ self typeOfClass = #bytes! Item was added: + ----- Method: ClassEditor class>>classMetaclassEditor (in category 'instance creation') ----- + classMetaclassEditor + "Answer the class of editors for my instances' cooresponding metaclass editor" + + ^ MetaclassEditor! Item was added: + ----- Method: ClassDescriptionEditor>>definition (in category 'reflecting') ----- + definition + ^ self definitionST80! Item was added: + ----- Method: ClassDescriptionEditor>>propertyAt:ifAbsentPut: (in category 'accessing properties') ----- + propertyAt: key ifAbsentPut: aBlock + + ^ self propertyAt: key ifAbsent: [ + self propertyAt: key put: aBlock value]! Item was added: + ----- Method: RootClassEditor class>>canEdit:for: (in category 'instance creation') ----- + canEdit: anObject for: anEditor + ^ false! Item was added: + ----- Method: ClassDescriptionEditor>>edOldFormat (in category 'building') ----- + edOldFormat + ^ self subject ifNotNil: [ClassFormat fromBits: self subject format]! Item was added: + ----- Method: ClassDescriptionEditor>>organization (in category 'accessing') ----- + organization + ^ organization ifNil: [organization := OrganizationEditor for: self]! Item was added: + ----- Method: ClassDescriptionEditor>>compile:classified:withStamp:notifying: (in category 'editing') ----- + compile: source classified: cat withStamp: aString notifying: anObject + ^ self + compile: source + classified: cat + withStamp: aString + notifying: anObject + logSource: self acceptsLoggingOfCompilation ! Item was added: + MetaclassEditor subclass: #RootMetalassEditor + instanceVariableNames: '' + classVariableNames: '' + poolDictionaries: '' + category: 'SystemEditor-Editors'! Item was changed: + ClassDescriptionEditor subclass: #ClassEditor + instanceVariableNames: 'subject product system name classVarNames sharedPools category' + classVariableNames: '' - AbstractEditor subclass: #ClassEditor - instanceVariableNames: 'subject product system superEditor name type instVarNames classVarNames sharedPools methods category organization properties decorators' - classVariableNames: 'ReservedNames' poolDictionaries: '' category: 'SystemEditor-Editors'! Item was changed: + ----- Method: ClassEditor>>isMeta (in category 'testing') ----- - ----- Method: ClassEditor>>isMeta (in category 'reflecting') ----- isMeta ^ false! Item was added: + ----- Method: ClassDescriptionEditor>>literalScannedAs:notifying: (in category 'compiling') ----- + literalScannedAs: literal notifying: anEncoder + literal isVariableBinding ifTrue: [self halt]. + ^ literal! Item was added: + ----- Method: RootMetalassEditor>>allSuperclasses (in category 'reflecting') ----- + allSuperclasses + ^ OrderedCollection new! Item was added: + ----- Method: ClassDescriptionEditor>>superclass (in category 'reflecting') ----- + superclass + "Answers the editor on my new superclass, creating it if necessary" + + ^ self environment edEditorFor: self superclassOrEditor! Item was added: + ----- Method: RootMetalassEditor>>subject (in category 'accessing') ----- + subject + ^ nil! Item was added: + ----- Method: ClassDescriptionEditor>>removeSelector: (in category 'editing') ----- + removeSelector: aSymbol + self methods remove: aSymbol.! Item was added: + ----- Method: ClassDescriptionEditor>>hasProperty: (in category 'accessing properties') ----- + hasProperty: aSymbol + self propertyAt: aSymbol ifAbsent: [^ false]. + ^ true! Item was added: + ----- Method: ClassDescriptionEditor>>compile:classified:notifying: (in category 'editing') ----- + compile: source classified: cat notifying: anObject + ^ self + compile: source + classified: cat + withStamp: Utilities changeStamp + notifying: anObject + logSource: self acceptsLoggingOfCompilation ! Item was added: + ----- Method: ClassDescriptionEditor>>isBits (in category 'testing') ----- + isBits + ^ #(bytes words) includes: self typeOfClass! Item was changed: CategorizerEditor subclass: #OrganizationEditor instanceVariableNames: 'classEditor isDirty comment stamp remote repository' classVariableNames: '' poolDictionaries: '' category: 'SystemEditor-Editors'! + + !OrganizationEditor commentStamp: 'mtf 7/14/2008 11:28' prior: 0! + My instances are editors for ClassOrganizer instances! Item was added: + ----- Method: ClassDescriptionEditor>>methods (in category 'accessing') ----- + methods + ^ methods ifNil: [methods := MethodDictionaryEditor for: self]! Item was added: + ----- Method: ClassDescriptionEditor>>selectors (in category 'reflecting') ----- + selectors + ^ self organization allMethodSelectors! Item was added: + ----- Method: ClassDescriptionEditor>>instanceVariablesString (in category 'reflecting') ----- + instanceVariablesString + ^ String streamContents: + [:stream | + self allInstVarNames + do: [:ea | stream nextPutAll: ea] + separatedBy: [stream nextPut: $ ]]! Item was added: + ----- Method: ClassDescriptionEditor>>ultimateSourceCodeAt:ifAbsent: (in category 'reflecting') ----- + ultimateSourceCodeAt: selector ifAbsent: aBlock + "Return the source code at selector, deferring to superclass if necessary" + + ^ self sourceCodeAt: selector ifAbsent: + [self superclassOrEditor ultimateSourceCodeAt: selector ifAbsent: aBlock]! Item was added: + ----- Method: ClassDescriptionEditor>>allInstVarNames (in category 'reflecting') ----- + allInstVarNames + ^ self superclassOrEditor allInstVarNames , self instVarNames! Item was added: + ----- Method: ClassDescriptionEditor>>typeOfClass (in category 'accessing') ----- + typeOfClass + type ifNotNil: [^ type]. + self subject ifNotNil: [^ self subject typeOfClass]. + ^ self superclassOrEditor typeOfClass.! Item was changed: ----- Method: SystemEditor>>edPrepareMigration: (in category 'building') ----- edPrepareMigration: txn + + showProgress + ifFalse: [editors do: [:ea | ea edPrepareMigration: txn]] + ifTrue: [editors do: [:ea | ea edPrepareMigration: txn] displayingProgress: 'Preparing Transaction...']! - - editors do: [:ea | - progressBar ifNotNil: [ progressBar value: #increment ]. - ea edPrepareMigration: txn - ]. - ! Item was added: + ----- Method: RootMetalassEditor class>>canEdit:for: (in category 'instance creation') ----- + canEdit: anObject for: anEditor + ^ false! Item was added: + ----- Method: RootClassEditor>>allSuperclasses (in category 'reflecting') ----- + allSuperclasses + ^ OrderedCollection new! Item was changed: ----- Method: ClassEditor class>>new (in category 'instance creation') ----- new + ^ self classMetaclassEditor new new! - ^ MetaclassEditor new new! Item was added: + ----- Method: RootClassEditor>>subject (in category 'accessing') ----- + subject + ^ nil! Item was added: + ----- Method: MetaclassEditor>>edClassFormat (in category 'building') ----- + edClassFormat + ^ ClassFormat + size: self instSize + type: self typeOfClass + index: self indexIfCompact! Item was added: + ----- Method: RootMetalassEditor>>instSize (in category 'reflecting') ----- + instSize + ^ 0! Item was changed: Object subclass: #SystemEditor + instanceVariableNames: 'subject editors removals organization showProgress' - instanceVariableNames: 'subject editors removals progressBar organization' classVariableNames: '' poolDictionaries: '' category: 'SystemEditor-Editors'! Item was changed: + ----- Method: ClassEditor>>name (in category 'accessing') ----- - ----- Method: ClassEditor>>name (in category 'reflecting') ----- name ^ name ifNil: [subject name]! Item was added: + ----- Method: ClassDescriptionEditor>>withAllSuperclasses (in category 'reflecting') ----- + withAllSuperclasses + "Answer an OrderedCollection of the receiver and the receiver's + superclasses. The first element is the receiver, + followed by its superclass; the last element is Object." + + | temp | + temp := self allSuperclasses. + temp addFirst: self. + ^ temp! Item was added: + ----- Method: RootClassEditor>>ultimateSourceCodeAt:ifAbsent: (in category 'reflecting') ----- + ultimateSourceCodeAt: selector ifAbsent: aBlock + "Return the source code at selector, deferring to superclass if necessary" + + ^ aBlock value! Item was added: + ----- Method: RootClassEditor>>allInstVarNames (in category 'reflecting') ----- + allInstVarNames + ^ #()! Item was changed: + AbstractEditor subclass: #CategorizerEditor - Object subclass: #CategorizerEditor instanceVariableNames: 'subject addedCategories renamedCategories removedCategories' classVariableNames: '' poolDictionaries: '' category: 'SystemEditor-Editors'! !CategorizerEditor commentStamp: '<historical>' prior: 0! An abstract superclass for editors of Categorizers. Takes care of most of the hassle of implementing the public interface of a Categorizer! Item was added: + ----- Method: ClassDescriptionEditor>>propertyAt:put: (in category 'accessing properties') ----- + propertyAt: aSymbol put: value + + properties ifNil: [properties := Dictionary new]. + ^ properties at: aSymbol put: value! Item was added: + ----- Method: ClassDescriptionEditor>>edMethodsDo: (in category 'accessing') ----- + edMethodsDo: aBlock + methods ifNotNil: [methods do: aBlock]! Item was added: + ----- Method: ClassDescriptionEditor>>compiledMethodAt:ifAbsent: (in category 'reflecting') ----- + compiledMethodAt: aSelector ifAbsent: aBlock + ^ self edMethodAt: aSelector ifAbsent: aBlock! Item was added: + ----- Method: ClassDescriptionEditor>>isWeak (in category 'testing') ----- + isWeak + ^ self typeOfClass = #weak! Item was changed: + ----- Method: ClassEditor>>parserClass (in category 'debugging') ----- - ----- Method: ClassEditor>>parserClass (in category 'reflecting') ----- parserClass ^ self class parserClass! Item was added: + ClassEditor subclass: #RootClassEditor + instanceVariableNames: '' + classVariableNames: '' + poolDictionaries: '' + category: 'SystemEditor-Editors'! + + !RootClassEditor commentStamp: 'mtf 7/29/2008 08:37' prior: 0! + My instances represent ClassEditors on the concept of "ProtoObject's superclass", the primitive object from which every class, without exception, inherits. I exist so that queries that involve the superclass do not have to be special-cased in case the superclass really is nil.! Item was added: + ----- Method: ClassDescriptionEditor>>acceptsLoggingOfCompilation (in category 'reflecting') ----- + acceptsLoggingOfCompilation + + self subject ifNil: [ ^ true ]. + ^ self subject acceptsLoggingOfCompilation! Item was added: + ----- Method: RootClassEditor>>instSize (in category 'reflecting') ----- + instSize + ^ 0! Item was changed: + ----- Method: ClassEditor>>category: (in category 'reflecting') ----- - ----- Method: ClassEditor>>category: (in category 'editing') ----- category: aSymbol category := aSymbol! Item was added: + ----- Method: RootClassEditor>>edRequiresRecompile (in category 'building') ----- + edRequiresRecompile + ^ false! Item was added: + ----- Method: ClassDescriptionEditor>>sourceCodeTemplate (in category 'reflecting') ----- + sourceCodeTemplate + ^ self class sourceCodeTemplate! Item was added: + ----- Method: ClassDescriptionEditor>>removeInstVarName: (in category 'editing') ----- + removeInstVarName: aString + instVarNames ifNil: [instVarNames := self subject instVarNames]. + instVarNames := instVarNames copyWithout: aString! Item was added: + ----- Method: ClassDescriptionEditor>>propertyAt: (in category 'accessing properties') ----- + propertyAt: key + + ^self propertyAt: key ifAbsent: [nil]! Item was changed: + ----- Method: ClassEditor>>instVarAt:put: (in category 'debugging') ----- - ----- Method: ClassEditor>>instVarAt:put: (in category 'reflecting') ----- instVarAt: index put: anObject "Override the implemenation in Object. That will set the inst vars of ClassEditor, but we want the inst vars of the subject." self class isDebuggingAsEditor ifTrue: [^ super instVarAt: index put: anObject]. "If the insance variable has not yet been installed, return nil" self subject ifNil: [^ self]. index > self subject class instSize ifTrue: [^ self]. ^ self subject instVarAt: index put: anObject! Item was changed: ----- Method: MetaclassEditor class>>new (in category 'instance creation') ----- new | instance | instance := self basicNew. instance + superclass: self classClassEditor - superclass: ClassEditor methodDictionary: MethodDictionary new + format: self classClassEditor format. - format: ClassEditor format. ^ instance! Item was added: + ----- Method: RootMetalassEditor>>ultimateSourceCodeAt:ifAbsent: (in category 'reflecting') ----- + ultimateSourceCodeAt: selector ifAbsent: aBlock + "Return the source code at selector, deferring to superclass if necessary" + + ^ aBlock value! Item was changed: ----- Method: SystemEditor>>commitWithProgress (in category 'building') ----- + commitWithProgress - commitWithProgress - - 'Loading...' - - displayProgress: progressBar at: Sensor cursorPoint - from: 0 to: (editors size * 2) - during: [ :bar | - self setProgressBar: bar. - self commit. - self setProgressBar: nil. - ]. - + showProgress := true. + self commit. + showProgress := false.! - ! Item was changed: ----- Method: MetaclassEditor>>format (in category 'reflecting') ----- format + "Override the implemenation in Behavior. That will return the format of ClassEditor, but we want the format of the subject's meta class" - "Override the implemenation in Behavior. That will return the format of ClassEditor, - but we want the format of the subject's meta class" + ^ self edClassFormat bits! - | superFormat | - superFormat := ClassFormat fromBits: self edSuperclass format. - ^ (superFormat namedSubclass: self instVarNames size) bits! Item was added: + ----- Method: RootMetalassEditor>>allInstVarNames (in category 'reflecting') ----- + allInstVarNames + ^ #()! Item was added: + ----- Method: ClassDescriptionEditor>>compiledMethodAt: (in category 'reflecting') ----- + compiledMethodAt: aSelector + + ^ self compiledMethodAt: aSelector ifAbsent: [ self error: 'key not found' ]! Item was added: + ----- Method: RootMetalassEditor>>typeOfClass (in category 'reflecting') ----- + typeOfClass + ^ #normal! Item was added: + ----- Method: ClassDescriptionEditor>>compile:classified: (in category 'editing') ----- + compile: source classified: cat + ^ self + compile: source + classified: cat + withStamp: Utilities changeStamp + notifying: nil + logSource: self acceptsLoggingOfCompilation ! Item was added: + ----- Method: ClassDescriptionEditor>>edSuperclass (in category 'building') ----- + edSuperclass + "Answer my product's superclass, building it if necessary" + + ^ self superclass product! Item was added: + ----- Method: ClassDescriptionEditor>>superclassOrEditor (in category 'accessing') ----- + superclassOrEditor + "Answer my superclass as either an editor or class, whichever is easier. Does not add anything to my SystemEditor" + + ^ superEditor + ifNil: [ self subject superclass + ifNil: [RootClassEditor on: nil for: self environment]]! Item was added: + ----- Method: RootClassEditor>>edRequiresBuild (in category 'building') ----- + edRequiresBuild + ^ false! Item was added: + ----- Method: RootMetalassEditor>>edRequiresRecompile (in category 'building') ----- + edRequiresRecompile + ^ false! Item was added: + ----- Method: RootMetalassEditor>>edRegisterEditor (in category 'initialize-release') ----- + edRegisterEditor + "Do nothing"! Item was added: + ----- Method: ClassDescriptionEditor>>ensureInstVarName: (in category 'editing') ----- + ensureInstVarName: aString + (self allInstVarNames includes: aString) + ifFalse: [ self addInstVarName: aString]. + ! Item was added: + ----- Method: ClassDescriptionEditor>>isVariable (in category 'testing') ----- + isVariable + ^ (self typeOfClass = #normal) not! Item was added: + ----- Method: ClassDescriptionEditor>>instanceSide (in category 'reflecting') ----- + instanceSide + ^ self theNonMetaClass! Item was added: + AbstractEditor subclass: #ClassDescriptionEditor + instanceVariableNames: 'superclass methodDict format superEditor methods type instVarNames organization properties decorators' + classVariableNames: 'ReservedNames' + poolDictionaries: '' + category: 'SystemEditor-Editors'! + + !ClassDescriptionEditor commentStamp: 'mtf 7/29/2008 21:55' prior: 0! + I am an abstract superclass for both ClassEditor and MetaclassEditor. + + I implement the Behavior protocol: my instances can create instances. This means that my first three variables must remain 'superclass methodDict format', as the VM accesses them positionally, and my superclasses must not define any instance vairables. Only MetaclassEditor makes use of these ivars, but they are defined here to avoid duplicating a lot of ivars and accessing methods between ClassEditor and MetaclassEditor! Item was added: + ----- Method: ClassDescriptionEditor>>includesSelector: (in category 'reflecting') ----- + includesSelector: aSelector + ^ (methods ifNil: [self subject] ifNotNil: [methods]) + includesSelector: aSelector! Item was changed: Object subclass: #InstanceMigrator instanceVariableNames: 'map instSize origin destination' classVariableNames: '' poolDictionaries: '' category: 'SystemEditor-Editors'! + + !InstanceMigrator commentStamp: 'mtf 7/14/2008 23:51' prior: 0! + My instances are responsible for finding instances of an old class and building them in a new format, to be swapped during MigrationTransaction>>commit! Item was added: + ----- Method: ClassDescriptionEditor>>compilerClass (in category 'reflecting') ----- + compilerClass + ^ self subject + ifNil: [Compiler] + ifNotNil: [self subject compilerClass]! Item was added: + ----- Method: RootClassEditor>>typeOfClass (in category 'reflecting') ----- + typeOfClass + ^ #normal! Item was added: + ----- Method: ClassDescriptionEditor>>rearrangeInstVarNames: (in category 'editing') ----- + rearrangeInstVarNames: associations + "The associations are name -> pos and cover the subset + of vars that should be moved. The old just fill in the holes." + + instVarNames := ClassEditor rearrangeVarNames: associations oldNames: instVarNames! Item was changed: + ----- Method: ClassEditor>>instVarAt: (in category 'debugging') ----- - ----- Method: ClassEditor>>instVarAt: (in category 'reflecting') ----- instVarAt: index "Override the implemenation in Object. That will return the inst vars of ClassEditor, but we want the inst vars of the subject." self class isDebuggingAsEditor ifTrue: [^ super instVarAt: index]. "If the insance variable has not yet been installed, return nil" self subject ifNil: [^ nil]. index > self subject class instSize ifTrue: [^ nil]. ^ self subject instVarAt: index! Item was changed: ----- Method: SystemEditor>>edSubclassesOf: (in category 'building') ----- + edSubclassesOf: anEditor - edSubclassesOf: anEditor | subeditors | subeditors := OrderedCollection new. + anEditor subject ifNotNilDo: + [ :class | + subeditors addAll: (class subclasses collect: [ :ea | self edEditorFor: ea ]) ]. + editors do: [ :ea | ea superclassOrEditor == anEditor ifTrue: [ subeditors add: ea ] ]. + ^ subeditors asArray! - anEditor subject ifNotNilDo: [:class | subeditors addAll: (class subclasses collect: [:ea | self edEditorFor: ea])]. - editors do: [:ea | ea edSuperEditor == anEditor ifTrue: [subeditors add: ea]]. - ^ subeditors asArray - ! Item was added: + ----- Method: ClassDescriptionEditor>>sourceCodeAt: (in category 'reflecting') ----- + sourceCodeAt: aSelector + ^ self sourceCodeAt: aSelector ifAbsent: [nil]! Item was added: + ----- Method: ClassDescriptionEditor>>edMethodAt: (in category 'editing') ----- + edMethodAt: aSelector + ^ self methods at: aSelector! Item was added: + ----- Method: ClassDescriptionEditor>>definitionST80: (in category 'reflecting') ----- + definitionST80: isST80 + ^ isST80 ifTrue: [self definitionST80] ifFalse: [self definition]! Item was added: + ----- Method: ClassDescriptionEditor>>edClassFormat (in category 'building') ----- + edClassFormat + ^ ClassFormat + size: self instSize + type: self typeOfClass + index: self indexIfCompact! Item was added: + ----- Method: RootClassEditor>>edRegisterEditor (in category 'initialize-release') ----- + edRegisterEditor + "Do nothing"! Item was added: + ----- Method: ClassDescriptionEditor>>indexIfCompact (in category 'reflecting') ----- + indexIfCompact + self subject ifNil: [^ 0]. + ^ self subject indexIfCompact! Item was added: + ----- Method: ClassDescriptionEditor>>decoratorsDo: (in category 'accessing') ----- + decoratorsDo: aBlock + decorators ifNotNil: [decorators do: aBlock]! Item was changed: ----- Method: ClassEditor>>edSuperFormat (in category 'building') ----- edSuperFormat + ^ self superclassOrEditor + ifNotNilDo: [ :ed | ClassFormat fromBits: ed format ] + ifNil: [ ClassFormat named ]! - ^ self edSuperEditor - ifNotNilDo: [:ed | ClassFormat fromBits: ed format] - ifNil: [ClassFormat named]! Item was added: + ----- Method: RootMetalassEditor class>>classClassEditor (in category 'instance creation') ----- + classClassEditor + ^ RootClassEditor! Item was added: + ----- Method: ClassDescriptionEditor>>browserDefinition: (in category 'reflecting') ----- + browserDefinition: style + ^ self definition! Item was added: + ----- Method: ClassDescriptionEditor>>allSuperclasses (in category 'reflecting') ----- + allSuperclasses + "Answer an OrderedCollection of the receiver's and the receiver's ancestor's superclasses. The first element is the receiver's immediate superclass, followed by its superclass; the last element is Object." + + ^ self superclass withAllSuperclasses! Item was changed: ----- Method: SystemEditor>>edPrepareExport: (in category 'building') ----- edPrepareExport: exporter + showProgress + ifFalse: [editors do: [:ea | ea edPrepareExport: exporter]] + ifTrue: [editors do: [:ea | ea edPrepareExport: exporter] displayingProgress: 'Preparing Classes...']! - editors do: [ :ea | - progressBar ifNotNil: [ progressBar value: #increment ]. - ea edPrepareExport: exporter - ]. - ! Item was changed: ----- Method: AbstractEditor class>>named:for: (in category 'as yet unclassified') ----- named: aName for: aDictionaryEditor "Answers a new or existing instance with the given name, and installs it, if necessary" ^ aDictionaryEditor at: aName ifAbsent: [ (self on: nil for: aDictionaryEditor) setName: aName; edRegisterEditor; yourself]! Item was added: + ----- Method: ClassDescriptionEditor>>isPointers (in category 'testing') ----- + isPointers + ^ #(normal weak variable) includes: self typeOfClass! Item was added: + ----- Method: RootMetalassEditor>>product (in category 'building') ----- + product + ^ nil! Item was added: + ----- Method: RootMetalassEditor>>edRequiresBuild (in category 'building') ----- + edRequiresBuild + ^ false! Item was changed: Object subclass: #SourceRepository instanceVariableNames: 'files' classVariableNames: '' poolDictionaries: '' category: 'SystemEditor-Editors'! + + !SourceRepository commentStamp: 'mtf 7/14/2008 11:55' prior: 0! + I have no idea what this class is for. It is extensivily tested in SystemEditor-Tests, but it is actually only used two places in the code: + OrganizationEditor>>writeComment + MethodEditor>>logCompilationFrom:for: + + I have not examined to see what it does -- Matthew Fulmer! Item was added: + ----- Method: ClassDescriptionEditor>>kindOfSubclass (in category 'reflecting') ----- + kindOfSubclass + ^ self typeOfClass caseOf: { + [#normal] -> [' subclass: ']. + [#words] -> [' variableWordSubclass: ']. + [#variable] -> [' variableSubclass: ']. + [#bytes] -> [' variableByteSubclass: ']. + [#weak] -> [' weakSubclass: ' ]. + [#compiledMethod] -> [' variableByteSubclass: ' ] + } otherwise: [self error: 'Unrecognized class type']! Item was added: + ----- Method: ClassDescriptionEditor>>validate (in category 'validating') ----- + validate + self + validateFormat; + validateInstVarNames! Item was added: + ----- Method: ClassDescriptionEditor>>validateInstVarNames (in category 'validating') ----- + validateInstVarNames + self instVarNames do: + [ :ea | + (ReservedNames includes: ea) ifTrue: [ IllegalVariableName signal ]. + (self superclassOrEditor allInstVarNames includes: ea) ifTrue: [ IllegalVariableName signal ]. + self subclasses do: [ :class | (class instVarNames includes: ea) ifTrue: [ IllegalVariableName signal ] ] ]! Item was removed: - ----- Method: ClassEditor>>elementName (in category 'category browsing') ----- - elementName - "The name this editor will be classified under" - ^ self name! Item was removed: - ----- Method: ClassEditor>>rearrangeInstVarNames: (in category 'editing') ----- - rearrangeInstVarNames: associations - "The associations are name -> pos and cover the subset - of vars that should be moved. The old just fill in the holes." - - instVarNames := ClassEditor rearrangeVarNames: associations oldNames: instVarNames! Item was removed: - ----- Method: ClassEditor>>subjectDo: (in category 'reflecting') ----- - subjectDo: aBlock - ^ subject - ifNotNil: aBlock - ifNil: [self error: 'key not found'] ! Item was removed: - ----- Method: ClassEditor>>edMethodsDo: (in category 'accessing') ----- - edMethodsDo: aBlock - methods ifNotNil: [methods do: aBlock]! Item was removed: - ----- Method: ClassEditor>>isWeak (in category 'reflecting') ----- - isWeak - ^ self typeOfClass = #weak! Item was removed: - ----- Method: ClassEditor>>sourceCodeAt: (in category 'reflecting') ----- - sourceCodeAt: aSelector - ^ self sourceCodeAt: aSelector ifAbsent: [nil]! Item was removed: - ----- Method: ClassEditor>>edSuperEditor (in category 'building') ----- - edSuperEditor - ^ superEditor ifNil: [subject superclass]! Item was removed: - ----- Method: ClassEditor>>edMethodAt: (in category 'editing') ----- - edMethodAt: aSelector - ^ self methods at: aSelector! Item was removed: - ----- Method: ClassEditor>>definitionST80: (in category 'reflecting') ----- - definitionST80: isST80 - ^ isST80 ifTrue: [self definitionST80] ifFalse: [self definition]! Item was removed: - ----- Method: ClassEditor>>edClassFormat (in category 'building') ----- - edClassFormat - ^ ClassFormat - size: self instSize - type: self typeOfClass - index: self indexIfCompact! Item was removed: - ----- Method: ClassEditor>>indexIfCompact (in category 'reflecting') ----- - indexIfCompact - self subject ifNotNil: [^ self subject indexIfCompact]. - ^ 0! Item was removed: - ----- Method: ClassEditor>>decoratorsDo: (in category 'accessing') ----- - decoratorsDo: aBlock - decorators ifNotNil: [decorators do: aBlock]! Item was removed: - ----- Method: ClassEditor>>removeInstVarName: (in category 'editing') ----- - removeInstVarName: aString - instVarNames ifNil: [instVarNames := subject instVarNames]. - instVarNames := instVarNames copyWithout: aString! Item was removed: - ----- Method: ClassEditor>>browserDefinition: (in category 'reflecting') ----- - browserDefinition: style - ^ self definition! Item was removed: - ----- Method: ClassEditor>>isPointers (in category 'reflecting') ----- - isPointers - ^ #(normal weak variable) includes: self typeOfClass! Item was removed: - ----- Method: ClassEditor>>propertyAt: (in category 'accessing properties') ----- - propertyAt: key - - ^self propertyAt: key ifAbsent: [nil]! Item was removed: - ----- Method: ClassEditor>>kindOfSubclass (in category 'reflecting') ----- - kindOfSubclass - ^ self typeOfClass caseOf: { - [#normal] -> [' subclass: ']. - [#words] -> [' variableWordSubclass: ']. - [#variable] -> [' variableSubclass: ']. - [#bytes] -> [' variableByteSubclass: ']. - [#weak] -> [' weakSubclass: ' ]. - [#compiledMethod] -> [' variableByteSubclass: ' ] - } otherwise: [self error: 'Unrecognized class type']! Item was removed: - ----- Method: ClassEditor>>validateInstVarNames (in category 'validating') ----- - validateInstVarNames - self instVarNames do: - [:ea | - (ReservedNames includes: ea) ifTrue: [IllegalVariableName signal]. - (self edSuperEditor allInstVarNames includes: ea) ifTrue: [IllegalVariableName signal]. - self subclasses do: [:class | (class instVarNames includes: ea) ifTrue: [IllegalVariableName signal]]]! Item was removed: - ----- Method: ClassEditor>>compiledMethodAt: (in category 'reflecting') ----- - compiledMethodAt: aSelector - ^ self subjectDo: [subject compiledMethodAt: aSelector]! Item was removed: - ----- Method: ClassEditor>>typeOfClass: (in category 'editing') ----- - typeOfClass: aSymbol - type := aSymbol! Item was removed: - ----- Method: ClassEditor>>instVarNames (in category 'reflecting') ----- - instVarNames - ^ instVarNames ifNil: [subject instVarNames]! Item was removed: - ----- Method: ClassEditor>>validateFormat (in category 'validating') ----- - validateFormat - self edClassFormat - validate; - validateAgainstSuper: self edSuperFormat; - validateAgainstOld: self edOldFormat! Item was removed: - ----- Method: SystemEditor>>setProgressBar: (in category 'initialize-release') ----- - setProgressBar: bar - - progressBar := bar! Item was removed: - ----- Method: ClassEditor>>isWords (in category 'reflecting') ----- - isWords - ^ #(words weak variable) includes: self typeOfClass ! Item was removed: - ----- Method: ClassEditor>>ensureInstVarName: (in category 'editing') ----- - ensureInstVarName: aString - (self allInstVarNames includes: aString) - ifFalse: [ self addInstVarName: aString]. - ! Item was removed: - ----- Method: ClassEditor>>propertyAt:ifAbsent: (in category 'accessing properties') ----- - propertyAt: key ifAbsent: aBlock - - ^ properties - ifNil: aBlock - ifNotNil: [properties at: key ifAbsent: aBlock]! Item was removed: - ----- Method: ClassEditor>>classSide (in category 'reflecting') ----- - classSide - ^self theMetaClass! Item was removed: - ----- Method: ClassEditor>>isVariable (in category 'reflecting') ----- - isVariable - ^ (self typeOfClass = #normal) not! Item was removed: - ----- Method: ClassEditor>>instanceSide (in category 'reflecting') ----- - instanceSide - ^ self theNonMetaClass! Item was removed: - ----- Method: ClassEditor>>format (in category 'reflecting') ----- - format - ^ self edClassFormat bits! Item was removed: - ----- Method: ClassEditor>>addInstVarName: (in category 'editing') ----- - addInstVarName: aString - instVarNames ifNil: [instVarNames := subject instVarNames]. - (instVarNames includes: aString) - ifFalse: [instVarNames := instVarNames copyWith: aString]! Item was removed: - ----- Method: ClassEditor>>includesSelector: (in category 'reflecting') ----- - includesSelector: aSelector - ^ (methods ifNil: [self subject] ifNotNil: [methods]) - includesSelector: aSelector! Item was removed: - ----- Method: ClassEditor>>isBytes (in category 'reflecting') ----- - isBytes - ^ self typeOfClass = #bytes! Item was removed: - ----- Method: ClassEditor>>compilerClass (in category 'reflecting') ----- - compilerClass - ^ subject - ifNil: [Compiler] - ifNotNil: [subject compilerClass]! Item was removed: - ----- Method: ClassEditor>>propertyAt:ifAbsentPut: (in category 'accessing properties') ----- - propertyAt: key ifAbsentPut: aBlock - - ^ self propertyAt: key ifAbsent: [ - self propertyAt: key put: aBlock value]! Item was removed: - ----- Method: ClassEditor>>organization (in category 'reflecting') ----- - organization - ^ organization ifNil: [organization := OrganizationEditor for: self]! Item was removed: - ----- Method: ClassEditor>>compile:classified:withStamp:notifying: (in category 'editing') ----- - compile: source classified: cat withStamp: aString notifying: anObject - ^ self - compile: source - classified: cat - withStamp: aString - notifying: anObject - logSource: self acceptsLoggingOfCompilation ! Item was removed: - ----- Method: ClassEditor>>superclass (in category 'reflecting') ----- - superclass - superEditor ifNotNil: [^ superEditor]. - subject superclass ifNil: [^ nil]. - ^system edEditorFor: subject superclass! Item was removed: - ----- Method: ClassEditor>>hasProperty: (in category 'accessing properties') ----- - hasProperty: aSymbol - self propertyAt: aSymbol ifAbsent: [^ false]. - ^ true! Item was removed: - ----- Method: ClassEditor>>allSuperclasses (in category 'reflecting') ----- - allSuperclasses - "Answer an OrderedCollection of the receiver's and the receiver's - ancestor's superclasses. The first element is the receiver's immediate - superclass, followed by its superclass; the last element is Object." - | temp | - ^ self superclass == nil - ifTrue: [ OrderedCollection new] - ifFalse: [temp := self superclass allSuperclasses. - temp addFirst: self superclass. - temp]! Item was removed: - ----- Method: ClassEditor>>isBits (in category 'reflecting') ----- - isBits - ^ #(bytes words) includes: self typeOfClass! Item was removed: - ----- Method: ClassEditor>>methods (in category 'accessing') ----- - methods - ^ methods ifNil: [methods := MethodDictionaryEditor for: self]! Item was removed: - ----- Method: ClassEditor>>validate (in category 'validating') ----- - validate - self - validateFormat; - validateInstVarNames! Item was removed: - ----- Method: ClassEditor>>instanceVariablesString (in category 'reflecting') ----- - instanceVariablesString - ^ String streamContents: - [:stream | - self allInstVarNames - do: [:ea | stream nextPutAll: ea] - separatedBy: [stream nextPut: $ ]]! Item was removed: - ----- Method: ClassEditor>>ultimateSourceCodeAt:ifAbsent: (in category 'reflecting') ----- - ultimateSourceCodeAt: selector ifAbsent: aBlock - "Return the source code at selector, deferring to superclass if necessary" - ^ self sourceCodeAt: selector ifAbsent: - [self superclass - ifNil: - [aBlock value] - ifNotNil: - [self superclass ultimateSourceCodeAt: selector ifAbsent: aBlock]]! Item was removed: - ----- Method: ClassEditor>>sourceCodeAt:ifAbsent: (in category 'reflecting') ----- - sourceCodeAt: aSelector ifAbsent: aBlock - ^ (self edMethodAt: aSelector ifAbsent: aBlock) source! Item was removed: - ----- Method: ClassEditor>>allInstVarNames (in category 'reflecting') ----- - allInstVarNames - ^ self edSuperEditor - ifNil: [self instVarNames copy] - ifNotNil: [self edSuperEditor allInstVarNames, self instVarNames]! Item was removed: - ----- Method: ClassEditor>>superclass: (in category 'editing') ----- - superclass: aClassOrEditor - superEditor := (aClassOrEditor isKindOf: ClassEditor) - ifTrue: [aClassOrEditor] - ifFalse: [ (ClassEditor on: aClassOrEditor for: system) edRegisterEditor]! Item was removed: - ----- Method: ClassEditor>>compile:classified:withStamp:notifying:logSource: (in category 'editing') ----- - compile: source classified: cat withStamp: aString notifying: anObject logSource: aBoolean - | cm | - cm := MethodEditor - source: source - classified: cat - stamp: aString - notifying: anObject - logging: aBoolean. - self methods add: cm. - ^ cm selector! Item was removed: - ----- Method: ClassEditor>>edMethodAt:ifAbsent: (in category 'editing') ----- - edMethodAt: aSelector ifAbsent: aBlock - ^ self methods at: aSelector ifAbsent: aBlock! Item was removed: - ----- Method: ClassEditor>>edIsEditor (in category 'testing') ----- - edIsEditor - ^ true! Item was removed: - ----- Method: ClassEditor>>withAllSuperclasses (in category 'reflecting') ----- - withAllSuperclasses - "Answer an OrderedCollection of the receiver and the receiver's - superclasses. The first element is the receiver, - followed by its superclass; the last element is Object." - - | temp | - temp := self allSuperclasses. - temp addFirst: self. - ^ temp! Item was removed: - ----- Method: ClassEditor>>instSize (in category 'reflecting') ----- - instSize - ^ self instVarNames size + (self edSuperEditor - ifNil: [0] ifNotNilDo: [:ed | ed instSize])! Item was removed: - ----- Method: ClassEditor>>whichCategoryIncludesSelector: (in category 'reflecting') ----- - whichCategoryIncludesSelector: aSymbol - ^ self organization categoryOfElement: aSymbol! Item was removed: - ----- Method: ClassEditor>>instanceVariableNames: (in category 'reflecting') ----- - instanceVariableNames: instString - instVarNames := Scanner new scanFieldNames: instString! Item was removed: - ----- Method: ClassEditor>>propertyAt:put: (in category 'accessing properties') ----- - propertyAt: aSymbol put: value - - properties ifNil: [properties := Dictionary new]. - ^ properties at: aSymbol put: value! Item was removed: - ----- Method: ClassEditor>>compiledMethodAt:ifAbsent: (in category 'reflecting') ----- - compiledMethodAt: aSelector ifAbsent: aBlock - ^ self edMethodAt: aSelector ifAbsent: aBlock! Item was removed: - ----- Method: ClassEditor>>definition (in category 'reflecting') ----- - definition - ^ self definitionST80! Item was removed: - ----- Method: ClassEditor>>edOldFormat (in category 'building') ----- - edOldFormat - ^ subject ifNotNil: [ClassFormat fromBits: subject format]! Item was removed: - ----- Method: ClassEditor>>acceptsLoggingOfCompilation (in category 'reflecting') ----- - acceptsLoggingOfCompilation - - subject ifNil: [ ^ true ]. - - ^ subject acceptsLoggingOfCompilation! Item was removed: - ----- Method: ClassEditor>>literalScannedAs:notifying: (in category 'compiling') ----- - literalScannedAs: literal notifying: anEncoder - literal isVariableBinding ifTrue: [self halt]. - ^ literal! Item was removed: - ----- Method: ClassEditor>>sourceCodeTemplate (in category 'reflecting') ----- - sourceCodeTemplate - ^ self class sourceCodeTemplate! Item was removed: - ----- Method: ClassEditor>>removeSelector: (in category 'editing') ----- - removeSelector: aSymbol - self methods remove: aSymbol.! Item was removed: - ----- Method: ClassEditor>>compile:classified:notifying: (in category 'editing') ----- - compile: source classified: cat notifying: anObject - ^ self - compile: source - classified: cat - withStamp: Utilities changeStamp - notifying: anObject - logSource: self acceptsLoggingOfCompilation ! Item was removed: - ----- Method: ClassEditor>>selectors (in category 'reflecting') ----- - selectors - ^ self organization allMethodSelectors! Item was removed: - ----- Method: MetaclassEditor>>traitComposition: (in category 'metaclass') ----- - traitComposition: tc - - "dummy noop"! Item was removed: - ----- Method: ClassEditor>>compile:classified: (in category 'editing') ----- - compile: source classified: cat - ^ self - compile: source - classified: cat - withStamp: Utilities changeStamp - notifying: nil - logSource: self acceptsLoggingOfCompilation ! Item was removed: - ----- Method: ClassEditor>>edSuperclass (in category 'building') ----- - edSuperclass - ^ superEditor - ifNil: [subject superclass] - ifNotNil: [superEditor product] - ! Item was removed: - ----- Method: ClassEditor>>typeOfClass (in category 'reflecting') ----- - typeOfClass - type ifNotNil: [^ type]. - subject ifNotNil: [^ subject typeOfClass]. - ^ self edSuperFormat typeOfClass.!

1 0

Installer: InstallerAll-md.1.mcz
by squeaksource-noreply＠iam.unibe.ch 12 Aug '08

12 Aug '08

A new version of InstallerAll was added to project Installer: http://www.squeaksource.com/Installer/InstallerAll-md.1.mcz ==================== Summary ==================== Name: InstallerAll-md.1 Author: md Time: 12 August 2008, 6:12:02 pm UUID: 2b6f1f0e-4fad-4d53-995f-71dc099d739d Ancestors: This is a root empty package which has Installer-Core Installer-Test as required packages. This way we always know which version works with which others. *PLEASE USE THIS INSTEAD OF INSTALLER* (as Installer is not empty, by namingconvention it contains the code of Installer-Core and Installer-Test) ==================== Snapshot ====================

1 0

Can't load Packages in sq3.10.2-7179dev08.08.1
by Rob Rothwell 07 Aug '08

07 Aug '08

Hello... If I start with a fresh dev image, sq3.10.2-7179dev08.08.1 and install LevelPlayingField with: (HTTPSocket httpGet: 'installer.pbwiki.com/f/LPF.st') readStream fileIn. "Bootstrap" and then try to install packages with: Installer install: 'Packages'. It gets this far: found http://installer.pbwiki.com/Packages?raw=bare ... installing...redirecting to http://installer.pbwiki.com/FrontPage redirecting to http://installer.pbwiki.com/FrontPage redirecting to http://installer.pbwiki.com/FrontPage found http://installer.pbwiki.com/311-KernelExtensions?raw=bare ... installing... finding Kernel-Extensions... found Kernel-Extensions-kph.78.mcz... and then lands in a Debugger at Warning>>defaultAction Should I post this on Mantis? Thanks...just thought someone would want to know... Rob

3 5

Squeak3.11 Contributions: Kernel-Extensions-kph.79.mcz
by squeaksource-noreply＠iam.unibe.ch 06 Aug '08

06 Aug '08

A new version of Kernel-Extensions was added to project Squeak3.11 Contributions: http://www.squeaksource.com/311/Kernel-Extensions-kph.79.mcz ==================== Summary ==================== Name: Kernel-Extensions-kph.79 Author: kph Time: 6 August 2008, 7:31:10 pm UUID: 991a691f-2790-478d-a79c-a34ecd5f599e Ancestors: Kernel-Extensions-kph.78 UndefinedObject putOn: same as printOn: =============== Diff against Kernel-Extensions-kph.78 =============== Item was added: + ----- Method: UndefinedObject>>putOn: (in category '*kernel-extensions-printing') ----- + putOn: aStream + "Refer to the comment in Object|printOn:." + + aStream nextPutAll: 'nil'!

1 0

2024

2023

2022

2021

2020

2019

2018

2017

2016

2015

2014

2013

2012

2011

2010

2009

2008

2007

2006

2005

Packages August 2008