The Trunk: HelpSystem-Core-kfr.63.mcz

Karl Ramberg uploaded a new version of HelpSystem-Core to project The Trunk:
http://source.squeak.org/trunk/HelpSystem-Core-kfr.63.mcz

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

Name: HelpSystem-Core-kfr.63
Author: kfr
Time: 19 July 2014, 3:46:51.811 pm
UUID: 232d5acb-7da0-3544-a556-c01a15c0d4d2
Ancestors: HelpSystem-Core-kfr.62

Present the right menu in tree view pane

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

Item was changed:
  ----- Method: HelpBrowser>>codePaneMenu:shifted: (in category 'events') -----
  codePaneMenu: aMenu shifted: shifted
+ ^ StringHolder basicNew codePaneMenu: aMenu shifted: shifted
-
- ^StringHolder codePaneMenu: aMenu shifted: shifted.
  !

Item was changed:
  ----- Method: HelpBrowser>>initWindow (in category 'initialize-release') -----
  initWindow
  window := SystemWindow labelled: 'Help Browser'.
  window model: self.
  "Tree"
  treeMorph := PluggableTreeMorph new.
+ treeMorph model: self; setSelectedSelector: #onItemClicked:; getMenuSelector: #menu:.
- treeMorph model: self; setSelectedSelector: #onItemClicked:; getMenuSelector: #codePaneMenu:shifted:.
  window addMorph: treeMorph frame: (0@0 corner: 0.3@1).
 
  "Text"
  contentMorph := self defaultViewerClass on: self
  text: nil accept: #accept:
  readSelection: nil menu: #codePaneMenu:shifted:.
  window addMorph: contentMorph frame: (0.3@0 corner: 1@1).
  !

Item was added:
+ ----- Method: HelpBrowser>>menu: (in category 'events') -----
+ menu: aMenu
+ ^aMenu add: 'find...' translated action: #find.
+
+
+ !