--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/ClassNameItem.st	Tue Feb 15 17:49:32 2000 +0100
@@ -0,0 +1,115 @@
+HierarchicalItem subclass:#ClassNameItem
+	instanceVariableNames:'revisionInfo'
+	classVariableNames:''
+	poolDictionaries:''
+	category:'Interface-Browsers-Support'
+!
+
+
+!ClassNameItem class methodsFor:'image specs'!
+
+icon
+    "This resource specification was automatically generated
+     by the ImageEditor of ST/X."
+
+    "Do not manually edit this!! If it is corrupted,
+     the ImageEditor may not be able to read the specification."
+
+    "
+     self icon inspect
+     ImageEditor openOnClass:self andSelector:#icon
+    "
+
+    <resource: #image>
+
+    ^Icon
+        constantNamed:#'ClassNameItem icon'
+        ifAbsentPut:[(Depth8Image new) width: 20; height: 20; photometric:(#palette); bitsPerSample:(#(8 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'
+@@@@@@@@@@@@@@@@@@@@@@@@@@@@@0L@@ HB@ HB@ HB@ HB@@@@@@@C@0@B@@@@@@@@@@@@@@H@@@@@@@LC@@H@@PDA@PDA@PD@@ @@@@@@@0L@@ @A@PD@
+@@@@@@@@@@@@@@@C@0@B@@DA@P@D@ PBA@HD@ P@@@LC@@H@@@DA@@HD@ PBA@HD@ @@@0L@@ @E@@D@A@HD@@@@@@HD@@@C@0@B@@@E@@@BA@H@@ P@A@H@
+@@LC@@H@@@@E@@PBA@HD@ PBA@@@@0L@@ @@@@@@@ PBA@HD@ PB@@@C@0@B@@P@@@@D@ PBA@HD@ P@@@LC@@H@@ P@@@@@@@@@@@@@@@@@@0L@@ @D@ @@
+@@@@@@@@@@@@@@@C@0@B@@HD@ PBA@HD@@H@@@@@@@LC@@H@A@HD@ PBA@H@@ @@@@@@@0L@@ @@@@@@@@@@@@@B@@@@@@@C@0@B@ HB@ HB@ HB@ H@@@@@
+@@@C@@HB@ HB@ HB@ HB@ @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@a') ; colorMapFromArray:#[0 0 0 119 124 119 248 252 0 119 124 0 168 168 168 248 252 248]; mask:((Depth1Image new) width: 20; height: 20; photometric:(#blackIs0); bitsPerSample:(#(1 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'??>O??>O??>O??>O??????????????????????????????????????>O??>O??>O??>O??>O_?>OO?>O') ; yourself); yourself]! !
+
+!ClassNameItem methodsFor:'accessing'!
+
+needsChildren
+
+    ^false
+
+
+!
+
+revisionInfo
+    "return the value of the instance variable 'revisionInfo' (automatically generated)"
+
+    ^ revisionInfo!
+
+revisionInfo:something
+    "set the value of the instance variable 'revisionInfo' (automatically generated)"
+
+    revisionInfo := something.! !
+
+!ClassNameItem methodsFor:'protocol'!
+
+hasChildren
+"a name class items has no childs
+
+<return: Boolean>
+"
+     ^false
+
+!
+
+icon
+
+    ^self class icon
+
+
+
+!
+
+label
+
+    | aStream user recordType fileName date time rev pkgDir clsName cvsRoot theText|
+    aStream := WriteStream on:String new.
+    user := revisionInfo at:#user ifAbsent:'?'.
+    recordType := revisionInfo at:#cvsRecordType ifAbsent:'?'.
+    fileName := revisionInfo at:#fileName ifAbsent:'?'.
+    date := revisionInfo at:#date ifAbsent:'?'.
+    time := revisionInfo at:#time ifAbsent:'?'.
+    rev := revisionInfo at:#revision ifAbsent:'?'.
+    pkgDir := revisionInfo at:#directory ifAbsent:'?'.
+    clsName := revisionInfo at:#className ifAbsent:'?'.
+    cvsRoot := revisionInfo at:#cvsRoot ifAbsent:'?'.
+
+    ^(Text string:fileName emphasis:#bold),
+        (Text string:(String with:Character cr)),
+        (Text string:recordType),
+        (Text string:' '),
+        (Text string:(date printString paddedTo:5)),
+        (Text string:' '),
+        (Text string:(time printString paddedTo:5)),
+        (Text string:' '),
+        (Text string:(user printString paddedTo:10)),
+        (Text string:(String with:Character tab)),
+        (Text string:(rev decimalPaddedTo:8 and:3 at:$. withLeft:(Character space) right:nil)),
+        (Text string:(String with:Character tab)),
+        (Text string:(pkgDir paddedTo:20))        
+!
+
+middleButtonMenu
+"returns the middleButtonMenu or nil if no menu is defined
+
+<return: nil>
+"
+    ^ nil
+
+
+! !
+
+!ClassNameItem class methodsFor:'documentation'!
+
+version
+    ^ '$Header: /cvs/stx/stx/libtool/ClassNameItem.st,v 1.1 2000-02-15 16:49:25 ps Exp $'
+! !