The Inbox: HelpSystem-Core-kfr.58.mcz

A new version of HelpSystem-Core was added to project The Inbox:
http://source.squeak.org/inbox/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]]]
+        !