define("gh_herby_trapped/Trapped-Processors", ["amber_vm/smalltalk", "amber_vm/nil", "amber_vm/_st", "gh_herby_trapped/Trapped-Frontend"], function(smalltalk,nil,_st){ smalltalk.addPackage('Trapped-Processors'); smalltalk.packages["Trapped-Processors"].transport = {"type":"amd","amdNamespace":"gh_herby_trapped"}; smalltalk.addClass('TrappedProcessorAttribute', smalltalk.TrappedDataExpectingProcessor, ['attrName'], 'Trapped-Processors'); smalltalk.TrappedProcessorAttribute.comment="I set the data into an attribute speciried when creating me.\x0aNo observing and sending back, atm."; smalltalk.addMethod( smalltalk.method({ selector: "attrName:", category: 'accessing', fn: function (aString){ var self=this; return smalltalk.withContext(function($ctx1) { self["@attrName"]=aString; return self}, function($ctx1) {$ctx1.fill(self,"attrName:",{aString:aString},smalltalk.TrappedProcessorAttribute)})}, args: ["aString"], source: "attrName: aString\x0a\x09attrName := aString", messageSends: [], referencedClasses: [] }), smalltalk.TrappedProcessorAttribute); smalltalk.addMethod( smalltalk.method({ selector: "toView:", category: 'data transformation', fn: function (aDataCarrier){ var self=this; return smalltalk.withContext(function($ctx1) { _st(aDataCarrier)._toTargetAttr_(self["@attrName"]); return self}, function($ctx1) {$ctx1.fill(self,"toView:",{aDataCarrier:aDataCarrier},smalltalk.TrappedProcessorAttribute)})}, args: ["aDataCarrier"], source: "toView: aDataCarrier\x0a\x09aDataCarrier toTargetAttr: attrName", messageSends: ["toTargetAttr:"], referencedClasses: [] }), smalltalk.TrappedProcessorAttribute); smalltalk.addMethod( smalltalk.method({ selector: "new:", category: 'instance creation', fn: function (aString){ var self=this; return smalltalk.withContext(function($ctx1) { var $2,$3,$1; $2=self._new(); _st($2)._attrName_(aString); $3=_st($2)._yourself(); $1=$3; return $1; }, function($ctx1) {$ctx1.fill(self,"new:",{aString:aString},smalltalk.TrappedProcessorAttribute.klass)})}, args: ["aString"], source: "new: aString\x0a\x09^self new\x0a\x09\x09attrName: aString;\x0a\x09\x09yourself", messageSends: ["attrName:", "new", "yourself"], referencedClasses: [] }), smalltalk.TrappedProcessorAttribute.klass); smalltalk.addClass('TrappedProcessorDataAdhoc', smalltalk.TrappedDataExpectingProcessor, ['toViewBlock'], 'Trapped-Processors'); smalltalk.TrappedProcessorDataAdhoc.comment="I put data into target via contents: in toView:"; smalltalk.addMethod( smalltalk.method({ selector: "toView:", category: 'data transformation', fn: function (aDataCarrier){ var self=this; return smalltalk.withContext(function($ctx1) { _st(self["@toViewBlock"])._value_(aDataCarrier); return self}, function($ctx1) {$ctx1.fill(self,"toView:",{aDataCarrier:aDataCarrier},smalltalk.TrappedProcessorDataAdhoc)})}, args: ["aDataCarrier"], source: "toView: aDataCarrier\x0a\x09toViewBlock value: aDataCarrier", messageSends: ["value:"], referencedClasses: [] }), smalltalk.TrappedProcessorDataAdhoc); smalltalk.addMethod( smalltalk.method({ selector: "toViewBlock:", category: 'accessing', fn: function (aBlock){ var self=this; return smalltalk.withContext(function($ctx1) { self["@toViewBlock"]=aBlock; return self}, function($ctx1) {$ctx1.fill(self,"toViewBlock:",{aBlock:aBlock},smalltalk.TrappedProcessorDataAdhoc)})}, args: ["aBlock"], source: "toViewBlock: aBlock\x0a\x09toViewBlock := aBlock", messageSends: [], referencedClasses: [] }), smalltalk.TrappedProcessorDataAdhoc); smalltalk.addMethod( smalltalk.method({ selector: "newToView:", category: 'instance creation', fn: function (aBlock){ var self=this; return smalltalk.withContext(function($ctx1) { var $2,$3,$1; $2=self._new(); _st($2)._toViewBlock_(aBlock); $3=_st($2)._yourself(); $1=$3; return $1; }, function($ctx1) {$ctx1.fill(self,"newToView:",{aBlock:aBlock},smalltalk.TrappedProcessorDataAdhoc.klass)})}, args: ["aBlock"], source: "newToView: aBlock\x0a\x09^self new\x0a\x09\x09toViewBlock: aBlock;\x0a\x09\x09yourself", messageSends: ["toViewBlock:", "new", "yourself"], referencedClasses: [] }), smalltalk.TrappedProcessorDataAdhoc.klass); smalltalk.addClass('TrappedProcessorDescend', smalltalk.TrappedProcessor, [], 'Trapped-Processors'); smalltalk.TrappedProcessorDescend.comment="I intepret data-trap in descendants of my brush."; smalltalk.addMethod( smalltalk.method({ selector: "toView:", category: 'data transformation', fn: function (aDataCarrier){ var self=this; function $Trapped(){return smalltalk.Trapped||(typeof Trapped=="undefined"?nil:Trapped)} return smalltalk.withContext(function($ctx1) { _st(_st($Trapped())._current())._injectToJQuery_(_st(_st(_st(aDataCarrier)._target())._asJQuery())._children()); return self}, function($ctx1) {$ctx1.fill(self,"toView:",{aDataCarrier:aDataCarrier},smalltalk.TrappedProcessorDescend)})}, args: ["aDataCarrier"], source: "toView: aDataCarrier\x0a\x09Trapped current injectToJQuery: aDataCarrier target asJQuery children", messageSends: ["injectToJQuery:", "current", "children", "asJQuery", "target"], referencedClasses: ["Trapped"] }), smalltalk.TrappedProcessorDescend); smalltalk.addClass('TrappedProcessorGuardBase', smalltalk.TrappedProcessor, ['guardPath'], 'Trapped-Processors'); smalltalk.TrappedProcessorGuardBase.comment="I serve as base class for brush-guarding processors.\x0a\x0aI cover instantiation and subclasses have to provide\x0aimplementation of toVIew: that react appropriately to guard releasing."; smalltalk.addMethod( smalltalk.method({ selector: "guardPath:", category: 'accessing', fn: function (anArray){ var self=this; return smalltalk.withContext(function($ctx1) { self["@guardPath"]=anArray; return self}, function($ctx1) {$ctx1.fill(self,"guardPath:",{anArray:anArray},smalltalk.TrappedProcessorGuardBase)})}, args: ["anArray"], source: "guardPath: anArray\x0a\x09guardPath := anArray", messageSends: [], referencedClasses: [] }), smalltalk.TrappedProcessorGuardBase); smalltalk.addMethod( smalltalk.method({ selector: "toModel:", category: 'data transformation', fn: function (aDataCarrier){ var self=this; return smalltalk.withContext(function($ctx1) { return self}, function($ctx1) {$ctx1.fill(self,"toModel:",{aDataCarrier:aDataCarrier},smalltalk.TrappedProcessorGuardBase)})}, args: ["aDataCarrier"], source: "toModel: aDataCarrier\x0a\x09\x22stop\x22", messageSends: [], referencedClasses: [] }), smalltalk.TrappedProcessorGuardBase); smalltalk.addMethod( smalltalk.method({ selector: "toView:", category: 'data transformation', fn: function (aDataCarrier){ var self=this; return smalltalk.withContext(function($ctx1) { self._subclassResponsibility(); return self}, function($ctx1) {$ctx1.fill(self,"toView:",{aDataCarrier:aDataCarrier},smalltalk.TrappedProcessorGuardBase)})}, args: ["aDataCarrier"], source: "toView: aDataCarrier\x0a\x09self subclassResponsibility", messageSends: ["subclassResponsibility"], referencedClasses: [] }), smalltalk.TrappedProcessorGuardBase); smalltalk.addMethod( smalltalk.method({ selector: "new:", category: 'instance creation', fn: function (anArray){ var self=this; return smalltalk.withContext(function($ctx1) { var $2,$3,$1; $2=self._new(); _st($2)._guardPath_(anArray); $3=_st($2)._yourself(); $1=$3; return $1; }, function($ctx1) {$ctx1.fill(self,"new:",{anArray:anArray},smalltalk.TrappedProcessorGuardBase.klass)})}, args: ["anArray"], source: "new: anArray\x0a\x09^ self new\x0a\x09\x09guardPath: anArray;\x0a\x09\x09yourself", messageSends: ["guardPath:", "new", "yourself"], referencedClasses: [] }), smalltalk.TrappedProcessorGuardBase.klass); smalltalk.addClass('TrappedProcessorGuardContents', smalltalk.TrappedProcessorGuardBase, [], 'Trapped-Processors'); smalltalk.TrappedProcessorGuardContents.comment="I am used to guard contents of the brush I am installed on.\x0a\x0aI save the brush contents, then I observe guard expression in the model,\x0aand when it changes to nil or false, I delete the brush contents;\x0aon the other hand, when it changes to non-nil and non-false,\x0aI restore it from remembered state and interpret all contained\x0adata-trap attributes inside."; smalltalk.addMethod( smalltalk.method({ selector: "toView:", category: 'data transformation', fn: function (aDataCarrier){ var self=this; var frozen,contents; function $Trapped(){return smalltalk.Trapped||(typeof Trapped=="undefined"?nil:Trapped)} return smalltalk.withContext(function($ctx1) { frozen=_st(aDataCarrier)._copy(); contents=_st(frozen)._contents(); _st(_st(frozen)._target())._trapGuard_contents_(self["@guardPath"],(function(html){ return smalltalk.withContext(function($ctx2) { return _st(_st($Trapped())._current())._cloneAndInject_inPlaceOf_(contents,_st(html)._del()); }, function($ctx2) {$ctx2.fillBlock({html:html},$ctx1,1)})})); return self}, function($ctx1) {$ctx1.fill(self,"toView:",{aDataCarrier:aDataCarrier,frozen:frozen,contents:contents},smalltalk.TrappedProcessorGuardContents)})}, args: ["aDataCarrier"], source: "toView: aDataCarrier\x0a\x09| frozen contents |\x0a\x09frozen := aDataCarrier copy.\x0a\x09contents := frozen contents.\x0a\x09frozen target trapGuard: guardPath contents: [ :html |\x0a\x09\x09Trapped current cloneAndInject: contents inPlaceOf: html del ]", messageSends: ["copy", "contents", "trapGuard:contents:", "target", "cloneAndInject:inPlaceOf:", "current", "del"], referencedClasses: ["Trapped"] }), smalltalk.TrappedProcessorGuardContents); smalltalk.addClass('TrappedProcessorGuardProc', smalltalk.TrappedProcessorGuardBase, [], 'Trapped-Processors'); smalltalk.TrappedProcessorGuardProc.comment="I am used to guard contents filling process of the brush I am installed on.\x0a\x0aI observe guard expression in the model,\x0aand when it changes to nil or false, I delete the brush contents;\x0aon the other hand, when it changes to non-nil and non-false,\x0aI run the rest on the chain, which should be one-time\x0athat sets up the contents,"; smalltalk.addMethod( smalltalk.method({ selector: "toView:", category: 'data transformation', fn: function (aDataCarrier){ var self=this; var frozen; return smalltalk.withContext(function($ctx1) { frozen=_st(aDataCarrier)._copy(); $ctx1.sendIdx["copy"]=1; _st(_st(frozen)._target())._trapGuard_contents_(self["@guardPath"],(function(){ return smalltalk.withContext(function($ctx2) { return _st(_st(frozen)._copy())._proceed(); }, function($ctx2) {$ctx2.fillBlock({},$ctx1,1)})})); return self}, function($ctx1) {$ctx1.fill(self,"toView:",{aDataCarrier:aDataCarrier,frozen:frozen},smalltalk.TrappedProcessorGuardProc)})}, args: ["aDataCarrier"], source: "toView: aDataCarrier\x0a\x09| frozen |\x0a\x09frozen := aDataCarrier copy.\x0a\x09frozen target trapGuard: guardPath contents: [ frozen copy proceed ]", messageSends: ["copy", "trapGuard:contents:", "target", "proceed"], referencedClasses: [] }), smalltalk.TrappedProcessorGuardProc); smalltalk.addClass('TrappedProcessorInputChecked', smalltalk.TrappedDataExpectingProcessor, [], 'Trapped-Processors'); smalltalk.TrappedProcessorInputChecked.comment="I bind to checkbox checked attribute."; smalltalk.addMethod( smalltalk.method({ selector: "installToView:toModel:", category: 'installation', fn: function (aDataCarrier,anotherDataCarrier){ var self=this; var brush; return smalltalk.withContext(function($ctx1) { var $1,$2; brush=_st(aDataCarrier)._target(); _st(brush)._onChange_((function(){ return smalltalk.withContext(function($ctx2) { $1=_st(anotherDataCarrier)._copy(); _st($1)._value_(_st(_st(_st(brush)._asJQuery())._attr_("checked"))._notNil()); $2=_st($1)._proceed(); return $2; }, function($ctx2) {$ctx2.fillBlock({},$ctx1,1)})})); return self}, function($ctx1) {$ctx1.fill(self,"installToView:toModel:",{aDataCarrier:aDataCarrier,anotherDataCarrier:anotherDataCarrier,brush:brush},smalltalk.TrappedProcessorInputChecked)})}, args: ["aDataCarrier", "anotherDataCarrier"], source: "installToView: aDataCarrier toModel: anotherDataCarrier\x0a\x09| brush |\x0a\x09brush := aDataCarrier target.\x0a\x09brush onChange: [ anotherDataCarrier copy value: (brush asJQuery attr: 'checked') notNil; proceed ]", messageSends: ["target", "onChange:", "value:", "copy", "notNil", "attr:", "asJQuery", "proceed"], referencedClasses: [] }), smalltalk.TrappedProcessorInputChecked); smalltalk.addMethod( smalltalk.method({ selector: "toView:", category: 'data transformation', fn: function (aDataCarrier){ var self=this; return smalltalk.withContext(function($ctx1) { _st(aDataCarrier)._toTargetAttr_("checked"); return self}, function($ctx1) {$ctx1.fill(self,"toView:",{aDataCarrier:aDataCarrier},smalltalk.TrappedProcessorInputChecked)})}, args: ["aDataCarrier"], source: "toView: aDataCarrier\x0a\x09aDataCarrier toTargetAttr: 'checked'", messageSends: ["toTargetAttr:"], referencedClasses: [] }), smalltalk.TrappedProcessorInputChecked); smalltalk.addClass('TrappedProcessorInputValue', smalltalk.TrappedDataExpectingProcessor, [], 'Trapped-Processors'); smalltalk.TrappedProcessorInputValue.comment="I bind to input value."; smalltalk.addMethod( smalltalk.method({ selector: "installToView:toModel:", category: 'installation', fn: function (aDataCarrier,anotherDataCarrier){ var self=this; var brush; return smalltalk.withContext(function($ctx1) { var $1,$2; brush=_st(aDataCarrier)._target(); _st(brush)._onChange_((function(){ return smalltalk.withContext(function($ctx2) { $1=_st(anotherDataCarrier)._copy(); _st($1)._value_(_st(_st(brush)._asJQuery())._val()); $2=_st($1)._proceed(); return $2; }, function($ctx2) {$ctx2.fillBlock({},$ctx1,1)})})); return self}, function($ctx1) {$ctx1.fill(self,"installToView:toModel:",{aDataCarrier:aDataCarrier,anotherDataCarrier:anotherDataCarrier,brush:brush},smalltalk.TrappedProcessorInputValue)})}, args: ["aDataCarrier", "anotherDataCarrier"], source: "installToView: aDataCarrier toModel: anotherDataCarrier\x0a\x09| brush |\x0a\x09brush := aDataCarrier target.\x0a\x09brush onChange: [ anotherDataCarrier copy value: brush asJQuery val; proceed ]", messageSends: ["target", "onChange:", "value:", "copy", "val", "asJQuery", "proceed"], referencedClasses: [] }), smalltalk.TrappedProcessorInputValue); smalltalk.addMethod( smalltalk.method({ selector: "toView:", category: 'data transformation', fn: function (aDataCarrier){ var self=this; return smalltalk.withContext(function($ctx1) { _st(aDataCarrier)._toTargetValue(); return self}, function($ctx1) {$ctx1.fill(self,"toView:",{aDataCarrier:aDataCarrier},smalltalk.TrappedProcessorInputValue)})}, args: ["aDataCarrier"], source: "toView: aDataCarrier\x0a\x09aDataCarrier toTargetValue", messageSends: ["toTargetValue"], referencedClasses: [] }), smalltalk.TrappedProcessorInputValue); smalltalk.addClass('TrappedProcessorLoopBase', smalltalk.TrappedProcessor, [], 'Trapped-Processors'); smalltalk.TrappedProcessorLoopBase.comment="I serve as base class for looping processors.\x0a\x0aI cover instantiation and subclasses have to provide\x0aimplementation of toVIew: that loops appropriately."; smalltalk.addMethod( smalltalk.method({ selector: "toModel:", category: 'data transformation', fn: function (aDataCarrier){ var self=this; return smalltalk.withContext(function($ctx1) { return self}, function($ctx1) {$ctx1.fill(self,"toModel:",{aDataCarrier:aDataCarrier},smalltalk.TrappedProcessorLoopBase)})}, args: ["aDataCarrier"], source: "toModel: aDataCarrier\x0a\x09\x22stop\x22", messageSends: [], referencedClasses: [] }), smalltalk.TrappedProcessorLoopBase); smalltalk.addMethod( smalltalk.method({ selector: "toView:", category: 'data transformation', fn: function (aDataCarrier){ var self=this; return smalltalk.withContext(function($ctx1) { self._subclassResponsibility(); return self}, function($ctx1) {$ctx1.fill(self,"toView:",{aDataCarrier:aDataCarrier},smalltalk.TrappedProcessorLoopBase)})}, args: ["aDataCarrier"], source: "toView: aDataCarrier\x0a\x09self subclassResponsibility", messageSends: ["subclassResponsibility"], referencedClasses: [] }), smalltalk.TrappedProcessorLoopBase); smalltalk.addClass('TrappedProcessorLoopContents', smalltalk.TrappedProcessorLoopBase, [], 'Trapped-Processors'); smalltalk.TrappedProcessorLoopContents.comment="I am used to loop over data and repeat the contents\x0aof the brush I am installed on.\x0a\x0aI save the brush contents, then I observe the data in the model,\x0aand when it changes, I loop over it\x0aand restore the contents from remembered state\x0aand interpret all contained data-trap attributes inside\x0afor each element, putting the result _after_ my brush.\x0a\x0aMy brush itself should be as least visible as possible,\x0aas it only serve as a position flag (use for example\x0anoscript, ins or del)."; smalltalk.addMethod( smalltalk.method({ selector: "toView:", category: 'data transformation', fn: function (aDataCarrier){ var self=this; var frozen,contents; function $Trapped(){return smalltalk.Trapped||(typeof Trapped=="undefined"?nil:Trapped)} return smalltalk.withContext(function($ctx1) { frozen=_st(aDataCarrier)._copy(); contents=_st(frozen)._contents(); _st(_st(frozen)._target())._trapIter_after_([],(function(html){ return smalltalk.withContext(function($ctx2) { return _st(_st($Trapped())._current())._cloneAndInject_inPlaceOf_(contents,_st(html)._del()); }, function($ctx2) {$ctx2.fillBlock({html:html},$ctx1,1)})})); return self}, function($ctx1) {$ctx1.fill(self,"toView:",{aDataCarrier:aDataCarrier,frozen:frozen,contents:contents},smalltalk.TrappedProcessorLoopContents)})}, args: ["aDataCarrier"], source: "toView: aDataCarrier\x0a\x09| frozen contents |\x0a\x09frozen := aDataCarrier copy.\x0a\x09contents := frozen contents.\x0a\x09frozen target trapIter: #() after: [ :html |\x0a\x09\x09Trapped current cloneAndInject: contents inPlaceOf: html del ]", messageSends: ["copy", "contents", "trapIter:after:", "target", "cloneAndInject:inPlaceOf:", "current", "del"], referencedClasses: ["Trapped"] }), smalltalk.TrappedProcessorLoopContents); smalltalk.addClass('TrappedProcessorLoopProc', smalltalk.TrappedProcessorLoopBase, [], 'Trapped-Processors'); smalltalk.TrappedProcessorLoopProc.comment="I am used to loop over data and repeat the contents filling process\x0aof the brush I am installed on.\x0a\x0aI observe the data in the model,\x0aand when it changes, I loop over it\x0aand run the rest of the processing chain\x0afor each element, putting the result _after_ my brush.\x0a\x0aMy brush itself should be as least visible as possible,\x0aas it only serve as a position flag (use for example\x0anoscript, ins or del)."; smalltalk.addMethod( smalltalk.method({ selector: "toView:", category: 'data transformation', fn: function (aDataCarrier){ var self=this; var frozen; return smalltalk.withContext(function($ctx1) { var $1,$2; frozen=_st(aDataCarrier)._copy(); $ctx1.sendIdx["copy"]=1; _st(_st(frozen)._target())._trapIter_after_([],(function(html){ return smalltalk.withContext(function($ctx2) { $1=_st(frozen)._copy(); _st($1)._target_(_st(html)._root()); $2=_st($1)._proceed(); return $2; }, function($ctx2) {$ctx2.fillBlock({html:html},$ctx1,1)})})); return self}, function($ctx1) {$ctx1.fill(self,"toView:",{aDataCarrier:aDataCarrier,frozen:frozen},smalltalk.TrappedProcessorLoopProc)})}, args: ["aDataCarrier"], source: "toView: aDataCarrier\x0a\x09| frozen |\x0a\x09frozen := aDataCarrier copy.\x0a\x09frozen target trapIter: #() after: [ :html | frozen copy target: html root; proceed ]", messageSends: ["copy", "trapIter:after:", "target", "target:", "root", "proceed"], referencedClasses: [] }), smalltalk.TrappedProcessorLoopProc); smalltalk.addClass('TrappedProcessorReplace', smalltalk.TrappedProcessor, ['left', 'right'], 'Trapped-Processors'); smalltalk.TrappedProcessorReplace.comment="I convert data to string representation and do a regex replace.\x0aI get two parameters, in toView:, first is replaced with second,\x0aand in toModel:, the second is replaced with first.\x0a\x0aI remove leading '^' and ending '$' from the string used as replacement,\x0aso it safe to replace ^to with ^To, for example.\x0a"; smalltalk.addMethod( smalltalk.method({ selector: "left:", category: 'accessing', fn: function (aString){ var self=this; return smalltalk.withContext(function($ctx1) { self["@left"]=aString; return self}, function($ctx1) {$ctx1.fill(self,"left:",{aString:aString},smalltalk.TrappedProcessorReplace)})}, args: ["aString"], source: "left: aString\x0a\x09left := aString", messageSends: [], referencedClasses: [] }), smalltalk.TrappedProcessorReplace); smalltalk.addMethod( smalltalk.method({ selector: "right:", category: 'accessing', fn: function (aString){ var self=this; return smalltalk.withContext(function($ctx1) { self["@right"]=aString; return self}, function($ctx1) {$ctx1.fill(self,"right:",{aString:aString},smalltalk.TrappedProcessorReplace)})}, args: ["aString"], source: "right: aString\x0a\x09right := aString", messageSends: [], referencedClasses: [] }), smalltalk.TrappedProcessorReplace); smalltalk.addMethod( smalltalk.method({ selector: "toModel:", category: 'data transformation', fn: function (aDataCarrier){ var self=this; var replacement,old; return smalltalk.withContext(function($ctx1) { var $1,$2; $1=_st(self["@left"])._replace_with_("^\x5c^",""); $ctx1.sendIdx["replace:with:"]=2; replacement=_st($1)._replace_with_("\x5c$$",""); $ctx1.sendIdx["replace:with:"]=1; old=_st(_st(aDataCarrier)._value())._asString(); _st(aDataCarrier)._value_whenDifferentFrom_(_st(old)._replace_with_(self["@right"],replacement),old); $2=_st(aDataCarrier)._proceed(); return self}, function($ctx1) {$ctx1.fill(self,"toModel:",{aDataCarrier:aDataCarrier,replacement:replacement,old:old},smalltalk.TrappedProcessorReplace)})}, args: ["aDataCarrier"], source: "toModel: aDataCarrier\x0a\x09| replacement old |\x0a\x09replacement := (left replace: '^\x5c^' with: '') replace: '\x5c$$' with: ''.\x0a\x09old := aDataCarrier value asString.\x0a\x09aDataCarrier\x0a\x09\x09value: (old replace: right with: replacement) whenDifferentFrom: old;\x0a\x09\x09proceed", messageSends: ["replace:with:", "asString", "value", "value:whenDifferentFrom:", "proceed"], referencedClasses: [] }), smalltalk.TrappedProcessorReplace); smalltalk.addMethod( smalltalk.method({ selector: "toView:", category: 'data transformation', fn: function (aDataCarrier){ var self=this; var replacement,old; return smalltalk.withContext(function($ctx1) { var $1,$2; $1=_st(self["@right"])._replace_with_("^\x5c^",""); $ctx1.sendIdx["replace:with:"]=2; replacement=_st($1)._replace_with_("\x5c$$",""); $ctx1.sendIdx["replace:with:"]=1; old=_st(_st(aDataCarrier)._value())._asString(); _st(aDataCarrier)._value_whenDifferentFrom_(_st(old)._replace_with_(self["@left"],replacement),old); $2=_st(aDataCarrier)._proceed(); return self}, function($ctx1) {$ctx1.fill(self,"toView:",{aDataCarrier:aDataCarrier,replacement:replacement,old:old},smalltalk.TrappedProcessorReplace)})}, args: ["aDataCarrier"], source: "toView: aDataCarrier\x0a\x09| replacement old |\x0a\x09replacement := (right replace: '^\x5c^' with: '') replace: '\x5c$$' with: ''.\x0a\x09old := aDataCarrier value asString.\x0a\x09aDataCarrier\x0a\x09\x09value: (old replace: left with: replacement) whenDifferentFrom: old;\x0a\x09\x09proceed", messageSends: ["replace:with:", "asString", "value", "value:whenDifferentFrom:", "proceed"], referencedClasses: [] }), smalltalk.TrappedProcessorReplace); smalltalk.addMethod( smalltalk.method({ selector: "new:with:", category: 'instance creation', fn: function (aString,anotherString){ var self=this; return smalltalk.withContext(function($ctx1) { var $2,$3,$4,$5,$1; $2=self._new(); $3=$2; $4=_st(aString)._asString(); $ctx1.sendIdx["asString"]=1; _st($3)._left_($4); _st($2)._right_(_st(anotherString)._asString()); $5=_st($2)._yourself(); $1=$5; return $1; }, function($ctx1) {$ctx1.fill(self,"new:with:",{aString:aString,anotherString:anotherString},smalltalk.TrappedProcessorReplace.klass)})}, args: ["aString", "anotherString"], source: "new: aString with: anotherString\x0a\x09^ self new\x0a\x09\x09left: aString asString;\x0a\x09\x09right: anotherString asString;\x0a\x09\x09yourself", messageSends: ["left:", "new", "asString", "right:", "yourself"], referencedClasses: [] }), smalltalk.TrappedProcessorReplace.klass); smalltalk.addClass('TrappedProcessorSignal', smalltalk.TrappedProcessor, ['selector'], 'Trapped-Processors'); smalltalk.TrappedProcessorSignal.comment="Instead of writing data directly to model,\x0aI instead modify it by sending a message specified when instantiating me."; smalltalk.addMethod( smalltalk.method({ selector: "selector:", category: 'accessing', fn: function (aString){ var self=this; return smalltalk.withContext(function($ctx1) { self["@selector"]=aString; return self}, function($ctx1) {$ctx1.fill(self,"selector:",{aString:aString},smalltalk.TrappedProcessorSignal)})}, args: ["aString"], source: "selector: aString\x0a\x09selector := aString", messageSends: [], referencedClasses: [] }), smalltalk.TrappedProcessorSignal); smalltalk.addMethod( smalltalk.method({ selector: "toModel:", category: 'data transformation', fn: function (aDataCarrier){ var self=this; return smalltalk.withContext(function($ctx1) { _st(aDataCarrier)._modifyTargetByPerforming_(self["@selector"]); return self}, function($ctx1) {$ctx1.fill(self,"toModel:",{aDataCarrier:aDataCarrier},smalltalk.TrappedProcessorSignal)})}, args: ["aDataCarrier"], source: "toModel: aDataCarrier\x0a\x09aDataCarrier modifyTargetByPerforming: selector", messageSends: ["modifyTargetByPerforming:"], referencedClasses: [] }), smalltalk.TrappedProcessorSignal); smalltalk.addMethod( smalltalk.method({ selector: "toView:", category: 'data transformation', fn: function (aDataCarrier){ var self=this; return smalltalk.withContext(function($ctx1) { return self}, function($ctx1) {$ctx1.fill(self,"toView:",{aDataCarrier:aDataCarrier},smalltalk.TrappedProcessorSignal)})}, args: ["aDataCarrier"], source: "toView: aDataCarrier\x0a\x09\x22stop\x22", messageSends: [], referencedClasses: [] }), smalltalk.TrappedProcessorSignal); smalltalk.addMethod( smalltalk.method({ selector: "new:", category: 'instance creation', fn: function (aString){ var self=this; return smalltalk.withContext(function($ctx1) { var $2,$3,$1; $2=self._new(); _st($2)._selector_(aString); $3=_st($2)._yourself(); $1=$3; return $1; }, function($ctx1) {$ctx1.fill(self,"new:",{aString:aString},smalltalk.TrappedProcessorSignal.klass)})}, args: ["aString"], source: "new: aString\x0a\x09^self new\x0a\x09\x09selector: aString;\x0a\x09\x09yourself", messageSends: ["selector:", "new", "yourself"], referencedClasses: [] }), smalltalk.TrappedProcessorSignal.klass); smalltalk.addClass('TrappedProcessorToBlackboard', smalltalk.TrappedDataExpectingProcessor, [], 'Trapped-Processors'); smalltalk.TrappedProcessorToBlackboard.comment="I save the data to blackboard in toModel:, to position specified by path."; smalltalk.addMethod( smalltalk.method({ selector: "toModel:", category: 'data transformation', fn: function (aDataCarrier){ var self=this; return smalltalk.withContext(function($ctx1) { _st(_st(aDataCarrier)._target())._modify_((function(){ return smalltalk.withContext(function($ctx2) { return _st(aDataCarrier)._value(); }, function($ctx2) {$ctx2.fillBlock({},$ctx1,1)})})); return self}, function($ctx1) {$ctx1.fill(self,"toModel:",{aDataCarrier:aDataCarrier},smalltalk.TrappedProcessorToBlackboard)})}, args: ["aDataCarrier"], source: "toModel: aDataCarrier\x0a\x09aDataCarrier target modify: [ aDataCarrier value ]", messageSends: ["modify:", "target", "value"], referencedClasses: [] }), smalltalk.TrappedProcessorToBlackboard); smalltalk.addClass('TrappedProcessorUriComponentDecode', smalltalk.TrappedProcessor, [], 'Trapped-Processors'); smalltalk.TrappedProcessorUriComponentDecode.comment="I uriComponentDecode in toView:\x0aand encode in toModel:"; smalltalk.addMethod( smalltalk.method({ selector: "toModel:", category: 'data transformation', fn: function (aDataCarrier){ var self=this; return smalltalk.withContext(function($ctx1) { var $1; _st(aDataCarrier)._value_(_st(_st(aDataCarrier)._value())._uriComponentEncoded()); $1=_st(aDataCarrier)._proceed(); return self}, function($ctx1) {$ctx1.fill(self,"toModel:",{aDataCarrier:aDataCarrier},smalltalk.TrappedProcessorUriComponentDecode)})}, args: ["aDataCarrier"], source: "toModel: aDataCarrier\x0a\x09aDataCarrier\x0a\x09\x09value: aDataCarrier value uriComponentEncoded;\x0a\x09\x09proceed", messageSends: ["value:", "uriComponentEncoded", "value", "proceed"], referencedClasses: [] }), smalltalk.TrappedProcessorUriComponentDecode); smalltalk.addMethod( smalltalk.method({ selector: "toView:", category: 'data transformation', fn: function (aDataCarrier){ var self=this; return smalltalk.withContext(function($ctx1) { var $1; _st(aDataCarrier)._value_(_st(_st(aDataCarrier)._value())._uriComponentDecoded()); $1=_st(aDataCarrier)._proceed(); return self}, function($ctx1) {$ctx1.fill(self,"toView:",{aDataCarrier:aDataCarrier},smalltalk.TrappedProcessorUriComponentDecode)})}, args: ["aDataCarrier"], source: "toView: aDataCarrier\x0a\x09aDataCarrier\x0a\x09\x09value: aDataCarrier value uriComponentDecoded;\x0a\x09\x09proceed", messageSends: ["value:", "uriComponentDecoded", "value", "proceed"], referencedClasses: [] }), smalltalk.TrappedProcessorUriComponentDecode); smalltalk.addClass('TrappedProcessorUriComponentEncode', smalltalk.TrappedProcessor, [], 'Trapped-Processors'); smalltalk.TrappedProcessorUriComponentEncode.comment="I uriComponentEncode in toView:\x0aand decode in toModel:"; smalltalk.addMethod( smalltalk.method({ selector: "toModel:", category: 'data transformation', fn: function (aDataCarrier){ var self=this; return smalltalk.withContext(function($ctx1) { var $1; _st(aDataCarrier)._value_(_st(_st(aDataCarrier)._value())._uriComponentDecoded()); $1=_st(aDataCarrier)._proceed(); return self}, function($ctx1) {$ctx1.fill(self,"toModel:",{aDataCarrier:aDataCarrier},smalltalk.TrappedProcessorUriComponentEncode)})}, args: ["aDataCarrier"], source: "toModel: aDataCarrier\x0a\x09aDataCarrier\x0a\x09\x09value: aDataCarrier value uriComponentDecoded;\x0a\x09\x09proceed", messageSends: ["value:", "uriComponentDecoded", "value", "proceed"], referencedClasses: [] }), smalltalk.TrappedProcessorUriComponentEncode); smalltalk.addMethod( smalltalk.method({ selector: "toView:", category: 'data transformation', fn: function (aDataCarrier){ var self=this; return smalltalk.withContext(function($ctx1) { var $1; _st(aDataCarrier)._value_(_st(_st(aDataCarrier)._value())._uriComponentEncoded()); $1=_st(aDataCarrier)._proceed(); return self}, function($ctx1) {$ctx1.fill(self,"toView:",{aDataCarrier:aDataCarrier},smalltalk.TrappedProcessorUriComponentEncode)})}, args: ["aDataCarrier"], source: "toView: aDataCarrier\x0a\x09aDataCarrier\x0a\x09\x09value: aDataCarrier value uriComponentEncoded;\x0a\x09\x09proceed", messageSends: ["value:", "uriComponentEncoded", "value", "proceed"], referencedClasses: [] }), smalltalk.TrappedProcessorUriComponentEncode); smalltalk.addClass('TrappedProcessorWhenClicked', smalltalk.TrappedProcessor, [], 'Trapped-Processors'); smalltalk.TrappedProcessorWhenClicked.comment="I bind to an element and send true to blackboard when clicked."; smalltalk.addMethod( smalltalk.method({ selector: "installToView:toModel:", category: 'installation', fn: function (aDataCarrier,anotherDataCarrier){ var self=this; return smalltalk.withContext(function($ctx1) { _st(_st(aDataCarrier)._target())._onClick_((function(){ return smalltalk.withContext(function($ctx2) { _st(_st(anotherDataCarrier)._copy())._proceed(); return false; }, function($ctx2) {$ctx2.fillBlock({},$ctx1,1)})})); return self}, function($ctx1) {$ctx1.fill(self,"installToView:toModel:",{aDataCarrier:aDataCarrier,anotherDataCarrier:anotherDataCarrier},smalltalk.TrappedProcessorWhenClicked)})}, args: ["aDataCarrier", "anotherDataCarrier"], source: "installToView: aDataCarrier toModel: anotherDataCarrier\x0a\x09aDataCarrier target onClick: [ anotherDataCarrier copy proceed. false ]", messageSends: ["onClick:", "target", "proceed", "copy"], referencedClasses: [] }), smalltalk.TrappedProcessorWhenClicked); smalltalk.addClass('TrappedProcessorWhenSubmitted', smalltalk.TrappedProcessor, [], 'Trapped-Processors'); smalltalk.TrappedProcessorWhenSubmitted.comment="I bind to a form and send true to blackboard when submitted."; smalltalk.addMethod( smalltalk.method({ selector: "installToView:toModel:", category: 'installation', fn: function (aDataCarrier,anotherDataCarrier){ var self=this; return smalltalk.withContext(function($ctx1) { _st(_st(aDataCarrier)._target())._onSubmit_((function(){ return smalltalk.withContext(function($ctx2) { _st(_st(anotherDataCarrier)._copy())._proceed(); return false; }, function($ctx2) {$ctx2.fillBlock({},$ctx1,1)})})); return self}, function($ctx1) {$ctx1.fill(self,"installToView:toModel:",{aDataCarrier:aDataCarrier,anotherDataCarrier:anotherDataCarrier},smalltalk.TrappedProcessorWhenSubmitted)})}, args: ["aDataCarrier", "anotherDataCarrier"], source: "installToView: aDataCarrier toModel: anotherDataCarrier\x0a\x09aDataCarrier target onSubmit: [ anotherDataCarrier copy proceed. false ]", messageSends: ["onSubmit:", "target", "proceed", "copy"], referencedClasses: [] }), smalltalk.TrappedProcessorWhenSubmitted); smalltalk.addClass('TrappedProcessorWidget', smalltalk.TrappedProcessor, ['viewName'], 'Trapped-Processors'); smalltalk.TrappedProcessorWidget.comment="I insert a widget instance of the class specified when creating me."; smalltalk.addMethod( smalltalk.method({ selector: "toView:", category: 'data transformation', fn: function (aDataCarrier){ var self=this; function $Smalltalk(){return smalltalk.Smalltalk||(typeof Smalltalk=="undefined"?nil:Smalltalk)} return smalltalk.withContext(function($ctx1) { _st(_st(aDataCarrier)._target())._with_(_st(_st(_st($Smalltalk())._current())._at_(self["@viewName"]))._new()); return self}, function($ctx1) {$ctx1.fill(self,"toView:",{aDataCarrier:aDataCarrier},smalltalk.TrappedProcessorWidget)})}, args: ["aDataCarrier"], source: "toView: aDataCarrier\x0a\x09aDataCarrier target with: (Smalltalk current at: viewName) new", messageSends: ["with:", "target", "new", "at:", "current"], referencedClasses: ["Smalltalk"] }), smalltalk.TrappedProcessorWidget); smalltalk.addMethod( smalltalk.method({ selector: "viewName:", category: 'accessing', fn: function (aString){ var self=this; return smalltalk.withContext(function($ctx1) { self["@viewName"]=aString; return self}, function($ctx1) {$ctx1.fill(self,"viewName:",{aString:aString},smalltalk.TrappedProcessorWidget)})}, args: ["aString"], source: "viewName: aString\x0a\x09viewName := aString", messageSends: [], referencedClasses: [] }), smalltalk.TrappedProcessorWidget); smalltalk.addMethod( smalltalk.method({ selector: "new:", category: 'instance creation', fn: function (aString){ var self=this; return smalltalk.withContext(function($ctx1) { var $2,$3,$1; $2=self._new(); _st($2)._viewName_(aString); $3=_st($2)._yourself(); $1=$3; return $1; }, function($ctx1) {$ctx1.fill(self,"new:",{aString:aString},smalltalk.TrappedProcessorWidget.klass)})}, args: ["aString"], source: "new: aString\x0a\x09^self new\x0a\x09\x09viewName: aString;\x0a\x09\x09yourself", messageSends: ["viewName:", "new", "yourself"], referencedClasses: [] }), smalltalk.TrappedProcessorWidget.klass); smalltalk.addMethod( smalltalk.method({ selector: "contents", category: '*Trapped-Processors', fn: function (){ var self=this; var contents,tag,holder; return smalltalk.withContext(function($ctx1) { var $1,$2,$4,$5,$3,$6,$7,$8,$9,$10; contents=nil; holder=_st(self._target())._asJQuery(); $ctx1.sendIdx["asJQuery"]=1; $1=_st(holder)._prop_("tagName"); $ctx1.sendIdx["prop:"]=1; tag=_st($1)._asLowercase(); $ctx1.sendIdx["asLowercase"]=1; $2=_st(tag).__eq("script"); $ctx1.sendIdx["="]=1; if(smalltalk.assert($2)){ $4=_st(holder)._attr_("data-content"); if(($receiver = $4) == nil || $receiver == null){ $5=self._error_("