1 files changed, 84 insertions, 0 deletions
diff --git a/editors/picpas/files/patch-Source_FramePICDiagram.pas b/editors/picpas/files/patch-Source_FramePICDiagram.pas
new file mode 100644
index 000000000000..6a0bf7519df9
--- /dev/null
+++ b/editors/picpas/files/patch-Source_FramePICDiagram.pas
@@ -0,0 +1,84 @@
+--- Source/FramePICDiagram.pas	2020-05-13 15:24:28.472849000 -0500
++++ Source/FramePICDiagram.pas	2020-05-13 15:21:41.106017000 -0500
+@@ -1135,7 +1135,7 @@
+ begin
+   nodeList.Clear;
+   //Explora objetos gráfiocs
+-  for og in motEdi.objetos do begin
++  for og in motEdi.objects do begin
+     if og is TOgConector then begin
+       ogCon := TOgConector(og);
+       AddConnectorToNodes(ogCon);
+@@ -1151,7 +1151,7 @@
+ var
+   og: TObjGraf;
+ begin
+-  for og in motEdi.objetos do begin
++  for og in motEdi.objects do begin
+     if og.Name = AName then exit(true);
+   end;
+   exit(false);
+@@ -1174,7 +1174,7 @@
+ var
+   og: TObjGraf;
+ begin
+-  for og in motEdi.objetos do begin
++  for og in motEdi.objects do begin
+     if not(og is TOgComponent) then continue;
+     if TOgComponent(og).Ref = ARef then exit(TOgComponent(og));
+   end;
+@@ -1201,7 +1201,7 @@
+   //oc: TOgConector;
+   //xv, yv: Single;
+ begin
+-  if motEdi.seleccion.Count = 1 then begin
++  if motEdi.selection.Count = 1 then begin
+     //Hay uno seleccionado
+     if motEdi.Selected.IsSelectedBy(X,Y) then begin
+       //Click sobre un objeto seleccionado
+@@ -1240,7 +1240,7 @@
+ var
+   LogInp: TOgLogicState;
+ begin
+-  if motEdi.seleccion.Count = 1 then begin
++  if motEdi.selection.Count = 1 then begin
+     //Hay un componente seleccionado
+     if motEdi.Selected.IsSelectedBy(X,Y) then begin
+       if motEdi.Selected is TOgLogicState then begin
+@@ -1267,15 +1267,15 @@
+   pCnx, pCnx2: TPtoConx;
+ begin
+   //Verifica el estado para activar acciones
+-  acGenDelObject.Visible := motEdi.seleccion.Count>0;
+-  if motEdi.seleccion.Count = 0 then begin
++  acGenDelObject.Visible := motEdi.selection.Count>0;
++  if motEdi.selection.Count = 0 then begin
+     //Ninguno seleccionado
+     mnReset.Visible   := true;
+     mnRun.Visible     := true;
+     mnStepOver.Visible:= false;
+     //mnAddLogicTog.Visible := true;
+     VisibActionsAdd(true);
+-  end else if (motEdi.seleccion.Count = 1) and (motEdi.Selected is TOgComponent) then begin
++  end else if (motEdi.selection.Count = 1) and (motEdi.Selected is TOgComponent) then begin
+     //Hay un componente seleccionado
+     comp1 := TOgComponent(motEdi.Selected);  //Componente fuente
+     mnReset.Visible   := true;
+@@ -1308,7 +1308,7 @@
+     mnConnect.Caption := Format('Connect %s to', [pin1.lbl]);
+     //Actualiza menú de Conexión, con objetos gráficos
+     mnConnect.Clear;
+-    for og in motEdi.objetos do begin
++    for og in motEdi.objects do begin
+       if not(og is TOgComponent) then continue;
+       if og is TOgConector then continue;;
+       it := AddItemToMenu(mnConnect, og.Name, nil);
+@@ -1454,7 +1454,7 @@
+ begin
+   nodeList.Clear;
+   //Explora objetos gráfiocs
+-  for og in motEdi.objetos do begin
++  for og in motEdi.objects do begin
+     if og is TOgConector then begin
+       ogCon := TOgConector(og);
+       if ogCon.pcBEGIN.ConnectedTo = nil then begin