--- a/Tools__FontSettingsApplication.st Thu Oct 29 15:41:15 2015 +0100
+++ b/Tools__FontSettingsApplication.st Thu Oct 29 15:59:33 2015 +0100
@@ -49,6 +49,30 @@
^ super flyByHelpSpec addPairsFrom:#(
+changeCodeFont
+'Open a font dialog to change the font used in code views only'
+
+changeInputFieldFont
+'Open a font dialog to change the font used in input fields only'
+
+changeLabelFont
+'Open a font dialog to change the font used in labels only'
+
+changeListFont
+'Open a font dialog to change the font used in lists only'
+
+changeMenuFont
+'Open a font dialog to change the font used in menus only'
+
+changeButtonFont
+'Open a font dialog to change the font used in buttons only'
+
+changeTooltipFont
+'Open a font dialog to change the font used in tooltips only'
+
+changeAllFont
+'Open a font dialog to change the font used in all views'
+
#resetToDefault
'Reset fonts back to original default values (as specified in the window style-file and OS settings)'
@@ -81,6 +105,9 @@
#changeToVisualAgeLook
'Change settings for a VisualAge-like look with bold variable code fonts'
+
+#useXftFontsOnly
+'Don''t try to use and don''t offer non-Xft fonts in font selection dialogs (XWindow only)'
)
"Created: / 17-03-2012 / 11:37:51 / cg"
@@ -203,15 +230,16 @@
(ActionButtonSpec
label: 'Change...'
name: 'Button1'
- layout: (LayoutFrame 100 0.0 7 0 205 0 29 0)
+ layout: (LayoutFrame 100 0.0 15 0 205 0 37 0)
translateLabel: true
tabable: true
model: changeTextFont
+ activeHelpKey: changeCodeFont
)
(LabelSpec
label: 'Text Font'
name: 'Label2'
- layout: (LayoutFrame 210 0 7 0 -2 1 29 0)
+ layout: (LayoutFrame 210 0 15 0 -2 1 37 0)
translateLabel: true
labelChannel: textFontLabelHolder
adjust: left
@@ -237,15 +265,16 @@
(ActionButtonSpec
label: 'Change...'
name: 'ChangeText'
- layout: (LayoutFrame 100 0.0 7 0 205 0 29 0)
+ layout: (LayoutFrame 100 0.0 15 0 205 0 37 0)
translateLabel: true
tabable: true
model: changeInputFieldFont
+ activeHelpKey: changeInputFieldFont
)
(LabelSpec
label: 'InputFields Font'
name: 'InputFieldsFont'
- layout: (LayoutFrame 210 0 7 0 -2 1 29 0)
+ layout: (LayoutFrame 210 0 15 0 -2 1 37 0)
translateLabel: true
labelChannel: inputFieldFontLabelHolder
adjust: left
@@ -271,15 +300,16 @@
(ActionButtonSpec
label: 'Change...'
name: 'ChangeLists'
- layout: (LayoutFrame 100 0.0 7 0 205 0 29 0)
+ layout: (LayoutFrame 100 0.0 15 0 205 0 37 0)
translateLabel: true
tabable: true
model: changeListsFont
+ activeHelpKey: changeListFont
)
(LabelSpec
label: 'Lists Font'
name: 'ListsFont'
- layout: (LayoutFrame 210 0 7 0 -2 1 29 0)
+ layout: (LayoutFrame 210 0 15 0 -2 1 37 0)
translateLabel: true
labelChannel: listsFontLabelHolder
adjust: left
@@ -305,15 +335,16 @@
(ActionButtonSpec
label: 'Change...'
name: 'ChangeMenus'
- layout: (LayoutFrame 100 0.0 7 0 205 0 29 0)
+ layout: (LayoutFrame 100 0.0 15 0 205 0 37 0)
translateLabel: true
tabable: true
+ activeHelpKey: changeMenuFont
model: changeMenusFont
)
(LabelSpec
label: 'Menus Font'
name: 'MenusFont'
- layout: (LayoutFrame 210 0 7 0 -2 1 29 0)
+ layout: (LayoutFrame 210 0 15 0 -2 1 37 0)
translateLabel: true
labelChannel: menusFontLabelHolder
adjust: left
@@ -339,15 +370,16 @@
(ActionButtonSpec
label: 'Change...'
name: 'ChangeLabels'
- layout: (LayoutFrame 100 0.0 7 0 205 0 29 0)
+ layout: (LayoutFrame 100 0.0 15 0 205 0 37 0)
translateLabel: true
tabable: true
+ activeHelpKey: changeLabelFont
model: changeLabelsFont
)
(LabelSpec
label: 'Labels'
name: 'LabelsFont'
- layout: (LayoutFrame 210 0 7 0 -2 1 29 0)
+ layout: (LayoutFrame 210 0 15 0 -2 1 37 0)
translateLabel: true
labelChannel: labelsFontLabelHolder
adjust: left
@@ -373,15 +405,16 @@
(ActionButtonSpec
label: 'Change...'
name: 'Change Buttons'
- layout: (LayoutFrame 100 0.0 7 0 205 0 29 0)
+ layout: (LayoutFrame 100 0.0 15 0 205 0 37 0)
translateLabel: true
tabable: true
+ activeHelpKey: changeButtonFont
model: changeButtonsFont
)
(LabelSpec
label: 'Buttons Font'
name: 'ButtonsFont'
- layout: (LayoutFrame 210 0 7 0 -2 1 29 0)
+ layout: (LayoutFrame 210 0 15 0 -2 1 37 0)
translateLabel: true
labelChannel: buttonsFontLabelHolder
adjust: left
@@ -407,15 +440,16 @@
(ActionButtonSpec
label: 'Change...'
name: 'Button11'
- layout: (LayoutFrame 100 0.0 7 0 205 0 29 0)
+ layout: (LayoutFrame 100 0.0 15 0 205 0 37 0)
translateLabel: true
tabable: true
+ activeHelpKey: changeTooltipFont
model: changeTooltipFont
)
(LabelSpec
label: 'Label'
name: 'Label8'
- layout: (LayoutFrame 210 0 7 0 -2 1 29 0)
+ layout: (LayoutFrame 210 0 15 0 -2 1 37 0)
translateLabel: true
labelChannel: tooltipFontLabelHolder
adjust: left
@@ -441,7 +475,7 @@
(ActionButtonSpec
label: 'Change...'
name: 'Button9'
- layout: (LayoutFrame 100 0.0 7 0 205 0 29 0)
+ layout: (LayoutFrame 100 0.0 15 0 205 0 37 0)
translateLabel: true
tabable: true
model: changeOtherFont
@@ -449,11 +483,12 @@
(LabelSpec
label: 'Label'
name: 'Label6'
- layout: (LayoutFrame 210 0 7 0 -2 1 29 0)
+ layout: (LayoutFrame 210 0 15 0 -2 1 37 0)
translateLabel: true
labelChannel: otherFontLabelHolder
adjust: left
postBuildCallback: postBuildOtherFontLabel:
+ activeHelpKey: changeOtherFont
)
(DividerSpec
name: 'Separator13'
@@ -482,6 +517,7 @@
layout: (LayoutFrame 100 0.0 11 0 205 0 33 0)
translateLabel: true
tabable: true
+ activeHelpKey: changeAllFont
model: changeAllFont
)
(DividerSpec
@@ -533,7 +569,6 @@
label: 'Font Size:'
name: 'Label9'
layout: (LayoutFrame 148 0.0 13 0 298 0 35 0)
- activeHelpKey: changeToSmallFonts
translateLabel: true
adjust: left
)
@@ -557,7 +592,6 @@
label: 'Look:'
name: 'Label10'
layout: (LayoutFrame 148 0.0 45 0 298 0 67 0)
- activeHelpKey: changeToSTXLook
translateLabel: true
adjust: left
)
@@ -641,8 +675,8 @@
fn
].
- self allOfThem value:SimpleView defaultFont.
- self otherDef value:(readFont value:#Other value:SimpleView defaultFont).
+ self allOfThem value:View defaultFont.
+ self otherDef value:(readFont value:#Other value:View defaultFont).
self labelDef value:(readFont value:#Label value:Label defaultFont).
self buttonDef value:(readFont value:#Button value:Button defaultFont).
self listDef value:(readFont value:#List value:SelectionInListView defaultFont).
@@ -654,7 +688,7 @@
sz := TextView defaultFont size.
idx := self fontSizeListValues indexOf:sz.
idx ~~ 0 ifTrue:[
- self fontSizeSelectionHolder value:idx.
+ self fontSizeSelectionHolder value:idx withoutNotifying:self.
].
lookIdx := nil.
@@ -667,7 +701,7 @@
lookIdx := (self lookListValues indexOf:#squeak).
].
].
- self lookSelectionHolder value:lookIdx.
+ self lookSelectionHolder value:lookIdx withoutNotifying:self
"Modified: / 10-10-2011 / 12:15:31 / Jan Vrany <jan.vrany@fit.cvut.cz>"
"Created: / 06-02-2012 / 12:22:39 / cg"