1 "{ Package: 'stx:libview2' }"

     2 !

     3 

     4 !CharacterArray methodsFor:'converting'!

     5 

     6 asMimeType

     7     ^ MIMETypes mimeTypeFromString:self string

     8 

     9     "

    10      'text/html' asMimeType isTextType

    11      'text/html' asMimeType isImage

    12      'image/gif' asMimeType isImage    

    13     "

    14 ! !

    15