[Pkg] The Trunk: MonticelloConfigurations-ul.67.mcz

commits at source.squeak.org commits at source.squeak.org
Sat Dec 12 14:22:59 UTC 2009


Levente Uzonyi uploaded a new version of MonticelloConfigurations to project The Trunk:
http://source.squeak.org/trunk/MonticelloConfigurations-ul.67.mcz

==================== Summary ====================

Name: MonticelloConfigurations-ul.67
Author: ul
Time: 12 December 2009, 2:28:16 am
UUID: 47ea34f3-7a7a-5e4c-a478-c0942068d47f
Ancestors: MonticelloConfigurations-bf.66

- replace sends of #ifNotNilDo: to #ifNotNil:, #ifNil:ifNotNilDo: to #ifNil:ifNotNil:, #ifNotNilDo:ifNil: to #ifNotNil:ifNil:

=============== Diff against MonticelloConfigurations-bf.66 ===============

Item was changed:
  ----- Method: MCConfigurationBrowser>>store (in category 'actions') -----
  store
  	(self checkRepositories and: [self checkDependencies]) ifFalse: [^self].
+ 	self pickName ifNotNil: [:name |
- 	self pickName ifNotNilDo: [:name |
  		self configuration name: name.
+ 		self pickRepository ifNotNil: [:repo |
- 		self pickRepository ifNotNilDo: [:repo |
  			repo storeVersion: self configuration]].!

Item was changed:
  ----- Method: MCConfigurationBrowser>>addRepository (in category 'repositories') -----
  addRepository
  	(self pickRepositorySatisfying: [:ea | (self repositories includes: ea) not])
+ 		ifNotNil: [:repo |
- 		ifNotNilDo: [:repo |
  			(repo isKindOf: MCHttpRepository)
  				ifFalse: [^self inform: 'Only HTTP repositories are supported'].
  			self repositories add: repo.
  			self changed: #repositoryList.
  		]!

Item was changed:
  ----- Method: MCConfigurationBrowser>>selectedPackage (in category 'dependencies') -----
  selectedPackage
+ 	^ self selectedDependency ifNotNil: [:dep | dep package]!
- 	^ self selectedDependency ifNotNilDo: [:dep | dep package]!

Item was changed:
  ----- Method: MCConfigurationBrowser>>description (in category 'description') -----
  description
+ 	self selectedDependency ifNotNil: [:dep | ^ ('Package: ', dep package name, String cr,
- 	self selectedDependency ifNotNilDo: [:dep | ^ ('Package: ', dep package name, String cr,
  		dep versionInfo summary) asText].
+ 	self selectedRepository ifNotNil: [:repo | ^repo creationTemplate
- 	self selectedRepository ifNotNilDo: [:repo | ^repo creationTemplate
  		ifNotNil: [repo creationTemplate asText]
  		ifNil: [repo asCreationTemplate asText addAttribute: TextColor red]].
  	^ ''
  !

Item was changed:
  ----- Method: MCConfigurationBrowser>>description: (in category 'description') -----
  description: aText
  
+ 	self selectedRepository ifNotNil: [:repo | 
- 	self selectedRepository ifNotNilDo: [:repo | 
  		| new | 
  		new := MCRepository readFrom: aText asString.
  		(new class = repo class 
  			and: [new description = repo description])
  				ifTrue: [
  					repo creationTemplate: aText asString.
  					self changed: #description]
  				ifFalse: [
  					self inform: 'This does not match the previous definition!!'
  				]
  	].
  
  !



More information about the Packages mailing list