#UI_ENHANCEMENT by stefan
class: SettingsDialog
changed: #quickSearchFieldShownHolder
class: SettingsDialog class
changed: #windowSpec
Show the quic serach field initially
--- a/SettingsDialog.st Tue Dec 11 11:53:37 2018 +0100
+++ b/SettingsDialog.st Tue Dec 11 14:40:03 2018 +0100
@@ -1,3 +1,5 @@
+"{ Encoding: utf8 }"
+
"
COPYRIGHT (c) 2002 by eXept Software AG
All Rights Reserved
@@ -391,7 +393,7 @@
^
#(FullSpec
name: windowSpec
- uuid: 'e15a009c-dc5b-11e8-91fc-b8f6b1108e05'
+ uuid: '72a5bfde-1e86-11b2-a838-a088b4c61514'
window:
(WindowSpec
label: 'Settings Dialog'
@@ -440,7 +442,7 @@
(LabelSpec
label: 'Quick Search:'
name: 'Label1'
- layout: (LayoutFrame 0 0 0 0 150 0 0 1)
+ layout: (LayoutFrame 0 0 0 0 102 0 0 1)
activeHelpKey: quickSearchString
uuid: '591fadc6-dc5b-11e8-91fc-b8f6b1108e05'
translateLabel: true
@@ -448,7 +450,7 @@
)
(InputFieldSpec
name: 'QuickSeachEntryField'
- layout: (LayoutFrame 150 0 0 0 0 1 0 1)
+ layout: (LayoutFrame 105 0 0 0 0 1 0 1)
activeHelpKey: quickSearchString
uuid: '591fafe2-dc5b-11e8-91fc-b8f6b1108e05'
model: quickSearchStringHolder
@@ -499,7 +501,7 @@
translateLabel: true
tabable: true
model: saveSettingsWithoutAskingForFile
- extent: (Point 118 28)
+ extent: (Point 121 28)
)
(ActionButtonSpec
label: 'Load From...'
@@ -509,7 +511,7 @@
translateLabel: true
tabable: true
model: loadSettingsFromFile
- extent: (Point 119 28)
+ extent: (Point 121 28)
)
)
@@ -578,7 +580,7 @@
tabable: true
model: help
enableChannel: enableHelp
- extent: (Point 138 28)
+ extent: (Point 140 28)
)
(ActionButtonSpec
label: 'Close'
@@ -588,7 +590,7 @@
visibilityChannel: closeButtonVisibleHolder
translateLabel: true
model: closeRequest
- extent: (Point 138 28)
+ extent: (Point 141 28)
)
(ActionButtonSpec
label: 'Discard'
@@ -599,7 +601,7 @@
tabable: true
model: doReload
enableChannel: enableReload
- extent: (Point 138 28)
+ extent: (Point 140 28)
)
(ActionButtonSpec
label: 'Apply'
@@ -610,7 +612,7 @@
tabable: true
model: doSave
enableChannel: enableOK
- extent: (Point 139 28)
+ extent: (Point 141 28)
)
)
@@ -1564,10 +1566,11 @@
quickSearchFieldShownHolder
quickSearchFieldShownHolder isNil ifTrue:[
- quickSearchFieldShownHolder := false asValue.
+ quickSearchFieldShownHolder := true asValue.
quickSearchFieldShownHolder
- onChangeEvaluate:[
- quickSearchFieldShownHolder value ifTrue:[
+ onChangeEvaluate:[:sel :quickSearchFieldShown|
+ quickSearchFieldShown ifTrue:[
+ "when the search box is opened, warp the focus into the field"
self enqueueDelayedAction:[
(self componentAt:#QuickSeachEntryField) requestFocus
]
@@ -1575,6 +1578,8 @@
]
].
^ quickSearchFieldShownHolder.
+
+ "Modified (format): / 11-12-2018 / 14:39:18 / Stefan Vogel"
!
quickSearchStringHolder