--- a/AbstractSettingsApplication.st Wed Nov 10 10:11:01 2010 +0100
+++ b/AbstractSettingsApplication.st Wed Nov 10 12:11:58 2010 +0100
@@ -326,7 +326,8 @@
AbstractSettingsApplication subclass:#SystemMessageSettingsAppl
instanceVariableNames:'classInfos vmInfo vmErrors displayErrors logDoits updChanges
changeFileName beepForInfoDialog beepForWarningDialog
- beepForErrorDialog flyByHelp beepEnabled beepInEditor'
+ beepForErrorDialog flyByHelp beepEnabled beepInEditor
+ toolTipAutoHideDelay'
classVariableNames:''
poolDictionaries:''
privateIn:AbstractSettingsApplication
@@ -15767,6 +15768,32 @@
^ false.
! !
+!AbstractSettingsApplication::SystemMessageSettingsAppl class methodsFor:'help specs'!
+
+helpSpec
+ "This resource specification was automatically generated
+ by the UIHelpTool of ST/X."
+
+ "Do not manually edit this!! If it is corrupted,
+ the UIHelpTool may not be able to read the specification."
+
+ "
+ UIHelpTool openOnClass:AbstractSettingsApplication::SystemMessageSettingsAppl
+ "
+
+ <resource: #help>
+
+ ^ super helpSpec addPairsFrom:#(
+
+#showToolTips
+''
+
+#toolTipAutoHideDelay
+''
+
+)
+! !
+
!AbstractSettingsApplication::SystemMessageSettingsAppl class methodsFor:'image specs'!
defaultIcon
@@ -15940,13 +15967,38 @@
label: 'Tooltips (FlyBy Help)'
name: 'CheckBox6'
layout: (LayoutFrame 5 0 5 0 -5 1 27 0)
+ activeHelpKey: showToolTips
model: flyByHelpActive
translateLabel: true
)
- )
-
- )
- extent: (Point 551 58)
+ (InputFieldSpec
+ name: 'EntryField1'
+ layout: (LayoutFrame -72 1 5 0 -16 1 27 0)
+ model: toolTipAutoHideDelayHoledr
+ type: timeDurationOrNil
+ acceptOnReturn: true
+ acceptOnTab: true
+ acceptOnPointerLeave: true
+ )
+ (LabelSpec
+ label: 'Autohide after:'
+ name: 'Label1'
+ layout: (LayoutFrame -260 1 6 0 -76 1 28 0)
+ activeHelpKey: toolTipAutoHideDelay
+ translateLabel: true
+ adjust: right
+ )
+ (LabelSpec
+ label: '(s)'
+ name: 'Label2'
+ layout: (LayoutFrame -13 1 6 0 7 1 28 0)
+ translateLabel: true
+ adjust: left
+ )
+ )
+
+ )
+ extent: (Point 551 62)
)
)
@@ -15960,25 +16012,29 @@
!AbstractSettingsApplication::SystemMessageSettingsAppl methodsFor:'actions'!
-basicReadSettings
- self
- readAspects:
- #(
+aspects
+ ^ #(
beepEnabled
beepInEditor
beepForInfoDialog
beepForWarningDialog
beepForErrorDialog
flyByHelpActive
- )
- from:currentUserPrefs.
+ toolTipAutoHideDelay
+ )
+
+ "Created: / 10-11-2010 / 12:07:42 / cg"
+!
+
+basicReadSettings
+ self readAspects:(self aspects) from:currentUserPrefs.
self vmInfo value:ObjectMemory infoPrinting.
self vmErrors value:ObjectMemory debugPrinting.
self classInfos value:Object infoPrinting.
self displayErrors value:DeviceWorkstation errorPrinting.
- "Modified: / 27-10-2010 / 10:11:44 / cg"
+ "Modified: / 10-11-2010 / 12:08:03 / cg"
!
basicSaveSettings
@@ -15988,19 +16044,9 @@
Object infoPrinting:self classInfos value.
DeviceWorkstation errorPrinting:self displayErrors value.
- self
- writeAspects:
- #(
- beepEnabled
- beepInEditor
- beepForInfoDialog
- beepForWarningDialog
- beepForErrorDialog
- flyByHelpActive
- )
- to:currentUserPrefs.
-
- "Modified: / 27-10-2010 / 10:11:52 / cg"
+ self writeAspects:(self aspects) to:currentUserPrefs.
+
+ "Modified: / 10-11-2010 / 12:08:14 / cg"
! !
!AbstractSettingsApplication::SystemMessageSettingsAppl methodsFor:'aspects'!
@@ -16089,6 +16135,16 @@
^ logDoits.
!
+toolTipAutoHideDelay
+ toolTipAutoHideDelay isNil ifTrue:[
+ toolTipAutoHideDelay := 10 seconds asValue.
+ toolTipAutoHideDelay onChangeSend:#updateModifiedChannel to:self
+ ].
+ ^ toolTipAutoHideDelay.
+
+ "Created: / 10-11-2010 / 12:07:10 / cg"
+!
+
updChanges
updChanges isNil ifTrue:[
@@ -16125,17 +16181,7 @@
!AbstractSettingsApplication::SystemMessageSettingsAppl methodsFor:'queries'!
hasUnsavedChanges
- (self
- hasChangedAspectIn:
- #(
- beepEnabled
- beepInEditor
- beepForInfoDialog
- beepForWarningDialog
- beepForErrorDialog
- flyByHelpActive
- )
- asComparedTo:currentUserPrefs) ifTrue:[^ true].
+ (self hasChangedAspectIn:(self aspects) asComparedTo:currentUserPrefs) ifTrue:[^ true].
self vmInfo value ~= ObjectMemory infoPrinting ifTrue:[^ true].
self vmErrors value ~= ObjectMemory debugPrinting ifTrue:[^ true].
@@ -16143,7 +16189,7 @@
self displayErrors value ~= DeviceWorkstation errorPrinting ifTrue:[^ true].
^ false
- "Modified: / 27-10-2010 / 10:12:00 / cg"
+ "Modified: / 10-11-2010 / 12:08:25 / cg"
! !
!AbstractSettingsApplication::ToolsSettingsAppl class methodsFor:'help specs'!
@@ -16665,9 +16711,9 @@
!AbstractSettingsApplication class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libtool/AbstractSettingsApplication.st,v 1.372 2010-10-27 09:41:41 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libtool/AbstractSettingsApplication.st,v 1.373 2010-11-10 11:11:58 cg Exp $'
!
version_CVS
- ^ '$Header: /cvs/stx/stx/libtool/AbstractSettingsApplication.st,v 1.372 2010-10-27 09:41:41 cg Exp $'
-! !
+ ^ '$Header: /cvs/stx/stx/libtool/AbstractSettingsApplication.st,v 1.373 2010-11-10 11:11:58 cg Exp $'
+! !