#DOCUMENTATION by cg
class: Integer
category of:
#anyBitOfMagnitudeFrom:to:
#highBitOfMagnitude
"{ 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$'
! !