--- a/FontMenu.st Tue Oct 11 15:50:24 2016 +0200
+++ b/FontMenu.st Tue Oct 11 16:23:27 2016 +0200
@@ -1,5 +1,3 @@
-"{ Encoding: utf8 }"
-
"
COPYRIGHT (c) 1995 by eXept Software AG
All Rights Reserved
@@ -691,9 +689,12 @@
symbolicFontsMenu
|symbolicFontSelectors selectors menu menuLabels menuItems|
- symbolicFontSelectors := (applicationClass methodsWithAnyResource:#(fontSpec)) collect:[:each| each selector].
+ symbolicFontSelectors := (applicationClass methodsWithAnyResource:#(fontSpec))
+ collect:[:each| each selector].
- symbolicFontSelectors sort.
+ symbolicFontSelectors :=
+ (symbolicFontSelectors reject:[:nm | nm endsWith:'Small']) sort
+ , (symbolicFontSelectors select:[:nm | nm endsWith:'Small']) sort.
selectors := Array new:symbolicFontSelectors size withAll:#fontSymbol:.
menuLabels := symbolicFontSelectors, #('-' 'Other...').