Karl Ramberg uploaded a new version of EToys to project The Trunk:
http://source.squeak.org/trunk/EToys-kfr.330.mcz
==================== Summary ====================
Name: EToys-kfr.330
Author: kfr
Time: 26 May 2018, 11:55:21.200868 am
UUID: 6d9d29a4-708f-e540-a815-584b7d42115e
Ancestors: EToys-mt.329
Player had a send to deprecated Smalltalk>>removeKey:ifAbsent:
=============== Diff against EToys-mt.329 ===============
Item was changed:
----- Method: Player class>>freeUnreferencedSubclasses (in category 'housekeeping') -----
freeUnreferencedSubclasses
"Player classes may hold in their class instance variables references
to instances of themselves that are housekeepingwise unreachable. This
method allows such loops to be garbage collected. This is done in three
steps:
1. Remove user-created subclasses from the 'subclasses' set and from
Smalltalk. Only remove classes whose name begins with 'Player' and which
have no references.
2. Do a full garbage collection.
3. Enumerate all Metaclasses and find those whose soleInstance's
superclass is this class. Reset the subclasses set to this set of
classes, and add back to Smalltalk."
"Player freeUnreferencedSubclasses"
| oldFree candidatesForRemoval class |
oldFree := Smalltalk garbageCollect.
candidatesForRemoval := self subclasses asOrderedCollection select:
[:aClass | (aClass name beginsWith: 'Player') and: [aClass name
endsWithDigit]].
"Break all system links and then perform garbage collection."
candidatesForRemoval do:
[:c | self removeSubclass: c. "Break downward subclass pointers."
+ Smalltalk globals removeKey: c name ifAbsent: []. "Break binding of global
- Smalltalk removeKey: c name ifAbsent: []. "Break binding of global
name"].
candidatesForRemoval := nil.
Smalltalk garbageCollect. "Now this should reclaim all unused
subclasses"
"Now reconstruct system links to subclasses with valid references."
"First restore any global references via associations"
(Association allSubInstances select:
[:assn | (assn key isSymbol)
and: [(assn key beginsWith: 'Player')
and: [assn key endsWithDigit]]])
do: [:assn | class := assn value.
(class isKindOf: self class) ifTrue:
[self addSubclass: class.
Smalltalk add: assn]].
"Then restore any further direct references, creating new
associations."
(Metaclass allInstances select:
[:m | (m soleInstance name beginsWith: 'Player')
and: [m soleInstance name endsWithDigit]])
do: [:m | class := m soleInstance.
((class isKindOf: self class) and: [(Smalltalk includesKey: class
name) not]) ifTrue:
[self addSubclass: class.
Smalltalk at: class name put: class]].
SystemOrganization removeMissingClasses.
^ Smalltalk garbageCollect - oldFree
!
Hi all--
You might like to see this quick look at 3D in Caffeine, using
SqueakJS, CSS and Web3D.
https://youtu.be/KNv5i8KyjGM
thanks!
-C
--
Craig Latta
Black Page Digital
Amsterdam :: San Francisco
craig(a)blackpagedigital.com
+31 6 2757 7177 (SMS ok)
+ 1 415 287 3547 (no SMS)
As part of the upcoming 5.2 I decide migrate all my odds experiments to it
changing as little as possible.
Start on Mac and today wish to continue on Linux
My flavor is Ubuntu Mate 16LTS
The only Squeak downloadoable via synaptic is old Stack Vm from Ian.
Which is fine as almost all I use daily is customized 4.5 updated to before
Cog (near to 4.6 final)
The point is when you download from
http://ftp.squeak.org/6.0alpha/Squeak6.0alpha-17967-32bit/Squeak6.0alpha-179
67-32bit-All-in-One.zip
Or
http://ftp.squeak.org/6.0alpha/Squeak6.0alpha-17967-32bit/Squeak6.0alpha-179
67-32bit-201712221331-Linux.zip
Have troubles when unzipped to another folder as Desktop
Also the .sh fails if you manually move the X.image and X.changes you made
in Mac to the buried folders, being the All in One the Resources.
Why is this ?
And if you touch manually some inside stop working
Help , Linux people
Edgar
@morplenauta
Marcel Taeumel uploaded a new version of ReleaseBuilder to project The Trunk:
http://source.squeak.org/trunk/ReleaseBuilder-mt.184.mcz
==================== Summary ====================
Name: ReleaseBuilder-mt.184
Author: mt
Time: 25 May 2018, 10:06:40.125844 am
UUID: 93aa5eff-5938-ca4c-97f2-1cfff9337924
Ancestors: ReleaseBuilder-mt.183
Updates the commit-message file-out code to be used as helper for writing the release notes.
Just call "ReleaseBuilder fileOutChangesBetweenReleases" and look for a new "*.md" file in your working directory.
=============== Diff against ReleaseBuilder-mt.183 ===============
Item was changed:
----- Method: ReleaseBuilder class>>changesBetweenReleases (in category 'scripts - support') -----
changesBetweenReleases
| repos configs result |
+ repos :=#(51) collect: [:ea |
- repos :=#(41 42 43 44 45 50) collect: [:ea |
(MCHttpRepository
location: 'http://source.squeak.org/squeak', ea
user: 'squeak'
password: 'squeak')].
configs := repos collect: [:ea | ea description -> (self firstConfigurationIn: ea map: 'update')].
configs := configs, {(self buildRepository description -> self buildConfiguration)}.
result := OrderedDictionary new.
configs overlappingPairsDo: [:c1 :c2 |
result
at: c2 key
put: (self changesBetween: c1 value and: c2 value)].
^ result
!