smalltalk.addPackage('Trapped', {}); smalltalk.addClass('EavModel', smalltalk.Object, ['getBlock', 'putBlock'], 'Trapped'); smalltalk.addMethod( "_getBlock_", smalltalk.method({ selector: "getBlock:", fn: function (aBlock){ var self=this; self["@getBlock"]=aBlock; return self} }), smalltalk.EavModel); smalltalk.addMethod( "_initialize", smalltalk.method({ selector: "initialize", fn: function (){ var self=this; self["@getBlock"]=(function(){ return smalltalk.send(self,"_error_",["No getter block."]); }); self["@putBlock"]=(function(){ return smalltalk.send(self,"_error_",["No putter block."]); }); return self} }), smalltalk.EavModel); smalltalk.addMethod( "_on_", smalltalk.method({ selector: "on:", fn: function (anObject){ var self=this; var $1; $1=smalltalk.send(self["@getBlock"],"_value_",[anObject]); return $1; } }), smalltalk.EavModel); smalltalk.addMethod( "_on_put_", smalltalk.method({ selector: "on:put:", fn: function (anObject,anObject2){ var self=this; var $1; $1=smalltalk.send(self["@putBlock"],"_value_value_",[anObject,anObject2]); return $1; } }), smalltalk.EavModel); smalltalk.addMethod( "_putBlock_", smalltalk.method({ selector: "putBlock:", fn: function (aBlock){ var self=this; self["@putBlock"]=aBlock; return self} }), smalltalk.EavModel); smalltalk.addClass('Isolator', smalltalk.Object, ['root'], 'Trapped'); smalltalk.addMethod( "_model_modify_", smalltalk.method({ selector: "model:modify:", fn: function (anEavModel,aBlock){ var self=this; var newValue; newValue=smalltalk.send(aBlock,"_value_",[smalltalk.send(anEavModel,"_on_",[self])]); smalltalk.send(anEavModel,"_on_put_",[self,smalltalk.send(newValue,"_deepCopy",[])]); return self} }), smalltalk.Isolator); smalltalk.addMethod( "_model_read_", smalltalk.method({ selector: "model:read:", fn: function (anEavModel,aBlock){ var self=this; smalltalk.send(aBlock,"_value_",[smalltalk.send(smalltalk.send(anEavModel,"_on_",[self]),"_deepCopy",[])]); return self} }), smalltalk.Isolator); smalltalk.addMethod( "_root", smalltalk.method({ selector: "root", fn: function (){ var self=this; return self["@root"]; } }), smalltalk.Isolator); smalltalk.addMethod( "_root_", smalltalk.method({ selector: "root:", fn: function (anObject){ var self=this; self["@root"]=anObject; return self} }), smalltalk.Isolator); smalltalk.addMethod( "_on_", smalltalk.method({ selector: "on:", fn: function (anObject){ var self=this; var $1; $1=smalltalk.send(smalltalk.send(self,"_new",[]),"_root_",[anObject]); return $1; } }), smalltalk.Isolator.klass); smalltalk.addClass('Trapped', smalltalk.Object, [], 'Trapped');