Squeak-dev June 2017

squeak-dev@lists.squeakfoundation.org

36 participants
130 discussions

The Trunk: ToolBuilder-Morphic-nice.195.mcz
by commits＠source.squeak.org 10 Jun '17

10 Jun '17

Nicolas Cellier uploaded a new version of ToolBuilder-Morphic to project The Trunk: http://source.squeak.org/trunk/ToolBuilder-Morphic-nice.195.mcz ==================== Summary ==================== Name: ToolBuilder-Morphic-nice.195 Author: nice Time: 10 June 2017, 5:59:37.517672 pm UUID: 73e96169-edde-48e6-9b31-65a62ae9c88f Ancestors: ToolBuilder-Morphic-pre.194 Massively replace ifNotNilDo: by ifNotNil: We don't need two different selectors to do a single thing. =============== Diff against ToolBuilder-Morphic-pre.194 =============== Item was changed: ----- Method: MorphicToolBuilder>>buildPluggableButton: (in category 'widgets required') ----- buildPluggableButton: aSpec | widget label state action enabled | label := aSpec label. state := aSpec state. action := aSpec action. widget := self buttonClass on: aSpec model getState: (state isSymbol ifTrue:[state]) action: nil label: (label isSymbol ifTrue:[label]). widget style: aSpec style. aSpec changeLabelWhen + ifNotNil: [ :event | widget whenChanged: event update: aSpec label]. - ifNotNilDo: [ :event | widget whenChanged: event update: aSpec label]. self register: widget id: aSpec name. enabled := aSpec enabled. enabled isSymbol ifTrue:[widget getEnabledSelector: enabled] ifFalse:[widget enabled:enabled]. widget action: action. aSpec color isColor ifTrue: [widget offColor: aSpec color] ifFalse: [widget getColorSelector: aSpec color]. self buildHelpFor: widget spec: aSpec. (label isSymbol or:[label == nil]) ifFalse:[widget label: label]. self setFrame: aSpec frame in: widget. self setLayoutHintsFor: widget spec: aSpec. parent ifNotNil:[self add: widget to: parent]. ^widget! Item was changed: ----- Method: PluggableButtonMorphPlus>>update: (in category 'updating') ----- update: what super update: what. getColorSelector ifNotNil: [:sel | what == sel ifTrue: [self offColor: (model perform: sel)]]. getEnabledSelector ifNotNil: [:sel | what == sel ifTrue: [self enabled: (model perform: sel)]]. updateMap ifNotNil: [(updateMap at: what ifAbsent: []) + ifNotNil: [ :newTarget | self update: newTarget]]. - ifNotNilDo: [ :newTarget | self update: newTarget]]. !

1 0

The Trunk: ToolBuilder-MVC-nice.48.mcz
by commits＠source.squeak.org 10 Jun '17

10 Jun '17

Nicolas Cellier uploaded a new version of ToolBuilder-MVC to project The Trunk: http://source.squeak.org/trunk/ToolBuilder-MVC-nice.48.mcz ==================== Summary ==================== Name: ToolBuilder-MVC-nice.48 Author: nice Time: 10 June 2017, 5:58:54.129159 pm UUID: d09d8863-3842-4636-9d43-55e1271ff71e Ancestors: ToolBuilder-MVC-mt.47 Massively replace ifNotNilDo: by ifNotNil: We don't need two different selectors to do a single thing. =============== Diff against ToolBuilder-MVC-mt.47 =============== Item was changed: ----- Method: MVCToolBuilder>>positionSubviewsWithin: (in category 'private') ----- positionSubviewsWithin: widget "Translate subviews to position the viewport of each subView relative to the widget window origin. If subviews are repositioned, as in a row of button views arranged within a view, then the transformations will later be rescaled to fit the subviews within the widget window." + widget subViews ifNotNil: [:subViews | - widget subViews ifNotNilDo: [:subViews | subViews isEmpty ifFalse: [ | translation | translation := widget window origin - subViews first window origin. subViews do: [:v | v setTransformation: (v transformation translateBy: translation)]]]. !

1 0

The Trunk: ToolBuilder-Kernel-nice.111.mcz
by commits＠source.squeak.org 10 Jun '17

10 Jun '17

Nicolas Cellier uploaded a new version of ToolBuilder-Kernel to project The Trunk: http://source.squeak.org/trunk/ToolBuilder-Kernel-nice.111.mcz ==================== Summary ==================== Name: ToolBuilder-Kernel-nice.111 Author: nice Time: 10 June 2017, 5:57:59.10664 pm UUID: 2b6dafb5-3394-4149-9a1b-45d363a30c00 Ancestors: ToolBuilder-Kernel-pre.110 Massively replace ifNotNilDo: by ifNotNil: We don't need two different selectors to do a single thing. =============== Diff against ToolBuilder-Kernel-pre.110 =============== Item was changed: ----- Method: UIManager class>>getDefault (in category 'class initialization') ----- getDefault "Ensure that a more specific manager can always be made by subclassing a tool builder and implementing a more specific way of reacting to #isActiveManager. For example, a BobsUIManager can subclass MorphicUIManager and (if enabled, say Preferences useBobsUI) will be considered before the parent (generic MorphicUIManager)." ^ (self allSubclasses detect: [:any | any isActiveManager and: [any subclasses noneSatisfy: [:sub | sub isActiveManager]]] ifNone: []) + ifNotNil: [:mgrClass | mgrClass new]! - ifNotNilDo: [:mgrClass | mgrClass new]!

1 0

The Trunk: SystemReporter-nice.36.mcz
by commits＠source.squeak.org 10 Jun '17

10 Jun '17

Nicolas Cellier uploaded a new version of SystemReporter to project The Trunk: http://source.squeak.org/trunk/SystemReporter-nice.36.mcz ==================== Summary ==================== Name: SystemReporter-nice.36 Author: nice Time: 10 June 2017, 5:57:23.049423 pm UUID: 39920c72-ab26-4596-bd3f-41ab4d481980 Ancestors: SystemReporter-eem.35 Massively replace ifNotNilDo: by ifNotNil: We don't need two different selectors to do a single thing. =============== Diff against SystemReporter-eem.35 =============== Item was changed: ----- Method: SystemReporter>>reportVM: (in category 'reporting') ----- reportVM: aStream self header: 'Virtual Machine' on: aStream. aStream nextPutAll: (Smalltalk vm vmFileName); cr; nextPutAll: (Smalltalk vm vmVersion); cr. Smalltalk vm buildDate + ifNotNil: [:string | aStream nextPutAll: string; cr]. - ifNotNilDo: [:string | aStream nextPutAll: string; cr]. [Smalltalk vm platformSourceVersion + ifNotNil: [:v | aStream nextPutAll: 'platform sources revision ', v; cr]] - ifNotNilDo: [:v | aStream nextPutAll: 'platform sources revision ', v; cr]] on: Warning do: ["unsupported primitive"]. [Smalltalk vm interpreterSourceVersion + ifNotNil: [:v | aStream nextPutAll: 'VMMaker versionString ', v; cr]] - ifNotNilDo: [:v | aStream nextPutAll: 'VMMaker versionString ', v; cr]] on: Warning do: ["unsupported primitive"]. [Smalltalk vm interpreterClass + ifNotNil: [:string | aStream nextPutAll: string; cr]. - ifNotNilDo: [:string | aStream nextPutAll: string; cr]. Smalltalk vm cogitClass + ifNotNil: [:string | aStream nextPutAll: string; cr] - ifNotNilDo: [:string | aStream nextPutAll: string; cr] ] on: Error do: ["unsupported primitives"] !

1 0

The Trunk: ST80-nice.229.mcz
by commits＠source.squeak.org 10 Jun '17

10 Jun '17

Nicolas Cellier uploaded a new version of ST80 to project The Trunk: http://source.squeak.org/trunk/ST80-nice.229.mcz ==================== Summary ==================== Name: ST80-nice.229 Author: nice Time: 10 June 2017, 5:56:36.105684 pm UUID: a851baa5-4a34-4857-8bff-8f9dfccc7dfe Ancestors: ST80-eem.228 Massively replace ifNotNilDo: by ifNotNil: We don't need two different selectors to do a single thing. =============== Diff against ST80-eem.228 =============== Item was changed: ----- Method: StandardSystemView class>>doCacheBits (in category 'class initialization') ----- doCacheBits "StandardSystemView doCacheBits - Enable fast window repaint feature" CacheBits := true. + ScheduledControllers ifNotNil: [:sc | sc unCacheWindows; restore]! - ScheduledControllers ifNotNilDo: [:sc | sc unCacheWindows; restore]!

1 0

The Trunk: SMLoader-nice.89.mcz
by commits＠source.squeak.org 10 Jun '17

10 Jun '17

Nicolas Cellier uploaded a new version of SMLoader to project The Trunk: http://source.squeak.org/trunk/SMLoader-nice.89.mcz ==================== Summary ==================== Name: SMLoader-nice.89 Author: nice Time: 10 June 2017, 5:56:06.103149 pm UUID: 627d6699-93f3-4d5e-af7b-d8effb9da17e Ancestors: SMLoader-mt.88 Massively replace ifNotNilDo: by ifNotNil: We don't need two different selectors to do a single thing. =============== Diff against SMLoader-mt.88 =============== Item was changed: ----- Method: SMLoader>>selectedCategory (in category 'accessing') ----- selectedCategory "Return selected category." + ^selectedCategoryWrapper ifNotNil: [:w | w withoutListWrapper]! - ^selectedCategoryWrapper ifNotNilDo: [:w | w withoutListWrapper]! Item was changed: ----- Method: SMLoader>>selectedPackageOrRelease (in category 'private') ----- selectedPackageOrRelease "Return selected package or package release." + ^self selectedItemWrapper ifNotNil: [:w | w withoutListWrapper]! - ^self selectedItemWrapper ifNotNilDo: [:w | w withoutListWrapper]! Item was changed: ----- Method: SMLoaderPlus>>selectedCategoryPath (in category 'accessing') ----- selectedCategoryPath "Return selected category's path." | path | path := #(). selectedCategory ifNotNil: [selectedCategory parent + ifNotNil: [:p | path := path copyWith: p]. - ifNotNilDo: [:p | path := path copyWith: p]. path := path copyWith: selectedCategory]. ^ path! Item was changed: ----- Method: SMLoaderPlus>>updateLabel: (in category 'lists') ----- updateLabel: packagesShown "Update the label of the window." + window ifNotNil: [:w | w setLabel: (self labelForShown: packagesShown)]! - window ifNotNilDo: [:w | w setLabel: (self labelForShown: packagesShown)]! Item was changed: ----- Method: SMPackageRelease>>httpPostContent (in category '*smloader') ----- httpPostContent "Answer the url-encoded parameters for this object." | allCategories | ^ String streamContents: [ : stream | self isNewObject ifTrue: [ "Make the parent release the selected." self parentReleaseIndex > 0 ifTrue: [ stream nextPutAll: '1-1=' , self parentReleaseIndex , '&' ] ] ifFalse: [ "Make this release the selected." self releaseIndex > 0 ifTrue: [ stream nextPutAll: '1-1=' , self releaseIndex , '&' ] ]. "The following category fields must remain in alphabetical order. Add 1 to category indexes because web-server expects the first item to always be nil." stream nextPutAll: '1-3=' , self version asString encodeForHTTP ; nextPutAll: '&1-4=' , (self compatibilityIndex + 1) ; nextPutAll: '&1-5=' , (self licenseIndex + 1) ; nextPutAll: '&1-6=' , (self maturityIndex + 1) ; nextPutAll: '&1-7=' , (self squeakVersionIndex + 1) ; nextPutAll: '&1-8=' , self downloadUrl "already http encoded" ; nextPutAll: '&1-9=1&1-10=&1-11=' "No file selection, 'cool' name or summary". "Specify only the mandatory categories for 'additional categories', otherwise prior mandatory selections will be reflected in the objects categories, causing the highest-in-the-list to always win. Ugh.." allCategories := SMSqueakMap default sortedCategories. {allCategories indexOf: self compatibility. allCategories indexOf: self license. allCategories indexOf: self maturity. allCategories indexOf: self squeakVersion} do: [ : each | stream nextPutAll: '&1-12=' , each asString ]. self isCommunitySupported ifTrue: [ stream nextPutAll: '&1-12=', (allCategories indexOf: self communitySupportedCategory) asString ]. stream nextPutAll: '&1-13=' , self note asString encodeForHTTP. self isNewObject ifTrue: [ stream nextPutAll: '&1-18=Save+as+new+release' ] ifFalse: [ stream nextPutAll: '&1-17=Save+changes' ]. + self parentRelease ifNotNil: - self parentRelease ifNotNilDo: [ : pr | stream nextPutAll: '&1-19=' , pr releaseIndex ] ]! Item was changed: ----- Method: SMReleaseBrowser>>parentVersion (in category 'model access') ----- parentVersion + ^ self parentRelease ifNotNil: - ^ self parentRelease ifNotNilDo: [ : pr | pr version ]!

1 0

The Trunk: SMBase-nice.138.mcz
by commits＠source.squeak.org 10 Jun '17

10 Jun '17

Nicolas Cellier uploaded a new version of SMBase to project The Trunk: http://source.squeak.org/trunk/SMBase-nice.138.mcz ==================== Summary ==================== Name: SMBase-nice.138 Author: nice Time: 10 June 2017, 5:55:05.442161 pm UUID: c5484d1d-8a60-447e-ad2b-35cb02f2bd64 Ancestors: SMBase-ul.137 Massively replace ifNotNilDo: by ifNotNil: We don't need two different selectors to do a single thing. =============== Diff against SMBase-ul.137 =============== Item was changed: ----- Method: SMInstallationRegistry>>noteInstalledPackageWithId:autoVersion:name: (in category 'installation') ----- noteInstalledPackageWithId: aPackageId autoVersion: aVersion name: aName "The package release was just successfully installed. Can be used to inform SM of an installation not been done using SM, even when the map isn't loaded. We record the fact in our Dictionary of installed packages and log a 'do it' to mark this in the changelog. The doit helps keeping track of the packages when recovering changes etc - not a perfect solution but should help. The map used is the default map. The id of the package is the key and the value is an OrderedCollection of Arrays with the release auto version, the point in time and the current installCounter." | time name id v | v := aVersion isString ifTrue: [aVersion asVersion] ifFalse: [aVersion]. aName ifNil: [name := '<unknown package name>'] ifNotNil: [name := aName]. id := UUID fromString: aPackageId. time := Time totalSeconds. self countInstall. self markInstalled: id version: v time: time counter: installCounter. + (((Smalltalk classNamed: 'SmalltalkImage') ifNotNil: [:si | si current]) ifNil: [Smalltalk]) - (((Smalltalk classNamed: 'SmalltalkImage') ifNotNilDo: [:si | si current]) ifNil: [Smalltalk]) logChange: '"Installed ', name, ' auto version ', v versionString, '". (Smalltalk at: #SMSqueakMap ifAbsent: []) ifNotNil:[ SMSqueakMap noteInstalledPackageWithId: ', id asString storeString, ' autoVersion: ', v storeString, ' atSeconds: ', time asString, ' number: ', installCounter asString, ']'! Item was changed: ----- Method: SMInstallationRegistry>>noteUninstalledPackageWithId:autoVersion:name: (in category 'installation') ----- noteUninstalledPackageWithId: aPackageId autoVersion: aVersion name: aName "The package release was just successfully uninstalled. Can be used to inform SM of an uninstallation not been done using SM, even when the map isn't loaded. We record the fact in our Dictionary of installed packages and log a 'do it' to mark this in the changelog. The doit helps keeping track of the packages when recovering changes etc - not a perfect solution but should help. The map used is the default map. The id of the package is the key and the value is an OrderedCollection of Arrays with the release auto version, the point in time and the current installCounter." | time name id v | v := aVersion isString ifTrue: [aVersion asVersion] ifFalse: [aVersion]. aName ifNil: [name := '<unknown package name>'] ifNotNil: [name := aName]. id := UUID fromString: aPackageId. time := Time totalSeconds. self countInstall. "Used for both installs and uninstalls" self clearInstalled: id version: v time: time counter: installCounter. + (((Smalltalk classNamed: 'SmalltalkImage') ifNotNil: [:si | si current]) ifNil: [Smalltalk]) - (((Smalltalk classNamed: 'SmalltalkImage') ifNotNilDo: [:si | si current]) ifNil: [Smalltalk]) logChange: '"Uninstalled ', name, ' auto version ', v versionString, '". (Smalltalk at: #SMSqueakMap ifAbsent: []) ifNotNil:[ SMSqueakMap noteUninstalledPackageWithId: ', id asString storeString, ' autoVersion: ', v storeString, ' atSeconds: ', time asString, ' number: ', installCounter asString, ']'! Item was changed: ----- Method: SMInstaller class>>classForPackageRelease: (in category 'instance creation') ----- classForPackageRelease: aPackageRelease "Decide which subclass to instantiate. We detect and return the first subclass that wants to handle the release going recursively leaf first so that subclasses gets first chance if several classes compete over the same packages, like for example SMDVSInstaller that also uses the .st file extension." self subclasses do: [:ea | (ea classForPackageRelease: aPackageRelease) + ifNotNil: [:class | ^ class]]. - ifNotNilDo: [:class | ^ class]]. ^(self canInstall: aPackageRelease) ifTrue: [self]! Item was changed: ----- Method: SMPackage>>installedVersion (in category 'printing') ----- installedVersion "Return the version String for the installed version. We ask the map. Return nil if this package is not installed." + ^self installedRelease ifNotNil: [:r | r smartVersion]! - ^self installedRelease ifNotNilDo: [:r | r smartVersion]!

1 0

The Trunk: MorphicExtras-nice.207.mcz
by commits＠source.squeak.org 10 Jun '17

10 Jun '17

Nicolas Cellier uploaded a new version of MorphicExtras to project The Trunk: http://source.squeak.org/trunk/MorphicExtras-nice.207.mcz ==================== Summary ==================== Name: MorphicExtras-nice.207 Author: nice Time: 10 June 2017, 5:52:47.062634 pm UUID: 157ef560-9a00-4d80-a341-9b1292a4cbae Ancestors: MorphicExtras-nice.206 Massively replace ifNotNilDo: by ifNotNil: We don't need two different selectors to do a single thing. =============== Diff against MorphicExtras-nice.206 =============== Item was changed: ----- Method: Flaps class>>addAndEnableEToyFlaps (in category 'predefined flaps') ----- addAndEnableEToyFlaps "Initialize the standard default out-of-box set of global flaps. This method creates them and places them in my class variable #SharedFlapTabs, but does not itself get them displayed." | aSuppliesFlap | SharedFlapTabs ifNotNil: [^ self]. SharedFlapTabs := OrderedCollection new. aSuppliesFlap := self newSuppliesFlapFromQuads: self quadsDefiningPlugInSuppliesFlap positioning: #right. aSuppliesFlap referent setNameTo: 'Supplies Flap' translated. "Per request from Kim Rose, 7/19/02" SharedFlapTabs add: aSuppliesFlap. "The #center designation doesn't quite work at the moment" (Smalltalk globals at: #SugarNavigatorBar ifPresent: [:c | c showSugarNavigator] ifAbsent: [false]) ifTrue: [SharedFlapTabs add: self newSugarNavigatorFlap] ifFalse: [Preferences showProjectNavigator ifTrue:[ SharedFlapTabs add: self newNavigatorFlap]]. self enableGlobalFlapWithID: 'Supplies' translated. (Smalltalk globals at: #SugarNavigatorBar ifPresent: [:c | c showSugarNavigator] ifAbsent: [false]) ifTrue: [self enableGlobalFlapWithID: 'Sugar Navigator Flap' translated. + (self globalFlapTabWithID: 'Sugar Navigator Flap' translated) ifNotNil: - (self globalFlapTabWithID: 'Sugar Navigator Flap' translated) ifNotNilDo: [:navTab | aSuppliesFlap sugarNavTab: navTab]] ifFalse: [ Preferences showProjectNavigator ifTrue:[ self enableGlobalFlapWithID: 'Navigator' translated]]. SharedFlapsAllowed := true. Project current flapsSuppressed: false. ^ SharedFlapTabs "Flaps addAndEnableEToyFlaps"!

1 0

The Trunk: Morphic-nice.1341.mcz
by commits＠source.squeak.org 10 Jun '17

10 Jun '17

Nicolas Cellier uploaded a new version of Morphic to project The Trunk: http://source.squeak.org/trunk/Morphic-nice.1341.mcz ==================== Summary ==================== Name: Morphic-nice.1341 Author: nice Time: 10 June 2017, 5:51:03.006817 pm UUID: c151c809-e1f1-4fd4-92a0-e4911d6960fe Ancestors: Morphic-eem.1340 Massively replace ifNotNilDo: by ifNotNil: We don't need two different selectors to do a single thing. =============== Diff against Morphic-eem.1340 =============== Item was changed: ----- Method: Morph>>dismissMorph (in category 'meta-actions') ----- dismissMorph "This is called from an explicit halo destroy/delete action. So first disconnect all constraints to keep the graph up to date." (self respondsTo: #disconnectAllConstraints) "Connectors package" ifTrue: [ self perform: #disconnectAllConstraints ]. (self respondsTo: #releaseGraphModels) "CGPrereqs package (Connectors)" ifTrue: [ self perform: #releaseGraphModels ]. + self world ifNotNil: - self world ifNotNilDo: [:w | w abandonAllHalos; stopStepping: self]. self delete! Item was changed: ----- Method: SketchMorph>>collapse (in category 'menus') ----- collapse "Replace the receiver with a collapsed rendition of itself." | w collapsedVersion a ht tab | (w := self world) ifNil: [^self]. collapsedVersion := (self imageForm scaledToSize: 50@50) asMorph. collapsedVersion setProperty: #uncollapsedMorph toValue: self. collapsedVersion on: #mouseUp send: #uncollapseSketch to: collapsedVersion. collapsedVersion setBalloonText: ('A collapsed version of {1}. Click to open it back up.' translated format: {self externalName}). self delete. w addMorphFront: ( a := AlignmentMorph newRow hResizing: #shrinkWrap; vResizing: #shrinkWrap; borderWidth: 4; borderColor: Color white; addMorph: collapsedVersion; yourself). a setNameTo: self externalName. ht := (tab := Smalltalk at: #SugarNavTab ifPresent: [:c | ActiveWorld findA: c]) ifNotNil: [tab height] ifNil: [80]. a position: 0@ht. collapsedVersion setProperty: #collapsedMorphCarrier toValue: a. + (self valueOfProperty: #collapsedPosition) ifNotNil: - (self valueOfProperty: #collapsedPosition) ifNotNilDo: [:priorPosition | a position: priorPosition]! Item was changed: ----- Method: SmalltalkEditor>>buttonForIt (in category 'do-its') ----- buttonForIt + ^ self doItButtonFromSelection ifNotNil: [:e | e openInHand]! - ^ self doItButtonFromSelection ifNotNilDo: [:e | e openInHand]!

1 0

The Trunk: Monticello-nice.670.mcz
by commits＠source.squeak.org 10 Jun '17

10 Jun '17

Nicolas Cellier uploaded a new version of Monticello to project The Trunk: http://source.squeak.org/trunk/Monticello-nice.670.mcz ==================== Summary ==================== Name: Monticello-nice.670 Author: nice Time: 10 June 2017, 5:49:59.546878 pm UUID: 590e192e-d0a0-435a-a012-0c4859896286 Ancestors: Monticello-topa.669 Massively replace ifNotNilDo: by ifNotNil: We don't need two different selectors to do a single thing. =============== Diff against Monticello-topa.669 =============== Item was changed: ----- Method: MCCodeTool>>copyReference (in category 'menus') ----- copyReference "Copy the selected selector to the clipboard" + self selectedMessageName ifNotNil: - self selectedMessageName ifNotNilDo: [ : selector | Clipboard clipboardText: (self selectedClassOrMetaClass ifNil: [ selector asString ] ifNotNilDo: [ : cls | (cls >> selector) reference ]) ]! Item was changed: ----- Method: MCDefinition>>mcModel (in category 'private') ----- mcModel "Find my WorkingCopy, use the first mcModel-capable repository in its reposigoryGroup." self repositoryGroup ifNotNil: [ : group | group repositoriesDo: + [ : each | each mcModel ifNotNil: - [ : each | each mcModel ifNotNilDo: [ : mcModel | ^ mcModel ] ] ]. ^ nil! 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 versionList values: ri versionList + title: 'Select version to show patch against ...') ifNotNil: [:name | - 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: MCWorkingCopyBrowser>>addPackageRepository (in category 'actions') ----- addPackageRepository workingCopy ifNotNil: [ (self pickRepositorySatisfying: [ :repos | (workingCopy repositoryGroup includes: repos) not ]) + ifNotNil: - ifNotNilDo: [:repos | workingCopy repositoryGroup addRepository: repos. self repository: repos. self changed: #repositoryList; changed: #repositorySelection. self changedButtons]]!

1 0

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