Squeak-dev August 2019

squeak-dev@lists.squeakfoundation.org

35 participants
288 discussions

The Trunk: ToolBuilder-Kernel-ct.130.mcz
by commits＠source.squeak.org 19 Aug '19

19 Aug '19

Marcel Taeumel uploaded a new version of ToolBuilder-Kernel to project The Trunk: http://source.squeak.org/trunk/ToolBuilder-Kernel-ct.130.mcz ==================== Summary ==================== Name: ToolBuilder-Kernel-ct.130 Author: ct Time: 14 August 2019, 11:20:18.6744 pm UUID: f71618e6-c508-a04a-abb4-27f3d7b5f982 Ancestors: ToolBuilder-Kernel-mt.129 UIManager: Add overloaded versions to set styling for editing =============== Diff against ToolBuilder-Kernel-mt.129 =============== Item was added: + ----- Method: UIManager>>edit:label:shouldStyle: (in category 'ui requests - text') ----- + edit: aText label: labelString shouldStyle: aBoolean + "Open an editor on the given string/text" + ^self edit: aText label: labelString shouldStyle: aBoolean accept: nil! Item was added: + ----- Method: UIManager>>edit:label:shouldStyle:accept: (in category 'ui requests - text') ----- + edit: aText label: labelString shouldStyle: aBoolean accept: anAction + "Open an editor on the given string/text" + ^self edit: aText label: labelString accept: anAction!

1 0

Time>>#-
by Thiede, Christoph 19 Aug '19

19 Aug '19

Hi, there. Is there any reason why we don't have Time>>#-? - anotherTime ^ (self to: anotherTime) duration Best, Christoph

3 2

The Inbox: Collections-ct.851.mcz
by commits＠source.squeak.org 19 Aug '19

19 Aug '19

A new version of Collections was added to project The Inbox: http://source.squeak.org/inbox/Collections-ct.851.mcz ==================== Summary ==================== Name: Collections-ct.851 Author: ct Time: 15 August 2019, 11:36:23.694735 pm UUID: 6c7113c6-9d09-bf4c-9b32-e2001870bb56 Ancestors: Collections-ct.850 Refactor String>>#format: according to Text>>#format: I could not find any significant performance impacts. We have some duplication between both #format: implementations. Do you thing this is a problem at the current scale? =============== Diff against Collections-ct.850 =============== Item was changed: ----- Method: String>>format: (in category 'formatting') ----- + format: arguments + "format the receiver with arguments - format: aCollection - "format the receiver with aCollection simplest example: 'foo {1} bar' format: {Date today}. complete example: '\{ \} \\ foo {1} bar {2}' format: {12. 'string'}. " + ^self class new: self size * 11 // 10 streamContents: [ :output | - ^self class new: self size * 11 // 10 "+10%" streamContents: [ :output | | lastIndex nextIndex | lastIndex := 1. [ (nextIndex := self indexOfAnyOf: FormatCharacterSet startingAt: lastIndex) = 0 ] whileFalse: [ nextIndex = lastIndex ifFalse: [ output next: nextIndex - lastIndex putAll: self startingAt: lastIndex ]. + (self at: nextIndex) caseOf: { + [$\] -> [ output nextPut: (self at: (nextIndex := nextIndex + 1)) ]. + [${] -> [ - (self at: nextIndex) == $\ - ifTrue: [ output nextPut: (self at: (nextIndex := nextIndex + 1)) ] - ifFalse: [ "${" "Parse the index - a positive integer in base 10." + | character collectionIndex | - | digitValue collectionIndex | collectionIndex := 0. + [ (character := self at: (nextIndex := nextIndex + 1)) isDigit ] whileTrue: [ + collectionIndex := collectionIndex * 10 + character digitValue ]. + character = $} ifFalse: [ self error: '$} expected' ]. + output nextPutAll: (arguments at: collectionIndex) asString ] }. - [ (digitValue := self basicAt: (nextIndex := nextIndex + 1)) between: 48 "$0 asciiValue" and: 57 "$9 asciiValue" ] whileTrue: [ - collectionIndex := collectionIndex * 10 + digitValue - 48. "$0 asciiValue" ]. - digitValue = 125 "$} asciiValue" ifFalse: [ self error: '$} expected' ]. - output nextPutAll: (aCollection at: collectionIndex) asString ]. lastIndex := nextIndex + 1 ]. lastIndex <= self size ifTrue: [ output next: self size - lastIndex + 1 putAll: self startingAt: lastIndex ] ]!

5 9

The Trunk: Collections-ct.850.mcz
by commits＠source.squeak.org 19 Aug '19

19 Aug '19

Marcel Taeumel uploaded a new version of Collections to project The Trunk: http://source.squeak.org/trunk/Collections-ct.850.mcz ==================== Summary ==================== Name: Collections-ct.850 Author: ct Time: 15 August 2019, 11:33:51.432735 pm UUID: f0af391e-59c7-4b41-815c-0aa3ae8afb6d Ancestors: Collections-fn.847 Implement formatting on Text Try out something like: 'Hello {1}!' asText format: {Utilities authorInitials asText allBold}. =============== Diff against Collections-fn.847 =============== Item was added: + ----- Method: Text class>>new:streamContents: (in category 'instance creation') ----- + new: newSize streamContents: blockWithArg + + | stream | + stream := TextStream on: (self new: newSize). + blockWithArg value: stream. + ^ stream contents! Item was added: + ----- Method: Text>>format: (in category 'formatting') ----- + format: arguments + "format the receiver with arguments, respecting the format both of receiver and collection elements" + + ^self class new: self size * 11 // 10 streamContents: [ :output | + | nextIndex | + nextIndex := 1. + [ nextIndex <= self size ] whileTrue: [ + (self at: nextIndex) caseOf: { + [$\] -> [ + nextIndex := nextIndex + 1. + output withAttributes: (runs at: nextIndex) do: [ + output nextPut: (self at: nextIndex) ] ]. + [${] -> [ + "Parse the index - a positive integer in base 10." + | character collectionIndex attributes | + collectionIndex := 0. + attributes := Set new. + [ (character := string at: (nextIndex := nextIndex + 1)) isDigit ] whileTrue: [ + collectionIndex := collectionIndex * 10 + character digitValue. + attributes addAll: (runs at: nextIndex) ]. + character = $} ifFalse: [ self error: '$} expected' ]. + output withAttributes: attributes do: [ + output nextPutAll: (arguments at: collectionIndex) asStringOrText ] ] } + otherwise: [ + output withAttributes: (runs at: nextIndex) do: [ + output nextPut: (self at: nextIndex) ] ]. + nextIndex := nextIndex + 1 ] ]!

2 1

The Trunk: CollectionsTests-ct.316.mcz
by commits＠source.squeak.org 19 Aug '19

19 Aug '19

Marcel Taeumel uploaded a new version of CollectionsTests to project The Trunk: http://source.squeak.org/trunk/CollectionsTests-ct.316.mcz ==================== Summary ==================== Name: CollectionsTests-ct.316 Author: ct Time: 15 August 2019, 11:37:05.878735 pm UUID: ada4c94e-7e83-ff48-82e1-fe587c68f769 Ancestors: CollectionsTests-pre.314 Test Text>>#format: (see Collections-ct.850) =============== Diff against CollectionsTests-pre.314 =============== Item was added: + ----- Method: TextTest>>fixturesFormat (in category 'tests') ----- + fixturesFormat + + ^ { + { '\{ \} \\ foo {1} bar {2}' asText + addAttribute: TextEmphasis bold from: 3 to: 10; + addAttribute: TextEmphasis italic from: 12 to: 18; + yourself. + #(12 'string'). + '{ } \ foo 12 bar string' asText + addAttribute: TextEmphasis bold from: 2 to: 7; + addAttribute: TextEmphasis italic from: 9 to: 14; + yourself }. + { '\{ \} \\ foo {2} bar {1}' asText. + { 'string' asText + addAttribute: TextEmphasis bold from: 2 to: 4; + yourself. + 12 }. + '{ } \ foo 12 bar string' asText + addAttribute: TextEmphasis bold from: 19 to: 21; + yourself }. + { '\{1}' asText. + #(). + '{1}' asText }. + { '\{1}{1}' asText allBold. + { $a asText + addAttribute: TextEmphasis italic; + yourself }. + '{1}a' asText allBold + addAttribute: TextEmphasis italic from: 4 to: 4; + yourself }. + { 'foo' asText. + #(). + 'foo' asText }. + }! Item was added: + ----- Method: TextTest>>fixturesFormatErrors (in category 'tests') ----- + fixturesFormatErrors + + ^ #( + '{1 }' + '{1abc}' + '{ 1}' + '{ 1.0 }' + '{1' + '{1 foo' + '{2}' + '{0}' + '{-0}' + '{-1}' + )! Item was added: + ----- Method: TextTest>>testFormat (in category 'tests') ----- + testFormat + + self fixturesFormat do: [ :fixture | | expectedResult actualResult | + expectedResult := fixture third. + actualResult := fixture first format: fixture second. + self + assert: expectedResult equals: actualResult; + assert: expectedResult runs size equals: actualResult runs size. + 1 to: expectedResult size do: [ :i | + self + assert: (expectedResult attributesAt: i) asSet + equals: (actualResult attributesAt: i) asSet ] ]! Item was added: + ----- Method: TextTest>>testFormatErrors (in category 'tests') ----- + testFormatErrors + + self fixturesFormatErrors do: [ :each | + self should: [ each asText format: { 'x' } ] raise: Error ]!

1 0

EToys : Problem Saving & Executing Modified Script
by Indrajith 19 Aug '19

19 Aug '19

Version Tested : Squeak 5.3 (Seems to happen in 5.2 also) Problem: In the textual version of the script "show code textually" any modification cannot be saved and executed. Steps to reproduce. 1. Create any object like Sketch, Rectangle etc 2. Create an emptyScript 3. In the menu (top left button of the script window) click and choose "show code textually" 4. Type some code like "self forward: 10" (without quotes of course!) 5. Try Ctrl-S to save the code. :( The orange dog ear don't go away, indicating the script not saved 6. Try executing the script; still the script don't execute. PS: The same scenario works on the etoys version 5 from squeakland.org. <http://forum.world.st/file/t372264/steps_to_reproduce.jpg> -- Sent from: http://forum.world.st/Squeak-Dev-f45488.html

3 5

The Trunk: EToys-mt.349.mcz
by commits＠source.squeak.org 19 Aug '19

19 Aug '19

Marcel Taeumel uploaded a new version of EToys to project The Trunk: http://source.squeak.org/trunk/EToys-mt.349.mcz ==================== Summary ==================== Name: EToys-mt.349 Author: mt Time: 19 August 2019, 2:42:42.183039 pm UUID: 46ba930f-ca23-ab4a-b0b3-ca9e1b2fffba Ancestors: EToys-mt.348 For Etoys release building, ensure that all control and alt keys stay duplicated. Skip the information dialog until we have a more script-friendly version of that preference. It tells us about re-setting mutually exclusive preferences. =============== Diff against EToys-mt.348 =============== Item was changed: ----- Method: ReleaseBuilderSqueakland class>>setPreferences (in category 'scripts') ----- setPreferences super setPreferences. + + [ "Reset all preferences to their default value but ensure that all control and alt keys stay duplicated." + Preferences cambridge. + Preferences allPreferences do: [:each | + each defaultValue: each preferenceValue]. + Preferences + enable: #duplicateAllControlAndAltKeys. + ] valueSupplyingAnswer: true. - Preferences cambridge. - Preferences allPreferences do: [:each | - each defaultValue: each preferenceValue]. Preferences disable: #alternativeWindowBoxesLook; enable: #magicHalos; enable: #mouseOverHalos; enable: #roundedScrollBarLook; enable: #roundedWindowCorners; enable: #showAdvancedNavigatorButtons; disable: #honorDesktopCmdKeys; disable: #warnIfNoChangesFile; disable: #warnIfNoSourcesFile; enable: #unlimitedPaintArea; enable: #fastDragWindowForMorphic; enable: #noviceMode; disable: #generalizedYellowButtonMenu; disable: #showAdvancedNavigatorButtons; disable: #signProjectFiles; disable: #warnIfNoChangesFile; disable: #warnIfChangesFileReadOnly; disable: #warnIfNoSourcesFile. Morph preferredCornerRadius: 8. PluggableButtonMorph roundedButtonCorners: true. FillInTheBlankMorph roundedDialogCorners: true. SystemWindow roundedWindowCorners: true. Cursor useBiggerCursors: true. TrashCanMorph slideDismissalsToTrash: true; preserveTrash: true. SugarNavigatorBar showHideButton: false; showSugarNavigator: true. Deprecation showDeprecationWarnings: false.!

1 0

The Trunk: EToys-kfr.346.mcz
by commits＠source.squeak.org 19 Aug '19

19 Aug '19

Marcel Taeumel uploaded a new version of EToys to project The Trunk: http://source.squeak.org/trunk/EToys-kfr.346.mcz ==================== Summary ==================== Name: EToys-kfr.346 Author: kfr Time: 18 August 2019, 11:39:01.217323 am UUID: 5cf365e7-d7c7-a544-87bd-8cbcdbe3398a Ancestors: EToys-mt.345 Textually coded etoy scripts does not work with the etoys debugger =============== Diff against EToys-mt.345 =============== Item was changed: ----- Method: EtoysDebugger>>evaluateNextTile (in category 'evaluating') ----- evaluateNextTile + (scriptEditor isTextuallyCoded) ifTrue:[^self inform:'You cant step through textally coded scripts']. [next = (scriptEditor tiles at: 1 ifAbsent: [nil]) ifTrue: ["We are about to evaluate the first tile" self updateStartingPosition]. self trailMorph batchPenTrails ifTrue: [self evaluateNextTileWithBatchPenTrails] ifFalse: [next evaluateOn: self]] on: Error do: [:err || newNext | newNext := scriptEditor tiles at: 1 ifAbsent: [^ self]. newNext = next ifTrue: [err pass] ifFalse: [next := newNext]. self evaluateNextTile] !

1 0

The Trunk: EToys-kfr.347.mcz
by commits＠source.squeak.org 19 Aug '19

19 Aug '19

Marcel Taeumel uploaded a new version of EToys to project The Trunk: http://source.squeak.org/trunk/EToys-kfr.347.mcz ==================== Summary ==================== Name: EToys-kfr.347 Author: kfr Time: 18 August 2019, 11:41:13.596323 am UUID: 76127dd0-7463-ef43-a54a-777573d0d59b Ancestors: EToys-kfr.346 Spelin eror =============== Diff against EToys-mt.345 =============== Item was changed: ----- Method: EtoysDebugger>>evaluateNextTile (in category 'evaluating') ----- evaluateNextTile + (scriptEditor isTextuallyCoded) ifTrue:[^self inform:'You cant step through textually coded scripts']. [next = (scriptEditor tiles at: 1 ifAbsent: [nil]) ifTrue: ["We are about to evaluate the first tile" self updateStartingPosition]. self trailMorph batchPenTrails ifTrue: [self evaluateNextTileWithBatchPenTrails] ifFalse: [next evaluateOn: self]] on: Error do: [:err || newNext | newNext := scriptEditor tiles at: 1 ifAbsent: [^ self]. newNext = next ifTrue: [err pass] ifFalse: [next := newNext]. self evaluateNextTile] !

1 0

The Trunk: EToys-mt.348.mcz
by commits＠source.squeak.org 19 Aug '19

19 Aug '19

Marcel Taeumel uploaded a new version of EToys to project The Trunk: http://source.squeak.org/trunk/EToys-mt.348.mcz ==================== Summary ==================== Name: EToys-mt.348 Author: mt Time: 19 August 2019, 2:15:42.515152 pm UUID: 52342b0c-7ee5-aa4d-8bbd-c67788816b5b Ancestors: EToys-kfr.347 Merges EToys-kfr.347 fix about stepping through textually coded scripts. =============== Diff against EToys-mt.345 =============== Item was changed: ----- Method: EtoysDebugger>>evaluateNextTile (in category 'evaluating') ----- evaluateNextTile + (scriptEditor isTextuallyCoded) ifTrue:[^ self inform: 'You can''t step through textually coded scripts.\Use a script''s tile-based representation instead.' withCRs translated]. [next = (scriptEditor tiles at: 1 ifAbsent: [nil]) ifTrue: ["We are about to evaluate the first tile" self updateStartingPosition]. self trailMorph batchPenTrails ifTrue: [self evaluateNextTileWithBatchPenTrails] ifFalse: [next evaluateOn: self]] on: Error do: [:err || newNext | newNext := scriptEditor tiles at: 1 ifAbsent: [^ self]. newNext = next ifTrue: [err pass] ifFalse: [next := newNext]. self evaluateNextTile] !

1 0

← Newer
1
...
7
8
9
10
11
12
13
...
29
Older →

Jump to page: