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 @@ - + - - - + + + Index: APPS/Halux/PPS/ALUFrees/Svg/Kaderdeur/KaderToevoeger.cls.xml =================================================================== diff -u -r61911 -r62979 --- APPS/Halux/PPS/ALUFrees/Svg/Kaderdeur/KaderToevoeger.cls.xml (.../KaderToevoeger.cls.xml) (revision 61911) +++ APPS/Halux/PPS/ALUFrees/Svg/Kaderdeur/KaderToevoeger.cls.xml (.../KaderToevoeger.cls.xml) (revision 62979) @@ -30,11 +30,11 @@ Do KaderGroup.VoegToeID("kader") ;Outer Rectangle - #dim KDOuter As TECH.Svg.Basis.Rect = ..BasisElementFactory.MaakRechthoek(0, 0, Breedte\1, Hoogte\1) + #dim KDOuter As TECH.Svg.Basis.Rect = ..BasisElementFactory.MaakRechthoek(0, 0, Breedte\1, Hoogte\1, "KDOuter", "clsHidePrint") Do KaderdeurObject.ProfType.XMLVectorTussenRand(KaderdeurObject.Vulling.Vulling, .KaderOffset, .BorderS, .FillS) - #dim KDMiddle As TECH.Svg.Basis.Rect = ..BasisElementFactory.MaakRechthoek((0+KaderOffset\1), (0+KaderOffset\1), (Breedte-(2*KaderOffset)\1), (Hoogte-(2*KaderOffset))) + #dim KDMiddle As TECH.Svg.Basis.Rect = ..BasisElementFactory.MaakRechthoek((0+KaderOffset\1), (0+KaderOffset\1), (Breedte-(2*KaderOffset)\1), (Hoogte-(2*KaderOffset)), "KDMiddle", "clsHidePrint") Set KaderOffset = KaderdeurObject.ProfType.Breedte - #dim KDInner As TECH.Svg.Basis.Rect = ..BasisElementFactory.MaakRechthoek((0+KaderOffset\1), (0+KaderOffset\1), (Breedte-(2*KaderOffset)\1), (Hoogte-(2*KaderOffset))) + #dim KDInner As TECH.Svg.Basis.Rect = ..BasisElementFactory.MaakRechthoek((0+KaderOffset\1), (0+KaderOffset\1), (Breedte-(2*KaderOffset)\1), (Hoogte-(2*KaderOffset)), "KDInner", "clsHidePrint") Do KaderdeurObject.ProfType.XMLVectorTussenRand(KaderdeurObject.Vulling.Vulling, KaderOffset, BorderS, FillS) ;Als het geen losprofiel is vul je kleuren in, anders zet je alles in stippelijn. @@ -74,10 +74,10 @@ Do KaderGroup.VoegToeID("kader") #dim GlasOffset As %Integer = KaderdeurObject.AfstandRandVoorVulling() - #dim KDOuter As TECH.Svg.Basis.Rect = ..BasisElementFactory.MaakRechthoek(0, 0, Breedte, Hoogte) + #dim KDOuter As TECH.Svg.Basis.Rect = ..BasisElementFactory.MaakRechthoek(0, 0, Breedte, Hoogte, "KDOuter", "clsHidePrint") Do KDOuter.SetFill(##class(TECH.Svg.enu.Kleur).DonkerGroen()) Do KDOuter.SetStroke(##class(TECH.Svg.enu.Kleur).Zwart(), , "2") - #dim KDInner As TECH.Svg.Basis.Rect = ..BasisElementFactory.MaakRechthoek((0+GlasOffset\1), (0+GlasOffset\1), Breedte-(2*GlasOffset), Hoogte-(2*GlasOffset)) + #dim KDInner As TECH.Svg.Basis.Rect = ..BasisElementFactory.MaakRechthoek((0+GlasOffset\1), (0+GlasOffset\1), Breedte-(2*GlasOffset), Hoogte-(2*GlasOffset), "KDInner", "clsHidePrint") Do KDInner.SetFill(##class(TECH.Svg.enu.Kleur).LichtGroen()) Do KDInner.SetStroke(##class(TECH.Svg.enu.Kleur).Zwart()) Index: vhTestFiles/UnitTests/End2End.Svg.Kaderdeur/Test/TestStandaardKaderdeurMetKaderdeurboringEnZijboring/Vandaag.txt =================================================================== diff -u -r61920 -r62979 --- vhTestFiles/UnitTests/End2End.Svg.Kaderdeur/Test/TestStandaardKaderdeurMetKaderdeurboringEnZijboring/Vandaag.txt (.../Vandaag.txt) (revision 61920) +++ vhTestFiles/UnitTests/End2End.Svg.Kaderdeur/Test/TestStandaardKaderdeurMetKaderdeurboringEnZijboring/Vandaag.txt (.../Vandaag.txt) (revision 62979) @@ -1,9 +1,9 @@ - + - - - + + + Index: vhTestFiles/UnitTests/End2End.Svg.Kaderdeur/Test/TestStandaardKaderdeurMetBeslagEnBoringLosprofiel/Vandaag.txt =================================================================== diff -u -r61610 -r62979 --- vhTestFiles/UnitTests/End2End.Svg.Kaderdeur/Test/TestStandaardKaderdeurMetBeslagEnBoringLosprofiel/Vandaag.txt (.../Vandaag.txt) (revision 61610) +++ vhTestFiles/UnitTests/End2End.Svg.Kaderdeur/Test/TestStandaardKaderdeurMetBeslagEnBoringLosprofiel/Vandaag.txt (.../Vandaag.txt) (revision 62979) @@ -1,9 +1,9 @@ - + - - - + + + Index: vhTestFiles/UnitTests/End2End.Svg.Kaderdeur/Test/TestGlasKaderdeurMetBeslagEnBoring/Vandaag.txt =================================================================== diff -u -r61604 -r62979 --- vhTestFiles/UnitTests/End2End.Svg.Kaderdeur/Test/TestGlasKaderdeurMetBeslagEnBoring/Vandaag.txt (.../Vandaag.txt) (revision 61604) +++ vhTestFiles/UnitTests/End2End.Svg.Kaderdeur/Test/TestGlasKaderdeurMetBeslagEnBoring/Vandaag.txt (.../Vandaag.txt) (revision 62979) @@ -1,8 +1,8 @@ - + - - + + Index: vhUnitTest/APPS/Halux/PPS/ALUFrees/Svg/Kaderdeur/KaderToevoeger/VulTweeRects/Test.cls.xml =================================================================== diff -u -r61338 -r62979 --- vhUnitTest/APPS/Halux/PPS/ALUFrees/Svg/Kaderdeur/KaderToevoeger/VulTweeRects/Test.cls.xml (.../Test.cls.xml) (revision 61338) +++ vhUnitTest/APPS/Halux/PPS/ALUFrees/Svg/Kaderdeur/KaderToevoeger/VulTweeRects/Test.cls.xml (.../Test.cls.xml) (revision 62979) @@ -25,8 +25,8 @@ #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", 3,3,344,444).DanReturn(Rect) + Do BasisElementFactoryMock.VerwachtMethodCall("MaakRechthoek", 0,0,350,450,"KDOuter", "clsHidePrint").DanReturn(Rect) + Do BasisElementFactoryMock.VerwachtMethodCall("MaakRechthoek", 3,3,344,444,"KDInner", "clsHidePrint").DanReturn(Rect) Set KaderToevoeger = ##class(APPS.Halux.PPS.ALUFrees.Svg.Kaderdeur.KaderToevoeger).%New(BasisElementFactoryMock) Do KaderToevoeger.VulTweeRects(Kaderdeur, Breedte, Hoogte) Index: vhTestFiles/UnitTests/End2End.Svg.Kaderdeur/Test/TestStandaardKaderdeurMetKaderdeurboringEnSpecialeBoring/Vandaag.txt =================================================================== diff -u -r61920 -r62979 --- vhTestFiles/UnitTests/End2End.Svg.Kaderdeur/Test/TestStandaardKaderdeurMetKaderdeurboringEnSpecialeBoring/Vandaag.txt (.../Vandaag.txt) (revision 61920) +++ vhTestFiles/UnitTests/End2End.Svg.Kaderdeur/Test/TestStandaardKaderdeurMetKaderdeurboringEnSpecialeBoring/Vandaag.txt (.../Vandaag.txt) (revision 62979) @@ -1,9 +1,9 @@ - + - - - + + + Index: vhTestFiles/UnitTests/End2End.Svg.Kaderdeur/Test/TestStandaardKaderdeurMetKaderdeurboring/Vandaag.txt =================================================================== diff -u -r61920 -r62979 --- vhTestFiles/UnitTests/End2End.Svg.Kaderdeur/Test/TestStandaardKaderdeurMetKaderdeurboring/Vandaag.txt (.../Vandaag.txt) (revision 61920) +++ vhTestFiles/UnitTests/End2End.Svg.Kaderdeur/Test/TestStandaardKaderdeurMetKaderdeurboring/Vandaag.txt (.../Vandaag.txt) (revision 62979) @@ -1,9 +1,9 @@ - + - - - + + +