#REFACTORING by stefan
authorStefan Vogel <sv@exept.de>
Tue, 03 Jan 2017 14:44:25 +0100
changeset 3813 d581c117b1db
parent 3812 18492d5d4423
child 3814 668e317f6672
child 3817 e15b5eca8c7a
#REFACTORING by stefan class: ColorValue changed: #fromLiteralArrayEncoding: use "self class" when refering to own class
ColorValue.st
--- a/ColorValue.st	Tue Jan 03 10:48:21 2017 +0100
+++ b/ColorValue.st	Tue Jan 03 14:44:25 2017 +0100
@@ -1,5 +1,3 @@
-"{ Encoding: utf8 }"
-
 "
  COPYRIGHT (c) 1995 by Claus Gittinger
 	      All Rights Reserved
@@ -178,7 +176,7 @@
     |clr|
 
     encoding size == 2 ifTrue:[
-        clr := ColorValue name:(encoding at:2).
+        clr := self class name:(encoding at:2).
         red := clr scaledRed.
         green := clr scaledGreen.
         blue := clr scaledBlue.
@@ -224,15 +222,13 @@
     "Modified: 22.1.1997 / 04:17:59 / cg"
 ! !
 
-
-
 !ColorValue class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview2/ColorValue.st,v 1.19 2015-03-24 15:15:07 cg Exp $'
+    ^ '$Header$'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libview2/ColorValue.st,v 1.19 2015-03-24 15:15:07 cg Exp $'
+    ^ '$Header$'
 ! !