care for non-existing icon image
authorClaus Gittinger <cg@exept.de>
Mon, 24 Aug 1998 16:18:24 +0200
changeset 1091 2e86163cfb17
parent 1090 cf3d9f5648da
child 1092 bc003bc88972
care for non-existing icon image
SelTreeV.st
SelectionInTreeView.st
--- a/SelTreeV.st	Mon Aug 24 13:07:37 1998 +0200
+++ b/SelTreeV.st	Mon Aug 24 16:18:24 1998 +0200
@@ -1020,12 +1020,14 @@
         ].
         (showIndc and:[node showIndicator]) ifTrue:[
             icon := node isCollapsable ifTrue:[openIndicator] ifFalse:[closeIndicator].
-            self displayForm:icon x:xIndc y:(yCtr - offIndcY)
+            icon notNil ifTrue:[
+                self displayForm:icon x:xIndc y:(yCtr - offIndcY)
+            ]
         ].
         prevNode := node.
     ]
 
-    "Modified: / 13.8.1998 / 12:03:40 / cg"
+    "Modified: / 22.8.1998 / 12:56:50 / cg"
 !
 
 redrawSelFrameAtX:x0 y:y0 toX:x1
@@ -2125,5 +2127,5 @@
 !SelectionInTreeView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg2/Attic/SelTreeV.st,v 1.65 1998-08-13 10:04:02 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg2/Attic/SelTreeV.st,v 1.66 1998-08-24 14:18:24 cg Exp $'
 ! !
--- a/SelectionInTreeView.st	Mon Aug 24 13:07:37 1998 +0200
+++ b/SelectionInTreeView.st	Mon Aug 24 16:18:24 1998 +0200
@@ -1020,12 +1020,14 @@
         ].
         (showIndc and:[node showIndicator]) ifTrue:[
             icon := node isCollapsable ifTrue:[openIndicator] ifFalse:[closeIndicator].
-            self displayForm:icon x:xIndc y:(yCtr - offIndcY)
+            icon notNil ifTrue:[
+                self displayForm:icon x:xIndc y:(yCtr - offIndcY)
+            ]
         ].
         prevNode := node.
     ]
 
-    "Modified: / 13.8.1998 / 12:03:40 / cg"
+    "Modified: / 22.8.1998 / 12:56:50 / cg"
 !
 
 redrawSelFrameAtX:x0 y:y0 toX:x1
@@ -2125,5 +2127,5 @@
 !SelectionInTreeView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg2/SelectionInTreeView.st,v 1.65 1998-08-13 10:04:02 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg2/SelectionInTreeView.st,v 1.66 1998-08-24 14:18:24 cg Exp $'
 ! !