Merge pull request #12 from OpenSmock/dev-font

SmockFont: propose constructor with default font, font name and font …
OpenSmock · Feb 9, 2024 · 34202a9 · 34202a9
2 parents a21f840 + 79f4d06
commit 34202a9
Show file tree

Hide file tree

Showing 2 changed files with 41 additions and 0 deletions.
diff --git a/OpenSmock-Tests/SmockFontTest.class.st b/OpenSmock-Tests/SmockFontTest.class.st
@@ -7,6 +7,32 @@ Class {
 	#category : #'OpenSmock-Tests-Cases - Core'
 }
 
+{ #category : #tests }
+SmockFontTest >> testDefaultFont [
+
+	| font |
+	font := SmockFont defaultFont.
+	self assert: (font isKindOf: SmockFont).
+	self assert: font fontName equals: SmockFont defaultFontName.
+	self assert: font fontSize equals: SmockFont defaultFontSize.
+]
+
+{ #category : #tests }
+SmockFontTest >> testDefaultFontName [
+
+	| name |
+	name := SmockFont defaultFontName.
+	self assert: name isString.
+]
+
+{ #category : #tests }
+SmockFontTest >> testDefaultFontSize [
+
+	| size |
+	size := SmockFont defaultFontSize.
+	self assert: size equals: 10.
+]
+
 { #category : #tests }
 SmockFontTest >> testFontName [
 | sf |

diff --git a/OpenSmock/SmockFont.class.st b/OpenSmock/SmockFont.class.st
@@ -19,6 +19,21 @@ SmockFont class >> allFontNames [
 	^ SmockFontManager fontList
 ]
 
+{ #category : #defaults }
+SmockFont class >> defaultFont [
+
+	^ self named: self defaultFontName 
+]
+
+{ #category : #defaults }
+SmockFont class >> defaultFontName [
+
+	| names |
+	names := self allFontNames.
+	names isEmpty ifFalse:[ ^ names asOrderedCollection first ].
+	^ 'Source Code Pro'
+]
+
 { #category : #defaults }
 SmockFont class >> defaultFontSize [