'From TeaSqueak3.2 of 5 April 2002 [latest update: #212] on 17 September 2002 at 10:37:35 pm'! "Change Set: AlphaDropText-ar Date: 17 September 2002 Author: Andreas Raab Published as 4981alphaDropTest-ar.cs to 3.3a. Fixes a weird problem with translucent text drop shadows."! !GrafPort methodsFor: 'private' stamp: 'ar 9/17/2002 22:35'! installStrikeFont: aStrikeFont foregroundColor: foregroundColor backgroundColor: backgroundColor super installStrikeFont: aStrikeFont foregroundColor: foregroundColor backgroundColor: backgroundColor. alpha _ foregroundColor privateAlpha. "dynamically switch between blend modes to support translucent text" alpha = 255 ifTrue:[ combinationRule = 30 ifTrue: [combinationRule _ Form over]. combinationRule = 31 ifTrue: [combinationRule _ Form paint]. ] ifFalse:[ combinationRule = Form over ifTrue: [combinationRule _ 30]. combinationRule = Form paint ifTrue: [combinationRule _ 31]. ]! !