'From Squeakland 3.8.5976 of 25 August 2004 [latest update: #301] on 3 September 2004 at 3:00:35 pm'! "Change Set: FixTabText Date: 3 September 2004 Author: Andreas Raab Fixes changing the flap tab text."! !FlapTab methodsFor: 'textual tabs' stamp: 'ar 9/3/2004 14:58'! changeTabText: aString | label | aString isEmptyOrNil ifTrue: [^ self]. label _ Locale current languageEnvironment class flapTabTextFor: aString in: self. label isEmptyOrNil ifTrue: [^ self]. self useStringTab: label. submorphs first delete. self assumeString: label font: Preferences standardFlapFont orientation: (Flaps orientationForEdge: self edgeToAdhereTo) color: nil. ! !