--- a/AbstractSettingsApplication.st Wed Nov 04 10:25:50 2009 +0100
+++ b/AbstractSettingsApplication.st Wed Nov 04 12:22:54 2009 +0100
@@ -161,7 +161,7 @@
showAccelerators newWindowLabelFormat formatHostNameWindowLabel
selectOnRightClick popUpMenuOnRelease
showRightButtonMenuOnRelease formatHostNameWindowLabel1
- formatHostNameWindowLabel2'
+ formatHostNameWindowLabel2 allowMouseWheelZoom'
classVariableNames:''
poolDictionaries:''
privateIn:AbstractSettingsApplication
@@ -7228,15 +7228,15 @@
extent: (Point 435 22)
)
(ViewSpec
- name: 'SeparatingSpace3'
+ name: 'SeparatingSpace1'
extent: (Point 435 4)
)
(DividerSpec
- name: 'Separator3'
+ name: 'Separator1'
extent: (Point 435 3)
)
(ViewSpec
- name: 'SeparatingSpace4'
+ name: 'SeparatingSpace2'
extent: (Point 435 3)
)
(CheckBoxSpec
@@ -7247,14 +7247,6 @@
extent: (Point 435 22)
)
(CheckBoxSpec
- label: 'MouseWheel Focus Follows Mouse'
- name: 'mouseWheelFocusFollowsMouse'
- enableChannel: mouseWheelFocusFollowsMouseEnabled
- model: mouseWheelFocusFollowsMouse
- translateLabel: true
- extent: (Point 435 22)
- )
- (CheckBoxSpec
label: 'Views Catch Focus when Mapped'
name: 'takeFocus'
model: takeFocus
@@ -7276,15 +7268,42 @@
extent: (Point 435 22)
)
(ViewSpec
- name: 'SeparatingSpace7'
+ name: 'SeparatingSpace3'
extent: (Point 435 4)
)
(DividerSpec
- name: 'Separator4'
+ name: 'Separator2'
+ extent: (Point 435 3)
+ )
+ (ViewSpec
+ name: 'SeparatingSpace4'
+ extent: (Point 435 3)
+ )
+ (CheckBoxSpec
+ label: 'MouseWheel Focus Follows Mouse'
+ name: 'mouseWheelFocusFollowsMouse'
+ enableChannel: mouseWheelFocusFollowsMouseEnabled
+ model: mouseWheelFocusFollowsMouse
+ translateLabel: true
+ extent: (Point 435 22)
+ )
+ (CheckBoxSpec
+ label: 'CTRL-MouseWheel is Zoom'
+ name: 'CheckBox1'
+ model: allowMouseWheelZoom
+ translateLabel: true
+ extent: (Point 435 22)
+ )
+ (ViewSpec
+ name: 'SeparatingSpace5'
extent: (Point 435 4)
)
- (ViewSpec
- name: 'SeparatingSpace8'
+ (DividerSpec
+ name: 'Separator3'
+ extent: (Point 435 4)
+ )
+ (ViewSpec
+ name: 'SeparatingSpace6'
extent: (Point 435 3)
)
(CheckBoxSpec
@@ -7302,15 +7321,15 @@
extent: (Point 435 21)
)
(ViewSpec
- name: 'SeparatingSpace5'
+ name: 'SeparatingSpace7'
extent: (Point 435 4)
)
(DividerSpec
- name: 'Separator2'
+ name: 'Separator4'
extent: (Point 435 4)
)
(ViewSpec
- name: 'SeparatingSpace6'
+ name: 'SeparatingSpace8'
extent: (Point 435 4)
)
(ViewSpec
@@ -7395,6 +7414,7 @@
mouseWheelFocusFollowsMouse
showRightButtonMenuOnRelease
selectOnRightClick
+ allowMouseWheelZoom
)
!
@@ -7473,6 +7493,14 @@
^ activateOnClick.
!
+allowMouseWheelZoom
+ allowMouseWheelZoom isNil ifTrue:[
+ allowMouseWheelZoom := true asValue.
+ allowMouseWheelZoom onChangeSend:#updateModifiedChannel to:self
+ ].
+ ^ allowMouseWheelZoom.
+!
+
beepEnabled
beepEnabled isNil ifTrue:[
beepEnabled := true asValue.
@@ -15708,9 +15736,9 @@
!AbstractSettingsApplication class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libtool/AbstractSettingsApplication.st,v 1.346 2009-11-04 09:17:14 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libtool/AbstractSettingsApplication.st,v 1.347 2009-11-04 11:22:54 cg Exp $'
!
version_CVS
- ^ '$Header: /cvs/stx/stx/libtool/AbstractSettingsApplication.st,v 1.346 2009-11-04 09:17:14 cg Exp $'
-! !
+ ^ '$Header: /cvs/stx/stx/libtool/AbstractSettingsApplication.st,v 1.347 2009-11-04 11:22:54 cg Exp $'
+! !