Packages August 2015

packages@lists.squeakfoundation.org

1 participants
204 discussions

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: Tools-mt.632.mcz
by commits＠source.squeak.org 25 Aug '15

25 Aug '15

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: System-mt.759.mcz
by commits＠source.squeak.org 25 Aug '15

25 Aug '15

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: Kernel-mt.945.mcz
by commits＠source.squeak.org 25 Aug '15

25 Aug '15

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

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

25 Aug '15

1 0

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: ToolBuilder-Morphic-mt.149.mcz
by commits＠source.squeak.org 25 Aug '15

25 Aug '15

1 0

← Newer
1
...
5
6
7
8
9
10
11
...
21
Older →

Jump to page:

2024

2023

2022

2021

2020

2019

2018

2017

2016

2015

2014

2013

2012

2011

2010

2009

2008

2007

2006

2005

Packages August 2015