--- a/AbstractSettingsApplication.st Mon Sep 02 14:14:09 2013 +0200
+++ b/AbstractSettingsApplication.st Mon Sep 02 17:05:24 2013 +0200
@@ -181,7 +181,7 @@
instanceVariableNames:'nativeWidgets nativeDialogs shadows opaqueVariablePanelResize
opaqueTableColumnResize lowerOnRightClickInTitle
lowerOnShiftClickInTitle displaySupportsNativeFileDialogs
- nativeFileDialogs'
+ nativeFileDialogs cartoonToolTipStyle'
classVariableNames:''
poolDictionaries:''
privateIn:AbstractSettingsApplication
@@ -8501,6 +8501,53 @@
"Modified: / 12-11-2006 / 19:15:05 / cg"
! !
+!AbstractSettingsApplication::MiscDisplay2SettingsAppl class methodsFor:'help specs'!
+
+flyByHelpSpec
+ "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::MiscDisplaySettingsAppl
+ "
+
+ <resource: #help>
+
+ ^ super flyByHelpSpec addPairsFrom:#(
+
+#nativeWidgets
+'Use native widgets if possible (Scrollbars, Checktoggles, etc.)\Experimental and unfinished.\(Windows operating system ony)'
+
+#nativeDialogs
+'Use native dialogs if possible (WarnBox, InformationBox, etc.)\(Windows operating system ony)'
+
+#nativeFileDialogs
+'Use native file dialogs if possible (Load- and Save Dialogs)\(Windows operating system ony)'
+
+#shadows
+'Simulate shadows under popup menus and dialogs (by greyShading).\No longer needed, as modern systems nowadays do it automatically for us.'
+
+#cartoonToolTipStyle
+'Choose between normal and cartoon mode when showing tooltips.'
+
+#opaqueVariablePanelResizing
+'When moving a variable panels splitter handle, immediately resize the components.\Otherwise, show a dashed resize line above the view and resize when the mouse button is released.\Uncheck on a slow machine and/or a slow graphics engine'
+
+#opaqueTableColumnResizing
+'When moving a table-view''s column splitter handle, immediately resize the columns.\Otherwise, show a dashed resize line above the view and resize when the mouse button is released.\Uncheck on a slow machine and/or a slow graphics engine'
+
+#lowerOnRightClickInTitle
+'When right-clicking into a window''s title/caption area, lower the window.\(Windows operating system ony)'
+
+#lowerOnShiftClickInTitle
+'When shift-clicking into a window''s title/caption area, lower the window.\(Windows operating system ony)'
+
+)
+! !
+
!AbstractSettingsApplication::MiscDisplay2SettingsAppl class methodsFor:'image specs'!
defaultIcon
@@ -8547,121 +8594,137 @@
<resource: #canvas>
^
- #(FullSpec
- name: windowSpec
- window:
- (WindowSpec
- label: 'Display settings 2'
- name: 'Display settings 2'
- min: (Point 10 10)
- bounds: (Rectangle 0 0 671 591)
- )
- component:
- (SpecCollection
- collection: (
- (VerticalPanelViewSpec
- name: 'VerticalPanel1'
- layout: (LayoutFrame 0 0 0 0 0 1 0 1)
- horizontalLayout: fitSpace
- verticalLayout: topSpace
- horizontalSpace: 5
- verticalSpace: 3
- component:
- (SpecCollection
- collection: (
- (CheckBoxSpec
- label: 'Use Native Widgets (Experimental & Unfinished Feature)'
- name: 'NativeWidgets'
- enableChannel: displaySupportsNativeWidgets
- model: nativeWidgets
- translateLabel: true
- extent: (Point 661 22)
- )
- (CheckBoxSpec
- label: 'Use Native Dialogs (Experimental & Unfinished Feature)'
- name: 'NativeDialogs'
- enableChannel: displaySupportsNativeDialogs
- model: nativeDialogs
- translateLabel: true
- extent: (Point 661 22)
- )
- (CheckBoxSpec
- label: 'Use Native File Dialogs (Experimental & Unfinished Feature)'
- name: 'CheckBox1'
- enableChannel: displaySupportsNativeFileDialogs
- model: nativeFileDialogs
- translateLabel: true
- extent: (Point 661 22)
- )
- (ViewSpec
- name: 'SeparatingSpace1'
- extent: (Point 661 5)
- )
- (DividerSpec
- name: 'Separator1'
- extent: (Point 661 4)
- )
- (ViewSpec
- name: 'SeparatingSpace2'
- extent: (Point 661 5)
- )
- (CheckBoxSpec
- label: 'Shadows under PopUp Views'
- name: 'shadows'
- model: shadows
- translateLabel: true
- extent: (Point 661 22)
- )
- (CheckBoxSpec
- label: 'Opaque Variable Panel Resizing'
- name: 'opaqueVariablePanelResize'
- model: opaqueVariablePanelResizing
- translateLabel: true
- extent: (Point 661 22)
- )
- (CheckBoxSpec
- label: 'Opaque Table Column Resizing'
- name: 'opaqueTableColumnResize'
- model: opaqueTableColumnResizing
- translateLabel: true
- extent: (Point 661 22)
- )
- (ViewSpec
- name: 'SeparatingSpace3'
- extent: (Point 661 4)
- )
- (DividerSpec
- name: 'Separator3'
- extent: (Point 661 3)
- )
- (ViewSpec
- name: 'SeparatingSpace4'
- extent: (Point 661 3)
- )
- (CheckBoxSpec
- label: 'Right-Click in Title brings Window to Back'
- name: 'lowerOnRightClickInTitle'
- enableChannel: isWindowsDisplay
- model: lowerOnRightClickInTitle
- translateLabel: true
- extent: (Point 661 21)
- )
- (CheckBoxSpec
- label: 'Shift-Click in Title brings Window to Back'
- name: 'lowerOnShiftClickInTitle'
- enableChannel: isWindowsDisplay
- model: lowerOnShiftClickInTitle
- translateLabel: true
- extent: (Point 661 21)
- )
- )
-
- )
- )
+ #(FullSpec
+ name: windowSpec
+ window:
+ (WindowSpec
+ label: 'Display settings 2'
+ name: 'Display settings 2'
+ min: (Point 10 10)
+ bounds: (Rectangle 0 0 671 591)
+ )
+ component:
+ (SpecCollection
+ collection: (
+ (VerticalPanelViewSpec
+ name: 'VerticalPanel1'
+ layout: (LayoutFrame 0 0 0 0 0 1 0 1)
+ horizontalLayout: fitSpace
+ verticalLayout: topSpace
+ horizontalSpace: 5
+ verticalSpace: 3
+ component:
+ (SpecCollection
+ collection: (
+ (CheckBoxSpec
+ label: 'Use Native Widgets (Experimental & Unfinished Feature)'
+ name: 'NativeWidgets'
+ activeHelpKey: nativeWidgets
+ enableChannel: displaySupportsNativeWidgets
+ model: nativeWidgets
+ translateLabel: true
+ extent: (Point 661 22)
+ )
+ (CheckBoxSpec
+ label: 'Use Native Dialogs (Experimental & Unfinished Feature)'
+ name: 'NativeDialogs'
+ activeHelpKey: nativeDialogs
+ enableChannel: displaySupportsNativeDialogs
+ model: nativeDialogs
+ translateLabel: true
+ extent: (Point 661 22)
+ )
+ (CheckBoxSpec
+ label: 'Use Native File Dialogs (Experimental & Unfinished Feature)'
+ name: 'CheckBox1'
+ activeHelpKey: nativeFileDialogs
+ enableChannel: displaySupportsNativeFileDialogs
+ model: nativeFileDialogs
+ translateLabel: true
+ extent: (Point 661 22)
+ )
+ (ViewSpec
+ name: 'SeparatingSpace1'
+ extent: (Point 661 5)
+ )
+ (DividerSpec
+ name: 'Separator1'
+ extent: (Point 661 4)
+ )
+ (ViewSpec
+ name: 'SeparatingSpace2'
+ extent: (Point 661 5)
+ )
+ (CheckBoxSpec
+ label: 'Shadows under PopUp Views'
+ name: 'shadows'
+ activeHelpKey: shadows
+ model: shadows
+ translateLabel: true
+ extent: (Point 661 22)
+ )
+ (CheckBoxSpec
+ label: 'Cartoon Tooltip Style'
+ name: 'CheckBox2'
+ activeHelpKey: cartoonToolTipStyle
+ model: cartoonToolTipStyle
+ translateLabel: true
+ extent: (Point 661 22)
+ )
+ (CheckBoxSpec
+ label: 'Opaque Variable Panel Resizing'
+ name: 'opaqueVariablePanelResize'
+ activeHelpKey: opaqueVariablePanelResizing
+ model: opaqueVariablePanelResizing
+ translateLabel: true
+ extent: (Point 661 22)
+ )
+ (CheckBoxSpec
+ label: 'Opaque Table Column Resizing'
+ name: 'opaqueTableColumnResize'
+ activeHelpKey: opaqueTableColumnResizing
+ model: opaqueTableColumnResizing
+ translateLabel: true
+ extent: (Point 661 22)
+ )
+ (ViewSpec
+ name: 'SeparatingSpace3'
+ extent: (Point 661 4)
+ )
+ (DividerSpec
+ name: 'Separator3'
+ extent: (Point 661 3)
+ )
+ (ViewSpec
+ name: 'SeparatingSpace4'
+ extent: (Point 661 3)
+ )
+ (CheckBoxSpec
+ label: 'Right-Click in Title brings Window to Back'
+ name: 'lowerOnRightClickInTitle'
+ activeHelpKey: lowerOnRightClickInTitle
+ enableChannel: isWindowsDisplay
+ model: lowerOnRightClickInTitle
+ translateLabel: true
+ extent: (Point 661 21)
+ )
+ (CheckBoxSpec
+ label: 'Shift-Click in Title brings Window to Back'
+ name: 'lowerOnShiftClickInTitle'
+ activeHelpKey: lowerOnShiftClickInTitle
+ enableChannel: isWindowsDisplay
+ model: lowerOnShiftClickInTitle
+ translateLabel: true
+ extent: (Point 661 21)
+ )
+ )
+
+ )
)
-
- )
- )
+ )
+
+ )
+ )
! !
!AbstractSettingsApplication::MiscDisplay2SettingsAppl methodsFor:'actions'!
@@ -8694,6 +8757,7 @@
from:currentUserPrefs.
self shadows value:PopUpView shadows.
+ self cartoonToolTipStyle value: (currentUserPrefs toolTipShapeStyle == #cartoon).
currentScreen platformName = 'WIN32' ifTrue:[
self lowerOnRightClickInTitle value:(currentScreen rightButtonIsLowerWindow:nil).
@@ -8726,6 +8790,9 @@
currentUserPrefs nativeFileDialogs:self nativeFileDialogs value.
].
+ currentUserPrefs toolTipShapeStyle:((self cartoonToolTipStyle value)
+ ifTrue:[ #cartoon ]
+ ifFalse:[ nil ]).
PopUpView shadows:self shadows value.
self
@@ -8746,6 +8813,14 @@
!AbstractSettingsApplication::MiscDisplay2SettingsAppl methodsFor:'aspects'!
+cartoonToolTipStyle
+ cartoonToolTipStyle isNil ifTrue:[
+ cartoonToolTipStyle := false asValue.
+ cartoonToolTipStyle onChangeSend:#updateModifiedChannel to:self
+ ].
+ ^ cartoonToolTipStyle.
+!
+
displaySupportsNativeDialogs
^ Screen current supportsNativeDialogs
!
@@ -8853,6 +8928,7 @@
asComparedTo:currentUserPrefs) ifTrue:[^ true].
self shadows value ~= PopUpView shadows ifTrue:[^ true].
+ (currentUserPrefs toolTipShapeStyle == #cartoon) ~= cartoonToolTipStyle value ifTrue:[^ true].
currentScreen platformName = 'WIN32' ifTrue:[
(currentScreen rightButtonIsLowerWindow:nil) ~= (self lowerOnRightClickInTitle value) ifTrue:[^ true].
@@ -18090,10 +18166,10 @@
!AbstractSettingsApplication class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libtool/AbstractSettingsApplication.st,v 1.492 2013-08-30 21:43:33 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libtool/AbstractSettingsApplication.st,v 1.493 2013-09-02 15:05:24 cg Exp $'
!
version_CVS
- ^ '$Header: /cvs/stx/stx/libtool/AbstractSettingsApplication.st,v 1.492 2013-08-30 21:43:33 cg Exp $'
-! !
-
+ ^ '$Header: /cvs/stx/stx/libtool/AbstractSettingsApplication.st,v 1.493 2013-09-02 15:05:24 cg Exp $'
+! !
+