"{ Encoding: utf8 }"

"{ 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 $'

! !