|
|
@@ -40,6 +40,7 @@ args: ["aJQuery"],
|
|
|
source: "initializeFromJQuery: aJQuery\x0a\x09\x22Finds and takes out all snippets out of aJQuery.\x0a\x09Installs it into self.\x22\x0a\x09\x0a\x09(self snippetsFromJQuery: aJQuery) do: [ :each |\x0a\x09\x09self installSnippetFromJQuery: each asJQuery ]",
|
|
|
referencedClasses: [],
|
|
|
//>>excludeEnd("ide");
|
|
|
+pragmas: [],
|
|
|
messageSends: ["do:", "snippetsFromJQuery:", "installSnippetFromJQuery:", "asJQuery"]
|
|
|
}),
|
|
|
$globals.HTMLSnippet);
|
|
|
@@ -77,6 +78,7 @@ args: ["element"],
|
|
|
source: "installSnippetFromJQuery: element\x0a\x09| name |\x0a\x09name := element attr: 'data-snippet'.\x0a\x09name = '*' ifFalse: [\x0a\x09\x09('^\x5c*' asRegexp test: name)\x0a\x09\x09\x09ifTrue: [\x0a\x09\x09\x09\x09name := name allButFirst.\x0a\x09\x09\x09\x09element attr: 'data-snippet' put: '*' ]\x0a\x09\x09\x09ifFalse: [\x0a\x09\x09\x09\x09element removeAttr: 'data-snippet' ].\x0a\x09\x09self snippetAt: name install: (element detach get: 0) ]",
|
|
|
referencedClasses: [],
|
|
|
//>>excludeEnd("ide");
|
|
|
+pragmas: [],
|
|
|
messageSends: ["attr:", "ifFalse:", "=", "ifTrue:ifFalse:", "test:", "asRegexp", "allButFirst", "attr:put:", "removeAttr:", "snippetAt:install:", "get:", "detach"]
|
|
|
}),
|
|
|
$globals.HTMLSnippet);
|
|
|
@@ -100,6 +102,7 @@ args: ["aString"],
|
|
|
source: "snippetAt: aString\x0a\x09^ self snippets at: aString",
|
|
|
referencedClasses: [],
|
|
|
//>>excludeEnd("ide");
|
|
|
+pragmas: [],
|
|
|
messageSends: ["at:", "snippets"]
|
|
|
}),
|
|
|
$globals.HTMLSnippet);
|
|
|
@@ -136,6 +139,7 @@ args: ["aString", "anElement"],
|
|
|
source: "snippetAt: aString compile: anElement\x0a\x09\x22Method generation for the snippet.\x0a\x09The selector is aString, the method block uses anElement\x22\x0a\x09\x0a\x09HTMLCanvas addCompiledMethod:\x0a\x09\x09(([ :htmlReceiver | htmlReceiver snippet: anElement ]\x0a\x09\x09\x09currySelf asCompiledMethod: aString) protocol: '**snippets'; yourself)",
|
|
|
referencedClasses: ["HTMLCanvas"],
|
|
|
//>>excludeEnd("ide");
|
|
|
+pragmas: [],
|
|
|
messageSends: ["addCompiledMethod:", "protocol:", "asCompiledMethod:", "currySelf", "snippet:", "yourself"]
|
|
|
}),
|
|
|
$globals.HTMLSnippet);
|
|
|
@@ -161,6 +165,7 @@ args: ["aString", "anElement"],
|
|
|
source: "snippetAt: aString install: anElement\x0a\x09self snippets at: aString put: anElement.\x0a\x09self snippetAt: aString compile: anElement",
|
|
|
referencedClasses: [],
|
|
|
//>>excludeEnd("ide");
|
|
|
+pragmas: [],
|
|
|
messageSends: ["at:put:", "snippets", "snippetAt:compile:"]
|
|
|
}),
|
|
|
$globals.HTMLSnippet);
|
|
|
@@ -191,6 +196,7 @@ args: [],
|
|
|
source: "snippets\x0a\x09^ snippets ifNil: [ snippets := #{} ]",
|
|
|
referencedClasses: [],
|
|
|
//>>excludeEnd("ide");
|
|
|
+pragmas: [],
|
|
|
messageSends: ["ifNil:"]
|
|
|
}),
|
|
|
$globals.HTMLSnippet);
|
|
|
@@ -214,6 +220,7 @@ args: ["aJQuery"],
|
|
|
source: "snippetsFromJQuery: aJQuery\x0a\x09^ (aJQuery find: '[data-snippet]') toArray",
|
|
|
referencedClasses: [],
|
|
|
//>>excludeEnd("ide");
|
|
|
+pragmas: [],
|
|
|
messageSends: ["toArray", "find:"]
|
|
|
}),
|
|
|
$globals.HTMLSnippet);
|
|
|
@@ -234,6 +241,7 @@ args: [],
|
|
|
source: "current\x0a\x09^ current",
|
|
|
referencedClasses: [],
|
|
|
//>>excludeEnd("ide");
|
|
|
+pragmas: [],
|
|
|
messageSends: []
|
|
|
}),
|
|
|
$globals.HTMLSnippet.a$cls);
|
|
|
@@ -274,6 +282,7 @@ args: [],
|
|
|
source: "ensureCurrent\x0a\x09current ifNil: [\x0a\x09\x09current := super new\x0a\x09\x09\x09initializeFromJQuery: document asJQuery;\x0a\x09\x09\x09yourself ]",
|
|
|
referencedClasses: [],
|
|
|
//>>excludeEnd("ide");
|
|
|
+pragmas: [],
|
|
|
messageSends: ["ifNil:", "initializeFromJQuery:", "new", "asJQuery", "yourself"]
|
|
|
}),
|
|
|
$globals.HTMLSnippet.a$cls);
|
|
|
@@ -310,6 +319,7 @@ args: [],
|
|
|
source: "initialize\x0a\x09super initialize.\x0a\x09PlatformDom isFeasible ifTrue: [\x0a\x09\x09self ensureCurrent ]",
|
|
|
referencedClasses: ["PlatformDom"],
|
|
|
//>>excludeEnd("ide");
|
|
|
+pragmas: [],
|
|
|
messageSends: ["initialize", "ifTrue:", "isFeasible", "ensureCurrent"]
|
|
|
}),
|
|
|
$globals.HTMLSnippet.a$cls);
|
|
|
@@ -334,6 +344,7 @@ args: [],
|
|
|
source: "new\x0a\x09self shouldNotImplement",
|
|
|
referencedClasses: [],
|
|
|
//>>excludeEnd("ide");
|
|
|
+pragmas: [],
|
|
|
messageSends: ["shouldNotImplement"]
|
|
|
}),
|
|
|
$globals.HTMLSnippet.a$cls);
|
|
|
@@ -371,6 +382,7 @@ args: ["anElement"],
|
|
|
source: "snippet: anElement\x0a\x09\x22Adds clone of anElement, finds [data-snippet=\x22\x22*\x22\x22] subelement\x0a\x09and returns TagBrush as if that subelement was just added.\x0a\x09\x0a\x09Rarely needed to use directly, use `html foo` dynamically installed method\x0a\x09for a snippet named foo.\x22\x0a\x09\x0a\x09| clone caret |\x0a\x09\x0a\x09clone := anElement asJQuery clone.\x0a\x09self with: (TagBrush fromJQuery: clone canvas: self).\x0a\x09caret := clone find: '[data-snippet=\x22*\x22]'.\x0a\x09caret toArray ifEmpty: [ caret := clone ].\x0a\x09^ TagBrush fromJQuery: (caret removeAttr: 'data-snippet') canvas: self",
|
|
|
referencedClasses: ["TagBrush"],
|
|
|
//>>excludeEnd("ide");
|
|
|
+pragmas: [],
|
|
|
messageSends: ["clone", "asJQuery", "with:", "fromJQuery:canvas:", "find:", "ifEmpty:", "toArray", "removeAttr:"]
|
|
|
}),
|
|
|
$globals.HTMLCanvas);
|
|
|
@@ -394,6 +406,7 @@ args: [],
|
|
|
source: "asSnippet\x0a\x09^ HTMLSnippet current snippetAt: self asString",
|
|
|
referencedClasses: ["HTMLSnippet"],
|
|
|
//>>excludeEnd("ide");
|
|
|
+pragmas: [],
|
|
|
messageSends: ["snippetAt:", "current", "asString"]
|
|
|
}),
|
|
|
$globals.String);
|
