author | Claus Gittinger <cg@exept.de> |
Thu, 22 Sep 2016 15:08:36 +0200 | |
changeset 5254 | 65e55bcab14c |
parent 5253 | 43b16e24a811 |
child 5255 | 9874f11a4ae3 |
--- a/FileSelectionTree.st Thu Sep 22 15:07:45 2016 +0200 +++ b/FileSelectionTree.st Thu Sep 22 15:08:36 2016 +0200 @@ -635,7 +635,7 @@ p1 := Filename components:p1. p2 := (Filename components:p2) copyFrom:(p1 size). - "/ thats a kludge for network drives + "/ that's a kludge for network drives (p2 first endsWith:$\) ifTrue:[ (p2 first endsWith:':\') ifFalse:[ p2 := p2 copy.