"

 COPYRIGHT (c) 2000 by eXept Software AG

              All Rights Reserved

 This software is furnished under a license and may be used

 only in accordance with the terms of that license and with the

 inclusion of the above copyright notice.   This software may not

 be provided or otherwise made available to, or used by, any

 other person.  No title to or ownership of the software is

 hereby transferred.

"

HierarchicalItem subclass:#ClassNameItem

	instanceVariableNames:'revisionInfo'

	classVariableNames:''

	poolDictionaries:''

	category:'Interface-Browsers-Support'

!

!ClassNameItem class methodsFor:'documentation'!

copyright

"

 COPYRIGHT (c) 2000 by eXept Software AG

              All Rights Reserved

 This software is furnished under a license and may be used

 only in accordance with the terms of that license and with the

 inclusion of the above copyright notice.   This software may not

 be provided or otherwise made available to, or used by, any

 other person.  No title to or ownership of the software is

 hereby transferred.

"

!

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.3 2000-02-18 14:08:58 cg Exp $'

! !