[squeak-dev] The Trunk: HelpSystem-Core-mt.65.mcz

commits at source.squeak.org commits at source.squeak.org
Wed Mar 11 04:31:41 UTC 2015


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 at 0 corner: 0.3 at 1).
  	
  	"Text"
  	contentMorph := self defaultViewerClass on: self 
  			text: nil accept: #accept:
  			readSelection: nil menu: #codePaneMenu:shifted:.
  	window addMorph: contentMorph frame: (0.3 at 0 corner: 1 at 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.!



More information about the Squeak-dev mailing list