BrowserView.st
changeset 1575 d1ec15618c24
parent 1574 f8a81b46f511
child 1577 05a564fb493b
--- a/BrowserView.st	Wed Apr 22 11:32:12 1998 +0200
+++ b/BrowserView.st	Wed Apr 22 18:02:02 1998 +0200
@@ -110,6 +110,20 @@
 
 !BrowserView class methodsFor:'cleanup'!
 
+checkClassHistory
+    "checks the class history on non-existing classes"
+
+    ClassHistory reverseDo:
+    [:histEntry|
+        (Smalltalk at: (histEntry upTo: $ ) asSymbol) isBehavior
+        ifFalse:
+        [
+            ClassHistory remove: histEntry
+        ]
+    ]
+
+!
+
 lowSpaceCleanup
     DefaultIcon := StopIcon := TraceIcon := TimeIcon := nil
 
@@ -265,7 +279,7 @@
 
     ^Icon
         constantNamed:#'BrowserView imageIcon'
-        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]!
+        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]!
 
 menuIcon
     "This resource specification was automatically generated
@@ -1952,25 +1966,12 @@
 
 !
 
-checkClassHistory
-    "checks the class history on non-existing classes"
-
-    ClassHistory reverseDo:
-    [:histEntry|
-        (Smalltalk at: (histEntry upTo: $ ) asSymbol) isNil
-        ifTrue:
-        [
-            ClassHistory remove: histEntry
-        ]
-    ]
-!
-
 classHistoryMenu
     "returns a popup menu containing the history of the classes"
 
     |labels selectors args|
 
-    self checkClassHistory.
+    self class checkClassHistory.
 
     ClassHistory isEmpty
     ifFalse: 
@@ -11612,6 +11613,6 @@
 !BrowserView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/BrowserView.st,v 1.398 1998-04-22 09:32:12 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/BrowserView.st,v 1.399 1998-04-22 16:02:02 tz Exp $'
 ! !
 BrowserView initialize!