scm-support.cs

'From MIT Squeak 0.9.4 (June 1, 2003) [No updates present.] on 1 June 2014 at 10:21:53 pm'!

!ChangeSet methodsFor: 'fileIn/Out' stamp: 'mu 6/1/2014 22:21'!
fileOutNoVersionNumber
	
	| file nameToUse |
	nameToUse _ self name, FileDirectory dot, 'cs'.

	Cursor write showWhile:
		[file _ FileStream newFileNamed: nameToUse.
		file header; timeStamp.
		self fileOutPreambleOn: file.
		self fileOutOn: file.
		self fileOutPostscriptOn: file.
		file trailer; close].
! !


!ChangeSorter methodsFor: 'changeSet menu' stamp: 'mu 5/30/2014 16:04'!
changeSetMenu: aMenu shifted: isShifted 
	"Could be for a single or double changeSorter"
	aMenu title: 'Change Set:
' , myChangeSet name.
	isShifted ifTrue: [^ self shiftedChangeSetMenu: aMenu].
	aMenu add: 'make changes go to me' action: #newCurrent.
	aMenu addLine.
	aMenu add: 'new change set...' action: #newSet.
	aMenu add: 'find...' action: #findCngSet.
	aMenu add: 'show...' action: #chooseCngSet.
	aMenu add: 'rename change set' action: #rename.
	aMenu addLine.
	aMenu add: 'file out no version' action: #fileOutNoVersionNumber.
	aMenu add: 'file out' action: #fileOut.
	aMenu add: 'browse methods' action: #browseChangeSet.
	aMenu addLine.
	parent
		ifNotNil: 
			[aMenu add: 'copy all to other side' action: #copyAllToOther.
			aMenu add: 'submerge into other side' action: #submergeIntoOtherSide.
			aMenu add: 'subtract other side' action: #subtractOtherSide.
			aMenu addLine].
	myChangeSet hasPreamble
		ifTrue: 
			[aMenu add: 'edit preamble' action: #addPreamble.
			aMenu add: 'remove preamble' action: #removePreamble]
		ifFalse: [aMenu add: 'add preamble' action: #addPreamble].
	"aMenu add: 'edit preamble...' action: #editPreamble."
	myChangeSet hasPostscript
		ifTrue: 
			[aMenu add: 'edit postscript...' action: #editPostscript.
			aMenu add: 'remove postscript' action: #removePostscript]
		ifFalse: [aMenu add: 'add postscript...' action: #editPostscript].
	aMenu addLine.
	aMenu add: 'destroy change set' action: #remove.
	aMenu addLine.
	aMenu add: 'more...' action: #shiftedYellowButtonActivity.
	^ aMenu! !

!ChangeSorter methodsFor: 'changeSet menu' stamp: 'mu 5/30/2014 16:05'!
fileOutNoVersionNumber
	"File out the current change set."

	myChangeSet fileOutNoVersionNumber.
	parent modelWakeUp.	"notice object conversion methods created"
! !