editors/picpas: remove BROKEN

* Re-generate patch files
* Bump PORTREVISION

1 files changed, 76 insertions, 10 deletions

diff --git a/editors/picpas/files/patch-Source_FramePICDiagram.pas b/editors/picpas/files/patch-Source_FramePICDiagram.pas
index 6a0bf7519df9..b7b9410fbff2 100644
--- a/editors/picpas/files/patch-Source_FramePICDiagram.pas
+++ b/editors/picpas/files/patch-Source_FramePICDiagram.pas
@@ -1,6 +1,72 @@
---- 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 @@
+--- Source/FramePICDiagram.pas.orig	2021-08-01 06:56:07 UTC
++++ Source/FramePICDiagram.pas
+@@ -573,13 +573,13 @@ begin
+   //Cuerpo
+   col := GetThevCol(nodParent.vt, nodParent.rt);  //Se supone que el nodo padre ya está actualizado
+   v2d.SetPen(psSolid, 1, col);
+-  v2d.Linea(pcBEGIN.x, pcBEGIN.y, pcEND.x, pcEND.y);
++  v2d.Line(pcBEGIN.x, pcBEGIN.y, pcEND.x, pcEND.y);
+   //Implementamos nosotros el remarcado y selección, para personalizar mejor
+   //---------------Draw mark --------------
+   if Marked and Highlight then begin
+     //Resaltado
+     v2d.SetPen(psSolid, 2, clBlue);   //RGB(128, 128, 255)
+-    v2d.Linea(pcBEGIN.x, pcBEGIN.y, pcEND.x, pcEND.y);
++    v2d.Line(pcBEGIN.x, pcBEGIN.y, pcEND.x, pcEND.y);
+     //Marcador de Voltaje
+     v2d.SetPen(psSolid, 1, clBlack);   //RGB(128, 128, 255)
+     v2d.SetBrush(clYellow);
+@@ -824,8 +824,8 @@ begin
+   //Dibuja cuerpo
+   v2d.SetPen(psSolid, 2, COL_GND);
+   //Línea vertioal y conexión a tierra
+-  v2d.Linea(x+12, y, x+12, y2);
+-  v2d.Linea(x+5, y2, x+19, y2);
++  v2d.Line(x+12, y, x+12, y2);
++  v2d.Line(x+5, y2, x+19, y2);
+   //Resistencia
+   v2d.SetPen(psSolid, 1, COL_GND);
+   v2d.SetBrush(COL_RES);
+@@ -932,15 +932,15 @@ begin
+   //conexión a tierra
+   v2d.SetPen(psSolid, 1, COL_GND);
+   y2 := y + height + 10;
+-  v2d.Linea(x+30, y+height, x+30, y2);
+-  v2d.Linea(x+24, y2, x+36, y2);
++  v2d.Line(x+30, y+height, x+30, y2);
++  v2d.Line(x+24, y2, x+36, y2);
+   //Dibuja los pines
+   v2d.SetPen(psSolid, 1, COL_GND);
+   for pCnx in PtosConex do begin
+     pin := TPinGraph(pCnx);
+     //En el PIC, los pines se pintan con el color del modelo interno
+     v2d.SetBrush(clWhite);  //Rellena de acuerdo al estado
+-    v2d.Linea(pin.x, pin.y, pin.x+7, pin.y);
++    v2d.Line(pin.x, pin.y, pin.x+7, pin.y);
+     v2d.Texto(x+pin.xLbl, y+pin.yLbl, pin.lbl);
+   end;
+   inherited;
+@@ -999,8 +999,8 @@ begin
+ 
+   //Línea vertioal y conexión a tierra
+   v2d.SetPen(psSolid, 2, COL_GND);
+-  v2d.Linea(x+12, y, x+12, y2);
+-  v2d.Linea(x+5, y2, x+19, y2);
++  v2d.Line(x+12, y, x+12, y2);
++  v2d.Line(x+5, y2, x+19, y2);
+   //Resistencia
+   v2d.SetPen(psSolid, 1, COL_GND);
+   v2d.SetBrush(COL_RES);
+@@ -1044,7 +1044,7 @@ begin
+       nod.UpdateModel;
+     end;
+   end; //Protección
+-  motEdi.Refrescar;
++  motEdi.Refresh;
+ end;
+ procedure TfraPICDiagram.SetCompiler(cxp0: TCompilerBase);
+ begin
+@@ -1135,7 +1135,7 @@ var
  begin
    nodeList.Clear;
    //Explora objetos gráfiocs
@@ -9,7 +75,7 @@
      if og is TOgConector then begin
        ogCon := TOgConector(og);
        AddConnectorToNodes(ogCon);
-@@ -1151,7 +1151,7 @@
+@@ -1151,7 +1151,7 @@ function TfraPICDiagram.ExistsName(AName: string): boo
  var
    og: TObjGraf;
  begin
@@ -18,7 +84,7 @@
      if og.Name = AName then exit(true);
    end;
    exit(false);
-@@ -1174,7 +1174,7 @@
+@@ -1174,7 +1174,7 @@ function TfraPICDiagram.ExistsRef(ARef: string): TOgCo
  var
    og: TObjGraf;
  begin
@@ -27,7 +93,7 @@
      if not(og is TOgComponent) then continue;
      if TOgComponent(og).Ref = ARef then exit(TOgComponent(og));
    end;
-@@ -1201,7 +1201,7 @@
+@@ -1201,7 +1201,7 @@ var
    //oc: TOgConector;
    //xv, yv: Single;
  begin
@@ -36,7 +102,7 @@
      //Hay uno seleccionado
      if motEdi.Selected.IsSelectedBy(X,Y) then begin
        //Click sobre un objeto seleccionado
-@@ -1240,7 +1240,7 @@
+@@ -1240,7 +1240,7 @@ procedure TfraPICDiagram.motEdi_MouseUp(Sender: TObjec
  var
    LogInp: TOgLogicState;
  begin
@@ -45,7 +111,7 @@
      //Hay un componente seleccionado
      if motEdi.Selected.IsSelectedBy(X,Y) then begin
        if motEdi.Selected is TOgLogicState then begin
-@@ -1267,15 +1267,15 @@
+@@ -1267,15 +1267,15 @@ var
    pCnx, pCnx2: TPtoConx;
  begin
    //Verifica el estado para activar acciones
@@ -64,7 +130,7 @@
      //Hay un componente seleccionado
      comp1 := TOgComponent(motEdi.Selected);  //Componente fuente
      mnReset.Visible   := true;
-@@ -1308,7 +1308,7 @@
+@@ -1308,7 +1308,7 @@ begin
      mnConnect.Caption := Format('Connect %s to', [pin1.lbl]);
      //Actualiza menú de Conexión, con objetos gráficos
      mnConnect.Clear;
@@ -73,7 +139,7 @@
        if not(og is TOgComponent) then continue;
        if og is TOgConector then continue;;
        it := AddItemToMenu(mnConnect, og.Name, nil);
-@@ -1454,7 +1454,7 @@
+@@ -1454,7 +1454,7 @@ var
  begin
    nodeList.Clear;
    //Explora objetos gráfiocs