Squeak-dev August 2015

squeak-dev@lists.squeakfoundation.org

50 participants
218 discussions

The Trunk: Installer-Core-cmm.400.mcz
by commits＠source.squeak.org 25 Aug '15

25 Aug '15

Chris Muller uploaded a new version of Installer-Core to project The Trunk: http://source.squeak.org/trunk/Installer-Core-cmm.400.mcz ==================== Summary ==================== Name: Installer-Core-cmm.400 Author: cmm Time: 25 August 2015, 11:06:20.165 am UUID: 28706d1b-7c7a-46f9-be11-a9abdf855614 Ancestors: Installer-Core-cmm.399 Original squeaksource.com does not allow dash characters in project id's. =============== Diff against Installer-Core-cmm.399 =============== Item was changed: ----- Method: Installer>>maInstaller (in category 'package-definitions') ----- maInstaller "Select from a family of related packages for application development." + ^ { #ss -> 'MaInstaller'. - ^ { #ss -> 'Ma-Installer'. 'Ma-Installer-Core' }!

1 0

Re: [squeak-dev] The Trunk: Tools-mt.632.mcz
by David T. Lewis 25 Aug '15

25 Aug '15

On Tue, Aug 25, 2015 at 12:57:27PM +0000, commits(a)source.squeak.org wrote: > Marcel Taeumel uploaded a new version of Tools to project The Trunk: > http://source.squeak.org/trunk/Tools-mt.632.mcz > > ==================== Summary ==================== > > Name: Tools-mt.632 > Author: mt > Time: 25 August 2015, 2:57:23.277 pm > UUID: 32a964b7-b4b9-8347-b230-278e62d7db33 > Ancestors: Tools-eem.631 > > Removes the hack for the debugger's notifier window because it is not necessary anymore. Warnings work fine now. > Yay! Very nice. Dave

1 0

The Trunk: Tools-mt.632.mcz
by commits＠source.squeak.org 25 Aug '15

25 Aug '15

Marcel Taeumel uploaded a new version of Tools to project The Trunk: http://source.squeak.org/trunk/Tools-mt.632.mcz ==================== Summary ==================== Name: Tools-mt.632 Author: mt Time: 25 August 2015, 2:57:23.277 pm UUID: 32a964b7-b4b9-8347-b230-278e62d7db33 Ancestors: Tools-eem.631 Removes the hack for the debugger's notifier window because it is not necessary anymore. Warnings work fine now. =============== Diff against Tools-eem.631 =============== Item was changed: ----- Method: Debugger>>openNotifierContents:label: (in category 'initialize') ----- openNotifierContents: msgString label: label "Create, schedule and answer a notifier view with the given label and message. A notifier view shows just the message or the first several lines of the stack, with a menu that allows the user to open a full debugger if so desired." "NOTE: When this method returns, a new process has been scheduled to run the windows, and thus this notifier, but the previous active process has not been suspended. The sender will do this." | msg builder spec | Sensor flushKeyboard. savedCursor := Cursor currentCursor. Cursor currentCursor: Cursor normal. msg := (label beginsWith: 'Space is low') ifTrue: [self lowSpaceChoices, (msgString ifNil: [String empty])] ifFalse: [msgString]. builder := ToolBuilder default. + spec := self buildNotifierWith: builder label: label message: msg. - spec := self buildNotifierWith: builder label: label message: (msg ifNil: [label]). self expandStack. ^[builder openDebugger: spec] ensure: [errorWasInUIProcess := Project current spawnNewProcessIfThisIsUI: interruptedProcess] !

1 0

The Trunk: System-mt.759.mcz
by commits＠source.squeak.org 25 Aug '15

25 Aug '15

Marcel Taeumel uploaded a new version of System to project The Trunk: http://source.squeak.org/trunk/System-mt.759.mcz ==================== Summary ==================== Name: System-mt.759 Author: mt Time: 25 August 2015, 2:55:00.96 pm UUID: 4ebb649f-f70f-c042-9719-f1bd01f6245e Ancestors: System-eem.758 Adds support for unhandled warnings. =============== Diff against System-eem.758 =============== Item was changed: ----- Method: UnhandledError>>defaultAction (in category '*System-priv handling') ----- defaultAction "The current computation is terminated. The cause of the error should be logged or reported to the user. If the program is operating in an interactive debugging environment the computation should be suspended and the debugger activated." + ^ToolSet debugError: self exception! - ^ToolSet debugError: exception.! Item was added: + ----- Method: UnhandledWarning>>defaultAction (in category '*System-priv handling') ----- + defaultAction + + ^ ToolSet + debugContext: self exception signalerContext + label: 'Warning' + contents: self exception messageText , '\\Select Proceed to continue, or close this window to cancel the operation.' withCRs! Item was changed: ----- Method: Warning>>defaultAction (in category '*System-exceptionDescription') ----- defaultAction "Inform the user of a Warning, giving them the choice of ignoring the warning (proceeding), debugging, or terminating the computation." + UnhandledWarning signalForException: self! - UnhandledError signalForException: self!

1 0

The Trunk: Kernel-mt.945.mcz
by commits＠source.squeak.org 25 Aug '15

25 Aug '15

Marcel Taeumel uploaded a new version of Kernel to project The Trunk: http://source.squeak.org/trunk/Kernel-mt.945.mcz ==================== Summary ==================== Name: Kernel-mt.945 Author: mt Time: 25 August 2015, 2:54:06.221 pm UUID: 4f53691a-f79e-4e40-b46d-33a647b642dd Ancestors: Kernel-eem.944 Adds support for process stepping to watch out for other unhandled things. Adds a class for unhandled warnings. =============== Diff against Kernel-eem.944 =============== Item was changed: ----- Method: Process>>stepToHome: (in category 'changing suspended state') ----- stepToHome: aContext "Resume self until the home of top context is aContext. Top context may be a block context. Catch any UnhandledErrors that are created while stepping, answering the relevant signalerContext if so. Note that this will cause weird effects if using through to step through UnhandledError code, but as the doctor ordered, don't do that; use over or into instead." ^Processor activeProcess evaluate: [| home anError | home := aContext home. [suspendedContext := suspendedContext step. home == suspendedContext home or: [home isDead]] whileFalse: [(suspendedContext selector == #signalForException: + and: [(suspendedContext receiver isBehavior and: [ + suspendedContext receiver includesBehavior: UnhandledError]) - and: [suspendedContext receiver == UnhandledError and: [anError := suspendedContext tempAt: 1. ((suspendedContext objectClass: anError) includesBehavior: Exception) and: [anError canSearchForSignalerContext]]]) ifTrue: [anError signalerContext ifNotNil: [:unhandledErrorSignalerContext| [unhandledErrorSignalerContext == suspendedContext] whileFalse: [self completeStep: suspendedContext]. "Give a debugger a chance to update its title to reflect the new exception" Notification new tag: {unhandledErrorSignalerContext. anError}; signal. ^unhandledErrorSignalerContext]]]. suspendedContext] onBehalfOf: self! Item was changed: Exception subclass: #UnhandledError instanceVariableNames: 'exception' classVariableNames: '' poolDictionaries: '' category: 'Kernel-Exceptions'! + + !UnhandledError commentStamp: 'mt 8/25/2015 14:42' prior: 0! + This is a wrapper for an unhandled error. Having this, process stepping is able to correctly fire other unhandled errors. See Process >> #stepToHome: for further explanations.! Item was changed: ----- Method: UnhandledError class>>signalForException: (in category 'as yet unclassified') ----- signalForException: anError + "Very important entry point for analysis stack when stepping in a debugging session. See Process >> #stepToHome: for further explanations." + - ^ self new exception: anError; signal! Item was changed: + ----- Method: UnhandledError>>exception (in category 'accessing') ----- - ----- Method: UnhandledError>>exception (in category 'as yet unclassified') ----- exception ^ exception! Item was changed: + ----- Method: UnhandledError>>exception: (in category 'accessing') ----- - ----- Method: UnhandledError>>exception: (in category 'as yet unclassified') ----- exception: anError exception := anError! Item was added: + UnhandledError subclass: #UnhandledWarning + instanceVariableNames: '' + classVariableNames: '' + poolDictionaries: '' + category: 'Kernel-Exceptions'!

1 0

The Trunk: Morphic-mt.999.mcz
by commits＠source.squeak.org 25 Aug '15

25 Aug '15

Marcel Taeumel uploaded a new version of Morphic to project The Trunk: http://source.squeak.org/trunk/Morphic-mt.999.mcz ==================== Summary ==================== Name: Morphic-mt.999 Author: mt Time: 25 August 2015, 11:51:57.2 am UUID: 342432f2-3b6b-3a42-8c0e-3f58305354ad Ancestors: Morphic-mt.998 Fixes a bug with wrong Z order of morphs in system windows. There is no need to update pane order because retractable scroll bars got fixed. =============== Diff against Morphic-mt.998 =============== Item was changed: ----- Method: SystemWindow>>addMorph:fullFrame: (in category 'panes') ----- addMorph: aMorph fullFrame: aLayoutFrame "Add aMorph according to aLayoutFrame." super addMorph: aMorph fullFrame: aLayoutFrame. paneMorphs := paneMorphs copyReplaceFrom: 1 to: 0 with: (Array with: aMorph). + aMorph isImageMorph ifFalse: [aMorph adoptPaneColor: self paneColor].! - aMorph isImageMorph ifFalse: [aMorph adoptPaneColor: self paneColor]. - Preferences scrollBarsOnRight ifTrue:"reorder panes so flop-out right-side scrollbar is visible" - [self addMorphBack: aMorph].!

1 0

Squeak 5 all-in-one OS X image saving/sources
by tim Rowledge 25 Aug '15

25 Aug '15

On my iMac, with the Squeak 5 all-in-one I get a rather annoying issue if I want to a) save an image other than buried deep in the package bowels; it would be nice if we could provide an option for saving an image outside the current home directory. b) after saving an image, extracting it + changes to where I wanted it to live, the system reported finding no sources file because it was expecting to find it at ‘directory containing all-in-one package’ and it was buried deep in the package bowels. That seems to me to be a rather infelicitous combination, especially for a new user; "hell I just saved this image thing and now I can’t find it anywhere!” I imagine we need to add another sources-path option to handle this but maybe there is some mac bundle magic involved too? tim -- tim Rowledge; tim(a)rowledge.org; http://www.rowledge.org/tim Dreams are free, but you get soaked on the connect time.

5 5

The Trunk: ToolBuilder-Morphic-mt.149.mcz
by commits＠source.squeak.org 25 Aug '15

25 Aug '15

Marcel Taeumel uploaded a new version of ToolBuilder-Morphic to project The Trunk: http://source.squeak.org/trunk/ToolBuilder-Morphic-mt.149.mcz ==================== Summary ==================== Name: ToolBuilder-Morphic-mt.149 Author: mt Time: 25 August 2015, 10:56:48.908 am UUID: a99ffbe0-4d17-0240-92ab-4265cf26bc36 Ancestors: ToolBuilder-Morphic-topa.148 Adds support for drag-type selectors in models for lists and trees instead of hardcoding #dragTransferPlus. Note that we might want to get rid of Object >> #dragTransferTypeForMorph: someday.... No one is implementing that anyway. Maybe also Object >> #dragPassengerFor:inMorph:. Using #dragItemSelector to let the model decide seems more appropriate. =============== Diff against ToolBuilder-Morphic-topa.148 =============== Item was changed: PluggableListMorph subclass: #PluggableListMorphPlus + instanceVariableNames: 'dragItemSelector dropItemSelector wantsDropSelector getHelpSelector dragTypeSelector' - instanceVariableNames: 'dragItemSelector dropItemSelector wantsDropSelector getHelpSelector' classVariableNames: '' poolDictionaries: '' category: 'ToolBuilder-Morphic'! !PluggableListMorphPlus commentStamp: 'ar 7/15/2005 11:10' prior: 0! Extensions for PluggableListMorph needed by ToolBuilder! Item was added: + ----- Method: PluggableListMorphPlus>>dragTypeSelector (in category 'accessing') ----- + dragTypeSelector + ^dragTypeSelector! Item was added: + ----- Method: PluggableListMorphPlus>>dragTypeSelector: (in category 'accessing') ----- + dragTypeSelector: aSymbol + dragTypeSelector := aSymbol.! Item was changed: ----- Method: PluggableListMorphPlus>>startDrag: (in category 'drag and drop') ----- startDrag: evt dragItemSelector ifNil:[^self]. evt hand hasSubmorphs ifTrue: [^ self]. [ | dragIndex draggedItem ddm | (self dragEnabled and: [model okToChange]) ifFalse: [^ self]. dragIndex := self rowAtLocation: evt position. dragIndex = 0 ifTrue:[^self]. draggedItem := model perform: dragItemSelector with: (self modelIndexFor: dragIndex). draggedItem ifNil:[^self]. ddm := TransferMorph withPassenger: draggedItem from: self. + ddm dragTransferType: (self dragTypeSelector + ifNil: [#dragTransferPlus] + ifNotNil: [:s | self model perform: s with: (self modelIndexFor: dragIndex)]). - ddm dragTransferType: #dragTransferPlus. evt hand grabMorph: ddm] ensure: [Cursor normal show. evt hand releaseMouseFocus: self]! Item was changed: SimpleHierarchicalListMorph subclass: #PluggableTreeMorph + instanceVariableNames: 'rootWrappers selectedWrapper getRootsSelector getChildrenSelector hasChildrenSelector getLabelSelector getIconSelector getSelectedPathSelector setSelectedParentSelector getHelpSelector dropItemSelector wantsDropSelector dragItemSelector dragTypeSelector nodeClass lastKeystrokeTime lastKeystrokes' - instanceVariableNames: 'rootWrappers selectedWrapper getRootsSelector getChildrenSelector hasChildrenSelector getLabelSelector getIconSelector getSelectedPathSelector setSelectedParentSelector getHelpSelector dropItemSelector wantsDropSelector dragItemSelector nodeClass lastKeystrokeTime lastKeystrokes' classVariableNames: 'FilterByLabelsOnly MaximumSearchDepth' poolDictionaries: '' category: 'ToolBuilder-Morphic'! !PluggableTreeMorph commentStamp: 'ar 2/12/2005 04:38' prior: 0! A pluggable tree morph.! Item was added: + ----- Method: PluggableTreeMorph>>dragTypeSelector (in category 'accessing') ----- + dragTypeSelector + ^dragTypeSelector! Item was added: + ----- Method: PluggableTreeMorph>>dragTypeSelector: (in category 'accessing') ----- + dragTypeSelector: aSymbol + dragTypeSelector := aSymbol.! Item was changed: ----- Method: PluggableTreeMorph>>startDrag: (in category 'morphic') ----- startDrag: evt | ddm itemMorph passenger | self dragEnabled ifTrue: [itemMorph := scroller submorphs detect: [:any | any highlightedForMouseDown] ifNone: []]. (itemMorph isNil or: [evt hand hasSubmorphs]) ifTrue: [^ self]. itemMorph highlightForMouseDown: false. itemMorph ~= self selectedMorph ifTrue: [self setSelectedMorph: itemMorph]. passenger := self model perform: dragItemSelector with: itemMorph withoutListWrapper. passenger ifNotNil: [ddm := TransferMorph withPassenger: passenger from: self. + ddm dragTransferType: (self dragTypeSelector + ifNil: [#dragTransferPlus] + ifNotNil: [:s | self model perform: s with: itemMorph withoutListWrapper]). - ddm dragTransferType: #dragTransferPlus. Preferences dragNDropWithAnimation ifTrue: [self model dragAnimationFor: itemMorph transferMorph: ddm]. evt hand grabMorph: ddm]. evt hand releaseMouseFocus: self!

1 0

The Trunk: Morphic-mt.998.mcz
by commits＠source.squeak.org 25 Aug '15

25 Aug '15

Marcel Taeumel uploaded a new version of Morphic to project The Trunk: http://source.squeak.org/trunk/Morphic-mt.998.mcz ==================== Summary ==================== Name: Morphic-mt.998 Author: mt Time: 25 August 2015, 10:47:45.284 am UUID: 3f59a840-ebfc-984d-9764-b6b3f2702ffb Ancestors: Morphic-dtl.997 Let the extended form scaling use the basic scaling implementation. The purpose of this method is to always return a form of the given extent with a uniformly scaled form. =============== Diff against Morphic-dtl.997 =============== Item was changed: ----- Method: Form>>scaledIntoFormOfSize: (in category '*Morphic') ----- scaledIntoFormOfSize: aNumberOrPoint + + ^ self scaledIntoFormOfSize: aNumberOrPoint smoothing: 8! - "Scale and center the receiver into a form of a given size" - - | extent scale scaledForm result | - - extent := aNumberOrPoint asPoint. - extent = self extent ifTrue: [^ self]. - - (self height isZero or: [self width isZero]) - ifTrue: [^ Form extent: extent depth: self depth]. - - scale := extent y / self height min: extent x / self width. - scaledForm := self - magnify: self boundingBox - by: scale - smoothing: 8. - - result := Form extent: extent depth: 32. - result getCanvas - translucentImage: scaledForm - at: extent - scaledForm extent // 2. - - ^ result - ! Item was added: + ----- Method: Form>>scaledIntoFormOfSize:smoothing: (in category '*Morphic') ----- + scaledIntoFormOfSize: aNumberOrPoint smoothing: factor + "Scale and center the receiver into a form of a given size" + + | extent scaledForm result | + + extent := aNumberOrPoint asPoint. + extent = self extent ifTrue: [^ self copy]. + + scaledForm := self scaledToSize: extent smoothing: factor. + + result := self species extent: extent depth: 32. + result getCanvas + translucentImage: scaledForm + at: extent - scaledForm extent // 2. + + ^ result + !

1 0

The Trunk: Graphics-mt.315.mcz
by commits＠source.squeak.org 25 Aug '15

25 Aug '15

Marcel Taeumel uploaded a new version of Graphics to project The Trunk: http://source.squeak.org/trunk/Graphics-mt.315.mcz ==================== Summary ==================== Name: Graphics-mt.315 Author: mt Time: 25 August 2015, 10:45:30.972 am UUID: 60541125-855a-aa45-b942-241874613194 Ancestors: Graphics-mt.314 Let clients specify smoothing factor when scaling forms. =============== Diff against Graphics-mt.314 =============== Item was changed: ----- Method: Form>>scaledToSize: (in category 'scaling, rotation') ----- scaledToSize: numberOrPoint + ^ self scaledToSize: numberOrPoint smoothing: 2! - | scale newExtent | - newExtent := numberOrPoint asPoint. - - newExtent = self extent ifTrue: [^ self copy]. - - (self height isZero or: [self width isZero]) - ifTrue: [^ self species extent: newExtent depth: self depth]. - - scale := newExtent x / self width min: newExtent y / self height. - ^ self magnify: self boundingBox by: scale smoothing: 2! Item was added: + ----- Method: Form>>scaledToSize:smoothing: (in category 'scaling, rotation') ----- + scaledToSize: numberOrPoint smoothing: factor + + | scale newExtent | + newExtent := numberOrPoint asPoint. + + newExtent = self extent ifTrue: [^ self copy]. + + (self height isZero or: [self width isZero]) + ifTrue: [^ self species extent: newExtent depth: self depth]. + + scale := newExtent x / self width min: newExtent y / self height. + ^ self magnify: self boundingBox by: scale smoothing: factor!

1 0

← Newer
1
...
7
8
9
10
11
12
13
...
22
Older →

Jump to page: