Etoys: Nebraska-kfr.2.mcz

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

_______________________________________________
etoys-dev mailing list
[hidden email]
http://lists.squeakland.org/mailman/listinfo/etoys-dev