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.
checkin from browser
authorClaus Gittinger <cg@exept.de>
Mon, 24 Jun 1996 16:34:45 +0200
changeset 639 d69caf43cb0c
parent 638 5541c2f7836f
child 640 7608b07af7bb
checkin from browser
FBrowser.st file | annotate | diff | comparison | revisions
FileBrowser.st file | annotate | diff | comparison | revisions 
--- a/FBrowser.st	Sat Jun 22 18:33:56 1996 +0200
+++ b/FBrowser.st	Mon Jun 24 16:34:45 1996 +0200
@@ -22,7 +22,7 @@
 	category:'Interface-Browsers'
 !
 
-!FileBrowser class methodsFor:'documentation'!
+!FileBrowser  class methodsFor:'documentation'!
 
 copyright
 "
@@ -75,7 +75,7 @@
 "
 ! !
 
-!FileBrowser class methodsFor:'instance creation'!
+!FileBrowser  class methodsFor:'instance creation'!
 
 openOn:aDirectoryPath
     "start a new FileBrowser in a pathname"
@@ -108,7 +108,7 @@
     "
 ! !
 
-!FileBrowser class methodsFor:'defaults'!
+!FileBrowser  class methodsFor:'defaults'!
 
 defaultIcon
     DefaultIcon isNil ifTrue:[
@@ -277,7 +277,9 @@
                         bos close
                     ]
                 ] ifFalse:[
-                    (fileName endsWith:'.class') ifTrue:[
+                    ((fileName endsWith:'.class')
+                    or:[(fileName endsWith:'.cla')
+                    or:[(fileName endsWith:'.CLA')]]) ifTrue:[
                         JavaClassReader notNil ifTrue:[
                             JavaClassReader loadFile:(currentDirectory pathName , '/' , fileName)
                         ]
@@ -304,7 +306,7 @@
         ]
     ]
 
-    "Modified: 18.5.1996 / 15:45:31 / cg"
+    "Modified: 24.6.1996 / 16:31:45 / cg"
 !
 
 fileGet
@@ -2639,8 +2641,8 @@
     ^ currentDirectory pathName
 ! !
 
-!FileBrowser class methodsFor:'documentation'!
+!FileBrowser  class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/Attic/FBrowser.st,v 1.92 1996-06-19 07:47:37 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/Attic/FBrowser.st,v 1.93 1996-06-24 14:34:45 cg Exp $'
 ! !
--- a/FileBrowser.st	Sat Jun 22 18:33:56 1996 +0200
+++ b/FileBrowser.st	Mon Jun 24 16:34:45 1996 +0200
@@ -22,7 +22,7 @@
 	category:'Interface-Browsers'
 !
 
-!FileBrowser class methodsFor:'documentation'!
+!FileBrowser  class methodsFor:'documentation'!
 
 copyright
 "
@@ -75,7 +75,7 @@
 "
 ! !
 
-!FileBrowser class methodsFor:'instance creation'!
+!FileBrowser  class methodsFor:'instance creation'!
 
 openOn:aDirectoryPath
     "start a new FileBrowser in a pathname"
@@ -108,7 +108,7 @@
     "
 ! !
 
-!FileBrowser class methodsFor:'defaults'!
+!FileBrowser  class methodsFor:'defaults'!
 
 defaultIcon
     DefaultIcon isNil ifTrue:[
@@ -277,7 +277,9 @@
                         bos close
                     ]
                 ] ifFalse:[
-                    (fileName endsWith:'.class') ifTrue:[
+                    ((fileName endsWith:'.class')
+                    or:[(fileName endsWith:'.cla')
+                    or:[(fileName endsWith:'.CLA')]]) ifTrue:[
                         JavaClassReader notNil ifTrue:[
                             JavaClassReader loadFile:(currentDirectory pathName , '/' , fileName)
                         ]
@@ -304,7 +306,7 @@
         ]
     ]
 
-    "Modified: 18.5.1996 / 15:45:31 / cg"
+    "Modified: 24.6.1996 / 16:31:45 / cg"
 !
 
 fileGet
@@ -2639,8 +2641,8 @@
     ^ currentDirectory pathName
 ! !
 
-!FileBrowser class methodsFor:'documentation'!
+!FileBrowser  class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/FileBrowser.st,v 1.92 1996-06-19 07:47:37 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/FileBrowser.st,v 1.93 1996-06-24 14:34:45 cg Exp $'
 ! !
hg/stx-libtool