Tim Felgentreff uploaded a new version of Network to project The Trunk:
http://source.squeak.org/trunk/Network-tfel.185.mcz

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

Name: Network-tfel.185
Author: tfel
Time: 23 September 2016, 5:02:31.408724 pm
UUID: 8a7f87c3-69e4-e44d-9ff8-ab1737aa78ed
Ancestors: Network-tfel.184

becomeModal was deprecated

=============== Diff against Network-tfel.184 ===============

Item was changed:
  ----- Method: SuperSwikiServer>>showQueryAsPVM: (in category 'testing') -----
  showQueryAsPVM: resultStream
  	| answer gif whatToShow projectName fileName firstURL wrapper currX currY maxX maxY rawProjectName |
  "SuperSwikiServer testOnlySuperSwiki queryProjectsAndShow"
  
  	resultStream reset; nextLine.
  	answer := RectangleMorph new
  		useRoundedCorners;
  		borderWidth: 0;
  		borderColor: Color blue;
  		color: Color paleBlue.
  	currX := currY := maxX := maxY := 10.
  	[resultStream atEnd] whileFalse: [
  		rawProjectName := resultStream nextLine.
  		projectName := rawProjectName convertFromEncoding: self encodingName.
  		fileName := resultStream nextLine convertFromEncoding: self encodingName.
  		gif := self oldFileOrNoneNamed: rawProjectName,'.gif'.
  		gif ifNotNil: [gif := GIFReadWriter formFromStream: gif].
  		currX > 600 ifTrue: [
  			currX := 10.
  			currY := maxY + 10.
  		].
  		gif ifNil: [
  			gif := AlignmentMorph newColumn
  				hResizing: #shrinkWrap;
  				vResizing: #shrinkWrap;
  				borderWidth: 8;
  				borderColor: Color red;
  				color: Color lightRed;
  				addMorph: (StringMorph contents: 'No GIF for ',projectName);
  				fullBounds;
  				imageForm
  		].
  		firstURL := self url.
  		firstURL last == $/ ifFalse: [firstURL := firstURL, '/'].
  
  		whatToShow := ProjectViewMorph new
  			image: (gif asFormOfDepth: Display depth);
  			lastProjectThumbnail: gif;
  			setProperty: #SafeProjectName toValue: projectName;
  			project: (DiskProxy 
  				global: #Project 
  				selector: #namedUrl: 
  				args: {firstURL,fileName}
  			).
  
  		answer addMorphBack: (whatToShow position: currX @ currY).
  		currX := currX + whatToShow width + 10.
  		maxX := maxX max: currX.
  		maxY := maxY max: currY + whatToShow height.
  	].
  	maxX = 10 ifTrue: [
  		^self inform: 'No projects found for your criteria'
  	].
  	answer extent: (maxX @ maxY) + (0 at 10).
  	wrapper := ScrollPane new extent: (answer width + 10) @ (answer height min: 400).
  	wrapper color: Color white.
  	wrapper scroller addMorph: answer.
+ 	wrapper
- 	wrapper 
- 		becomeModal;
  		openCenteredInWorld;
  		useRoundedCorners;
  		setScrollDeltas.!