--- a/Tools_BrowserList.st Fri Nov 18 18:59:43 2011 +0100
+++ b/Tools_BrowserList.st Sat Nov 19 00:45:19 2011 +0100
@@ -1512,9 +1512,11 @@
to click in the list to focus it (which may change
the selection)"
(v := aView windowGroup pointerView) ~~ aView ifTrue:[
- aView windowGroup focusView: v.
- v sensor keyPress:key x:x y:y view:v.
- ^self.
+ v notNil ifTrue:[
+ aView windowGroup focusView: v.
+ v sensor keyPress:key x:x y:y view:v.
+ ^self.
+ ].
].
searchWindow isNil ifTrue:[
@@ -1757,5 +1759,5 @@
!BrowserList class methodsFor:'documentation'!
version_CVS
- ^ '$Header: /cvs/stx/stx/libtool/Tools_BrowserList.st,v 1.37 2011-10-18 19:43:54 vrany Exp $'
+ ^ '$Header: /cvs/stx/stx/libtool/Tools_BrowserList.st,v 1.38 2011-11-18 23:45:19 vrany Exp $'
! !