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.
nameStrng bug
authorClaus Gittinger <cg@exept.de>
Sat, 19 Apr 1997 09:25:11 +0200
changeset 1154 c02ebe91ba11
parent 1153 9e57c1d4339a
child 1155 c37cb25bed62
nameStrng bug
FBrowser.st file | annotate | diff | comparison | revisions
FileBrowser.st file | annotate | diff | comparison | revisions 
--- a/FBrowser.st	Fri Apr 18 19:45:28 1997 +0200
+++ b/FBrowser.st	Sat Apr 19 09:25:11 1997 +0200
@@ -2810,7 +2810,7 @@
         "
 
         listUpdateProcess := [
-            |prevUid prevGid nameString groupString 
+            |prevUid prevGid fileNameString nameString groupString 
              modeString info line len list
              anyImages passDone lineIndex aFileName
              entry typ f p typeString done endIndex 
@@ -2916,20 +2916,20 @@
                     (passDone at:lineIndex) < 1 ifTrue:[
                         ((currentDirectory isDirectory:aFileName) and:[
                         (aFileName ~= '..') and:[aFileName ~= '.']]) ifTrue:[
-                            nameString := aFileName , ' ...'
+                            fileNameString := aFileName , ' ...'
                         ] ifFalse:[
-                            nameString := aFileName
+                            fileNameString := aFileName
                         ].
 
                         showLongList ifTrue:[
-                            len := nameString size.
+                            len := fileNameString size.
                             (len > 20) ifTrue:[
-                                nameString := (nameString contractTo:20)
+                                fileNameString := (fileNameString contractTo:20)
                             ].
                         ].
 
                         entry colAt:1 put:(self iconForFile:aFileName).
-                        entry colAt:2 put:nameString.
+                        entry colAt:2 put:fileNameString.
 
                         fileListView at:lineIndex put:entry.
 
@@ -3079,7 +3079,7 @@
     ]
 
     "Modified: 21.9.1995 / 11:40:23 / claus"
-    "Modified: 18.4.1997 / 18:12:20 / cg"
+    "Modified: 19.4.1997 / 09:24:37 / cg"
 ! !
 
 !FileBrowser methodsFor:'private-file-I/O'!
@@ -3349,6 +3349,6 @@
 !FileBrowser class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/Attic/FBrowser.st,v 1.145 1997-04-18 16:23:36 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/Attic/FBrowser.st,v 1.146 1997-04-19 07:25:11 cg Exp $'
 ! !
 FileBrowser initialize!
--- a/FileBrowser.st	Fri Apr 18 19:45:28 1997 +0200
+++ b/FileBrowser.st	Sat Apr 19 09:25:11 1997 +0200
@@ -2810,7 +2810,7 @@
         "
 
         listUpdateProcess := [
-            |prevUid prevGid nameString groupString 
+            |prevUid prevGid fileNameString nameString groupString 
              modeString info line len list
              anyImages passDone lineIndex aFileName
              entry typ f p typeString done endIndex 
@@ -2916,20 +2916,20 @@
                     (passDone at:lineIndex) < 1 ifTrue:[
                         ((currentDirectory isDirectory:aFileName) and:[
                         (aFileName ~= '..') and:[aFileName ~= '.']]) ifTrue:[
-                            nameString := aFileName , ' ...'
+                            fileNameString := aFileName , ' ...'
                         ] ifFalse:[
-                            nameString := aFileName
+                            fileNameString := aFileName
                         ].
 
                         showLongList ifTrue:[
-                            len := nameString size.
+                            len := fileNameString size.
                             (len > 20) ifTrue:[
-                                nameString := (nameString contractTo:20)
+                                fileNameString := (fileNameString contractTo:20)
                             ].
                         ].
 
                         entry colAt:1 put:(self iconForFile:aFileName).
-                        entry colAt:2 put:nameString.
+                        entry colAt:2 put:fileNameString.
 
                         fileListView at:lineIndex put:entry.
 
@@ -3079,7 +3079,7 @@
     ]
 
     "Modified: 21.9.1995 / 11:40:23 / claus"
-    "Modified: 18.4.1997 / 18:12:20 / cg"
+    "Modified: 19.4.1997 / 09:24:37 / cg"
 ! !
 
 !FileBrowser methodsFor:'private-file-I/O'!
@@ -3349,6 +3349,6 @@
 !FileBrowser class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/FileBrowser.st,v 1.145 1997-04-18 16:23:36 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/FileBrowser.st,v 1.146 1997-04-19 07:25:11 cg Exp $'
 ! !
 FileBrowser initialize!
hg/stx-libtool