error: vs. error:mayProceed:
--- a/ListView.st Mon Aug 02 12:14:17 1999 +0200
+++ b/ListView.st Wed Aug 04 16:08:02 1999 +0200
@@ -383,28 +383,28 @@
"set the font for all shown text.
Redraws everything.
CAVEAT: with the addition of Text objects,
- this method is going to be obsoleted by a textStyle
- method, which allows specific control over
- normalFont/boldFont/italicFont parameters."
+ this method is going to be obsoleted by a textStyle
+ method, which allows specific control over
+ normalFont/boldFont/italicFont parameters."
aFont isNil ifTrue:[
- ^ self error:'nil font'
+ ^ self error:'nil font' mayProceed:true
].
font ~~ aFont ifTrue:[
- super font:(aFont on:device).
- preferredExtent := nil.
- widthOfWidestLine := nil. "/ i.e. unknown
- self getFontParameters.
- realized ifTrue:[
- (font graphicsDevice == device) ifTrue:[
- self getFontParameters.
- self computeNumberOfLinesShown.
- shown ifTrue:[
- self redrawFromVisibleLine:1 to:nLinesShown
- ]
- ].
- self contentsChanged
- ]
+ super font:(aFont on:device).
+ preferredExtent := nil.
+ widthOfWidestLine := nil. "/ i.e. unknown
+ self getFontParameters.
+ realized ifTrue:[
+ (font graphicsDevice == device) ifTrue:[
+ self getFontParameters.
+ self computeNumberOfLinesShown.
+ shown ifTrue:[
+ self redrawFromVisibleLine:1 to:nLinesShown
+ ]
+ ].
+ self contentsChanged
+ ]
]
"Modified: 5.7.1996 / 17:55:34 / cg"
@@ -3916,5 +3916,5 @@
!ListView class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libwidg/ListView.st,v 1.208 1999-07-31 11:00:10 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libwidg/ListView.st,v 1.209 1999-08-04 14:08:02 cg Exp $'
! !