equal
deleted
inserted
replaced
1 " |
1 " |
2 COPYRIGHT (c) 1991 by Claus Gittinger |
2 COPYRIGHT (c) 1991 by Claus Gittinger |
3 COPYRIGHT (c) 2016 Jan Vrany |
3 COPYRIGHT (c) 2016 Jan Vrany |
|
4 COPYRIGHT (c) 2022 Patrik Svestka |
4 All Rights Reserved |
5 All Rights Reserved |
5 |
6 |
6 This software is furnished under a license and may be used |
7 This software is furnished under a license and may be used |
7 only in accordance with the terms of that license and with the |
8 only in accordance with the terms of that license and with the |
8 inclusion of the above copyright notice. This software may not |
9 inclusion of the above copyright notice. This software may not |
34 |
35 |
35 copyright |
36 copyright |
36 " |
37 " |
37 COPYRIGHT (c) 1991 by Claus Gittinger |
38 COPYRIGHT (c) 1991 by Claus Gittinger |
38 COPYRIGHT (c) 2016 Jan Vrany |
39 COPYRIGHT (c) 2016 Jan Vrany |
|
40 COPYRIGHT (c) 2022 Patrik Svestka |
39 All Rights Reserved |
41 All Rights Reserved |
40 |
42 |
41 This software is furnished under a license and may be used |
43 This software is furnished under a license and may be used |
42 only in accordance with the terms of that license and with the |
44 only in accordance with the terms of that license and with the |
43 inclusion of the above copyright notice. This software may not |
45 inclusion of the above copyright notice. This software may not |
563 |
565 |
564 |fontEncoding| |
566 |fontEncoding| |
565 |
567 |
566 initialFont := selectedFont := aFont. |
568 initialFont := selectedFont := aFont. |
567 currentFamily := aFont family. |
569 currentFamily := aFont family. |
568 currentFace := aFont face. |
570 currentFace := aFont face ? Font defaultFace. |
569 currentStyle := aFont style. |
571 currentStyle := aFont style ? Font defaultStyle. |
570 currentFaceAndStyle := currentFace,'-',currentStyle. |
572 currentFaceAndStyle := currentFace,'-',currentStyle. |
571 |
573 |
572 "/ self xftFontsOnlyHolder value:(aFont isXftFont). |
574 "/ self xftFontsOnlyHolder value:(aFont isXftFont). |
573 fontEncoding := aFont encoding. |
575 fontEncoding := aFont encoding. |
574 sizeUnit := aFont sizeUnit. |
576 sizeUnit := aFont sizeUnit. |
582 self encoding:fontEncoding. |
584 self encoding:fontEncoding. |
583 "/ encodingFilter contents:fontEncoding. |
585 "/ encodingFilter contents:fontEncoding. |
584 "/ self encodingFilterSelected:fontEncoding. |
586 "/ self encodingFilterSelected:fontEncoding. |
585 self showSelectedFont. |
587 self showSelectedFont. |
586 |
588 |
587 "Modified: 23.2.1996 / 00:51:32 / cg" |
589 "Modified: / 23-02-1996 / 00:51:32 / cg" |
|
590 "Modified: / 08-06-2022 / 10:04:05 / Patrik Svestka <patrik.svestka@gmail.com>" |
588 ! |
591 ! |
589 |
592 |
590 monospacedOnlyHolder |
593 monospacedOnlyHolder |
591 monospacedOnlyHolder isNil ifTrue:[ |
594 monospacedOnlyHolder isNil ifTrue:[ |
592 monospacedOnlyHolder := false asValue |
595 monospacedOnlyHolder := false asValue |
1900 ^ '$Header$' |
1903 ^ '$Header$' |
1901 ! |
1904 ! |
1902 |
1905 |
1903 version_CVS |
1906 version_CVS |
1904 ^ '$Header$' |
1907 ^ '$Header$' |
|
1908 ! |
|
1909 |
|
1910 version_HG |
|
1911 |
|
1912 ^ '$Changeset: <not expanded> $' |
1905 ! ! |
1913 ! ! |
1906 |
1914 |