--- a/ClassLoadInProgressQuery.st Tue Mar 12 16:08:44 2019 +0100
+++ b/ClassLoadInProgressQuery.st Tue Mar 12 18:12:52 2019 +0100
@@ -1,3 +1,5 @@
+"{ Encoding: utf8 }"
+
"{ Package: 'stx:libbasic' }"
"{ NameSpace: Smalltalk }"
@@ -23,21 +25,23 @@
!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.
].
+
+ "Modified: / 12-03-2019 / 17:51:25 / Stefan Vogel"
! !
!ClassLoadInProgressQuery class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libbasic/ClassLoadInProgressQuery.st,v 1.1 2015-02-01 13:19:23 cg Exp $'
+ ^ '$Header$'
!
version_CVS
- ^ '$Header: /cvs/stx/stx/libbasic/ClassLoadInProgressQuery.st,v 1.1 2015-02-01 13:19:23 cg Exp $'
+ ^ '$Header$'
! !