[Cuis-dev] changeset. Improvement on #askForSaveOnQuit

[Nicola Mingotti]

Hi Juan, guys,

I made a little modification to the #askForSaveOnQuit related procedure.

Now it does not ask  " ....unsaved packages .... ". It just quits.
Which is what I desired :)


bye
Nicola



-------------- next part --------------
An HTML attachment was scrubbed...
URL: <http://lists.cuis.st/mailman/archives/cuis-dev/attachments/20210815/225678e5/attachment.htm>
-------------- next part --------------
'From Cuis 5.0 [latest update: #4749] on 15 August 2021 at 12:21:21 pm'!

!SystemDictionary methodsFor: 'snapshot and quit' stamp: 'NM 8/15/2021 12:20:15'!
snapshot: save andQuit: quit clearAllClassState: clearAllStateFlag
	save
		ifTrue: [
			self okayToSave ifFalse: [ ^ self ].
			ChangeSet zapAllChangeSets ]
		ifFalse: [
			quit ifTrue: [
				(Preferences askForSaveOnQuit not  or: [ self okayToDiscardUnsavedCode]) ifFalse: [ ^ self ]]].
	^ self
		snapshot: save
		andQuit: quit
		embedded: false
		clearAllClassState: clearAllStateFlag! !