equal
deleted
inserted
replaced
|
1 "{ Encoding: utf8 }" |
|
2 |
1 " |
3 " |
2 COPYRIGHT (c) 1997 by eXept Software AG |
4 COPYRIGHT (c) 1997 by eXept Software AG |
3 All Rights Reserved |
5 All Rights Reserved |
4 |
6 |
5 This software is furnished under a license and may be used |
7 This software is furnished under a license and may be used |
1564 MIMETypes commentStringsForMimeType:mime suffix:nil. |
1566 MIMETypes commentStringsForMimeType:mime suffix:nil. |
1565 " |
1567 " |
1566 ! |
1568 ! |
1567 |
1569 |
1568 parenthesisSpecForFilename:aFilename |
1570 parenthesisSpecForFilename:aFilename |
1569 "return a useful parentesis spec; heuristics for now. |
1571 "return a useful parentheses spec; heuristics for now. |
1570 The returned value is a dictionary to be used as parentesis spec in an editor" |
1572 The returned value is a dictionary to be used as parentheses spec in an editor" |
1571 |
1573 |
1572 |mime| |
1574 |mime| |
1573 |
1575 |
1574 mime := MIMETypes mimeTypeForFilename:aFilename. |
1576 mime := MIMETypes mimeTypeForFilename:aFilename. |
1575 ^ self parenthesisSpecForMimeType:mime suffix:(aFilename asFilename suffix) |
1577 ^ self parenthesisSpecForMimeType:mime suffix:(aFilename asFilename suffix) |