Begin forwarded message:
> From: [email protected] > Date: October 8, 2009 5:46:26 AM GMT+02:00 > To: [email protected] > Subject: [squeak-dev] The Trunk: Tools-ar.133.mcz > Reply-To: [email protected] > > 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: [email protected]). > windowSpec children add: panelSpec. > > Preferences eToyFriendly | messageString notNil ifFalse:[ > listSpec := builder pluggableListSpec new. > listSpec > model: self; > list: #contextStackList; > getIndex: #contextStackIndex; > setIndex: #debugAt:; > frame: ([email protected] 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: ([email protected]: 1...@1). > windowSpec children add: textSpec. > ]. > > ^windowSpec! > > _______________________________________________ Pharo-project mailing list [email protected] http://lists.gforge.inria.fr/cgi-bin/mailman/listinfo/pharo-project
