Mercurial Mercurial > hg > stx-libwidg2 / changeset
summary | shortlog | changelog | graph | tags | bookmarks | branches | files | changeset | raw | zip | gz | bz2 | help
Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
a little mistake
authortz
Mon, 16 Feb 1998 23:40:41 +0100
changeset 764 7063f2604814
parent 763 dd29c58e8ea6
child 765 dfd884a8820f
a little mistake
SelTreeV.st file | annotate | diff | comparison | revisions
SelectionInTreeView.st file | annotate | diff | comparison | revisions 
--- a/SelTreeV.st	Sat Feb 14 17:17:48 1998 +0100
+++ b/SelTreeV.st	Mon Feb 16 23:40:41 1998 +0100
@@ -810,7 +810,7 @@
         imageItem := self imageOnDevice:(self class imageItem)
     ].
 
-    (listOfNodes size > 0 and: [icon := listOfNodes first icon]) notNil ifTrue: [^icon extent].
+    (listOfNodes size > 0 and: [(icon := listOfNodes first icon) isImage]) ifTrue: [^icon extent].
 
     ^ extent max:(imageItem extent)
 
@@ -1449,5 +1449,5 @@
 !SelectionInTreeView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg2/Attic/SelTreeV.st,v 1.38 1998-02-14 16:17:48 tz Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg2/Attic/SelTreeV.st,v 1.39 1998-02-16 22:40:41 tz Exp $'
 ! !
--- a/SelectionInTreeView.st	Sat Feb 14 17:17:48 1998 +0100
+++ b/SelectionInTreeView.st	Mon Feb 16 23:40:41 1998 +0100
@@ -810,7 +810,7 @@
         imageItem := self imageOnDevice:(self class imageItem)
     ].
 
-    (listOfNodes size > 0 and: [icon := listOfNodes first icon]) notNil ifTrue: [^icon extent].
+    (listOfNodes size > 0 and: [(icon := listOfNodes first icon) isImage]) ifTrue: [^icon extent].
 
     ^ extent max:(imageItem extent)
 
@@ -1449,5 +1449,5 @@
 !SelectionInTreeView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg2/SelectionInTreeView.st,v 1.38 1998-02-14 16:17:48 tz Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg2/SelectionInTreeView.st,v 1.39 1998-02-16 22:40:41 tz Exp $'
 ! !
hg/stx-libwidg2