1
0

Kernel-Announcements.deploy.js 12 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195196197198199200201202203204205206207208209210211212213214215216217218219220221222223224225226227228229230231232233234235236237238239240241242243244245246247248249250251252253254255256257258259260261262263264265266267268269270271272273274275276277278279280281282283284285286287288289290291292293294295296297298299300301302303304305306307308309310311312313314315316317318319320321322323324325326327328329330331332333334335336337338339340341342343344345346347348349350351352353354355356357358359360361362363364365366367368369370371372373374375376377378379380381382383384385386387388389390391392393394395396397398399400401402403404405
  1. smalltalk.addPackage('Kernel-Announcements');
  2. smalltalk.addClass('AnnouncementSubscription', smalltalk.Object, ['block', 'announcementClass'], 'Kernel-Announcements');
  3. smalltalk.addMethod(
  4. "_announcementClass",
  5. smalltalk.method({
  6. selector: "announcementClass",
  7. fn: function (){
  8. var self=this;
  9. return smalltalk.withContext(function($ctx1) {
  10. var $1;
  11. $1=self["@announcementClass"];
  12. return $1;
  13. }, function($ctx1) {$ctx1.fill(self,"announcementClass",{},smalltalk.AnnouncementSubscription)})},
  14. messageSends: []}),
  15. smalltalk.AnnouncementSubscription);
  16. smalltalk.addMethod(
  17. "_announcementClass_",
  18. smalltalk.method({
  19. selector: "announcementClass:",
  20. fn: function (aClass){
  21. var self=this;
  22. return smalltalk.withContext(function($ctx1) {
  23. self["@announcementClass"]=aClass;
  24. return self}, function($ctx1) {$ctx1.fill(self,"announcementClass:",{aClass:aClass},smalltalk.AnnouncementSubscription)})},
  25. messageSends: []}),
  26. smalltalk.AnnouncementSubscription);
  27. smalltalk.addMethod(
  28. "_block",
  29. smalltalk.method({
  30. selector: "block",
  31. fn: function (){
  32. var self=this;
  33. return smalltalk.withContext(function($ctx1) {
  34. var $1;
  35. $1=self["@block"];
  36. return $1;
  37. }, function($ctx1) {$ctx1.fill(self,"block",{},smalltalk.AnnouncementSubscription)})},
  38. messageSends: []}),
  39. smalltalk.AnnouncementSubscription);
  40. smalltalk.addMethod(
  41. "_block_",
  42. smalltalk.method({
  43. selector: "block:",
  44. fn: function (aBlock){
  45. var self=this;
  46. return smalltalk.withContext(function($ctx1) {
  47. self["@block"]=aBlock;
  48. return self}, function($ctx1) {$ctx1.fill(self,"block:",{aBlock:aBlock},smalltalk.AnnouncementSubscription)})},
  49. messageSends: []}),
  50. smalltalk.AnnouncementSubscription);
  51. smalltalk.addMethod(
  52. "_deliver_",
  53. smalltalk.method({
  54. selector: "deliver:",
  55. fn: function (anAnnouncement){
  56. var self=this;
  57. return smalltalk.withContext(function($ctx1) {
  58. var $1;
  59. $1=_st(self)._handlesAnnouncement_(anAnnouncement);
  60. if(smalltalk.assert($1)){
  61. _st(_st(self)._block())._value_(anAnnouncement);
  62. };
  63. return self}, function($ctx1) {$ctx1.fill(self,"deliver:",{anAnnouncement:anAnnouncement},smalltalk.AnnouncementSubscription)})},
  64. messageSends: ["ifTrue:", "value:", "block", "handlesAnnouncement:"]}),
  65. smalltalk.AnnouncementSubscription);
  66. smalltalk.addMethod(
  67. "_handlesAnnouncement_",
  68. smalltalk.method({
  69. selector: "handlesAnnouncement:",
  70. fn: function (anAnnouncement){
  71. var self=this;
  72. return smalltalk.withContext(function($ctx1) {
  73. var $1;
  74. $1=_st(anAnnouncement)._isKindOf_(_st(self)._announcementClass());
  75. return $1;
  76. }, function($ctx1) {$ctx1.fill(self,"handlesAnnouncement:",{anAnnouncement:anAnnouncement},smalltalk.AnnouncementSubscription)})},
  77. messageSends: ["isKindOf:", "announcementClass"]}),
  78. smalltalk.AnnouncementSubscription);
  79. smalltalk.addClass('Announcer', smalltalk.Object, ['registry', 'subscriptions'], 'Kernel-Announcements');
  80. smalltalk.addMethod(
  81. "_announce_",
  82. smalltalk.method({
  83. selector: "announce:",
  84. fn: function (anAnnouncement){
  85. var self=this;
  86. return smalltalk.withContext(function($ctx1) {
  87. _st(self["@subscriptions"])._do_((function(each){
  88. return smalltalk.withContext(function($ctx2) {
  89. return _st(each)._deliver_(anAnnouncement);
  90. }, function($ctx2) {$ctx2.fillBlock({each:each},$ctx1)})}));
  91. return self}, function($ctx1) {$ctx1.fill(self,"announce:",{anAnnouncement:anAnnouncement},smalltalk.Announcer)})},
  92. messageSends: ["do:", "deliver:"]}),
  93. smalltalk.Announcer);
  94. smalltalk.addMethod(
  95. "_initialize",
  96. smalltalk.method({
  97. selector: "initialize",
  98. fn: function (){
  99. var self=this;
  100. function $Array(){return smalltalk.Array||(typeof Array=="undefined"?nil:Array)}
  101. return smalltalk.withContext(function($ctx1) {
  102. smalltalk.Object.fn.prototype._initialize.apply(_st(self), []);
  103. self["@subscriptions"]=_st($Array())._new();
  104. return self}, function($ctx1) {$ctx1.fill(self,"initialize",{},smalltalk.Announcer)})},
  105. messageSends: ["initialize", "new"]}),
  106. smalltalk.Announcer);
  107. smalltalk.addMethod(
  108. "_on_do_",
  109. smalltalk.method({
  110. selector: "on:do:",
  111. fn: function (aClass,aBlock){
  112. var self=this;
  113. function $AnnouncementSubscription(){return smalltalk.AnnouncementSubscription||(typeof AnnouncementSubscription=="undefined"?nil:AnnouncementSubscription)}
  114. return smalltalk.withContext(function($ctx1) {
  115. var $1,$2;
  116. $1=_st($AnnouncementSubscription())._new();
  117. _st($1)._block_(aBlock);
  118. _st($1)._announcementClass_(aClass);
  119. $2=_st($1)._yourself();
  120. _st(self["@subscriptions"])._add_($2);
  121. return self}, function($ctx1) {$ctx1.fill(self,"on:do:",{aClass:aClass,aBlock:aBlock},smalltalk.Announcer)})},
  122. messageSends: ["add:", "block:", "new", "announcementClass:", "yourself"]}),
  123. smalltalk.Announcer);
  124. smalltalk.addClass('SystemAnnouncer', smalltalk.Announcer, [], 'Kernel-Announcements');
  125. smalltalk.SystemAnnouncer.klass.iVarNames = ['current'];
  126. smalltalk.addMethod(
  127. "_current",
  128. smalltalk.method({
  129. selector: "current",
  130. fn: function (){
  131. var self=this;
  132. return smalltalk.withContext(function($ctx1) {
  133. var $2,$1;
  134. $2=self["@current"];
  135. if(($receiver = $2) == nil || $receiver == undefined){
  136. self["@current"]=smalltalk.Announcer.klass.fn.prototype._new.apply(_st(self), []);
  137. $1=self["@current"];
  138. } else {
  139. $1=$2;
  140. };
  141. return $1;
  142. }, function($ctx1) {$ctx1.fill(self,"current",{},smalltalk.SystemAnnouncer.klass)})},
  143. messageSends: ["ifNil:", "new"]}),
  144. smalltalk.SystemAnnouncer.klass);
  145. smalltalk.addMethod(
  146. "_new",
  147. smalltalk.method({
  148. selector: "new",
  149. fn: function (){
  150. var self=this;
  151. return smalltalk.withContext(function($ctx1) {
  152. _st(self)._shouldNotImplement();
  153. return self}, function($ctx1) {$ctx1.fill(self,"new",{},smalltalk.SystemAnnouncer.klass)})},
  154. messageSends: ["shouldNotImplement"]}),
  155. smalltalk.SystemAnnouncer.klass);
  156. smalltalk.addClass('SystemAnnouncement', smalltalk.Object, ['theClass'], 'Kernel-Announcements');
  157. smalltalk.addMethod(
  158. "_theClass",
  159. smalltalk.method({
  160. selector: "theClass",
  161. fn: function (){
  162. var self=this;
  163. return smalltalk.withContext(function($ctx1) {
  164. var $1;
  165. $1=self["@theClass"];
  166. return $1;
  167. }, function($ctx1) {$ctx1.fill(self,"theClass",{},smalltalk.SystemAnnouncement)})},
  168. messageSends: []}),
  169. smalltalk.SystemAnnouncement);
  170. smalltalk.addMethod(
  171. "_theClass_",
  172. smalltalk.method({
  173. selector: "theClass:",
  174. fn: function (aClass){
  175. var self=this;
  176. return smalltalk.withContext(function($ctx1) {
  177. self["@theClass"]=aClass;
  178. return self}, function($ctx1) {$ctx1.fill(self,"theClass:",{aClass:aClass},smalltalk.SystemAnnouncement)})},
  179. messageSends: []}),
  180. smalltalk.SystemAnnouncement);
  181. smalltalk.addClass('ClassAnnouncement', smalltalk.SystemAnnouncement, ['theClass'], 'Kernel-Announcements');
  182. smalltalk.addMethod(
  183. "_theClass",
  184. smalltalk.method({
  185. selector: "theClass",
  186. fn: function (){
  187. var self=this;
  188. return smalltalk.withContext(function($ctx1) {
  189. var $1;
  190. $1=self["@theClass"];
  191. return $1;
  192. }, function($ctx1) {$ctx1.fill(self,"theClass",{},smalltalk.ClassAnnouncement)})},
  193. messageSends: []}),
  194. smalltalk.ClassAnnouncement);
  195. smalltalk.addMethod(
  196. "_theClass_",
  197. smalltalk.method({
  198. selector: "theClass:",
  199. fn: function (aClass){
  200. var self=this;
  201. return smalltalk.withContext(function($ctx1) {
  202. self["@theClass"]=aClass;
  203. return self}, function($ctx1) {$ctx1.fill(self,"theClass:",{aClass:aClass},smalltalk.ClassAnnouncement)})},
  204. messageSends: []}),
  205. smalltalk.ClassAnnouncement);
  206. smalltalk.addClass('ClassAdded', smalltalk.ClassAnnouncement, [], 'Kernel-Announcements');
  207. smalltalk.addClass('ClassCommentChanged', smalltalk.ClassAnnouncement, [], 'Kernel-Announcements');
  208. smalltalk.addClass('ClassDefinitionChanged', smalltalk.ClassAnnouncement, [], 'Kernel-Announcements');
  209. smalltalk.addClass('ClassRemoved', smalltalk.ClassAnnouncement, [], 'Kernel-Announcements');
  210. smalltalk.addClass('ClassRenamed', smalltalk.ClassAnnouncement, [], 'Kernel-Announcements');
  211. smalltalk.addClass('MethodAnnouncement', smalltalk.SystemAnnouncement, ['method'], 'Kernel-Announcements');
  212. smalltalk.addMethod(
  213. "_method",
  214. smalltalk.method({
  215. selector: "method",
  216. fn: function (){
  217. var self=this;
  218. return smalltalk.withContext(function($ctx1) {
  219. var $1;
  220. $1=self["@method"];
  221. return $1;
  222. }, function($ctx1) {$ctx1.fill(self,"method",{},smalltalk.MethodAnnouncement)})},
  223. messageSends: []}),
  224. smalltalk.MethodAnnouncement);
  225. smalltalk.addMethod(
  226. "_method_",
  227. smalltalk.method({
  228. selector: "method:",
  229. fn: function (aCompiledMethod){
  230. var self=this;
  231. return smalltalk.withContext(function($ctx1) {
  232. self["@method"]=aCompiledMethod;
  233. return self}, function($ctx1) {$ctx1.fill(self,"method:",{aCompiledMethod:aCompiledMethod},smalltalk.MethodAnnouncement)})},
  234. messageSends: []}),
  235. smalltalk.MethodAnnouncement);
  236. smalltalk.addClass('MethodAdded', smalltalk.MethodAnnouncement, [], 'Kernel-Announcements');
  237. smalltalk.addClass('MethodModified', smalltalk.MethodAnnouncement, ['oldMethod'], 'Kernel-Announcements');
  238. smalltalk.addMethod(
  239. "_oldMethod",
  240. smalltalk.method({
  241. selector: "oldMethod",
  242. fn: function (){
  243. var self=this;
  244. return smalltalk.withContext(function($ctx1) {
  245. var $1;
  246. $1=self["@oldMethod"];
  247. return $1;
  248. }, function($ctx1) {$ctx1.fill(self,"oldMethod",{},smalltalk.MethodModified)})},
  249. messageSends: []}),
  250. smalltalk.MethodModified);
  251. smalltalk.addMethod(
  252. "_oldMethod_",
  253. smalltalk.method({
  254. selector: "oldMethod:",
  255. fn: function (aMethod){
  256. var self=this;
  257. return smalltalk.withContext(function($ctx1) {
  258. self["@oldMethod"]=aMethod;
  259. return self}, function($ctx1) {$ctx1.fill(self,"oldMethod:",{aMethod:aMethod},smalltalk.MethodModified)})},
  260. messageSends: []}),
  261. smalltalk.MethodModified);
  262. smalltalk.addClass('MethodRemoved', smalltalk.MethodAnnouncement, [], 'Kernel-Announcements');
  263. smalltalk.addClass('PackageAnnouncement', smalltalk.SystemAnnouncement, ['package'], 'Kernel-Announcements');
  264. smalltalk.addMethod(
  265. "_package",
  266. smalltalk.method({
  267. selector: "package",
  268. fn: function (){
  269. var self=this;
  270. return smalltalk.withContext(function($ctx1) {
  271. var $1;
  272. $1=self["@package"];
  273. return $1;
  274. }, function($ctx1) {$ctx1.fill(self,"package",{},smalltalk.PackageAnnouncement)})},
  275. messageSends: []}),
  276. smalltalk.PackageAnnouncement);
  277. smalltalk.addMethod(
  278. "_package_",
  279. smalltalk.method({
  280. selector: "package:",
  281. fn: function (aPackage){
  282. var self=this;
  283. return smalltalk.withContext(function($ctx1) {
  284. self["@package"]=aPackage;
  285. return self}, function($ctx1) {$ctx1.fill(self,"package:",{aPackage:aPackage},smalltalk.PackageAnnouncement)})},
  286. messageSends: []}),
  287. smalltalk.PackageAnnouncement);
  288. smalltalk.addClass('PackageAdded', smalltalk.PackageAnnouncement, [], 'Kernel-Announcements');
  289. smalltalk.addClass('PackageRemoved', smalltalk.PackageAnnouncement, [], 'Kernel-Announcements');
  290. smalltalk.addClass('ProtocolAnnouncement', smalltalk.SystemAnnouncement, ['theClass', 'protocol'], 'Kernel-Announcements');
  291. smalltalk.addMethod(
  292. "_protocol",
  293. smalltalk.method({
  294. selector: "protocol",
  295. fn: function (){
  296. var self=this;
  297. return smalltalk.withContext(function($ctx1) {
  298. var $1;
  299. $1=self["@protocol"];
  300. return $1;
  301. }, function($ctx1) {$ctx1.fill(self,"protocol",{},smalltalk.ProtocolAnnouncement)})},
  302. messageSends: []}),
  303. smalltalk.ProtocolAnnouncement);
  304. smalltalk.addMethod(
  305. "_protocol_",
  306. smalltalk.method({
  307. selector: "protocol:",
  308. fn: function (aString){
  309. var self=this;
  310. return smalltalk.withContext(function($ctx1) {
  311. self["@protocol"]=aString;
  312. return self}, function($ctx1) {$ctx1.fill(self,"protocol:",{aString:aString},smalltalk.ProtocolAnnouncement)})},
  313. messageSends: []}),
  314. smalltalk.ProtocolAnnouncement);
  315. smalltalk.addMethod(
  316. "_theClass",
  317. smalltalk.method({
  318. selector: "theClass",
  319. fn: function (){
  320. var self=this;
  321. return smalltalk.withContext(function($ctx1) {
  322. var $1;
  323. $1=self["@theClass"];
  324. return $1;
  325. }, function($ctx1) {$ctx1.fill(self,"theClass",{},smalltalk.ProtocolAnnouncement)})},
  326. messageSends: []}),
  327. smalltalk.ProtocolAnnouncement);
  328. smalltalk.addMethod(
  329. "_theClass_",
  330. smalltalk.method({
  331. selector: "theClass:",
  332. fn: function (aClass){
  333. var self=this;
  334. return smalltalk.withContext(function($ctx1) {
  335. self["@theClass"]=aClass;
  336. return self}, function($ctx1) {$ctx1.fill(self,"theClass:",{aClass:aClass},smalltalk.ProtocolAnnouncement)})},
  337. messageSends: []}),
  338. smalltalk.ProtocolAnnouncement);
  339. smalltalk.addClass('ProtocolAdded', smalltalk.ProtocolAnnouncement, [], 'Kernel-Announcements');
  340. smalltalk.addClass('ProtocolRemoved', smalltalk.ProtocolAnnouncement, [], 'Kernel-Announcements');