Packages June 2022

packages@lists.squeakfoundation.org

1 participants
168 discussions

The Trunk: Tests-mt.492.mcz
by commits＠source.squeak.org 16 Jun '22

16 Jun '22

Marcel Taeumel uploaded a new version of Tests to project The Trunk: http://source.squeak.org/trunk/Tests-mt.492.mcz ==================== Summary ==================== Name: Tests-mt.492 Author: mt Time: 16 June 2022, 3:18:50.173458 pm UUID: e3bc53e9-878f-0d4c-b8ad-d7ca1c756573 Ancestors: Tests-mt.491 Flag a 100%-only test. =============== Diff against Tests-mt.491 =============== Item was changed: ----- Method: ReleaseTest>>testSqueakThemeFonts (in category 'tests') ----- testSqueakThemeFonts "Check whether the fonts installed in the active theme in the release are correct" + RealEstateAgent scaleFactor = 1 ifFalse: [^ self]. + "preference selector - font family name - font size" { #(standardDefaultTextFont 'Bitmap DejaVu Sans' 10.5). #(standardListFont 'Bitmap DejaVu Sans' 10.5). #(standardFlapFont 'Bitmap DejaVu Sans' 7.5). #(standardMenuFont 'Bitmap DejaVu Sans' 10.5). #(windowTitleFont 'Bitmap DejaVu Sans' 10.5). #(standardBalloonHelpFont 'Bitmap DejaVu Sans' 7.5). #(standardCodeFont 'Bitmap DejaVu Sans' 10.5). #(standardButtonFont 'Bitmap DejaVu Sans' 7.5) } do: [:triple | | font | font := Preferences perform: triple first. self assert: triple second equals: font familyName. self assert: triple third equals: font pointSize ]!

1 0

The Trunk: CollectionsTests-mt.379.mcz
by commits＠source.squeak.org 16 Jun '22

16 Jun '22

Marcel Taeumel uploaded a new version of CollectionsTests to project The Trunk: http://source.squeak.org/trunk/CollectionsTests-mt.379.mcz ==================== Summary ==================== Name: CollectionsTests-mt.379 Author: mt Time: 16 June 2022, 3:14:44.575458 pm UUID: cbf88333-cada-3f4b-a835-e0464f0fe8ed Ancestors: CollectionsTests-ct.378 Make #test17ImgTagDataUri compatible with #scaleFactor. =============== Diff against CollectionsTests-ct.378 =============== Item was changed: ----- Method: HtmlReadWriterTest>>test17ImgTagDataUri (in category 'tests') ----- test17ImgTagDataUri | form | form := Form dotOfSize: 16 color: Color maroon. { 'data:image/png;base64,{1}' format: { (ByteArray streamContents: [:stream | PNGReadWriter putForm: form onStream: stream]) base64Encoded}. 'data:image/jpeg;base64,{1}' format: { (ByteArray streamContents: [:stream | PNGReadWriter putForm: form onStream: stream]) base64Encoded}. } do: [:uri | | expectedHtml expectedText | expectedHtml := 'Hello <img src="{1}" alt="Red dot" /> World' format: {uri}. expectedText := ('Hello {1} World' format: {Character startOfHeader}) asText + addAttribute: form scaleIconToDisplay asTextAnchor from: 7 to: 7; - addAttribute: form asTextAnchor from: 7 to: 7; addAttribute: (TextColor color: Color transparent) from: 7 to: 7. self convertHtml: expectedHtml. self assert: expectedText string equals: text string. expectedText runs with: text runs do: [:expectedAttributes :actualAttributes | expectedAttributes with: actualAttributes do: [:expectedAttribute :actualAttribute | self assert: (expectedAttribute = actualAttribute or: [ ((expectedAttribute respondsTo: #anchoredMorph) and: [actualAttribute respondsTo: #anchoredMorph]) and: [(expectedAttribute anchoredMorph "aForm" unhibernate; bits) = (actualAttribute anchoredMorph "aForm" unhibernate; bits)] ]) ]]].!

1 0

The Trunk: CollectionsTests-ct.378.mcz
by commits＠source.squeak.org 16 Jun '22

16 Jun '22

Christoph Thiede uploaded a new version of CollectionsTests to project The Trunk: http://source.squeak.org/trunk/CollectionsTests-ct.378.mcz ==================== Summary ==================== Name: CollectionsTests-ct.378 Author: ct Time: 16 June 2022, 12:16:28.609149 pm UUID: b7cb8d55-cba2-cf44-b8a4-0812e76a3b7d Ancestors: CollectionsTests-ct.377 Migrates from #targetClass to #classToBeTested. Complements SUnit-ct.143. =============== Diff against CollectionsTests-ct.377 =============== Item was changed: ----- Method: WeakIdentityDictionaryTest>>testIsEmpty (in category 'tests') ----- testIsEmpty | wid o1 o2 | o1 := #o1 -> Object new. o2 := #o2 -> Object new. + wid := self classToBeTested new. - wid := self targetClass new. self assert: wid isEmpty. wid add: o1. wid add: o2. self deny: wid isEmpty. Smalltalk garbageCollect. self deny: wid isEmpty. o1 := nil. o2 := nil. Smalltalk garbageCollect. self assert: wid isEmpty.! Item was changed: ----- Method: WeakKeyDictionaryTest>>testIsEmpty (in category 'tests') ----- testIsEmpty | wkd o1 o2 | o1 := Object new. o2 := Object new. + wkd := self classToBeTested new. - wkd := self targetClass new. self assert: wkd isEmpty. wkd at: o1 put: #o1. wkd at: o2 put: #o2. self deny: wkd isEmpty. Smalltalk garbageCollect. wkd finalizeValues. self deny: wkd isEmpty. o1 := nil. o2 := nil. Smalltalk garbageCollect. wkd finalizeValues. self assert: wkd isEmpty.! Item was changed: ----- Method: WeakKeyDictionaryTest>>testNilDoesNotInheritValueOfGarbageCollectedObject (in category 'tests') ----- testNilDoesNotInheritValueOfGarbageCollectedObject "When the keys are garbage collected, they become nil in the associations. This must not mislead the dictionary to answer that nil had one of the values of these associations!!" | dictionary hashTable | + dictionary := self classToBeTested new. - dictionary := self targetClass new. "Craft a hash table where all keys were freed." hashTable := dictionary array. self assert: hashTable size > 0. hashTable replace: [:each | WeakKeyAssociation key: nil value: 1]. self assert: (dictionary at: nil ifAbsent: []) isNil. "and not 1"! Item was changed: ----- Method: WeakSetTest>>testIsEmpty (in category 'tests') ----- testIsEmpty | ws o1 o2 | o1 := Object new. o2 := Object new. + ws := self classToBeTested new. - ws := self targetClass new. self assert: ws isEmpty. ws add: o1. ws add: o2. self deny: ws isEmpty. Smalltalk garbageCollect. self deny: ws isEmpty. o1 := nil. o2 := nil. Smalltalk garbageCollect. self assert: ws isEmpty.!

1 0

The Trunk: KernelTests-ct.435.mcz
by commits＠source.squeak.org 16 Jun '22

16 Jun '22

Christoph Thiede uploaded a new version of KernelTests to project The Trunk: http://source.squeak.org/trunk/KernelTests-ct.435.mcz ==================== Summary ==================== Name: KernelTests-ct.435 Author: ct Time: 16 June 2022, 12:16:23.870149 pm UUID: c5eacd7d-1e45-0341-bac5-b98dc62c3fde Ancestors: KernelTests-eem.434 Migrates from #targetClass to #classToBeTested. Complements SUnit-ct.143. =============== Diff against KernelTests-eem.434 =============== Item was added: + ----- Method: AbstractProcessTest>>classToBeTested (in category 'support') ----- + classToBeTested + + ^ self environment classNamed: #Process! Item was removed: - ----- Method: AbstractProcessTest>>targetClass (in category 'support') ----- - targetClass - - ^ self environment classNamed: #Process! Item was changed: ----- Method: CompiledMethodTest>>testNew (in category 'tests') ----- testNew + + self shouldRaiseError: [self classToBeTested new].! - "This /should/ throw an exception." - self should: [self targetClass new] raise: Error!

1 0

The Trunk: ToolsTests-ct.115.mcz
by commits＠source.squeak.org 16 Jun '22

16 Jun '22

Christoph Thiede uploaded a new version of ToolsTests to project The Trunk: http://source.squeak.org/trunk/ToolsTests-ct.115.mcz ==================== Summary ==================== Name: ToolsTests-ct.115 Author: ct Time: 16 June 2022, 12:16:20.614149 pm UUID: a3666a0b-9104-8b40-a4cd-82625d91095b Ancestors: ToolsTests-ct.114 Migrates from #targetClass to #classToBeTested. Complements SUnit-ct.143. =============== Diff against ToolsTests-ct.114 =============== Item was changed: ----- Method: InspectorTest>>setUp (in category 'running') ----- setUp super setUp. + inspector := self classToBeTested on: self createObject.! - inspector := self targetClass on: self createObject.! Item was changed: ----- Method: InspectorTest>>testTruncationEllipsis (in category 'tests - special') ----- testTruncationEllipsis "Even the most generic inspector supports truncation of indexed variables." | ellipsis | (self class includesSelector: #createObjectWithTruncation) ifFalse: [^ self "Run this test only if explicitely refined."]. self inspector object: self createObjectWithTruncation. + self assert: self inspector class = self classToBeTested. "No change." - self assert: self inspector class = self targetClass. "No change." self assert: self inspector fields size >= self inspector truncationLimit. self assertFieldVisible: '...'. self inspector selectFieldSuchThat: [:field | field type = #ellipsis]. ellipsis := self inspector selectedField. self assert: '*...*' matches: ellipsis name. self assertValuePaneShows: '*not shown*'. self inspector fields do: [:field | "All visible elements are from that object." self assert: (field type = #element) ==> [self inspector object includes: field value]].!

1 0

The Trunk: SUnit-ct.143.mcz
by commits＠source.squeak.org 16 Jun '22

16 Jun '22

Christoph Thiede uploaded a new version of SUnit to project The Trunk: http://source.squeak.org/trunk/SUnit-ct.143.mcz ==================== Summary ==================== Name: SUnit-ct.143 Author: ct Time: 16 June 2022, 12:13:59.403149 pm UUID: b3ffa47c-94c0-3741-8e7f-d91bb9732841 Ancestors: SUnit-pre.142 ClassTestCase: Continues migration from #targetClass to #classToBeTested. Complements SUnit-pre.142. =============== Diff against SUnit-pre.142 =============== Item was changed: ----- Method: ClassTestCase>>targetClass (in category 'private') ----- targetClass + self flag: #deprecate. ^ self classToBeTested! Item was changed: ----- Method: ClassTestCase>>testClassComment (in category 'tests') ----- testClassComment + self shouldnt: [self classToBeTested organization hasNoComment].! - self shouldnt: [self targetClass organization hasNoComment].! Item was changed: ----- Method: ClassTestCase>>testNew (in category 'tests') ----- testNew "This should not throw an exception." + self classToBeTested new.! - self targetClass new.! Item was changed: ----- Method: ClassTestCase>>testUnCategorizedMethods (in category 'tests') ----- testUnCategorizedMethods | categories slips uncategorisedMethods | + categories := self categoriesForClass: self classToBeTested. - categories := self categoriesForClass: self targetClass. slips := categories select: [:each | each = #'as yet unclassified']. + uncategorisedMethods := self classToBeTested organization listAtCategoryNamed: #'as yet unclassified'. - uncategorisedMethods := self targetClass organization listAtCategoryNamed: #'as yet unclassified'. + self assert: slips isEmpty description: ('{1} has uncategorised methods: {2}' format: {self classToBeTested. (uncategorisedMethods collect: #printString) asCommaString}).! - self assert: slips isEmpty description: ('{1} has uncategorised methods: {2}' format: {self targetClass. (uncategorisedMethods collect: #printString) asCommaString}).!

1 0

The Trunk: PreferenceBrowser-mt.150.mcz
by commits＠source.squeak.org 15 Jun '22

15 Jun '22

Marcel Taeumel uploaded a new version of PreferenceBrowser to project The Trunk: http://source.squeak.org/trunk/PreferenceBrowser-mt.150.mcz ==================== Summary ==================== Name: PreferenceBrowser-mt.150 Author: mt Time: 15 June 2022, 12:20:11.60431 pm UUID: 59246927-cb5d-ff4c-bef2-918658d0acdd Ancestors: PreferenceBrowser-mt.149 Experiment is over. Load 60Deprecated again by default. Opt-out via Monticello Browser -> Unload Package. =============== Diff against PreferenceBrowser-mt.149 =============== Item was changed: ----- Method: PreferenceWizardMorph>>initializePage99ExtraPackages (in category 'initialization - pages') ----- initializePage99ExtraPackages "Let the user install extra packages." | currentPage packagesList installButton | currentPage := self createPage. currentPage cellPositioning: #topCenter; addMorphBack: self createHorizontalSpacer; addMorphBack: ((self createLabel: 'Do you want to install extra packages?' translated color: Color white) hResizing: #shrinkWrap; averageLineLength: 65; yourself); addMorphBack: ((self createLabel: 'Note that the installation process requires a network connection with Internet access and might take several minutes.' translated color: (Color gray: 0.9)) hResizing: #shrinkWrap; averageLineLength: 65; yourself). currentPage submorphs last text addAttribute: TextAlignment centered. currentPage submorphs last layoutChanged. currentPage addMorphBack: (self createVerticalSpace height: self layoutInset). packagesList := self createScrollPane. packagesList width: (self defaultTextStyle compositionWidthFor: 65); hResizing: #rigid; vResizing: #spaceFill. packagesList scroller firstSubmorph addAllMorphsBack: { self createCheckbox: 'Latest system updates' translated for: #InstallLatestUpdates help: 'Install the latest patches for ' translated, SystemVersion current version. self createCheckbox: 'Refactoring support in code browsers' translated for: #InstallRefactoringTools help: 'Refactoring is a process of re-writing or re-organizing text or code. The purpose of a refactor is to make the code or text more understandable and readable while exactly preserving its meaning and behavior' translated. self createCheckbox: 'Autocomplete in code editors' translated for: #InstallAutoComplete help: 'Package that provides interactive, context-sensitive auto-completion for Squeak' translated. self createCheckbox: 'Git support and browser' translated for: #InstallGitInfrastructure help: 'From the Git Browser, you can create new commits, synchronize with remote repositories (fetch, pull, push), manage and merge branches, switch between them, and compare different versions' translated. self createCheckbox: 'Foreign function interface (FFI)' translated for: #InstallFFI help: 'FFI, the Squeak Foreign Function Interface, is used to call functions located in shared libraries that are not part of the Squeak VM nor its plugins' translated. self createCheckbox: 'Access OS functions' translated for: #InstallOSProcess help: 'OSProcess provides access to operating system functions, including pipes and child process creation' translated. self createCheckbox: 'Integrate Squeak''s mailing lists' translated for: #InstallSqueakInboxTalk help: 'Through Squeak Inbox Talk, you can engage with our community from within Squeak using tools that integrate our mailing lists such as squeak-dev and vm-dev' translated. + "self createCheckbox: 'Compatibility packages for legacy apps' translated for: #InstallCompatibilityPackages help: 'Install protocols (i.e., classes and methods) that got deprecated for this version to make older applications work without changes.' translated." - self createCheckbox: 'Compatibility packages for legacy apps' translated for: #InstallCompatibilityPackages help: 'Install protocols (i.e., classes and methods) that got deprecated for this version to make older applications work without changes.' translated. }. currentPage addMorphBack: packagesList. currentPage addMorphBack: ((self createLabel: 'Find more on www.squeak.org/projects' color: (Color gray: 0.9)) hResizing: #shrinkWrap; yourself). installButton := self createButton action: #installExtraPackagesVia:; label: 'Yes, install selected packages.' translated; yourself. installButton setProperty: #label toValue: installButton label; arguments: {installButton}. currentPage addMorphBack: installButton. currentPage addMorphBack: (self createButton action: #showSqueak; label: 'No, maybe later.' translated). ^ currentPage! Item was changed: ----- Method: PreferenceWizardMorph>>installExtraPackages (in category 'actions') ----- installExtraPackages "Removes the buttons and adds the progress bar during installation." | steps page | self removeProperty: #checkInternet. "No frequent checks for connectivity from here." steps := #( InstallLatestUpdates + "InstallCompatibilityPackages" - InstallCompatibilityPackages InstallMetacello InstallRefactoringTools InstallAutoComplete InstallGitInfrastructure InstallFFI InstallOSProcess InstallSqueakInboxTalk ) select: [:ea | self perform: ('state', ea) asSymbol]. page := controlMorph firstSubmorph. page submorphs second hide. "question" page submorphs last delete. "url" page submorphs last delete. "no button" page submorphs last delete. "yes button" page submorphs last delete. "package list" self refreshWorld. [ PreferenceWizardProgressMorph install. page addMorphBack: PreferenceWizardProgressMorph uniqueInstance; addMorphBack: self createVerticalSpacer. steps do: [:step | self perform: step withFirstCharacterDownshifted asSymbol] displayingProgress: [:step | String streamContents: [:s | step findFeatureIndicesDo: [:start :end | s nextPutAll: (step copyFrom: start to: end); space]. s nextPutAll: '...']]. ] ensure: [ PreferenceWizardProgressMorph reset. self showSqueak].!

1 0

The Trunk: Tests-mt.491.mcz
by commits＠source.squeak.org 15 Jun '22

15 Jun '22

Marcel Taeumel uploaded a new version of Tests to project The Trunk: http://source.squeak.org/trunk/Tests-mt.491.mcz ==================== Summary ==================== Name: Tests-mt.491 Author: mt Time: 15 June 2022, 9:27:31.627614 am UUID: 1c0f98bd-8aba-ee42-b419-15e833e838ae Ancestors: Tests-ct.490 Tests Decompiler fix in Compiler-mt.477. =============== Diff against Tests-ct.490 =============== Item was added: + ----- Method: DecompilerTests>>testDecompileCaseOfWithInnerLoop (in category 'tests') ----- + testDecompileCaseOfWithInnerLoop + + | sourceCode mn decompiledCode | + sourceCode := '| x | ^ 1 caseOf: { [ 1 ] -> [ [ true ] whileTrue: [ x := 42 ] ] }'. + mn := self class newCompiler compileNoPattern: sourceCode in: self class notifying: nil ifFail: [self error: 'failed']. + decompiledCode := mn generateWithTempNames decompileWithTemps asString. + self assert: ( + (Scanner new scanTokens: decompiledCode) endsWith: + (Scanner new scanTokens: sourceCode)).!

1 0

The Trunk: Compiler-mt.477.mcz
by commits＠source.squeak.org 15 Jun '22

15 Jun '22

Marcel Taeumel uploaded a new version of Compiler to project The Trunk: http://source.squeak.org/trunk/Compiler-mt.477.mcz ==================== Summary ==================== Name: Compiler-mt.477 Author: mt Time: 8 June 2022, 2:04:54.227335 pm UUID: 814c7797-c5f1-4844-bb20-83e85b5656ca Ancestors: Compiler-mt.476 Fixes decompilation of 1 caseOf: { [ 1 ] -> [ | x | [ true ] whileTrue: [ x := 42 ] ] }. See https://github.com/squeak-smalltalk/squeak-object-memory/issues/36 =============== Diff against Compiler-mt.476 =============== Item was changed: ----- Method: Decompiler>>startAndLimitFor:from:into: (in category 'private') ----- startAndLimitFor: incrVar from: aStack into: binaryBlock "If incrVar matches the increment of a whileLoop at the end of statements evaluate binaryBlock with the init statement for incrVar and the init statement for the block's limit, if any, and answer true. Otherwise answer false. Used to help convert whileTrue: loops into to:[by:]do: loops." | guard initExpr limitInit size | ((size := aStack size) >= 1 + and: [(initExpr := aStack at: size) ~~ CaseFlag] + and: [initExpr isAssignmentNode]) ifFalse: - and: [(initExpr := aStack at: size) isAssignmentNode]) ifFalse: [^false]. initExpr variable == incrVar ifTrue: [binaryBlock value: initExpr value: nil. ^true]. limitInit := initExpr. (size >= 2 and: [(initExpr := aStack at: size - 1) isAssignmentNode and: [initExpr variable == incrVar and: [(guard := statements last receiver) isBlockNode and: [guard statements size = 1 and: [(guard := guard statements first) isMessageNode and: [guard receiver == incrVar and: [guard arguments first == limitInit variable]]]]]]]) ifTrue: [binaryBlock value: initExpr value: limitInit. ^true]. ^false!

1 0

The Trunk: System-eem.1361.mcz
by commits＠source.squeak.org 14 Jun '22

14 Jun '22

Eliot Miranda uploaded a new version of System to project The Trunk: http://source.squeak.org/trunk/System-eem.1361.mcz ==================== Summary ==================== Name: System-eem.1361 Author: eem Time: 14 June 2022, 11:59:30.191277 am UUID: 0269091d-007e-4db6-a77d-c459b689b7d1 Ancestors: System-dtl.1360 Scope vareiable references (especially class variable references and property variable accesses (Tweak et al)) to the defining class, rather thna the whole system. Since allCallsOn:from: is broken, use allCallsOn:localTo: in browseAllCallsOn:localTo: [e.g. the first two are ok; the last is broken. self systemNavigation allCallsOn: (EventSensor bindingOf: #EventPollPeriod) an OrderedCollection(a MethodReference EventSensor class >> #eventPollPeriod a MethodReference EventSensor class >> #eventPollPeriod:) self systemNavigation allCallsOn: (EventSensor bindingOf: #EventPollPeriod) localTo: EventSensor an OrderedCollection(a MethodReference EventSensor class >> #eventPollPeriod a MethodReference EventSensor class >> #eventPollPeriod:) self systemNavigation allCallsOn: (EventSensor bindingOf: #EventPollPeriod) from: EventSensor an OrderedCollection() ] =============== Diff against System-dtl.1360 =============== Item was changed: ----- Method: SystemNavigation>>browseAllCallsOn:localTo: (in category 'browse') ----- browseAllCallsOn: aLiteral localTo: aBehavior "Create and schedule a message browser on each method in or below the given class that refers to aLiteral." "self default browseAllCallsOn: #open:label: localTo: CodeHolder" aBehavior ifNil: [ ^self inform: 'No behavior selected.' ]. ^ self headingAndAutoselectForLiteral: aLiteral do: [ :label :autoSelect | self + browseMessageList: [ self allCallsOn: aLiteral localTo: aBehavior ] - browseMessageList: [ self allCallsOn: aLiteral from: aBehavior ] name: label, ' local to ', aBehavior name autoSelect: autoSelect ]! Item was changed: ----- Method: SystemNavigation>>browseVariableReferences: (in category 'browse') ----- browseVariableReferences: aClass aClass chooseVarThenDo: + [:aVar | + (aClass allInstVarNames includes: aVar) - [ : aVar | (aClass allInstVarNames includes: aVar) ifTrue: + [self browseAllAccessesTo: aVar from: aClass] + ifFalse: + [((aClass classThatDefinesInstanceVariable: aVar) ifNil: + [(aClass includesBehavior: SharedPool) ifFalse: + [aClass classThatDefinesClassVariable: aVar]]) + ifNotNil: + [:definingClass| + self browseAllCallsOn: aVar localTo: definingClass] + ifNil: + [self browseAllCallsOn: aVar]]]! - [ self - browseAllAccessesTo: aVar - from: aClass ] - ifFalse: [ self browseAllCallsOn: aVar ] ]!

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 June 2022