Christoph Thiede uploaded a new version of ToolBuilder-Kernel to project The Treated Inbox:
http://source.squeak.org/treated/ToolBuilder-Kernel-ct.139.mcz
==================== Summary ====================
Name: ToolBuilder-Kernel-ct.139
Author: ct
Time: 10 February 2020, 11:15:08.216089 am
UUID: af747df6-a0a5-f345-a105-b2be39523199
Ancestors: ToolBuilder-Kernel-mt.134
Adds PluggableSliderSpec
=============== Diff against ToolBuilder-Kernel-mt.134 ===============
Item was added:
+ PluggableWidgetSpec subclass: #PluggableSliderSpec
+ instanceVariableNames: 'getValue setValue minValue maxValue quantum thumbColor'
+ classVariableNames: ''
+ poolDictionaries: ''
+ category: 'ToolBuilder-Kernel'!
Item was added:
+ ----- Method: PluggableSliderSpec>>buildWith: (in category 'building') -----
+ buildWith: builder
+
+ ^ builder buildPluggableSlider: self!
Item was added:
+ ----- Method: PluggableSliderSpec>>getValue (in category 'accessing') -----
+ getValue
+ "Answer the selector for getting the slider's value."
+ ^ getValue!
Item was added:
+ ----- Method: PluggableSliderSpec>>getValue: (in category 'accessing') -----
+ getValue: aSymbol
+ "Set the selector for getting the slider's value."
+ getValue := aSymbol!
Item was added:
+ ----- Method: PluggableSliderSpec>>maxValue (in category 'accessing') -----
+ maxValue
+ "Set the maximum slider value, a symbol or number."
+ ^ maxValue!
Item was added:
+ ----- Method: PluggableSliderSpec>>maxValue: (in category 'accessing') -----
+ maxValue: aSymbolOrNumber
+ "Set the maximum slider value."
+ maxValue := aSymbolOrNumber!
Item was added:
+ ----- Method: PluggableSliderSpec>>minValue (in category 'accessing') -----
+ minValue
+ "Answer the minimum slider value, a symbol or number."
+ ^ minValue!
Item was added:
+ ----- Method: PluggableSliderSpec>>minValue: (in category 'accessing') -----
+ minValue: aSymbolOrNumber
+ "Set the minimum slider value."
+ minValue := aSymbolOrNumber!
Item was added:
+ ----- Method: PluggableSliderSpec>>quantum (in category 'accessing') -----
+ quantum
+ "Answer the rounding quantum for the slider value."
+ ^ quantum!
Item was added:
+ ----- Method: PluggableSliderSpec>>quantum: (in category 'accessing') -----
+ quantum: aNumber
+ "Set the rounding quantum for the slider value."
+ quantum := aNumber!
Item was added:
+ ----- Method: PluggableSliderSpec>>setValue (in category 'accessing') -----
+ setValue
+ "Answer the selector for setting the slider's value."
+ ^ setValue!
Item was added:
+ ----- Method: PluggableSliderSpec>>setValue: (in category 'accessing') -----
+ setValue: aSymbol
+ "Set the selector for setting the slider's value."
+ setValue := aSymbol!
Item was added:
+ ----- Method: PluggableSliderSpec>>thumbColor (in category 'accessing') -----
+ thumbColor
+ "Answer the color of the thumb the user can drag to change the slider's value."
+ ^ thumbColor!
Item was added:
+ ----- Method: PluggableSliderSpec>>thumbColor: (in category 'accessing') -----
+ thumbColor: aColor
+ "Set the color of the thumb the user can drag to change the slider's value."
+ thumbColor := aColor!
Item was added:
+ ----- Method: ToolBuilder>>pluggableSliderSpec (in category 'defaults') -----
+ pluggableSliderSpec
+ ^ PluggableSliderSpec!
Christoph Thiede uploaded a new version of Collections to project The Trunk:
http://source.squeak.org/trunk/Collections-ct.1026.mcz
==================== Summary ====================
Name: Collections-ct.1026
Author: ct
Time: 28 December 2022, 12:44:05.815118 am
UUID: 4f0b7759-244d-0442-a70e-fc296638966c
Ancestors: Collections-eem.1025, Collections-ct.1022
Merges Collections-ct.1022 (PositionableStream>>#peek:).
=============== Diff against Collections-eem.1025 ===============
Item was added:
+ ----- Method: PositionableStream>>peek: (in category 'accessing') -----
+ peek: anInteger
+ "Answer what would be returned if the message next: anInteger were sent to the receiver. If the receiver has less than anInteger more elements, only answer so many elements as available."
+
+ | oldPosition result |
+ oldPosition := position.
+ result := self next: anInteger.
+ position := oldPosition.
+ ^ result!
Marcel Taeumel uploaded a new version of System to project The Trunk:
http://source.squeak.org/trunk/System-mt.1379.mcz
==================== Summary ====================
Name: System-mt.1379
Author: mt
Time: 20 December 2022, 9:26:22.386719 am
UUID: f3b0a8f8-65a3-f944-8e89-0315b621141d
Ancestors: System-mt.1378
Remove duplicate code.
=============== Diff against System-mt.1378 ===============
Item was changed:
----- Method: SystemVersion>>ciStatusBadgeUrl (in category 'continuous integration') -----
ciStatusBadgeUrl
- "shields.io needs a workflow's descriptive name, not the name of the .yml file."
^ 'https://raster.shields.io/github/actions/workflow/status/squeak-smalltalk/s…'
+ format: {self ciWorkflow encodeForHTTP. self ciBranch}!
- format: {self ciWorkflowName encodeForHTTP. self ciBranch}!
Item was removed:
- ----- Method: SystemVersion>>ciWorkflowName (in category 'continuous integration') -----
- ciWorkflowName
- "Name of the workflow .yml file in .github/workflows. Case sensitive."
-
- ^ 'bundle.yml'!
Marcel Taeumel uploaded a new version of System to project The Trunk:
http://source.squeak.org/trunk/System-mt.1378.mcz
==================== Summary ====================
Name: System-mt.1378
Author: mt
Time: 20 December 2022, 9:23:44.150719 am
UUID: 281e8462-1195-244e-b6b4-d29ab26af058
Ancestors: System-ct.1377
Fixes regression of System-ct.1377
=============== Diff against System-ct.1377 ===============
Item was changed:
----- Method: SystemVersion>>ciStatusBadgeUrl (in category 'continuous integration') -----
ciStatusBadgeUrl
"shields.io needs a workflow's descriptive name, not the name of the .yml file."
+ ^ 'https://raster.shields.io/github/actions/workflow/status/squeak-smalltalk/s…'
- ^ 'https://raster.shields.io/github/actions/workflow/status/squeak-smalltalk/s…'
format: {self ciWorkflowName encodeForHTTP. self ciBranch}!
Christoph Thiede uploaded a new version of Network to project The Trunk:
http://source.squeak.org/trunk/Network-ct.263.mcz
==================== Summary ====================
Name: Network-ct.263
Author: ct
Time: 19 December 2022, 2:09:43.934027 pm
UUID: 5a4ff617-9d9e-3144-96a5-534b0cebac99
Ancestors: Network-tonyg.262
Fixes a slip in mail composition that produced invalid recipient addresses according to RFC-5321. Addresses must not contain leading or trailing spaces. Some SMTP servers (such as Gmail) refuse to send these message.
Thanks to Pete (PAP) for the report!
=============== Diff against Network-tonyg.262 ===============
Item was changed:
----- Method: MailComposition>>doSendMail (in category 'private') -----
doSendMail
(SMTPClient openOnHostNamed: self smtpServer port: self smtpServerPort)
user: self smtpUser;
password: self smtpPassword;
login;
+ mailFrom: mailMessage from
+ to: ((mailMessage to findTokens: ',') collect: [:ea | ea withBlanksTrimmed])
+ text: mailMessage asSendableText.!
- mailFrom: mailMessage from to: (mailMessage to findTokens: ',') text: mailMessage asSendableText.!
Christoph Thiede uploaded a new version of System to project The Trunk:
http://source.squeak.org/trunk/System-ct.1377.mcz
==================== Summary ====================
Name: System-ct.1377
Author: ct
Time: 18 December 2022, 8:19:19.152987 pm
UUID: 74200562-3e0e-6d49-a67d-98c0682a5677
Ancestors: System-eem.1376
Repairs CI status badge in update version message. Complements https://github.com/badges/shields/issues/8671.
=============== Diff against System-eem.1376 ===============
Item was changed:
----- Method: SystemVersion>>ciStatusBadgeUrl (in category 'continuous integration') -----
ciStatusBadgeUrl
"shields.io needs a workflow's descriptive name, not the name of the .yml file."
+ ^ 'https://raster.shields.io/github/actions/workflow/status/squeak-smalltalk/s…'
- ^ 'https://raster.shields.io/github/workflow/status/squeak-smalltalk/squeak-ap…'
format: {self ciWorkflowName encodeForHTTP. self ciBranch}!
Item was changed:
----- Method: SystemVersion>>ciWorkflowName (in category 'continuous integration') -----
ciWorkflowName
+ "Name of the workflow .yml file in .github/workflows. Case sensitive."
- "See 'name' in #ciWorkflow .yml file. Case sensitive."
+ ^ 'bundle.yml'!
- ^ 'Bundle'!