The Trunk: HelpSystem-Core-tbn.46.mcz

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

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

Name: HelpSystem-Core-tbn.46
Author: tbn
Time: 2 May 2010, 10:23:44.84 pm
UUID: 5dc8cdc1-79e0-bb43-8e93-30585a8138e7
Ancestors: HelpSystem-Core-mha.45

throw out pharo specific stuff since we are now integrated in squeak (and pharo too where squeak specific stuff was removed)

=============== Diff against HelpSystem-Core-mha.45 ===============

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:.
+ window addMorph: treeMorph frame: (0@0 corner: 0.3@1).
 
+ "Text"
+ contentMorph := self defaultViewerClass on: self
+ text: nil accept: nil
+ readSelection: nil menu: nil.
+ window addMorph: contentMorph frame: (0.3@0 corner: 1@1).
+ !
- self class isSqueak
- ifTrue: [self initWindowInSqueak ]
- ifFalse: [self initWindowInPharo ]!

Item was changed:
  ----- Method: HelpBrowser classSide>>initialize (in category 'class initialization') -----
  initialize
  "Initializes the receiver class"
   
+ TheWorldMenu registerOpenCommand: {'Help Browser'. {self. #open}}. !
- self isPharo11
- ifFalse: [ TheWorldMenu registerOpenCommand: {'Help Browser'. {self. #open}}. ].
-
- "self open"!

Item was removed:
- ----- Method: HelpBrowser>>initWindowInSqueak (in category 'initialize-release') -----
- initWindowInSqueak
- window := SystemWindow labelled: 'Help Browser'.
- window model: self.
- "Tree"
- treeMorph := PluggableTreeMorph new.
- treeMorph model: self; setSelectedSelector: #onItemClicked:.
- window addMorph: treeMorph frame: (0@0 corner: 0.3@1).
-
- "Text"
- contentMorph := self defaultViewerClass on: self
- text: nil accept: nil
- readSelection: nil menu: nil.
- window addMorph: contentMorph frame: (0.3@0 corner: 1@1).
- !

Item was removed:
- ----- Method: HelpBrowser>>initWindowInPharo (in category 'initialize-release') -----
- initWindowInPharo
- | toolbar dock|
- window := (Smalltalk at: #StandardWindow) new.
- window model: self.
-
- window title: 'Help Browser'.
- toolbar := window newToolbar: {window
- newButtonFor: self
- getState: nil
- action: #refresh
- arguments: nil
- getEnabled: nil
- labelForm: (HelpIcons iconNamed: #refreshIcon)
- help: 'Refresh' translated.
- }.
-
- dock := window newToolDockingBar.
- dock addMorphBack: toolbar.
- window
- addMorph: dock
- fullFrame: (LayoutFrame fractions: (0@0 corner: 1@0) offsets: (0@0 corner: 0 @ dock minExtent y)).
- "Tree"
- treeMorph := PluggableTreeMorph new.
- treeMorph model: self; setSelectedSelector: #onItemClicked:.
- window
- addMorph: treeMorph
- fullFrame: (LayoutFrame fractions: (0@0 corner: 0.3@1) offsets: (0@dock minExtent y corner: 0 @ 0)).
-
- "Text"
- contentMorph := self defaultViewerClass on: self
- text: nil accept: nil
- readSelection: nil menu: nil.
- window addMorph: contentMorph fullFrame: (LayoutFrame fractions: (0.3@0 corner: 1@1) offsets: (0@dock minExtent y corner: 0 @ 0)).
-
-  !

Item was removed:
- ----- Method: HelpBrowser classSide>>isPharo11 (in category 'private') -----
- isPharo11
- "Return true if we are in Pharo 1.1."
-
- ^(SystemVersion current version includesSubString: '1.1')!

Item was removed:
- ----- Method: HelpBrowser classSide>>isSqueak (in category 'private') -----
- isSqueak
- "Return true if we are in Squeak"
-
- ^(SystemVersion current version includesSubString: 'Squeak')!