Packages November 2021

packages@lists.squeakfoundation.org

1 participants
118 discussions

The Trunk: System-ct.1258.mcz
by commits＠source.squeak.org 27 Nov '21

27 Nov '21

Christoph Thiede uploaded a new version of System to project The Trunk: http://source.squeak.org/trunk/System-ct.1258.mcz ==================== Summary ==================== Name: System-ct.1258 Author: ct Time: 27 November 2021, 10:12:41.787227 pm UUID: 12ec7795-2256-144c-92c1-c8c412a4539e Ancestors: System-ct.1257 Robustizes CI status badge query against server errors. For a current example, see: https://www.githubstatus.com/incidents/r5qrpp2f5fc0 =============== Diff against System-ct.1257 =============== Item was changed: ----- Method: SystemVersion>>ciStatusTimestamp (in category 'continuous integration') ----- ciStatusTimestamp "Slow. Fetch HTML page, extract first occurrence of ... <time-ago datetime='2021-08-04T14:24:20Z' ... " + | statusResponse statusPage begin end dateAndTime | + statusResponse := WebClient httpGet: self ciStatusPageUrl. + statusResponse isSuccess ifFalse: [^ nil]. + statusPage := statusResponse content. - | statusPage begin end dateAndTime | - statusPage := (WebClient httpGet: self ciStatusPageUrl) content. begin := statusPage findString: 'datetime' startingAt: 100000. "Skip the first X bytes decoration." end := statusPage findString: 'Z' startingAt: begin. dateAndTime := DateAndTime readFrom: (statusPage copyFrom: begin + 10 to: end) readStream. ^ String streamContents: [:s | dateAndTime asDate = Date today ifTrue: [s nextPutAll: 'Today' translated, ','] ifFalse: [dateAndTime asDate = Date yesterday ifTrue: [s nextPutAll: 'Yesterday' translated, ','] ifFalse: [dateAndTime printYMDOn: s]]. s space. dateAndTime printHMSOn: s]!

1 0

The Trunk: Kernel-eem.1426.mcz
by commits＠source.squeak.org 27 Nov '21

27 Nov '21

Eliot Miranda uploaded a new version of Kernel to project The Trunk: http://source.squeak.org/trunk/Kernel-eem.1426.mcz ==================== Summary ==================== Name: Kernel-eem.1426 Author: eem Time: 27 November 2021, 1:02:15.155642 pm UUID: 9ca49d5c-f988-4848-a26b-53b1f79d64a2 Ancestors: Kernel-ct.1425 Implement protection against infinite recursion of doesNotUnderstand: within Object>>doesNotUnderstand:. Note: this implementation puts the additional error handler within Object>>doesNotUnderstand: and sends error: to the receiver on detecting recursion. An alternative might be to introduce a protected form of sentTo:, which would more naturally send error to the message. e.g. either of Message methods for sending sentWithProtectionAgainstRecursiveDoesNotUnderstandTo: receiver "Answer the result of sending this message to receiver, within a guard to protect against infinite recursion." ^[self sentTo: receiver] on: MessageNotUnderstood do: [:ex| (receiver == ex receiver and: [self hasIdenticalContentsAs: ex message]) ifTrue: [receiver error: 'infinite recursion in doesNotUnderstand:']. ex pass] or sentWithProtectionAgainstRecursiveDoesNotUnderstandTo: receiver "Answer the result of sending this message to receiver, within a guard to protect against infinite recursion." ^[self sentTo: receiver] on: MessageNotUnderstood do: [:ex| (receiver == ex receiver and: [self hasIdenticalContentsAs: ex message]) ifTrue: [self error: 'infinite recursion in doesNotUnderstand:']. ex pass] I think this is too elaborate. Adding Message>>hasIdenticalContentsAs: is the key to making all variants concise enough. =============== Diff against Kernel-ct.1425 =============== Item was added: + ----- Method: Message>>hasIdenticalContentsAs: (in category 'comparing') ----- + hasIdenticalContentsAs: aMessage + "Answer if the argument's selector and arguments are identically equal to those of the receiver. + It is assumed that the argument aMessage is, in fact, a message." + selector ~~ aMessage selector ifTrue: + [^false]. + 1 to: args size do: + [:i| (args at: i) ~~ (aMessage arguments at: i) ifTrue: [^false]]. + ^true! Item was changed: ----- Method: Object>>doesNotUnderstand: (in category 'error handling') ----- doesNotUnderstand: aMessage "Handle the fact that there was an attempt to send the given message to the receiver but the receiver does not understand this message (typically sent from the machine when a message + is sent to the receiver and no method is defined for that selector). - is sent to the receiver and no method is defined for that selector)." + Raise the MessageNotUnderstood signal. If it is caught, answer + the result supplied by the exception handler. If it is not caught, + answer the result of resending the message within a guard for + infinite recursion. This allows, for example, the programmer to + implement the method and continue." + "Testing: (3 activeProcess)" | exception resumeValue | (exception := MessageNotUnderstood new) message: aMessage; receiver: self. resumeValue := exception signal. + ^exception reachedDefaultHandler "i.e. exception was not caught..." + ifTrue: + [[aMessage sentTo: self] + on: MessageNotUnderstood + do: [:ex| + (self == ex receiver + and: [aMessage hasIdenticalContentsAs: ex message]) ifFalse: + [ex pass]. + self error: 'infinite recursion in doesNotUnderstand:']] - ^exception reachedDefaultHandler - ifTrue: [aMessage sentTo: self] ifFalse: [resumeValue]!

1 0

The Trunk: EToys-ct.449.mcz
by commits＠source.squeak.org 27 Nov '21

27 Nov '21

Christoph Thiede uploaded a new version of EToys to project The Trunk: http://source.squeak.org/trunk/EToys-ct.449.mcz ==================== Summary ==================== Name: EToys-ct.449 Author: ct Time: 27 November 2021, 10:01:54.201431 pm UUID: fefe3d05-d422-784f-894f-38ef60dd1c4e Ancestors: EToys-ul.448 Complements Kernel-ct.1426 (removal of #automaticPlatformSettings preference). =============== Diff against EToys-ul.448 =============== Item was changed: ----- Method: Preferences class>>cambridge (in category '*Etoys-Squeakland-themes') ----- cambridge "A theme for Squeakland and OLPC project" "Preferences cambridge" "This method has three parts. Don't forget to look at the stuff at the bottom." self setPreferencesFrom: #( (allowCelesteTell false) (alternativeScrollbarLook true) (alternativeWindowLook true) (annotationPanes true) (automaticKeyGeneration true) (biggerHandles true) (blinkParen false) (browseWithDragNDrop true) (canRecordWhilePlaying true) (classicNavigatorEnabled false) (compactViewerFlaps true) (enableLocalSave false) (escapeKeyProducesMenu false) (eToyFriendly true) (eToyLoginEnabled true) (extraDebuggerButtons false) (gradientMenu false) (haloTransitions false) (honorDesktopCmdKeys true) (includeSoundControlInNavigator true) (magicHalos false) (menuAppearance3d false) (menuKeyboardControl false) (modalColorPickers true) (mouseOverHalos false) (mvcProjectsAllowed false) (preserveTrash true) (projectViewsInWindows false) (promptForUpdateServer false) (propertySheetFromHalo false) (roundedMenuCorners false) (roundedWindowCorners false) (securityChecksEnabled true) (standaloneSecurityChecksEnabled true) (duplicateControlAndAltKeys true) (showDirectionHandles false) (showDirectionForSketches true) (showProjectNavigator false) (showSecurityStatus false) (soundQuickStart true) "see setPlatformPreferences" (soundReverb false) (soundStopWhenDone true) "see setPlatformPreferences" (startInUntrustedDirectory true) (sugarAutoSave false) (swapControlAndAltKeys false) "see setPlatformPreferences" (uniqueNamesInHalos true) (unlimitedPaintArea false) (useArtificialSweetenerBar true) (useBiggerPaintingBox true) (useFormsInPaintBox false) (useLocale true) (usePangoRenderer false) (usePlatformFonts false) (usePopUpArrows true) (warnAboutInsecureContent false) "The following is to make sure the default is set properly." (abbreviatedBrowserButtons false) (allowEtoyUserCustomEvents false) (alphabeticalProjectMenu false) (alternativeBrowseIt false) (alternativeButtonsInScrollBars false) (alternativeWindowBoxesLook true) (alwaysHideHScrollbar false) (alwaysShowConnectionVocabulary false) (alwaysShowHScrollbar false) (alwaysShowVScrollbar true) (ansiAssignmentOperatorWhenPrettyPrinting true) (areaFillsAreTolerant false) (areaFillsAreVeryTolerant false) (autoAccessors false) (automaticFlapLayout true) - (automaticPlatformSettings true) "enables setPlatformPreferences" (automaticViewerPlacement true) (balloonHelpEnabled true) (balloonHelpInMessageLists false) (batchPenTrails false) (biggerCursors true) (browserNagIfNoClassComment true) (browserShowsPackagePane false) (browseWithPrettyPrint false) (capitalizedReferences true) (caseSensitiveFinds false) (cautionBeforeClosing false) (celesteHasStatusPane false) (celesteShowsAttachmentsFlag false) (changeSetVersionNumbers true) (checkForSlips true) (checkForUnsavedProjects true) (classicNewMorphMenu false) (clickOnLabelToEdit false) (cmdDotEnabled true) (collapseWindowsInPlace false) (colorWhenPrettyPrinting false) (compressFlashImages false) (confirmFirstUseOfStyle true) (conversionMethodsAtFileOut false) (cpuWatcherEnabled false) (debugHaloHandle false) (debugPrintSpaceLog false) (debugShowDamage false) (decorateBrowserButtons true) (defaultFileOutFormatMacRoman false) (diffsInChangeList true) (diffsWithPrettyPrint false) (dismissAllOnOptionClose false) (dismissEventTheatreUponPublish true) (dragNDropWithAnimation false) (dropProducesWatcher true) (duplicateControlAndAltKeys false) (easySelection false) (enableInternetConfig false) (enablePortraitMode false) (enableVirtualOLPCDisplay false) (expandedPublishing true) (extractFlashInHighestQuality false) (extractFlashInHighQuality true) (fastDragWindowForMorphic true) (fenceEnabled true) (fenceSoundEnabled false) (fullScreenLeavesDeskMargins true) (gradientScrollBars true) (haloEnclosesFullBounds false) (higherPerformance false) (ignoreStyleIfOnlyBold true) (implicitSelfInTiles false) (inboardScrollbars true) (infiniteUndo false) (keepTickingWhilePainting false) (logDebuggerStackToFile true) (menuButtonInToolPane false) (menuColorFromWorld false) (menuWithIcons true) (morphicProgressStyle true) (mouseOverForKeyboardFocus false) (navigatorOnLeftEdge true) (noviceMode false) (okToReinitializeFlaps true) (oliveHandleForScriptedObjects false) (optionalButtons true) (passwordsOnPublish false) (personalizedWorldMenu true) (postscriptStoredAsEPS false) (printAlternateSyntax false) (projectsSentToDisk false) (projectZoom true) (readDocumentAtStartup true) (restartAlsoProceeds false) (reverseWindowStagger true) (rotationAndScaleHandlesInPaintBox false) (scrollBarsNarrow false) (scrollBarsOnRight true) (scrollBarsWithoutMenuButton false) (selectionsMayShrink true) (selectiveHalos true) (showAdvancedNavigatorButtons false) (showBoundsInHalo false) (showDeprecationWarnings false) (showFlapsWhenPublishing false) (showLinesInHierarchyViews true) (showSharedFlaps true) (signProjectFiles true) (simpleMenus false) (slideDismissalsToTrash true) (smartUpdating true) (soundsEnabled true) (swapMouseButtons false) (systemWindowEmbedOK false) (tabAmongFields true) (testRunnerShowAbstractClasses false) (tileTranslucentDrag true) (timeStampsInMenuTitles true) (translationWithBabel false) (turnOffPowerManager false) (twentyFourHourFileStamps true) (twoSidedPoohTextures true) (typeCheckingInTileScripting true) (unifyNestedProgressBars true) (uniTilesClassic true) (universalTiles false) (updateFromServerAtStartup false) (updateSavesFile false) (useButtonPropertiesToFire false) (useFileList2 true) (useSmartLabels false) (useUndo true) (useVectorVocabulary false) (viewersInFlaps true) (warnIfNoChangesFile false) (warnIfNoSourcesFile false) (warningForMacOSFileNameLength false) (wordStyleCursorMovement true) ). Preferences setPreference: #haloTheme toValue: #iconicHaloSpecifications. !

1 0

The Trunk: System-ct.1257.mcz
by commits＠source.squeak.org 27 Nov '21

27 Nov '21

Christoph Thiede uploaded a new version of System to project The Trunk: http://source.squeak.org/trunk/System-ct.1257.mcz ==================== Summary ==================== Name: System-ct.1257 Author: ct Time: 27 November 2021, 10:01:11.385431 pm UUID: 5df16e76-2520-984a-8fc6-37ca1b36b76c Ancestors: System-ct.1256 Complements Kernel-ct.1426 (removal of #automaticPlatformSettings preference). Step 2/2. =============== Diff against System-ct.1256 =============== Item was removed: - ----- Method: Preferences class>>automaticPlatformSettings (in category 'standard queries') ----- - automaticPlatformSettings - ^ self - valueOfFlag: #automaticPlatformSettings - ifAbsent: [ true ]! Item was changed: ----- Method: Preferences class>>defaultValueTableForCurrentRelease (in category 'defaults') ----- defaultValueTableForCurrentRelease "Answer a table defining default values for all the preferences in the release. Returns a list of (pref-symbol, boolean-symbol) pairs" ^ #( (abbreviatedBrowserButtons false) (alternativeBrowseIt false) (annotationPanes false) (areaFillsAreTolerant false) (areaFillsAreVeryTolerant false) (automaticFlapLayout true) (automaticKeyGeneration false) - (automaticPlatformSettings true) (automaticViewerPlacement true) (balloonHelpEnabled true) (balloonHelpInMessageLists false) (batchPenTrails false) (capitalizedReferences true) (caseSensitiveFinds false) (cautionBeforeClosing false) (changeSetVersionNumbers true) (checkForSlips true) (checkForUnsavedProjects true) (classicNavigatorEnabled false) (cmdDotEnabled true) (collapseWindowsInPlace false) (compactViewerFlaps false) (compressFlashImages false) (confirmFirstUseOfStyle true) (conversionMethodsAtFileOut false) (debugHaloHandle true) (debugPrintSpaceLog false) (debugShowDamage false) (decorateBrowserButtons true) (diffsInChangeList true) (diffsWithPrettyPrint false) (dismissAllOnOptionClose false) (dragNDropWithAnimation false) (eToyFriendly false) (eToyLoginEnabled false) (enableLocalSave true) (extractFlashInHighQuality true) (extractFlashInHighestQuality false) (fastDragWindowForMorphic true) (fenceEnabled true) (fullScreenLeavesDeskMargins true) (haloTransitions false) (higherPerformance false) (honorDesktopCmdKeys true) (includeSoundControlInNavigator false) (infiniteUndo false) (logDebuggerStackToFile true) (magicHalos false) (menuButtonInToolPane false) (menuColorFromWorld false) (menuKeyboardControl false) (modalColorPickers true) (mouseOverForKeyboardFocus false) (mouseOverHalos false) (mvcProjectsAllowed true) (navigatorOnLeftEdge true) (noviceMode false) (okToReinitializeFlaps true) (optionalButtons true) (passwordsOnPublish false) (personalizedWorldMenu true) (postscriptStoredAsEPS false) (projectViewsInWindows true) (projectZoom true) (projectsSentToDisk false) (propertySheetFromHalo false) (readDocumentAtStartup true) (restartAlsoProceeds false) (reverseWindowStagger true) (roundedMenuCorners true) (scrollBarsNarrow false) (scrollBarsOnRight true) (securityChecksEnabled false) (selectiveHalos false) (showBoundsInHalo false) (showDirectionForSketches false) (showDirectionHandles false) (showFlapsWhenPublishing false) (showProjectNavigator false) (showSecurityStatus true) (showSharedFlaps true) (signProjectFiles true) (simpleMenus false) (smartUpdating true) (startInUntrustedDirectory false) (systemWindowEmbedOK false) (tileTranslucentDrag true) (timeStampsInMenuTitles true) (turnOffPowerManager false) (twentyFourHourFileStamps true) (typeCheckingInTileScripting true) (uniTilesClassic true) (uniqueNamesInHalos false) (universalTiles false) (unlimitedPaintArea false) (useButtonPropertiesToFire false) (useUndo true) (viewersInFlaps true) (warnAboutInsecureContent true) (warnIfNoChangesFile true) (warnIfNoSourcesFile true)) " Preferences defaultValueTableForCurrentRelease do: [:pair | (Preferences preferenceAt: pair first ifAbsent: [nil]) ifNotNilDo: [:pref | pref defaultValue: (pair last == true)]]. Preferences chooseInitialSettings. "! Item was changed: ----- Method: SmalltalkImage>>setPlatformPreferences (in category 'snapshot and quit') ----- setPlatformPreferences "Set some platform specific preferences on system startup" | platform specs | - Preferences automaticPlatformSettings ifFalse:[^self]. platform := self platformName. + specs := #(). - specs := #(). platform = 'Win32' ifTrue:[ specs := #()]. platform = 'Mac OS' ifTrue:[ specs := #()]. specs do:[:tuple| Preferences setPreference: tuple first toValue: (tuple last == true). + ].! - ]. - ! Item was changed: (PackageInfo named: 'System') postscript: '"Add the new primitive error codes to the specialObjectsArray if they are not there yet." Smalltalk primitiveErrorTable size < 26 ifTrue: [Smalltalk recreateSpecialObjectsArray]. + (Preferences preferenceAt: #debugLogTimestamp) categoryList: #(''debug''). + + Preferences removePreference: #automaticPlatformSettings.'! - (Preferences preferenceAt: #debugLogTimestamp) categoryList: #(''debug'').'!

1 0

The Trunk: Sound-ct.84.mcz
by commits＠source.squeak.org 27 Nov '21

27 Nov '21

Christoph Thiede uploaded a new version of Sound to project The Trunk: http://source.squeak.org/trunk/Sound-ct.84.mcz ==================== Summary ==================== Name: Sound-ct.84 Author: ct Time: 27 November 2021, 9:56:58.413431 pm UUID: 368b67d4-2a3c-e747-820b-c9544d2a1112 Ancestors: Sound-eem.83 Complements Kernel-ct.1426 (removal of #automaticPlatformSettings preference). =============== Diff against Sound-eem.83 =============== Item was changed: ----- Method: SoundPlayer>>startUp (in category 'system startup') ----- startUp - Preferences automaticPlatformSettings ifFalse: [^ self]. SoundPlayer soundQuickStart: SoundPlayer defaultQuickStartForPlatform. SoundPlayer stopSoundWhenDone: SoundPlayer defaultStopSoundForPlatform.!

1 0

The Trunk: Kernel-ct.1426.mcz
by commits＠source.squeak.org 27 Nov '21

27 Nov '21

Christoph Thiede uploaded a new version of Kernel to project The Trunk: http://source.squeak.org/trunk/Kernel-ct.1426.mcz ==================== Summary ==================== Name: Kernel-ct.1426 Author: ct Time: 27 November 2021, 9:55:50.345431 pm UUID: 87b3532b-6976-6148-9a45-9e100f36b095 Ancestors: Kernel-ct.1425 Removes the preference #automaticPlatformSettings as requested. See: http://lists.squeakfoundation.org/pipermail/squeak-dev/2021-November/217134… =============== Diff against Kernel-ct.1425 =============== Item was changed: ----- Method: EventSensor class>>startUp: (in category 'system startup') ----- startUp: resuming + resuming ifTrue: [ - (resuming and: [Preferences automaticPlatformSettings]) ifTrue: [ Smalltalk platformName = 'Mac OS' ifTrue: [ self mapAltKeysToOptionKeys: false. self mapControlKeysToCommandKeys: false] ifFalse: [ self mapAltKeysToOptionKeys: true. self mapControlKeysToCommandKeys: true]. self installVirtualKeyTable ]. self default startUp.!

1 0

The Trunk: System-ct.1256.mcz
by commits＠source.squeak.org 27 Nov '21

27 Nov '21

Christoph Thiede uploaded a new version of System to project The Trunk: http://source.squeak.org/trunk/System-ct.1256.mcz ==================== Summary ==================== Name: System-ct.1256 Author: ct Time: 27 November 2021, 9:01:15.105306 pm UUID: 8dbc4b47-8812-2f45-a7bf-00eb0bf13360 Ancestors: System-ct.1255 Fixes a recent merge slip in MailSender. =============== Diff against System-ct.1255 =============== Item was changed: ----- Method: MailSender class>>userName (in category 'accessing') ----- userName "Answer the user name to be used for sending out messages. Leave empty if authentication not required." + self isUserNameSet ifFalse: [self setUserName]. - self isUserNameSet ifNil: [self setUserName]. ^UserName! Item was changed: ----- Method: MailSender class>>userPassword (in category 'accessing') ----- userPassword "Answer the user password to be used for sending out messages. Leave empty if authentication not required." + self isUserPasswordSet ifFalse: [self setUserPassword]. - self isUserPasswordSet ifNil: [self setUserPassword]. ^ UserPassword!

1 0

The Trunk: Network-jar.250.mcz
by commits＠source.squeak.org 27 Nov '21

27 Nov '21

Christoph Thiede uploaded a new version of Network to project The Trunk: http://source.squeak.org/trunk/Network-jar.250.mcz ==================== Summary ==================== Name: Network-jar.250 Author: jar Time: 12 November 2021, 10:07:25.383788 pm UUID: fe957845-b8bb-e143-8e58-e4e886f51bac Ancestors: Network-eem.249 Allow No authentication SMTP login for an empty username (in addition to a nil username). Currently, if the username is nil the AUTH LOGIN command won't be sent; however if the username is empty ('') the AUTH LOGIN will be sent and the server may not like it and return an error message. This behavior prevents Squeak Inbox Talk tool (ct) from using simple no auth SMTP server to send messages. =============== Diff against Network-eem.249 =============== Item was changed: ----- Method: SMTPClient>>login (in category 'private protocol') ----- login "Send HELO first" self initiateSession. self user ifNil: [^self]. + self user ifEmpty: [^self]. self sendCommand: 'AUTH LOGIN ' , (self encodeString: self user). [self checkResponse] on: TelnetProtocolError do: [ :ex | ex isCommandUnrecognized ifTrue: [^ self] ifFalse: [ex pass]]. self sendCommand: (self encodeString: self password). self checkResponse!

1 0

The Trunk: Network-ct.252.mcz
by commits＠source.squeak.org 27 Nov '21

27 Nov '21

Christoph Thiede uploaded a new version of Network to project The Trunk: http://source.squeak.org/trunk/Network-ct.252.mcz ==================== Summary ==================== Name: Network-ct.252 Author: ct Time: 27 November 2021, 8:59:27.874306 pm UUID: bf93d391-f3f6-444e-a8f6-7a803f7e8439 Ancestors: Network-pre.250, Network-jar.250 Merges Network-jar.250 (allow unauthenticated SMTP login without username). =============== Diff against Network-pre.250 =============== Item was changed: ----- Method: SMTPClient>>login (in category 'private protocol') ----- login "Send HELO first" self initiateSession. self user ifNil: [^self]. + self user ifEmpty: [^self]. self sendCommand: 'AUTH LOGIN ' , (self encodeString: self user). [self checkResponse] on: TelnetProtocolError do: [ :ex | ex isCommandUnrecognized ifTrue: [^ self] ifFalse: [ex pass]]. self sendCommand: (self encodeString: self password). self checkResponse!

1 0

The Trunk: System-ct.1255.mcz
by commits＠source.squeak.org 27 Nov '21

27 Nov '21

Christoph Thiede uploaded a new version of System to project The Trunk: http://source.squeak.org/trunk/System-ct.1255.mcz ==================== Summary ==================== Name: System-ct.1255 Author: ct Time: 27 November 2021, 8:53:55.970306 pm UUID: a35e96f7-0507-3042-aaff-e79400904e49 Ancestors: System-mt.1254, System-ct.1253 Fixes the ancestry again (merges System-ct.1253). Sorry for the noise! =============== Diff against System-mt.1254 =============== Item was changed: ----- Method: MailSender class>>isUserNameSet (in category 'testing') ----- isUserNameSet + ^ UserName notNil! - ^ UserName notNil and: [UserName notEmpty] - ! Item was changed: ----- Method: MailSender class>>isUserPasswordSet (in category 'testing') ----- isUserPasswordSet + ^ UserPassword notNil! - ^ UserPassword notNil and: [UserPassword notEmpty] - ! Item was changed: ----- Method: MailSender class>>setUserName (in category 'settings') ----- setUserName (UIManager default request: 'What is your user name on the SMTP server?' withCRs + initialAnswer: (UserName ifNil: [''])) - initialAnswer: (UserName ifNil: [UserName := ''])) ifNotNil: [:answer | UserName := answer]! Item was changed: ----- Method: MailSender class>>userName (in category 'accessing') ----- userName + "Answer the user name to be used for sending out messages. Leave empty if authentication not required." - "Answer the user name to be used for sending out messages." + self isUserNameSet ifNil: [self setUserName]. - self isUserNameSet ifFalse: [self setUserName]. - - UserName isEmpty ifTrue: [ self error: 'no user name specified' ]. - ^UserName! Item was changed: ----- Method: MailSender class>>userPassword (in category 'accessing') ----- userPassword + "Answer the user password to be used for sending out messages. Leave empty if authentication not required." + self isUserPasswordSet ifNil: [self setUserPassword]. - self isUserPasswordSet ifFalse: [self setUserPassword]. - - UserPassword isEmpty ifTrue: [ self error: 'no user name specified' ]. - ^ UserPassword!

1 0

2024

2023

2022

2021

2020

2019

2018

2017

2016

2015

2014

2013

2012

2011

2010

2009

2008

2007

2006

2005

Packages November 2021