--- a/Tools__BrowserList.st	Fri Jun 21 19:05:40 2013 +0100
+++ b/Tools__BrowserList.st	Fri Jun 21 19:16:23 2013 +0100
@@ -961,6 +961,12 @@
     ^ self fetchIcon:#abstractMethod selector:#abstractMethodIcon
 !
 
+breakPointedIcon
+    "answer an icon to mark breakPointed methods"
+
+    ^ self fetchIcon:#breakPointed selector:#breakPointedIcon
+!
+
 canvasIcon
     "answer an icon to mark canvas spec methods"
 
@@ -1576,9 +1582,7 @@
     list := builder componentAt:#List.
     list notNil ifTrue:[
         list selectConditionBlock:[:item | self selectionChangeAllowed].
-        (list respondsTo:#ignoreReselect) ifTrue:[
-            list ignoreReselect:false.
-        ]
+        list ignoreReselect:false.
     ].
 
     UserPreferences current useInPlaceSearchInBrowserLists ifTrue:[
@@ -1591,7 +1595,7 @@
         ]
     ]
 
-    "Modified: / 04-04-2013 / 18:47:54 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+    "Modified: / 28-07-2011 / 09:39:25 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 !
 
 commonPostOpen
@@ -1613,6 +1617,7 @@
 !BrowserList::SearchHandler methodsFor:'event handling'!
 
 keyPress:key x:x y:y view:aView
+    <resource: #keyboard (#Escape #Accept #Return #CursorUp #CursorDown)>
 
     | v |
 
@@ -1662,6 +1667,7 @@
 !BrowserList::SearchHandler methodsFor:'event handling-queries'!
 
 handlesKeyPress:key inView:aView
+    <resource: #keyboard (#Escape #Accept #Return #CursorUp #CursorDown)>
 
     aView == listView ifTrue:[
         key isCharacter ifTrue:[
@@ -1669,7 +1675,7 @@
         ]
     ].
     aView == searchField ifTrue:[
-        (#(#Escape #Accept #Return #CursorUp CursorDown) includes: key) ifTrue:[
+        (#(#Escape #Accept #Return #CursorUp #CursorDown) includes: key) ifTrue:[
             ^true
         ]
     ].
@@ -1876,7 +1882,7 @@
 !
 
 version_CVS
-    ^ '§Header: /cvs/stx/stx/libtool/Tools_BrowserList.st,v 1.54 2012/12/12 15:38:00 cg Exp §'
+    ^ '$Header: /cvs/stx/stx/libtool/Tools_BrowserList.st,v 1.57 2013/03/22 11:36:34 cg Exp $'
 !
 
 version_HG