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

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!