1 "{ Package: 'stx:libbasic' }"

     2 

     3 "{ NameSpace: Smalltalk }"

     4 

     5 LoadInProgressQuery subclass:#ClassLoadInProgressQuery

     6 	instanceVariableNames:'classNameBeingLoaded'

     7 	classVariableNames:''

     8 	poolDictionaries:''

     9 	category:'Kernel-Exceptions-Queries'

    10 !

    11 

    12 !ClassLoadInProgressQuery class methodsFor:'documentation'!

    13 

    14 documentation

    15 "

    16     This query is answered during class loading,

    17     and allows for browsers to defer their updates.

    18     E.g. to bundle redraws when multiple changes are to come

    19     for a class or package.

    20 "

    21 ! !

    22 

    23 !ClassLoadInProgressQuery class methodsFor:'answering queries during load'!

    24 

    25 answerNotifyLoading:what do:aBlock

    26     [

    27         Smalltalk changed:#preClassLoad with:what.

    28         self answer:true do:aBlock

    29     ] ensure:[

    30         Smalltalk changed:#postClassLoad with:what.

    31     ].

    32 ! !

    33 

    34 !ClassLoadInProgressQuery class methodsFor:'documentation'!

    35 

    36 version

    37     ^ '$Header: /cvs/stx/stx/libbasic/ClassLoadInProgressQuery.st,v 1.1 2015-02-01 13:19:23 cg Exp $'

    38 !

    39 

    40 version_CVS

    41     ^ '$Header: /cvs/stx/stx/libbasic/ClassLoadInProgressQuery.st,v 1.1 2015-02-01 13:19:23 cg Exp $'

    42 ! !

    43