[Pkg] The Trunk: HelpSystem-Core-kfr.72.mcz

[commits at source.squeak.org]

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!