equal
deleted
inserted
replaced
33 inclusion of the above copyright notice. This software may not |
33 inclusion of the above copyright notice. This software may not |
34 be provided or otherwise made available to, or used by, any |
34 be provided or otherwise made available to, or used by, any |
35 other person. No title to or ownership of the software is |
35 other person. No title to or ownership of the software is |
36 hereby transferred. |
36 hereby transferred. |
37 " |
37 " |
|
38 ! |
|
39 |
|
40 documentation |
|
41 " |
|
42 Abstract class providing common code for list-based status monitors. |
|
43 |
|
44 [disclaimer:] |
|
45 these are some of the oldest tools in the system, written in the early 90's. |
|
46 They do in no way reflect the way GUIs are designed/written these days. |
|
47 " |
38 ! ! |
48 ! ! |
39 |
49 |
40 !SystemStatusMonitor class methodsFor:'defaults'! |
50 !SystemStatusMonitor class methodsFor:'defaults'! |
41 |
51 |
42 defaultIcon |
52 defaultIcon |
51 "Created: 23.1.1997 / 02:52:43 / cg" |
61 "Created: 23.1.1997 / 02:52:43 / cg" |
52 ! ! |
62 ! ! |
53 |
63 |
54 !SystemStatusMonitor class methodsFor:'startup'! |
64 !SystemStatusMonitor class methodsFor:'startup'! |
55 |
65 |
|
66 isAbstract |
|
67 "return true, if this is an abstract class." |
|
68 |
|
69 ^ self == SystemStatusMonitor |
|
70 ! |
|
71 |
56 isVisualStartable |
72 isVisualStartable |
57 "return true, if this application can be started via #open. |
73 "return true, if this application can be started via #open. |
58 (to allow start of a change browser via double-click in the browser)" |
74 (to allow start of a subclass instance via double-click in the browser)" |
59 |
75 |
60 ^ self ~~ SystemStatusMonitor |
76 ^ self ~~ SystemStatusMonitor |
61 |
77 |
62 "Created: / 10.8.1998 / 16:02:23 / cg" |
78 "Created: / 10.8.1998 / 16:02:23 / cg" |
63 "Modified: / 10.8.1998 / 16:02:41 / cg" |
79 "Modified: / 10.8.1998 / 16:02:41 / cg" |
101 |
117 |
102 "Created: 23.1.1997 / 02:26:50 / cg" |
118 "Created: 23.1.1997 / 02:26:50 / cg" |
103 ! ! |
119 ! ! |
104 |
120 |
105 !SystemStatusMonitor methodsFor:'drawing'! |
121 !SystemStatusMonitor methodsFor:'drawing'! |
|
122 |
|
123 titleLine |
|
124 self subclassResponsibility |
|
125 ! |
106 |
126 |
107 updateList |
127 updateList |
108 self subclassResponsibility |
128 self subclassResponsibility |
109 ! |
129 ! |
110 |
130 |
247 !SystemStatusMonitor methodsFor:'queries'! |
267 !SystemStatusMonitor methodsFor:'queries'! |
248 |
268 |
249 preferredExtent |
269 preferredExtent |
250 "return my preferred extent" |
270 "return my preferred extent" |
251 |
271 |
252 ^ (font widthOf:self titleLine) + 40 @ 200 |
272 ^ ((self font widthOf:self titleLine) + 40) @ 250 |
253 |
273 |
254 "Modified: 23.1.1997 / 02:35:01 / cg" |
274 "Modified: 23.1.1997 / 02:35:01 / cg" |
255 "Created: 23.1.1997 / 02:51:24 / cg" |
275 "Created: 23.1.1997 / 02:51:24 / cg" |
256 ! ! |
276 ! ! |
257 |
277 |
|
278 !SystemStatusMonitor methodsFor:'user actions'! |
|
279 |
|
280 doubleClicked |
|
281 "intentionally blank here - to be redefined in subclasses" |
|
282 |
|
283 ^ self |
|
284 ! |
|
285 |
|
286 inspectSelection |
|
287 "intentionally blank here - to be redefined in subclasses" |
|
288 |
|
289 ^ self |
|
290 ! ! |
|
291 |
258 !SystemStatusMonitor class methodsFor:'documentation'! |
292 !SystemStatusMonitor class methodsFor:'documentation'! |
259 |
293 |
260 version |
294 version |
261 ^ '$Id: SystemStatusMonitor.st 7854 2012-01-30 17:49:41Z vranyj1 $' |
295 ^ '$Header$' |
262 ! |
296 ! |
263 |
297 |
264 version_HG |
298 version_HG |
265 |
299 |
266 ^ '$Changeset: <not expanded> $' |
300 ^ '$Changeset: <not expanded> $' |