Blocks catalog: Make property setter optional

The properties may be read-only.

Also indent properly the changer definition, which was wrong.

Author: manuq

addons/block_code/code_generation/blocks_catalog.gd

@@ -141,22 +141,24 @@ static func _add_property_definitions(_class_name: String, property_list: Array[
 			_by_class_name[_class_name] = {}
 
 		# Setter
-		var block_definition: BlockDefinition = (
-			BlockDefinition
-			. new(
-				&"%s_set_%s" % [_class_name, property.name],
-				_class_name,
-				"Set the %s property" % property.name,
-				block_settings.category,
-				Types.BlockType.STATEMENT,
-				TYPE_NIL,
-				"Set %s to {value: %s}" % [property.name.capitalize(), type_string],
-				"%s = {value}" % property.name,
-				{"value": block_settings.get("default_set", _FALLBACK_SET_FOR_TYPE[property.type])},
+		var block_definition: BlockDefinition
+		if block_settings.get("has_setter", true):
+			block_definition = (
+				BlockDefinition
+				. new(
+					&"%s_set_%s" % [_class_name, property.name],
+					_class_name,
+					"Set the %s property" % property.name,
+					block_settings.category,
+					Types.BlockType.STATEMENT,
+					TYPE_NIL,
+					"Set %s to {value: %s}" % [property.name.capitalize(), type_string],
+					"%s = {value}" % property.name,
+					{"value": block_settings.get("default_set", _FALLBACK_SET_FOR_TYPE[property.type])},
+				)
 			)
-		)
-		_catalog[block_definition.name] = block_definition
-		_by_class_name[_class_name][block_definition.name] = block_definition
+			_catalog[block_definition.name] = block_definition
+			_by_class_name[_class_name][block_definition.name] = block_definition
 
 		# Changer
 		if block_settings.get("has_change", true):
@@ -174,8 +176,8 @@ static func _add_property_definitions(_class_name: String, property_list: Array[
 					{"value": block_settings.get("default_change", _FALLBACK_CHANGE_FOR_TYPE[property.type])},
 				)
 			)
-		_catalog[block_definition.name] = block_definition
-		_by_class_name[_class_name][block_definition.name] = block_definition
+			_catalog[block_definition.name] = block_definition
+			_by_class_name[_class_name][block_definition.name] = block_definition
 
 		# Getter
 		block_definition = (