Packages August 2019

packages@lists.squeakfoundation.org

1 participants
150 discussions

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

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 ] ]!

1 0

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

The Trunk: PreferenceBrowser-mt.90.mcz
by commits＠source.squeak.org 15 Aug '19

15 Aug '19

Marcel Taeumel uploaded a new version of PreferenceBrowser to project The Trunk: http://source.squeak.org/trunk/PreferenceBrowser-mt.90.mcz ==================== Summary ==================== Name: PreferenceBrowser-mt.90 Author: mt Time: 15 August 2019, 1:26:37.245487 pm UUID: cf28471c-38ae-3946-bf76-0e01b68955e4 Ancestors: PreferenceBrowser-mt.89 In preference browser, adds search for code expressions (i.e., class name or selector for pragma preferences). =============== Diff against PreferenceBrowser-mt.89 =============== Item was changed: ----- Method: PreferenceBrowser>>searchPreferencesFor: (in category 'preferences search') ----- searchPreferencesFor: pattern | result | result := pattern asString asLowercase withBlanksTrimmed. result ifEmpty: [^self]. searchResults := self allPreferences select: [:aPreference | + ((aPreference name includesSubstring: result caseSensitive: false) + or: [aPreference helpString includesSubstring: result caseSensitive: false]) + or: [aPreference codeString includesSubstring: result caseSensitive: false] ]. - (aPreference name includesSubstring: result caseSensitive: false) or: - [aPreference helpString includesSubstring: result caseSensitive: false]]. self selectSearchResultsCategory. self lastExecutedSearch: pattern. !

1 0

The Trunk: PreferenceBrowser-mt.89.mcz
by commits＠source.squeak.org 15 Aug '19

15 Aug '19

Marcel Taeumel uploaded a new version of PreferenceBrowser to project The Trunk: http://source.squeak.org/trunk/PreferenceBrowser-mt.89.mcz ==================== Summary ==================== Name: PreferenceBrowser-mt.89 Author: mt Time: 15 August 2019, 12:00:45.543945 pm UUID: 8023ca53-7e04-8e46-98b7-a9e927923f26 Ancestors: PreferenceBrowser-ct.88 Some cosmetic improvements. Fixes "show category" button. =============== Diff against PreferenceBrowser-ct.88 =============== Item was changed: ----- Method: PBPreferenceButtonMorph>>addExtraControls (in category 'extra controls') ----- addExtraControls | m | m := self horizontalPanel cellInset: 3; addAllMorphs: self actionButtons; addMorphBack: self horizontalFiller; addMorphBack: self moreButton; yourself. self addMorphBack: (self blankSpaceOf: 2@2); addMorphBack: self preferenceHelpTextMorph; + addMorphBack: self horizontalLine; + addMorphBack: self preferenceCodeTextMorph; fullBounds; "to force a layout compute needed by the textMorphs's autoFit" addMorphBack: m ! Item was changed: ----- Method: PBPreferenceButtonMorph>>basicButton (in category 'utility methods') ----- basicButton + + ^ PluggableButtonMorph new + target: self; + layoutInset: (10@5 corner: 10@5); + yourself! - | button | - button := SimpleButtonMorph new. - button - borderWidth: 1; - borderColor: self paneColor; - on: #mouseEnter send: #value to: [button borderWidth: 2]; - on: #mouseLeave send: #value to: [button borderWidth: 1]; - vResizing: #rigid; - height: (TextStyle defaultFont height + 4); - useSquareCorners; - clipSubmorphs: true; - color: self paneColor muchLighter; - target: self. - ^button! Item was changed: ----- Method: PBPreferenceButtonMorph>>highlightOn (in category 'highlighting') ----- highlightOn self color: ((UserInterfaceTheme current get: #selectionColor for: PluggableListMorph) ifNil: [Color gray alpha: 0.1]). self label color: ((UserInterfaceTheme current get: #selectionTextColor for: PluggableListMorph) ifNil: [Color black]); + font: (((UserInterfaceTheme current get: #font for: PluggableListMorph) ifNil: [TextStyle defaultFont]) + emphasized: TextEmphasis bold emphasisCode). + - font: ((UserInterfaceTheme current get: #font for: PluggableListMorph) ifNil: [TextStyle defaultFont]). - self addExtraControls.! Item was added: + ----- Method: PBPreferenceButtonMorph>>horizontalLine (in category 'utility methods') ----- + horizontalLine + ^self horizontalPanel + hResizing: #spaceFill; + height: 2; + color: ((UserInterfaceTheme current get: #color for: PluggableListMorph) ifNil: [Color white]); + yourself.! Item was added: + ----- Method: PBPreferenceButtonMorph>>preferenceCode (in category 'preference accessing') ----- + preferenceCode + + ^ self preference codeString withBlanksTrimmed! Item was added: + ----- Method: PBPreferenceButtonMorph>>preferenceCodeText (in category 'preference accessing') ----- + preferenceCodeText + + | text | + text := self preferenceCode asText + addAttribute: (TextFontReference toFont: Preferences standardCodeFont); + yourself. + ^ (Smalltalk classNamed: #SHTextStylerST80) + ifNil: [text] + ifNotNil: [:stylerClass | stylerClass new styledTextFor: text]! Item was added: + ----- Method: PBPreferenceButtonMorph>>preferenceCodeTextMorph (in category 'extra controls') ----- + preferenceCodeTextMorph + | text tm | + text := self preferenceCodeText. + tm := TextMorph new + contents: text; + wrapFlag: true; + autoFit: true; + hResizing: #spaceFill; + vResizing: #shrinkWrap; + margins: (5@0 corner: 5@0); + visible: text notEmpty; + yourself. "we don't want an empty textmorph showing" + ^tm! Item was changed: ----- Method: PBPreferenceButtonMorph>>preferenceHelpTextMorph (in category 'extra controls') ----- preferenceHelpTextMorph | text tm | text := self preferenceHelpText. tm := TextMorph new contents: text; wrapOnOff; hResizing: #spaceFill; vResizing: #shrinkWrap; + margins: (5@0 corner: 5@0); lock: true; visible: text notEmpty; yourself. "we don't want an empty textmorph showing" tm isAutoFit ifFalse: [tm autoFitOnOff]. ^tm.! Item was changed: ----- Method: PBPreferenceView>>basicPanel (in category 'user interface') ----- basicPanel ^BorderedMorph new beTransparent; extent: 0@0; borderWidth: 0; layoutInset: 0; + cellInset: 5; - cellInset: 2; layoutPolicy: TableLayout new; listCentering: #topLeft; cellPositioning: #center; hResizing: #shrinkWrap; vResizing: #shrinkWrap; yourself! Item was changed: ----- Method: PBPreferenceView>>offerPreferenceNameMenu: (in category 'user interface') ----- offerPreferenceNameMenu: aPreferenceBrowser "the user clicked on a preference name -- put up a menu" + | aMenu readableName | + readableName := self preference readableName. - | aMenu | aMenu := MenuMorph new defaultTarget: self preference; + addTitle: readableName. - addTitle: self preference name. (Preferences okayToChangeProjectLocalnessOf: self preference name) ifTrue: [aMenu addUpdating: #isProjectLocalString target: self preference action: #toggleProjectLocalness; balloonTextForLastItem: 'Some preferences are best applied uniformly to all projects, and others are best set by each individual project. If this item is checked, then this preference will be printed in bold and will have a separate value for each project']. aMenu + addLine; add: 'browse senders' translated target: self systemNavigation selector: #browseAllSelect:name:autoSelect: argumentList: { [:m | self preference selectors anySatisfy: [:sel | m hasLiteral: sel]]. 'Preference senders: {1}' translated format: {self preference name}. self preference selectors first }; balloonTextForLastItem: 'This will open a method-list browser on all methods that the send the preference "' + , readableName , '".'. - , self preference name , '".'. self preference provider ifNotNil: [ aMenu add: 'browse implementation' translated + target: ToolSet + selector: #browse:selector: - target: Browser - selector: #fullOnClass:selector: argumentList: { self preference provider class. self preference selectors first }; + balloonTextForLastItem: 'This will open a browser on the method that stores the preference "' , readableName , '".']. - balloonTextForLastItem: 'This will open a browser on the method that stores the preference "' , self preference name , '".']. aMenu add: 'inspect preference' translated target: self preference selector: #inspect; + balloonTextForLastItem: 'This will open an Inspector on the preference "' , readableName , '".'. - balloonTextForLastItem: 'This will open an Inspector on the preference "' , self preference name , '".'. aMenu + addLine; + add: 'show category' - add: 'show category...' target: aPreferenceBrowser selector: #findCategoryFromPreference: + argument: self preference; - argument: self preference name; balloonTextForLastItem: 'Allows you to find out which category, or categories, this preference belongs to.'. Smalltalk isMorphic ifTrue: [aMenu add: 'hand me a button for this preference' target: self selector: #tearOffButton; balloonTextForLastItem: 'Will give you a button that governs this preference, which you may deposit wherever you wish']. aMenu + add: 'copy name to clipboard' - add: 'copy this name to clipboard' target: self preference selector: #copyName; balloonTextForLastItem: 'Copy the name of the preference to the text clipboard, so that you can paste into code somewhere'. + aMenu + add: 'copy code to clipboard' + target: self preference + selector: #copyCode; + balloonTextForLastItem: 'Copy the code to access the current preference value to the clipboard, so that you can paste into code somewhere'. aMenu popUpInWorld! Item was changed: ----- Method: PreferenceBrowser>>findCategoryFromPreference: (in category 'find') ----- + findCategoryFromPreference: aPreference - findCategoryFromPreference: prefSymbol "Find all categories in which the preference occurs" | aMenu| aMenu := MenuMorph new defaultTarget: self. + aPreference categoryList do: - (preferences categoryListOfPreference: prefSymbol) do: [:aCategory | aMenu add: aCategory target: self selector: #selectedCategory: argument: aCategory]. aMenu popUpInWorld! Item was changed: ----- Method: PreferenceView>>morphForName (in category 'user interface') ----- morphForName + ^ ((StringMorph contents: self preference readableName) - ^ ((StringMorph contents: self preference name) color: ((UserInterfaceTheme current get: #textColor for: PluggableListMorph) ifNil: [Color black]); font: ((UserInterfaceTheme current get: #font for: PluggableListMorph) ifNil: [TextStyle defaultFont]); yourself)!

1 0

The Trunk: System-mt.1086.mcz
by commits＠source.squeak.org 15 Aug '19

15 Aug '19

Marcel Taeumel uploaded a new version of System to project The Trunk: http://source.squeak.org/trunk/System-mt.1086.mcz ==================== Summary ==================== Name: System-mt.1086 Author: mt Time: 15 August 2019, 11:56:27.168945 am UUID: ff933ddb-8d0d-f447-a77e-cef1e48bae95 Ancestors: System-mt.1085 Adds a way to get readable names for old-style preferences. Adds a way to get the source code you need to use those preferences in your projects. =============== Diff against System-mt.1085 =============== Item was added: + ----- Method: PragmaPreference>>codeString (in category 'menu') ----- + codeString + "Answer the Smalltalk expressions to get the preference value." + + ^ self provider name, ' ', getter! Item was added: + ----- Method: Preference>>codeString (in category 'menu') ----- + codeString + "Answer the Smalltalk expressions to get the preference value." + + ^ 'Preferences valueOfFlag: #', self name! Item was added: + ----- Method: Preference>>copyCode (in category 'menu') ----- + copyCode + "Copy the code for the given preference to the clipboard" + + Clipboard clipboardText: self codeString.! Item was added: + ----- Method: Preference>>readableName (in category 'menu') ----- + readableName + "Split camel-case preferences into a readable string with spaces." + + | result | + result := (self name includes: Character space) + ifTrue: [self name asString copy] + ifFalse: [self name findFeatures joinSeparatedBy: ' ']. + + "Ensure first letter is uppercase" + result at: 1 put: (result at: 1) asUppercase. + + ^ result!

1 0

The Trunk: Morphic-mt.1505.mcz
by commits＠source.squeak.org 15 Aug '19

15 Aug '19

Marcel Taeumel uploaded a new version of Morphic to project The Trunk: http://source.squeak.org/trunk/Morphic-mt.1505.mcz ==================== Summary ==================== Name: Morphic-mt.1505 Author: mt Time: 15 August 2019, 11:54:33.818945 am UUID: 1ad0043a-994e-374a-b194-ed4562267257 Ancestors: Morphic-mt.1504 Adds compatibility protocol to convert SimpleButtonMorph to PluggableButtonMorph. #actionSelector: is already in PluggableButtonMorphPlus and the instVar is called that way. #target: is the intended callback from the Morph base class. =============== Diff against Morphic-mt.1504 =============== Item was added: + ----- Method: PluggableButtonMorph>>actionSelector: (in category 'accessing') ----- + actionSelector: aSymbol + "Set actionSelector to be the action defined by aSymbol." + + actionSelector := aSymbol. + ! Item was added: + ----- Method: PluggableButtonMorph>>target: (in category 'accessing') ----- + target: anObject + + self model: anObject.!

1 0

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

Jump to page:

2024

2023

2022

2021

2020

2019

2018

2017

2016

2015

2014

2013

2012

2011

2010

2009

2008

2007

2006

2005

Packages August 2019