The Trunk: HelpSystem-Core-mt.65.mcz

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

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

Name: HelpSystem-Core-mt.65
Author: mt
Time: 10 March 2015, 9:31:38.051 pm
UUID: 09bd894b-ec8b-fa48-b433-a82a8470510e
Ancestors: HelpSystem-Core-dtl.64

Fix help browser to show current selection in pluggable tree morph.

=============== Diff against HelpSystem-Core-dtl.64 ===============

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:;
+ getSelectedSelector: #topic;
+ getMenuSelector: #menu:.
- treeMorph model: self; setSelectedSelector: #onItemClicked:; getMenuSelector: #menu:.
  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 changed:
  ----- Method: HelpBrowser>>onItemClicked: (in category 'events') -----
  onItemClicked: anItem
+
+ anItem ifNil: [^contentMorph setText: rootTopic asHelpTopic contents].
- | classList |
- anItem isNil ifTrue: [^contentMorph setText: rootTopic asHelpTopic contents].
  contentMorph setText: anItem contents.
+ self topic: anItem. !
- topic := anItem.
- classList := (self find: anItem contents) asOrderedCollection.
- classList ifNotEmpty:[
- topicClass := classList first actualClass theNonMetaClass.
- topicMethod := classList first selector].
- !

Item was added:
+ ----- Method: HelpBrowser>>topic (in category 'accessing') -----
+ topic
+ ^ topic!

Item was added:
+ ----- Method: HelpBrowser>>topic: (in category 'accessing') -----
+ topic: anItem
+
+ | classList |
+ topic := anItem.
+ classList := (self find: anItem contents) asOrderedCollection.
+ classList ifNotEmpty:[
+ topicClass := classList first actualClass theNonMetaClass.
+ topicMethod := classList first selector].
+ self changed: #topic.!