[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
|