Tools__BreakpointBrowser.st
branchjv
changeset 15620 8f25029eb991
parent 15566 184cea584be5
parent 15619 964dfc605d29
child 15949 9c20ced90e66
--- a/Tools__BreakpointBrowser.st	Wed May 06 08:03:12 2015 +0200
+++ b/Tools__BreakpointBrowser.st	Fri May 08 06:59:19 2015 +0200
@@ -1,3 +1,5 @@
+"{ Encoding: utf8 }"
+
 "
  COPYRIGHT (c) 2008 by eXept Software AG
 	      All Rights Reserved
@@ -93,8 +95,13 @@
     ).
 !
 
-initialize
-    MessagesAndTypes := self defaultListOfMessagesAndTypes
+messagesAndTypes
+    "the spec of selectors to search for coded breakpoints"
+
+    MessagesAndTypes isNil ifTrue:[
+        MessagesAndTypes := self defaultListOfMessagesAndTypes
+    ].
+    ^ MessagesAndTypes
 ! !
 
 !BreakpointBrowser class methodsFor:'defaults'!
@@ -849,7 +856,7 @@
 messagesAndTypes
     "the spec of selectors to search for coded breakpoints"
 
-    ^ MessagesAndTypes
+    ^ self class messagesAndTypes
 !
 
 selectedBreakpointListEntry
@@ -2057,12 +2064,10 @@
 !BreakpointBrowser class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/Tools__BreakpointBrowser.st,v 1.54 2015-02-24 11:48:49 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/Tools__BreakpointBrowser.st,v 1.55 2015-05-07 22:32:03 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libtool/Tools__BreakpointBrowser.st,v 1.54 2015-02-24 11:48:49 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/Tools__BreakpointBrowser.st,v 1.55 2015-05-07 22:32:03 cg Exp $'
 ! !
 
-
-BreakpointBrowser initialize!