Squeak-dev July 2010

squeak-dev@lists.squeakfoundation.org

75 participants
234 discussions

Re: [squeak-dev] The Trunk: Morphic-cmm.452.mcz
by Alexander Lazarević 03 Jul '10

03 Jul '10

2010/7/3 <commits(a)source.squeak.org> > $[, on the other hand, is not shifted on the keyboard, [...] > at least if "the keyboard" happens to have an us-keyboard layout ... In general I don't see a great benefit for the whole Squeak community in having hardcoded platform-language centric shortcuts. Alex

1 0

The Trunk: Tools-eem.251.mcz
by commits＠source.squeak.org 03 Jul '10

03 Jul '10

Eliot Miranda uploaded a new version of Tools to project The Trunk: http://source.squeak.org/trunk/Tools-eem.251.mcz ==================== Summary ==================== Name: Tools-eem.251 Author: eem Time: 2 July 2010, 9:53:34.374 pm UUID: e50e87b3-5ce8-43a2-9266-6f589391baad Ancestors: Tools-eem.250 Fix MessageNames for references to non-selectors. =============== Diff against Tools-eem.250 =============== Item was added: + ----- Method: MessageNames>>selectedMessageName (in category 'selection') ----- + selectedMessageName + ^selectorListIndex = 0 ifFalse: [selectorList at: selectorListIndex]!

1 0

The Trunk: System-eem.348.mcz
by commits＠source.squeak.org 03 Jul '10

03 Jul '10

Eliot Miranda uploaded a new version of System to project The Trunk: http://source.squeak.org/trunk/System-eem.348.mcz ==================== Summary ==================== Name: System-eem.348 Author: eem Time: 2 July 2010, 9:49:52.442 pm UUID: 94a31c6e-f957-4277-87e9-f0bffe6563f1 Ancestors: System-cmm.347 Flush the class name cache when removing keys from Smalltalk globals =============== Diff against System-cmm.347 =============== Item was changed: ----- Method: SystemDictionary>>flushClassNameCache (in category 'classes and traits') ----- flushClassNameCache "Smalltalk flushClassNameCache" + "Force recomputation of the cached list of class names." - "Forse recomputation of the cached list of class names." cachedClassNames := nil! Item was added: + ----- Method: SystemDictionary>>removeKey:ifAbsent: (in category 'removing') ----- + removeKey: key ifAbsent: aBlock + "Remove key (and its associated value) from the receiver. If key is not in + the receiver, answer the result of evaluating aBlock. Otherwise, answer + the value externally named by key." + + self flushClassNameCache. + ^super removeKey: key ifAbsent: aBlock!

1 0

The Inbox: Graphics-wiz.141.mcz
by commits＠source.squeak.org 03 Jul '10

03 Jul '10

A new version of Graphics was added to project The Inbox: http://source.squeak.org/inbox/Graphics-wiz.141.mcz ==================== Summary ==================== Name: Graphics-wiz.141 Author: wiz Time: 2 July 2010, 11:35:34.95 pm UUID: 2cd07aae-7f08-47d5-a6ef-7366058d70f2 Ancestors: Graphics-nice.140 >From Mantis #6596. Marked as added to 3.10 by Edgar. Apparently lost in history when others took over. Resubmitted here. "Change Set: PointEnh1-wiz Date: 6 August 2007 Author: (wiz) Jerome Peace wiz 8/6/2007 21:52 Enhancements to point needed to run morePointTests-wiz Repairs and enhancements to Point normal -- now has a default for the zero point. sign -- extended to include point rightRotated leftRotated -- basic shortcuts added to point fourDirections -- easy way to get a square shape from a point." =============== Diff against Graphics-nice.140 =============== Item was changed: ----- Method: Point>>normal (in category 'point functions') ----- normal + "Answer a Point representing the unit vector rotated 90 deg clockwise. + For the zero point return a normal of -1@0 ." - "Answer a Point representing the unit vector rotated 90 deg clockwise." + | n d | + + n _ y negated @ x. + (d := (n x * n x + (n y * n y))) = 0 ifTrue: [ ^ -1 @0 ] . + ^n / d sqrt! - | n | - n := y negated @ x. - ^n / (n x * n x + (n y * n y)) sqrt! Item was added: + ----- Method: Point>>basicType (in category 'printing') ----- + basicType + "Answer a symbol representing the inherent type of the receiver" + + ^ #Point! Item was added: + ----- Method: Point>>fourDirections (in category 'point functions') ----- + fourDirections + "Return vertices for a square centered at 0 asPoint with the receiver as first corner. + Returns the four rotation of the reciever in counter clockwise order with the reciever appearing last. " + ^ Array with: self leftRotated + with: self negated + with: self rightRotated + with: self + + ! Item was added: + ----- Method: Point>>rightRotated (in category 'point functions') ----- + rightRotated + "Return the reciever rotated 90 degrees. + i.e. self rotateBy: #right centerAt: 0 asPoint . + Compare to transposed and normal. " + ^y negated @x! Item was added: + ----- Method: Point>>sign (in category 'point functions') ----- + sign + + + ^ (x sign @ y sign) .! Item was added: + ----- Method: Point>>leftRotated (in category 'point functions') ----- + leftRotated + "Return the reciever rotated 90 degrees. + i.e. self rotateBy: #left centerAt: 0 asPoint . + Compare to transposed and normal. " + ^y @x negated!

1 0

The Inbox: GraphicsTests-wiz.25.mcz
by commits＠source.squeak.org 03 Jul '10

03 Jul '10

A new version of GraphicsTests was added to project The Inbox: http://source.squeak.org/inbox/GraphicsTests-wiz.25.mcz ==================== Summary ==================== Name: GraphicsTests-wiz.25 Author: wiz Time: 2 July 2010, 11:29:04.987 pm UUID: 09631ad5-ff19-4c96-bb76-d54c7222ce8e Ancestors: GraphicsTests-nice.24 >From mantis #6596 this changeset and the patches to make the test work were marked as having been put into updates for 3.10 by Edgar. Apparently the historic record got lost as others took over. Resubmitted here. "Change Set: morePointTests-wiz Date: 6 August 2007 Author: (wiz) Jerome Peace Point tests for repairs and enhancements to Point normal -- now has a default for the zero point. sign -- extended to include point rightRotated leftRotated -- basic shortcuts added to point fourDirections -- easy way to get a square shape from a point." =============== Diff against GraphicsTests-nice.24 =============== Item was added: + ----- Method: PointTest>>testNormal (in category 'testing - testing') ----- + testNormal + " quick check of results for #normal." + + | samples rejects results | + + samples := + 0 asPoint eightNeighbors + , (Array with: 0 asPoint) . + + results := + { 0.0(a)1.0 + . -0.707106781186547(a)0.707106781186547 + . -1.0(a)0.0 + . -0.707106781186547(a)-0.707106781186547 + . 0.0(a)-1.0 + . 0.707106781186547(a)-0.707106781186547 + . 1.0(a)0.0 + . 0.707106781186547(a)0.707106781186547 + . -1@0} . + + + rejects := + (1 to: samples size ) reject: [ :each | ((samples at: each) normal - (results at: each)) abs < 1e-15 asPoint ] . + + self assert: ( rejects isEmpty ) . + + + + ! Item was added: + ----- Method: PointTest>>testSign (in category 'testing - testing') ----- + testSign + + | samples results rejects | + samples := + 0 asPoint eightNeighbors + , (Array with: 0 asPoint) . + + self shouldnt: [ results := + samples collect: [ :each | each sign ] ] + raise: Error . + + rejects := + (1 to: samples size ) reject: [ :each | + (samples at: each) = (results at: each) ] . + + self assert: ( rejects isEmpty) + + + ! Item was added: + ----- Method: PointTest>>testRotations (in category 'testing - testing') ----- + testRotations + " Here we are testing rightRotated and leftRotated which are new. + Because there is really no coverage for point functions this also serves as a tests of sorts for + rotateBy:CenterAt:" + + | samples | + samples := + 0 asPoint eightNeighbors + , (Array with: 0 asPoint) . + + self assert: (samples allSatisfy: [ :each | + each rightRotated leftRotated = each ] ) . + + self assert: (samples allSatisfy: [ :each | + each rightRotated = (each rotateBy: #right centerAt: 0 asPoint)] ) . + + self assert: (samples allSatisfy: [ :each | + each leftRotated = (each rotateBy: #left centerAt: 0 asPoint ) ] ) . + + self assert: (samples allSatisfy: [ :each | + each negated = (each rotateBy: #pi centerAt: 0 asPoint ) ] ) . + + self assert: (samples allSatisfy: [ :each | + each leftRotated leftRotated leftRotated leftRotated = each ]) . + + self assert: (samples allSatisfy: [ :each | + each rightRotated rightRotated rightRotated rightRotated = each ] ) . + ! Item was added: + ----- Method: PointTest>>testNormal2 (in category 'testing - testing') ----- + testNormal2 + " quick check of results for #normal. + differs from the other testNormal in the way that the difference is measured." + + | samples rejects results differences | + + samples := + 0 asPoint eightNeighbors + , (Array with: 0 asPoint) . + + results := + { 0.0(a)1.0 + . -0.707106781186547(a)0.707106781186547 + . -1.0(a)0.0 + . -0.707106781186547(a)-0.707106781186547 + . 0.0(a)-1.0 + . 0.707106781186547(a)-0.707106781186547 + . 1.0(a)0.0 + . 0.707106781186547(a)0.707106781186547 + . -1@0} . + + differences := + samples with: results collect: [ :each :eachResult | + each normal - eachResult ] . + + rejects := + differences reject: [ :each | + (each x closeTo: 0.0) and: [each y closeTo: 0.0] ] . + + self assert: ( rejects isEmpty ) . + + + + ! Item was added: + ----- Method: PointTest>>testBasicFourDirections (in category 'testing - testing') ----- + testBasicFourDirections + " fourDirections returns the four rotation of the reciever in counter clockwise order with the reciever appearing last. " + + | samples results rejects | + + self assert: (0 asPoint fourDirections) = (Array new: 4 withAll: 0 asPoint) . + + + samples := + 0 asPoint eightNeighbors . + + results := + { {0@-1 . -1@0 . 0@1 . 1@0} + . {1@-1 . -1@-1 . -1@1 . 1@1} + . {1@0 . 0@-1 . -1@0 . 0@1} + . {1@1 . 1@-1 . -1@-1 . -1@1} + . {0@1 . 1@0 . 0@-1 . -1@0} + . {-1@1 . 1@1 . 1@-1 . -1@-1} + . {-1@0 . 0@1 . 1@0 . 0@-1} + . {-1@-1 . -1@1 . 1@1 . 1@-1} } . + + rejects := + (1 to: samples size ) reject: [ :each | + (samples at: each) fourDirections = (results at: each) ] . + + self assert: ( rejects isEmpty) . + + + ! Item was added: + ----- Method: PointTest>>testFourDirectionsInvarients (in category 'testing - testing') ----- + testFourDirectionsInvarients + " fourDirections returns the four rotation of the reciever in counter clockwise order with the reciever appearing last. " + + | samples rejects | + + samples := + 0 asPoint eightNeighbors . + + rejects := + (1 to: samples size ) reject: [ :each | + (samples at: each) fourDirections last = ( samples at: each) ] . + + self assert: ( rejects isEmpty) . + + + ! Item was added: + ----- Method: PointTest>>testFourDirectionsRotationInvarients (in category 'testing - testing') ----- + testFourDirectionsRotationInvarients + " fourDirections returns the four rotation of the reciever in counter clockwise order with the reciever appearing last. " + + | samples rejects | + + samples := + 0 asPoint eightNeighbors . + + rejects := + (1 to: samples size ) reject: [ :each | | answer | + (answer := (samples at: each) fourDirections ) . + (1 to: 4) allSatisfy: [ :eachDirIndex | + ( answer atWrap: eachDirIndex) leftRotated + = (( answer atWrap: eachDirIndex + 1) ) ] ] . + + self assert: ( rejects isEmpty) . + + + ! Item was added: + ----- Method: PointTest>>testZeroPointNormal (in category 'testing - testing') ----- + testZeroPointNormal + "old: normal of zero point raised divide by zero error. + new: normal of zero point returns a direction right rotated from zero points direction." + + + self shouldnt: [ (0 asPoint normal bearingToPoint: 0 asPoint) = 90 ] raise: Error. + !

1 0

The Trunk: Morphic-cmm.452.mcz
by commits＠source.squeak.org 03 Jul '10

03 Jul '10

Chris Muller uploaded a new version of Morphic to project The Trunk: http://source.squeak.org/trunk/Morphic-cmm.452.mcz ==================== Summary ==================== Name: Morphic-cmm.452 Author: cmm Time: 2 July 2010, 7:21:27.827 pm UUID: 256fdb5f-e51a-463a-94b1-05ca25e3c8bd Ancestors: Morphic-eem.451 Removed Command+, command-key from enclosing in <>'s for the following reasons: 1) It is already correctly handled by Control+[comma]. There is little or no need for this enclosing character to exist at all in SmalltalkEditor, in particular because Squeak has Seaside which eliminates the need to type a lot of HTML enclosing brackets. But to _overload_ this command with two separate hot-key combinations is insane. 2) Control+[surround key] is universally consistent for the shifted enclosing characters, e.g., $(, ${. $< should follow suit. $[, on the other hand, is not shifted on the keyboard, and therefore uses the standard Command key, not Control. 3) It's a pain in the ass. I'm finally fed up because, every day, I am accidently hitting the , (comma) key when I mean to only hit the Command key to browse senders, or "do it" or save a method. Unnecessary, inconsistent, overloaded, and painful. Whew! Goodbye and good riddance. =============== Diff against Morphic-eem.451 =============== Item was changed: ----- Method: TextEditor class>>initializeCmdKeyShortcuts (in category 'keyboard shortcut tables') ----- initializeCmdKeyShortcuts "Initialize the (unshifted) command-key (or alt-key) shortcut table." "NOTE: if you don't know what your keyboard generates, use Sensor kbdTest" "TextEditor initialize" | cmdMap cmds | cmdMap := Array new: 256 withAll: #noop:. "use temp in case of a crash" cmdMap at: 1 + 1 put: #cursorHome:. "home key" cmdMap at: 4 + 1 put: #cursorEnd:. "end key" cmdMap at: 8 + 1 put: #backspace:. "ctrl-H or delete key" cmdMap at: 11 + 1 put: #cursorPageUp:. "page up key" cmdMap at: 12 + 1 put: #cursorPageDown:. "page down key" cmdMap at: 13 + 1 put: #crWithIndent:. "cmd-Return" cmdMap at: 27 + 1 put: #offerMenuFromEsc:. "escape key" cmdMap at: 28 + 1 put: #cursorLeft:. "left arrow key" cmdMap at: 29 + 1 put: #cursorRight:. "right arrow key" cmdMap at: 30 + 1 put: #cursorUp:. "up arrow key" cmdMap at: 31 + 1 put: #cursorDown:. "down arrow key" cmdMap at: 32 + 1 put: #selectWord:. "space bar key" cmdMap at: 127 + 1 put: #forwardDelete:. "del key" '0123456789-=' do: [:char | cmdMap at: char asciiValue + 1 put: #changeEmphasis:]. '([{''"<' do: [:char | cmdMap at: char asciiValue + 1 put: #enclose:]. - cmdMap at: $, asciiValue + 1 put: #shiftEnclose:. - cmds := #($a #selectAll: $c #copySelection: $e #exchange: $f #find: $g #findAgain: $h #setSearchString: $k #offerFontMenu: $u #align: $v #paste: $w #backWord: $x #cut: $y #swapChars: $z #undo:). 1 to: cmds size by: 2 do: [:i | cmdMap at: (cmds at: i) asciiValue + 1 put: (cmds at: i + 1)]. cmdActions := cmdMap! Item was changed: ----- Method: TextEditor>>enclose: (in category 'editing keys') ----- enclose: characterStream "Insert or remove bracket characters around the current selection. Flushes typeahead." | char left right startIndex stopIndex oldSelection which text | char := sensor keyboard. self closeTypeIn. startIndex := self startIndex. stopIndex := self stopIndex. oldSelection := self selection. + which := '([{"''' indexOf: char ifAbsent: [ ^true ]. + left := '([{"''' at: which. + right := ')]}"''' at: which. - which := '([<{"''' indexOf: char ifAbsent: [ ^true ]. - left := '([<{"''' at: which. - right := ')]>}"''' at: which. text := paragraph text. ((startIndex > 1 and: [stopIndex <= text size]) and: [ (text at: startIndex-1) = left and: [(text at: stopIndex) = right]]) ifTrue: [ "already enclosed; strip off brackets" self selectFrom: startIndex-1 to: stopIndex. self replaceSelectionWith: oldSelection] ifFalse: [ "not enclosed; enclose by matching brackets" self replaceSelectionWith: (Text string: (String with: left), oldSelection string, (String with: right) attributes: emphasisHere). self selectFrom: startIndex+1 to: stopIndex]. ^true! Item was changed: (PackageInfo named: 'Morphic') postscript: '(Preferences dictionaryOfPreferences at: #alternativeWindowBoxesLook) defaultValue: false. + SystemProgressMorph initialize; reset. + TextEditor initialize. + SmalltalkEditor initialize'! - SystemProgressMorph initialize; reset'!

1 0

The Trunk: System-cmm.347.mcz
by commits＠source.squeak.org 03 Jul '10

03 Jul '10

Chris Muller uploaded a new version of System to project The Trunk: http://source.squeak.org/trunk/System-cmm.347.mcz ==================== Summary ==================== Name: System-cmm.347 Author: cmm Time: 2 July 2010, 6:54:56.35 pm UUID: a1b99108-d467-4028-9710-57386f49d0a5 Ancestors: System-ul.346 Fixed ability to revert a method. =============== Diff against System-ul.346 =============== Item was changed: ----- Method: ChangeRecord>>fileIn (in category 'initialization') ----- fileIn "File the receiver in. If I represent a method or a class-comment, file the method in and make a note of it in the recent-submissions list; if I represent a do-it, then, well, do it; if I represent a reorganization then get organized!!" Cursor read showWhile: [| s cls aSelector | type == #doIt ifTrue: [((s := self string) beginsWith: '----') ifFalse: [Compiler evaluate: s]] ifFalse: + [cls := self methodClass. - [cls := Smalltalk at: class asSymbol. - cls := meta ifTrue: [cls class] ifFalse: [cls]. type == #method ifTrue: [cls compile: self text classified: category withStamp: stamp notifying: nil. (aSelector := self methodSelector) ifNotNil: [Utilities noteMethodSubmission: aSelector forClass: cls]]. type == #classComment ifTrue: [cls comment: self text stamp: stamp. Utilities noteMethodSubmission: #Comment forClass: cls ]. type == #reorganize ifTrue: [cls organization changeFromString: self text]]]!

1 0

Daily Commit Log
by commits＠source.squeak.org 03 Jul '10

03 Jul '10

Changes to Trunk (http://source.squeak.org/trunk.html) in the last 24 hours: http://lists.squeakfoundation.org/pipermail/packages/2010-July/003508.html Name: Kernel-eem.468 Ancestors: Kernel-ul.467 Fix restart in blocks in the debugger. Also first part of fix for BlockClosure>asContext[WithSender:] ============================================= http://lists.squeakfoundation.org/pipermail/packages/2010-July/003509.html Name: Kernel-eem.469 Ancestors: Kernel-eem.468 Make sure BlockClosure>asContext[WithSender:] pushes nils for any arguments and pushes any copied values I recommend that you load Kernel-eem.468 before loading this! ============================================= http://lists.squeakfoundation.org/pipermail/packages/2010-July/003510.html Name: Kernel-eem.470 Ancestors: Kernel-eem.469 Fix the other dependencies of asContextWithSender: =============================================

1 0

Re: Cryptography
by Rob Withers 03 Jul '10

03 Jul '10

Hi David, I am CCing the squeak-dev list. I had tried to contact Ron over the weekend, since he is the admin for the SqueakSource Cryptography package. I needed to add you as a member of the Crypto team. That's right, you are a member now. I didn't hear from him so the email address may be bad. We'll see if we hear from him in the future. I hope so. Do you have the link to the Crypto mailing list? I agree we should do this in public. I would suggest the squeak-dev list. We may have several "forks" and/or subsequent work done from the root package. The root package for SSL is in the Monticello repository http://www.squeaksource.com/Cryptography, but it may not be the latest. I think that the SSL package there is the latest...Whoa! I just checked again and new SSL packages were inserted 2 days ago. The latest there used to be SSL-rww.4.mcz and now there is a SSL-jrd.12.mcz. The root package for Cryptography is in the same repository, but it is less clear which is the latest and greatest. There is a mixture of version numbers. I am using Cryptography-cmm.13.mcz. All tests pass except for a Rindael test and an X509 test (due to bad validity dates). I know there is packages in http://croquet-src-01.oit.duke.edu:8886/Contributions. SSL look like the ones now in the Cryptography repository above. The Cryptography packages in Contributions look like they are also in the Cryptography repository, but mixed up with other work. In Contributions, there is the sequence of packages: Cryptography-RJT.10.mcz (the root package) Cryptography-jrd.11.mcz Cryptography-jrd.12.mcz Cryptography-mtf.13.mcz These are interwoven with other packages in the Cryptography repository, with the same version numbers. Lastly, David, it sounded like you have developments that you wanted to integrate. Cheers, Rob -------------------------------------------------- From: "C. David Shaffer" <cdshaffer(a)acm.org> Sent: Tuesday, June 29, 2010 2:23 PM To: "Rob Withers" <reefedjib(a)yahoo.com>; "Ron Teitelbaum" <Ron(a)USMedRec.com> Subject: Cryptography > Ron and Rob, > > I see that there is a Cryptography mailing list but that there hasn't > been a post since 2009. I would like updates to Cryptography to happen > "in public" since I think a lot of people are interested in these > packages. I can post to either forum. > > Based on what I've seen, integrating work that has been done may take a > few 'back-and-forths' so I just need to know in what forum to raise > questions. > > Finally, I know I'm not part of the Crypto team and I'm no expert in > cryptography or even the Squeak frameworks. What I see, however, is the > there is some code harvesting to be done and I think I can do a little > of it without causing any harm. I'm using SSL and MD5+HMAC heavily > under Squeak3.9 and Squeak4.1 (soon) and so I can exercise parts of the > framework past what is already covered by unit tests. Any other bugs > that I introduce can be fixed by harsh words from those that use those > bits of functionality. > > David >

4 6

LDAPlayer deprecated method
by Schwab,Wilhelm K 02 Jul '10

02 Jul '10

Andreas, I ran into a warning about LDAPResult>>checkForExceptions sending the now deprecated #or:or:. It was easy to silence (comment out the warning), but that won't fix the problem. Maybe (untested): checkForExceptions ( #( 0 5 6 ) includes:resultCode ) ifFalse: [ | ex | ex := LDAPException newWithCode: resultCode. ex signal: (errorMessage ifEmpty:[ex messageText]) ] Bill

3 2

Jump to page: