--- a/ProcessMonitor.st Tue Jun 27 04:30:28 1995 +0200
+++ b/ProcessMonitor.st Mon Jul 03 04:37:45 1995 +0200
@@ -39,7 +39,7 @@
version
"
-$Header: /cvs/stx/stx/libtool/ProcessMonitor.st,v 1.16 1995-06-27 02:29:56 claus Exp $
+$Header: /cvs/stx/stx/libtool/ProcessMonitor.st,v 1.17 1995-07-03 02:37:45 claus Exp $
"
!
@@ -254,7 +254,7 @@
!ProcessMonitor methodsFor:'initialization'!
initialize
- |v menu|
+ |v|
super initialize.
@@ -536,6 +536,8 @@
!
keyPress:key x:x y:y
+ <resource: #keyboard ( #InspectIt ) >
+
key == #InspectIt ifTrue:[
^ self inspectProcess.
].