extensions.st
author Claus Gittinger <cg@exept.de>
Sun, 29 Jan 2017 02:26:51 +0100
changeset 3853 5a78ffcf69de
parent 3144 eaa38e147e20
child 3855 1db7742d33ad
child 4089 a64828e69680
permissions -rw-r--r--
#FEATURE by cg class: TypeConverter changed: #timeOfClass:withFormat:orDefault:language:
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
3138
Claus Gittinger <cg@exept.de>
parents: 2759
diff changeset
     1
"{ Package: 'stx:libview2' }"!
2728
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
!CharacterArray methodsFor:'converting'!
9d97da90730c checkin from browser
Claus Gittinger <cg@exept.de>
parents: 2727
diff changeset
     4
9d97da90730c checkin from browser
Claus Gittinger <cg@exept.de>
parents: 2727
diff changeset
     5
asMimeType
9d97da90730c checkin from browser
Claus Gittinger <cg@exept.de>
parents: 2727
diff changeset
     6
    ^ MIMETypes mimeTypeFromString:self string
9d97da90730c checkin from browser
Claus Gittinger <cg@exept.de>
parents: 2727
diff changeset
     7
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
     'text/html' asMimeType isTextType
9d97da90730c checkin from browser
Claus Gittinger <cg@exept.de>
parents: 2727
diff changeset
    10
     'text/html' asMimeType isImage
2759
668d1637f50c *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2728
diff changeset
    11
     'image/gif' asMimeType isImage
2728
9d97da90730c checkin from browser
Claus Gittinger <cg@exept.de>
parents: 2727
diff changeset
    12
    "
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
2759
668d1637f50c *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2728
diff changeset
    15
!stx_libview2 class methodsFor:'documentation'!
668d1637f50c *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2728
diff changeset
    16
668d1637f50c *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2728
diff changeset
    17
extensionsVersion_CVS
3144
Claus Gittinger <cg@exept.de>
parents: 3138
diff changeset
    18
    ^ '$Header: /cvs/stx/stx/libview2/extensions.st,v 1.5 2013-05-07 12:17:03 cg Exp $'
2759
668d1637f50c *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2728
diff changeset
    19
! !
3144
Claus Gittinger <cg@exept.de>
parents: 3138
diff changeset
    20
Claus Gittinger <cg@exept.de>
parents: 3138
diff changeset
    21
!stx_libview2 class methodsFor:'documentation'!
Claus Gittinger <cg@exept.de>
parents: 3138
diff changeset
    22
Claus Gittinger <cg@exept.de>
parents: 3138
diff changeset
    23
extensionsVersion_SVN
Claus Gittinger <cg@exept.de>
parents: 3138
diff changeset
    24
    ^ 'Id:'
Claus Gittinger <cg@exept.de>
parents: 3138
diff changeset
    25
! !
Claus Gittinger <cg@exept.de>
parents: 3138
diff changeset
    26