--- a/SelectionInListModelView.st	Thu Oct 17 17:54:30 2002 +0200
+++ b/SelectionInListModelView.st	Thu Oct 17 18:04:42 2002 +0200
@@ -203,7 +203,7 @@
 
     (editor := editorView) notNil ifTrue:[
         editorView := nil.
-        closeEditorAction ifNotNil:[
+        closeEditorAction notNil ifTrue:[
             closeEditorAction value:editor.
         ].
         editor destroy.
@@ -233,7 +233,7 @@
 
     self closeEditor.
     shown ifFalse:[^ nil].
-    openEditorAction ifNil:[^ nil].
+    openEditorAction isNil ifTrue:[^ nil].
     lnNr := self selectedIndex.
     lnNr == 0 ifTrue:[^ nil].
 
@@ -247,9 +247,9 @@
         numArgs == 1 ifTrue:[editorView := openEditorAction value:lnNr]
                     ifFalse:[editorView := openEditorAction value:lnNr value:self]
     ].
-    editorView ifNil:[^ nil].
+    editorView isNil ifTrue:[^ nil].
 
-    editorView superView ifNil:[
+    editorView superView isNil ifTrue:[
         self addSubView:editorView
     ].
     self computeEditorLayout.
@@ -949,12 +949,12 @@
             item := self selectedElement.
         ].
 
-        item ifNotNil:[
-            item ifNotNil:[ self makeSelectionVisible ].
+        item notNil ifTrue:[
+            self makeSelectionVisible.
 
             menu := item perform:#middleButtonMenu ifNotUnderstood:nil.
 
-            menu ifNotNil:[
+            menu notNil ifTrue:[
                 menu isCollection ifTrue:[
                     menu := Menu new fromLiteralArrayEncoding:menu.
                     appl := self application.
@@ -974,7 +974,7 @@
       ^ self
     ].
 
-    (clickLine := lineNr) ifNil:[ ^ self ].
+    (clickLine := lineNr) isNil ifTrue:[ ^ self ].
 
     isInSelection := self isInSelection:clickLine.
 
@@ -1405,21 +1405,21 @@
     |item lnNr x0 y0 editor|
 
     self closeEditor.
-    shown          ifFalse:[^ self ].
-    openEditorAction ifNil:[^ self].
+    shown ifFalse:[^ self ].
+    openEditorAction isNil ifTrue:[^ self].
 
     lnNr := self selectedIndex.
     lnNr == 0 ifTrue:[^ self].
 
     item := list at:lnNr ifAbsent:nil.
-    item ifNil:[^ self].
+    item isNil ifTrue:[^ self].
 
     x < (self xVisibleOfItem:item) ifTrue:[
         "/ not part of the selection frame; ignorre
         ^ self
     ].
     editor := self openEditor.
-    editor ifNil:[^ self].
+    editor isNil ifTrue:[^ self].
 
     y0 := (y - editor origin y) max:0.
     x0 := (x - editor origin x) max:0.
@@ -1761,5 +1761,5 @@
 !SelectionInListModelView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg2/SelectionInListModelView.st,v 1.57 2002-10-16 07:13:18 ca Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg2/SelectionInListModelView.st,v 1.58 2002-10-17 16:04:42 ca Exp $'
 ! !