Packages October 2008

packages@lists.squeakfoundation.org

3 participants
120 discussions

Monticello Public: Monticello.impl-mtf.582.mcz
by squeak-dev-noreply＠lists.squeakfoundation.org 08 Oct '08

08 Oct '08

A new version of Monticello.impl was added to project Monticello Public: http://www.squeaksource.com/mc/Monticello.impl-mtf.582.mcz ==================== Summary ==================== Name: Monticello.impl-mtf.582 Author: mtf Time: 7 October 2008, 6:10:29 pm UUID: f6cad8f4-c926-47a4-bd33-ccacd420fcf0 Ancestors: Monticello.impl-mtf.581, Monticello-marcus.denker.324 Merge Pharo changes up to Monticello-marcus.denker.324. The previous merge was done in Monticello.impl-mtf.581, and brought MC1.5 up to Monticello-AlexandreBergel.323: Here are the changes: >From Monticello-marcus.denker.324 Cleaning duplicated code, some misc fixes =============== Diff against Monticello.impl-mtf.581 =============== Item was removed: - ----- Method: MCThreeWayMerger class>>new (in category 'as yet unclassified') ----- - new - ^ self basicNew initialize! Item was removed: - ----- Method: MCVersionMerger class>>new (in category 'as yet unclassified') ----- - new - ^ self basicNew initialize! Item was removed: - ----- Method: MCReader class>>new (in category 'instance creation') ----- - new - ^ self basicNew initialize! Item was removed: - ----- Method: MCPostscriptDefinition>>accept: (in category 'as yet unclassified') ----- - accept: aWriter - "do nothing"! Item was removed: - ----- Method: MCVersionLoader class>>new (in category 'as yet unclassified') ----- - new - ^ self basicNew initialize! Item was removed: - ----- Method: MCAncestry class>>new (in category 'as yet unclassified') ----- - new - ^ self basicNew initialize! Item was removed: - ----- Method: MCMczWriter class>>new (in category 'as yet unclassified') ----- - new - ^ self basicNew initialize! Item was removed: - ----- Method: MCRepository class>>new (in category 'as yet unclassified') ----- - new - ^ self basicNew initialize! Item was removed: - ----- Method: MCWorkingCopyBrowser class>>new (in category 'as yet unclassified') ----- - new - ^ self basicNew initialize! Item was removed: - ----- Method: MCVersionReader class>>canReadFileNamed: (in category 'testing') ----- - canReadFileNamed: fileName - ^ (fileName endsWith: self extension)! Item was removed: - ----- Method: MCDependencySorter class>>new (in category 'as yet unclassified') ----- - new - ^ self basicNew initialize! Item was removed: - ----- Method: MCVersionReader>>initialize (in category 'lifecycle') ----- - initialize! Item was removed: - ----- Method: MCDefinitionIndex class>>new (in category 'as yet unclassified') ----- - new - ^ self basicNew initialize! Item was removed: - ----- Method: MCReader>>initialize (in category 'lifecycle') ----- - initialize! Item was removed: - ----- Method: MCSMCacheRepository class>>morphicConfigure (in category 'instance creation') ----- - morphicConfigure - ^self new! Item was removed: - ----- Method: MCRepositoryGroup class>>new (in category 'as yet unclassified') ----- - new - ^ self basicNew initialize! Item was removed: - ----- Method: MCRepository>>initialize (in category 'initialization') ----- - initialize! Item was removed: - ----- Method: MCVersionSorter class>>new (in category 'as yet unclassified') ----- - new - ^ self basicNew initialize!

3 4

Monticello Public: Monticello.impl-mtf.584.mcz
by squeak-dev-noreply＠lists.squeakfoundation.org 08 Oct '08

08 Oct '08

A new version of Monticello.impl was added to project Monticello Public: http://www.squeaksource.com/mc/Monticello.impl-mtf.584.mcz ==================== Summary ==================== Name: Monticello.impl-mtf.584 Author: mtf Time: 8 October 2008, 12:39:01 am UUID: 6a0bc726-af44-4522-b47f-c5c9f473ae7f Ancestors: Monticello.impl-mtf.583 Preferences addBooleanPreference:... does not exist in Squeak 3.7 =============== Diff against Monticello.impl-mtf.583 =============== Item was changed: ----- Method: MCPackageLoader class>>initialize (in category 'as yet unclassified') ----- initialize "MCPackageLoader initialize" + Preferences addPreference: #useMonticelloAtomicLoader categories: #(monticello) default: false balloonHelp: - Preferences addBooleanPreference: #useMonticelloAtomicLoader categories: #(monticello) default: false balloonHelp: 'Use the experimental atomic loader for Monticello. You must have SystemEditor for this to work'!

1 0

Monticello Public: MonticelloConfigurations-mtf.52.mcz
by squeak-dev-noreply＠lists.squeakfoundation.org 08 Oct '08

08 Oct '08

A new version of MonticelloConfigurations was added to project Monticello Public: http://www.squeaksource.com/mc/MonticelloConfigurations-mtf.52.mcz ==================== Summary ==================== Name: MonticelloConfigurations-mtf.52 Author: mtf Time: 8 October 2008, 12:21:04 am UUID: c5a4b6f0-fabe-4f62-99f7-c8969556b48c Ancestors: MonticelloConfigurations-cds.51 fixed a syntax error that was probably introduced by the cleanup in Monticello.impl-mtf.582 =============== Diff against MonticelloConfigurations-cds.51 =============== Item was added: + ----- Method: MCMcmReader>>versionFromFile: (in category 'MonticelloConfigurations') ----- + versionFromFile: fileName + ^ self file: fileName streamDo: [:aStream | (self on: aStream fileName: fileName) version ]! Item was changed: ----- Method: MCMcmReader class>>versionFromFile: (in category 'instance creation') ----- versionFromFile: fileName + ^ self file: fileName streamDo: [:aStream | (self on: aStream fileName: fileName) version ]! - ^ self file: fileName streamDo: [:stream | (self on: stream fileName: fileName) version ]!

1 0

SystemEditor: SystemEditor-mtf.131.mcz
by squeak-dev-noreply＠lists.squeakfoundation.org 08 Oct '08

08 Oct '08

A new version of SystemEditor was added to project SystemEditor: http://www.squeaksource.com/SystemEditor/SystemEditor-mtf.131.mcz ==================== Summary ==================== Name: SystemEditor-mtf.131 Author: mtf Time: 7 October 2008, 10:51:51 pm UUID: 3f040e90-44aa-4dcd-944c-65b52845e15e Ancestors: SystemEditor-mtf.130 Unified superclass access to squash some ivar bugs =============== Diff against SystemEditor-mtf.130 =============== Item was added: + ----- Method: ClassEditor class>>classRootEditor (in category 'instance creation') ----- + classRootEditor + "Answer the class of editors for the root of my heiarchy" + + ^ RootClassEditor! Item was changed: ----- 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 superclassOrEditor instSize! - ^ self instVarNames size + (self edSuperclass - ifNil: [0] ifNotNilDo: [:ed | ed instSize])! Item was added: + ----- Method: SystemEditor>>classOrEditorFor: (in category 'accessing') ----- + classOrEditorFor: aClass + "Answers an editor if the class is being edited, or a class if it is not" + + | editor | + aClass edIsEditor ifTrue: [^ aClass]. + editor := additions at: aClass theNonMetaClass name ifAbsent: [^ aClass]. + ^ aClass isMeta ifTrue: [editor class] ifFalse: [editor]! Item was changed: ----- Method: OldMetaclassEditor>>superclass (in category 'reflecting') ----- superclass + "Answers the editor on my new superclass, creating it if necessary" + + ^ self environment edEditorFor: self superclassOrEditor! - | subjectSuperclass | - superEditor ifNotNil: [^ superEditor]. - subjectSuperclass := self subject - ifNil: [Object] - ifNotNil: [self subject superclass]. - ^ self system edEditorFor: subjectSuperclass! Item was changed: ----- Method: OldMetaclassEditor>>edSuperclass (in category 'building') ----- edSuperclass + "Answer my product's superclass, building it if necessary" + + | classOrEditor | + classOrEditor := self superclassOrEditor. + ^ classOrEditor edIsEditor + ifTrue: [classOrEditor product] + ifFalse: [classOrEditor]! - ^ superEditor - ifNil: [self subject superclass] - ifNotNil: [superEditor product]! Item was added: + ----- Method: OldMetaclassEditor>>superclassOrEditor (in category 'accessing') ----- + superclassOrEditor + "Answer my superclass as an editor if it is being edited, or as a class if it is not. Does not add anything to my SystemEditor" + + superEditor ifNotNil: [^ superEditor]. + self subject superclass ifNil: [^ self class classRootEditor on: nil for: self environment]. + ^ self environment classOrEditorFor: self subject superclass! Item was added: + ----- Method: OldMetaclassEditor class>>classRootEditor (in category 'instance creation') ----- + classRootEditor + "Answer the class of editors for the root of my heiarchy" + + ^ OldRootMetaclassEditor! 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 superclassOrEditor instSize! - ^ self instVarNames size + (self edSuperclass - ifNil: [0] ifNotNilDo: [:ed | ed instSize])! Item was changed: ----- Method: ClassEditor>>edRequiresRecompile (in category 'building') ----- edRequiresRecompile instVarNames ifNotNil: [^ true]. classVarNames ifNotNil: [^ true]. sharedPools ifNotNil: [^ true]. self decoratorsDo: [:ea | ea edRequiresRecompile ifTrue: [^ true]]. + ^ self edSuperclassRequiresRecompile! - ^ false! Item was changed: ----- Method: ClassDescriptionEditor>>superclassOrEditor (in category 'accessing') ----- superclassOrEditor + "Answer my superclass as an editor if it is being edited, or as a class if it is not. Does not add anything to my SystemEditor" - "Answer my superclass as either an editor or class, whichever is easier. Does not add anything to my SystemEditor" + superEditor ifNotNil: [^ superEditor]. + self subject superclass ifNil: [^ self class classRootEditor on: nil for: self environment]. + ^ self environment classOrEditorFor: self subject superclass! - ^ superEditor - ifNil: [ self subject superclass - ifNil: [RootClassEditor on: nil for: self environment]]! Item was added: + ----- Method: ClassEditor>>edSuperclassRequiresRecompile (in category 'building') ----- + edSuperclassRequiresRecompile + ^ self superclassOrEditor edIsEditor and: [self superclassOrEditor edRequiresRecompile]! Item was added: + ----- Method: MetaclassEditor class>>classRootEditor (in category 'instance creation') ----- + classRootEditor + "Answer the class of editors for the root of my heiarchy" + + ^ RootMetaclassEditor! Item was removed: - ----- 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 removed: - ----- Method: MetaclassEditor>>edSuperclass (in category 'building') ----- - edSuperclass - ^ superEditor - ifNil: [self subject superclass] - ifNotNil: [superEditor product]!

1 0

Monticello Public: Monticello.impl-mtf.583.mcz
by squeak-dev-noreply＠lists.squeakfoundation.org 08 Oct '08

08 Oct '08

A new version of Monticello.impl was added to project Monticello Public: http://www.squeaksource.com/mc/Monticello.impl-mtf.583.mcz ==================== Summary ==================== Name: Monticello.impl-mtf.583 Author: mtf Time: 7 October 2008, 6:35:34 pm UUID: 0fb3ae9b-fb62-45c2-9222-3ad953d4ea76 Ancestors: Monticello.impl-mtf.582 got the keystrokes in the patch browser working =============== Diff against Monticello.impl-mtf.582 =============== Item was changed: ----- Method: MCPatchBrowser>>widgetSpecs (in category 'morphic ui') ----- widgetSpecs Preferences annotationPanes ifFalse: [ ^#( + ((listMorph:selection:menu:keystroke: list selection methodListMenu: methodListKey:from: ) (0 0 1 0.4) (0 0 0 0)) - ((listMorph:selection:menu: list selection methodListMenu:) (0 0 1 0.4) (0 0 0 0)) ((textMorph: text) (0 0.4 1 1)) ) ]. ^ { + #((listMorph:selection:menu:keystroke: list selection methodListMenu: methodListKey:from: ) (0 0 1 0.4) (0 0 0 0)). - #((listMorph:selection:menu: list selection methodListMenu: ) (0 0 1 0.4) (0 0 0 0)). { #(textMorph: annotations). #(0 0.4 1 0.4). { 0. 0. 0. self defaultAnnotationPaneHeight. } }. { #(textMorph: text). #(0 0.4 1 1). { 0. self defaultAnnotationPaneHeight. 0. 0. } }. }!

1 0

Monticello Public: Monticello.impl-mtf.581.mcz
by squeak-dev-noreply＠lists.squeakfoundation.org 08 Oct '08

08 Oct '08

A new version of Monticello.impl was added to project Monticello Public: http://www.squeaksource.com/mc/Monticello.impl-mtf.581.mcz ==================== Summary ==================== Name: Monticello.impl-mtf.581 Author: mtf Time: 7 October 2008, 5:58:45 pm UUID: 41c04d67-fdf2-4bba-8ff4-d629f7b45873 Ancestors: Monticello.impl-mtf.580, Monticello-AlexandreBergel.323 Merge Pharo changes up to Monticello-AlexandreBergel.323. The previous merge was done in Monticello.impl-mtf.558, and brought MC1.5 up to Monticello-AlexandreBergel.320: Here are the changes: >From Monticello-AlexandreBergel.321 'add required all dirty packages' menu item when selecting a package >From Monticello-AlexandreBergel.322 Added comments when saving >From Monticello-AlexandreBergel.323 Minor bug fixed when fetching the comment. It was trimmed to 20 characters. =============== Diff against Monticello.impl-mtf.580 =============== Item was added: + ----- Method: MCSaveVersionDialog>>comment (in category 'as yet unclassified') ----- + comment + | list index | + list := self lastComments collect: [:s | s copyFrom: 1 to: (s size min: 20)]. + list ifEmpty: [UIManager default inform: 'No previous comments was entered'. ^ self]. + index := UIManager default chooseFrom: list. + + "no comment was selected" + index isZero ifTrue: [ ^ self ]. + + self logMessage: (self lastComments at: index)! Item was added: + ----- Method: MCSaveVersionDialog>>addAsLastComment: (in category 'as yet unclassified') ----- + addAsLastComment: aString + ((self lastComments size > 0) and: [self lastComments first = aString]) + ifTrue: [ ^ self ]. + + self lastComments addFirst: aString. + (self lastComments size > self maxCommentHistory) + ifTrue: [LastComments := LastComments copyFrom: 1 to: self maxCommentHistory]! Item was added: + ----- Method: MCSaveVersionDialog>>lastComments (in category 'as yet unclassified') ----- + lastComments + LastComments ifNil: [ LastComments := OrderedCollection new]. + ^ LastComments! Item was added: + ----- Method: MCWorkingCopyBrowser>>addRequiredDirtyPackage (in category 'actions') ----- + addRequiredDirtyPackage + | dirtyPackages | + dirtyPackages := self workingCopies select: [:copy | copy needsSaving]. + + workingCopy ifNotNilDo: + [:wc | + dirtyPackages do: + [:required | + wc requirePackage: required package]]. + + self workingCopyListChanged! Item was changed: ----- Method: MCWorkingCopyBrowser>>workingCopyListMenu: (in category 'morphic ui') ----- workingCopyListMenu: aMenu workingCopy ifNil: [^ aMenu]. self fillMenu: aMenu fromSpecs: #(('add required package' #addRequiredPackage) + ('add required all dirty packages' #addRequiredDirtyPackage) ('clear required packages' #clearRequiredPackages) ('browse package' #browseWorkingCopy) ('view changes' #viewChanges) ('view history' #viewHistory) ('recompile package' #recompilePackage) ('recompile all packages' #recompileAllPackages) ('memory use for all packages' #viewMemoryUseAll) ('memory use' #viewMemoryUse) ('revert package...' #revertPackage) ('unload package' #unloadPackage) ('delete working copy' #deleteWorkingCopy)). (Smalltalk includesKey: #SARMCPackageDumper) ifTrue: [ aMenu add: 'make SAR' target: self selector: #fileOutAsSAR ]. ^aMenu! Item was added: + ----- Method: MCSaveVersionDialog>>maxCommentHistory (in category 'as yet unclassified') ----- + maxCommentHistory + ^ 15! Item was changed: ----- Method: MCSaveVersionDialog>>accept (in category 'as yet unclassified') ----- accept + self addAsLastComment: (self findTextMorph: #logMessage) text asString. self answer: (Array with: (self findTextMorph: #versionName) text asString with: (self findTextMorph: #logMessage) text asString) ! Item was changed: ----- Method: MCSaveVersionDialog>>buttonSpecs (in category 'as yet unclassified') ----- buttonSpecs ^ #((Accept accept 'accept version name and log message') (Cancel cancel 'cancel saving version') + ('Comments...' comment 'use previous comment') ) ! Item was changed: MCTool subclass: #MCSaveVersionDialog instanceVariableNames: 'name message' + classVariableNames: 'LastComments' - classVariableNames: '' poolDictionaries: '' category: 'Monticello-UI'!

1 0

Monticello Public: Monticello.impl-mtf.580.mcz
by squeak-dev-noreply＠lists.squeakfoundation.org 08 Oct '08

08 Oct '08

A new version of Monticello.impl was added to project Monticello Public: http://www.squeaksource.com/mc/Monticello.impl-mtf.580.mcz ==================== Summary ==================== Name: Monticello.impl-mtf.580 Author: mtf Time: 7 October 2008, 5:07:28 pm UUID: 179768c1-118e-4653-b0c1-a5c288b970c0 Ancestors: Monticello.impl-mtf.579 oops; asPatchSnapshot was defined on the wrong class =============== Diff against Monticello.impl-mtf.579 =============== Item was added: + ----- Method: MCImageBackedSnapshot>>asPatchSnapshot (in category 'as yet unclassified') ----- + asPatchSnapshot + ^ self! Item was removed: - ----- Method: MCImageBackedDefinitionIndex>>asPatchSnapshot (in category 'as yet unclassified') ----- - asPatchSnapshot - ^ self!

1 0

SystemEditor: SystemEditor-mtf.130.mcz
by squeak-dev-noreply＠lists.squeakfoundation.org 08 Oct '08

08 Oct '08

A new version of SystemEditor was added to project SystemEditor: http://www.squeaksource.com/SystemEditor/SystemEditor-mtf.130.mcz ==================== Summary ==================== Name: SystemEditor-mtf.130 Author: mtf Time: 7 October 2008, 3:26:54 pm UUID: 7b0ec72d-cd02-493d-9705-c6d603a91962 Ancestors: SystemEditor-mtf.129 Due to recent refactorings, some things were broken: - Fixed forgetting to install MethodDictionaries on new classes - Fixed ClassOrganization build errors on new class - Finished renaming OrganizationEditor>>build to edBuild =============== Diff against SystemEditor-mtf.129 =============== Item was changed: ----- Method: OrganizationEditorTest>>test07BuildWritesCommentToChangesFile (in category 'tests') ----- test07BuildWritesCommentToChangesFile | remote repository result | repository := SourceRepository newInternal. editor := OrganizationEditor for: (ClassEditor on: self class) repository: repository. editor classComment: 'comment string' stamp: 'cwp 12/11/2005 21:58'. + result := editor edBuild. - result := editor build. remote := result commentRemoteStr. self assertRemoteString: remote inRepository: repository matches: 'comment string'! Item was changed: ----- Method: MetaclassEditor>>edBuild (in category 'building') ----- edBuild | result class | class := self subject ifNil: [Metaclass] ifNotNilDo: [:subject | subject class]. result := class basicNew. "Create a temporary MethodDictionary to catch code written by SyntaxError dialogs. MethodDictionaryEditor will overwrite this. See MethodEditor>>compileFor:" result superclass: self edSuperclass methodDictionary: MethodDictionary new format: self format; + organization: self organization edBuild. - organization: self organization build. result setInstVarNames: self instVarNames. ^ result! Item was changed: ----- Method: CategorizerEditor>>edBuild (in category 'building') ----- edBuild | result processed newCat | result := self productClass defaultList: Array new. result categories: categories. self changedElementsAndCategoriesDo: [:ea :cat | result classify: ea under: cat]. + self subject ifNil: [^ result]. processed := IdentitySet new addAll: result elementArray; addAll: self removedElements; yourself. self subject categories do: [:oldCat | newCat := self newCategoryFor: oldCat. (subject listAtCategoryNamed: oldCat) do: [:ea | (processed includes: ea) ifFalse: [ result classify: ea under: newCat]]]. ^ result! Item was changed: ----- Method: OrganizationEditorTest>>test08NilCommentDoesntWriteToChangesFile (in category 'tests') ----- test08NilCommentDoesntWriteToChangesFile | repository result | repository := SourceRepository newInternal. editor := OrganizationEditor for: (ClassEditor on: self class) repository: repository. editor classComment: nil stamp: nil. + result := editor edBuild. - result := editor build. self assert: result commentRemoteStr isNil. self assert: repository changesStream size = 3! Item was added: + ----- Method: OrganizationEditor>>productClass (in category 'building') ----- + productClass + ^ ClassOrganizer! Item was changed: ----- Method: OrganizationEditorTest>>test06BuildCopiesCategories (in category 'tests') ----- test06BuildCopiesCategories | actual expected | editor := OrganizationEditor for: (ClassEditor on: self class). + actual := editor edBuild. - actual := editor build. expected := self class organization. self deny: actual == expected. self assert: actual printString = expected printString! Item was added: + ----- Method: CategorizerEditor>>productClass (in category 'building') ----- + productClass + ^ Categorizer! Item was changed: ----- Method: OldMetaclassEditor>>edBuild (in category 'building') ----- edBuild | result class | class := self subject ifNil: [Metaclass] ifNotNilDo: [:subject | subject class]. result := class basicNew. "Create a temporary MethodDictionary to catch code written by SyntaxError dialogs. MethodDictionaryEditor will overwrite this. See MethodEditor>>compileFor:" result superclass: self edSuperclass methodDictionary: MethodDictionary new format: self format; + organization: self organization edBuild. - organization: self organization build. result setInstVarNames: self instVarNames. ^ result! 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 edBuild. - organization: self organization build. "Create a temporary MethodDictionary to catch code written by SyntaxError dialogs. MethodDictionaryEditor will overwrite this. See MethodEditor>>compileFor:" 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. + Class methods should be compiled after installing class and pool variables" + product class methodDictionary: (self class methods buildFor: self class). + product methodDictionary: (self methods buildFor: self). - since #compilerClass may be among the class methods" - self class methods buildFor: self class. - self methods buildFor: self. ^product! Item was changed: ----- Method: OrganizationEditorTest>>test09EmptyCommentWrittenToChangesFile (in category 'tests') ----- test09EmptyCommentWrittenToChangesFile | remote repository result | repository := SourceRepository newInternal. editor := OrganizationEditor for: (ClassEditor on: self class) repository: repository. editor classComment: '' stamp: 'cwp 12/11/2005 21:58'. + result := editor edBuild. - result := editor build. remote := result commentRemoteStr. self assertRemoteString: remote inRepository: repository matches: ''!

1 0

SystemEditor: SystemEditor-mtf.129.mcz
by squeak-dev-noreply＠lists.squeakfoundation.org 08 Oct '08

08 Oct '08

A new version of SystemEditor was added to project SystemEditor: http://www.squeaksource.com/SystemEditor/SystemEditor-mtf.129.mcz ==================== Summary ==================== Name: SystemEditor-mtf.129 Author: mtf Time: 7 October 2008, 1:13:09 pm UUID: 070af02c-f2ec-4e4a-86c3-917edfe2d14c Ancestors: SystemEditor-mtf.128 removed a self halt. added SystemEditor>>classNamed: =============== Diff against SystemEditor-mtf.128 =============== Item was added: + ----- Method: SystemEditor>>classNamed: (in category 'reflecting') ----- + classNamed: className + "className is either a class name or a class name followed by ' + class'. Answer the class or metaclass it names" + | meta baseName baseClass | + (className endsWith: ' class') + ifTrue: [meta := true. + baseName := className copyFrom: 1 to: className size - 6] + ifFalse: [meta := false. + baseName := className]. + baseClass := self + at: baseName asSymbol + ifAbsent: [^ nil]. + meta + ifTrue: [^ baseClass class] + ifFalse: [^ baseClass]! Item was changed: ----- Method: MethodDictionaryEditor>>buildFor: (in category 'editing') ----- buildFor: aClassEditor | result old | - self halt. 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

SystemEditor: SystemEditor-mtf.128.mcz
by squeak-dev-noreply＠lists.squeakfoundation.org 08 Oct '08

08 Oct '08

A new version of SystemEditor was added to project SystemEditor: http://www.squeaksource.com/SystemEditor/SystemEditor-mtf.128.mcz ==================== Summary ==================== Name: SystemEditor-mtf.128 Author: mtf Time: 7 October 2008, 10:57:26 am UUID: b70c3977-02d9-418f-9264-c0a314317151 Ancestors: SystemEditor-mtf.127 typo =============== Diff against SystemEditor-mtf.127 =============== 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: 'Committing...']. - showProgress ifTrue: [(1 to: 2) do: [:ea | ] displayingProgress: 'Comitting...']. [migration commit. export commit. self edCommitRemovals. self edRecategorize.] valueUnpreemptively. ^ true!

1 0

← Newer
1
...
5
6
7
8
9
10
11
12
Older →

2024

2023

2022

2021

2020

2019

2018

2017

2016

2015

2014

2013

2012

2011

2010

2009

2008

2007

2006

2005

Packages October 2008