Merge pull request #8 from bmg002/master

Fix Issue #1
This commit is contained in:
kimmknight 2019-10-31 15:19:42 +11:00 committed by GitHub
commit 9bbb17d34a
No known key found for this signature in database
GPG Key ID: 4AEE18F83AFDEB23

View File

@ -139,7 +139,7 @@ Public Class RemoteAppEditWindow
Dim SysApps As New SystemRemoteApps Dim SysApps As New SystemRemoteApps
If Not RemoteApp.Name Is Nothing Then If Not RemoteApp.Name = ShortName Then SysApps.RenameApp(RemoteApp.Name, ShortName) If (Not RemoteApp.Name Is Nothing) And Not (Me.Text = "New RemoteApp") Then If Not RemoteApp.Name = ShortName Then SysApps.RenameApp(RemoteApp.Name, ShortName)
RemoteApp.Name = ShortName RemoteApp.Name = ShortName
RemoteApp.FullName = FullName RemoteApp.FullName = FullName