[Pkg] 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 Packages
mailing list