--- a/AbstractSettingsApplication.st Sun Jun 10 20:55:58 2012 +0200
+++ b/AbstractSettingsApplication.st Sun Jun 10 21:37:26 2012 +0200
@@ -75,7 +75,8 @@
AbstractSettingsApplication subclass:#DebuggerSettingsAppl
instanceVariableNames:'showErrorNotifier verboseBacktraceInDebugger
- allowSendMailFromDebugger useNewLayoutInDebugger'
+ allowSendMailFromDebugger useNewLayoutInDebugger
+ hideSupportCodeInDebugger'
classVariableNames:''
poolDictionaries:''
privateIn:AbstractSettingsApplication
@@ -2632,7 +2633,7 @@
horizontalLayout: fit
verticalLayout: top
horizontalSpace: 3
- verticalSpace: 5
+ verticalSpace: 0
component:
(SpecCollection
collection: (
@@ -2654,23 +2655,6 @@
extent: (Point 600 30)
)
(ViewSpec
- name: 'ShowVerboseStackBox'
- component:
- (SpecCollection
- collection: (
- (CheckBoxSpec
- label: 'Verbose Backtrace by Default in Debugger'
- name: 'ShowVerboseStackCheckBox'
- layout: (LayoutFrame 5 0 5 0 -5 1 27 0)
- model: verboseBacktraceInDebugger
- translateLabel: true
- )
- )
-
- )
- extent: (Point 600 30)
- )
- (ViewSpec
name: 'UseNewLayoutInDebuggerBox'
component:
(SpecCollection
@@ -2688,6 +2672,40 @@
extent: (Point 600 29)
)
(ViewSpec
+ name: 'ShowVerboseStackBox'
+ component:
+ (SpecCollection
+ collection: (
+ (CheckBoxSpec
+ label: 'Verbose Backtrace by Default in Debugger'
+ name: 'ShowVerboseStackCheckBox'
+ layout: (LayoutFrame 5 0 5 0 -5 1 27 0)
+ model: verboseBacktraceInDebugger
+ translateLabel: true
+ )
+ )
+
+ )
+ extent: (Point 600 30)
+ )
+ (ViewSpec
+ name: 'HideEnumerationCodeBox'
+ component:
+ (SpecCollection
+ collection: (
+ (CheckBoxSpec
+ label: 'Hide Support Code (Implementation of Enumerations, Exceptions, etc.)'
+ name: 'CheckBox1'
+ layout: (LayoutFrame 5 0 5 0 -5 1 27 0)
+ model: hideEnumerationCodeInDebugger
+ translateLabel: true
+ )
+ )
+
+ )
+ extent: (Point 600 30)
+ )
+ (ViewSpec
name: 'AllowSendingMailFromDebuggerBox'
component:
(SpecCollection
@@ -2720,7 +2738,10 @@
self showErrorNotifier value:(NoHandlerError emergencyHandler == AbstractLauncherApplication notifyingEmergencyHandler).
self allowSendMailFromDebugger value:currentUserPrefs allowSendMailFromDebugger.
self verboseBacktraceInDebugger value:(currentUserPrefs verboseBacktraceInDebugger).
+ self hideSupportCodeInDebugger value:(currentUserPrefs hideSupportCodeInDebugger).
self useNewLayoutInDebugger value:(currentUserPrefs useNewLayoutInDebugger).
+
+ "Modified: / 10-06-2012 / 21:23:24 / cg"
!
basicSaveSettings
@@ -2732,8 +2753,10 @@
currentUserPrefs allowSendMailFromDebugger:(self allowSendMailFromDebugger value).
currentUserPrefs verboseBacktraceInDebugger:(self verboseBacktraceInDebugger value).
currentUserPrefs useNewLayoutInDebugger:(self useNewLayoutInDebugger value).
-
+ currentUserPrefs hideSupportCodeInDebugger:(self hideSupportCodeInDebugger value).
Debugger newDebugger.
+
+ "Modified: / 10-06-2012 / 21:23:32 / cg"
! !
!AbstractSettingsApplication::DebuggerSettingsAppl methodsFor:'aspects'!
@@ -2747,6 +2770,17 @@
^ allowSendMailFromDebugger.
!
+hideSupportCodeInDebugger
+
+ hideSupportCodeInDebugger isNil ifTrue:[
+ hideSupportCodeInDebugger := (UserPreferences current hideSupportCodeInDebugger ? true) asValue.
+ hideSupportCodeInDebugger onChangeSend:#updateModifiedChannel to:self
+ ].
+ ^ hideSupportCodeInDebugger.
+
+ "Created: / 10-06-2012 / 21:23:40 / cg"
+!
+
showErrorNotifier
showErrorNotifier isNil ifTrue:[
@@ -2785,9 +2819,12 @@
hasUnsavedChanges
self showErrorNotifier value ~= (NoHandlerError emergencyHandler == AbstractLauncherApplication notifyingEmergencyHandler) ifTrue:[^ true].
currentUserPrefs verboseBacktraceInDebugger ~= self verboseBacktraceInDebugger value ifTrue:[^ true].
+ currentUserPrefs hideSupportCodeInDebugger ~= self hideSupportCodeInDebugger value ifTrue:[^ true].
currentUserPrefs allowSendMailFromDebugger ~= self allowSendMailFromDebugger value ifTrue:[^ true].
currentUserPrefs useNewLayoutInDebugger ~= self useNewLayoutInDebugger value ifTrue:[^ true].
^ false
+
+ "Modified: / 10-06-2012 / 21:23:54 / cg"
! !
!AbstractSettingsApplication::DisplaySettingsAppl class methodsFor:'defaults'!
@@ -17053,9 +17090,9 @@
!AbstractSettingsApplication class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libtool/AbstractSettingsApplication.st,v 1.438 2012-05-14 10:40:01 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libtool/AbstractSettingsApplication.st,v 1.439 2012-06-10 19:37:26 cg Exp $'
!
version_CVS
- ^ '$Header: /cvs/stx/stx/libtool/AbstractSettingsApplication.st,v 1.438 2012-05-14 10:40:01 cg Exp $'
-! !
+ ^ '$Header: /cvs/stx/stx/libtool/AbstractSettingsApplication.st,v 1.439 2012-06-10 19:37:26 cg Exp $'
+! !