Added menu for basic mode prompt

Author: isc-akadoo

cls/SourceControl/Git/Settings.cls

@@ -153,8 +153,20 @@ ClassMethod Configure() As %Boolean [ CodeMode = objectgenerator ]
         set promptQuoted = $$$QUOTE(prompt_":")
         set promptQuoted = $replace(promptQuoted,"${username}","'""_$Username_""'")
         set propertyDef = ##class(%Dictionary.PropertyDefinition).%OpenId("SourceControl.Git.Settings||"_property_"")
-        if (propertyDef) && ((propertyDef.Type = "%Boolean") || (propertyDef.Name = "basicMode")) {
+        if ((propertyDef) && (propertyDef.Type = "%Boolean")) {
             do %code.WriteLine(" set response = ##class(%Library.Prompt).GetYesNo("_promptQuoted_",.value,,"_defaultPromptFlag_")")
+        } elseif ((propertyDef) && (propertyDef.Name = "basicMode")) {
+            set basicModePromptFlag = defaultPromptFlag + $$$MatchExactArrayMask + $$$InitialDisplayMask
+            do %code.WriteLine(" set list(1) = ""Yes""")
+            do %code.WriteLine(" set list(2) = ""No""")
+            do %code.WriteLine(" set list(3) = ""System's Default Mode""")
+            do %code.WriteLine(" if inst.userBasicMode = ""system"" { set value = ""System's Default Mode""}")
+            do %code.WriteLine(" elseif inst.userBasicMode = 1 { set value = ""Yes""}")
+            do %code.WriteLine(" elseif inst.userBasicMode = 0 { set value = ""No""}")
+            do %code.WriteLine(" set response = ##class(%Library.Prompt).GetArray("_promptQuoted_",.value,.list,,,,"_basicModePromptFlag_")")
+            do %code.WriteLine(" if value = ""System's Default Mode"" { set value = ""system""}")
+            do %code.WriteLine(" elseif value = ""Yes"" { set value = 1}")
+            do %code.WriteLine(" elseif value = ""No"" { set value = 0}")
         } else {
             do %code.WriteLine(" set response = ##class(%Library.Prompt).GetString("_promptQuoted_",.value,,,,"_defaultPromptFlag_")")
         }