[squeak-dev] The Trunk: Tools-mt.616.mcz
Chris Muller
asqueaker at gmail.com
Mon May 4 00:52:10 UTC 2015
Thanks.
On Sun, May 3, 2015 at 1:59 AM, <commits at source.squeak.org> wrote:
> Marcel Taeumel uploaded a new version of Tools to project The Trunk:
> http://source.squeak.org/trunk/Tools-mt.616.mcz
>
> ==================== Summary ====================
>
> Name: Tools-mt.616
> Author: mt
> Time: 3 May 2015, 8:59:08.565 am
> UUID: d7973151-c795-fb4c-9d1f-daab9ef068e6
> Ancestors: Tools-mt.615
>
> Fixed wrong order of buttons in pre-debug window.
>
> =============== Diff against Tools-mt.615 ===============
>
> Item was changed:
> ----- Method: Debugger>>buildNotifierWith:label:message: (in category 'toolbuilder') -----
> buildNotifierWith: builder label: label message: messageString
> | windowSpec listSpec textSpec panelSpec quads |
> windowSpec := builder pluggableWindowSpec new
> model: self;
> extent: self initialExtentForNotifier;
> label: label;
> 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' }
> ].
> (#(#notYetImplemented #shouldBeImplemented #requirement) includes: self interruptedContext selector) ifTrue: [
> quads := quads copyWith:
> { 'Create'. #createImplementingMethod. #magenta. 'implement the marked method' }
> ].
> (self interruptedContext selector == #subclassResponsibility) ifTrue: [
> quads := quads copyWith:
> { 'Create'. #createOverridingMethod. #magenta. 'create the missing overriding method' }
> ].
> quads do:[:spec| | buttonSpec |
> buttonSpec := builder pluggableButtonSpec new.
> buttonSpec model: self.
> buttonSpec label: spec first.
> buttonSpec action: spec second.
> buttonSpec help: spec fourth.
> - buttonSpec frame: self preDebugButtonQuadFrame.
> panelSpec children add: buttonSpec.
> ].
> panelSpec layout: #horizontal. "buttons"
> panelSpec frame: self preDebugButtonQuadFrame.
> windowSpec children add: panelSpec.
>
> Preferences eToyFriendly | messageString notNil ifFalse:[
> listSpec := builder pluggableListSpec new.
> listSpec
> model: self;
> list: #contextStackList;
> getIndex: #contextStackIndex;
> setIndex: #debugAt:;
> frame: self contextStackFrame.
> windowSpec children add: listSpec.
> ] ifTrue:[
> message := messageString.
> textSpec := builder pluggableTextSpec new.
> textSpec
> model: self;
> getText: #preDebugMessageString;
> setText: nil;
> selection: nil;
> menu: #debugProceedMenu:;
> frame: self contextStackFrame.
> windowSpec children add: textSpec.
> ].
>
> ^windowSpec!
>
>
More information about the Squeak-dev
mailing list
|