[squeak-dev] The Trunk: HelpSystem-Core-tbn.48.mcz

commits at source.squeak.org commits at source.squeak.org
Sun May 9 00:57:25 UTC 2010


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

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

Name: HelpSystem-Core-tbn.48
Author: tbn
Time: 9 May 2010, 2:56:25.349 am
UUID: 058cd18a-465d-3340-94ee-f555d16b5e53
Ancestors: HelpSystem-Core-tbn.47

Merge in HelpSystem-Core-tbn.44 from squeaksource/HelpSystem to allow to set
a new help browser.
Fixes also http://code.google.com/p/pharo/issues/detail?id=2397

=============== Diff against HelpSystem-Core-tbn.47 ===============

Item was changed:
  Object subclass: #HelpBrowser
  	instanceVariableNames: 'rootTopic window treeMorph contentMorph'
+ 	classVariableNames: 'DefaultHelpBrowser'
- 	classVariableNames: ''
  	poolDictionaries: ''
  	category: 'HelpSystem-Core-UI'!
  
  !HelpBrowser commentStamp: 'tbn 3/8/2010 09:33' prior: 0!
  A HelpBrowser is used to display a hierarchy of help topics and their contents.
  
  Instance Variables
  	rootTopic: 		<HelpTopic>
  	window:			<StandardWindow>	 
  	treeMorph:		<PluggableTreeMorph>
  	contentMorph:		<Morph>			
  
  rootTopic
  	- xxxxx
  
  window
  	- xxxxx
  
  treeMorph 
  	- xxxxx
  
  contentMorph 
  	- xxxxx
  
  !

Item was added:
+ ----- Method: HelpBrowser classSide>>defaultHelpBrowser: (in category 'accessing') -----
+ defaultHelpBrowser: aClass
+ 	"Use a new help browser implementation"
+ 	
+ 	DefaultHelpBrowser := aClass
+ 	!

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)
- 	^(self new)
  		rootTopic: aHelpTopic asHelpTopic;
  		open;
  		yourself!

Item was changed:
  ----- Method: HelpBrowser classSide>>open (in category 'instance creation') -----
  open
+ 	^self openOn: SystemHelp!
- 	^self defaultHelpBrowser openOn: SystemHelp!

Item was changed:
+ ----- Method: HelpBrowser classSide>>defaultHelpBrowser (in category 'accessing') -----
- ----- Method: HelpBrowser classSide>>defaultHelpBrowser (in category 'instance creation') -----
  defaultHelpBrowser
+ 	DefaultHelpBrowser isNil ifTrue: [DefaultHelpBrowser := self].
+ 	^DefaultHelpBrowser
+ 	!
- 	^self !




More information about the Squeak-dev mailing list