fix Domite class >> fromElement:cursorBefore:

src/DOMite.js

@@ -1096,31 +1096,22 @@ var self=this;
 //>>excludeStart("ctx", pragmas.excludeDebugContexts);
 return $core.withContext(function($ctx1) {
 //>>excludeEnd("ctx");
-var $1,$3,$4,$2,$receiver;
-if(($receiver = aDomElement) == null || $receiver.isNil){
-aDomElement;
-} else {
-$1=self._isDomNode_(aDomElement);
-if(!$core.assert($1)){
-self._error_($recv(self._name()).__comma(": Need a DOM node"));
-};
-};
-$3=self._new();
-$recv($3)._element_(aDomElement);
-$recv($3)._referenceElement_(anotherDomElement);
-$4=$recv($3)._yourself();
-$2=$4;
-return $2;
+var $2,$3,$1;
+$2=self._fromElement_(aDomElement);
+$recv($2)._reference_(anotherDomElement);
+$3=$recv($2)._yourself();
+$1=$3;
+return $1;
 //>>excludeStart("ctx", pragmas.excludeDebugContexts);
 }, function($ctx1) {$ctx1.fill(self,"fromElement:cursorBefore:",{aDomElement:aDomElement,anotherDomElement:anotherDomElement},$globals.Domite.klass)});
 //>>excludeEnd("ctx");
 },
 //>>excludeStart("ide", pragmas.excludeIdeData);
 args: ["aDomElement", "anotherDomElement"],
-source: "fromElement: aDomElement cursorBefore: anotherDomElement\x0a\x09aDomElement ifNotNil: [\x0a\x09\x09(self isDomNode: aDomElement) ifFalse: [\x0a\x09\x09\x09self error: self name, ': Need a DOM node' ]].\x0a\x09^ self new\x0a\x09\x09element: aDomElement;\x0a\x09\x09referenceElement: anotherDomElement;\x0a\x09\x09yourself",
+source: "fromElement: aDomElement cursorBefore: anotherDomElement\x0a\x09^ (self fromElement: aDomElement)\x0a\x09\x09reference: anotherDomElement;\x0a\x09\x09yourself",
 referencedClasses: [],
 //>>excludeEnd("ide");
-messageSends: ["ifNotNil:", "ifFalse:", "isDomNode:", "error:", ",", "name", "element:", "new", "referenceElement:", "yourself"]
+messageSends: ["reference:", "fromElement:", "yourself"]
 }),
 $globals.Domite.klass);
 

src/DOMite.st

@@ -291,12 +291,8 @@ fromElement: aDomElement
 !
 
 fromElement: aDomElement cursorBefore: anotherDomElement
-	aDomElement ifNotNil: [
-		(self isDomNode: aDomElement) ifFalse: [
-			self error: self name, ': Need a DOM node' ]].
-	^ self new
-		element: aDomElement;
-		referenceElement: anotherDomElement;
+	^ (self fromElement: aDomElement)
+		reference: anotherDomElement;
 		yourself
 !