Packages January 2022

packages@lists.squeakfoundation.org

1 participants
209 discussions

The Trunk: System-mt.1284.mcz
by commits＠source.squeak.org 13 Jan '22

13 Jan '22

Marcel Taeumel uploaded a new version of System to project The Trunk: http://source.squeak.org/trunk/System-mt.1284.mcz ==================== Summary ==================== Name: System-mt.1284 Author: mt Time: 13 January 2022, 1:33:55.814863 pm UUID: 23127222-33d7-0c4d-8a59-c057be3e8c67 Ancestors: System-mt.1283 Complements PackageInfo-Base-mt.75 Fixes slip in #browseClassList:name: ... I don't want to dig into ClassListBrowser for now ... but I think the actual bug is actually in there. =============== Diff against System-mt.1283 =============== Item was added: + ----- Method: SystemNavigation>>allExtensionClassesOfPackage:localTo: (in category 'query') ----- + allExtensionClassesOfPackage: packageNameOrInfo localTo: classCategory + + ^ (self packageInfoFor: packageNameOrInfo) extensionClassesLocalTo: classCategory! Item was added: + ----- Method: SystemNavigation>>allExtensionMethodsOfPackage:localTo: (in category 'query') ----- + allExtensionMethodsOfPackage: packageNameOrInfo localTo: classCategory + + ^ (self packageInfoFor: packageNameOrInfo) extensionMethodsLocalTo: classCategory! Item was added: + ----- Method: SystemNavigation>>browseAllExtensionClassesOfPackage:localTo: (in category 'browse') ----- + browseAllExtensionClassesOfPackage: aPackageInfoOrName localTo: aClassCategory + "self default browseAllExtensionClassesOfPackage: #Morphic localTo: 'Morphic-Support' " + + | packageInfo | + packageInfo := self packageInfoFor: aPackageInfoOrName. + ^ self + browseClassList: [self allExtensionClassesOfPackage: packageInfo localTo: aClassCategory] + name: ('Extensions of package {1}' translated format: {packageInfo name})! Item was added: + ----- Method: SystemNavigation>>browseAllExtensionMethodsOfPackage:localTo: (in category 'browse') ----- + browseAllExtensionMethodsOfPackage: aPackageInfoOrName localTo: aClassCategory + "self default browseAllExtensionMethodsOfPackage: #Morph localTo: 'Morphic-Support' " + + | packageInfo | + packageInfo := self packageInfoFor: aPackageInfoOrName. + ^ self + browseMessageList: [self allExtensionMethodsOfPackage: packageInfo localTo: aClassCategory] + name: ('Extensions of package {1}' translated format: {packageInfo name})! Item was changed: ----- Method: SystemNavigation>>browseClassList:name: (in category 'browse') ----- browseClassList: classListOrBlock name: aTitle | classList | classList := classListOrBlock isBlock ifTrue: [ Cursor wait showWhile: classListOrBlock ] ifFalse: [ classListOrBlock ]. classList size = 0 ifTrue: [ ^self inform: 'There are no', String cr, aTitle ]. ^ ToolSet + openClassListBrowser: (classList collect: [:each | each theNonMetaClass name]) - openClassListBrowser: (classList collect: [:each | each name]) title: aTitle!

1 0

The Trunk: PackageInfo-Base-mt.75.mcz
by commits＠source.squeak.org 13 Jan '22

13 Jan '22

Marcel Taeumel uploaded a new version of PackageInfo-Base to project The Trunk: http://source.squeak.org/trunk/PackageInfo-Base-mt.75.mcz ==================== Summary ==================== Name: PackageInfo-Base-mt.75 Author: mt Time: 13 January 2022, 1:32:09.384863 pm UUID: 940bab64-da5e-004e-99a4-4041332f9586 Ancestors: PackageInfo-Base-nice.74 A class category is a good filter for package extensions. Make it possible to list extension methods/classes local to a specific class category. Examples: (PackageInfo named: #Morphic) extensionMethodsLocalTo: 'Morphic-Support' (PackageInfo named: #Morphic) extensionClassesLocalTo: 'Morphic-Support' Thanks to Christoph (ct) for the idea! =============== Diff against PackageInfo-Base-nice.74 =============== Item was added: + ----- Method: PackageInfo>>extensionCategoriesForClass:localTo: (in category 'testing') ----- + extensionCategoriesForClass: aClass localTo: aClassCategory + + ^ (self extensionCategoriesForClass: aClass) + select: [:ea | ea beginsWith: '*', aClassCategory]! Item was added: + ----- Method: PackageInfo>>extensionClassesLocalTo: (in category 'listing') ----- + extensionClassesLocalTo: classCategory + + ^ self externalBehaviors reject: [:classOrTrait | + (self extensionCategoriesForClass: classOrTrait localTo: classCategory) isEmpty]! Item was added: + ----- Method: PackageInfo>>extensionMethodsForClass:localTo: (in category 'testing') ----- + extensionMethodsForClass: aClass localTo: aClassCategory + + ^ (self extensionCategoriesForClass: aClass localTo: aClassCategory) + gather: [:cat | self methodsInCategory: cat ofClass: aClass]! Item was added: + ----- Method: PackageInfo>>extensionMethodsLocalTo: (in category 'listing') ----- + extensionMethodsLocalTo: aClassCategory + + ^ self externalBehaviors gather: [:classOrTrait | + self extensionMethodsForClass: classOrTrait localTo: aClassCategory]!

1 0

The Treated Inbox: System-ct.1245.mcz
by commits＠source.squeak.org 13 Jan '22

13 Jan '22

Marcel Taeumel uploaded a new version of System to project The Treated Inbox: http://source.squeak.org/treated/System-ct.1245.mcz ==================== Summary ==================== Name: System-ct.1245 Author: ct Time: 4 October 2021, 4:15:11.217947 pm UUID: ce795acc-c89b-5748-9b42-61b1fde2ac59 Ancestors: System-mt.1241 Adds support for browsing extension methods to SystemNavigation. Usage: self systemNavigation browseAllExtensionsOfCategory: 'System-Support'. self systemNavigation browseAllExtensionsOfPackage: Project packageInfo. Replaces System-ct.1131, now also with support for browsing extensions of system categories. Thanks to Jakob and Chris for the feedback! =============== Diff against System-mt.1241 =============== Item was added: + ----- Method: SystemNavigation>>allExtensionsOfCategory: (in category 'query') ----- + allExtensionsOfCategory: systemCategory + + ^ self environment organization extensionMethodsForCategory: systemCategory! Item was added: + ----- Method: SystemNavigation>>allExtensionsOfPackage: (in category 'query') ----- + allExtensionsOfPackage: aPackageInfo + + ^ aPackageInfo extensionMethods! Item was added: + ----- Method: SystemNavigation>>browseAllExtensionsOfCategory: (in category 'browse') ----- + browseAllExtensionsOfCategory: systemCategory + "self default browseAllExtensionsOfCategory: 'Tools-Browser'" + + ^ self + browseMessageList: [self allExtensionsOfCategory: systemCategory] + name: ('Extensions of category {1}' translated format: {systemCategory})! Item was added: + ----- Method: SystemNavigation>>browseAllExtensionsOfPackage: (in category 'browse') ----- + browseAllExtensionsOfPackage: aPackageInfo + "self default browseAllExtensionsOfPackage: Morph packageInfo" + + ^ self + browseMessageList: [self allExtensionsOfPackage: aPackageInfo] + name: ('Extensions of package {1}' translated format: {aPackageInfo name})! Item was added: + ----- Method: SystemOrganizer>>category:matches: (in category 'as yet unclassified') ----- + category: categoryName matches: prefix + + | prefixSize catSize | + categoryName ifNil: [^ false]. + catSize := categoryName size. + prefixSize := prefix size. + catSize < prefixSize ifTrue: [^ false]. + (categoryName findString: prefix startingAt: 1 caseSensitive: false) = 1 + ifFalse: [^ false]. + ^(categoryName at: prefix size + 1 ifAbsent: [^ true]) = $-! Item was added: + ----- Method: SystemOrganizer>>extensionMethodsForCategory: (in category 'as yet unclassified') ----- + extensionMethodsForCategory: systemCategoryName + + | categoryPrefix | + categoryPrefix := '*' , systemCategoryName. + ^ self allElements + gather: [:className | | class | + class := self environment classNamed: className. + (class organization categories + select: [:methodCategoryName | methodCategoryName notNil + and: [self category: methodCategoryName matches: categoryPrefix]]) + gather: [:methodCategoryName | (class organization listAtCategoryNamed: methodCategoryName) + collect: [:selector | MethodReference + class: class + selector: selector + environment: self environment]]]!

1 0

The Trunk: System-mt.1283.mcz
by commits＠source.squeak.org 13 Jan '22

13 Jan '22

Marcel Taeumel uploaded a new version of System to project The Trunk: http://source.squeak.org/trunk/System-mt.1283.mcz ==================== Summary ==================== Name: System-mt.1283 Author: mt Time: 13 January 2022, 11:29:09.691863 am UUID: 4584fbc9-e9ee-404e-be7a-ecd572134419 Ancestors: System-mt.1282 Adds query/browse messages about package extensions to system navigation. Treats System-ct.1245 from Inbox. Note that pure system categories have no relationship with package extensions. Such extensions are a Monticello thing. =============== Diff against System-mt.1282 =============== Item was added: + ----- Method: SystemNavigation>>allExtensionClassesOfPackage: (in category 'query') ----- + allExtensionClassesOfPackage: packageNameOrInfo + + ^ (self packageInfoFor: packageNameOrInfo) extensionClasses! Item was added: + ----- Method: SystemNavigation>>allExtensionMethodsOfPackage: (in category 'query') ----- + allExtensionMethodsOfPackage: packageNameOrInfo + + ^ (self packageInfoFor: packageNameOrInfo) extensionMethods! Item was added: + ----- Method: SystemNavigation>>browseAllExtensionClassesOfPackage: (in category 'browse') ----- + browseAllExtensionClassesOfPackage: aPackageInfoOrName + "self default browseAllExtensionClassesOfPackage: #Morphic" + + | packageInfo | + packageInfo := self packageInfoFor: aPackageInfoOrName. + ^ self + browseClassList: [self allExtensionClassesOfPackage: packageInfo] + name: ('Extensions of package {1}' translated format: {packageInfo name})! Item was added: + ----- Method: SystemNavigation>>browseAllExtensionMethodsOfPackage: (in category 'browse') ----- + browseAllExtensionMethodsOfPackage: aPackageInfoOrName + "self default browseAllExtensionMethodsOfPackage: #Morph" + + | packageInfo | + packageInfo := self packageInfoFor: aPackageInfoOrName. + ^ self + browseMessageList: [self allExtensionMethodsOfPackage: packageInfo] + name: ('Extensions of package {1}' translated format: {packageInfo name})! Item was added: + ----- Method: SystemNavigation>>browseClassList:name: (in category 'browse') ----- + browseClassList: classListOrBlock name: aTitle + + | classList | + classList := classListOrBlock isBlock + ifTrue: [ Cursor wait showWhile: classListOrBlock ] + ifFalse: [ classListOrBlock ]. + classList size = 0 ifTrue: [ + ^self inform: 'There are no', String cr, aTitle ]. + ^ ToolSet + openClassListBrowser: (classList collect: [:each | each name]) + title: aTitle!

1 0

The Trunk: System-mt.1282.mcz
by commits＠source.squeak.org 13 Jan '22

13 Jan '22

Marcel Taeumel uploaded a new version of System to project The Trunk: http://source.squeak.org/trunk/System-mt.1282.mcz ==================== Summary ==================== Name: System-mt.1282 Author: mt Time: 13 January 2022, 10:09:18.389601 am UUID: 2e2e51ab-e9b0-e443-93ce-864b3024006a Ancestors: System-mt.1281 Make help text in text fields not so prominent in "Community (dark)" theme. See: http://lists.squeakfoundation.org/pipermail/squeak-dev/2022-January/218266.… =============== Diff against System-mt.1281 =============== Item was changed: ----- Method: CommunityTheme class>>addDarkScrollables: (in category 'instance creation') ----- addDarkScrollables: aUserInterfaceTheme "self createDark apply." "Scroll bars" aUserInterfaceTheme set: #thumbColor for: #ScrollBar to: self dbGray; set: #thumbBorderColor for: #ScrollBar to: self dbGray twiceDarker. "Scroll panes (includes generic stuff for list widgets, tree widgets, and text widgets." aUserInterfaceTheme set: #borderColor for: #ScrollPane to: (Color transparent) ; "So the search box isn't outlined." set: #color for: #ScrollPane to: self dbBackground. "List widgets" aUserInterfaceTheme set: #textColor for: #PluggableListMorph to: (Color gray: 0.9); set: #selectionColor for: #PluggableListMorph to: self dbSelection; set: #selectionTextColor for: #PluggableListMorph to: Color white ; derive: #multiSelectionColor for: #PluggableListMorph from: #PluggableListMorph at: #selectionColor do: [:c | c twiceDarker]; set: #filterColor for: #PluggableListMorph to: (self dbYellow alpha: 0.4); derive: #filterTextColor for: #PluggableListMorph from: #PluggableListMorph at: #textColor ; set: #preSelectionModifier for: #PluggableListMorph to: [ [:c | c twiceDarker ] ]; set: #hoverSelectionModifier for: #PluggableListMorph to: [ [:c | c twiceDarker alpha: 0.5 ] ]. "Tree widgets" aUserInterfaceTheme set: #highlightTextColor for: #SimpleHierarchicalListMorph to: self dbYellow lighter lighter; set: #lineColor for: #SimpleHierarchicalListMorph to: Color gray. "Text widgets" aUserInterfaceTheme set: #textColor for: #PluggableTextMorph to: (Color gray: 0.9); set: #caretColor for: #PluggableTextMorph to: Color orange darker; set: #selectionColor for: #PluggableTextMorph to: (self dbSelection duller duller); set: #unfocusedSelectionModifier for: #PluggableTextMorph to: [ [:c | c duller] ]; set: #adornmentReadOnly for: #PluggableTextMorph to: self dbPurple; set: #adornmentRefuse for: #PluggableTextMorph to: self dbBlue; set: #adornmentConflict for: #PluggableTextMorph to: self dbRed; set: #adornmentDiff for: #PluggableTextMorph to: self dbGreen; set: #adornmentNormalEdit for: #PluggableTextMorph to: self dbOrange; set: #adornmentDiffEdit for: #PluggableTextMorph to: self dbYellow; set: #frameAdornmentWidth for: #PluggableTextMorph to: 2. aUserInterfaceTheme + set: #balloonTextColor for: #PluggableTextMorphPlus to: self dbComment! - set: #balloonTextColor for: #PluggableTextMorphPlus to: Color lightGray!

1 0

The Trunk: Morphic-ct.1845.mcz
by commits＠source.squeak.org 12 Jan '22

12 Jan '22

Christoph Thiede uploaded a new version of Morphic to project The Trunk: http://source.squeak.org/trunk/Morphic-ct.1845.mcz ==================== Summary ==================== Name: Morphic-ct.1845 Author: ct Time: 12 January 2022, 9:22:35.255139 pm UUID: e2cf0937-d5d7-3c44-8dd3-8516bb1111c1 Ancestors: Morphic-mt.1844 Fixes a recent slip for a missing #withCR in a prominent place. Sorry ... =============== Diff against Morphic-mt.1844 =============== Item was changed: ----- Method: MenuMorph>>showKeyboardHelp (in category 'keystroke helpers') ----- showKeyboardHelp | help | help := self balloonMorphClass + string: 'Enter text to narrow selection\down to matching items' withCRs translated - string: 'Enter text to narrow selection\down to matching items ' translated for: self corner: #topLeft. help popUpAt: self topCenter forHand: self activeHand!

1 0

The Trunk: PreferenceBrowser-mt.126.mcz
by commits＠source.squeak.org 12 Jan '22

12 Jan '22

Marcel Taeumel uploaded a new version of PreferenceBrowser to project The Trunk: http://source.squeak.org/trunk/PreferenceBrowser-mt.126.mcz ==================== Summary ==================== Name: PreferenceBrowser-mt.126 Author: mt Time: 12 January 2022, 1:25:48.885628 pm UUID: 06cc4c6d-4125-44b8-b2c2-ff3298747d5a Ancestors: PreferenceBrowser-mt.125 Minor fix in wizard regarding scaling and visibility. It's still a mess. :-) =============== Diff against PreferenceBrowser-mt.125 =============== Item was changed: ----- Method: PreferenceWizardMorph>>updateFromChangedScaleFactor (in category 'display scale') ----- updateFromChangedScaleFactor previewWorld delete. previewWorld := nil. DisplayScreen displayIsFullScreen ifFalse: [ DisplayScreen setNewScreenSize: (self defaultExtent * RealEstateAgent scaleFactor) rounded]. checkmark := nil. radiomark := nil. self layoutInset: (self defaultFont widthOf: $x) * 2; cellGap: (self defaultFont widthOf: $x). titleMorph font: (UserInterfaceTheme current get: #wizardTitleFont); margins: (self cellGap @ 0 corner: self cellGap @ self cellGap). titleMorph layoutFrame bottomOffset: titleMorph height. self updateLowPerformanceLabel: lowPerformanceMorph contents. "buttons" {startButton. skipButton. previousButton. nextButton. doneButton}, (pages gather: [:page | page allMorphs select: [:ea | ea isButton]]) do: [:button | ((button owner hasProperty: #isRadioButton) or: [button owner hasProperty: #isCheckbox]) ifTrue: [ button "layoutInset: 0;" extent: (TextStyle defaultFont height * 1.75) asPoint; update: button getLabelSelector. button owner cellGap: (TextStyle defaultFont widthOf: $x). button owner balloonText ifNotNil: [:text | text addAttribute: (TextFontReference toFont: (UserInterfaceTheme current get: #wizardHelpFont))]] ifFalse: [ button layoutInset: self defaultButtonMargins]. button borderWidth: (2 * RealEstateAgent scaleFactor) truncated; font: (UserInterfaceTheme current get: #wizardButtonFont); updateMinimumExtent "Font might not change but PPI did."]. self fullBounds. (startButton minimumWidth max: skipButton minimumWidth) in: [:w | startButton hResizing: #rigid; width: w. skipButton hResizing: #rigid; width: w. startButton layoutFrame leftOffset: 2*w negated. skipButton layoutFrame rightOffset: 2*w]. (previousButton minimumWidth max: nextButton minimumWidth) in: [:w | previousButton hResizing: #rigid; width: w. nextButton hResizing: #rigid; width: w]. pagesLabel margins: (self layoutInset@0 corner: self layoutInset@0); font: (UserInterfaceTheme current get: #wizardStandardFont). buttonRowMorph cellGap: self cellGap; layoutInset: (0@self layoutInset corner: 0@0). buttonRowMorph layoutFrame topOffset: buttonRowMorph fullBounds height negated. "labels" {controlMorph firstSubmorph}, (pages gather: [:page | page allMorphs select: [:ea | ea isTextMorph]]) do: [:label | label font: (UserInterfaceTheme current get: #wizardStandardFont); margins: self defaultTextMargins "No need for #releaseParagraph because window resizing will happen anyway."]. "controlMorph" controlMorph layoutInset: (0@0 corner: self cellGap@0). controlMorph layoutFrame topOffset: titleMorph height; bottomOffset: buttonRowMorph height negated. "scroll panes in pages" pages do: [:page | | scrollPane | page layoutInset: (self layoutInset asPoint corner: self cellGap@0); cellGap: self cellGap. scrollPane := page submorphs second. scrollPane scrollBarThickness: self layoutInset. scrollPane scroller firstSubmorph cellGap: self cellGap; layoutInset: (0@0 corner: self cellGap@0). (scrollPane vScrollBar instVarNamed: #slider) borderWidth: (2 * RealEstateAgent scaleFactor) truncated]. "previewWorld" self initializePreviewWorld. self addMorph: previewWorld. + self bounds: self world bounds. + self updateWindowBounds. + self updatePageVisibility.! - self step. - " previewWorld borderWidth: (2 * RealEstateAgent scaleFactor) truncated. - previewWorld layoutFrame - topOffset: titleMorph height; - bottomOffset: buttonRowMorph height negated. - " ! Item was changed: ----- Method: PreferenceWizardMorph>>updatePageVisibility (in category 'layout') ----- updatePageVisibility "Hide extra labels if page has not enough space." | currentPage scrollPane enoughRoom topText bottomText firstItem | controlMorph ifNil: [^ self]. controlMorph submorphs size > 1 ifFalse: [^ self]. + + self fullBounds. + currentPage := controlMorph lastSubmorph. scrollPane := currentPage submorphs second. topText := controlMorph firstSubmorph. bottomText := currentPage lastSubmorph isTextMorph ifTrue: [currentPage lastSubmorph]. firstItem := scrollPane scroller firstSubmorph firstSubmorph. "checkbox" enoughRoom := topText visible + ifTrue: [(firstItem height * 3) <= scrollPane height] + ifFalse: [(firstItem height * 3) <= (scrollPane height - ifTrue: [firstItem height <= scrollPane height] - ifFalse: [firstItem height <= (scrollPane height - topText height - (bottomText ifNil: [0] ifNotNil: [:t | t height]))]. enoughRoom not ifTrue: [ + topText - controlMorph firstSubmorph visible: false; disableLayout: true. + bottomText ifNotNil: [ + bottomText + visible: false; + disableLayout: true]] - currentPage lastSubmorph isTextMorph - ifTrue: [ - currentPage lastSubmorph - visible: false; - disableLayout: true]] ifFalse: [ + topText - controlMorph firstSubmorph visible: true; disableLayout: false. + bottomText ifNotNil: [ + currentPage lastSubmorph + visible: true; + disableLayout: false]]! - currentPage lastSubmorph isTextMorph - ifTrue: [ - currentPage lastSubmorph - visible: true; - disableLayout: false]]!

1 0

The Trunk: Graphics-mt.458.mcz
by commits＠source.squeak.org 12 Jan '22

12 Jan '22

Marcel Taeumel uploaded a new version of Graphics to project The Trunk: http://source.squeak.org/trunk/Graphics-mt.458.mcz ==================== Summary ==================== Name: Graphics-mt.458 Author: mt Time: 12 January 2022, 9:47:08.021267 am UUID: d6c46d9f-7f1a-49ca-97f0-67bce5a31b61 Ancestors: Graphics-ct.457 Adds missing complementory conversion methods for String >> #asDisplayText and Text >> #asDisplayText. =============== Diff against Graphics-ct.457 =============== Item was added: + ----- Method: DisplayText>>asString (in category 'converting') ----- + asString + "See String >> #asDisplayText." + + ^ self string! Item was added: + ----- Method: DisplayText>>asText (in category 'converting') ----- + asText + "See Text >> #asDisplayText." + + ^ self text!

1 0

The Trunk: Monticello-mt.765.mcz
by commits＠source.squeak.org 11 Jan '22

11 Jan '22

Marcel Taeumel uploaded a new version of Monticello to project The Trunk: http://source.squeak.org/trunk/Monticello-mt.765.mcz ==================== Summary ==================== Name: Monticello-mt.765 Author: mt Time: 11 January 2022, 12:40:00.591851 pm UUID: dedd0906-7429-44ea-810b-1c4e08847650 Ancestors: Monticello-ct.764 When installing existing method additions from an .mcz archive, honor #acceptsLoggingOfCompilation. Note that this also covers the creation of new instances of MethodAddition. Maybe we could move the check for SystemChangeNotifier from #asMethodAddition to here, too. =============== Diff against Monticello-ct.764 =============== Item was changed: ----- Method: MethodAddition>>writeSourceToLog (in category 'compiling') ----- writeSourceToLog + (logSource and: [myClass acceptsLoggingOfCompilation]) ifTrue: [ - logSource ifTrue: [ myClass logMethodSource: text forMethodWithNode: methodAndNode inCategory: category withStamp: changeStamp notifying: requestor. ]. !

1 0

The Trunk: System-mt.1281.mcz
by commits＠source.squeak.org 11 Jan '22

11 Jan '22

Marcel Taeumel uploaded a new version of System to project The Trunk: http://source.squeak.org/trunk/System-mt.1281.mcz ==================== Summary ==================== Name: System-mt.1281 Author: mt Time: 11 January 2022, 11:06:08.425851 am UUID: f01da0ec-0746-46b1-b26c-0b2d1c5c1fac Ancestors: System-ct.1280 Revise System-ct.1279. =============== Diff against System-ct.1280 =============== Item was changed: ----- Method: Utilities class>>authorName (in category 'identification') ----- authorName "Maybe interactive. Answer the full name to be used in various tools to identify the user/author. Ask the user if the name is empty. Try to derive the name from existing initials." ^ AuthorName ifEmpty: [ + AuthorInitials ifNotEmpty: [:initials | + SystemNavigation authorsInverted at: initials ifPresent: [:authorNames | + AuthorName := authorNames sorted joinSeparatedBy: '/']]. + self setAuthorName. "Let the user enter a new or confirm the current value." + AuthorName]! - AuthorInitials - ifEmpty: [self setAuthorName] - ifNotEmpty: [:initials | - SystemNavigation authorsInverted - at: initials - ifPresent: [:authorNames | - AuthorName := authorNames sorted joinSeparatedBy: '/'. - self setAuthorName. "Let the user confirm"] - ifAbsent: [self setAuthorName]]]! Item was changed: ----- Method: Utilities class>>setAuthorName (in category 'identification') ----- setAuthorName + AuthorName := Project uiManager - ^ AuthorName := Project uiManager request: 'Please type your name:' translated + initialAnswer: (AuthorName ifEmpty: ['Your Name' translated]).! - initialAnswer: (AuthorName ifEmpty: ['Your Name' translated])!

1 0

← Newer
1
...
13
14
15
16
17
18
19
20
21
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 January 2022