Kill picoweb server on app exit

kmierzeje · Apr 17, 2023 · 60ac4d2 · 60ac4d2
1 parent 9af557d
commit 60ac4d2
Showing 1 changed file with 4 additions and 0 deletions.
diff --git a/src/vba/PlantUMLEdit.frm b/src/vba/PlantUMLEdit.frm
@@ -32,6 +32,10 @@ Attribute App.VB_VarHelpID = -1
 Private Initializing As Boolean
 
 
+Private Sub App_PresentationCloseFinal(ByVal Pres As Presentation)
+    PlantUml.StopServer
+End Sub
+
 Private Sub App_WindowDeactivate(ByVal Pres As Presentation, ByVal Wn As DocumentWindow)
     Hide
 End Sub