The Trunk: Nebraska-dtl.51.mcz

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@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.!