equal
deleted
inserted
replaced
|
1 "{ Encoding: utf8 }" |
|
2 |
1 "{ Package: 'stx:libbasic' }" |
3 "{ Package: 'stx:libbasic' }" |
2 |
4 |
3 "{ NameSpace: Smalltalk }" |
5 "{ NameSpace: Smalltalk }" |
4 |
6 |
5 LoadInProgressQuery subclass:#PackageLoadInProgressQuery |
7 LoadInProgressQuery subclass:#PackageLoadInProgressQuery |
21 ! ! |
23 ! ! |
22 |
24 |
23 !PackageLoadInProgressQuery class methodsFor:'answering queries during load'! |
25 !PackageLoadInProgressQuery class methodsFor:'answering queries during load'! |
24 |
26 |
25 answerNotifyLoading:what do:aBlock |
27 answerNotifyLoading:what do:aBlock |
26 [ |
28 ^ [ |
27 Smalltalk changed:#prePackageLoad with:what. |
29 Smalltalk changed:#prePackageLoad with:what. |
28 self answer:true do:aBlock |
30 self answer:true do:aBlock |
29 ] ensure:[ |
31 ] ensure:[ |
30 Smalltalk changed:#postPackageLoad with:what. |
32 Smalltalk changed:#postPackageLoad with:what. |
31 ]. |
33 ]. |
|
34 |
|
35 "Modified (format): / 12-03-2019 / 17:51:13 / Stefan Vogel" |
32 ! ! |
36 ! ! |
33 |
37 |
34 !PackageLoadInProgressQuery class methodsFor:'documentation'! |
38 !PackageLoadInProgressQuery class methodsFor:'documentation'! |
35 |
39 |
36 version |
40 version |
37 ^ '$Header: /cvs/stx/stx/libbasic/PackageLoadInProgressQuery.st,v 1.1 2015-02-01 13:19:54 cg Exp $' |
41 ^ '$Header$' |
38 ! |
42 ! |
39 |
43 |
40 version_CVS |
44 version_CVS |
41 ^ '$Header: /cvs/stx/stx/libbasic/PackageLoadInProgressQuery.st,v 1.1 2015-02-01 13:19:54 cg Exp $' |
45 ^ '$Header$' |
42 ! ! |
46 ! ! |
43 |
47 |