[Pkg] The Trunk: HelpSystem-Core-kfr.58.mcz

[commits at source.squeak.org]

David T. Lewis uploaded a new version of HelpSystem-Core to project The Trunk:
http://source.squeak.org/trunk/HelpSystem-Core-kfr.58.mcz

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

Name: HelpSystem-Core-kfr.58
Author: kfr
Time: 29 June 2014, 5:16:33.668 pm
UUID: c63934b3-4b08-1847-b228-5adf82435801
Ancestors: HelpSystem-Core-kfr.57

Add basic editing to help text pane.
Select 'edit' in menu and off you go.
Well, a new Workspace opens and you edit the text and accept it.
Not ideal, but it is a start.

=============== Diff against HelpSystem-Core-kfr.57 ===============

Item was changed:
  ----- Method: HelpBrowser>>codePaneMenu:shifted: (in category 'events') -----
  codePaneMenu: aMenu shifted: shifted
+ aMenu
+ 		add: 'edit' target: self selector: #editContents argument: self.
  
+ 	^StringHolder codePaneMenu: aMenu shifted: shifted.
- 	^ StringHolder codePaneMenu: aMenu shifted: shifted.
  !

Item was added:
+ ----- Method: HelpBrowser>>editContents (in category 'actions') -----
+ editContents
+ 	| classList |
+ 	classList := self find: contentMorph textMorph contents string. 
+ 	classList first actualClass theNonMetaClass edit: classList first selector.
+ 	self refresh!

Item was added:
+ ----- Method: HelpBrowser>>find: (in category 'actions') -----
+ find: aString
+ 		^SystemNavigation allMethodsSelect: [:method |
+ 				method  hasLiteralSuchThat: [:lit |
+ 					(lit isString and: [lit isSymbol not]) and:
+ 					[lit includesSubstring: aString caseSensitive: true]]]
+        !