GraphColumnView3D.st
changeset 805 ea53b7181b00
parent 804 ad94311c8698
child 815 c5d303ab52d2
--- 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 $'
 ! !