HierarchicalItem subclass:#ClassNameItem
	instanceVariableNames:'revisionInfo'
	classVariableNames:''
	poolDictionaries:''
	category:'Interface-Browsers-Support'
!

!ClassNameItem class methodsFor:'documentation'!

documentation
"
    This is not yet finished (work in progress) - do not use.

    [author:]
        Pierre Schwarz (ps@exept.de)

    [see also:]

    [instance variables:]

    [class variables:]
"

! !

!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.2 2000-02-18 14:01:13 cg Exp $'
! !