1
0

Kernel-Classes.deploy.js 52 KB

12345678910111213141516171819202122232425262728293031323334353637383940414243444546474849505152535455565758596061626364656667686970717273747576777879808182838485868788899091929394959697989910010110210310410510610710810911011111211311411511611711811912012112212312412512612712812913013113213313413513613713813914014114214314414514614714814915015115215315415515615715815916016116216316416516616716816917017117217317417517617717817918018118218318418518618718818919019119219319419519619719819920020120220320420520620720820921021121221321421521621721821922022122222322422522622722822923023123223323423523623723823924024124224324424524624724824925025125225325425525625725825926026126226326426526626726826927027127227327427527627727827928028128228328428528628728828929029129229329429529629729829930030130230330430530630730830931031131231331431531631731831932032132232332432532632732832933033133233333433533633733833934034134234334434534634734834935035135235335435535635735835936036136236336436536636736836937037137237337437537637737837938038138238338438538638738838939039139239339439539639739839940040140240340440540640740840941041141241341441541641741841942042142242342442542642742842943043143243343443543643743843944044144244344444544644744844945045145245345445545645745845946046146246346446546646746846947047147247347447547647747847948048148248348448548648748848949049149249349449549649749849950050150250350450550650750850951051151251351451551651751851952052152252352452552652752852953053153253353453553653753853954054154254354454554654754854955055155255355455555655755855956056156256356456556656756856957057157257357457557657757857958058158258358458558658758858959059159259359459559659759859960060160260360460560660760860961061161261361461561661761861962062162262362462562662762862963063163263363463563663763863964064164264364464564664764864965065165265365465565665765865966066166266366466566666766866967067167267367467567667767867968068168268368468568668768868969069169269369469569669769869970070170270370470570670770870971071171271371471571671771871972072172272372472572672772872973073173273373473573673773873974074174274374474574674774874975075175275375475575675775875976076176276376476576676776876977077177277377477577677777877978078178278378478578678778878979079179279379479579679779879980080180280380480580680780880981081181281381481581681781881982082182282382482582682782882983083183283383483583683783883984084184284384484584684784884985085185285385485585685785885986086186286386486586686786886987087187287387487587687787887988088188288388488588688788888989089189289389489589689789889990090190290390490590690790890991091191291391491591691791891992092192292392492592692792892993093193293393493593693793893994094194294394494594694794894995095195295395495595695795895996096196296396496596696796896997097197297397497597697797897998098198298398498598698798898999099199299399499599699799899910001001100210031004100510061007100810091010101110121013101410151016101710181019102010211022102310241025102610271028102910301031103210331034103510361037103810391040104110421043104410451046104710481049105010511052105310541055105610571058105910601061106210631064106510661067106810691070107110721073107410751076107710781079108010811082108310841085108610871088108910901091109210931094109510961097109810991100110111021103110411051106110711081109111011111112111311141115111611171118111911201121112211231124112511261127112811291130113111321133113411351136113711381139114011411142114311441145114611471148114911501151115211531154115511561157115811591160116111621163116411651166116711681169117011711172117311741175117611771178117911801181118211831184118511861187118811891190119111921193119411951196119711981199120012011202120312041205120612071208120912101211121212131214121512161217121812191220122112221223122412251226122712281229123012311232123312341235123612371238123912401241124212431244124512461247124812491250125112521253125412551256125712581259126012611262126312641265126612671268126912701271127212731274127512761277127812791280128112821283128412851286128712881289129012911292129312941295129612971298129913001301130213031304130513061307130813091310131113121313131413151316131713181319132013211322132313241325132613271328132913301331133213331334133513361337133813391340134113421343134413451346134713481349135013511352135313541355135613571358135913601361136213631364136513661367136813691370137113721373137413751376137713781379138013811382138313841385138613871388138913901391139213931394139513961397139813991400140114021403
  1. smalltalk.addPackage('Kernel-Classes', {});
  2. smalltalk.addClass('Behavior', smalltalk.Object, [], 'Kernel-Classes');
  3. smalltalk.addMethod(
  4. "_addCompiledMethod_",
  5. smalltalk.method({
  6. selector: "addCompiledMethod:",
  7. fn: function (aMethod){
  8. var self=this;
  9. return smalltalk.withContext(function($ctx1) { var $1,$2;
  10. _st(self)._basicAddCompiledMethod_(aMethod);
  11. $1=_st((smalltalk.MethodAdded || MethodAdded))._new();
  12. _st($1)._theClass_(self);
  13. _st($1)._method_(aMethod);
  14. $2=_st($1)._yourself();
  15. _st(_st((smalltalk.SystemAnnouncer || SystemAnnouncer))._current())._announce_($2);
  16. return self}, function($ctx1) {$ctx1.fill(self,"addCompiledMethod:",{aMethod:aMethod}, smalltalk.Behavior)})},
  17. messageSends: ["basicAddCompiledMethod:", "announce:", "theClass:", "new", "method:", "yourself", "current"]}),
  18. smalltalk.Behavior);
  19. smalltalk.addMethod(
  20. "_allInstanceVariableNames",
  21. smalltalk.method({
  22. selector: "allInstanceVariableNames",
  23. fn: function (){
  24. var self=this;
  25. var result;
  26. return smalltalk.withContext(function($ctx1) { var $1,$2;
  27. result=_st(_st(self)._instanceVariableNames())._copy();
  28. $1=_st(self)._superclass();
  29. if(($receiver = $1) == nil || $receiver == undefined){
  30. $1;
  31. } else {
  32. _st(result)._addAll_(_st(_st(self)._superclass())._allInstanceVariableNames());
  33. };
  34. $2=result;
  35. return $2;
  36. }, function($ctx1) {$ctx1.fill(self,"allInstanceVariableNames",{result:result}, smalltalk.Behavior)})},
  37. messageSends: ["copy", "instanceVariableNames", "ifNotNil:", "addAll:", "allInstanceVariableNames", "superclass"]}),
  38. smalltalk.Behavior);
  39. smalltalk.addMethod(
  40. "_allSubclasses",
  41. smalltalk.method({
  42. selector: "allSubclasses",
  43. fn: function (){
  44. var self=this;
  45. var result;
  46. return smalltalk.withContext(function($ctx1) { var $1;
  47. result=_st(self)._subclasses();
  48. _st(_st(self)._subclasses())._do_((function(each){
  49. return smalltalk.withContext(function($ctx2) { return _st(result)._addAll_(_st(each)._allSubclasses());
  50. }, function($ctx2) {$ctx2.fillBlock({each:each},$ctx1)})}));
  51. $1=result;
  52. return $1;
  53. }, function($ctx1) {$ctx1.fill(self,"allSubclasses",{result:result}, smalltalk.Behavior)})},
  54. messageSends: ["subclasses", "do:", "addAll:", "allSubclasses"]}),
  55. smalltalk.Behavior);
  56. smalltalk.addMethod(
  57. "_allSuperclasses",
  58. smalltalk.method({
  59. selector: "allSuperclasses",
  60. fn: function (){
  61. var self=this;
  62. return smalltalk.withContext(function($ctx1) { var $1,$3,$4,$2;
  63. $1=_st(self)._superclass();
  64. if(($receiver = $1) == nil || $receiver == undefined){
  65. return [];
  66. } else {
  67. $1;
  68. };
  69. $3=_st((smalltalk.OrderedCollection || OrderedCollection))._with_(_st(self)._superclass());
  70. _st($3)._addAll_(_st(_st(self)._superclass())._allSuperclasses());
  71. $4=_st($3)._yourself();
  72. $2=$4;
  73. return $2;
  74. }, function($ctx1) {$ctx1.fill(self,"allSuperclasses",{}, smalltalk.Behavior)})},
  75. messageSends: ["ifNil:", "superclass", "addAll:", "allSuperclasses", "with:", "yourself"]}),
  76. smalltalk.Behavior);
  77. smalltalk.addMethod(
  78. "_basicAddCompiledMethod_",
  79. smalltalk.method({
  80. selector: "basicAddCompiledMethod:",
  81. fn: function (aMethod){
  82. var self=this;
  83. return smalltalk.withContext(function($ctx1) { smalltalk.addMethod(aMethod.selector._asSelector(), aMethod, self);
  84. return self}, function($ctx1) {$ctx1.fill(self,"basicAddCompiledMethod:",{aMethod:aMethod}, smalltalk.Behavior)})},
  85. messageSends: []}),
  86. smalltalk.Behavior);
  87. smalltalk.addMethod(
  88. "_basicNew",
  89. smalltalk.method({
  90. selector: "basicNew",
  91. fn: function (){
  92. var self=this;
  93. return smalltalk.withContext(function($ctx1) { return new self.fn();
  94. return self}, function($ctx1) {$ctx1.fill(self,"basicNew",{}, smalltalk.Behavior)})},
  95. messageSends: []}),
  96. smalltalk.Behavior);
  97. smalltalk.addMethod(
  98. "_basicRemoveCompiledMethod_",
  99. smalltalk.method({
  100. selector: "basicRemoveCompiledMethod:",
  101. fn: function (aMethod){
  102. var self=this;
  103. return smalltalk.withContext(function($ctx1) {
  104. smalltalk.removeMethod(aMethod)
  105. smalltalk.init(self);
  106. ;
  107. return self}, function($ctx1) {$ctx1.fill(self,"basicRemoveCompiledMethod:",{aMethod:aMethod}, smalltalk.Behavior)})},
  108. messageSends: []}),
  109. smalltalk.Behavior);
  110. smalltalk.addMethod(
  111. "_canUnderstand_",
  112. smalltalk.method({
  113. selector: "canUnderstand:",
  114. fn: function (aSelector){
  115. var self=this;
  116. return smalltalk.withContext(function($ctx1) { var $1;
  117. $1=_st(_st(_st(_st(self)._methodDictionary())._keys())._includes_(_st(aSelector)._asString()))._or_((function(){
  118. return smalltalk.withContext(function($ctx2) { return _st(_st(_st(self)._superclass())._notNil())._and_((function(){
  119. return smalltalk.withContext(function($ctx3) { return _st(_st(self)._superclass())._canUnderstand_(aSelector);
  120. }, function($ctx3) {$ctx3.fillBlock({},$ctx1)})}));
  121. }, function($ctx2) {$ctx2.fillBlock({},$ctx1)})}));
  122. return $1;
  123. }, function($ctx1) {$ctx1.fill(self,"canUnderstand:",{aSelector:aSelector}, smalltalk.Behavior)})},
  124. messageSends: ["or:", "and:", "canUnderstand:", "superclass", "notNil", "includes:", "asString", "keys", "methodDictionary"]}),
  125. smalltalk.Behavior);
  126. smalltalk.addMethod(
  127. "_comment",
  128. smalltalk.method({
  129. selector: "comment",
  130. fn: function (){
  131. var self=this;
  132. return smalltalk.withContext(function($ctx1) { var $2,$1;
  133. $2=_st(self)._basicAt_("comment");
  134. if(($receiver = $2) == nil || $receiver == undefined){
  135. $1="";
  136. } else {
  137. $1=$2;
  138. };
  139. return $1;
  140. }, function($ctx1) {$ctx1.fill(self,"comment",{}, smalltalk.Behavior)})},
  141. messageSends: ["ifNil:", "basicAt:"]}),
  142. smalltalk.Behavior);
  143. smalltalk.addMethod(
  144. "_comment_",
  145. smalltalk.method({
  146. selector: "comment:",
  147. fn: function (aString){
  148. var self=this;
  149. return smalltalk.withContext(function($ctx1) { var $1,$2;
  150. _st(self)._basicAt_put_("comment",aString);
  151. $1=_st((smalltalk.ClassCommentChanged || ClassCommentChanged))._new();
  152. _st($1)._theClass_(self);
  153. $2=_st($1)._yourself();
  154. _st(_st((smalltalk.SystemAnnouncer || SystemAnnouncer))._current())._announce_($2);
  155. return self}, function($ctx1) {$ctx1.fill(self,"comment:",{aString:aString}, smalltalk.Behavior)})},
  156. messageSends: ["basicAt:put:", "announce:", "theClass:", "new", "yourself", "current"]}),
  157. smalltalk.Behavior);
  158. smalltalk.addMethod(
  159. "_commentStamp",
  160. smalltalk.method({
  161. selector: "commentStamp",
  162. fn: function (){
  163. var self=this;
  164. return smalltalk.withContext(function($ctx1) { var $2,$3,$1;
  165. $2=_st((smalltalk.ClassCommentReader || ClassCommentReader))._new();
  166. _st($2)._class_(self);
  167. $3=_st($2)._yourself();
  168. $1=$3;
  169. return $1;
  170. }, function($ctx1) {$ctx1.fill(self,"commentStamp",{}, smalltalk.Behavior)})},
  171. messageSends: ["class:", "new", "yourself"]}),
  172. smalltalk.Behavior);
  173. smalltalk.addMethod(
  174. "_commentStamp_prior_",
  175. smalltalk.method({
  176. selector: "commentStamp:prior:",
  177. fn: function (aStamp,prior){
  178. var self=this;
  179. return smalltalk.withContext(function($ctx1) { var $1;
  180. $1=_st(self)._commentStamp();
  181. return $1;
  182. }, function($ctx1) {$ctx1.fill(self,"commentStamp:prior:",{aStamp:aStamp,prior:prior}, smalltalk.Behavior)})},
  183. messageSends: ["commentStamp"]}),
  184. smalltalk.Behavior);
  185. smalltalk.addMethod(
  186. "_compile_",
  187. smalltalk.method({
  188. selector: "compile:",
  189. fn: function (aString){
  190. var self=this;
  191. return smalltalk.withContext(function($ctx1) { _st(self)._compile_category_(aString,"");
  192. return self}, function($ctx1) {$ctx1.fill(self,"compile:",{aString:aString}, smalltalk.Behavior)})},
  193. messageSends: ["compile:category:"]}),
  194. smalltalk.Behavior);
  195. smalltalk.addMethod(
  196. "_compile_category_",
  197. smalltalk.method({
  198. selector: "compile:category:",
  199. fn: function (aString,anotherString){
  200. var self=this;
  201. return smalltalk.withContext(function($ctx1) { _st(_st((smalltalk.Compiler || Compiler))._new())._install_forClass_category_(aString,self,anotherString);
  202. return self}, function($ctx1) {$ctx1.fill(self,"compile:category:",{aString:aString,anotherString:anotherString}, smalltalk.Behavior)})},
  203. messageSends: ["install:forClass:category:", "new"]}),
  204. smalltalk.Behavior);
  205. smalltalk.addMethod(
  206. "_definition",
  207. smalltalk.method({
  208. selector: "definition",
  209. fn: function (){
  210. var self=this;
  211. return smalltalk.withContext(function($ctx1) { return "";
  212. }, function($ctx1) {$ctx1.fill(self,"definition",{}, smalltalk.Behavior)})},
  213. messageSends: []}),
  214. smalltalk.Behavior);
  215. smalltalk.addMethod(
  216. "_includesSelector_",
  217. smalltalk.method({
  218. selector: "includesSelector:",
  219. fn: function (aSymbol){
  220. var self=this;
  221. return smalltalk.withContext(function($ctx1) { var $1;
  222. $1=_st(_st(self)._methodDictionary())._includesKey_(_st(aSymbol)._asString());
  223. return $1;
  224. }, function($ctx1) {$ctx1.fill(self,"includesSelector:",{aSymbol:aSymbol}, smalltalk.Behavior)})},
  225. messageSends: ["includesKey:", "asString", "methodDictionary"]}),
  226. smalltalk.Behavior);
  227. smalltalk.addMethod(
  228. "_inheritsFrom_",
  229. smalltalk.method({
  230. selector: "inheritsFrom:",
  231. fn: function (aClass){
  232. var self=this;
  233. return smalltalk.withContext(function($ctx1) { var $1;
  234. $1=_st(_st(aClass)._allSubclasses())._includes_(self);
  235. return $1;
  236. }, function($ctx1) {$ctx1.fill(self,"inheritsFrom:",{aClass:aClass}, smalltalk.Behavior)})},
  237. messageSends: ["includes:", "allSubclasses"]}),
  238. smalltalk.Behavior);
  239. smalltalk.addMethod(
  240. "_instanceVariableNames",
  241. smalltalk.method({
  242. selector: "instanceVariableNames",
  243. fn: function (){
  244. var self=this;
  245. return smalltalk.withContext(function($ctx1) { return self.iVarNames;
  246. return self}, function($ctx1) {$ctx1.fill(self,"instanceVariableNames",{}, smalltalk.Behavior)})},
  247. messageSends: []}),
  248. smalltalk.Behavior);
  249. smalltalk.addMethod(
  250. "_lookupSelector_",
  251. smalltalk.method({
  252. selector: "lookupSelector:",
  253. fn: function (selector){
  254. var self=this;
  255. var lookupClass;
  256. return smalltalk.withContext(function($ctx1) { var $1,$2;
  257. var $early={};
  258. try {
  259. lookupClass=self;
  260. _st((function(){
  261. return smalltalk.withContext(function($ctx2) { return _st(lookupClass).__eq(nil);
  262. }, function($ctx2) {$ctx2.fillBlock({},$ctx1)})}))._whileFalse_((function(){
  263. return smalltalk.withContext(function($ctx2) { $1=_st(lookupClass)._includesSelector_(selector);
  264. if(smalltalk.assert($1)){
  265. $2=_st(lookupClass)._methodAt_(selector);
  266. throw $early=[$2];
  267. };
  268. lookupClass=_st(lookupClass)._superclass();
  269. return lookupClass;
  270. }, function($ctx2) {$ctx2.fillBlock({},$ctx1)})}));
  271. return nil;
  272. }
  273. catch(e) {if(e===$early)return e[0]; throw e}
  274. }, function($ctx1) {$ctx1.fill(self,"lookupSelector:",{selector:selector,lookupClass:lookupClass}, smalltalk.Behavior)})},
  275. messageSends: ["whileFalse:", "ifTrue:", "methodAt:", "includesSelector:", "superclass", "="]}),
  276. smalltalk.Behavior);
  277. smalltalk.addMethod(
  278. "_methodAt_",
  279. smalltalk.method({
  280. selector: "methodAt:",
  281. fn: function (aSymbol){
  282. var self=this;
  283. return smalltalk.withContext(function($ctx1) { var $1;
  284. $1=_st(_st(self)._methodDictionary())._at_(_st(aSymbol)._asString());
  285. return $1;
  286. }, function($ctx1) {$ctx1.fill(self,"methodAt:",{aSymbol:aSymbol}, smalltalk.Behavior)})},
  287. messageSends: ["at:", "asString", "methodDictionary"]}),
  288. smalltalk.Behavior);
  289. smalltalk.addMethod(
  290. "_methodDictionary",
  291. smalltalk.method({
  292. selector: "methodDictionary",
  293. fn: function (){
  294. var self=this;
  295. return smalltalk.withContext(function($ctx1) { var dict = smalltalk.HashedCollection._new();
  296. var methods = self.methods;
  297. for(var i in methods) {
  298. if(methods[i].selector) {
  299. dict._at_put_(methods[i].selector, methods[i]);
  300. }
  301. };
  302. return dict;
  303. return self}, function($ctx1) {$ctx1.fill(self,"methodDictionary",{}, smalltalk.Behavior)})},
  304. messageSends: []}),
  305. smalltalk.Behavior);
  306. smalltalk.addMethod(
  307. "_methods",
  308. smalltalk.method({
  309. selector: "methods",
  310. fn: function (){
  311. var self=this;
  312. return smalltalk.withContext(function($ctx1) { var $1;
  313. $1=_st(_st(self)._methodDictionary())._values();
  314. return $1;
  315. }, function($ctx1) {$ctx1.fill(self,"methods",{}, smalltalk.Behavior)})},
  316. messageSends: ["values", "methodDictionary"]}),
  317. smalltalk.Behavior);
  318. smalltalk.addMethod(
  319. "_methodsFor_",
  320. smalltalk.method({
  321. selector: "methodsFor:",
  322. fn: function (aString){
  323. var self=this;
  324. return smalltalk.withContext(function($ctx1) { var $2,$3,$1;
  325. $2=_st((smalltalk.ClassCategoryReader || ClassCategoryReader))._new();
  326. _st($2)._class_category_(self,aString);
  327. $3=_st($2)._yourself();
  328. $1=$3;
  329. return $1;
  330. }, function($ctx1) {$ctx1.fill(self,"methodsFor:",{aString:aString}, smalltalk.Behavior)})},
  331. messageSends: ["class:category:", "new", "yourself"]}),
  332. smalltalk.Behavior);
  333. smalltalk.addMethod(
  334. "_methodsFor_stamp_",
  335. smalltalk.method({
  336. selector: "methodsFor:stamp:",
  337. fn: function (aString,aStamp){
  338. var self=this;
  339. return smalltalk.withContext(function($ctx1) { var $1;
  340. $1=_st(self)._methodsFor_(aString);
  341. return $1;
  342. }, function($ctx1) {$ctx1.fill(self,"methodsFor:stamp:",{aString:aString,aStamp:aStamp}, smalltalk.Behavior)})},
  343. messageSends: ["methodsFor:"]}),
  344. smalltalk.Behavior);
  345. smalltalk.addMethod(
  346. "_methodsInProtocol_",
  347. smalltalk.method({
  348. selector: "methodsInProtocol:",
  349. fn: function (aString){
  350. var self=this;
  351. return smalltalk.withContext(function($ctx1) { var $1;
  352. $1=_st(_st(_st(self)._methodDictionary())._values())._select_((function(each){
  353. return smalltalk.withContext(function($ctx2) { return _st(_st(each)._protocol()).__eq(aString);
  354. }, function($ctx2) {$ctx2.fillBlock({each:each},$ctx1)})}));
  355. return $1;
  356. }, function($ctx1) {$ctx1.fill(self,"methodsInProtocol:",{aString:aString}, smalltalk.Behavior)})},
  357. messageSends: ["select:", "=", "protocol", "values", "methodDictionary"]}),
  358. smalltalk.Behavior);
  359. smalltalk.addMethod(
  360. "_name",
  361. smalltalk.method({
  362. selector: "name",
  363. fn: function (){
  364. var self=this;
  365. return smalltalk.withContext(function($ctx1) { return self.className || nil;
  366. return self}, function($ctx1) {$ctx1.fill(self,"name",{}, smalltalk.Behavior)})},
  367. messageSends: []}),
  368. smalltalk.Behavior);
  369. smalltalk.addMethod(
  370. "_new",
  371. smalltalk.method({
  372. selector: "new",
  373. fn: function (){
  374. var self=this;
  375. return smalltalk.withContext(function($ctx1) { var $1;
  376. $1=_st(_st(self)._basicNew())._initialize();
  377. return $1;
  378. }, function($ctx1) {$ctx1.fill(self,"new",{}, smalltalk.Behavior)})},
  379. messageSends: ["initialize", "basicNew"]}),
  380. smalltalk.Behavior);
  381. smalltalk.addMethod(
  382. "_organization",
  383. smalltalk.method({
  384. selector: "organization",
  385. fn: function (){
  386. var self=this;
  387. return smalltalk.withContext(function($ctx1) { var $1;
  388. $1=_st(self)._basicAt_("organization");
  389. return $1;
  390. }, function($ctx1) {$ctx1.fill(self,"organization",{}, smalltalk.Behavior)})},
  391. messageSends: ["basicAt:"]}),
  392. smalltalk.Behavior);
  393. smalltalk.addMethod(
  394. "_protocols",
  395. smalltalk.method({
  396. selector: "protocols",
  397. fn: function (){
  398. var self=this;
  399. return smalltalk.withContext(function($ctx1) { var $1;
  400. $1=_st(_st(_st(self)._organization())._elements())._sorted();
  401. return $1;
  402. }, function($ctx1) {$ctx1.fill(self,"protocols",{}, smalltalk.Behavior)})},
  403. messageSends: ["sorted", "elements", "organization"]}),
  404. smalltalk.Behavior);
  405. smalltalk.addMethod(
  406. "_protocolsDo_",
  407. smalltalk.method({
  408. selector: "protocolsDo:",
  409. fn: function (aBlock){
  410. var self=this;
  411. var methodsByCategory;
  412. return smalltalk.withContext(function($ctx1) { methodsByCategory=_st((smalltalk.HashedCollection || HashedCollection))._new();
  413. _st(_st(_st(self)._methodDictionary())._values())._do_((function(m){
  414. return smalltalk.withContext(function($ctx2) { return _st(_st(methodsByCategory)._at_ifAbsentPut_(_st(m)._category(),(function(){
  415. return smalltalk.withContext(function($ctx3) { return _st((smalltalk.Array || Array))._new();
  416. }, function($ctx3) {$ctx3.fillBlock({},$ctx1)})})))._add_(m);
  417. }, function($ctx2) {$ctx2.fillBlock({m:m},$ctx1)})}));
  418. _st(_st(self)._protocols())._do_((function(category){
  419. return smalltalk.withContext(function($ctx2) { return _st(aBlock)._value_value_(category,_st(methodsByCategory)._at_(category));
  420. }, function($ctx2) {$ctx2.fillBlock({category:category},$ctx1)})}));
  421. return self}, function($ctx1) {$ctx1.fill(self,"protocolsDo:",{aBlock:aBlock,methodsByCategory:methodsByCategory}, smalltalk.Behavior)})},
  422. messageSends: ["new", "do:", "add:", "at:ifAbsentPut:", "category", "values", "methodDictionary", "value:value:", "at:", "protocols"]}),
  423. smalltalk.Behavior);
  424. smalltalk.addMethod(
  425. "_prototype",
  426. smalltalk.method({
  427. selector: "prototype",
  428. fn: function (){
  429. var self=this;
  430. return smalltalk.withContext(function($ctx1) { return self.fn.prototype;
  431. return self}, function($ctx1) {$ctx1.fill(self,"prototype",{}, smalltalk.Behavior)})},
  432. messageSends: []}),
  433. smalltalk.Behavior);
  434. smalltalk.addMethod(
  435. "_removeCompiledMethod_",
  436. smalltalk.method({
  437. selector: "removeCompiledMethod:",
  438. fn: function (aMethod){
  439. var self=this;
  440. return smalltalk.withContext(function($ctx1) { var $1,$2;
  441. _st(self)._basicRemoveCompiledMethod_(aMethod);
  442. $1=_st((smalltalk.MethodRemoved || MethodRemoved))._new();
  443. _st($1)._theClass_(self);
  444. _st($1)._method_(aMethod);
  445. $2=_st($1)._yourself();
  446. _st(_st((smalltalk.SystemAnnouncer || SystemAnnouncer))._current())._announce_($2);
  447. return self}, function($ctx1) {$ctx1.fill(self,"removeCompiledMethod:",{aMethod:aMethod}, smalltalk.Behavior)})},
  448. messageSends: ["basicRemoveCompiledMethod:", "announce:", "theClass:", "new", "method:", "yourself", "current"]}),
  449. smalltalk.Behavior);
  450. smalltalk.addMethod(
  451. "_selectors",
  452. smalltalk.method({
  453. selector: "selectors",
  454. fn: function (){
  455. var self=this;
  456. return smalltalk.withContext(function($ctx1) { var $1;
  457. $1=_st(_st(self)._methodDictionary())._keys();
  458. return $1;
  459. }, function($ctx1) {$ctx1.fill(self,"selectors",{}, smalltalk.Behavior)})},
  460. messageSends: ["keys", "methodDictionary"]}),
  461. smalltalk.Behavior);
  462. smalltalk.addMethod(
  463. "_subclasses",
  464. smalltalk.method({
  465. selector: "subclasses",
  466. fn: function (){
  467. var self=this;
  468. return smalltalk.withContext(function($ctx1) { return smalltalk.subclasses(self);
  469. return self}, function($ctx1) {$ctx1.fill(self,"subclasses",{}, smalltalk.Behavior)})},
  470. messageSends: []}),
  471. smalltalk.Behavior);
  472. smalltalk.addMethod(
  473. "_superclass",
  474. smalltalk.method({
  475. selector: "superclass",
  476. fn: function (){
  477. var self=this;
  478. return smalltalk.withContext(function($ctx1) { return self.superclass || nil;
  479. return self}, function($ctx1) {$ctx1.fill(self,"superclass",{}, smalltalk.Behavior)})},
  480. messageSends: []}),
  481. smalltalk.Behavior);
  482. smalltalk.addMethod(
  483. "_theMetaClass",
  484. smalltalk.method({
  485. selector: "theMetaClass",
  486. fn: function (){
  487. var self=this;
  488. return smalltalk.withContext(function($ctx1) { var $1;
  489. $1=_st(self)._class();
  490. return $1;
  491. }, function($ctx1) {$ctx1.fill(self,"theMetaClass",{}, smalltalk.Behavior)})},
  492. messageSends: ["class"]}),
  493. smalltalk.Behavior);
  494. smalltalk.addMethod(
  495. "_theNonMetaClass",
  496. smalltalk.method({
  497. selector: "theNonMetaClass",
  498. fn: function (){
  499. var self=this;
  500. return smalltalk.withContext(function($ctx1) { var $1;
  501. $1=self;
  502. return $1;
  503. }, function($ctx1) {$ctx1.fill(self,"theNonMetaClass",{}, smalltalk.Behavior)})},
  504. messageSends: []}),
  505. smalltalk.Behavior);
  506. smalltalk.addMethod(
  507. "_withAllSubclasses",
  508. smalltalk.method({
  509. selector: "withAllSubclasses",
  510. fn: function (){
  511. var self=this;
  512. return smalltalk.withContext(function($ctx1) { var $2,$3,$1;
  513. $2=_st((smalltalk.Array || Array))._with_(self);
  514. _st($2)._addAll_(_st(self)._allSubclasses());
  515. $3=_st($2)._yourself();
  516. $1=$3;
  517. return $1;
  518. }, function($ctx1) {$ctx1.fill(self,"withAllSubclasses",{}, smalltalk.Behavior)})},
  519. messageSends: ["addAll:", "allSubclasses", "with:", "yourself"]}),
  520. smalltalk.Behavior);
  521. smalltalk.addClass('Class', smalltalk.Behavior, [], 'Kernel-Classes');
  522. smalltalk.addMethod(
  523. "_asJavascript",
  524. smalltalk.method({
  525. selector: "asJavascript",
  526. fn: function (){
  527. var self=this;
  528. return smalltalk.withContext(function($ctx1) { var $1;
  529. $1=_st("smalltalk.").__comma(_st(self)._name());
  530. return $1;
  531. }, function($ctx1) {$ctx1.fill(self,"asJavascript",{}, smalltalk.Class)})},
  532. messageSends: [",", "name"]}),
  533. smalltalk.Class);
  534. smalltalk.addMethod(
  535. "_category",
  536. smalltalk.method({
  537. selector: "category",
  538. fn: function (){
  539. var self=this;
  540. return smalltalk.withContext(function($ctx1) { var $2,$1;
  541. $2=_st(self)._package();
  542. if(($receiver = $2) == nil || $receiver == undefined){
  543. $1="Unclassified";
  544. } else {
  545. $1=_st(_st(self)._package())._name();
  546. };
  547. return $1;
  548. }, function($ctx1) {$ctx1.fill(self,"category",{}, smalltalk.Class)})},
  549. messageSends: ["ifNil:ifNotNil:", "name", "package"]}),
  550. smalltalk.Class);
  551. smalltalk.addMethod(
  552. "_definition",
  553. smalltalk.method({
  554. selector: "definition",
  555. fn: function (){
  556. var self=this;
  557. return smalltalk.withContext(function($ctx1) { var $2,$3,$4,$5,$1;
  558. $1=_st((smalltalk.String || String))._streamContents_((function(stream){
  559. return smalltalk.withContext(function($ctx2) { $2=stream;
  560. _st($2)._nextPutAll_(_st(_st(self)._superclass())._asString());
  561. _st($2)._nextPutAll_(" subclass: #");
  562. _st($2)._nextPutAll_(_st(self)._name());
  563. _st($2)._nextPutAll_(_st(_st((smalltalk.String || String))._lf()).__comma(_st((smalltalk.String || String))._tab()));
  564. $3=_st($2)._nextPutAll_("instanceVariableNames: '");
  565. $3;
  566. _st(_st(self)._instanceVariableNames())._do_separatedBy_((function(each){
  567. return smalltalk.withContext(function($ctx3) { return _st(stream)._nextPutAll_(each);
  568. }, function($ctx3) {$ctx3.fillBlock({each:each},$ctx1)})}),(function(){
  569. return smalltalk.withContext(function($ctx3) { return _st(stream)._nextPutAll_(" ");
  570. }, function($ctx3) {$ctx3.fillBlock({},$ctx1)})}));
  571. $4=stream;
  572. _st($4)._nextPutAll_(_st(_st("'").__comma(_st((smalltalk.String || String))._lf())).__comma(_st((smalltalk.String || String))._tab()));
  573. _st($4)._nextPutAll_("package: '");
  574. _st($4)._nextPutAll_(_st(self)._category());
  575. $5=_st($4)._nextPutAll_("'");
  576. return $5;
  577. }, function($ctx2) {$ctx2.fillBlock({stream:stream},$ctx1)})}));
  578. return $1;
  579. }, function($ctx1) {$ctx1.fill(self,"definition",{}, smalltalk.Class)})},
  580. messageSends: ["streamContents:", "nextPutAll:", "asString", "superclass", "name", ",", "tab", "lf", "do:separatedBy:", "instanceVariableNames", "category"]}),
  581. smalltalk.Class);
  582. smalltalk.addMethod(
  583. "_isClass",
  584. smalltalk.method({
  585. selector: "isClass",
  586. fn: function (){
  587. var self=this;
  588. return smalltalk.withContext(function($ctx1) { return true;
  589. }, function($ctx1) {$ctx1.fill(self,"isClass",{}, smalltalk.Class)})},
  590. messageSends: []}),
  591. smalltalk.Class);
  592. smalltalk.addMethod(
  593. "_package",
  594. smalltalk.method({
  595. selector: "package",
  596. fn: function (){
  597. var self=this;
  598. return smalltalk.withContext(function($ctx1) { return self.pkg;
  599. return self}, function($ctx1) {$ctx1.fill(self,"package",{}, smalltalk.Class)})},
  600. messageSends: []}),
  601. smalltalk.Class);
  602. smalltalk.addMethod(
  603. "_package_",
  604. smalltalk.method({
  605. selector: "package:",
  606. fn: function (aPackage){
  607. var self=this;
  608. return smalltalk.withContext(function($ctx1) { self.pkg = aPackage;
  609. return self}, function($ctx1) {$ctx1.fill(self,"package:",{aPackage:aPackage}, smalltalk.Class)})},
  610. messageSends: []}),
  611. smalltalk.Class);
  612. smalltalk.addMethod(
  613. "_printString",
  614. smalltalk.method({
  615. selector: "printString",
  616. fn: function (){
  617. var self=this;
  618. return smalltalk.withContext(function($ctx1) { var $1;
  619. $1=_st(self)._name();
  620. return $1;
  621. }, function($ctx1) {$ctx1.fill(self,"printString",{}, smalltalk.Class)})},
  622. messageSends: ["name"]}),
  623. smalltalk.Class);
  624. smalltalk.addMethod(
  625. "_rename_",
  626. smalltalk.method({
  627. selector: "rename:",
  628. fn: function (aString){
  629. var self=this;
  630. return smalltalk.withContext(function($ctx1) { _st(_st((smalltalk.ClassBuilder || ClassBuilder))._new())._renameClass_to_(self,aString);
  631. return self}, function($ctx1) {$ctx1.fill(self,"rename:",{aString:aString}, smalltalk.Class)})},
  632. messageSends: ["renameClass:to:", "new"]}),
  633. smalltalk.Class);
  634. smalltalk.addMethod(
  635. "_subclass_instanceVariableNames_",
  636. smalltalk.method({
  637. selector: "subclass:instanceVariableNames:",
  638. fn: function (aString,anotherString){
  639. var self=this;
  640. return smalltalk.withContext(function($ctx1) { var $1;
  641. $1=_st(self)._subclass_instanceVariableNames_package_(aString,anotherString,nil);
  642. return $1;
  643. }, function($ctx1) {$ctx1.fill(self,"subclass:instanceVariableNames:",{aString:aString,anotherString:anotherString}, smalltalk.Class)})},
  644. messageSends: ["subclass:instanceVariableNames:package:"]}),
  645. smalltalk.Class);
  646. smalltalk.addMethod(
  647. "_subclass_instanceVariableNames_category_",
  648. smalltalk.method({
  649. selector: "subclass:instanceVariableNames:category:",
  650. fn: function (aString,aString2,aString3){
  651. var self=this;
  652. return smalltalk.withContext(function($ctx1) { var $1;
  653. _st(self)._deprecatedAPI();
  654. $1=_st(self)._subclass_instanceVariableNames_package_(aString,aString2,aString3);
  655. return $1;
  656. }, function($ctx1) {$ctx1.fill(self,"subclass:instanceVariableNames:category:",{aString:aString,aString2:aString2,aString3:aString3}, smalltalk.Class)})},
  657. messageSends: ["deprecatedAPI", "subclass:instanceVariableNames:package:"]}),
  658. smalltalk.Class);
  659. smalltalk.addMethod(
  660. "_subclass_instanceVariableNames_classVariableNames_poolDictionaries_category_",
  661. smalltalk.method({
  662. selector: "subclass:instanceVariableNames:classVariableNames:poolDictionaries:category:",
  663. fn: function (aString,aString2,classVars,pools,aString3){
  664. var self=this;
  665. return smalltalk.withContext(function($ctx1) { var $1;
  666. $1=_st(self)._subclass_instanceVariableNames_package_(aString,aString2,aString3);
  667. return $1;
  668. }, function($ctx1) {$ctx1.fill(self,"subclass:instanceVariableNames:classVariableNames:poolDictionaries:category:",{aString:aString,aString2:aString2,classVars:classVars,pools:pools,aString3:aString3}, smalltalk.Class)})},
  669. messageSends: ["subclass:instanceVariableNames:package:"]}),
  670. smalltalk.Class);
  671. smalltalk.addMethod(
  672. "_subclass_instanceVariableNames_package_",
  673. smalltalk.method({
  674. selector: "subclass:instanceVariableNames:package:",
  675. fn: function (aString,aString2,aString3){
  676. var self=this;
  677. return smalltalk.withContext(function($ctx1) { var $1;
  678. $1=_st(_st((smalltalk.ClassBuilder || ClassBuilder))._new())._superclass_subclass_instanceVariableNames_package_(self,_st(aString)._asString(),aString2,aString3);
  679. return $1;
  680. }, function($ctx1) {$ctx1.fill(self,"subclass:instanceVariableNames:package:",{aString:aString,aString2:aString2,aString3:aString3}, smalltalk.Class)})},
  681. messageSends: ["superclass:subclass:instanceVariableNames:package:", "asString", "new"]}),
  682. smalltalk.Class);
  683. smalltalk.addClass('Metaclass', smalltalk.Behavior, [], 'Kernel-Classes');
  684. smalltalk.addMethod(
  685. "_asJavascript",
  686. smalltalk.method({
  687. selector: "asJavascript",
  688. fn: function (){
  689. var self=this;
  690. return smalltalk.withContext(function($ctx1) { var $1;
  691. $1=_st(_st("smalltalk.").__comma(_st(_st(self)._instanceClass())._name())).__comma(".klass");
  692. return $1;
  693. }, function($ctx1) {$ctx1.fill(self,"asJavascript",{}, smalltalk.Metaclass)})},
  694. messageSends: [",", "name", "instanceClass"]}),
  695. smalltalk.Metaclass);
  696. smalltalk.addMethod(
  697. "_definition",
  698. smalltalk.method({
  699. selector: "definition",
  700. fn: function (){
  701. var self=this;
  702. return smalltalk.withContext(function($ctx1) { var $2,$3,$1;
  703. $1=_st((smalltalk.String || String))._streamContents_((function(stream){
  704. return smalltalk.withContext(function($ctx2) { $2=stream;
  705. _st($2)._nextPutAll_(_st(self)._asString());
  706. _st($2)._nextPutAll_(" class ");
  707. $3=_st($2)._nextPutAll_("instanceVariableNames: '");
  708. $3;
  709. _st(_st(self)._instanceVariableNames())._do_separatedBy_((function(each){
  710. return smalltalk.withContext(function($ctx3) { return _st(stream)._nextPutAll_(each);
  711. }, function($ctx3) {$ctx3.fillBlock({each:each},$ctx1)})}),(function(){
  712. return smalltalk.withContext(function($ctx3) { return _st(stream)._nextPutAll_(" ");
  713. }, function($ctx3) {$ctx3.fillBlock({},$ctx1)})}));
  714. return _st(stream)._nextPutAll_("'");
  715. }, function($ctx2) {$ctx2.fillBlock({stream:stream},$ctx1)})}));
  716. return $1;
  717. }, function($ctx1) {$ctx1.fill(self,"definition",{}, smalltalk.Metaclass)})},
  718. messageSends: ["streamContents:", "nextPutAll:", "asString", "do:separatedBy:", "instanceVariableNames"]}),
  719. smalltalk.Metaclass);
  720. smalltalk.addMethod(
  721. "_instanceClass",
  722. smalltalk.method({
  723. selector: "instanceClass",
  724. fn: function (){
  725. var self=this;
  726. return smalltalk.withContext(function($ctx1) { return self.instanceClass;
  727. return self}, function($ctx1) {$ctx1.fill(self,"instanceClass",{}, smalltalk.Metaclass)})},
  728. messageSends: []}),
  729. smalltalk.Metaclass);
  730. smalltalk.addMethod(
  731. "_instanceVariableNames_",
  732. smalltalk.method({
  733. selector: "instanceVariableNames:",
  734. fn: function (aCollection){
  735. var self=this;
  736. return smalltalk.withContext(function($ctx1) { _st(_st((smalltalk.ClassBuilder || ClassBuilder))._new())._class_instanceVariableNames_(self,aCollection);
  737. return self}, function($ctx1) {$ctx1.fill(self,"instanceVariableNames:",{aCollection:aCollection}, smalltalk.Metaclass)})},
  738. messageSends: ["class:instanceVariableNames:", "new"]}),
  739. smalltalk.Metaclass);
  740. smalltalk.addMethod(
  741. "_isMetaclass",
  742. smalltalk.method({
  743. selector: "isMetaclass",
  744. fn: function (){
  745. var self=this;
  746. return smalltalk.withContext(function($ctx1) { return true;
  747. }, function($ctx1) {$ctx1.fill(self,"isMetaclass",{}, smalltalk.Metaclass)})},
  748. messageSends: []}),
  749. smalltalk.Metaclass);
  750. smalltalk.addMethod(
  751. "_printString",
  752. smalltalk.method({
  753. selector: "printString",
  754. fn: function (){
  755. var self=this;
  756. return smalltalk.withContext(function($ctx1) { var $1;
  757. $1=_st(_st(_st(self)._instanceClass())._name()).__comma(" class");
  758. return $1;
  759. }, function($ctx1) {$ctx1.fill(self,"printString",{}, smalltalk.Metaclass)})},
  760. messageSends: [",", "name", "instanceClass"]}),
  761. smalltalk.Metaclass);
  762. smalltalk.addMethod(
  763. "_theMetaClass",
  764. smalltalk.method({
  765. selector: "theMetaClass",
  766. fn: function (){
  767. var self=this;
  768. return smalltalk.withContext(function($ctx1) { var $1;
  769. $1=self;
  770. return $1;
  771. }, function($ctx1) {$ctx1.fill(self,"theMetaClass",{}, smalltalk.Metaclass)})},
  772. messageSends: []}),
  773. smalltalk.Metaclass);
  774. smalltalk.addMethod(
  775. "_theNonMetaClass",
  776. smalltalk.method({
  777. selector: "theNonMetaClass",
  778. fn: function (){
  779. var self=this;
  780. return smalltalk.withContext(function($ctx1) { var $1;
  781. $1=_st(self)._instanceClass();
  782. return $1;
  783. }, function($ctx1) {$ctx1.fill(self,"theNonMetaClass",{}, smalltalk.Metaclass)})},
  784. messageSends: ["instanceClass"]}),
  785. smalltalk.Metaclass);
  786. smalltalk.addClass('ClassBuilder', smalltalk.Object, [], 'Kernel-Classes');
  787. smalltalk.addMethod(
  788. "_addSubclassOf_named_instanceVariableNames_package_",
  789. smalltalk.method({
  790. selector: "addSubclassOf:named:instanceVariableNames:package:",
  791. fn: function (aClass,aString,aCollection,packageName){
  792. var self=this;
  793. var theClass;
  794. return smalltalk.withContext(function($ctx1) { var $1,$2,$3,$4;
  795. theClass=_st(_st((smalltalk.Smalltalk || Smalltalk))._current())._at_(aString);
  796. $1=theClass;
  797. if(($receiver = $1) == nil || $receiver == undefined){
  798. $1;
  799. } else {
  800. $2=_st(_st(theClass)._superclass()).__eq_eq(aClass);
  801. if(! smalltalk.assert($2)){
  802. $3=_st(self)._migrateClassNamed_superclass_instanceVariableNames_package_(aString,aClass,aCollection,packageName);
  803. return $3;
  804. };
  805. };
  806. $4=_st(self)._basicAddSubclassOf_named_instanceVariableNames_package_(aClass,aString,aCollection,packageName);
  807. return $4;
  808. }, function($ctx1) {$ctx1.fill(self,"addSubclassOf:named:instanceVariableNames:package:",{aClass:aClass,aString:aString,aCollection:aCollection,packageName:packageName,theClass:theClass}, smalltalk.ClassBuilder)})},
  809. messageSends: ["at:", "current", "ifNotNil:", "ifFalse:", "migrateClassNamed:superclass:instanceVariableNames:package:", "==", "superclass", "basicAddSubclassOf:named:instanceVariableNames:package:"]}),
  810. smalltalk.ClassBuilder);
  811. smalltalk.addMethod(
  812. "_basicAddSubclassOf_named_instanceVariableNames_package_",
  813. smalltalk.method({
  814. selector: "basicAddSubclassOf:named:instanceVariableNames:package:",
  815. fn: function (aClass,aString,aCollection,packageName){
  816. var self=this;
  817. return smalltalk.withContext(function($ctx1) {
  818. smalltalk.addClass(aString, aClass, aCollection, packageName);
  819. return smalltalk[aString]
  820. ;
  821. return self}, function($ctx1) {$ctx1.fill(self,"basicAddSubclassOf:named:instanceVariableNames:package:",{aClass:aClass,aString:aString,aCollection:aCollection,packageName:packageName}, smalltalk.ClassBuilder)})},
  822. messageSends: []}),
  823. smalltalk.ClassBuilder);
  824. smalltalk.addMethod(
  825. "_basicClass_instanceVariableNames_",
  826. smalltalk.method({
  827. selector: "basicClass:instanceVariableNames:",
  828. fn: function (aClass,aString){
  829. var self=this;
  830. return smalltalk.withContext(function($ctx1) { _st(self)._basicClass_instanceVariables_(aClass,_st(self)._instanceVariableNamesFor_(aString));
  831. return self}, function($ctx1) {$ctx1.fill(self,"basicClass:instanceVariableNames:",{aClass:aClass,aString:aString}, smalltalk.ClassBuilder)})},
  832. messageSends: ["basicClass:instanceVariables:", "instanceVariableNamesFor:"]}),
  833. smalltalk.ClassBuilder);
  834. smalltalk.addMethod(
  835. "_basicClass_instanceVariables_",
  836. smalltalk.method({
  837. selector: "basicClass:instanceVariables:",
  838. fn: function (aClass,aCollection){
  839. var self=this;
  840. return smalltalk.withContext(function($ctx1) { var $1;
  841. $1=_st(aClass)._isMetaclass();
  842. if(! smalltalk.assert($1)){
  843. _st(self)._error_(_st(_st(aClass)._name()).__comma(" is not a metaclass"));
  844. };
  845. _st(aClass)._basicAt_put_("iVarNames",aCollection);
  846. return self}, function($ctx1) {$ctx1.fill(self,"basicClass:instanceVariables:",{aClass:aClass,aCollection:aCollection}, smalltalk.ClassBuilder)})},
  847. messageSends: ["ifFalse:", "error:", ",", "name", "isMetaclass", "basicAt:put:"]}),
  848. smalltalk.ClassBuilder);
  849. smalltalk.addMethod(
  850. "_basicRemoveClass_",
  851. smalltalk.method({
  852. selector: "basicRemoveClass:",
  853. fn: function (aClass){
  854. var self=this;
  855. return smalltalk.withContext(function($ctx1) { smalltalk.removeClass(aClass);
  856. return self}, function($ctx1) {$ctx1.fill(self,"basicRemoveClass:",{aClass:aClass}, smalltalk.ClassBuilder)})},
  857. messageSends: []}),
  858. smalltalk.ClassBuilder);
  859. smalltalk.addMethod(
  860. "_basicRenameClass_to_",
  861. smalltalk.method({
  862. selector: "basicRenameClass:to:",
  863. fn: function (aClass,aString){
  864. var self=this;
  865. return smalltalk.withContext(function($ctx1) {
  866. smalltalk[aString] = aClass;
  867. delete smalltalk[aClass.className];
  868. aClass.className = aString;
  869. ;
  870. return self}, function($ctx1) {$ctx1.fill(self,"basicRenameClass:to:",{aClass:aClass,aString:aString}, smalltalk.ClassBuilder)})},
  871. messageSends: []}),
  872. smalltalk.ClassBuilder);
  873. smalltalk.addMethod(
  874. "_basicSwapClassNames_with_",
  875. smalltalk.method({
  876. selector: "basicSwapClassNames:with:",
  877. fn: function (aClass,anotherClass){
  878. var self=this;
  879. return smalltalk.withContext(function($ctx1) {
  880. var tmp = aClass.className;
  881. aClass.className = anotherClass.className;
  882. anotherClass.className = tmp;
  883. ;
  884. return self}, function($ctx1) {$ctx1.fill(self,"basicSwapClassNames:with:",{aClass:aClass,anotherClass:anotherClass}, smalltalk.ClassBuilder)})},
  885. messageSends: []}),
  886. smalltalk.ClassBuilder);
  887. smalltalk.addMethod(
  888. "_class_instanceVariableNames_",
  889. smalltalk.method({
  890. selector: "class:instanceVariableNames:",
  891. fn: function (aClass,aString){
  892. var self=this;
  893. return smalltalk.withContext(function($ctx1) { var $1,$2;
  894. _st(self)._basicClass_instanceVariableNames_(aClass,aString);
  895. _st(self)._setupClass_(aClass);
  896. $1=_st((smalltalk.ClassDefinitionChanged || ClassDefinitionChanged))._new();
  897. _st($1)._theClass_(aClass);
  898. $2=_st($1)._yourself();
  899. _st(_st((smalltalk.SystemAnnouncer || SystemAnnouncer))._current())._announce_($2);
  900. return self}, function($ctx1) {$ctx1.fill(self,"class:instanceVariableNames:",{aClass:aClass,aString:aString}, smalltalk.ClassBuilder)})},
  901. messageSends: ["basicClass:instanceVariableNames:", "setupClass:", "announce:", "theClass:", "new", "yourself", "current"]}),
  902. smalltalk.ClassBuilder);
  903. smalltalk.addMethod(
  904. "_copyClass_named_",
  905. smalltalk.method({
  906. selector: "copyClass:named:",
  907. fn: function (aClass,aString){
  908. var self=this;
  909. var newClass;
  910. return smalltalk.withContext(function($ctx1) { var $1;
  911. newClass=_st(self)._addSubclassOf_named_instanceVariableNames_package_(_st(aClass)._superclass(),aString,_st(aClass)._instanceVariableNames(),_st(_st(aClass)._package())._name());
  912. _st(self)._copyClass_to_(aClass,newClass);
  913. $1=newClass;
  914. return $1;
  915. }, function($ctx1) {$ctx1.fill(self,"copyClass:named:",{aClass:aClass,aString:aString,newClass:newClass}, smalltalk.ClassBuilder)})},
  916. messageSends: ["addSubclassOf:named:instanceVariableNames:package:", "superclass", "instanceVariableNames", "name", "package", "copyClass:to:"]}),
  917. smalltalk.ClassBuilder);
  918. smalltalk.addMethod(
  919. "_copyClass_to_",
  920. smalltalk.method({
  921. selector: "copyClass:to:",
  922. fn: function (aClass,anotherClass){
  923. var self=this;
  924. return smalltalk.withContext(function($ctx1) { _st(anotherClass)._comment_(_st(aClass)._comment());
  925. _st(_st(_st(aClass)._methodDictionary())._values())._do_((function(each){
  926. return smalltalk.withContext(function($ctx2) { return _st(_st((smalltalk.Compiler || Compiler))._new())._install_forClass_category_(_st(each)._source(),anotherClass,_st(each)._category());
  927. }, function($ctx2) {$ctx2.fillBlock({each:each},$ctx1)})}));
  928. _st(self)._basicClass_instanceVariables_(_st(anotherClass)._class(),_st(_st(aClass)._class())._instanceVariableNames());
  929. _st(_st(_st(_st(aClass)._class())._methodDictionary())._values())._do_((function(each){
  930. return smalltalk.withContext(function($ctx2) { return _st(_st((smalltalk.Compiler || Compiler))._new())._install_forClass_category_(_st(each)._source(),_st(anotherClass)._class(),_st(each)._category());
  931. }, function($ctx2) {$ctx2.fillBlock({each:each},$ctx1)})}));
  932. _st(self)._setupClass_(anotherClass);
  933. return self}, function($ctx1) {$ctx1.fill(self,"copyClass:to:",{aClass:aClass,anotherClass:anotherClass}, smalltalk.ClassBuilder)})},
  934. messageSends: ["comment:", "comment", "do:", "install:forClass:category:", "source", "category", "new", "values", "methodDictionary", "basicClass:instanceVariables:", "class", "instanceVariableNames", "setupClass:"]}),
  935. smalltalk.ClassBuilder);
  936. smalltalk.addMethod(
  937. "_installMethod_forClass_category_",
  938. smalltalk.method({
  939. selector: "installMethod:forClass:category:",
  940. fn: function (aCompiledMethod,aBehavior,aString){
  941. var self=this;
  942. return smalltalk.withContext(function($ctx1) { var $1;
  943. _st(aCompiledMethod)._category_(aString);
  944. _st(aBehavior)._addCompiledMethod_(aCompiledMethod);
  945. _st(self)._setupClass_(aBehavior);
  946. $1=aCompiledMethod;
  947. return $1;
  948. }, function($ctx1) {$ctx1.fill(self,"installMethod:forClass:category:",{aCompiledMethod:aCompiledMethod,aBehavior:aBehavior,aString:aString}, smalltalk.ClassBuilder)})},
  949. messageSends: ["category:", "addCompiledMethod:", "setupClass:"]}),
  950. smalltalk.ClassBuilder);
  951. smalltalk.addMethod(
  952. "_instanceVariableNamesFor_",
  953. smalltalk.method({
  954. selector: "instanceVariableNamesFor:",
  955. fn: function (aString){
  956. var self=this;
  957. return smalltalk.withContext(function($ctx1) { var $1;
  958. $1=_st(_st(aString)._tokenize_(" "))._reject_((function(each){
  959. return smalltalk.withContext(function($ctx2) { return _st(each)._isEmpty();
  960. }, function($ctx2) {$ctx2.fillBlock({each:each},$ctx1)})}));
  961. return $1;
  962. }, function($ctx1) {$ctx1.fill(self,"instanceVariableNamesFor:",{aString:aString}, smalltalk.ClassBuilder)})},
  963. messageSends: ["reject:", "isEmpty", "tokenize:"]}),
  964. smalltalk.ClassBuilder);
  965. smalltalk.addMethod(
  966. "_migrateClass_superclass_",
  967. smalltalk.method({
  968. selector: "migrateClass:superclass:",
  969. fn: function (aClass,anotherClass){
  970. var self=this;
  971. return smalltalk.withContext(function($ctx1) { _st(console)._log_(_st(aClass)._name());
  972. _st(self)._migrateClassNamed_superclass_instanceVariableNames_package_(_st(aClass)._name(),anotherClass,_st(aClass)._instanceVariableNames(),_st(_st(aClass)._package())._name());
  973. return self}, function($ctx1) {$ctx1.fill(self,"migrateClass:superclass:",{aClass:aClass,anotherClass:anotherClass}, smalltalk.ClassBuilder)})},
  974. messageSends: ["log:", "name", "migrateClassNamed:superclass:instanceVariableNames:package:", "instanceVariableNames", "package"]}),
  975. smalltalk.ClassBuilder);
  976. smalltalk.addMethod(
  977. "_migrateClassNamed_superclass_instanceVariableNames_package_",
  978. smalltalk.method({
  979. selector: "migrateClassNamed:superclass:instanceVariableNames:package:",
  980. fn: function (aString,aClass,aCollection,packageName){
  981. var self=this;
  982. var oldClass,newClass,tmp;
  983. return smalltalk.withContext(function($ctx1) { var $1,$2,$3,$4,$5;
  984. tmp=_st("new*").__comma(aString);
  985. oldClass=_st(_st((smalltalk.Smalltalk || Smalltalk))._current())._at_(aString);
  986. newClass=_st(self)._addSubclassOf_named_instanceVariableNames_package_(aClass,tmp,aCollection,packageName);
  987. _st(self)._basicSwapClassNames_with_(oldClass,newClass);
  988. _st((function(){
  989. return smalltalk.withContext(function($ctx2) { return _st(self)._copyClass_to_(oldClass,newClass);
  990. }, function($ctx2) {$ctx2.fillBlock({},$ctx1)})}))._on_do_((smalltalk.Error || Error),(function(exception){
  991. return smalltalk.withContext(function($ctx2) { $1=self;
  992. _st($1)._basicSwapClassNames_with_(oldClass,newClass);
  993. $2=_st($1)._basicRemoveClass_(newClass);
  994. $2;
  995. return _st(exception)._signal();
  996. }, function($ctx2) {$ctx2.fillBlock({exception:exception},$ctx1)})}));
  997. $3=self;
  998. _st($3)._rawRenameClass_to_(oldClass,tmp);
  999. $4=_st($3)._rawRenameClass_to_(newClass,aString);
  1000. _st(_st(oldClass)._subclasses())._do_((function(each){
  1001. return smalltalk.withContext(function($ctx2) { return _st(self)._migrateClass_superclass_(each,newClass);
  1002. }, function($ctx2) {$ctx2.fillBlock({each:each},$ctx1)})}));
  1003. _st(self)._basicRemoveClass_(oldClass);
  1004. $5=newClass;
  1005. return $5;
  1006. }, function($ctx1) {$ctx1.fill(self,"migrateClassNamed:superclass:instanceVariableNames:package:",{aString:aString,aClass:aClass,aCollection:aCollection,packageName:packageName,oldClass:oldClass,newClass:newClass,tmp:tmp}, smalltalk.ClassBuilder)})},
  1007. messageSends: [",", "at:", "current", "addSubclassOf:named:instanceVariableNames:package:", "basicSwapClassNames:with:", "on:do:", "basicRemoveClass:", "signal", "copyClass:to:", "rawRenameClass:to:", "do:", "migrateClass:superclass:", "subclasses"]}),
  1008. smalltalk.ClassBuilder);
  1009. smalltalk.addMethod(
  1010. "_rawRenameClass_to_",
  1011. smalltalk.method({
  1012. selector: "rawRenameClass:to:",
  1013. fn: function (aClass,aString){
  1014. var self=this;
  1015. return smalltalk.withContext(function($ctx1) {
  1016. smalltalk[aString] = aClass;
  1017. ;
  1018. return self}, function($ctx1) {$ctx1.fill(self,"rawRenameClass:to:",{aClass:aClass,aString:aString}, smalltalk.ClassBuilder)})},
  1019. messageSends: []}),
  1020. smalltalk.ClassBuilder);
  1021. smalltalk.addMethod(
  1022. "_renameClass_to_",
  1023. smalltalk.method({
  1024. selector: "renameClass:to:",
  1025. fn: function (aClass,aString){
  1026. var self=this;
  1027. return smalltalk.withContext(function($ctx1) { var $1,$2;
  1028. _st(self)._basicRenameClass_to_(aClass,aString);
  1029. $1=_st((smalltalk.ClassRenamed || ClassRenamed))._new();
  1030. _st($1)._theClass_(aClass);
  1031. $2=_st($1)._yourself();
  1032. _st(_st((smalltalk.SystemAnnouncer || SystemAnnouncer))._current())._announce_($2);
  1033. return self}, function($ctx1) {$ctx1.fill(self,"renameClass:to:",{aClass:aClass,aString:aString}, smalltalk.ClassBuilder)})},
  1034. messageSends: ["basicRenameClass:to:", "announce:", "theClass:", "new", "yourself", "current"]}),
  1035. smalltalk.ClassBuilder);
  1036. smalltalk.addMethod(
  1037. "_setupClass_",
  1038. smalltalk.method({
  1039. selector: "setupClass:",
  1040. fn: function (aClass){
  1041. var self=this;
  1042. return smalltalk.withContext(function($ctx1) { smalltalk.init(aClass);;
  1043. return self}, function($ctx1) {$ctx1.fill(self,"setupClass:",{aClass:aClass}, smalltalk.ClassBuilder)})},
  1044. messageSends: []}),
  1045. smalltalk.ClassBuilder);
  1046. smalltalk.addMethod(
  1047. "_superclass_subclass_",
  1048. smalltalk.method({
  1049. selector: "superclass:subclass:",
  1050. fn: function (aClass,aString){
  1051. var self=this;
  1052. return smalltalk.withContext(function($ctx1) { var $1;
  1053. $1=_st(self)._superclass_subclass_instanceVariableNames_package_(aClass,aString,"",nil);
  1054. return $1;
  1055. }, function($ctx1) {$ctx1.fill(self,"superclass:subclass:",{aClass:aClass,aString:aString}, smalltalk.ClassBuilder)})},
  1056. messageSends: ["superclass:subclass:instanceVariableNames:package:"]}),
  1057. smalltalk.ClassBuilder);
  1058. smalltalk.addMethod(
  1059. "_superclass_subclass_instanceVariableNames_package_",
  1060. smalltalk.method({
  1061. selector: "superclass:subclass:instanceVariableNames:package:",
  1062. fn: function (aClass,aString,aString2,aString3){
  1063. var self=this;
  1064. var newClass;
  1065. return smalltalk.withContext(function($ctx1) { var $1,$2,$3,$4,$6,$5,$7,$8,$9;
  1066. $1=self;
  1067. $2=aClass;
  1068. $3=aString;
  1069. $4=_st(self)._instanceVariableNamesFor_(aString2);
  1070. $6=aString3;
  1071. if(($receiver = $6) == nil || $receiver == undefined){
  1072. $5="unclassified";
  1073. } else {
  1074. $5=$6;
  1075. };
  1076. newClass=_st($1)._addSubclassOf_named_instanceVariableNames_package_($2,$3,$4,$5);
  1077. _st(self)._setupClass_(newClass);
  1078. $7=_st((smalltalk.ClassAdded || ClassAdded))._new();
  1079. _st($7)._theClass_(newClass);
  1080. $8=_st($7)._yourself();
  1081. _st(_st((smalltalk.SystemAnnouncer || SystemAnnouncer))._current())._announce_($8);
  1082. $9=newClass;
  1083. return $9;
  1084. }, function($ctx1) {$ctx1.fill(self,"superclass:subclass:instanceVariableNames:package:",{aClass:aClass,aString:aString,aString2:aString2,aString3:aString3,newClass:newClass}, smalltalk.ClassBuilder)})},
  1085. messageSends: ["addSubclassOf:named:instanceVariableNames:package:", "instanceVariableNamesFor:", "ifNil:", "setupClass:", "announce:", "theClass:", "new", "yourself", "current"]}),
  1086. smalltalk.ClassBuilder);
  1087. smalltalk.addClass('ClassCategoryReader', smalltalk.Object, ['class', 'category'], 'Kernel-Classes');
  1088. smalltalk.addMethod(
  1089. "_class_category_",
  1090. smalltalk.method({
  1091. selector: "class:category:",
  1092. fn: function (aClass,aString){
  1093. var self=this;
  1094. return smalltalk.withContext(function($ctx1) { self["@class"]=aClass;
  1095. self["@category"]=aString;
  1096. return self}, function($ctx1) {$ctx1.fill(self,"class:category:",{aClass:aClass,aString:aString}, smalltalk.ClassCategoryReader)})},
  1097. messageSends: []}),
  1098. smalltalk.ClassCategoryReader);
  1099. smalltalk.addMethod(
  1100. "_compileMethod_",
  1101. smalltalk.method({
  1102. selector: "compileMethod:",
  1103. fn: function (aString){
  1104. var self=this;
  1105. return smalltalk.withContext(function($ctx1) { _st(_st((smalltalk.Compiler || Compiler))._new())._install_forClass_category_(aString,self["@class"],self["@category"]);
  1106. return self}, function($ctx1) {$ctx1.fill(self,"compileMethod:",{aString:aString}, smalltalk.ClassCategoryReader)})},
  1107. messageSends: ["install:forClass:category:", "new"]}),
  1108. smalltalk.ClassCategoryReader);
  1109. smalltalk.addMethod(
  1110. "_initialize",
  1111. smalltalk.method({
  1112. selector: "initialize",
  1113. fn: function (){
  1114. var self=this;
  1115. return smalltalk.withContext(function($ctx1) { smalltalk.Object.fn.prototype._initialize.apply(_st(self), []);
  1116. return self}, function($ctx1) {$ctx1.fill(self,"initialize",{}, smalltalk.ClassCategoryReader)})},
  1117. messageSends: ["initialize"]}),
  1118. smalltalk.ClassCategoryReader);
  1119. smalltalk.addMethod(
  1120. "_scanFrom_",
  1121. smalltalk.method({
  1122. selector: "scanFrom:",
  1123. fn: function (aChunkParser){
  1124. var self=this;
  1125. var chunk;
  1126. return smalltalk.withContext(function($ctx1) { _st((function(){
  1127. return smalltalk.withContext(function($ctx2) { chunk=_st(aChunkParser)._nextChunk();
  1128. chunk;
  1129. return _st(chunk)._isEmpty();
  1130. }, function($ctx2) {$ctx2.fillBlock({},$ctx1)})}))._whileFalse_((function(){
  1131. return smalltalk.withContext(function($ctx2) { return _st(self)._compileMethod_(chunk);
  1132. }, function($ctx2) {$ctx2.fillBlock({},$ctx1)})}));
  1133. _st(_st((smalltalk.ClassBuilder || ClassBuilder))._new())._setupClass_(self["@class"]);
  1134. return self}, function($ctx1) {$ctx1.fill(self,"scanFrom:",{aChunkParser:aChunkParser,chunk:chunk}, smalltalk.ClassCategoryReader)})},
  1135. messageSends: ["whileFalse:", "compileMethod:", "nextChunk", "isEmpty", "setupClass:", "new"]}),
  1136. smalltalk.ClassCategoryReader);
  1137. smalltalk.addClass('ClassCommentReader', smalltalk.Object, ['class'], 'Kernel-Classes');
  1138. smalltalk.addMethod(
  1139. "_class_",
  1140. smalltalk.method({
  1141. selector: "class:",
  1142. fn: function (aClass){
  1143. var self=this;
  1144. return smalltalk.withContext(function($ctx1) { self["@class"]=aClass;
  1145. return self}, function($ctx1) {$ctx1.fill(self,"class:",{aClass:aClass}, smalltalk.ClassCommentReader)})},
  1146. messageSends: []}),
  1147. smalltalk.ClassCommentReader);
  1148. smalltalk.addMethod(
  1149. "_initialize",
  1150. smalltalk.method({
  1151. selector: "initialize",
  1152. fn: function (){
  1153. var self=this;
  1154. return smalltalk.withContext(function($ctx1) { smalltalk.Object.fn.prototype._initialize.apply(_st(self), []);
  1155. return self}, function($ctx1) {$ctx1.fill(self,"initialize",{}, smalltalk.ClassCommentReader)})},
  1156. messageSends: ["initialize"]}),
  1157. smalltalk.ClassCommentReader);
  1158. smalltalk.addMethod(
  1159. "_scanFrom_",
  1160. smalltalk.method({
  1161. selector: "scanFrom:",
  1162. fn: function (aChunkParser){
  1163. var self=this;
  1164. var chunk;
  1165. return smalltalk.withContext(function($ctx1) { var $1;
  1166. chunk=_st(aChunkParser)._nextChunk();
  1167. $1=_st(chunk)._isEmpty();
  1168. if(! smalltalk.assert($1)){
  1169. _st(self)._setComment_(chunk);
  1170. };
  1171. return self}, function($ctx1) {$ctx1.fill(self,"scanFrom:",{aChunkParser:aChunkParser,chunk:chunk}, smalltalk.ClassCommentReader)})},
  1172. messageSends: ["nextChunk", "ifFalse:", "setComment:", "isEmpty"]}),
  1173. smalltalk.ClassCommentReader);
  1174. smalltalk.addMethod(
  1175. "_setComment_",
  1176. smalltalk.method({
  1177. selector: "setComment:",
  1178. fn: function (aString){
  1179. var self=this;
  1180. return smalltalk.withContext(function($ctx1) { _st(self["@class"])._comment_(aString);
  1181. return self}, function($ctx1) {$ctx1.fill(self,"setComment:",{aString:aString}, smalltalk.ClassCommentReader)})},
  1182. messageSends: ["comment:"]}),
  1183. smalltalk.ClassCommentReader);
  1184. smalltalk.addClass('ClassSorterNode', smalltalk.Object, ['theClass', 'level', 'nodes'], 'Kernel-Classes');
  1185. smalltalk.addMethod(
  1186. "_getNodesFrom_",
  1187. smalltalk.method({
  1188. selector: "getNodesFrom:",
  1189. fn: function (aCollection){
  1190. var self=this;
  1191. var children,others;
  1192. return smalltalk.withContext(function($ctx1) { var $1;
  1193. children=[];
  1194. others=[];
  1195. _st(aCollection)._do_((function(each){
  1196. return smalltalk.withContext(function($ctx2) { $1=_st(_st(each)._superclass()).__eq(_st(self)._theClass());
  1197. if(smalltalk.assert($1)){
  1198. return _st(children)._add_(each);
  1199. } else {
  1200. return _st(others)._add_(each);
  1201. };
  1202. }, function($ctx2) {$ctx2.fillBlock({each:each},$ctx1)})}));
  1203. self["@nodes"]=_st(children)._collect_((function(each){
  1204. return smalltalk.withContext(function($ctx2) { return _st((smalltalk.ClassSorterNode || ClassSorterNode))._on_classes_level_(each,others,_st(_st(self)._level()).__plus((1)));
  1205. }, function($ctx2) {$ctx2.fillBlock({each:each},$ctx1)})}));
  1206. return self}, function($ctx1) {$ctx1.fill(self,"getNodesFrom:",{aCollection:aCollection,children:children,others:others}, smalltalk.ClassSorterNode)})},
  1207. messageSends: ["do:", "ifTrue:ifFalse:", "add:", "=", "theClass", "superclass", "collect:", "on:classes:level:", "+", "level"]}),
  1208. smalltalk.ClassSorterNode);
  1209. smalltalk.addMethod(
  1210. "_level",
  1211. smalltalk.method({
  1212. selector: "level",
  1213. fn: function (){
  1214. var self=this;
  1215. return smalltalk.withContext(function($ctx1) { var $1;
  1216. $1=self["@level"];
  1217. return $1;
  1218. }, function($ctx1) {$ctx1.fill(self,"level",{}, smalltalk.ClassSorterNode)})},
  1219. messageSends: []}),
  1220. smalltalk.ClassSorterNode);
  1221. smalltalk.addMethod(
  1222. "_level_",
  1223. smalltalk.method({
  1224. selector: "level:",
  1225. fn: function (anInteger){
  1226. var self=this;
  1227. return smalltalk.withContext(function($ctx1) { self["@level"]=anInteger;
  1228. return self}, function($ctx1) {$ctx1.fill(self,"level:",{anInteger:anInteger}, smalltalk.ClassSorterNode)})},
  1229. messageSends: []}),
  1230. smalltalk.ClassSorterNode);
  1231. smalltalk.addMethod(
  1232. "_nodes",
  1233. smalltalk.method({
  1234. selector: "nodes",
  1235. fn: function (){
  1236. var self=this;
  1237. return smalltalk.withContext(function($ctx1) { var $1;
  1238. $1=self["@nodes"];
  1239. return $1;
  1240. }, function($ctx1) {$ctx1.fill(self,"nodes",{}, smalltalk.ClassSorterNode)})},
  1241. messageSends: []}),
  1242. smalltalk.ClassSorterNode);
  1243. smalltalk.addMethod(
  1244. "_theClass",
  1245. smalltalk.method({
  1246. selector: "theClass",
  1247. fn: function (){
  1248. var self=this;
  1249. return smalltalk.withContext(function($ctx1) { var $1;
  1250. $1=self["@theClass"];
  1251. return $1;
  1252. }, function($ctx1) {$ctx1.fill(self,"theClass",{}, smalltalk.ClassSorterNode)})},
  1253. messageSends: []}),
  1254. smalltalk.ClassSorterNode);
  1255. smalltalk.addMethod(
  1256. "_theClass_",
  1257. smalltalk.method({
  1258. selector: "theClass:",
  1259. fn: function (aClass){
  1260. var self=this;
  1261. return smalltalk.withContext(function($ctx1) { self["@theClass"]=aClass;
  1262. return self}, function($ctx1) {$ctx1.fill(self,"theClass:",{aClass:aClass}, smalltalk.ClassSorterNode)})},
  1263. messageSends: []}),
  1264. smalltalk.ClassSorterNode);
  1265. smalltalk.addMethod(
  1266. "_traverseClassesWith_",
  1267. smalltalk.method({
  1268. selector: "traverseClassesWith:",
  1269. fn: function (aCollection){
  1270. var self=this;
  1271. return smalltalk.withContext(function($ctx1) { _st(aCollection)._add_(_st(self)._theClass());
  1272. _st(_st(_st(self)._nodes())._sorted_((function(a,b){
  1273. return smalltalk.withContext(function($ctx2) { return _st(_st(_st(a)._theClass())._name()).__lt_eq(_st(_st(b)._theClass())._name());
  1274. }, function($ctx2) {$ctx2.fillBlock({a:a,b:b},$ctx1)})})))._do_((function(aNode){
  1275. return smalltalk.withContext(function($ctx2) { return _st(aNode)._traverseClassesWith_(aCollection);
  1276. }, function($ctx2) {$ctx2.fillBlock({aNode:aNode},$ctx1)})}));
  1277. return self}, function($ctx1) {$ctx1.fill(self,"traverseClassesWith:",{aCollection:aCollection}, smalltalk.ClassSorterNode)})},
  1278. messageSends: ["add:", "theClass", "do:", "traverseClassesWith:", "sorted:", "<=", "name", "nodes"]}),
  1279. smalltalk.ClassSorterNode);
  1280. smalltalk.addMethod(
  1281. "_on_classes_level_",
  1282. smalltalk.method({
  1283. selector: "on:classes:level:",
  1284. fn: function (aClass,aCollection,anInteger){
  1285. var self=this;
  1286. return smalltalk.withContext(function($ctx1) { var $2,$3,$1;
  1287. $2=_st(self)._new();
  1288. _st($2)._theClass_(aClass);
  1289. _st($2)._level_(anInteger);
  1290. _st($2)._getNodesFrom_(aCollection);
  1291. $3=_st($2)._yourself();
  1292. $1=$3;
  1293. return $1;
  1294. }, function($ctx1) {$ctx1.fill(self,"on:classes:level:",{aClass:aClass,aCollection:aCollection,anInteger:anInteger}, smalltalk.ClassSorterNode.klass)})},
  1295. messageSends: ["theClass:", "new", "level:", "getNodesFrom:", "yourself"]}),
  1296. smalltalk.ClassSorterNode.klass);