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