Squeak-dev February 2019

squeak-dev@lists.squeakfoundation.org

37 participants
92 discussions

Falsehoods programmers believe about Smalltalk
by Hernán Morales Durand 14 Feb '19

14 Feb '19

Hi there, I just created a GitHub repo to collect myths around Smalltalk-based technologies: Pharo, Squeak, VW, VAST, Smalltalk/X, GNU/ST, etc. in the spirit of the Falsehoods lists [1-4]. This is just a draft now but please feel free to add falsehoods based on your own experiences. Examples are greatly appreciated. https://github.com/hernanmd/falsehoods_smalltalk Cheers, Hernán [1] https://infiniteundo.com/post/25326999628/falsehoods-programmers-believe-ab… [2] https://chiselapp.com/user/ttmrichter/repository/gng/doc/trunk/output/false… [3] https://github.com/googlei18n/libphonenumber/blob/master/FALSEHOODS.md [4] https://meta-package-manager.readthedocs.io/en/develop/falsehoods.html

6 9

The Trunk: Morphic-tpr.1057.mcz
by commits＠source.squeak.org 13 Feb '19

13 Feb '19

Nicolas Cellier uploaded a new version of Morphic to project The Trunk: http://source.squeak.org/trunk/Morphic-tpr.1057.mcz ==================== Summary ==================== Name: Morphic-tpr.1057 Author: tpr Time: 7 December 2015, 8:24:53.359 pm UUID: c685257b-5ee7-49b3-a6b7-5255f28cd47f Ancestors: Morphic-dtl.1056 Add the STWCPW version of cursor gridding to HandMorph. It may very well be better to add two instance variables rather than use a couple of properties to hold the state. There may well be other methods needing changes. To use: start by sending gridTo: grid origin: origin to the hand any subsequent temporaryCursor... will be forced to screeen co-ordinates that are on grid sized steps with an offset of the origin. gridPointRaw provides the frid limited position of the current hand. Older events are *not* gridded - this is one of the places where there may be more to do. =============== Diff against Morphic-dtl.1056 =============== Item was added: + ----- Method: HandMorph>>gridPointRaw (in category 'gridded cursor') ----- + gridPointRaw + "return my latest position gridded" + ^self griddedPoint: self currentEvent position! Item was added: + ----- Method: HandMorph>>gridTo:origin: (in category 'gridded cursor') ----- + gridTo: grid origin: offset + "set a couple of properties to specify gridding for the temporaryCursor; instvars would be nicer" + self setProperty: #gridStep toValue: grid; + setProperty: #gridOffset toValue: offset! Item was added: + ----- Method: HandMorph>>griddedPoint: (in category 'gridded cursor') ----- + griddedPoint: aPoint + "return the equivalent point snapped to the grid, if indeed any gridding is set" + self valueOfProperty: #gridStep ifPresentDo: [:grid| |offset| + offset := self valueOfProperty: #gridOffset ifAbsent: [0@0]. + ^ offset + (aPoint + (grid //2) - offset truncateTo: grid)]. + ^aPoint! Item was changed: ----- Method: HandMorph>>position: (in category 'geometry') ----- position: aPoint "Overridden to align submorph origins to the grid if gridding is on." | adjustedPosition delta box | adjustedPosition := aPoint. + temporaryCursor ifNotNil: [adjustedPosition := (self griddedPoint: adjustedPosition) + temporaryCursorOffset]. - temporaryCursor ifNotNil: [adjustedPosition := adjustedPosition + temporaryCursorOffset]. "Copied from Morph to avoid owner layoutChanged" "Change the position of this morph and and all of its submorphs." delta := adjustedPosition - bounds topLeft. delta isZero ifTrue: [^ self]. "Null change" box := self fullBounds. (delta dotProduct: delta) > 100 ifTrue:[ "e.g., more than 10 pixels moved" self invalidRect: box. self invalidRect: (box translateBy: delta). ] ifFalse:[ self invalidRect: (box merge: (box translateBy: delta)). ]. self privateFullMoveBy: delta. ! Item was added: + ----- Method: HandMorph>>turnOffGridding (in category 'gridded cursor') ----- + turnOffGridding + "remove the gridding properties to stop gridding" + self removeProperty: #gridStep; removeProperty: #gridOffset!

3 2

The Trunk: Tests-pre.341.mcz
by commits＠source.squeak.org 13 Feb '19

13 Feb '19

Nicolas Cellier uploaded a new version of Tests to project The Trunk: http://source.squeak.org/trunk/Tests-pre.341.mcz ==================== Summary ==================== Name: Tests-pre.341 Author: pre Time: 19 May 2016, 5:34:18.672168 pm UUID: 0209ce70-2b8b-4d53-b743-ed1024d367ea Ancestors: Tests-eem.340 By moving the PBColorPreferenceView from the EToys package to the PreferenceBrowser package, the PB package now depends on etyos through the UpdatingRectangleMorph. If this is intentional we should make the following modification to the PackageDependencyTests. =============== Diff against Tests-eem.340 =============== Item was changed: ----- Method: PackageDependencyTest>>testPreferenceBrowser (in category 'tests') ----- testPreferenceBrowser self testPackage: #PreferenceBrowser dependsExactlyOn: #( #'Chronology-Core' Collections Graphics Kernel Morphic MorphicExtras System Tools + #'ToolBuilder-Morphic' + EToys + Balloon ).!

1 0

The Trunk: Tests-pre.347.mcz
by commits＠source.squeak.org 13 Feb '19

13 Feb '19

Nicolas Cellier uploaded a new version of Tests to project The Trunk: http://source.squeak.org/trunk/Tests-pre.347.mcz ==================== Summary ==================== Name: Tests-pre.347 Author: pre Time: 23 July 2016, 2:20:08.768962 pm UUID: 8272055d-5600-c34b-aac4-9c29a9fda5e5 Ancestors: Tests-pre.346 Adds a Compiler test to the list of expected failures as it can not currently work in an image only using the V3PlusClosures encoder. The test is expected to be executable in an image which uses the V3Encoder. =============== Diff against Tests-pre.346 =============== Item was changed: ----- Method: ClosureCompilerTest>>expectedFailures (in category 'failures') ----- expectedFailures + + ^#(testDebuggerTempAccess testInjectIntoDecompilations testInjectIntoDecompiledDebugs) , + (({CompiledMethod classPool at: #SecondaryBytecodeSetEncoderClass . + CompiledMethod classPool at: #PrimaryBytecodeSetEncoderClass} + includes: EncoderForV3) + ifFalse: [#(testSourceRangeAccessForBlueBookInjectInto)] + ifTrue: [#()]) + ! - ^#(testDebuggerTempAccess testInjectIntoDecompilations testInjectIntoDecompiledDebugs)! Item was changed: ----- Method: ClosureCompilerTest>>testSourceRangeAccessForBlueBookInjectInto (in category 'tests') ----- testSourceRangeAccessForBlueBookInjectInto "Test debugger source range selection for inject:into: for a version compiled with closures" "self new testSourceRangeAccessForBlueBookInjectInto" | source method | + [source := (Collection sourceCodeAt: #inject:into:) asString. - source := (Collection sourceCodeAt: #inject:into:) asString. method := (Parser new encoderClass: EncoderForV3; parse: source class: Collection) generate: (Collection compiledMethodAt: #inject:into:) trailer. + self supportTestSourceRangeAccessForInjectInto: method source: source.] + on: Error + do: [:e | self fail: e.]! - self supportTestSourceRangeAccessForInjectInto: method source: source!

1 0

The Trunk: EToys-tpr.321.mcz
by commits＠source.squeak.org 13 Feb '19

13 Feb '19

Nicolas Cellier uploaded a new version of EToys to project The Trunk: http://source.squeak.org/trunk/EToys-tpr.321.mcz ==================== Summary ==================== Name: EToys-tpr.321 Author: tpr Time: 6 March 2018, 12:47:26.51527 pm UUID: 082ac20c-c54a-4c29-b5a1-af5f91ca4418 Ancestors: EToys-dtl.320 Change CrosticPanel & FileInput to use the new file dialogues instead of the nasty old StandardFileMenu. Submitted to inbox because EToys is not my world and it may be important to others to do sometihng different. =============== Diff against EToys-dtl.320 =============== Item was changed: ----- Method: CrosticPanel>>openFile (in category 'menu') ----- openFile + | fileName crostic file | + + fileName := FileChooserDialog openOn: FileDirectory default suffixList: { 'crostic' } label: 'Select a Crostic file...' translated. + fileName ifNil: [^nil]. + + file := FileStream readOnlyFileNamed: fileName. - | stdFileMenuResult crostic file | - stdFileMenuResult := (StandardFileMenu new pattern: '*.crostic'; - oldFileFrom: FileDirectory default) startUpWithCaption: 'Select a Crostic File...' translated. - stdFileMenuResult - ifNil: [^ nil]. - file := stdFileMenuResult directory readOnlyFileNamed: stdFileMenuResult name. crostic := CrosticPanel newFromFile: file. file close. (self isClean or: [self confirm: 'Is it OK to discard this crostic?' translated]) ifTrue: [self world addMorphFront: (crostic position: self position). self delete] ifFalse: [self world addMorphFront: crostic]! Item was changed: ----- Method: FileInput>>browse (in category 'accessing') ----- browse + | fileName | + fileName := (FileChooserDialog openOn: self directory) ifNil: [^nil]. - | file | - file := (StandardFileMenu oldFileFrom: self directory) ifNil: [^nil]. - file directory isNil ifTrue: [^ nil]. + textMorph setText: fileName; - textMorph setText: (file directory pathName, FileDirectory slash, file name); hasUnacceptedEdits: true; accept!

1 0

The Trunk: Morphic-dhn.723.mcz
by commits＠source.squeak.org 13 Feb '19

13 Feb '19

Nicolas Cellier uploaded a new version of Morphic to project The Trunk: http://source.squeak.org/trunk/Morphic-dhn.723.mcz ==================== Summary ==================== Name: Morphic-dhn.723 Author: dhn Time: 13 November 2014, 3:45:53.764 pm UUID: d65075d4-7a76-2741-9dbd-36fecda5d257 Ancestors: Morphic-dhn.722 Reduce cropping of SystemWindow submorphs by fullScreen =============== Diff against Morphic-cmm.721 =============== Item was changed: ----- Method: SystemWindow>>fullScreen (in category 'menu') ----- fullScreen + "Zoom Window to full owner size, allowing for scroll bars and desk margins" - "Zoom Window to Full World size with possible DeskMargins" - "SystemWindow fullScreen" | left right possibleBounds | left := right := 0. self paneMorphs do: [:pane | ((pane isKindOf: ScrollPane) and: [pane retractableScrollBar]) ifTrue: [pane scrollBarOnLeft ifTrue: [left := left max: pane scrollBarThickness] ifFalse: [right := right max: pane scrollBarThickness]]]. + possibleBounds := (RealEstateAgent maximumUsableAreaInWorld: self owner) - possibleBounds := (RealEstateAgent maximumUsableAreaInWorld: self world) insetBy: (left @ 0 corner: right @ 0). Preferences fullScreenLeavesDeskMargins ifTrue: [possibleBounds := possibleBounds insetBy: 22]. self bounds: possibleBounds!

1 0

The Trunk: Morphic-DS.916.mcz
by commits＠source.squeak.org 13 Feb '19

13 Feb '19

Nicolas Cellier uploaded a new version of Morphic to project The Trunk: http://source.squeak.org/trunk/Morphic-DS.916.mcz ==================== Summary ==================== Name: Morphic-DS.916 Author: DS Time: 22 April 2015, 11:33:53.08 am UUID: e58e8bbb-7a37-954a-87a0-5e71904b55c2 Ancestors: Morphic-cmm.915 Add basic support for borderStyles with non-uniform widths. =============== Diff against Morphic-cmm.915 =============== Item was added: + ----- Method: BorderStyle>>inset (in category 'accessing') ----- + inset + "Possible inset when honoring this border style. The default implementation uses #width to return a uniform inset." + ^ self width! Item was changed: ----- Method: Canvas>>fillRectangle:fillStyle:borderStyle: (in category 'drawing-rectangles') ----- fillRectangle: aRectangle fillStyle: aFillStyle borderStyle: aBorderStyle "Fill the given rectangle." aFillStyle isTransparent ifFalse:[ + self fillRectangle: (aRectangle insetBy: aBorderStyle inset) fillStyle: aFillStyle]. - self fillRectangle: (aRectangle insetBy: aBorderStyle width) fillStyle: aFillStyle]. aBorderStyle ifNil:[^self]. aBorderStyle width <= 0 ifTrue:[^self]. + aBorderStyle frameRectangle: aRectangle on: self.! - aBorderStyle frameRectangle: aRectangle on: self - ! Item was changed: ----- Method: Morph>>innerBounds (in category 'geometry') ----- innerBounds "Return the inner rectangle enclosed by the bounds of this morph excluding the space taken by its borders. For an unbordered morph, this is just its bounds." + ^ self bounds insetBy: self borderStyle inset! - ^ self bounds insetBy: self borderWidth!

1 0

The Trunk: Morphic-jl.1291.mcz
by commits＠source.squeak.org 13 Feb '19

13 Feb '19

Nicolas Cellier uploaded a new version of Morphic to project The Trunk: http://source.squeak.org/trunk/Morphic-jl.1291.mcz ==================== Summary ==================== Name: Morphic-jl.1291 Author: jl Time: 30 August 2016, 5:37:57.236984 pm UUID: b52cd418-d4de-3142-b2e1-2a53f002f6fc Ancestors: Morphic-jl.1290 better performance when making lots of cloned players =============== Diff against Morphic-jl.1290 =============== Item was changed: ----- Method: Morph>>usableSiblingInstance (in category 'copying') ----- usableSiblingInstance "Return another similar morph whose Player is of the same class as mine. Do not open it in the world." + | aName newPlayer newMorph topRenderer counter world | - | aName usedNames newPlayer newMorph topRenderer | (topRenderer := self topRendererOrSelf) == self ifFalse: [^topRenderer usableSiblingInstance]. self assuredPlayer assureUniClass. newMorph := self veryDeepCopySibling. newPlayer := newMorph player. newPlayer resetCostumeList. (aName := self knownName) isNil ifTrue: [self player notNil ifTrue: [aName := newMorph innocuousName]]. "Force a difference here" + + aName := aName stemAndNumericSuffix at: 1. + + world := self world ifNil: [Project current world]. + (world hasProperty: #nameCounter) ifFalse: [ + (world setProperty: #nameCounter toValue: Dictionary new) + ]. + + counter := (world valueOfProperty: #nameCounter) at: aName ifAbsent: [1]. + newMorph setNameTo: aName, counter. + (world valueOfProperty: #nameCounter) at: aName put: counter + 1. + - aName notNil - ifTrue: - [usedNames := (self world ifNil: [OrderedCollection new] - ifNotNil: [self world allKnownNames]) copyWith: aName. - newMorph setNameTo: (Utilities keyLike: aName - satisfying: [:f | (usedNames includes: f) not])]. newMorph privateOwner: nil. newPlayer assureEventHandlerRepresentsStatus. self presenter flushPlayerListCache. ^newMorph!

1 0

The Trunk: Monticello-cmm.601.mcz
by commits＠source.squeak.org 13 Feb '19

13 Feb '19

Nicolas Cellier uploaded a new version of Monticello to project The Trunk: http://source.squeak.org/trunk/Monticello-cmm.601.mcz ==================== Summary ==================== Name: Monticello-cmm.601 Author: cmm Time: 2 October 2014, 4:34:01.44 pm UUID: 9031e0e5-b991-46fd-a8f0-20ead172757b Ancestors: Monticello-topa.600 Recover quick keyboard access to the classic "install" and "revert" functions on the changed definitions list. Otherwise the new "Ignore (I)" function is selected whether "r" or "i" was pressed on the keyboard. That function has a hot-key anyway, so move it below the the standard Monticello functions. =============== Diff against Monticello-topa.600 =============== Item was changed: ----- Method: MCSaveVersionDialog>>methodListMenu: (in category 'as yet unclassified') ----- methodListMenu: aMenu - aMenu addList:#( - ('ignore (I)' ignoreSelection 'Do not include this change when saving') - -). super methodListMenu: aMenu. + aMenu addList:#(- + ('ignore (I)' ignoreSelection 'Toggle inclusion of this change when saving')). ^aMenu!

1 0

The Trunk: Monticello-tfel.608.mcz
by commits＠source.squeak.org 13 Feb '19

13 Feb '19

Nicolas Cellier uploaded a new version of Monticello to project The Trunk: http://source.squeak.org/trunk/Monticello-tfel.608.mcz ==================== Summary ==================== Name: Monticello-tfel.608 Author: tfel Time: 31 March 2015, 6:19:34.129 pm UUID: 62e1b3e7-bfeb-ca4d-97e6-118c603be2d8 Ancestors: Monticello-bf.607 add a menu item to browse patch against another version in the repository =============== Diff against Monticello-bf.607 =============== Item was changed: ----- Method: ChangeList>>changeTo: (in category '*monticello') ----- changeTo: changeSubset | newList newChangeList | newChangeList := OrderedCollection new. newList := OrderedCollection new. 1 to: changeList size do: [:i | (changeSubset includes: (changeList at: i)) ifTrue: [newChangeList add: (changeList at: i). newList add: (list at: i)]]. newChangeList size < changeList size ifTrue: [changeList := newChangeList. list := newList. listIndex := 0. listSelections := Array new: list size withAll: false]. self changed: #list ! Item was changed: ----- Method: CrLfFileStream>>lineEndingConvention: (in category '*monticello') ----- lineEndingConvention: aSymbol lineEndConvention := aSymbol! Item was changed: ----- Method: MCAddition>>intializeWithDefinition: (in category 'initializing') ----- intializeWithDefinition: aDefinition definition := aDefinition! Item was changed: ----- Method: MCAncestry>>commonAncestorWith: (in category 'ancestry') ----- commonAncestorWith: aNode | commonAncestors | commonAncestors := self commonAncestorsWith: aNode. ^ commonAncestors at: 1 ifAbsent: [nil]! Item was changed: ----- Method: MCAncestry>>commonAncestorsWith: (in category 'ancestry') ----- commonAncestorsWith: aVersionInfo | sharedAncestors mergedOrder sorter | sorter := MCVersionSorter new addVersionInfo: self; addVersionInfo: aVersionInfo. mergedOrder := sorter sortedVersionInfos. sharedAncestors := (sorter allAncestorsOf: self) intersection: (sorter allAncestorsOf: aVersionInfo). ^ mergedOrder select: [:ea | sharedAncestors includes: ea]! Item was changed: ----- Method: MCAncestry>>initialize (in category 'initialize-release') ----- initialize ancestors := #(). stepChildren := #()! Item was changed: ----- Method: MCCacheRepository>>cacheForPackage: (in category 'as yet unclassified') ----- cacheForPackage: aPackage packageCaches ifNil: [packageCaches := Dictionary new]. ^ packageCaches at: aPackage ifAbsentPut: [MCPackageCache new]! Item was changed: ----- Method: MCCacheRepository>>seenFileNames (in category 'as yet unclassified') ----- seenFileNames ^ seenFiles ifNil: [seenFiles := OrderedCollection new]! Item was changed: ----- Method: MCChangeSelectionRequest>>label: (in category 'accessing') ----- label: aString label := aString! Item was changed: ----- Method: MCChangeSelectionRequest>>patch: (in category 'accessing') ----- patch: aPatch patch := aPatch! Item was changed: ----- Method: MCChangeSelector>>kept (in category 'as yet unclassified') ----- kept ^ kept ifNil: [kept := Set new]! Item was changed: ----- Method: MCChangeSelector>>listSelectionAt:put: (in category 'as yet unclassified') ----- listSelectionAt: aNumber put: aBoolean | item | item := self items at: aNumber. aBoolean ifTrue: [self kept add: item ] ifFalse: [self kept remove: item ifAbsent: []]! Item was changed: ----- Method: MCChangeSelector>>selectNone (in category 'as yet unclassified') ----- selectNone kept := Set new. self changed: #list! Item was changed: ----- Method: MCCodeTool>>browseVersions (in category 'menus') ----- browseVersions "Create and schedule a message set browser on all versions of the currently selected message selector." | class selector compiledMethod | class := self selectedClassOrMetaClass. selector := self selectedMessageName. compiledMethod := class compiledMethodAt: selector ifAbsent: [ ^self ]. VersionsBrowser browseVersionsOf: compiledMethod class: class theNonMetaClass meta: class isMeta category: self selectedMessageCategoryName selector: selector! Item was changed: ----- Method: MCCodeTool>>copySelector (in category 'menus') ----- copySelector "Copy the selected selector to the clipboard" | selector | (selector := self selectedMessageName) ifNotNil: [Clipboard clipboardText: selector asString]! Item was changed: ----- Method: MCCodeTool>>findMethodInChangeSets (in category 'menus') ----- findMethodInChangeSets "Find and open a changeSet containing the current method." | aName | (aName := self selectedMessageName) ifNotNil: [ ChangeSorter browseChangeSetsWithClass: self selectedClassOrMetaClass selector: aName]! Item was changed: ----- Method: MCConflict>>chooseLocal (in category 'as yet unclassified') ----- chooseLocal chooseRemote := false! Item was changed: ----- Method: MCConflict>>chooseRemote (in category 'as yet unclassified') ----- chooseRemote chooseRemote := true! Item was changed: ----- Method: MCConflict>>clearChoice (in category 'as yet unclassified') ----- clearChoice chooseRemote := nil! Item was changed: ----- Method: MCConflict>>operation: (in category 'as yet unclassified') ----- operation: anOperation operation := anOperation! Item was changed: ----- Method: MCConflict>>summary (in category 'as yet unclassified') ----- summary | attribute | attribute := self isResolved ifTrue: [self remoteChosen ifTrue: [#underlined] ifFalse: [#struckOut]] ifFalse: [#bold]. ^ Text string: operation summary attribute: (TextEmphasis perform: attribute)! Item was changed: ----- Method: MCDefinitionIndex>>definitionLike:ifPresent:ifAbsent: (in category 'as yet unclassified') ----- definitionLike: aDefinition ifPresent: foundBlock ifAbsent: errorBlock | definition | definition := definitions at: aDefinition description ifAbsent: []. ^ definition ifNil: errorBlock ifNotNil: [foundBlock value: definition]! Item was changed: ----- Method: MCDefinitionIndex>>initialize (in category 'as yet unclassified') ----- initialize definitions := Dictionary new! Item was changed: ----- Method: MCDependencySorter class>>sortItems: (in category 'as yet unclassified') ----- sortItems: aCollection | sorter | sorter := self items: aCollection. sorter externalRequirements do: [:req | sorter addProvision: req]. ^ sorter orderedItems.! Item was changed: ----- Method: MCDependencySorter>>addProvision: (in category 'private') ----- addProvision: anObject | newlySatisfied | provided add: anObject. newlySatisfied := required removeKey: anObject ifAbsent: [#()]. self addAll: newlySatisfied.! Item was changed: ----- Method: MCDependencySorter>>initialize (in category 'initialize-release') ----- initialize provided := Set new. required := Dictionary new. orderedItems := OrderedCollection new.! Item was changed: ----- Method: MCDependencySorter>>itemsWithMissingRequirements (in category 'accessing') ----- itemsWithMissingRequirements | items | items := Set new. required do: [:ea | items addAll: ea]. ^ items ! Item was changed: ----- Method: MCDictionaryRepository>>description: (in category 'as yet unclassified') ----- description: aString description := aString ! Item was changed: ----- Method: MCDictionaryRepository>>dictionary: (in category 'as yet unclassified') ----- dictionary: aDictionary dict := aDictionary! Item was changed: ----- Method: MCDictionaryRepository>>initialize (in category 'as yet unclassified') ----- initialize dict := Dictionary new. ! Item was changed: ----- Method: MCDictionaryRepository>>sortedVersionInfos (in category 'as yet unclassified') ----- sortedVersionInfos | sorter | sorter := MCVersionSorter new. self allVersionInfos do: [:ea | sorter addVersionInfo: ea]. ^ sorter sortedVersionInfos ! Item was changed: ----- Method: MCDiffyVersion>>initializeWithPackage:info:dependencies:baseInfo:patch: (in category 'as yet unclassified') ----- initializeWithPackage: aPackage info: aVersionInfo dependencies: aCollection baseInfo: baseVersionInfo patch: aPatch patch := aPatch. base := baseVersionInfo. super initializeWithPackage: aPackage info: aVersionInfo snapshot: nil dependencies: aCollection. ! Item was changed: ----- Method: MCDiffyVersion>>snapshot (in category 'as yet unclassified') ----- snapshot ^ snapshot ifNil: [snapshot := MCPatcher apply: patch to: self baseSnapshot]! Item was changed: ----- Method: MCDirectoryRepository>>directory: (in category 'accessing') ----- directory: aDirectory directory := aDirectory! Item was changed: ----- Method: MCDirectoryRepository>>initialize (in category 'accessing') ----- initialize directory := FileDirectory default! Item was changed: ----- Method: MCDirectoryRepository>>readStreamForFileNamed:do: (in category 'accessing') ----- readStreamForFileNamed: aString do: aBlock | file val | file := FileStream readOnlyFileNamed: (directory fullNameFor: aString). val := aBlock value: file. file close. ^ val! Item was changed: ----- Method: MCDirectoryRepository>>writeStreamForFileNamed:replace:do: (in category 'accessing') ----- writeStreamForFileNamed: aString replace: aBoolean do: aBlock | file sel | sel := aBoolean ifTrue: [#forceNewFileNamed:] ifFalse: [#newFileNamed:]. file := FileStream perform: sel with: (directory fullNameFor: aString). aBlock value: file. file close.! Item was changed: ----- Method: MCDoItParser>>source: (in category 'as yet unclassified') ----- source: aString source := aString! Item was changed: ----- Method: MCFileBasedRepository>>canReadFileNamed: (in category 'private-files') ----- canReadFileNamed: aString | reader | reader := MCVersionReader readerClassForFileNamed: aString. ^ reader notNil! Item was changed: ----- Method: MCFilteredVersionSorter>>target: (in category 'as yet unclassified') ----- target: aVersionInfo target := aVersionInfo! Item was changed: ----- Method: MCFtpRepository>>clientDo: (in category 'as yet unclassified') ----- clientDo: aBlock | client | client := FTPClient openOnHostNamed: host. client loginUser: user password: password. directory isEmpty ifFalse: [client changeDirectoryTo: directory]. ^ [aBlock value: client] ensure: [client close]! Item was changed: ----- Method: MCFtpRepository>>directory: (in category 'as yet unclassified') ----- directory: dirPath directory := dirPath! Item was changed: ----- Method: MCFtpRepository>>host: (in category 'as yet unclassified') ----- host: hostname host := hostname! Item was changed: ----- Method: MCFtpRepository>>password: (in category 'as yet unclassified') ----- password: passwordString password := passwordString! Item was changed: ----- Method: MCFtpRepository>>user: (in category 'as yet unclassified') ----- user: userString user := userString! Item was changed: ----- Method: MCFtpRepository>>writeStreamForFileNamed:replace:do: (in category 'required') ----- writeStreamForFileNamed: aString replace: ignoreBoolean do: aBlock | stream | stream := RWBinaryOrTextStream on: String new. aBlock value: stream. self clientDo: [:client | client binary. client putFileStreamContents: stream reset as: aString]! Item was changed: ----- Method: MCGOODSRepository>>host: (in category 'as yet unclassified') ----- host: aString hostname := aString! Item was changed: ----- Method: MCGOODSRepository>>port: (in category 'as yet unclassified') ----- port: aNumber port := aNumber! Item was changed: ----- Method: MCHttpRepository>>location: (in category 'accessing') ----- location: aUrlString location := aUrlString! Item was changed: ----- Method: MCHttpRepository>>password: (in category 'accessing') ----- password: passwordString password := passwordString! Item was changed: ----- Method: MCHttpRepository>>user: (in category 'accessing') ----- user: userString user := userString! Item was changed: ----- Method: MCMcdReader>>loadBaseInfo (in category 'as yet unclassified') ----- loadBaseInfo ^ baseInfo := self extractInfoFrom: (self parseMember: 'base')! Item was changed: ----- Method: MCMczReader>>infoCache (in category 'as yet unclassified') ----- infoCache ^ infoCache ifNil: [infoCache := Dictionary new]! Item was changed: ----- Method: MCMczReader>>loadDependencies (in category 'loading') ----- loadDependencies dependencies := (self zip membersMatching: 'dependencies/*') collect: [:m | self extractDependencyFrom: m]. dependencies := dependencies asArray. ! Item was changed: ----- Method: MCMczReader>>loadPackage (in category 'loading') ----- loadPackage | dict | dict := self parseMember: 'package'. package := MCPackage named: (dict at: #name)! Item was changed: ----- Method: MCMczReader>>loadVersionInfo (in category 'loading') ----- loadVersionInfo info := self extractInfoFrom: (self parseMember: 'version')! Item was changed: ----- Method: MCMczReader>>zip (in category 'as yet unclassified') ----- zip zip ifNil: [zip := ZipArchive new. zip readFrom: stream]. ^ zip! Item was changed: ----- Method: MCMczWriter class>>fileOut:on: (in category 'as yet unclassified') ----- fileOut: aVersion on: aStream | inst | inst := self on: aStream. inst writeVersion: aVersion. inst flush. ! Item was changed: ----- Method: MCMczWriter>>addString:at: (in category 'writing') ----- addString: string at: path | member | member := zip addString: string as: path. member desiredCompressionMethod: ZipArchive compressionDeflated ! Item was changed: ----- Method: MCMczWriter>>initialize (in category 'initializing') ----- initialize zip := ZipArchive new. ! Item was changed: ----- Method: MCMczWriter>>serializeInBinary: (in category 'serializing') ----- serializeInBinary: aSnapshot | writer s | s := RWBinaryOrTextStream on: String new. writer := DataStream on: s. writer nextPut: aSnapshot. ^ s contents! Item was changed: ----- Method: MCMczWriter>>serializeVersionInfo: (in category 'serializing') ----- serializeVersionInfo: aVersionInfo infoWriter ifNil: [infoWriter := MCVersionInfoWriter new]. ^ String streamContents: [:s | infoWriter stream: s. infoWriter writeVersionInfo: aVersionInfo]! Item was changed: ----- Method: MCMergeBrowser class>>resolveConflictsInMerger: (in category 'as yet unclassified') ----- resolveConflictsInMerger: aMerger | inst | inst := self new merger: aMerger. ^ inst showModally ifNil: [false]! Item was changed: ----- Method: MCMergeRecord>>ancestorInfo (in category 'as yet unclassified') ----- ancestorInfo ^ ancestorInfo ifNil: [ancestorInfo := version info commonAncestorWith: version workingCopy ancestry]! Item was changed: ----- Method: MCMergeRecord>>ancestorSnapshot (in category 'as yet unclassified') ----- ancestorSnapshot ^ ancestorSnapshot ifNil: [ancestorSnapshot := version workingCopy findSnapshotWithVersionInfo: self ancestorInfo]! Item was changed: ----- Method: MCMergeRecord>>imagePatch (in category 'as yet unclassified') ----- imagePatch ^ imagePatch ifNil: [imagePatch := self packageSnapshot patchRelativeToBase: self ancestorSnapshot]! Item was changed: ----- Method: MCMergeRecord>>initializeWithVersion: (in category 'as yet unclassified') ----- initializeWithVersion: aVersion version := aVersion! Item was changed: ----- Method: MCMergeRecord>>mergePatch (in category 'as yet unclassified') ----- mergePatch ^ mergePatch ifNil: [mergePatch := version snapshot patchRelativeToBase: self ancestorSnapshot]! Item was changed: ----- Method: MCMergeRecord>>packageSnapshot (in category 'as yet unclassified') ----- packageSnapshot ^ packageSnapshot ifNil: [packageSnapshot := version package snapshot]! Item was changed: ----- Method: MCMergeResolutionRequest>>merger: (in category 'accessing') ----- merger: aMerger merger := aMerger! Item was changed: ----- Method: MCMerger>>conflicts (in category 'as yet unclassified') ----- conflicts ^ conflicts ifNil: [conflicts := OrderedCollection new]! Item was changed: ----- Method: MCMerger>>load (in category 'as yet unclassified') ----- load | loader | loader := MCPackageLoader new. loader provisions addAll: self provisions. self applyTo: loader. loader load! Item was changed: ----- Method: MCModification>>initializeWithBase:target: (in category 'initializing') ----- initializeWithBase: base target: target obsoletion := base. modification := target.! Item was changed: ----- Method: MCOrganizationDefinition>>categories: (in category 'accessing') ----- categories: anArray categories := anArray! Item was changed: ----- Method: MCOrganizationDefinition>>commonPrefix (in category 'accessing') ----- commonPrefix | stream | categories isEmpty ifTrue: [^ '']. stream := String new writeStream. categories first withIndexDo: [:c :i| categories do: [:ea | (ea at: i ifAbsent: []) = c ifFalse: [^ stream contents]]. stream nextPut: c]. ^ stream contents! Item was changed: ----- Method: MCPackage>>name: (in category 'accessing') ----- name: aString name := aString! Item was changed: ----- Method: MCPackageCache>>initialize (in category 'as yet unclassified') ----- initialize sorter := MCVersionSorter new. fileNames := Dictionary new.! Item was changed: ----- Method: MCPackageLoader>>analyze (in category 'private') ----- analyze | sorter | sorter := self sorterForItems: additions. additions := sorter orderedItems. requirements := sorter externalRequirements. unloadableDefinitions := sorter itemsWithMissingRequirements asSortedCollection. sorter := self sorterForItems: removals. removals := sorter orderedItems reversed.! Item was changed: ----- Method: MCPackageLoader>>installSnapshot: (in category 'public') ----- installSnapshot: aSnapshot | patch | patch := aSnapshot patchRelativeToBase: MCSnapshot empty. patch applyTo: self. ! Item was changed: ----- Method: MCPackageLoader>>sorterForItems: (in category 'private') ----- sorterForItems: aCollection | sorter | sorter := MCDependencySorter items: aCollection. sorter addExternalProvisions: self provisions. ^ sorter! Item was changed: ----- Method: MCPackageLoader>>updatePackage:withSnapshot: (in category 'public') ----- updatePackage: aPackage withSnapshot: aSnapshot | patch packageSnap | packageSnap := aPackage snapshot. patch := aSnapshot patchRelativeToBase: packageSnap. patch applyTo: self. packageSnap definitions do: [:ea | self provisions addAll: ea provisions] ! Item was changed: ----- Method: MCPackageManager class>>forPackage: (in category 'as yet unclassified') ----- forPackage: aPackage ^ self registry at: aPackage ifAbsent: [|mgr| mgr := self new initializeWithPackage: aPackage. self registry at: aPackage put: mgr. self changed: #allManagers. mgr]! Item was changed: ----- Method: MCPackageManager class>>registry (in category 'as yet unclassified') ----- registry ^ registry ifNil: [registry := Dictionary new]! Item was changed: ----- Method: MCPackageManager>>initialize (in category 'initialize-release') ----- initialize modified := false. self registerForNotifications.! Item was changed: ----- Method: MCPackageManager>>initializeWithPackage: (in category 'initialize-release') ----- initializeWithPackage: aPackage package := aPackage. self initialize.! Item was changed: ----- Method: MCPatch>>initializeWithBase:target: (in category 'initialize-release') ----- initializeWithBase: baseSnapshot target: targetSnapshot | base target | operations := OrderedCollection new. base := MCDefinitionIndex definitions: baseSnapshot definitions. target := MCDefinitionIndex definitions: targetSnapshot definitions. target definitions do: [:t | base definitionLike: t ifPresent: [:b | (b isSameRevisionAs: t) ifFalse: [operations add: (MCModification of: b to: t)]] ifAbsent: [operations add: (MCAddition of: t)]] displayingProgress: 'Diffing...'. base definitions do: [:b | target definitionLike: b ifPresent: [:t] ifAbsent: [operations add: (MCRemoval of: b)]] ! Item was changed: ----- Method: MCPatchBrowser>>patch: (in category 'initialize-release') ----- patch: aPatch items := aPatch operations asSortedCollection! Item was changed: ----- Method: MCPatcher class>>apply:to: (in category 'as yet unclassified') ----- apply: aPatch to: aSnapshot | loader | loader := self snapshot: aSnapshot. aPatch applyTo: loader. ^ loader patchedSnapshot! Item was changed: ----- Method: MCPatcher>>initializeWithSnapshot: (in category 'as yet unclassified') ----- initializeWithSnapshot: aSnapshot definitions := MCDefinitionIndex definitions: aSnapshot definitions! Item was changed: ----- Method: MCReader class>>on:name: (in category 'instance creation') ----- on: aStream name: aFileName | class | class := self readerClassForFileNamed: aFileName. ^ class ifNil: [self error: 'Unsupported format: ', aFileName] ifNotNil: [class on: aStream]! Item was changed: ----- Method: MCReader>>stream: (in category 'accessing') ----- stream: aStream stream := aStream! Item was changed: ----- Method: MCRemoval>>intializeWithDefinition: (in category 'initializing') ----- intializeWithDefinition: aDefinition definition := aDefinition! Item was changed: ----- Method: MCRepository>>doAlwaysStoreDiffs (in category 'accessing') ----- doAlwaysStoreDiffs storeDiffs := true! Item was changed: ----- Method: MCRepository>>doNotAlwaysStoreDiffs (in category 'accessing') ----- doNotAlwaysStoreDiffs storeDiffs := false! Item was changed: ----- Method: MCRepository>>sendNotificationsForVersion: (in category 'accessing') ----- sendNotificationsForVersion: aVersion | notification notifyList | notifyList := self notifyList. notifyList isEmpty ifFalse: [notification := self notificationForVersion: aVersion. notifyList do: [:ea | notification notify: ea]]! Item was changed: ----- Method: MCRepositoryGroup class>>default (in category 'accessing') ----- default ^ default ifNil: [default := self new]! Item was changed: ----- Method: MCRepositoryInspector class>>repository:workingCopy: (in category 'instance creation') ----- repository: aFileBasedRepository workingCopy: aWorkingCopy ^self new setRepository: aFileBasedRepository workingCopy: aWorkingCopy; yourself! Item was changed: ----- Method: MCRepositoryInspector>>defaultExtent (in category 'morphic ui') ----- defaultExtent ^450@300! Item was changed: ----- Method: MCRepositoryInspector>>defaultLabel (in category 'morphic ui') ----- defaultLabel ^'Repository: ' , repository description! Item was changed: ----- Method: MCRepositoryInspector>>hasVersion (in category 'morphic ui') ----- hasVersion ^ selectedVersion notNil! Item was changed: ----- Method: MCRepositoryInspector>>packageListMenu: (in category 'morphic ui') ----- packageListMenu: aMenu ^aMenu! Item was changed: ----- Method: MCRepositoryInspector>>versionListMenu: (in category 'morphic ui') ----- versionListMenu: aMenu 1 to: self orderSpecs size do: [ :index | aMenu addUpdating: #orderString: target: self selector: #order: argumentList: { index } ]. + aMenu addLine. + aMenu add: 'Changes against ...' action: [| ri | + ri := aMenu defaultTarget. + (UIManager default + chooseFrom: ri allVersionNames + values: ri allVersionNames + title: 'Select version to show patch against ...') ifNotNilDo: [:name | + | versionName target base | + versionName := MCVersionName on: name. + target := ri repository versionNamed: ri versionInfo name. + base := aMenu defaultTarget repository versionNamed: versionName. + (MCPatchBrowser + forPatch: (target snapshot patchRelativeToBase: base snapshot)) + showLabelled: 'Changes from ', versionName, ' to ', ri versionInfo name]]. ^aMenu! Item was changed: ----- Method: MCRepositoryInspector>>widgetSpecs (in category 'morphic ui') ----- widgetSpecs ^#( ((buttonRow) (0 0 1 0) (0 0 0 30)) ((listMorph: package) (0 0 0.5 0.6) (0 30 0 0)) ((listMorph: version) (0.5 0 1 0.6) (0 30 0 0)) ((textMorph: summary) (0 0.6 1 1) (0 0 0 0)) )! Item was changed: ----- Method: MCSMCacheRepository>>allFullFileNames (in category 'accessing') ----- allFullFileNames | cachedPackages | cachedPackages := smCache map installedPackages select: [ :ea | ea isCached ]. ^Array streamContents: [ :s | cachedPackages do: [ :ea | | d | d := ea cacheDirectory. (d fileNamesMatching: '*.mcz') do: [ :fn | s nextPut: (d fullNameFor: fn) ]]]! Item was changed: ----- Method: MCSMCacheRepository>>readStreamForFileNamed:do: (in category 'file streaming') ----- readStreamForFileNamed: aString do: aBlock | file fileName | fileName := self fullNameFor: aString. fileName ifNil: [ "assume that this will come from the cache." ^MCCacheRepository default readStreamForFileNamed: aString do: aBlock ]. file := FileStream readOnlyFileNamed: fileName. ^[ aBlock value: file ] ensure: [ file close ]. ! Item was changed: ----- Method: MCSMReleaseRepository>>basicStoreVersion: (in category 'as yet unclassified') ----- basicStoreVersion: aVersion | url | url := self uploadVersion: aVersion. self releaseVersion: aVersion url: url! Item was changed: ----- Method: MCSMReleaseRepository>>initializeWithPackage:user:password: (in category 'as yet unclassified') ----- initializeWithPackage: packageString user: userString password: passString packageName := packageString. user := userString. password := passString. ! Item was changed: ----- Method: MCSMReleaseRepository>>stringForVersion: (in category 'as yet unclassified') ----- stringForVersion: aVersion | stream | stream := RWBinaryOrTextStream on: String new. aVersion fileOutOn: stream. ^ stream contents! Item was changed: ----- Method: MCSMReleaseRepository>>uploadVersion: (in category 'as yet unclassified') ----- uploadVersion: aVersion | result stream | result := HTTPSocket httpPut: (self stringForVersion: aVersion) to: self squeakMapUrl, '/upload/', aVersion fileName user: user passwd: password. self checkResult: result. stream := result readStream. stream upToAll: 'http://'. ^ 'http://', stream upToEnd! Item was changed: ----- Method: MCSaveVersionDialog>>logMessage: (in category 'accessing') ----- logMessage: aString message := aString. self changed: #logMessage! Item was changed: ----- Method: MCSaveVersionDialog>>versionName: (in category 'accessing') ----- versionName: aString name := aString. self changed: #versionName! Item was changed: ----- Method: MCScanner>>next (in category 'as yet unclassified') ----- next | c | stream skipSeparators. c := stream peek. c = $# ifTrue: [c := stream next; peek]. c = $' ifTrue: [^ self nextString]. c = $( ifTrue: [^ self nextArray]. c isAlphaNumeric ifTrue: [^ self nextSymbol]. self error: 'Unknown token type'. ! Item was changed: ----- Method: MCScanner>>stream: (in category 'as yet unclassified') ----- stream: aStream stream := aStream! Item was changed: ----- Method: MCSmtpRepository>>emailAddress: (in category 'as yet unclassified') ----- emailAddress: aString email := aString ! Item was changed: ----- Method: MCSnapshot>>initializeWithDefinitions: (in category 'initializing') ----- initializeWithDefinitions: aCollection definitions := aCollection.! Item was changed: ----- Method: MCSnapshotBrowser>>categorySelection: (in category 'selecting') ----- categorySelection: aNumber categorySelection := aNumber = 0 ifFalse: [self visibleCategories at: aNumber]. self classSelection: 0. self changed: #categorySelection; changed: #annotations; changed: #classList. ! Item was changed: ----- Method: MCSnapshotBrowser>>classDefinitionString (in category 'text') ----- classDefinitionString | defs | defs := items select: [:ea | (ea isClassDefinition or: [ea isClassDefinitionExtension]) and: [ea className = classSelection]]. defs isEmpty ifTrue: [^ 'This class is defined elsewhere.']. ^ String streamContents: [:stream | defs asArray sort do: [:ea | ea printDefinitionOn: stream] separatedBy: [stream nextPut: $.; cr] ].! Item was changed: ----- Method: MCSnapshotBrowser>>methodSelection: (in category 'selecting') ----- methodSelection: aNumber methodSelection := aNumber = 0 ifFalse: [self visibleMethods at: aNumber]. self changed: #methodSelection; changed: #text; changed: #annotations! Item was changed: ----- Method: MCSnapshotBrowser>>methodsForSelectedProtocol (in category 'accessing') ----- methodsForSelectedProtocol | methods | protocolSelection ifNil: [^ Array new]. methods := self methodsForSelectedClass asOrderedCollection. (protocolSelection = '-- all --') ifFalse: [methods removeAllSuchThat: [:ea | ea category ~= protocolSelection]]. ^ methods ! Item was changed: ----- Method: MCSnapshotBrowser>>protocolSelection: (in category 'selecting') ----- protocolSelection: anInteger protocolSelection := (anInteger = 0 ifFalse: [self visibleProtocols at: anInteger]). self methodSelection: 0. self changed: #protocolSelection; changed: #methodList; changed: #annotations! Item was changed: ----- Method: MCSnapshotBrowser>>selectedClassOrMetaClass (in category 'accessing') ----- selectedClassOrMetaClass | class | classSelection ifNil: [ ^nil ]. class := Smalltalk at: classSelection ifAbsent: [ ^nil ]. ^self switchIsClass ifTrue: [ class class ] ifFalse: [ class ].! Item was changed: ----- Method: MCSnapshotBrowser>>snapshot: (in category 'accessing') ----- snapshot: aSnapshot items := aSnapshot definitions asSortedCollection. self categorySelection: 0.! Item was changed: ----- Method: MCSnapshotBrowser>>switchBeClass (in category 'switch') ----- switchBeClass switch := #class. self signalSwitchChanged.! Item was changed: ----- Method: MCSnapshotBrowser>>switchBeComment (in category 'switch') ----- switchBeComment switch := #comment. self signalSwitchChanged.! Item was changed: ----- Method: MCSnapshotBrowser>>switchBeInstance (in category 'switch') ----- switchBeInstance switch := #instance. self signalSwitchChanged.! Item was changed: ----- Method: MCSnapshotBrowser>>switchIsInstance (in category 'switch') ----- switchIsInstance switch ifNil: [switch := #instance]. ^ switch = #instance.! Item was changed: ----- Method: MCSnapshotBrowser>>visibleProtocols (in category 'listing') ----- visibleProtocols | methods protocols | self switchIsComment ifTrue: [^ Array new]. methods := self methodsForSelectedClass. protocols := (methods collect: [:ea | ea category]) asSet asSortedCollection. (protocols size > 1) ifTrue: [protocols add: '-- all --']. ^ protocols ! Item was changed: ----- Method: MCStReader>>categoryFromDoIt: (in category 'as yet unclassified') ----- categoryFromDoIt: aString | tokens | tokens := Scanner new scanTokens: aString. tokens size = 3 ifFalse: [self error: 'Unrecognized category definition']. ^ tokens at: 3! Item was changed: ----- Method: MCStReader>>commentFor: (in category 'as yet unclassified') ----- commentFor: aPseudoClass | comment | comment := aPseudoClass organization classComment. ^ comment asString = '' ifTrue: [comment] ifFalse: [comment string]! Item was changed: ----- Method: MCStReader>>commentStampFor: (in category 'as yet unclassified') ----- commentStampFor: aPseudoClass | comment | comment := aPseudoClass organization classComment. ^ [comment stamp] on: MessageNotUnderstood do: [nil]! Item was changed: ----- Method: MCStReader>>loadDefinitions (in category 'evaluating') ----- loadDefinitions | filePackage | filePackage := FilePackage new fullName: 'ReadStream'; fileInFrom: self readStream. definitions := OrderedCollection new. filePackage classes do: [:pseudoClass | pseudoClass hasDefinition ifTrue: [definitions add: (self classDefinitionFrom: pseudoClass)]. definitions addAll: (self methodDefinitionsFor: pseudoClass). definitions addAll: (self methodDefinitionsFor: pseudoClass metaClass)]. filePackage doIts do: [:ea | self addDefinitionsFromDoit: ea string]. ! Item was changed: ----- Method: MCStReader>>systemOrganizationFromRecords: (in category 'as yet unclassified') ----- systemOrganizationFromRecords: changeRecords | categories | categories := changeRecords select: [:ea | 'SystemOrganization*' match: ea string] thenCollect: [:ea | (self categoryFromDoIt: ea string)]. ^ categories isEmpty ifFalse: [MCOrganizationDefinition categories: categories asArray]! Item was changed: ----- Method: MCSubDirectoryRepository>>findFullNameForReading: (in category 'as yet unclassified') ----- findFullNameForReading: aBaseName "Answer the latest version of aBaseName" | possible | possible := SortedCollection sortBlock: [ :a :b | b first modificationTime < a first modificationTime ]. self allDirectories do: [:dir | dir entries do: [:ent | ent isDirectory ifFalse: [ (ent name = aBaseName) ifTrue: [ possible add: {ent. dir fullNameFor: ent name}]]]]. ^(possible at: 1 ifAbsent: [ ^nil ]) second ! Item was changed: ----- Method: MCSubDirectoryRepository>>readStreamForFileNamed:do: (in category 'as yet unclassified') ----- readStreamForFileNamed: aString do: aBlock | file val | file := FileStream readOnlyFileNamed: (self findFullNameForReading: aString). val := aBlock value: file. file close. ^ val! Item was changed: ----- Method: MCSystemCategoryParser>>addDefinitionsTo: (in category 'as yet unclassified') ----- addDefinitionsTo: aCollection | definition | definition := aCollection detect: [:ea | ea isOrganizationDefinition ] ifNone: [aCollection add: (MCOrganizationDefinition categories: #())]. definition categories: (definition categories copyWith: self category).! Item was changed: ----- Method: MCSystemCategoryParser>>category (in category 'as yet unclassified') ----- category | tokens | tokens := Scanner new scanTokens: source. tokens size = 3 ifFalse: [self error: 'Unrecognized category definition']. ^ tokens at: 3! Item was changed: ----- Method: MCThreeWayMerger>>initialize (in category 'as yet unclassified') ----- initialize index := MCDefinitionIndex new. provisions := Set new! Item was changed: ----- Method: MCThreeWayMerger>>operations (in category 'as yet unclassified') ----- operations ^ operations ifNil: [operations := OrderedCollection new]! Item was changed: ----- Method: MCTool>>label: (in category 'morphic ui') ----- label: aString label := aString! Item was changed: ----- Method: MCTool>>window (in category 'morphic ui') ----- window ^ morph ifNil: [morph := self buildWindow]! Item was changed: ----- Method: MCVariableDefinition>>name: (in category 'accessing') ----- name: aString name := aString! Item was changed: ----- Method: MCVersion>>allDependenciesDo:ifUnresolved: (in category 'enumerating') ----- allDependenciesDo: aBlock ifUnresolved: failBlock | dict | dict := Dictionary new. self allDependenciesNotIn: dict do: aBlock ifUnresolved: failBlock! Item was changed: ----- Method: MCVersion>>setPackage:info:snapshot:dependencies: (in category 'initialize-release') ----- setPackage: aPackage info: aVersionInfo snapshot: aSnapshot dependencies: aCollection package := aPackage. info := aVersionInfo. snapshot := aSnapshot. dependencies := aCollection! Item was changed: ----- Method: MCVersion>>withAllDependenciesDo:ifUnresolved: (in category 'enumerating') ----- withAllDependenciesDo: aBlock ifUnresolved: failBlock | dict | dict := Dictionary new. self allDependenciesNotIn: dict do: aBlock ifUnresolved: failBlock. aBlock value: self! Item was changed: ----- Method: MCVersionDependency>>initializeWithPackage:info: (in category 'initialize-release') ----- initializeWithPackage: aPackage info: aVersionInfo package := aPackage. versionInfo := aVersionInfo! Item was changed: ----- Method: MCVersionHistoryBrowser>>ancestry: (in category 'accessing') ----- ancestry: anAncestry ancestry := anAncestry! Item was changed: ----- Method: MCVersionHistoryBrowser>>index: (in category 'accessing') ----- index: anObject "Set the value of index" index := anObject! Item was changed: ----- Method: MCVersionHistoryBrowser>>package: (in category 'accessing') ----- package: aMCPackage package := aMCPackage! Item was changed: ----- Method: MCVersionHistoryBrowser>>selection: (in category 'accessing') ----- selection: aNumber index := aNumber. self changed: #selection; changed: #summary! Item was changed: ----- Method: MCVersionHistoryBrowser>>summary (in category 'accessing') ----- summary | selInfo | selInfo := self selectedInfo. ^ selInfo ifNil: [''] ifNotNil: [selInfo summary]! Item was changed: ----- Method: MCVersionInfoWriter>>written (in category 'as yet unclassified') ----- written ^ written ifNil: [written := Set new]! Item was changed: ----- Method: MCVersionInspector>>version: (in category 'accessing') ----- version: aVersion version := aVersion! Item was changed: ----- Method: MCVersionLoader>>checkForModifications (in category 'checking') ----- checkForModifications | modifications | modifications := versions select: [:ea | ea package workingCopy modified]. modifications isEmpty ifFalse: [self warnAboutLosingChangesTo: modifications].! Item was changed: ----- Method: MCVersionLoader>>initialize (in category 'initialize-release') ----- initialize versions := OrderedCollection new! Item was changed: ----- Method: MCVersionMerger>>initialize (in category 'as yet unclassified') ----- initialize records := OrderedCollection new. merger := MCThreeWayMerger new.! Item was changed: ----- Method: MCVersionNameAndMessageRequest>>suggestedName: (in category 'accessing') ----- suggestedName: aString suggestion := aString! Item was changed: ----- Method: MCVersionNotification>>initializeWithVersion:repository: (in category 'as yet unclassified') ----- initializeWithVersion: aVersion repository: aRepository version := aVersion. repository := aRepository. ancestor := repository closestAncestorVersionFor: version info ifNone: []. changes := ancestor ifNil: [#()] ifNotNil: [(version snapshot patchRelativeToBase: ancestor snapshot) operations asSortedCollection]! Item was changed: ----- Method: MCVersionNotification>>messageTo: (in category 'as yet unclassified') ----- messageTo: aString | message | message := MailMessage empty. message setField: 'from' toString: self fromAddress. message setField: 'to' toString: aString. message setField: 'subject' toString: '[MC] ', version info name. message body: (MIMEDocument contentType: 'text/plain' content: self messageText). ^ message! Item was changed: ----- Method: MCVersionNotification>>notify: (in category 'as yet unclassified') ----- notify: aString | message | message := self messageTo: aString. SMTPClient deliverMailFrom: message from to: (Array with: message to) text: message text usingServer: MailSender smtpServer! Item was changed: ----- Method: MCVersionSorter>>addToCurrentLayer: (in category 'as yet unclassified') ----- addToCurrentLayer: aVersionInfo | layer | layer := layers at: depthIndex. (layer includes: aVersionInfo) ifFalse: [depths at: aVersionInfo ifPresent: [:i | i < depthIndex ifTrue: [(layers at: i) remove: aVersionInfo] ifFalse: [^ false]]. layer add: aVersionInfo. depths at: aVersionInfo put: depthIndex. ^ true]. ^ false ! Item was changed: ----- Method: MCVersionSorter>>allAncestorsOf: (in category 'as yet unclassified') ----- allAncestorsOf: aVersionInfo | all | all := Set new. self addAllAncestorsOf: aVersionInfo to: all. ^ all! Item was changed: ----- Method: MCVersionSorter>>initialize (in category 'as yet unclassified') ----- initialize stepparents := Dictionary new. roots := OrderedCollection new.! Item was changed: ----- Method: MCVersionSorter>>popLayer (in category 'as yet unclassified') ----- popLayer depthIndex := depthIndex - 1! Item was changed: ----- Method: MCVersionSorter>>pushLayer (in category 'as yet unclassified') ----- pushLayer depthIndex := depthIndex + 1. depthIndex > layers size ifTrue: [layers add: OrderedCollection new]. ! Item was changed: ----- Method: MCVersionSorter>>sortedVersionInfos (in category 'as yet unclassified') ----- sortedVersionInfos layers := OrderedCollection with: OrderedCollection new. depthIndex := 1. depths := Dictionary new. roots do: [:ea | self processVersionInfo: ea]. ^ layers gather: [:ea | ea]! Item was changed: ----- Method: MCWorkingAncestry>>addStepChild: (in category 'as yet unclassified') ----- addStepChild: aVersionInfo stepChildren := stepChildren copyWith: aVersionInfo! Item was changed: ----- Method: MCWorkingCopy>>changesRelativeToRepository: (in category 'operations') ----- changesRelativeToRepository: aRepository | ancestorVersion ancestorSnapshot | ancestorVersion := aRepository closestAncestorVersionFor: ancestry ifNone: []. ancestorSnapshot := ancestorVersion ifNil: [MCSnapshot empty] ifNotNil: [ancestorVersion snapshot]. ^ package snapshot patchRelativeToBase: ancestorSnapshot! Item was changed: ----- Method: MCWorkingCopy>>clearRequiredPackages (in category 'accessing') ----- clearRequiredPackages requiredPackages := nil! Item was changed: ----- Method: MCWorkingCopy>>initialize (in category 'private') ----- initialize super initialize. ancestry := MCWorkingAncestry new! Item was changed: ----- Method: MCWorkingCopy>>loaded: (in category 'operations') ----- loaded: aVersion ancestry := MCWorkingAncestry new addAncestor: aVersion info. requiredPackages := OrderedCollection withAll: (aVersion dependencies collect: [:ea | ea package]). self modified: false. self changed! Item was changed: ----- Method: MCWorkingCopy>>repositoryGroup (in category 'repositories') ----- repositoryGroup ^ repositoryGroup ifNil: [repositoryGroup := MCRepositoryGroup new]! Item was changed: ----- Method: MCWorkingCopy>>repositoryGroup: (in category 'repositories') ----- repositoryGroup: aRepositoryGroup repositoryGroup := aRepositoryGroup! Item was changed: ----- Method: MCWorkingCopy>>requiredPackages (in category 'accessing') ----- requiredPackages ^ requiredPackages ifNil: [requiredPackages := OrderedCollection new]! Item was changed: ----- Method: MCWorkingCopy>>uniqueVersionName (in category 'private') ----- uniqueVersionName |versionName| counter := nil. [versionName := self nextVersionName. self repositoryGroup includesVersionNamed: versionName] whileTrue. ^ versionName! Item was changed: ----- Method: MCWorkingCopy>>updateInstVars (in category 'migration') ----- updateInstVars ancestry ifNil: [ancestry := MCWorkingAncestry new. versionInfo ifNotNil: [versionInfo ancestors do: [:ea | ancestry addAncestor: ea]. versionInfo := nil]]! Item was changed: ----- Method: MCWorkingCopy>>versionInfo: (in category 'accessing') ----- versionInfo: aVersionInfo ancestry := MCWorkingAncestry new addAncestor: aVersionInfo! Item was changed: ----- Method: MCWorkingCopyBrowser>>defaults (in category 'morphic ui') ----- defaults ^ defaults ifNil: [defaults := Dictionary new]! Item was changed: ----- Method: MCWorkingCopyBrowser>>repository (in category 'actions') ----- repository workingCopy ifNotNil: [repository := self defaults at: workingCopy ifAbsent: []]. ^ repository! Item was changed: ----- Method: MCWorkingCopyBrowser>>repository: (in category 'actions') ----- repository: aRepository repository := aRepository. workingCopy ifNotNil: [self defaults at: workingCopy put: aRepository]! Item was changed: ----- Method: MCWorkingCopyBrowser>>viewChanges (in category 'actions') ----- viewChanges | patch | self canSave ifTrue: [patch := workingCopy changesRelativeToRepository: self repository. patch isNil ifTrue: [^ self]. patch isEmpty ifTrue: [ workingCopy modified: false. self inform: 'No changes' ] ifFalse: [ workingCopy modified: true. (MCPatchBrowser forPatch: patch) label: 'Patch Browser: ', workingCopy description; show]]! Item was changed: ----- Method: MCWriter>>stream: (in category 'accessing') ----- stream: aStream stream := aStream! Item was changed: ----- Method: TimeStamp class>>fromMethodTimeStamp: (in category '*monticello-instance creation') ----- fromMethodTimeStamp: aString | stream | stream := ReadStream on: aString. stream skipSeparators. stream skipTo: Character space. ^self readFrom: stream.! Item was changed: ----- Method: TimeStamp class>>fromString: (in category '*monticello-instance creation') ----- fromString: aString "Answer a new instance for the value given by aString. TimeStamp fromString: '1-10-2000 11:55:00 am'. " ^self readFrom: (ReadStream on: aString).! Item was changed: ----- Method: TimeStamp class>>readFrom: (in category '*monticello-instance creation') ----- readFrom: stream | date time | stream skipSeparators. date := Date readFrom: stream. stream skipSeparators. time := Time readFrom: stream. ^self date: date time: time!

1 0

← Newer
1
2
3
4
5
6
7
8
9
10
Older →