Tools__FontSettingsApplication.st
changeset 17152 983f638ea6c1
parent 16981 a22824384c13
child 17163 4bf9cb558e1c
child 17249 d96ea0023b35
equal deleted inserted replaced
17150:b300ebbc46ef 17152:983f638ea6c1
     1 "{ Encoding: utf8 }"
       
     2 
       
     3 "{ Package: 'stx:libtool' }"
     1 "{ Package: 'stx:libtool' }"
     4 
     2 
     5 "{ NameSpace: Tools }"
     3 "{ NameSpace: Tools }"
     6 
     4 
     7 AbstractSettingsApplication subclass:#FontSettingsApplication
     5 AbstractSettingsApplication subclass:#FontSettingsApplication
   893                     self changeToVisualAgeLook
   891                     self changeToVisualAgeLook
   894                 ]
   892                 ]
   895             ]
   893             ]
   896         ].    
   894         ].    
   897     ].    
   895     ].    
       
   896 !
       
   897 
       
   898 readFontsFromWidgetDefaults
       
   899     |sz idx|
       
   900 
       
   901     self allOfThem value:View defaultFont.
       
   902     self otherDef value:(View defaultFont).
       
   903     self labelDef value:(Label defaultFont).
       
   904     self buttonDef value:(Button defaultFont).
       
   905     self listDef value:(SelectionInListView defaultFont).
       
   906     self menuDef value:(MenuView defaultFont).
       
   907     self textDef value:(TextView defaultFont).
       
   908     self inputFieldDef value:(EditField defaultFont).
       
   909     self tooltipDef value:(ActiveHelpView defaultFont).
       
   910 
       
   911     sz := TextView defaultFont size.
       
   912     idx := self fontSizeListValues indexOf:sz.
       
   913     idx ~~ 0 ifTrue:[
       
   914         self fontSizeSelectionHolder value:idx withoutNotifying:self.
       
   915     ].
   898 ! !
   916 ! !
   899 
   917 
   900 !FontSettingsApplication methodsFor:'actions-common looks'!
   918 !FontSettingsApplication methodsFor:'actions-common looks'!
   901 
   919 
   902 changeToBigFonts
   920 changeToBigFonts
   903     self changeToFontsWithSize:16
   921     self changeToFontsWithSize:16
   904 !
   922 !
   905 
   923 
   906 changeToDefault
   924 changeToDefault
   907     "/View readStyleSheetAndUpdateAllStyleCaches.
   925     "/View readStyleSheetAndUpdateAllStyleCaches.
       
   926     SimpleView readStyleSheet.
   908     View updateAllStyleCaches.
   927     View updateAllStyleCaches.
   909     self basicReadFontSettings.
   928     self readFontsFromWidgetDefaults.
   910 
   929 
   911     "Created: / 06-02-2012 / 12:06:00 / cg"
   930     "Created: / 06-02-2012 / 12:06:00 / cg"
   912 !
   931 !
   913 
   932 
   914 changeToFix:fixFont variable:variableFont
   933 changeToFix:fixFont variable:variableFont