--- a/UIPainter.st	Fri Sep 19 11:09:43 1997 +0200
+++ b/UIPainter.st	Fri Sep 19 18:15:52 1997 +0200
@@ -3026,19 +3026,42 @@
 
 !UIPainter::TreeView methodsFor:'initialization'!
 
+fetchImageResources
+    "get special images for UIPainter,
+     returns the maximum extent of all images"
+
+    |extent|
+
+    extent := super fetchImageResources.
+
+    imageMasterChild := self class imageMasterChild. 
+    imageMasterChild notNil ifTrue:[
+        imageMasterChild := imageMasterChild onDevice:device.
+        extent := extent max:(imageMasterChild extent).
+    ].
+    imageMasterParent := self class imageMasterParent. 
+    imageMasterParent notNil ifTrue:[
+        imageMasterParent := imageMasterParent onDevice:device.
+        extent := extent max:(imageMasterParent extent).
+    ].
+    imageEmptyParent := self class imageEmptyParent.  
+    imageEmptyParent notNil ifTrue:[
+        imageEmptyParent := imageEmptyParent onDevice:device.
+        extent := extent max:(imageEmptyParent extent).
+    ].
+
+    ^ extent.
+
+    "Modified: 19.9.1997 / 17:18:46 / stefan"
+!
+
 initialize
     "initialization; set multiple select and model
     "
     super initialize.
     self multipleSelectOk:true.
 
-    cvsEventsDisabled := false.
-    imageMasterChild  := self class imageMasterChild. 
-    imageMasterChild notNil ifTrue:[imageMasterChild := imageMasterChild onDevice:device].
-    imageMasterParent := self class imageMasterParent. 
-    imageMasterParent notNil ifTrue:[imageMasterParent := imageMasterParent onDevice:device].
-    imageEmptyParent  := self class imageEmptyParent.  
-    imageEmptyParent notNil ifTrue:[imageEmptyParent := imageEmptyParent onDevice:device].
+    "Modified: 19.9.1997 / 16:57:12 / stefan"
 ! !
 
 !UIPainter::TreeView methodsFor:'private'!