From 8ea7db62202fd7c28baf3c83572332ab9d0de6eb Mon Sep 17 00:00:00 2001 From: Sophie Malla Tatchum Date: Thu, 28 Sep 2023 15:18:39 +0100 Subject: [PATCH] minor change --- instat/ucrAdditionalLayers.vb | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/instat/ucrAdditionalLayers.vb b/instat/ucrAdditionalLayers.vb index d26d0718bad..1f91bd1d1b6 100644 --- a/instat/ucrAdditionalLayers.vb +++ b/instat/ucrAdditionalLayers.vb @@ -131,7 +131,7 @@ Public Class ucrAdditionalLayers SetEditDeleteEnabled() End Sub - Private Sub cmdDelete_Click(sender As Object, e As EventArgs) + Private Sub cmdDelete_Click(sender As Object, e As EventArgs) Handles cmdDelete.Click If lstLayers.SelectedItems.Count = 1 Then If strMainDialogGeomNames Is Nothing OrElse Not strMainDialogGeomNames.Contains(lstLayers.SelectedItems(0).Tag) Then clsBaseOperator.RemoveParameterByName(lstLayers.SelectedItems(0).Tag) @@ -145,7 +145,7 @@ Public Class ucrAdditionalLayers End If End Sub - Private Sub cmdEdit_Click(sender As Object, e As EventArgs) + Private Sub cmdEdit_Click(sender As Object, e As EventArgs) Handles cmdEdit.Click Dim clsSelectedGeomParameter As RParameter Dim clsSelectedGeomFunction As RFunction Dim clsLocalAes As RFunction