ClassLoadInProgressQuery.st
author Claus Gittinger <cg@exept.de>
Sat, 01 Oct 2016 15:12:01 +0200
changeset 20490 f1c27208211f
parent 17348 828f0cfcb5cb
child 23868 f7295016cf59
permissions -rw-r--r--
#UI_ENHANCEMENT by cg class: MiniLogger class definition changed: #initialize #log:severity:facility:originator:attachment:on: fix: somewhere, WARNING is used. treat it like WARN. HACK: handle incoming messages from infoPrint and errorPrint, extract facility and severity. changed the layout to start with timestamp (looks much better)

"{ Package: 'stx:libbasic' }"

"{ NameSpace: Smalltalk }"

LoadInProgressQuery subclass:#ClassLoadInProgressQuery
	instanceVariableNames:'classNameBeingLoaded'
	classVariableNames:''
	poolDictionaries:''
	category:'Kernel-Exceptions-Queries'
!

!ClassLoadInProgressQuery class methodsFor:'documentation'!

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

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

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

!ClassLoadInProgressQuery class methodsFor:'documentation'!

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

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