Squeak-dev April 2012

squeak-dev@lists.squeakfoundation.org

56 participants
149 discussions

Atari Alan Kay
by Chris Cunnington 15 Apr '12

15 Apr '12

http://io9.com/5902010/atari-illustrations-predicted-wikipedia-in-1982 "In 1982, Atari Alan Kay collaborated with Bob Stein, who had consulted on the Encyclopedia Britannica, to develop concepts for an "Intelligent Encyclopedia." They then commissioned Disney illustrator Glenn Keane to illustrate their ideas." I had to read that twice: "Atari Alan Kay". Like "Wild Bill Hickok"? Interesting stuff, at any rate. Chris

2 1

Re: [squeak-dev] The Trunk: Morphic-bf.618.mcz
by Chris Muller 14 Apr '12

14 Apr '12

Awesome! Thanks Bert! On Fri, Apr 13, 2012 at 6:34 PM, <commits(a)source.squeak.org> wrote: > Bert Freudenberg uploaded a new version of Morphic to project The Trunk: > http://source.squeak.org/trunk/Morphic-bf.618.mcz > > ==================== Summary ==================== > > Name: Morphic-bf.618 > Author: bf > Time: 13 April 2012, 4:34:16.297 pm > UUID: 0ab6bc05-3abd-458f-8af2-fc9d6c42d769 > Ancestors: Morphic-eem.617 > > Fix keyboard filtering in PluggableListMorphOfMany (e.g., the TestRunner's class list) > > =============== Diff against Morphic-eem.617 =============== > > Item was changed: > ----- Method: PluggableListMorph>>update: (in category 'updating') ----- > update: aSymbol > "Refer to the comment in View|update:." > aSymbol == getListSelector ifTrue: > [ self updateList. > ^ self ]. > aSymbol == getIndexSelector ifTrue: > [ | uiIndex modelIndex | > uiIndex := self uiIndexFor: (modelIndex := self getCurrentSelectionIndex). > self selectionIndex: > (uiIndex = 0 > ifTrue: > [ "The filter is preventing us from selecting the item we want - remove it." > + (modelIndex > 0 and: [list notNil and: [list size > 0]]) ifTrue: [ self removeFilter ]. > - (list notNil and: [list size > 0]) ifTrue: [ self removeFilter ]. > modelIndex ] > ifFalse: [ uiIndex ]). > ^ self ]! > > Item was changed: > ----- Method: PluggableListMorphOfMany>>itemSelectedAmongMultiple: (in category 'model access') ----- > itemSelectedAmongMultiple: index > + ^self listSelectionAt: (self modelIndexFor: index)! > - ^self listSelectionAt: index! > > Item was changed: > ----- Method: PluggableListMorphOfMany>>mouseDown: (in category 'event handling') ----- > mouseDown: event > + | oldIndex oldVal row index | > - | oldIndex oldVal row | > event yellowButtonPressed ifTrue: [^ self yellowButtonActivity: event shiftPressed]. > row := self rowAtLocation: event position. > > row = 0 ifTrue: [^super mouseDown: event]. > + index := self modelIndexFor: row. > > model okToChange ifFalse: [^ self]. "No change if model is locked" > > "Set meaning for subsequent dragging of selection" > + dragOnOrOff := (self listSelectionAt: index) not. > - dragOnOrOff := (self listSelectionAt: row) not. > oldIndex := self getCurrentSelectionIndex. > oldIndex ~= 0 ifTrue: [oldVal := self listSelectionAt: oldIndex]. > > "Set or clear new primary selection (listIndex)" > dragOnOrOff > + ifTrue: [self changeModelSelection: index] > - ifTrue: [self changeModelSelection: (self modelIndexFor: row)] > ifFalse: [self changeModelSelection: 0]. > > "Need to restore the old one, due to how model works, and set new one." > oldIndex ~= 0 ifTrue: [self listSelectionAt: oldIndex put: oldVal]. > + self listSelectionAt: index put: dragOnOrOff. > - self listSelectionAt: row put: dragOnOrOff. > "event hand releaseMouseFocus: aMorph." > + ! > - "aMorph changed"! > > Item was changed: > ----- Method: PluggableListMorphOfMany>>mouseMove: (in category 'event handling') ----- > mouseMove: event > "The mouse has moved, as characterized by the event provided. Adjust the scrollbar, and alter the selection as appropriate" > > + | oldIndex oldVal row index | > - | oldIndex oldVal row | > event position y < self top > ifTrue: > [scrollBar scrollUp: 1. > row := self rowAtLocation: scroller topLeft + (1 @ 1)] > ifFalse: > [row := event position y > self bottom > ifTrue: > [scrollBar scrollDown: 1. > self rowAtLocation: scroller bottomLeft + (1 @ -1)] > ifFalse: [ self rowAtLocation: event position]]. > row = 0 ifTrue: [^super mouseDown: event]. > + index := self modelIndexFor: row. > > model okToChange ifFalse: [^self]. "No change if model is locked" > > dragOnOrOff ifNil: > ["Was not set at mouse down, which means the mouse must have gone down in an area where there was no list item" > + dragOnOrOff := (self listSelectionAt: index) not]. > - dragOnOrOff := (self listSelectionAt: row) not]. > > "Set meaning for subsequent dragging of selection" > oldIndex := self getCurrentSelectionIndex. > oldIndex ~= 0 ifTrue: [oldVal := self listSelectionAt: oldIndex]. > > "Set or clear new primary selection (listIndex)" > dragOnOrOff > + ifTrue: [self changeModelSelection: index] > - ifTrue: [self changeModelSelection: (self modelIndexFor: row)] > ifFalse: [self changeModelSelection: 0]. > > "Need to restore the old one, due to how model works, and set new one." > oldIndex ~= 0 ifTrue: [self listSelectionAt: oldIndex put: oldVal]. > + self listSelectionAt: index put: dragOnOrOff. > + ! > - self listSelectionAt: row put: dragOnOrOff. > - row changed! > >

2 2

GSoC news: 13 stipendiums!
by Janko Mivšek 14 Apr '12

14 Apr '12

Dear Smalltalkers, Wonderful news, we got 13 "slots" from Google, that is, 13 students and their proposals will be accepted for Google and they will receive stipendiums if they will do their projects right. More exactly, part of 4500 USD immediately, part after interim evaluation and part at successful finish of their projects. We have currently 18 paired projects, that is, projects paired with one student among their many proposals. You can see that from project table, see which are currently accepted (column Acc.): http://gsoc2012.esug.org/projects?view=projectTable Now mentors need to review and score those 18 project proposals to indicate which are the best among all that nice proposals and to come with number down to 13. This will happen until next Friday 20.April, when we will finally decide, which 13 students to accept. Google will then officially confirm them in few days after. Best regards Janko & Carla -- Smalltalk GSoC Admin Team http://gsoc2012.esug.org

3 2

interesting IDE video. Surely the smalltalk community can do as well, or better...
by Lawson English 14 Apr '12

14 Apr '12

http://www.chris-granger.com/2012/04/12/light-table---a-new-ide-concept/ L

2 1

interesting IDE video. Surely the smalltalk community can do as well, or better...
by Chris Cunnington 14 Apr '12

14 Apr '12

>Yes, but/our/code was entirely in these utterly unusable changeset files that couldn't work nicely with the version control that everyone else >in the entire world was using; his version still uses files under the hood. There's a team that's trying to back Monticello with Git, I believe by >saving each method into its own file in part of a Git source tree; that looks promising as a compromise. Pharo mailing list? VW mailing list? VA mailing list? Nope. YCombinator. Right now. http://news.ycombinator.com/item?id=3836978 It may be that people are a tad more aware of us what we do than we suppose. Chris

1 0

Daily Commit Log
by commits＠source.squeak.org 14 Apr '12

14 Apr '12

Changes to Trunk (http://source.squeak.org/trunk.html) in the last 24 hours: http://lists.squeakfoundation.org/pipermail/packages/2012-April/005289.html Name: Monticello-eem.501 Ancestors: Monticello-bf.500 In the working copy browser's repoisitory list, make load/save repositories & flush cached versions available when no repository is selected (since these apply to all repositories). Also group them at the end of the menu when a repository is selected to indicate they apply to all. Add a line to be nice. ============================================= http://lists.squeakfoundation.org/pipermail/packages/2012-April/005290.html Name: Monticello-eem.502 Ancestors: Monticello-eem.501 Better menu augmentation In the working copy browser's repository list; store diffs/full versions applies to a specific repository. ============================================= http://lists.squeakfoundation.org/pipermail/packages/2012-April/005291.html Name: Morphic-bf.618 Ancestors: Morphic-eem.617 Fix keyboard filtering in PluggableListMorphOfMany (e.g., the TestRunner's class list) =============================================

1 0

The Trunk: Morphic-bf.618.mcz
by commits＠source.squeak.org 14 Apr '12

14 Apr '12

Bert Freudenberg uploaded a new version of Morphic to project The Trunk: http://source.squeak.org/trunk/Morphic-bf.618.mcz ==================== Summary ==================== Name: Morphic-bf.618 Author: bf Time: 13 April 2012, 4:34:16.297 pm UUID: 0ab6bc05-3abd-458f-8af2-fc9d6c42d769 Ancestors: Morphic-eem.617 Fix keyboard filtering in PluggableListMorphOfMany (e.g., the TestRunner's class list) =============== Diff against Morphic-eem.617 =============== Item was changed: ----- Method: PluggableListMorph>>update: (in category 'updating') ----- update: aSymbol "Refer to the comment in View|update:." aSymbol == getListSelector ifTrue: [ self updateList. ^ self ]. aSymbol == getIndexSelector ifTrue: [ | uiIndex modelIndex | uiIndex := self uiIndexFor: (modelIndex := self getCurrentSelectionIndex). self selectionIndex: (uiIndex = 0 ifTrue: [ "The filter is preventing us from selecting the item we want - remove it." + (modelIndex > 0 and: [list notNil and: [list size > 0]]) ifTrue: [ self removeFilter ]. - (list notNil and: [list size > 0]) ifTrue: [ self removeFilter ]. modelIndex ] ifFalse: [ uiIndex ]). ^ self ]! Item was changed: ----- Method: PluggableListMorphOfMany>>itemSelectedAmongMultiple: (in category 'model access') ----- itemSelectedAmongMultiple: index + ^self listSelectionAt: (self modelIndexFor: index)! - ^self listSelectionAt: index! Item was changed: ----- Method: PluggableListMorphOfMany>>mouseDown: (in category 'event handling') ----- mouseDown: event + | oldIndex oldVal row index | - | oldIndex oldVal row | event yellowButtonPressed ifTrue: [^ self yellowButtonActivity: event shiftPressed]. row := self rowAtLocation: event position. row = 0 ifTrue: [^super mouseDown: event]. + index := self modelIndexFor: row. model okToChange ifFalse: [^ self]. "No change if model is locked" "Set meaning for subsequent dragging of selection" + dragOnOrOff := (self listSelectionAt: index) not. - dragOnOrOff := (self listSelectionAt: row) not. oldIndex := self getCurrentSelectionIndex. oldIndex ~= 0 ifTrue: [oldVal := self listSelectionAt: oldIndex]. "Set or clear new primary selection (listIndex)" dragOnOrOff + ifTrue: [self changeModelSelection: index] - ifTrue: [self changeModelSelection: (self modelIndexFor: row)] ifFalse: [self changeModelSelection: 0]. "Need to restore the old one, due to how model works, and set new one." oldIndex ~= 0 ifTrue: [self listSelectionAt: oldIndex put: oldVal]. + self listSelectionAt: index put: dragOnOrOff. - self listSelectionAt: row put: dragOnOrOff. "event hand releaseMouseFocus: aMorph." + ! - "aMorph changed"! Item was changed: ----- Method: PluggableListMorphOfMany>>mouseMove: (in category 'event handling') ----- mouseMove: event "The mouse has moved, as characterized by the event provided. Adjust the scrollbar, and alter the selection as appropriate" + | oldIndex oldVal row index | - | oldIndex oldVal row | event position y < self top ifTrue: [scrollBar scrollUp: 1. row := self rowAtLocation: scroller topLeft + (1 @ 1)] ifFalse: [row := event position y > self bottom ifTrue: [scrollBar scrollDown: 1. self rowAtLocation: scroller bottomLeft + (1 @ -1)] ifFalse: [ self rowAtLocation: event position]]. row = 0 ifTrue: [^super mouseDown: event]. + index := self modelIndexFor: row. model okToChange ifFalse: [^self]. "No change if model is locked" dragOnOrOff ifNil: ["Was not set at mouse down, which means the mouse must have gone down in an area where there was no list item" + dragOnOrOff := (self listSelectionAt: index) not]. - dragOnOrOff := (self listSelectionAt: row) not]. "Set meaning for subsequent dragging of selection" oldIndex := self getCurrentSelectionIndex. oldIndex ~= 0 ifTrue: [oldVal := self listSelectionAt: oldIndex]. "Set or clear new primary selection (listIndex)" dragOnOrOff + ifTrue: [self changeModelSelection: index] - ifTrue: [self changeModelSelection: (self modelIndexFor: row)] ifFalse: [self changeModelSelection: 0]. "Need to restore the old one, due to how model works, and set new one." oldIndex ~= 0 ifTrue: [self listSelectionAt: oldIndex put: oldVal]. + self listSelectionAt: index put: dragOnOrOff. + ! - self listSelectionAt: row put: dragOnOrOff. - row changed!

1 0

[ELECTION] Candidates finalized
by Göran Krampe 14 Apr '12

14 Apr '12

Hi all! (This day has been hectic for me so sorry for the lateness of things) All candidates have now announced their candidacy on squeak-dev and this is the final list in announcement order: -Craig Latta -Chris Muller -Randal Schwartz -Chris Cunnington -Colin Putney -Bert Freudenberg -Edgar De Cleene -Levente Uzonyi The board normally consists of 7 members and since the current board has not changed this the election will proceed and produce a ranked list so that one of the candidates will be left out. The election will start within the hour and ballots will be automatically sent out. This delay in starting the election will not change the deadline of the election, it will end as advertised earlier, see: http://wiki.squeak.org/squeak/6187 regards, Göran

2 1

The Trunk: Monticello-eem.502.mcz
by commits＠source.squeak.org 13 Apr '12

13 Apr '12

Eliot Miranda uploaded a new version of Monticello to project The Trunk: http://source.squeak.org/trunk/Monticello-eem.502.mcz ==================== Summary ==================== Name: Monticello-eem.502 Author: eem Time: 13 April 2012, 10:30:14.852 am UUID: cad6b50f-5157-4c67-9546-6c788b3a4abd Ancestors: Monticello-eem.501 Better menu augmentation In the working copy browser's repository list; store diffs/full versions applies to a specific repository. =============== Diff against Monticello-eem.501 =============== Item was changed: ----- Method: MCWorkingCopyBrowser>>repositoryListMenu: (in category 'morphic ui') ----- repositoryListMenu: aMenu + "first add repository-specific commands" + self repository ifNotNil: + [self fillMenu: aMenu fromSpecs: + #(('open repository' #openRepository) + ('edit repository info' #editRepository) + ('add to package...' #addRepositoryToPackage) + ('remove repository' #removeRepository) + ('copy image versions here' #copyImageVersions)). + aMenu + add: (self repository alwaysStoreDiffs + ifTrue: ['store full versions'] + ifFalse: ['store diffs']) + target: self + selector: #toggleDiffs; + addLine]. + "then the non-specific commands" + ^self fillMenu: aMenu fromSpecs: - self repository ifNil: - [^self fillMenu: aMenu fromSpecs: #( ('load repositories' #loadRepositories) ('save repositories' #saveRepositories) + ('flush cached versions' #flushAllCaches))! - ('flush cached versions' #flushAllCaches))]. - self fillMenu: aMenu fromSpecs: - #(('open repository' #openRepository) - ('edit repository info' #editRepository) - ('add to package...' #addRepositoryToPackage) - ('remove repository' #removeRepository) - ('copy image versions here' #copyImageVersions) - #addLine - ('load repositories' #loadRepositories) - ('save repositories' #saveRepositories) - ('flush cached versions' #flushAllCaches)). - aMenu - add: (self repository alwaysStoreDiffs - ifTrue: ['store full versions'] - ifFalse: ['store diffs']) - target: self - selector: #toggleDiffs. - ^ aMenu - !

1 0

The Trunk: Monticello-eem.501.mcz
by commits＠source.squeak.org 13 Apr '12

13 Apr '12

Eliot Miranda uploaded a new version of Monticello to project The Trunk: http://source.squeak.org/trunk/Monticello-eem.501.mcz ==================== Summary ==================== Name: Monticello-eem.501 Author: eem Time: 13 April 2012, 10:23:47.129 am UUID: 67c398f4-47b9-47eb-b0a2-f3cfd2323058 Ancestors: Monticello-bf.500 In the working copy browser's repoisitory list, make load/save repositories & flush cached versions available when no repository is selected (since these apply to all repositories). Also group them at the end of the menu when a repository is selected to indicate they apply to all. Add a line to be nice. =============== Diff against Monticello-bf.500 =============== Item was changed: ----- Method: MCTool>>fillMenu:fromSpecs: (in category 'morphic ui') ----- fillMenu: aMenu fromSpecs: anArray anArray do: [:spec | + spec == #addLine + ifTrue: [aMenu addLine] + ifFalse: + [aMenu + add: spec first + target: self + selector: spec second + argumentList: (spec allButFirst: 2)]]. + ^aMenu! - aMenu add: spec first target: self selector: spec second argumentList: (spec allButFirst: 2)]. - ^ aMenu! Item was changed: ----- Method: MCWorkingCopyBrowser>>repositoryListMenu: (in category 'morphic ui') ----- repositoryListMenu: aMenu + self repository ifNil: + [^self fillMenu: aMenu fromSpecs: + #( ('load repositories' #loadRepositories) + ('save repositories' #saveRepositories) + ('flush cached versions' #flushAllCaches))]. - self repository ifNil: [^ aMenu]. self fillMenu: aMenu fromSpecs: #(('open repository' #openRepository) ('edit repository info' #editRepository) ('add to package...' #addRepositoryToPackage) + ('remove repository' #removeRepository) - ('remove repository' #removeRepository) - ('load repositories' #loadRepositories) - ('save repositories' #saveRepositories) - ('flush cached versions' #flushAllCaches) ('copy image versions here' #copyImageVersions) + #addLine + ('load repositories' #loadRepositories) + ('save repositories' #saveRepositories) + ('flush cached versions' #flushAllCaches)). + aMenu - ). - aMenu add: (self repository alwaysStoreDiffs ifTrue: ['store full versions'] ifFalse: ['store diffs']) target: self selector: #toggleDiffs. ^ aMenu !

1 0

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

Jump to page: