fixed some weird bugs and added titles to the webview tabs

src/lang/miniSVG/Bekijken.rsc

@@ -12,12 +12,12 @@ void bekijken(MiniSVG plaatje) {
     echteSVG = toSVG(plaatje);
 
     // dan laten zien
-    bekijkSVG(echteSVG);
+    bekijkSVG(echteSVG, id=plaatje.title);
 }
 
 // dit start een web server en een web viewer op met het plaatje er in:
 private void bekijkSVG(str svg, str id="miniSVG") {
-    showInteractiveContent(content(id, webServer(svg)));
+    showInteractiveContent(content(id, webServer(svg)), viewColumn=2, title=id);
 }
 
 // dit is een kleine webserver die twee dingen doet:

src/lang/miniSVG/Semantiek.rsc

@@ -1,6 +1,7 @@
 module lang::miniSVG::Semantiek
 
 import lang::miniSVG::Syntax;
+import String;
 
 // Dit vertaalt een-op-een een lijst van miniSVG teken-instructies naar de textuele XML vorm die "SVG" heet.
 // Én het regelt de assen (van waar tot waar (-1000 tot 1000), en de richting (y-as omhoog en x-as naar rechts))
@@ -53,10 +54,12 @@ str toSVG(rotate(real angle, list[Element] elements))
       '\</g\>";
 
 str toSVG(link(loc src, Element element)) 
-    = "\<a href=# onclick=\"fetch(\'/editor?\' + new URLSearchParams({src: \'<src>\'}));\"\>
+    = "\<a href=\"#\" onclick=\"fetch(\'/editor?\' + new URLSearchParams({src: \'<escape("<src>", ( "\<" : "&lt;", "\>" : "&gt;" ))>\'}));\"\>
       '  <toSVG(element)>
       '\</a\>";
 
+str x = "&gt;";
+
 str toSVG(comment(str bericht)) = "\<!-- <bericht> --\>";
 
 // Omdat het assenstelsel op zijn kop staat, staat alle tekst ook op zijn kop.

src/lang/miniSVG/Syntax.rsc

@@ -1,7 +1,7 @@
 module lang::miniSVG::Syntax
 
 data MiniSVG 
-    = miniSVG(list[Element] elements);
+    = miniSVG(list[Element] elements, str title="plaatje");
 
 data Element(Color stroke=rgb(0,0,0,1.), real \stroke-width=2., Color fill=rgb(230,230,230,1.), real \fill-opacity=0.8, real \stroke-opacity=1.)
     = circle(real cx, real cy, real r)

src/lang/yop/Semantiek.rsc

@@ -34,7 +34,7 @@ MiniSVG vertaal(Programma p) {
     waarden = ();
 
     // dan de lijst van tekeningen vertalen
-    return miniSVG(vertaal(p.tekeningen));
+    return miniSVG(vertaal(p.tekeningen), title=p@\loc[extension=""].file);
 }
 
 // 1-voor-1 de teken instructies vertalen

voorbeelden/dahlia.yop

@@ -10,7 +10,7 @@ herhaal 8 {
             10 delen wit met
             random 10 delen rood met
             random 10 delen groen met
-            5 + random 5 delen blauw met
+            15 + random 5 delen blauw met
             random 15 delen transparant
         rechts 90
     }