Colormap.st
changeset 3271 51d0adbc1aa0
parent 3265 408fac627dc4
child 3276 9ed39f7e7282
--- a/Colormap.st	Fri Aug 25 11:52:12 2000 +0200
+++ b/Colormap.st	Sun Aug 27 16:47:34 2000 +0200
@@ -305,9 +305,19 @@
 grow:howBig
     "change the receivers size - not allowed"
 
-    howBig == self size ifTrue:[^ self].
+    |t|
 
-    ^ self shouldNotImplement
+    howBig == self size ifTrue:[^ self].
+    redVector isNil ifTrue:[
+        redVector := ByteArray new:howBig.
+        greenVector := ByteArray new:howBig.
+        blueVector := ByteArray new:howBig.
+        ^ self
+    ].
+    t := redVector. redVector := ByteArray new:howBig. redVector replaceFrom:1 to:t size with:t startingAt:1.
+    t := greenVector. greenVector := ByteArray new:howBig. greenVector replaceFrom:1 to:t size with:t startingAt:1.
+    t := blueVector. blueVector := ByteArray new:howBig. blueVector replaceFrom:1 to:t size with:t startingAt:1.
+    ^ self
 
 !
 
@@ -377,5 +387,5 @@
 !Colormap class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview/Colormap.st,v 1.27 2000-08-22 13:56:15 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview/Colormap.st,v 1.28 2000-08-27 14:47:34 cg Exp $'
 ! !