extensions.st
author Claus Gittinger <cg@exept.de>
Thu, 03 Sep 2009 17:55:02 +0200
changeset 2728 9d97da90730c
parent 2727 b7105db29f74
child 2759 668d1637f50c
permissions -rw-r--r--
checkin from browser
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
2728
9d97da90730c checkin from browser
Claus Gittinger <cg@exept.de>
parents: 2727
diff changeset
     1
"{ Package: 'stx:libview2' }"
9d97da90730c checkin from browser
Claus Gittinger <cg@exept.de>
parents: 2727
diff changeset
     2
!
9d97da90730c checkin from browser
Claus Gittinger <cg@exept.de>
parents: 2727
diff changeset
     3
9d97da90730c checkin from browser
Claus Gittinger <cg@exept.de>
parents: 2727
diff changeset
     4
!CharacterArray methodsFor:'converting'!
9d97da90730c checkin from browser
Claus Gittinger <cg@exept.de>
parents: 2727
diff changeset
     5
9d97da90730c checkin from browser
Claus Gittinger <cg@exept.de>
parents: 2727
diff changeset
     6
asMimeType
9d97da90730c checkin from browser
Claus Gittinger <cg@exept.de>
parents: 2727
diff changeset
     7
    ^ MIMETypes mimeTypeFromString:self string
9d97da90730c checkin from browser
Claus Gittinger <cg@exept.de>
parents: 2727
diff changeset
     8
9d97da90730c checkin from browser
Claus Gittinger <cg@exept.de>
parents: 2727
diff changeset
     9
    "
9d97da90730c checkin from browser
Claus Gittinger <cg@exept.de>
parents: 2727
diff changeset
    10
     'text/html' asMimeType isTextType
9d97da90730c checkin from browser
Claus Gittinger <cg@exept.de>
parents: 2727
diff changeset
    11
     'text/html' asMimeType isImage
9d97da90730c checkin from browser
Claus Gittinger <cg@exept.de>
parents: 2727
diff changeset
    12
     'image/gif' asMimeType isImage    
9d97da90730c checkin from browser
Claus Gittinger <cg@exept.de>
parents: 2727
diff changeset
    13
    "
9d97da90730c checkin from browser
Claus Gittinger <cg@exept.de>
parents: 2727
diff changeset
    14
! !
9d97da90730c checkin from browser
Claus Gittinger <cg@exept.de>
parents: 2727
diff changeset
    15