Packages April 2022

packages@lists.squeakfoundation.org

1 participants
184 discussions

The Trunk: Multilingual-ct.272.mcz
by commits＠source.squeak.org 04 Apr '22

04 Apr '22

Christoph Thiede uploaded a new version of Multilingual to project The Trunk: http://source.squeak.org/trunk/Multilingual-ct.272.mcz ==================== Summary ==================== Name: Multilingual-ct.272 Author: ct Time: 4 April 2022, 8:15:09.254857 pm UUID: a7842107-2da9-804f-a666-54806f1ad376 Ancestors: Multilingual-ct.271 Increases robustness of Unicode class>>#reinitializeData. In some cases, NetNameResolver might access Unicode data during downloading, so do not clear them prior to parsing. Also, the former implementation was not interactively debuggable. =============== Diff against Multilingual-ct.271 =============== Item was changed: ----- Method: Unicode class>>reinitializeData (in category 'class initialization') ----- reinitializeData + self initializeTagConstants. + + self flag: #deduplicate. "Currently, we are downloading and parsing #unicodeData twice." + self initializeCompositionMappings. + self initializeUnicodeData.! - Compositions := GeneralCategory := nil. - self initialize.!

1 0

The Trunk: ReleaseBuilder-ct.231.mcz
by commits＠source.squeak.org 04 Apr '22

04 Apr '22

Christoph Thiede uploaded a new version of ReleaseBuilder to project The Trunk: http://source.squeak.org/trunk/ReleaseBuilder-ct.231.mcz ==================== Summary ==================== Name: ReleaseBuilder-ct.231 Author: ct Time: 4 April 2022, 7:58:04.67046 pm UUID: 8dc82f1b-fdfc-1a42-b23a-c0098c471822 Ancestors: ReleaseBuilder-mt.230 Multilingual-ct.271 (unicode data). Fetch latest Unicode data when building a new image. =============== Diff against ReleaseBuilder-mt.230 =============== Item was changed: ----- Method: ReleaseBuilder class>>prepareSourceCode (in category 'preparing') ----- prepareSourceCode "Update packages. Remove foreign packages. Recompile." CurrentReadOnlySourceFiles cacheDuring: [self updateCorePackages; unloadForeignPackages; checkForDirtyPackages; loadWellKnownPackages; checkForUndeclaredSymbols; checkForNilCategories; + recompileAll; + updateDatabases]! - recompileAll]! Item was added: + ----- Method: ReleaseBuilder class>>updateDatabases (in category 'scripts - support') ----- + updateDatabases + + Unicode reinitializeData.!

1 0

The Trunk: MultilingualTests-ct.41.mcz
by commits＠source.squeak.org 04 Apr '22

04 Apr '22

Christoph Thiede uploaded a new version of MultilingualTests to project The Trunk: http://source.squeak.org/trunk/MultilingualTests-ct.41.mcz ==================== Summary ==================== Name: MultilingualTests-ct.41 Author: ct Time: 4 April 2022, 7:57:59.15946 pm UUID: 6d66c120-b0b2-3b4f-8177-8c4c1c92343d Ancestors: MultilingualTests-mt.40 Complements Multilingual-ct.271 (unicode data). Tests unicode category protocol and fetching/parsing of unicode data. =============== Diff against MultilingualTests-mt.40 =============== Item was changed: SystemOrganization addCategory: #'MultilingualTests-TextConversion'! SystemOrganization addCategory: #'MultilingualTests-Display'! + SystemOrganization addCategory: #'MultilingualTests-Encodings'! Item was added: + TestCase subclass: #UnicodeTest + instanceVariableNames: '' + classVariableNames: '' + poolDictionaries: '' + category: 'MultilingualTests-Encodings'! Item was added: + ----- Method: UnicodeTest class>>resources (in category 'accessing') ----- + resources + + ^ super resources copyWith: UnicodeTestResource! Item was added: + ----- Method: UnicodeTest>>testGeneralCategoryLabel (in category 'tests - character classification') ----- + testGeneralCategoryLabel + + self assert: 'Letter, Lowercase' equals: (Unicode generalCategoryLabelOf: $a asUnicode). + self assert: 'Letter, Uppercase' equals: (Unicode generalCategoryLabelOf: $Z asUnicode). + + self assert: 'Number, Decimal' equals: (Unicode generalCategoryLabelOf: $5 asUnicode). + self assert: 'Symbol, Other' equals: (Unicode generalCategoryLabelOf: 16r1F388). + + self assert: 'n/a' equals: (Unicode generalCategoryLabelOf: Float infinity).! Item was added: + ----- Method: UnicodeTest>>testGeneralCategoryLabelForTag (in category 'tests - character classification') ----- + testGeneralCategoryLabelForTag + + self assert: 'Letter, Lowercase' equals: (Unicode generalCategoryLabelForTag: #Ll).! Item was added: + ----- Method: UnicodeTest>>testGeneralCategoryTag (in category 'tests - character classification') ----- + testGeneralCategoryTag + + self assert: #Ll equals: (Unicode generalCategoryTagOf: $a asUnicode). + self assert: #Lu equals: (Unicode generalCategoryTagOf: $Z asUnicode). + + self assert: #Nd equals: (Unicode generalCategoryTagOf: $5 asUnicode). + self assert: #So equals: (Unicode generalCategoryTagOf: 16r1F388). + + self assert: #Cn equals: (Unicode generalCategoryTagOf: Float infinity).! Item was added: + TestResource subclass: #UnicodeTestResource + instanceVariableNames: '' + classVariableNames: '' + poolDictionaries: '' + category: 'MultilingualTests-Encodings'! Item was added: + ----- Method: UnicodeTestResource>>setUp (in category 'running') ----- + setUp + + super setUp. + + "Test the functionality of this update logic" + Unicode initializeCompositionMappings. + Unicode initializeUnicodeData.!

1 0

The Trunk: Multilingual-ct.271.mcz
by commits＠source.squeak.org 04 Apr '22

04 Apr '22

Christoph Thiede uploaded a new version of Multilingual to project The Trunk: http://source.squeak.org/trunk/Multilingual-ct.271.mcz ==================== Summary ==================== Name: Multilingual-ct.271 Author: ct Time: 4 April 2022, 7:57:21.50746 pm UUID: de94b8ca-494e-d149-b2e0-e7e6d714d25b Ancestors: Multilingual-mt.270 Merges UnicodeData.cs: This changeset repairs the fetching & parsing of unicode category data and adds new interface #generalCategoryTagOf: and protocol for converting between unicode categories and tags.. Usage: Unicode reinitializeData. Unicode generalCategoryLabelOf: 16r1F388. 'Symbol, Other' Still present limitations include: - Duplication between #parseUnicodeDataFrom: and #parseCompositionMappingFrom: - Redundant and scattered declaration of character categories Revision from 3.cs: Minor clean-up in #parseUnicodeDataFrom:, fix default category values. Note that this change will not yet upgrade your Unicode database, which will only happen when building a new image. However, you can run "Unicode reinitializeData" to benefit from the new data right now. The only reason why I did not put this into the postscript is literally to avoid any trouble with proxies or firewalls. :-) Thanks to Levente (ul) and Marcel (mt) for their help! For more information, see: http://lists.squeakfoundation.org/pipermail/squeak-dev/2020-March/208020.ht… =============== Diff against Multilingual-mt.270 =============== Item was changed: EUCCNTextConverter subclass: #CNGBTextConverter instanceVariableNames: '' classVariableNames: '' poolDictionaries: '' category: 'Multilingual-TextConversion'! + + !CNGBTextConverter commentStamp: '<historical>' prior: 0! + Text converter for Simplified Chinese variation of EUC. (Even though the name doesn't look so, it is what it is.)! Item was added: + ----- Method: Unicode class>>allCategoryTags (in category 'character classification') ----- + allCategoryTags + + ^ #(Cn Cc Cf Co Cs Ll Lm Lo Lt Lu Mc Me Mn Nd Nl No Pc Pd Pe Pf Pi Po Ps Sc Sk Sm So Zl Zp Zs)! Item was changed: ----- Method: Unicode class>>blocks320Comment (in category 'comments') ----- blocks320Comment + "http://www.unicode.org/Public/3.2-Update/Blocks-3.2.0.txt" "# Blocks-3.2.0.txt # Correlated with Unicode 3.2 # Start Code..End Code; Block Name 0000..007F; Basic Latin 0080..00FF; Latin-1 Supplement 0100..017F; Latin Extended-A 0180..024F; Latin Extended-B 0250..02AF; IPA Extensions 02B0..02FF; Spacing Modifier Letters 0300..036F; Combining Diacritical Marks 0370..03FF; Greek and Coptic 0400..04FF; Cyrillic 0500..052F; Cyrillic Supplementary 0530..058F; Armenian 0590..05FF; Hebrew 0600..06FF; Arabic 0700..074F; Syriac 0780..07BF; Thaana 0900..097F; Devanagari 0980..09FF; Bengali 0A00..0A7F; Gurmukhi 0A80..0AFF; Gujarati 0B00..0B7F; Oriya 0B80..0BFF; Tamil 0C00..0C7F; Telugu 0C80..0CFF; Kannada 0D00..0D7F; Malayalam 0D80..0DFF; Sinhala 0E00..0E7F; Thai 0E80..0EFF; Lao 0F00..0FFF; Tibetan 1000..109F; Myanmar 10A0..10FF; Georgian 1100..11FF; Hangul Jamo 1200..137F; Ethiopic 13A0..13FF; Cherokee 1400..167F; Unified Canadian Aboriginal Syllabics 1680..169F; Ogham 16A0..16FF; Runic 1700..171F; Tagalog 1720..173F; Hanunoo 1740..175F; Buhid 1760..177F; Tagbanwa 1780..17FF; Khmer 1800..18AF; Mongolian 1E00..1EFF; Latin Extended Additional 1F00..1FFF; Greek Extended 2000..206F; General Punctuation 2070..209F; Superscripts and Subscripts 20A0..20CF; Currency Symbols 20D0..20FF; Combining Diacritical Marks for Symbols 2100..214F; Letterlike Symbols 2150..218F; Number Forms 2190..21FF; Arrows 2200..22FF; Mathematical Operators 2300..23FF; Miscellaneous Technical 2400..243F; Control Pictures 2440..245F; Optical Character Recognition 2460..24FF; Enclosed Alphanumerics 2500..257F; Box Drawing 2580..259F; Block Elements 25A0..25FF; Geometric Shapes 2600..26FF; Miscellaneous Symbols 2700..27BF; Dingbats 27C0..27EF; Miscellaneous Mathematical Symbols-A 27F0..27FF; Supplemental Arrows-A 2800..28FF; Braille Patterns 2900..297F; Supplemental Arrows-B 2980..29FF; Miscellaneous Mathematical Symbols-B 2A00..2AFF; Supplemental Mathematical Operators 2E80..2EFF; CJK Radicals Supplement 2F00..2FDF; Kangxi Radicals 2FF0..2FFF; Ideographic Description Characters 3000..303F; CJK Symbols and Punctuation 3040..309F; Hiragana 30A0..30FF; Katakana 3100..312F; Bopomofo 3130..318F; Hangul Compatibility Jamo 3190..319F; Kanbun 31A0..31BF; Bopomofo Extended 31F0..31FF; Katakana Phonetic Extensions 3200..32FF; Enclosed CJK Letters and Months 3300..33FF; CJK Compatibility 3400..4DBF; CJK Unified Ideographs Extension A 4E00..9FFF; CJK Unified Ideographs A000..A48F; Yi Syllables A490..A4CF; Yi Radicals AC00..D7AF; Hangul Syllables D800..DB7F; High Surrogates DB80..DBFF; High Private Use Surrogates DC00..DFFF; Low Surrogates E000..F8FF; Private Use Area F900..FAFF; CJK Compatibility Ideographs FB00..FB4F; Alphabetic Presentation Forms FB50..FDFF; Arabic Presentation Forms-A FE00..FE0F; Variation Selectors FE20..FE2F; Combining Half Marks FE30..FE4F; CJK Compatibility Forms FE50..FE6F; Small Form Variants FE70..FEFF; Arabic Presentation Forms-B FF00..FFEF; Halfwidth and Fullwidth Forms FFF0..FFFF; Specials 10300..1032F; Old Italic 10330..1034F; Gothic 10400..1044F; Deseret 1D000..1D0FF; Byzantine Musical Symbols 1D100..1D1FF; Musical Symbols 1D400..1D7FF; Mathematical Alphanumeric Symbols 20000..2A6DF; CJK Unified Ideographs Extension B 2F800..2FA1F; CJK Compatibility Ideographs Supplement E0000..E007F; Tags F0000..FFFFF; Supplementary Private Use Area-A 100000..10FFFF; Supplementary Private Use Area-B "! Item was added: + ----- Method: Unicode class>>generalCategoryIndexFromTag: (in category 'character classification') ----- + generalCategoryIndexFromTag: tag + + ^ (self allCategoryTags indexOf: tag) - 1! Item was added: + ----- Method: Unicode class>>generalCategoryLabelForTag: (in category 'character classification') ----- + generalCategoryLabelForTag: tag + + ^ self generalCategoryLabels at: (self generalCategoryIndexFromTag: tag) + 1! Item was added: + ----- Method: Unicode class>>generalCategoryTagOf: (in category 'character classification') ----- + generalCategoryTagOf: aCharacterCode + + ^ (self generalCategoryOf: aCharacterCode) + ifNotNil: [:code | self allCategoryTags at: code + 1 ifAbsent: [#Cn]] + ifNil: [#Cn]! Item was changed: ----- Method: Unicode class>>initialize (in category 'class initialization') ----- initialize " Unicode initialize " self initializeTagConstants. + + self flag: #deduplicate. "Currently, we are downloading and parsing #unicodeData twice." + Compositions isEmptyOrNil ifTrue: [self initializeCompositionMappings]. + GeneralCategory isEmptyOrNil ifTrue: [self initializeUnicodeData].! - Compositions isEmptyOrNil ifTrue:[self initializeCompositionMappings].! Item was added: + ----- Method: Unicode class>>initializeUnicodeData (in category 'unicode data') ----- + initializeUnicodeData + "self initializeUnicodeData" + + self parseUnicodeDataFrom: self unicodeData readStream.! Item was changed: ----- Method: Unicode class>>parseUnicodeDataFrom: (in category 'unicode data') ----- parseUnicodeDataFrom: stream + "self initializeUnicodeData." - " - self halt. - self parseUnicodeDataFile - " + | line fieldEnd point fieldStart toNumber generalCategory decimalProperty tag | - | line fieldEnd point fieldStart toNumber generalCategory decimalProperty | toNumber := [:quad | ('16r', quad) asNumber]. + GeneralCategory := SparseLargeTable new: 16rE0080 chunkSize: 1024 arrayClass: Array base: 1 defaultValue: Cn. - GeneralCategory := SparseLargeTable new: 16rE0080 chunkSize: 1024 arrayClass: Array base: 1 defaultValue: 'Cn'. DecimalProperty := SparseLargeTable new: 16rE0080 chunkSize: 32 arrayClass: Array base: 1 defaultValue: -1. + GeneralCategory atAll: (16r3400 to: 16r4DB5) +1 put: Lo. + GeneralCategory atAll: (16r4E00 to: 16r9FA5) + 1 put: Lo. + GeneralCategory atAll: (16rAC00 to: 16rD7FF) + 1 put: Lo. - 16r3400 to: 16r4DB5 do: [:i | GeneralCategory at: i+1 put: 'Lo']. - 16r4E00 to: 16r9FA5 do: [:i | GeneralCategory at: i+1 put: 'Lo']. - 16rAC00 to: 16rD7FF do: [:i | GeneralCategory at: i+1 put: 'Lo']. [(line := stream nextLine) size > 0] whileTrue: [ fieldEnd := line indexOf: $; startingAt: 1. point := toNumber value: (line copyFrom: 1 to: fieldEnd - 1). point > 16rE007F ifTrue: [ GeneralCategory zapDefaultOnlyEntries. DecimalProperty zapDefaultOnlyEntries. ^ self]. 2 to: 3 do: [:i | fieldStart := fieldEnd + 1. fieldEnd := line indexOf: $; startingAt: fieldStart. ]. + tag := line copyFrom: fieldStart to: fieldEnd - 1. + generalCategory := self generalCategoryIndexFromTag: tag. - generalCategory := line copyFrom: fieldStart to: fieldEnd - 1. GeneralCategory at: point+1 put: generalCategory. + generalCategory = Nd ifTrue: [ - generalCategory = 'Nd' ifTrue: [ 4 to: 7 do: [:i | fieldStart := fieldEnd + 1. fieldEnd := line indexOf: $; startingAt: fieldStart. ]. decimalProperty := line copyFrom: fieldStart to: fieldEnd - 1. DecimalProperty at: point+1 put: decimalProperty asNumber. ]. ]. GeneralCategory zapDefaultOnlyEntries. + DecimalProperty zapDefaultOnlyEntries.! - DecimalProperty zapDefaultOnlyEntries. - ! Item was added: + ----- Method: Unicode class>>reinitializeData (in category 'class initialization') ----- + reinitializeData + + Compositions := GeneralCategory := nil. + self initialize.!

1 0

The Trunk: Collections-ct.1005.mcz
by commits＠source.squeak.org 02 Apr '22

02 Apr '22

Christoph Thiede uploaded a new version of Collections to project The Trunk: http://source.squeak.org/trunk/Collections-ct.1005.mcz ==================== Summary ==================== Name: Collections-ct.1005 Author: ct Time: 2 April 2022, 8:27:14.574869 pm UUID: ff06a248-ec0b-7947-982c-accabd65f28e Ancestors: Collections-ct.1004 Recategorizes SparseLargeTable>>#sparseElementsAndIndicesDo:. =============== Diff against Collections-ct.1004 =============== Item was changed: + ----- Method: SparseLargeTable>>sparseElementsAndIndicesDo: (in category 'enumerating') ----- - ----- Method: SparseLargeTable>>sparseElementsAndIndicesDo: (in category 'accessing') ----- sparseElementsAndIndicesDo: binaryBlock "Evaluate binaryBlock for each element and index in the receiver that has a non-default value." 1 to: self basicSize do: [:chunkIndex | (self basicAt: chunkIndex) ifNotNil: [:chunk | chunk withIndexDo: [:element :innerIndex | element ~= defaultValue ifTrue: [ binaryBlock value: element value: innerIndex + base - 1 + (chunkIndex - 1 * chunkSize)]]]].!

1 0

The Trunk: ST80-ct.264.mcz
by commits＠source.squeak.org 02 Apr '22

02 Apr '22

Christoph Thiede uploaded a new version of ST80 to project The Trunk: http://source.squeak.org/trunk/ST80-ct.264.mcz ==================== Summary ==================== Name: ST80-ct.264 Author: ct Time: 3 January 2021, 8:34:46.789366 pm UUID: 69dbd2d8-5dbf-f043-8ff4-893f45185436 Ancestors: ST80-mt.262 Proposal: Add inspect item to ST80 window blue-button menu. =============== Diff against ST80-mt.262 =============== Item was changed: ----- Method: StandardSystemController class>>initialize (in category 'class initialization') ----- initialize "StandardSystemController initialize" ScheduledBlueButtonMenu := SelectionMenu labels: 'edit label choose color... two-tone/full color move frame full screen collapse + inspect controller close' lines: #(3 7) + selections: #(label chooseColor toggleTwoTone move reframe fullScreen collapse inspect close). - selections: #(label chooseColor toggleTwoTone move reframe fullScreen collapse close). VBorderCursor := Cursor extent: 16@16 fromArray: #( 2r1010000000000000 2r1010000000000000 2r1010000000000000 2r1010000000000000 2r1010000000000000 2r1010010000100000 2r1010110000110000 2r1011111111111000 2r1010110000110000 2r1010010000100000 2r1010000000000000 2r1010000000000000 2r1010000000000000 2r1010000000000000 2r1010000000000000 2r1010000000000000) offset: 0@0. HBorderCursor := Cursor extent: 16@16 fromArray: #( 2r1111111111111111 2r0000000000000000 2r1111111111111111 2r0000000100000000 2r0000001110000000 2r0000011111000000 2r0000000100000000 2r0000000100000000 2r0000000100000000 2r0000000100000000 2r0000011111000000 2r0000001110000000 2r0000000100000000 2r0000000000000000 2r0000000000000000 2r0000000000000000) offset: 0@0.!

1 0

The Trunk: ST80-ct.283.mcz
by commits＠source.squeak.org 02 Apr '22

02 Apr '22

Christoph Thiede uploaded a new version of ST80 to project The Trunk: http://source.squeak.org/trunk/ST80-ct.283.mcz ==================== Summary ==================== Name: ST80-ct.283 Author: ct Time: 2 April 2022, 7:59:15.321869 pm UUID: 83fe0dc0-e86e-c64a-83ed-7636eb866f72 Ancestors: ST80-ul.282, ST80-ct.264 Merges ST80-ct.264: Add inspect item to ST80 window blue-button menu. =============== Diff against ST80-ul.282 =============== Item was changed: ----- Method: StandardSystemController>>blueButtonActivity (in category 'control defaults') ----- blueButtonActivity | menu | menu := SelectionMenu labels: 'edit label choose color... two-tone/full color + inspect move frame full screen collapse close' + lines: #(4 8) + selections: #(label chooseColor toggleTwoTone inspect move reframe fullScreen collapse close). - lines: #(3 7) - selections: #(label chooseColor toggleTwoTone move reframe fullScreen collapse close). menu invokeOn: self.!

1 0

The Trunk: Collections-ct.1004.mcz
by commits＠source.squeak.org 02 Apr '22

02 Apr '22

Christoph Thiede uploaded a new version of Collections to project The Trunk: http://source.squeak.org/trunk/Collections-ct.1004.mcz ==================== Summary ==================== Name: Collections-ct.1004 Author: ct Time: 2 April 2022, 7:37:33.198869 pm UUID: 9ab359d2-35da-d34b-9844-16a0e4c09abf Ancestors: Collections-ct.1003 Makes it possible to cancel from an "add URL..." dialog. Gives a little bit more space in the dialog to support multi-line code:// URLs. =============== Diff against Collections-ct.1003 =============== Item was changed: ----- Method: TextURL>>analyze: (in category 'initialize-release') ----- analyze: aString + | list answer | - | list | list := super analyze: aString. + answer := Project uiManager multiLineRequest: 'URL to open' translated centerAt: Sensor cursorPoint initialAnswer: (list at: 1) answerHeight: 200. + answer isEmptyOrNil ifTrue: [^ nil]. + url := answer. - (Project uiManager request: 'URL to open' translated initialAnswer: (list at: 1)) - in: [:answer | answer ifEmpty: [url := list at: 1] ifNotEmpty: [url := answer]]. ^ list at: 2!

1 0

The Trunk: SystemReporter-ct.61.mcz
by commits＠source.squeak.org 02 Apr '22

02 Apr '22

Christoph Thiede uploaded a new version of SystemReporter to project The Trunk: http://source.squeak.org/trunk/SystemReporter-ct.61.mcz ==================== Summary ==================== Name: SystemReporter-ct.61 Author: ct Time: 2 April 2022, 6:47:45.377896 pm UUID: 3f75ee7c-fb80-c24a-a21b-dd095ab761b2 Ancestors: SystemReporter-mt.60 Fixes slip in report of image packages for treated versions. =============== Diff against SystemReporter-mt.60 =============== Item was changed: ----- Method: SystemReporter>>reportImagePackages: (in category 'reporting') ----- reportImagePackages: aStream | organizer trunk treated inbox release releaseRepo attribute others | organizer := PackageOrganizer default. self header: 'System Categories with Unknown Package' on: aStream. SystemOrganization categories select: [:category | (organizer packageOfSystemCategory: category ifNone: []) isNil] thenDo: [:category | aStream nextPutAll: category; cr]. aStream cr. self header: 'Packages with Only Cache Repository' on: aStream. organizer packages select: [:package | | repos | repos := package mcPackage workingCopy repositoryGroup repositories. repos size = 1 and: [repos first == MCRepository packageCache]] thenDo: [:package | aStream nextPutAll: package mcPackage workingCopy description; cr]. aStream cr. self header: 'Official Packages' on: aStream. others := OrderedCollection new. trunk := MCRepository trunk allVersionNames. inbox := MCRepository inbox allVersionNames. treated := MCRepository treated allVersionNames. releaseRepo := [[ReleaseBuilder releaseRepository] valueSupplyingAnswer: {'*'. true}] on: ReleaseBuilderFailed do: [:ex | nil]. release := releaseRepo ifNotNil: [:repo | repo allVersionNames] ifNil: [#()]. (organizer packages sorted: [:a :b | a packageName <= b packageName]) collect: [:package | package mcPackage workingCopy] thenDo: [:workingCopy | | version repo | version := workingCopy ancestry ancestors ifNotEmpty: [:a | a first]. version ifNotNil: [version := version name]. attribute := TextEmphasis normal. (release includes: version) ifTrue: [repo := releaseRepo] ifFalse: [(trunk includes: version) ifTrue: [repo := MCRepository trunk] ifFalse: [(inbox includes: version) ifTrue: [repo := MCRepository inbox. attribute := TextEmphasis bold] ifFalse: [(treated includes: version) + ifTrue: [repo := MCRepository treated. attribute := TextColor gray] - ifTrue: [repo := treated. attribute := TextColor gray] ifFalse: [others add: workingCopy]]]. repo ifNotNil: [ "Only official packages here." aStream withAttribute: attribute do: [ aStream nextPutAll: workingCopy description; nextPutAll: ' --- '; nextPutAll: repo description; cr]]]]. aStream cr. self header: 'Other Packages' on: aStream. others select: [:workingCopy | workingCopy repositoryGroup repositories size > 1] thenDo: [:workingCopy | aStream nextPutAll: workingCopy description; nextPutAll: ' --- '; nextPutAll: workingCopy repositoryGroup repositories second description; cr] !

1 0

The Trunk: PreferenceBrowser-ct.141.mcz
by commits＠source.squeak.org 02 Apr '22

02 Apr '22

Christoph Thiede uploaded a new version of PreferenceBrowser to project The Trunk: http://source.squeak.org/trunk/PreferenceBrowser-ct.141.mcz ==================== Summary ==================== Name: PreferenceBrowser-ct.141 Author: ct Time: 2 April 2022, 6:38:32.234896 pm UUID: 7edb9fb0-df4d-5748-9edc-70fb650d163a Ancestors: PreferenceBrowser-mt.140 Fixes keyboard shortcuts cmd + c/C in preference browser. =============== Diff against PreferenceBrowser-mt.140 =============== Item was changed: ----- Method: PreferenceBrowserMorph>>keyPressedOn:event: (in category 'event handling') ----- keyPressedOn: aPreferenceView event: anEvent anEvent commandKeyPressed ifFalse: [ anEvent keyValue caseOf: { [27] -> [aPreferenceView offerPreferenceNameMenu: self model]. [30] -> [self upKeyPressed: anEvent]. [31] -> [self downKeyPressed: anEvent]. [1] -> [self homeKeyPressed: anEvent]. [4] -> [self endKeyPressed: anEvent]. [11] -> [self pageUpKeyPressed: anEvent]. [12] -> [self pageDownKeyPressed: anEvent] } otherwise: [self basicKeyPressed: anEvent]. ^ self]. anEvent keyCharacter caseOf: { [$b] -> [self model findCategoryFromPreference: aPreferenceView preference]. + [$c] -> [aPreferenceView preference copyName]. + [$C] -> [aPreferenceView preference copyCode]. - [$c] -> [aPreferenceView copyName]. - [$C] -> [aPreferenceView copyCode]. [$i] -> [aPreferenceView preference inspect]. [$m] -> [aPreferenceView browse]. [$n] -> [aPreferenceView browseSenders]} otherwise: [].!

1 0

Jump to page:

2024

2023

2022

2021

2020

2019

2018

2017

2016

2015

2014

2013

2012

2011

2010

2009

2008

2007

2006

2005

Packages April 2022