equal
deleted
inserted
replaced
|
1 "{ Encoding: utf8 }" |
|
2 |
1 " |
3 " |
2 COPYRIGHT (c) 1989 by Claus Gittinger |
4 COPYRIGHT (c) 1989 by Claus Gittinger |
3 All Rights Reserved |
5 All Rights Reserved |
4 |
6 |
5 This software is furnished under a license and may be used |
7 This software is furnished under a license and may be used |
178 |
180 |
179 CachedDebugger := nil. |
181 CachedDebugger := nil. |
180 CachedExclusive := nil. |
182 CachedExclusive := nil. |
181 OpenDebuggers := nil. |
183 OpenDebuggers := nil. |
182 |
184 |
|
185 "/ only assign to the global debugger, if it has not been redefined |
|
186 "/ to another class. |
183 (Debugger isBehavior and:[Debugger name = #DebugView]) ifTrue:[ |
187 (Debugger isBehavior and:[Debugger name = #DebugView]) ifTrue:[ |
184 Debugger := self |
188 Smalltalk at:#Debugger put:self |
185 ]. |
189 ]. |
186 |
190 |
187 " |
191 " |
188 DebugView newDebugger |
192 DebugView newDebugger |
189 " |
193 " |