| 123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195196197198199200201202203204205206207208209210211212213214215216217218219220221222223224225226 |
- smalltalk.addPackage('Trapped-Frontend', {});
- smalltalk.addClass('TrappedSingleton', smalltalk.Object, [], 'Trapped-Frontend');
- smalltalk.addMethod(
- "_start",
- smalltalk.method({
- selector: "start",
- category: 'action',
- fn: function (){
- var self=this;
- var $1;
- $1=smalltalk.send(self,"_subclassResponsibility",[]);
- return $1;
- },
- args: [],
- source: "start\x0a\x09^ self subclassResponsibility",
- messageSends: ["subclassResponsibility"],
- referencedClasses: []
- }),
- smalltalk.TrappedSingleton);
- smalltalk.TrappedSingleton.klass.iVarNames = ['current'];
- smalltalk.addMethod(
- "_current",
- smalltalk.method({
- selector: "current",
- category: 'accessing',
- fn: function (){
- var self=this;
- var $1;
- if(($receiver = self["@current"]) == nil || $receiver == undefined){
- self["@current"]=smalltalk.send(self,"_new",[]);
- $1=self["@current"];
- } else {
- $1=self["@current"];
- };
- return $1;
- },
- args: [],
- source: "current\x0a\x09^ current ifNil: [ current := self new ]",
- messageSends: ["ifNil:", "new"],
- referencedClasses: []
- }),
- smalltalk.TrappedSingleton.klass);
- smalltalk.addMethod(
- "_start",
- smalltalk.method({
- selector: "start",
- category: 'action',
- fn: function (){
- var self=this;
- smalltalk.send(smalltalk.send(self,"_current",[]),"_start",[]);
- return self},
- args: [],
- source: "start\x0a\x09self current start",
- messageSends: ["start", "current"],
- referencedClasses: []
- }),
- smalltalk.TrappedSingleton.klass);
- smalltalk.addClass('Trapped', smalltalk.TrappedSingleton, ['registry'], 'Trapped-Frontend');
- smalltalk.addMethod(
- "_byName_",
- smalltalk.method({
- selector: "byName:",
- category: 'accessing',
- fn: function (aString){
- var self=this;
- var $1;
- $1=smalltalk.send(self["@registry"],"_at_",[aString]);
- return $1;
- },
- args: ["aString"],
- source: "byName: aString\x0a\x09^ registry at: aString",
- messageSends: ["at:"],
- referencedClasses: []
- }),
- smalltalk.Trapped);
- smalltalk.addMethod(
- "_initialize",
- smalltalk.method({
- selector: "initialize",
- category: 'initialization',
- fn: function (){
- var self=this;
- self["@registry"]=smalltalk.HashedCollection._fromPairs_([]);
- return self},
- args: [],
- source: "initialize\x0a\x09registry := #{}.",
- messageSends: [],
- referencedClasses: []
- }),
- smalltalk.Trapped);
- smalltalk.addMethod(
- "_register_name_",
- smalltalk.method({
- selector: "register:name:",
- category: 'accessing',
- fn: function (aFly,aString){
- var self=this;
- smalltalk.send(self["@registry"],"_at_put_",[aString,aFly]);
- return self},
- args: ["aFly", "aString"],
- source: "register: aFly name: aString\x0a\x09registry at: aString put: aFly",
- messageSends: ["at:put:"],
- referencedClasses: []
- }),
- smalltalk.Trapped);
- smalltalk.addMethod(
- "_start",
- smalltalk.method({
- selector: "start",
- category: 'action',
- fn: function (){
- var self=this;
- var $1,$2;
- smalltalk.send(smalltalk.send("[data-trap]","_asJQuery",[]),"_each_",[(function(index,elem){
- var trap;
- var viewName;
- var modelName;
- var tokens;
- var model;
- var view;
- trap=smalltalk.send(smalltalk.send(jQuery,"_value_",[elem]),"_attr_",["data-trap"]);
- trap;
- tokens=smalltalk.send(trap,"_tokenize_",[":"]);
- tokens;
- viewName=smalltalk.send(tokens,"_first",[]);
- viewName;
- modelName=smalltalk.send(tokens,"_second",[]);
- modelName;
- model=smalltalk.send(smalltalk.send((smalltalk.Trapped || Trapped),"_current",[]),"_byName_",[modelName]);
- model;
- $1=smalltalk.send(smalltalk.send(smalltalk.send((smalltalk.Smalltalk || Smalltalk),"_current",[]),"_at_",[viewName]),"_new",[]);
- smalltalk.send($1,"_startOn_",[elem]);
- smalltalk.send($1,"_observe_",[model]);
- $2=smalltalk.send($1,"_yourself",[]);
- view=$2;
- return view;
- })]);
- return self},
- args: [],
- source: "start\x0a\x09'[data-trap]' asJQuery each: [ :index :elem |\x0a \x09| trap viewName modelName tokens model view |\x0a trap := (jQuery value: elem) attr: 'data-trap'.\x0a tokens := trap tokenize: ':'.\x0a viewName := tokens first.\x0a modelName := tokens second.\x0a \x09model := Trapped current byName: modelName.\x0a view := (Smalltalk current at: viewName) new\x0a \x09startOn: elem;\x0a observe: model;\x0a yourself.\x0a ]",
- messageSends: ["each:", "attr:", "value:", "tokenize:", "first", "second", "byName:", "current", "startOn:", "new", "at:", "observe:", "yourself", "asJQuery"],
- referencedClasses: ["Trapped", "Smalltalk"]
- }),
- smalltalk.Trapped);
- smalltalk.addClass('TrappedFly', smalltalk.TrappedSingleton, [], 'Trapped-Frontend');
- smalltalk.addMethod(
- "_name",
- smalltalk.method({
- selector: "name",
- category: 'action',
- fn: function (){
- var self=this;
- var $1;
- $1=smalltalk.send(smalltalk.send(self,"_class",[]),"_name",[]);
- return $1;
- },
- args: [],
- source: "name\x0a\x09^ self class name",
- messageSends: ["name", "class"],
- referencedClasses: []
- }),
- smalltalk.TrappedFly);
- smalltalk.addMethod(
- "_start",
- smalltalk.method({
- selector: "start",
- category: 'action',
- fn: function (){
- var self=this;
- smalltalk.send(smalltalk.send((smalltalk.Trapped || Trapped),"_current",[]),"_register_name_",[self,smalltalk.send(self,"_name",[])]);
- return self},
- args: [],
- source: "start\x0a\x09Trapped current register: self name: self name",
- messageSends: ["register:name:", "name", "current"],
- referencedClasses: ["Trapped"]
- }),
- smalltalk.TrappedFly);
- smalltalk.addClass('TrappedView', smalltalk.Object, [], 'Trapped-Frontend');
- smalltalk.addMethod(
- "_observe_",
- smalltalk.method({
- selector: "observe:",
- category: 'not yet classified',
- fn: function (aFly){
- var self=this;
- return self},
- args: ["aFly"],
- source: "observe: aFly",
- messageSends: [],
- referencedClasses: []
- }),
- smalltalk.TrappedView);
- smalltalk.addMethod(
- "_startOn_",
- smalltalk.method({
- selector: "startOn:",
- category: 'not yet classified',
- fn: function (aHTMLElement){
- var self=this;
- smalltalk.send(smalltalk.send(jQuery,"_value_",[aHTMLElement]),"_html_",[smalltalk.send(smalltalk.send(smalltalk.send(self,"_class",[]),"_name",[]),"__comma",[": contents"])]);
- return self},
- args: ["aHTMLElement"],
- source: "startOn: aHTMLElement\x0a\x09(jQuery value: aHTMLElement) html: self class name, ': contents'",
- messageSends: ["html:", ",", "name", "class", "value:"],
- referencedClasses: []
- }),
- smalltalk.TrappedView);
|