Missing semicolons in perl dialog generator

--MP_/CPTEoqoYRMStarbrS8nLvdx
Content-Type: text/plain; charset=US-ASCII
Content-Transfer-Encoding: 7bit
Content-Disposition: inline

widgets/dialog/perl_codegen.py forgets a couple of semicolons. Patch
attached.

--MP_/CPTEoqoYRMStarbrS8nLvdx
Content-Type: text/x-patch
Content-Transfer-Encoding: 7bit
Content-Disposition: attachment; filename=perl_codegen.py.patch

*** widgets/dialog/perl_codegen.py~	2021-12-09 00:26:29.713772907 +0100
--- widgets/dialog/perl_codegen.py	2023-10-28 22:22:56.749379798 +0200
***************
*** 35,44 ****
          # SetAffirmativeId and SetEscapeId, if defined
          if obj.check_prop_truth("affirmative"):
              buttons = obj.find_children(obj.affirmative, "wxButton")
!             if buttons: ret.append( "$self->SetAffirmativeId(%s->GetId())\n" % self.format_widget_access(buttons[0]) )
          if obj.check_prop_truth("escape"):
              buttons = obj.find_children(obj.escape, "wxButton")
!             if buttons: ret.append( "$self->SetEscapeId(%s->GetId())\n" % self.format_widget_access(buttons[0]) )
          if ret: ret.append("\n")
  
          ret.append( '$self->Layout();\n' )
--- 35,44 ----
          # SetAffirmativeId and SetEscapeId, if defined
          if obj.check_prop_truth("affirmative"):
              buttons = obj.find_children(obj.affirmative, "wxButton")
!             if buttons: ret.append( "$self->SetAffirmativeId(%s->GetId());\n" % self.format_widget_access(buttons[0]) )
          if obj.check_prop_truth("escape"):
              buttons = obj.find_children(obj.escape, "wxButton")
!             if buttons: ret.append( "$self->SetEscapeId(%s->GetId());\n" % self.format_widget_access(buttons[0]) )
          if ret: ret.append("\n")
  
          ret.append( '$self->Layout();\n' )

--MP_/CPTEoqoYRMStarbrS8nLvdx
Content-Type: text/plain; charset="us-ascii"
MIME-Version: 1.0
Content-Transfer-Encoding: 7bit
Content-Disposition: inline


--MP_/CPTEoqoYRMStarbrS8nLvdx
Content-Type: text/plain; charset="us-ascii"
MIME-Version: 1.0
Content-Transfer-Encoding: 7bit
Content-Disposition: inline

_______________________________________________
wxGlade-general mailing list
wxGlade-general-5NWGOfrQmneRv+LV9MX5uipxlwaOVQ5f@public.gmane.org
https://lists.sourceforge.net/lists/listinfo/wxglade-general

--MP_/CPTEoqoYRMStarbrS8nLvdx--