--- 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!