Mercurial Mercurial > hg > stx-libtool / changeset
summary | shortlog | changelog | graph | tags | bookmarks | branches | files | changeset | raw | zip | gz | bz2 | help
Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
*** empty log message ***
authorClaus Gittinger <cg@exept.de>
Thu, 02 Oct 1997 15:34:27 +0200
changeset 1336 60fff7039091
parent 1335 4f8ee6e1d8e1
child 1337 ac831300efb6
*** empty log message ***
FBrowser.st file | annotate | diff | comparison | revisions
FileBrowser.st file | annotate | diff | comparison | revisions 
--- a/FBrowser.st	Thu Sep 25 16:28:28 1997 +0200
+++ b/FBrowser.st	Thu Oct 02 15:34:27 1997 +0200
@@ -3641,11 +3641,12 @@
 	     anyImages lineIndex aFileName
 	     entry typ f p typeString done endIndex 
 	     state stopAtEnd nextState img prevFirstLine prevLastLine
-	     numVisible dirSuffix|
+	     numVisible dirSuffix thisIsVMS|
 
 	    dirSuffix := Filename directorySuffix.
 	    dirSuffix size > 0 ifTrue:[
-		dirSuffix := '.' , dirSuffix.
+		dirSuffix := '.' , dirSuffix asLowercase.
+		thisIsVMS := OperatingSystem platformName == #vms.
 	    ].
 
 	    "/
@@ -3736,14 +3737,22 @@
 
 				"/ the following suffix cutOff is not really required, 
 				"/ but makes the list look better on VMS ...
-				(dirSuffix notNil and:[aFileName endsWith:dirSuffix]) ifTrue:[
-				    fileNameString := aFileName copyWithoutLast:(dirSuffix size).
-				] ifFalse:[
-				    fileNameString := aFileName
+				fileNameString := aFileName.
+				dirSuffix notNil ifTrue:[
+				    (aFileName asLowercase endsWith:dirSuffix) ifTrue:[
+					fileNameString := aFileName copyWithoutLast:(dirSuffix size).
+				    ]
 				].
 				fileNameString := fileNameString , ' ...'
 			    ] ifFalse:[
-				fileNameString := aFileName
+				fileNameString := aFileName.
+				thisIsVMS ifTrue:[
+				    (aFileName endsWith:'.') ifTrue:[
+					aFileName ~= '..' ifTrue:[
+					    fileNameString := aFileName copyWithoutLast:1
+					]
+				    ]
+				]
 			    ].
 
 			    showLongList ifTrue:[
@@ -3945,5 +3954,5 @@
 !FileBrowser class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/Attic/FBrowser.st,v 1.201 1997-09-25 14:28:28 stefan Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/Attic/FBrowser.st,v 1.202 1997-10-02 13:34:27 cg Exp $'
 ! !
--- a/FileBrowser.st	Thu Sep 25 16:28:28 1997 +0200
+++ b/FileBrowser.st	Thu Oct 02 15:34:27 1997 +0200
@@ -3641,11 +3641,12 @@
 	     anyImages lineIndex aFileName
 	     entry typ f p typeString done endIndex 
 	     state stopAtEnd nextState img prevFirstLine prevLastLine
-	     numVisible dirSuffix|
+	     numVisible dirSuffix thisIsVMS|
 
 	    dirSuffix := Filename directorySuffix.
 	    dirSuffix size > 0 ifTrue:[
-		dirSuffix := '.' , dirSuffix.
+		dirSuffix := '.' , dirSuffix asLowercase.
+		thisIsVMS := OperatingSystem platformName == #vms.
 	    ].
 
 	    "/
@@ -3736,14 +3737,22 @@
 
 				"/ the following suffix cutOff is not really required, 
 				"/ but makes the list look better on VMS ...
-				(dirSuffix notNil and:[aFileName endsWith:dirSuffix]) ifTrue:[
-				    fileNameString := aFileName copyWithoutLast:(dirSuffix size).
-				] ifFalse:[
-				    fileNameString := aFileName
+				fileNameString := aFileName.
+				dirSuffix notNil ifTrue:[
+				    (aFileName asLowercase endsWith:dirSuffix) ifTrue:[
+					fileNameString := aFileName copyWithoutLast:(dirSuffix size).
+				    ]
 				].
 				fileNameString := fileNameString , ' ...'
 			    ] ifFalse:[
-				fileNameString := aFileName
+				fileNameString := aFileName.
+				thisIsVMS ifTrue:[
+				    (aFileName endsWith:'.') ifTrue:[
+					aFileName ~= '..' ifTrue:[
+					    fileNameString := aFileName copyWithoutLast:1
+					]
+				    ]
+				]
 			    ].
 
 			    showLongList ifTrue:[
@@ -3945,5 +3954,5 @@
 !FileBrowser class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/FileBrowser.st,v 1.201 1997-09-25 14:28:28 stefan Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/FileBrowser.st,v 1.202 1997-10-02 13:34:27 cg Exp $'
 ! !
hg/stx-libtool