Squeak-dev December 2011

squeak-dev@lists.squeakfoundation.org

52 participants
175 discussions

[OT] Germany in January
by Yoshiki Ohshima 25 Dec '11

25 Dec '11

Hi, I will have a free day around Jan. 7th in the western part of Germany. Combined with sightseeing, I'd like to meet up with some squeakers somewhere in that region (I think two hours train ride from/to Frankfurt is acceptable). Please let me know in a private email if somebody has tiem for it. Thanks! -- Yoshiki

1 0

Some observations about 4.3 final
by Edgar J. De Cleene 25 Dec '11

25 Dec '11

> Flaps > To enable Flaps, click on the desktop to show the world menu, choose the > "Flaps..." menu and "show shared tags". Tabs labeled "Squeak", "Tools", > "Supplies", etc., will appear along the edges of the Squeak desktop. Click on > any tab to open the corresponding flap. Drag a tab to resize the flap and to > relocate the tab. Bring up the halo on any tab and click on its menu handle > to be presented with many options relating to the flap. Use the "Flaps..." > menu, reached via the desktop menu, to control which flaps are visible and for > other flap-related options and assistance. For nostalgic people of 3.6 like me, we could add For the old navigator of older Squeak we type in a Workspace and do it Flaps makeNavigatorFlapResembleGoldenBar > SMxMorphicProject now able to host a SimpleMorphic World > - when present a SMxMorphicProject is made available in the World menu No indications how or where we get a SimpleMorphic World. MCHttpRepository location: 'http://www.squeaksource.com/SimpleMorphicSqueak' user: '' password: '' > - A SqueakCore image is available at http://ftp.squeak.org/4.3 No, a previous one is available in http://ftp.squeak.org/4.3alpha/SqueakCore4.3alpha-11722.zip Edgar

1 0

Daily Commit Log
by commits＠source.squeak.org 25 Dec '11

25 Dec '11

Changes to Trunk (http://source.squeak.org/trunk.html) in the last 24 hours: http://lists.squeakfoundation.org/pipermail/packages/2011-December/005150.h… Name: Morphic-cmm.577 Ancestors: Morphic-cmm.576 - When using the new list-filtering, if the user's keystroke will cause filtering to an empty list, then flash rather than present an empty list. - Preserve 300ms "slow-keystroke" timing for when the legacy preference is engaged for filterableLists. That way, in case someone wants to press, t -- t -- t to go to the third in the list that starts with 't', they will only have to wait 300ms in between presses. - Order the items with front-matching items at the top of the list, and substring-matches below that. =============================================

1 0

Re: [squeak-dev] The Trunk: Morphic-cmm.577.mcz
by Chris Muller 24 Dec '11

24 Dec '11

This is just an old version I just noticed had never been deleted out of the Inbox. Moved it to trunk. On Sat, Dec 24, 2011 at 2:49 PM, <commits(a)source.squeak.org> wrote: > Chris Muller uploaded a new version of Morphic to project The Trunk: > http://source.squeak.org/trunk/Morphic-cmm.577.mcz > > ==================== Summary ==================== > > Name: Morphic-cmm.577 > Author: cmm > Time: 29 August 2011, 9:09:42.052 pm > UUID: 5227dddb-7836-46d3-9522-a96776d7035c > Ancestors: Morphic-cmm.576 > > - When using the new list-filtering, if the user's keystroke will cause filtering to an empty list, then flash rather than present an empty list. > - Preserve 300ms "slow-keystroke" timing for when the legacy preference is engaged for filterableLists. That way, in case someone wants to press, t -- t -- t to go to the third in the list that starts with 't', they will only have to wait 300ms in between presses. > - Order the items with front-matching items at the top of the list, and substring-matches below that. > > =============== Diff against Morphic-cmm.576 =============== > > Item was changed: > ----- Method: PluggableListMorph>>basicKeyPressed: (in category 'model access') ----- > basicKeyPressed: aChar > | milliseconds slowKeyStroke listSize newSelectionIndex oldSelectionIndex startIndex | > oldSelectionIndex := newSelectionIndex := self getCurrentSelectionIndex. > listSize := self getListSize. > milliseconds := Time millisecondClockValue. > slowKeyStroke := (Time > milliseconds: milliseconds > + since: lastKeystrokeTime) > (self class filterableLists ifTrue: [500] ifFalse: [ 300 ]). > - since: lastKeystrokeTime) > 500. > lastKeystrokeTime := milliseconds. > slowKeyStroke > ifTrue: > [ "forget previous keystrokes and search in following elements" > lastKeystrokes := aChar asLowercase asString. > + newSelectionIndex := newSelectionIndex \\ listSize + 1. > + self class filterableLists ifTrue: [ list := self getFullList ] ] > - newSelectionIndex := newSelectionIndex \\ listSize + 1 ] > ifFalse: [ "append quick keystrokes but don't move selection if it still matches" > lastKeystrokes := lastKeystrokes , aChar asLowercase asString ]. > "No change if model is locked" > model okToChange ifFalse: [ ^ self ]. > self class filterableLists > ifTrue: > [ self > filterList ; > updateList. > newSelectionIndex := self modelIndexFor: 1 ] > ifFalse: > [ startIndex := newSelectionIndex. > listSize := self getListSize. > [ (self getListItem: newSelectionIndex) asString withBlanksTrimmed asLowercase beginsWith: lastKeystrokes ] whileFalse: > [ (newSelectionIndex := newSelectionIndex \\ listSize + 1) = startIndex ifTrue: [ ^ self flash"Not in list." ] ]. > newSelectionIndex = oldSelectionIndex ifTrue: [ ^ self flash ] ]. > + (self hasFilter and: [(self getCurrentSelectionIndex = newSelectionIndex) not]) ifTrue: > - self getCurrentSelectionIndex = newSelectionIndex ifFalse: > [self changeModelSelection: newSelectionIndex]! > > Item was changed: > ----- Method: PluggableListMorph>>filterList (in category 'filtering') ----- > filterList > self hasFilter > ifTrue: > + [ | frontMatching substringMatching newList | > + self indicateFiltered. > + frontMatching := OrderedCollection new. > + substringMatching := OrderedCollection new. > + list withIndexDo: > + [ : each : n | | foundPos | > + foundPos := each asString > + findString: lastKeystrokes > + startingAt: 1 > + caseSensitive: false. > + foundPos = 1 > + ifTrue: [ frontMatching add: each ] > + ifFalse: > + [ foundPos = 0 ifFalse: [ substringMatching add: each ] ] ]. > + newList := frontMatching , substringMatching. > + newList > + ifEmpty: > + [ lastKeystrokes := lastKeystrokes allButLast: 1. > + self > + flash ; > + filterList ] > + ifNotEmpty: [ list := newList ] ] > - [ self indicateFiltered. > - list := Array streamContents: > - [ : stream | list withIndexDo: > - [ : each : n | (each asString > - includesSubstring: lastKeystrokes > - caseSensitive: false) ifTrue: [ stream nextPut: each ] ] ] ] > ifFalse: [ self indicateUnfiltered ]! > > 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." > + (list notNil and: [list size > 0]) ifTrue: [ self removeFilter ]. > - list size > 0 ifTrue: [ self removeFilter ]. > modelIndex ] > ifFalse: [ uiIndex ]). > ^ self ]! > >

1 0

The Trunk: Morphic-cmm.577.mcz
by commits＠source.squeak.org 24 Dec '11

24 Dec '11

Chris Muller uploaded a new version of Morphic to project The Trunk: http://source.squeak.org/trunk/Morphic-cmm.577.mcz ==================== Summary ==================== Name: Morphic-cmm.577 Author: cmm Time: 29 August 2011, 9:09:42.052 pm UUID: 5227dddb-7836-46d3-9522-a96776d7035c Ancestors: Morphic-cmm.576 - When using the new list-filtering, if the user's keystroke will cause filtering to an empty list, then flash rather than present an empty list. - Preserve 300ms "slow-keystroke" timing for when the legacy preference is engaged for filterableLists. That way, in case someone wants to press, t -- t -- t to go to the third in the list that starts with 't', they will only have to wait 300ms in between presses. - Order the items with front-matching items at the top of the list, and substring-matches below that. =============== Diff against Morphic-cmm.576 =============== Item was changed: ----- Method: PluggableListMorph>>basicKeyPressed: (in category 'model access') ----- basicKeyPressed: aChar | milliseconds slowKeyStroke listSize newSelectionIndex oldSelectionIndex startIndex | oldSelectionIndex := newSelectionIndex := self getCurrentSelectionIndex. listSize := self getListSize. milliseconds := Time millisecondClockValue. slowKeyStroke := (Time milliseconds: milliseconds + since: lastKeystrokeTime) > (self class filterableLists ifTrue: [500] ifFalse: [ 300 ]). - since: lastKeystrokeTime) > 500. lastKeystrokeTime := milliseconds. slowKeyStroke ifTrue: [ "forget previous keystrokes and search in following elements" lastKeystrokes := aChar asLowercase asString. + newSelectionIndex := newSelectionIndex \\ listSize + 1. + self class filterableLists ifTrue: [ list := self getFullList ] ] - newSelectionIndex := newSelectionIndex \\ listSize + 1 ] ifFalse: [ "append quick keystrokes but don't move selection if it still matches" lastKeystrokes := lastKeystrokes , aChar asLowercase asString ]. "No change if model is locked" model okToChange ifFalse: [ ^ self ]. self class filterableLists ifTrue: [ self filterList ; updateList. newSelectionIndex := self modelIndexFor: 1 ] ifFalse: [ startIndex := newSelectionIndex. listSize := self getListSize. [ (self getListItem: newSelectionIndex) asString withBlanksTrimmed asLowercase beginsWith: lastKeystrokes ] whileFalse: [ (newSelectionIndex := newSelectionIndex \\ listSize + 1) = startIndex ifTrue: [ ^ self flash"Not in list." ] ]. newSelectionIndex = oldSelectionIndex ifTrue: [ ^ self flash ] ]. + (self hasFilter and: [(self getCurrentSelectionIndex = newSelectionIndex) not]) ifTrue: - self getCurrentSelectionIndex = newSelectionIndex ifFalse: [self changeModelSelection: newSelectionIndex]! Item was changed: ----- Method: PluggableListMorph>>filterList (in category 'filtering') ----- filterList self hasFilter ifTrue: + [ | frontMatching substringMatching newList | + self indicateFiltered. + frontMatching := OrderedCollection new. + substringMatching := OrderedCollection new. + list withIndexDo: + [ : each : n | | foundPos | + foundPos := each asString + findString: lastKeystrokes + startingAt: 1 + caseSensitive: false. + foundPos = 1 + ifTrue: [ frontMatching add: each ] + ifFalse: + [ foundPos = 0 ifFalse: [ substringMatching add: each ] ] ]. + newList := frontMatching , substringMatching. + newList + ifEmpty: + [ lastKeystrokes := lastKeystrokes allButLast: 1. + self + flash ; + filterList ] + ifNotEmpty: [ list := newList ] ] - [ self indicateFiltered. - list := Array streamContents: - [ : stream | list withIndexDo: - [ : each : n | (each asString - includesSubstring: lastKeystrokes - caseSensitive: false) ifTrue: [ stream nextPut: each ] ] ] ] ifFalse: [ self indicateUnfiltered ]! 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." + (list notNil and: [list size > 0]) ifTrue: [ self removeFilter ]. - list size > 0 ifTrue: [ self removeFilter ]. modelIndex ] ifFalse: [ uiIndex ]). ^ self ]!

1 0

Codea on iPad
by Lawson English 24 Dec '11

24 Dec '11

OK, why don't we have this for squeak/etoys? http://twolivesleft.com/Codea/ L

2 1

squeakvm.org down ?
by Nicolas Cellier 23 Dec '11

23 Dec '11

http://www.downforeveryoneorjustme.com/http://www.squeakvm.org

5 4

The Inbox: Collections-dtl.467.mcz
by commits＠source.squeak.org 23 Dec '11

23 Dec '11

David T. Lewis uploaded a new version of Collections to project The Inbox: http://source.squeak.org/inbox/Collections-dtl.467.mcz ==================== Summary ==================== Name: Collections-dtl.467 Author: dtl Time: 23 December 2011, 10:39:33.565 am UUID: e80ec180-bafc-434e-b902-3845f2153333 Ancestors: Collections-dtl.466 Fix weak finalization thrashing, root cause of user interrupt issues. Perform the check for VM support of new finalization once at image startUp time. This prevents the weak finalization process from creating new weak references that result in thrashing between VM and image as the VM signals the the image to clean up weak references, and the finalization process produces additional weak to be removed. With this change the finalization process is much less active, and user interrupt handling works as intended such that any of the following can interrupted in the expected way: "[true] whileTrue" "[[true] whileTrue] forkAt: Processor userSchedulingPriority + 1" "Smalltalk createStackOverflow" "[Smalltalk createStackOverflow] forkAt: Processor userSchedulingPriority + 1" =============== Diff against Collections-dtl.466 =============== Item was changed: ----- Method: WeakArray class>>finalizationProcess (in category 'private') ----- finalizationProcess + | initialized | + initialized := false. [FinalizationSemaphore wait. + initialized ifFalse: ["check VM capability once at image startup time" + WeakFinalizationList initTestPair. + Smalltalk garbageCollect. + WeakFinalizationList checkTestPair. + initialized := true]. FinalizationLock critical: [FinalizationDependents do: [ :weakDependent | weakDependent ifNotNil: [weakDependent finalizeValues]]] ifError: [:msg :rcvr | rcvr error: msg]] repeat! Item was changed: ----- Method: WeakArray class>>startUp: (in category 'system startup') ----- startUp: resuming resuming ifFalse: [ ^self ]. - "Check if new finalization is supported by the VM" - WeakFinalizationList initTestPair. - WeakFinalizationList checkTestPair. self restartFinalizationProcess.!

1 0

Re: [squeak-dev] The Inbox: Morphic-laza.607.mcz
by Alexander Lazarević 23 Dec '11

23 Dec '11

I know this increases image size by some couple of 100k, but I think it's ok for getting rid of the dull gray background. Alex 2011/12/23 <commits(a)source.squeak.org> > Alexander Lazarević uploaded a new version of Morphic to project The > Inbox: > http://source.squeak.org/inbox/Morphic-laza.607.mcz > > ==================== Summary ==================== > > Name: Morphic-laza.607 > Author: laza > Time: 23 December 2011, 11:04:32.601 am > UUID: 042b8431-7201-674b-bf15-ea5b0a56c78c > Ancestors: Morphic-laza.605 > Backported From: Morphic-laza.606 > > Install a rice paper pattern as the default morphic project background. > > This is based on http://webtreats.mysitemyway.com/seamless-paper-patterns/ > > >From the readme.txt: > > "This resource is free for personal and commercial use ~ no attribution > necessary." > > =============== Diff against Morphic-laza.605 =============== > > Item was changed: > ----- Method: MorphicProject class>>defaultBackgroundForm (in category > 'class initialization') ----- > (excessive size, no diff calculated) > > Item was changed: > ----- Method: MorphicProject class>>initialize (in category 'class > initialization') ----- > + initialize > + "MorphicProject initialize" > - initialize "MorphicProject initialize" > "Initialize the default Morphic Project background" > self defaultFill: (InfiniteForm with: self defaultBackgroundForm). > self convertOldProjects. > Project current isMorphic ifTrue:[ > "Set the default background in the current world" > Project current world color: self defaultFill. > ].! > > >

1 0

The Inbox: Morphic-laza.607.mcz
by commits＠source.squeak.org 23 Dec '11

23 Dec '11

Alexander Lazarević uploaded a new version of Morphic to project The Inbox: http://source.squeak.org/inbox/Morphic-laza.607.mcz ==================== Summary ==================== Name: Morphic-laza.607 Author: laza Time: 23 December 2011, 11:04:32.601 am UUID: 042b8431-7201-674b-bf15-ea5b0a56c78c Ancestors: Morphic-laza.605 Backported From: Morphic-laza.606 Install a rice paper pattern as the default morphic project background. This is based on http://webtreats.mysitemyway.com/seamless-paper-patterns/ >From the readme.txt: "This resource is free for personal and commercial use ~ no attribution necessary." =============== Diff against Morphic-laza.605 =============== Item was changed: ----- Method: MorphicProject class>>defaultBackgroundForm (in category 'class initialization') ----- (excessive size, no diff calculated) Item was changed: ----- Method: MorphicProject class>>initialize (in category 'class initialization') ----- + initialize + "MorphicProject initialize" - initialize "MorphicProject initialize" "Initialize the default Morphic Project background" self defaultFill: (InfiniteForm with: self defaultBackgroundForm). self convertOldProjects. Project current isMorphic ifTrue:[ "Set the default background in the current world" Project current world color: self defaultFill. ].!

1 0

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

Jump to page: