--- a/DebugView.st Thu Jul 24 18:16:10 1997 +0200
+++ b/DebugView.st Thu Jul 24 18:18:24 1997 +0200
@@ -1390,22 +1390,21 @@
"Modified: 10.1.1997 / 21:35:36 / cg"
!
-realize
- super realize.
-"/ exclusive ifTrue:[
-"/ windowGroup := nil
-"/ ].
+postRealize
+ super postRealize.
inspecting ifTrue:[
- inspectedProcess notNil ifTrue:[
- "
- set prio somewhat higher (by 2, to allow walkBack-update process
- to run between mine and the debugged processes prio)
- "
- Processor activeProcess
- priority:(inspectedProcess priority + 2 min:16).
- ]
+ inspectedProcess notNil ifTrue:[
+ "
+ set prio somewhat higher (by 2, to allow walkBack-update process
+ to run between mine and the debugged processes prio)
+ "
+ Processor activeProcess
+ priority:(inspectedProcess priority + 2 min:16).
+ ]
]
+
+ "Created: 24.7.1997 / 18:17:44 / cg"
!
setLabelFor:aMessage in:aProcess
@@ -3522,6 +3521,6 @@
!DebugView class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libtool/DebugView.st,v 1.162 1997-07-24 12:48:53 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libtool/DebugView.st,v 1.163 1997-07-24 16:18:24 cg Exp $'
! !
DebugView initialize!