The Trunk: HelpSystem-Core-tbn.51.mcz

Torsten Bergmann uploaded a new version of HelpSystem-Core to project The Trunk:
http://source.squeak.org/trunk/HelpSystem-Core-tbn.51.mcz

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

Name: HelpSystem-Core-tbn.51
Author: tbn
Time: 20 September 2010, 9:58:45.404 am
UUID: 5a88aca2-81a0-6544-a3b2-02fa6cca8085
Ancestors: HelpSystem-Core-ar.50

lazy convert to topic to allow refreshing from original target (see pharo issue 2978)

=============== Diff against HelpSystem-Core-ar.50 ===============

Item was changed:
  ----- Method: HelpBrowser classSide>>openOn: (in category 'instance creation') -----
  openOn: aHelpTopic
+         "Open the receiver on the given help topic or any other object that can be transformed into
+          a help topic by sending #asHelpTopic."
+        
+         ^(self defaultHelpBrowser new)
+                 rootTopic: aHelpTopic;
+                 open;
+                 yourself!
- "Open the receiver on the given help topic or any other object that can be transformed into
- a help topic by sending #asHelpTopic."
-
- ^(self defaultHelpBrowser new)
- rootTopic: aHelpTopic asHelpTopic;
- open;
- yourself!

Item was changed:
  ----- Method: HelpBrowser>>onItemClicked: (in category 'events') -----
  onItemClicked: anItem
+ anItem isNil ifTrue: [^contentMorph setText: rootTopic asHelpTopic contents].
- anItem isNil ifTrue: [^contentMorph setText: rootTopic contents].
  contentMorph setText: anItem contents!

Item was changed:
  ----- Method: HelpBrowser>>refresh (in category 'actions') -----
  refresh
 
+         |helpTopic items|
+         helpTopic := rootTopic asHelpTopic.
+         window setLabel: helpTopic title.
+         items := helpTopic subtopics collect: [:each | HelpTopicListItemWrapper with: each ].
+         treeMorph list: items.
+         contentMorph setText: helpTopic contents
- |items|
- window setLabel: rootTopic title.
- items := rootTopic subtopics collect: [:each | HelpTopicListItemWrapper with: each ].
- treeMorph list: items.
- contentMorph setText: rootTopic contents
  !