# HG changeset patch
# User Claus Gittinger <cg@exept.de>
# Date 874360044 -7200
# Node ID f16aa0e8541e1d8baae56dfc99fdcbdad7725a28
# Parent  31a94b71ae1b69ae9237aefab70c2053cd186fdf
dont crash with nonexisting bitmaps

diff -r 31a94b71ae1b -r f16aa0e8541e UIHelpTool.st
--- a/UIHelpTool.st	Wed Sep 10 10:36:23 1997 +0200
+++ b/UIHelpTool.st	Mon Sep 15 23:47:24 1997 +0200
@@ -414,7 +414,7 @@
         |t|
         src nextPutLine:key storeString.
 
-        t := txt asString replaceAll:(Character cr) by:(Character space).
+        t := txt asString replaceAll:(Character cr) with:(Character space).
 
         (t endsWith:Character space) ifTrue:[
             t := t copyWithoutLast:1
diff -r 31a94b71ae1b -r f16aa0e8541e UIPainter.st
--- a/UIPainter.st	Wed Sep 10 10:36:23 1997 +0200
+++ b/UIPainter.st	Mon Sep 15 23:47:24 1997 +0200
@@ -3033,10 +3033,12 @@
     self multipleSelectOk:true.
 
     cvsEventsDisabled := false.
-    imageMasterChild  := (self class imageMasterChild) onDevice:device.
-    imageMasterParent := (self class imageMasterParent) onDevice:device.
-    imageEmptyParent  := (self class imageEmptyParent)  onDevice:device.
-
+    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].
 ! !
 
 !UIPainter::TreeView methodsFor:'private'!