Mercurial Mercurial > hg > stx-libbasic / 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.
.
authorclaus
Mon, 11 Sep 1995 02:45:06 +0200
changeset 430 9f14534e3dd2
parent 429 be92b4c8c156
child 431 cf64cab595bc
.
FileDir.st file | annotate | diff | comparison | revisions
FileDirectory.st file | annotate | diff | comparison | revisions 
--- a/FileDir.st	Mon Sep 11 00:31:43 1995 +0200
+++ b/FileDir.st	Mon Sep 11 02:45:06 1995 +0200
@@ -21,7 +21,7 @@
 COPYRIGHT (c) 1989 by Claus Gittinger
 	     All Rights Reserved
 
-$Header: /cvs/stx/stx/libbasic/Attic/FileDir.st,v 1.22 1995-08-11 03:00:35 claus Exp $
+$Header: /cvs/stx/stx/libbasic/Attic/FileDir.st,v 1.23 1995-09-11 00:45:06 claus Exp $
 '!
 
 !FileDirectory class methodsFor:'documentation'!
@@ -42,7 +42,7 @@
 
 version
 "
-$Header: /cvs/stx/stx/libbasic/Attic/FileDir.st,v 1.22 1995-08-11 03:00:35 claus Exp $
+$Header: /cvs/stx/stx/libbasic/Attic/FileDir.st,v 1.23 1995-09-11 00:45:06 claus Exp $
 "
 !
 
@@ -306,8 +306,8 @@
 
     |realName|
 
-    (newName = '.') ifFalse:[
-	(newName = '..') ifFalse:[
+    (newName notNil and:[newName notEmpty]) ifTrue:[
+	(newName ~= '.' and:[newName ~= '..']) ifTrue:[
 	    ((newName at:1) == OperatingSystem fileSeparator) ifTrue:[
 		realName := newName copyFrom:2
 	    ] ifFalse:[
--- a/FileDirectory.st	Mon Sep 11 00:31:43 1995 +0200
+++ b/FileDirectory.st	Mon Sep 11 02:45:06 1995 +0200
@@ -21,7 +21,7 @@
 COPYRIGHT (c) 1989 by Claus Gittinger
 	     All Rights Reserved
 
-$Header: /cvs/stx/stx/libbasic/FileDirectory.st,v 1.22 1995-08-11 03:00:35 claus Exp $
+$Header: /cvs/stx/stx/libbasic/FileDirectory.st,v 1.23 1995-09-11 00:45:06 claus Exp $
 '!
 
 !FileDirectory class methodsFor:'documentation'!
@@ -42,7 +42,7 @@
 
 version
 "
-$Header: /cvs/stx/stx/libbasic/FileDirectory.st,v 1.22 1995-08-11 03:00:35 claus Exp $
+$Header: /cvs/stx/stx/libbasic/FileDirectory.st,v 1.23 1995-09-11 00:45:06 claus Exp $
 "
 !
 
@@ -306,8 +306,8 @@
 
     |realName|
 
-    (newName = '.') ifFalse:[
-	(newName = '..') ifFalse:[
+    (newName notNil and:[newName notEmpty]) ifTrue:[
+	(newName ~= '.' and:[newName ~= '..']) ifTrue:[
 	    ((newName at:1) == OperatingSystem fileSeparator) ifTrue:[
 		realName := newName copyFrom:2
 	    ] ifFalse:[
hg/stx-libbasic