Fwd: [squeak-dev] The Trunk: Tools-ar.133.mcz

> From: [hidden email]
> Date: October 8, 2009 5:46:26 AM GMT+02:00
> To: [hidden email]
> Subject: [squeak-dev] The Trunk: Tools-ar.133.mcz
> Reply-To: [hidden email]
>
> 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!
>
>