Squeak-dev October 2019

squeak-dev@lists.squeakfoundation.org

41 participants
284 discussions

Parse error on files.squeak.org
by Thiede, Christoph 02 Oct '19

02 Oct '19

Hi, just wanted to inform you about a parse error that is displayed at http://files.squeak.org/1.21/: This page contains the following errors: error on line 14 at column 24: error parsing attribute name Below is a rendering of the page up to the first error. It appears that this parser struggles about the un-escaped e-mail tag in the preamble. Best, Christoph

3 2

Squeak PDFTalk?
by tim Rowledge 02 Oct '19

02 Oct '19

Has anyone done, considered, noticed, used or otherwise seen any mention oaf a port of Christian Haider's PDFTalk (also known by at least one other name over the years - PDF4Smalltalk - and I think also 'PDF Development') ? tim -- tim Rowledge; tim(a)rowledge.org; http://www.rowledge.org/tim If at first you don't succeed, destroy all evidence that you tried.

3 3

The Inbox: ShoutCore-ct.73.mcz
by commits＠source.squeak.org 02 Oct '19

02 Oct '19

A new version of ShoutCore was added to project The Inbox: http://source.squeak.org/inbox/ShoutCore-ct.73.mcz ==================== Summary ==================== Name: ShoutCore-ct.73 Author: ct Time: 28 September 2019, 11:31:09.24777 pm UUID: 27e05259-bafa-0749-827d-b54de84bb8d2 Ancestors: ShoutCore-ct.72 Fixes a bug in context-dependent styling, as described in [1]. Until proved otherwise, we cannot distinguish between args and tempvars via DebuggerMap, so shout-reparse the original context source up to the place where the provided context starts and access the active variables from the nested shout parser. (Minimal example to reproduce the old bug: Do it: [:x| [:z | (x*z) halt] value: 7] value: 6 And style [z] in the context of #halt - it was wrongly styled as a tempvar before.) [1] http://forum.world.st/Distinguishing-temp-vars-and-arguments-via-DebuggerMa… =============== Diff against ShoutCore-ct.72 =============== Item was added: + ----- Method: SHParserST80>>activeArguments (in category 'accessing') ----- + activeArguments + "Parsed arguments that are in the active scope" + ^ arguments! Item was added: + ----- Method: SHParserST80>>activeTemporaries (in category 'accessing') ----- + activeTemporaries + "Parsed temporaries that are in the active scope" + ^ temporaries! Item was changed: ----- Method: SHParserST80>>initializeInstanceVariables (in category 'parse support') ----- initializeInstanceVariables instanceVariables := classOrMetaClass ifNil: [ #() ] ifNotNil: [ classOrMetaClass allInstVarNames asArray ]. allowUnderscoreAssignments := Scanner allowUnderscoreAsAssignment. allowUnderscoreSelectors := Scanner prefAllowUnderscoreSelectors. allowBlockArgumentAssignment := Scanner allowBlockArgumentAssignment. sourcePosition := 1. arguments ifNil: [ arguments := OrderedCollection with: nil ] ifNotNil: [ arguments reset; addLast: nil ]. temporaries ifNil: [ temporaries := OrderedCollection with: nil ] ifNotNil: [ temporaries reset; addLast: nil ]. + context ifNotNil: [ self initializeVariablesFromContext ]. - context ifNotNil: [ - | contextArgumentCount contextVariableNames | - contextArgumentCount := context numArgs. - contextVariableNames := context tempNames asOrderedCollection. - contextArgumentCount > 0 ifTrue: [ - arguments at: 1 put: (contextVariableNames first: contextArgumentCount) ]. - contextArgumentCount < contextVariableNames size ifTrue: [ - temporaries at: 1 put: (contextVariableNames allButFirst: contextArgumentCount) ] ]. bracketDepth := 0. ranges ifNil: [ ranges := OrderedCollection new: 40 "Covers over 80% of all methods." ] ifNotNil: [ ranges reset ]! Item was added: + ----- Method: SHParserST80>>initializeVariablesFromContext (in category 'parse support') ----- + initializeVariablesFromContext + + | contextSourcePcIndex contextSourceParser | + contextSourcePcIndex := (context debuggerMap + rangeForPC: context pc + in: context method + contextIsActiveContext: true "little white lie to work in every situation") + start. + contextSourceParser := self class new + classOrMetaClass: context method methodClass; + environment: self environment; + source: (context method getSource first: contextSourcePcIndex); + yourself. + contextSourceParser parse. + arguments at: 1 put: ((contextSourceParser activeArguments + reject: #isNil) gather: #yourself) asOrderedCollection. + temporaries at: 1 put: ((contextSourceParser activeTemporaries + reject: #isNil) gather: #yourself) asOrderedCollection.!

3 3

The Inbox: MorphicExtras-ct.267.mcz
by commits＠source.squeak.org 01 Oct '19

01 Oct '19

A new version of MorphicExtras was added to project The Inbox: http://source.squeak.org/inbox/MorphicExtras-ct.267.mcz ==================== Summary ==================== Name: MorphicExtras-ct.267 Author: ct Time: 1 October 2019, 6:14:00.728339 pm UUID: 40f6b08c-c705-854d-9ec5-c28571b022d3 Ancestors: MorphicExtras-ul.266 Adds SketchMorph examples This commit is (the first) part of reconstruction of Objectland (also known as "The Worlds of Squeak"). Essential aims of this project are to revive the colorful collection of examples around the capacities of Squeak which was lastly delivered with Squeak 3.7, cast each example into code to provide a rich set of how-to examples to newbies in Squeak, and to integrate it into the ReleaseBuilder. Many further examples are coming soon. Stay tuned! =============== Diff against MorphicExtras-ul.266 =============== Item was added: + ----- Method: Form class>>extraCook (in category '*MorphicExtras-examples') ----- (excessive size, no diff calculated) Item was added: + ----- Method: Form class>>extraWizard (in category '*MorphicExtras-examples') ----- (excessive size, no diff calculated) Item was added: + ----- Method: SketchMorph class>>extraExampleCook (in category '*MorphicExtras-examples') ----- + extraExampleCook + "SketchMorph extraExampleCook openInWorld" + + ^ (self withForm: Form extraCook) + addMouseUpActionWith: 'Form toothpaste: 30'; + balloonText: 'Click me and then drag the cursor over the screen'; + yourself! Item was added: + ----- Method: SketchMorph class>>extraExampleWizard (in category '*MorphicExtras-examples') ----- + extraExampleWizard + "SketchMorph extraExampleWizard openInWorld" + + ^ (self withForm: Form extraWizard) + addMouseUpActionWith: + (MessageSend receiver: Pen new selector: #web); + balloonText: 'Click me and then drag the cursor over the screen\(Trust me, I won''t turn you into a toad!!)' withCRs; + yourself!

3 2

The Inbox: MorphicExtras-ct.276.mcz
by commits＠source.squeak.org 01 Oct '19

01 Oct '19

A new version of MorphicExtras was added to project The Inbox: http://source.squeak.org/inbox/MorphicExtras-ct.276.mcz ==================== Summary ==================== Name: MorphicExtras-ct.276 Author: ct Time: 1 October 2019, 11:47:01.580339 pm UUID: a183a923-fc55-3d4d-b2eb-06d26ac369bf Ancestors: MorphicExtras-ct.267 Adds Workspace examples for demonstration of Editor and Text. Depends on Collections-ct.855 and Kernel-ct.1270 This commit is part of reconstruction of Objectland (also known as "The Worlds of Squeak"). For more information, see: http://forum.world.st/The-Inbox-MorphicExtras-ct-267-mcz-td5104764.html =============== Diff against MorphicExtras-ct.267 =============== Item was added: + ----- Method: Workspace class>>extraExample1 (in category '*MorphicExtras-examples') ----- + extraExample1 + "ToolBuilder open: Workspace extraExample1" + + | quoteAttributes | + quoteAttributes := { TextEmphasis bold. TextColor color: Color mocha }. + ^ Workspace new + contents: (Text streamContents: [:stream | ({ + '<i>"When in doubt, try it out!!"</i>' asHtmlText + addAllAttributes: quoteAttributes; + yourself. + '-- Dan Ingalls' asText + addAllAttributes: quoteAttributes; + addAttribute: TextAlignment rightFlush; + yourself. + String empty. } + , ((self class sourceCodeAt: #extraExampleContents1) asString lines allButFirst: 3) + do: [:line | stream nextPutAll: line] + separatedBy: [stream cr])]); + shouldStyle: false; + yourself! Item was added: + ----- Method: Workspace class>>extraExample2 (in category '*MorphicExtras-examples') ----- + extraExample2 + "ToolBuilder open: Workspace extraExample2" + + ^ self new + contents: (((self class sourceCodeAt: #extraExampleContents2) + asString lines allButFirst: 3) + joinSeparatedBy: Character cr); + yourself! Item was added: + ----- Method: Workspace class>>extraExampleContents1 (in category '*MorphicExtras-examples') ----- + extraExampleContents1 + "This is example code for #extraExample1" + + "Run the following lines by pressing <cmd>d:" + Transcript showln: 'Hello world!!'. + self inform: 'This is a dialog box. Quite easy, isn''t it?'. + + "Print the result of an expression using <cmd>p" + 6 * 7. + Float pi i exp stringForReadout. + (16 factorial + 1) isPrime. + (Smalltalk allClasses gather: #selectors) size.! Item was added: + ----- Method: Workspace class>>extraExampleContents2 (in category '*MorphicExtras-examples') ----- + extraExampleContents2 + "This is example code for #extraExample2" + + "Inspect any (sub)expression result pressing <cmd>i" + (20 to: 40 by: 2) asOrderedCollection + addFirst: 16; + addLast: 42; + sort: [:x | x \\ 3] descending; + yourself. + + "Explore any (sub)expression result by presssing <cmd>I" + Project current world. + + "Debug any (sub)expression using <cmd>D" + (1 to: 9) join asNumber sqrt truncateTo: 1e-3. + (SystemWindow windowsIn: ActiveWorld) + select: [:window | window bounds isWide] + thenDo: [:window | window color: window color negated].!

1 0

The Inbox: MorphicExtras-ct.275.mcz
by commits＠source.squeak.org 01 Oct '19

01 Oct '19

A new version of MorphicExtras was added to project The Inbox: http://source.squeak.org/inbox/MorphicExtras-ct.275.mcz ==================== Summary ==================== Name: MorphicExtras-ct.275 Author: ct Time: 1 October 2019, 11:41:12.160339 pm UUID: 69cf49c3-5a24-dc40-82a5-df817f82984a Ancestors: MorphicExtras-ct.267 Adds TetrisPieceMorph example that illustrates usage of PolygonMorphs and random This commit is part of reconstruction of Objectland (also known as "The Worlds of Squeak"). For more information, see: http://forum.world.st/The-Inbox-MorphicExtras-ct-267-mcz-td5104764.html =============== Diff against MorphicExtras-ct.267 =============== Item was added: + PolygonMorph subclass: #TetrisPieceMorph + instanceVariableNames: '' + classVariableNames: 'Colors Shapes Vertices' + poolDictionaries: '' + category: 'MorphicExtras-Demo'! + + !TetrisPieceMorph commentStamp: 'ct 10/1/2019 23:34' prior: 0! + I display a Tetris piece. By calling TetrisPieceMorph random, you can generate a new instance of me that is random in terms of shape, color, and rotation. + + My shapes are: #(i j l o s t z).! Item was added: + ----- Method: TetrisPieceMorph class>>initialize (in category 'class initialization') ----- + initialize + + super initialize. + Vertices := Dictionary new + at: #i put: { 0 @ 0. 0 @ 4. 1 @ 4. 1 @ 0 }; + at: #j put: { 1 @ 0. 1 @ 2. 0 @ 2. 0 @ 3. 2 @ 3. 2 @ 0 }; + at: #o put: { 0 @ 0. 0 @ 2. 2 @ 2. 2 @ 0 }; + at: #s put: { 0 @ 0. 0 @ 2. 1 @ 2. 1 @ 3. 2 @ 3. 2 @ 1. 1 @ 1. 1 @ 0 }; + at: #t put: { 1 @ 0. 1 @ 1. 0 @ 1. 0 @ 2. 3 @ 2. 3 @ 1. 2 @ 1. 2 @ 0 }; + yourself. + Vertices + at: #l put: ((Vertices at: #j) * (-1 @ 1)); + at: #z put: ((Vertices at: #s) * (-1 @ 1)). + Shapes := Vertices keys. + Colors := #(red green blue orange grape yellow) + collect: [:color | color -> (Color in: color) lighter paler] + as: Dictionary.! Item was added: + ----- Method: TetrisPieceMorph class>>random (in category 'instance creation') ----- + random + "TetrisPieceMorph random openInHand" + + ^ self + shape: Shapes atRandom + color: Colors atRandom + rotationDegrees: Random new next * 360! Item was added: + ----- Method: TetrisPieceMorph class>>shape:color:rotationDegrees: (in category 'instance creation') ----- + shape: aShapeSymbol color: aColor rotationDegrees: degrees + + ^ self new + shape: aShapeSymbol; + color: aColor; + rotationDegrees: degrees; + yourself! Item was added: + ----- Method: TetrisPieceMorph>>initialize (in category 'initialize-release') ----- + initialize + + super initialize. + self borderStyle: (RaisedBorder new width: 3).! Item was added: + ----- Method: TetrisPieceMorph>>shape: (in category 'initialize-release') ----- + shape: aShapeSymbol + + self setVertices: (Vertices at: aShapeSymbol) * 20 * RealEstateAgent scaleFactor.! Item was changed: + (PackageInfo named: 'MorphicExtras') postscript: 'TetrisPieceMorph initialize. + '! - (PackageInfo named: 'MorphicExtras') postscript: 'TrashCanMorph preserveTrash: Preferences preserveTrash. - TrashCanMorph slideDismissalsToTrash: Preferences slideDismissalsToTrash. - - Preferences removePreference: #preserveTrash. - Preferences removePreference: #slideDismissalsToTrash.'!

1 0

The Inbox: MorphicExtras-ct.274.mcz
by commits＠source.squeak.org 01 Oct '19

01 Oct '19

A new version of MorphicExtras was added to project The Inbox: http://source.squeak.org/inbox/MorphicExtras-ct.274.mcz ==================== Summary ==================== Name: MorphicExtras-ct.274 Author: ct Time: 1 October 2019, 11:32:45.306339 pm UUID: bc7c8985-f585-c947-bc21-9e9a0009b9f6 Ancestors: MorphicExtras-ct.270 Add ScorePlayerMorph example This commit is part of reconstruction of Objectland (also known as "The Worlds of Squeak"). For more information, see: http://forum.world.st/The-Inbox-MorphicExtras-ct-267-mcz-td5104764.html =============== Diff against MorphicExtras-ct.270 =============== Item was added: + ----- Method: ScorePlayerMorph class>>extraExample (in category '*MorphicExtras-examples') ----- + extraExample + "ScorePlayerMorph extraExample openInHand" + + ^ self on: MIDIScore extraExample!

1 0

The Inbox: MorphicExtras-ct.273.mcz
by commits＠source.squeak.org 01 Oct '19

01 Oct '19

A new version of MorphicExtras was added to project The Inbox: http://source.squeak.org/inbox/MorphicExtras-ct.273.mcz ==================== Summary ==================== Name: MorphicExtras-ct.273 Author: ct Time: 1 October 2019, 11:29:05.323339 pm UUID: 71c801ed-c4b5-1b40-bb37-e0de9f24b326 Ancestors: MorphicExtras-ct.267 Add RecordingControlsMorph example Depends on Sound-ct.70. This commit is part of reconstruction of Objectland (also known as "The Worlds of Squeak"). For more information, see: http://forum.world.st/The-Inbox-MorphicExtras-ct-267-mcz-td5104764.html =============== Diff against MorphicExtras-ct.267 =============== Item was added: + ----- Method: RecordingControlsMorph class>>extraExample (in category '*MorphicExtras-examples') ----- + extraExample + "RecordingControlsMorph extraExample openInWorld" + + | example | + example := self new. + example recorder clearRecordedSound. + example recorder recordedSound add: SampledSound exampleYesterday. + ^ example!

1 0

The Trunk: Kernel-nice.1270.mcz
by commits＠source.squeak.org 01 Oct '19

01 Oct '19

Nicolas Cellier uploaded a new version of Kernel to project The Trunk: http://source.squeak.org/trunk/Kernel-nice.1270.mcz ==================== Summary ==================== Name: Kernel-nice.1270 Author: nice Time: 1 October 2019, 9:22:39.460936 pm UUID: 05ae7bbb-2517-4c6e-a9c0-db89b42742e5 Ancestors: Kernel-mt.1269 In SmallFloat64>>#truncated fallback, don't bother with Infinities and NaN, since all SmallFloat64 are finite, nor with Float fractionPart, since all non-integer Float value fits in SmallInteger in a 64bits image, and thus are already handled by the primitive. It's legitimate to inject such implementation specific knowledge into this implementation specific class. Also revise BoxedFloat64>>#truncated, mostly with comments. Dividing by SmallInteger maxVal + 1 / 2 would lead to an infinite loop in a 64bits image, fortunately this branch is unreachable then. Each time I read it, I have the shadow of a doubt ;) =============== Diff against Kernel-mt.1269 =============== Item was changed: ----- Method: BoxedFloat64>>truncated (in category 'truncation and round off') ----- truncated "Answer with a SmallInteger equal to the value of the receiver without its fractional part. The primitive fails if the truncated value cannot be represented as a SmallInteger. In that case, the code below will compute a LargeInteger truncated value. Essential. See Object documentation whatIsAPrimitive. " <primitive: 51> self isFinite ifFalse: [self error: 'Cannot truncate this number']. + self abs < 4.503599627370496e15 + "Float maxExactInteger/2 = (1.0 timesTwoPower: Float precision - 1)" + "Every Float bigger than or equal to that has ulp >= 1, thus no fractionPart" - - self abs < 2.0e16 ifTrue: ["Fastest way when it may not be an integer" + "This branch is unreachable in 64 bits image" | di df q r | di := 1 + (SmallInteger maxVal bitShift: -1). df := di asFloat. q := self quo: df. r := self - (q asFloat * df). ^q * di + r truncated] + ifFalse: [^ self asTrueFraction. "Extract all bits of the significand and shift if necessary"] - ifFalse: [^ self asTrueFraction. "Extract all bits of the mantissa and shift if necess"] ! Item was changed: ----- Method: SmallFloat64>>truncated (in category 'truncation and round off') ----- truncated "Answer with a SmallInteger equal to the value of the receiver without its fractional part. The primitive fails if the truncated value cannot be represented as a SmallInteger. In that case, the code below will compute a LargeInteger truncated value. Essential. See Object documentation whatIsAPrimitive. " <primitive: 551> + "Since SmallInteger maxVal highBit >= Float precision, in 64bits image/VM, + every Float with ulp < 1 - that is which may have a fractionPart - fits in a SmallInteger. + Thus only care of Float with ulp >= 1 which have Integer value." + ^ self asTrueFraction - self isFinite ifFalse: [self error: 'Cannot truncate this number']. - - self abs < 2.0e16 - ifTrue: ["Fastest way when it may not be an integer" - | di df q r | - di := 1 + (SmallInteger maxVal bitShift: -1). - df := di asFloat. - q := self quo: df. - r := self - (q asFloat * df). - ^q * di + r truncated] - ifFalse: [^ self asTrueFraction. "Extract all bits of the mantissa and shift if necess"] - !

1 0

The Inbox: MorphicExtras-ct.272.mcz
by commits＠source.squeak.org 01 Oct '19

01 Oct '19

A new version of MorphicExtras was added to project The Inbox: http://source.squeak.org/inbox/MorphicExtras-ct.272.mcz ==================== Summary ==================== Name: MorphicExtras-ct.272 Author: ct Time: 1 October 2019, 8:41:27.291339 pm UUID: cca75098-d7f2-1244-979f-65da19056be2 Ancestors: MorphicExtras-ct.267 Adds MovingEyeMorph example. This one is rather for fun, but I promise you it will visually upgrade Objectland a lot :-) Depends on Graphics-ct.422. This commit is part of reconstruction of Objectland (also known as "The Worlds of Squeak"). For more information, see: http://forum.world.st/The-Inbox-MorphicExtras-ct-267-mcz-td5104764.html =============== Diff against MorphicExtras-ct.267 =============== Item was added: + ----- Method: MovingEyeMorph class>>extraExampleSqueakIsWatchingYou (in category '*MorphicExtras-examples') ----- + extraExampleSqueakIsWatchingYou + "MovingEyeMorph extraExampleSqueakIsWatchingYou openInHand" + + ^ Form squeakIcon asMorph + addMorph: self new spec: (MorphSpec center: 0.39 @ 0.55 extent: 0.1 @ 0.15); + addMorph: self new spec: (MorphSpec center: 0.59 @ 0.56 extent: 0.1 @ 0.15); + yourself!

1 0

Jump to page: