"

 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.

"

"{ Package: 'stx:libtool' }"

"{ NameSpace: Tools }"

BrowserList subclass:#VariableList

	instanceVariableNames:'variableList classHolder showClassVars sortVariablesByName

		selectedVariableEntries showWarningAboutMissingEntryInXmlSpec'

	classVariableNames:''

	poolDictionaries:''

	category:'Interface-Browsers-New'

!

Object subclass:#VariableEntry

	instanceVariableNames:'label application class name type icon sortingByNameHolder'

	classVariableNames:''

	poolDictionaries:''

	privateIn:VariableList

!

!VariableList 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

"

    I implement the variable list (below class list) in the new system browser

"

! !

!VariableList class methodsFor:'interface specs'!

windowSpec

    "This resource specification was automatically generated

     by the UIPainter of ST/X."

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

     the UIPainter may not be able to read the specification."

    "

     UIPainter new openOnClass:Tools::VariableList andSelector:#windowSpec

     Tools::VariableList new openInterface:#windowSpec

     Tools::VariableList open

    "

    <resource: #canvas>

     #(FullSpec

       (WindowSpec

       (SpecCollection

      )

! !

!VariableList class methodsFor:'plugIn spec'!

aspectSelectors

    "This resource specification was automatically generated

     by the UIPainter of ST/X."

    "Do not manually edit this. If it is corrupted,

     the UIPainter may not be able to read the specification."

    "Return a description of exported aspects;

     these can be connected to aspects of an embedding application

     (if this app is embedded in a subCanvas)."

    ^ #(

      ).

! !

!VariableList methodsFor:'aspects'!

classHolder

    classHolder isNil ifTrue:[

	classHolder := #() asValue.

	classHolder addDependent:self

    ].

    ^ classHolder

!

classHolder:aValueHolder

    classHolder notNil ifTrue:[

    ].

    classHolder := aValueHolder.

    classHolder notNil ifTrue:[

    ].

    "Modified: / 11-07-2011 / 17:04:19 / Jan Vrany <jan.vrany@fit.cvut.cz>"

!

defaultSlaveModeValue

    ^ false.

!

selectedVariableEntries

    <resource: #uiAspect>

    "automatically generated by UIPainter ..."

    "*** the code below creates a default model when invoked."

    "*** (which may not be the one you wanted)"

    "*** Please change as required and accept it in the browser."

    "*** (and replace this comment by something more useful ;-)"

    selectedVariableEntries isNil ifTrue:[

"/ if your app needs to be notified of changes, uncomment one of the lines below:

"/       selectedVariableEntries onChangeSend:#selectedVariableEntriesChanged to:self.

    ].

    ^ selectedVariableEntries.

    "Modified: / 12-04-2011 / 15:49:31 / Jan Vrany <jan.vrany@fit.cvut.cz>"

!

selectedVariables

    ^ self selectionHolder

!

selectedVariables:aValueHolder

    ^ self selectionHolder:aValueHolder

!

showClassVarsInVariableList

    showClassVars isNil ifTrue:[

	showClassVars := false asValue.

	showClassVars addDependent:self

    ].

    ^ showClassVars

!

showClassVarsInVariableList:aValueHolder

    showClassVars notNil ifTrue:[

	showClassVars removeDependent:self

    ].

    showClassVars := aValueHolder.

    showClassVars notNil ifTrue:[

	showClassVars addDependent:self

    ].

!

showingInheritedClassVars

    ^ false

    "/ ^ true

!

sortVariablesByName

    sortVariablesByName isNil ifTrue:[

	sortVariablesByName := false asValue.

	sortVariablesByName addDependent:self

    ].

    ^ sortVariablesByName

!

sortVariablesByName:aValueHolder

    "/ self assert:(aValueHolder value isBoolean).

    sortVariablesByName notNil ifTrue:[

    ].

    sortVariablesByName := aValueHolder.

    sortVariablesByName notNil ifTrue:[

    ].

!

variableList

    variableList isNil ifTrue:[

	variableList := ValueHolder new

    ].

    ^ variableList

! !

!VariableList methodsFor:'change & update'!

delayedUpdate:something with:aParameter from:changedObject

    |selectedClasses changedClass anyChange|

    self inSlaveModeOrInvisible ifTrue:[self invalidateList. ^ self].

    changedObject == slaveMode ifTrue:[

    ].

    changedObject == classHolder ifTrue:[

    ].

    changedObject == showClassVars ifTrue:[

    ].

    changedObject == sortVariablesByName ifTrue:[

    ].

    changedObject == Smalltalk ifTrue:[

    ] ifFalse:[

    ].

    super delayedUpdate:something with:aParameter from:changedObject

    "Modified: / 01-03-2012 / 09:18:11 / cg"

!

enqueueDelayedUpdateList

    super enqueueDelayedUpdateList

    "Created: / 01-03-2012 / 09:06:42 / cg"

!

makeDependent

    Smalltalk addDependent:self

!

makeIndependent

    Smalltalk removeDependent:self

!

selectionChangedByClick

    "we are not interested in that - get another notification

     via the changed valueHolder"

!

update:something with:aParameter from:changedObject

    "/ ^ self delayedUpdate:something with:aParameter from:changedObject.

    changedObject == Smalltalk ifTrue:[

    ].

"/    self window sensor isNil ifTrue:[

"/        "/ I am not visible ...

"/        self invalidateList.

"/        ^ self

"/    ].

    changedObject == selectedVariableEntries ifTrue:[

    ].

    super update:something with:aParameter from:changedObject

    "Modified: / 12-04-2011 / 15:54:23 / Jan Vrany <jan.vrany@fit.cvut.cz>"

    "Modified: / 20-07-2011 / 18:52:44 / cg"

! !

!VariableList methodsFor:'generators'!

makeGenerator

! !

!VariableList methodsFor:'private'!

commonPostBuild

    |list|

    super commonPostBuild.

    list := builder componentAt:#List.

    list notNil ifTrue:[

    ].

!

commonSubClassIn:classes

    "return true if there is a common subclass"

    |theCommonSubClass "classesByInheritance"|

    theCommonSubClass := nil.

    classes do:[:eachClass |

	theCommonSubClass isNil ifTrue:[

	    theCommonSubClass := eachClass

	] ifFalse:[

	    (eachClass isSubclassOf:theCommonSubClass) ifTrue:[

	    ] ifFalse:[

		(theCommonSubClass isSubclassOf:eachClass) ifFalse:[

		    ^ nil

		]

	    ]

	]

    ].

    ^ theCommonSubClass.

"/    classesByInheritance := classes topologicalSort:[:a :b | a isSubclassOf:b].

"/    classesByInheritance keysAndValuesDo:[:index :eachClass |

"/        "/ all classes after that one must be superclasses ...

"/        classesByInheritance from:index+1 to:classesByInheritance size do:[:otherClass |

"/            (eachClass isSubclassOf:otherClass) ifFalse:[

"/                ^ nil.

"/            ]

"/        ].

"/    ].

"/    ^ classesByInheritance first

!

iconInBrowserForVariable:varName in:aClass

    "variables for which an entry is found in the xml-spec (if any) are marked

     with an <xml>-icon."

    and:[aClass canUnderstand: #xmlSpecForObject:]) ifTrue:[

    ].

    ^ nil

    "Created: / 12-04-2011 / 19:58:08 / Jan Vrany <jan.vrany@fit.cvut.cz>"

    "Modified: / 15-07-2011 / 18:32:47 / cg"

    "Modified: / 22-06-2012 / 13:17:28 / sr"

!

listEntryForClass: cls name:name