Squeak-dev September 2014

squeak-dev@lists.squeakfoundation.org

49 participants
162 discussions

Status of PostgresV3
by Stephan Eggermont 26 Sep '14

26 Sep '14

What is the actual status of the PostgresV3 driver? In the last mailing list discussions about it there was a reference to newer features not yet on squeaksource? What kind of advantages should I expect when compared to the dbx stuff? Is there a Glorp driver for it? Stephan

2 1

The Trunk: Morphic-ul.745.mcz
by commits＠source.squeak.org 26 Sep '14

26 Sep '14

Levente Uzonyi uploaded a new version of Morphic to project The Trunk: http://source.squeak.org/trunk/Morphic-ul.745.mcz ==================== Summary ==================== Name: Morphic-ul.745 Author: ul Time: 26 September 2014, 5:09:59.501 pm UUID: e53a2adf-8037-4365-86ad-842af5fa8005 Ancestors: Morphic-ul.744 - use Point >> #isZero where possible - use #atWrap: in UserDialogBoxMorph's #selectNextButton and #selectPreviousButton =============== Diff against Morphic-ul.744 =============== Item was changed: ----- Method: HandMorph>>position: (in category 'geometry') ----- position: aPoint "Overridden to align submorph origins to the grid if gridding is on." | adjustedPosition delta box | adjustedPosition := aPoint. temporaryCursor ifNotNil: [adjustedPosition := adjustedPosition + temporaryCursorOffset]. "Copied from Morph to avoid owner layoutChanged" "Change the position of this morph and and all of its submorphs." delta := adjustedPosition - bounds topLeft. + delta isZero ifTrue: [^ self]. "Null change" - (delta x = 0 and: [delta y = 0]) ifTrue: [^ self]. "Null change" box := self fullBounds. (delta dotProduct: delta) > 100 ifTrue:[ "e.g., more than 10 pixels moved" self invalidRect: box. self invalidRect: (box translateBy: delta). ] ifFalse:[ self invalidRect: (box merge: (box translateBy: delta)). ]. self privateFullMoveBy: delta. ! Item was changed: ----- Method: Morph>>shadowOffset: (in category 'drop shadows') ----- shadowOffset: aPoint "Set the current shadow offset" + + (aPoint isNil or: [ aPoint isZero ]) - (aPoint isNil or:[(aPoint x isZero) & (aPoint y isZero)]) ifTrue:[self removeProperty: #shadowOffset] ifFalse:[self setProperty: #shadowOffset toValue: aPoint].! Item was changed: ----- Method: SketchMorph>>extent: (in category 'geometry') ----- extent: newExtent "Change my scale to fit myself into the given extent. Avoid extents where X or Y is zero." + + newExtent isZero ifTrue: [ ^self ]. - (newExtent y = 0 or: [ newExtent x = 0 ]) ifTrue: [ ^self ]. self extent = newExtent ifTrue:[^self]. scalePoint := newExtent asFloatPoint / (originalForm extent max: 1@1). self layoutChanged. ! Item was changed: ----- Method: UserDialogBoxMorph>>selectNextButton (in category 'events') ----- selectNextButton | buttons | buttons := self buttons. + self selectButton: (buttons atWrap: (buttons indexOf: selectedButton) + 1)! - self selectButton: (buttons at: (buttons indexOf: selectedButton) \\ buttons size + 1)! Item was changed: ----- Method: UserDialogBoxMorph>>selectPreviousButton (in category 'events') ----- selectPreviousButton + | buttons | - | buttons index | buttons := self buttons. + self selectButton: (buttons atWrap: (buttons indexOf: selectedButton) - 1)! - index := (buttons indexOf: selectedButton) - 1. - index = 0 ifTrue: [ index := buttons size ]. - self selectButton: (buttons at: index)!

1 0

The Trunk: Morphic-ul.744.mcz
by commits＠source.squeak.org 26 Sep '14

26 Sep '14

Levente Uzonyi uploaded a new version of Morphic to project The Trunk: http://source.squeak.org/trunk/Morphic-ul.744.mcz ==================== Summary ==================== Name: Morphic-ul.744 Author: ul Time: 22 September 2014, 7:45:55.442 pm UUID: 78178a2f-f249-4767-8429-f8236e1459bc Ancestors: Morphic-cmm.743 - sped up #valueOfProperty:ifAbsent: and friends =============== Diff against Morphic-cmm.743 =============== Item was changed: ----- Method: Morph>>valueOfProperty:ifAbsent: (in category 'accessing - properties') ----- valueOfProperty: aSymbol ifAbsent: aBlock "if the receiver possesses a property of the given name, answer its value. If not then evaluate aBlock and answer the result of this block evaluation" + + extension ifNil: [ ^aBlock value ]. + ^extension valueOfProperty: aSymbol ifAbsent: aBlock! - ^ extension - ifNotNil: [extension valueOfProperty: aSymbol ifAbsent: aBlock] - ifNil: [aBlock value]! Item was changed: ----- Method: MorphExtension>>layoutFrame (in category 'accessing - layout properties') ----- layoutFrame + ^self valueOfProperty: #layoutFrame! - ^self valueOfProperty: #layoutFrame ifAbsent:[nil]! Item was changed: ----- Method: MorphExtension>>layoutPolicy (in category 'accessing - layout properties') ----- layoutPolicy + ^self valueOfProperty: #layoutPolicy! - ^self valueOfProperty: #layoutPolicy ifAbsent:[nil]! Item was changed: ----- Method: MorphExtension>>layoutProperties (in category 'accessing - layout properties') ----- layoutProperties + ^self valueOfProperty: #layoutProperties! - ^self valueOfProperty: #layoutProperties ifAbsent:[nil]! Item was changed: ----- Method: MorphExtension>>valueOfProperty: (in category 'accessing - other properties') ----- valueOfProperty: aSymbol "answer the value of the receiver's property named aSymbol" + + ^otherProperties ifNotNil: [ otherProperties at: aSymbol ifAbsent: nil ]! - ^ self - valueOfProperty: aSymbol - ifAbsent: []! Item was changed: ----- Method: MorphExtension>>valueOfProperty:ifAbsent: (in category 'accessing - other properties') ----- valueOfProperty: aSymbol ifAbsent: aBlock "if the receiver possesses a property of the given name, answer its value. If not then evaluate aBlock and answer the result of this block evaluation" otherProperties ifNil: [^ aBlock value]. + ^otherProperties at: aSymbol ifAbsent: aBlock! - ^ otherProperties at: aSymbol ifAbsent: [^ aBlock value]!

1 0

The Trunk: Kernel-ul.875.mcz
by commits＠source.squeak.org 26 Sep '14

26 Sep '14

Levente Uzonyi uploaded a new version of Kernel to project The Trunk: http://source.squeak.org/trunk/Kernel-ul.875.mcz ==================== Summary ==================== Name: Kernel-ul.875 Author: ul Time: 22 September 2014, 7:47:53.688 pm UUID: cab8700d-92c1-4795-9c28-8edc6671cc46 Ancestors: Kernel-ul.874 - improved Date >> #printFormat: - added #isZero to LargeIntegers =============== Diff against Kernel-ul.874 =============== Item was changed: ----- Method: Date>>printFormat: (in category 'printing') ----- printFormat: formatArray "Answer a String describing the receiver using the argument formatArray." + ^String new: 17 streamContents: [ :stream | + self printOn: stream format: formatArray ]! - | aStream | - aStream := WriteStream on: (String new: 16). - self printOn: aStream format: formatArray. - ^ aStream contents - ! Item was added: + ----- Method: LargeNegativeInteger>>isZero (in category 'testing') ----- + isZero + "Optimization. Answer false since receiver is less than 0." + + ^false + ! Item was added: + ----- Method: LargePositiveInteger>>isZero (in category 'testing') ----- + isZero + "Optimization. Answer false since receiver is greater than 0." + + ^false + !

1 0

The Trunk: Kernel-ul.874.mcz
by commits＠source.squeak.org 26 Sep '14

26 Sep '14

Levente Uzonyi uploaded a new version of Kernel to project The Trunk: http://source.squeak.org/trunk/Kernel-ul.874.mcz ==================== Summary ==================== Name: Kernel-ul.874 Author: ul Time: 21 September 2014, 7:24:24.087 pm UUID: b39db5fc-8e25-4059-98d5-5ffbdd608e76 Ancestors: Kernel-nice.873 Random changes: - fixed off-by-one error in #next - seed is always a Float - added #hashSeed: which can be used to produce a better initial seed. Small seeds will result in less random first value. - seed is forced between 0 and 2^31-1 if it's out of range using #hashSeed: - simplified #initialize. 0 is not a bad seed value - fixed #nextValue's comment and simplified the implementation a bit - added clarification to #nextInt:'s comment - sped up #bucketTest: on the class side =============== Diff against Kernel-nice.873 =============== Item was changed: ----- Method: Random class>>bucketTest: (in category 'testing') ----- bucketTest: randy "Execute this: Random bucketTest: Random new" " A quick-and-dirty bucket test. Prints nbuckets values on the Transcript. Each should be 'near' the value of ntries. Any run with any value 'far' from ntries indicates something is very wrong. Each run generates different values. For a slightly better test, try values of nbuckets of 200-1000 or more; go get coffee. This is a poor test; see Knuth. Some 'OK' runs: 1000 1023 998 969 997 1018 1030 1019 1054 985 1003 1011 987 982 980 982 974 968 1044 976 1029 1011 1025 1016 997 1019 991 954 968 999 991 978 1035 995 988 1038 1009 988 993 976 " | nbuckets buckets ntrys | nbuckets := 200. buckets := Array new: nbuckets. buckets atAllPut: 0. ntrys := 1000. ntrys*nbuckets timesRepeat: [ | slot | slot := (randy next * nbuckets) floor + 1. buckets at: slot put: (buckets at: slot) + 1 ]. Transcript cr. 1 to: nbuckets do: [ :nb | + Transcript print: (buckets at: nb); space ]. + Transcript flush! - Transcript show: (buckets at: nb) printString, ' ' ]! Item was added: + ----- Method: Random>>hashSeed: (in category 'initialization') ----- + hashSeed: anInteger + " Use the 32-bit version of the FNV-1a algorithm to hash the seed. Keep only 31 bits during the calculation. " + + | fnvPrime hash | + fnvPrime := 16777619 " 32-bit FVN prime ". + hash := anInteger negative + ifTrue: [ 1342966192 " mix in the sign as (2166136261 bitXor: 2r1010101) * 16777619 bitAnd: 16r7FFFFFFF "] + ifFalse: [ 2166136261 " 32-bit FVN offset basis "]. + 1 to: anInteger digitLength do: [ :index | + hash := (hash bitXor: (anInteger digitAt: index)) * fnvPrime bitAnd: 16r7FFFFFFF ]. + seed := hash asFloat! Item was changed: ----- Method: Random>>initialize (in category 'initialization') ----- initialize + " Set a reasonable Park-Miller starting seed " + | hash newSeed | + hash := self hash hashMultiply. + newSeed := Time primUTCMicrosecondClock. + newSeed isZero ifTrue: [ " microsecond clock not available " + newSeed := Time millisecondClockValue ]. + seed := ((newSeed bitAnd: 16r7FFFFFFF) bitXor: hash) asFloat! - | hash | - hash := self hash. - "Set a reasonable Park-Miller starting seed" - seed := Time primUTCMicrosecondClock. - seed = 0 ifFalse: [ "Use the microsecond clock if possible." - seed := (seed bitAnd: 16r3FFFFFFF) bitXor: hash ]. - [ seed = 0 ] whileTrue: [ "Try again if ever get a seed = 0, or there's no microsecond clock." - seed := (Time millisecondClockValue bitAnd: 16r3FFFFFFF) bitXor: hash ]! Item was changed: ----- Method: Random>>next (in category 'accessing') ----- next "Answer a random Float in the interval [0 to 1)." + ^ (seed := self nextValue) - 1.0 / M! - ^ (seed := self nextValue) / M! Item was changed: ----- Method: Random>>nextInt: (in category 'accessing') ----- nextInt: anInteger + " Answer a random integer in the interval [1, anInteger]. anInteger should be less than 16r80000000. " - "Answer a random integer in the interval [1, anInteger]." anInteger strictlyPositive ifFalse: [ self error: 'Range must be positive' ]. ^ (self next * anInteger) truncated + 1! Item was changed: ----- Method: Random>>nextValue (in category 'private') ----- nextValue + "This method generates random instances of Integer in the interval 1 to 16r7FFFFFFF. This method does NOT update the seed; repeated sends answer the same value. - "This method generates random instances of Integer in the interval - 0 to 16r7FFFFFFF. This method does NOT update the seed; repeated sends - answer the same value. The algorithm is described in detail in 'Random Number Generators: Good Ones Are Hard to Find' by Stephen K. Park and Keith W. Miller (Comm. Asso. Comp. Mach., 31(10):1192--1201, 1988)." + | lo hi aLoRHi | + hi := seed quo: Q. + lo := seed - (Q * hi). " = seed rem: q" - | lo hi aLoRHi answer | - hi := (seed quo: Q) asFloat. - lo := seed - (hi * Q). " = seed rem: q" aLoRHi := (A * lo) - (R * hi). + aLoRHi > 0.0 ifTrue: [ ^aLoRHi ]. + ^aLoRHi + M! - answer := (aLoRHi > 0.0) - ifTrue: [aLoRHi] - ifFalse: [aLoRHi + M]. - ^ answer! Item was changed: ----- Method: Random>>seed: (in category 'initialization') ----- + seed: anInteger + " Use this 31-bit nonnegative integer as seed. Generate a valid seed using a hash function if it's out of range. " + + (anInteger between: 0 and: 16r7FFFFFFF) + ifTrue: [ seed := anInteger asFloat ] + ifFalse: [ self hashSeed: anInteger ]! - seed: anInteger - seed := anInteger!

1 0

Re: [squeak-dev] Contributor agreement
by tim Rowledge 26 Sep '14

26 Sep '14

On 23-09-2014, at 3:56 PM, Jecel Assumpcao Jr. <jecel(a)merlintec.com> wrote: > After being developed as an internal and mostly secret project at Xerox > PARC for a decade, the company decided to release Smalltalk to the world > in the early 1980s (thanks mostly to the efforts of Adele Goldberg and > friends). Xerox got in touch with several other companies and made a > deal with Apple, Tektronix, HP and DEC to give them a license to the > Smalltalk technology that would allow them to do absolutely anything > they wanted with it for free in exchange for them dedicating engineering > resources to help with the process of converting a research project into > a product. I *think* Apple got a slightly different deal and in fact HP etc were restricted rather more. > > Later on a fifth license was granted to Berkeley but I don't know if the > terms were the same. Tektronix created some "artificial intelligence" > workstations around Smalltalk (the 4404 and 4406). Don’t forget the 4405 and 4409! [snippety-snip] > One additional detail is that when Ian Piumarta ported the Squeak VM to > Unix he selected to the GPL for his contributions. He later changed all that to what looks rather like an MIT license to me; the only restriction is you have to include the license header in any copy of the file and accept that there is no warranty of any sort. See http://squeakvm.org/cgi-bin/viewvc.cgi/squeak/trunk/platforms/unix/vm/sqUni… for example. I used the same boilerplate for my RISC OS files. The win32 & Mac files appear to have no relevant text. tim -- tim Rowledge; tim(a)rowledge.org; http://www.rowledge.org/tim Useful random insult:- One clown short of a circus.

6 6

Daily Commit Log
by commits＠source.squeak.org 26 Sep '14

26 Sep '14

Changes to Trunk (http://source.squeak.org/trunk.html) in the last 24 hours: http://lists.squeakfoundation.org/pipermail/packages/2014-September/007282.… Name: Tools-cmm.528 Ancestors: Tools-eem.527 - Guard from empty possibilities when inverting the level selection of a MessageTrace. ============================================= http://lists.squeakfoundation.org/pipermail/packages/2014-September/007283.… Name: KernelTests-dtl.277 Ancestors: KernelTests-dtl.276 CompiledMethodTest>>testPerformCanExecutelongMethodWithTemps passes on all Cog and interpreter VMs, so remove it from expectedFailures ============================================= http://lists.squeakfoundation.org/pipermail/packages/2014-September/007284.… Name: Multilingual-nice.201 Ancestors: Multilingual-ul.200 Remove #padToEndWith: now that it has been moved upper in WriteStream =============================================

1 0

The Trunk: Multilingual-nice.201.mcz
by commits＠source.squeak.org 25 Sep '14

25 Sep '14

Nicolas Cellier uploaded a new version of Multilingual to project The Trunk: http://source.squeak.org/trunk/Multilingual-nice.201.mcz ==================== Summary ==================== Name: Multilingual-nice.201 Author: nice Time: 25 September 2014, 11:08:56.771 pm UUID: b1bbcfdf-86a3-4424-9014-a8168390a6f5 Ancestors: Multilingual-ul.200 Remove #padToEndWith: now that it has been moved upper in WriteStream =============== Diff against Multilingual-ul.200 =============== Item was removed: - ----- Method: MultiByteBinaryOrTextStream>>padToEndWith: (in category 'public') ----- - padToEndWith: aChar - "We don't have pages, so we are at the end, and don't need to pad."!

1 0

Phexample: API Change Proposal
by Sean P. DeNigris 25 Sep '14

25 Sep '14

I brought this up on Pharo Dev (http://forum.world.st/Phexample-API-Change-Proposal-was-Phexample-Image-Des…) and wanted to re-post here before committing my fix, since I assume that Squeak and Pharo make up the Phexample user base... MAJOR API CHANGE: - change matcher #= to #equal: e.g. "1 should = 1" would now be written "1 should equal: 1" - update all code to use new API Motivation: the #= magic made it impossible to store matchers in dictionaries, and #hash was implemented to signal an error explaining as much. Unfortunately, #= and #hash are deeply ingrained Smalltalk concepts, and are assumed to work as expected. In Pharo 3.0, the debugger tried to put matchers in a dictionary, causing an infinite error loop whenever a matcher failed. Let me know if you have any suggestions/objections/whatever. Sean ----- Cheers, Sean -- View this message in context: http://forum.world.st/Phexample-API-Change-Proposal-tp4759586.html Sent from the Squeak - Dev mailing list archive at Nabble.com.

2 2

Latest duration API ready
by Chris Cunningham 25 Sep '14

25 Sep '14

These 3 packages should be loaded (or, more likely, merged) into current Trunk for testing. They all reside in the Inbox currently Kernel-cbc.872.mcz Collections-cbc.582.mcz KernelTests-cbc.278.mcz They should have no collision with the current packages in Trunk. They shouldn't cause any problems with any code currently relying on how DateAndTime and Timespan classes interact with Duration classes. And they don't currently make any changes on the assumptions as to how adding strings, time, DateAndTimes, Timespans, and Numbers to DateAndTime and Timespan works today. I'd like to make changing those assumptions a difference activity than adding in the ability to add months and years to dates. This latest change adds #hash and comments to the GenericDurations. It also simplifies how GenericDuration works. Thanks, -cbc

2 2

← Newer
1
2
3
4
5
6
7
8
9
...
17
Older →

Jump to page: