"

 COPYRIGHT (c) 2014 by eXept Software AG

 COPYRIGHT (c) 2016 Jan Vrany

              All Rights Reserved

 This software is furnished under a license and may be used

 only in accordance with the terms of that license and with the

 inclusion of the above copyright notice. This software may not

 be provided or otherwise made available to, or used by, any

 other person. No title to or ownership of the software is

 hereby transferred.

"

"{ Package: 'stx:libtool' }"

"{ NameSpace: Tools }"

AbstractSettingsApplication subclass:#FontSettingsApplication

	instanceVariableNames:'filter allOfThem labelDef buttonDef listDef menuDef textDef

		othersDef allFontLabelHolder buttonsFontLabelHolder

		textFontLabelHolder labelsFontLabelHolder listsFontLabelHolder

		menusFontLabelHolder otherFontLabelHolder allLabel buttonsLabel

		textLabel labelLabel listsLabel menuLabel inputFieldLabel

		inputFieldDef inputFieldFontLabelHolder otherLabel

		linuxFontWorkaround otherDef tooltipDef tooltipFontLabelHolder

		tooltipLabel useXftFontsOnly fontSizeSelectionHolder

		lookSelectionHolder useXFontsOnly'

	classVariableNames:''

	poolDictionaries:''

	category:'Interface-Smalltalk'

!

!FontSettingsApplication class methodsFor:'documentation'!

copyright

"

 COPYRIGHT (c) 2014 by eXept Software AG

 COPYRIGHT (c) 2016 Jan Vrany

              All Rights Reserved

 This software is furnished under a license and may be used

 only in accordance with the terms of that license and with the

 inclusion of the above copyright notice. This software may not

 be provided or otherwise made available to, or used by, any

 other person. No title to or ownership of the software is

 hereby transferred.

"

! !

!FontSettingsApplication class methodsFor:'instance creation'!

fontForEncoding:encodingMatch

    | inst |

    inst := self new.

    inst encodingMatch:encodingMatch.

    self initialize.

    self open.

! !

!FontSettingsApplication 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:FontSettingsAppl    

    "

    <resource: #help>

    ^ 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)'

#changeToHighContrast

'Change settings for higher contrast.\Useful for presentations and outdor operation (bright sunlight)'

#changeToNormalContrast

'Change settings for normal contrast.'

#changeToBigFonts

'Change settings for bigger fonts.\Useful for presentations'

#changeToHugeFonts

'Change settings for huge fonts.\Useful for presentations'

#changeToSmallFonts

'Change settings for small fonts.\Useful on smaller screens (13 or 15 inch)'

#changeToNormalFonts

'Change settings for default font sizes.'

#changeToSTXLook

'Change settings for an ST/X-like look with fixed-width code fonts'

#changeToSTXLookXft

'Change settings for an ST/X-like look with fixed-width code fonts).\Uses better looking Xft fonts if avaiable (XWindow only)'

#changeToSqueakLook

'Change settings for a Squeak-like look with variable code fonts'

#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).\If checked, ST/X will use the much nicer looking, but sometimes slower Xft fonts.'

#useXFontsOnly

'Don''t try to use and don''t offer Xft fonts in font selection dialogs (XWindow only).\Check this, if you are working with remote displays via a slow communication line,\to suppress any Xft font usage.\(Xft font rendering requires a much higher bandwidth.)'

)

    "Created: / 17-03-2012 / 11:37:51 / cg"

! !

!FontSettingsApplication class methodsFor:'image specs'!

defaultIcon

    <resource: #programImage>

    ^ ToolbarIconLibrary fontIcon

!

defaultIcon2

    <resource: #image>

    "This resource specification was automatically generated

     by the ImageEditor of ST/X."

    "Do not manually edit this!! If it is corrupted,

     the ImageEditor may not be able to read the specification."

    "

     self defaultIcon2 inspect

     ImageEditor openOnClass:self andSelector:#defaultIcon2

     Icon flushCachedIcons"

    ^ Icon constantNamed:#'FontSettingsAppl class defaultIcon2'

        ifAbsentPut:[

            (Depth4Image new)

                width:22;

                height:22;

                photometric:(#palette);

                bitsPerSample:(#( 4 ));

                samplesPerPixel:(1);

                bits:(ByteArray 

                            fromPackedString:'

@@@@@@@@@@@@@@@@@@@@@!!X @@@@@@@!!X @@@6H@@@@@@DP6H@@@Y!!H@@@@@QDY"@@@BY"@@@@ADQBY"@@@FX @@@@@DQCX @@@6H@@@@@QEP6H@@@@ @@@@

ADUDP @C@@@@@@@DQSH@@@L @@@@@@QEL @@@2@@@@@@ADT2@@@CH@@@@@@DQSH@@@L @@@@@@QEL @@@2@@@@@@QDT2@@@CH@@@@@QDQSH@@@@ @@@@@DQE

P @@@@@@@@@@@DQ@@@@@@@@@@@@@@D@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@b');

                colorMapFromArray:#[ 0 0 0 255 255 255 150 150 150 213 213 213 215 48 48 134 54 54 240 240 240 ];

                mask:((ImageMask new)

                            width:22;

                            height:22;

                            bits:(ByteArray 

                                        fromPackedString:'@@@@@G @OG0@O''<@O7>@O<?@A>? A?? A??@A<?@A<>@A<>@A<>@A=>@C?>@G<>@C<\@@8D@@H@@@@@@@@@@@@@@');

                            yourself);

                yourself

        ]

! !

!FontSettingsApplication class methodsFor:'interface specs'!

windowSpec

    "This resource specification was automatically generated

     by the UIPainter of ST/X."

    "Do not manually edit this!! If it is corrupted,

     the UIPainter may not be able to read the specification."

    "

     UIPainter new openOnClass:Tools::FontSettingsApplication andSelector:#windowSpec

     Tools::FontSettingsApplication new openInterface:#windowSpec

     Tools::FontSettingsApplication open

    "

    <resource: #canvas>

    ^ 

    #(FullSpec

       name: windowSpec

       window: 

      (WindowSpec

         label: 'Font Settings'

         name: 'Font Settings'

         flags: 1

         min: (Point 10 10)

         bounds: (Rectangle 0 0 643 810)

       )

       component: 

      (SpecCollection

         collection: (

          (VerticalPanelViewSpec

             name: 'VerticalPanel1'

             layout: (LayoutFrame 0 0.0 0 0.0 0 1.0 0 1.0)

             horizontalLayout: fitSpace

             verticalLayout: topSpace

             horizontalSpace: 3

             verticalSpace: 3

             component: 

            (SpecCollection

               collection: (

                (TextEditorSpec

                   name: 'TextEditor1'

                   style: labelFont

                   model: infoText

                   hasHorizontalScrollBar: true

                   hasVerticalScrollBar: true

                   miniScrollerHorizontal: true

                   miniScrollerVertical: true

                   isReadOnly: true

                   hasKeyboardFocusInitially: false

                   extent: (Point 637 132)

                   postBuildCallback: postBuildHelpLabel:

                   viewClassName: 'ListView'

                 )

                (DividerSpec

                   name: 'Separator14'

                   extent: (Point 637 4)

                 )

                (ViewSpec

                   name: 'CodeBox'

                   component: 

                  (SpecCollection

                     collection: (

                      (LabelSpec

                         label: 'Code'

                         name: 'Label1'

                         layout: (LayoutFrame 0 0.0 0 0 0 1.0 20 0)

                         translateLabel: true

                         adjust: left

                       )

                      (ActionButtonSpec

                         label: 'Change...'

                         name: 'Button1'

                         layout: (LayoutFrame 100 0.0 15 0 205 0 37 0)

                         activeHelpKey: changeCodeFont

                         translateLabel: true

                         tabable: true

                         model: changeTextFont

                       )

                      (LabelSpec

                         label: 'Text Font'

                         name: 'Label2'

                         layout: (LayoutFrame 210 0 15 0 -2 1 37 0)

                         translateLabel: true

                         labelChannel: textFontLabelHolder

                         adjust: left

                         postBuildCallback: postBuildTextFontLabel:

                       )

                      )

                   )

                   extent: (Point 637 45)

                 )

                (ViewSpec

                   name: 'InputFieldsBox'

                   component: 

                  (SpecCollection

                     collection: (

                      (LabelSpec

                         label: 'Input Fields'

                         name: 'Input Fields'

                         layout: (LayoutFrame 0 0.0 0 0 0 1.0 20 0)

                         translateLabel: true

                         adjust: left

                       )

                      (ActionButtonSpec

                         label: 'Change...'

                         name: 'ChangeText'

                         layout: (LayoutFrame 100 0.0 15 0 205 0 37 0)

                         activeHelpKey: changeInputFieldFont

                         translateLabel: true

                         tabable: true

                         model: changeInputFieldFont

                       )

                      (LabelSpec

                         label: 'InputFields Font'

                         name: 'InputFieldsFont'

                         layout: (LayoutFrame 210 0 15 0 -2 1 37 0)

                         translateLabel: true

                         labelChannel: inputFieldFontLabelHolder

                         adjust: left

                         postBuildCallback: postBuildInputFieldFontLabel:

                       )

                      )

                   )

                   extent: (Point 637 45)

                 )

                (ViewSpec

                   name: 'ListsBox'

                   component: 

                  (SpecCollection

                     collection: (

                      (LabelSpec

                         label: 'Lists'

                         name: 'Lists'

                         layout: (LayoutFrame 0 0.0 0 0 0 1.0 20 0)

                         translateLabel: true

                         adjust: left

                       )

                      (ActionButtonSpec

                         label: 'Change...'

                         name: 'ChangeLists'

                         layout: (LayoutFrame 100 0.0 15 0 205 0 37 0)

                         activeHelpKey: changeListFont

                         translateLabel: true

                         tabable: true

                         model: changeListsFont

                       )

                      (LabelSpec

                         label: 'Lists Font'

                         name: 'ListsFont'

                         layout: (LayoutFrame 210 0 15 0 -2 1 37 0)

                         translateLabel: true

                         labelChannel: listsFontLabelHolder

                         adjust: left

                         postBuildCallback: postBuildListsFontLabel:

                       )

                      )

                   )

                   extent: (Point 637 45)

                 )

                (ViewSpec

                   name: 'MenusBox'

                   component: 

                  (SpecCollection

                     collection: (

                      (LabelSpec

                         label: 'Menus'

                         name: 'Menus'

                         layout: (LayoutFrame 0 0.0 0 0 0 1.0 20 0)

                         translateLabel: true

                         adjust: left

                       )

                      (ActionButtonSpec

                         label: 'Change...'

                         name: 'ChangeMenus'

                         layout: (LayoutFrame 100 0.0 15 0 205 0 37 0)

                         activeHelpKey: changeMenuFont

                         translateLabel: true

                         tabable: true

                         model: changeMenusFont

                       )

                      (LabelSpec

                         label: 'Menus Font'

                         name: 'MenusFont'

                         layout: (LayoutFrame 210 0 15 0 -2 1 37 0)

                         translateLabel: true

                         labelChannel: menusFontLabelHolder

                         adjust: left

                         postBuildCallback: postBuildMenuesFontLabel:

                       )

                      )

                   )

                   extent: (Point 637 45)

                 )

                (ViewSpec

                   name: 'LabelsBox'

                   component: 

                  (SpecCollection

                     collection: (

                      (LabelSpec

                         label: 'Labels'

                         name: 'Labels'

                         layout: (LayoutFrame 0 0.0 0 0 0 1.0 20 0)

                         translateLabel: true

                         adjust: left

                       )

                      (ActionButtonSpec

                         label: 'Change...'

                         name: 'ChangeLabels'

                         layout: (LayoutFrame 100 0.0 15 0 205 0 37 0)

                         activeHelpKey: changeLabelFont

                         translateLabel: true

                         tabable: true

                         model: changeLabelsFont

                       )

                      (LabelSpec

                         label: 'Labels'

                         name: 'LabelsFont'

                         layout: (LayoutFrame 210 0 15 0 -2 1 37 0)

                         translateLabel: true

                         labelChannel: labelsFontLabelHolder

                         adjust: left

                         postBuildCallback: postBuildLabelsFontLabel:

                       )

                      )

                   )

                   extent: (Point 637 45)

                 )

                (ViewSpec

                   name: 'ButtonsBox'

                   component: 

                  (SpecCollection

                     collection: (

                      (LabelSpec

                         label: 'Buttons'

                         name: 'Buttons'

                         layout: (LayoutFrame 0 0.0 0 0 0 1.0 20 0)

                         translateLabel: true

                         adjust: left

                       )

                      (ActionButtonSpec

                         label: 'Change...'

                         name: 'Change Buttons'

                         layout: (LayoutFrame 100 0.0 15 0 205 0 37 0)

                         activeHelpKey: changeButtonFont

                         translateLabel: true

                         tabable: true

                         model: changeButtonsFont

                       )

                      (LabelSpec

                         label: 'Buttons Font'

                         name: 'ButtonsFont'

                         layout: (LayoutFrame 210 0 15 0 -2 1 37 0)

                         translateLabel: true

                         labelChannel: buttonsFontLabelHolder

                         adjust: left

                         postBuildCallback: postBuildButtonsFontLabel:

                       )

                      )

                   )

                   extent: (Point 637 45)

                 )

                (ViewSpec

                   name: 'ToolTipsBox'

                   component: 

                  (SpecCollection

                     collection: (

                      (LabelSpec

                         label: 'Tooltips'

                         name: 'Label7'

                         layout: (LayoutFrame 0 0.0 0 0 0 1.0 20 0)

                         translateLabel: true

                         adjust: left

                       )

                      (ActionButtonSpec

                         label: 'Change...'

                         name: 'Button11'

                         layout: (LayoutFrame 100 0.0 15 0 205 0 37 0)

                         activeHelpKey: changeTooltipFont

                         translateLabel: true

                         tabable: true

                         model: changeTooltipFont

                       )

                      (LabelSpec

                         label: 'Label'

                         name: 'Label8'

                         layout: (LayoutFrame 210 0 15 0 -2 1 37 0)

                         translateLabel: true

                         labelChannel: tooltipFontLabelHolder

                         adjust: left

                         postBuildCallback: postBuildTooltipFontLabel:

                       )

                      )

                   )

                   extent: (Point 637 45)

                 )

                (ViewSpec

                   name: 'OtherBox'

                   component: 

                  (SpecCollection

                     collection: (

                      (LabelSpec

                         label: 'All Others'

                         name: 'Label5'

                         layout: (LayoutFrame 0 0.0 0 0 0 1.0 20 0)

                         translateLabel: true

                         adjust: left

                       )

                      (ActionButtonSpec

                         label: 'Change...'