1 HierarchicalItem subclass:#ClassNameItem

     2 	instanceVariableNames:'revisionInfo'

     3 	classVariableNames:''

     4 	poolDictionaries:''

     5 	category:'Interface-Browsers-Support'

     6 !

     7 

     8 

     9 !ClassNameItem class methodsFor:'image specs'!

    10 

    11 icon

    12     "This resource specification was automatically generated

    13      by the ImageEditor of ST/X."

    14 

    15     "Do not manually edit this!! If it is corrupted,

    16      the ImageEditor may not be able to read the specification."

    17 

    18     "

    19      self icon inspect

    20      ImageEditor openOnClass:self andSelector:#icon

    21     "

    22 

    23     <resource: #image>

    24 

    25     ^Icon

    26         constantNamed:#'ClassNameItem icon'

    27         ifAbsentPut:[(Depth8Image new) width: 20; height: 20; photometric:(#palette); bitsPerSample:(#(8 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'

    28 @@@@@@@@@@@@@@@@@@@@@@@@@@@@@0L@@ HB@ HB@ HB@ HB@@@@@@@C@0@B@@@@@@@@@@@@@@H@@@@@@@LC@@H@@PDA@PDA@PD@@ @@@@@@@0L@@ @A@PD@

    29 @@@@@@@@@@@@@@@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@

    30 @@LC@@H@@@@E@@PBA@HD@ PBA@@@@0L@@ @@@@@@@ PBA@HD@ PB@@@C@0@B@@P@@@@D@ PBA@HD@ P@@@LC@@H@@ P@@@@@@@@@@@@@@@@@@0L@@ @D@ @@

    31 @@@@@@@@@@@@@@@C@0@B@@HD@ PBA@HD@@H@@@@@@@LC@@H@A@HD@ PBA@H@@ @@@@@@@0L@@ @@@@@@@@@@@@@B@@@@@@@C@0@B@ HB@ HB@ HB@ H@@@@@

    32 @@@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]! !

    33 

    34 !ClassNameItem methodsFor:'accessing'!

    35 

    36 needsChildren

    37 

    38     ^false

    39 

    40 

    41 !

    42 

    43 revisionInfo

    44     "return the value of the instance variable 'revisionInfo' (automatically generated)"

    45 

    46     ^ revisionInfo!

    47 

    48 revisionInfo:something

    49     "set the value of the instance variable 'revisionInfo' (automatically generated)"

    50 

    51     revisionInfo := something.! !

    52 

    53 !ClassNameItem methodsFor:'protocol'!

    54 

    55 hasChildren

    56 "a name class items has no childs

    57 

    58 <return: Boolean>

    59 "

    60      ^false

    61 

    62 !

    63 

    64 icon

    65 

    66     ^self class icon

    67 

    68 

    69 

    70 !

    71 

    72 label

    73 

    74     | aStream user recordType fileName date time rev pkgDir clsName cvsRoot theText|

    75     aStream := WriteStream on:String new.

    76     user := revisionInfo at:#user ifAbsent:'?'.

    77     recordType := revisionInfo at:#cvsRecordType ifAbsent:'?'.

    78     fileName := revisionInfo at:#fileName ifAbsent:'?'.

    79     date := revisionInfo at:#date ifAbsent:'?'.

    80     time := revisionInfo at:#time ifAbsent:'?'.

    81     rev := revisionInfo at:#revision ifAbsent:'?'.

    82     pkgDir := revisionInfo at:#directory ifAbsent:'?'.

    83     clsName := revisionInfo at:#className ifAbsent:'?'.

    84     cvsRoot := revisionInfo at:#cvsRoot ifAbsent:'?'.

    85 

    86     ^(Text string:fileName emphasis:#bold),

    87         (Text string:(String with:Character cr)),

    88         (Text string:recordType),

    89         (Text string:' '),

    90         (Text string:(date printString paddedTo:5)),

    91         (Text string:' '),

    92         (Text string:(time printString paddedTo:5)),

    93         (Text string:' '),

    94         (Text string:(user printString paddedTo:10)),

    95         (Text string:(String with:Character tab)),

    96         (Text string:(rev decimalPaddedTo:8 and:3 at:$. withLeft:(Character space) right:nil)),

    97         (Text string:(String with:Character tab)),

    98         (Text string:(pkgDir paddedTo:20))        

    99 !

   100 

   101 middleButtonMenu

   102 "returns the middleButtonMenu or nil if no menu is defined

   103 

   104 <return: nil>

   105 "

   106     ^ nil

   107 

   108 

   109 ! !

   110 

   111 !ClassNameItem class methodsFor:'documentation'!

   112 

   113 version

   114     ^ '$Header: /cvs/stx/stx/libtool/ClassNameItem.st,v 1.1 2000-02-15 16:49:25 ps Exp $'

   115 ! !