--- a/ExternalStreamMonitor.st Mon Apr 03 07:15:26 2017 +0200
+++ b/ExternalStreamMonitor.st Fri Apr 07 14:28:25 2017 +0200
@@ -149,10 +149,53 @@
label: 'Filter'
submenuChannel: filterMenu
)
+ (MenuItem
+ label: 'Operations'
+ submenuChannel: operationsMenu
+ )
)
nil
nil
)
+
+ "Modified: / 07-04-2017 / 14:21:44 / cg"
+!
+
+operationsMenu
+ "This resource specification was automatically generated
+ by the MenuEditor of ST/X."
+
+ "Do not manually edit this!! If it is corrupted,
+ the MenuEditor may not be able to read the specification."
+
+
+ "
+ MenuEditor new openOnClass:ExternalStreamMonitor andSelector:#filterMenu
+ (Menu new fromLiteralArrayEncoding:(ExternalStreamMonitor filterMenu)) startUp
+ "
+
+ <resource: #menu>
+
+ ^
+ #(Menu
+ (
+ (MenuItem
+ label: 'Close'
+ itemValue: menuCloseSelected
+ )
+ (MenuItem
+ label: '-'
+ )
+ (MenuItem
+ label: 'Inspect'
+ itemValue: inspectStream
+ )
+ )
+ nil
+ nil
+ )
+
+ "Created: / 07-04-2017 / 14:22:18 / cg"
! !
!ExternalStreamMonitor methodsFor:'aspects'!
@@ -372,47 +415,6 @@
!ExternalStreamMonitor methodsFor:'menu'!
-debugWaiters
- "open a debugger on the selected semaphores waiting processes"
-
- self selectedSemaphoresDo:[:aSema |
- aSema waitingProcesses do:[:aProcess |
- DebugView openOn:aProcess
- ]
- ]
-
- "Modified: / 23.1.1997 / 03:12:06 / cg"
- "Created: / 17.6.1998 / 14:56:55 / cg"
-!
-
-inspectSemaphore
- "open an inspector on the selected semaphores"
-
- self selectedSemaphoresDo:[:aSema | aSema inspect]
-
- "Modified: 23.1.1997 / 03:12:06 / cg"
- "Created: 24.1.1997 / 23:11:50 / cg"
-!
-
-inspectStream
- "open an inspector on the selected stream(s)"
-
- self selectedStreamsDo:[:aSema | aSema inspect]
-!
-
-inspectWaiters
- "open an inspector on the selected semaphores waiting processes"
-
- self selectedSemaphoresDo:[:aSema |
- aSema waitingProcesses do:[:aProcess |
- aProcess inspect
- ]
- ]
-
- "Modified: / 23.1.1997 / 03:12:06 / cg"
- "Created: / 17.6.1998 / 14:17:41 / cg"
-!
-
selectedStreamsDo:aBlock
"evaluate aBlock on all selected streams"
@@ -439,14 +441,14 @@
|labels selectors m|
labels := resources array:#(
+ 'Close'
+ '-'
'Inspect'
- 'Inspect Waiters'
- 'Debug Waiters'
).
selectors := #(
+ menuCloseSelected
+ nil
inspectStream
- inspectWaiters
- debugWaiters
).
updateProcess isNil ifTrue:[
@@ -460,14 +462,13 @@
listView hasSelection ifFalse:[
m disableAll:#(
+ menuCloseSelected
inspectStream
- inspectWaiters
- debugWaiters
)
].
^ m
- "Modified: / 17.6.1998 / 14:17:05 / cg"
+ "Modified: / 07-04-2017 / 14:25:40 / cg"
! !
!ExternalStreamMonitor methodsFor:'queries'!
@@ -479,12 +480,13 @@
!ExternalStreamMonitor methodsFor:'user actions'!
doubleClicked
- "open an inspector on the selected semaphore"
+ "open an inspector on the selected stream"
self inspectStream
- "Created: 23.1.1997 / 03:22:04 / cg"
- "Modified: 31.1.1997 / 22:33:27 / cg"
+ "Created: / 23-01-1997 / 03:22:04 / cg"
+ "Modified: / 31-01-1997 / 22:33:27 / cg"
+ "Modified (comment): / 07-04-2017 / 14:28:01 / cg"
!
filterConnectedSocketsOnlyHolderChanged
@@ -497,6 +499,22 @@
filterSocketsOnlyHolderChanged
self sensor pushUserEvent:#updateList for:self
+!
+
+inspectStream
+ "open an inspector on the selected stream(s)"
+
+ self selectedStreamsDo:[:eachStream | eachStream inspect]
+
+ "Modified (format): / 07-04-2017 / 14:27:45 / cg"
+!
+
+menuCloseSelected
+ "close the selected stream(s)"
+
+ self selectedStreamsDo:[:eachStream | eachStream close]
+
+ "Created: / 07-04-2017 / 14:26:04 / cg"
! !
!ExternalStreamMonitor class methodsFor:'documentation'!