etoys-dev October 2011

etoys-dev@lists.squeakfoundation.org

18 participants
75 discussions

additionsToViewerCategories
by Derek O'Connell 25 Oct '11

25 Oct '11

Has the initialisation changed from earlier versions of etoys? None of my code from last year gets initialised properly... else a file-in problem: additionsToViewerCategories ^ #(#(#'camera: settings' #(#(#slot #cameraNumber 'Camera #' #Number #readWrite #Player #getCamNum #Player #setCamNum:) #(#slot #cameraIsOn 'Whether the camera is on/off' #Boolean #readWrite #Player #getIsOn #Player #setIsOn:) #(#slot #highResolution '640x480 or 320x240' #Boolean #readWrite #Player #getIsHighRez #Player...

2 1

Etoys Inbox: OLPC-Display-yo.4.mcz
by commits＠source.squeak.org 24 Oct '11

24 Oct '11

A new version of OLPC-Display was added to project Etoys Inbox: http://source.squeak.org/etoysinbox/OLPC-Display-yo.4.mcz ==================== Summary ==================== Name: OLPC-Display-yo.4 Author: yo Time: 24 October 2011, 2:23:40 pm UUID: 90f57f12-d88b-4a75-b6b0-09975df4f0e9 Ancestors: OLPC-Display-bf.3 When you are showing 'actual pixels', the zoom goes outside of expected area. =============== Diff against OLPC-Display-bf.3 =============== Item was changed: ----- Method: OLPCVirtualScreen>>zoomIn:orOutTo:at:vanishingPoint: (in category 'transitions') ----- zoomIn: goingIn orOutTo: otherImage at: topLeft vanishingPoint: vp "Make sure we cover the full display here" | otherDisplay otherWarp otherOffset otherScale | pendingUpdate := false. otherDisplay := Form extent: display extent depth: 32. otherDisplay fillColor: (Color gray: 0.2). + otherScale := (otherImage width / otherDisplay width + max: otherImage height / otherDisplay height) max: 1. + - otherScale := otherImage width / otherDisplay width - max: otherImage height / otherDisplay height. otherOffset := otherDisplay extent - (otherImage extent / otherScale) // 2. otherWarp := WarpBlt toForm: otherDisplay. otherWarp sourceForm: otherImage. otherWarp cellSize: 2. otherWarp combinationRule: Form over. otherWarp sourceForm: otherImage destRect: (otherOffset extent: otherImage extent // otherScale). otherWarp warpBits. display zoomIn: goingIn orOutTo: otherDisplay at: 0@0 vanishingPoint: (vp // self displayScale)+self displayOffset. !

1 0

Etoys: Etoys-kfr.95.mcz
by commits＠source.squeak.org 24 Oct '11

24 Oct '11

Karl Ramberg uploaded a new version of Etoys to project Etoys: http://source.squeak.org/etoys/Etoys-kfr.95.mcz ==================== Summary ==================== Name: Etoys-kfr.95 Author: kfr Time: 24 October 2011, 7:59:23 pm UUID: 238320d7-b378-a746-892f-c4a910ffa21d Ancestors: Etoys-bf.94 Add blur: brightness: satruation: and hue: to graphics category. Now possible to play a little with picture colors etc. =============== Diff against Etoys-bf.94 =============== Item was added: + ----- Method: Player>>blur: (in category '*Etoys-Scratch') ----- + blur: aWidth + | f fOut | + f := self getGraphic asFormOfDepth: 32. + fOut := f bits copy. + ScratchPlugin + primBlur: f bits + into: fOut + width: f width + aWidth. + f bits: fOut. + self + setGraphic: (f asFormOfDepth: 16)! Item was added: + ----- Method: Player>>brightness: (in category '*Etoys-Scratch') ----- + brightness: aNumber + | f fOut | + f := self getGraphic asFormOfDepth: 32. + fOut := f deepCopy. + ScratchPlugin + primShiftBrightness: f bits + into: fOut bits + by: aNumber. + self + setGraphic: (fOut asFormOfDepth: 16)! Item was added: + ----- Method: Player>>hue: (in category '*Etoys-Scratch') ----- + hue: aDegree + | f fOut degree | + degree := aDegree. + degree > 180 + ifTrue: [degree := -360 + degree]. + f := self getGraphic asFormOfDepth: 32. + fOut := f deepCopy. + ScratchPlugin + primShiftHue: f bits + into: fOut bits + byDegrees: degree. + self + setGraphic: (fOut asFormOfDepth: 16)! Item was added: + ----- Method: Player>>saturation: (in category '*Etoys-Scratch') ----- + saturation: aNumber + | f fOut | + f := self getGraphic asFormOfDepth: 32. + fOut := f deepCopy. + ScratchPlugin + primShiftSaturation: f bits + into: fOut bits + by: aNumber. + self + setGraphic: (fOut asFormOfDepth: 16)! Item was changed: ----- Method: SketchMorph class>>additionsToViewerCategories (in category '*eToys-scripting') ----- additionsToViewerCategories + ^ #(#(#graphics #(#(#slot #graphic 'The picture currently being worn' #Graphic #readWrite #Player #getGraphic #Player #setGraphic:) #(#command #wearCostumeOf: 'wear the costume of...' #Player) #(#slot #baseGraphic 'The picture originally painted for this object, but can subsequently be changed via menu or script' #Graphic #readWrite #Player #getBaseGraphic #Player #setBaseGraphic:) #(#command #restoreBaseGraphic 'Make my picture be the one I remember in my baseGraphic') #(#slot #rotationStyle 'How the picture should change when the heading is modified' #RotationStyle #readWrite #Player #getRotationStyle #Player #setRotationStyle:) #(#command #flipLeftRight 'Flip the picture left to right' #Player) #(#command #flipUpDown 'Flip the picture upside down' #Player) #(#command #blur: 'blur the image...' #Number) #(#command #hue: 'change color hue degree...' #Number) #(#command #brightness: 'change color brightness...' #Number) #(#command #saturation: 'change color saturation...' #Number))) )! - "Answer a list of (<categoryName> <list of category specs>) pairs that characterize the phrases this kind of morph wishes to add to various Viewer categories." - - ^ #((graphics ( - (slot graphic 'The picture currently being worn' Graphic readWrite Player getGraphic Player setGraphic:) - (command wearCostumeOf: 'wear the costume of...' Player) - (slot baseGraphic 'The picture originally painted for this object, but can subsequently be changed via menu or script' Graphic readWrite Player getBaseGraphic Player setBaseGraphic:) - (command restoreBaseGraphic 'Make my picture be the one I remember in my baseGraphic') - - (slot rotationStyle 'How the picture should change when the heading is modified' RotationStyle readWrite Player getRotationStyle Player setRotationStyle:) - (command flipLeftRight 'Flip the picture left to right' Player) - (command flipUpDown 'Flip the picture upside down' Player) - ))) - - - !

1 0

Etoys Inbox: Skeleton-Richo.10.mcz
by commits＠source.squeak.org 24 Oct '11

24 Oct '11

Ricardo Moran uploaded a new version of Skeleton to project Etoys Inbox: http://source.squeak.org/etoysinbox/Skeleton-Richo.10.mcz ==================== Summary ==================== Name: Skeleton-Richo.10 Author: Richo Time: 24 October 2011, 11:08:37 am UUID: e3289be8-dc9f-8441-ac60-6fdda345c513 Ancestors: Skeleton-Richo.9 Changed all #beep: messages to reference existing sounds. =============== Diff against Skeleton-Richo.9 =============== Item was changed: ----- Method: SkBasicSheetMorph>>acceptDroppingMorph:event: (in category 'drag and drop') ----- acceptDroppingMorph: aMorph event: evt | cellPos successed | cellPos _ self screenToCell: aMorph topLeft. (cellPos x < 1 or: [cellPos y < 1]) + ifTrue: [self beep: 'scratch'. - ifTrue: [self beep: 'arrow'. ^ aMorph rejectDropMorphEvent: evt]. successed _ false. successed _ (aMorph isKindOf: SkGridPartsMorph) ifTrue: [self acceptRuleMorph: aMorph event: evt] ifFalse: [aMorph class = PhraseTileMorph ifTrue: [self acceptPhraseTileMorph: aMorph event: evt] ifFalse: [aMorph class = TileMorph ifTrue: [self acceptTileMorph: aMorph event: evt]]]. successed + ifTrue: [self beep: 'clink'] + ifFalse: [self beep: 'scratch'. - ifTrue: [self beep: 'cassete'] - ifFalse: [self beep: 'arrow'. aMorph rejectDropMorphEvent: evt]! Item was changed: ----- Method: SkBasicSheetMorph>>goto: (in category 'navigation') ----- goto: aSkObject | grid | + self beep: 'click'. - self beep: 'rice'. grid _ aSkObject grid. self replace: grid. grid history: self. ^ grid! Item was changed: ----- Method: SkBasicSheetMorph>>previousPage (in category 'navigation') ----- previousPage + self beep: 'click'. - self beep: 'rice'. ^ history ifNotNil: [self replace: history]! Item was changed: ----- Method: SkBasicSheetMorph>>privateRemoveMorph: (in category 'private') ----- privateRemoveMorph: aMorph aMorph class = SkCardMorph + ifTrue: [self beep: 'scratch'. - ifTrue: [self beep: 'cork'. self model textAt: aMorph cellOrigin put: '']. super privateRemoveMorph: aMorph! Item was changed: ----- Method: SkBasicSheetMorph>>upPage (in category 'navigation') ----- upPage + self beep: 'click'. - self beep: 'rice'. ^ self goto: model up!

1 0

Re: [etoys-dev] Etoys Inbox: Skeleton-Richo.9.mcz
by karl ramberg 24 Oct '11

24 Oct '11

Way to go :-) Karl On Mon, Oct 24, 2011 at 3:44 PM, <commits(a)source.squeak.org> wrote: > Ricardo Moran uploaded a new version of Skeleton to project Etoys Inbox: > http://source.squeak.org/etoysinbox/Skeleton-Richo.9.mcz > > ==================== Summary ==================== > > Name: Skeleton-Richo.9 > Author: Richo > Time: 24 October 2011, 10:44:50 am > UUID: 432931e2-58a1-564e-8603-4f9baa33965f > Ancestors: Skeleton-Richo.8 > > Added CSVParser. Since I haven't received a response from Avi Bryant regarding the license of his CSV parser (probably because I don't have his current mail), I decided it would be easy to just made my own. > > =============== Diff against Skeleton-Richo.8 =============== > > Item was added: > + SystemOrganization addCategory: #'Skeleton-Base'! > + SystemOrganization addCategory: #'Skeleton-Base-Sheet'! > + SystemOrganization addCategory: #'Skeleton-CSV'! > > Item was removed: > - SystemOrganization addCategory: #'Skeleton-Base'! > - SystemOrganization addCategory: #'Skeleton-Base-Sheet'! > > Item was added: > + Object subclass: #CSVParser > + instanceVariableNames: 'stream delimiter' > + classVariableNames: '' > + poolDictionaries: '' > + category: 'Skeleton-CSV'! > > Item was added: > + ----- Method: CSVParser class>>on:delimiter: (in category 'instance creation') ----- > + on: stream delimiter: aCharacter > + ^ self basicNew initializeWith: stream delimiter: aCharacter! > > Item was added: > + ----- Method: CSVParser class>>parse: (in category 'parsing') ----- > + parse: aStream > + ^ self parse: aStream delimiter: $,! > > Item was added: > + ----- Method: CSVParser class>>parse:delimiter: (in category 'parsing') ----- > + parse: aStream delimiter: aCharacter > + ^ (self on: aStream delimiter: aCharacter) parse! > > Item was added: > + ----- Method: CSVParser class>>parseString: (in category 'parsing') ----- > + parseString: aString > + ^ self parse: aString readStream ! > > Item was added: > + ----- Method: CSVParser class>>parseString:delimiter: (in category 'parsing') ----- > + parseString: aString delimiter: aCharacter > + ^ self parse: aString readStream delimiter: aCharacter! > > Item was added: > + ----- Method: CSVParser>>initializeWith:delimiter: (in category 'initialization') ----- > + initializeWith: aStream delimiter: aCharacter > + stream := aStream. > + delimiter := aCharacter. > + self initialize! > > Item was added: > + ----- Method: CSVParser>>nextCell (in category 'parsing') ----- > + nextCell > + ^ stream peek = $" > + ifTrue: [self nextEnclosedCell] > + ifFalse: [self nextNormalCell]! > > Item was added: > + ----- Method: CSVParser>>nextEnclosedCell (in category 'parsing') ----- > + nextEnclosedCell > + ^ String streamContents: [:cell | > + stream skip: 1. > + [stream atEnd] > + whileFalse: [| next | > + next := stream next. > + next = $" > + ifTrue: [ > + stream peek ~= $" > + ifTrue: [^ cell contents] > + ifFalse: [stream skip: 1]]. > + cell nextPut: next]]! > > Item was added: > + ----- Method: CSVParser>>nextNormalCell (in category 'parsing') ----- > + nextNormalCell > + ^ String streamContents: [:cell | > + [stream atEnd] > + whileFalse: [| next | > + next := stream next. > + (next = delimiter > + or: [Character cr = next > + or: [Character lf = next]]) > + ifTrue: [stream skip: -1. > + ^ cell contents]. > + cell nextPut: next]]! > > Item was added: > + ----- Method: CSVParser>>nextRow (in category 'parsing') ----- > + nextRow > + ^ Array streamContents: [:cells | > + [stream atEnd or: [String crlf includes: stream peek]] > + whileFalse: [cells nextPut: self nextCell. > + stream peek = delimiter ifTrue: [stream skip: 1]]]! > > Item was added: > + ----- Method: CSVParser>>parse (in category 'parsing') ----- > + parse > + ^ Array streamContents: [:rows | > + [stream atEnd] > + whileFalse: [rows nextPut: self nextRow. > + [String crlf includes: stream peek] whileTrue: [stream skip: 1]]]! > > Item was changed: > ----- Method: Player>>openCSVFile:separator: (in category '*skeleton-data i/o') ----- > openCSVFile: filePath separator: separator > FileStream > readOnlyFileNamed: filePath > do: [:file || values rows columns | > + values := CSVParser parse: file delimiter: separator. > - values := (CSVParser on: file) > - useDelimiter: separator; > - rows. > rows := values size. > columns := values first size. > self setTotalRows: rows + 1; > setTotalColumns: columns + 1. > 1 to: rows do: [:r| > 1 to: columns do: [:c | > ((values at: r) at: c ifAbsent: nil) > ifNotNil: [:aString || cell | > cell := self sheet assuredCellAt: c @ r. > (aString beginsWith: '=') > ifTrue: [cell formula: aString] > ifFalse: [cell contents: aString] > ]]]].! > > _______________________________________________ > etoys-dev mailing list > etoys-dev(a)squeakland.org > http://lists.squeakland.org/mailman/listinfo/etoys-dev >

1 0

Etoys Inbox: Skeleton-Richo.9.mcz
by commits＠source.squeak.org 24 Oct '11

24 Oct '11

Ricardo Moran uploaded a new version of Skeleton to project Etoys Inbox: http://source.squeak.org/etoysinbox/Skeleton-Richo.9.mcz ==================== Summary ==================== Name: Skeleton-Richo.9 Author: Richo Time: 24 October 2011, 10:44:50 am UUID: 432931e2-58a1-564e-8603-4f9baa33965f Ancestors: Skeleton-Richo.8 Added CSVParser. Since I haven't received a response from Avi Bryant regarding the license of his CSV parser (probably because I don't have his current mail), I decided it would be easy to just made my own. =============== Diff against Skeleton-Richo.8 =============== Item was added: + SystemOrganization addCategory: #'Skeleton-Base'! + SystemOrganization addCategory: #'Skeleton-Base-Sheet'! + SystemOrganization addCategory: #'Skeleton-CSV'! Item was removed: - SystemOrganization addCategory: #'Skeleton-Base'! - SystemOrganization addCategory: #'Skeleton-Base-Sheet'! Item was added: + Object subclass: #CSVParser + instanceVariableNames: 'stream delimiter' + classVariableNames: '' + poolDictionaries: '' + category: 'Skeleton-CSV'! Item was added: + ----- Method: CSVParser class>>on:delimiter: (in category 'instance creation') ----- + on: stream delimiter: aCharacter + ^ self basicNew initializeWith: stream delimiter: aCharacter! Item was added: + ----- Method: CSVParser class>>parse: (in category 'parsing') ----- + parse: aStream + ^ self parse: aStream delimiter: $,! Item was added: + ----- Method: CSVParser class>>parse:delimiter: (in category 'parsing') ----- + parse: aStream delimiter: aCharacter + ^ (self on: aStream delimiter: aCharacter) parse! Item was added: + ----- Method: CSVParser class>>parseString: (in category 'parsing') ----- + parseString: aString + ^ self parse: aString readStream ! Item was added: + ----- Method: CSVParser class>>parseString:delimiter: (in category 'parsing') ----- + parseString: aString delimiter: aCharacter + ^ self parse: aString readStream delimiter: aCharacter! Item was added: + ----- Method: CSVParser>>initializeWith:delimiter: (in category 'initialization') ----- + initializeWith: aStream delimiter: aCharacter + stream := aStream. + delimiter := aCharacter. + self initialize! Item was added: + ----- Method: CSVParser>>nextCell (in category 'parsing') ----- + nextCell + ^ stream peek = $" + ifTrue: [self nextEnclosedCell] + ifFalse: [self nextNormalCell]! Item was added: + ----- Method: CSVParser>>nextEnclosedCell (in category 'parsing') ----- + nextEnclosedCell + ^ String streamContents: [:cell | + stream skip: 1. + [stream atEnd] + whileFalse: [| next | + next := stream next. + next = $" + ifTrue: [ + stream peek ~= $" + ifTrue: [^ cell contents] + ifFalse: [stream skip: 1]]. + cell nextPut: next]]! Item was added: + ----- Method: CSVParser>>nextNormalCell (in category 'parsing') ----- + nextNormalCell + ^ String streamContents: [:cell | + [stream atEnd] + whileFalse: [| next | + next := stream next. + (next = delimiter + or: [Character cr = next + or: [Character lf = next]]) + ifTrue: [stream skip: -1. + ^ cell contents]. + cell nextPut: next]]! Item was added: + ----- Method: CSVParser>>nextRow (in category 'parsing') ----- + nextRow + ^ Array streamContents: [:cells | + [stream atEnd or: [String crlf includes: stream peek]] + whileFalse: [cells nextPut: self nextCell. + stream peek = delimiter ifTrue: [stream skip: 1]]]! Item was added: + ----- Method: CSVParser>>parse (in category 'parsing') ----- + parse + ^ Array streamContents: [:rows | + [stream atEnd] + whileFalse: [rows nextPut: self nextRow. + [String crlf includes: stream peek] whileTrue: [stream skip: 1]]]! Item was changed: ----- Method: Player>>openCSVFile:separator: (in category '*skeleton-data i/o') ----- openCSVFile: filePath separator: separator FileStream readOnlyFileNamed: filePath do: [:file || values rows columns | + values := CSVParser parse: file delimiter: separator. - values := (CSVParser on: file) - useDelimiter: separator; - rows. rows := values size. columns := values first size. self setTotalRows: rows + 1; setTotalColumns: columns + 1. 1 to: rows do: [:r| 1 to: columns do: [:c | ((values at: r) at: c ifAbsent: nil) ifNotNil: [:aString || cell | cell := self sheet assuredCellAt: c @ r. (aString beginsWith: '=') ifTrue: [cell formula: aString] ifFalse: [cell contents: aString] ]]]].!

1 0

Etoys: Graphics-kfr.8.mcz
by commits＠source.squeak.org 23 Oct '11

23 Oct '11

Karl Ramberg uploaded a new version of Graphics to project Etoys: http://source.squeak.org/etoys/Graphics-kfr.8.mcz ==================== Summary ==================== Name: Graphics-kfr.8 Author: kfr Time: 23 October 2011, 10:01:46 pm UUID: 7b668dbc-8e13-a143-812a-0bec8b0f15c5 Ancestors: Graphics-kfr.7 Revert method to old version. Impossible to detect transparency the way I tought. =============== Diff against Graphics-kfr.7 =============== Item was changed: ----- Method: AnimatedGIFReadWriter>>allImages (in category 'accessing') ----- allImages + | body colorTable | - | body colorTable newColors | stream class == ReadWriteStream ifFalse: [ stream binary. self on: (ReadWriteStream with: (stream contentsOfEntireFile))]. + localColorTable := nil. + forms := OrderedCollection new. + delays := OrderedCollection new. + comments := OrderedCollection new. - localColorTable _ nil. - forms _ OrderedCollection new. - delays _ OrderedCollection new. - comments _ OrderedCollection new. self readHeader. [(body _ self readBody) == nil] + whileFalse: [colorTable := localColorTable - whileFalse: [colorTable _ localColorTable ifNil: [colorPalette]. transparentIndex ifNotNil: [transparentIndex + 1 > colorTable size ifTrue: [colorTable := colorTable forceTo: transparentIndex + 1 paddingWith: Color white]. colorTable at: transparentIndex + 1 put: Color transparent]. + body colors: colorTable. - newColors := Array new: (1 bitShift: body depth). - 1 to: newColors size do: [:i | - i <= colorTable size - ifTrue: [newColors at: i put: (colorTable at: i)] - ifFalse: [newColors at: i put: Color black]]. - body colors: newColors. forms add: body. delays add: delay]. ^ forms!

1 0

Etoys: MorphicExtras-kfr.55.mcz
by commits＠source.squeak.org 23 Oct '11

23 Oct '11

Karl Ramberg uploaded a new version of MorphicExtras to project Etoys: http://source.squeak.org/etoys/MorphicExtras-kfr.55.mcz ==================== Summary ==================== Name: MorphicExtras-kfr.55 Author: kfr Time: 23 October 2011, 9:55:36 pm UUID: eca49f08-002a-9e48-bc5a-ed2ff03efa56 Ancestors: MorphicExtras-kfr.54 make animated gifs display opaque as default =============== Diff against MorphicExtras-kfr.54 =============== Item was changed: ----- Method: AnimatedImageMorph>>fromReader: (in category 'private') ----- + fromReader: reader + images := reader forms. + delays := reader delays. + imageIndex := 0. + self + image: (Form extent: images first extent depth: 32). + self isOpaque: true. - fromReader: reader - images _ reader forms. - delays _ reader delays. - imageIndex _ 0. - self image: (Form extent: images first extent depth: 32). self step! Item was changed: ----- Method: AnimatedImageMorph>>steppingString (in category 'stepping and presenter') ----- steppingString ^ (stepper ifTrue: ['<on>'] + ifFalse: ['<off>']), 'stepping' translated! - ifFalse: ['<off>']), 'Stepping' translated!

1 0

Etoys: Graphics-kfr.7.mcz
by commits＠source.squeak.org 22 Oct '11

22 Oct '11

Karl Ramberg uploaded a new version of Graphics to project Etoys: http://source.squeak.org/etoys/Graphics-kfr.7.mcz ==================== Summary ==================== Name: Graphics-kfr.7 Author: kfr Time: 22 October 2011, 7:20:39 pm UUID: 68b48ff9-4c05-ba4a-98ec-a726df9f0a1f Ancestors: Graphics-bf.6 Do color palette padding with Color Black instead of color transparent. Maybe we can catch if the gif should be diplayed opaque... =============== Diff against Graphics-bf.6 =============== Item was changed: ----- Method: AnimatedGIFReadWriter>>allImages (in category 'accessing') ----- allImages + | body colorTable newColors | - | body colorTable | stream class == ReadWriteStream ifFalse: [ stream binary. self on: (ReadWriteStream with: (stream contentsOfEntireFile))]. localColorTable _ nil. forms _ OrderedCollection new. delays _ OrderedCollection new. comments _ OrderedCollection new. self readHeader. [(body _ self readBody) == nil] whileFalse: [colorTable _ localColorTable ifNil: [colorPalette]. transparentIndex ifNotNil: [transparentIndex + 1 > colorTable size + ifTrue: [colorTable := colorTable forceTo: transparentIndex + 1 paddingWith: Color white]. - ifTrue: [colorTable _ colorTable forceTo: transparentIndex + 1 paddingWith: Color white]. colorTable at: transparentIndex + 1 put: Color transparent]. + newColors := Array new: (1 bitShift: body depth). + 1 to: newColors size do: [:i | + i <= colorTable size + ifTrue: [newColors at: i put: (colorTable at: i)] + ifFalse: [newColors at: i put: Color black]]. + body colors: newColors. - body colors: colorTable. forms add: body. delays add: delay]. ^ forms!

1 0

Etoys: Nebraska-kfr.2.mcz
by commits＠source.squeak.org 21 Oct '11

21 Oct '11

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

1 0

2024

2023

2022

2021

2020

2019

2018

2017

2016

2015

2014

2013

2012

2011

2010

2009

2008

2007

2006

etoys-dev October 2011