--- 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 $'
! !