2969 !

  2970 

  2971 sameEmphasisAs:aStringOrText

  2972     "compare the receivers and the arguments emphasis"

  2973 

  2974     ^ self emphasis = aStringOrText emphasis

  2975 

  2976     "

  2977      'hello' asText sameEmphasisAs: 'hello'         

  2978      'hello' asText sameEmphasisAs: 'hello' asText  

  2979      'hello' asText allBold sameEmphasisAs: 'hello' 

  2980      'hello' asText allBold sameEmphasisAs: 'fooba' asText allBold  

  2981      'hello' asText allBold sameEmphasisAs: 'fooba' asText allItalic  

  2982     "

  2983 

  2984 

  2985 !

  2986 

  2987 sameStringAndEmphasisAs:aStringOrText

  2988     "compare the receivers and the arguments emphasis and string"

  2989 

  2990     aStringOrText isString ifFalse:[^ false].

  2991     (self string = aStringOrText string) ifFalse:[^ false].

  2992     self hasChangeOfEmphasis = aStringOrText hasChangeOfEmphasis ifFalse:[^ false].

  2993     ^ self emphasis = aStringOrText emphasis

  2994 

  2995     "

  2996      'hello' asText sameEmphasisAs: 'hello'         

  2997      'hello' asText sameEmphasisAs: 'hello' asText  

  2998      'hello' asText allBold sameEmphasisAs: 'hello' 

  2999      'hello' asText allBold sameEmphasisAs: 'fooba' asText allBold  

  3000      'hello' asText allBold sameEmphasisAs: 'fooba' asText allItalic  

  3001 

  3002      'hello' sameEmphasisAs: 'hello' asText         

  3003      'hello' sameEmphasisAs: 'hello' asText allBold  

  3004      'hello' sameEmphasisAs: 'fooba'                 

  3005      'hello' sameEmphasisAs: 'fooba' asText          

  3006      'hello' sameEmphasisAs: 'fooba' asText allBold  

  3007      'hello' sameEmphasisAs: 'fooba' asText allItalic  

  3008 

  3009      'hello' asText sameStringAndEmphasisAs: 'hello'           

  3010      'hello' asText sameStringAndEmphasisAs: 'hello' asText    

  3011      'hello' asText allBold sameStringAndEmphasisAs: 'hello'   

  3012      'hello' asText allBold sameStringAndEmphasisAs: 'fooba' asText allBold  

  3013      'hello' asText allBold sameStringAndEmphasisAs: 'fooba' asText allItalic  

  3014 

  3015      'hello' sameStringAndEmphasisAs: 'hello' asText                         

  3016      'hello' sameStringAndEmphasisAs: 'hello' asText allBold                 

  3017      'hello' sameStringAndEmphasisAs: 'fooba'                                

  3018      'hello' sameStringAndEmphasisAs: 'fooba' asText                         

  3019      'hello' sameStringAndEmphasisAs: 'fooba' asText allBold  

  3020      'hello' sameStringAndEmphasisAs: 'fooba' asText allItalic  

  3021     "

  3022 

  3023