--- a/AbstractSettingsApplication.st Thu Jan 13 14:17:59 2005 +0100
+++ b/AbstractSettingsApplication.st Fri Jan 14 10:52:29 2005 +0100
@@ -229,7 +229,7 @@
AbstractSettingsApplication subclass:#SystemMessageSettingsAppl
instanceVariableNames:'classInfos vmInfo vmErrors displayErrors logDoits updChanges
changeFileName beepForInfoDialog beepForWarningDialog
- beepForErrorDialog'
+ beepForErrorDialog flyByHelp'
classVariableNames:''
poolDictionaries:''
privateIn:AbstractSettingsApplication
@@ -10662,7 +10662,7 @@
label: 'Messages Settings'
name: 'Messages Settings'
min: (Point 10 10)
- bounds: (Rectangle 0 0 561 368)
+ bounds: (Rectangle 0 0 561 435)
)
component:
(SpecCollection
@@ -10677,138 +10677,144 @@
component:
(SpecCollection
collection: (
- (VerticalPanelViewSpec
- name: 'VerticalPanel1'
- horizontalLayout: fit
- verticalLayout: topSpace
- horizontalSpace: 3
- verticalSpace: 20
+ (FramedBoxSpec
+ label: 'Info & Error Messages'
+ name: 'FramedBox1'
+ labelPosition: topLeft
+ translateLabel: true
component:
(SpecCollection
collection: (
- (FramedBoxSpec
- label: 'Info & Error Messages'
- name: 'FramedBox2'
- labelPosition: topLeft
- translateLabel: true
- component:
- (SpecCollection
- collection: (
- (CheckBoxSpec
- label: 'VM Info Messages'
- name: 'VMInfoMessages'
- layout: (LayoutFrame 5 0 5 0 -5 1 27 0)
- model: vmInfo
- translateLabel: true
- )
- (CheckBoxSpec
- label: 'VM Error Messages'
- name: 'VMErrorMessages'
- layout: (LayoutFrame 5 0 30 0 -5 1 52 0)
- model: vmErrors
- translateLabel: true
- )
- (CheckBoxSpec
- label: 'Display Error Messages (Xlib, Xtlib, WinAPI ...)'
- name: 'DisplayErrorMessages'
- layout: (LayoutFrame 5 0 55 0 -5 1 77 0)
- model: displayErrors
- translateLabel: true
- )
- (CheckBoxSpec
- label: 'Other Info Messages'
- name: 'OtherInfoMessages'
- layout: (LayoutFrame 5 0 80 0 -5 1 102 0)
- model: classInfos
- translateLabel: true
- )
- )
-
- )
- extent: (Point 551 133)
- )
- (FramedBoxSpec
- label: 'Change File'
- name: 'FramedBox1'
- labelPosition: topLeft
- translateLabel: true
- component:
- (SpecCollection
- collection: (
- (CheckBoxSpec
- label: 'Log compiles in Changefile'
- name: 'CheckBox1'
- layout: (LayoutFrame 5 0 5 0 -5 1 27 0)
- model: updChanges
- translateLabel: true
- )
- (CheckBoxSpec
- label: 'Log doIts in Changefile'
- name: 'CheckBox2'
- layout: (LayoutFrame 5 0 30 0 -5 1 52 0)
- model: logDoits
- translateLabel: true
- )
- (LabelSpec
- label: 'Changefile Name:'
- name: 'ChangefileNameLabel'
- layout: (LayoutFrame 5 0 55 0 200 0 77 0)
- translateLabel: true
- adjust: right
- )
- (InputFieldSpec
- name: 'ChangeFileNameEntryField'
- layout: (LayoutFrame 200 0 55 0 -5 1 77 0)
- model: changeFileName
- immediateAccept: true
- acceptOnReturn: true
- acceptOnTab: true
- acceptOnLostFocus: true
- acceptOnPointerLeave: true
- )
- )
-
- )
- extent: (Point 551 110)
- )
- (FramedBoxSpec
- label: 'Audible Bell'
- name: 'FramedBox3'
- labelPosition: topLeft
- translateLabel: true
- component:
- (SpecCollection
- collection: (
- (CheckBoxSpec
- label: 'Beep for Info Dialogs'
- name: 'CheckBox3'
- layout: (LayoutFrame 5 0 5 0 -5 1 27 0)
- model: beepForInfoDialog
- translateLabel: true
- )
- (CheckBoxSpec
- label: 'Beep for Warning Dialogs'
- name: 'CheckBox4'
- layout: (LayoutFrame 5 0 30 0 -5 1 52 0)
- model: beepForWarningDialog
- translateLabel: true
- )
- (CheckBoxSpec
- label: 'Beep for Error Dialogs'
- name: 'CheckBox5'
- layout: (LayoutFrame 5 0 55 0 -5 1 77 0)
- model: beepForErrorDialog
- translateLabel: true
- )
- )
-
- )
- extent: (Point 551 107)
+ (CheckBoxSpec
+ label: 'VM Info Messages'
+ name: 'VMInfoMessages'
+ layout: (LayoutFrame 5 0 5 0 -5 1 27 0)
+ model: vmInfo
+ translateLabel: true
+ )
+ (CheckBoxSpec
+ label: 'VM Error Messages'
+ name: 'VMErrorMessages'
+ layout: (LayoutFrame 5 0 30 0 -5 1 52 0)
+ model: vmErrors
+ translateLabel: true
+ )
+ (CheckBoxSpec
+ label: 'Display Error Messages (Xlib, Xtlib, WinAPI ...)'
+ name: 'DisplayErrorMessages'
+ layout: (LayoutFrame 5 0 55 0 -5 1 77 0)
+ model: displayErrors
+ translateLabel: true
+ )
+ (CheckBoxSpec
+ label: 'Other Info Messages'
+ name: 'OtherInfoMessages'
+ layout: (LayoutFrame 5 0 80 0 -5 1 102 0)
+ model: classInfos
+ translateLabel: true
)
)
)
- extent: (Point 551 357)
+ extent: (Point 551 133)
+ )
+ (FramedBoxSpec
+ label: 'Change File'
+ name: 'FramedBox2'
+ labelPosition: topLeft
+ translateLabel: true
+ component:
+ (SpecCollection
+ collection: (
+ (CheckBoxSpec
+ label: 'Log compiles in Changefile'
+ name: 'CheckBox1'
+ layout: (LayoutFrame 5 0 5 0 -5 1 27 0)
+ model: updChanges
+ translateLabel: true
+ )
+ (CheckBoxSpec
+ label: 'Log doIts in Changefile'
+ name: 'CheckBox2'
+ layout: (LayoutFrame 5 0 30 0 -5 1 52 0)
+ model: logDoits
+ translateLabel: true
+ )
+ (LabelSpec
+ label: 'Changefile Name:'
+ name: 'ChangefileNameLabel'
+ layout: (LayoutFrame 5 0 55 0 200 0 77 0)
+ translateLabel: true
+ adjust: right
+ )
+ (InputFieldSpec
+ name: 'ChangeFileNameEntryField'
+ layout: (LayoutFrame 200 0 55 0 -5 1 77 0)
+ model: changeFileName
+ immediateAccept: true
+ acceptOnReturn: true
+ acceptOnTab: true
+ acceptOnLostFocus: true
+ acceptOnPointerLeave: true
+ )
+ )
+
+ )
+ extent: (Point 551 110)
+ )
+ (FramedBoxSpec
+ label: 'Audible Bell'
+ name: 'FramedBox3'
+ labelPosition: topLeft
+ translateLabel: true
+ component:
+ (SpecCollection
+ collection: (
+ (CheckBoxSpec
+ label: 'Beep for Info Dialogs'
+ name: 'CheckBox3'
+ layout: (LayoutFrame 5 0 5 0 -5 1 27 0)
+ model: beepForInfoDialog
+ translateLabel: true
+ )
+ (CheckBoxSpec
+ label: 'Beep for Warning Dialogs'
+ name: 'CheckBox4'
+ layout: (LayoutFrame 5 0 30 0 -5 1 52 0)
+ model: beepForWarningDialog
+ translateLabel: true
+ )
+ (CheckBoxSpec
+ label: 'Beep for Error Dialogs'
+ name: 'CheckBox5'
+ layout: (LayoutFrame 5 0 55 0 -5 1 77 0)
+ model: beepForErrorDialog
+ translateLabel: true
+ )
+ )
+
+ )
+ extent: (Point 551 107)
+ )
+ (FramedBoxSpec
+ label: 'Help'
+ name: 'FramedBox4'
+ labelPosition: topLeft
+ translateLabel: true
+ component:
+ (SpecCollection
+ collection: (
+ (CheckBoxSpec
+ label: 'Fly By Help'
+ name: 'CheckBox6'
+ layout: (LayoutFrame 5 0 5 0 -5 1 27 0)
+ model: flyByHelp
+ translateLabel: true
+ )
+ )
+
+ )
+ extent: (Point 551 58)
)
)
@@ -10835,6 +10841,7 @@
UserPreferences current beepForInfoDialog:self beepForInfoDialog value.
UserPreferences current beepForWarningDialog:self beepForWarningDialog value.
UserPreferences current beepForErrorDialog:self beepForErrorDialog value.
+ UserPreferences current flyByHelpActive:self flyByHelp value.
!
helpFilename
@@ -10853,6 +10860,7 @@
self beepForInfoDialog value:UserPreferences current beepForInfoDialog.
self beepForWarningDialog value:UserPreferences current beepForWarningDialog.
self beepForErrorDialog value:UserPreferences current beepForErrorDialog.
+ self flyByHelp value:UserPreferences current flyByHelpActive.
! !
!AbstractSettingsApplication::SystemMessageSettingsAppl methodsFor:'aspects'!
@@ -10908,6 +10916,14 @@
^ displayErrors.
!
+flyByHelp
+ flyByHelp isNil ifTrue:[
+ flyByHelp := UserPreferences current flyByHelp asValue.
+ flyByHelp onChangeSend:#updateModifiedChannel to:self
+ ].
+ ^ flyByHelp.
+!
+
logDoits
logDoits isNil ifTrue:[
@@ -10944,14 +10960,6 @@
^ vmInfo.
! !
-!AbstractSettingsApplication::SystemMessageSettingsAppl methodsFor:'initialization & release'!
-
-initialize
-
- resources := self class classResources.
- super initialize
-! !
-
!AbstractSettingsApplication::SystemMessageSettingsAppl methodsFor:'queries'!
hasUnsavedChanges
@@ -10965,6 +10973,7 @@
self beepForInfoDialog value ~= UserPreferences current beepForInfoDialog ifTrue:[^ true].
self beepForWarningDialog value ~= UserPreferences current beepForWarningDialog ifTrue:[^ true].
self beepForErrorDialog value ~= UserPreferences current beepForErrorDialog ifTrue:[^ true].
+ self flyByHelp value ~= UserPreferences current flyByHelpActive ifTrue:[^ true].
^ false
! !
@@ -11351,5 +11360,5 @@
!AbstractSettingsApplication class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libtool/AbstractSettingsApplication.st,v 1.189 2005-01-13 13:17:59 stefan Exp $'
-! !
+ ^ '$Header: /cvs/stx/stx/libtool/AbstractSettingsApplication.st,v 1.190 2005-01-14 09:52:29 cg Exp $'
+! !