"{ Encoding: utf8 }"

"{ 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.

    ].

    "Modified (format): / 12-03-2019 / 17:51:13 / Stefan Vogel"

! !

!PackageLoadInProgressQuery class methodsFor:'documentation'!

version

    ^ '$Header$'

!

version_CVS

    ^ '$Header$'

! !