[Pkg] The Trunk: HelpSystem-Core-tbn.46.mcz

commits at source.squeak.org commits at source.squeak.org
Sun May 2 20:24:00 UTC 2010


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 at 0 corner: 0.3 at 1).
  	
+ 	"Text"
+ 	contentMorph := self defaultViewerClass on: self 
+ 			text: nil accept: nil
+ 			readSelection: nil menu: nil.
+ 	window addMorph: contentMorph frame: (0.3 at 0 corner: 1 at 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 at 0 corner: 0.3 at 1).
- 	
- 	"Text"
- 	contentMorph := self defaultViewerClass on: self 
- 			text: nil accept: nil
- 			readSelection: nil menu: nil.
- 	window addMorph: contentMorph frame: (0.3 at 0 corner: 1 at 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 at 0 corner: 1 at 0) offsets: (0 at 0 corner: 0 @ dock minExtent y)).
- 	"Tree"
- 	treeMorph := PluggableTreeMorph new.
- 	treeMorph model: self; setSelectedSelector: #onItemClicked:.
- 	window 
- 		addMorph: treeMorph 
- 		fullFrame: (LayoutFrame fractions: (0 at 0 corner: 0.3 at 1) offsets: (0 at 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 at 0 corner: 1 at 1) offsets: (0 at 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')!



More information about the Packages mailing list