Marcel Taeumel uploaded a new version of HelpSystem-Core to project The Trunk:
http://source.squeak.org/trunk/HelpSystem-Core-mt.140.mcz

==================== Summary ====================

Name: HelpSystem-Core-mt.140
Author: mt
Time: 20 April 2022, 11:38:41.592902 am
UUID: 50557393-b5cc-b247-9fb4-4bda3ecfda72
Ancestors: HelpSystem-Core-mt.139

Complements ToolBuilder-Kernel-mt.158

=============== Diff against HelpSystem-Core-mt.139 ===============

Item was changed:
  ----- Method: ClassBasedHelpTopic>>okToWriteSelector: (in category 'editing') -----
  okToWriteSelector: aSelector
  
  	| method |
  	method := self helpClass theMetaClass compiledMethodAt: aSelector ifAbsent: [^ true].
  	(method hasPragma: #generated) ifTrue: [^ true].
  	^ (Project uiManager
+ 		chooseOptionFrom: ({'Override it' translated. 'Don''t override, but browse it' translated. 'Cancel' translated})
- 		chooseFrom: (#('Override it' 'Don''t override, but browse it' 'Cancel') collect: #translated)
  		values: { [true]. [method browse. false]. [false] }
  		title: ('This will override the existing method\{1}!!\Proceed anyway?' translated withCRs asText
  			format: {method reference asText
  				addAttribute: (TextLink new classAndMethod: method reference);
  				yourself })) value == true!