Review Request: ChangeSetNamesInRelease61.1.cs
Christoph Thiede via Squeak-dev <[email protected]> Wed, 29 Jul 2026 03:45:46 +0200
| Newsgroups | gmane.comp.lang.smalltalk.squeak.general |
|---|---|
| Message-ID | <fe03caa1-dd1f-4711-a2e5-4ce44deb6634@MX2025-DAG1.hpi.uni-potsdam.de> |
--==CelesteAttachment71672==
Content-Type: multipart/alternative; boundary="==CelesteAttachment30640=="
--==CelesteAttachment30640==
Content-Transfer-Encoding: quoted-printable
Content-Type: text/plain; charset="UTF-8"
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D Summary =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D
Change Set:=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0ChangeSetNamesInRelease61
Date:=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A029 July 2026
Author:=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0Christoph Thiede
FWIW, updates and restores mechanism for populating ChangeSetsInRelease (=
used by the change sorter to order pre-configured projects last) and depr=
ecates the ancient #changeSetNamesInThreeOh.
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D Diff =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D
ChangesOrganizer class>>belongsInProjectsInRelease: {class initialization=
} =C2=B7 ct 7/28/2026 23:59 (changed)
belongsInProjectsInRelease: aChangeSet
- =C2=A0=C2=A0=C2=A0=C2=A0"Answer whether a change set belongs in the ProjectsInRelease c=
ategory. You can hand-tweak this to suit your working style. This just co=
vers the space of project names in the 2.9, 3.0, and 3.1a systems"
+ =C2=A0=C2=A0=C2=A0=C2=A0"Answer whether a change set belongs in the ProjectsInRelease c=
ategory. You can hand-tweak this to suit your working style."
- =C2=A0=C2=A0=C2=A0=C2=A0| aString |
- =C2=A0=C2=A0=C2=A0=C2=A0^ ((aString :=3D aChangeSet name) beginsWith: 'Play With Me') or:=
[self changeSetNamesInReleaseImage includes: aString]
+ =C2=A0=C2=A0=C2=A0=C2=A0^ (#('RootProject HomeProject') includes: aChangeSet name)
+ =C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0or: [self changeSetNamesInReleaseImage includes: aChang=
eSet name]
ChangesOrganizer class>>changeSetNamesInReleaseImage {class initializatio=
n} =C2=B7 ct 7/29/2026 00:01 (changed)
changeSetNamesInReleaseImage
=C2=A0=C2=A0=C2=A0=C2=A0"Answer a list of names of project change sets that come pre-ship=
ped in the latest sytem release. On the brink of shipping a new release, =
call 'ChangeSorter noteChangeSetsInRelease' "
=C2=A0=C2=A0=C2=A0=C2=A0^ ChangeSetNamesInRelease ifNil:
- =C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0[ChangeSetNamesInRelease :=3D self changeSetNamesInThreeO=
h]
+ =C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0[ChangeSetNamesInRelease :=3D (Smalltalk at: #ObjectlandM=
orph)
+ =C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0ifNil: [#()]
+ =C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0ifNotNil: [:ObjectlandMorph | ObjectlandMorph p=
rojectNames]]
ChangesOrganizer class>>changeSetNamesInThreeOh {class initialization} =C2=B7=
ct 7/29/2026 00:00 (changed)
changeSetNamesInThreeOh
=C2=A0=C2=A0=C2=A0=C2=A0"Hard-coded: answer a list of names of project change sets that c=
ame pre-shipped in Squeak 3.0"
+ =C2=A0=C2=A0=C2=A0=C2=A0self deprecated: 'Maybe you want #changeSetNamesInReleaseImage'=
.
=C2=A0=C2=A0=C2=A0=C2=A0^ #('The Worlds of Squeak' 'Fun with Morphic' 'Games' 'Fun With M=
usic' 'Building with Squeak' 'Squeak and the Internet' 'Squeak in 3D' 'Mo=
re About Sound' )
ObjectlandMorph class>>projectNames {support} =C2=B7 ct 7/28/2026 23:57
+ projectNames
+
+ =C2=A0=C2=A0=C2=A0=C2=A0^ {'The Worlds of Squeak!' translated.
+ =C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0'Fun with Etoys' translated.
+ =C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0'Fun with Games' translated.
+ =C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0'Fun with Graphics' translated.
+ =C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0'Fun with Sounds' translated.
+ =C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0'Fun with Tools' translated}
ReleaseBuilder class>>prepareEnvironment {preparing} =C2=B7 ct 7/29/2026 00:0=
2 (changed)
prepareEnvironment
=C2=A0=C2=A0=C2=A0=C2=A0"Prepare everything that should be done for a new image build. Cl=
ear caches, passwords, etc. Note that this will be called automatically i=
n the CI on github.com/squeak-smalltalk/squeak-app."
=C2=A0=C2=A0=C2=A0=C2=A0
=C2=A0=C2=A0=C2=A0=C2=A0| balloon |
=C2=A0=C2=A0=C2=A0=C2=A0
=C2=A0=C2=A0=C2=A0=C2=A0self
=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0clearCaches;
=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0configureProjects;
=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0configureTools;
=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0setPreferences;
=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0clearPreferenceCaches;
=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0configureDesktop.
=C2=A0=C2=A0=C2=A0=C2=A0
=C2=A0=C2=A0=C2=A0=C2=A0balloon :=3D self getBalloonForm. "Get now because later the file m=
ight be missing."
=C2=A0=C2=A0=C2=A0=C2=A0DeferredTask :=3D [
=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0DisplayScreen checkForNewScreenScaleFactor.
=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0self openWelcomeWorkspacesWith: (balloon ifNotNil: [ballo=
on scaleFormToDisplay]).
=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0ObjectlandMorph openObjectlandStarter.
+ =C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0ChangesOrganizer noteChangeSetsInRelease.
=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0PreferenceWizardMorph open].
=C2=A0=C2=A0=C2=A0=C2=A0
=C2=A0=C2=A0=C2=A0=C2=A0"If you save-and-quit the image after calling #prepareEnvironment=
, ensure that the next image startup will be fast."
=C2=A0=C2=A0=C2=A0=C2=A0Project current world doOneCycle.
=C2=A0=C2=A0=C2=A0=C2=A0Display platformScaleFactor: nil; platformScaleFactor: 1.0.
--
Sent from Squeak Inbox Talk
--==CelesteAttachment30640==
Content-Transfer-Encoding: quoted-printable
Content-Type: text/html; charset="UTF-8"
<b>=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D Summary =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D</b><br>
<br>
Change Set: ChangeSetNames=
InRelease61<br>
Date: &n=
bsp;29 July 2026<br>
Author: =
Christoph Thiede<br>
<br>
FWIW, updates and restores mechanism for populating ChangeSetsInRelease (=
used by the change sorter to order pre-configured projects last) and depr=
ecates the ancient #changeSetNamesInThreeOh.<br>
<br>
<b>=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D Diff =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D</b><br>
<br>
<b>ChangesOrganizer class>>belongsInProjectsInRelease: {class initi=
alization} · ct 7/28/2026 23:59 (changed)</b><br>
belongsInProjectsInRelease: aChangeSet<br>
<s><font color=3D"#0000FF">- "Answer whether a=
change set belongs in the ProjectsInRelease category. You can hand-tweak=
this to suit your working style. This just covers the space of project n=
ames in the 2.9, 3.0, and 3.1a systems"<br>
</font></s><font color=3D"#FF0000">+ "Answer w=
hether a change set belongs in the ProjectsInRelease category. You can ha=
nd-tweak this to suit your working style."<br>
</font><br>
<s><font color=3D"#0000FF">- | aString |<br>
- ^ ((aString :=3D aChangeSet name) beginsWith: &ap=
os;Play With Me') or: [self changeSetNamesInReleaseImage includes: a=
String]<br>
</font></s><font color=3D"#FF0000">+ ^ (#('Roo=
tProject HomeProject') includes: aChangeSet name)<br>
+ or: [self changeSetName=
sInReleaseImage includes: aChangeSet name]</font><br>
<br>
<b>ChangesOrganizer class>>changeSetNamesInReleaseImage {class init=
ialization} · ct 7/29/2026 00:01 (changed)</b><br>
changeSetNamesInReleaseImage<br>
"Answer a list of names of project change se=
ts that come pre-shipped in the latest sytem release. On the brink of shi=
pping a new release, call 'ChangeSorter noteChangeSetsInRelease&apos=
; "<br>
<br>
^ ChangeSetNamesInRelease ifNil:<br>
<s><font color=3D"#0000FF">- &nbs=
p;[ChangeSetNamesInRelease :=3D self changeSetNamesInThreeOh]<br>
</font></s><font color=3D"#FF0000">+ &n=
bsp; [ChangeSetNamesInRelease :=3D (Smalltalk at: #ObjectlandMorph)<br=
>
+  =
;ifNil: [#()]<br>
+  =
;ifNotNil: [:ObjectlandMorph | ObjectlandMorph projectNames]]</font><br>
<br>
<b>ChangesOrganizer class>>changeSetNamesInThreeOh {class initializ=
ation} · ct 7/29/2026 00:00 (changed)</b><br>
changeSetNamesInThreeOh<br>
"Hard-coded: answer a list of names of proje=
ct change sets that came pre-shipped in Squeak 3.0"<br>
<br>
<font color=3D"#FF0000">+ self deprecated: 'Ma=
ybe you want #changeSetNamesInReleaseImage'.<br>
</font> ^ #('The Worlds of Squeak' &apos=
;Fun with Morphic' 'Games' 'Fun With Music' &apo=
s;Building with Squeak' 'Squeak and the Internet' 'Sq=
ueak in 3D' 'More About Sound' ) <br>
<br>
<b>ObjectlandMorph class>>projectNames {support} · ct 7/28/2=
026 23:57</b><br>
<font color=3D"#FF0000">+ projectNames<br>
+ <br>
+ ^ {'The Worlds of Squeak!' translated=
.<br>
+ 'Fun with Etoys&ap=
os; translated.<br>
+ 'Fun with Games&ap=
os; translated.<br>
+ 'Fun with Graphics=
' translated.<br>
+ 'Fun with Sounds&a=
pos; translated.<br>
+ 'Fun with Tools&ap=
os; translated}</font><br>
<br>
<b>ReleaseBuilder class>>prepareEnvironment {preparing} · ct=
7/29/2026 00:02 (changed)</b><br>
prepareEnvironment<br>
"Prepare everything that should be done for =
a new image build. Clear caches, passwords, etc. Note that this will be c=
alled automatically in the CI on github.com/squeak-smalltalk/squeak-app.&=
quot;<br>
<br>
| balloon |<br>
<br>
self<br>
clearCaches;<br>
configureProjects;<br>
configureTools;<br>
setPreferences;<br>
clearPreferenceCaches;<br=
>
configureDesktop.<br>
<br>
balloon :=3D self getBalloonForm. "Get now bec=
ause later the file might be missing."<br>
DeferredTask :=3D [<br>
DisplayScreen checkForNew=
ScreenScaleFactor.<br>
self openWelcomeWorkspace=
sWith: (balloon ifNotNil: [balloon scaleFormToDisplay]).<br>
ObjectlandMorph openObjec=
tlandStarter.<br>
<font color=3D"#FF0000">+ C=
hangesOrganizer noteChangeSetsInRelease.<br>
</font> PreferenceWizardMo=
rph open].<br>
<br>
"If you save-and-quit the image after callin=
g #prepareEnvironment, ensure that the next image startup will be fast.&q=
uot;<br>
Project current world doOneCycle.<br>
Display platformScaleFactor: nil; platformScaleFa=
ctor: 1.0.<br>
<br>
<br>
<font color=3D"#808080">-- <br>
</font><font color=3D"#808080"><i>Sent from </i></font><font color=3D"#808080=
"><i><a href=3D"https://github.com/hpi-swa-lab/squeak-inbox-talk"><u><font =
color=3D"#808080">Squeak Inbox Talk</font></u></a></i></font>
--==CelesteAttachment30640==--
--==CelesteAttachment71672==
Content-Transfer-Encoding: quoted-printable
Content-Disposition: attachment; filename="ChangeSetNamesInRelease61.1.cs"
Content-Type: text/squeak-changes; name="ChangeSetNamesInRelease61.1.cs"
'From Squeak6.1rc1 of 27 July 2026 [latest update: #23918] on 29 July 202=
6 at 12:04:41 am'!
"Change Set: ChangeSetNamesInRelease61
Date: 29 July 2026
Author: Christoph Thiede
FWIW, updates and restores mechanism for populating ChangeSetsInRelease (=
used by the change sorter to order pre-configured projects last) and depr=
ecates the ancient #changeSetNamesInThreeOh."!
!ChangesOrganizer class methodsFor: 'class initialization' stamp: 'ct 7/2=
8/2026 23:59'!
belongsInProjectsInRelease: aChangeSet
"Answer whether a change set belongs in the ProjectsInRelease category. =
You can hand-tweak this to suit your working style."
^ (#('RootProject HomeProject') includes: aChangeSet name)
or: [self changeSetNamesInReleaseImage includes: aChangeSet name]! !
!ChangesOrganizer class methodsFor: 'class initialization' stamp: 'ct 7/2=
9/2026 00:01'!
changeSetNamesInReleaseImage
"Answer a list of names of project change sets that come pre-shipped in =
the latest sytem release. On the brink of shipping a new release, call '=
ChangeSorter noteChangeSetsInRelease' "
^ ChangeSetNamesInRelease ifNil:
[ChangeSetNamesInRelease :=3D (Smalltalk at: #ObjectlandMorph)
ifNil: [#()]
ifNotNil: [:ObjectlandMorph | ObjectlandMorph projectNames]]! !
!ChangesOrganizer class methodsFor: 'class initialization' stamp: 'ct 7/2=
9/2026 00:00'!
changeSetNamesInThreeOh
"Hard-coded: answer a list of names of project change sets that came pre=
-shipped in Squeak 3.0"
self deprecated: 'Maybe you want #changeSetNamesInReleaseImage'.
^ #('The Worlds of Squeak' 'Fun with Morphic' 'Games' 'Fun With Music' '=
Building with Squeak' 'Squeak and the Internet' 'Squeak in 3D' 'More Abou=
t Sound' ) ! !
!ObjectlandMorph class methodsFor: 'support' stamp: 'ct 7/28/2026 23:57'!=
projectNames
^ {'The Worlds of Squeak!!' translated.
'Fun with Etoys' translated.
'Fun with Games' translated.
'Fun with Graphics' translated.
'Fun with Sounds' translated.
'Fun with Tools' translated}! !
!ReleaseBuilder class methodsFor: 'preparing' stamp: 'ct 7/29/2026 00:02'=
!
prepareEnvironment
"Prepare everything that should be done for a new image build. Clear cac=
hes, passwords, etc. Note that this will be called automatically in the C=
I on github.com/squeak-smalltalk/squeak-app."
| balloon |
self
clearCaches;
configureProjects;
configureTools;
setPreferences;
clearPreferenceCaches;
configureDesktop.
balloon :=3D self getBalloonForm. "Get now because later the file might be=
missing."
DeferredTask :=3D [
DisplayScreen checkForNewScreenScaleFactor.
self openWelcomeWorkspacesWith: (balloon ifNotNil: [balloon scaleFormTo=
Display]).
ObjectlandMorph openObjectlandStarter.
ChangesOrganizer noteChangeSetsInRelease.
PreferenceWizardMorph open].
"If you save-and-quit the image after calling #prepareEnvironment, ensur=
e that the next image startup will be fast."
Project current world doOneCycle.
Display platformScaleFactor: nil; platformScaleFactor: 1.0.! !
--==CelesteAttachment71672==
Content-Type: text/plain; charset="us-ascii"
MIME-Version: 1.0
Content-Transfer-Encoding: 7bit
Content-Disposition: inline
Squeak-dev mailing list -- [email protected]
To unsubscribe send an email to [email protected]
--==CelesteAttachment71672==--