Begin forwarded message:
From: commits@source.squeak.org Date: October 8, 2009 5:46:26 AM GMT+02:00 To: squeak-dev@lists.squeakfoundation.org Subject: [squeak-dev] The Trunk: Tools-ar.133.mcz Reply-To: squeak-dev@lists.squeakfoundation.org
Andreas Raab uploaded a new version of Tools to project The Trunk: http://source.squeak.org/trunk/Tools-ar.133.mcz
==================== Summary ====================
Name: Tools-ar.133 Author: ar Time: 7 October 2009, 8:46:02 am UUID: 2f3b592e-b7d5-ba43-8f09-71b983afecd9 Ancestors: Tools-MAD.132
Put the 'create' button back into debug notifiers when we're encountering a DNU.
=============== Diff against Tools-MAD.132 ===============
Item was changed: ----- Method: Debugger>>buildNotifierWith:label:message: (in category 'toolbuilder') ----- buildNotifierWith: builder label: label message: messageString + | windowSpec listSpec textSpec panelSpec buttonSpec quads | - | windowSpec listSpec textSpec panelSpec buttonSpec | windowSpec := builder pluggableWindowSpec new. windowSpec model: self. windowSpec extent: 450 @ 156. "nice and wide to show plenty of the error msg" windowSpec label: label. windowSpec children: OrderedCollection new.
panelSpec := builder pluggablePanelSpec new. panelSpec children: OrderedCollection new. + quads := self preDebugButtonQuads. + (self interruptedContext selector == #doesNotUnderstand:) ifTrue: [ + quads := quads copyWith: + { 'Create'. #createMethod. #magenta. 'create the missing method' } + ]. + quads do:[:spec| - self preDebugButtonQuads do:[:spec| buttonSpec := builder pluggableButtonSpec new. buttonSpec model: self. buttonSpec label: spec first. buttonSpec action: spec second. buttonSpec help: spec fourth. panelSpec children add: buttonSpec. ]. panelSpec layout: #horizontal. "buttons" panelSpec frame: (0@0 corner: 1@0.2). windowSpec children add: panelSpec.
Preferences eToyFriendly | messageString notNil ifFalse:[ listSpec := builder pluggableListSpec new. listSpec model: self; list: #contextStackList; getIndex: #contextStackIndex; setIndex: #debugAt:; frame: (0@0.2 corner: 1@1). windowSpec children add: listSpec. ] ifTrue:[ message := messageString. textSpec := builder pluggableTextSpec new. textSpec model: self; getText: #preDebugMessageString; setText: nil; selection: nil; menu: #debugProceedMenu:; frame: (0@0.2corner: 1@1). windowSpec children add: textSpec. ].
^windowSpec!