[squeak-dev] The Trunk: Tools-mt.1067.mcz

commits at source.squeak.org commits at source.squeak.org
Fri Nov 19 14:17:03 UTC 2021


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

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

Name: Tools-mt.1067
Author: mt
Time: 19 November 2021, 3:17:00.693971 pm
UUID: eb7582cc-d2c1-b34a-a5e7-3732928a143f
Ancestors: Tools-mt.1066

Complements HelpSystem-Core-mt.136

=============== Diff against Tools-mt.1066 ===============

Item was changed:
  ----- Method: Browser>>browseAllCommentsForClass (in category 'message functions') -----
  browseAllCommentsForClass
  	"Opens a HelpBrowser on the class"
  
  	| myClass |
+ 	myClass := self selectedClass ifNil: [ ^self ].
- 	myClass := self selectedClassOrMetaClass ifNil: [ ^self ].
  	myClass isTrait ifTrue: [ ^self ].
+ 	myClass openHelpBrowser model showTopicNamed: myClass name.!
- 	(Smalltalk classNamed: #HelpBrowser)
- 		ifNil: [ ^self inform: 'HelpBrowser is not available.' ]
- 		ifNotNil: [ :HelpBrowser |
- 			HelpBrowser openOn: myClass theNonMetaClass ]
- !

Item was changed:
  ----- Method: Browser>>classListMenu: (in category 'class functions') -----
  classListMenu: aMenu 
  	"Conveniently fit for backward compatibility with old browers stored in image segments"
  	<classListMenuShifted: false>
  	aMenu addList: #(
  		-
  		('browse full (b)'			browseMethodFull)
  		('browse hierarchy (h)'		spawnHierarchy)
  		('browse protocol (p)'		browseFullProtocol)
+ 		('browse documentation'		browseAllCommentsForClass)
  		-
  		('printOut'					printOutClass)
  		('fileOut'					fileOutClass)
  		-
  		('show hierarchy'			hierarchy)
  		('show definition'			editClass)
  		('show comment'			editComment)
- 		('show all comments'		browseAllCommentsForClass)
  		-
  		('references... (r)'			browseVariableReferences)
  		('assignments... (a)'			browseVariableAssignments)
  		('class refs (N)'				browseClassRefs)
  		-
  		('rename class ...'			renameClass)
  		('copy class'				copyClass)
  		('remove class (x)'			removeClass)
  		-
  		('find method...'				findMethod)).
  	^ aMenu
  !



More information about the Squeak-dev mailing list