LoadInProgressQuery.st
author Jan Vrany <jan.vrany@fit.cvut.cz>
Wed, 12 Jun 2019 15:02:01 +0100
branchjv
changeset 24334 e82c3f5bc1f1
parent 23547 c69c97cec351
permissions -rw-r--r--
Issue #259: fix `ProjectDefinition >> classesForPlatform` and use it `#testSuite` THis allows packages to specify testcases valid for some platform only. This is normally not needed but sometimes the testcase uses a class that is platform specific and this will cause package validation error upon commit.

"{ Package: 'stx:libbasic' }"

"{ NameSpace: Smalltalk }"

Query subclass:#LoadInProgressQuery
	instanceVariableNames:''
	classVariableNames:''
	poolDictionaries:''
	category:'Kernel-Exceptions-Queries'
!

!LoadInProgressQuery class methodsFor:'documentation'!

documentation
"
    Abstract superclass of queries which are answered during package or class loading,
    and allows for browsers to defer their updates.
    E.g. to bundle redraws when multiple changes are to come
    for a class or package in browsers.
"
! !

!LoadInProgressQuery class methodsFor:'answering queries during load'!

answerNotifyLoadingDo:aBlock
    [
        Smalltalk changed:#preLoad.
        self answer:true do:aBlock
    ] ensure:[
        Smalltalk changed:#postLoad
    ].
! !

!LoadInProgressQuery methodsFor:'defaults'!

defaultResumeValue
    "the default answer, if no one handles the query"

    ^ false

    "
     self query
    "
! !

!LoadInProgressQuery class methodsFor:'documentation'!

version
    ^ '$Header: /cvs/stx/stx/libbasic/LoadInProgressQuery.st,v 1.3 2015-03-05 11:02:07 cg Exp $'
!

version_CVS
    ^ '$Header: /cvs/stx/stx/libbasic/LoadInProgressQuery.st,v 1.3 2015-03-05 11:02:07 cg Exp $'
! !