Trapped.js 74 KB

12345678910111213141516171819202122232425262728293031323334353637383940414243444546474849505152535455565758596061626364656667686970717273747576777879808182838485868788899091929394959697989910010110210310410510610710810911011111211311411511611711811912012112212312412512612712812913013113213313413513613713813914014114214314414514614714814915015115215315415515615715815916016116216316416516616716816917017117217317417517617717817918018118218318418518618718818919019119219319419519619719819920020120220320420520620720820921021121221321421521621721821922022122222322422522622722822923023123223323423523623723823924024124224324424524624724824925025125225325425525625725825926026126226326426526626726826927027127227327427527627727827928028128228328428528628728828929029129229329429529629729829930030130230330430530630730830931031131231331431531631731831932032132232332432532632732832933033133233333433533633733833934034134234334434534634734834935035135235335435535635735835936036136236336436536636736836937037137237337437537637737837938038138238338438538638738838939039139239339439539639739839940040140240340440540640740840941041141241341441541641741841942042142242342442542642742842943043143243343443543643743843944044144244344444544644744844945045145245345445545645745845946046146246346446546646746846947047147247347447547647747847948048148248348448548648748848949049149249349449549649749849950050150250350450550650750850951051151251351451551651751851952052152252352452552652752852953053153253353453553653753853954054154254354454554654754854955055155255355455555655755855956056156256356456556656756856957057157257357457557657757857958058158258358458558658758858959059159259359459559659759859960060160260360460560660760860961061161261361461561661761861962062162262362462562662762862963063163263363463563663763863964064164264364464564664764864965065165265365465565665765865966066166266366466566666766866967067167267367467567667767867968068168268368468568668768868969069169269369469569669769869970070170270370470570670770870971071171271371471571671771871972072172272372472572672772872973073173273373473573673773873974074174274374474574674774874975075175275375475575675775875976076176276376476576676776876977077177277377477577677777877978078178278378478578678778878979079179279379479579679779879980080180280380480580680780880981081181281381481581681781881982082182282382482582682782882983083183283383483583683783883984084184284384484584684784884985085185285385485585685785885986086186286386486586686786886987087187287387487587687787887988088188288388488588688788888989089189289389489589689789889990090190290390490590690790890991091191291391491591691791891992092192292392492592692792892993093193293393493593693793893994094194294394494594694794894995095195295395495595695795895996096196296396496596696796896997097197297397497597697797897998098198298398498598698798898999099199299399499599699799899910001001100210031004100510061007100810091010101110121013101410151016101710181019102010211022102310241025102610271028102910301031103210331034103510361037103810391040104110421043104410451046104710481049105010511052105310541055105610571058105910601061106210631064106510661067106810691070107110721073107410751076107710781079108010811082108310841085108610871088108910901091109210931094109510961097109810991100110111021103110411051106110711081109111011111112111311141115111611171118111911201121112211231124112511261127112811291130113111321133113411351136113711381139114011411142114311441145114611471148114911501151115211531154115511561157115811591160116111621163116411651166116711681169117011711172117311741175117611771178117911801181118211831184118511861187118811891190119111921193119411951196119711981199120012011202120312041205120612071208120912101211121212131214121512161217121812191220122112221223122412251226122712281229123012311232123312341235123612371238123912401241124212431244124512461247124812491250125112521253125412551256125712581259126012611262126312641265126612671268126912701271127212731274127512761277127812791280128112821283128412851286128712881289129012911292129312941295129612971298129913001301130213031304130513061307130813091310131113121313131413151316131713181319132013211322132313241325132613271328132913301331133213331334133513361337133813391340134113421343134413451346134713481349135013511352135313541355135613571358135913601361136213631364136513661367136813691370137113721373137413751376137713781379138013811382138313841385138613871388138913901391139213931394139513961397139813991400140114021403140414051406140714081409141014111412141314141415141614171418141914201421142214231424142514261427142814291430143114321433143414351436143714381439144014411442144314441445144614471448144914501451145214531454145514561457145814591460146114621463146414651466146714681469147014711472147314741475147614771478147914801481148214831484148514861487148814891490149114921493149414951496149714981499150015011502150315041505150615071508150915101511151215131514151515161517151815191520152115221523152415251526152715281529153015311532153315341535153615371538153915401541154215431544154515461547154815491550155115521553155415551556155715581559156015611562156315641565156615671568156915701571157215731574157515761577157815791580158115821583158415851586158715881589159015911592159315941595159615971598159916001601160216031604160516061607160816091610161116121613161416151616161716181619162016211622162316241625162616271628162916301631163216331634163516361637163816391640164116421643164416451646164716481649165016511652165316541655165616571658165916601661166216631664166516661667166816691670167116721673167416751676167716781679168016811682168316841685168616871688168916901691169216931694169516961697169816991700170117021703170417051706170717081709171017111712171317141715171617171718171917201721172217231724172517261727172817291730173117321733173417351736173717381739174017411742174317441745174617471748174917501751175217531754175517561757175817591760176117621763176417651766176717681769177017711772177317741775177617771778177917801781178217831784178517861787178817891790179117921793179417951796179717981799180018011802180318041805180618071808180918101811181218131814181518161817181818191820182118221823182418251826182718281829183018311832183318341835183618371838183918401841184218431844184518461847184818491850185118521853185418551856185718581859186018611862186318641865186618671868186918701871187218731874187518761877187818791880188118821883188418851886188718881889189018911892189318941895189618971898189919001901190219031904190519061907190819091910191119121913191419151916191719181919192019211922192319241925192619271928192919301931193219331934193519361937193819391940194119421943194419451946194719481949195019511952195319541955195619571958195919601961196219631964196519661967196819691970197119721973197419751976197719781979198019811982198319841985198619871988198919901991199219931994199519961997199819992000200120022003200420052006200720082009201020112012201320142015201620172018201920202021202220232024202520262027202820292030203120322033203420352036203720382039204020412042204320442045204620472048204920502051205220532054205520562057205820592060206120622063206420652066206720682069207020712072207320742075207620772078207920802081208220832084208520862087208820892090209120922093209420952096209720982099210021012102210321042105210621072108210921102111211221132114211521162117211821192120212121222123212421252126212721282129213021312132213321342135213621372138213921402141214221432144214521462147214821492150215121522153215421552156
  1. define(["amber/boot"
  2. //>>excludeStart("imports", pragmas.excludeImports);
  3. , "amber/web/Web", "axxord/Axxord"
  4. //>>excludeEnd("imports");
  5. , "amber/web/Web", "amber_core/Kernel-Collections", "amber_core/Kernel-Objects"], function($boot
  6. //>>excludeStart("imports", pragmas.excludeImports);
  7. //>>excludeEnd("imports");
  8. ){"use strict";
  9. if(!$boot.nilAsReceiver)$boot.nilAsReceiver=$boot.nil;
  10. if(!("nilAsValue" in $boot))$boot.nilAsValue=$boot.nilAsReceiver;
  11. var $core=$boot.api,nil=$boot.nilAsValue,$nil=$boot.nilAsReceiver,$recv=$boot.asReceiver,$globals=$boot.globals;
  12. if(!$boot.nilAsClass)$boot.nilAsClass=$boot.dnu;
  13. $core.addPackage("Trapped");
  14. $core.packages["Trapped"].innerEval = function (expr) { return eval(expr); };
  15. $core.packages["Trapped"].imports = ["amber/web/Web", "axxord/Axxord"];
  16. $core.packages["Trapped"].transport = {"type":"amd","amdNamespace":"trapped"};
  17. $core.addClass("TrappedDataCarrier", $globals.Object, ["target", "model", "chain"], "Trapped");
  18. $core.addMethod(
  19. $core.method({
  20. selector: "chain:",
  21. protocol: "accessing",
  22. fn: function (aProcessingChain){
  23. var self=this,$self=this;
  24. $self["@chain"]=aProcessingChain;
  25. return self;
  26. },
  27. //>>excludeStart("ide", pragmas.excludeIdeData);
  28. args: ["aProcessingChain"],
  29. source: "chain: aProcessingChain\x0a\x09chain := aProcessingChain",
  30. referencedClasses: [],
  31. //>>excludeEnd("ide");
  32. messageSends: []
  33. }),
  34. $globals.TrappedDataCarrier);
  35. $core.addMethod(
  36. $core.method({
  37. selector: "falseAsNilValue",
  38. protocol: "converting",
  39. fn: function (){
  40. var self=this,$self=this;
  41. var value;
  42. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  43. return $core.withContext(function($ctx1) {
  44. //>>excludeEnd("ctx");
  45. var $1;
  46. value=$self._value();
  47. $1=$recv(value).__eq(false);
  48. if($core.assert($1)){
  49. return nil;
  50. } else {
  51. return value;
  52. }
  53. return self;
  54. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  55. }, function($ctx1) {$ctx1.fill(self,"falseAsNilValue",{value:value},$globals.TrappedDataCarrier)});
  56. //>>excludeEnd("ctx");
  57. },
  58. //>>excludeStart("ide", pragmas.excludeIdeData);
  59. args: [],
  60. source: "falseAsNilValue\x0a\x09| value |\x0a\x09value := self value.\x0a\x09value = false ifTrue: [ ^nil ] ifFalse: [ ^value ]",
  61. referencedClasses: [],
  62. //>>excludeEnd("ide");
  63. messageSends: ["value", "ifTrue:ifFalse:", "="]
  64. }),
  65. $globals.TrappedDataCarrier);
  66. $core.addMethod(
  67. $core.method({
  68. selector: "initialize",
  69. protocol: "initialization",
  70. fn: function (){
  71. var self=this,$self=this;
  72. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  73. return $core.withContext(function($ctx1) {
  74. //>>excludeEnd("ctx");
  75. (
  76. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  77. $ctx1.supercall = true,
  78. //>>excludeEnd("ctx");
  79. ($globals.TrappedDataCarrier.superclass||$boot.nilAsClass).fn.prototype._initialize.apply($self, []));
  80. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  81. $ctx1.supercall = false;
  82. //>>excludeEnd("ctx");;
  83. $self["@model"]=true;
  84. return self;
  85. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  86. }, function($ctx1) {$ctx1.fill(self,"initialize",{},$globals.TrappedDataCarrier)});
  87. //>>excludeEnd("ctx");
  88. },
  89. //>>excludeStart("ide", pragmas.excludeIdeData);
  90. args: [],
  91. source: "initialize\x0a\x09super initialize.\x0a\x09model := true",
  92. referencedClasses: [],
  93. //>>excludeEnd("ide");
  94. messageSends: ["initialize"]
  95. }),
  96. $globals.TrappedDataCarrier);
  97. $core.addMethod(
  98. $core.method({
  99. selector: "target",
  100. protocol: "accessing",
  101. fn: function (){
  102. var self=this,$self=this;
  103. return $self["@target"];
  104. },
  105. //>>excludeStart("ide", pragmas.excludeIdeData);
  106. args: [],
  107. source: "target\x0a\x09^target",
  108. referencedClasses: [],
  109. //>>excludeEnd("ide");
  110. messageSends: []
  111. }),
  112. $globals.TrappedDataCarrier);
  113. $core.addMethod(
  114. $core.method({
  115. selector: "target:",
  116. protocol: "accessing",
  117. fn: function (anObject){
  118. var self=this,$self=this;
  119. $self["@target"]=anObject;
  120. return self;
  121. },
  122. //>>excludeStart("ide", pragmas.excludeIdeData);
  123. args: ["anObject"],
  124. source: "target: anObject\x0a\x09target := anObject",
  125. referencedClasses: [],
  126. //>>excludeEnd("ide");
  127. messageSends: []
  128. }),
  129. $globals.TrappedDataCarrier);
  130. $core.addMethod(
  131. $core.method({
  132. selector: "value",
  133. protocol: "accessing",
  134. fn: function (){
  135. var self=this,$self=this;
  136. return $self["@model"];
  137. },
  138. //>>excludeStart("ide", pragmas.excludeIdeData);
  139. args: [],
  140. source: "value\x0a\x09^model",
  141. referencedClasses: [],
  142. //>>excludeEnd("ide");
  143. messageSends: []
  144. }),
  145. $globals.TrappedDataCarrier);
  146. $core.addMethod(
  147. $core.method({
  148. selector: "value:",
  149. protocol: "accessing",
  150. fn: function (anObject){
  151. var self=this,$self=this;
  152. $self["@model"]=anObject;
  153. return self;
  154. },
  155. //>>excludeStart("ide", pragmas.excludeIdeData);
  156. args: ["anObject"],
  157. source: "value: anObject\x0a\x09model := anObject",
  158. referencedClasses: [],
  159. //>>excludeEnd("ide");
  160. messageSends: []
  161. }),
  162. $globals.TrappedDataCarrier);
  163. $core.addMethod(
  164. $core.method({
  165. selector: "value:whenDifferentFrom:",
  166. protocol: "accessing",
  167. fn: function (anObject,anotherObject){
  168. var self=this,$self=this;
  169. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  170. return $core.withContext(function($ctx1) {
  171. //>>excludeEnd("ctx");
  172. var $1;
  173. $1=$recv(anObject).__eq(anotherObject);
  174. if(!$core.assert($1)){
  175. $self._value_(anObject);
  176. }
  177. return self;
  178. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  179. }, function($ctx1) {$ctx1.fill(self,"value:whenDifferentFrom:",{anObject:anObject,anotherObject:anotherObject},$globals.TrappedDataCarrier)});
  180. //>>excludeEnd("ctx");
  181. },
  182. //>>excludeStart("ide", pragmas.excludeIdeData);
  183. args: ["anObject", "anotherObject"],
  184. source: "value: anObject whenDifferentFrom: anotherObject\x0a\x09anObject = anotherObject ifFalse: [ self value: anObject ]",
  185. referencedClasses: [],
  186. //>>excludeEnd("ide");
  187. messageSends: ["ifFalse:", "=", "value:"]
  188. }),
  189. $globals.TrappedDataCarrier);
  190. $core.addMethod(
  191. $core.method({
  192. selector: "on:target:",
  193. protocol: "not yet classified",
  194. fn: function (aProcessingChain,anObject){
  195. var self=this,$self=this;
  196. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  197. return $core.withContext(function($ctx1) {
  198. //>>excludeEnd("ctx");
  199. var $1;
  200. $1=$self._new();
  201. $recv($1)._chain_(aProcessingChain);
  202. $recv($1)._target_(anObject);
  203. return $recv($1)._yourself();
  204. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  205. }, function($ctx1) {$ctx1.fill(self,"on:target:",{aProcessingChain:aProcessingChain,anObject:anObject},$globals.TrappedDataCarrier.a$cls)});
  206. //>>excludeEnd("ctx");
  207. },
  208. //>>excludeStart("ide", pragmas.excludeIdeData);
  209. args: ["aProcessingChain", "anObject"],
  210. source: "on: aProcessingChain target: anObject\x0a\x09^self new\x0a\x09\x09chain: aProcessingChain;\x0a\x09\x09target: anObject;\x0a\x09\x09yourself",
  211. referencedClasses: [],
  212. //>>excludeEnd("ide");
  213. messageSends: ["chain:", "new", "target:", "yourself"]
  214. }),
  215. $globals.TrappedDataCarrier.a$cls);
  216. $core.addClass("TrappedDataCarrierToModel", $globals.TrappedDataCarrier, ["index"], "Trapped");
  217. $core.addMethod(
  218. $core.method({
  219. selector: "proceed",
  220. protocol: "not yet classified",
  221. fn: function (){
  222. var self=this,$self=this;
  223. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  224. return $core.withContext(function($ctx1) {
  225. //>>excludeEnd("ctx");
  226. var $1,$receiver;
  227. $1=$self["@index"];
  228. if(($receiver = $1) == null || $receiver.a$nil){
  229. $self["@index"]=$recv($self["@chain"])._lastProcessorNo();
  230. } else {
  231. $self["@index"]=$recv($self["@index"]).__minus((1));
  232. }
  233. $recv($recv($self["@chain"])._processorNo_($self["@index"]))._toModel_(self);
  234. return self;
  235. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  236. }, function($ctx1) {$ctx1.fill(self,"proceed",{},$globals.TrappedDataCarrierToModel)});
  237. //>>excludeEnd("ctx");
  238. },
  239. //>>excludeStart("ide", pragmas.excludeIdeData);
  240. args: [],
  241. source: "proceed\x0a\x09index := index ifNil: [ chain lastProcessorNo ] ifNotNil: [ index - 1 ].\x0a\x09(chain processorNo: index) toModel: self",
  242. referencedClasses: [],
  243. //>>excludeEnd("ide");
  244. messageSends: ["ifNil:ifNotNil:", "lastProcessorNo", "-", "toModel:", "processorNo:"]
  245. }),
  246. $globals.TrappedDataCarrierToModel);
  247. $core.addClass("TrappedDataCarrierToView", $globals.TrappedDataCarrier, ["index"], "Trapped");
  248. $core.addMethod(
  249. $core.method({
  250. selector: "proceed",
  251. protocol: "not yet classified",
  252. fn: function (){
  253. var self=this,$self=this;
  254. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  255. return $core.withContext(function($ctx1) {
  256. //>>excludeEnd("ctx");
  257. var $1,$receiver;
  258. $1=$self["@index"];
  259. if(($receiver = $1) == null || $receiver.a$nil){
  260. $self["@index"]=$recv($self["@chain"])._firstProcessorNo();
  261. } else {
  262. $self["@index"]=$recv($self["@index"]).__plus((1));
  263. }
  264. $recv($recv($self["@chain"])._processorNo_($self["@index"]))._toView_(self);
  265. return self;
  266. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  267. }, function($ctx1) {$ctx1.fill(self,"proceed",{},$globals.TrappedDataCarrierToView)});
  268. //>>excludeEnd("ctx");
  269. },
  270. //>>excludeStart("ide", pragmas.excludeIdeData);
  271. args: [],
  272. source: "proceed\x0a\x09index := index ifNil: [ chain firstProcessorNo ] ifNotNil: [ index + 1 ].\x0a\x09(chain processorNo: index) toView: self",
  273. referencedClasses: [],
  274. //>>excludeEnd("ide");
  275. messageSends: ["ifNil:ifNotNil:", "firstProcessorNo", "+", "toView:", "processorNo:"]
  276. }),
  277. $globals.TrappedDataCarrierToView);
  278. $core.addClass("TrappedPosition", $globals.Object, ["path", "model"], "Trapped");
  279. $core.addMethod(
  280. $core.method({
  281. selector: "model",
  282. protocol: "accessing",
  283. fn: function (){
  284. var self=this,$self=this;
  285. return $self["@model"];
  286. },
  287. //>>excludeStart("ide", pragmas.excludeIdeData);
  288. args: [],
  289. source: "model\x0a\x09^model",
  290. referencedClasses: [],
  291. //>>excludeEnd("ide");
  292. messageSends: []
  293. }),
  294. $globals.TrappedPosition);
  295. $core.addMethod(
  296. $core.method({
  297. selector: "modify:",
  298. protocol: "action",
  299. fn: function (aBlock){
  300. var self=this,$self=this;
  301. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  302. return $core.withContext(function($ctx1) {
  303. //>>excludeEnd("ctx");
  304. $recv($self._model())._axes_transform_($self._path(),aBlock);
  305. return self;
  306. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  307. }, function($ctx1) {$ctx1.fill(self,"modify:",{aBlock:aBlock},$globals.TrappedPosition)});
  308. //>>excludeEnd("ctx");
  309. },
  310. //>>excludeStart("ide", pragmas.excludeIdeData);
  311. args: ["aBlock"],
  312. source: "modify: aBlock\x0a\x09self model axes: self path transform: aBlock",
  313. referencedClasses: [],
  314. //>>excludeEnd("ide");
  315. messageSends: ["axes:transform:", "model", "path"]
  316. }),
  317. $globals.TrappedPosition);
  318. $core.addMethod(
  319. $core.method({
  320. selector: "path",
  321. protocol: "accessing",
  322. fn: function (){
  323. var self=this,$self=this;
  324. return $self["@path"];
  325. },
  326. //>>excludeStart("ide", pragmas.excludeIdeData);
  327. args: [],
  328. source: "path\x0a\x09^path",
  329. referencedClasses: [],
  330. //>>excludeEnd("ide");
  331. messageSends: []
  332. }),
  333. $globals.TrappedPosition);
  334. $core.addMethod(
  335. $core.method({
  336. selector: "path:model:",
  337. protocol: "accessing",
  338. fn: function (anArray,aTrappedMW){
  339. var self=this,$self=this;
  340. $self["@path"]=anArray;
  341. $self["@model"]=aTrappedMW;
  342. return self;
  343. },
  344. //>>excludeStart("ide", pragmas.excludeIdeData);
  345. args: ["anArray", "aTrappedMW"],
  346. source: "path: anArray model: aTrappedMW\x0a\x09path := anArray.\x0a model := aTrappedMW",
  347. referencedClasses: [],
  348. //>>excludeEnd("ide");
  349. messageSends: []
  350. }),
  351. $globals.TrappedPosition);
  352. $core.addMethod(
  353. $core.method({
  354. selector: "read:",
  355. protocol: "action",
  356. fn: function (aBlock){
  357. var self=this,$self=this;
  358. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  359. return $core.withContext(function($ctx1) {
  360. //>>excludeEnd("ctx");
  361. $recv($self._model())._axes_consume_($self._path(),aBlock);
  362. return self;
  363. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  364. }, function($ctx1) {$ctx1.fill(self,"read:",{aBlock:aBlock},$globals.TrappedPosition)});
  365. //>>excludeEnd("ctx");
  366. },
  367. //>>excludeStart("ide", pragmas.excludeIdeData);
  368. args: ["aBlock"],
  369. source: "read: aBlock\x0a\x09self model axes: self path consume: aBlock",
  370. referencedClasses: [],
  371. //>>excludeEnd("ide");
  372. messageSends: ["axes:consume:", "model", "path"]
  373. }),
  374. $globals.TrappedPosition);
  375. $core.addMethod(
  376. $core.method({
  377. selector: "watch:",
  378. protocol: "action",
  379. fn: function (aBlock){
  380. var self=this,$self=this;
  381. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  382. return $core.withContext(function($ctx1) {
  383. //>>excludeEnd("ctx");
  384. $recv($recv($self._model())._registeredAxon())._addInterest_($recv($self._class())._interestOn_block_($self._path(),(function(){
  385. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  386. return $core.withContext(function($ctx2) {
  387. //>>excludeEnd("ctx");
  388. return $self._read_(aBlock);
  389. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  390. }, function($ctx2) {$ctx2.fillBlock({},$ctx1,1)});
  391. //>>excludeEnd("ctx");
  392. })));
  393. return self;
  394. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  395. }, function($ctx1) {$ctx1.fill(self,"watch:",{aBlock:aBlock},$globals.TrappedPosition)});
  396. //>>excludeEnd("ctx");
  397. },
  398. //>>excludeStart("ide", pragmas.excludeIdeData);
  399. args: ["aBlock"],
  400. source: "watch: aBlock\x0a\x09self model registeredAxon addInterest: (self class\x0a\x09\x09interestOn: self path\x0a\x09\x09block: [ self read: aBlock ])",
  401. referencedClasses: [],
  402. //>>excludeEnd("ide");
  403. messageSends: ["addInterest:", "registeredAxon", "model", "interestOn:block:", "class", "path", "read:"]
  404. }),
  405. $globals.TrappedPosition);
  406. $core.addMethod(
  407. $core.method({
  408. selector: "interestOn:block:",
  409. protocol: "factory",
  410. fn: function (anAspect,aBlock){
  411. var self=this,$self=this;
  412. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  413. return $core.withContext(function($ctx1) {
  414. //>>excludeEnd("ctx");
  415. var $1,$3,$2;
  416. $1=$recv($recv(anAspect)._notEmpty())._and_((function(){
  417. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  418. return $core.withContext(function($ctx2) {
  419. //>>excludeEnd("ctx");
  420. return $recv($recv(anAspect)._last())._isNil();
  421. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  422. }, function($ctx2) {$ctx2.fillBlock({},$ctx1,1)});
  423. //>>excludeEnd("ctx");
  424. }));
  425. if($core.assert($1)){
  426. $3=$recv($globals.InterestedThruAxes)._new();
  427. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  428. $ctx1.sendIdx["new"]=1;
  429. //>>excludeEnd("ctx");
  430. $2=$recv($3)._aspect_block_($recv(anAspect)._allButLast(),aBlock);
  431. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  432. $ctx1.sendIdx["aspect:block:"]=1;
  433. //>>excludeEnd("ctx");
  434. return $2;
  435. } else {
  436. return $recv($recv($globals.InterestedUpToAxes)._new())._aspect_block_(anAspect,aBlock);
  437. }
  438. return self;
  439. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  440. }, function($ctx1) {$ctx1.fill(self,"interestOn:block:",{anAspect:anAspect,aBlock:aBlock},$globals.TrappedPosition.a$cls)});
  441. //>>excludeEnd("ctx");
  442. },
  443. //>>excludeStart("ide", pragmas.excludeIdeData);
  444. args: ["anAspect", "aBlock"],
  445. source: "interestOn: anAspect block: aBlock\x0a\x09(anAspect notEmpty and: [ anAspect last isNil ])\x0a\x09\x09ifTrue: [ ^ InterestedThruAxes new aspect: anAspect allButLast block: aBlock ]\x0a\x09\x09ifFalse: [ ^ InterestedUpToAxes new aspect: anAspect block: aBlock ]",
  446. referencedClasses: ["InterestedThruAxes", "InterestedUpToAxes"],
  447. //>>excludeEnd("ide");
  448. messageSends: ["ifTrue:ifFalse:", "and:", "notEmpty", "isNil", "last", "aspect:block:", "new", "allButLast"]
  449. }),
  450. $globals.TrappedPosition.a$cls);
  451. $core.addClass("TrappedSnapshot", $globals.TrappedPosition, ["prefix"], "Trapped");
  452. $core.addMethod(
  453. $core.method({
  454. selector: "do:",
  455. protocol: "action",
  456. fn: function (aBlock){
  457. var self=this,$self=this;
  458. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  459. return $core.withContext(function($ctx1) {
  460. //>>excludeEnd("ctx");
  461. $recv($recv($globals.TrappedPathStack)._current())._with_do_($recv([$self["@prefix"]]).__comma($self["@path"]),(function(){
  462. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  463. return $core.withContext(function($ctx2) {
  464. //>>excludeEnd("ctx");
  465. return $recv(aBlock)._value_($self["@model"]);
  466. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  467. }, function($ctx2) {$ctx2.fillBlock({},$ctx1,1)});
  468. //>>excludeEnd("ctx");
  469. }));
  470. return self;
  471. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  472. }, function($ctx1) {$ctx1.fill(self,"do:",{aBlock:aBlock},$globals.TrappedSnapshot)});
  473. //>>excludeEnd("ctx");
  474. },
  475. //>>excludeStart("ide", pragmas.excludeIdeData);
  476. args: ["aBlock"],
  477. source: "do: aBlock\x0a\x09TrappedPathStack current with: {prefix}, path do: [ aBlock value: model ]",
  478. referencedClasses: ["TrappedPathStack"],
  479. //>>excludeEnd("ide");
  480. messageSends: ["with:do:", "current", ",", "value:"]
  481. }),
  482. $globals.TrappedSnapshot);
  483. $core.addMethod(
  484. $core.method({
  485. selector: "prefix",
  486. protocol: "accessing",
  487. fn: function (){
  488. var self=this,$self=this;
  489. return $self["@prefix"];
  490. },
  491. //>>excludeStart("ide", pragmas.excludeIdeData);
  492. args: [],
  493. source: "prefix\x0a\x09^ prefix",
  494. referencedClasses: [],
  495. //>>excludeEnd("ide");
  496. messageSends: []
  497. }),
  498. $globals.TrappedSnapshot);
  499. $core.addMethod(
  500. $core.method({
  501. selector: "prefix:",
  502. protocol: "accessing",
  503. fn: function (anObject){
  504. var self=this,$self=this;
  505. $self["@prefix"]=anObject;
  506. return self;
  507. },
  508. //>>excludeStart("ide", pragmas.excludeIdeData);
  509. args: ["anObject"],
  510. source: "prefix: anObject\x0a\x09prefix := anObject",
  511. referencedClasses: [],
  512. //>>excludeEnd("ide");
  513. messageSends: []
  514. }),
  515. $globals.TrappedSnapshot);
  516. $core.addClass("TrappedProcessingChain", $globals.Object, ["processors"], "Trapped");
  517. $core.addMethod(
  518. $core.method({
  519. selector: "firstProcessorNo",
  520. protocol: "accessing",
  521. fn: function (){
  522. var self=this,$self=this;
  523. return (1);
  524. },
  525. //>>excludeStart("ide", pragmas.excludeIdeData);
  526. args: [],
  527. source: "firstProcessorNo\x0a\x09^1",
  528. referencedClasses: [],
  529. //>>excludeEnd("ide");
  530. messageSends: []
  531. }),
  532. $globals.TrappedProcessingChain);
  533. $core.addMethod(
  534. $core.method({
  535. selector: "forSnapshot:andBrush:",
  536. protocol: "action",
  537. fn: function (aSnapshot,aTagBrush){
  538. var self=this,$self=this;
  539. var toViewCarrier,toModelCarrier;
  540. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  541. return $core.withContext(function($ctx1) {
  542. //>>excludeEnd("ctx");
  543. var $1;
  544. toViewCarrier=$recv($globals.TrappedDataCarrierToView)._on_target_(self,aTagBrush);
  545. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  546. $ctx1.sendIdx["on:target:"]=1;
  547. //>>excludeEnd("ctx");
  548. toModelCarrier=$recv($globals.TrappedDataCarrierToModel)._on_target_(self,aSnapshot);
  549. $recv($self["@processors"])._do_((function(each){
  550. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  551. return $core.withContext(function($ctx2) {
  552. //>>excludeEnd("ctx");
  553. return $recv(each)._installToView_toModel_(toViewCarrier,toModelCarrier);
  554. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  555. }, function($ctx2) {$ctx2.fillBlock({each:each},$ctx1,1)});
  556. //>>excludeEnd("ctx");
  557. }));
  558. $1=$recv($recv(toViewCarrier)._value()).__eq(true);
  559. if($core.assert($1)){
  560. $recv($recv(toViewCarrier)._copy())._proceed();
  561. }
  562. return self;
  563. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  564. }, function($ctx1) {$ctx1.fill(self,"forSnapshot:andBrush:",{aSnapshot:aSnapshot,aTagBrush:aTagBrush,toViewCarrier:toViewCarrier,toModelCarrier:toModelCarrier},$globals.TrappedProcessingChain)});
  565. //>>excludeEnd("ctx");
  566. },
  567. //>>excludeStart("ide", pragmas.excludeIdeData);
  568. args: ["aSnapshot", "aTagBrush"],
  569. source: "forSnapshot: aSnapshot andBrush: aTagBrush\x0a\x09| toViewCarrier toModelCarrier |\x0a\x09toViewCarrier := TrappedDataCarrierToView on: self target: aTagBrush.\x0a\x09toModelCarrier := TrappedDataCarrierToModel on: self target: aSnapshot.\x0a\x09processors do: [ :each | each installToView: toViewCarrier toModel: toModelCarrier ].\x0a\x09toViewCarrier value = true ifTrue: [ toViewCarrier copy proceed ]",
  570. referencedClasses: ["TrappedDataCarrierToView", "TrappedDataCarrierToModel"],
  571. //>>excludeEnd("ide");
  572. messageSends: ["on:target:", "do:", "installToView:toModel:", "ifTrue:", "=", "value", "proceed", "copy"]
  573. }),
  574. $globals.TrappedProcessingChain);
  575. $core.addMethod(
  576. $core.method({
  577. selector: "lastProcessorNo",
  578. protocol: "accessing",
  579. fn: function (){
  580. var self=this,$self=this;
  581. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  582. return $core.withContext(function($ctx1) {
  583. //>>excludeEnd("ctx");
  584. return $recv($self["@processors"])._size();
  585. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  586. }, function($ctx1) {$ctx1.fill(self,"lastProcessorNo",{},$globals.TrappedProcessingChain)});
  587. //>>excludeEnd("ctx");
  588. },
  589. //>>excludeStart("ide", pragmas.excludeIdeData);
  590. args: [],
  591. source: "lastProcessorNo\x0a\x09^processors size",
  592. referencedClasses: [],
  593. //>>excludeEnd("ide");
  594. messageSends: ["size"]
  595. }),
  596. $globals.TrappedProcessingChain);
  597. $core.addMethod(
  598. $core.method({
  599. selector: "processorNo:",
  600. protocol: "accessing",
  601. fn: function (aNumber){
  602. var self=this,$self=this;
  603. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  604. return $core.withContext(function($ctx1) {
  605. //>>excludeEnd("ctx");
  606. return $recv($self["@processors"])._at_(aNumber);
  607. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  608. }, function($ctx1) {$ctx1.fill(self,"processorNo:",{aNumber:aNumber},$globals.TrappedProcessingChain)});
  609. //>>excludeEnd("ctx");
  610. },
  611. //>>excludeStart("ide", pragmas.excludeIdeData);
  612. args: ["aNumber"],
  613. source: "processorNo: aNumber\x0a\x09^processors at: aNumber",
  614. referencedClasses: [],
  615. //>>excludeEnd("ide");
  616. messageSends: ["at:"]
  617. }),
  618. $globals.TrappedProcessingChain);
  619. $core.addMethod(
  620. $core.method({
  621. selector: "processors:",
  622. protocol: "accessing",
  623. fn: function (anArray){
  624. var self=this,$self=this;
  625. $self["@processors"]=anArray;
  626. return self;
  627. },
  628. //>>excludeStart("ide", pragmas.excludeIdeData);
  629. args: ["anArray"],
  630. source: "processors: anArray\x0a\x09processors := anArray",
  631. referencedClasses: [],
  632. //>>excludeEnd("ide");
  633. messageSends: []
  634. }),
  635. $globals.TrappedProcessingChain);
  636. $core.addMethod(
  637. $core.method({
  638. selector: "blackboardReaderWriter",
  639. protocol: "private",
  640. fn: function (){
  641. var self=this,$self=this;
  642. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  643. return $core.withContext(function($ctx1) {
  644. //>>excludeEnd("ctx");
  645. return $recv($globals.TrappedProcessorBlackboard)._new();
  646. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  647. }, function($ctx1) {$ctx1.fill(self,"blackboardReaderWriter",{},$globals.TrappedProcessingChain.a$cls)});
  648. //>>excludeEnd("ctx");
  649. },
  650. //>>excludeStart("ide", pragmas.excludeIdeData);
  651. args: [],
  652. source: "blackboardReaderWriter\x0a\x09^TrappedProcessorBlackboard new",
  653. referencedClasses: ["TrappedProcessorBlackboard"],
  654. //>>excludeEnd("ide");
  655. messageSends: ["new"]
  656. }),
  657. $globals.TrappedProcessingChain.a$cls);
  658. $core.addMethod(
  659. $core.method({
  660. selector: "dataTerminator",
  661. protocol: "private",
  662. fn: function (){
  663. var self=this,$self=this;
  664. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  665. return $core.withContext(function($ctx1) {
  666. //>>excludeEnd("ctx");
  667. return $recv($globals.TrappedProcessorTerminator)._new();
  668. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  669. }, function($ctx1) {$ctx1.fill(self,"dataTerminator",{},$globals.TrappedProcessingChain.a$cls)});
  670. //>>excludeEnd("ctx");
  671. },
  672. //>>excludeStart("ide", pragmas.excludeIdeData);
  673. args: [],
  674. source: "dataTerminator\x0a\x09^TrappedProcessorTerminator new",
  675. referencedClasses: ["TrappedProcessorTerminator"],
  676. //>>excludeEnd("ide");
  677. messageSends: ["new"]
  678. }),
  679. $globals.TrappedProcessingChain.a$cls);
  680. $core.addMethod(
  681. $core.method({
  682. selector: "new:",
  683. protocol: "instance creation",
  684. fn: function (anArray){
  685. var self=this,$self=this;
  686. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  687. return $core.withContext(function($ctx1) {
  688. //>>excludeEnd("ctx");
  689. var $1,$2;
  690. $1=$recv(anArray)._anySatisfy_((function(each){
  691. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  692. return $core.withContext(function($ctx2) {
  693. //>>excludeEnd("ctx");
  694. return $recv(each)._isExpectingModelData();
  695. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  696. }, function($ctx2) {$ctx2.fillBlock({each:each},$ctx1,1)});
  697. //>>excludeEnd("ctx");
  698. }));
  699. if($core.assert($1)){
  700. $recv(anArray)._addFirst_($self._blackboardReaderWriter());
  701. } else {
  702. $recv(anArray)._add_($self._dataTerminator());
  703. }
  704. $2=$self._new();
  705. $recv($2)._processors_(anArray);
  706. return $recv($2)._yourself();
  707. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  708. }, function($ctx1) {$ctx1.fill(self,"new:",{anArray:anArray},$globals.TrappedProcessingChain.a$cls)});
  709. //>>excludeEnd("ctx");
  710. },
  711. //>>excludeStart("ide", pragmas.excludeIdeData);
  712. args: ["anArray"],
  713. source: "new: anArray\x0a\x09(anArray anySatisfy: [ :each | each isExpectingModelData ])\x0a\x09\x09ifFalse: [ anArray add: self dataTerminator ]\x0a\x09\x09ifTrue: [ anArray addFirst: self blackboardReaderWriter ].\x0a\x09^self new\x0a\x09\x09processors: anArray;\x0a\x09\x09yourself",
  714. referencedClasses: [],
  715. //>>excludeEnd("ide");
  716. messageSends: ["ifFalse:ifTrue:", "anySatisfy:", "isExpectingModelData", "add:", "dataTerminator", "addFirst:", "blackboardReaderWriter", "processors:", "new", "yourself"]
  717. }),
  718. $globals.TrappedProcessingChain.a$cls);
  719. $core.addMethod(
  720. $core.method({
  721. selector: "newFromProcessorSpecs:",
  722. protocol: "instance creation",
  723. fn: function (anArray){
  724. var self=this,$self=this;
  725. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  726. return $core.withContext(function($ctx1) {
  727. //>>excludeEnd("ctx");
  728. return $self._new_($recv($recv(anArray)._ifEmpty_((function(){
  729. return ["contents"];
  730. })))._collect_((function(each){
  731. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  732. return $core.withContext(function($ctx2) {
  733. //>>excludeEnd("ctx");
  734. return $recv(each)._asTrapProcSendTo_($globals.TrappedProcessor);
  735. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  736. }, function($ctx2) {$ctx2.fillBlock({each:each},$ctx1,2)});
  737. //>>excludeEnd("ctx");
  738. })));
  739. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  740. }, function($ctx1) {$ctx1.fill(self,"newFromProcessorSpecs:",{anArray:anArray},$globals.TrappedProcessingChain.a$cls)});
  741. //>>excludeEnd("ctx");
  742. },
  743. //>>excludeStart("ide", pragmas.excludeIdeData);
  744. args: ["anArray"],
  745. source: "newFromProcessorSpecs: anArray\x0a\x09^self new: ((anArray ifEmpty: [ #(contents) ]) collect: [ :each | each asTrapProcSendTo: TrappedProcessor ])",
  746. referencedClasses: ["TrappedProcessor"],
  747. //>>excludeEnd("ide");
  748. messageSends: ["new:", "collect:", "ifEmpty:", "asTrapProcSendTo:"]
  749. }),
  750. $globals.TrappedProcessingChain.a$cls);
  751. $core.addClass("TrappedProcessor", $globals.Object, [], "Trapped");
  752. //>>excludeStart("ide", pragmas.excludeIdeData);
  753. $globals.TrappedProcessor.comment="I am a processing step in TrappedProcessingChain.\x0aI am stateless flyweight (aka servant)\x0aand will get all necessary data as arguments in API calls.\x0a\x0aMy public API is:\x0a - installToView:toModel:\x0a This gets two TrappedDataCarriers set up without actual data\x0a and at the beginning of their chains. It should do one-time\x0a installation task needed (install event handlers etc.).\x0a To start a chain, do: dataCarrier copy value: data; proceed.\x0a - toView:\x0a This performs transformation of TrappedDataCarrier on its way from model to view.\x0a Should call aDataCarrier proceed to proceed to subsequent step.\x0a - toModel:\x0a This performs transformation of TrappedDataCarrier on its way from view to model.\x0a Should call aDataCarrier proceed to proceed to subsequent step.";
  754. //>>excludeEnd("ide");
  755. $core.addMethod(
  756. $core.method({
  757. selector: "installToView:toModel:",
  758. protocol: "installation",
  759. fn: function (aDataCarrier,anotherDataCarrier){
  760. var self=this,$self=this;
  761. return self;
  762. },
  763. //>>excludeStart("ide", pragmas.excludeIdeData);
  764. args: ["aDataCarrier", "anotherDataCarrier"],
  765. source: "installToView: aDataCarrier toModel: anotherDataCarrier\x0a\x09\x22by default, do nothing\x22",
  766. referencedClasses: [],
  767. //>>excludeEnd("ide");
  768. messageSends: []
  769. }),
  770. $globals.TrappedProcessor);
  771. $core.addMethod(
  772. $core.method({
  773. selector: "isExpectingModelData",
  774. protocol: "testing",
  775. fn: function (){
  776. var self=this,$self=this;
  777. return false;
  778. },
  779. //>>excludeStart("ide", pragmas.excludeIdeData);
  780. args: [],
  781. source: "isExpectingModelData\x0a\x09^false",
  782. referencedClasses: [],
  783. //>>excludeEnd("ide");
  784. messageSends: []
  785. }),
  786. $globals.TrappedProcessor);
  787. $core.addMethod(
  788. $core.method({
  789. selector: "toModel:",
  790. protocol: "data transformation",
  791. fn: function (aDataCarrier){
  792. var self=this,$self=this;
  793. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  794. return $core.withContext(function($ctx1) {
  795. //>>excludeEnd("ctx");
  796. $recv(aDataCarrier)._proceed();
  797. return self;
  798. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  799. }, function($ctx1) {$ctx1.fill(self,"toModel:",{aDataCarrier:aDataCarrier},$globals.TrappedProcessor)});
  800. //>>excludeEnd("ctx");
  801. },
  802. //>>excludeStart("ide", pragmas.excludeIdeData);
  803. args: ["aDataCarrier"],
  804. source: "toModel: aDataCarrier\x0a\x09\x22by default, proceed\x22\x0a\x09aDataCarrier proceed",
  805. referencedClasses: [],
  806. //>>excludeEnd("ide");
  807. messageSends: ["proceed"]
  808. }),
  809. $globals.TrappedProcessor);
  810. $core.addMethod(
  811. $core.method({
  812. selector: "toView:",
  813. protocol: "data transformation",
  814. fn: function (aDataCarrier){
  815. var self=this,$self=this;
  816. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  817. return $core.withContext(function($ctx1) {
  818. //>>excludeEnd("ctx");
  819. $recv(aDataCarrier)._proceed();
  820. return self;
  821. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  822. }, function($ctx1) {$ctx1.fill(self,"toView:",{aDataCarrier:aDataCarrier},$globals.TrappedProcessor)});
  823. //>>excludeEnd("ctx");
  824. },
  825. //>>excludeStart("ide", pragmas.excludeIdeData);
  826. args: ["aDataCarrier"],
  827. source: "toView: aDataCarrier\x0a\x09\x22by default, proceed\x22\x0a\x09aDataCarrier proceed",
  828. referencedClasses: [],
  829. //>>excludeEnd("ide");
  830. messageSends: ["proceed"]
  831. }),
  832. $globals.TrappedProcessor);
  833. $core.addMethod(
  834. $core.method({
  835. selector: "contents",
  836. protocol: "factory",
  837. fn: function (){
  838. var self=this,$self=this;
  839. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  840. return $core.withContext(function($ctx1) {
  841. //>>excludeEnd("ctx");
  842. return $recv($globals.TrappedProcessorContents)._new();
  843. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  844. }, function($ctx1) {$ctx1.fill(self,"contents",{},$globals.TrappedProcessor.a$cls)});
  845. //>>excludeEnd("ctx");
  846. },
  847. //>>excludeStart("ide", pragmas.excludeIdeData);
  848. args: [],
  849. source: "contents\x0a\x09^TrappedProcessorContents new",
  850. referencedClasses: ["TrappedProcessorContents"],
  851. //>>excludeEnd("ide");
  852. messageSends: ["new"]
  853. }),
  854. $globals.TrappedProcessor.a$cls);
  855. $core.addClass("TrappedDataExpectingProcessor", $globals.TrappedProcessor, [], "Trapped");
  856. //>>excludeStart("ide", pragmas.excludeIdeData);
  857. $globals.TrappedDataExpectingProcessor.comment="I answer true to isExpectingModelData and serve as a base class\x0afor processor that present / change model data.\x0a\x0aWhen at least one of my instances is present in the chain,\x0aautomatic databinding processor is added at the beginning\x0a(the data-binding scenario); otherwise, the chain\x0ais run immediately with true as data (run-once scenario).";
  858. //>>excludeEnd("ide");
  859. $core.addMethod(
  860. $core.method({
  861. selector: "isExpectingModelData",
  862. protocol: "testing",
  863. fn: function (){
  864. var self=this,$self=this;
  865. return true;
  866. },
  867. //>>excludeStart("ide", pragmas.excludeIdeData);
  868. args: [],
  869. source: "isExpectingModelData\x0a\x09^true",
  870. referencedClasses: [],
  871. //>>excludeEnd("ide");
  872. messageSends: []
  873. }),
  874. $globals.TrappedDataExpectingProcessor);
  875. $core.addClass("TrappedProcessorContents", $globals.TrappedDataExpectingProcessor, [], "Trapped");
  876. //>>excludeStart("ide", pragmas.excludeIdeData);
  877. $globals.TrappedProcessorContents.comment="I put data into target via contents: in toView:";
  878. //>>excludeEnd("ide");
  879. $core.addMethod(
  880. $core.method({
  881. selector: "toView:",
  882. protocol: "data transformation",
  883. fn: function (aDataCarrier){
  884. var self=this,$self=this;
  885. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  886. return $core.withContext(function($ctx1) {
  887. //>>excludeEnd("ctx");
  888. $recv(aDataCarrier)._toTargetContents();
  889. return self;
  890. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  891. }, function($ctx1) {$ctx1.fill(self,"toView:",{aDataCarrier:aDataCarrier},$globals.TrappedProcessorContents)});
  892. //>>excludeEnd("ctx");
  893. },
  894. //>>excludeStart("ide", pragmas.excludeIdeData);
  895. args: ["aDataCarrier"],
  896. source: "toView: aDataCarrier\x0a\x09aDataCarrier toTargetContents",
  897. referencedClasses: [],
  898. //>>excludeEnd("ide");
  899. messageSends: ["toTargetContents"]
  900. }),
  901. $globals.TrappedProcessorContents);
  902. $core.addClass("TrappedProcessorBlackboard", $globals.TrappedProcessor, [], "Trapped");
  903. //>>excludeStart("ide", pragmas.excludeIdeData);
  904. $globals.TrappedProcessorBlackboard.comment="I am used internally to fetch data from blackboard\x0aor write it back.\x0a\x0aI am added to the beginning of the chain\x0awhen the chain contains at least one element\x0athat isExpectingModelData (see TrappedDataExpectingProcessor).";
  905. //>>excludeEnd("ide");
  906. $core.addMethod(
  907. $core.method({
  908. selector: "installToView:toModel:",
  909. protocol: "installation",
  910. fn: function (aDataCarrier,anotherDataCarrier){
  911. var self=this,$self=this;
  912. var snap;
  913. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  914. return $core.withContext(function($ctx1) {
  915. //>>excludeEnd("ctx");
  916. var $1,$2;
  917. snap=$recv(anotherDataCarrier)._target();
  918. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  919. $ctx1.sendIdx["target"]=1;
  920. //>>excludeEnd("ctx");
  921. $recv(snap)._watch_((function(data){
  922. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  923. return $core.withContext(function($ctx2) {
  924. //>>excludeEnd("ctx");
  925. $1=$recv($recv($recv($recv($recv(aDataCarrier)._target())._asJQuery())._closest_("html"))._toArray())._isEmpty();
  926. if($core.assert($1)){
  927. $recv($globals.AxonOff)._signal();
  928. }
  929. return $recv(snap)._do_((function(){
  930. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  931. return $core.withContext(function($ctx3) {
  932. //>>excludeEnd("ctx");
  933. $2=$recv(aDataCarrier)._copy();
  934. $recv($2)._value_(data);
  935. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  936. $ctx3.sendIdx["value:"]=1;
  937. //>>excludeEnd("ctx");
  938. return $recv($2)._proceed();
  939. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  940. }, function($ctx3) {$ctx3.fillBlock({},$ctx2,3)});
  941. //>>excludeEnd("ctx");
  942. }));
  943. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  944. }, function($ctx2) {$ctx2.fillBlock({data:data},$ctx1,1)});
  945. //>>excludeEnd("ctx");
  946. }));
  947. $recv(aDataCarrier)._value_(false);
  948. return self;
  949. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  950. }, function($ctx1) {$ctx1.fill(self,"installToView:toModel:",{aDataCarrier:aDataCarrier,anotherDataCarrier:anotherDataCarrier,snap:snap},$globals.TrappedProcessorBlackboard)});
  951. //>>excludeEnd("ctx");
  952. },
  953. //>>excludeStart("ide", pragmas.excludeIdeData);
  954. args: ["aDataCarrier", "anotherDataCarrier"],
  955. source: "installToView: aDataCarrier toModel: anotherDataCarrier\x0a\x09| snap |\x0a\x09snap := anotherDataCarrier target.\x0a\x09snap watch: [ :data |\x0a\x09\x09(aDataCarrier target asJQuery closest: 'html') toArray isEmpty ifTrue: [ AxonOff signal ].\x0a snap do: [ aDataCarrier copy value: data; proceed ] ].\x0a\x09aDataCarrier value: false",
  956. referencedClasses: ["AxonOff"],
  957. //>>excludeEnd("ide");
  958. messageSends: ["target", "watch:", "ifTrue:", "isEmpty", "toArray", "closest:", "asJQuery", "signal", "do:", "value:", "copy", "proceed"]
  959. }),
  960. $globals.TrappedProcessorBlackboard);
  961. $core.addMethod(
  962. $core.method({
  963. selector: "toModel:",
  964. protocol: "data transformation",
  965. fn: function (aDataCarrier){
  966. var self=this,$self=this;
  967. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  968. return $core.withContext(function($ctx1) {
  969. //>>excludeEnd("ctx");
  970. $recv(aDataCarrier)._modifyTarget();
  971. return self;
  972. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  973. }, function($ctx1) {$ctx1.fill(self,"toModel:",{aDataCarrier:aDataCarrier},$globals.TrappedProcessorBlackboard)});
  974. //>>excludeEnd("ctx");
  975. },
  976. //>>excludeStart("ide", pragmas.excludeIdeData);
  977. args: ["aDataCarrier"],
  978. source: "toModel: aDataCarrier\x0a\x09aDataCarrier modifyTarget",
  979. referencedClasses: [],
  980. //>>excludeEnd("ide");
  981. messageSends: ["modifyTarget"]
  982. }),
  983. $globals.TrappedProcessorBlackboard);
  984. $core.addClass("TrappedProcessorTerminator", $globals.TrappedProcessor, [], "Trapped");
  985. //>>excludeStart("ide", pragmas.excludeIdeData);
  986. $globals.TrappedProcessorTerminator.comment="I do not proceed in toView:.\x0a\x0aI am added automatically to end of chain when it does not contain\x0aany element that isExpectingModelData (see TrappedDataExpectingProcessor).";
  987. //>>excludeEnd("ide");
  988. $core.addMethod(
  989. $core.method({
  990. selector: "toView:",
  991. protocol: "data transformation",
  992. fn: function (aDataCarrier){
  993. var self=this,$self=this;
  994. return self;
  995. },
  996. //>>excludeStart("ide", pragmas.excludeIdeData);
  997. args: ["aDataCarrier"],
  998. source: "toView: aDataCarrier\x0a\x09\x22stop\x22",
  999. referencedClasses: [],
  1000. //>>excludeEnd("ide");
  1001. messageSends: []
  1002. }),
  1003. $globals.TrappedProcessorTerminator);
  1004. $core.addClass("TrappedSingleton", $globals.Object, [], "Trapped");
  1005. $core.addMethod(
  1006. $core.method({
  1007. selector: "start:",
  1008. protocol: "action",
  1009. fn: function (args){
  1010. var self=this,$self=this;
  1011. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  1012. return $core.withContext(function($ctx1) {
  1013. //>>excludeEnd("ctx");
  1014. return $self._subclassResponsibility();
  1015. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  1016. }, function($ctx1) {$ctx1.fill(self,"start:",{args:args},$globals.TrappedSingleton)});
  1017. //>>excludeEnd("ctx");
  1018. },
  1019. //>>excludeStart("ide", pragmas.excludeIdeData);
  1020. args: ["args"],
  1021. source: "start: args\x0a\x09^ self subclassResponsibility",
  1022. referencedClasses: [],
  1023. //>>excludeEnd("ide");
  1024. messageSends: ["subclassResponsibility"]
  1025. }),
  1026. $globals.TrappedSingleton);
  1027. $globals.TrappedSingleton.a$cls.iVarNames = ["current"];
  1028. $core.addMethod(
  1029. $core.method({
  1030. selector: "current",
  1031. protocol: "accessing",
  1032. fn: function (){
  1033. var self=this,$self=this;
  1034. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  1035. return $core.withContext(function($ctx1) {
  1036. //>>excludeEnd("ctx");
  1037. var $1,$receiver;
  1038. $1=$self["@current"];
  1039. if(($receiver = $1) == null || $receiver.a$nil){
  1040. $self["@current"]=$self._new();
  1041. return $self["@current"];
  1042. } else {
  1043. return $1;
  1044. }
  1045. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  1046. }, function($ctx1) {$ctx1.fill(self,"current",{},$globals.TrappedSingleton.a$cls)});
  1047. //>>excludeEnd("ctx");
  1048. },
  1049. //>>excludeStart("ide", pragmas.excludeIdeData);
  1050. args: [],
  1051. source: "current\x0a\x09^ current ifNil: [ current := self new ]",
  1052. referencedClasses: [],
  1053. //>>excludeEnd("ide");
  1054. messageSends: ["ifNil:", "new"]
  1055. }),
  1056. $globals.TrappedSingleton.a$cls);
  1057. $core.addMethod(
  1058. $core.method({
  1059. selector: "start:",
  1060. protocol: "action",
  1061. fn: function (args){
  1062. var self=this,$self=this;
  1063. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  1064. return $core.withContext(function($ctx1) {
  1065. //>>excludeEnd("ctx");
  1066. $recv($self._current())._start_(args);
  1067. return self;
  1068. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  1069. }, function($ctx1) {$ctx1.fill(self,"start:",{args:args},$globals.TrappedSingleton.a$cls)});
  1070. //>>excludeEnd("ctx");
  1071. },
  1072. //>>excludeStart("ide", pragmas.excludeIdeData);
  1073. args: ["args"],
  1074. source: "start: args\x0a\x09self current start: args",
  1075. referencedClasses: [],
  1076. //>>excludeEnd("ide");
  1077. messageSends: ["start:", "current"]
  1078. }),
  1079. $globals.TrappedSingleton.a$cls);
  1080. $core.addClass("Trapped", $globals.TrappedSingleton, ["registry"], "Trapped");
  1081. $core.addMethod(
  1082. $core.method({
  1083. selector: "byName:",
  1084. protocol: "accessing",
  1085. fn: function (aString){
  1086. var self=this,$self=this;
  1087. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  1088. return $core.withContext(function($ctx1) {
  1089. //>>excludeEnd("ctx");
  1090. return $recv($self["@registry"])._at_(aString);
  1091. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  1092. }, function($ctx1) {$ctx1.fill(self,"byName:",{aString:aString},$globals.Trapped)});
  1093. //>>excludeEnd("ctx");
  1094. },
  1095. //>>excludeStart("ide", pragmas.excludeIdeData);
  1096. args: ["aString"],
  1097. source: "byName: aString\x0a\x09^ registry at: aString",
  1098. referencedClasses: [],
  1099. //>>excludeEnd("ide");
  1100. messageSends: ["at:"]
  1101. }),
  1102. $globals.Trapped);
  1103. $core.addMethod(
  1104. $core.method({
  1105. selector: "cloneAndInject:",
  1106. protocol: "private",
  1107. fn: function (anObject){
  1108. var self=this,$self=this;
  1109. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  1110. return $core.withContext(function($ctx1) {
  1111. //>>excludeEnd("ctx");
  1112. var $1;
  1113. $1=$recv($recv(anObject)._asJQuery())._clone();
  1114. $recv($1)._each_((function(i,each){
  1115. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  1116. return $core.withContext(function($ctx2) {
  1117. //>>excludeEnd("ctx");
  1118. return $self._injectToElement_(each);
  1119. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  1120. }, function($ctx2) {$ctx2.fillBlock({i:i,each:each},$ctx1,1)});
  1121. //>>excludeEnd("ctx");
  1122. }));
  1123. return $recv($1)._get_((0));
  1124. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  1125. }, function($ctx1) {$ctx1.fill(self,"cloneAndInject:",{anObject:anObject},$globals.Trapped)});
  1126. //>>excludeEnd("ctx");
  1127. },
  1128. //>>excludeStart("ide", pragmas.excludeIdeData);
  1129. args: ["anObject"],
  1130. source: "cloneAndInject: anObject\x0a\x09^anObject asJQuery clone\x0a\x09\x09each: [ :i :each | self injectToElement: each ];\x0a\x09\x09get: 0",
  1131. referencedClasses: [],
  1132. //>>excludeEnd("ide");
  1133. messageSends: ["each:", "clone", "asJQuery", "injectToElement:", "get:"]
  1134. }),
  1135. $globals.Trapped);
  1136. $core.addMethod(
  1137. $core.method({
  1138. selector: "descend:snapshotDo:",
  1139. protocol: "private",
  1140. fn: function (anArray,aBlock){
  1141. var self=this,$self=this;
  1142. var tpsc;
  1143. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  1144. return $core.withContext(function($ctx1) {
  1145. //>>excludeEnd("ctx");
  1146. var $1,$3,$2;
  1147. tpsc=$recv($globals.TrappedPathStack)._current();
  1148. $recv(tpsc)._append_do_(anArray,(function(){
  1149. var prefix,modelPath,model;
  1150. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  1151. return $core.withContext(function($ctx2) {
  1152. //>>excludeEnd("ctx");
  1153. $1=$recv(tpsc)._elements();
  1154. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  1155. $ctx2.sendIdx["elements"]=1;
  1156. //>>excludeEnd("ctx");
  1157. prefix=$recv($1)._first();
  1158. prefix;
  1159. modelPath=$recv($recv(tpsc)._elements())._allButFirst();
  1160. modelPath;
  1161. model=$self._byName_(prefix);
  1162. model;
  1163. $3=$recv($globals.TrappedSnapshot)._new();
  1164. $recv($3)._prefix_(prefix);
  1165. $2=$recv($3)._path_model_(modelPath,model);
  1166. return $recv(aBlock)._value_($2);
  1167. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  1168. }, function($ctx2) {$ctx2.fillBlock({prefix:prefix,modelPath:modelPath,model:model},$ctx1,1)});
  1169. //>>excludeEnd("ctx");
  1170. }));
  1171. return self;
  1172. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  1173. }, function($ctx1) {$ctx1.fill(self,"descend:snapshotDo:",{anArray:anArray,aBlock:aBlock,tpsc:tpsc},$globals.Trapped)});
  1174. //>>excludeEnd("ctx");
  1175. },
  1176. //>>excludeStart("ide", pragmas.excludeIdeData);
  1177. args: ["anArray", "aBlock"],
  1178. source: "descend: anArray snapshotDo: aBlock\x0a\x09| tpsc |\x0a tpsc := TrappedPathStack current.\x0a tpsc append: anArray do: [\x0a | prefix modelPath model |\x0a\x09\x09prefix := tpsc elements first.\x0a\x09\x09modelPath := tpsc elements allButFirst.\x0a \x09 model := self byName: prefix.\x0a aBlock value: (TrappedSnapshot new prefix: prefix; path: modelPath model: model)\x0a ]",
  1179. referencedClasses: ["TrappedPathStack", "TrappedSnapshot"],
  1180. //>>excludeEnd("ide");
  1181. messageSends: ["current", "append:do:", "first", "elements", "allButFirst", "byName:", "value:", "prefix:", "new", "path:model:"]
  1182. }),
  1183. $globals.Trapped);
  1184. $core.addMethod(
  1185. $core.method({
  1186. selector: "initialize",
  1187. protocol: "initialization",
  1188. fn: function (){
  1189. var self=this,$self=this;
  1190. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  1191. return $core.withContext(function($ctx1) {
  1192. //>>excludeEnd("ctx");
  1193. (
  1194. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  1195. $ctx1.supercall = true,
  1196. //>>excludeEnd("ctx");
  1197. ($globals.Trapped.superclass||$boot.nilAsClass).fn.prototype._initialize.apply($self, []));
  1198. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  1199. $ctx1.supercall = false;
  1200. //>>excludeEnd("ctx");;
  1201. $self["@registry"]=$globals.HashedCollection._newFromPairs_([]);
  1202. return self;
  1203. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  1204. }, function($ctx1) {$ctx1.fill(self,"initialize",{},$globals.Trapped)});
  1205. //>>excludeEnd("ctx");
  1206. },
  1207. //>>excludeStart("ide", pragmas.excludeIdeData);
  1208. args: [],
  1209. source: "initialize\x0a\x09super initialize.\x0a\x09registry := #{}.",
  1210. referencedClasses: [],
  1211. //>>excludeEnd("ide");
  1212. messageSends: ["initialize"]
  1213. }),
  1214. $globals.Trapped);
  1215. $core.addMethod(
  1216. $core.method({
  1217. selector: "injectToChildren:",
  1218. protocol: "private",
  1219. fn: function (anElement){
  1220. var self=this,$self=this;
  1221. var child;
  1222. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  1223. return $core.withContext(function($ctx1) {
  1224. //>>excludeEnd("ctx");
  1225. child=$recv(anElement)._firstChild();
  1226. $recv((function(){
  1227. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  1228. return $core.withContext(function($ctx2) {
  1229. //>>excludeEnd("ctx");
  1230. return $recv(child)._isNil();
  1231. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  1232. }, function($ctx2) {$ctx2.fillBlock({},$ctx1,1)});
  1233. //>>excludeEnd("ctx");
  1234. }))._whileFalse_((function(){
  1235. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  1236. return $core.withContext(function($ctx2) {
  1237. //>>excludeEnd("ctx");
  1238. $self._injectToElement_(child);
  1239. child=$recv(child)._nextSibling();
  1240. return child;
  1241. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  1242. }, function($ctx2) {$ctx2.fillBlock({},$ctx1,2)});
  1243. //>>excludeEnd("ctx");
  1244. }));
  1245. return self;
  1246. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  1247. }, function($ctx1) {$ctx1.fill(self,"injectToChildren:",{anElement:anElement,child:child},$globals.Trapped)});
  1248. //>>excludeEnd("ctx");
  1249. },
  1250. //>>excludeStart("ide", pragmas.excludeIdeData);
  1251. args: ["anElement"],
  1252. source: "injectToChildren: anElement\x0a\x09| child |\x0a\x09child := anElement firstChild.\x0a\x09[ child isNil ] whileFalse: [ self injectToElement: child. child := child nextSibling ]",
  1253. referencedClasses: [],
  1254. //>>excludeEnd("ide");
  1255. messageSends: ["firstChild", "whileFalse:", "isNil", "injectToElement:", "nextSibling"]
  1256. }),
  1257. $globals.Trapped);
  1258. $core.addMethod(
  1259. $core.method({
  1260. selector: "injectToElement:",
  1261. protocol: "private",
  1262. fn: function (anElement){
  1263. var self=this,$self=this;
  1264. var jq;
  1265. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  1266. return $core.withContext(function($ctx1) {
  1267. //>>excludeEnd("ctx");
  1268. var $1,$receiver;
  1269. jq=$recv(anElement)._asJQuery();
  1270. $1=$recv(jq)._attr_("data-trap");
  1271. if(($receiver = $1) == null || $receiver.a$nil){
  1272. $1;
  1273. } else {
  1274. var attr;
  1275. attr=$receiver;
  1276. $recv(jq)._removeAttr_("data-trap");
  1277. $recv($recv($globals.Trapped)._parse_(attr))._do_((function(rule){
  1278. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  1279. return $core.withContext(function($ctx2) {
  1280. //>>excludeEnd("ctx");
  1281. return $recv($recv($recv($globals.HTMLCanvas)._onJQuery_(jq))._root())._trap_processors_($recv(rule)._first(),$recv(rule)._at_ifAbsent_((2),(function(){
  1282. return [];
  1283. })));
  1284. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  1285. }, function($ctx2) {$ctx2.fillBlock({rule:rule},$ctx1,2)});
  1286. //>>excludeEnd("ctx");
  1287. }));
  1288. }
  1289. $self._injectToChildren_(anElement);
  1290. return self;
  1291. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  1292. }, function($ctx1) {$ctx1.fill(self,"injectToElement:",{anElement:anElement,jq:jq},$globals.Trapped)});
  1293. //>>excludeEnd("ctx");
  1294. },
  1295. //>>excludeStart("ide", pragmas.excludeIdeData);
  1296. args: ["anElement"],
  1297. source: "injectToElement: anElement\x0a\x09| jq |\x0a\x09jq := anElement asJQuery.\x0a\x09(jq attr: 'data-trap') ifNotNil: [ :attr |\x0a\x09\x09jq removeAttr: 'data-trap'.\x0a\x09\x09(Trapped parse: attr) do: [ :rule |\x0a\x09\x09\x09(HTMLCanvas onJQuery: jq) root trap: rule first processors: (rule at: 2 ifAbsent: [#()]) ] ].\x0a\x09self injectToChildren: anElement",
  1298. referencedClasses: ["Trapped", "HTMLCanvas"],
  1299. //>>excludeEnd("ide");
  1300. messageSends: ["asJQuery", "ifNotNil:", "attr:", "removeAttr:", "do:", "parse:", "trap:processors:", "root", "onJQuery:", "first", "at:ifAbsent:", "injectToChildren:"]
  1301. }),
  1302. $globals.Trapped);
  1303. $core.addMethod(
  1304. $core.method({
  1305. selector: "register:",
  1306. protocol: "accessing",
  1307. fn: function (aListKeyedEntity){
  1308. var self=this,$self=this;
  1309. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  1310. return $core.withContext(function($ctx1) {
  1311. //>>excludeEnd("ctx");
  1312. $self._register_name_(aListKeyedEntity,$recv($recv(aListKeyedEntity)._class())._name());
  1313. return self;
  1314. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  1315. }, function($ctx1) {$ctx1.fill(self,"register:",{aListKeyedEntity:aListKeyedEntity},$globals.Trapped)});
  1316. //>>excludeEnd("ctx");
  1317. },
  1318. //>>excludeStart("ide", pragmas.excludeIdeData);
  1319. args: ["aListKeyedEntity"],
  1320. source: "register: aListKeyedEntity\x0a\x09self register: aListKeyedEntity name: aListKeyedEntity class name",
  1321. referencedClasses: [],
  1322. //>>excludeEnd("ide");
  1323. messageSends: ["register:name:", "name", "class"]
  1324. }),
  1325. $globals.Trapped);
  1326. $core.addMethod(
  1327. $core.method({
  1328. selector: "register:name:",
  1329. protocol: "accessing",
  1330. fn: function (aListKeyedEntity,aString){
  1331. var self=this,$self=this;
  1332. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  1333. return $core.withContext(function($ctx1) {
  1334. //>>excludeEnd("ctx");
  1335. $recv($self["@registry"])._at_put_(aString,aListKeyedEntity);
  1336. return self;
  1337. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  1338. }, function($ctx1) {$ctx1.fill(self,"register:name:",{aListKeyedEntity:aListKeyedEntity,aString:aString},$globals.Trapped)});
  1339. //>>excludeEnd("ctx");
  1340. },
  1341. //>>excludeStart("ide", pragmas.excludeIdeData);
  1342. args: ["aListKeyedEntity", "aString"],
  1343. source: "register: aListKeyedEntity name: aString\x0a\x09registry at: aString put: aListKeyedEntity",
  1344. referencedClasses: [],
  1345. //>>excludeEnd("ide");
  1346. messageSends: ["at:put:"]
  1347. }),
  1348. $globals.Trapped);
  1349. $core.addMethod(
  1350. $core.method({
  1351. selector: "start:",
  1352. protocol: "action",
  1353. fn: function (args){
  1354. var self=this,$self=this;
  1355. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  1356. return $core.withContext(function($ctx1) {
  1357. //>>excludeEnd("ctx");
  1358. $recv(args)._do_((function(each){
  1359. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  1360. return $core.withContext(function($ctx2) {
  1361. //>>excludeEnd("ctx");
  1362. return $self._register_(each);
  1363. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  1364. }, function($ctx2) {$ctx2.fillBlock({each:each},$ctx1,1)});
  1365. //>>excludeEnd("ctx");
  1366. }));
  1367. $self._injectToElement_(document);
  1368. return self;
  1369. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  1370. }, function($ctx1) {$ctx1.fill(self,"start:",{args:args},$globals.Trapped)});
  1371. //>>excludeEnd("ctx");
  1372. },
  1373. //>>excludeStart("ide", pragmas.excludeIdeData);
  1374. args: ["args"],
  1375. source: "start: args\x0a\x09args do: [ :each | self register: each ].\x0a\x09self injectToElement: document",
  1376. referencedClasses: [],
  1377. //>>excludeEnd("ide");
  1378. messageSends: ["do:", "register:", "injectToElement:"]
  1379. }),
  1380. $globals.Trapped);
  1381. $core.addMethod(
  1382. $core.method({
  1383. selector: "loop:before:do:",
  1384. protocol: "private",
  1385. fn: function (aSequenceableCollection,aNode,aBlock){
  1386. var self=this,$self=this;
  1387. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  1388. return $core.withContext(function($ctx1) {
  1389. //>>excludeEnd("ctx");
  1390. $recv(aSequenceableCollection)._withIndexDo_((function(item,i){
  1391. var env;
  1392. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  1393. return $core.withContext(function($ctx2) {
  1394. //>>excludeEnd("ctx");
  1395. env=$recv(document)._createElement_("ins");
  1396. env;
  1397. $recv([i])._trapDescend_((function(){
  1398. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  1399. return $core.withContext(function($ctx3) {
  1400. //>>excludeEnd("ctx");
  1401. return $recv($recv($recv($globals.HTMLCanvas)._onJQuery_($recv(env)._asJQuery()))._root())._with_(aBlock);
  1402. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  1403. }, function($ctx3) {$ctx3.fillBlock({},$ctx2,2)});
  1404. //>>excludeEnd("ctx");
  1405. }));
  1406. return $recv($recv($globals.Array)._streamContents_((function(str){
  1407. var child;
  1408. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  1409. return $core.withContext(function($ctx3) {
  1410. //>>excludeEnd("ctx");
  1411. child=$recv(env)._firstChild();
  1412. child;
  1413. return $recv((function(){
  1414. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  1415. return $core.withContext(function($ctx4) {
  1416. //>>excludeEnd("ctx");
  1417. return $recv(child)._isNil();
  1418. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  1419. }, function($ctx4) {$ctx4.fillBlock({},$ctx3,4)});
  1420. //>>excludeEnd("ctx");
  1421. }))._whileFalse_((function(){
  1422. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  1423. return $core.withContext(function($ctx4) {
  1424. //>>excludeEnd("ctx");
  1425. $recv(str)._nextPut_(child);
  1426. child=$recv(child)._nextSibling();
  1427. return child;
  1428. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  1429. }, function($ctx4) {$ctx4.fillBlock({},$ctx3,5)});
  1430. //>>excludeEnd("ctx");
  1431. }));
  1432. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  1433. }, function($ctx3) {$ctx3.fillBlock({str:str,child:child},$ctx2,3)});
  1434. //>>excludeEnd("ctx");
  1435. })))._do_((function(each){
  1436. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  1437. return $core.withContext(function($ctx3) {
  1438. //>>excludeEnd("ctx");
  1439. return $recv($recv(aNode)._parentNode())._insertBefore_reference_(each,aNode);
  1440. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  1441. }, function($ctx3) {$ctx3.fillBlock({each:each},$ctx2,6)});
  1442. //>>excludeEnd("ctx");
  1443. }));
  1444. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  1445. }, function($ctx2) {$ctx2.fillBlock({item:item,i:i,env:env},$ctx1,1)});
  1446. //>>excludeEnd("ctx");
  1447. }));
  1448. return self;
  1449. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  1450. }, function($ctx1) {$ctx1.fill(self,"loop:before:do:",{aSequenceableCollection:aSequenceableCollection,aNode:aNode,aBlock:aBlock},$globals.Trapped.a$cls)});
  1451. //>>excludeEnd("ctx");
  1452. },
  1453. //>>excludeStart("ide", pragmas.excludeIdeData);
  1454. args: ["aSequenceableCollection", "aNode", "aBlock"],
  1455. source: "loop: aSequenceableCollection before: aNode do: aBlock\x0a\x09aSequenceableCollection withIndexDo: [ :item :i |\x0a\x09\x09| env |\x0a\x09\x09\x22env := document createDocumentFragment.\x22\x0a\x09\x09env := document createElement: 'ins'.\x0a\x09\x09{i} trapDescend: [ (HTMLCanvas onJQuery: env asJQuery) root with: aBlock ].\x0a\x09\x09\x22aNode parentNode insertBefore: env reference: aNode\x22\x0a\x09\x09(Array streamContents: [ :str |\x0a\x09\x09\x09| child |\x0a\x09\x09\x09child := env firstChild.\x0a\x09\x09\x09[ child isNil ] whileFalse: [\x0a\x09\x09\x09\x09str nextPut: child.\x0a\x09\x09\x09\x09child := child nextSibling ]])\x0a\x09\x09do: [ :each | aNode parentNode insertBefore: each reference: aNode ]\x0a\x09]",
  1456. referencedClasses: ["HTMLCanvas", "Array"],
  1457. //>>excludeEnd("ide");
  1458. messageSends: ["withIndexDo:", "createElement:", "trapDescend:", "with:", "root", "onJQuery:", "asJQuery", "do:", "streamContents:", "firstChild", "whileFalse:", "isNil", "nextPut:", "nextSibling", "insertBefore:reference:", "parentNode"]
  1459. }),
  1460. $globals.Trapped.a$cls);
  1461. $core.addMethod(
  1462. $core.method({
  1463. selector: "loop:between:and:do:",
  1464. protocol: "private",
  1465. fn: function (aSequenceableCollection,aTagBrush,anotherTagBrush,aBlock){
  1466. var self=this,$self=this;
  1467. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  1468. return $core.withContext(function($ctx1) {
  1469. //>>excludeEnd("ctx");
  1470. var $2,$3,$1,$receiver;
  1471. $2=$recv(aTagBrush)._asJQuery();
  1472. $3=$recv(anotherTagBrush)._element();
  1473. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  1474. $ctx1.sendIdx["element"]=1;
  1475. //>>excludeEnd("ctx");
  1476. $1=$recv($2)._nextUntil_($3);
  1477. $recv($1)._remove();
  1478. if(($receiver = aSequenceableCollection) == null || $receiver.a$nil){
  1479. aSequenceableCollection;
  1480. } else {
  1481. $self._loop_before_do_(aSequenceableCollection,$recv(anotherTagBrush)._element(),aBlock);
  1482. }
  1483. return self;
  1484. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  1485. }, function($ctx1) {$ctx1.fill(self,"loop:between:and:do:",{aSequenceableCollection:aSequenceableCollection,aTagBrush:aTagBrush,anotherTagBrush:anotherTagBrush,aBlock:aBlock},$globals.Trapped.a$cls)});
  1486. //>>excludeEnd("ctx");
  1487. },
  1488. //>>excludeStart("ide", pragmas.excludeIdeData);
  1489. args: ["aSequenceableCollection", "aTagBrush", "anotherTagBrush", "aBlock"],
  1490. source: "loop: aSequenceableCollection between: aTagBrush and: anotherTagBrush do: aBlock\x0a\x09(aTagBrush asJQuery nextUntil: anotherTagBrush element) remove.\x0a\x09aSequenceableCollection ifNotNil: [\x0a\x09\x09self loop: aSequenceableCollection before: anotherTagBrush element do: aBlock\x0a\x09]",
  1491. referencedClasses: [],
  1492. //>>excludeEnd("ide");
  1493. messageSends: ["remove", "nextUntil:", "asJQuery", "element", "ifNotNil:", "loop:before:do:"]
  1494. }),
  1495. $globals.Trapped.a$cls);
  1496. $core.addMethod(
  1497. $core.method({
  1498. selector: "parse:",
  1499. protocol: "parsing",
  1500. fn: function (aString){
  1501. var self=this,$self=this;
  1502. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  1503. return $core.withContext(function($ctx1) {
  1504. //>>excludeEnd("ctx");
  1505. var $2,$1;
  1506. $2=$recv(aString)._tokenize_(".");
  1507. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  1508. $ctx1.sendIdx["tokenize:"]=1;
  1509. //>>excludeEnd("ctx");
  1510. $1=$recv($2)._collect_((function(rule){
  1511. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  1512. return $core.withContext(function($ctx2) {
  1513. //>>excludeEnd("ctx");
  1514. return $recv($recv(rule)._tokenize_(":"))._collect_((function(message){
  1515. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  1516. return $core.withContext(function($ctx3) {
  1517. //>>excludeEnd("ctx");
  1518. return $recv($globals.Axes)._parse_(message);
  1519. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  1520. }, function($ctx3) {$ctx3.fillBlock({message:message},$ctx2,2)});
  1521. //>>excludeEnd("ctx");
  1522. }));
  1523. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  1524. }, function($ctx2) {$ctx2.fillBlock({rule:rule},$ctx1,1)});
  1525. //>>excludeEnd("ctx");
  1526. }));
  1527. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  1528. $ctx1.sendIdx["collect:"]=1;
  1529. //>>excludeEnd("ctx");
  1530. return $1;
  1531. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  1532. }, function($ctx1) {$ctx1.fill(self,"parse:",{aString:aString},$globals.Trapped.a$cls)});
  1533. //>>excludeEnd("ctx");
  1534. },
  1535. //>>excludeStart("ide", pragmas.excludeIdeData);
  1536. args: ["aString"],
  1537. source: "parse: aString\x0a\x09^ (aString tokenize: '.') collect: [ :rule |\x0a\x09\x09(rule tokenize: ':') collect: [ :message |\x0a\x09\x09\x09Axes parse: message ] ]",
  1538. referencedClasses: ["Axes"],
  1539. //>>excludeEnd("ide");
  1540. messageSends: ["collect:", "tokenize:", "parse:"]
  1541. }),
  1542. $globals.Trapped.a$cls);
  1543. $core.addClass("TrappedPathStack", $globals.TrappedSingleton, ["elements"], "Trapped");
  1544. $core.addMethod(
  1545. $core.method({
  1546. selector: "append:do:",
  1547. protocol: "descending",
  1548. fn: function (anArray,aBlock){
  1549. var self=this,$self=this;
  1550. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  1551. return $core.withContext(function($ctx1) {
  1552. //>>excludeEnd("ctx");
  1553. $self._with_do_($recv($self["@elements"]).__comma(anArray),aBlock);
  1554. return self;
  1555. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  1556. }, function($ctx1) {$ctx1.fill(self,"append:do:",{anArray:anArray,aBlock:aBlock},$globals.TrappedPathStack)});
  1557. //>>excludeEnd("ctx");
  1558. },
  1559. //>>excludeStart("ide", pragmas.excludeIdeData);
  1560. args: ["anArray", "aBlock"],
  1561. source: "append: anArray do: aBlock\x0a self with: elements, anArray do: aBlock",
  1562. referencedClasses: [],
  1563. //>>excludeEnd("ide");
  1564. messageSends: ["with:do:", ","]
  1565. }),
  1566. $globals.TrappedPathStack);
  1567. $core.addMethod(
  1568. $core.method({
  1569. selector: "elements",
  1570. protocol: "accessing",
  1571. fn: function (){
  1572. var self=this,$self=this;
  1573. return $self["@elements"];
  1574. },
  1575. //>>excludeStart("ide", pragmas.excludeIdeData);
  1576. args: [],
  1577. source: "elements\x0a\x09^elements",
  1578. referencedClasses: [],
  1579. //>>excludeEnd("ide");
  1580. messageSends: []
  1581. }),
  1582. $globals.TrappedPathStack);
  1583. $core.addMethod(
  1584. $core.method({
  1585. selector: "initialize",
  1586. protocol: "initialization",
  1587. fn: function (){
  1588. var self=this,$self=this;
  1589. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  1590. return $core.withContext(function($ctx1) {
  1591. //>>excludeEnd("ctx");
  1592. (
  1593. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  1594. $ctx1.supercall = true,
  1595. //>>excludeEnd("ctx");
  1596. ($globals.TrappedPathStack.superclass||$boot.nilAsClass).fn.prototype._initialize.apply($self, []));
  1597. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  1598. $ctx1.supercall = false;
  1599. //>>excludeEnd("ctx");;
  1600. $self["@elements"]=[];
  1601. return self;
  1602. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  1603. }, function($ctx1) {$ctx1.fill(self,"initialize",{},$globals.TrappedPathStack)});
  1604. //>>excludeEnd("ctx");
  1605. },
  1606. //>>excludeStart("ide", pragmas.excludeIdeData);
  1607. args: [],
  1608. source: "initialize\x0a super initialize.\x0a\x09elements := #().",
  1609. referencedClasses: [],
  1610. //>>excludeEnd("ide");
  1611. messageSends: ["initialize"]
  1612. }),
  1613. $globals.TrappedPathStack);
  1614. $core.addMethod(
  1615. $core.method({
  1616. selector: "with:do:",
  1617. protocol: "descending",
  1618. fn: function (anArray,aBlock){
  1619. var self=this,$self=this;
  1620. var old;
  1621. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  1622. return $core.withContext(function($ctx1) {
  1623. //>>excludeEnd("ctx");
  1624. old=$self["@elements"];
  1625. $recv((function(){
  1626. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  1627. return $core.withContext(function($ctx2) {
  1628. //>>excludeEnd("ctx");
  1629. $self["@elements"]=anArray;
  1630. $self["@elements"];
  1631. return $recv(aBlock)._value();
  1632. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  1633. }, function($ctx2) {$ctx2.fillBlock({},$ctx1,1)});
  1634. //>>excludeEnd("ctx");
  1635. }))._ensure_((function(){
  1636. $self["@elements"]=old;
  1637. return $self["@elements"];
  1638. }));
  1639. return self;
  1640. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  1641. }, function($ctx1) {$ctx1.fill(self,"with:do:",{anArray:anArray,aBlock:aBlock,old:old},$globals.TrappedPathStack)});
  1642. //>>excludeEnd("ctx");
  1643. },
  1644. //>>excludeStart("ide", pragmas.excludeIdeData);
  1645. args: ["anArray", "aBlock"],
  1646. source: "with: anArray do: aBlock\x0a\x09| old |\x0a old := elements.\x0a [ elements := anArray.\x0a\x09aBlock value ] ensure: [ elements := old ]",
  1647. referencedClasses: [],
  1648. //>>excludeEnd("ide");
  1649. messageSends: ["ensure:", "value"]
  1650. }),
  1651. $globals.TrappedPathStack);
  1652. $core.addMethod(
  1653. $core.method({
  1654. selector: "asTrapProcSendTo:",
  1655. protocol: "*Trapped",
  1656. fn: function (anObject){
  1657. var self=this,$self=this;
  1658. var selector,args;
  1659. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  1660. return $core.withContext(function($ctx1) {
  1661. //>>excludeEnd("ctx");
  1662. var $1;
  1663. selector="";
  1664. args=[];
  1665. $self._withIndexDo_((function(element,index){
  1666. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  1667. return $core.withContext(function($ctx2) {
  1668. //>>excludeEnd("ctx");
  1669. $1=$recv(index)._odd();
  1670. if($core.assert($1)){
  1671. selector=$recv(selector).__comma(element);
  1672. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  1673. $ctx2.sendIdx[","]=1;
  1674. //>>excludeEnd("ctx");
  1675. return selector;
  1676. } else {
  1677. selector=$recv(selector).__comma(":");
  1678. selector;
  1679. return $recv(args)._add_(element);
  1680. }
  1681. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  1682. }, function($ctx2) {$ctx2.fillBlock({element:element,index:index},$ctx1,1)});
  1683. //>>excludeEnd("ctx");
  1684. }));
  1685. return $recv(anObject)._perform_withArguments_(selector,args);
  1686. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  1687. }, function($ctx1) {$ctx1.fill(self,"asTrapProcSendTo:",{anObject:anObject,selector:selector,args:args},$globals.Array)});
  1688. //>>excludeEnd("ctx");
  1689. },
  1690. //>>excludeStart("ide", pragmas.excludeIdeData);
  1691. args: ["anObject"],
  1692. source: "asTrapProcSendTo: anObject\x0a\x09| selector args |\x0a\x09selector := ''.\x0a\x09args := #().\x0a\x09\x09self withIndexDo: [ :element :index | index odd\x0a\x09\x09\x09ifTrue: [ selector := selector, element ]\x0a\x09\x09\x09ifFalse: [ selector := selector, ':'. args add: element ] ].\x0a\x09^anObject perform: selector withArguments: args",
  1693. referencedClasses: [],
  1694. //>>excludeEnd("ide");
  1695. messageSends: ["withIndexDo:", "ifTrue:ifFalse:", "odd", ",", "add:", "perform:withArguments:"]
  1696. }),
  1697. $globals.Array);
  1698. $core.addMethod(
  1699. $core.method({
  1700. selector: "trapDescend:",
  1701. protocol: "*Trapped",
  1702. fn: function (aBlock){
  1703. var self=this,$self=this;
  1704. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  1705. return $core.withContext(function($ctx1) {
  1706. //>>excludeEnd("ctx");
  1707. $recv($recv($globals.Trapped)._current())._descend_snapshotDo_(self,aBlock);
  1708. return self;
  1709. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  1710. }, function($ctx1) {$ctx1.fill(self,"trapDescend:",{aBlock:aBlock},$globals.Array)});
  1711. //>>excludeEnd("ctx");
  1712. },
  1713. //>>excludeStart("ide", pragmas.excludeIdeData);
  1714. args: ["aBlock"],
  1715. source: "trapDescend: aBlock\x0a\x09Trapped current descend: self snapshotDo: aBlock",
  1716. referencedClasses: ["Trapped"],
  1717. //>>excludeEnd("ide");
  1718. messageSends: ["descend:snapshotDo:", "current"]
  1719. }),
  1720. $globals.Array);
  1721. $core.addMethod(
  1722. $core.method({
  1723. selector: "trapIter:do:",
  1724. protocol: "*Trapped",
  1725. fn: function (path,aBlock){
  1726. var self=this,$self=this;
  1727. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  1728. return $core.withContext(function($ctx1) {
  1729. //>>excludeEnd("ctx");
  1730. var $1;
  1731. $self._with_((function(html){
  1732. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  1733. return $core.withContext(function($ctx2) {
  1734. //>>excludeEnd("ctx");
  1735. $1=$recv(html)._tag_("script");
  1736. $recv($1)._at_put_("type","application/x-beacon");
  1737. return $recv($1)._trapIter_after_(path,aBlock);
  1738. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  1739. }, function($ctx2) {$ctx2.fillBlock({html:html},$ctx1,1)});
  1740. //>>excludeEnd("ctx");
  1741. }));
  1742. return self;
  1743. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  1744. }, function($ctx1) {$ctx1.fill(self,"trapIter:do:",{path:path,aBlock:aBlock},$globals.HTMLCanvas)});
  1745. //>>excludeEnd("ctx");
  1746. },
  1747. //>>excludeStart("ide", pragmas.excludeIdeData);
  1748. args: ["path", "aBlock"],
  1749. source: "trapIter: path do: aBlock\x0a self with: [ :html | (html tag: 'script') at: 'type' put: 'application/x-beacon'; trapIter: path after: aBlock ]",
  1750. referencedClasses: [],
  1751. //>>excludeEnd("ide");
  1752. messageSends: ["with:", "at:put:", "tag:", "trapIter:after:"]
  1753. }),
  1754. $globals.HTMLCanvas);
  1755. $core.addMethod(
  1756. $core.method({
  1757. selector: "asTrapProcSendTo:",
  1758. protocol: "*Trapped",
  1759. fn: function (anObject){
  1760. var self=this,$self=this;
  1761. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  1762. return $core.withContext(function($ctx1) {
  1763. //>>excludeEnd("ctx");
  1764. var $1;
  1765. $1=$recv("Trapped cannot use processor descriptor of ".__comma($recv($self._class())._name())).__comma(" type.");
  1766. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  1767. $ctx1.sendIdx[","]=1;
  1768. //>>excludeEnd("ctx");
  1769. $self._error_($1);
  1770. return self;
  1771. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  1772. }, function($ctx1) {$ctx1.fill(self,"asTrapProcSendTo:",{anObject:anObject},$globals.Object)});
  1773. //>>excludeEnd("ctx");
  1774. },
  1775. //>>excludeStart("ide", pragmas.excludeIdeData);
  1776. args: ["anObject"],
  1777. source: "asTrapProcSendTo: anObject\x0a\x09self error: 'Trapped cannot use processor descriptor of ', self class name, ' type.'",
  1778. referencedClasses: [],
  1779. //>>excludeEnd("ide");
  1780. messageSends: ["error:", ",", "name", "class"]
  1781. }),
  1782. $globals.Object);
  1783. $core.addMethod(
  1784. $core.method({
  1785. selector: "asTrapProcSendTo:",
  1786. protocol: "*Trapped",
  1787. fn: function (anObject){
  1788. var self=this,$self=this;
  1789. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  1790. return $core.withContext(function($ctx1) {
  1791. //>>excludeEnd("ctx");
  1792. return $recv(anObject)._perform_(self);
  1793. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  1794. }, function($ctx1) {$ctx1.fill(self,"asTrapProcSendTo:",{anObject:anObject},$globals.String)});
  1795. //>>excludeEnd("ctx");
  1796. },
  1797. //>>excludeStart("ide", pragmas.excludeIdeData);
  1798. args: ["anObject"],
  1799. source: "asTrapProcSendTo: anObject\x0a\x09^anObject perform: self",
  1800. referencedClasses: [],
  1801. //>>excludeEnd("ide");
  1802. messageSends: ["perform:"]
  1803. }),
  1804. $globals.String);
  1805. $core.addMethod(
  1806. $core.method({
  1807. selector: "trap:",
  1808. protocol: "*Trapped",
  1809. fn: function (path){
  1810. var self=this,$self=this;
  1811. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  1812. return $core.withContext(function($ctx1) {
  1813. //>>excludeEnd("ctx");
  1814. $self._trap_processors_(path,[]);
  1815. return self;
  1816. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  1817. }, function($ctx1) {$ctx1.fill(self,"trap:",{path:path},$globals.TagBrush)});
  1818. //>>excludeEnd("ctx");
  1819. },
  1820. //>>excludeStart("ide", pragmas.excludeIdeData);
  1821. args: ["path"],
  1822. source: "trap: path\x0a\x09self trap: path processors: #()",
  1823. referencedClasses: [],
  1824. //>>excludeEnd("ide");
  1825. messageSends: ["trap:processors:"]
  1826. }),
  1827. $globals.TagBrush);
  1828. $core.addMethod(
  1829. $core.method({
  1830. selector: "trap:processors:",
  1831. protocol: "*Trapped",
  1832. fn: function (path,anArray){
  1833. var self=this,$self=this;
  1834. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  1835. return $core.withContext(function($ctx1) {
  1836. //>>excludeEnd("ctx");
  1837. $recv(path)._trapDescend_((function(snap){
  1838. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  1839. return $core.withContext(function($ctx2) {
  1840. //>>excludeEnd("ctx");
  1841. return $recv($recv($globals.TrappedProcessingChain)._newFromProcessorSpecs_(anArray))._forSnapshot_andBrush_(snap,self);
  1842. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  1843. }, function($ctx2) {$ctx2.fillBlock({snap:snap},$ctx1,1)});
  1844. //>>excludeEnd("ctx");
  1845. }));
  1846. return self;
  1847. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  1848. }, function($ctx1) {$ctx1.fill(self,"trap:processors:",{path:path,anArray:anArray},$globals.TagBrush)});
  1849. //>>excludeEnd("ctx");
  1850. },
  1851. //>>excludeStart("ide", pragmas.excludeIdeData);
  1852. args: ["path", "anArray"],
  1853. source: "trap: path processors: anArray\x0a\x09path trapDescend: [ :snap |\x0a\x09\x09(TrappedProcessingChain newFromProcessorSpecs: anArray)\x0a\x09\x09\x09forSnapshot: snap andBrush: self ]",
  1854. referencedClasses: ["TrappedProcessingChain"],
  1855. //>>excludeEnd("ide");
  1856. messageSends: ["trapDescend:", "forSnapshot:andBrush:", "newFromProcessorSpecs:"]
  1857. }),
  1858. $globals.TagBrush);
  1859. $core.addMethod(
  1860. $core.method({
  1861. selector: "trap:read:",
  1862. protocol: "*Trapped",
  1863. fn: function (path,aBlock){
  1864. var self=this,$self=this;
  1865. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  1866. return $core.withContext(function($ctx1) {
  1867. //>>excludeEnd("ctx");
  1868. var $1;
  1869. $recv(path)._trapDescend_((function(snap){
  1870. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  1871. return $core.withContext(function($ctx2) {
  1872. //>>excludeEnd("ctx");
  1873. return $recv(snap)._watch_((function(data){
  1874. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  1875. return $core.withContext(function($ctx3) {
  1876. //>>excludeEnd("ctx");
  1877. $1=$recv($recv($recv($self._asJQuery())._closest_("html"))._toArray())._isEmpty();
  1878. if($core.assert($1)){
  1879. $recv($globals.AxonOff)._signal();
  1880. }
  1881. return $recv(snap)._do_((function(){
  1882. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  1883. return $core.withContext(function($ctx4) {
  1884. //>>excludeEnd("ctx");
  1885. return $self._with_((function(html){
  1886. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  1887. return $core.withContext(function($ctx5) {
  1888. //>>excludeEnd("ctx");
  1889. return $recv(aBlock)._value_value_(data,html);
  1890. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  1891. }, function($ctx5) {$ctx5.fillBlock({html:html},$ctx4,5)});
  1892. //>>excludeEnd("ctx");
  1893. }));
  1894. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  1895. }, function($ctx4) {$ctx4.fillBlock({},$ctx3,4)});
  1896. //>>excludeEnd("ctx");
  1897. }));
  1898. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  1899. }, function($ctx3) {$ctx3.fillBlock({data:data},$ctx2,2)});
  1900. //>>excludeEnd("ctx");
  1901. }));
  1902. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  1903. }, function($ctx2) {$ctx2.fillBlock({snap:snap},$ctx1,1)});
  1904. //>>excludeEnd("ctx");
  1905. }));
  1906. return self;
  1907. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  1908. }, function($ctx1) {$ctx1.fill(self,"trap:read:",{path:path,aBlock:aBlock},$globals.TagBrush)});
  1909. //>>excludeEnd("ctx");
  1910. },
  1911. //>>excludeStart("ide", pragmas.excludeIdeData);
  1912. args: ["path", "aBlock"],
  1913. source: "trap: path read: aBlock\x0a\x09path trapDescend: [ :snap |\x0a snap watch: [ :data |\x0a (self asJQuery closest: 'html') toArray isEmpty ifTrue: [ AxonOff signal ].\x0a \x09snap do: [ self with: [ :html | aBlock value: data value: html ] ]\x0a \x09]\x0a ]",
  1914. referencedClasses: ["AxonOff"],
  1915. //>>excludeEnd("ide");
  1916. messageSends: ["trapDescend:", "watch:", "ifTrue:", "isEmpty", "toArray", "closest:", "asJQuery", "signal", "do:", "with:", "value:value:"]
  1917. }),
  1918. $globals.TagBrush);
  1919. $core.addMethod(
  1920. $core.method({
  1921. selector: "trapGuard:contents:",
  1922. protocol: "*Trapped",
  1923. fn: function (anArray,aBlock){
  1924. var self=this,$self=this;
  1925. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  1926. return $core.withContext(function($ctx1) {
  1927. //>>excludeEnd("ctx");
  1928. var $1,$2,$3,$4,$receiver;
  1929. []._trapDescend_((function(snap){
  1930. var shown;
  1931. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  1932. return $core.withContext(function($ctx2) {
  1933. //>>excludeEnd("ctx");
  1934. shown=nil;
  1935. shown;
  1936. return $self._trap_read_(anArray,(function(gdata){
  1937. var sanitized;
  1938. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  1939. return $core.withContext(function($ctx3) {
  1940. //>>excludeEnd("ctx");
  1941. if(($receiver = gdata) == null || $receiver.a$nil){
  1942. sanitized=false;
  1943. } else {
  1944. sanitized=gdata;
  1945. }
  1946. sanitized;
  1947. $1=$recv(shown).__eq(sanitized);
  1948. if(!$core.assert($1)){
  1949. shown=sanitized;
  1950. shown;
  1951. $2=shown;
  1952. if($core.assert($2)){
  1953. $recv(snap)._do_((function(){
  1954. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  1955. return $core.withContext(function($ctx4) {
  1956. //>>excludeEnd("ctx");
  1957. return $self._contents_(aBlock);
  1958. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  1959. }, function($ctx4) {$ctx4.fillBlock({},$ctx3,6)});
  1960. //>>excludeEnd("ctx");
  1961. }));
  1962. $3=$self._asJQuery();
  1963. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  1964. $ctx3.sendIdx["asJQuery"]=1;
  1965. //>>excludeEnd("ctx");
  1966. return $recv($3)._show();
  1967. } else {
  1968. $4=$self._asJQuery();
  1969. $recv($4)._hide();
  1970. return $recv($4)._empty();
  1971. }
  1972. }
  1973. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  1974. }, function($ctx3) {$ctx3.fillBlock({gdata:gdata,sanitized:sanitized},$ctx2,2)});
  1975. //>>excludeEnd("ctx");
  1976. }));
  1977. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  1978. }, function($ctx2) {$ctx2.fillBlock({snap:snap,shown:shown},$ctx1,1)});
  1979. //>>excludeEnd("ctx");
  1980. }));
  1981. return self;
  1982. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  1983. }, function($ctx1) {$ctx1.fill(self,"trapGuard:contents:",{anArray:anArray,aBlock:aBlock},$globals.TagBrush)});
  1984. //>>excludeEnd("ctx");
  1985. },
  1986. //>>excludeStart("ide", pragmas.excludeIdeData);
  1987. args: ["anArray", "aBlock"],
  1988. source: "trapGuard: anArray contents: aBlock\x0a\x09#() trapDescend: [ :snap |\x0a\x09 | shown |\x0a \x09shown := nil.\x0a\x09 self trap: anArray read: [ :gdata |\x0a\x09\x09\x09| sanitized |\x0a\x09\x09\x09sanitized := gdata ifNil: [ false ].\x0a \x09 shown = sanitized ifFalse: [\x0a \x09 shown := sanitized.\x0a \x09shown\x0a\x09\x09\x09\x09\x09ifTrue: [ snap do: [ self contents: aBlock ]. self asJQuery show ]\x0a\x09\x09\x09\x09\x09ifFalse: [ self asJQuery hide; empty ] ] ] ]",
  1989. referencedClasses: [],
  1990. //>>excludeEnd("ide");
  1991. messageSends: ["trapDescend:", "trap:read:", "ifNil:", "ifFalse:", "=", "ifTrue:ifFalse:", "do:", "contents:", "show", "asJQuery", "hide", "empty"]
  1992. }),
  1993. $globals.TagBrush);
  1994. $core.addMethod(
  1995. $core.method({
  1996. selector: "trapIter:after:",
  1997. protocol: "*Trapped",
  1998. fn: function (path,aBlock){
  1999. var self=this,$self=this;
  2000. var end;
  2001. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  2002. return $core.withContext(function($ctx1) {
  2003. //>>excludeEnd("ctx");
  2004. var $2,$1,$3;
  2005. end=$recv($globals.TagBrush)._fromJQuery_canvas_("<script type=\x22application/x-beacon\x22 />"._asJQuery(),$self["@canvas"]);
  2006. $2=$self._element();
  2007. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  2008. $ctx1.sendIdx["element"]=1;
  2009. //>>excludeEnd("ctx");
  2010. $1=$recv($2)._parentNode();
  2011. $3=$recv(end)._element();
  2012. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  2013. $ctx1.sendIdx["element"]=2;
  2014. //>>excludeEnd("ctx");
  2015. $recv($1)._insertBefore_reference_($3,$recv($self._element())._nextSibling());
  2016. $self._trap_read_(path,(function(model){
  2017. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  2018. return $core.withContext(function($ctx2) {
  2019. //>>excludeEnd("ctx");
  2020. return $recv($globals.Trapped)._loop_between_and_do_(model,self,end,aBlock);
  2021. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  2022. }, function($ctx2) {$ctx2.fillBlock({model:model},$ctx1,1)});
  2023. //>>excludeEnd("ctx");
  2024. }));
  2025. return self;
  2026. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  2027. }, function($ctx1) {$ctx1.fill(self,"trapIter:after:",{path:path,aBlock:aBlock,end:end},$globals.TagBrush)});
  2028. //>>excludeEnd("ctx");
  2029. },
  2030. //>>excludeStart("ide", pragmas.excludeIdeData);
  2031. args: ["path", "aBlock"],
  2032. source: "trapIter: path after: aBlock\x0a\x09| end |\x0a\x09end := TagBrush fromJQuery: ('<script type=\x22application/x-beacon\x22 />' asJQuery) canvas: canvas.\x0a\x09self element parentNode insertBefore: end element reference: self element nextSibling.\x0a self trap: path read: [ :model |\x0a \x09Trapped loop: model between: self and: end do: aBlock.\x0a ]",
  2033. referencedClasses: ["TagBrush", "Trapped"],
  2034. //>>excludeEnd("ide");
  2035. messageSends: ["fromJQuery:canvas:", "asJQuery", "insertBefore:reference:", "parentNode", "element", "nextSibling", "trap:read:", "loop:between:and:do:"]
  2036. }),
  2037. $globals.TagBrush);
  2038. });