'From etoys3.0 of 24 February 2008 [latest update: #1949] on 28 March 2008 at 5:28:02 pm'! "Change Set: SISSFlapTab2-yo Date: 28 March 2008 Author: Yoshiki Ohshima Simplify a bit to avoid recursion."! !FlapTab methodsFor: 'textual tabs' stamp: 'yo 3/28/2008 17:13'! changeTabText2: aString | label | aString isEmptyOrNil ifTrue: [^ self]. label _ Locale current languageEnvironment class flapTabTextFor: aString in: self. label isEmptyOrNil ifTrue: [^ self]. self assumeString: label font: Preferences standardFlapFont orientation: (Flaps orientationForEdge: self edgeToAdhereTo) color: nil. ! ! !FlapTab methodsFor: '*siss-interface' stamp: 'yo 3/28/2008 17:13'! sissComeFullyUpOnReloadFrom: from to: to self isCurrentlyTextual ifTrue: [ self changeTabText2: labelString ].! !