"{ Encoding: utf8 }"

"

 COPYRIGHT (c) 1996 by Claus Gittinger / 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.

"

"{ Package: 'stx:libtool' }"

"{ NameSpace: Smalltalk }"

InspectorView subclass:#SetInspectorView

	instanceVariableNames:'keys'

	classVariableNames:''

	poolDictionaries:''

	category:'Interface-Inspector'

!

!SetInspectorView class methodsFor:'documentation'!

copyright

"

 COPYRIGHT (c) 1996 by Claus Gittinger / 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

"

    A modified inspector for Sets

    [author:]

        Stefan Vogel

"

!

examples

"

    #(a b c d e) asSet inspect

"

! !

!SetInspectorView methodsFor:'menu'!

fieldMenu

    <resource: #programMenu >

    |menu|

    menu := super fieldMenu.

    menu addLabels:#(

                       '-'

                       'Remove element'

                   )

         selectors:#(

                       nil 

                       doRemoveKey

                   ).

    (self keyIndexForLine:selectionIndex) isNil ifTrue:[

        menu disableAll:#(doRemoveKey)

    ].

    ^ menu

    "Modified: / 29.10.1997 / 03:41:47 / cg"

! !

!SetInspectorView methodsFor:'private'!

baseInspectedObjectClass

    "only instvars below that are shown by me in the non-basic tab.

     This hides uninterresting details in the regular tab"

    (inspectedObject class inheritsFrom:Set) ifTrue:[

        ^ Set

    ].

    ^ Object

!

defaultLabel

    ^ 'Contents'

    "

     (Set with:1 with:2 with:3) inspect

    "

    "Modified: 28.6.1996 / 16:05:42 / cg"

!

indexList 

    "return a list of indexes to show in the selectionList.

     Set hasMore to true, if a '...' entry should be added."

    inspectedObject size > nShown ifTrue:[

        |coll|

        (inspectedObject isOrdered not or:[sortOrder == SortOrderAlphabetical]) ifTrue:[

            coll := (SortedCollection new:nShown) sortBlock:[:a :b | a displayString < b displayString].

        ] ifFalse:[

            coll := OrderedCollection new:nShown

        ].

        inspectedObject do:[:el |

            coll add:el.

            coll size >= nShown ifTrue:[ 

                hasMore := true.

                ^ coll

            ].

        ].

    ].

    (inspectedObject isOrdered not or:[sortOrder == SortOrderAlphabetical]) ifTrue:[

        ^ inspectedObject asSortedCollection:[:a :b | a displayString < b displayString].

    ].

    ^ inspectedObject asOrderedCollection

!

indexedFieldList 

    "return a list of indexed-variable names to show in the selectionList.

     Set hasMore to true, if a '...' entry should be added."

    keys := self indexList.

    ^ keys collect:[:k | k displayString].

!

numIndexedFields

    ^ inspectedObject size

!

release 

    "release inspected object"

    keys := nil.

    super release

    "Created: 9.2.1996 / 12:04:30 / stefan"

!

showAllIndexedVarsInFieldList

    ^ true

! !

!SetInspectorView methodsFor:'queries'!

isIndexShown

    ^ false

! !

!SetInspectorView methodsFor:'user interaction'!

doRemoveKey

    "remove selected item from keys"

    |key idx|

    idx := self keyIndexForLine:selectionIndex.

    idx notNil ifTrue:[

        key := keys at:idx.

        (inspectedObject includes:key) ifTrue:[

            listView cursor:(Cursor wait).

            inspectedObject remove:key.

            keys := nil.

            selectionIndex := selectedLine := nil.

            inspectedObject changed.

            listView cursor:(Cursor hand).

            self reinspect.

        ].

    ]

!

indexedValueAtIndex:idx

    ^ keys at:idx

!

indexedValueAtKey:idx

    ^ idx

!

valueAtLine:lineNr put:newValue

    "store newValue;

     For non-named instvars, we add the new value - ignoring the selection"

    |idx|

    idx := self instVarIndexForLine:selectionIndex.

    idx notNil ifTrue:[

        inspectedObject instVarAt:idx put:newValue.

    ] ifFalse:[

        inspectedObject add:newValue.

"/        inspectedObject changed.

        self reinspect.

    ].

! !

!SetInspectorView class methodsFor:'documentation'!

version

    ^ '$Header$'

!

version_CVS

    ^ '$Header$'

! !