[squeak-dev] The Trunk: Nebraska-dtl.51.mcz

commits at source.squeak.org commits at source.squeak.org
Sat Nov 18 03:44:55 UTC 2017


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

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

Name: Nebraska-dtl.51
Author: dtl
Time: 17 November 2017, 10:44:49.951395 pm
UUID: 4651ce87-b891-435a-819d-2cdda41f60dd
Ancestors: Nebraska-tpr.50

Remove unnecessary reference to global World.

=============== Diff against Nebraska-tpr.50 ===============

Item was changed:
  ----- Method: NebraskaServerMorph>>rebuild (in category 'initialization') -----
  rebuild
  
  	| myServer toggle closeBox font |
  
  	font := StrikeFont familyName: #Palatino size: 14.
  	self removeAllMorphs.
  	self setColorsAndBorder.
  	self updateCurrentStatusString.
  	toggle := SimpleHierarchicalListMorph new perform: (
  		fullDisplay ifTrue: [#expandedForm] ifFalse: [#notExpandedForm]
  	).
  	closeBox := SimpleButtonMorph new borderWidth: 0;
  			label: 'X' font: Preferences standardEToysButtonFont; color: Color transparent;
  			actionSelector: #delete; target: self; extent: 14 at 14;
  			setBalloonText: 'End Nebraska session' translated.
  
  	self addARow: {
  		self inAColumn: {closeBox}.
  		self inAColumn: {
  			UpdatingStringMorph new
  				useStringFormat;
  				target:  self;
  				font: font;
  				getSelector: #currentStatusString;
  				contents: self currentStatusString;
  				stepTime: 2000;
  				lock.
  		}.
  		self inAColumn: {
  			toggle asMorph
  				on: #mouseUp send: #toggleFull to: self;
  				setBalloonText: 'Show more or less of Nebraska Status' translated
  		}.
  	}.
  	myServer := self server.
  	(myServer isNil or: [fullDisplay not]) ifTrue: [
+ 		^self world startSteppingSubmorphsOf: self
- 		^World startSteppingSubmorphsOf: self
  	].
  	"--- the expanded display ---"
  	self addARow: {
  		self inAColumn: {
  			UpdatingStringMorph new
  				useStringFormat;
  				target:  self;
  				font: font;
  				getSelector: #currentBacklogString;
  				contents: self currentBacklogString;
  				stepTime: 2000;
  				lock.
  		}.
  	}.
  
  	self addARow: {
  		self inAColumn: {
  			(StringMorph contents: '--clients--' translated) lock; font: font.
  		}.
  	}.
  
  	myServer clients do: [ :each |
  		self addARow: {
  			UpdatingStringMorph new
  				useStringFormat;
  				target: each;
  				font: font;
  				getSelector: #currentStatusString;
  				contents: each currentStatusString;
  				stepTime: 2000;
  				lock.
  		}
  	].
+ 	self world startSteppingSubmorphsOf: self.!
- 	World startSteppingSubmorphsOf: self.!



More information about the Squeak-dev mailing list