Trapped.js 75 KB

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