extensions.st
author Claus Gittinger <cg@exept.de>
Fri, 09 Oct 2009 18:26:59 +0200
changeset 2759 668d1637f50c
parent 2728 9d97da90730c
child 3138 236ec2b19a3b
permissions -rw-r--r--
*** empty log message ***
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
2759
668d1637f50c *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2728
diff changeset
    12
     'image/gif' asMimeType isImage
2728
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
2759
668d1637f50c *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2728
diff changeset
    16
!stx_libview2 class methodsFor:'documentation'!
668d1637f50c *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2728
diff changeset
    17
668d1637f50c *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2728
diff changeset
    18
extensionsVersion_CVS
668d1637f50c *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2728
diff changeset
    19
    ^ '$Header: /cvs/stx/stx/libview2/extensions.st,v 1.3 2009-10-09 16:26:59 cg Exp $'
668d1637f50c *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2728
diff changeset
    20
!
668d1637f50c *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2728
diff changeset
    21
668d1637f50c *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2728
diff changeset
    22
extensionsVersion_SVN
668d1637f50c *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2728
diff changeset
    23
    ^ 'Id:'
668d1637f50c *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2728
diff changeset
    24
! !