The Trunk: HelpSystem-Core-mt.162.mcz

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

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

Name: HelpSystem-Core-mt.162
Author: mt
Time: 7 August 2026, 3:53:40.550413 pm
UUID: 1dc1ff46-2f3a-b445-a102-a32ce475ef9f
Ancestors: HelpSystem-Core-ct.161

Fixes minor slips in the area of locale and user-interface translations.

Note that #translated must be sent to the literal string. If not feasible, #translatedNoop can be used to flag the literal for extraction and #translate later. The combination of #withCRs and #asTextFromHtml is unfortunate for the performance as '<br>' can be used to insert line breaks.

=============== Diff against HelpSystem-Core-ct.161 ===============

Item was changed:
  ----- Method: ClassBasedHelpTopic>>okToRemoveClass (in category 'editing - requests') -----
  okToRemoveClass
  
  	^ self confirm:
+ 		('Are you certain that you want to remove the class\\{1}\\{2}from the system?' translated withCRs asText format:
- 		('Are you certain that you want to remove the class\\{1}\\{2}from the system?' withCRs translated asText format:
  			{self helpClass name asText allBold.
  			self helpClass subclasses ifEmpty: [''] ifNotEmpty: [:subclasses |
  				(subclasses size = 1
  					ifTrue: ['and its {1} subclass ' translated]
  					ifFalse: ['and all its {1} subclasses ' translated])
  						asText format:
  							{subclasses size asString asText allBold}]})!

Item was changed:
  ----- Method: DirectoryBasedHelpTopic>>requestTitleForSubtopicOfType:withDefault:orCancel: (in category 'editing - requests') -----
  requestTitleForSubtopicOfType: type withDefault: aString orCancel: cancelBlock
  
  	| newTitle |
  	newTitle := Project uiManager
  		request:
  			(type caseOf:
  				{[#directory] -> ['Please enter a directory name:' translated].
  				[#file] -> ['Please enter a file name:' translated]})
  		initialAnswer: aString.
  	newTitle isEmptyOrNil ifTrue: [^ cancelBlock value].
  	
  	(type = #file and: [(self filter match: newTitle) not]) ifTrue: [
+ 		^ (self confirm: ('This name does not match the current filter for help files:\\{1}\\Do you want to enter a new name?' translated withCRs asText format: {self filter asText allBold}))
- 		^ (self confirm: ('This name does not match the current filter for help files:\\{1}\\Do you want to enter a new name?' withCRs translated asText format: {self filter asText allBold}))
  			ifTrue: [self requestTitleForSubtopicOfType: type withDefault: newTitle orCancel: cancelBlock]
  			ifFalse: [cancelBlock value]].
  	
  	^ newTitle!

Item was changed:
  ----- Method: SearchTopic>>writeResultText (in category 'searching') -----
  writeResultText
  	"Extension point. Subclasses may override this, e.g., to customize the representation of results."
  
  	results ifNil: [^ resultText].
  	results do: [:topicToResult |
  		topicToResult isString
  			ifTrue: [resultText append: (
  				(topicToResult, String cr) asText
  					addAttribute: (TextColor color: (Color gray: 0.7));
  					yourself)]
  			ifFalse: [
  				resultText append: (
+ 					'\----- Matches found in ''{1}'' -----\\' translated withCRs asText
- 					'\----- Matches found in ''{1}'' -----\\' withCRs translated asText
  						addAttribute: (TextColor color: (Color gray: 0.7));
  						format: {topicToResult key title}).
  				topicToResult value do: [:entry |
  					resultText append: (self printResultEntry: entry)] 
  					]]!

Squeak-dev mailing list -- [email protected]
To unsubscribe send an email to [email protected]