[FIX][BUG]StandardSystemView, TextStyle
Webb McDonald
vanjulio at cc.gatech.edu
Sat Nov 16 09:07:03 UTC 2002
Maybe I'm using old techniques here, but TextStyle refers to some
lingering, defunct code. I am trying to use the class method -
#changeDefaultFontSizeBy: from TextStyle.
#initDefaultFontsAndStyle might be out-of-date as well.
These just clean out the bad references (to a nonexistent class,
ScheduledControllers).
Perhaps also I should be changing the default font a more modern way.
The best way is probably shown here:
http://minnow.cc.gatech.edu/squeak/506
but its so easy for me to just increment the index over to NY-15 from
NY-12, so I prefer the TextStyle method from above.
Webb McDonald
LESS IS MORE
Koyaanisqatsi
Estatut d'Autonomia'
-------------- next part --------------
'From Squeak3.2 of 11 July 2002 [latest update: #4956] on 16 November 2002 at 3:46:40 am'!
!StandardSystemView class methodsFor: 'class initialization'!
cachingBits
^ CacheBits! !
!StandardSystemView class methodsFor: 'class initialization' stamp: 'wxm 11/16/2002 03:45'!
doCacheBits
"StandardSystemView doCacheBits - Enable fast window repaint
feature "
CacheBits _ true.
"ScheduledControllers unCacheWindows.
ScheduledControllers restore"! !
!StandardSystemView class methodsFor: 'class initialization' stamp: 'wxm 11/16/2002 03:46'!
dontCacheBits
"StandardSystemView dontCacheBits - Disable fast window
repaint feature.
Return true iff bits were cached, ie if space was been recovered"
CacheBits
ifFalse: [^ false].
CacheBits _ false.
^ true! !
!StandardSystemView class methodsFor: 'class initialization' stamp: 'sw 12/6/1999 23:42'!
initialize "StandardSystemView initialize"
self doCacheBits.
self setLabelStyle! !
!StandardSystemView class methodsFor: 'class initialization' stamp: 'sw 12/9/1999 17:43'!
setLabelStyle
| aFont |
"StandardSystemView setLabelStyle"
aFont _ Preferences windowTitleFont.
LabelStyle _ aFont textStyle copy consistOnlyOf: aFont.
LabelStyle gridForFont: 1 withLead: 0! !
-------------- next part --------------
'From Squeak3.2 of 11 July 2002 [latest update: #4956] on 16 November 2002 at 3:47:58 am'!
!TextStyle class methodsFor: 'instance creation' stamp: 'wxm 11/14/2002 14:34'!
changeDefaultFontSizeBy: delta
"TextStyle changeDefaultFontSizeBy: 1"
"This sample method recreates the default textStyle, with font 1
being a size
larger than the smallest. It then initializes most references in
the system
as well, although most windows will have to beclosed and
reopened to get the effect."
| allFonts |
allFonts _ TextStyle default fontArray
asSortedCollection: [:a :b | a height < b height].
TextConstants
at: #DefaultTextStyle
put: (TextStyle
fontArray: ((1 to: allFonts size)
collect: [:i | allFonts atWrap: i + delta])).
PopUpMenu initialize.
"Change this method for difft menu font"
ListParagraph initialize.
"Change this method for difft ListPane font"
! !
More information about the Squeak-dev
mailing list
|