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

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

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

Name: HelpSystem-Core-kfr.72
Author: kfr
Time: 23 April 2015, 1:13:18.999 pm
UUID: f466ee85-eb61-3843-a277-ce3b081f9faa
Ancestors: HelpSystem-Core-kfr.71

Instance variable url was shadowed

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

Item was changed:
  ----- Method: HtmlHelpTopic>>convertBlock (in category 'accessing') -----
  convertBlock
 
+ ^ convertBlock ifNil: [ [:aUrl | aUrl] ]!
- ^ convertBlock ifNil: [ [:url | url] ]!

Item was changed:
  ----- Method: HtmlHelpTopic>>selectBlock (in category 'accessing') -----
  selectBlock
 
+ ^ selectBlock ifNil: [ [:aUrl | true] ]!
- ^ selectBlock ifNil: [ [:url | true] ]!

Item was changed:
  ----- Method: HtmlHelpTopic>>subtopics (in category 'accessing') -----
  subtopics
 
  | start end urls |
  subtopics ifNotNil: [^ subtopics].
 
  urls := OrderedCollection new.
 
  start := self document findString: '<a '.
  [start > 0] whileTrue: [
  start := self document findString: 'href' startingAt: start.
  start := (self document findString: '"' startingAt: start) + 1.
  end := self document findString: '"' startingAt: start.
  urls addIfNotPresent: (self document copyFrom: start to: end - 1).
  start := self document findString: '<a ' startingAt: start.].
 
+ subtopics := (self subtopicUrls collect: [:aUrl | self class new
- subtopics := (self subtopicUrls collect: [:url | self class new
  level: self level + 1;
+ url: aUrl;
- url: url;
  selectBlock: self selectBlock;
  convertBlock: self convertBlock]).
 
  Project current uiProcess == Processor activeProcess
  ifTrue: [self fetchSubtopics].
 
  ^ subtopics!