[etoys-dev] Etoys: Nebraska-kfr.2.mcz

[commits at source.squeak.org]

Karl Ramberg uploaded a new version of Nebraska to project Etoys:
http://source.squeak.org/etoys/Nebraska-kfr.2.mcz

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

Name: Nebraska-kfr.2
Author: kfr
Time: 21 October 2011, 12:09:12 am
UUID: 42217720-efce-a041-9c1b-e9e9f792cc06
Ancestors: Nebraska-bf.1

http://tracker.squeakland.org/browse/SQ-994
Spelling error

=============== Diff against Nebraska-bf.1 ===============

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.
- 			setBalloonText: 'End Nebrasks 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: [
  		^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.
  		}
  	].
  	World startSteppingSubmorphsOf: self.!