Launcher.st
changeset 262 29e57d617edd
parent 250 16612cb1c470
child 281 7b73ea8b2faa
--- a/Launcher.st	Sat Dec 09 21:03:38 1995 +0100
+++ b/Launcher.st	Sat Dec 09 21:10:18 1995 +0100
@@ -387,7 +387,11 @@
                                         entry := entry , ' / src: ' , cls revision    
                                     ].
                                     listEntry colAt:2 put:entry , ')'
-                                ].    
+                                ] ifFalse:[
+                                   cls revision notNil ifTrue:[
+                                        listEntry colAt:2 put:'(overloaded by: ' , cls revision , ')' 
+                                   ]
+                                ]
                             ].
                             listEntry
                           ].
@@ -470,7 +474,7 @@
     box destroy.
 
     "Modified: 17.9.1995 / 16:47:50 / claus"
-    "Modified: 7.12.1995 / 20:08:09 / cg"
+    "Modified: 9.12.1995 / 21:08:35 / cg"
 !
 
 snapshot
@@ -1953,5 +1957,5 @@
 !NewLauncher class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/Launcher.st,v 1.65 1995-12-07 19:09:20 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/Launcher.st,v 1.66 1995-12-09 20:10:18 cg Exp $'
 ! !