Updated images

nmingotti · Aug 24, 2021 · dc9e19c · dc9e19c
1 parent 53a6c94
commit dc9e19c
Show file tree

Hide file tree

Showing 8 changed files with 343 additions and 14 deletions.
diff --git a/Cuis5.0-4805-32.changes → Cuis5.0-4808-32.changes b/Cuis5.0-4805-32.changes → Cuis5.0-4808-32.changes
@@ -204951,4 +204951,113 @@ volumeMenu
 
 ----End fileIn of C:\Users\Juan Vuletich\Cuis-Smalltalk\Cuis-Smalltalk-Dev\CoreUpdates\4805-DamageRecorder-fix-JuanVuletich-2021Aug24-16h28m-jmv.001.cs.st----!
 
-----QUIT----(24 August 2021 17:32:23) Cuis5.0-4805-32.image priorSource: 8582306!
+----QUIT----(24 August 2021 17:32:23) Cuis5.0-4805-32.image priorSource: 8582306!
+
+----STARTUP---- (24 August 2021 20:35:47) as C:\Users\Juan Vuletich\Cuis-Smalltalk\Cuis-Smalltalk-Dev\Cuis5.0-4805-32.image!
+
+!SystemDictionary methodsFor: 'snapshot and quit' stamp: 'jmv 8/24/2021 18:32:57'!
+     saveAndStayAs: newName clearAllClassState: clearAllStateFlag
+	"Save the image  under a new name. Don't quit.
+	See senders."
+
+	| newChangesName |
+	self currentChangesName ifNotNil: [ :oldChangesName |
+		self closeSourceFiles. "so copying the changes file will always work"
+		newChangesName _ self fullNameForChangesNamed: newName.
+		FileIOAccessor default copy: oldChangesName asFileEntry to: newChangesName asFileEntry.
+		ChangesInitialFileSize ifNotNil: [
+			oldChangesName asFileEntry appendStreamDo: [ :strm | strm truncate: ChangesInitialFileSize ]]].
+
+	ChangeSet zapAllChangeSets.
+	self 
+		changeImageNameTo: (self fullNameForImageNamed: newName);
+		closeSourceFiles; openSourceFiles;  "so SNAPSHOT appears in new changes file"
+		snapshot: true andQuit: false embedded: false clearAllClassState: clearAllStateFlag.! !
+!SystemDictionary methodsFor: 'snapshot and quit' stamp: 'jmv 8/24/2021 18:33:03'!
+                      saveAsNewReleaseAndStay
+	"Save the image/changes using the next available version number.
+	This is usually only used to prepare updated Cuis images for distribution."
+	"
+	Smalltalk saveAsNewReleaseAndStay
+	"
+	| fileName newName changesName systemVersion |
+	systemVersion _ SystemVersion current.
+	fileName _ String streamContents: [ :strm |
+		strm
+			nextPutAll: 'Cuis';
+			print: systemVersion versionMajor;
+			nextPut: $.;
+			print: systemVersion versionMinor;
+			nextPut: $-;
+			print: systemVersion highestUpdate.
+		Smalltalk isSpur
+			ifTrue: [	
+				Smalltalk wordSize = 4 ifTrue: [
+					strm nextPutAll: '-32' ]]
+			ifFalse: [
+				strm nextPutAll: '-v3' ]].
+	newName _ fileName, '.image'.
+	(DirectoryEntry smalltalkImageDirectory // newName) exists ifTrue: [
+		newName _ DirectoryEntry smalltalkImageDirectory
+			nextNameFor: fileName
+			extension: 'image' ].
+	changesName _ self fullNameForChangesNamed: newName.
+	"Check to see if there is a .changes file that would cause a problem if we saved a new .image file with the new version number"
+	changesName asFileEntry exists ifTrue: [
+		^ self inform:
+'There is already .changes file of the desired name,
+', changesName, '
+curiously already present, even though there is no
+corresponding .image file.
+Please remedy manually and then repeat your request.' ].
+	"Try to clear all user state, including all class vars, preferences, etc"
+	self saveAndStayAs: newName clearAllClassState: true! !
+
+----End fileIn of C:\Users\Juan Vuletich\Cuis-Smalltalk\Cuis-Smalltalk-Dev\CoreUpdates\4806-saveAsNewReleaseAndStay-JuanVuletich-2021Aug24-18h32m-jmv.001.cs.st----!
+!ChangeSet class methodsFor: 'change set to use' stamp: 'jmv 12/17/2018 10:05:42' prior: 50602094!
+                 installing: aCodePackageOrChangeSetName do: aBlock
+
+	| currentCS currentCSNumber newHighestUpdate |
+	Installing _ 'Install-', aCodePackageOrChangeSetName.
+	aBlock ensure: [ Installing _ nil ].
+	Smalltalk forceChangesToDisk.
+
+	SystemVersion current registerUpdate: aCodePackageOrChangeSetName.
+	newHighestUpdate _  SystemVersion current highestUpdate.
+
+	currentCSNumber _ self currentBaseCSNumber.
+	currentCS _ self changeSetForBaseSystem.
+	currentCS isEmpty ifTrue: [
+		ChangeSet removeChangeSet: currentCS.
+		currentCSNumber > newHighestUpdate ifFalse: [
+			CurrentBaseCSNumber _ newHighestUpdate + 1 ]]! !
+
+----End fileIn of C:\Users\Juan Vuletich\Cuis-Smalltalk\Cuis-Smalltalk-Dev\CoreUpdates\4807-MomentarilyRollBack-4803-JuanVuletich-2021Aug24-19h32m-jmv.001.cs.st----!
+
+'From Cuis 5.0 [latest update: #4806] on 24 August 2021 at 7:37:30 pm'!
+!MorphicCanvas methodsFor: 'private' stamp: 'jmv 8/24/2021 19:36:56' prior: 50559984!
+                          clippingByCurrentMorphDo: aBlock
+	"Do clipping only if currentMorph says so"
+
+	| prevClipRect prevClippingMorphRect |
+
+	currentMorph clipsSubmorphsReally ifFalse: [ ^aBlock value ].
+
+	prevClipRect _ self clipRect.
+	prevClippingMorphRect _ clippingMorphDisplayBounds.
+	"Might use the fact that currentMorph has just been drawn."
+	clippingMorphDisplayBounds _ self boundingRectOfCurrentMorphAfterDraw.
+	self setClipRect: (prevClipRect
+		ifNil: [clippingMorphDisplayBounds]
+		ifNotNil: [prevClipRect intersect: clippingMorphDisplayBounds]).
+	self clipCurrentMorph: true.
+	aBlock ensure: [
+		self clipCurrentMorph: false.
+		self setClipRect: prevClipRect.
+		clippingMorphDisplayBounds _ prevClippingMorphRect ]! !
+
+----End fileIn of C:\Users\Juan Vuletich\Cuis-Smalltalk\Cuis-Smalltalk-Dev\CoreUpdates\4808-clippingByCurrentMorphDo-fix-JuanVuletich-2021Aug24-19h36m-jmv.001.cs.st----!
+
+SmalltalkCompleter initialize !
+
+----QUIT----(24 August 2021 20:36:07) Cuis5.0-4808-32.image priorSource: 8661973!
diff --git a/Cuis5.0-4805-32.image → Cuis5.0-4808-32.image b/Cuis5.0-4805-32.image → Cuis5.0-4808-32.image
diff --git a/Cuis5.0-4805-v3.changes → Cuis5.0-4808-v3.changes b/Cuis5.0-4805-v3.changes → Cuis5.0-4808-v3.changes
@@ -205009,4 +205009,113 @@ volumeMenu
 
 ----End fileIn of C:\Users\Juan Vuletich\Cuis-Smalltalk\Cuis-Smalltalk-Dev\CoreUpdates\4805-DamageRecorder-fix-JuanVuletich-2021Aug24-16h28m-jmv.001.cs.st----!
 
-----QUIT----(24 August 2021 17:32:58) Cuis5.0-4805-v3.image priorSource: 8584834!
+----QUIT----(24 August 2021 17:32:58) Cuis5.0-4805-v3.image priorSource: 8584834!
+
+----STARTUP---- (24 August 2021 20:36:22) as C:\Users\Juan Vuletich\Cuis-Smalltalk\Cuis-Smalltalk-Dev\Cuis5.0-4805-v3.image!
+
+!SystemDictionary methodsFor: 'snapshot and quit' stamp: 'jmv 8/24/2021 18:32:57'!
+     saveAndStayAs: newName clearAllClassState: clearAllStateFlag
+	"Save the image  under a new name. Don't quit.
+	See senders."
+
+	| newChangesName |
+	self currentChangesName ifNotNil: [ :oldChangesName |
+		self closeSourceFiles. "so copying the changes file will always work"
+		newChangesName _ self fullNameForChangesNamed: newName.
+		FileIOAccessor default copy: oldChangesName asFileEntry to: newChangesName asFileEntry.
+		ChangesInitialFileSize ifNotNil: [
+			oldChangesName asFileEntry appendStreamDo: [ :strm | strm truncate: ChangesInitialFileSize ]]].
+
+	ChangeSet zapAllChangeSets.
+	self 
+		changeImageNameTo: (self fullNameForImageNamed: newName);
+		closeSourceFiles; openSourceFiles;  "so SNAPSHOT appears in new changes file"
+		snapshot: true andQuit: false embedded: false clearAllClassState: clearAllStateFlag.! !
+!SystemDictionary methodsFor: 'snapshot and quit' stamp: 'jmv 8/24/2021 18:33:03'!
+                      saveAsNewReleaseAndStay
+	"Save the image/changes using the next available version number.
+	This is usually only used to prepare updated Cuis images for distribution."
+	"
+	Smalltalk saveAsNewReleaseAndStay
+	"
+	| fileName newName changesName systemVersion |
+	systemVersion _ SystemVersion current.
+	fileName _ String streamContents: [ :strm |
+		strm
+			nextPutAll: 'Cuis';
+			print: systemVersion versionMajor;
+			nextPut: $.;
+			print: systemVersion versionMinor;
+			nextPut: $-;
+			print: systemVersion highestUpdate.
+		Smalltalk isSpur
+			ifTrue: [	
+				Smalltalk wordSize = 4 ifTrue: [
+					strm nextPutAll: '-32' ]]
+			ifFalse: [
+				strm nextPutAll: '-v3' ]].
+	newName _ fileName, '.image'.
+	(DirectoryEntry smalltalkImageDirectory // newName) exists ifTrue: [
+		newName _ DirectoryEntry smalltalkImageDirectory
+			nextNameFor: fileName
+			extension: 'image' ].
+	changesName _ self fullNameForChangesNamed: newName.
+	"Check to see if there is a .changes file that would cause a problem if we saved a new .image file with the new version number"
+	changesName asFileEntry exists ifTrue: [
+		^ self inform:
+'There is already .changes file of the desired name,
+', changesName, '
+curiously already present, even though there is no
+corresponding .image file.
+Please remedy manually and then repeat your request.' ].
+	"Try to clear all user state, including all class vars, preferences, etc"
+	self saveAndStayAs: newName clearAllClassState: true! !
+
+----End fileIn of C:\Users\Juan Vuletich\Cuis-Smalltalk\Cuis-Smalltalk-Dev\CoreUpdates\4806-saveAsNewReleaseAndStay-JuanVuletich-2021Aug24-18h32m-jmv.001.cs.st----!
+!ChangeSet class methodsFor: 'change set to use' stamp: 'jmv 12/17/2018 10:05:42' prior: 50602173!
+                 installing: aCodePackageOrChangeSetName do: aBlock
+
+	| currentCS currentCSNumber newHighestUpdate |
+	Installing _ 'Install-', aCodePackageOrChangeSetName.
+	aBlock ensure: [ Installing _ nil ].
+	Smalltalk forceChangesToDisk.
+
+	SystemVersion current registerUpdate: aCodePackageOrChangeSetName.
+	newHighestUpdate _  SystemVersion current highestUpdate.
+
+	currentCSNumber _ self currentBaseCSNumber.
+	currentCS _ self changeSetForBaseSystem.
+	currentCS isEmpty ifTrue: [
+		ChangeSet removeChangeSet: currentCS.
+		currentCSNumber > newHighestUpdate ifFalse: [
+			CurrentBaseCSNumber _ newHighestUpdate + 1 ]]! !
+
+----End fileIn of C:\Users\Juan Vuletich\Cuis-Smalltalk\Cuis-Smalltalk-Dev\CoreUpdates\4807-MomentarilyRollBack-4803-JuanVuletich-2021Aug24-19h32m-jmv.001.cs.st----!
+
+'From Cuis 5.0 [latest update: #4806] on 24 August 2021 at 7:37:30 pm'!
+!MorphicCanvas methodsFor: 'private' stamp: 'jmv 8/24/2021 19:36:56' prior: 50560063!
+                          clippingByCurrentMorphDo: aBlock
+	"Do clipping only if currentMorph says so"
+
+	| prevClipRect prevClippingMorphRect |
+
+	currentMorph clipsSubmorphsReally ifFalse: [ ^aBlock value ].
+
+	prevClipRect _ self clipRect.
+	prevClippingMorphRect _ clippingMorphDisplayBounds.
+	"Might use the fact that currentMorph has just been drawn."
+	clippingMorphDisplayBounds _ self boundingRectOfCurrentMorphAfterDraw.
+	self setClipRect: (prevClipRect
+		ifNil: [clippingMorphDisplayBounds]
+		ifNotNil: [prevClipRect intersect: clippingMorphDisplayBounds]).
+	self clipCurrentMorph: true.
+	aBlock ensure: [
+		self clipCurrentMorph: false.
+		self setClipRect: prevClipRect.
+		clippingMorphDisplayBounds _ prevClippingMorphRect ]! !
+
+----End fileIn of C:\Users\Juan Vuletich\Cuis-Smalltalk\Cuis-Smalltalk-Dev\CoreUpdates\4808-clippingByCurrentMorphDo-fix-JuanVuletich-2021Aug24-19h36m-jmv.001.cs.st----!
+
+SmalltalkCompleter initialize !
+
+----QUIT----(24 August 2021 20:36:46) Cuis5.0-4808-v3.image priorSource: 8664501!
diff --git a/Cuis5.0-4805-v3.image → Cuis5.0-4808-v3.image b/Cuis5.0-4805-v3.image → Cuis5.0-4808-v3.image
diff --git a/Cuis5.0-4805.changes → Cuis5.0-4808.changes b/Cuis5.0-4805.changes → Cuis5.0-4808.changes
@@ -341832,4 +341832,115 @@ volumeMenu
 
 ----End fileIn of C:\Users\Juan Vuletich\Cuis-Smalltalk\Cuis-Smalltalk-Dev\CoreUpdates\4805-DamageRecorder-fix-JuanVuletich-2021Aug24-16h28m-jmv.001.cs.st----!
 
-----QUIT----(24 August 2021 17:31:54) Cuis5.0-4805.image priorSource: 14133826!
+----QUIT----(24 August 2021 17:31:54) Cuis5.0-4805.image priorSource: 14133826!
+
+----STARTUP---- (24 August 2021 20:34:36) as C:\Users\Juan Vuletich\Cuis-Smalltalk\Cuis-Smalltalk-Dev\Cuis5.0-4805.image!
+
+
+SmalltalkCompleter initialize!
+!SystemDictionary methodsFor: 'snapshot and quit' stamp: 'jmv 8/24/2021 18:32:57'!
+          saveAndStayAs: newName clearAllClassState: clearAllStateFlag
+	"Save the image  under a new name. Don't quit.
+	See senders."
+
+	| newChangesName |
+	self currentChangesName ifNotNil: [ :oldChangesName |
+		self closeSourceFiles. "so copying the changes file will always work"
+		newChangesName _ self fullNameForChangesNamed: newName.
+		FileIOAccessor default copy: oldChangesName asFileEntry to: newChangesName asFileEntry.
+		ChangesInitialFileSize ifNotNil: [
+			oldChangesName asFileEntry appendStreamDo: [ :strm | strm truncate: ChangesInitialFileSize ]]].
+
+	ChangeSet zapAllChangeSets.
+	self 
+		changeImageNameTo: (self fullNameForImageNamed: newName);
+		closeSourceFiles; openSourceFiles;  "so SNAPSHOT appears in new changes file"
+		snapshot: true andQuit: false embedded: false clearAllClassState: clearAllStateFlag.! !
+!SystemDictionary methodsFor: 'snapshot and quit' stamp: 'jmv 8/24/2021 18:33:03'!
+                      saveAsNewReleaseAndStay
+	"Save the image/changes using the next available version number.
+	This is usually only used to prepare updated Cuis images for distribution."
+	"
+	Smalltalk saveAsNewReleaseAndStay
+	"
+	| fileName newName changesName systemVersion |
+	systemVersion _ SystemVersion current.
+	fileName _ String streamContents: [ :strm |
+		strm
+			nextPutAll: 'Cuis';
+			print: systemVersion versionMajor;
+			nextPut: $.;
+			print: systemVersion versionMinor;
+			nextPut: $-;
+			print: systemVersion highestUpdate.
+		Smalltalk isSpur
+			ifTrue: [	
+				Smalltalk wordSize = 4 ifTrue: [
+					strm nextPutAll: '-32' ]]
+			ifFalse: [
+				strm nextPutAll: '-v3' ]].
+	newName _ fileName, '.image'.
+	(DirectoryEntry smalltalkImageDirectory // newName) exists ifTrue: [
+		newName _ DirectoryEntry smalltalkImageDirectory
+			nextNameFor: fileName
+			extension: 'image' ].
+	changesName _ self fullNameForChangesNamed: newName.
+	"Check to see if there is a .changes file that would cause a problem if we saved a new .image file with the new version number"
+	changesName asFileEntry exists ifTrue: [
+		^ self inform:
+'There is already .changes file of the desired name,
+', changesName, '
+curiously already present, even though there is no
+corresponding .image file.
+Please remedy manually and then repeat your request.' ].
+	"Try to clear all user state, including all class vars, preferences, etc"
+	self saveAndStayAs: newName clearAllClassState: true! !
+
+----End fileIn of C:\Users\Juan Vuletich\Cuis-Smalltalk\Cuis-Smalltalk-Dev\CoreUpdates\4806-saveAsNewReleaseAndStay-JuanVuletich-2021Aug24-18h32m-jmv.001.cs.st----!
+!ChangeSet class methodsFor: 'change set to use' stamp: 'jmv 12/17/2018 10:05:42' prior: 50775579!
+                 installing: aCodePackageOrChangeSetName do: aBlock
+
+	| currentCS currentCSNumber newHighestUpdate |
+	Installing _ 'Install-', aCodePackageOrChangeSetName.
+	aBlock ensure: [ Installing _ nil ].
+	Smalltalk forceChangesToDisk.
+
+	SystemVersion current registerUpdate: aCodePackageOrChangeSetName.
+	newHighestUpdate _  SystemVersion current highestUpdate.
+
+	currentCSNumber _ self currentBaseCSNumber.
+	currentCS _ self changeSetForBaseSystem.
+	currentCS isEmpty ifTrue: [
+		ChangeSet removeChangeSet: currentCS.
+		currentCSNumber > newHighestUpdate ifFalse: [
+			CurrentBaseCSNumber _ newHighestUpdate + 1 ]]! !
+
+----End fileIn of C:\Users\Juan Vuletich\Cuis-Smalltalk\Cuis-Smalltalk-Dev\CoreUpdates\4807-MomentarilyRollBack-4803-JuanVuletich-2021Aug24-19h32m-jmv.001.cs.st----!
+
+'From Cuis 5.0 [latest update: #4806] on 24 August 2021 at 7:37:30 pm'!
+!MorphicCanvas methodsFor: 'private' stamp: 'jmv 8/24/2021 19:36:56' prior: 50733470!
+                          clippingByCurrentMorphDo: aBlock
+	"Do clipping only if currentMorph says so"
+
+	| prevClipRect prevClippingMorphRect |
+
+	currentMorph clipsSubmorphsReally ifFalse: [ ^aBlock value ].
+
+	prevClipRect _ self clipRect.
+	prevClippingMorphRect _ clippingMorphDisplayBounds.
+	"Might use the fact that currentMorph has just been drawn."
+	clippingMorphDisplayBounds _ self boundingRectOfCurrentMorphAfterDraw.
+	self setClipRect: (prevClipRect
+		ifNil: [clippingMorphDisplayBounds]
+		ifNotNil: [prevClipRect intersect: clippingMorphDisplayBounds]).
+	self clipCurrentMorph: true.
+	aBlock ensure: [
+		self clipCurrentMorph: false.
+		self setClipRect: prevClipRect.
+		clippingMorphDisplayBounds _ prevClippingMorphRect ]! !
+
+----End fileIn of C:\Users\Juan Vuletich\Cuis-Smalltalk\Cuis-Smalltalk-Dev\CoreUpdates\4808-clippingByCurrentMorphDo-fix-JuanVuletich-2021Aug24-19h36m-jmv.001.cs.st----!
+
+SmalltalkCompleter initialize !
+
+----QUIT----(24 August 2021 20:35:32) Cuis5.0-4808.image priorSource: 14213493!
diff --git a/Cuis5.0-4805.image → Cuis5.0-4808.image b/Cuis5.0-4805.image → Cuis5.0-4808.image
diff --git a/Documentation/GettingStarted-NoCommandLine.md b/Documentation/GettingStarted-NoCommandLine.md
@@ -8,7 +8,7 @@ What follows are instructions for setting up Cuis on Windows or Mac OS X without
 * extract the contents of the zip file right there ("extract here")
 * download [`squeak.cog.spur_win32x86_202003021730.zip`](https://github.com/OpenSmalltalk/opensmalltalk-vm/releases/download/202003021730/squeak.cog.spur_win32x86_202003021730.zip), saving it to yourFolder\Cuis-Smalltalk-Dev-master\ (the folder that was just created while extracting the first zip file).
 * extract the contents of the zip file right there ("extract here")
-* drop the Cuis5.0-4805-32.image over the Squeak.exe file. Alternatively, double click on the Squeak.exe file, and when prompted to select an image file, select Cuis5.0-4805-32.image.
+* drop the Cuis5.0-4808-32.image over the Squeak.exe file. Alternatively, double click on the Squeak.exe file, and when prompted to select an image file, select Cuis5.0-4808-32.image.
 * If you get a message like "This publisher could not be verified. Are you sure you want to run this software?", then untag "Always ask before opening this file" (if present) and click [Run].
 * If you get a message like "Windows protected your PC", then click on "More info", and click [Run anyway].
 
@@ -19,10 +19,10 @@ What follows are instructions for setting up Cuis on Windows or Mac OS X without
 * download [`squeak.cog.spur_macos64x64_202003021730.dmg`](https://github.com/OpenSmalltalk/opensmalltalk-vm/releases/download/202003021730/squeak.cog.spur_macos64x64_202003021730.dmg), saving it to your folder
 * double click on the dmg file
 * Drag Squeak to your folder
-* drop the Cuis5.0-4805.image over the Squeak.app file
+* drop the Cuis5.0-4808.image over the Squeak.app file
 * If you get "Squeak is an app downloaded from the Internet. Are you sure you want to open it?", click on [Open]
 
 ## Troubleshooting ##
-* If you can't find Cuis5.0-4805.image, then this document is outdated. Use the Cuis image with the latest update number available.
+* If you can't find Cuis5.0-4808.image, then this document is outdated. Use the Cuis image with the latest update number available.
 * If you can't find the Squeak Cog Spur VM specified, then this document is outdated. Use the the Squeak Cog Spur VM for your platform with the latest Date and Time available from https://github.com/OpenSmalltalk/opensmalltalk-vm/releases/latest or http://opensmalltalk.org/
 * If you can't get Cuis to run on your system after trying the above instructions, send mail to the Cuis-Dev mail list. Please give enough detail of your system, what you tried, and any error messages you got.