renamed window label and app button to "SquidWord"

hpi-swa-teaching · Jun 21, 2019 · da6a92d · da6a92d
1 parent ce8be99
commit da6a92d
Show file tree

Hide file tree

Showing 29 changed files with 35 additions and 30 deletions.
diff --git a/packages/RichTextEditing-Core.package/RichTextEditorModel.class/class/initialLabel.st b/packages/RichTextEditing-Core.package/RichTextEditorModel.class/class/initialLabel.st
@@ -0,0 +1,4 @@
+constants
+initialLabel
+
+	^ 'SquidWord'
diff --git a/packages/RichTextEditing-Core.package/RichTextEditorModel.class/class/initialize.st b/packages/RichTextEditing-Core.package/RichTextEditorModel.class/class/initialize.st
@@ -1,4 +1,4 @@
 instance creation
 initialize
 
-	TheWorldMenu registerOpenCommand: {'Rich Text Editor'. {self. #open}}
+	TheWorldMenu registerOpenCommand: {self initialLabel. {self. #open}}
diff --git a/packages/RichTextEditing-Core.package/RichTextEditorModel.class/instance/initialize.st b/packages/RichTextEditing-Core.package/RichTextEditorModel.class/instance/initialize.st
@@ -4,7 +4,7 @@ initialize
 	super initialize.
 	self currentSaveName: ''.
 	self text: '' asText;
-		label: 'SquidWord';
+		label: self class initialLabel;
 		textStructures: self class initialTextStructures;
 		selectedStructures: Set new;
 		bufferedStructures: Set new;

diff --git a/packages/RichTextEditing-Core.package/RichTextEditorModel.class/instance/setLabel..st b/packages/RichTextEditing-Core.package/RichTextEditorModel.class/instance/setLabel..st
@@ -1,5 +1,5 @@
 saving and loading
 setLabel: aString
 
-	self label: 'Rich Text Editor - ', aString.
+	self label: self class initialLabel, ' - ', aString.
 	self changed: #label
diff --git a/packages/RichTextEditing-Core.package/RichTextEditorModel.class/methodProperties.json b/packages/RichTextEditing-Core.package/RichTextEditorModel.class/methodProperties.json
@@ -1,7 +1,8 @@
 {
 	"class" : {
+		"initialLabel" : "ls 6/21/2019 17:54",
 		"initialTextStructures" : "ls 6/5/2019 17:43",
-		"initialize" : "AG 5/29/2019 18:40",
+		"initialize" : "ls 6/21/2019 17:54",
 		"open" : "MB 5/9/2019 09:37",
 		"resetTextStyles" : "AG 5/30/2019 12:36",
 		"saverClass" : "ls 5/8/2019 20:28",
@@ -34,7 +35,7 @@
 		"hasStructure:" : "ls 6/6/2019 00:59",
 		"hasStructure:forText:from:to:" : "ls 6/6/2019 00:55",
 		"hasUnacceptedEdits" : "ls 5/9/2019 10:34",
-		"initialize" : "AG 6/21/2019 17:42",
+		"initialize" : "ls 6/21/2019 17:54",
 		"initializeRealStructure:" : "ls 5/30/2019 11:24",
 		"initializeRealStructure:withEmphasis:" : "ls 5/30/2019 11:21",
 		"initializeRealStructures" : "ls 5/30/2019 11:21",
@@ -74,7 +75,7 @@
 		"selectionStart" : "lh 5/22/2019 20:45",
 		"selectionStop" : "lh 5/22/2019 20:47",
 		"setCurrentSave:" : "",
-		"setLabel:" : "AG 5/29/2019 18:36",
+		"setLabel:" : "ls 6/21/2019 17:54",
 		"setText:" : "AG 5/29/2019 18:35",
 		"structureSelectionAt:put:" : "",
 		"structuresChanged" : "ls 6/18/2019 15:23",

diff --git a/...TextEditing-Tests.package/StructureInMiddleOfText49Test.class/instance/activateHeading.st b/...TextEditing-Tests.package/StructureInMiddleOfText49Test.class/instance/activateHeading.st
@@ -1,4 +1,4 @@
-as yet unclassified
+utilities
 activateHeading
 
 	self editorModel structureSelectionAt: self headingTextStructureIndex put: true
diff --git a/...xtEditing-Tests.package/StructureInMiddleOfText49Test.class/instance/deactivateHeading.st b/...xtEditing-Tests.package/StructureInMiddleOfText49Test.class/instance/deactivateHeading.st
@@ -1,4 +1,4 @@
-as yet unclassified
+utilities
 deactivateHeading
 
 	self editorModel structureSelectionAt: self headingTextStructureIndex put: false
diff --git a/...iting-Tests.package/StructureInMiddleOfText49Test.class/instance/enterCharacter.times..st b/...iting-Tests.package/StructureInMiddleOfText49Test.class/instance/enterCharacter.times..st
@@ -1,4 +1,4 @@
-as yet unclassified
+utilities
 enterCharacter: aCharacter times: aNumber
 
 	aNumber timesRepeat: [self enterStringOntoTextField: aCharacter asString]
diff --git a/...Tests.package/StructureInMiddleOfText49Test.class/instance/headingIsAddedToWrittenText.st b/...Tests.package/StructureInMiddleOfText49Test.class/instance/headingIsAddedToWrittenText.st
@@ -1,4 +1,4 @@
-as yet unclassified
+utilities
 headingIsAddedToWrittenText
 
 	self moveCaretToBeginningOfOtherText.

diff --git a/...g-Tests.package/StructureInMiddleOfText49Test.class/instance/headingTextStructureIndex.st b/...g-Tests.package/StructureInMiddleOfText49Test.class/instance/headingTextStructureIndex.st
@@ -1,4 +1,4 @@
-as yet unclassified
+utilities
 headingTextStructureIndex
 
 	^ self editorModel textStructures indexOf: #heading1
diff --git a/...ichTextEditing-Tests.package/StructureInMiddleOfText49Test.class/instance/leftArrowKey.st b/...ichTextEditing-Tests.package/StructureInMiddleOfText49Test.class/instance/leftArrowKey.st
@@ -1,4 +1,4 @@
-as yet unclassified
+utilities
 leftArrowKey
 
 	^ Character arrowLeft 
diff --git a/...extEditing-Tests.package/StructureInMiddleOfText49Test.class/instance/middleTextOffset.st b/...extEditing-Tests.package/StructureInMiddleOfText49Test.class/instance/middleTextOffset.st
@@ -1,4 +1,4 @@
-as yet unclassified
+utilities
 middleTextOffset
 
 	^ 8

diff --git a/...s/RichTextEditing-Tests.package/StructureInMiddleOfText49Test.class/instance/moveCaret.st b/...s/RichTextEditing-Tests.package/StructureInMiddleOfText49Test.class/instance/moveCaret.st
@@ -1,4 +1,4 @@
-as yet unclassified
+utilities
 moveCaret
 
 	"ensures that the position of the caret changed"

diff --git a/...-Tests.package/StructureInMiddleOfText49Test.class/instance/moveCaretMulipleTimesLeft..st b/...-Tests.package/StructureInMiddleOfText49Test.class/instance/moveCaretMulipleTimesLeft..st
@@ -1,4 +1,4 @@
-as yet unclassified
+utilities
 moveCaretMulipleTimesLeft: aNumber
 
 	self enterCharacter: self leftArrowKey times: aNumber
diff --git a/...Tests.package/StructureInMiddleOfText49Test.class/instance/moveCaretMulipleTimesRight..st b/...Tests.package/StructureInMiddleOfText49Test.class/instance/moveCaretMulipleTimesRight..st
@@ -1,4 +1,4 @@
-as yet unclassified
+utilities
 moveCaretMulipleTimesRight: aNumber
 
 	self enterCharacter: self leftArrowKey times: aNumber
diff --git a/...s.package/StructureInMiddleOfText49Test.class/instance/moveCaretToBeginningOfOtherText.st b/...s.package/StructureInMiddleOfText49Test.class/instance/moveCaretToBeginningOfOtherText.st
@@ -1,4 +1,4 @@
-as yet unclassified
+utilities
 moveCaretToBeginningOfOtherText
 
 	self

diff --git a/...-Tests.package/StructureInMiddleOfText49Test.class/instance/moveCaretToBeginningOfText.st b/...-Tests.package/StructureInMiddleOfText49Test.class/instance/moveCaretToBeginningOfText.st
@@ -1,4 +1,4 @@
-as yet unclassified
+utilities
 moveCaretToBeginningOfText
 
 	self

diff --git a/...diting-Tests.package/StructureInMiddleOfText49Test.class/instance/moveCaretToEndOfText.st b/...diting-Tests.package/StructureInMiddleOfText49Test.class/instance/moveCaretToEndOfText.st
@@ -1,4 +1,4 @@
-as yet unclassified
+utilities
 moveCaretToEndOfText
 
 	self

diff --git a/...diting-Tests.package/StructureInMiddleOfText49Test.class/instance/moveCaretToMidOfText.st b/...diting-Tests.package/StructureInMiddleOfText49Test.class/instance/moveCaretToMidOfText.st
@@ -1,4 +1,4 @@
-as yet unclassified
+utilities
 moveCaretToMidOfText
 
 	self

diff --git a/...s/RichTextEditing-Tests.package/StructureInMiddleOfText49Test.class/instance/otherText.st b/...s/RichTextEditing-Tests.package/StructureInMiddleOfText49Test.class/instance/otherText.st
@@ -1,4 +1,4 @@
-as yet unclassified
+utilities
 otherText
 
 	^ 'This is other Text.'

diff --git a/...chTextEditing-Tests.package/StructureInMiddleOfText49Test.class/instance/rightArrowKey.st b/...chTextEditing-Tests.package/StructureInMiddleOfText49Test.class/instance/rightArrowKey.st
@@ -1,4 +1,4 @@
-as yet unclassified
+utilities
 rightArrowKey
 
 	^ Character arrowRight
diff --git a/packages/RichTextEditing-Tests.package/StructureInMiddleOfText49Test.class/instance/setUp.st b/packages/RichTextEditing-Tests.package/StructureInMiddleOfText49Test.class/instance/setUp.st
@@ -1,4 +1,4 @@
-as yet unclassified
+setup and teardown
 setUp
 
 	super setUp.

diff --git a/...ichTextEditing-Tests.package/StructureInMiddleOfText49Test.class/instance/standardText.st b/...ichTextEditing-Tests.package/StructureInMiddleOfText49Test.class/instance/standardText.st
@@ -1,4 +1,4 @@
-as yet unclassified
+utilities
 standardText
 
 	^ 'This is standard Text. '

diff --git a/...Test.class/instance/testUS49ApplySelectedStructureWithoutASelectionToNextTextBeginning.st b/...Test.class/instance/testUS49ApplySelectedStructureWithoutASelectionToNextTextBeginning.st
@@ -1,4 +1,4 @@
-as yet unclassified
+testing
 testUS49ApplySelectedStructureWithoutASelectionToNextTextBeginning
 
 	"when the caret is in the middle."

diff --git a/...Text49Test.class/instance/testUS49ApplySelectedStructureWithoutASelectionToNextTextEnd.st b/...Text49Test.class/instance/testUS49ApplySelectedStructureWithoutASelectionToNextTextEnd.st
@@ -1,4 +1,4 @@
-as yet unclassified
+testing
 testUS49ApplySelectedStructureWithoutASelectionToNextTextEnd
 
 	"when the caret is in the middle."

diff --git a/...t49Test.class/instance/testUS49ApplySelectedStructureWithoutASelectionToNextTextMiddle.st b/...t49Test.class/instance/testUS49ApplySelectedStructureWithoutASelectionToNextTextMiddle.st
@@ -1,4 +1,4 @@
-as yet unclassified
+testing
 testUS49ApplySelectedStructureWithoutASelectionToNextTextMiddle
 
 	"when the caret is in the middle."

diff --git a/...ureInMiddleOfText49Test.class/instance/testUS49NoStructureApplyWhenCaretMovedBeginning.st b/...ureInMiddleOfText49Test.class/instance/testUS49NoStructureApplyWhenCaretMovedBeginning.st
@@ -1,4 +1,4 @@
-as yet unclassified
+testing
 testUS49NoStructureApplyWhenCaretMovedBeginning
 
 	"when the caret is in the middle."

diff --git a/...StructureInMiddleOfText49Test.class/instance/testUS49NoStructureApplyWhenCaretMovedEnd.st b/...StructureInMiddleOfText49Test.class/instance/testUS49NoStructureApplyWhenCaretMovedEnd.st
@@ -1,4 +1,4 @@
-as yet unclassified
+testing
 testUS49NoStructureApplyWhenCaretMovedEnd
 
 	"when the caret is in the middle."

diff --git a/...StructureInMiddleOfText49Test.class/instance/testUS49NoStructureApplyWhenCaretMovedMid.st b/...StructureInMiddleOfText49Test.class/instance/testUS49NoStructureApplyWhenCaretMovedMid.st
@@ -1,4 +1,4 @@
-as yet unclassified
+testing
 testUS49NoStructureApplyWhenCaretMovedMid
 
 	"when the caret is in the middle."