[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