From e6792c2e52c7723b856558dd992321f3b717dfee Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Marius=20D=C3=B6rbandt?= Date: Tue, 12 Nov 2024 19:20:45 +0100 Subject: [PATCH] Fix class comments not getting deleted Fixes #2. --- .../MCClassDefinition.extension/instance/load.st | 6 ++++++ .../MCClassDefinition.extension/methodProperties.json | 3 ++- .../MCTraitDefinition.extension/instance/load.st | 4 ++++ .../MCTraitDefinition.extension/methodProperties.json | 3 ++- 4 files changed, 14 insertions(+), 2 deletions(-) create mode 100644 src/GitS-Core.package/MCClassDefinition.extension/instance/load.st create mode 100644 src/GitS-Core.package/MCTraitDefinition.extension/instance/load.st diff --git a/src/GitS-Core.package/MCClassDefinition.extension/instance/load.st b/src/GitS-Core.package/MCClassDefinition.extension/instance/load.st new file mode 100644 index 000000000..34756a355 --- /dev/null +++ b/src/GitS-Core.package/MCClassDefinition.extension/instance/load.st @@ -0,0 +1,6 @@ +*GitS-Core-installing-override +load + self createClass ifNotNil: + [:class | + class class instanceVariableNames: self classInstanceVariablesString. + class classComment: comment stamp: commentStamp] \ No newline at end of file diff --git a/src/GitS-Core.package/MCClassDefinition.extension/methodProperties.json b/src/GitS-Core.package/MCClassDefinition.extension/methodProperties.json index 727a96920..a2e65eadd 100644 --- a/src/GitS-Core.package/MCClassDefinition.extension/methodProperties.json +++ b/src/GitS-Core.package/MCClassDefinition.extension/methodProperties.json @@ -7,4 +7,5 @@ "gitSSources" : "mad 10/9/2024 17:02", "gitSSourcesHelp" : "mad 10/9/2024 17:02", "gitSSourcesSize" : "mad 10/9/2024 17:03", - "gitSSourcesStylerClasses" : "mad 10/9/2024 17:03" } } + "gitSSourcesStylerClasses" : "mad 10/9/2024 17:03", + "load" : "mad 11/12/2024 12:51" } } diff --git a/src/GitS-Core.package/MCTraitDefinition.extension/instance/load.st b/src/GitS-Core.package/MCTraitDefinition.extension/instance/load.st new file mode 100644 index 000000000..bf0a032f5 --- /dev/null +++ b/src/GitS-Core.package/MCTraitDefinition.extension/instance/load.st @@ -0,0 +1,4 @@ +*GitS-Core-installing-override +load + self createClass ifNotNil: [:trait | + trait classComment: comment stamp: commentStamp] \ No newline at end of file diff --git a/src/GitS-Core.package/MCTraitDefinition.extension/methodProperties.json b/src/GitS-Core.package/MCTraitDefinition.extension/methodProperties.json index 624faae72..eee01a73c 100644 --- a/src/GitS-Core.package/MCTraitDefinition.extension/methodProperties.json +++ b/src/GitS-Core.package/MCTraitDefinition.extension/methodProperties.json @@ -6,4 +6,5 @@ "gitSSources" : "mad 10/9/2024 17:02", "gitSSourcesHelp" : "mad 10/9/2024 17:02", "gitSSourcesSize" : "mad 10/9/2024 17:03", - "gitSSourcesStylerClasses" : "mad 10/9/2024 17:03" } } + "gitSSourcesStylerClasses" : "mad 10/9/2024 17:03", + "load" : "mad 11/12/2024 12:51" } }