"

 COPYRIGHT (c) 1996 by Claus Gittinger

              All Rights Reserved

 This software is furnished under a license and may be used

 only in accordance with the terms of that license and with the

 inclusion of the above copyright notice.   This software may not

 be provided or otherwise made available to, or used by, any

 other person.  No title to or ownership of the software is

 hereby transferred.

"

"{ Package: 'stx:libbasic2' }"

CharacterArray subclass:#Text

	instanceVariableNames:'string runs'

	classVariableNames:''

	poolDictionaries:''

	category:'Collections-Text'

!

!Text class methodsFor:'documentation'!

copyright

"

 COPYRIGHT (c) 1996 by Claus Gittinger

              All Rights Reserved

 This software is furnished under a license and may be used

 only in accordance with the terms of that license and with the

 inclusion of the above copyright notice.   This software may not

 be provided or otherwise made available to, or used by, any

 other person.  No title to or ownership of the software is

 hereby transferred.

"

!

documentation

"

    Texts add emphasis information to a string.

    Texts and strings should behave interchanchably to the outside

    world, except that texts keep per-character emphasis information.

    (strings return nil, when asked for an elements emphasis).

    Use #string, to get a texts underlying string without any emphasis

    information.

    Currently, the following attributes are supported:

        #bold     

        #italic  

        #underline  

        #underwave  

        #strikeout

        (#color -> aColor)

        (#backgroundColor -> aColor)

        (#underlineColor -> aColor)

        (#strikeoutColor -> aColor)

    Attributes may be combined (pass an array of above) as emphasis.

    See examples.

    This class is not yet fully implemented - being constructed.

    [author:]

        Claus Gittinger

    [see also:]

        CharacterArray String RunArray

"

!

examples

"

  plain string (for comparison):

                                                                        [exBegin]

    Dialog

        warn:'hello'

                                                                        [exEnd]

  emphasized strings as dialog titles:

                                                                        [exBegin]

    Dialog

        warn:((Text string:'hello') allBold)

                                                                        [exEnd]

                                                                        [exBegin]

    Dialog

        warn:(Text string:'hello' emphasis:#italic)

                                                                        [exEnd]

                                                                        [exBegin]

    Dialog

        warn:(Text string:'hello' emphasis:#(underline))

                                                                        [exEnd]

                                                                        [exBegin]

    Dialog

        warn:(Text string:'hello' emphasis:#(underwave))

                                                                        [exEnd]

                                                                        [exBegin]

    Dialog

        warn:(Text string:'hello' emphasis:#(bold underline))

                                                                        [exEnd]

                                                                        [exBegin]

    Dialog

        warn:(Text string:'hello' 

                 emphasis:(Array with:#bold

                                 with:#strikeout

                                 with:(#color->Color red)))

                                                                        [exEnd]

                                                                        [exBegin]

    Dialog

        warn:(Text string:'hello' 

                 emphasis:(Array with:(#color->Color black)

                                 with:#underwave

                                 with:(#underlineColor->Color red)))

                                                                        [exEnd]

                                                                        [exBegin]

    Dialog

        warn:(Text string:'hello' 

                 emphasis:(Array with:#bold

                                 with:#strikeout

                                 with:(#color->Color red)

                                 with:(#backgroundColor->Color yellow)))

                                                                        [exEnd]

                                                                        [exBegin]

    Dialog

        warn:(Text string:'hello' color:(Color red))

                                                                        [exEnd]

  in an editTextView:

                                                                        [exBegin]

    |t v|

    t := 'The quick brown fox jumps over the lazy dog' asText.

    t emphasizeFrom:(t findString:'quick') count:5 with:#bold.

    t emphasizeFrom:(t findString:'brown') count:9 

                                         with:(Array with:#color->(Color name:'brown')

                                                     with:#bold).

    t emphasizeFrom:(t findString:'lazy') count:4 

                                          with:(Array with:#color->(Color red)

                                                      with:#italic).

    t emphasizeFrom:(t findString:'dog') count:3 with:#underline.

    v := HVScrollableView for:EditTextView.

    v contents:t.

    v width:450.

    v open.

                                                                        [exEnd]

"

! !

!Text class methodsFor:'initialization'!

initialize

    "initialize the class"

    "

     consider this a kludge:

     I want to inherit behavior from CharacterArray, but not

     its implementation (indexed access).

    "

    self flags:(Behavior flagRegular)

    "

     Text initialize

    "

    "Modified: 12.5.1996 / 17:53:50 / cg"

! !

!Text class methodsFor:'instance creation'!

fromString:aString 

    "create a Text instance, for the characters in aString,

     without emphasis."

    ^ super new string:aString emphasis:nil

    "

     Text fromString:'hello'

    "

    "Modified: 12.5.1996 / 17:05:34 / cg"

!

new

    "create a new empty Text instance.

     Redefined for string-protocol compatibility"

    ^ super new string:(String new) emphasis:nil

    "Text new"

    "Modified: 12.5.1996 / 17:05:17 / cg"

    "Modified: 31.12.1996 / 12:39:57 / stefan"

!

new:size

    "create a new empty Text instance.

     Redefined for string-protocol compatibility"

    ^ self string:(String new:size)

    "Created: 12.5.1996 / 11:57:27 / cg"

    "Modified: 12.5.1996 / 17:05:17 / cg"

!

string:aString 

    "create a Text instance, for the characters in aString,

     without emphasis."

    ^ super new string:aString emphasis:nil

    "

     Text string:'hello'

    "

    "Modified: 12.5.1996 / 17:05:00 / cg"

!

string:aString color:aColor

    "create a Text instance, for the characters in aString,

     which are colored as aColor (only the foregroundColor is affected).

     This is a shortCut for creating an emphasis of (#color->aColor)"

    ^ super new string:aString emphasis:(#color->aColor)

    "

     Dialog

        information:(Text string:'hello' color:(Color red))

    "

    "Created: 12.5.1996 / 17:03:20 / cg"

    "Modified: 27.2.1997 / 10:13:36 / cg"

!

string:aString emphasis:attribute

    "create a Text instance, for the characters in aString,

     which are emphasized as described by attribute."

    ^ super new string:aString emphasis:attribute

    "

     Text string:'hello' emphasis:#bold

     Dialog

        information:(Text string:'hello' emphasis:#bold)

     Dialog

        information:(Text string:'hello' emphasis:#italic)

     Dialog

        information:(Text string:'hello' emphasis:#underline)

     Dialog

        information:(Text string:'hello' emphasis:#strikeout)

    "

    "Modified: 12.5.1996 / 17:16:03 / cg"

!

string:aString emphasisCollection:attributeCollection

    "create a Text instance, for the characters in aString,

     which are individually emphasized as described by attributeCollection."

    ^ super new string:aString emphasisCollection:attributeCollection

    "

     Text 

        string:'hello' 

        emphasisCollection:#(#bold #bold #italic #italic #italic)

     Dialog

        information:(Text 

                        string:'hello' 

                        emphasisCollection:#(#bold #bold #italic #italic #(#underline italic)))

    "

    "Created: 14.5.1996 / 14:02:18 / cg"

    "Modified: 14.5.1996 / 15:01:28 / cg"

!

string:aString foregroundColor:fgColor backgroundColor:bgColor

    "create a Text instance, for the characters in aString,

     which are colored in fgColor on bgColor.

     This is a shortCut for creating an emphasis of 

     #( #color->fgColor) (#backgroundColor->bgColor)"

    ^ super new 

        string:aString 

        emphasis:(Array with:#color->fgColor

                        with:#backgroundColor->bgColor)

    "

     Dialog

        information:(Text string:'hello' 

                          foregroundColor:(Color red)

                          backgroundColor:(Color yellow))

    "

    "Modified: 11.5.1996 / 14:21:01 / cg"

    "Created: 16.5.1996 / 12:37:24 / cg"

!

string:aString runs:aRun

    "create a Text instance, for the characters in aString,

     which are individually emphasized as described by attributeCollection."

    ^ super new string:aString emphasisCollection:aRun.

!

uninitializedNew:size

    "for compatibility only"

    ^ self new:size

!

writeStream

    "answer the stream, that is best used with this class"

    ^ TextStream on:(self new:100)

! !

!Text class methodsFor:'emphasis helper'!

addEmphasis:e1 to:e2

    "merge two emphasis's into one"

    |ne|

    e1 isNil ifTrue:[^ e2].

    e2 isNil ifTrue:[^ e1].

    e1 == e2 ifTrue:[^ e1].

    (e1 isSymbol 

     or:[e1 isAssociation]) ifTrue:[

        (e2 isSymbol 

         or:[e2 isAssociation]) ifTrue:[

            ^ Array with:e1 with:e2

        ].

        (e2 includes:e1) ifTrue:[^ e2].

        ^ e2 copyWith:e1

    ].

    (e2 isSymbol 

     or:[e2 isAssociation]) ifTrue:[

        (e1 includes:e2) ifTrue:[^ e1].

        ^ e1 copyWith:e2

    ].

    "/ ould use:

    "/    ^ (e1 asSet addAll:e2; asArray)

    "/ but we do it manually, to preserve the

    "/ order. (should create longer runs, while editing)

    ne := e1.

    e2 do:[:e |

        (ne includes:e) ifFalse:[

           ne := ne copyWith:e

        ]

    ].

    ^ ne.

    "

     Text addEmphasis:#bold to:#bold           

     Text addEmphasis:#bold to:#italic         

     Text addEmphasis:#bold to:#(italic strikeout)   

     Text addEmphasis:#italic to:#(italic strikeout) 

     Text addEmphasis:#(italic strikeout) to:#bold  

     Text addEmphasis:#(italic strikeout) to:#italic 

     Text addEmphasis:#(italic strikeout) to:#(bold underline) 

     Text addEmphasis:(#color->Color red) to:#(bold underline) 

    "

    "Modified: 14.5.1996 / 17:15:44 / cg"

!

emphasis:e1 includes:e2

    "return true, if e1 includes e2.

     e2 should be a single emphasis."

    e1 isNil ifTrue:[^ false].

    e2 isNil ifTrue:[^ false].

    e1 == e2 ifTrue:[^ true].

    e1 isSymbol ifTrue:[

        ^ false

    ].

    e1 isAssociation ifTrue:[

        ^ e1 key == e2

    ].

    (e1 isSymbol 

     or:[e1 isAssociation]) ifTrue:[

        ^ false

    ].

    e2 isSymbol ifTrue:[

        ^ (e1 includes:e2) or:[e1 contains:[:e |e isAssociation and:[e key == e2]]].

    ].

    e2 isAssociation ifTrue:[

        ^ (e1 includes:e2 key) or:[e1 contains:[:e |e isAssociation and:[e key == e2 key]]].

    ].

    ^ false

    "

     Text emphasis:#bold includes:#bold           

     Text emphasis:#bold includes:#italic         

     Text emphasis:#(italic strikeout) includes:#bold  

     Text emphasis:#(italic strikeout) includes:#italic 

     Text emphasis:(#color->Color red) includes:#color 

    "

    "Modified: 14.5.1996 / 17:45:11 / cg"

!

extractEmphasis:key from:e

    "if key is included in the emphasis, e then return the key.

     Otherwise, if a n association with that key is included, return the value.

     Otherwise, return nil."

    e isNil ifTrue:[^ nil].

    key == e ifTrue:[^ e].

    e isSymbol ifTrue:[^ nil].

    e isAssociation ifTrue:[

        e key == key ifTrue:[^ e value].

        ^ nil

    ].

    e do:[:entry | 

        entry == key ifTrue:[^ key].

        entry isAssociation ifTrue:[

            entry key == key ifTrue:[

                ^ entry value

            ]

        ]

    ].

    ^ nil

    "

     Text extractEmphasis:#bold  from:#bold           

     Text extractEmphasis:#bold  from:#italic           

     Text extractEmphasis:#bold  from:#(italic strikeout)           

     Text extractEmphasis:#bold  from:#(italic bold)           

     Text extractEmphasis:#color  from:(#color->Color red)           

     Text extractEmphasis:#color  from:(#foo->Color red)           

    "

    "Modified: 14.5.1996 / 17:45:11 / cg"

    "Created: 11.7.1996 / 09:49:58 / cg"

!

removeEmphasis:emToRemove from:emp

    "remove an emphasis; if it was not in e1, do nothing"

    |ne idx|

    emToRemove isNil ifTrue:[^ emp].

    emp isNil ifTrue:[^ emp].

    emToRemove == emp ifTrue:[^ nil].

    emp isSymbol ifTrue:[

        emToRemove isSymbol ifTrue:[^ emp].  "/ knowing they are not identical

        emToRemove isAssociation ifTrue:[

            emToRemove key == emp ifTrue:[^ nil].

            ^ emp

        ].

        (emToRemove includes:emp) ifTrue:[^ nil].

        ^ emp

    ].

    emp isAssociation ifTrue:[

        emToRemove isSymbol ifTrue:[

            emp key == emToRemove ifTrue:[^ nil].

            ^ emp

        ].

        emToRemove isAssociation ifTrue:[

            emToRemove key == emp key ifTrue:[^ nil].

            ^ emp

        ].

        (emToRemove includes:emp) ifTrue:[^ nil].

        ^ emp

    ].

    "/ e2 must be a collection

    (emToRemove isSymbol 

     or:[emToRemove isAssociation]) ifTrue:[

        (emp includes:emToRemove) ifTrue:[

            ne := emp copyWithout:emToRemove.

            ne size == 1 ifTrue:[^ ne at:1].

            ne size == 0 ifTrue:[^ nil].

            ^ ne

        ].

        idx := emp findFirst:[:em | em isAssociation and:[em key == emToRemove]].

        idx ~~ 0 ifTrue:[