Packages October 2020

packages@lists.squeakfoundation.org

1 participants
168 discussions

The Trunk: Morphic-mt.1702.mcz
by commits＠source.squeak.org 15 Oct '20

15 Oct '20

Marcel Taeumel uploaded a new version of Morphic to project The Trunk: http://source.squeak.org/trunk/Morphic-mt.1702.mcz ==================== Summary ==================== Name: Morphic-mt.1702 Author: mt Time: 15 October 2020, 2:30:38.301368 pm UUID: 4eb3e7e3-9fda-af4a-9e7d-4ae1187fb179 Ancestors: Morphic-mt.1701 Complements System-mt.1180. See http://forum.world.st/Proposal-Resetting-pragma-preferences-via-nil-or-rese… =============== Diff against Morphic-mt.1701 =============== Item was changed: ----- Method: MorphicProject>>showWorldMainDockingBar (in category 'docking bars support') ----- showWorldMainDockingBar ^ self projectPreferenceFlagDictionary at: #showWorldMainDockingBar + ifAbsent: [ true ]! - ifAbsent: [ false ]! Item was changed: ----- Method: MorphicProject>>showWorldMainDockingBar: (in category 'docking bars support') ----- + showWorldMainDockingBar: aBooleanOrNil - showWorldMainDockingBar: aBoolean "Change the receiver to show the main docking bar" + aBooleanOrNil + ifNil: [self projectPreferenceFlagDictionary removeKey: #showWorldMainDockingBar ifAbsent: []] + ifNotNil: [self projectPreferenceFlagDictionary at: #showWorldMainDockingBar put: aBooleanOrNil]. - self projectPreferenceFlagDictionary at: #showWorldMainDockingBar put: aBoolean. self assureMainDockingBarPresenceMatchesPreference! Item was changed: ----- Method: PasteUpMorph class>>globalCommandKeysEnabled: (in category 'preferences') ----- globalCommandKeysEnabled: aBoolean GlobalCommandKeysEnabled = aBoolean ifTrue: [^ self]. GlobalCommandKeysEnabled := aBoolean. SystemWindow allSubInstancesDo: [:ea | + self globalCommandKeysEnabled - aBoolean ifTrue: [ea addKeyboardShortcuts] ifFalse: [ea removeKeyboardShortcuts]]. PasteUpMorph allSubInstancesDo: [:ea | + self globalCommandKeysEnabled - aBoolean ifTrue: [ea addKeyboardShortcuts] ifFalse: [ea removeKeyboardShortcuts]].! Item was changed: ----- Method: PluggableTextMorph class>>softLineWrap: (in category 'preferences') ----- + softLineWrap: aBooleanOrNil - softLineWrap: aBoolean + aBooleanOrNil == SoftLineWrap ifTrue: [^ self]. + SoftLineWrap := aBooleanOrNil. - aBoolean == SoftLineWrap ifTrue: [^ self]. - SoftLineWrap := aBoolean. PluggableTextMorph allSubInstancesDo: [:m | + m text lineCount > 1 ifTrue: [m wrapFlag: self softLineWrap]].! - m text lineCount > 1 ifTrue: [m wrapFlag: aBoolean]].! Item was changed: ----- Method: ProportionalSplitterMorph class>>smartHorizontalSplitters: (in category 'preferences') ----- + smartHorizontalSplitters: aBooleanOrNil + SmartHorizontalSplitters := aBooleanOrNil. + self preferenceChanged: self smartHorizontalSplitters.! - smartHorizontalSplitters: aBoolean - SmartHorizontalSplitters := aBoolean. - self preferenceChanged: aBoolean! Item was changed: ----- Method: ProportionalSplitterMorph class>>smartVerticalSplitters: (in category 'preferences') ----- + smartVerticalSplitters: aBooleanOrNil + SmartVerticalSplitters := aBooleanOrNil. + self preferenceChanged: self smartHorizontalSplitters.! - smartVerticalSplitters: aBoolean - SmartVerticalSplitters := aBoolean. - self preferenceChanged: aBoolean! Item was changed: ----- Method: ScrollPane class>>useRetractableScrollBars: (in category 'preferences') ----- + useRetractableScrollBars: aBooleanOrNil - useRetractableScrollBars: aBoolean + UseRetractableScrollBars = aBooleanOrNil ifTrue: [^ self]. + UseRetractableScrollBars := aBooleanOrNil. - UseRetractableScrollBars = aBoolean ifTrue: [^ self]. - UseRetractableScrollBars := aBoolean. ScrollPane allSubInstances do: [:pane | + pane retractable: self useRetractableScrollBars].! - pane retractable: aBoolean].! Item was changed: ----- Method: SystemWindow class>>moveMenuButtonRight: (in category 'preferences') ----- + moveMenuButtonRight: aBooleanOrNil - moveMenuButtonRight: aBoolean + | absLeftOffset moveToRight | + moveToRight := aBooleanOrNil ifNil: [true "default value"]. + absLeftOffset := ((self hideExpandButton and: [moveToRight]) - | absLeftOffset | - absLeftOffset := ((self hideExpandButton and: [aBoolean]) ifTrue: [absLeftOffset := self boxExtent x * 2] ifFalse: [absLeftOffset := self boxExtent x]) + 3. + self menuBoxFrame leftOffset: (moveToRight - self menuBoxFrame leftOffset: (aBoolean ifTrue: [absLeftOffset negated] ifFalse: [absLeftOffset]). self refreshAllWindows.! Item was changed: ----- Method: TextMorphForEditView class>>draggableTextSelection: (in category 'preferences') ----- + draggableTextSelection: aBooleanOrNil - draggableTextSelection: aBoolean + DraggableTextSelection := aBooleanOrNil. - DraggableTextSelection := aBoolean. + self draggableTextSelection in: [:aBoolean | + TextMorphForEditView allInstancesDo: [:tm | + tm dragEnabled: aBoolean; dropEnabled: aBoolean]].! - TextMorphForEditView allInstancesDo: [:tm | - tm dragEnabled: aBoolean; dropEnabled: aBoolean].! Item was changed: ----- Method: TheWorldMainDockingBar class>>setMenuPreference:to: (in category 'preferences') ----- + setMenuPreference: aPreferenceSymbol to: aBooleanOrNil - setMenuPreference: aPreferenceSymbol to: aBoolean | project | (project := Project current) isMorphic ifTrue: [ + aBooleanOrNil + ifNil: ["Reset to default value." + (Preferences preferenceAt: aPreferenceSymbol) ifNotNil: [:pref | pref restoreDefaultValue]] + ifNotNil: [ + project projectPreferenceFlagDictionary at: aPreferenceSymbol put: aBooleanOrNil]. + (aBooleanOrNil ~= (Preferences preferenceAt: aPreferenceSymbol)) + ifTrue: [Preferences setPreference: aPreferenceSymbol toValue: aBooleanOrNil]]. - project projectPreferenceFlagDictionary at: aPreferenceSymbol put: aBoolean. - (aBoolean ~= (Preferences preferenceAt: aPreferenceSymbol)) - ifTrue: [Preferences setPreference: aPreferenceSymbol toValue: aBoolean]]. self updateInstances.!

1 0

The Trunk: Kernel-mt.1353.mcz
by commits＠source.squeak.org 15 Oct '20

15 Oct '20

Marcel Taeumel uploaded a new version of Kernel to project The Trunk: http://source.squeak.org/trunk/Kernel-mt.1353.mcz ==================== Summary ==================== Name: Kernel-mt.1353 Author: mt Time: 15 October 2020, 2:29:01.197368 pm UUID: e4947d59-b541-7441-9662-67bb4052fbdb Ancestors: Kernel-mt.1352 Complements System-mt.1180. See http://forum.world.st/Proposal-Resetting-pragma-preferences-via-nil-or-rese… =============== Diff against Kernel-mt.1352 =============== Item was changed: ----- Method: CompiledCode class>>preferredBytecodeSetEncoderClass: (in category 'preferences') ----- preferredBytecodeSetEncoderClass: aBytecodeEncoderSubclass "Set the class that determines the bytecode set used to compile methods with. [| nPrimary nSecondary | nPrimary := nSecondary := 0. self allSubInstancesDo: [:cm| cm header >= 0 ifTrue: [nPrimary := nPrimary + 1] ifFalse: [nSecondary := nSecondary + 1]]. {nPrimary. nSecondary}]" | nPrimary nSecondary | + aBytecodeEncoderSubclass ifNil: [ "Use default value." + PreferredBytecodeSetEncoderClass := nil. + ^ self preferredBytecodeSetEncoderClass: self preferredBytecodeSetEncoderClass]. self assert: (aBytecodeEncoderSubclass includesBehavior: BytecodeEncoder). (aBytecodeEncoderSubclass == PrimaryBytecodeSetEncoderClass or: [aBytecodeEncoderSubclass == SecondaryBytecodeSetEncoderClass]) ifTrue: [PreferredBytecodeSetEncoderClass := aBytecodeEncoderSubclass. ^self]. nPrimary := nSecondary := 0. self allSubInstancesDo: [:cm| cm header >= 0 ifTrue: [nPrimary := nPrimary + 1] ifFalse: [nSecondary := nSecondary + 1]]. nPrimary = 0 ifTrue: [self installPrimaryBytecodeSet: aBytecodeEncoderSubclass. ^self preferredBytecodeSetEncoderClass: aBytecodeEncoderSubclass]. nSecondary = 0 ifTrue: [self installSecondaryBytecodeSet: aBytecodeEncoderSubclass. ^self preferredBytecodeSetEncoderClass: aBytecodeEncoderSubclass]. self error: 'Cannot set preferred bytecode set. Both of the current sets appear to be in use.'!

1 0

The Trunk: EToys-mt.409.mcz
by commits＠source.squeak.org 15 Oct '20

15 Oct '20

Marcel Taeumel uploaded a new version of EToys to project The Trunk: http://source.squeak.org/trunk/EToys-mt.409.mcz ==================== Summary ==================== Name: EToys-mt.409 Author: mt Time: 15 October 2020, 2:28:01.506368 pm UUID: 58099368-adbf-1843-a063-89749e36e463 Ancestors: EToys-mt.408 Complements System-mt.1180. See http://forum.world.st/Proposal-Resetting-pragma-preferences-via-nil-or-rese… =============== Diff against EToys-mt.408 =============== Item was changed: ----- Method: SugarNavigatorBar class>>showSugarNavigator: (in category 'preferences') ----- + showSugarNavigator: aBooleanOrNil - showSugarNavigator: aBoolean + ShowSugarNavigator := aBooleanOrNil. + Smalltalk + at: #TheWorldMainDockingBar + ifPresent: [:class | class showWorldMainDockingBar: self showSugarNavigator not]. - ShowSugarNavigator := aBoolean. - Smalltalk at: #TheWorldMainDockingBar ifPresent: [:class | class showWorldMainDockingBar: aBoolean not]. Project current updateLocaleDependents.!

1 0

The Trunk: Collections-mt.919.mcz
by commits＠source.squeak.org 15 Oct '20

15 Oct '20

Marcel Taeumel uploaded a new version of Collections to project The Trunk: http://source.squeak.org/trunk/Collections-mt.919.mcz ==================== Summary ==================== Name: Collections-mt.919 Author: mt Time: 15 October 2020, 2:27:14.853368 pm UUID: 13747fbe-9c7e-2341-9a7a-36420923d5f3 Ancestors: Collections-mt.918 Complements System-mt.1180. See http://forum.world.st/Proposal-Resetting-pragma-preferences-via-nil-or-rese… =============== Diff against Collections-mt.918 =============== Item was changed: ----- Method: TranscriptStream class>>redirectToStdOut: (in category 'preferences') ----- + redirectToStdOut: aBooleanOrNil - redirectToStdOut: aBoolean "In setting up redirection, first remove all dependents that are stdout, which may include stale files from the last session. Then add a dependency only if asked to redirect to stdout. Blithely doing Transcript removeDependent: FileStream stdout raises an error if stdout is unavailable." Transcript dependents do: [:dep| (dep isStream and: [dep name = #stdout]) ifTrue: [Transcript removeDependent: dep]]. + RedirectToStdOut := aBooleanOrNil. + self redirectToStdOut ifTrue: - (RedirectToStdOut := aBoolean) ifTrue: [Transcript addDependent: FileStream stdout]!

1 0

The Trunk: Chronology-Core-mt.62.mcz
by commits＠source.squeak.org 15 Oct '20

15 Oct '20

Marcel Taeumel uploaded a new version of Chronology-Core to project The Trunk: http://source.squeak.org/trunk/Chronology-Core-mt.62.mcz ==================== Summary ==================== Name: Chronology-Core-mt.62 Author: mt Time: 15 October 2020, 2:25:49.333368 pm UUID: c9779820-dc98-e54d-81b9-b8a19c29ce59 Ancestors: Chronology-Core-eem.61 Complements System-mt.1180. See http://forum.world.st/Proposal-Resetting-pragma-preferences-via-nil-or-rese… =============== Diff against Chronology-Core-eem.61 =============== Item was changed: ----- Method: DateAndTime class>>automaticTimezone: (in category 'preferences') ----- + automaticTimezone: aBooleanOrNil - automaticTimezone: aBoolean "Accessor for the system-wide preference. Note this gets disabled in localTimeZone: to make that override stick" + AutomaticTimezone := aBooleanOrNil. + self automaticTimezone ifTrue: [self now]. "fetch timezone immediately"! - AutomaticTimezone := aBoolean. - aBoolean ifTrue: [self now]. "fetch timezone immediately"!

1 0

The Trunk: ReleaseBuilder-mt.212.mcz
by commits＠source.squeak.org 15 Oct '20

15 Oct '20

Marcel Taeumel uploaded a new version of ReleaseBuilder to project The Trunk: http://source.squeak.org/trunk/ReleaseBuilder-mt.212.mcz ==================== Summary ==================== Name: ReleaseBuilder-mt.212 Author: mt Time: 15 October 2020, 2:24:29.226368 pm UUID: fc86eeb0-8a62-e04d-ae69-f8d7753835f7 Ancestors: ReleaseBuilder-mt.211 Complements System-mt.1180. See http://forum.world.st/Proposal-Resetting-pragma-preferences-via-nil-or-rese… =============== Diff against ReleaseBuilder-mt.211 =============== Item was changed: ----- Method: ReleaseBuilder class>>clearCaches (in category 'scripts') ----- clearCaches "Clear caches, discard unused references, free space." "1) Explicit clean-up of FONT-related stuff." self cleanUpBitstreamVeraSans. StrikeFont initialize. "2) FIRST PHASE of explicit clean-up of CODE-related stuff." self discardUserObjects. MCFileBasedRepository flushAllCaches. "3) Now clean-up all STATE-related stuff." + Preferences chooseInitialSettings. Smalltalk cleanUp: true. "4) SECOND PHASE of explicit clean-up of CODE-related stuff. As late as possible to get rid of all references before running this." Smalltalk garbageCollect. Environment allInstancesDo: [:environment | environment purgeUndeclared ]. Undeclared removeUnreferencedKeys. !

1 0

The Trunk: System-mt.1180.mcz
by commits＠source.squeak.org 15 Oct '20

15 Oct '20

Marcel Taeumel uploaded a new version of System to project The Trunk: http://source.squeak.org/trunk/System-mt.1180.mcz ==================== Summary ==================== Name: System-mt.1180 Author: mt Time: 15 October 2020, 2:23:31.928368 pm UUID: 25a53f29-0b97-c54a-a1f9-e19fed013518 Ancestors: System-mt.1179 Enables restoring of default values for pragma preferences. Fixes pref-setters that do not support 'nil' argument. Note that now both pref-getter and pref-setter have this 'nil' contract. =============== Diff against System-mt.1179 =============== Item was changed: ----- Method: PragmaPreference>>restoreDefaultValue (in category 'initialization') ----- restoreDefaultValue + "Try to send a reset request to the preference provider by setting the preference value to 'nil' to exploit the usual ifNil-pattern in the pragma-preference's getter. + + Note that this reset is silent-by-design to be as fast as possible. If you want to send out notifications, try this: + self rawValue: self preferenceValue; notifyInformeeOfChange." + + [[self rawValue: nil] valueSupplyingAnswer: true] + ifError: [:msg | + Transcript + showln: 'Failed to reset pragma preference: ', provider printString, ' >> ', getter printString; + showln: msg].! - "Pragma preferences preserve their current value"! Item was changed: ----- Method: RecentMessages class>>numberOfRecentSubmissionsToStore: (in category 'preferences') ----- + numberOfRecentSubmissionsToStore: anIntegerOrNil + self default maximumSubmissionCount: (anIntegerOrNil ifNil: [30])! - numberOfRecentSubmissionsToStore: anInteger - self default maximumSubmissionCount: anInteger!

1 0

The Trunk: Tests-mt.442.mcz
by commits＠source.squeak.org 14 Oct '20

14 Oct '20

Marcel Taeumel uploaded a new version of Tests to project The Trunk: http://source.squeak.org/trunk/Tests-mt.442.mcz ==================== Summary ==================== Name: Tests-mt.442 Author: mt Time: 14 October 2020, 3:41:13.254983 pm UUID: 305f76ef-bf52-6d46-b99b-fa02f0bd8ed5 Ancestors: Tests-mt.441 Update test example of a pragma preference to follow the usual guidelines. =============== Diff against Tests-mt.441 =============== Item was changed: ----- Method: PreferencesTestExample class>>booleanPref (in category 'preferences') ----- booleanPref <preference: 'Boolean Preference Example' category: 'Examples' description: 'A simple example for a boolean preference (see PreferenceExample>>booleanPref)' type: #Boolean> + ^BooleanPref ifNil: [true]! - ^BooleanPref! Item was changed: ----- Method: PreferencesTestExample class>>colorPref (in category 'preferences') ----- colorPref <preference: 'Color Preference Example' category: 'Examples' description: 'A simple example for a color preference (see PreferenceExample>>colorPref)' type: #Color> + ^ColorPref ifNil: [Color green]! - ^ColorPref! Item was removed: - ----- Method: PreferencesTestExample class>>initialize (in category 'preferences') ----- - initialize "PreferenceExample initialize" - "Initialize the default values and register preferences" - TextPref := 'Hello World'. - NumericPref := 1234. - BooleanPref := true. - ColorPref := Color green.! Item was changed: ----- Method: PreferencesTestExample class>>numericPref (in category 'preferences') ----- numericPref <preference: 'Numeric Preference Example' category: 'Examples' description: 'A simple example for a numeric preference (see PreferenceExample>>numericPref)' type: #Number> + ^NumericPref ifNil: [1234]! - ^NumericPref! Item was changed: ----- Method: PreferencesTestExample class>>textPref (in category 'preferences') ----- textPref <preference: 'Textual Preference Example' category: 'Examples' description: 'A simple example for a textual preference (see PreferenceExample>>textPref)' type: #String> + ^TextPref ifNil: ['Hello world']! - ^TextPref!

1 0

The Trunk: CollectionsTests-mt.346.mcz
by commits＠source.squeak.org 14 Oct '20

14 Oct '20

Marcel Taeumel uploaded a new version of CollectionsTests to project The Trunk: http://source.squeak.org/trunk/CollectionsTests-mt.346.mcz ==================== Summary ==================== Name: CollectionsTests-mt.346 Author: mt Time: 14 October 2020, 2:22:33.878569 pm UUID: 4272e57f-18b8-2946-9034-cec8b9a87451 Ancestors: CollectionsTests-mt.345 Complements Collections-mt.918 =============== Diff against CollectionsTests-mt.345 =============== Item was added: + ----- Method: SequenceableCollectionTest>>testCollectWithIndexDeprecation (in category 'tests - deprecation') ----- + testCollectWithIndexDeprecation + + self assert: 1 equals: (self systemNavigation allCallsOn: #collectWithIndex:) size.! Item was added: + ----- Method: SequenceableCollectionTest>>testDoWithIndexDeprecation (in category 'tests - deprecation') ----- + testDoWithIndexDeprecation + + self assert: 1 equals: (self systemNavigation allCallsOn: #doWithIndex:) size.!

1 0

The Trunk: 60Deprecated-mt.81.mcz
by commits＠source.squeak.org 14 Oct '20

14 Oct '20

Marcel Taeumel uploaded a new version of 60Deprecated to project The Trunk: http://source.squeak.org/trunk/60Deprecated-mt.81.mcz ==================== Summary ==================== Name: 60Deprecated-mt.81 Author: mt Time: 14 October 2020, 2:22:01.292569 pm UUID: a2fefed6-c5dc-564a-9091-6e4d1d8ca3f8 Ancestors: 60Deprecated-mt.80 Complements Collections-mt.918 =============== Diff against 60Deprecated-mt.80 =============== Item was added: + ----- Method: HashedCollection>>doWithIndex: (in category '*60Deprecated-enumerating') ----- + doWithIndex: elementAndIndexBlock + + self flag: #deprecated. "Use the new version with consistent naming." + ^ self withIndexDo: elementAndIndexBlock! Item was added: + ----- Method: SequenceableCollection>>collectWithIndex: (in category '*60Deprecated-enumerating') ----- + collectWithIndex: elementAndIndexBlock + + self flag: #deprecated. "Use the new version with consistent naming." + ^ self withIndexCollect: elementAndIndexBlock! Item was added: + ----- Method: SequenceableCollection>>doWithIndex: (in category '*60Deprecated-enumerating') ----- + doWithIndex: elementAndIndexBlock + + self flag: #deprecated. "Use the new version with consistent naming." + ^ self withIndexDo: elementAndIndexBlock!

1 0

← Newer
1
...
4
5
6
7
8
9
10
...
17
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 October 2020