"{ Package: 'stx:libtool' }"

"{ NameSpace: Tools }"

	classVariableNames:''

	poolDictionaries:''

	category:'SUnit-UI'

!

!TestRunnerEmbedded 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)."

    ^ #(

        #methodGeneratorHolder

        #selectedClassesHolder

        #selectedMethodsHolder

        #selectedProtocolsHolder

      ).

! !

!TestRunnerEmbedded methodsFor:'aspects'!

methodGeneratorHolder

    "return/create the 'methodGeneratorHolder' value holder (automatically generated)"

    methodGeneratorHolder isNil ifTrue:[

        methodGeneratorHolder := ValueHolder new.

        methodGeneratorHolder addDependent:self.

    ].

    ^ methodGeneratorHolder

!

methodGeneratorHolder:something

    "set the 'methodGeneratorHolder' value holder (automatically generated)"

    |oldValue newValue|

    methodGeneratorHolder notNil ifTrue:[

        oldValue := methodGeneratorHolder value.

        methodGeneratorHolder removeDependent:self.

    ].

    methodGeneratorHolder := something.

    methodGeneratorHolder notNil ifTrue:[

        methodGeneratorHolder addDependent:self.

    ].

    newValue := methodGeneratorHolder value.

    oldValue ~~ newValue ifTrue:[

        self update:#value with:newValue from:methodGeneratorHolder.

    ].

!

selectedClassesHolder

    "return/create the 'selectedClassesHolder' value holder (automatically generated)"

    selectedClassesHolder isNil ifTrue:[

        selectedClassesHolder := ValueHolder new.

        selectedClassesHolder addDependent:self.

    ].

    ^ selectedClassesHolder

!

selectedClassesHolder:something

    "set the 'selectedClassesHolder' value holder (automatically generated)"

    |oldValue newValue|

    selectedClassesHolder notNil ifTrue:[

        oldValue := selectedClassesHolder value.

        selectedClassesHolder removeDependent:self.

    ].

    selectedClassesHolder := something.

    selectedClassesHolder notNil ifTrue:[

        selectedClassesHolder addDependent:self.

    ].

    newValue := selectedClassesHolder value.

    oldValue ~~ newValue ifTrue:[

        self update:#value with:newValue from:selectedClassesHolder.

    ].

!

selectedMethodsHolder

    "return/create the 'selectedMethodsHolder' value holder (automatically generated)"

    selectedMethodsHolder isNil ifTrue:[

        selectedMethodsHolder := ValueHolder new.

        selectedMethodsHolder addDependent:self.

    ].

    ^ selectedMethodsHolder

!

selectedMethodsHolder:something

    "set the 'selectedMethodsHolder' value holder (automatically generated)"

    |oldValue newValue|

    selectedMethodsHolder notNil ifTrue:[

        oldValue := selectedMethodsHolder value.

        selectedMethodsHolder removeDependent:self.

    ].

    selectedMethodsHolder := something.

    selectedMethodsHolder notNil ifTrue:[

        selectedMethodsHolder addDependent:self.

    ].

    newValue := selectedMethodsHolder value.

    oldValue ~~ newValue ifTrue:[

        self update:#value with:newValue from:selectedMethodsHolder.

    ].

!

selectedProtocolsHolder

    "return/create the 'selectedProtocolsHolder' value holder (automatically generated)"

    selectedProtocolsHolder isNil ifTrue:[

        selectedProtocolsHolder := ValueHolder new.

        selectedProtocolsHolder addDependent:self.

    ].

    ^ selectedProtocolsHolder

!

selectedProtocolsHolder:something

    "set the 'selectedProtocolsHolder' value holder (automatically generated)"

    |oldValue newValue|

    selectedProtocolsHolder notNil ifTrue:[

        oldValue := selectedProtocolsHolder value.

        selectedProtocolsHolder removeDependent:self.

    ].

    selectedProtocolsHolder := something.

    selectedProtocolsHolder notNil ifTrue:[

        selectedProtocolsHolder addDependent:self.

    ].

    newValue := selectedProtocolsHolder value.

    oldValue ~~ newValue ifTrue:[

        self update:#value with:newValue from:selectedProtocolsHolder.

    ].

!

! !

!TestRunnerEmbedded methodsFor:'change & update'!

update:aspect with:param from: sender

    "Invoked when an object that I depend upon sends a change notification."

    sender == selectedClassesHolder ifTrue:[

        self 

            invalidateTestCases;      "/ updateTestSuite;

            invalidateSuiteAndResult; "/ updateTestSuiteAndResult;

            updateVisibility.

        self hasTestCaseSelected ifTrue:[

            self enqueueDelayedAction:[ self updateTestCases; updateSuiteAndResult ].

        ].

         ^ self.

    ].

    self hasTestCaseSelected ifTrue:[

        sender == selectedProtocolsHolder ifTrue:[

            self invalidateSuiteAndResult. 

            self enqueueDelayedAction:[ self updateSuiteAndResult ].

            ^self

        ].

        sender == selectedMethodsHolder ifTrue:[

            self invalidateSuiteAndResult. 

            self enqueueDelayedAction:[ self updateSuiteAndResult ].

            ^self

        ].

        sender == methodGeneratorHolder ifTrue:[

            self invalidateSuiteAndResult. 

            self enqueueDelayedAction:[ self updateSuiteAndResult ].

            ^self

        ].

        sender == Smalltalk ifTrue:[

            aspect == #lastTestRunResult ifTrue:[

                allTestCases notNil ifTrue:[

                    (allTestCases includesIdentical: param first) ifTrue:[

                        self invalidateSuiteAndResult. "/ updateTestSuiteAndResult.

                        self enqueueDelayedAction:[ self updateSuiteAndResult ].

                        ^self        

                    ]

                ].

            ]        

        ].

    ].

    super update:aspect with:param from: sender

    "Modified: / 20-11-2011 / 12:40:07 / Jan Vrany <jan.vrany@fit.cvut.cz>"

    "Modified: / 04-06-2012 / 19:03:34 / cg"

! !

!TestRunnerEmbedded methodsFor:'private'!

hide

    self visibility: false height: 0

    "Created: / 11-03-2010 / 09:07:24 / Jan Vrany <jan.vrany@fit.cvut.cz>"

!

show

    self visibility: true height: 50

    "Created: / 11-03-2010 / 09:07:24 / Jan Vrany <jan.vrany@fit.cvut.cz>"

!

visibility:visibility height:height 

    | window container list h|

    window := self window.

    window isNil ifTrue:[ ^ self ].

    container := self window container.

    container isNil ifTrue:[ ^ self ].

    h := visibility ifFalse:[0] ifTrue:[ height ].

    container isVisible == visibility ifFalse:[

        container isVisible:visibility

    ].

    "/ this is the kind of dangerous access which breaks, whenever some wrapping setup

    "/ changes. Never do this!!!!!!!!

    "/ I'd rather see code which refers to the widget by name,

    "/ or if there is an explicit setter for the container, from which to steal the space.

    list := container container subViews first.

    (list layout bottomOffset ~= height negated) ifTrue:[

        list layout:((list layout)

                    bottomOffset:height negated;

                    yourself)

    ].

    "Created: / 11-03-2010 / 09:51:26 / Jan Vrany <jan.vrany@fit.cvut.cz>"

    "Modified: / 22-09-2014 / 13:47:21 / Jan Vrany <jan.vrany@fit.cvut.cz>"

! !

!TestRunnerEmbedded class methodsFor:'documentation'!

version

!

version_CVS

! !