No one used source in data carrier.

So removing. It was a hack anyway, it should not be needed.

src/Trapped-Frontend.js

@@ -4,7 +4,7 @@ $core.addPackage('Trapped-Frontend');
 $core.packages["Trapped-Frontend"].innerEval = function (expr) { return eval(expr); };
 $core.packages["Trapped-Frontend"].transport = {"type":"amd","amdNamespace":"trapped"};
 
-$core.addClass('TrappedDataCarrier', $globals.Object, ['target', 'model', 'chain', 'source'], 'Trapped-Frontend');
+$core.addClass('TrappedDataCarrier', $globals.Object, ['target', 'model', 'chain'], 'Trapped-Frontend');
 $core.addMethod(
 $core.method({
 selector: "chain:",
@@ -89,45 +89,6 @@ messageSends: ["initialize"]
 }),
 $globals.TrappedDataCarrier);
 
-$core.addMethod(
-$core.method({
-selector: "source",
-protocol: 'accessing',
-fn: function (){
-var self=this;
-var $1;
-$1=self["@source"];
-return $1;
-
-},
-//>>excludeStart("ide", pragmas.excludeIdeData);
-args: [],
-source: "source\x0a\x09^source",
-referencedClasses: [],
-//>>excludeEnd("ide");
-messageSends: []
-}),
-$globals.TrappedDataCarrier);
-
-$core.addMethod(
-$core.method({
-selector: "source:",
-protocol: 'accessing',
-fn: function (anObject){
-var self=this;
-self["@source"]=anObject;
-return self;
-
-},
-//>>excludeStart("ide", pragmas.excludeIdeData);
-args: ["anObject"],
-source: "source: anObject\x0a\x09source := anObject",
-referencedClasses: [],
-//>>excludeEnd("ide");
-messageSends: []
-}),
-$globals.TrappedDataCarrier);
-
 $core.addMethod(
 $core.method({
 selector: "target",
@@ -379,11 +340,6 @@ return $recv(each)._installToView_toModel_(toViewCarrier,toModelCarrier);
 }, function($ctx2) {$ctx2.fillBlock({each:each},$ctx1,1)});
 //>>excludeEnd("ctx");
 }));
-$recv(toViewCarrier)._source_(aSnapshot);
-//>>excludeStart("ctx", pragmas.excludeDebugContexts);
-$ctx1.sendIdx["source:"]=1;
-//>>excludeEnd("ctx");
-$recv(toModelCarrier)._source_(aTagBrush);
 $1=$recv($recv(toViewCarrier)._value()).__eq(true);
 if($core.assert($1)){
 $recv($recv(toViewCarrier)._copy())._proceed();
@@ -395,10 +351,10 @@ return self;
 },
 //>>excludeStart("ide", pragmas.excludeIdeData);
 args: ["aSnapshot", "aTagBrush"],
-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 source: aSnapshot.\x0a\x09toModelCarrier source: aTagBrush.\x0a\x09toViewCarrier value = true ifTrue: [ toViewCarrier copy proceed ]",
+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 ]",
 referencedClasses: ["TrappedDataCarrierToView", "TrappedDataCarrierToModel"],
 //>>excludeEnd("ide");
-messageSends: ["on:target:", "do:", "installToView:toModel:", "source:", "ifTrue:", "=", "value", "proceed", "copy"]
+messageSends: ["on:target:", "do:", "installToView:toModel:", "ifTrue:", "=", "value", "proceed", "copy"]
 }),
 $globals.TrappedProcessingChain);
 

src/Trapped-Frontend.st

@@ -1,6 +1,6 @@
 Smalltalk createPackage: 'Trapped-Frontend'!
 Object subclass: #TrappedDataCarrier
-	instanceVariableNames: 'target model chain source'
+	instanceVariableNames: 'target model chain'
 	package: 'Trapped-Frontend'!
 
 !TrappedDataCarrier methodsFor: 'accessing'!
@@ -9,14 +9,6 @@ chain: aProcessingChain
 	chain := aProcessingChain
 !
 
-source
-	^source
-!
-
-source: anObject
-	source := anObject
-!
-
 target
 	^target
 !
@@ -112,8 +104,6 @@ forSnapshot: aSnapshot andBrush: aTagBrush
 	toViewCarrier := TrappedDataCarrierToView on: self target: aTagBrush.
 	toModelCarrier := TrappedDataCarrierToModel on: self target: aSnapshot.
 	processors do: [ :each | each installToView: toViewCarrier toModel: toModelCarrier ].
-	toViewCarrier source: aSnapshot.
-	toModelCarrier source: aTagBrush.
 	toViewCarrier value = true ifTrue: [ toViewCarrier copy proceed ]
 ! !