--- a/GraphColumnView3D.st Fri Mar 06 12:22:28 1998 +0100
+++ b/GraphColumnView3D.st Fri Mar 06 13:42:45 1998 +0100
@@ -126,7 +126,7 @@
t := 0.
c := 0.
- [top shown] whileTrue:[
+ [top realized] whileTrue:[
t := t + (Time millisecondsToRun:[ view rotateY:i]).
i := i + 1.
c := c + 1.
@@ -425,7 +425,6 @@
"set the rotation X value; range: 0 .. 360
"
|r|
-"/ Transcript showCR:aValue.
(r := self rotateValueFrom:aValue) ~~ rotateX ifTrue:[
rotateX := r.
@@ -514,6 +513,18 @@
removeAxis := false.
isInvalid := false.
lockCriticalTask := Semaphore forMutualExclusion.
+
+
+ colorMap := Dictionary new.
+ colorMap at:(Color black) put:Black.
+ colorMap at:(Color white) put:White.
+ colorMap at:(Color blue) put:Blue.
+ colorMap at:(Color cyan) put:Cyan.
+ colorMap at:(Color magenta) put:Magenta.
+ colorMap at:(Color red) put:Red.
+ colorMap at:(Color yellow) put:Yellow.
+ colorMap at:(Color green) put:Green.
+
!
realize
@@ -523,13 +534,6 @@
device glxOrthoLeft:-1.0 right:1.0 bottom:-1.0 top:1.0 near:10.0 far:-10.0 in:drawableId.
self backBuffer.
-!
-
-unrealize
- "clear colorMap and objects
- "
- super unrealize.
- self deleteAllObjects.
! !
!GraphColumnView3D::GLXGraph methodsFor:'making objects'!
@@ -740,26 +744,8 @@
shown ifTrue:[
self redrawInBackBuffer.
self swapBuffers.
- ] ifFalse:[
- colorMap := nil
- ].
-
-
-!
+ ]
-initializeColorMap
- "setup colors
- "
- colorMap := Dictionary new.
-
- colorMap at:(Color black) put:Black.
- colorMap at:(Color white) put:White.
- colorMap at:(Color blue) put:Blue.
- colorMap at:(Color cyan) put:Cyan.
- colorMap at:(Color magenta) put:Magenta.
- colorMap at:(Color red) put:Red.
- colorMap at:(Color yellow) put:Yellow.
- colorMap at:(Color green) put:Green.
!
@@ -768,10 +754,6 @@
"
|sY sX sZ noCols dY winSize w2 showRefs showGrid showFunc showAxis|
- colorMap isNil ifTrue:[
- self initializeColorMap
- ].
-
self setColor:(graph backgroundColor).
self clear.
@@ -936,5 +918,5 @@
!GraphColumnView3D class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libwidg2/GraphColumnView3D.st,v 1.6 1998-03-06 11:22:28 ca Exp $'
+ ^ '$Header: /cvs/stx/stx/libwidg2/GraphColumnView3D.st,v 1.7 1998-03-06 12:42:45 ca Exp $'
! !