1 "

     2  COPYRIGHT (c) 2009 by eXept Software AG

     3               All Rights Reserved

     4 

     5  This software is furnished under a license and may be used

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

     7  inclusion of the above copyright notice.   This software may not

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

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

    10  hereby transferred.

    11 "

    12 "{ Package: 'stx:libtool' }"

    13 

    14 SmalltalkInspectorView subclass:#TraitsInspectorView

    15 	instanceVariableNames:''

    16 	classVariableNames:''

    17 	poolDictionaries:''

    18 	category:'Interface-Inspector'

    19 !

    20 

    21 !TraitsInspectorView class methodsFor:'documentation'!

    22 

    23 copyright

    24 "

    25  COPYRIGHT (c) 2009 by eXept Software AG

    26               All Rights Reserved

    27 

    28  This software is furnished under a license and may be used

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

    30  inclusion of the above copyright notice.   This software may not

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

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

    33  hereby transferred.

    34 "

    35 !

    36 

    37 documentation

    38 "

    39     same as a smalltalk inspector, but filters only traits

    40 

    41     [author:]

    42         Claus Gittinger

    43 "

    44 ! !

    45 

    46 !TraitsInspectorView methodsFor:'private'!

    47 

    48 indexList

    49     "redefined to only show class variables"

    50 

    51     keys := OrderedCollection new.

    52     inspectedObject keysAndValuesDo:[:k :v |

    53                                 v isTrait ifTrue:[

    54                                     keys add:k

    55                                 ]

    56                            ].

    57     keys := keys asSortedCollection:[:a :b | a displayString < b displayString].

    58     ^ keys

    59 ! !

    60 

    61 !TraitsInspectorView class methodsFor:'documentation'!

    62 

    63 version_CVS

    64     ^ '$Header: /cvs/stx/stx/libtool/TraitsInspectorView.st,v 1.1 2009-10-12 20:00:25 cg Exp $'

    65 ! !