Changed prompts in configure from 0/1 to no/yes

CHANGELOG.md

@@ -5,6 +5,11 @@ All notable changes to this project will be documented in this file.
 The format is based on [Keep a Changelog](https://keepachangelog.com/en/1.0.0/),
 and this project adheres to [Semantic Versioning](https://semver.org/spec/v2.0.0.html).
 
+## [2.5.1] - Unreleased
+
+### Fixed
+- Changed prompts in configure from 0/1 to no/yes (#461)
+
 ## [2.5.0] - 2024-09-24
 
 ### Added

cls/SourceControl/Git/Settings.cls

@@ -152,7 +152,12 @@ ClassMethod Configure() As %Boolean [ CodeMode = objectgenerator ]
  set prompt = $$$comMemberKeyGet(%class.Name,$$$cCLASSproperty,property,$$$cPROPdescription)
  set promptQuoted = $$$QUOTE(prompt_":")
  set promptQuoted = $replace(promptQuoted,"${username}","'""_$Username_""'")
- do %code.WriteLine(" set response = ##class(%Library.Prompt).GetString("_promptQuoted_",.value,,,,"_defaultPromptFlag_")")
+ set propertyDef = ##class(%Dictionary.PropertyDefinition).%OpenId("SourceControl.Git.Settings||"_property_"")
+ if (propertyDef) && ((propertyDef.Type = "%Boolean") || (propertyDef.Name = "basicMode")) {
+ do %code.WriteLine(" set response = ##class(%Library.Prompt).GetYesNo("_promptQuoted_",.value,,"_defaultPromptFlag_")")
+ } else {
+ do %code.WriteLine(" set response = ##class(%Library.Prompt).GetString("_promptQuoted_",.value,,,,"_defaultPromptFlag_")")
+ }
  do %code.WriteLine(" if response '= $$$SuccessResponse { quit 0 }")
  do %code.WriteLine(" set inst."_property_" = value")