equal
deleted
inserted
replaced
65 ! ! |
65 ! ! |
66 |
66 |
67 !SemaphoreMonitor methodsFor:'drawing'! |
67 !SemaphoreMonitor methodsFor:'drawing'! |
68 |
68 |
69 titleLine |
69 titleLine |
70 ^ ' id name count waiting process(es) '. |
70 ^ ' id name count waiting process(es) '. |
71 |
71 |
72 " |
72 " |
73 SemaphoreMonitor open |
73 SemaphoreMonitor open |
74 " |
74 " |
75 |
75 |
76 "Modified: 23.1.1997 / 04:07:54 / cg" |
76 "Modified: 24.1.1997 / 23:03:48 / cg" |
77 ! |
77 ! |
78 |
78 |
79 updateList |
79 updateList |
80 "update list of semaphores" |
80 "update list of semaphores" |
81 |
81 |
141 ]. |
141 ]. |
142 id := aSemaphore identityHash bitShift:-12. |
142 id := aSemaphore identityHash bitShift:-12. |
143 list add:( |
143 list add:( |
144 (id printStringPaddedTo:6) |
144 (id printStringPaddedTo:6) |
145 , ' ' |
145 , ' ' |
146 , ((nm contractTo:10) paddedTo:10) |
146 , ((nm contractTo:25) paddedTo:25) |
147 , ' ' |
147 , ' ' |
148 , (aSemaphore count printString paddedTo:3) |
148 , (aSemaphore count printStringLeftPaddedTo:3) |
149 , ' ' |
149 , ' ' |
150 , (waiters size printStringPaddedTo:3) |
150 , (waiters size printStringLeftPaddedTo:3) |
151 , ' ' |
151 , ' ' |
152 , waitersNames). |
152 , waitersNames). |
153 |
153 |
154 ]. |
154 ]. |
155 ]. |
155 ]. |
172 Processor removeTimedBlock:updateBlock. |
172 Processor removeTimedBlock:updateBlock. |
173 Processor addTimedBlock:updateBlock afterSeconds:updateDelay |
173 Processor addTimedBlock:updateBlock afterSeconds:updateDelay |
174 ] |
174 ] |
175 |
175 |
176 "Modified: 3.7.1996 / 13:56:01 / stefan" |
176 "Modified: 3.7.1996 / 13:56:01 / stefan" |
177 "Modified: 23.1.1997 / 04:02:25 / cg" |
177 "Modified: 24.1.1997 / 23:04:20 / cg" |
178 ! ! |
178 ! ! |
179 |
179 |
180 !SemaphoreMonitor methodsFor:'menu'! |
180 !SemaphoreMonitor methodsFor:'menu'! |
181 |
181 |
182 inspectSelection |
182 inspectSelection |
289 ! ! |
289 ! ! |
290 |
290 |
291 !SemaphoreMonitor class methodsFor:'documentation'! |
291 !SemaphoreMonitor class methodsFor:'documentation'! |
292 |
292 |
293 version |
293 version |
294 ^ '$Header: /cvs/stx/stx/libtool/SemaphoreMonitor.st,v 1.3 1997-01-23 03:10:54 cg Exp $' |
294 ^ '$Header: /cvs/stx/stx/libtool/SemaphoreMonitor.st,v 1.4 1997-01-24 22:05:05 cg Exp $' |
295 ! ! |
295 ! ! |