Squeak-dev July 2010

squeak-dev@lists.squeakfoundation.org

75 participants
234 discussions

Cryptography: ThirtyTwoBitRegister extensions
by C. David Shaffer 05 Jul '10

05 Jul '10

I removed the ThirtyTwoBitRegister extensions from Cryptography but this hadan unintended side effect: If you've already loaded Cryptography into a >= Squeak3.11 image, loading my publish will cause these important methods to be removed. I suspect that re-loading the proper kernel package would fix this (I loaded System-ar.315.mcz from source.squeak.org). Should I add some kind of a Monticello post-load script (if there is such a thing) to do this automatically or is a version comment enough? David

2 1

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

05 Jul '10

Changes to Trunk (http://source.squeak.org/trunk.html) in the last 24 hours: http://lists.squeakfoundation.org/pipermail/packages/2010-July/003518.html Name: Tools-eem.252 Ancestors: Tools-eem.251 File name correction for unix to allow e.g. filing out categories containing '/' such as fileIn/Out. Neaten detectFile:do: =============================================

1 0

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

04 Jul '10

Eliot Miranda uploaded a new version of Tools to project The Trunk: http://source.squeak.org/trunk/Tools-eem.252.mcz ==================== Summary ==================== Name: Tools-eem.252 Author: eem Time: 4 July 2010, 11:48:11.448 am UUID: 90c4f8b3-462f-4aab-9f73-163ac73b5f9e Ancestors: Tools-eem.251 File name correction for unix to allow e.g. filing out categories containing '/' such as fileIn/Out. Neaten detectFile:do: =============== Diff against Tools-eem.251 ===============

1 0

4.1 GUI Changes - Buttons not working in my code
by Jon Hylands 04 Jul '10

04 Jul '10

Hi Everyone, So, the new Cog VM has finally given me a reason to jump onto 4.1. I downloaded Andreas' 4.1 Windows zip file, installed it on my robot, and it starts up and runs with no issues. I loaded my Brainbot server code from my Monticello repository, but whenever I try and open any of my GUIs, the buttons are non-clickable. In fact, I can't even bring up their halo - when I right click, it switches between the system window and the alignment morph, but never the buttons. If I explore the alignment morph, I can of course see all the submorphs where they should be. This code works in a 3.10.2 image, which is what I've been using up until now. I'm adding PluggableButtonMorph objects to an AlignmentMorph, which is then added to a SystemWindowWithButton. Has something about these things changed between 3.10.2 and 4.1? Thanks, Jon

3 4

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

04 Jul '10

Changes to Trunk (http://source.squeak.org/trunk.html) in the last 24 hours: http://lists.squeakfoundation.org/pipermail/packages/2010-July/003511.html Name: System-cmm.347 Ancestors: System-ul.346 Fixed ability to revert a method. ============================================= http://lists.squeakfoundation.org/pipermail/packages/2010-July/003512.html Name: Morphic-cmm.452 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. ============================================= http://lists.squeakfoundation.org/pipermail/packages/2010-July/003513.html Name: System-eem.348 Ancestors: System-cmm.347 Flush the class name cache when removing keys from Smalltalk globals ============================================= http://lists.squeakfoundation.org/pipermail/packages/2010-July/003514.html Name: Tools-eem.251 Ancestors: Tools-eem.250 Fix MessageNames for references to non-selectors. ============================================= http://lists.squeakfoundation.org/pipermail/packages/2010-July/003515.html Name: GraphicsTests-wiz.25 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 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." ============================================= http://lists.squeakfoundation.org/pipermail/packages/2010-July/003516.html Name: Graphics-wiz.141 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 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." ============================================= http://lists.squeakfoundation.org/pipermail/packages/2010-July/003517.html Name: Morphic-cmm.453 Ancestors: Morphic-cmm.452 Added "Auto Enclose" preference. When true, typing an opening parenthesis, bracket or square-bracket will also add its corresponding closing character in front of the cursor. =============================================

1 0

Squeak joins the Software Freedom Conservancy
by Andreas Raab 04 Jul '10

04 Jul '10

[see also http://board.squeak.org/2010/07/01/squeak-joins-the-software-freedom-conser… ] Squeak joins the Software Freedom Conservancy The Squeak Oversight Board is excited to announce that Squeak is now a member of the Software Freedom Conservancy[1]. The Software Freedom Conservancy is an organization composed of Free and Open Source Software (FOSS) projects. As a fiscal sponsor for FOSS projects, the Conservancy provides member projects with free financial and administrative services, but does not involve itself with technological and artistic decisions. By joining the Conservancy, Squeak obtains the benefits of a formal legal structure while keeping focused on software development. The benefits of joining the Conservancy include, most notably, the ability to collect donations and protection from personal liability for the developers of the project. Another benefit of joining the Conservancy is we can use it to hold assets, which are managed by the Conservancy on behalf of and at the direction of the Squeak Oversight Board. The Conservancy is a tax-exempt 501(c)(3) organization, so member projects can receive tax-deductible donations to the extent allowed by law. [1] http://sfconservancy.org/overview/

11 10

The Trunk: Morphic-cmm.453.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.453.mcz ==================== Summary ==================== Name: Morphic-cmm.453 Author: cmm Time: 3 July 2010, 4:20:46.206 pm UUID: ad89ffef-f10d-4ab5-853f-c2a12140ccd6 Ancestors: Morphic-cmm.452 Added "Auto Enclose" preference. When true, typing an opening parenthesis, bracket or square-bracket will also add its corresponding closing character in front of the cursor. =============== Diff against Morphic-cmm.452 =============== Item was added: + ----- Method: Editor>>moveCursor:forward:specialBlock:select: (in category 'private') ----- + moveCursor: directionBlock forward: forward specialBlock: specialBlock select: shouldSelect + "Private - Move cursor. + directionBlock is a one argument Block that computes the new Position from a given one. + specialBlock is a one argumentBlock that computes the new position from a given one under the alternate semantics. + Note that directionBlock always is evaluated first." + | indices newPosition | + indices := self setIndices: shouldSelect forward: forward. + newPosition := directionBlock value: (indices at: #moving). + (sensor commandKeyPressed or:[sensor controlKeyPressed]) + ifTrue: [newPosition := specialBlock value: newPosition]. + sensor keyboard. + shouldSelect + ifTrue: [self selectMark: (indices at: #fixed) point: newPosition - 1] + ifFalse: [self selectAt: newPosition]! Item was changed: ----- Method: Editor>>moveCursor:forward:specialBlock: (in category 'private') ----- + moveCursor: directionBlock forward: forward specialBlock: specialBlock - moveCursor: directionBlock forward: forward specialBlock: specialBlock "Private - Move cursor. directionBlock is a one argument Block that computes the new Position from a given one. specialBlock is a one argumentBlock that computes the new position from a given one under the alternate semantics. Note that directionBlock always is evaluated first." + ^ self + moveCursor: directionBlock + forward: forward + specialBlock: specialBlock + select: sensor leftShiftDown! - | shift indices newPosition | - shift := sensor leftShiftDown. - indices := self setIndices: shift forward: forward. - newPosition := directionBlock value: (indices at: #moving). - (sensor commandKeyPressed or:[sensor controlKeyPressed]) - ifTrue: [newPosition := specialBlock value: newPosition]. - sensor keyboard. - shift - ifTrue: [self selectMark: (indices at: #fixed) point: newPosition - 1] - ifFalse: [self selectAt: newPosition]! Item was changed: ----- Method: TextEditor>>dispatchOnCharacter:with: (in category 'typing support') ----- dispatchOnCharacter: char with: typeAheadStream "Carry out the action associated with this character, if any. Type-ahead is passed so some routines can flush or use it." + | honorCommandKeys openers closers result | - | honorCommandKeys | ((char == Character cr) and: [morph acceptOnCR]) ifTrue: [ sensor keyboard. "Gobble cr -- probably unnecessary." self closeTypeIn. ^ true]. self clearParens. char asciiValue = 13 ifTrue: [ sensor controlKeyPressed ifTrue: [ ^ self normalCharacter: typeAheadStream ]. sensor leftShiftDown ifTrue: [ ^ self lf: typeAheadStream ]. sensor commandKeyPressed ifTrue: [ ^ self crlf: typeAheadStream ]. ^ self crWithIndent: typeAheadStream ]. ((honorCommandKeys := Preferences cmdKeysInText) and: [char = Character enter]) ifTrue: [^ self dispatchOnEnterWith: typeAheadStream]. "Special keys overwrite crtl+key combinations - at least on Windows. To resolve this conflict, assume that keys other than cursor keys aren't used together with Crtl." ((self class specialShiftCmdKeys includes: char asciiValue) and: [char asciiValue < 27]) ifTrue: [^ sensor controlKeyPressed ifTrue: [self perform: (self class shiftCmdActions at: char asciiValue + 1) with: typeAheadStream] ifFalse: [self perform: (self class cmdActions at: char asciiValue + 1) with: typeAheadStream]]. "backspace, and escape keys (ascii 8 and 27) are command keys" ((honorCommandKeys and: [sensor commandKeyPressed]) or: [self class specialShiftCmdKeys includes: char asciiValue]) ifTrue: [^ sensor leftShiftDown ifTrue: [ self perform: (self class shiftCmdActions at: char asciiValue + 1) with: typeAheadStream] ifFalse: [ self perform: (self class cmdActions at: char asciiValue + 1) with: typeAheadStream]]. "the control key can be used to invoke shift-cmd shortcuts" (honorCommandKeys and: [sensor controlKeyPressed]) ifTrue: [ ^ self perform: (self class shiftCmdActions at: char asciiValue + 1) with: typeAheadStream]. + openers := '([{'. closers := ')]}'. + (closers includes: char) ifTrue: [self blinkPrevParen]. - (')]}' includes: char) - ifTrue: [self blinkPrevParen]. + result := self normalCharacter: typeAheadStream. + + (self class autoEnclose and: [ openers includes: char ]) + ifTrue: + [ typeAheadStream nextPut: (closers at: (openers indexOf: char)). + self insertTypeAhead: typeAheadStream. + self moveCursor: [ : position | position-1 ] forward: false specialBlock: [ : pos | "no special behavior" ] select: false ]. + + ^ result! - ^ self normalCharacter: typeAheadStream! Item was added: + ----- Method: TextEditor class>>autoEnclose: (in category 'accessing') ----- + autoEnclose: aBoolean + AutoEnclose := aBoolean! Item was changed: Editor subclass: #TextEditor instanceVariableNames: 'model paragraph pointBlock markBlock beginTypeInBlock emphasisHere otherInterval lastParenLocation oldInterval' + classVariableNames: 'AutoEnclose AutoIndent ChangeText FindText UndoInterval UndoMessage UndoParagraph UndoSelection Undone' - classVariableNames: 'AutoIndent ChangeText FindText UndoInterval UndoMessage UndoParagraph UndoSelection Undone' poolDictionaries: '' category: 'Morphic-Text Support'! TextEditor class instanceVariableNames: 'cmdActions shiftCmdActions yellowButtonMenu shiftedYellowButtonMenu'! !TextEditor commentStamp: '<historical>' prior: 0! See comment in Editor. My instances edit Text, this is, they support multiple lines and TextAttributes. They have no specific facilities for editing Smalltalk code. Those are found in SmalltalkEditor.! TextEditor class instanceVariableNames: 'cmdActions shiftCmdActions yellowButtonMenu shiftedYellowButtonMenu'! Item was added: + ----- Method: TextEditor class>>autoEnclose (in category 'accessing') ----- + autoEnclose + <preference: 'Auto Enclose' + category: 'Morphic' + description: 'When true, typing an opening parenthesis, bracket or square-bracket will also add its corresponding closing character in front of the cursor.' + type: #Boolean> + ^ AutoEnclose ifNil: [ false ]!

1 0

Re: [squeak-dev] The Inbox: Graphics-wiz.141.mcz
by David T. Lewis 03 Jul '10

03 Jul '10

I moved these from inbox to trunk. Mantis 6596 was already set to closed, so no update needed there. Set related Mantis issue 7540 to resolved. Dave On Sat, Jul 03, 2010 at 03:36:05AM +0000, commits(a)source.squeak.org wrote: > 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." >

1 0

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

03 Jul '10

David T. Lewis uploaded a new version of Graphics to project The Trunk: http://source.squeak.org/trunk/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 Trunk: GraphicsTests-wiz.25.mcz
by commits＠source.squeak.org 03 Jul '10

03 Jul '10

David T. Lewis uploaded a new version of GraphicsTests to project The Trunk: http://source.squeak.org/trunk/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

← Newer
1
...
17
18
19
20
21
22
23
24
Older →

Jump to page: