David T. Lewis uploaded a new version of Tools to project The Trunk:
http://source.squeak.org/trunk/Tools-dtl.774.mcz

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

Name: Tools-dtl.774
Author: dtl
Time: 14 November 2017, 10:39:54.257729 pm
UUID: c28e78a5-a2d2-40de-9eae-09e56276a1b1
Ancestors: Tools-tpr.773

Remove unnecessary references to global World.

=============== Diff against Tools-tpr.773 ===============

Item was changed:
  ----- Method: FileList2 class>>morphicViewProjectSaverFor: (in category 'blue ui') -----
  morphicViewProjectSaverFor: aProject
  "
  (FileList2 morphicViewProjectSaverFor: Project current) openInWorld
  "
  	| window aFileList buttons treePane pane2 textColor1 option treeExtent buttonData buttonRow |
  
  	textColor1 := Color r: 0.742 g: 0.839 b: 1.0.
  	aFileList := self new directory: ServerDirectory projectDefaultDirectory.
  	aFileList dirSelectionBlock: self hideSqueakletDirectoryBlock.
  	window := AlignmentMorphBob1 newColumn.
  	window hResizing: #shrinkWrap; vResizing: #shrinkWrap.
  	aFileList modalView: window.
  	window
  		setProperty: #FileList toValue: aFileList;
  		wrapCentering: #center; cellPositioning: #topCenter;
  		borderWidth: 1;
  		borderColor: (Color r: 0.9 g: 0.801 b: 0.2);
  		useRoundedCorners.
  
  	buttonData := Preferences enableLocalSave
  				ifTrue: [{
  							{'Save'. #okHit. 'Save in the place specified below, and in the Squeaklets folder on your local disk'. Color lightGreen}.
  							{'Save on local disk only'. #saveLocalOnlyHit. 'saves in the Squeaklets folder'. Color lightGreen}.
  							{'Cancel'. #cancelHit. 'return without saving'. Color lightRed}
  						}]
  				ifFalse: [{
  							{'Save'. #okHit. 'Save in the place specified below, and in the Squeaklets folder on your local disk'. Color lightGreen}.
  							{'Cancel'. #cancelHit. 'return without saving'. Color lightRed}
  						}].
  	buttons := buttonData collect: [ :each |
  		(self blueButtonText: each first textColor: textColor1 color: each fourth inWindow: window)
  			setBalloonText: each third translated;
  			hResizing: #shrinkWrap;
  			on: #mouseUp send: each second to: aFileList
  	].
  
  	option := aProject world 
  		valueOfProperty: #SuperSwikiPublishOptions 
  		ifAbsent: [#initialDirectoryList].
  	aProject world removeProperty: #SuperSwikiPublishOptions.
  
+ 	treeExtent := Project current world height < 500
- 	treeExtent := World height < 500
  						ifTrue: [ 350 at 150 ]
  						ifFalse: [ 350 at 300 ].
  
  	(treePane := aFileList morphicDirectoryTreePaneFiltered: option) 
  		extent: treeExtent; 
  		retractable: false;
  		borderWidth: 0.
  	window
  		addARowCentered: {
  			window fancyText: 'Publish This Project' translated font: Preferences standardEToysTitleFont color: textColor1
  		}.
  	buttonRow := OrderedCollection new.
  	buttons do: [:button | buttonRow add: button] separatedBy: [buttonRow add: ((Morph new extent: 30 at 5) color: Color transparent)].
  
  "	addARowCentered: {
  			buttons first. 
  			(Morph new extent: 30 at 5) color: Color transparent. 
  			buttons second.
  			(Morph new extent: 30 at 5) color: Color transparent. 
  			buttons third
  		};"
  	window
  		addARowCentered: buttonRow;
  		addARowCentered: { (window inAColumn: {(ProjectViewMorph on: aProject) lock}) layoutInset: 4};
  		addARowCentered: {
  			window fancyText: 'Please select a folder' translated font: Preferences standardEToysFont color: textColor1
  		};
  		addARow: {
  			(
  				window inAColumn: {
  					(pane2 := window inARow: {window inAColumn: {treePane}}) 
  						useRoundedCorners;
  						layoutInset: 0;
  						borderWidth: 1;
  						borderColor: (Color r: 0.6 g: 0.7 b: 1)
  				}
  			) layoutInset: 10
  		}.
  	window fullBounds.
  	window fillWithRamp: (Color r: 1 g: 0.85 b: 0.975) oriented: 0.65.
  	pane2 fillWithRamp: (Color r: 0.85 g: 0.9 b: 1) oriented: (0.7 @ 0.35).
  "
  	buttons do: [ :each |
  		each fillWithRamp: ColorTheme current dialogButtonsRampOrColor oriented: (0.75 @ 0).
  	].
  "
  	window setProperty: #morphicLayerNumber toValue: 11.
  	aFileList postOpen.
  	window adoptPaneColor: (Color r: 0.548 g: 0.677 b: 1.0).
  	^ window !

Item was changed:
  ----- Method: TheWorldMenu>>startThenBrowseMessageTally (in category '*Tools') -----
  startThenBrowseMessageTally
  	(self confirm: 'MessageTally will start now,
  and stop when the cursor goes
  to the top of the screen')
+ 		ifTrue: [ | world |
+ 			world := Project current world.
+ 			TimeProfileBrowser
- 		ifTrue: [TimeProfileBrowser
  				onBlock: [[Sensor peekPosition y > 10]
+ 						whileTrue: [world doOneCycle]]]!
- 						whileTrue: [World doOneCycle]]]!