class: SubclassResponsibilityError
authorClaus Gittinger <cg@exept.de>
Tue, 01 Sep 2015 11:11:59 +0200
changeset 18729 f101761e2868
parent 18728 bc4a95bbdf25
child 18730 592c4cb8e98e
child 18731 561e93b88768
class: SubclassResponsibilityError changed: #description
SubclassResponsibilityError.st
--- a/SubclassResponsibilityError.st	Tue Sep 01 09:58:45 2015 +0200
+++ b/SubclassResponsibilityError.st	Tue Sep 01 11:11:59 2015 +0200
@@ -1,3 +1,5 @@
+"{ Encoding: utf8 }"
+
 "
  COPYRIGHT (c) 2001 by eXept Software AG
               All Rights Reserved
@@ -11,6 +13,8 @@
 "
 "{ Package: 'stx:libbasic' }"
 
+"{ NameSpace: Smalltalk }"
+
 ProceedableError subclass:#SubclassResponsibilityError
 	instanceVariableNames:''
 	classVariableNames:''
@@ -52,8 +56,12 @@
 !SubclassResponsibilityError methodsFor:'queries'!
 
 description
-    parameter isNil ifTrue:[^ super description].
-    ^ '"',parameter , '" ', super description
+    |dscr|
+
+    dscr := super description.
+
+    parameter isNil ifTrue:[^ dscr].
+    ^ '"',parameter , '" ', dscr
 
     "Modified: / 19-12-2010 / 08:50:13 / cg"
 ! !
@@ -61,11 +69,12 @@
 !SubclassResponsibilityError class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/SubclassResponsibilityError.st,v 1.8 2010-12-19 11:59:59 cg Exp $'
+    ^ '$Header$'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libbasic/SubclassResponsibilityError.st,v 1.8 2010-12-19 11:59:59 cg Exp $'
+    ^ '$Header$'
 ! !
 
+
 SubclassResponsibilityError initialize!