Squeak-dev July 2022

squeak-dev@lists.squeakfoundation.org

33 participants
228 discussions

The Inbox: MorphicTests-pre.88.mcz
by commits＠source.squeak.org 19 Jul '22

19 Jul '22

A new version of MorphicTests was added to project The Inbox: http://source.squeak.org/inbox/MorphicTests-pre.88.mcz ==================== Summary ==================== Name: MorphicTests-pre.88 Author: pre Time: 19 July 2022, 4:33:48.196163 pm UUID: 0260d7ea-7bc6-1443-a2a0-4092a7aaebd2 Ancestors: MorphicTests-mt.87 A morphic test case that demonstrates a) that invalid Text instances can be constructed by adding more attributes than characters b) that there can be situations when TextMorph can not handle these objects (in particular when it tries to restore the editor selection when the TextMorph gets new content). =============== Diff against MorphicTests-mt.87 =============== Item was added: + ----- Method: TextMorphTest>>testHandlingInvalidTextObjects (in category 'tests') ----- + testHandlingInvalidTextObjects + "It is possible to construct Text objects that have more attributes than characters. + This can break the TextMorph when it tries to restore the text selection." + | textMorph emptyMethodText newEmptyMethodText | + textMorph := TextMorph new. + emptyMethodText := 'emptyMethod + ' asText. + textMorph newContents: emptyMethodText. + textMorph selectFrom: 13 to: 12. + self assert: textMorph selectionInterval start = 13. + newEmptyMethodText := 'emptyMethod + ' asText. + newEmptyMethodText addAttribute: TextColor red from: 2 to: 13. + textMorph newContents: newEmptyMethodText.!

1 0

The Trunk: SUnitTools-mt.9.mcz
by commits＠source.squeak.org 19 Jul '22

19 Jul '22

Marcel Taeumel uploaded a new version of SUnitTools to project The Trunk: http://source.squeak.org/trunk/SUnitTools-mt.9.mcz ==================== Summary ==================== Name: SUnitTools-mt.9 Author: mt Time: 19 July 2022, 8:54:27.119222 am UUID: 7fed01fe-8926-4ca0-9cb7-889cb718de92 Ancestors: SUnitTools-ct.8 Fixes selector name of #\\. =============== Diff against SUnitTools-ct.8 =============== Item was changed: ----- Method: CodeHolder>>testBinarySelectorNames (in category '*SUnitTools-running') ----- testBinarySelectorNames ^ IdentityDictionary newFromPairs: #( #& 'conjunction' #| 'disjunction' #==> 'implication' #* 'multiply' #+ 'add' #- 'subtract' #/ 'divide' + #// 'quotient' "Integer" + #\\ 'modulo' "or remainder" - #// 'remainder' - #\\ 'modulo' #<< 'shiftLeft' #>> 'shiftRight' #= 'equality' #== 'identity' #~= 'difference' #~~ 'mismatch' #< 'lessThan' #<= 'lessOrEqualThan' #> 'greaterThan' #>= 'greaterOrEqualThan' #<=> 'spaceshipOperator' #@ 'at' #, 'concatenation' #-> 'association' #=> 'binding' ) !

1 0

UK Smalltalk User Group meeting - 27 July 2022
by Giovanni Corriga 18 Jul '22

18 Jul '22

For this month's UKSTUG meeting, we'll open the floor to the whole audience and let people show what they are working on. If you have an interesting project to show, or if you'd like to get some help with some hard problem, just show up and be ready to present! This will be an online meeting from home. If you'd like to join us, please sign up in advance on the meeting's Meetup page ( https://www.meetup.com/ukstug/events/286802146/ ) to receive the meeting details. Don’t forget to bring your laptop and drinks!

1 0

The Inbox
by Eliot Miranda 18 Jul '22

18 Jul '22

Hi All, I was dismayed to see a large number of emails informing me of packages that were committed to trunk that had been committed to Inbox. Apart from the annoying noise (I already have to delete many commit messages a day only to see the ones i'm interested in), I have to ask why we are copying packages to Inbox. Doesn't this defeat the purpose? My understanding is that Inbox is a place for non-core developers to submit proposed changes, and for core-developers to submit proposed code that needs review. Duplicating the packages that are already in trunk simply drowns out those submissions. How are we supposed to recognise suggested submissions if they're lost within the tide of trunk submissions? _,,,^..^,,,_ best, Eliot

4 6

The Trunk: Monticello-mt.782.mcz
by commits＠source.squeak.org 18 Jul '22

18 Jul '22

Marcel Taeumel uploaded a new version of Monticello to project The Trunk: http://source.squeak.org/trunk/Monticello-mt.782.mcz ==================== Summary ==================== Name: Monticello-mt.782 Author: mt Time: 18 July 2022, 2:46:26.342663 pm UUID: 8bc7f81d-4c0e-b341-9b1f-e31a0d96a948 Ancestors: Monticello-mt.781 Guard the #copyImageVersions feature to avoid accidental spamming. =============== Diff against Monticello-mt.781 =============== Item was changed: ----- Method: MCRepository>>copyImageVersions (in category 'versions') ----- copyImageVersions "For each package contained in the receiver, copy the version of that package which is currently loaded in this image. If no version of a package is loaded in the image, nothing is copied for that package." + MCRepository trunk = self ifTrue: [^ self error: 'Must not copy over to Trunk repository' translated]. + MCRepository inbox = self ifTrue: [^ self error: 'Must not copy over to Inbox repository' translated]. + MCRepository treated = self ifTrue: [^ self error: 'Must not copy over to Treated repository' translated]. self cacheAllFileNamesDuring: [ self allPackageNames do: [ : eachPkgName | MCWorkingCopy allManagers detect: [ : each | each packageName = eachPkgName ] ifFound: [ : loaded | loaded ancestors do: [ : infoToCopy | (self includesVersionNamed: infoToCopy versionName) ifFalse: [ (MCRepositoryGroup default versionWithInfo: infoToCopy) ifNil: [ Warning signal: infoToCopy name , ' not found in RepositoryGroup default.' ] ifNotNil: [ : ver | self storeVersion: ver ] ] ] ] ifNone: [ "Image specifies no version to copy." ] ] ]! Item was added: + ----- Method: MCWorkingCopyBrowser>>copyImageVersionsSafely (in category 'actions') ----- + copyImageVersionsSafely + (Project current uiManager confirm: ('Do you really want to copy the loaded version of each of <b>{1} packages</b> to <b>{2}</b>?' translated format: {MCWorkingCopy allManagers size. self repository description}) asTextFromHtml title: 'Copy Image Versions' translated) ifFalse: [^ self]. + self copyImageVersions.! Item was changed: ----- Method: MCWorkingCopyBrowser>>repositoryListMenu: (in category 'morphic ui') ----- repositoryListMenu: aMenu "first add repository-specific commands" self repository ifNotNil: [ self fillMenu: aMenu fromSpecs: #(('open repository' #openRepository) ('edit repository info' #editRepository) ('add to package...' #addRepositoryToPackage) ('remove repository' #removeRepository) ('demote to bottom' #demoteRepository) + ('copy image versions here' #copyImageVersionsSafely)). - ('copy image versions here' #copyImageVersions)). aMenu add: (self repository alwaysStoreDiffs ifTrue: ['store full versions'] ifFalse: ['store diffs']) target: self selector: #toggleDiffs ; addLine ]. "then the non-specific commands" ^self fillMenu: aMenu fromSpecs: #( ('load repositories' #loadRepositories) ('save repositories' #saveRepositories) ('flush cached versions' #flushCachedVersions))!

1 0

String & Text
by Marcel Taeumel 18 Jul '22

18 Jul '22

Hi all -- What are your thoughts on String and Text. In GUI programming, it is rather annoying to have to sprinkle #asText all over the code. It's nice to have most important protocol shared between String and Text. The recent change to only String >> #format: (see Collections-cmm.1016) to support symbols as placeholders indicates kind of a disagreement in how Text should be used in (GUI) code. Well, if some message is not there in Text, it is easy to find out. However, having a protocol there with different details feels rather challenging. I accept that not all protocols are shared between String and Text. I do not like inconsistencies of method implementations where the message (and signature) is identical. +1 for adding symbolic placeholders to Text >> #format: as well. Best, Marcel

7 14

The Inbox: Morphic-ct.2021.mcz
by commits＠source.squeak.org 17 Jul '22

17 Jul '22

A new version of Morphic was added to project The Inbox: http://source.squeak.org/inbox/Morphic-ct.2021.mcz ==================== Summary ==================== Name: Morphic-ct.2021 Author: ct Time: 17 July 2022, 3:25:57.930615 pm UUID: 51a4ba76-bfc0-4840-9cca-16474bdc0433 Ancestors: Morphic-eem.2020 In menu construction from tuples, allows nil values for the help. Follow up of Morphic-eem.2020. For instance, some menus in the Git Browser failed to open since that change. See SquitBrowser>>#buildMenu:from: and senders. Inbox because I'm not sure whether we should allow nil values here or whether Squot should be fixed instead. =============== Diff against Morphic-eem.2020 =============== Item was added: + ----- Method: MenuMorph>>addList: (in category 'construction') ----- + addList: aList + "Add the given items to this menu, where each item is a pair (<string> <actionSelector>).. If an element of the list is simply the symobl $-, add a line to the receiver. The optional third element of each entry, if present, provides balloon help." + + aList do: [:tuple | + tuple == #- + ifTrue: [self addLine] + ifFalse: + [self add: tuple first action: tuple second. + tuple size > 2 ifTrue: + [tuple third ifNotNil: [:help | + self balloonTextForLastItem: help withCRs]]]]!

1 0

The Inbox: SUnitTools-jr.9.mcz
by commits＠source.squeak.org 16 Jul '22

16 Jul '22

A new version of SUnitTools was added to project The Inbox: http://source.squeak.org/inbox/SUnitTools-jr.9.mcz ==================== Summary ==================== Name: SUnitTools-jr.9 Author: jr Time: 16 July 2022, 6:41:00.785653 pm UUID: 81d39fe4-b439-6a46-a0e9-0c922caf0dba Ancestors: SUnitTools-ct.8 Override run test menu items in Lexicon to run tests on the targetClass instead of the selectedClass The selectedClass is the class that defines the selected method. The targetClass is the browsed class in the Lexicon. This makes a difference for test methods if the selected method is inherited from an abstract TestCase subclass. In that case, self selectedClass isAbstract answers true and the test items were previously not shown. If the browsed class is not abstract as well, it can run the selected test method just fine. This introduces code duplication with the CodeHolder methods with the same selectors. =============== Diff against SUnitTools-ct.8 =============== Item was added: + ----- Method: BasicClassOrganizer>>categoryForTestCases (in category '*SUnitTools-accessing') ----- + categoryForTestCases + ^ self categories + detect: [:each | each beginsWith: 'test'] + ifNone: [Categorizer allCategory]! Item was added: + ----- Method: Browser>>hasSystemCategoryWithTestsSelected (in category '*SUnitTools-system category functions') ----- + hasSystemCategoryWithTestsSelected + + (systemOrganizer listAtCategoryNamed: (self selectedSystemCategory ifNil: [^ false])) + detect: [:name | + self class environment + at: name + ifPresent: [:cls | cls isTestClass and: [cls isAbstract not]] + ifAbsent: [false]] + ifNone: [^ false]. + ^ true + ! Item was added: + ----- Method: Browser>>testRunTests (in category '*SUnitTools-class list functions') ----- + testRunTests + + self testRunSuite: self selectedClass suite. + self changed: #classList. + self changed: #messageList.! Item was added: + ----- Method: Browser>>testRunTestsCategory (in category '*SUnitTools-system category functions') ----- + testRunTestsCategory + | suite | + suite :=TestSuite new. + ((systemOrganizer listAtCategoryNamed: self selectedSystemCategory) + collect: [:each | self class environment at: each]) + select: [:each | each isTestClass and: [each isAbstract not]] + thenDo: [:each | each addToSuiteFromSelectors: suite]. + self testRunSuite: suite. + self changed: #classList. + self changed: #messageList.! Item was added: + ----- Method: Browser>>testsClassListMenu: (in category '*SUnitTools-menus') ----- + testsClassListMenu: aMenu + <classListMenu> + self hasClassWithTestsSelected ifFalse: [^ aMenu]. + ^ aMenu addList: #( + - + ('run all tests' testRunTests)); + yourself! Item was added: + ----- Method: Browser>>testsSystemCategoryMenu: (in category '*SUnitTools-menus') ----- + testsSystemCategoryMenu: aMenu + <systemCategoryMenu> + self hasSystemCategoryWithTestsSelected ifFalse: [^ aMenu]. + ^ aMenu addList: #( + - + ('run all tests' testRunTestsCategory)); + yourself! Item was added: + ----- Method: CodeHolder>>testAskToCreateNewTest: (in category '*SUnitTools-running') ----- + testAskToCreateNewTest: className + | newClass | + (self confirm: 'Test class not found. Create one?' translated) ifFalse: [^ false]. + (ClassBuilder new) + name: className asSymbol + inEnvironment: self selectedClass environment + subclassOf: TestCase + type: #normal + instanceVariableNames: '' + classVariableNames: '' + poolDictionaries: '' + category: + ((self selectedClass category includes: $-) + ifTrue: [((self selectedClass category copyUpToLast: $-), '-Tests')] + ifFalse: [(self selectedClass category, 'Tests')]) asSymbol. + newClass := self selectedClass environment classNamed: className asSymbol. + newClass organization addCategory: #tests. + ^ true! Item was added: + ----- Method: CodeHolder>>testBinarySelectorNames (in category '*SUnitTools-running') ----- + testBinarySelectorNames + + ^ IdentityDictionary newFromPairs: #( + #& 'conjunction' + #| 'disjunction' + #==> 'implication' + #* 'multiply' + #+ 'add' + #- 'subtract' + #/ 'divide' + #// 'remainder' + #\\ 'modulo' + #<< 'shiftLeft' + #>> 'shiftRight' + + #= 'equality' + #== 'identity' + #~= 'difference' + #~~ 'mismatch' + + #< 'lessThan' + #<= 'lessOrEqualThan' + #> 'greaterThan' + #>= 'greaterOrEqualThan' + + #<=> 'spaceshipOperator' + + #@ 'at' + #, 'concatenation' + #-> 'association' + #=> 'binding' + ) + ! Item was added: + ----- Method: CodeHolder>>testBrowseClassNamed:possibleMessageNamed: (in category '*SUnitTools-running') ----- + testBrowseClassNamed: aClassName possibleMessageNamed: aMessageName + + | cls selector | + (self class environment hasClassNamed: aClassName) ifFalse: + [(self testAskToCreateNewTest: aClassName) ifFalse: [^ false]]. + cls := self class environment classNamed: aClassName. + + (aMessageName notNil and: [cls includesLocalSelector: (selector := aMessageName asSymbol)]) + ifTrue: [ToolSet browse: cls selector: selector] + ifFalse: + [ToolSet + browseClass: cls + category: cls organization categoryForTestCases]. + ^ true! Item was added: + ----- Method: CodeHolder>>testDebugTest (in category '*SUnitTools-message list functions') ----- + testDebugTest + | case selector cls | + cls := self selectedClass ifNil: [^ self]. + selector := self selectedMessageName ifNil: [^ self]. + case := cls selector: selector. + + case debugAsFailure.! Item was added: + ----- Method: CodeHolder>>testFindTest (in category '*SUnitTools-running') ----- + testFindTest + | cls destClassName destMessage | + cls := self selectedClass ifNil: [^ self]. + destClassName := cls name asString, 'Test'. + destMessage := self selectedMessageName ifNotNil: [:name | self testSelectorFrom: name]. + + self testBrowseClassNamed: destClassName possibleMessageNamed: destMessage.! Item was added: + ----- Method: CodeHolder>>testFindTested (in category '*SUnitTools-running') ----- + testFindTested + | cls classNameParts destClassName destMessage | + cls := self selectedClass ifNil: [^ self]. + cls isTestClass ifFalse: [" already there " ^ self]. + + classNameParts := cls name asString piecesCutWhere: [:a :b | b isUppercase]. + destClassName := (classNameParts last beginsWith: 'Test') + ifTrue: [classNameParts allButLast join] + ifFalse: [^ self inform: ('Did not find tested item for {1}' translated + format: {cls})]. + destMessage := self selectedMessageName ifNotNil: [:selector | | messageName | + messageName := selector asString. + (messageName beginsWith: 'test') "operate on test methods only" + ifTrue: [ (self class environment classNamed: destClassName) + ifNotNil: [:destClass | destClass selectors + detect: [:destSelector | (self testSelectorFrom: destSelector) = messageName] + ifNone: [nil]]] + ifFalse: [nil]]. + + (self testBrowseClassNamed: destClassName possibleMessageNamed: destMessage) + ifFalse: [self inform: ('Did not find tested item for {1}' translated + format: {self selectedMessageName ifNil: [cls]})].! Item was added: + ----- Method: CodeHolder>>testRunSuite: (in category '*SUnitTools-running') ----- + testRunSuite: suite + + | result | + result := suite run. + + (result respondsTo: #dispatchResultsIntoHistory) + ifTrue: [result dispatchResultsIntoHistory]. + + result hasPassed ifTrue: [^ self]. + + (result defects size = 1 + ifTrue: [result defects anyOne] + ifFalse: [UIManager default + chooseFrom: (result defects collect: [:each | each class name , '>>' , each selector printString]) + values: result defects + title: ('{1} passes, {2} failures, {3} errors\\Debug a failure or error?' format: { + result runCount . result failureCount . result errorCount}) withCRs] + ) ifNotNil: [:defect | defect debug]. + ! Item was added: + ----- Method: CodeHolder>>testRunTest (in category '*SUnitTools-message list functions') ----- + testRunTest + | suite | + suite := self selectedClass selector: self selectedMessageName. + self testRunSuite: suite. + self changed: #messageList.! Item was added: + ----- Method: CodeHolder>>testSelectorFrom: (in category '*SUnitTools-running') ----- + testSelectorFrom: aSelector + | name | + name := aSelector isBinary + ifTrue: [self testBinarySelectorNames at: aSelector ifAbsent: [^ nil]] + ifFalse: [aSelector asString]. + ^ String streamContents: [:stream | + stream nextPutAll: 'test'. + (name findTokens: $:) do: [:each | + stream nextPutAll: (each capitalized + select: [:char | char isAlphaNumeric])]]! Item was added: + ----- Method: CodeHolder>>testsMessageListMenu: (in category '*SUnitTools-menus') ----- + testsMessageListMenu: aMenu + <messageListMenu> + (self selectedClass isTestClass + and: [self selectedClass isAbstract not + and: [self selectedClass allTestSelectors includes: self selectedMessageName]]) + ifFalse: [^ aMenu]. + ^ aMenu addList: #( + - + ('run test' testRunTest) + ('debug test' testDebugTest)); + yourself! Item was added: + ----- Method: CodeHolder>>testsTestFindingMenu: (in category '*SUnitTools-menus') ----- + testsTestFindingMenu: aMenu + <classListMenu> + <messageListMenu> + ^ self hasClassWithTestsSelected + ifTrue: [aMenu add: 'find tested item' action: #testFindTested; yourself] + ifFalse: [aMenu add: 'find test case' action: #testFindTest; yourself] + ! Item was added: + ----- Method: Lexicon>>testDebugTest (in category '*SUnitTools-message list functions') ----- + testDebugTest + | case selector cls | + cls := self targetClass ifNil: [^ self]. + selector := self selectedMessageName ifNil: [^ self]. + case := cls selector: selector. + + case debugAsFailure.! Item was added: + ----- Method: Lexicon>>testRunTest (in category '*SUnitTools-message list functions') ----- + testRunTest + | suite | + suite := self targetClass selector: self selectedMessageName. + self testRunSuite: suite. + self changed: #messageList.! Item was added: + ----- Method: Lexicon>>testsMessageListMenu: (in category '*SUnitTools-menus') ----- + testsMessageListMenu: aMenu + (self targetClass isTestClass + and: [self targetClass isAbstract not + and: [self targetClass allTestSelectors includes: self selectedMessageName]]) + ifFalse: [^ aMenu]. + ^ aMenu addList: #( + - + ('run test' testRunTest) + ('debug test' testDebugTest)); + yourself! Item was added: + ----- Method: StringHolder>>hasClassWithTestsSelected (in category '*SUnitTools-testing') ----- + hasClassWithTestsSelected + + ^ self selectedClass + ifNil: [false] + ifNotNil: [:cls | + cls isTestClass and: [cls isAbstract not]]! Item was added: + ----- Method: TestCase class>>toolIcon (in category '*SUnitTools-icons') ----- + toolIcon + | classHistory | + self isAbstract ifTrue: [^ super toolIcon]. + classHistory := TestResult historyFor: self. + (classHistory at: #errors) ifNotEmpty: [^ #testRed]. + (classHistory at: #failures) ifNotEmpty: [^ #testOrange]. + (classHistory at: #passed) ifNotEmpty: [ ^ #testGreen]. + ^ #testGray! Item was added: + ----- Method: TestCase class>>toolIconSelector: (in category '*SUnitTools-icons') ----- + toolIconSelector: aSelector + + (self isMeta or: [self isAbstract or: [ + (self allTestSelectors includes: aSelector) not]]) + ifTrue: [^ super toolIconSelector: aSelector]. + + (self methodRaisedError: aSelector) ifTrue: [^ #testRed]. + (self methodFailed: aSelector) ifTrue: [^ #testOrange]. + (self methodPassed: aSelector) ifTrue: [^ #testGreen]. + ^ #testGray! Item was added: + ----- Method: ToolIcons class>>testGray (in category '*SUnitTools-icons') ----- + testGray + + ^ Form + extent: 12@12 + depth: 32 + fromArray: #( 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 4294177779 4291217094 4288585374 4288453788 4290953922 4294111986 0 0 0 0 0 0 4291217094 4291151301 4292796126 4292532954 4290690750 4290624957 0 0 0 0 0 0 4288585374 4292730333 4290953922 4290427578 4291414473 4287466893 0 0 0 0 0 0 4288387995 4292203989 4290493371 4290164406 4291019715 4287072135 0 0 0 0 0 0 4290822336 4290624957 4291414473 4291019715 4290230199 4289835441 0 0 0 0 0 0 4294111986 4290493371 4287269514 4286940549 4289769648 4293848814 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0) + offset: 0@0! Item was added: + ----- Method: ToolIcons class>>testGreen (in category '*SUnitTools-icons') ----- + testGreen + + ^ Form + extent: 12@12 + depth: 32 + fromArray: #( 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 4293720299 4288666780 4284466010 4284465241 4288599706 4293654250 0 0 0 0 0 0 4288666780 4288403095 4290962113 4290502586 4288007314 4288401048 0 0 0 0 0 0 4284465754 4290830784 4288008853 4287220872 4288992418 4283999824 0 0 0 0 0 0 4284398936 4290108596 4287351946 4286958211 4288532634 4283800910 0 0 0 0 0 0 4288533401 4288007057 4288926881 4288401561 4287677068 4288133778 0 0 0 0 0 0 4293653994 4288400279 4283867471 4283734348 4288067729 4293521384 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0) + offset: 0@0! Item was added: + ----- Method: ToolIcons class>>testOrange (in category '*SUnitTools-icons') ----- + testOrange + + ^ Form + extent: 12@12 + depth: 32 + fromArray: #( 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 4294964456 4294953101 4294943038 4294942778 4294951813 4294963941 0 0 0 0 0 0 4294953101 4294952588 4294959549 4294958774 4294951038 4294688127 0 0 0 0 0 0 4294943293 4294959548 4294953862 4294951029 4294954132 4293888298 0 0 0 0 0 0 4294941751 4294957228 4294951287 4294949998 4294952328 4293165354 0 0 0 0 0 0 4294951298 4294950267 4294954131 4294952583 4294948207 4293110399 0 0 0 0 0 0 4294898405 4294424959 4293559850 4292902442 4292979327 4294438117 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0) + offset: 0@0! Item was added: + ----- Method: ToolIcons class>>testRed (in category '*SUnitTools-icons') ----- + testRed + + ^ Form + extent: 12@12 + depth: 32 + fromArray: #( 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 4294960869 4294935167 4294716714 4294389034 4294344831 4294764005 0 0 0 0 0 0 4294935167 4294803840 4294687929 4294620593 4293950845 4293623680 0 0 0 0 0 0 4294585642 4294687928 4294477438 4294276206 4294284433 4292028973 0 0 0 0 0 0 4294061098 4294487209 4294276976 4294208615 4294150278 4291242543 0 0 0 0 0 0 4294082687 4293819516 4294284176 4294150277 4293163129 4291854213 0 0 0 0 0 0 4294698469 4293296000 4291635758 4290914863 4291657605 4294174183 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0) + offset: 0@0!

2 1

The Trunk: ToolBuilder-Kernel-eem.161.mcz
by commits＠source.squeak.org 16 Jul '22

16 Jul '22

Eliot Miranda uploaded a new version of ToolBuilder-Kernel to project The Trunk: http://source.squeak.org/trunk/ToolBuilder-Kernel-eem.161.mcz ==================== Summary ==================== Name: ToolBuilder-Kernel-eem.161 Author: eem Time: 13 July 2022, 4:28:54.356068 pm UUID: 7f9d44e6-c980-4c58-8bfe-57108fb8f8e0 Ancestors: ToolBuilder-Kernel-tpr.160 Allow the help in a menu tuple contain \'s for carriage returns, to make balloon help easier to format/read. =============== Diff against ToolBuilder-Kernel-tpr.160 =============== Item was changed: ----- Method: PluggableMenuSpec>>addList: (in category 'construction') ----- addList: aList "Add the given items to this menu, where each item is a pair (<string> <actionSelector>).. If an element of the list is simply the symobl $-, add a line to the receiver. The optional third element of each entry, if present, provides balloon help." aList do: [:tuple | + tuple == #- - (tuple == #-) ifTrue: [self addSeparator] ifFalse:[ | item | item := self add: tuple first target: model selector: tuple second argumentList: #(). + tuple size > 2 ifTrue:[item help: tuple third withCRs]]]! - tuple size > 2 ifTrue:[item help: tuple third]]]!

3 2

The Inbox: HelpSystem-Core-LM.141.mcz
by commits＠source.squeak.org 14 Jul '22

14 Jul '22

A new version of HelpSystem-Core was added to project The Inbox: http://source.squeak.org/inbox/HelpSystem-Core-LM.141.mcz ==================== Summary ==================== Name: HelpSystem-Core-LM.141 Author: LM Time: 14 July 2022, 4:06:42.369386 pm UUID: 887985cb-790f-4976-9514-be491a3167e9 Ancestors: HelpSystem-Core-mt.140 Allow HelpTopic instances to choose a custom Styler class used when styling their contents. This is especially useful for Markdown support, which can then select a custom Markdown Styler. =============== Diff against HelpSystem-Core-mt.140 =============== Item was added: + ----- Method: AbstractHelpTopic>>stylerClass (in category 'tools') ----- + stylerClass + "Subclasses may overwrite this and #usesCodeStyling to enable a styler of their own choosing." + ^ TextStyler for: #Smalltalk! Item was changed: ----- Method: AbstractHelpTopic>>usesCodeStyling (in category 'testing') ----- usesCodeStyling + "do I need a styled (ie with Shout) browser page? + Overwrite #stylerClass to change the Styler used." - "do I need a styled (ie with Shout) browser page?" ^false! Item was changed: ----- Method: DirectoryBasedHelpTopic>>accept:for: (in category 'editing') ----- accept: newContents for: subtopic + subtopic contents: newContents. - FileStream forceNewFileNamed: subtopic fileEntry fullName do: [:strm | - strm nextChunkPutWithStyle: newContents]. ^ true ! Item was changed: ----- Method: DirectoryBasedHelpTopic>>subtopics (in category 'accessing') ----- subtopics | directory | subtopics ifNotNil: [^ subtopics]. self directoryEntry ifNil: [^ #()]. directory := self directoryEntry asFileDirectory. ^ subtopics := (directory entries select: [:ea | ea isDirectory] thenCollect: [:ea | DirectoryBasedHelpTopic new directoryEntry: ea]), ((directory fileNamesMatching: self filter) + collect: [:fileName | FileBasedHelpTopic for: (directory entryAt: fileName) withSorting: self sortBlock])! - collect: [:fileName | FileBasedHelpTopic new - fileEntry: (directory entryAt: fileName); - sortBlock: self sortBlock])! Item was changed: AbstractHelpTopic subclass: #FileBasedHelpTopic instanceVariableNames: 'contents fileEntry sortBlock' classVariableNames: '' poolDictionaries: '' category: 'HelpSystem-Core-Model'! + + !FileBasedHelpTopic commentStamp: 'LM 7/14/2022 15:34' prior: 0! + I am a help topic that represents a file on disk. + + My content is loaded from the file. Saving modifications in the Help Browser will update the file on disk. + This is a great tool to sync external documentation with Squeak. + + There also exists an API to support handling of different file extensions. + See the #classFor: implementation on the class side.! Item was added: + ----- Method: FileBasedHelpTopic class>>classFor: (in category 'instance creation') ----- + classFor: aDirectoryEntryFile + + | subclasses | + subclasses := self allSubclasses select: [:clazz | clazz supportsEntry: aDirectoryEntryFile]. + ^ subclasses ifEmpty: [self] ifNotEmpty: [subclasses first].! Item was added: + ----- Method: FileBasedHelpTopic class>>for:withSorting: (in category 'instance creation') ----- + for: aDirectoryEntryFile withSorting: aSortBlock + + ^ (self classFor: aDirectoryEntryFile) new + fileEntry: aDirectoryEntryFile; + sortBlock: aSortBlock; + yourself! Item was added: + ----- Method: FileBasedHelpTopic class>>supportsEntry: (in category 'instance creation') ----- + supportsEntry: aDirectoryEntryFile + + ^ self subclassResponsibility! Item was changed: ----- Method: FileBasedHelpTopic>>accept:for: (in category 'editing') ----- accept: newContents for: subtopic + "FileBasedHelpTopics do not have subtopics. Saving is handled by the DirectoryBasedHelpTopic." + self shouldNotImplement.! - FileStream forceNewFileNamed: self fileEntry fullName do: [:strm | - strm nextChunkPutWithStyle: newContents]. - ^ true - ! Item was changed: ----- Method: FileBasedHelpTopic>>contents (in category 'accessing') ----- contents + ^ contents ifNil: [contents := self readFileContents]! - ^ contents ifNil: [ - [contents := fileEntry readStream nextChunkText withSqueakLineEndings] - on: InvalidUTF8 - do: [:err | ('Invalid UTF8 contents!! Please check ', self fileEntry fullName) asText addAttribute: TextColor red]]! Item was added: + ----- Method: FileBasedHelpTopic>>contents: (in category 'editing') ----- + contents: newContents + + self storeFileContents: newContents! Item was added: + ----- Method: FileBasedHelpTopic>>readFileContents (in category 'File I/O') ----- + readFileContents + + ^ [fileEntry readStream nextChunkText withSqueakLineEndings] + on: InvalidUTF8 + do: [:err | ('Invalid UTF8 contents!! Please check ', self fileEntry fullName) asText addAttribute: TextColor red].! Item was added: + ----- Method: FileBasedHelpTopic>>storeFileContents: (in category 'File I/O') ----- + storeFileContents: newContents + + FileStream forceNewFileNamed: self fileEntry fullName do: [:stream | + stream nextChunkPutWithStyle: newContents]! Item was added: + ----- Method: HelpBrowser>>aboutToStyle:requestor: (in category 'styling') ----- + aboutToStyle: aStyler requestor: aView + + self updateStyler: aStyler requestor: aView. + + ^ self aboutToStyle: aStyler! Item was changed: ----- Method: HelpBrowser>>buildContentsWith: (in category 'toolbuilder') ----- buildContentsWith: builder ^ builder pluggableTextSpec new model: self; getText: #topicContents; setText: #accept:; selection: #topicContentsSelection; menu: #codePaneMenu:shifted:; + stylerClass: (TextStyler for: #Smalltalk); frame: (LayoutFrame fractions: (0.3(a)0.0 corner: 1@1) offsets: (0@ builder inputFieldHeight corner: 0@0)); yourself! Item was added: + ----- Method: HelpBrowser>>updateStyler:requestor: (in category 'as yet unclassified') ----- + updateStyler: aStyler requestor: aView + + self currentTopic ifNotNil: [:topic | + aStyler class ~= topic stylerClass + ifTrue: [aView styler: (topic stylerClass new view: aView)]].!

1 0

← Newer
1
...
5
6
7
8
9
10
11
...
23
Older →

Jump to page: