Use PlatformDom to create elements.

src/DOMite.js

@@ -1162,17 +1162,17 @@ var self=this;
 //>>excludeStart("ctx", pragmas.excludeDebugContexts);
 return $core.withContext(function($ctx1) {
 //>>excludeEnd("ctx");
-return self._fromElement_($recv(document)._createElement_(aString));
+return self._fromElement_($recv($globals.PlatformDom)._newElement_(aString));
 //>>excludeStart("ctx", pragmas.excludeDebugContexts);
 }, function($ctx1) {$ctx1.fill(self,"newElement:",{aString:aString},$globals.Domite.klass)});
 //>>excludeEnd("ctx");
 },
 //>>excludeStart("ide", pragmas.excludeIdeData);
 args: ["aString"],
-source: "newElement: aString\x0a\x09^ self fromElement: (document createElement: aString)",
-referencedClasses: [],
+source: "newElement: aString\x0a\x09^ self fromElement: (PlatformDom newElement: aString)",
+referencedClasses: ["PlatformDom"],
 //>>excludeEnd("ide");
-messageSends: ["fromElement:", "createElement:"]
+messageSends: ["fromElement:", "newElement:"]
 }),
 $globals.Domite.klass);
 
@@ -1185,17 +1185,17 @@ var self=this;
 //>>excludeStart("ctx", pragmas.excludeDebugContexts);
 return $core.withContext(function($ctx1) {
 //>>excludeEnd("ctx");
-return self._fromElement_($recv(document)._createElementNS_tagName_(anotherString,aString));
+return self._fromElement_($recv($globals.PlatformDom)._newElement_namespace_(aString,anotherString));
 //>>excludeStart("ctx", pragmas.excludeDebugContexts);
 }, function($ctx1) {$ctx1.fill(self,"newElement:xmlns:",{aString:aString,anotherString:anotherString},$globals.Domite.klass)});
 //>>excludeEnd("ctx");
 },
 //>>excludeStart("ide", pragmas.excludeIdeData);
 args: ["aString", "anotherString"],
-source: "newElement: aString xmlns: anotherString \x0a\x0a\x09^ self fromElement: (document createElementNS: anotherString tagName: aString)",
-referencedClasses: [],
+source: "newElement: aString xmlns: anotherString \x0a\x0a\x09^ self fromElement: (PlatformDom newElement: aString namespace: anotherString)",
+referencedClasses: ["PlatformDom"],
 //>>excludeEnd("ide");
-messageSends: ["fromElement:", "createElementNS:tagName:"]
+messageSends: ["fromElement:", "newElement:namespace:"]
 }),
 $globals.Domite.klass);
 

src/DOMite.st

@@ -323,12 +323,12 @@ fromElement: aDomElement cursorBefore: anotherDomElement
 !
 
 newElement: aString
-	^ self fromElement: (document createElement: aString)
+	^ self fromElement: (PlatformDom newElement: aString)
 !
 
 newElement: aString xmlns: anotherString 
 
-	^ self fromElement: (document createElementNS: anotherString tagName: aString)
+	^ self fromElement: (PlatformDom newElement: aString namespace: anotherString)
 !
 
 newStream