EmbeddedFreeTypeFontFontDescription should be EmbeddedFreeTypeFontDes…

…cription

Fix #7587 - second attempt

src/EmbeddedFreeType/EmbeddedFreeTypeFontFontDescription.class.st → src/Deprecated90/EmbeddedFreeTypeFontFontDescription.class.st

@@ -11,7 +11,7 @@ To do in the future:
 Class {
 	#name : #EmbeddedFreeTypeFontFontDescription,
 	#superclass : #Object,
-	#category : #'EmbeddedFreeType-Base'
+	#category : #Deprecated90
 }
 
 { #category : #testing }
@@ -46,6 +46,12 @@ EmbeddedFreeTypeFontFontDescription class >> isAbstract [
 
 ]
 
+{ #category : #testing }
+EmbeddedFreeTypeFontFontDescription class >> isDeprecated [ 
+
+	 ^true
+]
+
 { #category : #accessing }
 EmbeddedFreeTypeFontFontDescription class >> originalFileName [
 	self subclassResponsibility

src/EmbeddedFreeType/EmbeddedFreeTypeFontDescription.class.st

@@ -0,0 +1,43 @@
+Class {
+	#name : #EmbeddedFreeTypeFontDescription,
+	#superclass : #Object,
+	#category : #'EmbeddedFreeType-Base'
+}
+
+{ #category : #testing }
+EmbeddedFreeTypeFontDescription class >> canBeInstalled [
+	"By default, font can be installed anywhere"
+	^ true
+
+]
+
+{ #category : #accessing }
+EmbeddedFreeTypeFontDescription class >> fontContents [
+	self subclassResponsibility
+
+]
+
+{ #category : #accessing }
+EmbeddedFreeTypeFontDescription class >> installAllFontsIn: provider [
+	self allSubclasses do: [ :each | each installFontsIn: provider ]
+]
+
+{ #category : #accessing }
+EmbeddedFreeTypeFontDescription class >> installFontsIn: provider [
+	self canBeInstalled ifFalse: [ ^ self ].
+	provider
+		addFromFileContents: self fontContents 
+		baseName: self originalFileName 
+]
+
+{ #category : #testing }
+EmbeddedFreeTypeFontDescription class >> isAbstract [ 
+	^self name = #EmbeddedFreeTypeFontFontDescription 
+
+]
+
+{ #category : #accessing }
+EmbeddedFreeTypeFontDescription class >> originalFileName [
+	self subclassResponsibility
+
+]

src/EmbeddedFreeType/LucidaGrandeRegular.class.st

@@ -4,7 +4,7 @@ As is, it works just for macs, but the idea is to use it for showing shortcut sy
 "
 Class {
 	#name : #LucidaGrandeRegular,
-	#superclass : #EmbeddedFreeTypeFontFontDescription,
+	#superclass : #EmbeddedFreeTypeFontDescription,
 	#category : #'EmbeddedFreeType-Fonts'
 }
 

src/EmbeddedFreeType/SourceCodeProRegular.class.st

@@ -98,7 +98,7 @@ OTHER DEALINGS IN THE FONT SOFTWARE.
 "
 Class {
 	#name : #SourceCodeProRegular,
-	#superclass : #EmbeddedFreeTypeFontFontDescription,
+	#superclass : #EmbeddedFreeTypeFontDescription,
 	#category : #'EmbeddedFreeType-Fonts'
 }
 

src/EmbeddedFreeType/SourceSansProRegular.class.st

@@ -98,7 +98,7 @@ OTHER DEALINGS IN THE FONT SOFTWARE.
 "
 Class {
 	#name : #SourceSansProRegular,
-	#superclass : #EmbeddedFreeTypeFontFontDescription,
+	#superclass : #EmbeddedFreeTypeFontDescription,
 	#category : #'EmbeddedFreeType-Fonts'
 }