jj 04.05.2016 staticlist editor

2016-05-04 16:09:15 +02:00
parent 7ec031388f
commit 1c53e3e894
8 changed files with 326 additions and 8 deletions
--- a/app/DD-Record-Organiser/ClassControlCommands.vb
+++ b/app/DD-Record-Organiser/ClassControlCommands.vb
@@ -280,7 +280,8 @@
            End If

            If propExists(properties, "StaticList") Then
-                STATIC_LIST = properties.StaticList
+                Dim value As StaticListValue = DirectCast(properties.StaticList, StaticListValue)
+                STATIC_LIST = value.Value
            Else
                STATIC_LIST = String.Empty
            End If