[Pkg] Monticello Public: Monticello.impl-mtf.525.mcz

[squeaksource-noreply at iam.unibe.ch]

A new version of Monticello.impl was added to project Monticello Public:
http://www.squeaksource.com/mc/Monticello.impl-mtf.525.mcz

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

Name: Monticello.impl-mtf.525
Author: mtf
Time: 9 June 2008, 9:00:13 pm
UUID: 2cf5823f-0e38-4f4f-ae8f-44beafde5dce
Ancestors: Monticello.impl-mtf.524

no more underscore assignments

=============== Diff against Monticello.impl-mtf.524 ===============

Item was changed:
  ----- Method: MCHttpRepository>>user: (in category 'as yet unclassified') -----
  user: userString
+ 	user := userString!
- 	user _ userString!

Item was changed:
  ----- Method: MCWorkingCopyBrowser>>pickRepositorySatisfying: (in category 'morphic ui') -----
  pickRepositorySatisfying: aBlock
  	| repos index |
  	repos := MCRepositoryGroup default repositories select: aBlock.
+ 	index := (PopUpMenu labelArray: (repos collect: [:ea | ea descriptionDisplay ]))
- 	index _ (PopUpMenu labelArray: (repos collect: [:ea | ea descriptionDisplay ]))
  				startUpWithCaption: 'Repository:'.
  	^ index = 0 ifFalse: [repos at: index]!

Item was changed:
  ----- Method: MCPatchBrowser>>revertSelection (in category 'as yet unclassified') -----
  revertSelection
  	| loader |
  	selection ifNotNil:
+ 		[loader := MCPackageLoader new.
- 		[loader _ MCPackageLoader new.
  		selection inverse applyTo: loader.
  		loader loadWithName: self changeSetNameForInstall ]!

Item was changed:
  ----- Method: Encoder>>undeclared: (in category '*monticello-override') -----
  undeclared: name
  
  	| sym | 
  	requestor interactive ifTrue: [
  		requestor requestor == #error: ifTrue: [requestor error: 'Undeclared'].
  		^ self notify: 'Undeclared'].
  	"Transcript show: ' (' , name , ' is Undeclared) '."
+ 	sym := name asSymbol.
- 	sym _ name asSymbol.
  	Undeclared at: sym put: nil.
  	^self global: (Undeclared associationAt: sym) name: sym!

Item was changed:
  ----- Method: MCGOODSRepository>>db (in category 'as yet unclassified') -----
  db
  	Smalltalk at: #KKDatabase ifPresent: [:classKKDatabase |
  	(connection isNil or: [connection isConnected not]) ifTrue: [
+ 		connection := classKKDatabase onHost:hostname port: port].
- 		connection _ classKKDatabase onHost:hostname port: port].
  	].
  	^ connection!

Item was changed:
  ----- Method: MCWorkingCopyBrowser>>viewChanges (in category 'actions') -----
  viewChanges
  	| patch |
  	'Finding changes' displayProgressAt: Sensor cursorPoint from: 0 to: 10 during:[:bar|
  		self canSave ifTrue:[
  		bar value: 1.
+ 		patch := workingCopy changesRelativeToRepository: self repository].
- 		patch _ workingCopy changesRelativeToRepository: self repository].
  		patch isNil ifTrue: [^ self].
  		bar value:3.
  		patch isEmpty
  			ifTrue: [ workingCopy modified: false.
  				bar value: 10.
  				self inform: 'No changes' ]
  			ifFalse:
  				[ workingCopy modified: true.
  				bar value: 5.
  				(MCPatchBrowser forPatch: patch)
  					label: 'Patch Browser: ', workingCopy description;
  					show]]!