equal
deleted
inserted
replaced
919 ! |
919 ! |
920 |
920 |
921 defineImageType:mimeType suffix:aSuffix reader:aReaderClass info:info |
921 defineImageType:mimeType suffix:aSuffix reader:aReaderClass info:info |
922 "register an image reader." |
922 "register an image reader." |
923 |
923 |
|
924 "/ flush caches |
|
925 LastSuffix := LastType := nil. |
|
926 |
924 aSuffix notNil ifTrue:[ |
927 aSuffix notNil ifTrue:[ |
925 self imageReaderForSuffix:aSuffix put:aReaderClass. |
928 self imageReaderForSuffix:aSuffix put:aReaderClass. |
926 ]. |
929 ]. |
927 |
930 |
928 mimeType notNil ifTrue:[ |
931 mimeType notNil ifTrue:[ |
1394 FileSuffixToImageReaderClassMapping isNil ifTrue:[ |
1397 FileSuffixToImageReaderClassMapping isNil ifTrue:[ |
1395 self initializeImageReaderMappings |
1398 self initializeImageReaderMappings |
1396 ]. |
1399 ]. |
1397 ^ FileSuffixToImageReaderClassMapping at:aSuffix asLowercase ifAbsent:nil |
1400 ^ FileSuffixToImageReaderClassMapping at:aSuffix asLowercase ifAbsent:nil |
1398 |
1401 |
|
1402 " |
|
1403 self imageReaderForSuffix:'wbmp' |
|
1404 " |
|
1405 |
1399 "Created: / 30-06-1997 / 21:59:11 / cg" |
1406 "Created: / 30-06-1997 / 21:59:11 / cg" |
1400 "Modified: / 01-08-1998 / 17:01:58 / cg" |
1407 "Modified: / 01-08-1998 / 17:01:58 / cg" |
1401 "Modified (comment): / 01-03-2018 / 18:57:59 / mawalch" |
1408 "Modified (comment): / 01-03-2018 / 18:57:59 / mawalch" |
1402 ! |
1409 ! |
1403 |
1410 |