Index: vhUnitTest/APPS/Halux/PPS/ALUFrees/Svg/Kaderdeur/VulDrieRects/Test.cls.xml
===================================================================
diff -u -r61338 -r62979
--- vhUnitTest/APPS/Halux/PPS/ALUFrees/Svg/Kaderdeur/VulDrieRects/Test.cls.xml (.../Test.cls.xml) (revision 61338)
+++ vhUnitTest/APPS/Halux/PPS/ALUFrees/Svg/Kaderdeur/VulDrieRects/Test.cls.xml (.../Test.cls.xml) (revision 62979)
@@ -23,9 +23,9 @@
#dim Hoogte As %Integer = 450
#dim Rect as TECH.Svg.Basis.Rect = ##class(TECH.Svg.BasisElementFactory).%New().MaakRechthoek(0,0,10,10)
Set BasisElementFactoryMock = ##class(vhTest.Mock.TECH.Svg.BasisElementFactory).%New()
- Do BasisElementFactoryMock.VerwachtMethodCall("MaakRechthoek", 0,0,350,450).DanReturn(Rect)
- Do BasisElementFactoryMock.VerwachtMethodCall("MaakRechthoek", 50,50,250,350).DanReturn(Rect)
- Do BasisElementFactoryMock.VerwachtMethodCall("MaakRechthoek", 8,8,334,434).DanReturn(Rect)
+ Do BasisElementFactoryMock.VerwachtMethodCall("MaakRechthoek", 0,0,350,450,"KDOuter", "clsHidePrint").DanReturn(Rect)
+ Do BasisElementFactoryMock.VerwachtMethodCall("MaakRechthoek", 50,50,250,350,"KDInner", "clsHidePrint").DanReturn(Rect)
+ Do BasisElementFactoryMock.VerwachtMethodCall("MaakRechthoek", 8,8,334,434,"KDMiddle", "clsHidePrint").DanReturn(Rect)
Set KaderToevoeger = ##class(APPS.Halux.PPS.ALUFrees.Svg.Kaderdeur.KaderToevoeger).%New(BasisElementFactoryMock)
Do KaderToevoeger.VulDrieRects(Kaderdeur, Breedte, Hoogte)
Index: APPS/Halux/PPS/ALUFrees/Svg/Kaderdeur.cls.xml
===================================================================
diff -u -r61997 -r62979
--- APPS/Halux/PPS/ALUFrees/Svg/Kaderdeur.cls.xml (.../Kaderdeur.cls.xml) (revision 61997)
+++ APPS/Halux/PPS/ALUFrees/Svg/Kaderdeur.cls.xml (.../Kaderdeur.cls.xml) (revision 62979)
@@ -62,8 +62,6 @@
KaderdeurObject:Prod.GADef.KaderDeur,DevObj:%Library.Stream,Taal:%String
@@ -83,6 +82,8 @@
#dim Breedte As %Integer = KaderdeurObject.Breedte
#dim Hoogte As %Integer = KaderdeurObject.Hoogte
Set ..SvgBox = ..BasisElementFactory.MaakSvgBox(0, 0, Hoogte, Breedte, "http://www.w3.org/2000/svg", "http://www.w3.org/1999/xlink")
+ Set ..SvgBox.ViewBox = 0_" "_0_" "_Breedte_" "_Hoogte
+ Set ..SvgBox.ID = "groupDRAW"
;Kader v/d kaderdeur
Do ..MaakKader(KaderdeurObject)
;Verbinders
@@ -97,7 +98,6 @@
;Schuine hoeken
Do ..MaakSchuineHoeken(KaderdeurObject)
-
Quit
]]>
Index: vhTestFiles/UnitTests/End2End.Svg.Kaderdeur/Test/TestStandaardlade/Vandaag.txt
===================================================================
diff -u -r61920 -r62979
--- vhTestFiles/UnitTests/End2End.Svg.Kaderdeur/Test/TestStandaardlade/Vandaag.txt (.../Vandaag.txt) (revision 61920)
+++ vhTestFiles/UnitTests/End2End.Svg.Kaderdeur/Test/TestStandaardlade/Vandaag.txt (.../Vandaag.txt) (revision 62979)
@@ -1,9 +1,9 @@
-