Squeak-dev October 2022

squeak-dev@lists.squeakfoundation.org

22 participants
145 discussions

The Trunk: MorphicExtras-ct.336.mcz
by commits＠source.squeak.org 18 Oct '22

18 Oct '22

Christoph Thiede uploaded a new version of MorphicExtras to project The Trunk: http://source.squeak.org/trunk/MorphicExtras-ct.336.mcz ==================== Summary ==================== Name: MorphicExtras-ct.336 Author: ct Time: 18 October 2022, 1:02:37.357471 pm UUID: 1499f112-9679-fb44-b0fc-112c9d85d772 Ancestors: MorphicExtras-ct.335 Readds the classical BlobMorph by David N Smith. It can be instantiated from the Demo page of the parts bin. The BlobMorph was part of Squeak until Squeak 3.9.1 after when it was removed as part of a radical clean-up of not used classes (see ReleaseBuilderFor3dot10>>unloadMorphicClasses). Since it has historic value, still makes a nice example, all of its siblings (FishEyeMorph, MovingEyeMorph, et al.) have been readded again, too, and the MorphicExtras package is intended to be unloadable anyway, it makes sense to add it again. Minor revisions: * Converts underscore assignments to modern := assignments while preserving the prior timestamps (I hope that was ok?) * Adds support for Squeak 6.0+ scaleFactor * Fixes an event handling bug in #containsPoint: Thanks to Marcel for the pointer! =============== Diff against MorphicExtras-ct.335 =============== Item was added: + PolygonMorph subclass: #BlobMorph + instanceVariableNames: 'random velocity sneaky' + classVariableNames: 'AllBlobs' + poolDictionaries: '' + category: 'MorphicExtras-Demo'! + + !BlobMorph commentStamp: 'ct 10/18/2022 12:44' prior: 0! + The Blob was written by David N Smith. It started out as a simple test of the CurveMorph and ended up as an oozing, pulsating, repulsive mess which will wander across your screen until killed. Each instance has its own rate of oozing, so some are faster than others. It's not good for anything. + + Try: + BlobMorph new openInWorld + + 15 Jan 2000 by Bob Arning, a change so that the blob tries to be a color like the color under itself. + 16 Jan 2000 by David N Smith, added blob merging: if two blobs meet then one eats the other. + 18 Jan 2000 by Sean McGrath, smother color changes. + 06 Feb 2000 by Stefan Matthias Aust, refactoring and support for duplication, dragging and translucent colors.! Item was added: + ----- Method: BlobMorph class>>delete: (in category 'instance remembering') ----- + delete: anInstance + AllBlobs ifNotNil: [AllBlobs remove: anInstance ifAbsent: []]! Item was added: + ----- Method: BlobMorph class>>descriptionForPartsBin (in category 'parts bin') ----- + descriptionForPartsBin + ^ self partName: 'Blob' + categories: #('Demo') + documentation: 'A patch of primordial slime'! Item was added: + ----- Method: BlobMorph class>>new (in category 'instance creation') ----- + new + + ^ self remember: super new + ! Item was added: + ----- Method: BlobMorph class>>remember: (in category 'instance remembering') ----- + remember: anInstance + AllBlobs isNil ifTrue: [AllBlobs := IdentitySet new]. + ^ AllBlobs add: anInstance! Item was added: + ----- Method: BlobMorph>>adjustColors (in category 'stepping') ----- + adjustColors + "Bob Arning <arning(a)charm.net>" + "Color mixing - Sean McGrath <sean(a)email.ces.ucsf.edu>" + | nearbyColors center r degrees | + center := bounds center. + nearbyColors := vertices collect: + [:each | + degrees := (each - center) degrees. + r := (each - center) r. + Display colorAt: (Point r: r + 6 px degrees: degrees) + center]. + self color: ((self color alphaMixed: 0.95 with: (Color + r: (nearbyColors collect: [:each | each red]) average + g: (nearbyColors collect: [:each | each green]) average + b: (nearbyColors collect: [:each | each blue]) average)) + alpha: self color alpha). + sneaky ifFalse: [self color: color negated]! Item was added: + ----- Method: BlobMorph>>bounceOffWalls (in category 'stepping') ----- + bounceOffWalls + " Change sign of velocity when we hit a wall of the container " + | ob sb | + + " If owned by a handmorph we're being dragged or something; + don't bounce since the boundaries are different than our real parent " + owner isHandMorph ifTrue: [ ^ self ]. + + " If we're entirely within the parents bounds, we don't bounce " + ob := owner bounds. + sb := self bounds. + (ob containsRect: sb) ifTrue: [ ^ self ]. + + " We're partly outside the parents bounds; better bounce or we disappear!! " + sb top < ob top ifTrue: [ velocity := velocity x @ velocity y abs ]. + sb left < ob left ifTrue: [ velocity := velocity x abs @ velocity y ]. + sb bottom > ob bottom ifTrue: [ velocity := velocity x @ velocity y abs negated ]. + sb right > ob right ifTrue: [ velocity := velocity x abs negated @ velocity y ]. + ! Item was added: + ----- Method: BlobMorph>>containsPoint: (in category 'geometry testing') ----- + containsPoint: aPoint + (self color alpha = 1.0 or: [self currentEvent blueButtonPressed]) + ifTrue: [^ super containsPoint: aPoint]. + ^ false! Item was added: + ----- Method: BlobMorph>>defaultColor (in category 'initialization') ----- + defaultColor + "answer the default color/fill style for the receiver" + ^ random next < 0.25 + ifTrue: [Color random] + ifFalse: [Color random alpha: random next * 0.4 + 0.4]! Item was added: + ----- Method: BlobMorph>>delete (in category 'submorphs - add/remove') ----- + delete + self class delete: self. + super delete! Item was added: + ----- Method: BlobMorph>>initialize (in category 'initialization') ----- + initialize + "initialize the state of the receiver" + random := Random new. + sneaky := random next < 0.75. + super initialize. + "" + self beSmoothCurve; initializeBlobShape; setVelocity! Item was added: + ----- Method: BlobMorph>>initializeBlobShape (in category 'initialization') ----- + initializeBlobShape + + self + vertices: {59@40. 74@54. 79@74. 77@93. 57@97. 37@97. 22@83. 15@67. 22@50. 33@35. 47@33} * RealEstateAgent scaleFactor + color: self color + borderWidth: 1 px + borderColor: Color black! Item was added: + ----- Method: BlobMorph>>installModelIn: (in category 'debug and other') ----- + installModelIn: aWorld + "Overwritten to not add handles to the receiver."! Item was added: + ----- Method: BlobMorph>>limitRange: (in category 'stepping') ----- + limitRange: verts + " limit radius to range 20-120; limit interpoint angle to surrounding angles with max of twice of average separation. " + | cent new prevn nextn prevDeg nextDeg thisDeg dincr | + + cent := self bounds center. + new := Array new: verts size. + dincr := 360 // verts size. + verts doWithIndex: [ :pt :n | + + "Find prev/next points, allowing for wrapping around " + prevn := n-1 < 1 ifTrue: [new size] ifFalse: [n-1]. + nextn := n+1 > new size ifTrue: [1] ifFalse: [n+1]. + + "Get prev/this/next point's angles " + prevDeg := ((verts at: prevn)-cent) degrees. + thisDeg := ((verts at: n)-cent) degrees. + nextDeg := ((verts at: nextn)-cent) degrees. + + "Adjust if this is where angles wrap from 0 to 360" + (thisDeg - prevDeg) abs > 180 ifTrue: [ prevDeg := prevDeg - 360 ]. + (thisDeg - nextDeg) abs > 180 ifTrue: [ nextDeg := nextDeg + 360 ]. + + "Put adjusted point into new collection" + new at: n put: cent + + (self selfPolarPointRadius: ((((pt - cent) r) min: 80) max: 20) + degrees: (((thisDeg min: nextDeg-5) max: prevDeg+5) min: dincr*2+prevDeg)) ]. + ^ new + ! Item was added: + ----- Method: BlobMorph>>maximumVelocity (in category 'initialization') ----- + maximumVelocity + ^ 6.0! Item was added: + ----- Method: BlobMorph>>mergeBlobs (in category 'stepping') ----- + mergeBlobs + "See if we need to merge by checking our bounds against all other Blob + bounds, then all our vertices against any Blob with overlapping bounds. + If we find a need to merge, then someone else does all the work." + + (AllBlobs isNil or: [AllBlobs size < 2]) + ifTrue: [^ self]. + AllBlobs + do: + [:aBlob | + aBlob owner == self owner ifTrue: + [(self bounds intersects: aBlob bounds) ifTrue: + [vertices do: + [:aPoint | + (aBlob containsPoint: aPoint) ifTrue: + [^ self mergeSelfWithBlob: aBlob atPoint: aPoint]]]]] + without: self! Item was added: + ----- Method: BlobMorph>>mergeSelfWithBlob:atPoint: (in category 'stepping') ----- + mergeSelfWithBlob: aBlob atPoint: aPoint + " It has already been determined that we merge with aBlob; we do all the work here. " + | v v2 c | + + c := self bounds center. + + " Merge the vertices by throwing them all together in one pot " + v := vertices, aBlob vertices. + + " Sort the vertices by degrees to keep them in order " + v := (v asSortedCollection: [ :a :b | (a-c) degrees < (b-c) degrees ]) asArray. + + " Now, pick half of the vertices so the count stays the same " + v2 := Array new: v size // 2. + 1 to: v2 size do: [ :n | + v2 at: n put: (v at: n+n) ]. + v := v2. + + " Average each contiguous pair to help minimize jaggies " + 2 to: v size do: [ :n | + v at: n put: ((v at: n) + (v at: n-1)) / 2.0 ]. + + " Remember the new vertices, set a new velocity, then delete the merged blob " + vertices := v. + self setVelocity. + aBlob delete + ! Item was added: + ----- Method: BlobMorph>>oozeAFewPointsOf: (in category 'stepping') ----- + oozeAFewPointsOf: verts + " change some points at random to cause oozing across screen " + | n v | + + (verts size sqrt max: 2) floor timesRepeat: [ + n := (verts size * random next) floor + 1. + v := verts at: n. + v := (v x + (random next * 2.0 - 1.0)) @ + (v y + (random next * 2.0 - 1.0)). + verts at: n put: v + (velocity * RealEstateAgent scaleFactor) ].! Item was added: + ----- Method: BlobMorph>>selfPolarPointRadius:degrees: (in category 'stepping') ----- + selfPolarPointRadius: rho degrees: theta + " Same as Point>>#r:degrees: in Point class except that x and y are not truncated to integers " + | radians x y | + + radians := theta asFloat degreesToRadians. + x := rho asFloat * radians cos. + y := rho asFloat * radians sin. + ^ Point x: x y: y! Item was added: + ----- Method: BlobMorph>>setConstrainedPosition:hangOut: (in category 'geometry') ----- + setConstrainedPosition: aPoint hangOut: partiallyOutside + "Deal with dragging the blob over another blob which results in spontaneous deletations." + + self owner ifNil: [^ self]. + super setConstrainedPosition: aPoint hangOut: false. + "note that we keep them from overlapping"! Item was added: + ----- Method: BlobMorph>>setVelocity (in category 'initialization') ----- + setVelocity + + velocity := + ((random next - 0.5) * self maximumVelocity) @ + ((random next - 0.5) * self maximumVelocity)! Item was added: + ----- Method: BlobMorph>>step (in category 'stepping') ----- + step + | verts | + self comeToFront. + self mergeBlobs. + verts := vertices copy. + + " change two points at random to cause oozing across screen " + self oozeAFewPointsOf: verts. + + " limit radius and interpoint angle " + verts := self limitRange: verts. + + " Set new vertices; bounce off a wall if necessary " + self setVertices: verts. + self bounceOffWalls. + self adjustColors + ! Item was added: + ----- Method: BlobMorph>>stepTime (in category 'stepping') ----- + stepTime + "Answer the desired time between steps in milliseconds." + + ^ 125! Item was added: + ----- Method: BlobMorph>>veryDeepCopy (in category 'copying') ----- + veryDeepCopy + ^ self class remember: super veryDeepCopy!

1 0

ESqueak planning notes
by rabbit 17 Oct '22

17 Oct '22

Hiya! Here are my planning notes for ESqueak: cheers, langohr ------- *ESqueak* ------- ———- ESqueak Objectives ———- 1) Code distribution (SS, SM, …) 2) SqueakEazy social media wall 3) Market (Requests & Donations) ———- ToDo ———- 1) ASN1Tag object adoption / classTagging / ModuleTrees #lookUp: #lookDown: 2) Fix Remote Promises / Release #green ESqueak.release.2 3) ESqueakBroker 4) ELinda / How to divy up ESubspaces…by tuple arity? 4.a) ASN1 Modules 4.b) PriorityVat 4.c) EEventz’ 4.c.i> #ewhen: registrations 4.c.ii> #etriggerEvent: 4.d) ENearPromise sendQueue 4.e) ERef replication 4.f) ETraceMonitor 4.g) EStateMachine 5) ELindaPersistence 5.a) ESubspaceArray 5.b) ETuple Matching 5.c) Magma 5.d) Hadoop ———- ESqueakBroker ———- The ESqueakBroker is running each of these services with serviceClassID and serviceID…stored in the ELinda. < 0 ! brokerServID ! esse3Broker > < 1 ! namingServID ! esseNaming3Service > < 2 ! distributionServID ! esseDistribution3Service > < 3 ! teaTimeServID ! esseTeaTime3Service > < 4 ! persistenceServID ! essePersistence3Service > < 5 ! monitorServID ! esseMonitor3Service < 6 ! ! bankingServID ! esseBanking3Service > < 7 ! marketServID ! esseMarket3Service > < 8 ! bridgeServID ! esseBridgeNService < < 8.1 ! esseBridge> ! < 8.2 ! esseBridge> ! < 8.3 ! esseBridge> > > ———- Seven Vat Send Priorities ———- #Y - #AngelYc #Z - #EmergenZ #P - #Priority #W - #Welfare #R - #Routine #E - #Emote & #Endocrine #X - #DaemonX ———- Protocol Stack Layers ———- 7) application: Meta / Apps / SqEReplicatedServices (see 5) 6) presentation: Scope / Wires / EFarPromises / ASN1 encoding 5) session: EReplicatedSessions -> Sequential Replication, request in order… … … -> Parallel Replication, broadcast, request simultaneously -> Solo, no replication ParrotTalk 4) transport: TCP / UDP / SocketThunk / BluetoothThunk / RadioThunk(RS) / LLRThunk / SATCOMThunk 3) network: IP 2) data link: … … … 1) physical: … … … ———- Research———- 1) ASN1ClassMethod encoding 2) Actors (Syndicated <persistence>) 3) Squeak code sharing - ERef subclass generation - wire class/method format - class loading, compiling? 5) Code mobility - Java - Smalltalk on JVM - Compiler —- Redline —- others - Dynamic Class Loading - Java ———- CodeUpdateBroker ASN1InitializerBroker

1 5

esseDay5 nextDay then: [:newDay | esseDay6 := newDay].
by rabbit 16 Oct '22

16 Oct '22

Note: if the Day is a local, near object, then new day will be the resolution, if not already so. A different #ewhen: #then: sendERefTo: block would be provided. So for tomorrow, esseDay6 is not an instance of ENearRef, it’s the concrete object itself. For today we’ll see Alice’s #greet: message she sends to Bob, when she gets the #meet: message from Carol. As the same from when Carol sends to Alice, as the message gets encoded through the Scope (holding the four tables) exactly the samesame. The message is sent to the FarRef registered in the Answers table. We see two variations, implicitly, for how these FarRefs (1 are in the Answers table… A) the initial references to Alice & Bob, held by Carol are the Answers to Carols’ two #lookup: calls to her Introducer. They are only resolved if successfully connected. B) the reference to Bob, held be Alice was the result of a #provideFor: nonce / #acceptFrom: nonce exchange through Bob. These are wire Nonces, a link between remote objects within the pipe, the connected/encrypted session. Wires through Pipes. Anyhow, the Promise in Alice, which is the promise with the resolver attached to the message #greet: over the Bob’s Session. Is regretted in the adjacent Imports table. Both Answers (Orange) and Imports (Burgundy) hold the promise / FarRef side of remoting. Looking over at what happened in Alice as she exported & got a question, are entries in her Questions (Yellow) and Exports (Pink). Note that these are both There are two sets of mono-directional referencing. Questions (Yellow) are objects out to Answers (Orange) [Y -> O] and Exports (Pink) are out to Imports (Burgundy) [P -> B]. That’s down-range: [YO , PB]! These two mono-directional reference sets are attached cross-range, by direction: Outz are Questions and Exports [YP] and Inz are Answers and Imports [OB]. That’s 2 in one direction, let’s add two more flipped so the one with out refs can also have I Z refs. AndsoWe can see each side of the Session has a Scope with 4 tables, from a couple of , flipped pairs of refs: Outz and Inz. So our Scope contains [YP , OB], [Outz , Inz]. The third little wire is going out Carol’s Questions and in the Answers in Alice. This is the RemoteResolver to Carol’s promise which is the result of sending a message, out to Alice. Now we see the #greet: message #realized: in Bob. In his Scope, we’ve got the entry in Bob’s Yellow Questions, answered to Alice, out. Then there’s the entry in Bob’s Pink Exports table the promise tail out to Carol’s currency through Alice. Will become resolved. Finally we see the entry in Bobs Orange Answers table the in side of the promise’s resolver. Tak.

1 0

[Galaxy Object Scenario…Day 1] eventual value.
by rabbit 15 Oct '22

15 Oct '22

Here’s the full scenario. Carol introduces Bob to Alice, as an argument within a message sent: Alice meet: <Bob>. Then Carol sends a message to the Promise from the previous send and that gets forwarded to Bob. All distributed object stitching is unwoven. — Have a good one; keep it, light. Kindly, rabbit . .. … ‘…^,^ 🐇🐇🐇🐇🐇🐇 <𝙃𝙖𝙨𝙝𝙏𝙖𝙜: #𝙎𝙦𝙪𝙚𝙖𝙠𝙀𝙖𝙯𝙮𝙎𝙦𝙒𝙖𝙮𝙎𝙦𝙒𝙚𝙎𝙦𝙒𝙖𝙡𝙡> ———- #SqueakEazy “(…𝙛𝙤𝙧𝙩𝙝𝙘𝙤𝙢𝙞𝙣𝙜 𝙢𝙚𝙩𝙖𝙫𝙚𝙧𝙨𝙚…)” - - - - - - “ 𝐁𝐨𝐨𝐭𝐬𝐚𝐭𝐫𝐚𝐩” <#𝐒𝐪𝐮𝐞𝐚𝐤𝐄𝐚𝐳𝐲𝗜𝗶𝗻𝘀𝘁𝗮𝗻𝘁𝗜𝗶𝗮𝘁𝗜𝗶𝗻𝗴𝗣𝗲𝗻𝗱𝗜𝗶𝗻𝗴> “𝗥𝗲𝗽𝗹𝗶𝗰𝗮𝘁𝗶𝗻𝗴 𝘁𝗵𝗲 𝗦𝗶𝘀𝘁𝗲𝗿𝘀” <#𝑫𝒊𝒆𝑨𝒏𝒇𝒖̈𝒉𝒓𝒆𝒓𝗞𝗼𝗻𝘁𝗿𝗼𝗹𝗹𝗶𝗲𝗿𝘁𝗔𝗹𝗹𝗲𝘀 . .. …. ‘…^,^> <#𝑫𝒊𝒆𝑨𝒏𝒇𝒖̈𝒉𝒓𝒆𝒓𝗞𝗼𝗻𝘁𝗿𝗼𝗹𝗹𝗶𝗲𝗿𝘁𝗔𝗹𝗹𝗲𝘀 . .. …. ‘…^,^> <#𝑫𝒊𝒆𝑨𝒏𝒇𝒖̈𝒉𝒓𝒆𝒓𝗞𝗼𝗻𝘁𝗿𝗼𝗹𝗹𝗶𝗲𝗿𝘁𝗔𝗹𝗹𝗲𝘀 . .. …. ‘…^,^> ————— 𝙒𝙝𝙚𝙧𝙚’𝙨 𝙒𝙤𝙤𝙙𝙮 𝙛𝙧𝙤𝙢 𝙢𝙖𝙧𝙠𝙚𝙩𝙞𝙣𝙜? ^,^ ————— 𝙎𝙚𝙣𝙩 𝙛𝙧𝙤𝙢 𝘾𝙖𝙡𝙡𝙞𝙨𝙩𝙤 𝙃𝙤𝙪𝙨𝙚 𝙈𝙤𝙗𝙞𝙡𝙚 :: 𝙙𝙚𝙘𝙚𝙣𝙩𝙧𝙖𝙡𝙞𝙯𝙚𝙙 𝙢𝙤𝙗𝙞𝙡𝙚 𝙝𝙤𝙢𝙚𝙡𝙚𝙨𝙨 𝙨𝙤𝙡𝙪𝙩𝙞𝙤𝙣𝙨 —————

2 6

The Trunk: Installer-Core-ct.452.mcz
by commits＠source.squeak.org 15 Oct '22

15 Oct '22

Christoph Thiede uploaded a new version of Installer-Core to project The Trunk: http://source.squeak.org/trunk/Installer-Core-ct.452.mcz ==================== Summary ==================== Name: Installer-Core-ct.452 Author: ct Time: 15 October 2022, 8:24:18.050533 pm UUID: d845f390-c267-3c49-ac35-31f0d34b04a3 Ancestors: Installer-Core-ct.451 Fixes a bug in new #ensureRecentMetacello that polluted the current change set with the preamble the SAR file. =============== Diff against Installer-Core-ct.451 =============== Item was changed: ----- Method: Installer class>>ensureRecentMetacello (in category 'scripts') ----- ensureRecentMetacello "Copied and adapted from https://github.com/Metacello/metacello/blob/master/README.md" | metacello | ((Smalltalk classNamed: #WebClient) ifNil: [ false ] ifNotNil: [ :webClient | [ (webClient httpHead: 'https://github.com') isSuccess ] on: Error do: [ false ] ]) ifFalse: [ ^self inform: 'Could not connect to "https://github.com".\\You need an internet connection and SSL support\to install (or update) Metacello.\\Please fix those issues and try again.' translated withCRs ]. self isMetacelloInstalled ifFalse: [ | response | "Download base archive of Metacello." response := WebClient httpGet: 'https://files.squeak.org/metacello/metacello-squeak60.sar'. response isSuccess ifFalse: [ self error: ('Could not download Metacello archive: {1}' translated format: {response status})]. "Prepare a clean environment and install it." Smalltalk globals removeKey: #Metacello ifAbsent: ["Ignore prior attempts."]. + self new installSAR: 'metacello-squeak60.sar' from: response content asByteArray readStream]. - SARInstaller new fileInFrom: response content asByteArray readStream]. metacello := Smalltalk classNamed: #Metacello. "Now load latest version of Metacello" metacello new baseline: 'Metacello'; repository: 'github://Metacello/metacello:master/repository'; get; load: #('default' 'Metacello-Help').!

1 0

The Inbox: Installer-Core-ct.452.mcz
by commits＠source.squeak.org 15 Oct '22

15 Oct '22

Christoph Thiede uploaded a new version of Installer-Core to project The Inbox: http://source.squeak.org/inbox/Installer-Core-ct.452.mcz ==================== Summary ==================== Name: Installer-Core-ct.452 Author: ct Time: 15 October 2022, 8:24:18.050533 pm UUID: d845f390-c267-3c49-ac35-31f0d34b04a3 Ancestors: Installer-Core-ct.451 Fixes a bug in new #ensureRecentMetacello that polluted the current change set with the preamble the SAR file. =============== Diff against Installer-Core-ct.451 =============== Item was changed: ----- Method: Installer class>>ensureRecentMetacello (in category 'scripts') ----- ensureRecentMetacello "Copied and adapted from https://github.com/Metacello/metacello/blob/master/README.md" | metacello | ((Smalltalk classNamed: #WebClient) ifNil: [ false ] ifNotNil: [ :webClient | [ (webClient httpHead: 'https://github.com') isSuccess ] on: Error do: [ false ] ]) ifFalse: [ ^self inform: 'Could not connect to "https://github.com".\\You need an internet connection and SSL support\to install (or update) Metacello.\\Please fix those issues and try again.' translated withCRs ]. self isMetacelloInstalled ifFalse: [ | response | "Download base archive of Metacello." response := WebClient httpGet: 'https://files.squeak.org/metacello/metacello-squeak60.sar'. response isSuccess ifFalse: [ self error: ('Could not download Metacello archive: {1}' translated format: {response status})]. "Prepare a clean environment and install it." Smalltalk globals removeKey: #Metacello ifAbsent: ["Ignore prior attempts."]. + self new installSAR: 'metacello-squeak60.sar' from: response content asByteArray readStream]. - SARInstaller new fileInFrom: response content asByteArray readStream]. metacello := Smalltalk classNamed: #Metacello. "Now load latest version of Metacello" metacello new baseline: 'Metacello'; repository: 'github://Metacello/metacello:master/repository'; get; load: #('default' 'Metacello-Help').!

1 0

The Trunk: Tools-ct.1173.mcz
by commits＠source.squeak.org 15 Oct '22

15 Oct '22

Christoph Thiede uploaded a new version of Tools to project The Trunk: http://source.squeak.org/trunk/Tools-ct.1173.mcz ==================== Summary ==================== Name: Tools-ct.1173 Author: ct Time: 8 September 2022, 3:05:12.665836 pm UUID: f0fe2b64-b27c-6d4b-9670-d920d0580baf Ancestors: Tools-ct.1171 Fixes package pane browser to actually use the package organizer instead of parsing the system category list. Resolves https://github.com/squeak-smalltalk/squeak-object-memory/issues/28. =============== Diff against Tools-ct.1171 =============== Item was changed: Browser subclass: #PackagePaneBrowser + instanceVariableNames: 'packageOrganizer package packageListIndex packageList' - instanceVariableNames: 'package packageListIndex packageList' classVariableNames: '' poolDictionaries: '' category: 'Tools-Browser'! + !PackagePaneBrowser commentStamp: 'ct 9/8/2022 15:05' prior: 0! + A package browser represents a hierarchical query path through an organization of class and method information. It nests classes into a two-level hierarchy that consists of the package (e.g., Kernel, FFI-Kernel) and the system category (e.g., Exception, Exceptions-Kernel; Support, empty). - !PackagePaneBrowser commentStamp: '<historical>' prior: 0! - A package browser represents a hierarchical query path through an organization of class and method information. It parses class categories into a two-level hierarchy on the first '-' character, giving "packages" (e.g., Magnitude, Collections, Graphics, etc.), and "categories" (e.g., Magnitude-General and Magnitude-Number). Instance Variables: + packageOrganizer <PackageOrganizer> the organizer of packages in the current environment package <Symbol> the "category header," e.g., #Magnitudes or #Collections packageListIndex <Integer> The index in the package list + packageList <OrderedCollection of String> the list of package names! - packageList <OrderedCollection of String> the list of package names - ! Item was added: + ----- Method: PackagePaneBrowser>>initialize (in category 'initialize-release') ----- + initialize + + super initialize. + + self packageOrganizer: self environment packageOrganizer.! Item was changed: ----- Method: PackagePaneBrowser>>packageList (in category 'package list') ----- packageList - "Answer a list of the packages in the current system organization." + ^ self packageOrganizer packageNames sorted! - | str stream | - str := Set new: 100. - stream := WriteStream on: (Array new: 100). - systemOrganizer categories do: - [ :categ | | cats | - cats := categ asString copyUpTo: $-. - (str includes: cats) ifFalse: - [str add: cats. - stream nextPut: cats]]. - ^stream contents! Item was added: + ----- Method: PackagePaneBrowser>>packageOrganizer (in category 'accessing') ----- + packageOrganizer + + ^ packageOrganizer! Item was added: + ----- Method: PackagePaneBrowser>>packageOrganizer: (in category 'initialize-release') ----- + packageOrganizer: aPackageOrganizer + + packageOrganizer := aPackageOrganizer. + + self systemOrganizer: self systemOrganizer. "reset selections"! Item was added: + ----- Method: PackagePaneBrowser>>selectEnvironment: (in category 'accessing') ----- + selectEnvironment: anEnvironment + + super selectEnvironment: anEnvironment. + self packageOrganizer: anEnvironment packages.!

5 8

The Trunk: Tools-ct.1177.mcz
by commits＠source.squeak.org 15 Oct '22

15 Oct '22

Christoph Thiede uploaded a new version of Tools to project The Trunk: http://source.squeak.org/trunk/Tools-ct.1177.mcz ==================== Summary ==================== Name: Tools-ct.1177 Author: ct Time: 15 October 2022, 8:08:17.803171 pm UUID: d0aef212-fcd5-9747-ba97-c167788fa1fb Ancestors: Tools-ct.1176 Fixes and revises PackagePaneBrowser for case mismatches between a system category and the associated package name. Improves the short label for categories that equal the package name (without a suffix). If no category is selected, shows all classes from the package. Thanks to Jakob (jr) for the assistance! See: https://lists.squeakfoundation.org/pipermail/squeak-dev/2022-September/2222… =============== Diff against Tools-ct.1176 =============== Item was changed: ----- Method: PackagePaneBrowser>>classList (in category 'class list') ----- classList - "Answer an array of the class names of the selected category. Answer an - empty array if no selection exists." + self hasSystemCategorySelected ifTrue: + [| thisPackage thisCatSufix categories | + thisPackage := self package. + thisCatSufix := self selectedSystemCategoryWithoutPackage. + categories := systemOrganizer categories select: [:eachCat | + eachCat size >= thisPackage size + and: ["package prefix may occur in different cases, because they are assembled in the same package" + ((eachCat first: thisPackage size) compare: thisPackage caseSensitive: false) = 2] + and: ["rest of system category must have exact case, because it is discrimnated by the system category list" + (eachCat allButFirst: thisPackage size) = thisCatSufix]]. + ^ categories gather: [:eachCat | + systemOrganizer listAtCategoryNamed: eachCat]]. + + self hasPackageSelected ifTrue: + [^ self packageClasses]. + + ^ systemOrganizer allElements! - ^ self hasSystemCategorySelected - ifFalse: [self packageClasses] - ifTrue: [systemOrganizer listAtCategoryNamed: self selectedSystemCategory]! Item was changed: ----- Method: PackagePaneBrowser>>packageClasses (in category 'class list') ----- packageClasses + + ^ self packageInfo classes collect: [:class | class name]! - ^ self categoryExistsForPackage - ifFalse: [Array new] - ifTrue: - [systemOrganizer listAtCategoryNumber: - (systemOrganizer categories indexOf: self package asSymbol)]! Item was added: + ----- Method: PackagePaneBrowser>>packageInfo (in category 'accessing') ----- + packageInfo + + ^ PackageInfo named: (self package ifNil: [^ nil])! Item was changed: ----- Method: PackagePaneBrowser>>selectedSystemCategory (in category 'system category list') ----- selectedSystemCategory + "Answer the full name of the selected system category or nil. Opposite of #systemCategoryList." - "Answer the name of the selected system category or nil." + | thisCatSuffix | self hasSystemCategorySelected + ifFalse: [^ nil]. + thisCatSuffix := self selectedSystemCategoryWithoutPackage. - ifFalse: [^nil]. packageListIndex = 0 + ifTrue: [^ thisCatSuffix]. + ^ self package , thisCatSuffix! - ifTrue: [^ super selectedSystemCategory ]. - ^ self package , '-' , super selectedSystemCategory! Item was added: + ----- Method: PackagePaneBrowser>>selectedSystemCategoryWithoutPackage (in category 'system category list') ----- + selectedSystemCategoryWithoutPackage + "Answer the name of the selected system category without package prefix or nil. Opposite of #systemCategoryList." + + | shortCat | + self hasSystemCategorySelected + ifFalse: [^ nil]. + shortCat := super selectedSystemCategory. + packageListIndex = 0 + ifTrue: [^ shortCat]. + shortCat = '(default category)' translated + ifTrue: [^ '']. + shortCat = '-' + ifTrue: [^ '-']. + ^ '-' , shortCat! Item was changed: ----- Method: PackagePaneBrowser>>systemCategoryList (in category 'system category list') ----- systemCategoryList + "Answer the sequenceable collection containing the class categories that the receiver accesses." - "Answer the sequenceable collection containing the class categories that - the receiver accesses." | prefix | packageListIndex = 0 ifTrue: [^ systemOrganizer categories]. + prefix := self package. + ^ (self packageInfo systemCategories + collect: [:cat | + | shortCat | + shortCat := cat allButFirst: prefix size. + (shortCat size > 1 and: [shortCat first = $-]) + ifTrue: [shortCat allButFirst] + ifFalse: [shortCat ifEmpty: ['(default category)' translated]]]) + withoutDuplicates "different cases of the same category possible" + + "The following class organization for the package MyPackage should be properly viewable in a PackagePaneBrowser: + ('mypackage' MyClassLowerCase) + ('Mypackage' MyClassMixedCase) + ('mypackage3' MyClassNotContained) + ('MyPackage' MyClass) + ('MyPackage-' MyClassDash) + ('Mypackage-foo' MyTestLowerSuffix) + ('Mypackage-Foo' MyTestUpperSuffix) + "! - prefix := self package, '-'. - ^ Array streamContents: - [:strm | - systemOrganizer categories do: - [ :cat | (cat beginsWith: prefix) ifTrue: - [strm nextPut: (cat copyFrom: prefix size + 1 to: cat size)]]]!

1 0

[POND] I ponder: possible to simulate an iOS app: AppStore?
by rabbit 14 Oct '22

14 Oct '22

Need I clarify? Thanks for your understanding. — Have a good one; keep it, light. Kindly, langohr . .. … ‘…^,^ 🐇🐇🐇 Sent from Callisto House Mobile - Europa :: decentralized mobile homeless solutions ::

1 0

[BUG] SqueakSource really damn slooow!
by rabbit 14 Oct '22

14 Oct '22

Come si yama mos! Que paso? Con le SS server? Siempre mas tiempo, is slooow! It's not good. Malo, malo, malo, mi agimos! I would be wonderful!!! if she was snappy, coming right back with something to say. Smooth. Enabling our process X 100! Alright, I appreciate your services! What a great place, Squeakland, Best, langohr

1 0

← Newer
1
2
3
4
5
6
7
8
9
...
15
Older →

Jump to page: