GraphColumnView3D.st
changeset 4852 0083a73c33c5
parent 3150 e3a55f15ef7e
child 4855 3270acbceaad
--- a/GraphColumnView3D.st	Sun Oct 04 12:35:08 2015 +0200
+++ b/GraphColumnView3D.st	Sun Oct 04 12:35:47 2015 +0200
@@ -1,5 +1,7 @@
 "{ Package: 'stx:libwidg2' }"
 
+"{ NameSpace: Smalltalk }"
+
 GraphColumnView subclass:#GraphColumnView3D
 	instanceVariableNames:'glxView showGraph rotateX rotateY rotateZ rotateXHolder
 		rotateYHolder rotateZHolder zoomZ zoomZHolder showAxis'
@@ -869,30 +871,28 @@
     index  := colorMap at:useCol ifAbsent:nil.
 
     index isNil ifTrue:[
-	index := colorMap size + self class numberOfStandardColors.
+        index := colorMap size + self class numberOfStandardColors.
 
-	(    (index > self class maxColors)
-	 or:[(useCol := useCol on:device) colorId isNil]
-	) ifTrue:[
-	    Transcript showCR:'cannot allocate more colors'.
-	    index := (useCol brightness > 0.5) ifTrue:[White]
-					      ifFalse:[Black]
-	] ifFalse:[
-	    colorMap at:useCol put:index.
+        (    (index > self class maxColors)
+         or:[(useCol := useCol onDevice:device) colorId isNil]
+        ) ifTrue:[
+            Transcript showCR:'cannot allocate more colors'.
+            index := (useCol brightness > 0.5) ifTrue:[White]
+                                              ifFalse:[Black]
+        ] ifFalse:[
+            colorMap at:useCol put:index.
 
-	    self colorRed:(useCol red)
-		    green:(useCol green)
-		     blue:(useCol blue).
+            self colorRed:(useCol red)
+                    green:(useCol green)
+                     blue:(useCol blue).
 
-	    self mapColor:index
-		      red:(useCol redByte)
-		    green:(useCol greenByte)
-		     blue:(useCol blueByte)
-	]
+            self mapColor:index
+                      red:(useCol redByte)
+                    green:(useCol greenByte)
+                     blue:(useCol blueByte)
+        ]
     ].
     self color:index.
-
-
 ! !
 
 !GraphColumnView3D::GLXGraph methodsFor:'redraw'!
@@ -961,5 +961,6 @@
 !GraphColumnView3D class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg2/GraphColumnView3D.st,v 1.9 2006-11-13 16:11:30 cg Exp $'
+    ^ '$Header$'
 ! !
+