Index: TECH/Svg/Services/CoordinatesService.cls.xml
===================================================================
diff -u -r3686 -r3693
--- TECH/Svg/Services/CoordinatesService.cls.xml (.../CoordinatesService.cls.xml) (revision 3686)
+++ TECH/Svg/Services/CoordinatesService.cls.xml (.../CoordinatesService.cls.xml) (revision 3693)
@@ -11,9 +11,9 @@
Set CoordinatesList = ##class(%ListOfObjects).%New()
Set PuntenIterator = ##class(TECH.ArrayOneDimIterator).%New(.Punten)
While (PuntenIterator.HasNext()) {
- Set EerstePuntVanCoordinaat = PuntenIterator.Next()
- Set TweedePuntVanCoordinaat = PuntenIterator.Next()
- Set CoordinaatVanTweePunten = BasisElementFactory.MaakCoordinaat(EerstePuntVanCoordinaat,TweedePuntVanCoordinaat)
+ #dim EerstePuntVanCoordinaat As %Integer = PuntenIterator.Next()
+ #dim TweedePuntVanCoordinaat As %Integer = PuntenIterator.Next()
+ #dim CoordinaatVanTweePunten As TECH.Svg.Basis.Path.Coordinates = BasisElementFactory.MaakCoordinaat(EerstePuntVanCoordinaat,TweedePuntVanCoordinaat)
Do CoordinatesList.Insert(CoordinaatVanTweePunten)
}
Quit CoordinatesList
Index: TECH/Svg/Basis/SvgBox/ElementToevoeger.cls.xml
===================================================================
diff -u -r3689 -r3693
--- TECH/Svg/Basis/SvgBox/ElementToevoeger.cls.xml (.../ElementToevoeger.cls.xml) (revision 3689)
+++ TECH/Svg/Basis/SvgBox/ElementToevoeger.cls.xml (.../ElementToevoeger.cls.xml) (revision 3693)
@@ -4,7 +4,7 @@
TECH.Mockable
-SvgBox:TECH.Svg.Basis.SvgBox,Element:TECH.Svg.Basis.DomElement
+SvgBox:TECH.Svg.Basis.DomElement,Element:TECH.Svg.Basis.DomElement
TECH.Svg.Basis.SvgBox
-
+
TECH.Svg.Basis.Group
list
@@ -160,7 +160,7 @@
}
if Element.%IsA("TECH.Svg.Basis.Group")
{
- do ..Group.Insert(Element)
+ do ..Groups.Insert(Element)
}
if Element.%IsA("TECH.Svg.Basis.SvgBox")
{