equal
deleted
inserted
replaced
|
1 "{ Encoding: utf8 }" |
|
2 |
1 " |
3 " |
2 COPYRIGHT (c) 1989 by Claus Gittinger |
4 COPYRIGHT (c) 1989 by Claus Gittinger |
3 All Rights Reserved |
5 All Rights Reserved |
4 |
6 |
5 This software is furnished under a license and may be used |
7 This software is furnished under a license and may be used |
3092 "Created: / 23-03-2012 / 12:49:50 / cg" |
3094 "Created: / 23-03-2012 / 12:49:50 / cg" |
3093 ! |
3095 ! |
3094 |
3096 |
3095 initialize |
3097 initialize |
3096 |menu menuPanel mH panel bpanel bH bpanel1 bH1 bpanel2 bH2 codePanel |
3098 |menu menuPanel mH panel bpanel bH bpanel1 bH1 bpanel2 bH2 codePanel |
3097 newLayout v exceptionAndTogglePanel codeToggleLabels userPrefs| |
3099 newLayout v exceptionAndTogglePanel codeToggleLabels| |
3098 |
3100 |
3099 super initialize. |
3101 super initialize. |
3100 |
3102 |
3101 self initializeFlags. |
3103 self initializeFlags. |
3102 |
3104 |
3118 menuPanel menu:menu. |
3120 menuPanel menu:menu. |
3119 |
3121 |
3120 mH := menuPanel preferredHeight. |
3122 mH := menuPanel preferredHeight. |
3121 menuPanel origin:(0.0 @ 0.0) corner:(1.0 @ (mH)). |
3123 menuPanel origin:(0.0 @ 0.0) corner:(1.0 @ (mH)). |
3122 |
3124 |
3123 newLayout := userPrefs useNewLayoutInDebugger. |
3125 newLayout := UserPreferences current useNewLayoutInDebugger. |
3124 newLayout ifFalse:[ |
3126 newLayout ifFalse:[ |
3125 bpanel := HorizontalPanelView in:self. |
3127 bpanel := HorizontalPanelView in:self. |
3126 |
3128 |
3127 self initializeButtonsIn:bpanel. |
3129 self initializeButtonsIn:bpanel. |
3128 |
3130 |
9540 |
9542 |
9541 !DebugView::IgnoredHaltOrBreakpoint methodsFor:'printing'! |
9543 !DebugView::IgnoredHaltOrBreakpoint methodsFor:'printing'! |
9542 |
9544 |
9543 printConditionOn:aStream |
9545 printConditionOn:aStream |
9544 ignoredSendingClassAndSelectors notEmptyOrNil ifTrue:[ |
9546 ignoredSendingClassAndSelectors notEmptyOrNil ifTrue:[ |
9545 aStream nextPutAll:(' if called from %1 » %2' |
9547 aStream nextPutAll:(' if called from %1 » %2' |
9546 bindWith:ignoredSendingClassAndSelectors first first |
9548 bindWith:ignoredSendingClassAndSelectors first first |
9547 with:ignoredSendingClassAndSelectors first second). |
9549 with:ignoredSendingClassAndSelectors first second). |
9548 ^ self. |
9550 ^ self. |
9549 ]. |
9551 ]. |
9550 ignoredProcesses notEmptyOrNil ifTrue:[ |
9552 ignoredProcesses notEmptyOrNil ifTrue:[ |