equal
deleted
inserted
replaced
108 "Modified: / 27.10.1997 / 17:34:25 / cg" |
108 "Modified: / 27.10.1997 / 17:34:25 / cg" |
109 ! ! |
109 ! ! |
110 |
110 |
111 !BrowserView class methodsFor:'cleanup'! |
111 !BrowserView class methodsFor:'cleanup'! |
112 |
112 |
|
113 checkClassHistory |
|
114 "checks the class history on non-existing classes" |
|
115 |
|
116 ClassHistory reverseDo: |
|
117 [:histEntry| |
|
118 (Smalltalk at: (histEntry upTo: $ ) asSymbol) isBehavior |
|
119 ifFalse: |
|
120 [ |
|
121 ClassHistory remove: histEntry |
|
122 ] |
|
123 ] |
|
124 |
|
125 ! |
|
126 |
113 lowSpaceCleanup |
127 lowSpaceCleanup |
114 DefaultIcon := StopIcon := TraceIcon := TimeIcon := nil |
128 DefaultIcon := StopIcon := TraceIcon := TimeIcon := nil |
115 |
129 |
116 "Created: / 18.4.1996 / 16:46:40 / cg" |
130 "Created: / 18.4.1996 / 16:46:40 / cg" |
117 "Modified: / 25.10.1997 / 19:30:32 / cg" |
131 "Modified: / 25.10.1997 / 19:30:32 / cg" |
263 |
277 |
264 <resource: #image> |
278 <resource: #image> |
265 |
279 |
266 ^Icon |
280 ^Icon |
267 constantNamed:#'BrowserView imageIcon' |
281 constantNamed:#'BrowserView imageIcon' |
268 ifAbsentPut:[(Depth8Image new) width: 13; height: 11; photometric:(#palette); bitsPerSample:(#(8 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'@@@@@@@@@@@@@@@@@@AYVU%YVU%YVU%YVP@@VPDAVU%YAPUYVU$@@E$A@U%YVPTEVU%Y@@AYVU%YVU$EAPUYVP@@VU%YVU$EAPTBVU$@@E%YVU%YAPTBVU%Y@@@C@0LC@0LE@ LC@0@@@0LC@0LCAPHC@0L@@@LC@0LC@0LC@0LC@@@@@@@@@@@@@@@@@@@b') ; colorMapFromArray:#[0 0 0 255 255 0 0 127 0 255 153 0 204 255 255 51 153 153 255 255 255 255 0 0 0 255 0 0 0 255 0 255 255 255 0 255 127 0 0 0 0 127 0 127 127 127 0 0 0 127 0 0 0 127 0 127 127 127 127 0 127 0 127 127 127 127 170 170 170 0 0 51 0 0 102 0 0 153 0 0 204 0 51 0 0 51 51 0 51 102 0 51 153 0 51 204 0 51 255 0 102 0 0 102 51 0 102 102 0 102 153 0 102 204 0 102 255 0 153 0 0 153 51 0 153 102 0 153 153 0 153 204 0 153 255 0 204 0 0 204 51 0 204 102 0 204 153 0 204 204 0 204 255 0 255 51 0 255 102 0 255 153 0 255 204 51 0 0 51 0 51 51 0 102 51 0 153 51 0 204 51 0 255 51 51 0 51 51 51 51 51 102 51 51 153 51 51 204 51 51 255 51 102 0 51 102 51 51 102 102 51 102 153 51 102 204 51 102 255 51 153 0 51 153 51 51 153 102 51 153 204 51 153 255 51 204 0 51 204 51 51 204 102 51 204 153 51 204 204 51 204 255 51 255 0 51 255 51 51 255 102 51 255 153 51 255 204 51 255 255 102 0 0 102 0 51 102 0 102 102 0 153 102 0 204 102 0 255 102 51 0 102 51 51 102 51 102 102 51 153 102 51 204 102 51 255 102 102 0 102 102 51 102 102 102 102 102 153 102 102 204 102 102 255 102 153 0 102 153 51 102 153 102 102 153 153 102 153 204 102 153 255 102 204 0 102 204 51 102 204 102 102 204 153 102 204 204 102 204 255 102 255 0 102 255 51 102 255 102 102 255 153 102 255 204 102 255 255 153 0 0 153 0 51 153 0 102 153 0 153 153 0 204 153 0 255 153 51 0 153 51 51 153 51 102 153 51 153 153 51 204 153 51 255 153 102 0 153 102 51 153 102 102 153 102 153 153 102 204 153 102 255 153 153 0 153 153 51 153 153 102 153 153 153 153 153 204 153 153 255 153 204 0 153 204 51 153 204 102 153 204 153 153 204 204 153 204 255 153 255 0 153 255 51 153 255 102 153 255 153 153 255 204 153 255 255 204 0 0 204 0 51 204 0 102 204 0 153 204 0 204 204 0 255 204 51 0 204 51 51 204 51 102 204 51 153 204 51 204 204 51 255 204 102 0 204 102 51 204 102 102 204 102 153 204 102 204 204 102 255 204 153 0 204 153 51 204 153 102 204 153 153 204 153 204 204 153 255 204 204 0 204 204 51 204 204 102 204 204 153 204 204 204 204 204 255 204 255 0 204 255 51 204 255 102 204 255 153 204 255 204 255 0 51 255 0 102 255 0 153 255 0 204 255 51 0 255 51 51 255 51 102 255 51 153 255 51 204 255 51 255 255 102 0 255 102 51 255 102 102 255 102 153 255 102 204 255 102 255 255 153 51 255 153 102 255 153 153 255 153 204 255 153 255 255 204 0 255 204 51 255 204 102 255 204 153 255 204 204 255 204 255 255 255 51 255 255 102 255 255 153 255 255 204 7 7 7 17 17 17 28 28 28 38 38 38 48 48 48 58 58 58 66 66 66 76 76 76 86 86 86 96 96 96 107 107 107 117 117 117 135 135 135 145 145 145 155 155 155 165 165 165 175 175 175 186 186 186 193 193 193 214 214 214 224 224 224 234 234 234 244 244 244]; mask:((Depth1Image new) width: 13; height: 11; photometric:(#blackIs0); bitsPerSample:(#(1 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'??#?>O?8??#?>O?8??#?>O?8??#?>@@a') ; yourself); yourself]! |
282 ifAbsentPut:[(Depth4Image new) width: 13; height: 11; photometric:(#palette); bitsPerSample:(#(4 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'@@@@@@@@CPUUUUUUUP@EDUUTQUTHAQEUUDUU@@UUUUQDUP@EUUUDP%T@AUUUQBUU@@L3L3P#L0@CL3L4H3L@@3L3L3L3@@@@@@@@@@Db') ; colorMapFromArray:#[0 0 0 255 255 0 0 127 0 255 153 0 51 153 153 51 255 255 255 255 255 255 0 0 0 255 0 0 0 255 0 255 255 255 0 255 127 0 0 0 127 0 0 0 127 0 127 127]; mask:((Depth1Image new) width: 13; height: 11; photometric:(#blackIs0); bitsPerSample:(#(1 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'??#?>O?8??#?>O?8??#?>O?8??#?>@@a') ; yourself); yourself]! |
269 |
283 |
270 menuIcon |
284 menuIcon |
271 "This resource specification was automatically generated |
285 "This resource specification was automatically generated |
272 by the ImageEditor of ST/X." |
286 by the ImageEditor of ST/X." |
273 |
287 |
1950 [ClassHistory size > self class classHistoryMaxSize] whileTrue: [ClassHistory removeLast] |
1964 [ClassHistory size > self class classHistoryMaxSize] whileTrue: [ClassHistory removeLast] |
1951 |
1965 |
1952 |
1966 |
1953 ! |
1967 ! |
1954 |
1968 |
1955 checkClassHistory |
|
1956 "checks the class history on non-existing classes" |
|
1957 |
|
1958 ClassHistory reverseDo: |
|
1959 [:histEntry| |
|
1960 (Smalltalk at: (histEntry upTo: $ ) asSymbol) isNil |
|
1961 ifTrue: |
|
1962 [ |
|
1963 ClassHistory remove: histEntry |
|
1964 ] |
|
1965 ] |
|
1966 ! |
|
1967 |
|
1968 classHistoryMenu |
1969 classHistoryMenu |
1969 "returns a popup menu containing the history of the classes" |
1970 "returns a popup menu containing the history of the classes" |
1970 |
1971 |
1971 |labels selectors args| |
1972 |labels selectors args| |
1972 |
1973 |
1973 self checkClassHistory. |
1974 self class checkClassHistory. |
1974 |
1975 |
1975 ClassHistory isEmpty |
1976 ClassHistory isEmpty |
1976 ifFalse: |
1977 ifFalse: |
1977 [ |
1978 [ |
1978 labels := ClassHistory collect: [:clsName| clsName upTo: $ ]. |
1979 labels := ClassHistory collect: [:clsName| clsName upTo: $ ]. |
11610 ! ! |
11611 ! ! |
11611 |
11612 |
11612 !BrowserView class methodsFor:'documentation'! |
11613 !BrowserView class methodsFor:'documentation'! |
11613 |
11614 |
11614 version |
11615 version |
11615 ^ '$Header: /cvs/stx/stx/libtool/BrowserView.st,v 1.398 1998-04-22 09:32:12 cg Exp $' |
11616 ^ '$Header: /cvs/stx/stx/libtool/BrowserView.st,v 1.399 1998-04-22 16:02:02 tz Exp $' |
11616 ! ! |
11617 ! ! |
11617 BrowserView initialize! |
11618 BrowserView initialize! |