From 8fdeba8da601880a69a71d626aaba96440283f92 Mon Sep 17 00:00:00 2001
From: Simon Schmutzler <s.schmutzler@schoenenberger.de>
Date: Wed, 12 Jun 2024 16:48:36 +0200
Subject: [PATCH] =?UTF-8?q?SetheightonConnect=20soll=20flexibel=20mit=20SS?=
 =?UTF-8?q?GParameter=20=C3=9Cbergabe=20aufrufbar=20sein,=20statt=20vorher?=
 =?UTF-8?q?igem=20Aufruf=20=C3=BCber=20Param.Input=20der=20OnConnect=20Cal?=
 =?UTF-8?q?lbackfunktion=20-=20noch=20nicht=20vollst=C3=A4ngig=20implement?=
 =?UTF-8?q?iert,=20nicht=20lauff=C3=A4hig?=
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

---
 MAIN_SSG.rdx | 39 +++++++++++++++++++++++++++++++--------
 1 file changed, 31 insertions(+), 8 deletions(-)

diff --git a/MAIN_SSG.rdx b/MAIN_SSG.rdx
index 3f44ae8..db00a50 100644
--- a/MAIN_SSG.rdx
+++ b/MAIN_SSG.rdx
@@ -1,6 +1,6 @@
 <?xml version="1.0" encoding="utf-8"?>
 <PROCESS Id="RDK:0001" Name="MAIN_SSG" ModernUI="True" Options="(GITSAVEMODE)(NOUPDATEINCLUDEFILES)" Expanded="True">
-	<PROCESSPROPERTY CrUser="pmarani [ENGMARANI17R]" CrDate="2022-05-05T18:05:31" ModUser="s.schmutzler [ANGEBOT-NB06]" ModDate="2024-06-12T16:22:33" LanguageVersion="2014.1.3.674" />
+	<PROCESSPROPERTY CrUser="pmarani [ENGMARANI17R]" CrDate="2022-05-05T18:05:31" ModUser="s.schmutzler [ANGEBOT-NB06]" ModDate="2024-06-12T16:46:27" LanguageVersion="2014.1.3.674" />
 	<GROUP Id="RDK:0002" Name="Declarations" SubType="Declarations" Expanded="True">
 		<GROUP Id="RDK:0003" Name="Types" SubType="TypeSet" IncludeDate="0">
 			<GROUP Id="RDK:26387" Name="SSG_Group" SubType="TypeSet" IncludeDate="0">
@@ -13340,6 +13340,7 @@ me.x
 					<VAR Id="RDK:506783" Name="PrototypeLink" Type="string" DesignTimeRemark="Generated by RD" />
 					<VAR Id="RDK:514766" Name="OriginalRatation" Type="integer" />
 					<VAR Id="RDK:18374148" Name="RueckgabeListe" Type="SSGParameter[]" />
+					<VAR Id="RDK:19653272" Name="UebergabeListe" Type="SSGParameter[]" />
 					<VAR Id="RDK:18399128" Name="shape_id" Type="string" />
 					<VAR Id="RDK:19089175" Name="item_1" Type="Editor2DShapeType" />
 					<VAR Id="RDK:19474689" Name="LH_fits" Type="boolean" />
@@ -13348,6 +13349,28 @@ me.x
 					<EXP><![CDATA[$=$ShapeList["id="+Param.Input[0].shapeID]]]></EXP>
 					<PAR Name="AdvancedOptions" />
 				</SET>
+				<SET_STRUCT Id="RDK:19653274" VarRef="SSGParameter" ClearAll="True" ListRef="UebergabeListe">
+					<PAR Name="Key">
+						<EXP><![CDATA[$C$shapeId_0]]></EXP>
+					</PAR>
+					<PAR Name="Str">
+						<EXP><![CDATA[$=$Param.Input[0].shapeID]]></EXP>
+					</PAR>
+					<PAR Name="Dbl" />
+					<PAR Name="Int" />
+					<PAR Name="Boo" />
+				</SET_STRUCT>
+				<SET_STRUCT Id="RDK:19653278" VarRef="SSGParameter" ClearAll="True" ListRef="UebergabeListe">
+					<PAR Name="Key">
+						<EXP><![CDATA[$C$shapeId_1]]></EXP>
+					</PAR>
+					<PAR Name="Str">
+						<EXP><![CDATA[$=$Param.Input[1].shapeID]]></EXP>
+					</PAR>
+					<PAR Name="Dbl" />
+					<PAR Name="Int" />
+					<PAR Name="Boo" />
+				</SET_STRUCT>
 				<SELECTCASE Id="RDK:1576706">
 					<EXP><![CDATA[$=$ShapeList["id="+Param.Input[0].shapeID].family]]></EXP>
 					<CASEGROUP Id="RDK:1576707" CaseType="0">
@@ -13581,7 +13604,7 @@ me.x
 								<EXP><![CDATA[$C$SetHeightOnConnect]]></EXP>
 							</PAR>
 							<PAR Name="InputExp">
-								<EXP><![CDATA[$=$Param.Input]]></EXP>
+								<EXP><![CDATA[$=$UebergabeListe]]></EXP>
 							</PAR>
 							<PAR Name="ResultRef">
 								<EXP><![CDATA[$V$RueckgabeListe]]></EXP>
@@ -13735,7 +13758,7 @@ me.x
 								<EXP><![CDATA[$C$SetHeightOnConnect]]></EXP>
 							</PAR>
 							<PAR Name="InputExp">
-								<EXP><![CDATA[$=$Param.Input]]></EXP>
+								<EXP><![CDATA[$=$UebergabeListe]]></EXP>
 							</PAR>
 							<PAR Name="ResultRef">
 								<EXP><![CDATA[$V$]]></EXP>
@@ -13767,7 +13790,7 @@ me.x
 										<EXP><![CDATA[$C$SetHeightOnConnect]]></EXP>
 									</PAR>
 									<PAR Name="InputExp">
-										<EXP><![CDATA[$=$Param.Input]]></EXP>
+										<EXP><![CDATA[$=$UebergabeListe]]></EXP>
 									</PAR>
 									<PAR Name="ResultRef">
 										<EXP><![CDATA[$V$]]></EXP>
@@ -13876,7 +13899,7 @@ me.x
 										<EXP><![CDATA[$C$SetHeightOnConnect]]></EXP>
 									</PAR>
 									<PAR Name="InputExp">
-										<EXP><![CDATA[$=$Param.Input]]></EXP>
+										<EXP><![CDATA[$=$UebergabeListe]]></EXP>
 									</PAR>
 									<PAR Name="ResultRef">
 										<EXP><![CDATA[$V$]]></EXP>
@@ -16032,7 +16055,7 @@ ShapeList["id="+Param.Input[1].shapeID].name
 					</GROUP>
 				</IFTHENELSE>
 			</FUNCTION>
-			<FUNCTION Id="RDK:1698052" Name="SetHeightOnConnect" InputTypeName="Editor2DEventArgumentsTypeList" ResultTypeName="SSGParameter[]">
+			<FUNCTION Id="RDK:1698052" Name="SetHeightOnConnect" InputTypeName="SSGParameter[]" ResultTypeName="SSGParameter[]">
 				<GROUP Id="RDK:1772339" Name="LocalVariables" SubType="VarSet" IncludeDate="0">
 					<VAR Id="RDK:1772341" Name="item_0" Type="Editor2DShapeType" />
 					<VAR Id="RDK:1772343" Name="item_1" Type="Editor2DShapeType" />
@@ -16049,11 +16072,11 @@ ShapeList["id="+Param.Input[1].shapeID].name
 					<PAR Name="AdvancedOptions" />
 				</SET>
 				<SET Id="RDK:1707740" VarRef="item_0">
-					<EXP><![CDATA[$=$ShapeList["id="+Param.Input[0].shapeID]]]></EXP>
+					<EXP><![CDATA[$=$ShapeList["id="+Param.Input["key=shapeId_0"].Str]]]></EXP>
 					<PAR Name="AdvancedOptions" />
 				</SET>
 				<SET Id="RDK:1707750" VarRef="item_1">
-					<EXP><![CDATA[$=$ShapeList["id="+Param.Input[1].shapeID]]]></EXP>
+					<EXP><![CDATA[$=$ShapeList["id="+Param.Input["key=shapeId_1"].Str]]]></EXP>
 					<PAR Name="AdvancedOptions" />
 				</SET>
 				<GROUP Id="RDK:1698060" Name="Filter" SubType="Generic" DesignTimeNotes="(ShapeList[&quot;id=&quot;+Param.Input[0].shapeID].family=&quot;Gefaellestrecke&quot; And  (ShapeList[&quot;id=&quot;+Param.Input[1].shapeID].Rotationsklasse=&quot;Rotationsobjekt&quot;and IsTagInString(Param.Input[1].connectionPointID, &quot;defcp&quot;)))  &#xA;Or &#xA;(ShapeList[&quot;id=&quot;+Param.Input[1].shapeID].family=&quot;Gefaellestrecke&quot; And  (ShapeList[&quot;id=&quot;+Param.Input[0].shapeID].Rotationsklasse=&quot;Rotationsobjekt&quot; and IsTagInString(Param.Input[0].connectionPointID, &quot;defcp&quot;)))  &#xA;">