'From Squeak3.7gamma of ''17 July 2004'' [latest update: #5976] on 19 July 2004 at 10:21:57 am'! "Change Set: FileListCaseSensFix-nk Date: 19 July 2004 Author: Ned Konz Makes the file list open properly on platforms like Windows where the file system isn't necessarily case-sensitive. " ! !IndentingListItemMorph methodsFor: 'private-container protocol' stamp: 'nk 10/14/2003 10:36'! openPath: anArray | found | anArray isEmpty ifTrue: [^ container setSelectedMorph: nil]. found _ nil. self withSiblingsDo: [:each | found ifNil: [(each complexContents asString = anArray first or: [anArray first isNil]) ifTrue: [found _ each]]]. found ifNil: ["try again with no case sensitivity" self withSiblingsDo: [:each | found ifNil: [(each complexContents asString sameAs: anArray first) ifTrue: [found _ each]]]]. found ifNotNil: [found isExpanded ifFalse: [found toggleExpandedState. container adjustSubmorphPositions]. found changed. anArray size = 1 ifTrue: [^ container setSelectedMorph: found]. ^ found firstChild ifNil: [container setSelectedMorph: nil] ifNotNil: [found firstChild openPath: anArray allButFirst]]. ^ container setSelectedMorph: nil! !