Packages February 2017

packages@lists.squeakfoundation.org

1 participants
69 discussions

The Trunk: Collections-ul.739.mcz
by commits＠source.squeak.org 28 Feb '17

28 Feb '17

Levente Uzonyi uploaded a new version of Collections to project The Trunk: http://source.squeak.org/trunk/Collections-ul.739.mcz ==================== Summary ==================== Name: Collections-ul.739 Author: ul Time: 28 February 2017, 7:34:55.711173 pm UUID: 66c6ecf2-71bf-4e7d-80e6-5ace72fa19ba Ancestors: Collections-ul.738 - use micro optimization for #~~ and #notNil in common collection methods - reuse one of the OrderedCollections in RunArray >> #scanFrom: - two other minor tweaks in KeyedSet - removed accidentally commited Set >> #includes2: =============== Diff against Collections-ul.738 =============== Item was changed: ----- Method: Dictionary>>includesKey: (in category 'testing') ----- includesKey: key "Answer whether the receiver has a key equal to the argument, key." + (array at: (self scanFor: key)) ifNil: [ ^false ] ifNotNil: [ ^true ]! - ^(array at: (self scanFor: key)) notNil! Item was changed: ----- Method: KeyedSet>>includesKey: (in category 'testing') ----- includesKey: key + (array at: (self scanFor: key)) ifNil: [ ^false ] ifNotNil: [ ^true ]! - ^ (array at: (self scanFor: key)) notNil! Item was changed: ----- Method: KeyedSet>>remove:ifAbsent: (in category 'removing') ----- remove: oldObject ifAbsent: aBlock | index | index := self scanFor: (keyBlock value: oldObject). + (array at: index) ifNil: [ ^ aBlock value ]. - (array at: index) == nil ifTrue: [ ^ aBlock value ]. array at: index put: nil. tally := tally - 1. self fixCollisionsFrom: index. ^ oldObject! Item was changed: ----- Method: KeyedSet>>removeKey:ifAbsent: (in category 'removing') ----- removeKey: key ifAbsent: aBlock | index obj | index := self scanFor: key. + obj := (array at: index) ifNil: [ ^ aBlock value ]. - (obj := array at: index) == nil ifTrue: [ ^ aBlock value ]. array at: index put: nil. tally := tally - 1. self fixCollisionsFrom: index. ^ obj enclosedSetElement! Item was changed: ----- Method: RunArray class>>scanFrom: (in category 'instance creation') ----- scanFrom: strm "Read the style section of a fileOut or sources file. nextChunk has already been done. We need to return a RunArray of TextAttributes of various kinds. These are written by the implementors of writeScanOn:" | runs values attrList char | (strm peekFor: $( ) ifFalse: [^ nil]. runs := OrderedCollection new. [strm skipSeparators. strm peekFor: $)] whileFalse: [runs add: (Number readFrom: strm)]. values := OrderedCollection new. "Value array" attrList := OrderedCollection new. "Attributes list" [(char := strm peek) == nil] whileFalse: [ (char isSeparator or: [ char = $!! ]) ifTrue: [ "n.b. Skip $!! to meet expectations of RunArrayTest>>testScanFromTrailer. The example string used in that test does not seem to match the implemention of the fileOut serialization, but the test may be right and the implementation wrong. In any case, relax the parsing here to meet the test expectations, and to be more consistent with the original version of this method that assumed any unexpected charater to be a separator. -dtl Jan 2014" strm next "space, cr do nothing"] ifFalse: [char == $, ifTrue: [strm next. values add: attrList asArray. + attrList reset ] - attrList := OrderedCollection new] ifFalse: [attrList add: (TextAttribute newFrom: strm)] ] ]. values add: attrList asArray. ^ self runs: runs asArray values: (values copyFrom: 1 to: runs size) asArray " RunArray scanFrom: (ReadStream on: '(14 50 312)f1,f1b,f1LInteger +;i') "! Item was removed: - ----- Method: Set>>includes2: (in category 'testing') ----- - includes2: anObject - - ^((array at: (self scanFor: anObject)) == nil) not! Item was changed: ----- Method: WeakIdentityDictionary>>includesKey: (in category 'testing') ----- includesKey: key "Answer whether the receiver has a key equal to the argument, key." + (array at: (self scanFor: key)) + ifNil: [ + "it just has been reclaimed" + ^false] + ifNotNil: [ :element | + element == vacuum + ifTrue: [ ^false ] + ifFalse: [ ^true ] ]! - ^(array at: (self scanFor: key)) - ifNil: - ["it just has been reclaimed" - false] - ifNotNil: [:element | element ~~ vacuum]! Item was changed: ----- Method: WeakSet>>includes: (in category 'testing') ----- includes: anObject (array at: (self scanFor: anObject)) ifNil: [ ^false ] + ifNotNil: [ :object | + object == flag + ifTrue: [ ^false ] + ifFalse: [ ^true ] ]! - ifNotNil: [ :object | ^object ~~ flag ]!

1 0

The Trunk: CollectionsTests-ul.277.mcz
by commits＠source.squeak.org 28 Feb '17

28 Feb '17

Levente Uzonyi uploaded a new version of CollectionsTests to project The Trunk: http://source.squeak.org/trunk/CollectionsTests-ul.277.mcz ==================== Summary ==================== Name: CollectionsTests-ul.277 Author: ul Time: 28 February 2017, 7:36:37.713448 pm UUID: 0236a67d-af75-4816-8d5a-0b79d813495e Ancestors: CollectionsTests-ul.276 - fixed the second catch of the new #& and #| type checks =============== Diff against CollectionsTests-ul.276 =============== Item was changed: ----- Method: LinkedListTest>>test0FixtureCopyPartOfSequenceableTest (in category 'tests - fixture') ----- test0FixtureCopyPartOfSequenceableTest self collectionWithoutEqualElements. self collectionWithoutEqualElements do: [ :each | self assert: (self collectionWithoutEqualElements occurrencesOf: each) = 1 ]. self indexInForCollectionWithoutDuplicates. self assert: + (self indexInForCollectionWithoutDuplicates > 0 and: [ self indexInForCollectionWithoutDuplicates + < self collectionWithoutEqualElements size ]). - (self indexInForCollectionWithoutDuplicates > 0 & self indexInForCollectionWithoutDuplicates) - < self collectionWithoutEqualElements size. self empty. self assert: self empty isEmpty!

1 0

The Trunk: Tools-cmm.744.mcz
by commits＠source.squeak.org 27 Feb '17

27 Feb '17

Chris Muller uploaded a new version of Tools to project The Trunk: http://source.squeak.org/trunk/Tools-cmm.744.mcz ==================== Summary ==================== Name: Tools-cmm.744 Author: cmm Time: 27 February 2017, 2:57:13.398974 pm UUID: 494d1583-1885-43b9-93ed-9aff5b4c3b1e Ancestors: Tools-ul.743 Allow unfiltering of the message list even when no method is selected, via the message category toggle key (Command+Y). =============== Diff against Tools-ul.743 =============== Item was changed: ----- Method: Browser>>showHomeCategory (in category 'message category functions') ----- showHomeCategory + "Select the category of the currently-selected method. If it is already selected, or if no method is selected, deselect it to unfilter the message list." - "Show the home category of the selected method. This is only really useful if one is in a tool that supports the showing of categories. Thus, it's good in browsers and hierarchy browsers but not in message-list browsers" - - | aSelector | self okToChange ifTrue: + [ | aSelector | ((aSelector := self selectedMessageName) notNil or: [ selectedMessageCategoryName notNil ]) ifTrue: + [ aSelector + ifNil: [ self selectMessageCategoryNamed: nil ] + ifNotNil: [ self toggleCategorySelectionForCurrentMethod ]. + self selectedMessageName: aSelector ] ]! - [(aSelector := self selectedMessageName) ifNotNil: - [self toggleCategorySelectionForCurrentMethod. - self selectedMessageName: aSelector]]! Item was changed: ----- Method: CodeHolder>>messageListKey:from: (in category 'message list menu') ----- messageListKey: aChar from: view "Respond to a Command key. I am a model with a code pane, and I also have a listView that has a list of methods. The view knows how to get the list and selection." | sel class | aChar == $D ifTrue: [^ self toggleDiffing]. sel := self selectedMessageName. aChar == $m ifTrue: "These next two put up a type in if no message selected" [^ self useSelector: sel orGetSelectorAndSendQuery: #browseAllImplementorsOf: to: self ]. aChar == $n ifTrue: [^ self useSelector: sel orGetSelectorAndSendQuery: #browseAllCallsOn: to: self ]. aChar == $d ifTrue: [^ self removeMessageFromBrowser]. "The following require a class selection" (class := self selectedClassOrMetaClass) ifNil: [^ self arrowKey: aChar from: view]. aChar == $b ifTrue: [^ ToolSet browse: class selector: sel]. aChar == $N ifTrue: [^ self browseClassRefs]. aChar == $i ifTrue: [^ self methodHierarchy]. aChar == $h ifTrue: [^ self classHierarchy]. aChar == $p ifTrue: [^ self browseFullProtocol]. aChar == $r ifTrue: [^ self browseVariableReferences]. aChar == $a ifTrue: [^ self browseVariableAssignments]. + (aChar == $Y and: [self canShowMultipleMessageCategories]) + ifTrue: [^ self showHomeCategory]. "The following require a method selection" sel ifNotNil: [aChar == $o ifTrue: [^ self fileOutMessage]. aChar == $c ifTrue: [^ self copySelector]. aChar == $v ifTrue: [^ self browseVersions]. aChar == $x ifTrue: [^ self removeMessage]. + aChar == $C ifTrue: [ self copyReference ]]. - aChar == $C ifTrue: [ self copyReference ]. - (aChar == $Y and: [self canShowMultipleMessageCategories]) - ifTrue: [^ self showHomeCategory]]. ^ self arrowKey: aChar from: view!

1 0

The Trunk: EToys-ul.280.mcz
by commits＠source.squeak.org 27 Feb '17

27 Feb '17

Levente Uzonyi uploaded a new version of EToys to project The Trunk: http://source.squeak.org/trunk/EToys-ul.280.mcz ==================== Summary ==================== Name: EToys-ul.280 Author: ul Time: 27 February 2017, 1:34:44.128483 pm UUID: 29c41958-b162-47d6-8457-704818377065 Ancestors: EToys-ul.279 KOI8RTextConverter takes into account the installed line end convention when it's encoding characters. This fixes the failing #testLineEndConversion. The converter seems to be a ByteTextConverter, but since I wouldn't be able to tell if it works or not if I were to change it, I decided to leave it as it is. =============== Diff against EToys-ul.279 =============== Item was changed: ----- Method: KOI8RTextConverter>>nextPut:toStream: (in category 'as yet unclassified') ----- nextPut: aCharacter toStream: aStream + | charCode | + aStream isBinary ifTrue: [ ^aCharacter storeBinaryOn: aStream ]. + (charCode := aCharacter charCode) < 256 + ifFalse: [ aStream basicNextPut: ((Character value: (self fromSqueak: aCharacter) charCode)) ] + ifTrue: [ + (latin1Encodings at: charCode + 1) + ifNil: [ aStream basicNextPut: aCharacter ] + ifNotNil: [ :encodedString | aStream basicNextPutAll: encodedString ] ]. + ^aCharacter - aStream isBinary ifTrue: [^aCharacter storeBinaryOn: aStream]. - aCharacter charCode < 128 ifTrue: [ - aStream basicNextPut: aCharacter. - ] ifFalse: [ - aStream basicNextPut: ((Character value: (self fromSqueak: aCharacter) charCode)). - ]. !

1 0

The Trunk: Compiler-ul.330.mcz
by commits＠source.squeak.org 27 Feb '17

27 Feb '17

Levente Uzonyi uploaded a new version of Compiler to project The Trunk: http://source.squeak.org/trunk/Compiler-ul.330.mcz ==================== Summary ==================== Name: Compiler-ul.330 Author: ul Time: 27 February 2017, 2:43:16.813851 am UUID: 8312df2d-c576-43eb-b847-bfcc53fb4c82 Ancestors: Compiler-ul.329 - fixed the first catch of the new #& and #| type checks =============== Diff against Compiler-ul.329 =============== Item was changed: ----- Method: Parser>>removeEmptyTempDeclarationsFrom: (in category 'error correction') ----- removeEmptyTempDeclarationsFrom: methodNode | sourceCode madeChanges tempsMarkHolder | sourceCode := cue requestor text asString. tempsMarkHolder := self collectTemporaryDeclarationsFrom: methodNode. madeChanges := false. tempsMarkHolder do: [ :currentBlock | | tempsMarkChar0 tempsMarkChar1 tempsMarkChar2 end start | tempsMarkChar0 := (sourceCode at: currentBlock tempsMark). tempsMarkChar1 := (sourceCode at: currentBlock tempsMark - 1). tempsMarkChar2 := (sourceCode at: currentBlock tempsMark - 2). + (tempsMarkChar0 == $| and: [ tempsMarkChar1 == $| ]) - tempsMarkChar0 = $| & tempsMarkChar1 = $| ifTrue: [ end := currentBlock tempsMark. start := end - 1]. + (tempsMarkChar0 == $| and: [ tempsMarkChar1 == $ and: [ tempsMarkChar2 == $| ] ]) - tempsMarkChar0 = $| & tempsMarkChar1 = $ & tempsMarkChar2 = $| ifTrue: [ end := currentBlock tempsMark. start := end - 2]. + (start notNil and: [ end notNil ]) ifTrue: [ - start notNil & end notNil ifTrue: [ | lineStart lineEnd | lineStart := 1 + (sourceCode lastIndexOf: Character cr startingAt: start - 1). lineEnd := sourceCode indexOf: Character cr startingAt: end + 1 ifAbsent: [ sourceCode size ]. ((sourceCode indexOfAnyOf: CharacterSet nonSeparators startingAt: lineStart) >= start and: [ (sourceCode indexOfAnyOf: CharacterSet nonSeparators startingAt: end + 1) > lineEnd ]) ifTrue: [ start := lineStart. end := lineEnd ]. cue requestor correctFrom: start to: end with: ''. madeChanges := true. currentBlock tempsMark: nil ] ]. madeChanges ifTrue: [ReparseAfterSourceEditing signal]!

1 0

The Trunk: Tools-ul.743.mcz
by commits＠source.squeak.org 27 Feb '17

27 Feb '17

Levente Uzonyi uploaded a new version of Tools to project The Trunk: http://source.squeak.org/trunk/Tools-ul.743.mcz ==================== Summary ==================== Name: Tools-ul.743 Author: ul Time: 27 February 2017, 2:27:46.112006 am UUID: 78530c39-9b21-472a-9729-b5809712f28d Ancestors: Tools-ul.742 - omit ifAbsent from #index* sends when the default value, 0 would used =============== Diff against Tools-ul.742 =============== Item was changed: ----- Method: Browser>>messageCategoryListIndex (in category 'message category list') ----- messageCategoryListIndex "Answer the index of the selected message category." + ^self messageCategoryList indexOf: selectedMessageCategoryName! - ^self messageCategoryList indexOf: selectedMessageCategoryName ifAbsent: [0].! Item was changed: ----- Method: FileList>>fileNameFromFormattedItem: (in category 'private') ----- fileNameFromFormattedItem: item "Extract fileName and folderString from a formatted fileList item string" | from to | self sortingByName ifTrue: [ + from := item lastIndexOf: $(. + to := item lastIndexOf: $)] - from := item lastIndexOf: $( ifAbsent: [0]. - to := item lastIndexOf: $) ifAbsent: [0]] ifFalse: [ + from := item indexOf: $(. + to := item indexOf: $)]. - from := item indexOf: $( ifAbsent: [0]. - to := item indexOf: $) ifAbsent: [0]]. ^ (from * to = 0 ifTrue: [item] ifFalse: [item copyReplaceFrom: from to: to with: '']) withBlanksTrimmed! Item was changed: ----- Method: InspectorBrowser>>step (in category 'as yet unclassified') ----- step | list fieldString msg | (list := super fieldList) = fieldList ifFalse: [fieldString := selectionIndex > 0 ifTrue: [fieldList at: selectionIndex] ifFalse: [nil]. fieldList := list. + selectionIndex := fieldList indexOf: fieldString. - selectionIndex := fieldList indexOf: fieldString ifAbsent: [0]. self changed: #fieldList. self changed: #selectionIndex]. list := msgList. msgList := nil. "force recomputation" list = self msgList ifFalse: [msg := msgListIndex > 0 ifTrue: [list at: msgListIndex] ifFalse: [nil]. + msgListIndex := msgList indexOf: msg. - msgListIndex := msgList indexOf: msg ifAbsent: [0]. self changed: #msgList. self changed: #msgListIndex]. super step! Item was changed: ----- Method: PackagePaneBrowser>>selectCategoryForClass: (in category 'system category list') ----- selectCategoryForClass: theClass "Set the package and category lists to display the given class." | cat catName | cat := theClass category. self packageListIndex: (self packageList indexOf: (cat copyUpTo: $-)). + catName := (cat copyFrom: ((cat indexOf: $-) + 1) to: cat size). - catName := (cat copyFrom: ((cat indexOf: $- ifAbsent: [0]) + 1) to: cat size). self selectSystemCategory: catName.! Item was changed: ----- Method: ProcessBrowser>>updateProcessList (in category 'process list') ----- updateProcessList | oldSelectedProcess newIndex now | now := Time millisecondClockValue. now - lastUpdate < 500 ifTrue: [^ self]. "Don't update too fast" lastUpdate := now. oldSelectedProcess := selectedProcess. processList := selectedProcess := selectedSelector := nil. Smalltalk garbageCollectMost. "lose defunct processes" processList := Process allSubInstances reject: [:each | each isTerminated]. processList := processList sorted: [:a :b | a priority >= b priority]. processList := WeakArray withAll: processList. + newIndex := processList indexOf: oldSelectedProcess. - newIndex := processList - indexOf: oldSelectedProcess - ifAbsent: [0]. self changed: #processNameList. self processListIndex: newIndex!

1 0

The Trunk: ToolBuilder-Morphic-ul.192.mcz
by commits＠source.squeak.org 27 Feb '17

27 Feb '17

Levente Uzonyi uploaded a new version of ToolBuilder-Morphic to project The Trunk: http://source.squeak.org/trunk/ToolBuilder-Morphic-ul.192.mcz ==================== Summary ==================== Name: ToolBuilder-Morphic-ul.192 Author: ul Time: 27 February 2017, 2:26:53.959982 am UUID: 6f29aa99-9057-48b7-a897-76d292974361 Ancestors: ToolBuilder-Morphic-cbc.191 - omit ifAbsent from #index* sends when the default value, 0 would used =============== Diff against ToolBuilder-Morphic-cbc.191 =============== Item was changed: ----- Method: ListChooser>>chooseIndexFrom:title: (in category 'initialize-release') ----- chooseIndexFrom: labelList title: aString | choice | choice := self chooseItemFrom: labelList title: aString addAllowed: false. + ^ self items indexOf: choice! - ^ self items indexOf: choice ifAbsent: 0! Item was changed: ----- Method: ListChooser>>chooseIndexFrom:title:addAllowed: (in category 'initialize-release') ----- chooseIndexFrom: labelList title: aString addAllowed: aBoolean | choice | choice := self chooseItemFrom: labelList title: aString addAllowed: false. self addAllowed: aBoolean. + ^ self items indexOf: choice! - ^ self items indexOf: choice ifAbsent: 0!

1 0

The Trunk: System-ul.926.mcz
by commits＠source.squeak.org 27 Feb '17

27 Feb '17

Levente Uzonyi uploaded a new version of System to project The Trunk: http://source.squeak.org/trunk/System-ul.926.mcz ==================== Summary ==================== Name: System-ul.926 Author: ul Time: 27 February 2017, 2:25:48.914916 am UUID: e86b75db-f12d-4172-b640-4574322ea818 Ancestors: System-dtl.925 - omit ifAbsent from #index* sends when the default value, 0 would used =============== Diff against System-dtl.925 =============== Item was changed: ----- Method: SmalltalkImage>>renamedClass:from:to: (in category 'classes and traits') ----- renamedClass: aClass from: oldName to: newName "Inform Smalltalk that aClass has been renamed" (Array with: StartUpList with: ShutDownList) do:[:list | | index | + index := list indexOf: oldName. - index := list indexOf: oldName ifAbsent: [0]. index > 0 ifTrue: [list at: index put: newName]. ]. !

1 0

The Trunk: ST80-ul.223.mcz
by commits＠source.squeak.org 27 Feb '17

27 Feb '17

Levente Uzonyi uploaded a new version of ST80 to project The Trunk: http://source.squeak.org/trunk/ST80-ul.223.mcz ==================== Summary ==================== Name: ST80-ul.223 Author: ul Time: 27 February 2017, 2:24:48.575741 am UUID: 28571fe6-c3e1-40e0-9df6-9284829893ba Ancestors: ST80-eem.222 - omit ifAbsent from #index* sends when the default value, 0 would used =============== Diff against ST80-eem.222 =============== Item was changed: ----- Method: ParagraphEditor>>cursorHome: (in category 'nonediting/nontyping keys') ----- cursorHome: characterStream "Private - Move cursor from position in current line to beginning of current line. If control key is pressed put cursor at beginning of text" | string | string := paragraph text string. self moveCursor: [ :position | Preferences wordStyleCursorMovement ifTrue:[ (paragraph lines at:(paragraph lineIndexOfCharacterIndex: position)) first] ifFalse:[ (string lastIndexOfAnyOf: CharacterSet crlf + startingAt: position - 1) + 1]] - startingAt: position - 1 - ifAbsent:[0]) + 1]] forward: false specialBlock: [:dummy | 1]. ^true! Item was changed: ----- Method: ParagraphEditor>>encompassLine: (in category 'new selection') ----- encompassLine: anInterval "Return an interval that encompasses the entire line" | string left right | string := paragraph text string. + left := (string lastIndexOfAnyOf: CharacterSet crlf startingAt: anInterval first - 1) + 1. - left := (string lastIndexOfAnyOf: CharacterSet crlf startingAt: anInterval first - 1 ifAbsent:[0]) + 1. right := (string indexOfAnyOf: CharacterSet crlf startingAt: anInterval last + 1 ifAbsent: [string size + 1]) - 1. ^left to: right! Item was changed: ----- Method: ParagraphEditor>>saveContentsInFile (in category 'menu messages') ----- saveContentsInFile "Save the receiver's contents string to a file, prompting the user for a file-name. Suggest a reasonable file-name." | fileName stringToSave parentWindow labelToUse suggestedName | stringToSave := paragraph text string. stringToSave size = 0 ifTrue: [^ self inform: 'nothing to save.']. parentWindow := self model dependents detect: [:dep | dep isKindOf: SystemWindow orOf: StandardSystemView] ifNone: [nil]. labelToUse := parentWindow ifNil: ['Untitled'] ifNotNil: [parentWindow label]. suggestedName := nil. #(('Decompressed contents of: ' '.gz')) do: "can add more here..." [:leaderTrailer | | lastIndex | (labelToUse beginsWith: leaderTrailer first) ifTrue: [suggestedName := labelToUse copyFrom: leaderTrailer first size + 1 to: labelToUse size. (labelToUse endsWith: leaderTrailer last) ifTrue: [suggestedName := suggestedName copyFrom: 1 to: suggestedName size - leaderTrailer last size] ifFalse: + [lastIndex := suggestedName lastIndexOf: $.. + (lastIndex > 1) ifTrue: - [lastIndex := suggestedName lastIndexOf: $. ifAbsent: [0]. - (lastIndex = 0 or: [lastIndex = 1]) ifFalse: [suggestedName := suggestedName copyFrom: 1 to: lastIndex - 1]]]]. suggestedName ifNil: [suggestedName := labelToUse, '.text']. fileName := UIManager default request: 'File name?' translated initialAnswer: suggestedName. fileName isEmptyOrNil ifFalse: [(FileStream newFileNamed: fileName) nextPutAll: stringToSave; close]!

1 0

The Trunk: PreferenceBrowser-ul.78.mcz
by commits＠source.squeak.org 27 Feb '17

27 Feb '17

Levente Uzonyi uploaded a new version of PreferenceBrowser to project The Trunk: http://source.squeak.org/trunk/PreferenceBrowser-ul.78.mcz ==================== Summary ==================== Name: PreferenceBrowser-ul.78 Author: ul Time: 27 February 2017, 2:24:00.374446 am UUID: 6df2ac5f-5167-4801-acd3-487c683716ee Ancestors: PreferenceBrowser-mt.77 - omit ifAbsent from #index* sends when the default value, 0 would used =============== Diff against PreferenceBrowser-mt.77 =============== Item was changed: ----- Method: PreferenceBrowser>>selectedCategory: (in category 'accessing') ----- selectedCategory: aCategorySymbol + self selectedCategoryIndex: (self categoryList indexOf: aCategorySymbol).! - self selectedCategoryIndex: (self categoryList indexOf: aCategorySymbol ifAbsent: [0]).! Item was changed: ----- Method: PreferenceBrowser>>selectedPreferenceIndex (in category 'accessing') ----- selectedPreferenceIndex + ^self selectedCategoryPreferences indexOf: self selectedPreference! - ^self selectedCategoryPreferences indexOf: self selectedPreference ifAbsent: [0]!

1 0

2024

2023

2022

2021

2020

2019

2018

2017

2016

2015

2014

2013

2012

2011

2010

2009

2008

2007

2006

2005

Packages February 2017