Squeak-dev December 2013

squeak-dev@lists.squeakfoundation.org

45 participants
325 discussions

Re: [squeak-dev] The Trunk: SmallLand-ColorTheme-nice.4.mcz
by Nicolas Cellier 25 Dec '13

25 Dec '13

Ah, I should have removed asString... 2013/12/25 <commits(a)source.squeak.org> > Nicolas Cellier uploaded a new version of SmallLand-ColorTheme to project > The Trunk: > http://source.squeak.org/trunk/SmallLand-ColorTheme-nice.4.mcz > > ==================== Summary ==================== > > Name: SmallLand-ColorTheme-nice.4 > Author: nice > Time: 25 December 2013, 11:23:59.635 pm > UUID: 77bff137-008b-4390-a5cb-1f284354de48 > Ancestors: SmallLand-ColorTheme-fbs.3 > > Change a few print:(aFloat roundTo: 0.01) into nextPutAll:(aFloat > printShowingMaxDecimalPlaces: 2) > > =============== Diff against SmallLand-ColorTheme-fbs.3 =============== > > Item was changed: > ----- Method: SmallLandColorTheme>>labelForColor: (in category 'private > - colors') ----- > labelForColor: aColor > + ^ (aColor red printShowingMaxDecimalPlaces: 2) asString , ' ' , > (aColor green printShowingMaxDecimalPlaces: 2) asString , ' ' , (aColor > blue printShowingMaxDecimalPlaces: 2) asString! > - ^ (aColor red roundTo: 0.01) asString , ' ' , (aColor green > roundTo: 0.01) asString , ' ' , (aColor blue roundTo: 0.01) asString! > > >

1 0

The Trunk: Sound-nice.38.mcz
by commits＠source.squeak.org 25 Dec '13

25 Dec '13

Nicolas Cellier uploaded a new version of Sound to project The Trunk: http://source.squeak.org/trunk/Sound-nice.38.mcz ==================== Summary ==================== Name: Sound-nice.38 Author: nice Time: 25 December 2013, 11:27:25.908 pm UUID: b626daf0-be23-4fb8-b2d5-04b9cd370539 Ancestors: Sound-fbs.37 Change a few print:(aFloat roundTo: 0.01) into nextPutAll:(aFloat printShowingMaxDecimalPlaces: 2) =============== Diff against Sound-fbs.37 =============== Item was changed: ----- Method: FWT>>viewPhiAndPsi (in category 'testing') ----- viewPhiAndPsi "(FWT new nSamples: 256 nLevels: 6) viewPhiAndPsi" "View the scaling function and mother wavelets for this transform" | p | Display fillWhite: (0@0 extent: 300@300). Display border: (0@0 extent: 300@300) width: 2. [Sensor anyButtonPressed] whileFalse: ["Move mouse around in the outer rectangle to explore" p := Sensor cursorPoint min: 300@300. self setAlpha: (p x - 150) / 150.0 * Float pi beta: (p y - 150) / 150.0 * Float pi. + 'alpha=', (alpha printShowingMaxDecimalPlaces: 2), ' ', + 'beta=', (beta printShowingMaxDecimalPlaces: 2), ' ' displayAt: 50@5. - 'alpha=', (alpha roundTo: 0.01) printString, ' ', - 'beta=', (beta roundTo: 0.01) printString, ' ' displayAt: 50@5. transform do: [:w | w atAllPut: 0.0]. (transform at: transform size - 1) at: (nSamples>>nLevels) put: 1.0. self transformForward: false. FFT new plot: (samples copyFrom: 1 to: nSamples) in: (20@30 extent: nSamples@100). transform do: [:w | w atAllPut: 0.0]. (transform at: transform size) at: (nSamples>>nLevels) put: 1.0. self transformForward: false. FFT new plot: (samples copyFrom: 1 to: nSamples) in: (20@170 extent: nSamples@100)]. Sensor waitNoButton! Item was changed: ----- Method: SoundRecorder>>segmentsAbove:normalizedVolume: (in category 'trimming') ----- segmentsAbove: threshold normalizedVolume: percentOfMaxVolume "Break the current recording up into a sequence of sound segments separated by silences." | dcOffset firstPlace endPlace resultBuf nFactor lastPlace segments gapSize minDur minLull soundSize restSize max min sum totalSamples | stereo ifTrue: [self error: 'stereo trimming is not yet supported']. paused ifFalse: [self error: 'must stop recording before trimming']. (recordedSound == nil or: [recordedSound sounds isEmpty]) ifTrue:[^ self]. "Reconstruct buffers so old trimming code will work" recordedBuffers := recordedSound sounds collect: [:snd | snd samples]. soundSize := restSize := 0. max := min := sum := totalSamples := 0. recordedBuffers do: [:buf | | bufSize s | bufSize := buf size. totalSamples := totalSamples + buf size. 1 to: bufSize do: [:i | s := buf at: i. s > max ifTrue: [max := s]. s < min ifTrue: [min := s]. sum := sum + s]]. dcOffset := sum // totalSamples. minDur := (samplingRate/20.0) asInteger. " 1/20 second " minLull := (samplingRate/4.0) asInteger. " 1/2 second " segments := SequentialSound new. endPlace := self endPlace. lastPlace := #(1 1). [firstPlace := self scanForStartThreshold: threshold dcOffset: dcOffset minDur: minDur startingAt: lastPlace. firstPlace = endPlace] whileFalse: [firstPlace = lastPlace ifFalse: ["Add a silence equal to the gap size" "Wasteful but simple way to get gap size..." gapSize := (self copyFrom: lastPlace to: firstPlace normalize: 1000 dcOffset: dcOffset) size - 2. "... -2 makes up for overlap of one sample on either end" segments add: (RestSound dur: gapSize asFloat / samplingRate). restSize := restSize + gapSize. "Transcript cr; print: firstPlace; space; print: lastPlace; space; print: gapSize; space; show: 'gap'." ]. lastPlace := self scanForEndThreshold: threshold dcOffset: dcOffset minLull: minLull + minDur startingAt: firstPlace. "Allow room for lead time of next sound" lastPlace := self place: lastPlace plus: minDur negated. nFactor := self normalizeFactorFor: percentOfMaxVolume min: min max: max dcOffset: dcOffset. resultBuf := self copyFrom: firstPlace to: lastPlace normalize: nFactor dcOffset: dcOffset. soundSize := soundSize + resultBuf size. "Transcript cr; print: firstPlace; space; print: lastPlace; space; print: resultBuf size; space; show: 'sound'." segments add: (codec == nil ifTrue: [SampledSound new setSamples: resultBuf samplingRate: samplingRate] ifFalse: [codec compressSound: (SampledSound new setSamples: resultBuf samplingRate: samplingRate)])]. "Final gap for consistency" gapSize := (self copyFrom: lastPlace to: self endPlace normalize: 1000 dcOffset: dcOffset) size - 1. segments add: (RestSound dur: gapSize asFloat / samplingRate). restSize := restSize + gapSize. + self inform: (soundSize+restSize/samplingRate printShowingMaxDecimalPlaces: 1) , ' secs reduced to ' , (soundSize/samplingRate printShowingMaxDecimalPlaces: 1). - self inform: ((soundSize+restSize/samplingRate) roundTo: 0.1) printString , ' secs reduced to ' , ((soundSize/samplingRate) roundTo: 0.1) printString. recordedBuffers := nil. ^ segments! Item was changed: ----- Method: TempoEvent>>printOn: (in category 'as yet unclassified') ----- printOn: aStream aStream nextPut: $(. time printOn: aStream. aStream nextPutAll: ': tempo '. + aStream nextPutAll: (120.0 * (500000.0 / tempo) printShowingMaxDecimalPlaces: 2). - ((120.0 * (500000.0 / tempo)) roundTo: 0.01) printOn: aStream. aStream nextPut: $). !

1 0

The Trunk: SmallLand-ColorTheme-nice.4.mcz
by commits＠source.squeak.org 25 Dec '13

25 Dec '13

Nicolas Cellier uploaded a new version of SmallLand-ColorTheme to project The Trunk: http://source.squeak.org/trunk/SmallLand-ColorTheme-nice.4.mcz ==================== Summary ==================== Name: SmallLand-ColorTheme-nice.4 Author: nice Time: 25 December 2013, 11:23:59.635 pm UUID: 77bff137-008b-4390-a5cb-1f284354de48 Ancestors: SmallLand-ColorTheme-fbs.3 Change a few print:(aFloat roundTo: 0.01) into nextPutAll:(aFloat printShowingMaxDecimalPlaces: 2) =============== Diff against SmallLand-ColorTheme-fbs.3 =============== Item was changed: ----- Method: SmallLandColorTheme>>labelForColor: (in category 'private - colors') ----- labelForColor: aColor + ^ (aColor red printShowingMaxDecimalPlaces: 2) asString , ' ' , (aColor green printShowingMaxDecimalPlaces: 2) asString , ' ' , (aColor blue printShowingMaxDecimalPlaces: 2) asString! - ^ (aColor red roundTo: 0.01) asString , ' ' , (aColor green roundTo: 0.01) asString , ' ' , (aColor blue roundTo: 0.01) asString!

1 0

The Trunk: Network-nice.150.mcz
by commits＠source.squeak.org 25 Dec '13

25 Dec '13

Nicolas Cellier uploaded a new version of Network to project The Trunk: http://source.squeak.org/trunk/Network-nice.150.mcz ==================== Summary ==================== Name: Network-nice.150 Author: nice Time: 25 December 2013, 11:22:19.983 pm UUID: c844e5ea-c919-44fc-905e-69487b035947 Ancestors: Network-nice.149 Change a few print:(aFloat roundTo: 0.01) into nextPutAll:(aFloat printShowingMaxDecimalPlaces: 2) =============== Diff against Network-nice.149 =============== Item was changed: ----- Method: Socket class>>loopbackTest (in category 'tests') ----- loopbackTest "Send data from one socket to another on the local machine. Tests most of the socket primitives." "100 timesRepeat: [Socket loopbackTest]" | sock1 sock2 bytesToSend sendBuf receiveBuf done bytesSent bytesReceived t extraBytes packetsSent packetsRead | Transcript cr; show: 'starting loopback test'; cr. Transcript show: '---------- Connecting ----------'; cr. self initializeNetwork. sock1 := self new. sock2 := self new. sock1 listenOn: 54321. sock2 connectTo: NetNameResolver localHostAddress port: 54321. sock1 waitForConnectionFor: self standardTimeout. sock2 waitForConnectionFor: self standardTimeout. sock1 isConnected ifFalse: [self error: 'sock1 not connected']. sock2 isConnected ifFalse: [self error: 'sock2 not connected']. Transcript show: 'connection established'; cr. bytesToSend := 5000000. sendBuf := String new: 5000 withAll: $x. receiveBuf := String new: 50000. done := false. packetsSent := packetsRead := bytesSent := bytesReceived := 0. t := Time millisecondsToRun: [[done] whileFalse: [(sock1 sendDone and: [bytesSent < bytesToSend]) ifTrue: [packetsSent := packetsSent + 1. bytesSent := bytesSent + (sock1 sendSomeData: sendBuf)]. sock2 dataAvailable ifTrue: [packetsRead := packetsRead + 1. bytesReceived := bytesReceived + (sock2 receiveDataInto: receiveBuf)]. done := bytesSent >= bytesToSend and: [bytesReceived = bytesSent]]]. Transcript show: 'closing connection'; cr. sock1 waitForSendDoneFor: self standardTimeout. sock1 close. sock2 waitForDisconnectionFor: self standardTimeout. extraBytes := sock2 discardReceivedData. extraBytes > 0 ifTrue: [Transcript show: ' *** received ' , extraBytes size printString , ' extra bytes ***'; cr]. sock2 close. sock1 waitForDisconnectionFor: self standardTimeout. sock1 isUnconnectedOrInvalid ifFalse: [self error: 'sock1 not closed']. sock2 isUnconnectedOrInvalid ifFalse: [self error: 'sock2 not closed']. Transcript show: '---------- Connection Closed ----------'; cr. sock1 destroy. sock2 destroy. Transcript show: 'loopback test done; time = ' , t printString; cr. Transcript + show: (bytesToSend asFloat / t printShowingMaxDecimalPlaces: 2), '* 1000 bytes/sec'; - show: (bytesToSend asFloat / t roundTo: 0.01) printString - , '* 1000 bytes/sec'; cr. Transcript endEntry! Item was changed: ----- Method: Socket class>>sendTest (in category 'tests') ----- sendTest "Send data to the 'discard' socket of the given host. Tests the speed of one-way data transfers across the network to the given host. Note that most hosts do not run a discard server." "Socket sendTest" | sock bytesToSend sendBuf bytesSent t serverName serverAddr | Transcript cr; show: 'starting send test'; cr. self initializeNetwork. serverName := UIManager default request: 'What is the destination server?' initialAnswer: 'create.ucsb.edu'. serverAddr := NetNameResolver addressForName: serverName timeout: 10. serverAddr = nil ifTrue: [^self inform: 'Could not find an address for ' , serverName]. sock := self new. Transcript show: '---------- Connecting ----------';cr. sock connectTo: serverAddr port: 9. sock isConnected ifFalse: [ sock destroy. ^self inform: 'could not connect']. Transcript show: 'connection established; sending data'; cr. bytesToSend := 1000000. sendBuf := String new: 64 * 1024 withAll: $x. bytesSent := 0. t := Time millisecondsToRun: [[bytesSent < bytesToSend] whileTrue: [sock sendDone ifTrue: [bytesSent := bytesSent + (sock sendSomeData: sendBuf)]]]. sock waitForSendDoneFor: self standardTimeout. sock destroy. Transcript show: '---------- Connection Closed ----------'; cr; show: 'send test done; time = ' , t printString; cr; + show: (bytesToSend asFloat / t printShowingMaxDecimalPlaces: 2), ' * 1000 bytes/sec';cr;endEntry! - show: (bytesToSend asFloat / t roundTo: 0.01) printString, ' * 1000 bytes/sec';cr;endEntry!

1 0

The Trunk: Nebraska-nice.36.mcz
by commits＠source.squeak.org 25 Dec '13

25 Dec '13

Nicolas Cellier uploaded a new version of Nebraska to project The Trunk: http://source.squeak.org/trunk/Nebraska-nice.36.mcz ==================== Summary ==================== Name: Nebraska-nice.36 Author: nice Time: 25 December 2013, 11:20:43.521 pm UUID: cc80dca4-ed72-4c39-952c-3b37886100de Ancestors: Nebraska-ul.35 Change a few print:(aFloat roundTo: 0.01) into nextPutAll:(aFloat printShowingMaxDecimalPlaces: 2) =============== Diff against Nebraska-ul.35 =============== Item was changed: ----- Method: CanvasEncoder class>>explainTestVars (in category 'as yet unclassified') ----- explainTestVars " CanvasEncoder explainTestVars " | answer oneBillion total | SimpleCounters ifNil: [^ Beeper beep]. total := 0. oneBillion := 1000 * 1000 * 1000. answer := String streamContents: [ :strm | | data putter | data := SimpleCounters copy. putter := [ :msg :index :nSec | | nReps | nReps := data at: index. total := total + (nSec * nReps). strm nextPutAll: nReps asStringWithCommas,' * ',nSec printString,' ', + (nSec * nReps / oneBillion printShowingMaxDecimalPlaces: 2),' secs for ',msg; cr - (nSec * nReps / oneBillion roundTo: 0.01) printString,' secs for ',msg; cr ]. putter value: 'string socket' value: 1 value: 8000. putter value: 'rectangles' value: 2 value: 40000. putter value: 'points' value: 3 value: 18000. putter value: 'colors' value: 4 value: 8000. ]. StringHolder new contents: answer; openLabel: 'put integer times'. ! Item was changed: ----- Method: CanvasEncoder class>>timeSomeThings (in category 'as yet unclassified') ----- timeSomeThings " CanvasEncoder timeSomeThings " | answer array color iter | iter := 1000000. array := Array new: 4. color := Color red. answer := String streamContents: [ :strm | | bm rect writer pt s | writer := [ :msg :doer | | ms | ms := [iter timesRepeat: doer] timeToRun. + strm nextPutAll: msg,((ms * 1000 / iter) printShowingMaxDecimalPlaces: 2),' usec'; cr. - strm nextPutAll: msg,((ms * 1000 / iter) roundTo: 0.01) printString,' usec'; cr. ]. s := String new: 4. bm := Bitmap new: 20. pt := 100@300. rect := pt extent: pt. iter := 1000000. writer value: 'empty loop ' value: [self]. writer value: 'modulo ' value: [12345678 \\ 256]. writer value: 'bitAnd: ' value: [12345678 bitAnd: 255]. strm cr. iter := 100000. writer value: 'putInteger ' value: [s putInteger32: 12345678 at: 1]. writer value: 'bitmap put ' value: [bm at: 1 put: 12345678]. writer value: 'encodeBytesOf: (big) ' value: [bm encodeInt: 12345678 in: bm at: 1]. writer value: 'encodeBytesOf: (small) ' value: [bm encodeInt: 5000 in: bm at: 1]. writer value: 'array at: (in) ' value: [array at: 1]. writer value: 'array at: (out) ' value: [array at: 6 ifAbsent: []]. strm cr. iter := 10000. writer value: 'color encode ' value: [color encodeForRemoteCanvas]. writer value: 'pt encode ' value: [pt encodeForRemoteCanvas]. writer value: 'rect encode ' value: [self encodeRectangle: rect]. writer value: 'rect encode2 ' value: [rect encodeForRemoteCanvas]. writer value: 'rect encodeb ' value: [rect encodeForRemoteCanvasB]. ]. StringHolder new contents: answer; openLabel: 'send/receive stats'. !

1 0

The Trunk: MorphicExtras-nice.145.mcz
by commits＠source.squeak.org 25 Dec '13

25 Dec '13

Nicolas Cellier uploaded a new version of MorphicExtras to project The Trunk: http://source.squeak.org/trunk/MorphicExtras-nice.145.mcz ==================== Summary ==================== Name: MorphicExtras-nice.145 Author: nice Time: 25 December 2013, 11:12:48.502 pm UUID: 8fd3a7be-e242-422e-974a-065a92ac27e8 Ancestors: MorphicExtras-nice.144 Change a few print:(aFloat roundTo: 0.01) into nextPutAll:(aFloat printShowingMaxDecimalPlaces: 2) =============== Diff against MorphicExtras-nice.144 =============== Item was changed: ----- Method: PaintBoxMorph>>eyedropper:action:cursor:evt: (in category 'actions') ----- eyedropper: aButton action: aSelector cursor: aCursor evt: evt "Take total control and pick up a color!!!!" | pt feedbackColor delay | delay := Delay forMilliseconds: 10. aButton state: #on. tool ifNotNil: [tool state: #off]. currentCursor := aCursor. evt hand showTemporaryCursor: currentCursor hotSpotOffset: 6 negated @ 4 negated. "<<<< the form was changed a bit??" feedbackColor := Display colorAt: Sensor cursorPoint. colorMemory align: colorMemory bounds topRight with: colorMemoryThin bounds topRight. self addMorphFront: colorMemory. "Full color picker" [Sensor anyButtonPressed] whileFalse: [pt := Sensor cursorPoint. "deal with the fact that 32 bit displays may have garbage in the alpha bits" feedbackColor := Display depth = 32 ifTrue: + [Color colorFromPixelValue: ((Display pixelValueAt: pt) bitOr: 16rFF000000) - [Color colorFromPixelValue: ((Display pixelValueAt: pt) bitOr: 4278190080) depth: 32] ifFalse: [Display colorAt: pt]. "the hand needs to be drawn" evt hand position: pt. currentColor ~= feedbackColor ifTrue: [ currentColor := feedbackColor. self showColor ]. self world displayWorldSafely. delay wait]. "Now wait for the button to be released." [Sensor anyButtonPressed] whileTrue: [ pt := Sensor cursorPoint. "the hand needs to be drawn" evt hand position: pt. self world displayWorldSafely. delay wait]. evt hand showTemporaryCursor: nil hotSpotOffset: 0 @ 0. self currentColor: feedbackColor evt: evt. colorMemory delete. tool ifNotNil: [tool state: #on. currentCursor := tool arguments third]. aButton state: #off ! Item was changed: ----- Method: SoundEventMorph>>sound: (in category 'as yet unclassified') ----- sound: aSound sound := aSound. + self setBalloonText: 'a sound of duration ',(sound duration printShowingMaxDecimalPlaces: 1),' seconds'.! - self setBalloonText: 'a sound of duration ',(sound duration roundTo: 0.1) printString,' seconds'.! Item was changed: ----- Method: ZASMCameraMarkMorph>>cameraPoint:cameraScale:controller: (in category 'as yet unclassified') ----- cameraPoint: aPoint cameraScale: aNumber controller: aController self setProperty: #cameraPoint toValue: aPoint. self setProperty: #cameraScale toValue: aNumber. self setProperty: #cameraController toValue: aController. self addMorph: ( + StringMorph contents: aPoint printString,' ',(aNumber printShowingMaxDecimalPlaces: 3) - StringMorph contents: aPoint printString,' ',(aNumber roundTo: 0.001) printString ) lock.! Item was changed: ----- Method: ZASMCameraMarkMorph>>cameraPoint:cameraScale:controller:page: (in category 'as yet unclassified') ----- cameraPoint: aPoint cameraScale: aNumber controller: aController page: aBookPage self setProperty: #cameraPoint toValue: aPoint. self setProperty: #cameraScale toValue: aNumber. self setProperty: #cameraController toValue: aController. self setProperty: #bookPage toValue: aBookPage. self addMorphBack: (ImageMorph new image: (aBookPage imageForm scaledToSize: 80@80)) lock. + self setBalloonText: aPoint rounded printString,' ',(aNumber printShowingMaxDecimalPlaces: 3)! - self setBalloonText: aPoint rounded printString,' ',(aNumber roundTo: 0.001) printString!

1 0

The Trunk: Morphic-nice.709.mcz
by commits＠source.squeak.org 25 Dec '13

25 Dec '13

Nicolas Cellier uploaded a new version of Morphic to project The Trunk: http://source.squeak.org/trunk/Morphic-nice.709.mcz ==================== Summary ==================== Name: Morphic-nice.709 Author: nice Time: 25 December 2013, 11:08:36.566 pm UUID: a607fae8-080e-4206-b6de-dc8b518856df Ancestors: Morphic-nice.708 Change a few print:(aFloat roundTo: 0.01) into nextPutAll:(aFloat printShowingMaxDecimalPlaces: 2) =============== Diff against Morphic-nice.708 =============== Item was changed: ----- Method: JoystickMorph>>setXRange (in category 'menu') ----- setXRange | range | range := UIManager default request: 'Type the maximum value for the X axis' translated + initialAnswer: ((xScale * (self width - handleMorph width) / 2.0) printShowingMaxDecimalPlaces: 2). - initialAnswer: ((xScale * (self width - handleMorph width) / 2.0) roundTo: 0.01) printString. range isEmpty ifFalse: [ xScale := (2.0 * range asNumber asFloat) / (self width - handleMorph width)]. ! Item was changed: ----- Method: JoystickMorph>>setYRange (in category 'menu') ----- setYRange | range | range := UIManager default request: 'Type the maximum value for the Y axis' translated + initialAnswer: ((yScale * (self width - handleMorph width) / 2.0) printShowingMaxDecimalPlaces: 2). - initialAnswer: ((yScale * (self width - handleMorph width) / 2.0) roundTo: 0.01) printString. range isEmpty ifFalse: [ yScale := (2.0 * range asNumber asFloat) / (self width - handleMorph width)]. !

1 0

The Trunk: GetText-nice.34.mcz
by commits＠source.squeak.org 25 Dec '13

25 Dec '13

Nicolas Cellier uploaded a new version of GetText to project The Trunk: http://source.squeak.org/trunk/GetText-nice.34.mcz ==================== Summary ==================== Name: GetText-nice.34 Author: nice Time: 25 December 2013, 11:02:39.404 pm UUID: 4d432f8e-55be-428a-9138-63dd1738035e Ancestors: GetText-fbs.33 Change a few print:(aFloat roundTo: 0.01) into nextPutAll:(aFloat printShowingMaxDecimalPlaces: 2) =============== Diff against GetText-fbs.33 =============== Item was changed: ----- Method: LanguageEditor>>check (in category 'private') ----- check "check the translations and answer a collection with the results" | results counter phrasesCount checkMethod | results := OrderedCollection new. untranslated := self untranslated. phrasesCount := self translations size + self untranslated size. counter := 0. checkMethod := self class checkMethods at: self translator localeID printString ifAbsent: [^results]. self translations keysAndValuesDo: [:phrase :translation | | result | result := self perform: checkMethod with: phrase with: translation. (result notNil and: [result notEmpty]) ifTrue: [results add: {phrase. translation. result}]. counter := counter + 1. (counter isDivisibleBy: 50) ifTrue: [| percent | + percent := counter / phrasesCount * 100 printShowingMaxDecimalPlaces: 2. - percent := counter / phrasesCount * 100 roundTo: 0.01. Transcript show: ('- checked {1} phrases of {2} ({3}%)...' translated format: {counter. phrasesCount. percent}); cr]]. self untranslated do: [:phrase | | result | result := self checkUntranslatedPhrase: phrase. (result notNil and: [result notEmpty]) ifTrue: [results add: {phrase. nil. result}]. counter := counter + 1. (counter isDivisibleBy: 50) ifTrue: [| percent | + percent := counter / phrasesCount * 100 printShowingMaxDecimalPlaces: 2. - percent := counter / phrasesCount * 100 roundTo: 0.01. Transcript show: ('- checked {1} phrases of {2} ({3}%)...' translated format: {counter. phrasesCount. percent}); cr]]. ^ results!

1 0

The Trunk: Balloon-nice.24.mcz
by commits＠source.squeak.org 25 Dec '13

25 Dec '13

Nicolas Cellier uploaded a new version of Balloon to project The Trunk: http://source.squeak.org/trunk/Balloon-nice.24.mcz ==================== Summary ==================== Name: Balloon-nice.24 Author: nice Time: 25 December 2013, 10:35:43.947 pm UUID: 97e2ed51-707d-4da1-ab4f-35add3deee5e Ancestors: Balloon-eem.23 Change a few print:(aFloat roundTo: 0.01) into nextPutAll:(aFloat printShowingMaxDecimalPlaces: 2) or print:aFloat maxDecimalPlaces:2 Indeed, decimal fraction (1/10) (1/100) ... are not represented exactly as Float. (1/10 - 0.1 asTrueFraction) asFloat -> -5.551115123125783e-18 So roundTo: 0.01 is an approximation which cumulates several round off errors and differs from intention (roundTo:1/100) asFloat. Now that we print number accurately (*), this small difference causes unwanted trailing digits. Examples: 0.3 printString-> '0.3' (3*0.1) printString-> '0.30000000000000004' (0.3 roundTo: 0.1) printString -> '0.30000000000000004' * accurately = the shorter decimal fraction that would be re-interpreted unchanged =============== Diff against Balloon-eem.23 =============== Item was changed: ----- Method: BalloonEngine class>>printStat:count:string: (in category 'accessing') ----- printStat: time count: n string: aString Transcript cr; print: time; tab; nextPutAll:' mSecs -- '; print: n; tab; nextPutAll:' ops -- '; + nextPutAll: ((time asFloat / (n max: 1) asFloat) printShowingMaxDecimalPlaces: 2); tab; - print: ((time asFloat / (n max: 1) asFloat) roundTo: 0.01); tab; nextPutAll: ' avg. mSecs/op -- '; nextPutAll: aString.!

1 0

4.5 -- how should we proceed then?
by Chris Muller 25 Dec '13

25 Dec '13

It's fascinating how my compadres whom I've known on-line for so long would stretch their logic so thin just to pile-on Chris. I'm kind of stunned. I'm just trying to get 4.5 ready and asking for help with Environments because that's what's been holding up the release. I have little interest in Environments myself, but after no progress for the last two months, I figure for the sake of the release I'll work to fix it up myself. This VERY FIRST tiny little refactoring improvement simply to help me read and understand the code, and bring it to consistent standard and quality with the rest of the image, is met with confused resistance from Frank. He _totally_ misunderstood and misstated what was being done (he thought it was set:, set:, set:, which is wrong). Suddenly, Colin is alive and jumps in with "Frank is right" and confirms his own mutual mis-understanding. After banging my head on the wall for 3 days showing why Frank was NOT right, now Levente piles on. Do you all understand you're actually fighting to _defactor_ the code? My god who are you poeple?! I thought we had settled this issue about #new and #initailize YEARS ago! Let's see, yep. Behavior>>#new: "Noury Bouraqadi 8/23/2003 14:51 · instance creation · 93 implementors · in no change set · " But hey, if you guys want to lurch back to 2002 and your code repeat itself over and over again with ^self basicNew initializeWith... or ^self basicNew initialize in every constructor, go right ahead. There's nothing like "standards" especially when there are so many to choose from, huh? I just want to make progress on 4.5. Am I the only one? Now I feel handcuffed -- so what now?

6 11

← Newer
1
...
6
7
8
9
10
11
12
...
33
Older →

Jump to page: