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 $'

! !