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

A new version of HelpSystem-Core was added to project The Inbox:
http://source.squeak.org/inbox/HelpSystem-Core-kfr.61.mcz

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

Name: HelpSystem-Core-kfr.61
Author: kfr
Time: 3 July 2014, 1:34:02.018 pm
UUID: 444631ca-4afb-4f4f-80bd-340372e176a9
Ancestors: HelpSystem-Core-kfr.60

'Find again' added to HelpBrowser

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

Item was added:
+ ----- Method: HelpBrowser>>findAgain (in category 'actions') -----
+ findAgain
+ | i |
+ (i := result indexOf: topic) ~= 0
+ ifTrue: [i = result size
+ ifTrue: [(self confirm: 'Start over?')
+ ifTrue: [i := 1]
+ ifFalse: [^ self]].
+ self
+ onItemClicked: (result at: i + 1)]!

Item was changed:
  ----- Method: HelpBrowser>>inSubtopic:find: (in category 'actions') -----
  inSubtopic: aTopic find: aString
  ((aTopic asString includesSubString: aString)
  or: [aTopic item contents asString includesSubString: aString])
+ ifTrue: [result addIfNotPresent:  aTopic item].
- ifTrue: [result add: aTopic item].
  aTopic contents
  do: [:sub | self inSubtopic: sub find: aString]!