Squeak-dev December 2010

squeak-dev@lists.squeakfoundation.org

95 participants
379 discussions

Start a nNew thread

SqueakSource is down EOM
by Casey Ransberger 06 Dec '10

06 Dec '10

-- Casey Ransberger

2 1

4.2 code freeze
by Chris Muller 06 Dec '10

06 Dec '10

It's December, and time to consider freezing the 4.2 code base. If we can push any final enhancements and image documentation desired for 4.2 in over the next week, we can freeze officially on the 11th. Is this ok? We should begin considering the release-notes. What is the easiest way to identify everything that's one into 4.2 since 4.1? Some of the items listed at the 4.2-release page (http://wiki.squeak.org/squeak/6160) are: - Integration of Cryptography - Documentation - Integration of O-Completion What do we all think about integration of O-Completion? Levente already did the work, it makes the IDE that much more useful and modern and, it can be turned off. Shall we include that? What What else do we need to consider for the 4.2 image release?

14 19

Daily Commit Log
by commits＠source.squeak.org 06 Dec '10

06 Dec '10

Changes to Trunk (http://source.squeak.org/trunk.html) in the last 24 hours: http://lists.squeakfoundation.org/pipermail/packages/2010-December/003978.h… Name: Morphic-ul.483 Ancestors: Morphic-cmm.482 - added an accessor for TextMorph's paragraph which is used by the latest version of OCompletion ============================================= http://lists.squeakfoundation.org/pipermail/packages/2010-December/003979.h… Name: Morphic-cmm.477 Ancestors: Morphic-cmm.476 - Updates from Connectors; for better loading into 4.2. ============================================= http://lists.squeakfoundation.org/pipermail/packages/2010-December/003980.h… Name: Morphic-cmm.484 Ancestors: Morphic-ul.483, Morphic-cmm.477 Merged Morphic-cmm.477. =============================================

1 0

Re: [squeak-dev] The Trunk: MorphicExtras-fbs.95.mcz
by Frank Shearar 05 Dec '10

05 Dec '10

On 2010/12/04 21:03, commits(a)source.squeak.org wrote: > David T. Lewis uploaded a new version of MorphicExtras to project The Trunk: > http://source.squeak.org/trunk/MorphicExtras-fbs.95.mcz > > ==================== Summary ==================== > > Name: MorphicExtras-fbs.95 > Author: fbs > Time: 4 December 2010, 8:06:58.744 pm > UUID: 29fdd44c-e506-b349-955c-c02d8c371e4b > Ancestors: MorphicExtras-ul.94 > > Attempting to open a telemorphic user when you have no network connection results in a dialog asking you to Retry a name lookup (as a network check) or Give Up. If you Give Up, your image will spew out a never-ending stream of debuggers. This change allows the user to see that she needs to make a network connection, but also allows her to abort the operation. See http://bugs.squeak.org/view.php?id=7578. > > =============== Diff against MorphicExtras-ul.94 =============== > > Item was changed: > ----- Method: RemoteHandMorph class>>ensureNetworkConnected (in category 'utilities') ----- > ensureNetworkConnected > + "Try to ensure that an intermittent network connection, such as a dialup or ISDN line, is actually connected. This is necessary to make sure a server is visible in order to accept an incoming connection. If the network connection does not work - the user has given up - return false. Otherwise, return true." > - "Try to ensure that an intermittent network connection, such as a dialup or ISDN line, is actually connected. This is necessary to make sure a server is visible in order to accept an incoming connection." > "RemoteHandMorph ensureNetworkConnected" > + | address | > - > Utilities > + informUser: 'Ensuring your network connection works...' > - informUser: 'Contacting domain name server...' > during: [ > + address := (NetNameResolver > - NetNameResolver > addressForName: 'squeak.org' > + timeout: 30)]. > + ^ address notNil.! > - timeout: 30]. > - ! Yay! Something that I found a bit tricky about this fix was figuring out how restarts work. An exception's signalled (NameLookupFailure, in this case) and because there's no enclosing #on:do: NLF's defaultAction invokes, which calls "self retry" which in turn calls "handlerContext restart" which unwinds the stack to the context that signalled the exception in the first place - the block argument to #informUser:during:, in other words. So the above doesn't just look up a name to see if there's a network connection (obviously not a _foolproof_ method - it will fail in the presence of a local caching nameserver - but a decent, pragmatic choice), it also prompts the user to, say, plug in her network cable. Would it be worth me writing a comment in this method to explain that "loop"? Something like "The below will repeatedly prompt you in the event of a failed lookup, to allow you to connect to a network, providing you with the option to give up." Because it wasn't at all obvious to me how/why a dialog popped up, and looped, when there's no look in the method. (The loop's in the control flow, thanks to the exception retrying.) frank

1 0

The Trunk: Morphic-cmm.484.mcz
by commits＠source.squeak.org 05 Dec '10

05 Dec '10

Chris Muller uploaded a new version of Morphic to project The Trunk: http://source.squeak.org/trunk/Morphic-cmm.484.mcz ==================== Summary ==================== Name: Morphic-cmm.484 Author: cmm Time: 5 December 2010, 11:56:11.959 am UUID: ac90b497-72d9-4b11-80f3-a02679aaec61 Ancestors: Morphic-ul.483, Morphic-cmm.477 Merged Morphic-cmm.477. =============== Diff against Morphic-ul.483 =============== Item was changed: ----- Method: HaloMorph>>doDup:with: (in category 'private') ----- doDup: evt with: dupHandle "Ask hand to duplicate my target." + (target isSelectionMorph) ifTrue: - (target isKindOf: SelectionMorph) ifTrue: [^ target doDup: evt fromHalo: self handle: dupHandle]. self obtainHaloForEvent: evt andRemoveAllHandlesBut: dupHandle. self setTarget: (target duplicateMorph: evt). evt hand grabMorph: target. self step. "update position if necessary" evt hand addMouseListener: self. "Listen for the drop"! Item was changed: ----- Method: Morph>>embedInto: (in category 'meta-actions') ----- embedInto: evt "Embed the receiver into some other morph" | target morphs | morphs := self potentialEmbeddingTargets. target := UIManager default chooseFrom: (morphs collect:[:m| m knownName ifNil:[m class name asString]]) values: self potentialEmbeddingTargets title: ('Place ', self externalName, ' in...'). target ifNil:[^self]. + target addMorphFrontFromWorldPosition: self! - target addMorphFront: self fromWorldPosition: self positionInWorld.! Item was added: + ----- Method: Morph>>isSelectionMorph (in category 'testing') ----- + isSelectionMorph + ^false! Item was changed: ----- Method: Morph>>renameTo: (in category 'testing') ----- renameTo: aName "Set Player name in costume. Update Viewers. Fix all tiles (old style). fix References. New tiles: recompile, and recreate open scripts. If coming in from disk, and have name conflict, References will already have new + name." - name. " - | aPresenter putInViewer aPasteUp renderer oldKey assoc classes oldName | oldName := self knownName. + oldName=aName ifTrue: [ ^aName ]. (renderer := self topRendererOrSelf) setNameTo: aName. putInViewer := false. ((aPresenter := self presenter) isNil or: [renderer player isNil]) ifFalse: [putInViewer := aPresenter currentlyViewing: renderer player. putInViewer ifTrue: [renderer player viewerFlapTab hibernate]]. "empty it temporarily" (aPasteUp := self topPasteUp) ifNotNil: [aPasteUp allTileScriptingElements do: [:m | m bringUpToDate]]. "Fix References dictionary. See restoreReferences to know why oldKey is already aName, but oldName is the old name." oldKey := References keyAtIdentityValue: renderer player ifAbsent: []. oldKey ifNotNil: [assoc := References associationAt: oldKey. oldKey = aName ifFalse: ["normal rename" assoc key: (renderer player uniqueNameForReferenceFrom: aName). References rehash]]. putInViewer ifTrue: [aPresenter viewMorph: self]. "recreate my viewer" oldKey ifNil: [^aName]. "Force strings in tiles to be remade with new name. New tiles only." Preferences universalTiles ifFalse: [^aName]. classes := (self systemNavigation allCallsOn: assoc) collect: [:each | each classSymbol]. classes asSet do: [:clsName | (Smalltalk at: clsName) replaceSilently: oldName to: aName]. "replace in text body of all methods. Can be wrong!!" "Redo the tiles that are showing. This is also done in caller in unhibernate. " aPasteUp ifNotNil: [aPasteUp allTileScriptingElements do: [:mm | "just ScriptEditorMorphs" nil. (mm isScriptEditorMorph) ifTrue: [((mm playerScripted class compiledMethodAt: mm scriptName) hasLiteral: assoc) ifTrue: [mm hibernate; unhibernate]]]]. ^aName! Item was changed: ----- Method: Morph>>slideToTrash: (in category 'dropping/grabbing') ----- slideToTrash: evt "Perhaps slide the receiver across the screen to a trash can and make it disappear into it. In any case, remove the receiver from the screen." | aForm trash startPoint endPoint morphToSlide | ((self renderedMorph == Utilities scrapsBook) or: [self renderedMorph isKindOf: TrashCanMorph]) ifTrue: [self dismissMorph. ^ self]. Preferences slideDismissalsToTrash ifTrue: [morphToSlide := self representativeNoTallerThan: 200 norWiderThan: 200 thumbnailHeight: 100. aForm := morphToSlide imageForm offset: (0@0). trash := ActiveWorld findDeepSubmorphThat: [:aMorph | (aMorph isKindOf: TrashCanMorph) and: [aMorph topRendererOrSelf owner == ActiveWorld]] ifAbsent: [trash := TrashCanMorph new. + trash position: ActiveWorld bottomLeft - (0 @ (trash extent y + 26)). - trash bottomLeft: ActiveWorld bottomLeft - (-10@10). trash openInWorld. trash]. endPoint := trash fullBoundsInWorld center. startPoint := self topRendererOrSelf fullBoundsInWorld center - (aForm extent // 2)]. self dismissMorph. ActiveWorld displayWorld. Preferences slideDismissalsToTrash ifTrue: [aForm slideFrom: startPoint to: endPoint nSteps: 12 delay: 15]. Utilities addToTrash: self! Item was changed: ----- Method: PasteUpMorph>>deleteAllHalos (in category 'world state') ----- deleteAllHalos + self haloMorphs do: + [ : m | m target isSelectionMorph ifTrue: [ m target delete ] ]. + self hands do: + [ : each | each removeHalo ]! - - self haloMorphs - do: [:each | (each target isKindOf: SelectionMorph) - ifTrue: [each target delete]]. - self hands - do: [:each | each removeHalo]! Item was added: + ----- Method: SelectionMorph>>isSelectionMorph (in category 'testing') ----- + isSelectionMorph + ^true! Item was changed: ----- Method: StringMorph>>minHeight (in category 'connectors-layout') ----- minHeight "answer the receiver's minHeight" + ^ super minHeight max: self fontToUse height! - ^ self fontToUse height!

1 0

The Trunk: Morphic-cmm.477.mcz
by commits＠source.squeak.org 05 Dec '10

05 Dec '10

Chris Muller uploaded a new version of Morphic to project The Trunk: http://source.squeak.org/trunk/Morphic-cmm.477.mcz ==================== Summary ==================== Name: Morphic-cmm.477 Author: cmm Time: 5 December 2010, 11:26:13.44 am UUID: e67e92c7-628c-499f-a153-3ce2c6c938f4 Ancestors: Morphic-cmm.476 - Updates from Connectors; for better loading into 4.2. =============== Diff against Morphic-cmm.476 =============== Item was changed: ----- Method: HaloMorph>>doDup:with: (in category 'private') ----- doDup: evt with: dupHandle "Ask hand to duplicate my target." + (target isSelectionMorph) ifTrue: - (target isKindOf: SelectionMorph) ifTrue: [^ target doDup: evt fromHalo: self handle: dupHandle]. self obtainHaloForEvent: evt andRemoveAllHandlesBut: dupHandle. self setTarget: (target duplicateMorph: evt). evt hand grabMorph: target. self step. "update position if necessary" evt hand addMouseListener: self. "Listen for the drop"! Item was changed: ----- Method: Morph>>embedInto: (in category 'meta-actions') ----- embedInto: evt "Embed the receiver into some other morph" | target morphs | morphs := self potentialEmbeddingTargets. target := UIManager default chooseFrom: (morphs collect:[:m| m knownName ifNil:[m class name asString]]) values: self potentialEmbeddingTargets title: ('Place ', self externalName, ' in...'). target ifNil:[^self]. + target addMorphFrontFromWorldPosition: self! - target addMorphFront: self fromWorldPosition: self positionInWorld.! Item was added: + ----- Method: Morph>>isSelectionMorph (in category 'testing') ----- + isSelectionMorph + ^false! Item was changed: ----- Method: Morph>>renameTo: (in category 'testing') ----- renameTo: aName "Set Player name in costume. Update Viewers. Fix all tiles (old style). fix References. New tiles: recompile, and recreate open scripts. If coming in from disk, and have name conflict, References will already have new + name." - name. " - | aPresenter putInViewer aPasteUp renderer oldKey assoc classes oldName | oldName := self knownName. + oldName=aName ifTrue: [ ^aName ]. (renderer := self topRendererOrSelf) setNameTo: aName. putInViewer := false. ((aPresenter := self presenter) isNil or: [renderer player isNil]) ifFalse: [putInViewer := aPresenter currentlyViewing: renderer player. putInViewer ifTrue: [renderer player viewerFlapTab hibernate]]. "empty it temporarily" (aPasteUp := self topPasteUp) ifNotNil: [aPasteUp allTileScriptingElements do: [:m | m bringUpToDate]]. "Fix References dictionary. See restoreReferences to know why oldKey is already aName, but oldName is the old name." oldKey := References keyAtIdentityValue: renderer player ifAbsent: []. oldKey ifNotNil: [assoc := References associationAt: oldKey. oldKey = aName ifFalse: ["normal rename" assoc key: (renderer player uniqueNameForReferenceFrom: aName). References rehash]]. putInViewer ifTrue: [aPresenter viewMorph: self]. "recreate my viewer" oldKey ifNil: [^aName]. "Force strings in tiles to be remade with new name. New tiles only." Preferences universalTiles ifFalse: [^aName]. classes := (self systemNavigation allCallsOn: assoc) collect: [:each | each classSymbol]. classes asSet do: [:clsName | (Smalltalk at: clsName) replaceSilently: oldName to: aName]. "replace in text body of all methods. Can be wrong!!" "Redo the tiles that are showing. This is also done in caller in unhibernate. " aPasteUp ifNotNil: [aPasteUp allTileScriptingElements do: [:mm | "just ScriptEditorMorphs" nil. (mm isScriptEditorMorph) ifTrue: [((mm playerScripted class compiledMethodAt: mm scriptName) hasLiteral: assoc) ifTrue: [mm hibernate; unhibernate]]]]. ^aName! Item was changed: ----- Method: Morph>>slideToTrash: (in category 'dropping/grabbing') ----- slideToTrash: evt "Perhaps slide the receiver across the screen to a trash can and make it disappear into it. In any case, remove the receiver from the screen." | aForm trash startPoint endPoint morphToSlide | ((self renderedMorph == Utilities scrapsBook) or: [self renderedMorph isKindOf: TrashCanMorph]) ifTrue: [self dismissMorph. ^ self]. Preferences slideDismissalsToTrash ifTrue: [morphToSlide := self representativeNoTallerThan: 200 norWiderThan: 200 thumbnailHeight: 100. aForm := morphToSlide imageForm offset: (0@0). trash := ActiveWorld findDeepSubmorphThat: [:aMorph | (aMorph isKindOf: TrashCanMorph) and: [aMorph topRendererOrSelf owner == ActiveWorld]] ifAbsent: [trash := TrashCanMorph new. + trash position: ActiveWorld bottomLeft - (0 @ (trash extent y + 26)). - trash bottomLeft: ActiveWorld bottomLeft - (-10@10). trash openInWorld. trash]. endPoint := trash fullBoundsInWorld center. startPoint := self topRendererOrSelf fullBoundsInWorld center - (aForm extent // 2)]. self dismissMorph. ActiveWorld displayWorld. Preferences slideDismissalsToTrash ifTrue: [aForm slideFrom: startPoint to: endPoint nSteps: 12 delay: 15]. Utilities addToTrash: self! Item was changed: ----- Method: PasteUpMorph>>deleteAllHalos (in category 'world state') ----- deleteAllHalos + self haloMorphs do: + [ : m | m target isSelectionMorph ifTrue: [ m target delete ] ]. + self hands do: + [ : each | each removeHalo ]! - - self haloMorphs - do: [:each | (each target isKindOf: SelectionMorph) - ifTrue: [each target delete]]. - self hands - do: [:each | each removeHalo]! Item was added: + ----- Method: SelectionMorph>>isSelectionMorph (in category 'testing') ----- + isSelectionMorph + ^true! Item was changed: ----- Method: StringMorph>>minHeight (in category 'connectors-layout') ----- minHeight "answer the receiver's minHeight" + ^ super minHeight max: self fontToUse height! - ^ self fontToUse height!

1 0

The Trunk: Morphic-ul.483.mcz
by commits＠source.squeak.org 05 Dec '10

05 Dec '10

Levente Uzonyi uploaded a new version of Morphic to project The Trunk: http://source.squeak.org/trunk/Morphic-ul.483.mcz ==================== Summary ==================== Name: Morphic-ul.483 Author: ul Time: 5 December 2010, 3:21:30.48 pm UUID: a1007156-f055-c241-a7df-20b619f0f097 Ancestors: Morphic-cmm.482 - added an accessor for TextMorph's paragraph which is used by the latest version of OCompletion =============== Diff against Morphic-cmm.482 =============== Item was added: + ----- Method: TextEditor>>paragraph (in category 'accessing') ----- + paragraph + + ^paragraph!

1 0

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

05 Dec '10

Changes to Trunk (http://source.squeak.org/trunk.html) in the last 24 hours: http://lists.squeakfoundation.org/pipermail/packages/2010-December/003969.h… Name: MorphicExtras-edc.95 Ancestors: MorphicExtras-ul.94 This fix the error we have when: You made Flaps makeNavigatorFlapResembleGoldenBar , so Navigator Flap shows in the World. You hit the FIND button and hold . Then you pick the second item find a project (more places) ============================================= http://lists.squeakfoundation.org/pipermail/packages/2010-December/003970.h… Name: MorphicExtras-fbs.95 Ancestors: MorphicExtras-ul.94 Attempting to open a telemorphic user when you have no network connection results in a dialog asking you to Retry a name lookup (as a network check) or Give Up. If you Give Up, your image will spew out a never-ending stream of debuggers. This change allows the user to see that she needs to make a network connection, but also allows her to abort the operation. See http://bugs.squeak.org/view.php?id=7578. ============================================= http://lists.squeakfoundation.org/pipermail/packages/2010-December/003971.h… Name: Morphic-fbs.480 Ancestors: Morphic-mha.479 Attempting to open a telemorphic user when you have no network connection results in a dialog asking you to Retry a name lookup (as a network check) or Give Up. If you Give Up, your image will spew out a never-ending stream of debuggers. This change allows the user to see that she needs to make a network connection, but also allows her to abort the operation. See http://bugs.squeak.org/view.php?id=7578. ============================================= http://lists.squeakfoundation.org/pipermail/packages/2010-December/003972.h… Name: Balloon-cmm.18 Ancestors: Balloon-ar.17 Integrated InterpolatedGradientFillStyle from Pharo to support NewColorPicker. ============================================= http://lists.squeakfoundation.org/pipermail/packages/2010-December/003973.h… Name: Morphic-cmm.481 Ancestors: Morphic-fbs.480 Introducing NewColorPickerMorph. To use, set "Use the new color-picker" preference to true. ============================================= http://lists.squeakfoundation.org/pipermail/packages/2010-December/003974.h… Name: EToys-cmm.77 Ancestors: EToys-ul.76 Use NewColorPickerMorph if preference is set. ============================================= http://lists.squeakfoundation.org/pipermail/packages/2010-December/003975.h… Name: Morphic-dtl.481 Ancestors: Morphic-fbs.480, Morphic-djr.406 Merge Morphic-djr.406 from inbox ============================================= http://lists.squeakfoundation.org/pipermail/packages/2010-December/003976.h… Name: Morphic-djr.406 Ancestors: Morphic-ar.405 Implement some methods to make Lukas' OmniBrowser tests pass. ============================================= http://lists.squeakfoundation.org/pipermail/packages/2010-December/003977.h… Name: Morphic-cmm.482 Ancestors: Morphic-cmm.481, Morphic-dtl.481 Merged dtl.481. =============================================

1 0

The Trunk: Morphic-cmm.482.mcz
by commits＠source.squeak.org 04 Dec '10

04 Dec '10

Chris Muller uploaded a new version of Morphic to project The Trunk: http://source.squeak.org/trunk/Morphic-cmm.482.mcz ==================== Summary ==================== Name: Morphic-cmm.482 Author: cmm Time: 4 December 2010, 4:13:43.242 pm UUID: 6ce3abc4-afae-4d27-a08d-14d1a58686b6 Ancestors: Morphic-cmm.481, Morphic-dtl.481 Merged dtl.481. =============== Diff against Morphic-cmm.481 =============== Item was added: + ----- Method: KeyboardEvent>>scanCode: (in category 'private') ----- + scanCode: ignore + " OB-Tests expects this "! Item was added: + ----- Method: KeyboardEvent>>setType:buttons:position:keyValue:charCode:hand:stamp: (in category 'private') ----- + setType: aSymbol buttons: anInteger position: pos keyValue: aValue charCode: ignoredUsedInOBTesting hand: aHand stamp: stamp + self setType: aSymbol buttons: anInteger position: pos keyValue: aValue hand: aHand stamp: stamp!

1 0

New color-picker in trunk
by Chris Muller 04 Dec '10

04 Dec '10

After years of a color-picker that simply cannot pick the colors I want, I have adapted Pharo's color-picker to be more in the style of Squeak and integrated it into the trunk. To use, set "Use the new color-picker" in preferences. modalColorPickers is ignored for the new color-picker. It cannot select a color from the world, although this would be a welcome enhancement. - Chris

1 0

← Newer
1
...
31
32
33
34
35
36
37
38
Older →

Jump to page: