PackageLoadInProgressQuery.st
author Jan Vrany <jan.vrany@fit.cvut.cz>
Wed, 12 Jun 2019 15:02:01 +0100
branchjv
changeset 24334 e82c3f5bc1f1
parent 17349 06bea52b36af
child 23871 9d219359fd84
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 }"

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

!PackageLoadInProgressQuery class methodsFor:'documentation'!

documentation
"
    This query is answered during package 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.
"
! !

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

answerNotifyLoading:what do:aBlock
    [
        Smalltalk changed:#prePackageLoad with:what.
        self answer:true do:aBlock
    ] ensure:[
        Smalltalk changed:#postPackageLoad with:what.
    ].
! !

!PackageLoadInProgressQuery class methodsFor:'documentation'!

version
    ^ '$Header: /cvs/stx/stx/libbasic/PackageLoadInProgressQuery.st,v 1.1 2015-02-01 13:19:54 cg Exp $'
!

version_CVS
    ^ '$Header: /cvs/stx/stx/libbasic/PackageLoadInProgressQuery.st,v 1.1 2015-02-01 13:19:54 cg Exp $'
! !