From 17e005dc997f8719ebfb87e383f491294d79b9fe Mon Sep 17 00:00:00 2001
From: Torsten Bergmann <astares@gmx.de>
Date: Thu, 19 Apr 2018 20:44:54 +0200
Subject: [PATCH] 21733 Categorize methods in FontChoosers4

---
 .../AbstractFontSelectorDialogWindow.class.st | 22 +++++++++----------
 src/FontChooser/FontChooserMorph.class.st     |  4 ++--
 .../FreeTypeFontSelectorDialogWindow.class.st |  6 ++---
 3 files changed, 16 insertions(+), 16 deletions(-)

diff --git a/src/FontChooser/AbstractFontSelectorDialogWindow.class.st b/src/FontChooser/AbstractFontSelectorDialogWindow.class.st
index 74de6bda883..0e7f4afc4b8 100644
--- a/src/FontChooser/AbstractFontSelectorDialogWindow.class.st
+++ b/src/FontChooser/AbstractFontSelectorDialogWindow.class.st
@@ -26,14 +26,14 @@ AbstractFontSelectorDialogWindow class >> taskbarIconName [
 	^ #smallFontsIcon
 ]
 
-{ #category : #'as yet unclassified' }
+{ #category : #defaults }
 AbstractFontSelectorDialogWindow >> defaultFontFamilies [
 	"Answer the set of available fonts families that are supported in the font that they represent."
 	
 	self subclassResponsibility
 ]
 
-{ #category : #'as yet unclassified' }
+{ #category : #defaults }
 AbstractFontSelectorDialogWindow >> defaultPreviewText [
 	"Answer the default text to use for the preview of the font."
 
@@ -105,7 +105,7 @@ AbstractFontSelectorDialogWindow >> fontSizeIndex: anObject [
 	self updateSelectedFont
 ]
 
-{ #category : #'as yet unclassified' }
+{ #category : #accessing }
 AbstractFontSelectorDialogWindow >> fontSizes [
 	"Answer the set of available fonts sizes that are supported."
 
@@ -187,7 +187,7 @@ AbstractFontSelectorDialogWindow >> isUnderlined: anObject [
 	self changed: #isUnderlined
 ]
 
-{ #category : #'as yet unclassified' }
+{ #category : #accessing }
 AbstractFontSelectorDialogWindow >> matchingFont [
 	"Answer the font that matches the selections."
 
@@ -360,7 +360,7 @@ AbstractFontSelectorDialogWindow >> selectedFont: anObject [
 	self updateFromSelectedFont
 ]
 
-{ #category : #'as yet unclassified' }
+{ #category : #accessing }
 AbstractFontSelectorDialogWindow >> textEmphasisCode [
 	"Answer the current bitmask for the text emphasis."
 
@@ -384,7 +384,7 @@ AbstractFontSelectorDialogWindow >> textPreviewMorph: anObject [
 	textPreviewMorph := anObject
 ]
 
-{ #category : #'as yet unclassified' }
+{ #category : #actions }
 AbstractFontSelectorDialogWindow >> toggleBold [
 	"Toggle the font bold emphasis."
 
@@ -392,7 +392,7 @@ AbstractFontSelectorDialogWindow >> toggleBold [
 	self updateSelectedFont
 ]
 
-{ #category : #'as yet unclassified' }
+{ #category : #actions }
 AbstractFontSelectorDialogWindow >> toggleItalic [
 	"Toggle the font italic emphasis."
 
@@ -400,7 +400,7 @@ AbstractFontSelectorDialogWindow >> toggleItalic [
 	self updateSelectedFont
 ]
 
-{ #category : #'as yet unclassified' }
+{ #category : #actions }
 AbstractFontSelectorDialogWindow >> toggleStruckOut [
 	"Toggle the font struck out emphasis."
 
@@ -408,7 +408,7 @@ AbstractFontSelectorDialogWindow >> toggleStruckOut [
 	self updateSelectedFont
 ]
 
-{ #category : #'as yet unclassified' }
+{ #category : #actions }
 AbstractFontSelectorDialogWindow >> toggleUnderlined [
 	"Toggle the font underlined emphasis."
 
@@ -416,14 +416,14 @@ AbstractFontSelectorDialogWindow >> toggleUnderlined [
 	self updateSelectedFont
 ]
 
-{ #category : #'as yet unclassified' }
+{ #category : #updating }
 AbstractFontSelectorDialogWindow >> updateFromSelectedFont [
 	"Update our state based on the selected font."
 
 	self subclassResponsibility
 ]
 
-{ #category : #'as yet unclassified' }
+{ #category : #updating }
 AbstractFontSelectorDialogWindow >> updateSelectedFont [
 	"Update the selected font to reflect the choices."
 
diff --git a/src/FontChooser/FontChooserMorph.class.st b/src/FontChooser/FontChooserMorph.class.st
index 92ed377a737..ba07072d8d3 100644
--- a/src/FontChooser/FontChooserMorph.class.st
+++ b/src/FontChooser/FontChooserMorph.class.st
@@ -132,7 +132,7 @@ FontChooserMorph >> createWindow [
 		fullFrame: buttonBarFrame.
 ]
 
-{ #category : #actions }
+{ #category : #'open/close' }
 FontChooserMorph >> delete [
 	model := nil.
 	super delete
@@ -362,7 +362,7 @@ FontChooserMorph >> okButtonClicked [
 	self delete.
 ]
 
-{ #category : #'interface building' }
+{ #category : #'open/close' }
 FontChooserMorph >> open [
 
 	^ self createWindow openAsIsIn: self currentWorld.
diff --git a/src/FontChooser/FreeTypeFontSelectorDialogWindow.class.st b/src/FontChooser/FreeTypeFontSelectorDialogWindow.class.st
index 50b9fff585a..e98ecb4fbda 100644
--- a/src/FontChooser/FreeTypeFontSelectorDialogWindow.class.st
+++ b/src/FontChooser/FreeTypeFontSelectorDialogWindow.class.st
@@ -14,7 +14,7 @@ Class {
 	#category : #FontChooser
 }
 
-{ #category : #'as yet unclassified' }
+{ #category : #defaults }
 FreeTypeFontSelectorDialogWindow >> defaultFontFamilies [
 	"Answer the set of available fonts families that are supported in the font that they represent."
 	
@@ -33,7 +33,7 @@ FreeTypeFontSelectorDialogWindow >> defaultFontFamilies [
 			addAttribute: (TextFontReference toFont: dispFont)]
 ]
 
-{ #category : #'as yet unclassified' }
+{ #category : #accessing }
 FreeTypeFontSelectorDialogWindow >> matchingFont [
 	"Answer the font that matches the selections."
 
@@ -65,7 +65,7 @@ FreeTypeFontSelectorDialogWindow >> newFontStyleButtonRowMorph [
 		self newItalicButtonMorph}
 ]
 
-{ #category : #'as yet unclassified' }
+{ #category : #updating }
 FreeTypeFontSelectorDialogWindow >> updateFromSelectedFont [
 	"Update our state based on the selected font."