diff --git a/src/Bloc-Examples/BlAlternativeCombinationExamples.class.st b/src/Bloc-Examples/BlAlternativeCombinationExamples.class.st index dd06582e6..ac7d1950d 100644 --- a/src/Bloc-Examples/BlAlternativeCombinationExamples.class.st +++ b/src/Bloc-Examples/BlAlternativeCombinationExamples.class.st @@ -1,10 +1,12 @@ Class { - #name : #BlAlternativeCombinationExamples, - #superclass : #BlKeyCombinationExamplesTest, - #category : #'Bloc-Examples-KeyBinding' + #name : 'BlAlternativeCombinationExamples', + #superclass : 'BlKeyCombinationExamplesTest', + #category : 'Bloc-Examples-KeyBinding', + #package : 'Bloc-Examples', + #tag : 'KeyBinding' } -{ #category : #'examples - combination' } +{ #category : 'examples - combination' } BlAlternativeCombinationExamples >> testCombinationWithA [ @@ -20,7 +22,7 @@ BlAlternativeCombinationExamples >> testCombinationWithA [ ^ aCombination ] -{ #category : #'examples - combination' } +{ #category : 'examples - combination' } BlAlternativeCombinationExamples >> testCombinationWithAB [ @@ -38,7 +40,7 @@ BlAlternativeCombinationExamples >> testCombinationWithAB [ ^ aCombination ] -{ #category : #'examples - combination' } +{ #category : 'examples - combination' } BlAlternativeCombinationExamples >> testCombinationWithABC [ @@ -57,7 +59,7 @@ BlAlternativeCombinationExamples >> testCombinationWithABC [ ^ aCombination ] -{ #category : #'examples - combination' } +{ #category : 'examples - combination' } BlAlternativeCombinationExamples >> testEmptyCombination [ @@ -71,7 +73,7 @@ BlAlternativeCombinationExamples >> testEmptyCombination [ ^ aCombination ] -{ #category : #'examples - combination' } +{ #category : 'examples - combination' } BlAlternativeCombinationExamples >> testMatchCombinationWithA [ @@ -88,7 +90,7 @@ BlAlternativeCombinationExamples >> testMatchCombinationWithA [ ^ aCombination ] -{ #category : #'examples - combination' } +{ #category : 'examples - combination' } BlAlternativeCombinationExamples >> testMatchCombinationWithAB [ @@ -114,7 +116,7 @@ BlAlternativeCombinationExamples >> testMatchCombinationWithAB [ ^ aCombination ] -{ #category : #'examples - combination' } +{ #category : 'examples - combination' } BlAlternativeCombinationExamples >> testNoMatchCombinationWithA [ @@ -131,7 +133,7 @@ BlAlternativeCombinationExamples >> testNoMatchCombinationWithA [ ^ aCombination ] -{ #category : #'examples - combination' } +{ #category : 'examples - combination' } BlAlternativeCombinationExamples >> testNoMatchCombinationWithAB [ @@ -149,7 +151,7 @@ BlAlternativeCombinationExamples >> testNoMatchCombinationWithAB [ ^ aCombination ] -{ #category : #'examples - store' } +{ #category : 'examples - store' } BlAlternativeCombinationExamples >> testStoreCombinationWithA [ @@ -168,7 +170,7 @@ BlAlternativeCombinationExamples >> testStoreCombinationWithA [ ^ aStoreString ] -{ #category : #'examples - store' } +{ #category : 'examples - store' } BlAlternativeCombinationExamples >> testStoreCombinationWithAB [ @@ -187,7 +189,7 @@ BlAlternativeCombinationExamples >> testStoreCombinationWithAB [ ^ aStoreString ] -{ #category : #'examples - store' } +{ #category : 'examples - store' } BlAlternativeCombinationExamples >> testStoreCombinationWithABC [ @@ -206,7 +208,7 @@ BlAlternativeCombinationExamples >> testStoreCombinationWithABC [ ^ aStoreString ] -{ #category : #'examples - store' } +{ #category : 'examples - store' } BlAlternativeCombinationExamples >> testStoreEmptyCombination [ diff --git a/src/Bloc-Examples/BlAnimationExamplesTest.class.st b/src/Bloc-Examples/BlAnimationExamplesTest.class.st index ebb922463..0d0fe5ed4 100644 --- a/src/Bloc-Examples/BlAnimationExamplesTest.class.st +++ b/src/Bloc-Examples/BlAnimationExamplesTest.class.st @@ -5,12 +5,14 @@ DOES NOT WORK " Class { - #name : #BlAnimationExamplesTest, - #superclass : #TestCase, - #category : #'Bloc-Examples-Animation' + #name : 'BlAnimationExamplesTest', + #superclass : 'TestCase', + #category : 'Bloc-Examples-Animation', + #package : 'Bloc-Examples', + #tag : 'Animation' } -{ #category : #examples } +{ #category : 'examples' } BlAnimationExamplesTest class >> ballsAnim [ @@ -52,7 +54,7 @@ BlAnimationExamplesTest class >> ballsAnim [ space root addAnimation: (BlParallelAnimation new addAll: anims) ] -{ #category : #examples } +{ #category : 'examples' } BlAnimationExamplesTest class >> bouncingText [ "Click on letters to start animation" @@ -63,7 +65,7 @@ BlAnimationExamplesTest class >> bouncingText [ extent: 850 @ 520 ] -{ #category : #examples } +{ #category : 'examples' } BlAnimationExamplesTest class >> sequential [ @@ -91,7 +93,7 @@ BlAnimationExamplesTest class >> sequential [ space show ] -{ #category : #accessing } +{ #category : 'accessing' } BlAnimationExamplesTest >> blueAt: anIndex [ | radians | "0.0 <= anIndex <= 1.0" @@ -102,7 +104,7 @@ BlAnimationExamplesTest >> blueAt: anIndex [ ^ (radians - (Float pi / 2.0)) sin ] -{ #category : #examples } +{ #category : 'examples' } BlAnimationExamplesTest >> bouncingText [ "Click on letters to start animation!" @@ -137,7 +139,7 @@ BlAnimationExamplesTest >> bouncingText [ ^ self frameContainer addChild: container ] -{ #category : #accessing } +{ #category : 'accessing' } BlAnimationExamplesTest >> colorAt: anIndex [ | normalizedIndex | "0.0 <= anIndex <= 1.0" @@ -153,32 +155,32 @@ BlAnimationExamplesTest >> colorAt: anIndex [ b: (self blueAt: normalizedIndex) ] -{ #category : #'examples - base animation' } +{ #category : 'examples - base animation' } BlAnimationExamplesTest >> exampleDate [ ^ DateAndTime year: 2018 month: 3 day: 31 ] -{ #category : #'examples - base animation' } +{ #category : 'examples - base animation' } BlAnimationExamplesTest >> exampleDelay [ ^ 0.5 seconds ] -{ #category : #'examples - base animation' } +{ #category : 'examples - base animation' } BlAnimationExamplesTest >> exampleDuration [ ^ 2 seconds ] -{ #category : #'examples - sequential animation' } +{ #category : 'examples - sequential animation' } BlAnimationExamplesTest >> firstSequentialDuration [ ^ 8 seconds ] -{ #category : #'examples - sequential animation' } +{ #category : 'examples - sequential animation' } BlAnimationExamplesTest >> firstSequentialLoops [ ^ 2 ] -{ #category : #'instance creation' } +{ #category : 'instance creation' } BlAnimationExamplesTest >> frameContainer [ @@ -190,7 +192,7 @@ BlAnimationExamplesTest >> frameContainer [ clipChildren: false ] -{ #category : #accessing } +{ #category : 'accessing' } BlAnimationExamplesTest >> greenAt: anIndex [ | radians | "0.0 <= anIndex <= 1.0" @@ -201,7 +203,7 @@ BlAnimationExamplesTest >> greenAt: anIndex [ ^ radians sin ] -{ #category : #'instance creation' } +{ #category : 'instance creation' } BlAnimationExamplesTest >> jiggleAnimation [ @@ -220,7 +222,7 @@ BlAnimationExamplesTest >> jiggleAnimation [ ^ anAnimation ] -{ #category : #accessing } +{ #category : 'accessing' } BlAnimationExamplesTest >> radiansAt: anIndex [ "0.0 <= anIndex <= 1.0" self assert: [ anIndex between: 0.0 and: 1.0 ]. @@ -228,7 +230,7 @@ BlAnimationExamplesTest >> radiansAt: anIndex [ ^ anIndex * (Float pi * 3) / 2.0 ] -{ #category : #accessing } +{ #category : 'accessing' } BlAnimationExamplesTest >> redAt: anIndex [ | radians | "0.0 <= anIndex <= 1.0" @@ -243,22 +245,22 @@ BlAnimationExamplesTest >> redAt: anIndex [ ^ (radians + Float pi) sin ] -{ #category : #'examples - sequential animation' } +{ #category : 'examples - sequential animation' } BlAnimationExamplesTest >> secondSequentialDelay [ ^ 2 seconds ] -{ #category : #'examples - sequential animation' } +{ #category : 'examples - sequential animation' } BlAnimationExamplesTest >> secondSequentialDuration [ ^ 4 seconds ] -{ #category : #'examples - sequential animation' } +{ #category : 'examples - sequential animation' } BlAnimationExamplesTest >> secondSequentialLoops [ ^ 1 ] -{ #category : #'examples - base animation' } +{ #category : 'examples - base animation' } BlAnimationExamplesTest >> testBaseAnimation [ @@ -277,7 +279,7 @@ BlAnimationExamplesTest >> testBaseAnimation [ ^ aBaseAnimation ] -{ #category : #'examples - base animation' } +{ #category : 'examples - base animation' } BlAnimationExamplesTest >> testBaseAnimationWithDelay [ @@ -297,7 +299,7 @@ BlAnimationExamplesTest >> testBaseAnimationWithDelay [ ^ aBaseAnimation ] -{ #category : #'examples - base animation' } +{ #category : 'examples - base animation' } BlAnimationExamplesTest >> testBaseAnimationWithDelayAndDurationAndTwoLoops [ @@ -319,7 +321,7 @@ BlAnimationExamplesTest >> testBaseAnimationWithDelayAndDurationAndTwoLoops [ ^ aBaseAnimation ] -{ #category : #'examples - base animation' } +{ #category : 'examples - base animation' } BlAnimationExamplesTest >> testBaseAnimationWithDelayAndTwoLoops [ @@ -340,7 +342,7 @@ BlAnimationExamplesTest >> testBaseAnimationWithDelayAndTwoLoops [ ^ aBaseAnimation ] -{ #category : #'examples - base animation' } +{ #category : 'examples - base animation' } BlAnimationExamplesTest >> testInfiniteAnimation [ @@ -361,7 +363,7 @@ BlAnimationExamplesTest >> testInfiniteAnimation [ ^ aBaseAnimation ] -{ #category : #'examples - sequential animation' } +{ #category : 'examples - sequential animation' } BlAnimationExamplesTest >> testSequentialAddFirstChild [ @@ -377,7 +379,7 @@ BlAnimationExamplesTest >> testSequentialAddFirstChild [ ^ aSequentialAnimation ] -{ #category : #'examples - sequential animation' } +{ #category : 'examples - sequential animation' } BlAnimationExamplesTest >> testSequentialAnimation [ | aSequentialAnimation | @@ -396,7 +398,7 @@ BlAnimationExamplesTest >> testSequentialAnimation [ ^ aSequentialAnimation ] -{ #category : #'examples - sequential animation' } +{ #category : 'examples - sequential animation' } BlAnimationExamplesTest >> testSequentialAnimationWithDelay [ @@ -416,7 +418,7 @@ BlAnimationExamplesTest >> testSequentialAnimationWithDelay [ ^ aSequentialAnimation ] -{ #category : #'examples - sequential animation' } +{ #category : 'examples - sequential animation' } BlAnimationExamplesTest >> testSequentialAnimationWithDelayAndTwoLoops [ @@ -438,7 +440,7 @@ BlAnimationExamplesTest >> testSequentialAnimationWithDelayAndTwoLoops [ ^ aSequentialAnimation ] -{ #category : #'examples - sequential animation' } +{ #category : 'examples - sequential animation' } BlAnimationExamplesTest >> test_1_1_sequential_addFirstChild [ @@ -454,7 +456,7 @@ BlAnimationExamplesTest >> test_1_1_sequential_addFirstChild [ ^ aSequentialAnimation ] -{ #category : #'examples - sequential animation' } +{ #category : 'examples - sequential animation' } BlAnimationExamplesTest >> test_1_2_sequential_addSecondChild [ @@ -478,7 +480,7 @@ BlAnimationExamplesTest >> test_1_2_sequential_addSecondChild [ ^ aSequentialAnimation ] -{ #category : #'examples - base animation' } +{ #category : 'examples - base animation' } BlAnimationExamplesTest >> test_1_baseAnimation_start [ @@ -504,7 +506,7 @@ BlAnimationExamplesTest >> test_1_baseAnimation_start [ ^ aBaseAnimation ] -{ #category : #'examples - massive time delta - infinite' } +{ #category : 'examples - massive time delta - infinite' } BlAnimationExamplesTest >> test_1_massive_infiniteAnimation_start [ @@ -531,7 +533,7 @@ BlAnimationExamplesTest >> test_1_massive_infiniteAnimation_start [ ^ aBaseAnimation ] -{ #category : #'examples - massive time delta - one' } +{ #category : 'examples - massive time delta - one' } BlAnimationExamplesTest >> test_1_massive_oneLoopAnimation_start [ @@ -556,7 +558,7 @@ BlAnimationExamplesTest >> test_1_massive_oneLoopAnimation_start [ ^ aBaseAnimation ] -{ #category : #'examples - massive time delta - two' } +{ #category : 'examples - massive time delta - two' } BlAnimationExamplesTest >> test_1_massive_twoLoopAnimation_start [ @@ -582,7 +584,7 @@ BlAnimationExamplesTest >> test_1_massive_twoLoopAnimation_start [ ^ aBaseAnimation ] -{ #category : #'examples - base animation' } +{ #category : 'examples - base animation' } BlAnimationExamplesTest >> test_2_1_baseAnimation_step [ @@ -609,7 +611,7 @@ BlAnimationExamplesTest >> test_2_1_baseAnimation_step [ ^ aBaseAnimation ] -{ #category : #'examples - massive time delta - infinite' } +{ #category : 'examples - massive time delta - infinite' } BlAnimationExamplesTest >> test_2_1_massive_infiniteAnimation_step_oneDuration [ @@ -636,7 +638,7 @@ BlAnimationExamplesTest >> test_2_1_massive_infiniteAnimation_step_oneDuration [ ^ aBaseAnimation ] -{ #category : #'examples - massive time delta - one' } +{ #category : 'examples - massive time delta - one' } BlAnimationExamplesTest >> test_2_1_massive_oneLoopAnimation_step_oneDuration [ @@ -662,7 +664,7 @@ BlAnimationExamplesTest >> test_2_1_massive_oneLoopAnimation_step_oneDuration [ ^ aBaseAnimation ] -{ #category : #'examples - massive time delta - two' } +{ #category : 'examples - massive time delta - two' } BlAnimationExamplesTest >> test_2_1_massive_twoLoopAnimation_step_oneDuration [ @@ -688,7 +690,7 @@ BlAnimationExamplesTest >> test_2_1_massive_twoLoopAnimation_step_oneDuration [ ^ aBaseAnimation ] -{ #category : #'examples - sequential animation' } +{ #category : 'examples - sequential animation' } BlAnimationExamplesTest >> test_2_1_sequential_step [ @@ -713,7 +715,7 @@ BlAnimationExamplesTest >> test_2_1_sequential_step [ ^ aSequentialAnimation ] -{ #category : #'examples - base animation' } +{ #category : 'examples - base animation' } BlAnimationExamplesTest >> test_2_2_baseAnimation_step_halfDelay [ "in this example we see what exactly happens when half of delay elapsed" @@ -742,7 +744,7 @@ BlAnimationExamplesTest >> test_2_2_baseAnimation_step_halfDelay [ ^ aBaseAnimation ] -{ #category : #'examples - massive time delta - infinite' } +{ #category : 'examples - massive time delta - infinite' } BlAnimationExamplesTest >> test_2_2_massive_infiniteAnimation_step_twiceDuration [ @@ -773,7 +775,7 @@ BlAnimationExamplesTest >> test_2_2_massive_infiniteAnimation_step_twiceDuration ^ aBaseAnimation ] -{ #category : #'examples - massive time delta - one' } +{ #category : 'examples - massive time delta - one' } BlAnimationExamplesTest >> test_2_2_massive_oneLoopAnimation_step_twiceDuration [ @@ -799,7 +801,7 @@ BlAnimationExamplesTest >> test_2_2_massive_oneLoopAnimation_step_twiceDuration ^ aBaseAnimation ] -{ #category : #'examples - massive time delta - two' } +{ #category : 'examples - massive time delta - two' } BlAnimationExamplesTest >> test_2_2_massive_twoLoopAnimation_step_twiceDuration [ @@ -829,7 +831,7 @@ BlAnimationExamplesTest >> test_2_2_massive_twoLoopAnimation_step_twiceDuration ^ aBaseAnimation ] -{ #category : #'examples - base animation' } +{ #category : 'examples - base animation' } BlAnimationExamplesTest >> test_2_3_baseAnimation_step_fullDelay [ "in this example we see what exactly happens when the whole delay elapsed" @@ -858,7 +860,7 @@ BlAnimationExamplesTest >> test_2_3_baseAnimation_step_fullDelay [ ^ aBaseAnimation ] -{ #category : #'examples - massive time delta - infinite' } +{ #category : 'examples - massive time delta - infinite' } BlAnimationExamplesTest >> test_2_3_massive_infiniteAnimation_step_trippleDuration [ @@ -889,7 +891,7 @@ BlAnimationExamplesTest >> test_2_3_massive_infiniteAnimation_step_trippleDurati ^ aBaseAnimation ] -{ #category : #'examples - massive time delta - infinite' } +{ #category : 'examples - massive time delta - infinite' } BlAnimationExamplesTest >> test_2_3_massive_infiniteAnimation_step_trippleDurationAndHalf [ @@ -922,7 +924,7 @@ BlAnimationExamplesTest >> test_2_3_massive_infiniteAnimation_step_trippleDurati ^ aBaseAnimation ] -{ #category : #'examples - massive time delta - one' } +{ #category : 'examples - massive time delta - one' } BlAnimationExamplesTest >> test_2_3_massive_oneLoopAnimation_step_trippleDuration [ @@ -948,7 +950,7 @@ BlAnimationExamplesTest >> test_2_3_massive_oneLoopAnimation_step_trippleDuratio ^ aBaseAnimation ] -{ #category : #'examples - massive time delta - two' } +{ #category : 'examples - massive time delta - two' } BlAnimationExamplesTest >> test_2_3_massive_twoLoopAnimation_step_trippleDuration [ @@ -978,7 +980,7 @@ BlAnimationExamplesTest >> test_2_3_massive_twoLoopAnimation_step_trippleDuratio ^ aBaseAnimation ] -{ #category : #'examples - base animation' } +{ #category : 'examples - base animation' } BlAnimationExamplesTest >> test_3_1_baseAnimation_step_quarterOfDuration [ "in this example we see what exactly happens when one quarter of duration is passed" @@ -1010,7 +1012,7 @@ BlAnimationExamplesTest >> test_3_1_baseAnimation_step_quarterOfDuration [ ^ aBaseAnimation ] -{ #category : #'examples - sequential animation' } +{ #category : 'examples - sequential animation' } BlAnimationExamplesTest >> test_3_1_sequential_step_halfDelay [ "in this example we see what exactly happens when a half of the delay elapsed" @@ -1038,7 +1040,7 @@ BlAnimationExamplesTest >> test_3_1_sequential_step_halfDelay [ ^ aSequentialAnimation ] -{ #category : #'examples - base animation' } +{ #category : 'examples - base animation' } BlAnimationExamplesTest >> test_3_2_baseAnimation_step_halfOfDuration [ "in this example we see what exactly happens when half of the duration is passed" @@ -1070,7 +1072,7 @@ BlAnimationExamplesTest >> test_3_2_baseAnimation_step_halfOfDuration [ ^ aBaseAnimation ] -{ #category : #'examples - sequential animation' } +{ #category : 'examples - sequential animation' } BlAnimationExamplesTest >> test_3_2_sequential_step_fullDelay [ @@ -1097,7 +1099,7 @@ BlAnimationExamplesTest >> test_3_2_sequential_step_fullDelay [ ^ aSequentialAnimation ] -{ #category : #'examples - base animation' } +{ #category : 'examples - base animation' } BlAnimationExamplesTest >> test_3_3_baseAnimation_step_fullDuration [ "in this example we see what exactly happens when the whole duration is passed" @@ -1136,7 +1138,7 @@ BlAnimationExamplesTest >> test_3_3_baseAnimation_step_fullDuration [ ^ aBaseAnimation ] -{ #category : #'examples - base animation' } +{ #category : 'examples - base animation' } BlAnimationExamplesTest >> test_4_1_baseAnimation_secondLoop_step_halfDelay [ @@ -1166,7 +1168,7 @@ BlAnimationExamplesTest >> test_4_1_baseAnimation_secondLoop_step_halfDelay [ ^ aBaseAnimation ] -{ #category : #'examples - sequential animation' } +{ #category : 'examples - sequential animation' } BlAnimationExamplesTest >> test_4_1_sequential_first_step_halfOfDuration [ @@ -1230,7 +1232,7 @@ BlAnimationExamplesTest >> test_4_1_sequential_first_step_halfOfDuration [ ^ aSequentialAnimation ] -{ #category : #'examples - base animation' } +{ #category : 'examples - base animation' } BlAnimationExamplesTest >> test_4_2_baseAnimation_secondLoop_step_fullDelay [ @@ -1261,7 +1263,7 @@ BlAnimationExamplesTest >> test_4_2_baseAnimation_secondLoop_step_fullDelay [ ^ aBaseAnimation ] -{ #category : #'examples - sequential animation' } +{ #category : 'examples - sequential animation' } BlAnimationExamplesTest >> test_4_2_sequential_first_step_fullDuration [ @@ -1325,7 +1327,7 @@ BlAnimationExamplesTest >> test_4_2_sequential_first_step_fullDuration [ ^ aSequentialAnimation ] -{ #category : #'examples - sequential animation' } +{ #category : 'examples - sequential animation' } BlAnimationExamplesTest >> test_4_2_sequential_first_step_fullDurationAndHalf [ "The animation state must be equal to _5_1_sequential_first_secondStep_halfDuration, because we move time by the same amount" @@ -1394,7 +1396,7 @@ BlAnimationExamplesTest >> test_4_2_sequential_first_step_fullDurationAndHalf [ ^ aSequentialAnimation ] -{ #category : #'examples - base animation' } +{ #category : 'examples - base animation' } BlAnimationExamplesTest >> test_4_3_baseAnimation_secondLoop_step_quarterOfDuration [ @@ -1427,7 +1429,7 @@ BlAnimationExamplesTest >> test_4_3_baseAnimation_secondLoop_step_quarterOfDurat ^ aBaseAnimation ] -{ #category : #'examples - base animation' } +{ #category : 'examples - base animation' } BlAnimationExamplesTest >> test_4_4_baseAnimation_secondLoop_step_halfOfDuration [ @@ -1460,7 +1462,7 @@ BlAnimationExamplesTest >> test_4_4_baseAnimation_secondLoop_step_halfOfDuration ^ aBaseAnimation ] -{ #category : #'examples - base animation' } +{ #category : 'examples - base animation' } BlAnimationExamplesTest >> test_4_5_baseAnimation_secondLoop_step_fullDuration [ @@ -1502,7 +1504,7 @@ BlAnimationExamplesTest >> test_4_5_baseAnimation_secondLoop_step_fullDuration [ ^ aBaseAnimation ] -{ #category : #'examples - sequential animation' } +{ #category : 'examples - sequential animation' } BlAnimationExamplesTest >> test_5_1_sequential_first_secondStep_halfDuration [ @@ -1569,7 +1571,7 @@ BlAnimationExamplesTest >> test_5_1_sequential_first_secondStep_halfDuration [ ^ aSequentialAnimation ] -{ #category : #'instance creation' } +{ #category : 'instance creation' } BlAnimationExamplesTest >> textContainer [ @@ -1581,7 +1583,7 @@ BlAnimationExamplesTest >> textContainer [ clipChildren: false ] -{ #category : #accessing } +{ #category : 'accessing' } BlAnimationExamplesTest >> textElement: aCharacter [ | aText | diff --git a/src/Bloc-Examples/BlAttributeRopeExamplesTest.class.st b/src/Bloc-Examples/BlAttributeRopeExamplesTest.class.st index dee41654a..59c01a5e1 100644 --- a/src/Bloc-Examples/BlAttributeRopeExamplesTest.class.st +++ b/src/Bloc-Examples/BlAttributeRopeExamplesTest.class.st @@ -3,12 +3,14 @@ I contain examples of an attribute rope " Class { - #name : #BlAttributeRopeExamplesTest, - #superclass : #TestCase, - #category : #'Bloc-Examples-Rope' + #name : 'BlAttributeRopeExamplesTest', + #superclass : 'TestCase', + #category : 'Bloc-Examples-Rope', + #package : 'Bloc-Examples', + #tag : 'Rope' } -{ #category : #'examples - attributes' } +{ #category : 'examples - attributes' } BlAttributeRopeExamplesTest >> testAttributes_empty_0_to_0 [ @@ -23,7 +25,7 @@ BlAttributeRopeExamplesTest >> testAttributes_empty_0_to_0 [ ^ anAttributedRope ] -{ #category : #'examples - attributes' } +{ #category : 'examples - attributes' } BlAttributeRopeExamplesTest >> testAttributes_small_0_to_0 [ @@ -39,7 +41,7 @@ BlAttributeRopeExamplesTest >> testAttributes_small_0_to_0 [ ^ anAttributedRope ] -{ #category : #'examples - attributes' } +{ #category : 'examples - attributes' } BlAttributeRopeExamplesTest >> testAttributes_small_0_to_1 [ @@ -56,7 +58,7 @@ BlAttributeRopeExamplesTest >> testAttributes_small_0_to_1 [ ^ anAttributedRope ] -{ #category : #'examples - attributes' } +{ #category : 'examples - attributes' } BlAttributeRopeExamplesTest >> testAttributes_small_0_to_5 [ @@ -70,7 +72,7 @@ BlAttributeRopeExamplesTest >> testAttributes_small_0_to_5 [ ^ anAttributedRope ] -{ #category : #'examples - attributes' } +{ #category : 'examples - attributes' } BlAttributeRopeExamplesTest >> testAttributes_small_2_to_2 [ @@ -92,7 +94,7 @@ BlAttributeRopeExamplesTest >> testAttributes_small_2_to_2 [ ^ anAttributedRope ] -{ #category : #'examples - attributes' } +{ #category : 'examples - attributes' } BlAttributeRopeExamplesTest >> testAttributes_small_4_to_5 [ @@ -109,7 +111,7 @@ BlAttributeRopeExamplesTest >> testAttributes_small_4_to_5 [ ^ anAttributedRope ] -{ #category : #'examples - attributes' } +{ #category : 'examples - attributes' } BlAttributeRopeExamplesTest >> testAttributes_small_5_to_5 [ @@ -125,7 +127,7 @@ BlAttributeRopeExamplesTest >> testAttributes_small_5_to_5 [ ^ anAttributedRope ] -{ #category : #'examples - attributes' } +{ #category : 'examples - attributes' } BlAttributeRopeExamplesTest >> testClear_attributes_empty_0_to_0 [ @@ -142,7 +144,7 @@ BlAttributeRopeExamplesTest >> testClear_attributes_empty_0_to_0 [ ^ aRopeWithoutAttributes ] -{ #category : #'examples - attributes' } +{ #category : 'examples - attributes' } BlAttributeRopeExamplesTest >> testClear_attributes_small_0_to_0 [ @@ -155,7 +157,7 @@ BlAttributeRopeExamplesTest >> testClear_attributes_small_0_to_0 [ ^ aRopeWithoutAttributes ] -{ #category : #'examples - attributes' } +{ #category : 'examples - attributes' } BlAttributeRopeExamplesTest >> testClear_attributes_small_0_to_1 [ @@ -173,7 +175,7 @@ BlAttributeRopeExamplesTest >> testClear_attributes_small_0_to_1 [ ^ aRopeWithoutAttributes ] -{ #category : #'examples - utility' } +{ #category : 'examples - utility' } BlAttributeRopeExamplesTest >> testMergeAttributes [ @@ -207,7 +209,7 @@ BlAttributeRopeExamplesTest >> testMergeAttributes [ ^ theAttributesWithoutDuplicates ] -{ #category : #'examples - utility' } +{ #category : 'examples - utility' } BlAttributeRopeExamplesTest >> testRemoveDuplicates [ @@ -237,7 +239,7 @@ BlAttributeRopeExamplesTest >> testRemoveDuplicates [ ^ theAttributesWithoutDuplicates ] -{ #category : #'instance creation' } +{ #category : 'instance creation' } BlAttributeRopeExamplesTest >> testSmall [ "Creates an instance of the rope of size smaller than combineLength with one attribute applied on the whole rope" @@ -258,7 +260,7 @@ BlAttributeRopeExamplesTest >> testSmall [ ^ aRope ] -{ #category : #'examples - accessing' } +{ #category : 'examples - accessing' } BlAttributeRopeExamplesTest >> testSmall_at_each [ @@ -274,7 +276,7 @@ BlAttributeRopeExamplesTest >> testSmall_at_each [ ^ aRope ] -{ #category : #'examples - accessing' } +{ #category : 'examples - accessing' } BlAttributeRopeExamplesTest >> testSmall_children [ @@ -286,7 +288,7 @@ BlAttributeRopeExamplesTest >> testSmall_children [ ^ aRope ] -{ #category : #'examples - deletion' } +{ #category : 'examples - deletion' } BlAttributeRopeExamplesTest >> testSmall_delete_0_to_0 [ @@ -299,7 +301,7 @@ BlAttributeRopeExamplesTest >> testSmall_delete_0_to_0 [ ^ aNewRope ] -{ #category : #'examples - deletion' } +{ #category : 'examples - deletion' } BlAttributeRopeExamplesTest >> testSmall_delete_0_to_1 [ @@ -314,7 +316,7 @@ BlAttributeRopeExamplesTest >> testSmall_delete_0_to_1 [ ^ aNewRope ] -{ #category : #'examples - deletion' } +{ #category : 'examples - deletion' } BlAttributeRopeExamplesTest >> testSmall_delete_0_to_5 [ @@ -329,7 +331,7 @@ BlAttributeRopeExamplesTest >> testSmall_delete_0_to_5 [ ^ aNewRope ] -{ #category : #'examples - deletion' } +{ #category : 'examples - deletion' } BlAttributeRopeExamplesTest >> testSmall_delete_1_to_1 [ @@ -342,7 +344,7 @@ BlAttributeRopeExamplesTest >> testSmall_delete_1_to_1 [ ^ aNewRope ] -{ #category : #'examples - deletion' } +{ #category : 'examples - deletion' } BlAttributeRopeExamplesTest >> testSmall_delete_1_to_3 [ @@ -357,7 +359,7 @@ BlAttributeRopeExamplesTest >> testSmall_delete_1_to_3 [ ^ aNewRope ] -{ #category : #'examples - deletion' } +{ #category : 'examples - deletion' } BlAttributeRopeExamplesTest >> testSmall_delete_1_to_5 [ @@ -372,7 +374,7 @@ BlAttributeRopeExamplesTest >> testSmall_delete_1_to_5 [ ^ aNewRope ] -{ #category : #'examples - deletion' } +{ #category : 'examples - deletion' } BlAttributeRopeExamplesTest >> testSmall_delete_4_to_5 [ @@ -387,7 +389,7 @@ BlAttributeRopeExamplesTest >> testSmall_delete_4_to_5 [ ^ aNewRope ] -{ #category : #'examples - deletion' } +{ #category : 'examples - deletion' } BlAttributeRopeExamplesTest >> testSmall_delete_5_to_5 [ @@ -400,7 +402,7 @@ BlAttributeRopeExamplesTest >> testSmall_delete_5_to_5 [ ^ aNewRope ] -{ #category : #'examples - accessing' } +{ #category : 'examples - accessing' } BlAttributeRopeExamplesTest >> testSmall_depth [ @@ -412,7 +414,7 @@ BlAttributeRopeExamplesTest >> testSmall_depth [ ^ aRope ] -{ #category : #'examples - enumeration' } +{ #category : 'examples - enumeration' } BlAttributeRopeExamplesTest >> testSmall_do [ @@ -427,7 +429,7 @@ BlAttributeRopeExamplesTest >> testSmall_do [ ^ theIterated ] -{ #category : #'instance creation' } +{ #category : 'instance creation' } BlAttributeRopeExamplesTest >> testSmall_empty [ @@ -444,7 +446,7 @@ BlAttributeRopeExamplesTest >> testSmall_empty [ ^ anEmpty ] -{ #category : #'examples - from to' } +{ #category : 'examples - from to' } BlAttributeRopeExamplesTest >> testSmall_from_0_to_0 [ @@ -459,7 +461,7 @@ BlAttributeRopeExamplesTest >> testSmall_from_0_to_0 [ ^ aNewRope ] -{ #category : #'examples - enumeration' } +{ #category : 'examples - enumeration' } BlAttributeRopeExamplesTest >> testSmall_from_0_to_0_do [ @@ -477,7 +479,7 @@ BlAttributeRopeExamplesTest >> testSmall_from_0_to_0_do [ ^ theIterated ] -{ #category : #'examples - from to' } +{ #category : 'examples - from to' } BlAttributeRopeExamplesTest >> testSmall_from_0_to_1 [ @@ -492,7 +494,7 @@ BlAttributeRopeExamplesTest >> testSmall_from_0_to_1 [ ^ aNewRope ] -{ #category : #'examples - enumeration' } +{ #category : 'examples - enumeration' } BlAttributeRopeExamplesTest >> testSmall_from_0_to_1_do [ @@ -510,7 +512,7 @@ BlAttributeRopeExamplesTest >> testSmall_from_0_to_1_do [ ^ theIterated ] -{ #category : #'examples - from to' } +{ #category : 'examples - from to' } BlAttributeRopeExamplesTest >> testSmall_from_0_to_5 [ @@ -523,7 +525,7 @@ BlAttributeRopeExamplesTest >> testSmall_from_0_to_5 [ ^ aNewRope ] -{ #category : #'examples - enumeration' } +{ #category : 'examples - enumeration' } BlAttributeRopeExamplesTest >> testSmall_from_0_to_5_do [ @@ -541,7 +543,7 @@ BlAttributeRopeExamplesTest >> testSmall_from_0_to_5_do [ ^ theIterated ] -{ #category : #'examples - from to' } +{ #category : 'examples - from to' } BlAttributeRopeExamplesTest >> testSmall_from_1_to_1 [ @@ -556,7 +558,7 @@ BlAttributeRopeExamplesTest >> testSmall_from_1_to_1 [ ^ aNewRope ] -{ #category : #'examples - enumeration' } +{ #category : 'examples - enumeration' } BlAttributeRopeExamplesTest >> testSmall_from_1_to_1_do [ @@ -574,7 +576,7 @@ BlAttributeRopeExamplesTest >> testSmall_from_1_to_1_do [ ^ theIterated ] -{ #category : #'examples - from to' } +{ #category : 'examples - from to' } BlAttributeRopeExamplesTest >> testSmall_from_1_to_2 [ @@ -589,7 +591,7 @@ BlAttributeRopeExamplesTest >> testSmall_from_1_to_2 [ ^ aNewRope ] -{ #category : #'examples - enumeration' } +{ #category : 'examples - enumeration' } BlAttributeRopeExamplesTest >> testSmall_from_1_to_2_do [ @@ -607,7 +609,7 @@ BlAttributeRopeExamplesTest >> testSmall_from_1_to_2_do [ ^ theIterated ] -{ #category : #'examples - from to' } +{ #category : 'examples - from to' } BlAttributeRopeExamplesTest >> testSmall_from_1_to_5 [ @@ -622,7 +624,7 @@ BlAttributeRopeExamplesTest >> testSmall_from_1_to_5 [ ^ aNewRope ] -{ #category : #'examples - enumeration' } +{ #category : 'examples - enumeration' } BlAttributeRopeExamplesTest >> testSmall_from_1_to_5_do [ @@ -640,7 +642,7 @@ BlAttributeRopeExamplesTest >> testSmall_from_1_to_5_do [ ^ theIterated ] -{ #category : #'examples - from to' } +{ #category : 'examples - from to' } BlAttributeRopeExamplesTest >> testSmall_from_3_to_5 [ @@ -655,7 +657,7 @@ BlAttributeRopeExamplesTest >> testSmall_from_3_to_5 [ ^ aNewRope ] -{ #category : #'examples - enumeration' } +{ #category : 'examples - enumeration' } BlAttributeRopeExamplesTest >> testSmall_from_3_to_5_do [ @@ -673,7 +675,7 @@ BlAttributeRopeExamplesTest >> testSmall_from_3_to_5_do [ ^ theIterated ] -{ #category : #'examples - testing' } +{ #category : 'examples - testing' } BlAttributeRopeExamplesTest >> testSmall_isEmpty [ @@ -685,7 +687,7 @@ BlAttributeRopeExamplesTest >> testSmall_isEmpty [ ^ aRope ] -{ #category : #'examples - testing' } +{ #category : 'examples - testing' } BlAttributeRopeExamplesTest >> testSmall_isLeaf [ @@ -697,7 +699,7 @@ BlAttributeRopeExamplesTest >> testSmall_isLeaf [ ^ aRope ] -{ #category : #'examples - testing' } +{ #category : 'examples - testing' } BlAttributeRopeExamplesTest >> testSmall_isNotEmpty [ @@ -709,7 +711,7 @@ BlAttributeRopeExamplesTest >> testSmall_isNotEmpty [ ^ aRope ] -{ #category : #'examples - accessing' } +{ #category : 'examples - accessing' } BlAttributeRopeExamplesTest >> testSmall_size [ diff --git a/src/Bloc-Examples/BlClickEventExamplesTest.class.st b/src/Bloc-Examples/BlClickEventExamplesTest.class.st index fc2c927e6..fc0e1e29f 100644 --- a/src/Bloc-Examples/BlClickEventExamplesTest.class.st +++ b/src/Bloc-Examples/BlClickEventExamplesTest.class.st @@ -1,12 +1,14 @@ Class { - #name : #BlClickEventExamplesTest, - #superclass : #TestCase, + #name : 'BlClickEventExamplesTest', + #superclass : 'TestCase', #traits : 'TBlDevScripterExamples + TAssertable', #classTraits : 'TBlDevScripterExamples classTrait + TAssertable classTrait', - #category : #'Bloc-Examples-Event' + #category : 'Bloc-Examples-Event', + #package : 'Bloc-Examples', + #tag : 'Event' } -{ #category : #'examples - elements' } +{ #category : 'examples - elements' } BlClickEventExamplesTest >> element [ @@ -19,7 +21,7 @@ BlClickEventExamplesTest >> element [ c vertical matchParent ] ] -{ #category : #'examples - events' } +{ #category : 'examples - events' } BlClickEventExamplesTest >> testClickInHiddenChild [ @@ -45,7 +47,7 @@ BlClickEventExamplesTest >> testClickInHiddenChild [ ^ aScripter syncContinue ] -{ #category : #'examples - events' } +{ #category : 'examples - events' } BlClickEventExamplesTest >> testClickInHiddenChildAndVisibleClippedGrandchild [ @@ -73,7 +75,7 @@ BlClickEventExamplesTest >> testClickInHiddenChildAndVisibleClippedGrandchild [ ^ aScripter syncContinue ] -{ #category : #'examples - events' } +{ #category : 'examples - events' } BlClickEventExamplesTest >> testClickInHiddenChildAndVisibleGrandchild [ @@ -101,7 +103,7 @@ BlClickEventExamplesTest >> testClickInHiddenChildAndVisibleGrandchild [ ^ aScripter syncContinue ] -{ #category : #'examples - events' } +{ #category : 'examples - events' } BlClickEventExamplesTest >> testClickInHiddenChildAndVisibleUnclippedGrandchild [ @@ -129,7 +131,7 @@ BlClickEventExamplesTest >> testClickInHiddenChildAndVisibleUnclippedGrandchild ^ aScripter syncContinue ] -{ #category : #'examples - events' } +{ #category : 'examples - events' } BlClickEventExamplesTest >> testClickInParentWithGoneChild [ @@ -155,7 +157,7 @@ BlClickEventExamplesTest >> testClickInParentWithGoneChild [ ^ aScripter syncContinue ] -{ #category : #'examples - events' } +{ #category : 'examples - events' } BlClickEventExamplesTest >> testClickInVisibleChild [ @@ -176,7 +178,7 @@ BlClickEventExamplesTest >> testClickInVisibleChild [ ^ aScripter syncContinue ] -{ #category : #'examples - elements' } +{ #category : 'examples - elements' } BlClickEventExamplesTest >> threeElements [ @@ -189,7 +191,7 @@ BlClickEventExamplesTest >> threeElements [ id: #parent ] -{ #category : #'examples - elements in scripter' } +{ #category : 'examples - elements in scripter' } BlClickEventExamplesTest >> threeElementsInScripter [ @@ -218,7 +220,7 @@ BlClickEventExamplesTest >> threeElementsInScripter [ anElement ] ] -{ #category : #'examples - elements' } +{ #category : 'examples - elements' } BlClickEventExamplesTest >> threeElementsWithFalseChildClipping [ @@ -252,7 +254,7 @@ BlClickEventExamplesTest >> threeElementsWithFalseChildClipping [ ^ aParent ] -{ #category : #'examples - elements in scripter' } +{ #category : 'examples - elements in scripter' } BlClickEventExamplesTest >> threeElementsWithFalseChildClippingInScripter [ @@ -281,7 +283,7 @@ BlClickEventExamplesTest >> threeElementsWithFalseChildClippingInScripter [ anElement ] ] -{ #category : #'examples - elements' } +{ #category : 'examples - elements' } BlClickEventExamplesTest >> threeElementsWithTrueChildClipping [ @@ -294,7 +296,7 @@ BlClickEventExamplesTest >> threeElementsWithTrueChildClipping [ ^ aParent ] -{ #category : #'examples - elements in scripter' } +{ #category : 'examples - elements in scripter' } BlClickEventExamplesTest >> threeElementsWithTrueChildClippingInScripter [ @@ -323,7 +325,7 @@ BlClickEventExamplesTest >> threeElementsWithTrueChildClippingInScripter [ anElement ] ] -{ #category : #'examples - elements' } +{ #category : 'examples - elements' } BlClickEventExamplesTest >> twoElements [ @@ -333,7 +335,7 @@ BlClickEventExamplesTest >> twoElements [ id: #parent ] -{ #category : #'examples - elements in scripter' } +{ #category : 'examples - elements in scripter' } BlClickEventExamplesTest >> twoElementsInScripter [ diff --git a/src/Bloc-Examples/BlCollectionRopeExamplesTest.class.st b/src/Bloc-Examples/BlCollectionRopeExamplesTest.class.st index 4b4a9c0b1..2bdb7ce68 100644 --- a/src/Bloc-Examples/BlCollectionRopeExamplesTest.class.st +++ b/src/Bloc-Examples/BlCollectionRopeExamplesTest.class.st @@ -3,12 +3,14 @@ I contain examples of a collection rope " Class { - #name : #BlCollectionRopeExamplesTest, - #superclass : #TestCase, - #category : #'Bloc-Examples-Rope' + #name : 'BlCollectionRopeExamplesTest', + #superclass : 'TestCase', + #category : 'Bloc-Examples-Rope', + #package : 'Bloc-Examples', + #tag : 'Rope' } -{ #category : #'examples - attributes' } +{ #category : 'examples - attributes' } BlCollectionRopeExamplesTest >> testAttributes_empty_0_to_0 [ @@ -23,7 +25,7 @@ BlCollectionRopeExamplesTest >> testAttributes_empty_0_to_0 [ ^ anAttributedRope ] -{ #category : #'examples - attributes' } +{ #category : 'examples - attributes' } BlCollectionRopeExamplesTest >> testAttributes_small_0_to_0 [ @@ -39,7 +41,7 @@ BlCollectionRopeExamplesTest >> testAttributes_small_0_to_0 [ ^ anAttributedRope ] -{ #category : #'examples - attributes' } +{ #category : 'examples - attributes' } BlCollectionRopeExamplesTest >> testAttributes_small_0_to_1 [ @@ -55,7 +57,7 @@ BlCollectionRopeExamplesTest >> testAttributes_small_0_to_1 [ ^ anAttributedRope ] -{ #category : #'examples - attributes' } +{ #category : 'examples - attributes' } BlCollectionRopeExamplesTest >> testAttributes_small_0_to_5 [ @@ -69,7 +71,7 @@ BlCollectionRopeExamplesTest >> testAttributes_small_0_to_5 [ ^ anAttributedRope ] -{ #category : #'examples - attributes' } +{ #category : 'examples - attributes' } BlCollectionRopeExamplesTest >> testAttributes_small_2_to_2 [ @@ -87,7 +89,7 @@ BlCollectionRopeExamplesTest >> testAttributes_small_2_to_2 [ ^ anAttributedRope ] -{ #category : #'examples - attributes' } +{ #category : 'examples - attributes' } BlCollectionRopeExamplesTest >> testAttributes_small_4_to_5 [ @@ -103,7 +105,7 @@ BlCollectionRopeExamplesTest >> testAttributes_small_4_to_5 [ ^ anAttributedRope ] -{ #category : #'examples - attributes' } +{ #category : 'examples - attributes' } BlCollectionRopeExamplesTest >> testAttributes_small_5_to_5 [ @@ -119,7 +121,7 @@ BlCollectionRopeExamplesTest >> testAttributes_small_5_to_5 [ ^ anAttributedRope ] -{ #category : #'examples - attributes' } +{ #category : 'examples - attributes' } BlCollectionRopeExamplesTest >> testClear_attributes_empty_0_to_0 [ @@ -133,7 +135,7 @@ BlCollectionRopeExamplesTest >> testClear_attributes_empty_0_to_0 [ ^ aRopeWithoutAttributes ] -{ #category : #'instance creation' } +{ #category : 'instance creation' } BlCollectionRopeExamplesTest >> testSmall [ "Creates an instance of the rope of size smaller than combineLength" @@ -150,7 +152,7 @@ BlCollectionRopeExamplesTest >> testSmall [ ^ aRope ] -{ #category : #'examples - accessing' } +{ #category : 'examples - accessing' } BlCollectionRopeExamplesTest >> testSmall_at_each [ @@ -166,7 +168,7 @@ BlCollectionRopeExamplesTest >> testSmall_at_each [ ^ aRope ] -{ #category : #'examples - accessing' } +{ #category : 'examples - accessing' } BlCollectionRopeExamplesTest >> testSmall_children [ @@ -178,7 +180,7 @@ BlCollectionRopeExamplesTest >> testSmall_children [ ^ aRope ] -{ #category : #'examples - deletion' } +{ #category : 'examples - deletion' } BlCollectionRopeExamplesTest >> testSmall_delete_0_to_0 [ @@ -191,7 +193,7 @@ BlCollectionRopeExamplesTest >> testSmall_delete_0_to_0 [ ^ aNewRope ] -{ #category : #'examples - deletion' } +{ #category : 'examples - deletion' } BlCollectionRopeExamplesTest >> testSmall_delete_0_to_1 [ @@ -205,7 +207,7 @@ BlCollectionRopeExamplesTest >> testSmall_delete_0_to_1 [ ^ aNewRope ] -{ #category : #'examples - deletion' } +{ #category : 'examples - deletion' } BlCollectionRopeExamplesTest >> testSmall_delete_0_to_5 [ @@ -219,7 +221,7 @@ BlCollectionRopeExamplesTest >> testSmall_delete_0_to_5 [ ^ aNewRope ] -{ #category : #'examples - deletion' } +{ #category : 'examples - deletion' } BlCollectionRopeExamplesTest >> testSmall_delete_1_to_1 [ @@ -232,7 +234,7 @@ BlCollectionRopeExamplesTest >> testSmall_delete_1_to_1 [ ^ aNewRope ] -{ #category : #'examples - deletion' } +{ #category : 'examples - deletion' } BlCollectionRopeExamplesTest >> testSmall_delete_1_to_3 [ @@ -246,7 +248,7 @@ BlCollectionRopeExamplesTest >> testSmall_delete_1_to_3 [ ^ aNewRope ] -{ #category : #'examples - deletion' } +{ #category : 'examples - deletion' } BlCollectionRopeExamplesTest >> testSmall_delete_1_to_5 [ @@ -260,7 +262,7 @@ BlCollectionRopeExamplesTest >> testSmall_delete_1_to_5 [ ^ aNewRope ] -{ #category : #'examples - deletion' } +{ #category : 'examples - deletion' } BlCollectionRopeExamplesTest >> testSmall_delete_4_to_5 [ @@ -274,7 +276,7 @@ BlCollectionRopeExamplesTest >> testSmall_delete_4_to_5 [ ^ aNewRope ] -{ #category : #'examples - deletion' } +{ #category : 'examples - deletion' } BlCollectionRopeExamplesTest >> testSmall_delete_5_to_5 [ @@ -287,7 +289,7 @@ BlCollectionRopeExamplesTest >> testSmall_delete_5_to_5 [ ^ aNewRope ] -{ #category : #'examples - accessing' } +{ #category : 'examples - accessing' } BlCollectionRopeExamplesTest >> testSmall_depth [ @@ -299,7 +301,7 @@ BlCollectionRopeExamplesTest >> testSmall_depth [ ^ aRope ] -{ #category : #'examples - enumeration' } +{ #category : 'examples - enumeration' } BlCollectionRopeExamplesTest >> testSmall_do [ @@ -314,7 +316,7 @@ BlCollectionRopeExamplesTest >> testSmall_do [ ^ theIterated ] -{ #category : #'instance creation' } +{ #category : 'instance creation' } BlCollectionRopeExamplesTest >> testSmall_empty [ @@ -328,7 +330,7 @@ BlCollectionRopeExamplesTest >> testSmall_empty [ ^ anEmpty ] -{ #category : #'examples - from to' } +{ #category : 'examples - from to' } BlCollectionRopeExamplesTest >> testSmall_from_0_to_0 [ @@ -342,7 +344,7 @@ BlCollectionRopeExamplesTest >> testSmall_from_0_to_0 [ ^ aNewRope ] -{ #category : #'examples - enumeration' } +{ #category : 'examples - enumeration' } BlCollectionRopeExamplesTest >> testSmall_from_0_to_0_do [ @@ -360,7 +362,7 @@ BlCollectionRopeExamplesTest >> testSmall_from_0_to_0_do [ ^ theIterated ] -{ #category : #'examples - from to' } +{ #category : 'examples - from to' } BlCollectionRopeExamplesTest >> testSmall_from_0_to_1 [ @@ -374,7 +376,7 @@ BlCollectionRopeExamplesTest >> testSmall_from_0_to_1 [ ^ aNewRope ] -{ #category : #'examples - enumeration' } +{ #category : 'examples - enumeration' } BlCollectionRopeExamplesTest >> testSmall_from_0_to_1_do [ @@ -392,7 +394,7 @@ BlCollectionRopeExamplesTest >> testSmall_from_0_to_1_do [ ^ theIterated ] -{ #category : #'examples - from to' } +{ #category : 'examples - from to' } BlCollectionRopeExamplesTest >> testSmall_from_0_to_5 [ @@ -405,7 +407,7 @@ BlCollectionRopeExamplesTest >> testSmall_from_0_to_5 [ ^ aNewRope ] -{ #category : #'examples - enumeration' } +{ #category : 'examples - enumeration' } BlCollectionRopeExamplesTest >> testSmall_from_0_to_5_do [ @@ -423,7 +425,7 @@ BlCollectionRopeExamplesTest >> testSmall_from_0_to_5_do [ ^ theIterated ] -{ #category : #'examples - from to' } +{ #category : 'examples - from to' } BlCollectionRopeExamplesTest >> testSmall_from_1_to_1 [ @@ -437,7 +439,7 @@ BlCollectionRopeExamplesTest >> testSmall_from_1_to_1 [ ^ aNewRope ] -{ #category : #'examples - enumeration' } +{ #category : 'examples - enumeration' } BlCollectionRopeExamplesTest >> testSmall_from_1_to_1_do [ @@ -455,7 +457,7 @@ BlCollectionRopeExamplesTest >> testSmall_from_1_to_1_do [ ^ theIterated ] -{ #category : #'examples - from to' } +{ #category : 'examples - from to' } BlCollectionRopeExamplesTest >> testSmall_from_1_to_2 [ @@ -469,7 +471,7 @@ BlCollectionRopeExamplesTest >> testSmall_from_1_to_2 [ ^ aNewRope ] -{ #category : #'examples - enumeration' } +{ #category : 'examples - enumeration' } BlCollectionRopeExamplesTest >> testSmall_from_1_to_2_do [ @@ -487,7 +489,7 @@ BlCollectionRopeExamplesTest >> testSmall_from_1_to_2_do [ ^ theIterated ] -{ #category : #'examples - from to' } +{ #category : 'examples - from to' } BlCollectionRopeExamplesTest >> testSmall_from_1_to_5 [ @@ -501,7 +503,7 @@ BlCollectionRopeExamplesTest >> testSmall_from_1_to_5 [ ^ aNewRope ] -{ #category : #'examples - enumeration' } +{ #category : 'examples - enumeration' } BlCollectionRopeExamplesTest >> testSmall_from_1_to_5_do [ @@ -519,7 +521,7 @@ BlCollectionRopeExamplesTest >> testSmall_from_1_to_5_do [ ^ theIterated ] -{ #category : #'examples - from to' } +{ #category : 'examples - from to' } BlCollectionRopeExamplesTest >> testSmall_from_3_to_5 [ @@ -533,7 +535,7 @@ BlCollectionRopeExamplesTest >> testSmall_from_3_to_5 [ ^ aNewRope ] -{ #category : #'examples - enumeration' } +{ #category : 'examples - enumeration' } BlCollectionRopeExamplesTest >> testSmall_from_3_to_5_do [ @@ -551,7 +553,7 @@ BlCollectionRopeExamplesTest >> testSmall_from_3_to_5_do [ ^ theIterated ] -{ #category : #'examples - insertion' } +{ #category : 'examples - insertion' } BlCollectionRopeExamplesTest >> testSmall_insert_rope_123_at_0 [ @@ -565,7 +567,7 @@ BlCollectionRopeExamplesTest >> testSmall_insert_rope_123_at_0 [ ^ aNewRope ] -{ #category : #'examples - insertion' } +{ #category : 'examples - insertion' } BlCollectionRopeExamplesTest >> testSmall_insert_rope_123_at_1 [ @@ -579,7 +581,7 @@ BlCollectionRopeExamplesTest >> testSmall_insert_rope_123_at_1 [ ^ aNewRope ] -{ #category : #'examples - insertion' } +{ #category : 'examples - insertion' } BlCollectionRopeExamplesTest >> testSmall_insert_rope_123_at_2 [ @@ -593,7 +595,7 @@ BlCollectionRopeExamplesTest >> testSmall_insert_rope_123_at_2 [ ^ aNewRope ] -{ #category : #'examples - insertion' } +{ #category : 'examples - insertion' } BlCollectionRopeExamplesTest >> testSmall_insert_rope_123_at_3 [ @@ -607,7 +609,7 @@ BlCollectionRopeExamplesTest >> testSmall_insert_rope_123_at_3 [ ^ aNewRope ] -{ #category : #'examples - insertion' } +{ #category : 'examples - insertion' } BlCollectionRopeExamplesTest >> testSmall_insert_rope_123_at_4 [ @@ -621,7 +623,7 @@ BlCollectionRopeExamplesTest >> testSmall_insert_rope_123_at_4 [ ^ aNewRope ] -{ #category : #'examples - insertion' } +{ #category : 'examples - insertion' } BlCollectionRopeExamplesTest >> testSmall_insert_rope_123_at_5 [ @@ -635,7 +637,7 @@ BlCollectionRopeExamplesTest >> testSmall_insert_rope_123_at_5 [ ^ aNewRope ] -{ #category : #'examples - insertion' } +{ #category : 'examples - insertion' } BlCollectionRopeExamplesTest >> testSmall_insert_string_123_at_0 [ @@ -649,7 +651,7 @@ BlCollectionRopeExamplesTest >> testSmall_insert_string_123_at_0 [ ^ aNewRope ] -{ #category : #'examples - insertion' } +{ #category : 'examples - insertion' } BlCollectionRopeExamplesTest >> testSmall_insert_string_123_at_1 [ @@ -663,7 +665,7 @@ BlCollectionRopeExamplesTest >> testSmall_insert_string_123_at_1 [ ^ aNewRope ] -{ #category : #'examples - insertion' } +{ #category : 'examples - insertion' } BlCollectionRopeExamplesTest >> testSmall_insert_string_123_at_2 [ @@ -677,7 +679,7 @@ BlCollectionRopeExamplesTest >> testSmall_insert_string_123_at_2 [ ^ aNewRope ] -{ #category : #'examples - insertion' } +{ #category : 'examples - insertion' } BlCollectionRopeExamplesTest >> testSmall_insert_string_123_at_3 [ @@ -691,7 +693,7 @@ BlCollectionRopeExamplesTest >> testSmall_insert_string_123_at_3 [ ^ aNewRope ] -{ #category : #'examples - insertion' } +{ #category : 'examples - insertion' } BlCollectionRopeExamplesTest >> testSmall_insert_string_123_at_4 [ @@ -705,7 +707,7 @@ BlCollectionRopeExamplesTest >> testSmall_insert_string_123_at_4 [ ^ aNewRope ] -{ #category : #'examples - insertion' } +{ #category : 'examples - insertion' } BlCollectionRopeExamplesTest >> testSmall_insert_string_123_at_5 [ @@ -719,7 +721,7 @@ BlCollectionRopeExamplesTest >> testSmall_insert_string_123_at_5 [ ^ aNewRope ] -{ #category : #'examples - testing' } +{ #category : 'examples - testing' } BlCollectionRopeExamplesTest >> testSmall_isEmpty [ @@ -731,7 +733,7 @@ BlCollectionRopeExamplesTest >> testSmall_isEmpty [ ^ aRope ] -{ #category : #'examples - testing' } +{ #category : 'examples - testing' } BlCollectionRopeExamplesTest >> testSmall_isLeaf [ @@ -743,7 +745,7 @@ BlCollectionRopeExamplesTest >> testSmall_isLeaf [ ^ aRope ] -{ #category : #'examples - testing' } +{ #category : 'examples - testing' } BlCollectionRopeExamplesTest >> testSmall_isNotEmpty [ @@ -755,7 +757,7 @@ BlCollectionRopeExamplesTest >> testSmall_isNotEmpty [ ^ aRope ] -{ #category : #'examples - accessing' } +{ #category : 'examples - accessing' } BlCollectionRopeExamplesTest >> testSmall_size [ diff --git a/src/Bloc-Examples/BlCollectionRopeIteratorExamplesTest.class.st b/src/Bloc-Examples/BlCollectionRopeIteratorExamplesTest.class.st index 616a8dd1c..7bc8f1597 100644 --- a/src/Bloc-Examples/BlCollectionRopeIteratorExamplesTest.class.st +++ b/src/Bloc-Examples/BlCollectionRopeIteratorExamplesTest.class.st @@ -1,10 +1,12 @@ Class { - #name : #BlCollectionRopeIteratorExamplesTest, - #superclass : #TestCase, - #category : #'Bloc-Examples-Rope' + #name : 'BlCollectionRopeIteratorExamplesTest', + #superclass : 'TestCase', + #category : 'Bloc-Examples-Rope', + #package : 'Bloc-Examples', + #tag : 'Rope' } -{ #category : #'examples - next line' } +{ #category : 'examples - next line' } BlCollectionRopeIteratorExamplesTest >> testNextLineIndicesWithCrlf_0 [ @@ -32,7 +34,7 @@ BlCollectionRopeIteratorExamplesTest >> testNextLineIndicesWithCrlf_0 [ ^ anIterator ] -{ #category : #'examples - next line' } +{ #category : 'examples - next line' } BlCollectionRopeIteratorExamplesTest >> testNextLineIndicesWithCrlf_08 [ @@ -58,7 +60,7 @@ BlCollectionRopeIteratorExamplesTest >> testNextLineIndicesWithCrlf_08 [ ^ anIterator ] -{ #category : #'examples - next line' } +{ #category : 'examples - next line' } BlCollectionRopeIteratorExamplesTest >> testNextLineIndicesWithCrlf_16 [ @@ -85,7 +87,7 @@ BlCollectionRopeIteratorExamplesTest >> testNextLineIndicesWithCrlf_16 [ ^ anIterator ] -{ #category : #'examples - next line' } +{ #category : 'examples - next line' } BlCollectionRopeIteratorExamplesTest >> testNextLineIndicesWithCrlf_18 [ @@ -111,7 +113,7 @@ BlCollectionRopeIteratorExamplesTest >> testNextLineIndicesWithCrlf_18 [ ^ anIterator ] -{ #category : #'examples - next line' } +{ #category : 'examples - next line' } BlCollectionRopeIteratorExamplesTest >> testNextLineWithCr_0 [ @@ -139,7 +141,7 @@ BlCollectionRopeIteratorExamplesTest >> testNextLineWithCr_0 [ ^ anIterator ] -{ #category : #'examples - next line' } +{ #category : 'examples - next line' } BlCollectionRopeIteratorExamplesTest >> testNextLineWithCr_07 [ @@ -165,7 +167,7 @@ BlCollectionRopeIteratorExamplesTest >> testNextLineWithCr_07 [ ^ anIterator ] -{ #category : #'examples - next line' } +{ #category : 'examples - next line' } BlCollectionRopeIteratorExamplesTest >> testNextLineWithCr_14 [ @@ -191,7 +193,7 @@ BlCollectionRopeIteratorExamplesTest >> testNextLineWithCr_14 [ ^ anIterator ] -{ #category : #'examples - next line' } +{ #category : 'examples - next line' } BlCollectionRopeIteratorExamplesTest >> testNextLineWithCr_15 [ @@ -217,7 +219,7 @@ BlCollectionRopeIteratorExamplesTest >> testNextLineWithCr_15 [ ^ anIterator ] -{ #category : #'examples - next line' } +{ #category : 'examples - next line' } BlCollectionRopeIteratorExamplesTest >> testNextLineWithCrlf [ @@ -234,7 +236,7 @@ BlCollectionRopeIteratorExamplesTest >> testNextLineWithCrlf [ ^ anIterator ] -{ #category : #'examples - next line' } +{ #category : 'examples - next line' } BlCollectionRopeIteratorExamplesTest >> testNextLineWithLf_0 [ @@ -262,7 +264,7 @@ BlCollectionRopeIteratorExamplesTest >> testNextLineWithLf_0 [ ^ anIterator ] -{ #category : #'examples - next line' } +{ #category : 'examples - next line' } BlCollectionRopeIteratorExamplesTest >> testNextLineWithLf_07 [ @@ -288,7 +290,7 @@ BlCollectionRopeIteratorExamplesTest >> testNextLineWithLf_07 [ ^ anIterator ] -{ #category : #'examples - next line' } +{ #category : 'examples - next line' } BlCollectionRopeIteratorExamplesTest >> testNextLineWithLf_14 [ @@ -314,7 +316,7 @@ BlCollectionRopeIteratorExamplesTest >> testNextLineWithLf_14 [ ^ anIterator ] -{ #category : #'examples - next line' } +{ #category : 'examples - next line' } BlCollectionRopeIteratorExamplesTest >> testNextLineWithLf_15 [ @@ -340,7 +342,7 @@ BlCollectionRopeIteratorExamplesTest >> testNextLineWithLf_15 [ ^ anIterator ] -{ #category : #'examples - next segment' } +{ #category : 'examples - next segment' } BlCollectionRopeIteratorExamplesTest >> testNextSegmentWithLookAhead_at_0 [ @@ -373,7 +375,7 @@ BlCollectionRopeIteratorExamplesTest >> testNextSegmentWithLookAhead_at_0 [ ^ anIterator ] -{ #category : #'examples - next segment' } +{ #category : 'examples - next segment' } BlCollectionRopeIteratorExamplesTest >> testNextSegmentWithLookAhead_at_3 [ @@ -406,7 +408,7 @@ BlCollectionRopeIteratorExamplesTest >> testNextSegmentWithLookAhead_at_3 [ ^ anIterator ] -{ #category : #'examples - next segment' } +{ #category : 'examples - next segment' } BlCollectionRopeIteratorExamplesTest >> testNextSegmentWithLookAhead_at_5 [ @@ -439,7 +441,7 @@ BlCollectionRopeIteratorExamplesTest >> testNextSegmentWithLookAhead_at_5 [ ^ anIterator ] -{ #category : #'instance creation' } +{ #category : 'instance creation' } BlCollectionRopeIteratorExamplesTest >> testSmall [ @@ -458,7 +460,7 @@ BlCollectionRopeIteratorExamplesTest >> testSmall [ ^ anIterator ] -{ #category : #'examples - enumeration' } +{ #category : 'examples - enumeration' } BlCollectionRopeIteratorExamplesTest >> testSmall_nextSpan_at_0 [ @@ -472,7 +474,7 @@ BlCollectionRopeIteratorExamplesTest >> testSmall_nextSpan_at_0 [ ^ anIterator ] -{ #category : #'examples - enumeration' } +{ #category : 'examples - enumeration' } BlCollectionRopeIteratorExamplesTest >> testSmall_nextSpan_at_1 [ @@ -486,7 +488,7 @@ BlCollectionRopeIteratorExamplesTest >> testSmall_nextSpan_at_1 [ ^ anIterator ] -{ #category : #'examples - enumeration' } +{ #category : 'examples - enumeration' } BlCollectionRopeIteratorExamplesTest >> testSmall_nextSpan_at_2 [ @@ -500,7 +502,7 @@ BlCollectionRopeIteratorExamplesTest >> testSmall_nextSpan_at_2 [ ^ anIterator ] -{ #category : #'examples - enumeration' } +{ #category : 'examples - enumeration' } BlCollectionRopeIteratorExamplesTest >> testSmall_nextSpan_at_3 [ @@ -514,7 +516,7 @@ BlCollectionRopeIteratorExamplesTest >> testSmall_nextSpan_at_3 [ ^ anIterator ] -{ #category : #'examples - enumeration' } +{ #category : 'examples - enumeration' } BlCollectionRopeIteratorExamplesTest >> testSmall_nextSpan_at_4 [ @@ -528,7 +530,7 @@ BlCollectionRopeIteratorExamplesTest >> testSmall_nextSpan_at_4 [ ^ anIterator ] -{ #category : #'examples - enumeration' } +{ #category : 'examples - enumeration' } BlCollectionRopeIteratorExamplesTest >> testSmall_nextSpan_at_5 [ "Iterator throws an error when the end is reached" @@ -546,7 +548,7 @@ BlCollectionRopeIteratorExamplesTest >> testSmall_nextSpan_at_5 [ ^ anIterator ] -{ #category : #'examples - enumeration' } +{ #category : 'examples - enumeration' } BlCollectionRopeIteratorExamplesTest >> testSmall_next_at_0 [ @@ -563,7 +565,7 @@ BlCollectionRopeIteratorExamplesTest >> testSmall_next_at_0 [ ^ anIterator ] -{ #category : #'examples - enumeration' } +{ #category : 'examples - enumeration' } BlCollectionRopeIteratorExamplesTest >> testSmall_next_at_1 [ @@ -580,7 +582,7 @@ BlCollectionRopeIteratorExamplesTest >> testSmall_next_at_1 [ ^ anIterator ] -{ #category : #'examples - enumeration' } +{ #category : 'examples - enumeration' } BlCollectionRopeIteratorExamplesTest >> testSmall_next_at_2 [ @@ -597,7 +599,7 @@ BlCollectionRopeIteratorExamplesTest >> testSmall_next_at_2 [ ^ anIterator ] -{ #category : #'examples - enumeration' } +{ #category : 'examples - enumeration' } BlCollectionRopeIteratorExamplesTest >> testSmall_next_at_3 [ @@ -614,7 +616,7 @@ BlCollectionRopeIteratorExamplesTest >> testSmall_next_at_3 [ ^ anIterator ] -{ #category : #'examples - enumeration' } +{ #category : 'examples - enumeration' } BlCollectionRopeIteratorExamplesTest >> testSmall_next_at_4 [ @@ -631,7 +633,7 @@ BlCollectionRopeIteratorExamplesTest >> testSmall_next_at_4 [ ^ anIterator ] -{ #category : #'examples - enumeration' } +{ #category : 'examples - enumeration' } BlCollectionRopeIteratorExamplesTest >> testSmall_next_at_5 [ "Iterator throws an error when the end is reached" @@ -649,7 +651,7 @@ BlCollectionRopeIteratorExamplesTest >> testSmall_next_at_5 [ ^ anIterator ] -{ #category : #'examples - enumeration' } +{ #category : 'examples - enumeration' } BlCollectionRopeIteratorExamplesTest >> testSmall_peek_at_0 [ @@ -666,7 +668,7 @@ BlCollectionRopeIteratorExamplesTest >> testSmall_peek_at_0 [ ^ anIterator ] -{ #category : #'examples - enumeration' } +{ #category : 'examples - enumeration' } BlCollectionRopeIteratorExamplesTest >> testSmall_peek_at_1 [ @@ -683,7 +685,7 @@ BlCollectionRopeIteratorExamplesTest >> testSmall_peek_at_1 [ ^ anIterator ] -{ #category : #'examples - enumeration' } +{ #category : 'examples - enumeration' } BlCollectionRopeIteratorExamplesTest >> testSmall_peek_at_2 [ @@ -700,7 +702,7 @@ BlCollectionRopeIteratorExamplesTest >> testSmall_peek_at_2 [ ^ anIterator ] -{ #category : #'examples - enumeration' } +{ #category : 'examples - enumeration' } BlCollectionRopeIteratorExamplesTest >> testSmall_peek_at_3 [ @@ -717,7 +719,7 @@ BlCollectionRopeIteratorExamplesTest >> testSmall_peek_at_3 [ ^ anIterator ] -{ #category : #'examples - enumeration' } +{ #category : 'examples - enumeration' } BlCollectionRopeIteratorExamplesTest >> testSmall_peek_at_4 [ @@ -734,7 +736,7 @@ BlCollectionRopeIteratorExamplesTest >> testSmall_peek_at_4 [ ^ anIterator ] -{ #category : #'examples - enumeration' } +{ #category : 'examples - enumeration' } BlCollectionRopeIteratorExamplesTest >> testSmall_peek_at_5 [ "Iterator throws an error when the end is reached" @@ -752,7 +754,7 @@ BlCollectionRopeIteratorExamplesTest >> testSmall_peek_at_5 [ ^ anIterator ] -{ #category : #'examples - enumeration' } +{ #category : 'examples - enumeration' } BlCollectionRopeIteratorExamplesTest >> testSmall_previous_at_0 [ "Iterator throws an error when the start is reached" @@ -770,7 +772,7 @@ BlCollectionRopeIteratorExamplesTest >> testSmall_previous_at_0 [ ^ anIterator ] -{ #category : #'examples - enumeration' } +{ #category : 'examples - enumeration' } BlCollectionRopeIteratorExamplesTest >> testSmall_previous_at_1 [ @@ -787,7 +789,7 @@ BlCollectionRopeIteratorExamplesTest >> testSmall_previous_at_1 [ ^ anIterator ] -{ #category : #'examples - enumeration' } +{ #category : 'examples - enumeration' } BlCollectionRopeIteratorExamplesTest >> testSmall_previous_at_2 [ @@ -804,7 +806,7 @@ BlCollectionRopeIteratorExamplesTest >> testSmall_previous_at_2 [ ^ anIterator ] -{ #category : #'examples - enumeration' } +{ #category : 'examples - enumeration' } BlCollectionRopeIteratorExamplesTest >> testSmall_previous_at_3 [ @@ -821,7 +823,7 @@ BlCollectionRopeIteratorExamplesTest >> testSmall_previous_at_3 [ ^ anIterator ] -{ #category : #'examples - enumeration' } +{ #category : 'examples - enumeration' } BlCollectionRopeIteratorExamplesTest >> testSmall_previous_at_4 [ @@ -838,7 +840,7 @@ BlCollectionRopeIteratorExamplesTest >> testSmall_previous_at_4 [ ^ anIterator ] -{ #category : #'examples - enumeration' } +{ #category : 'examples - enumeration' } BlCollectionRopeIteratorExamplesTest >> testSmall_previous_at_5 [ @@ -855,7 +857,7 @@ BlCollectionRopeIteratorExamplesTest >> testSmall_previous_at_5 [ ^ anIterator ] -{ #category : #'examples - enumeration' } +{ #category : 'examples - enumeration' } BlCollectionRopeIteratorExamplesTest >> testSmall_skip_0_at_0 [ @@ -868,7 +870,7 @@ BlCollectionRopeIteratorExamplesTest >> testSmall_skip_0_at_0 [ ^ anIterator ] -{ #category : #'examples - enumeration' } +{ #category : 'examples - enumeration' } BlCollectionRopeIteratorExamplesTest >> testSmall_skip_1_at_0 [ @@ -881,7 +883,7 @@ BlCollectionRopeIteratorExamplesTest >> testSmall_skip_1_at_0 [ ^ anIterator ] -{ #category : #'examples - enumeration' } +{ #category : 'examples - enumeration' } BlCollectionRopeIteratorExamplesTest >> testSmall_skip_2_at_0 [ @@ -894,7 +896,7 @@ BlCollectionRopeIteratorExamplesTest >> testSmall_skip_2_at_0 [ ^ anIterator ] -{ #category : #'examples - enumeration' } +{ #category : 'examples - enumeration' } BlCollectionRopeIteratorExamplesTest >> testSmall_skip_3_at_0 [ @@ -907,7 +909,7 @@ BlCollectionRopeIteratorExamplesTest >> testSmall_skip_3_at_0 [ ^ anIterator ] -{ #category : #'examples - enumeration' } +{ #category : 'examples - enumeration' } BlCollectionRopeIteratorExamplesTest >> testSmall_skip_4_at_0 [ @@ -920,7 +922,7 @@ BlCollectionRopeIteratorExamplesTest >> testSmall_skip_4_at_0 [ ^ anIterator ] -{ #category : #'examples - enumeration' } +{ #category : 'examples - enumeration' } BlCollectionRopeIteratorExamplesTest >> testSmall_skip_5_at_0 [ @@ -933,7 +935,7 @@ BlCollectionRopeIteratorExamplesTest >> testSmall_skip_5_at_0 [ ^ anIterator ] -{ #category : #'examples - enumeration' } +{ #category : 'examples - enumeration' } BlCollectionRopeIteratorExamplesTest >> testSmall_skip_6_at_0 [ "Iterator throws an error when the end is reached" diff --git a/src/Bloc-Examples/BlCollectionRopeIteratorTest.class.st b/src/Bloc-Examples/BlCollectionRopeIteratorTest.class.st index e09d34397..3074b5607 100644 --- a/src/Bloc-Examples/BlCollectionRopeIteratorTest.class.st +++ b/src/Bloc-Examples/BlCollectionRopeIteratorTest.class.st @@ -3,12 +3,13 @@ I have been automatically converted and probably manually tweaked from BlCollect Finally and more important such tests should not use setup because every method should be in capacity of returning a fully working object called an example :) " Class { - #name : #BlCollectionRopeIteratorTest, - #superclass : #TestCase, - #category : #'Bloc-Examples' + #name : 'BlCollectionRopeIteratorTest', + #superclass : 'TestCase', + #category : 'Bloc-Examples', + #package : 'Bloc-Examples' } -{ #category : #fixture } +{ #category : 'fixture' } BlCollectionRopeIteratorTest >> NextLineWithCr0 [ @@ -36,13 +37,13 @@ BlCollectionRopeIteratorTest >> NextLineWithCr0 [ ^ anIterator ] -{ #category : #metadata } +{ #category : 'metadata' } BlCollectionRopeIteratorTest >> originClassName [ "This test was generated from..." ^ 'BlCollectionRopeIteratorExamples' ] -{ #category : #tests } +{ #category : 'tests' } BlCollectionRopeIteratorTest >> testNextLineIndicesWithCrlf0 [ @@ -70,7 +71,7 @@ BlCollectionRopeIteratorTest >> testNextLineIndicesWithCrlf0 [ ^ anIterator ] -{ #category : #tests } +{ #category : 'tests' } BlCollectionRopeIteratorTest >> testNextLineIndicesWithCrlf08 [ @@ -96,7 +97,7 @@ BlCollectionRopeIteratorTest >> testNextLineIndicesWithCrlf08 [ ^ anIterator ] -{ #category : #tests } +{ #category : 'tests' } BlCollectionRopeIteratorTest >> testNextLineIndicesWithCrlf16 [ @@ -123,7 +124,7 @@ BlCollectionRopeIteratorTest >> testNextLineIndicesWithCrlf16 [ ^ anIterator ] -{ #category : #tests } +{ #category : 'tests' } BlCollectionRopeIteratorTest >> testNextLineIndicesWithCrlf18 [ @@ -149,7 +150,7 @@ BlCollectionRopeIteratorTest >> testNextLineIndicesWithCrlf18 [ ^ anIterator ] -{ #category : #tests } +{ #category : 'tests' } BlCollectionRopeIteratorTest >> testNextLineWithCr07 [ @@ -175,7 +176,7 @@ BlCollectionRopeIteratorTest >> testNextLineWithCr07 [ ^ anIterator ] -{ #category : #tests } +{ #category : 'tests' } BlCollectionRopeIteratorTest >> testNextLineWithCr14 [ @@ -201,7 +202,7 @@ BlCollectionRopeIteratorTest >> testNextLineWithCr14 [ ^ anIterator ] -{ #category : #tests } +{ #category : 'tests' } BlCollectionRopeIteratorTest >> testNextLineWithCr15 [ @@ -227,7 +228,7 @@ BlCollectionRopeIteratorTest >> testNextLineWithCr15 [ ^ anIterator ] -{ #category : #tests } +{ #category : 'tests' } BlCollectionRopeIteratorTest >> testNextLineWithCrlf [ @@ -244,7 +245,7 @@ BlCollectionRopeIteratorTest >> testNextLineWithCrlf [ ^ anIterator ] -{ #category : #tests } +{ #category : 'tests' } BlCollectionRopeIteratorTest >> testNextLineWithLf0 [ @@ -272,7 +273,7 @@ BlCollectionRopeIteratorTest >> testNextLineWithLf0 [ ^ anIterator ] -{ #category : #tests } +{ #category : 'tests' } BlCollectionRopeIteratorTest >> testNextLineWithLf07 [ @@ -298,7 +299,7 @@ BlCollectionRopeIteratorTest >> testNextLineWithLf07 [ ^ anIterator ] -{ #category : #tests } +{ #category : 'tests' } BlCollectionRopeIteratorTest >> testNextLineWithLf14 [ @@ -324,7 +325,7 @@ BlCollectionRopeIteratorTest >> testNextLineWithLf14 [ ^ anIterator ] -{ #category : #tests } +{ #category : 'tests' } BlCollectionRopeIteratorTest >> testNextLineWithLf15 [ @@ -350,7 +351,7 @@ BlCollectionRopeIteratorTest >> testNextLineWithLf15 [ ^ anIterator ] -{ #category : #tests } +{ #category : 'tests' } BlCollectionRopeIteratorTest >> testNextSegmentWithLookAheadAt0 [ @@ -383,7 +384,7 @@ BlCollectionRopeIteratorTest >> testNextSegmentWithLookAheadAt0 [ ^ anIterator ] -{ #category : #tests } +{ #category : 'tests' } BlCollectionRopeIteratorTest >> testNextSegmentWithLookAheadAt3 [ @@ -416,7 +417,7 @@ BlCollectionRopeIteratorTest >> testNextSegmentWithLookAheadAt3 [ ^ anIterator ] -{ #category : #tests } +{ #category : 'tests' } BlCollectionRopeIteratorTest >> testNextSegmentWithLookAheadAt5 [ @@ -449,7 +450,7 @@ BlCollectionRopeIteratorTest >> testNextSegmentWithLookAheadAt5 [ ^ anIterator ] -{ #category : #tests } +{ #category : 'tests' } BlCollectionRopeIteratorTest >> testSmall [ @@ -468,7 +469,7 @@ BlCollectionRopeIteratorTest >> testSmall [ ^ anIterator ] -{ #category : #tests } +{ #category : 'tests' } BlCollectionRopeIteratorTest >> testSmallNextAt0 [ @@ -485,7 +486,7 @@ BlCollectionRopeIteratorTest >> testSmallNextAt0 [ ^ anIterator ] -{ #category : #tests } +{ #category : 'tests' } BlCollectionRopeIteratorTest >> testSmallNextAt1 [ @@ -502,7 +503,7 @@ BlCollectionRopeIteratorTest >> testSmallNextAt1 [ ^ anIterator ] -{ #category : #tests } +{ #category : 'tests' } BlCollectionRopeIteratorTest >> testSmallNextAt2 [ @@ -519,7 +520,7 @@ BlCollectionRopeIteratorTest >> testSmallNextAt2 [ ^ anIterator ] -{ #category : #tests } +{ #category : 'tests' } BlCollectionRopeIteratorTest >> testSmallNextAt3 [ @@ -536,7 +537,7 @@ BlCollectionRopeIteratorTest >> testSmallNextAt3 [ ^ anIterator ] -{ #category : #tests } +{ #category : 'tests' } BlCollectionRopeIteratorTest >> testSmallNextAt4 [ @@ -553,7 +554,7 @@ BlCollectionRopeIteratorTest >> testSmallNextAt4 [ ^ anIterator ] -{ #category : #tests } +{ #category : 'tests' } BlCollectionRopeIteratorTest >> testSmallNextAt5 [ "Iterator throws an error when the end is reached" @@ -571,7 +572,7 @@ BlCollectionRopeIteratorTest >> testSmallNextAt5 [ ^ anIterator ] -{ #category : #tests } +{ #category : 'tests' } BlCollectionRopeIteratorTest >> testSmallNextSpanAt0 [ @@ -585,7 +586,7 @@ BlCollectionRopeIteratorTest >> testSmallNextSpanAt0 [ ^ anIterator ] -{ #category : #tests } +{ #category : 'tests' } BlCollectionRopeIteratorTest >> testSmallNextSpanAt1 [ @@ -599,7 +600,7 @@ BlCollectionRopeIteratorTest >> testSmallNextSpanAt1 [ ^ anIterator ] -{ #category : #tests } +{ #category : 'tests' } BlCollectionRopeIteratorTest >> testSmallNextSpanAt2 [ @@ -613,7 +614,7 @@ BlCollectionRopeIteratorTest >> testSmallNextSpanAt2 [ ^ anIterator ] -{ #category : #tests } +{ #category : 'tests' } BlCollectionRopeIteratorTest >> testSmallNextSpanAt3 [ @@ -627,7 +628,7 @@ BlCollectionRopeIteratorTest >> testSmallNextSpanAt3 [ ^ anIterator ] -{ #category : #tests } +{ #category : 'tests' } BlCollectionRopeIteratorTest >> testSmallNextSpanAt4 [ @@ -641,7 +642,7 @@ BlCollectionRopeIteratorTest >> testSmallNextSpanAt4 [ ^ anIterator ] -{ #category : #tests } +{ #category : 'tests' } BlCollectionRopeIteratorTest >> testSmallNextSpanAt5 [ "Iterator throws an error when the end is reached" @@ -659,7 +660,7 @@ BlCollectionRopeIteratorTest >> testSmallNextSpanAt5 [ ^ anIterator ] -{ #category : #tests } +{ #category : 'tests' } BlCollectionRopeIteratorTest >> testSmallPeekAt0 [ @@ -676,7 +677,7 @@ BlCollectionRopeIteratorTest >> testSmallPeekAt0 [ ^ anIterator ] -{ #category : #tests } +{ #category : 'tests' } BlCollectionRopeIteratorTest >> testSmallPeekAt1 [ @@ -693,7 +694,7 @@ BlCollectionRopeIteratorTest >> testSmallPeekAt1 [ ^ anIterator ] -{ #category : #tests } +{ #category : 'tests' } BlCollectionRopeIteratorTest >> testSmallPeekAt2 [ @@ -710,7 +711,7 @@ BlCollectionRopeIteratorTest >> testSmallPeekAt2 [ ^ anIterator ] -{ #category : #tests } +{ #category : 'tests' } BlCollectionRopeIteratorTest >> testSmallPeekAt3 [ @@ -727,7 +728,7 @@ BlCollectionRopeIteratorTest >> testSmallPeekAt3 [ ^ anIterator ] -{ #category : #tests } +{ #category : 'tests' } BlCollectionRopeIteratorTest >> testSmallPeekAt4 [ @@ -744,7 +745,7 @@ BlCollectionRopeIteratorTest >> testSmallPeekAt4 [ ^ anIterator ] -{ #category : #tests } +{ #category : 'tests' } BlCollectionRopeIteratorTest >> testSmallPeekAt5 [ "Iterator throws an error when the end is reached" @@ -762,7 +763,7 @@ BlCollectionRopeIteratorTest >> testSmallPeekAt5 [ ^ anIterator ] -{ #category : #tests } +{ #category : 'tests' } BlCollectionRopeIteratorTest >> testSmallPreviousAt0 [ "Iterator throws an error when the start is reached" @@ -780,7 +781,7 @@ BlCollectionRopeIteratorTest >> testSmallPreviousAt0 [ ^ anIterator ] -{ #category : #tests } +{ #category : 'tests' } BlCollectionRopeIteratorTest >> testSmallPreviousAt1 [ @@ -797,7 +798,7 @@ BlCollectionRopeIteratorTest >> testSmallPreviousAt1 [ ^ anIterator ] -{ #category : #tests } +{ #category : 'tests' } BlCollectionRopeIteratorTest >> testSmallPreviousAt2 [ @@ -814,7 +815,7 @@ BlCollectionRopeIteratorTest >> testSmallPreviousAt2 [ ^ anIterator ] -{ #category : #tests } +{ #category : 'tests' } BlCollectionRopeIteratorTest >> testSmallPreviousAt3 [ @@ -831,7 +832,7 @@ BlCollectionRopeIteratorTest >> testSmallPreviousAt3 [ ^ anIterator ] -{ #category : #tests } +{ #category : 'tests' } BlCollectionRopeIteratorTest >> testSmallPreviousAt4 [ @@ -848,7 +849,7 @@ BlCollectionRopeIteratorTest >> testSmallPreviousAt4 [ ^ anIterator ] -{ #category : #tests } +{ #category : 'tests' } BlCollectionRopeIteratorTest >> testSmallPreviousAt5 [ @@ -865,7 +866,7 @@ BlCollectionRopeIteratorTest >> testSmallPreviousAt5 [ ^ anIterator ] -{ #category : #tests } +{ #category : 'tests' } BlCollectionRopeIteratorTest >> testSmallSkip0At0 [ @@ -878,7 +879,7 @@ BlCollectionRopeIteratorTest >> testSmallSkip0At0 [ ^ anIterator ] -{ #category : #tests } +{ #category : 'tests' } BlCollectionRopeIteratorTest >> testSmallSkip1At0 [ @@ -891,7 +892,7 @@ BlCollectionRopeIteratorTest >> testSmallSkip1At0 [ ^ anIterator ] -{ #category : #tests } +{ #category : 'tests' } BlCollectionRopeIteratorTest >> testSmallSkip2At0 [ @@ -904,7 +905,7 @@ BlCollectionRopeIteratorTest >> testSmallSkip2At0 [ ^ anIterator ] -{ #category : #tests } +{ #category : 'tests' } BlCollectionRopeIteratorTest >> testSmallSkip3At0 [ @@ -917,7 +918,7 @@ BlCollectionRopeIteratorTest >> testSmallSkip3At0 [ ^ anIterator ] -{ #category : #tests } +{ #category : 'tests' } BlCollectionRopeIteratorTest >> testSmallSkip4At0 [ @@ -930,7 +931,7 @@ BlCollectionRopeIteratorTest >> testSmallSkip4At0 [ ^ anIterator ] -{ #category : #tests } +{ #category : 'tests' } BlCollectionRopeIteratorTest >> testSmallSkip5At0 [ @@ -943,7 +944,7 @@ BlCollectionRopeIteratorTest >> testSmallSkip5At0 [ ^ anIterator ] -{ #category : #tests } +{ #category : 'tests' } BlCollectionRopeIteratorTest >> testSmallSkip6At0 [ "Iterator throws an error when the end is reached" diff --git a/src/Bloc-Examples/BlCompulsoryCombinationExamples.class.st b/src/Bloc-Examples/BlCompulsoryCombinationExamples.class.st index 3c4338fdf..14f2d042b 100644 --- a/src/Bloc-Examples/BlCompulsoryCombinationExamples.class.st +++ b/src/Bloc-Examples/BlCompulsoryCombinationExamples.class.st @@ -1,10 +1,12 @@ Class { - #name : #BlCompulsoryCombinationExamples, - #superclass : #BlKeyCombinationExamplesTest, - #category : #'Bloc-Examples-KeyBinding' + #name : 'BlCompulsoryCombinationExamples', + #superclass : 'BlKeyCombinationExamplesTest', + #category : 'Bloc-Examples-KeyBinding', + #package : 'Bloc-Examples', + #tag : 'KeyBinding' } -{ #category : #'examples - combination' } +{ #category : 'examples - combination' } BlCompulsoryCombinationExamples >> testCombinationWithA [ @@ -20,7 +22,7 @@ BlCompulsoryCombinationExamples >> testCombinationWithA [ ^ aCombination ] -{ #category : #'examples - combination' } +{ #category : 'examples - combination' } BlCompulsoryCombinationExamples >> testCombinationWithAB [ @@ -38,7 +40,7 @@ BlCompulsoryCombinationExamples >> testCombinationWithAB [ ^ aCombination ] -{ #category : #'examples - combination' } +{ #category : 'examples - combination' } BlCompulsoryCombinationExamples >> testCombinationWithABC [ @@ -57,7 +59,7 @@ BlCompulsoryCombinationExamples >> testCombinationWithABC [ ^ aCombination ] -{ #category : #'examples - combination' } +{ #category : 'examples - combination' } BlCompulsoryCombinationExamples >> testEmptyCombination [ @@ -71,7 +73,7 @@ BlCompulsoryCombinationExamples >> testEmptyCombination [ ^ aCombination ] -{ #category : #'examples - store' } +{ #category : 'examples - store' } BlCompulsoryCombinationExamples >> testStoreCombinationWithA [ @@ -90,7 +92,7 @@ BlCompulsoryCombinationExamples >> testStoreCombinationWithA [ ^ aStoreString ] -{ #category : #'examples - store' } +{ #category : 'examples - store' } BlCompulsoryCombinationExamples >> testStoreCombinationWithAB [ @@ -109,7 +111,7 @@ BlCompulsoryCombinationExamples >> testStoreCombinationWithAB [ ^ aStoreString ] -{ #category : #'examples - store' } +{ #category : 'examples - store' } BlCompulsoryCombinationExamples >> testStoreCombinationWithABC [ @@ -128,7 +130,7 @@ BlCompulsoryCombinationExamples >> testStoreCombinationWithABC [ ^ aStoreString ] -{ #category : #'examples - store' } +{ #category : 'examples - store' } BlCompulsoryCombinationExamples >> testStoreEmptyCombination [ diff --git a/src/Bloc-Examples/BlConcatenationRopeExamplesTest.class.st b/src/Bloc-Examples/BlConcatenationRopeExamplesTest.class.st index 55dad6dd0..ed2276e68 100644 --- a/src/Bloc-Examples/BlConcatenationRopeExamplesTest.class.st +++ b/src/Bloc-Examples/BlConcatenationRopeExamplesTest.class.st @@ -1,10 +1,12 @@ Class { - #name : #BlConcatenationRopeExamplesTest, - #superclass : #TestCase, - #category : #'Bloc-Examples-Rope' + #name : 'BlConcatenationRopeExamplesTest', + #superclass : 'TestCase', + #category : 'Bloc-Examples-Rope', + #package : 'Bloc-Examples', + #tag : 'Rope' } -{ #category : #'examples - attributes' } +{ #category : 'examples - attributes' } BlConcatenationRopeExamplesTest >> testAttributes_small_0_to_0 [ @@ -22,7 +24,7 @@ BlConcatenationRopeExamplesTest >> testAttributes_small_0_to_0 [ ^ anAttributedRope ] -{ #category : #'examples - attributes' } +{ #category : 'examples - attributes' } BlConcatenationRopeExamplesTest >> testAttributes_small_0_to_1 [ @@ -41,7 +43,7 @@ BlConcatenationRopeExamplesTest >> testAttributes_small_0_to_1 [ ^ anAttributedRope ] -{ #category : #'examples - attributes' } +{ #category : 'examples - attributes' } BlConcatenationRopeExamplesTest >> testAttributes_small_0_to_5 [ @@ -58,7 +60,7 @@ BlConcatenationRopeExamplesTest >> testAttributes_small_0_to_5 [ ^ anAttributedRope ] -{ #category : #'examples - attributes' } +{ #category : 'examples - attributes' } BlConcatenationRopeExamplesTest >> testAttributes_small_2_to_2 [ @@ -85,7 +87,7 @@ BlConcatenationRopeExamplesTest >> testAttributes_small_2_to_2 [ ^ anAttributedRope ] -{ #category : #'examples - attributes' } +{ #category : 'examples - attributes' } BlConcatenationRopeExamplesTest >> testAttributes_small_2_to_3 [ @@ -112,7 +114,7 @@ BlConcatenationRopeExamplesTest >> testAttributes_small_2_to_3 [ ^ anAttributedRope ] -{ #category : #'examples - attributes' } +{ #category : 'examples - attributes' } BlConcatenationRopeExamplesTest >> testAttributes_small_4_to_5 [ @@ -131,7 +133,7 @@ BlConcatenationRopeExamplesTest >> testAttributes_small_4_to_5 [ ^ anAttributedRope ] -{ #category : #'examples - attributes' } +{ #category : 'examples - attributes' } BlConcatenationRopeExamplesTest >> testAttributes_small_4_to_6 [ @@ -153,7 +155,7 @@ BlConcatenationRopeExamplesTest >> testAttributes_small_4_to_6 [ ^ anAttributedRope ] -{ #category : #'examples - attributes' } +{ #category : 'examples - attributes' } BlConcatenationRopeExamplesTest >> testAttributes_small_5_to_10 [ @@ -169,7 +171,7 @@ BlConcatenationRopeExamplesTest >> testAttributes_small_5_to_10 [ ^ anAttributedRope ] -{ #category : #'examples - attributes' } +{ #category : 'examples - attributes' } BlConcatenationRopeExamplesTest >> testAttributes_small_5_to_6 [ @@ -188,7 +190,7 @@ BlConcatenationRopeExamplesTest >> testAttributes_small_5_to_6 [ ^ anAttributedRope ] -{ #category : #'examples - attributes' } +{ #category : 'examples - attributes' } BlConcatenationRopeExamplesTest >> testAttributes_small_6_to_6 [ @@ -215,7 +217,7 @@ BlConcatenationRopeExamplesTest >> testAttributes_small_6_to_6 [ ^ anAttributedRope ] -{ #category : #'examples - attributes' } +{ #category : 'examples - attributes' } BlConcatenationRopeExamplesTest >> testAttributes_small_6_to_7 [ @@ -242,7 +244,7 @@ BlConcatenationRopeExamplesTest >> testAttributes_small_6_to_7 [ ^ anAttributedRope ] -{ #category : #'examples - attributes' } +{ #category : 'examples - attributes' } BlConcatenationRopeExamplesTest >> testAttributes_small_9_to_10 [ @@ -260,7 +262,7 @@ BlConcatenationRopeExamplesTest >> testAttributes_small_9_to_10 [ ^ anAttributedRope ] -{ #category : #'as yet unclassified' } +{ #category : 'as yet unclassified' } BlConcatenationRopeExamplesTest >> testReadStreamSmall [ | rope stream | @@ -272,7 +274,7 @@ BlConcatenationRopeExamplesTest >> testReadStreamSmall [ self assert: stream upToEnd asString equals: 'oWorld' ] -{ #category : #'instance creation' } +{ #category : 'instance creation' } BlConcatenationRopeExamplesTest >> testSmall [ "Creates an instance of the rope of size smaller than combineLength" @@ -295,7 +297,7 @@ BlConcatenationRopeExamplesTest >> testSmall [ ^ aRope ] -{ #category : #'examples - delete' } +{ #category : 'examples - delete' } BlConcatenationRopeExamplesTest >> testSmall_delete_0_to_0 [ @@ -308,7 +310,7 @@ BlConcatenationRopeExamplesTest >> testSmall_delete_0_to_0 [ ^ aNewRope ] -{ #category : #'examples - delete' } +{ #category : 'examples - delete' } BlConcatenationRopeExamplesTest >> testSmall_delete_0_to_1 [ @@ -321,7 +323,7 @@ BlConcatenationRopeExamplesTest >> testSmall_delete_0_to_1 [ ^ aNewRope ] -{ #category : #'examples - delete' } +{ #category : 'examples - delete' } BlConcatenationRopeExamplesTest >> testSmall_delete_0_to_10 [ @@ -335,7 +337,7 @@ BlConcatenationRopeExamplesTest >> testSmall_delete_0_to_10 [ ^ aNewRope ] -{ #category : #'examples - delete' } +{ #category : 'examples - delete' } BlConcatenationRopeExamplesTest >> testSmall_delete_0_to_5 [ @@ -348,7 +350,7 @@ BlConcatenationRopeExamplesTest >> testSmall_delete_0_to_5 [ ^ aNewRope ] -{ #category : #'examples - delete' } +{ #category : 'examples - delete' } BlConcatenationRopeExamplesTest >> testSmall_delete_10_to_10 [ @@ -361,7 +363,7 @@ BlConcatenationRopeExamplesTest >> testSmall_delete_10_to_10 [ ^ aNewRope ] -{ #category : #'examples - delete' } +{ #category : 'examples - delete' } BlConcatenationRopeExamplesTest >> testSmall_delete_1_to_2 [ @@ -375,7 +377,7 @@ BlConcatenationRopeExamplesTest >> testSmall_delete_1_to_2 [ ^ aNewRope ] -{ #category : #'examples - delete' } +{ #category : 'examples - delete' } BlConcatenationRopeExamplesTest >> testSmall_delete_4_to_4 [ @@ -388,7 +390,7 @@ BlConcatenationRopeExamplesTest >> testSmall_delete_4_to_4 [ ^ aNewRope ] -{ #category : #'examples - delete' } +{ #category : 'examples - delete' } BlConcatenationRopeExamplesTest >> testSmall_delete_4_to_5 [ @@ -401,7 +403,7 @@ BlConcatenationRopeExamplesTest >> testSmall_delete_4_to_5 [ ^ aNewRope ] -{ #category : #'examples - delete' } +{ #category : 'examples - delete' } BlConcatenationRopeExamplesTest >> testSmall_delete_4_to_6 [ @@ -414,7 +416,7 @@ BlConcatenationRopeExamplesTest >> testSmall_delete_4_to_6 [ ^ aNewRope ] -{ #category : #'examples - delete' } +{ #category : 'examples - delete' } BlConcatenationRopeExamplesTest >> testSmall_delete_5_to_10 [ @@ -427,7 +429,7 @@ BlConcatenationRopeExamplesTest >> testSmall_delete_5_to_10 [ ^ aNewRope ] -{ #category : #'examples - delete' } +{ #category : 'examples - delete' } BlConcatenationRopeExamplesTest >> testSmall_delete_5_to_5 [ @@ -440,7 +442,7 @@ BlConcatenationRopeExamplesTest >> testSmall_delete_5_to_5 [ ^ aNewRope ] -{ #category : #'examples - delete' } +{ #category : 'examples - delete' } BlConcatenationRopeExamplesTest >> testSmall_delete_5_to_6 [ @@ -453,7 +455,7 @@ BlConcatenationRopeExamplesTest >> testSmall_delete_5_to_6 [ ^ aNewRope ] -{ #category : #'examples - delete' } +{ #category : 'examples - delete' } BlConcatenationRopeExamplesTest >> testSmall_delete_6_to_7 [ @@ -466,7 +468,7 @@ BlConcatenationRopeExamplesTest >> testSmall_delete_6_to_7 [ ^ aNewRope ] -{ #category : #'examples - delete' } +{ #category : 'examples - delete' } BlConcatenationRopeExamplesTest >> testSmall_delete_9_to_10 [ @@ -479,7 +481,7 @@ BlConcatenationRopeExamplesTest >> testSmall_delete_9_to_10 [ ^ aNewRope ] -{ #category : #'examples - enumeration' } +{ #category : 'examples - enumeration' } BlConcatenationRopeExamplesTest >> testSmall_do [ @@ -494,7 +496,7 @@ BlConcatenationRopeExamplesTest >> testSmall_do [ ^ theIterated ] -{ #category : #'instance creation' } +{ #category : 'instance creation' } BlConcatenationRopeExamplesTest >> testSmall_empty [ @@ -508,7 +510,7 @@ BlConcatenationRopeExamplesTest >> testSmall_empty [ ^ anEmpty ] -{ #category : #'examples - from to' } +{ #category : 'examples - from to' } BlConcatenationRopeExamplesTest >> testSmall_from_0_to_0 [ @@ -522,7 +524,7 @@ BlConcatenationRopeExamplesTest >> testSmall_from_0_to_0 [ ^ aNewRope ] -{ #category : #'examples - enumeration' } +{ #category : 'examples - enumeration' } BlConcatenationRopeExamplesTest >> testSmall_from_0_to_0_do [ @@ -540,7 +542,7 @@ BlConcatenationRopeExamplesTest >> testSmall_from_0_to_0_do [ ^ theIterated ] -{ #category : #'examples - from to' } +{ #category : 'examples - from to' } BlConcatenationRopeExamplesTest >> testSmall_from_0_to_10 [ @@ -553,7 +555,7 @@ BlConcatenationRopeExamplesTest >> testSmall_from_0_to_10 [ ^ aNewRope ] -{ #category : #'examples - enumeration' } +{ #category : 'examples - enumeration' } BlConcatenationRopeExamplesTest >> testSmall_from_0_to_10_do [ @@ -571,7 +573,7 @@ BlConcatenationRopeExamplesTest >> testSmall_from_0_to_10_do [ ^ theIterated ] -{ #category : #'examples - enumeration' } +{ #category : 'examples - enumeration' } BlConcatenationRopeExamplesTest >> testSmall_from_0_to_1_do [ @@ -589,7 +591,7 @@ BlConcatenationRopeExamplesTest >> testSmall_from_0_to_1_do [ ^ theIterated ] -{ #category : #'examples - from to' } +{ #category : 'examples - from to' } BlConcatenationRopeExamplesTest >> testSmall_from_0_to_5 [ @@ -602,7 +604,7 @@ BlConcatenationRopeExamplesTest >> testSmall_from_0_to_5 [ ^ aNewRope ] -{ #category : #'examples - enumeration' } +{ #category : 'examples - enumeration' } BlConcatenationRopeExamplesTest >> testSmall_from_0_to_5_do [ @@ -620,7 +622,7 @@ BlConcatenationRopeExamplesTest >> testSmall_from_0_to_5_do [ ^ theIterated ] -{ #category : #'examples - from to' } +{ #category : 'examples - from to' } BlConcatenationRopeExamplesTest >> testSmall_from_10_to_10 [ @@ -634,7 +636,7 @@ BlConcatenationRopeExamplesTest >> testSmall_from_10_to_10 [ ^ aNewRope ] -{ #category : #'examples - enumeration' } +{ #category : 'examples - enumeration' } BlConcatenationRopeExamplesTest >> testSmall_from_10_to_10_do [ @@ -652,7 +654,7 @@ BlConcatenationRopeExamplesTest >> testSmall_from_10_to_10_do [ ^ theIterated ] -{ #category : #'examples - enumeration' } +{ #category : 'examples - enumeration' } BlConcatenationRopeExamplesTest >> testSmall_from_1_to_1_do [ @@ -670,7 +672,7 @@ BlConcatenationRopeExamplesTest >> testSmall_from_1_to_1_do [ ^ theIterated ] -{ #category : #'examples - from to' } +{ #category : 'examples - from to' } BlConcatenationRopeExamplesTest >> testSmall_from_1_to_2 [ @@ -683,7 +685,7 @@ BlConcatenationRopeExamplesTest >> testSmall_from_1_to_2 [ ^ aNewRope ] -{ #category : #'examples - enumeration' } +{ #category : 'examples - enumeration' } BlConcatenationRopeExamplesTest >> testSmall_from_1_to_2_do [ @@ -701,7 +703,7 @@ BlConcatenationRopeExamplesTest >> testSmall_from_1_to_2_do [ ^ theIterated ] -{ #category : #'examples - enumeration' } +{ #category : 'examples - enumeration' } BlConcatenationRopeExamplesTest >> testSmall_from_1_to_5_do [ @@ -719,7 +721,7 @@ BlConcatenationRopeExamplesTest >> testSmall_from_1_to_5_do [ ^ theIterated ] -{ #category : #'examples - enumeration' } +{ #category : 'examples - enumeration' } BlConcatenationRopeExamplesTest >> testSmall_from_3_to_5_do [ @@ -737,7 +739,7 @@ BlConcatenationRopeExamplesTest >> testSmall_from_3_to_5_do [ ^ theIterated ] -{ #category : #'examples - from to' } +{ #category : 'examples - from to' } BlConcatenationRopeExamplesTest >> testSmall_from_4_to_5 [ @@ -750,7 +752,7 @@ BlConcatenationRopeExamplesTest >> testSmall_from_4_to_5 [ ^ aNewRope ] -{ #category : #'examples - from to' } +{ #category : 'examples - from to' } BlConcatenationRopeExamplesTest >> testSmall_from_4_to_6 [ @@ -763,7 +765,7 @@ BlConcatenationRopeExamplesTest >> testSmall_from_4_to_6 [ ^ aNewRope ] -{ #category : #'examples - from to' } +{ #category : 'examples - from to' } BlConcatenationRopeExamplesTest >> testSmall_from_5_to_10 [ @@ -776,7 +778,7 @@ BlConcatenationRopeExamplesTest >> testSmall_from_5_to_10 [ ^ aNewRope ] -{ #category : #'examples - enumeration' } +{ #category : 'examples - enumeration' } BlConcatenationRopeExamplesTest >> testSmall_from_5_to_10_do [ @@ -794,7 +796,7 @@ BlConcatenationRopeExamplesTest >> testSmall_from_5_to_10_do [ ^ theIterated ] -{ #category : #'examples - from to' } +{ #category : 'examples - from to' } BlConcatenationRopeExamplesTest >> testSmall_from_5_to_5 [ @@ -808,7 +810,7 @@ BlConcatenationRopeExamplesTest >> testSmall_from_5_to_5 [ ^ aNewRope ] -{ #category : #'examples - enumeration' } +{ #category : 'examples - enumeration' } BlConcatenationRopeExamplesTest >> testSmall_from_5_to_5_do [ @@ -826,7 +828,7 @@ BlConcatenationRopeExamplesTest >> testSmall_from_5_to_5_do [ ^ theIterated ] -{ #category : #'examples - from to' } +{ #category : 'examples - from to' } BlConcatenationRopeExamplesTest >> testSmall_from_5_to_6 [ @@ -839,7 +841,7 @@ BlConcatenationRopeExamplesTest >> testSmall_from_5_to_6 [ ^ aNewRope ] -{ #category : #'examples - enumeration' } +{ #category : 'examples - enumeration' } BlConcatenationRopeExamplesTest >> testSmall_from_5_to_6_do [ @@ -857,7 +859,7 @@ BlConcatenationRopeExamplesTest >> testSmall_from_5_to_6_do [ ^ theIterated ] -{ #category : #'examples - enumeration' } +{ #category : 'examples - enumeration' } BlConcatenationRopeExamplesTest >> testSmall_from_9_to_10_do [ @@ -875,7 +877,7 @@ BlConcatenationRopeExamplesTest >> testSmall_from_9_to_10_do [ ^ theIterated ] -{ #category : #'examples - attributes' } +{ #category : 'examples - attributes' } BlConcatenationRopeExamplesTest >> testSttributes_small_0_to_10 [ diff --git a/src/Bloc-Examples/BlElementBoundsByScripterExamples.class.st b/src/Bloc-Examples/BlElementBoundsByScripterExamples.class.st index dab17681c..2a504f421 100644 --- a/src/Bloc-Examples/BlElementBoundsByScripterExamples.class.st +++ b/src/Bloc-Examples/BlElementBoundsByScripterExamples.class.st @@ -1,10 +1,12 @@ Class { - #name : #BlElementBoundsByScripterExamples, - #superclass : #BlExampleTest, - #category : #'Bloc-Examples-Basic' + #name : 'BlElementBoundsByScripterExamples', + #superclass : 'BlExampleTest', + #category : 'Bloc-Examples-Basic', + #package : 'Bloc-Examples', + #tag : 'Basic' } -{ #category : #'examples - bounds in space' } +{ #category : 'examples - bounds in space' } BlElementBoundsByScripterExamples >> bounds_in_space_0 [ @@ -15,7 +17,7 @@ BlElementBoundsByScripterExamples >> bounds_in_space_0 [ ^ aScripter syncContinue ] -{ #category : #'examples - bounds in space' } +{ #category : 'examples - bounds in space' } BlElementBoundsByScripterExamples >> bounds_in_space_1 [ @@ -47,7 +49,7 @@ BlElementBoundsByScripterExamples >> bounds_in_space_1 [ ^ aScripter syncContinue ] -{ #category : #'examples - bounds in space' } +{ #category : 'examples - bounds in space' } BlElementBoundsByScripterExamples >> bounds_in_space_2 [ @@ -63,7 +65,7 @@ BlElementBoundsByScripterExamples >> bounds_in_space_2 [ ^ aScripter syncContinue ] -{ #category : #'examples - bounds in space' } +{ #category : 'examples - bounds in space' } BlElementBoundsByScripterExamples >> bounds_in_space_3 [ @@ -97,7 +99,7 @@ BlElementBoundsByScripterExamples >> bounds_in_space_3 [ ^ aScripter syncContinue ] -{ #category : #'examples - bounds in space' } +{ #category : 'examples - bounds in space' } BlElementBoundsByScripterExamples >> bounds_in_space_element_1 [ @@ -107,7 +109,7 @@ BlElementBoundsByScripterExamples >> bounds_in_space_element_1 [ border: (BlBorder paint: (Color blue alpha: 0.2) width: 2) ] -{ #category : #'examples - bounds in space' } +{ #category : 'examples - bounds in space' } BlElementBoundsByScripterExamples >> bounds_in_space_element_2 [ @@ -118,14 +120,14 @@ BlElementBoundsByScripterExamples >> bounds_in_space_element_2 [ border: (BlBorder paint: (Color red alpha: 0.2) width: 2) ] -{ #category : #'examples - bounds in space' } +{ #category : 'examples - bounds in space' } BlElementBoundsByScripterExamples >> bounds_in_space_element_bounds [ ^ 0 @ 0 extent: 500 @ 400 ] -{ #category : #'examples - bounds in space' } +{ #category : 'examples - bounds in space' } BlElementBoundsByScripterExamples >> bounds_in_space_element_child [ @@ -137,7 +139,7 @@ BlElementBoundsByScripterExamples >> bounds_in_space_element_child [ c vertical matchParent ] ] -{ #category : #'examples - bounds in space' } +{ #category : 'examples - bounds in space' } BlElementBoundsByScripterExamples >> bounds_in_space_element_container [ @@ -152,14 +154,14 @@ BlElementBoundsByScripterExamples >> bounds_in_space_element_container [ self bounds_in_space_element_2 } ] -{ #category : #'examples - bounds in space' } +{ #category : 'examples - bounds in space' } BlElementBoundsByScripterExamples >> bounds_in_space_element_extent [ ^ 500 @ 400 ] -{ #category : #'examples - scripter' } +{ #category : 'examples - scripter' } BlElementBoundsByScripterExamples >> scripter [ diff --git a/src/Bloc-Examples/BlElementExamplesMigrated.class.st b/src/Bloc-Examples/BlElementExamplesMigrated.class.st index f9e57ac2f..6ab926894 100644 --- a/src/Bloc-Examples/BlElementExamplesMigrated.class.st +++ b/src/Bloc-Examples/BlElementExamplesMigrated.class.st @@ -1,5 +1,7 @@ Class { - #name : #BlElementExamplesMigrated, - #superclass : #Object, - #category : #'Bloc-Examples-BasicMigrated' + #name : 'BlElementExamplesMigrated', + #superclass : 'Object', + #category : 'Bloc-Examples-BasicMigrated', + #package : 'Bloc-Examples', + #tag : 'BasicMigrated' } diff --git a/src/Bloc-Examples/BlErrorHandlingExamplesTest.class.st b/src/Bloc-Examples/BlErrorHandlingExamplesTest.class.st index d597383c9..d826eb8b2 100644 --- a/src/Bloc-Examples/BlErrorHandlingExamplesTest.class.st +++ b/src/Bloc-Examples/BlErrorHandlingExamplesTest.class.st @@ -2,12 +2,14 @@ I exemplify how Bloc handles errors in different parts of the BlElement such as drawing, layout or event handling " Class { - #name : #BlErrorHandlingExamplesTest, - #superclass : #Object, - #category : #'Bloc-Examples-Errors' + #name : 'BlErrorHandlingExamplesTest', + #superclass : 'Object', + #category : 'Bloc-Examples-Errors', + #package : 'Bloc-Examples', + #tag : 'Errors' } -{ #category : #'instance creation' } +{ #category : 'instance creation' } BlErrorHandlingExamplesTest >> sceneWith: aFaultyElement [ "Create a visual scene with a faulty element embedded in it" @@ -56,7 +58,7 @@ BlErrorHandlingExamplesTest >> sceneWith: aFaultyElement [ ^ aContainer ] -{ #category : #'error - examples' } +{ #category : 'error - examples' } BlErrorHandlingExamplesTest >> testSceneElementThatHasBrokenDrawing [ | aFaultyElement theErrors aSceneElement | @@ -75,7 +77,7 @@ BlErrorHandlingExamplesTest >> testSceneElementThatHasBrokenDrawing [ self assert: theErrors first element equals: aFaultyElement ] -{ #category : #'error - examples' } +{ #category : 'error - examples' } BlErrorHandlingExamplesTest >> testSceneElementThatHasBrokenDrawingAndOnLayout [ | aFaultyElement theErrors aSceneElement | @@ -101,7 +103,7 @@ BlErrorHandlingExamplesTest >> testSceneElementThatHasBrokenDrawingAndOnLayout [ self assert: theErrors second element equals: aFaultyElement ] -{ #category : #'error - examples' } +{ #category : 'error - examples' } BlErrorHandlingExamplesTest >> testSceneElementThatHasBrokenOnLayout [ | aSceneElement aFaultyElement theErrors | diff --git a/src/Bloc-Examples/BlEventProcessorExamplesTest.class.st b/src/Bloc-Examples/BlEventProcessorExamplesTest.class.st index 885de216c..9a070c916 100644 --- a/src/Bloc-Examples/BlEventProcessorExamplesTest.class.st +++ b/src/Bloc-Examples/BlEventProcessorExamplesTest.class.st @@ -1,10 +1,12 @@ Class { - #name : #BlEventProcessorExamplesTest, - #superclass : #TestCase, - #category : #'Bloc-Examples-Event' + #name : 'BlEventProcessorExamplesTest', + #superclass : 'TestCase', + #category : 'Bloc-Examples-Event', + #package : 'Bloc-Examples', + #tag : 'Event' } -{ #category : #'examples - scripter' } +{ #category : 'examples - scripter' } BlEventProcessorExamplesTest >> scripter [ diff --git a/src/Bloc-Examples/BlExampleCustomEvent.class.st b/src/Bloc-Examples/BlExampleCustomEvent.class.st index b15e6d17d..98ff07661 100644 --- a/src/Bloc-Examples/BlExampleCustomEvent.class.st +++ b/src/Bloc-Examples/BlExampleCustomEvent.class.st @@ -3,20 +3,22 @@ I am an example of a custom bloc event " Class { - #name : #BlExampleCustomEvent, - #superclass : #BlEvent, + #name : 'BlExampleCustomEvent', + #superclass : 'BlEvent', #instVars : [ 'payload' ], - #category : #'Bloc-Examples-Event' + #category : 'Bloc-Examples-Event', + #package : 'Bloc-Examples', + #tag : 'Event' } -{ #category : #accessing } +{ #category : 'accessing' } BlExampleCustomEvent >> payload [ ^ payload ] -{ #category : #accessing } +{ #category : 'accessing' } BlExampleCustomEvent >> payload: anObject [ payload := anObject ] diff --git a/src/Bloc-Examples/BlExampleCustomEventTarget.class.st b/src/Bloc-Examples/BlExampleCustomEventTarget.class.st index e4c7f2e3d..0969c4620 100644 --- a/src/Bloc-Examples/BlExampleCustomEventTarget.class.st +++ b/src/Bloc-Examples/BlExampleCustomEventTarget.class.st @@ -3,17 +3,19 @@ I am an example of a custom non-element event target that can be nicely integrat " Class { - #name : #BlExampleCustomEventTarget, - #superclass : #Object, + #name : 'BlExampleCustomEventTarget', + #superclass : 'Object', #traits : 'TBlEventTarget', #classTraits : 'TBlEventTarget classTrait', #instVars : [ 'eventDispatcher' ], - #category : #'Bloc-Examples-Event' + #category : 'Bloc-Examples-Event', + #package : 'Bloc-Examples', + #tag : 'Event' } -{ #category : #accessing } +{ #category : 'accessing' } BlExampleCustomEventTarget >> eventDispatcher [ "Return an object responsible for event dispatching" @@ -21,7 +23,7 @@ BlExampleCustomEventTarget >> eventDispatcher [ ^ eventDispatcher ] -{ #category : #initialization } +{ #category : 'initialization' } BlExampleCustomEventTarget >> initialize [ super initialize. diff --git a/src/Bloc-Examples/BlExampleElementWithBrokenDrawing.class.st b/src/Bloc-Examples/BlExampleElementWithBrokenDrawing.class.st index 698e4b34b..30cc09d3a 100644 --- a/src/Bloc-Examples/BlExampleElementWithBrokenDrawing.class.st +++ b/src/Bloc-Examples/BlExampleElementWithBrokenDrawing.class.st @@ -3,12 +3,14 @@ I am an element with a broken drawing method that throws Error (ZeroDivide) " Class { - #name : #BlExampleElementWithBrokenDrawing, - #superclass : #BlElement, - #category : #'Bloc-Examples-Errors' + #name : 'BlExampleElementWithBrokenDrawing', + #superclass : 'BlElement', + #category : 'Bloc-Examples-Errors', + #package : 'Bloc-Examples', + #tag : 'Errors' } -{ #category : #drawing } +{ #category : 'drawing' } BlExampleElementWithBrokenDrawing >> drawOnSpartaCanvas: aCanvas [ 1/0 ] diff --git a/src/Bloc-Examples/BlExampleElementWithBrokenDrawingAndOnLayout.class.st b/src/Bloc-Examples/BlExampleElementWithBrokenDrawingAndOnLayout.class.st index e93cf1c1c..3f30fcf44 100644 --- a/src/Bloc-Examples/BlExampleElementWithBrokenDrawingAndOnLayout.class.st +++ b/src/Bloc-Examples/BlExampleElementWithBrokenDrawingAndOnLayout.class.st @@ -3,17 +3,19 @@ I am an element with broken drawing and onLayout methods " Class { - #name : #BlExampleElementWithBrokenDrawingAndOnLayout, - #superclass : #BlElement, - #category : #'Bloc-Examples-Errors' + #name : 'BlExampleElementWithBrokenDrawingAndOnLayout', + #superclass : 'BlElement', + #category : 'Bloc-Examples-Errors', + #package : 'Bloc-Examples', + #tag : 'Errors' } -{ #category : #drawing } +{ #category : 'drawing' } BlExampleElementWithBrokenDrawingAndOnLayout >> drawOnSpartaCanvas: aCanvas [ 1/0 ] -{ #category : #layout } +{ #category : 'layout' } BlExampleElementWithBrokenDrawingAndOnLayout >> onLayout: aBounds context: aBlElementBoundsUpdater [ #() at: 1 ] diff --git a/src/Bloc-Examples/BlExampleElementWithBrokenOnLayout.class.st b/src/Bloc-Examples/BlExampleElementWithBrokenOnLayout.class.st index 0c7d5be26..0c582d750 100644 --- a/src/Bloc-Examples/BlExampleElementWithBrokenOnLayout.class.st +++ b/src/Bloc-Examples/BlExampleElementWithBrokenOnLayout.class.st @@ -3,12 +3,14 @@ I am an element with a broken onLayout method that throws Error (SubscriptOutOfB " Class { - #name : #BlExampleElementWithBrokenOnLayout, - #superclass : #BlElement, - #category : #'Bloc-Examples-Errors' + #name : 'BlExampleElementWithBrokenOnLayout', + #superclass : 'BlElement', + #category : 'Bloc-Examples-Errors', + #package : 'Bloc-Examples', + #tag : 'Errors' } -{ #category : #layout } +{ #category : 'layout' } BlExampleElementWithBrokenOnLayout >> onLayout: aBounds context: aBlElementBoundsUpdater [ #() at: 1 ] diff --git a/src/Bloc-Examples/BlExampleEventsCountingElement.class.st b/src/Bloc-Examples/BlExampleEventsCountingElement.class.st index ec29a6fef..9e8fa1f4a 100644 --- a/src/Bloc-Examples/BlExampleEventsCountingElement.class.st +++ b/src/Bloc-Examples/BlExampleEventsCountingElement.class.st @@ -1,6 +1,6 @@ Class { - #name : #BlExampleEventsCountingElement, - #superclass : #BlElement, + #name : 'BlExampleEventsCountingElement', + #superclass : 'BlElement', #instVars : [ 'clickCount', 'mouseDownCount', @@ -22,215 +22,217 @@ Class { 'blurCount', 'positionInSpaceChangedCount' ], - #category : #'Bloc-Examples-Event' + #category : 'Bloc-Examples-Event', + #package : 'Bloc-Examples', + #tag : 'Event' } -{ #category : #accessing } +{ #category : 'accessing' } BlExampleEventsCountingElement >> blurCount [ ^ blurCount ] -{ #category : #accessing } +{ #category : 'accessing' } BlExampleEventsCountingElement >> blurCount: anObject [ blurCount := anObject ] -{ #category : #accessing } +{ #category : 'accessing' } BlExampleEventsCountingElement >> clickCount [ ^ clickCount ] -{ #category : #accessing } +{ #category : 'accessing' } BlExampleEventsCountingElement >> clickCount: anObject [ clickCount := anObject ] -{ #category : #accessing } +{ #category : 'accessing' } BlExampleEventsCountingElement >> dragCount [ ^ dragCount ] -{ #category : #accessing } +{ #category : 'accessing' } BlExampleEventsCountingElement >> dragCount: anObject [ dragCount := anObject ] -{ #category : #accessing } +{ #category : 'accessing' } BlExampleEventsCountingElement >> dragEndCount [ ^ dragEndCount ] -{ #category : #accessing } +{ #category : 'accessing' } BlExampleEventsCountingElement >> dragEndCount: anObject [ dragEndCount := anObject ] -{ #category : #accessing } +{ #category : 'accessing' } BlExampleEventsCountingElement >> dragEnterCount [ ^ dragEnterCount ] -{ #category : #accessing } +{ #category : 'accessing' } BlExampleEventsCountingElement >> dragEnterCount: anObject [ dragEnterCount := anObject ] -{ #category : #accessing } +{ #category : 'accessing' } BlExampleEventsCountingElement >> dragLeaveCount [ ^ dragLeaveCount ] -{ #category : #accessing } +{ #category : 'accessing' } BlExampleEventsCountingElement >> dragLeaveCount: anObject [ dragLeaveCount := anObject ] -{ #category : #accessing } +{ #category : 'accessing' } BlExampleEventsCountingElement >> dragStartCount [ ^ dragStartCount ] -{ #category : #accessing } +{ #category : 'accessing' } BlExampleEventsCountingElement >> dragStartCount: anObject [ dragStartCount := anObject ] -{ #category : #accessing } +{ #category : 'accessing' } BlExampleEventsCountingElement >> dropCount [ ^ dropCount ] -{ #category : #accessing } +{ #category : 'accessing' } BlExampleEventsCountingElement >> dropCount: anObject [ dropCount := anObject ] -{ #category : #accessing } +{ #category : 'accessing' } BlExampleEventsCountingElement >> focusCount [ ^ focusCount ] -{ #category : #accessing } +{ #category : 'accessing' } BlExampleEventsCountingElement >> focusCount: anObject [ focusCount := anObject ] -{ #category : #accessing } +{ #category : 'accessing' } BlExampleEventsCountingElement >> focusInCount [ ^ focusInCount ] -{ #category : #accessing } +{ #category : 'accessing' } BlExampleEventsCountingElement >> focusInCount: anObject [ focusInCount := anObject ] -{ #category : #accessing } +{ #category : 'accessing' } BlExampleEventsCountingElement >> focusOutCount [ ^ focusOutCount ] -{ #category : #accessing } +{ #category : 'accessing' } BlExampleEventsCountingElement >> focusOutCount: anObject [ focusOutCount := anObject ] -{ #category : #increment } +{ #category : 'increment' } BlExampleEventsCountingElement >> incrementBlurCount [ blurCount := blurCount + 1 ] -{ #category : #increment } +{ #category : 'increment' } BlExampleEventsCountingElement >> incrementClickCount [ clickCount := clickCount + 1 ] -{ #category : #increment } +{ #category : 'increment' } BlExampleEventsCountingElement >> incrementDragCount [ dragCount := dragCount + 1 ] -{ #category : #increment } +{ #category : 'increment' } BlExampleEventsCountingElement >> incrementDragEndCount [ dragEndCount := dragEndCount + 1 ] -{ #category : #increment } +{ #category : 'increment' } BlExampleEventsCountingElement >> incrementDragEnterCount [ dragEnterCount := dragEnterCount + 1 ] -{ #category : #increment } +{ #category : 'increment' } BlExampleEventsCountingElement >> incrementDragLeaveCount [ dragEnterCount := dragLeaveCount + 1 ] -{ #category : #increment } +{ #category : 'increment' } BlExampleEventsCountingElement >> incrementDragStartCount [ dragStartCount := dragStartCount + 1 ] -{ #category : #increment } +{ #category : 'increment' } BlExampleEventsCountingElement >> incrementDropCount [ dropCount := dropCount + 1 ] -{ #category : #increment } +{ #category : 'increment' } BlExampleEventsCountingElement >> incrementFocusCount [ focusCount := focusCount + 1 ] -{ #category : #increment } +{ #category : 'increment' } BlExampleEventsCountingElement >> incrementFocusInCount [ focusInCount := focusInCount + 1 ] -{ #category : #increment } +{ #category : 'increment' } BlExampleEventsCountingElement >> incrementFocusOutCount [ focusOutCount := focusOutCount + 1 ] -{ #category : #increment } +{ #category : 'increment' } BlExampleEventsCountingElement >> incrementMouseDownCount [ mouseDownCount := mouseDownCount + 1 ] -{ #category : #increment } +{ #category : 'increment' } BlExampleEventsCountingElement >> incrementMouseEnterCount [ mouseEnterCount := mouseEnterCount + 1 ] -{ #category : #increment } +{ #category : 'increment' } BlExampleEventsCountingElement >> incrementMouseLeaveCount [ mouseLeaveCount := mouseLeaveCount + 1 ] -{ #category : #increment } +{ #category : 'increment' } BlExampleEventsCountingElement >> incrementMouseMoveCount [ mouseMoveCount := mouseMoveCount + 1 ] -{ #category : #increment } +{ #category : 'increment' } BlExampleEventsCountingElement >> incrementMouseOutCount [ mouseOutCount := mouseOutCount + 1 ] -{ #category : #increment } +{ #category : 'increment' } BlExampleEventsCountingElement >> incrementMouseOverCount [ mouseOverCount := mouseOverCount + 1 ] -{ #category : #increment } +{ #category : 'increment' } BlExampleEventsCountingElement >> incrementMouseUpCount [ mouseUpCount := mouseUpCount + 1 ] -{ #category : #increment } +{ #category : 'increment' } BlExampleEventsCountingElement >> incrementPositionInSpaceChangedCount [ positionInSpaceChangedCount := positionInSpaceChangedCount + 1 ] -{ #category : #initialization } +{ #category : 'initialization' } BlExampleEventsCountingElement >> initialize [ super initialize. @@ -363,82 +365,82 @@ BlExampleEventsCountingElement >> initialize [ self background: Color veryVeryLightGray ] -{ #category : #accessing } +{ #category : 'accessing' } BlExampleEventsCountingElement >> mouseDownCount [ ^ mouseDownCount ] -{ #category : #accessing } +{ #category : 'accessing' } BlExampleEventsCountingElement >> mouseDownCount: anObject [ mouseDownCount := anObject ] -{ #category : #accessing } +{ #category : 'accessing' } BlExampleEventsCountingElement >> mouseEnterCount [ ^ mouseEnterCount ] -{ #category : #accessing } +{ #category : 'accessing' } BlExampleEventsCountingElement >> mouseEnterCount: anObject [ mouseEnterCount := anObject ] -{ #category : #accessing } +{ #category : 'accessing' } BlExampleEventsCountingElement >> mouseLeaveCount [ ^ mouseLeaveCount ] -{ #category : #accessing } +{ #category : 'accessing' } BlExampleEventsCountingElement >> mouseLeaveCount: anObject [ mouseLeaveCount := anObject ] -{ #category : #accessing } +{ #category : 'accessing' } BlExampleEventsCountingElement >> mouseMoveCount [ ^ mouseMoveCount ] -{ #category : #accessing } +{ #category : 'accessing' } BlExampleEventsCountingElement >> mouseMoveCount: anObject [ mouseMoveCount := anObject ] -{ #category : #accessing } +{ #category : 'accessing' } BlExampleEventsCountingElement >> mouseOutCount [ ^ mouseOutCount ] -{ #category : #accessing } +{ #category : 'accessing' } BlExampleEventsCountingElement >> mouseOutCount: anObject [ mouseOutCount := anObject ] -{ #category : #accessing } +{ #category : 'accessing' } BlExampleEventsCountingElement >> mouseOverCount [ ^ mouseOverCount ] -{ #category : #accessing } +{ #category : 'accessing' } BlExampleEventsCountingElement >> mouseOverCount: anObject [ mouseOverCount := anObject ] -{ #category : #accessing } +{ #category : 'accessing' } BlExampleEventsCountingElement >> mouseUpCount [ ^ mouseUpCount ] -{ #category : #accessing } +{ #category : 'accessing' } BlExampleEventsCountingElement >> mouseUpCount: anObject [ mouseUpCount := anObject ] -{ #category : #accessing } +{ #category : 'accessing' } BlExampleEventsCountingElement >> positionInSpaceChangedCount [ ^ positionInSpaceChangedCount ] -{ #category : #accessing } +{ #category : 'accessing' } BlExampleEventsCountingElement >> positionInSpaceChangedCount: anObject [ positionInSpaceChangedCount := anObject ] diff --git a/src/Bloc-Examples/BlExampleLoggingEventHandler.class.st b/src/Bloc-Examples/BlExampleLoggingEventHandler.class.st index 307136ac1..b7eb3fc85 100644 --- a/src/Bloc-Examples/BlExampleLoggingEventHandler.class.st +++ b/src/Bloc-Examples/BlExampleLoggingEventHandler.class.st @@ -3,30 +3,32 @@ I am a special event handler that increases `counter` every time I handle an eve " Class { - #name : #BlExampleLoggingEventHandler, - #superclass : #BlEventHandler, + #name : 'BlExampleLoggingEventHandler', + #superclass : 'BlEventHandler', #instVars : [ 'counter' ], - #category : #'Bloc-Examples-EventHandling' + #category : 'Bloc-Examples-EventHandling', + #package : 'Bloc-Examples', + #tag : 'EventHandling' } -{ #category : #'instance creation' } +{ #category : 'instance creation' } BlExampleLoggingEventHandler class >> on: anEventClass [ ^ self new eventClass: anEventClass ] -{ #category : #accessing } +{ #category : 'accessing' } BlExampleLoggingEventHandler >> counter [ ^ counter ] -{ #category : #accessing } +{ #category : 'accessing' } BlExampleLoggingEventHandler >> counter: anObject [ counter := anObject ] -{ #category : #initialization } +{ #category : 'initialization' } BlExampleLoggingEventHandler >> initialize [ super initialize. diff --git a/src/Bloc-Examples/BlFileCollectionRopeExamples.class.st b/src/Bloc-Examples/BlFileCollectionRopeExamples.class.st index 43617a136..4abb864ed 100644 --- a/src/Bloc-Examples/BlFileCollectionRopeExamples.class.st +++ b/src/Bloc-Examples/BlFileCollectionRopeExamples.class.st @@ -1,10 +1,12 @@ Class { - #name : #BlFileCollectionRopeExamples, - #superclass : #BlCollectionRopeExamplesTest, - #category : #'Bloc-Examples-Rope' + #name : 'BlFileCollectionRopeExamples', + #superclass : 'BlCollectionRopeExamplesTest', + #category : 'Bloc-Examples-Rope', + #package : 'Bloc-Examples', + #tag : 'Rope' } -{ #category : #'instance creation' } +{ #category : 'instance creation' } BlFileCollectionRopeExamples >> testSmall [ "Creates an instance of the rope of size smaller than combineLength" diff --git a/src/Bloc-Examples/BlFocusProcessorExamples.class.st b/src/Bloc-Examples/BlFocusProcessorExamples.class.st index ae534646e..00aaa6724 100644 --- a/src/Bloc-Examples/BlFocusProcessorExamples.class.st +++ b/src/Bloc-Examples/BlFocusProcessorExamples.class.st @@ -1,10 +1,12 @@ Class { - #name : #BlFocusProcessorExamples, - #superclass : #BlEventProcessorExamplesTest, - #category : #'Bloc-Examples-Event' + #name : 'BlFocusProcessorExamples', + #superclass : 'BlEventProcessorExamplesTest', + #category : 'Bloc-Examples-Event', + #package : 'Bloc-Examples', + #tag : 'Event' } -{ #category : #'private - instance creation' } +{ #category : 'private - instance creation' } BlFocusProcessorExamples >> elementWithFocusHandler [ @@ -58,7 +60,7 @@ BlFocusProcessorExamples >> elementWithFocusHandler [ aLabel text: aTextBuilder value ]) ] -{ #category : #'examples - lose focus' } +{ #category : 'examples - lose focus' } BlFocusProcessorExamples >> loseFocus_01_give_focus_to_child_1 [ @@ -158,7 +160,7 @@ BlFocusProcessorExamples >> loseFocus_01_give_focus_to_child_1 [ ^ aScripter syncContinue ] -{ #category : #'examples - lose focus' } +{ #category : 'examples - lose focus' } BlFocusProcessorExamples >> loseFocus_02_remove_child_1 [ @@ -267,7 +269,7 @@ BlFocusProcessorExamples >> loseFocus_02_remove_child_1 [ ^ aScripter syncContinue ] -{ #category : #'examples - lose focus' } +{ #category : 'examples - lose focus' } BlFocusProcessorExamples >> loseFocus_03_add_back_child_1 [ @@ -375,7 +377,7 @@ BlFocusProcessorExamples >> loseFocus_03_add_back_child_1 [ ^ aScripter syncContinue ] -{ #category : #'examples - request focus' } +{ #category : 'examples - request focus' } BlFocusProcessorExamples >> requestFocus_01_parent [ @@ -415,7 +417,7 @@ BlFocusProcessorExamples >> requestFocus_01_parent [ ^ aScripter syncContinue ] -{ #category : #'examples - request focus' } +{ #category : 'examples - request focus' } BlFocusProcessorExamples >> requestFocus_02_container_1 [ @@ -474,7 +476,7 @@ BlFocusProcessorExamples >> requestFocus_02_container_1 [ ^ aScripter syncContinue ] -{ #category : #'examples - request focus' } +{ #category : 'examples - request focus' } BlFocusProcessorExamples >> requestFocus_03_container_2 [ @@ -553,7 +555,7 @@ BlFocusProcessorExamples >> requestFocus_03_container_2 [ ^ aScripter syncContinue ] -{ #category : #'examples - request focus' } +{ #category : 'examples - request focus' } BlFocusProcessorExamples >> requestFocus_04_child_1 [ @@ -652,7 +654,7 @@ BlFocusProcessorExamples >> requestFocus_04_child_1 [ ^ aScripter syncContinue ] -{ #category : #'examples - request focus' } +{ #category : 'examples - request focus' } BlFocusProcessorExamples >> requestFocus_05_child_4 [ @@ -771,7 +773,7 @@ BlFocusProcessorExamples >> requestFocus_05_child_4 [ ^ aScripter syncContinue ] -{ #category : #'examples - request focus' } +{ #category : 'examples - request focus' } BlFocusProcessorExamples >> requestFocus_06_container_1 [ @@ -890,7 +892,7 @@ BlFocusProcessorExamples >> requestFocus_06_container_1 [ ^ aScripter syncContinue ] -{ #category : #'private - instance creation' } +{ #category : 'private - instance creation' } BlFocusProcessorExamples >> scripterElement [ diff --git a/src/Bloc-Examples/BlGeometryVisualAndLayoutBoundsExamples.class.st b/src/Bloc-Examples/BlGeometryVisualAndLayoutBoundsExamples.class.st index e2bf6c0e9..4109e0269 100644 --- a/src/Bloc-Examples/BlGeometryVisualAndLayoutBoundsExamples.class.st +++ b/src/Bloc-Examples/BlGeometryVisualAndLayoutBoundsExamples.class.st @@ -64,12 +64,14 @@ The debugging mode is also possible to activate in the GT-Inspector's menu, next " Class { - #name : #BlGeometryVisualAndLayoutBoundsExamples, - #superclass : #BlExampleTest, - #category : #'Bloc-Examples-Basic' + #name : 'BlGeometryVisualAndLayoutBoundsExamples', + #superclass : 'BlExampleTest', + #category : 'Bloc-Examples-Basic', + #package : 'Bloc-Examples', + #tag : 'Basic' } -{ #category : #'debugging triangle and text' } +{ #category : 'debugging triangle and text' } BlGeometryVisualAndLayoutBoundsExamples >> alignedIcon [ @@ -83,7 +85,7 @@ BlGeometryVisualAndLayoutBoundsExamples >> alignedIcon [ ^ aContainerElement ] -{ #category : #'rectangle and start' } +{ #category : 'rectangle and start' } BlGeometryVisualAndLayoutBoundsExamples >> centeredOutskirts [ "Rectangle and star elements with centered stroke" @@ -96,7 +98,7 @@ BlGeometryVisualAndLayoutBoundsExamples >> centeredOutskirts [ ^ aContainer ] -{ #category : #bounds } +{ #category : 'bounds' } BlGeometryVisualAndLayoutBoundsExamples >> clippedTriangle [ "Clipped triangle polygon with layout bounds" @@ -107,7 +109,7 @@ BlGeometryVisualAndLayoutBoundsExamples >> clippedTriangle [ ^ aContainer ] -{ #category : #'rectangle and start' } +{ #category : 'rectangle and start' } BlGeometryVisualAndLayoutBoundsExamples >> container [ "A container for the rectangle and the star" @@ -123,7 +125,7 @@ BlGeometryVisualAndLayoutBoundsExamples >> container [ ^ aContainer ] -{ #category : #'debugging triangle and text' } +{ #category : 'debugging triangle and text' } BlGeometryVisualAndLayoutBoundsExamples >> debuggingAlignedIcon [ @@ -132,7 +134,7 @@ BlGeometryVisualAndLayoutBoundsExamples >> debuggingAlignedIcon [ ^ aContainerElement ] -{ #category : #'debugging triangle and text' } +{ #category : 'debugging triangle and text' } BlGeometryVisualAndLayoutBoundsExamples >> debuggingMisalignedIcon [ @@ -142,7 +144,7 @@ BlGeometryVisualAndLayoutBoundsExamples >> debuggingMisalignedIcon [ ^ aContainerElement ] -{ #category : #bounds } +{ #category : 'bounds' } BlGeometryVisualAndLayoutBoundsExamples >> debuggingMode [ "Triangle polygon with visual and geometry bounds" @@ -152,7 +154,7 @@ BlGeometryVisualAndLayoutBoundsExamples >> debuggingMode [ ^ aContainer ] -{ #category : #'debugging triangle and text' } +{ #category : 'debugging triangle and text' } BlGeometryVisualAndLayoutBoundsExamples >> emptyIconElement [ @@ -161,7 +163,7 @@ BlGeometryVisualAndLayoutBoundsExamples >> emptyIconElement [ background: Color green muchDarker ] -{ #category : #bounds } +{ #category : 'bounds' } BlGeometryVisualAndLayoutBoundsExamples >> fullyVisibleTriangle [ "Fully visible triangle polygon that exceeds layout bounds" @@ -173,7 +175,7 @@ BlGeometryVisualAndLayoutBoundsExamples >> fullyVisibleTriangle [ ^ aContainer ] -{ #category : #'debugging triangle and text' } +{ #category : 'debugging triangle and text' } BlGeometryVisualAndLayoutBoundsExamples >> iconAndTextContainer [ @@ -192,7 +194,7 @@ BlGeometryVisualAndLayoutBoundsExamples >> iconAndTextContainer [ ^ aContainerElement ] -{ #category : #'rectangle and start' } +{ #category : 'rectangle and start' } BlGeometryVisualAndLayoutBoundsExamples >> insideOutskirts [ "Rectangle and star elements with inside stroke" @@ -205,7 +207,7 @@ BlGeometryVisualAndLayoutBoundsExamples >> insideOutskirts [ ^ aContainer ] -{ #category : #'debugging triangle and text' } +{ #category : 'debugging triangle and text' } BlGeometryVisualAndLayoutBoundsExamples >> misalignedIcon [ @@ -220,7 +222,7 @@ BlGeometryVisualAndLayoutBoundsExamples >> misalignedIcon [ ^ aContainerElement ] -{ #category : #'debugging triangle and text' } +{ #category : 'debugging triangle and text' } BlGeometryVisualAndLayoutBoundsExamples >> misalignedTrianglePolygon [ "Triangle polygon" @@ -231,7 +233,7 @@ BlGeometryVisualAndLayoutBoundsExamples >> misalignedTrianglePolygon [ (0 @ 12) } ] -{ #category : #'rectangle and start' } +{ #category : 'rectangle and start' } BlGeometryVisualAndLayoutBoundsExamples >> outsideOutskirts [ "Rectangle and star elements with outside stroke" @@ -244,7 +246,7 @@ BlGeometryVisualAndLayoutBoundsExamples >> outsideOutskirts [ ^ aContainer ] -{ #category : #rectangle } +{ #category : 'rectangle' } BlGeometryVisualAndLayoutBoundsExamples >> rectanglePolygon [ "Rectangle polygon" @@ -256,7 +258,7 @@ BlGeometryVisualAndLayoutBoundsExamples >> rectanglePolygon [ (50 @ 100) } ] -{ #category : #rectangle } +{ #category : 'rectangle' } BlGeometryVisualAndLayoutBoundsExamples >> rectangleWithSmallerGeometry [ "Rectangle element in debug mode, displaying bounds" @@ -272,7 +274,7 @@ BlGeometryVisualAndLayoutBoundsExamples >> rectangleWithSmallerGeometry [ ^ aRectangleElement ] -{ #category : #rectangle } +{ #category : 'rectangle' } BlGeometryVisualAndLayoutBoundsExamples >> rectangleWithSmallerGeometryCentered [ "Rectangle element with centered stroke" @@ -284,7 +286,7 @@ BlGeometryVisualAndLayoutBoundsExamples >> rectangleWithSmallerGeometryCentered ^ aRectangleElement ] -{ #category : #rectangle } +{ #category : 'rectangle' } BlGeometryVisualAndLayoutBoundsExamples >> rectangleWithSmallerGeometryInside [ "Rectangle element with inside stroke" @@ -296,7 +298,7 @@ BlGeometryVisualAndLayoutBoundsExamples >> rectangleWithSmallerGeometryInside [ ^ aRectangleElement ] -{ #category : #rectangle } +{ #category : 'rectangle' } BlGeometryVisualAndLayoutBoundsExamples >> rectangleWithSmallerGeometryOutside [ "Rectangle element with outside stroke" @@ -308,7 +310,7 @@ BlGeometryVisualAndLayoutBoundsExamples >> rectangleWithSmallerGeometryOutside [ ^ aRectangleElement ] -{ #category : #star } +{ #category : 'star' } BlGeometryVisualAndLayoutBoundsExamples >> starPolygon [ "Star polygon" @@ -326,7 +328,7 @@ BlGeometryVisualAndLayoutBoundsExamples >> starPolygon [ (85 @ 90) } ] -{ #category : #star } +{ #category : 'star' } BlGeometryVisualAndLayoutBoundsExamples >> starWithSmallerGeometry [ "Star element in debug mode, displaying bounds" @@ -341,7 +343,7 @@ BlGeometryVisualAndLayoutBoundsExamples >> starWithSmallerGeometry [ ^ aStarElement ] -{ #category : #star } +{ #category : 'star' } BlGeometryVisualAndLayoutBoundsExamples >> starWithSmallerGeometryCentered [ "Star element with centered stroke" @@ -353,7 +355,7 @@ BlGeometryVisualAndLayoutBoundsExamples >> starWithSmallerGeometryCentered [ ^ aStarElement ] -{ #category : #star } +{ #category : 'star' } BlGeometryVisualAndLayoutBoundsExamples >> starWithSmallerGeometryInside [ "Star element with inside stroke" @@ -365,7 +367,7 @@ BlGeometryVisualAndLayoutBoundsExamples >> starWithSmallerGeometryInside [ ^ aStarElement ] -{ #category : #star } +{ #category : 'star' } BlGeometryVisualAndLayoutBoundsExamples >> starWithSmallerGeometryOutside [ "Star element with outside stroke" @@ -377,14 +379,14 @@ BlGeometryVisualAndLayoutBoundsExamples >> starWithSmallerGeometryOutside [ ^ aStarElement ] -{ #category : #'debugging triangle and text' } +{ #category : 'debugging triangle and text' } BlGeometryVisualAndLayoutBoundsExamples >> textElementWithRunText [ ^ BlTextElement new text: 'Run' asRopedText ] -{ #category : #'debugging triangle and text' } +{ #category : 'debugging triangle and text' } BlGeometryVisualAndLayoutBoundsExamples >> trianglePolygon [ "Triangle polygon" @@ -395,7 +397,7 @@ BlGeometryVisualAndLayoutBoundsExamples >> trianglePolygon [ (0 @ 12) } ] -{ #category : #bounds } +{ #category : 'bounds' } BlGeometryVisualAndLayoutBoundsExamples >> unclippedTriangle [ "Clipped triangle polygon with layount bounds" diff --git a/src/Bloc-Examples/BlGridLayoutUsageExamples.class.st b/src/Bloc-Examples/BlGridLayoutUsageExamples.class.st index 191c04bcf..45e56c81b 100644 --- a/src/Bloc-Examples/BlGridLayoutUsageExamples.class.st +++ b/src/Bloc-Examples/BlGridLayoutUsageExamples.class.st @@ -5,12 +5,14 @@ I show how different resizing strategies work and how to build advanced layouts " Class { - #name : #BlGridLayoutUsageExamples, - #superclass : #BlExampleTest, - #category : #'Bloc-Examples-Documentation' + #name : 'BlGridLayoutUsageExamples', + #superclass : 'BlExampleTest', + #category : 'Bloc-Examples-Documentation', + #package : 'Bloc-Examples', + #tag : 'Documentation' } -{ #category : #examples } +{ #category : 'examples' } BlGridLayoutUsageExamples >> exampleDistributed2x2Grid [ @@ -54,7 +56,7 @@ BlGridLayoutUsageExamples >> exampleDistributed2x2Grid [ ^ el ] -{ #category : #examples } +{ #category : 'examples' } BlGridLayoutUsageExamples >> exampleDistributedWithSpan2x2Grid [ @@ -94,7 +96,7 @@ BlGridLayoutUsageExamples >> exampleDistributedWithSpan2x2Grid [ ^ el ] -{ #category : #examples } +{ #category : 'examples' } BlGridLayoutUsageExamples >> exampleDistributedWithWeight2x2Grid [ @@ -140,7 +142,7 @@ BlGridLayoutUsageExamples >> exampleDistributedWithWeight2x2Grid [ ^ el ] -{ #category : #examples } +{ #category : 'examples' } BlGridLayoutUsageExamples >> exampleHorizontal2x1Grid [ @@ -166,7 +168,7 @@ BlGridLayoutUsageExamples >> exampleHorizontal2x1Grid [ ^ el ] -{ #category : #examples } +{ #category : 'examples' } BlGridLayoutUsageExamples >> exampleHorizontalSpacing2x1Grid [ @@ -196,7 +198,7 @@ BlGridLayoutUsageExamples >> exampleHorizontalSpacing2x1Grid [ ^ el ] -{ #category : #examples } +{ #category : 'examples' } BlGridLayoutUsageExamples >> exampleInCellAlignment2x2Grid [ @@ -237,7 +239,7 @@ BlGridLayoutUsageExamples >> exampleInCellAlignment2x2Grid [ ^ el ] -{ #category : #examples } +{ #category : 'examples' } BlGridLayoutUsageExamples >> exampleNautilusGrid [ @@ -290,7 +292,7 @@ BlGridLayoutUsageExamples >> exampleNautilusGrid [ ^ el ] -{ #category : #examples } +{ #category : 'examples' } BlGridLayoutUsageExamples >> exampleSimple2x2Grid [ @@ -326,7 +328,7 @@ BlGridLayoutUsageExamples >> exampleSimple2x2Grid [ ^ el ] -{ #category : #examples } +{ #category : 'examples' } BlGridLayoutUsageExamples >> exampleSpacing9x9Grid [ @@ -358,7 +360,7 @@ BlGridLayoutUsageExamples >> exampleSpacing9x9Grid [ ^ el ] -{ #category : #examples } +{ #category : 'examples' } BlGridLayoutUsageExamples >> exampleVertical1x2Grid [ @@ -384,7 +386,7 @@ BlGridLayoutUsageExamples >> exampleVertical1x2Grid [ ^ el ] -{ #category : #examples } +{ #category : 'examples' } BlGridLayoutUsageExamples >> exampleVerticalSpacing1x2Grid [ @@ -414,7 +416,7 @@ BlGridLayoutUsageExamples >> exampleVerticalSpacing1x2Grid [ ^ el ] -{ #category : #examples } +{ #category : 'examples' } BlGridLayoutUsageExamples >> verticalSpan [ diff --git a/src/Bloc-Examples/BlGridLayoutUsageTest.class.st b/src/Bloc-Examples/BlGridLayoutUsageTest.class.st index 64bf185b7..8cdaecdaa 100644 --- a/src/Bloc-Examples/BlGridLayoutUsageTest.class.st +++ b/src/Bloc-Examples/BlGridLayoutUsageTest.class.st @@ -3,7 +3,8 @@ I have been automatically converted and probably manually tweaked from BlGridLay Finally and more important such tests should not use setup because every method should be in capacity of returning a fully working object called an example :) " Class { - #name : #BlGridLayoutUsageTest, - #superclass : #TestCase, - #category : #'Bloc-Examples' + #name : 'BlGridLayoutUsageTest', + #superclass : 'TestCase', + #category : 'Bloc-Examples', + #package : 'Bloc-Examples' } diff --git a/src/Bloc-Examples/BlHandlerAnnouncerRegistryExamplesTest.class.st b/src/Bloc-Examples/BlHandlerAnnouncerRegistryExamplesTest.class.st index b2a665e2d..480b3188e 100644 --- a/src/Bloc-Examples/BlHandlerAnnouncerRegistryExamplesTest.class.st +++ b/src/Bloc-Examples/BlHandlerAnnouncerRegistryExamplesTest.class.st @@ -3,14 +3,16 @@ I contain examples of event handler registry with Announcer as its backend " Class { - #name : #BlHandlerAnnouncerRegistryExamplesTest, - #superclass : #TestCase, + #name : 'BlHandlerAnnouncerRegistryExamplesTest', + #superclass : 'TestCase', #traits : 'TBlHandlerRegistryExamples', #classTraits : 'TBlHandlerRegistryExamples classTrait', - #category : #'Bloc-Examples-EventHandling' + #category : 'Bloc-Examples-EventHandling', + #package : 'Bloc-Examples', + #tag : 'EventHandling' } -{ #category : #'instance creation' } +{ #category : 'instance creation' } BlHandlerAnnouncerRegistryExamplesTest >> emptyRegistry [ diff --git a/src/Bloc-Examples/BlHandlerArrayRegistryExamplesTest.class.st b/src/Bloc-Examples/BlHandlerArrayRegistryExamplesTest.class.st index 7ac675ba3..e3417669e 100644 --- a/src/Bloc-Examples/BlHandlerArrayRegistryExamplesTest.class.st +++ b/src/Bloc-Examples/BlHandlerArrayRegistryExamplesTest.class.st @@ -3,14 +3,16 @@ I contain examples of event handler registry with Array as its backend " Class { - #name : #BlHandlerArrayRegistryExamplesTest, - #superclass : #TestCase, + #name : 'BlHandlerArrayRegistryExamplesTest', + #superclass : 'TestCase', #traits : 'TBlHandlerRegistryExamples', #classTraits : 'TBlHandlerRegistryExamples classTrait', - #category : #'Bloc-Examples-EventHandling' + #category : 'Bloc-Examples-EventHandling', + #package : 'Bloc-Examples', + #tag : 'EventHandling' } -{ #category : #'instance creation' } +{ #category : 'instance creation' } BlHandlerArrayRegistryExamplesTest >> emptyRegistry [ diff --git a/src/Bloc-Examples/BlKeyCombinationExamplesTest.class.st b/src/Bloc-Examples/BlKeyCombinationExamplesTest.class.st index 16651a509..30e36acde 100644 --- a/src/Bloc-Examples/BlKeyCombinationExamplesTest.class.st +++ b/src/Bloc-Examples/BlKeyCombinationExamplesTest.class.st @@ -3,33 +3,35 @@ I contain examples of how to use key combination " Class { - #name : #BlKeyCombinationExamplesTest, - #superclass : #TestCase, - #category : #'Bloc-Examples-KeyBinding' + #name : 'BlKeyCombinationExamplesTest', + #superclass : 'TestCase', + #category : 'Bloc-Examples-KeyBinding', + #package : 'Bloc-Examples', + #tag : 'KeyBinding' } -{ #category : #'instance creation' } +{ #category : 'instance creation' } BlKeyCombinationExamplesTest >> alternativeCombination [ ^ BlAlternativeCombination new ] -{ #category : #'instance creation' } +{ #category : 'instance creation' } BlKeyCombinationExamplesTest >> arrowLeft [ ^ KeyboardKey left ] -{ #category : #'instance creation' } +{ #category : 'instance creation' } BlKeyCombinationExamplesTest >> compulsoryCombination [ ^ BlCompulsoryCombination new ] -{ #category : #examples } +{ #category : 'examples' } BlKeyCombinationExamplesTest >> keyLogger [ @@ -75,21 +77,21 @@ BlKeyCombinationExamplesTest >> keyLogger [ yourself ] -{ #category : #'instance creation' } +{ #category : 'instance creation' } BlKeyCombinationExamplesTest >> leftMeta [ ^ KeyboardKey metaLeft ] -{ #category : #'instance creation' } +{ #category : 'instance creation' } BlKeyCombinationExamplesTest >> leftShift [ ^ KeyboardKey shiftLeft ] -{ #category : #examples } +{ #category : 'examples' } BlKeyCombinationExamplesTest >> meta: aKeyAlternative left: aLeftMeta right: aRightMeta [ ^ aKeyAlternative @@ -98,21 +100,21 @@ BlKeyCombinationExamplesTest >> meta: aKeyAlternative left: aLeftMeta right: aRi yourself ] -{ #category : #'instance creation' } +{ #category : 'instance creation' } BlKeyCombinationExamplesTest >> rightMeta [ ^ KeyboardKey metaRight ] -{ #category : #'instance creation' } +{ #category : 'instance creation' } BlKeyCombinationExamplesTest >> rightShift [ ^ KeyboardKey shiftLeft ] -{ #category : #examples } +{ #category : 'examples' } BlKeyCombinationExamplesTest >> shift: aShiftAlternative arrowLeft: anArrowLeft and: aCompulsoryCombination [ ^ aCompulsoryCombination @@ -121,7 +123,7 @@ BlKeyCombinationExamplesTest >> shift: aShiftAlternative arrowLeft: anArrowLeft yourself ] -{ #category : #examples } +{ #category : 'examples' } BlKeyCombinationExamplesTest >> shift: aKeyAlternative left: aLeftShift right: aRightShift [ ^ aKeyAlternative diff --git a/src/Bloc-Examples/BlMouseEventExamplesTest.class.st b/src/Bloc-Examples/BlMouseEventExamplesTest.class.st index fecd61863..158758565 100644 --- a/src/Bloc-Examples/BlMouseEventExamplesTest.class.st +++ b/src/Bloc-Examples/BlMouseEventExamplesTest.class.st @@ -1,10 +1,12 @@ Class { - #name : #BlMouseEventExamplesTest, - #superclass : #TestCase, - #category : #'Bloc-Examples-Event' + #name : 'BlMouseEventExamplesTest', + #superclass : 'TestCase', + #category : 'Bloc-Examples-Event', + #package : 'Bloc-Examples', + #tag : 'Event' } -{ #category : #private } +{ #category : 'private' } BlMouseEventExamplesTest >> bottomLeftText: anEvent [ self @@ -12,7 +14,7 @@ BlMouseEventExamplesTest >> bottomLeftText: anEvent [ for: anEvent currentTarget ] -{ #category : #private } +{ #category : 'private' } BlMouseEventExamplesTest >> bottomRightText: anEvent [ self @@ -20,7 +22,7 @@ BlMouseEventExamplesTest >> bottomRightText: anEvent [ for: anEvent currentTarget ] -{ #category : #private } +{ #category : 'private' } BlMouseEventExamplesTest >> boundsOf: anElement [ | aRoot | @@ -31,7 +33,7 @@ BlMouseEventExamplesTest >> boundsOf: anElement [ ^ anElement bounds inParent: aRoot ] -{ #category : #'instance creation' } +{ #category : 'instance creation' } BlMouseEventExamplesTest >> box [ @@ -66,7 +68,7 @@ BlMouseEventExamplesTest >> box [ do: [ :anEvent | self bottomRightText: anEvent ])) ] -{ #category : #'instance creation' } +{ #category : 'instance creation' } BlMouseEventExamplesTest >> child [ @@ -76,7 +78,7 @@ BlMouseEventExamplesTest >> child [ size: 400 @ 300 ] -{ #category : #'instance creation' } +{ #category : 'instance creation' } BlMouseEventExamplesTest >> grandChild [ @@ -86,7 +88,7 @@ BlMouseEventExamplesTest >> grandChild [ size: 400 @ 100 ] -{ #category : #'instance creation' } +{ #category : 'instance creation' } BlMouseEventExamplesTest >> label [ @@ -97,7 +99,7 @@ BlMouseEventExamplesTest >> label [ constraintsDo: [ :c | c ignoreByLayout ] ] -{ #category : #'instance creation' } +{ #category : 'instance creation' } BlMouseEventExamplesTest >> parent [ @@ -110,12 +112,12 @@ BlMouseEventExamplesTest >> parent [ yourself ] -{ #category : #private } +{ #category : 'private' } BlMouseEventExamplesTest >> pointToText: aPoint for: aTextElement [ aTextElement text: (aPoint asRopedText fontSize: 10; foreground: (aTextElement parent background paint color darker alpha: 1)) ] -{ #category : #'examples - find event target' } +{ #category : 'examples - find event target' } BlMouseEventExamplesTest >> testParentWithClip [ @@ -156,7 +158,7 @@ BlMouseEventExamplesTest >> testParentWithClip [ ^ gray ] -{ #category : #'examples - find event target' } +{ #category : 'examples - find event target' } BlMouseEventExamplesTest >> testParentWithoutClipChildWithClip [ @@ -197,7 +199,7 @@ BlMouseEventExamplesTest >> testParentWithoutClipChildWithClip [ ^ gray ] -{ #category : #'examples - find event target' } +{ #category : 'examples - find event target' } BlMouseEventExamplesTest >> testParentWithoutClipChildWithoutClip [ @@ -239,7 +241,7 @@ BlMouseEventExamplesTest >> testParentWithoutClipChildWithoutClip [ ^ gray ] -{ #category : #private } +{ #category : 'private' } BlMouseEventExamplesTest >> topLeftText: anEvent [ self @@ -247,7 +249,7 @@ BlMouseEventExamplesTest >> topLeftText: anEvent [ for: anEvent currentTarget ] -{ #category : #private } +{ #category : 'private' } BlMouseEventExamplesTest >> topRightText: anEvent [ self diff --git a/src/Bloc-Examples/BlMouseOverOutAndEnterLeaveEventExample.class.st b/src/Bloc-Examples/BlMouseOverOutAndEnterLeaveEventExample.class.st index e2063a589..7affa921a 100644 --- a/src/Bloc-Examples/BlMouseOverOutAndEnterLeaveEventExample.class.st +++ b/src/Bloc-Examples/BlMouseOverOutAndEnterLeaveEventExample.class.st @@ -28,12 +28,14 @@ In the example below, notice how parent container receives mouse out event when " Class { - #name : #BlMouseOverOutAndEnterLeaveEventExample, - #superclass : #BlExampleTest, - #category : #'Bloc-Examples-Documentation' + #name : 'BlMouseOverOutAndEnterLeaveEventExample', + #superclass : 'BlExampleTest', + #category : 'Bloc-Examples-Documentation', + #package : 'Bloc-Examples', + #tag : 'Documentation' } -{ #category : #'test - events' } +{ #category : 'test - events' } BlMouseOverOutAndEnterLeaveEventExample >> basicMouseEnterAndLeave [ @@ -52,7 +54,7 @@ BlMouseOverOutAndEnterLeaveEventExample >> basicMouseEnterAndLeave [ ^ aContainer ] -{ #category : #'test - events' } +{ #category : 'test - events' } BlMouseOverOutAndEnterLeaveEventExample >> basicMouseOverAndOut [ @@ -71,7 +73,7 @@ BlMouseOverOutAndEnterLeaveEventExample >> basicMouseOverAndOut [ ^ aContainer ] -{ #category : #'examples - element' } +{ #category : 'examples - element' } BlMouseOverOutAndEnterLeaveEventExample >> elementWithChildren [ @@ -97,7 +99,7 @@ BlMouseOverOutAndEnterLeaveEventExample >> elementWithChildren [ ^ aContainer ] -{ #category : #'examples - element' } +{ #category : 'examples - element' } BlMouseOverOutAndEnterLeaveEventExample >> elementWithoutChildren [ @@ -112,14 +114,14 @@ BlMouseOverOutAndEnterLeaveEventExample >> elementWithoutChildren [ ^ aContainer ] -{ #category : #private } +{ #category : 'private' } BlMouseOverOutAndEnterLeaveEventExample >> markElement: anElement [ anElement background: Color veryVeryLightGray; border: (BlBorder paint: Color red width: 2) ] -{ #category : #'test - events' } +{ #category : 'test - events' } BlMouseOverOutAndEnterLeaveEventExample >> mouseEnterAndLeaveConsumed [ @@ -150,7 +152,7 @@ BlMouseOverOutAndEnterLeaveEventExample >> mouseEnterAndLeaveConsumed [ ^ anElement ] -{ #category : #'test - events' } +{ #category : 'test - events' } BlMouseOverOutAndEnterLeaveEventExample >> mouseEnterAndLeaveNotConsumed [ @@ -175,7 +177,7 @@ BlMouseOverOutAndEnterLeaveEventExample >> mouseEnterAndLeaveNotConsumed [ ^ anElement ] -{ #category : #'test - events' } +{ #category : 'test - events' } BlMouseOverOutAndEnterLeaveEventExample >> mouseOverAndOutConsumed [ @@ -206,7 +208,7 @@ BlMouseOverOutAndEnterLeaveEventExample >> mouseOverAndOutConsumed [ ^ anElement ] -{ #category : #'test - events' } +{ #category : 'test - events' } BlMouseOverOutAndEnterLeaveEventExample >> mouseOverAndOutNotConsumed [ @@ -235,7 +237,7 @@ BlMouseOverOutAndEnterLeaveEventExample >> mouseOverAndOutNotConsumed [ ^ anElement ] -{ #category : #'test - events' } +{ #category : 'test - events' } BlMouseOverOutAndEnterLeaveEventExample >> quickComparison [ @@ -272,13 +274,13 @@ BlMouseOverOutAndEnterLeaveEventExample >> quickComparison [ ^ aContainer ] -{ #category : #private } +{ #category : 'private' } BlMouseOverOutAndEnterLeaveEventExample >> shadow [ ^ BlGaussianShadowEffect color: (Color black alpha: 0.5) width: 7 offset: 2@2 ] -{ #category : #private } +{ #category : 'private' } BlMouseOverOutAndEnterLeaveEventExample >> unmarkElement: anElement [ anElement background: Color white; diff --git a/src/Bloc-Examples/BlMouseProcessorClickExamples.class.st b/src/Bloc-Examples/BlMouseProcessorClickExamples.class.st index 8dbb017d9..c42fdf0f5 100644 --- a/src/Bloc-Examples/BlMouseProcessorClickExamples.class.st +++ b/src/Bloc-Examples/BlMouseProcessorClickExamples.class.st @@ -1,10 +1,12 @@ Class { - #name : #BlMouseProcessorClickExamples, - #superclass : #BlMouseProcessorExamples, - #category : #'Bloc-Examples-Event' + #name : 'BlMouseProcessorClickExamples', + #superclass : 'BlMouseProcessorExamples', + #category : 'Bloc-Examples-Event', + #package : 'Bloc-Examples', + #tag : 'Event' } -{ #category : #'examples - scripter' } +{ #category : 'examples - scripter' } BlMouseProcessorClickExamples >> click [ @@ -42,7 +44,7 @@ BlMouseProcessorClickExamples >> click [ ^ aScripter ] -{ #category : #'examples - scripter' } +{ #category : 'examples - scripter' } BlMouseProcessorClickExamples >> mouseDown [ @@ -77,7 +79,7 @@ BlMouseProcessorClickExamples >> mouseDown [ ^ aScripter syncContinue ] -{ #category : #'examples - scripter' } +{ #category : 'examples - scripter' } BlMouseProcessorClickExamples >> mouseEnter [ @@ -110,7 +112,7 @@ BlMouseProcessorClickExamples >> mouseEnter [ ^ aScripter ] -{ #category : #'examples - scripter' } +{ #category : 'examples - scripter' } BlMouseProcessorClickExamples >> scripterElement [ diff --git a/src/Bloc-Examples/BlMouseProcessorEnterLeaveExamples.class.st b/src/Bloc-Examples/BlMouseProcessorEnterLeaveExamples.class.st index 5a506e81b..73429dbba 100644 --- a/src/Bloc-Examples/BlMouseProcessorEnterLeaveExamples.class.st +++ b/src/Bloc-Examples/BlMouseProcessorEnterLeaveExamples.class.st @@ -1,10 +1,12 @@ Class { - #name : #BlMouseProcessorEnterLeaveExamples, - #superclass : #BlMouseProcessorExamples, - #category : #'Bloc-Examples-Event' + #name : 'BlMouseProcessorEnterLeaveExamples', + #superclass : 'BlMouseProcessorExamples', + #category : 'Bloc-Examples-Event', + #package : 'Bloc-Examples', + #tag : 'Event' } -{ #category : #'examples - scripter' } +{ #category : 'examples - scripter' } BlMouseProcessorEnterLeaveExamples >> mouseEnter [ @@ -44,7 +46,7 @@ BlMouseProcessorEnterLeaveExamples >> mouseEnter [ ^ aScripter ] -{ #category : #'examples - scripter' } +{ #category : 'examples - scripter' } BlMouseProcessorEnterLeaveExamples >> mouseLeave [ @@ -78,7 +80,7 @@ BlMouseProcessorEnterLeaveExamples >> mouseLeave [ ^ aScripter syncContinue ] -{ #category : #'examples - scripter' } +{ #category : 'examples - scripter' } BlMouseProcessorEnterLeaveExamples >> mouseLeaveDueToRemovalFromScene [ @@ -122,7 +124,7 @@ BlMouseProcessorEnterLeaveExamples >> mouseLeaveDueToRemovalFromScene [ ^ aScripter syncContinue ] -{ #category : #'examples - scripter' } +{ #category : 'examples - scripter' } BlMouseProcessorEnterLeaveExamples >> scripterElement [ diff --git a/src/Bloc-Examples/BlMouseProcessorExamples.class.st b/src/Bloc-Examples/BlMouseProcessorExamples.class.st index fcaf16aa0..2ae5af540 100644 --- a/src/Bloc-Examples/BlMouseProcessorExamples.class.st +++ b/src/Bloc-Examples/BlMouseProcessorExamples.class.st @@ -3,54 +3,56 @@ I contain examples-tests of mouse processor " Class { - #name : #BlMouseProcessorExamples, - #superclass : #BlEventProcessorExamplesTest, - #category : #'Bloc-Examples-Event' + #name : 'BlMouseProcessorExamples', + #superclass : 'BlEventProcessorExamplesTest', + #category : 'Bloc-Examples-Event', + #package : 'Bloc-Examples', + #tag : 'Event' } -{ #category : #'instance creation' } +{ #category : 'instance creation' } BlMouseProcessorExamples >> middleMouseDownEvent [ ^ BlMouseDownEvent middle ] -{ #category : #'instance creation' } +{ #category : 'instance creation' } BlMouseProcessorExamples >> middleMouseUpEvent [ ^ BlMouseUpEvent middle ] -{ #category : #'instance creation' } +{ #category : 'instance creation' } BlMouseProcessorExamples >> primaryMouseDownEvent [ ^ BlMouseDownEvent primary ] -{ #category : #'instance creation' } +{ #category : 'instance creation' } BlMouseProcessorExamples >> primaryMouseUpEvent [ ^ BlMouseUpEvent primary ] -{ #category : #'instance creation' } +{ #category : 'instance creation' } BlMouseProcessorExamples >> secondaryMouseDownEvent [ ^ BlMouseDownEvent secondary ] -{ #category : #'instance creation' } +{ #category : 'instance creation' } BlMouseProcessorExamples >> secondaryMouseUpEvent [ ^ BlMouseUpEvent secondary ] -{ #category : #'examples - sequence' } +{ #category : 'examples - sequence' } BlMouseProcessorExamples >> testClick [ @@ -65,7 +67,7 @@ BlMouseProcessorExamples >> testClick [ ^ aMouseProcessor ] -{ #category : #examples } +{ #category : 'examples' } BlMouseProcessorExamples >> testMiddleDown [ @@ -82,7 +84,7 @@ BlMouseProcessorExamples >> testMiddleDown [ ^ aMouseProcessor ] -{ #category : #'instance creation' } +{ #category : 'instance creation' } BlMouseProcessorExamples >> testMouseProcessor [ @@ -96,7 +98,7 @@ BlMouseProcessorExamples >> testMouseProcessor [ ^ aMouseProcessor ] -{ #category : #examples } +{ #category : 'examples' } BlMouseProcessorExamples >> testPrimaryDown [ @@ -113,7 +115,7 @@ BlMouseProcessorExamples >> testPrimaryDown [ ^ aMouseProcessor ] -{ #category : #examples } +{ #category : 'examples' } BlMouseProcessorExamples >> testPrimaryDownSecondaryDown [ @@ -132,7 +134,7 @@ BlMouseProcessorExamples >> testPrimaryDownSecondaryDown [ ^ aMouseProcessor ] -{ #category : #examples } +{ #category : 'examples' } BlMouseProcessorExamples >> testPrimaryDownSecondaryDownPrimaryUp [ @@ -149,7 +151,7 @@ BlMouseProcessorExamples >> testPrimaryDownSecondaryDownPrimaryUp [ ^ aMouseProcessor ] -{ #category : #examples } +{ #category : 'examples' } BlMouseProcessorExamples >> testPrimaryDownSecondaryDownPrimaryUpSecondaryUp [ @@ -164,7 +166,7 @@ BlMouseProcessorExamples >> testPrimaryDownSecondaryDownPrimaryUpSecondaryUp [ ^ aMouseProcessor ] -{ #category : #examples } +{ #category : 'examples' } BlMouseProcessorExamples >> testSecondaryDown [ diff --git a/src/Bloc-Examples/BlMouseWheelEventExamplesTest.class.st b/src/Bloc-Examples/BlMouseWheelEventExamplesTest.class.st index c8314e1e9..4324ef92d 100644 --- a/src/Bloc-Examples/BlMouseWheelEventExamplesTest.class.st +++ b/src/Bloc-Examples/BlMouseWheelEventExamplesTest.class.st @@ -1,10 +1,12 @@ Class { - #name : #BlMouseWheelEventExamplesTest, - #superclass : #TestCase, - #category : #'Bloc-Examples-Event' + #name : 'BlMouseWheelEventExamplesTest', + #superclass : 'TestCase', + #category : 'Bloc-Examples-Event', + #package : 'Bloc-Examples', + #tag : 'Event' } -{ #category : #'examples - elements' } +{ #category : 'examples - elements' } BlMouseWheelEventExamplesTest >> element [ @@ -22,7 +24,7 @@ BlMouseWheelEventExamplesTest >> element [ ^ anElement ] -{ #category : #'examples - mouse wheel events' } +{ #category : 'examples - mouse wheel events' } BlMouseWheelEventExamplesTest >> mouseWheelEventWithVector: aVector [ @@ -37,7 +39,7 @@ BlMouseWheelEventExamplesTest >> mouseWheelEventWithVector: aVector [ ^ anEvent ] -{ #category : #'examples - mouse wheel events' } +{ #category : 'examples - mouse wheel events' } BlMouseWheelEventExamplesTest >> testBasicMouseWheelEvent [ @@ -47,7 +49,7 @@ BlMouseWheelEventExamplesTest >> testBasicMouseWheelEvent [ ^ anEvent ] -{ #category : #'examples - mouse wheel events' } +{ #category : 'examples - mouse wheel events' } BlMouseWheelEventExamplesTest >> testMouseWheelEvent_0degrees [ @@ -58,7 +60,7 @@ BlMouseWheelEventExamplesTest >> testMouseWheelEvent_0degrees [ ^ event ] -{ #category : #'examples - mouse wheel events' } +{ #category : 'examples - mouse wheel events' } BlMouseWheelEventExamplesTest >> testMouseWheelEvent_180degrees [ @@ -69,7 +71,7 @@ BlMouseWheelEventExamplesTest >> testMouseWheelEvent_180degrees [ ^ event ] -{ #category : #'examples - mouse wheel events' } +{ #category : 'examples - mouse wheel events' } BlMouseWheelEventExamplesTest >> testMouseWheelEvent_270degrees [ @@ -80,7 +82,7 @@ BlMouseWheelEventExamplesTest >> testMouseWheelEvent_270degrees [ ^ event ] -{ #category : #'examples - mouse wheel events' } +{ #category : 'examples - mouse wheel events' } BlMouseWheelEventExamplesTest >> testMouseWheelEvent_346degrees [ @@ -91,7 +93,7 @@ BlMouseWheelEventExamplesTest >> testMouseWheelEvent_346degrees [ ^ event ] -{ #category : #'examples - mouse wheel events' } +{ #category : 'examples - mouse wheel events' } BlMouseWheelEventExamplesTest >> testMouseWheelEvent_45degrees [ diff --git a/src/Bloc-Examples/BlRopeIteratorExamplesTest.class.st b/src/Bloc-Examples/BlRopeIteratorExamplesTest.class.st index ba0ac3717..bdea08f63 100644 --- a/src/Bloc-Examples/BlRopeIteratorExamplesTest.class.st +++ b/src/Bloc-Examples/BlRopeIteratorExamplesTest.class.st @@ -3,12 +3,14 @@ I contain examples of rope iterators " Class { - #name : #BlRopeIteratorExamplesTest, - #superclass : #TestCase, - #category : #'Bloc-Examples-Rope' + #name : 'BlRopeIteratorExamplesTest', + #superclass : 'TestCase', + #category : 'Bloc-Examples-Rope', + #package : 'Bloc-Examples', + #tag : 'Rope' } -{ #category : #'examples - next span' } +{ #category : 'examples - next span' } BlRopeIteratorExamplesTest >> testNextSpanFontColorOnA [ @@ -24,7 +26,7 @@ BlRopeIteratorExamplesTest >> testNextSpanFontColorOnA [ ^ aSpan ] -{ #category : #'examples - next span' } +{ #category : 'examples - next span' } BlRopeIteratorExamplesTest >> testNextSpanFontColorOnAWithColor [ @@ -42,7 +44,7 @@ BlRopeIteratorExamplesTest >> testNextSpanFontColorOnAWithColor [ ^ aSpan ] -{ #category : #'examples - next span' } +{ #category : 'examples - next span' } BlRopeIteratorExamplesTest >> testNextSpanFontColorOnHelloWorldWithColor [ @@ -82,7 +84,7 @@ BlRopeIteratorExamplesTest >> testNextSpanFontColorOnHelloWorldWithColor [ ^ aSpan ] -{ #category : #'examples - next line' } +{ #category : 'examples - next line' } BlRopeIteratorExamplesTest >> testNext_line_123Cr_at_0 [ @@ -100,7 +102,7 @@ BlRopeIteratorExamplesTest >> testNext_line_123Cr_at_0 [ ^ anIterator ] -{ #category : #'examples - next line' } +{ #category : 'examples - next line' } BlRopeIteratorExamplesTest >> testNext_line_123Crabc_at_0 [ @@ -118,7 +120,7 @@ BlRopeIteratorExamplesTest >> testNext_line_123Crabc_at_0 [ ^ anIterator ] -{ #category : #'examples - next line' } +{ #category : 'examples - next line' } BlRopeIteratorExamplesTest >> testNext_line_123Crabc_at_4 [ @@ -135,7 +137,7 @@ BlRopeIteratorExamplesTest >> testNext_line_123Crabc_at_4 [ ^ anIterator ] -{ #category : #'examples - next line' } +{ #category : 'examples - next line' } BlRopeIteratorExamplesTest >> testNext_line_123_at_0 [ @@ -152,7 +154,7 @@ BlRopeIteratorExamplesTest >> testNext_line_123_at_0 [ ^ anIterator ] -{ #category : #'examples - next line' } +{ #category : 'examples - next line' } BlRopeIteratorExamplesTest >> testNext_line_Cr123_at_0 [ @@ -170,7 +172,7 @@ BlRopeIteratorExamplesTest >> testNext_line_Cr123_at_0 [ ^ anIterator ] -{ #category : #'examples - next line' } +{ #category : 'examples - next line' } BlRopeIteratorExamplesTest >> testNext_line_Cr123_at_1 [ @@ -187,7 +189,7 @@ BlRopeIteratorExamplesTest >> testNext_line_Cr123_at_1 [ ^ anIterator ] -{ #category : #'examples - next line' } +{ #category : 'examples - next line' } BlRopeIteratorExamplesTest >> testNext_line_Cr1_at_0 [ @@ -204,7 +206,7 @@ BlRopeIteratorExamplesTest >> testNext_line_Cr1_at_0 [ ^ anIterator ] -{ #category : #'examples - next line' } +{ #category : 'examples - next line' } BlRopeIteratorExamplesTest >> testNext_line_Cr1_at_1 [ @@ -221,7 +223,7 @@ BlRopeIteratorExamplesTest >> testNext_line_Cr1_at_1 [ ^ anIterator ] -{ #category : #'examples - next line' } +{ #category : 'examples - next line' } BlRopeIteratorExamplesTest >> testNext_line_CrCr_at_0 [ @@ -239,7 +241,7 @@ BlRopeIteratorExamplesTest >> testNext_line_CrCr_at_0 [ ^ anIterator ] -{ #category : #'examples - next line' } +{ #category : 'examples - next line' } BlRopeIteratorExamplesTest >> testNext_line_CrCr_at_1 [ @@ -256,7 +258,7 @@ BlRopeIteratorExamplesTest >> testNext_line_CrCr_at_1 [ ^ anIterator ] -{ #category : #'examples - next line' } +{ #category : 'examples - next line' } BlRopeIteratorExamplesTest >> testNext_line_CrLf_at_0 [ @@ -273,7 +275,7 @@ BlRopeIteratorExamplesTest >> testNext_line_CrLf_at_0 [ ^ anIterator ] -{ #category : #'examples - next line' } +{ #category : 'examples - next line' } BlRopeIteratorExamplesTest >> testNext_line_Cr_at_0 [ @@ -290,7 +292,7 @@ BlRopeIteratorExamplesTest >> testNext_line_Cr_at_0 [ ^ anIterator ] -{ #category : #'examples - next line' } +{ #category : 'examples - next line' } BlRopeIteratorExamplesTest >> testNext_line_Lf_at_0 [ @@ -307,7 +309,7 @@ BlRopeIteratorExamplesTest >> testNext_line_Lf_at_0 [ ^ anIterator ] -{ #category : #'examples - next segment' } +{ #category : 'examples - next segment' } BlRopeIteratorExamplesTest >> testNext_segment_123abc_at_0 [ @@ -323,7 +325,7 @@ BlRopeIteratorExamplesTest >> testNext_segment_123abc_at_0 [ ^ anIterator ] -{ #category : #'examples - next segment' } +{ #category : 'examples - next segment' } BlRopeIteratorExamplesTest >> testNext_segment_123abc_at_3 [ @@ -338,7 +340,7 @@ BlRopeIteratorExamplesTest >> testNext_segment_123abc_at_3 [ ^ anIterator ] -{ #category : #'examples - next segment' } +{ #category : 'examples - next segment' } BlRopeIteratorExamplesTest >> testNext_segment_123abc_at_6 [ "Iterator throws an error when the end is reached" @@ -356,7 +358,7 @@ BlRopeIteratorExamplesTest >> testNext_segment_123abc_at_6 [ ^ anIterator ] -{ #category : #'examples - next segment' } +{ #category : 'examples - next segment' } BlRopeIteratorExamplesTest >> testNext_segment_a_at_0 [ @@ -372,7 +374,7 @@ BlRopeIteratorExamplesTest >> testNext_segment_a_at_0 [ ^ anIterator ] -{ #category : #'examples - next segment' } +{ #category : 'examples - next segment' } BlRopeIteratorExamplesTest >> testNext_segment_abc_at_0 [ diff --git a/src/Bloc-Examples/BlRopeableCollectionFileTest.class.st b/src/Bloc-Examples/BlRopeableCollectionFileTest.class.st index 3f4957ca8..3c375bd11 100644 --- a/src/Bloc-Examples/BlRopeableCollectionFileTest.class.st +++ b/src/Bloc-Examples/BlRopeableCollectionFileTest.class.st @@ -1,13 +1,15 @@ Class { - #name : #BlRopeableCollectionFileTest, - #superclass : #TestCase, + #name : 'BlRopeableCollectionFileTest', + #superclass : 'TestCase', #instVars : [ 'largeFile' ], - #category : #'Bloc-Examples-Rope' + #category : 'Bloc-Examples-Rope', + #package : 'Bloc-Examples', + #tag : 'Rope' } -{ #category : #private } +{ #category : 'private' } BlRopeableCollectionFileTest >> deleteLargeFile [ largeFile ifNotNil: @@ -15,13 +17,13 @@ BlRopeableCollectionFileTest >> deleteLargeFile [ largeFile := nil ]. ] -{ #category : #'test seed' } +{ #category : 'test seed' } BlRopeableCollectionFileTest >> emptyFile [ ^ (FileSystem memory root / 'empty.file') ensureCreateFile ] -{ #category : #'test seed' } +{ #category : 'test seed' } BlRopeableCollectionFileTest >> largeFile [ ^largeFile ifNil: @@ -34,19 +36,19 @@ BlRopeableCollectionFileTest >> largeFile [ largeFile ]. ] -{ #category : #'test seed' } +{ #category : 'test seed' } BlRopeableCollectionFileTest >> rope [ ^ BlRopedText rope: (BlCollectionRope collection: self ropeableCollection) ] -{ #category : #'test seed' } +{ #category : 'test seed' } BlRopeableCollectionFileTest >> ropeableCollection [ ^ BlRopeableCollectionFile new fileReference: self largeFile ] -{ #category : #tests } +{ #category : 'tests' } BlRopeableCollectionFileTest >> testAt [ self @@ -65,7 +67,7 @@ BlRopeableCollectionFileTest >> testAt [ ] -{ #category : #tests } +{ #category : 'tests' } BlRopeableCollectionFileTest >> testCopyFromTo [ | expected | @@ -79,7 +81,7 @@ BlRopeableCollectionFileTest >> testCopyFromTo [ ] -{ #category : #tests } +{ #category : 'tests' } BlRopeableCollectionFileTest >> testEmptyFileSize [ | ropeSize | @@ -87,7 +89,7 @@ BlRopeableCollectionFileTest >> testEmptyFileSize [ self assert: ropeSize equals: 0. ] -{ #category : #tests } +{ #category : 'tests' } BlRopeableCollectionFileTest >> testMapEntryForLarge [ | collection | @@ -117,7 +119,7 @@ BlRopeableCollectionFileTest >> testMapEntryForLarge [ ] -{ #category : #tests } +{ #category : 'tests' } BlRopeableCollectionFileTest >> testMapEntryForSmall [ | collection | diff --git a/src/Bloc-Examples/BlSharedEventDistributorExamples.class.st b/src/Bloc-Examples/BlSharedEventDistributorExamples.class.st index 495ec7d80..3d3db9eda 100644 --- a/src/Bloc-Examples/BlSharedEventDistributorExamples.class.st +++ b/src/Bloc-Examples/BlSharedEventDistributorExamples.class.st @@ -3,12 +3,14 @@ I exemplify {{gtClass:BlSharedEventDistributor}}. " Class { - #name : #BlSharedEventDistributorExamples, - #superclass : #BlExampleTest, - #category : #'Bloc-Examples-EventHandling' + #name : 'BlSharedEventDistributorExamples', + #superclass : 'BlExampleTest', + #category : 'Bloc-Examples-EventHandling', + #package : 'Bloc-Examples', + #tag : 'EventHandling' } -{ #category : #'instance creation' } +{ #category : 'instance creation' } BlSharedEventDistributorExamples >> container [ @@ -22,14 +24,14 @@ BlSharedEventDistributorExamples >> container [ c padding: (BlInsets all: 3) ] ] -{ #category : #'instance creation' } +{ #category : 'instance creation' } BlSharedEventDistributorExamples >> element [ ^ BlElement new ] -{ #category : #'instance creation' } +{ #category : 'instance creation' } BlSharedEventDistributorExamples >> element100x100 [ @@ -49,7 +51,7 @@ BlSharedEventDistributorExamples >> element100x100 [ do: [ :anEvent | anElement background: aBackgroundColor ] ] -{ #category : #'examples - sharing events' } +{ #category : 'examples - sharing events' } BlSharedEventDistributorExamples >> example [ @@ -65,7 +67,7 @@ BlSharedEventDistributorExamples >> example [ ^ aContainer ] -{ #category : #'instance creation' } +{ #category : 'instance creation' } BlSharedEventDistributorExamples >> randomColor [ @@ -75,7 +77,7 @@ BlSharedEventDistributorExamples >> randomColor [ Color red } atRandom ] -{ #category : #'examples - basic' } +{ #category : 'examples - basic' } BlSharedEventDistributorExamples >> testInstallOneElement [ @@ -87,7 +89,7 @@ BlSharedEventDistributorExamples >> testInstallOneElement [ ^ aHandler ] -{ #category : #'examples - basic' } +{ #category : 'examples - basic' } BlSharedEventDistributorExamples >> testInstallTwoElements [ @@ -99,7 +101,7 @@ BlSharedEventDistributorExamples >> testInstallTwoElements [ ^ aHandler ] -{ #category : #'examples - sharing events' } +{ #category : 'examples - sharing events' } BlSharedEventDistributorExamples >> testMouseEnterEventOneOutOfTwoElements [ @@ -131,7 +133,7 @@ BlSharedEventDistributorExamples >> testMouseEnterEventOneOutOfTwoElements [ ^ aContainer ] -{ #category : #'examples - sharing events' } +{ #category : 'examples - sharing events' } BlSharedEventDistributorExamples >> testMouseLeaveEventOneOutOfTwoElements [ @@ -173,7 +175,7 @@ BlSharedEventDistributorExamples >> testMouseLeaveEventOneOutOfTwoElements [ ^ aContainer ] -{ #category : #'instance creation' } +{ #category : 'instance creation' } BlSharedEventDistributorExamples >> testSharedEventDistributor [ @@ -183,7 +185,7 @@ BlSharedEventDistributorExamples >> testSharedEventDistributor [ ^ aHandler ] -{ #category : #'examples - basic' } +{ #category : 'examples - basic' } BlSharedEventDistributorExamples >> testUninstallOneElement [ diff --git a/src/Bloc-Examples/BlSingleKeyCombinationExamples.class.st b/src/Bloc-Examples/BlSingleKeyCombinationExamples.class.st index 588def170..5e5fadd72 100644 --- a/src/Bloc-Examples/BlSingleKeyCombinationExamples.class.st +++ b/src/Bloc-Examples/BlSingleKeyCombinationExamples.class.st @@ -1,10 +1,12 @@ Class { - #name : #BlSingleKeyCombinationExamples, - #superclass : #BlKeyCombinationExamplesTest, - #category : #'Bloc-Examples-KeyBinding' + #name : 'BlSingleKeyCombinationExamples', + #superclass : 'BlKeyCombinationExamplesTest', + #category : 'Bloc-Examples-KeyBinding', + #package : 'Bloc-Examples', + #tag : 'KeyBinding' } -{ #category : #'examples - combination' } +{ #category : 'examples - combination' } BlSingleKeyCombinationExamples >> testArrowLeftCombination [ @@ -16,7 +18,7 @@ BlSingleKeyCombinationExamples >> testArrowLeftCombination [ ^ aKeyCombination ] -{ #category : #'examples - store' } +{ #category : 'examples - store' } BlSingleKeyCombinationExamples >> testStoreArrowLeftCombination [ diff --git a/src/Bloc-Examples/BlSpaceEventExamplesTest.class.st b/src/Bloc-Examples/BlSpaceEventExamplesTest.class.st index e90c9d769..ed2d24111 100644 --- a/src/Bloc-Examples/BlSpaceEventExamplesTest.class.st +++ b/src/Bloc-Examples/BlSpaceEventExamplesTest.class.st @@ -3,12 +3,14 @@ I contain examples of space related events " Class { - #name : #BlSpaceEventExamplesTest, - #superclass : #TestCase, - #category : #'Bloc-Examples-Event' + #name : 'BlSpaceEventExamplesTest', + #superclass : 'TestCase', + #category : 'Bloc-Examples-Event', + #package : 'Bloc-Examples', + #tag : 'Event' } -{ #category : #'instance creation' } +{ #category : 'instance creation' } BlSpaceEventExamplesTest >> space [ @@ -17,7 +19,7 @@ BlSpaceEventExamplesTest >> space [ yourself ] -{ #category : #'event handling' } +{ #category : 'event handling' } BlSpaceEventExamplesTest >> testIgnoreSpaceEventsAfterCloseRequest [ @@ -35,7 +37,7 @@ BlSpaceEventExamplesTest >> testIgnoreSpaceEventsAfterCloseRequest [ ^ aSpace ] -{ #category : #'show / close' } +{ #category : 'show / close' } BlSpaceEventExamplesTest >> testSpaceClosed [ @@ -56,7 +58,7 @@ BlSpaceEventExamplesTest >> testSpaceClosed [ ^ aSpace ] -{ #category : #'show / close' } +{ #category : 'show / close' } BlSpaceEventExamplesTest >> testSpaceDestroyed [ @@ -81,7 +83,7 @@ BlSpaceEventExamplesTest >> testSpaceDestroyed [ ^ aSpace ] -{ #category : #'show / close' } +{ #category : 'show / close' } BlSpaceEventExamplesTest >> testSpaceShown [ diff --git a/src/Bloc-Examples/BlSpaceExamplesMigratedTest.class.st b/src/Bloc-Examples/BlSpaceExamplesMigratedTest.class.st index 83a4ac62d..390afd018 100644 --- a/src/Bloc-Examples/BlSpaceExamplesMigratedTest.class.st +++ b/src/Bloc-Examples/BlSpaceExamplesMigratedTest.class.st @@ -2,12 +2,14 @@ I contain example of how to use space " Class { - #name : #BlSpaceExamplesMigratedTest, - #superclass : #TestCase, - #category : #'Bloc-Examples-SpaceMigrated' + #name : 'BlSpaceExamplesMigratedTest', + #superclass : 'TestCase', + #category : 'Bloc-Examples-SpaceMigrated', + #package : 'Bloc-Examples', + #tag : 'SpaceMigrated' } -{ #category : #script } +{ #category : 'script' } BlSpaceExamplesMigratedTest class >> slownDownSpace [ @@ -16,7 +18,7 @@ BlSpaceExamplesMigratedTest class >> slownDownSpace [ show ] -{ #category : #'private - instance creation' } +{ #category : 'private - instance creation' } BlSpaceExamplesMigratedTest >> animatedElement [ @@ -27,7 +29,7 @@ BlSpaceExamplesMigratedTest >> animatedElement [ addAnimation: self testInfiniteAnimation ] -{ #category : #'examples - icon' } +{ #category : 'examples - icon' } BlSpaceExamplesMigratedTest >> iconElement [ ^ BlElement new @@ -36,7 +38,7 @@ BlSpaceExamplesMigratedTest >> iconElement [ geometry: BlCircleGeometry new. ] -{ #category : #'examples - icon' } +{ #category : 'examples - icon' } BlSpaceExamplesMigratedTest >> iconStencil [ | aStencil | @@ -45,7 +47,7 @@ BlSpaceExamplesMigratedTest >> iconStencil [ ^ aStencil ] -{ #category : #'examples - time' } +{ #category : 'examples - time' } BlSpaceExamplesMigratedTest >> spaceWithSlownDownTimeAndAnimatedElement [ @@ -56,7 +58,7 @@ BlSpaceExamplesMigratedTest >> spaceWithSlownDownTimeAndAnimatedElement [ ^ aSpace ] -{ #category : #'examples - icon' } +{ #category : 'examples - icon' } BlSpaceExamplesMigratedTest >> testChangeIcon [ @@ -64,9 +66,9 @@ BlSpaceExamplesMigratedTest >> testChangeIcon [ aSpace := self testEmptySpace. aCollection := OrderedCollection new. - aSpace - when: BlSpaceIconChangedEvent - do: [ :anEvent | aCollection add: anEvent ]. + aSpace addEventHandler: (BlEventHandler + on: BlSpaceIconChangedEvent + do: [ :anEvent | aCollection add: anEvent ]). aSpace icon: self iconStencil. @@ -82,7 +84,7 @@ BlSpaceExamplesMigratedTest >> testChangeIcon [ ^ aSpace ] -{ #category : #'instance creation' } +{ #category : 'instance creation' } BlSpaceExamplesMigratedTest >> testEmptySpace [ @@ -110,7 +112,7 @@ BlSpaceExamplesMigratedTest >> testEmptySpace [ ^ aSpace ] -{ #category : #lifecycle } +{ #category : 'lifecycle' } BlSpaceExamplesMigratedTest >> testFirstPulse [ @@ -125,7 +127,7 @@ BlSpaceExamplesMigratedTest >> testFirstPulse [ ^ aSpace ] -{ #category : #'private - instance creation' } +{ #category : 'private - instance creation' } BlSpaceExamplesMigratedTest >> testInfiniteAnimation [ diff --git a/src/Bloc-Examples/BlSpaceIconDummyStencil.class.st b/src/Bloc-Examples/BlSpaceIconDummyStencil.class.st index 72a2b398f..e92d9834c 100644 --- a/src/Bloc-Examples/BlSpaceIconDummyStencil.class.st +++ b/src/Bloc-Examples/BlSpaceIconDummyStencil.class.st @@ -5,26 +5,28 @@ I evaluate create an icon on {{gtMethod:BlSpaceIconDummyStencil>>#asElement|labe " Class { - #name : #BlSpaceIconDummyStencil, - #superclass : #Object, + #name : 'BlSpaceIconDummyStencil', + #superclass : 'Object', #instVars : [ 'block' ], - #category : #'Bloc-Examples-SpaceMigrated' + #category : 'Bloc-Examples-SpaceMigrated', + #package : 'Bloc-Examples', + #tag : 'SpaceMigrated' } -{ #category : #'api - converting' } +{ #category : 'api - converting' } BlSpaceIconDummyStencil >> asElement [ ^ self block value ] -{ #category : #'api - accessing' } +{ #category : 'api - accessing' } BlSpaceIconDummyStencil >> block [ ^ block ] -{ #category : #'api - accessing' } +{ #category : 'api - accessing' } BlSpaceIconDummyStencil >> block: anObject [ block := anObject ] diff --git a/src/Bloc-Examples/BlSubRopeExamplesTest.class.st b/src/Bloc-Examples/BlSubRopeExamplesTest.class.st index 1a8be42c7..d6b3d2570 100644 --- a/src/Bloc-Examples/BlSubRopeExamplesTest.class.st +++ b/src/Bloc-Examples/BlSubRopeExamplesTest.class.st @@ -1,10 +1,12 @@ Class { - #name : #BlSubRopeExamplesTest, - #superclass : #TestCase, - #category : #'Bloc-Examples-Rope' + #name : 'BlSubRopeExamplesTest', + #superclass : 'TestCase', + #category : 'Bloc-Examples-Rope', + #package : 'Bloc-Examples', + #tag : 'Rope' } -{ #category : #'examples - attributes' } +{ #category : 'examples - attributes' } BlSubRopeExamplesTest >> testAttributes_empty_0_to_0 [ @@ -19,7 +21,7 @@ BlSubRopeExamplesTest >> testAttributes_empty_0_to_0 [ ^ anAttributedRope ] -{ #category : #'examples - attributes' } +{ #category : 'examples - attributes' } BlSubRopeExamplesTest >> testAttributes_small_0_to_0 [ @@ -35,7 +37,7 @@ BlSubRopeExamplesTest >> testAttributes_small_0_to_0 [ ^ anAttributedRope ] -{ #category : #'examples - attributes' } +{ #category : 'examples - attributes' } BlSubRopeExamplesTest >> testAttributes_small_0_to_1 [ @@ -57,7 +59,7 @@ BlSubRopeExamplesTest >> testAttributes_small_0_to_1 [ ^ anAttributedRope ] -{ #category : #'examples - attributes' } +{ #category : 'examples - attributes' } BlSubRopeExamplesTest >> testAttributes_small_0_to_5 [ @@ -71,7 +73,7 @@ BlSubRopeExamplesTest >> testAttributes_small_0_to_5 [ ^ anAttributedRope ] -{ #category : #'examples - attributes' } +{ #category : 'examples - attributes' } BlSubRopeExamplesTest >> testAttributes_small_2_to_2 [ @@ -94,7 +96,7 @@ BlSubRopeExamplesTest >> testAttributes_small_2_to_2 [ ^ anAttributedRope ] -{ #category : #'examples - attributes' } +{ #category : 'examples - attributes' } BlSubRopeExamplesTest >> testAttributes_small_4_to_5 [ @@ -114,7 +116,7 @@ BlSubRopeExamplesTest >> testAttributes_small_4_to_5 [ ^ anAttributedRope ] -{ #category : #'examples - attributes' } +{ #category : 'examples - attributes' } BlSubRopeExamplesTest >> testAttributes_small_5_to_5 [ @@ -130,7 +132,7 @@ BlSubRopeExamplesTest >> testAttributes_small_5_to_5 [ ^ anAttributedRope ] -{ #category : #'examples - attributes' } +{ #category : 'examples - attributes' } BlSubRopeExamplesTest >> testClear_attributes_empty_0_to_0 [ @@ -144,7 +146,7 @@ BlSubRopeExamplesTest >> testClear_attributes_empty_0_to_0 [ ^ aRopeWithoutAttributes ] -{ #category : #'as yet unclassified' } +{ #category : 'as yet unclassified' } BlSubRopeExamplesTest >> testReadStreamSmall [ | rope stream | @@ -156,7 +158,7 @@ BlSubRopeExamplesTest >> testReadStreamSmall [ self assert: stream upToEnd asString equals: 'o' ] -{ #category : #'instance creation' } +{ #category : 'instance creation' } BlSubRopeExamplesTest >> testSmall [ "Creates an instance of the rope of size smaller than combineLength with one attribute applied on the whole rope" @@ -177,7 +179,7 @@ BlSubRopeExamplesTest >> testSmall [ ^ aRope ] -{ #category : #'examples - accessing' } +{ #category : 'examples - accessing' } BlSubRopeExamplesTest >> testSmall_at_each [ @@ -193,7 +195,7 @@ BlSubRopeExamplesTest >> testSmall_at_each [ ^ aRope ] -{ #category : #'examples - accessing' } +{ #category : 'examples - accessing' } BlSubRopeExamplesTest >> testSmall_children [ @@ -205,7 +207,7 @@ BlSubRopeExamplesTest >> testSmall_children [ ^ aRope ] -{ #category : #'examples - deletion' } +{ #category : 'examples - deletion' } BlSubRopeExamplesTest >> testSmall_delete_0_to_0 [ @@ -218,7 +220,7 @@ BlSubRopeExamplesTest >> testSmall_delete_0_to_0 [ ^ aNewRope ] -{ #category : #'examples - deletion' } +{ #category : 'examples - deletion' } BlSubRopeExamplesTest >> testSmall_delete_0_to_1 [ @@ -232,7 +234,7 @@ BlSubRopeExamplesTest >> testSmall_delete_0_to_1 [ ^ aNewRope ] -{ #category : #'examples - deletion' } +{ #category : 'examples - deletion' } BlSubRopeExamplesTest >> testSmall_delete_0_to_5 [ @@ -246,7 +248,7 @@ BlSubRopeExamplesTest >> testSmall_delete_0_to_5 [ ^ aNewRope ] -{ #category : #'examples - deletion' } +{ #category : 'examples - deletion' } BlSubRopeExamplesTest >> testSmall_delete_1_to_1 [ @@ -259,7 +261,7 @@ BlSubRopeExamplesTest >> testSmall_delete_1_to_1 [ ^ aNewRope ] -{ #category : #'examples - deletion' } +{ #category : 'examples - deletion' } BlSubRopeExamplesTest >> testSmall_delete_1_to_3 [ @@ -273,7 +275,7 @@ BlSubRopeExamplesTest >> testSmall_delete_1_to_3 [ ^ aNewRope ] -{ #category : #'examples - deletion' } +{ #category : 'examples - deletion' } BlSubRopeExamplesTest >> testSmall_delete_1_to_5 [ @@ -287,7 +289,7 @@ BlSubRopeExamplesTest >> testSmall_delete_1_to_5 [ ^ aNewRope ] -{ #category : #'examples - deletion' } +{ #category : 'examples - deletion' } BlSubRopeExamplesTest >> testSmall_delete_4_to_5 [ @@ -301,7 +303,7 @@ BlSubRopeExamplesTest >> testSmall_delete_4_to_5 [ ^ aNewRope ] -{ #category : #'examples - deletion' } +{ #category : 'examples - deletion' } BlSubRopeExamplesTest >> testSmall_delete_5_to_5 [ @@ -314,7 +316,7 @@ BlSubRopeExamplesTest >> testSmall_delete_5_to_5 [ ^ aNewRope ] -{ #category : #'examples - accessing' } +{ #category : 'examples - accessing' } BlSubRopeExamplesTest >> testSmall_depth [ @@ -326,7 +328,7 @@ BlSubRopeExamplesTest >> testSmall_depth [ ^ aRope ] -{ #category : #'examples - enumeration' } +{ #category : 'examples - enumeration' } BlSubRopeExamplesTest >> testSmall_do [ @@ -341,7 +343,7 @@ BlSubRopeExamplesTest >> testSmall_do [ ^ theIterated ] -{ #category : #'instance creation' } +{ #category : 'instance creation' } BlSubRopeExamplesTest >> testSmall_empty [ @@ -355,7 +357,7 @@ BlSubRopeExamplesTest >> testSmall_empty [ ^ anEmpty ] -{ #category : #'examples - from to' } +{ #category : 'examples - from to' } BlSubRopeExamplesTest >> testSmall_from_0_to_0 [ @@ -369,7 +371,7 @@ BlSubRopeExamplesTest >> testSmall_from_0_to_0 [ ^ aNewRope ] -{ #category : #'examples - enumeration' } +{ #category : 'examples - enumeration' } BlSubRopeExamplesTest >> testSmall_from_0_to_0_do [ @@ -387,7 +389,7 @@ BlSubRopeExamplesTest >> testSmall_from_0_to_0_do [ ^ theIterated ] -{ #category : #'examples - from to' } +{ #category : 'examples - from to' } BlSubRopeExamplesTest >> testSmall_from_0_to_1 [ @@ -402,7 +404,7 @@ BlSubRopeExamplesTest >> testSmall_from_0_to_1 [ ^ aNewRope ] -{ #category : #'examples - enumeration' } +{ #category : 'examples - enumeration' } BlSubRopeExamplesTest >> testSmall_from_0_to_1_do [ @@ -420,7 +422,7 @@ BlSubRopeExamplesTest >> testSmall_from_0_to_1_do [ ^ theIterated ] -{ #category : #'examples - from to' } +{ #category : 'examples - from to' } BlSubRopeExamplesTest >> testSmall_from_0_to_5 [ @@ -433,7 +435,7 @@ BlSubRopeExamplesTest >> testSmall_from_0_to_5 [ ^ aNewRope ] -{ #category : #'examples - enumeration' } +{ #category : 'examples - enumeration' } BlSubRopeExamplesTest >> testSmall_from_0_to_5_do [ @@ -451,7 +453,7 @@ BlSubRopeExamplesTest >> testSmall_from_0_to_5_do [ ^ theIterated ] -{ #category : #'examples - from to' } +{ #category : 'examples - from to' } BlSubRopeExamplesTest >> testSmall_from_1_to_1 [ @@ -465,7 +467,7 @@ BlSubRopeExamplesTest >> testSmall_from_1_to_1 [ ^ aNewRope ] -{ #category : #'examples - enumeration' } +{ #category : 'examples - enumeration' } BlSubRopeExamplesTest >> testSmall_from_1_to_1_do [ @@ -483,7 +485,7 @@ BlSubRopeExamplesTest >> testSmall_from_1_to_1_do [ ^ theIterated ] -{ #category : #'examples - from to' } +{ #category : 'examples - from to' } BlSubRopeExamplesTest >> testSmall_from_1_to_2 [ @@ -498,7 +500,7 @@ BlSubRopeExamplesTest >> testSmall_from_1_to_2 [ ^ aNewRope ] -{ #category : #'examples - enumeration' } +{ #category : 'examples - enumeration' } BlSubRopeExamplesTest >> testSmall_from_1_to_2_do [ @@ -516,7 +518,7 @@ BlSubRopeExamplesTest >> testSmall_from_1_to_2_do [ ^ theIterated ] -{ #category : #'examples - from to' } +{ #category : 'examples - from to' } BlSubRopeExamplesTest >> testSmall_from_1_to_5 [ @@ -531,7 +533,7 @@ BlSubRopeExamplesTest >> testSmall_from_1_to_5 [ ^ aNewRope ] -{ #category : #'examples - enumeration' } +{ #category : 'examples - enumeration' } BlSubRopeExamplesTest >> testSmall_from_1_to_5_do [ @@ -549,7 +551,7 @@ BlSubRopeExamplesTest >> testSmall_from_1_to_5_do [ ^ theIterated ] -{ #category : #'examples - from to' } +{ #category : 'examples - from to' } BlSubRopeExamplesTest >> testSmall_from_3_to_5 [ @@ -564,7 +566,7 @@ BlSubRopeExamplesTest >> testSmall_from_3_to_5 [ ^ aNewRope ] -{ #category : #'examples - enumeration' } +{ #category : 'examples - enumeration' } BlSubRopeExamplesTest >> testSmall_from_3_to_5_do [ @@ -582,7 +584,7 @@ BlSubRopeExamplesTest >> testSmall_from_3_to_5_do [ ^ theIterated ] -{ #category : #'examples - testing' } +{ #category : 'examples - testing' } BlSubRopeExamplesTest >> testSmall_isEmpty [ @@ -594,7 +596,7 @@ BlSubRopeExamplesTest >> testSmall_isEmpty [ ^ aRope ] -{ #category : #'examples - testing' } +{ #category : 'examples - testing' } BlSubRopeExamplesTest >> testSmall_isLeaf [ @@ -606,7 +608,7 @@ BlSubRopeExamplesTest >> testSmall_isLeaf [ ^ aRope ] -{ #category : #'examples - testing' } +{ #category : 'examples - testing' } BlSubRopeExamplesTest >> testSmall_isNotEmpty [ @@ -618,7 +620,7 @@ BlSubRopeExamplesTest >> testSmall_isNotEmpty [ ^ aRope ] -{ #category : #'examples - accessing' } +{ #category : 'examples - accessing' } BlSubRopeExamplesTest >> testSmall_size [ diff --git a/src/Bloc-Examples/BlTaskAtQueueExamples.class.st b/src/Bloc-Examples/BlTaskAtQueueExamples.class.st index a833ad99d..fb090a227 100644 --- a/src/Bloc-Examples/BlTaskAtQueueExamples.class.st +++ b/src/Bloc-Examples/BlTaskAtQueueExamples.class.st @@ -1,18 +1,20 @@ Class { - #name : #BlTaskAtQueueExamples, - #superclass : #TestCase, + #name : 'BlTaskAtQueueExamples', + #superclass : 'TestCase', #traits : 'TAssertable', #classTraits : 'TAssertable classTrait', - #category : #'Bloc-Examples-Tasks' + #category : 'Bloc-Examples-Tasks', + #package : 'Bloc-Examples', + #tag : 'Tasks' } -{ #category : #private } +{ #category : 'private' } BlTaskAtQueueExamples >> startTime [ ^ DateAndTime fromString: '2020-11-07T12:19:53.275521+01:00' ] -{ #category : #private } +{ #category : 'private' } BlTaskAtQueueExamples >> taskAtQueue [ "Answer the BlTaskAtQueue used for the examples. The queue is configured to use a simulated clock with a fixed current time for reproduceable tests." @@ -22,7 +24,7 @@ BlTaskAtQueueExamples >> taskAtQueue [ date: self startTime) ] -{ #category : #examples } +{ #category : 'examples' } BlTaskAtQueueExamples >> testRunNow [ "Queue a task that has a scheduled time in the past." @@ -35,7 +37,7 @@ BlTaskAtQueueExamples >> testRunNow [ self assert: taskRun ] -{ #category : #examples } +{ #category : 'examples' } BlTaskAtQueueExamples >> testRunOneInOneSecond [ "Queue a task that has a scheduled time in the past." @@ -54,7 +56,7 @@ BlTaskAtQueueExamples >> testRunOneInOneSecond [ self assert: taskRun ] -{ #category : #examples } +{ #category : 'examples' } BlTaskAtQueueExamples >> testRunPastTime [ "Queue a task that has a scheduled time in the past." @@ -67,7 +69,7 @@ BlTaskAtQueueExamples >> testRunPastTime [ self assert: taskRun ] -{ #category : #examples } +{ #category : 'examples' } BlTaskAtQueueExamples >> testRunTwoOneThree [ "Queue three tasks, out of order, and confirm correct execution." diff --git a/src/Bloc-Examples/BlTaskTest.class.st b/src/Bloc-Examples/BlTaskTest.class.st index 187be6360..17508529b 100644 --- a/src/Bloc-Examples/BlTaskTest.class.st +++ b/src/Bloc-Examples/BlTaskTest.class.st @@ -3,12 +3,13 @@ I have been automatically converted and probably manually tweaked from BlTaskExa Finally and more important such tests should not use setup because every method should be in capacity of returning a fully working object called an example :) " Class { - #name : #BlTaskTest, - #superclass : #TestCase, - #category : #'Bloc-Examples' + #name : 'BlTaskTest', + #superclass : 'TestCase', + #category : 'Bloc-Examples', + #package : 'Bloc-Examples' } -{ #category : #tests } +{ #category : 'tests' } BlTaskTest >> testAddElementWithTaskToSpace [ @@ -28,7 +29,7 @@ BlTaskTest >> testAddElementWithTaskToSpace [ ^ aSpace ] -{ #category : #tests } +{ #category : 'tests' } BlTaskTest >> testAddTaskToTheElementWithoutSpace [ @@ -51,7 +52,7 @@ BlTaskTest >> testAddTaskToTheElementWithoutSpace [ ^ anElement ] -{ #category : #tests } +{ #category : 'tests' } BlTaskTest >> testPulseSpaceWithTask [ diff --git a/src/Bloc-Examples/TBlHandlerRegistryExamples.trait.st b/src/Bloc-Examples/TBlHandlerRegistryExamples.trait.st index 700f7cc51..c64164f61 100644 --- a/src/Bloc-Examples/TBlHandlerRegistryExamples.trait.st +++ b/src/Bloc-Examples/TBlHandlerRegistryExamples.trait.st @@ -2,18 +2,20 @@ I define examples of the public api of event handler registry. All concrete implementations should behave in the same way " Trait { - #name : #TBlHandlerRegistryExamples, - #category : #'Bloc-Examples-EventHandling' + #name : 'TBlHandlerRegistryExamples', + #category : 'Bloc-Examples-EventHandling', + #package : 'Bloc-Examples', + #tag : 'EventHandling' } -{ #category : #'instance creation' } +{ #category : 'instance creation' } TBlHandlerRegistryExamples >> emptyRegistry [ ^ self explicitRequirement ] -{ #category : #'examples - add' } +{ #category : 'examples - add' } TBlHandlerRegistryExamples >> testAddMouseDown [ @@ -28,7 +30,7 @@ TBlHandlerRegistryExamples >> testAddMouseDown [ ^ aRegistry ] -{ #category : #'examples - add' } +{ #category : 'examples - add' } TBlHandlerRegistryExamples >> testAddMouseDownAndMouseUp [ @@ -41,7 +43,7 @@ TBlHandlerRegistryExamples >> testAddMouseDownAndMouseUp [ ^ aRegistry ] -{ #category : #'examples - add' } +{ #category : 'examples - add' } TBlHandlerRegistryExamples >> testAddMouseDownTwice [ @@ -54,7 +56,7 @@ TBlHandlerRegistryExamples >> testAddMouseDownTwice [ ^ aRegistry ] -{ #category : #'examples - add' } +{ #category : 'examples - add' } TBlHandlerRegistryExamples >> testAddMouseDownTwiceAndMouseUp [ @@ -67,7 +69,7 @@ TBlHandlerRegistryExamples >> testAddMouseDownTwiceAndMouseUp [ ^ aRegistry ] -{ #category : #'examples - remove' } +{ #category : 'examples - remove' } TBlHandlerRegistryExamples >> testRemoveAllMouseDownFromTwice [ @@ -82,7 +84,7 @@ TBlHandlerRegistryExamples >> testRemoveAllMouseDownFromTwice [ ^ aRegistry ] -{ #category : #'examples - remove' } +{ #category : 'examples - remove' } TBlHandlerRegistryExamples >> testRemoveAllMouseDownFromTwiceLeaveUp [ @@ -97,7 +99,7 @@ TBlHandlerRegistryExamples >> testRemoveAllMouseDownFromTwiceLeaveUp [ ^ aRegistry ] -{ #category : #'examples - remove' } +{ #category : 'examples - remove' } TBlHandlerRegistryExamples >> testRemoveMouseDownLeaveEmpty [ @@ -111,7 +113,7 @@ TBlHandlerRegistryExamples >> testRemoveMouseDownLeaveEmpty [ ^ aRegistry ] -{ #category : #'examples - remove' } +{ #category : 'examples - remove' } TBlHandlerRegistryExamples >> testRemoveMouseUpLeaveMouseDown [ diff --git a/src/Bloc-Examples/package.st b/src/Bloc-Examples/package.st index dc7bc0e3c..f1a92b3f7 100644 --- a/src/Bloc-Examples/package.st +++ b/src/Bloc-Examples/package.st @@ -1 +1 @@ -Package { #name : #'Bloc-Examples' } +Package { #name : 'Bloc-Examples' } diff --git a/src/Bloc-Text-Tests/BlIntervalCollectorTest.class.st b/src/Bloc-Text-Tests/BlIntervalCollectorTest.class.st index 00ccd3c76..d7b13336b 100644 --- a/src/Bloc-Text-Tests/BlIntervalCollectorTest.class.st +++ b/src/Bloc-Text-Tests/BlIntervalCollectorTest.class.st @@ -2,33 +2,35 @@ A BlIntervalCollectorTest is a test class for testing the behavior of BlIntervalCollector " Class { - #name : #BlIntervalCollectorTest, - #superclass : #TestCase, + #name : 'BlIntervalCollectorTest', + #superclass : 'TestCase', #instVars : [ 'collector' ], - #category : #'Bloc-Text-Tests-Text-Operator' + #category : 'Bloc-Text-Tests-Text-Operator', + #package : 'Bloc-Text-Tests', + #tag : 'Text-Operator' } -{ #category : #initialization } +{ #category : 'initialization' } BlIntervalCollectorTest >> setUp [ super setUp. collector := BlIntervalCollector new ] -{ #category : #initialization } +{ #category : 'initialization' } BlIntervalCollectorTest >> testWithNoText [ self assert: (collector searchAll:'AA') isEmpty ] -{ #category : #initialization } +{ #category : 'initialization' } BlIntervalCollectorTest >> testWithTextNoSubstring [ collector text: 'XXXXXXXXX'. self assert: (collector searchAll: 'AA') isEmpty ] -{ #category : #initialization } +{ #category : 'initialization' } BlIntervalCollectorTest >> testWithTextOneSubstringAt_1 [ | result | collector text: 'AAXXXXXXX'. @@ -38,7 +40,7 @@ BlIntervalCollectorTest >> testWithTextOneSubstringAt_1 [ self assert: result first last equals: 2. ] -{ #category : #initialization } +{ #category : 'initialization' } BlIntervalCollectorTest >> testWithTextOneSubstring_1 [ | result | collector text: 'AAAAAA'. @@ -52,7 +54,7 @@ BlIntervalCollectorTest >> testWithTextOneSubstring_1 [ self assert: result third last equals: 6 ] -{ #category : #initialization } +{ #category : 'initialization' } BlIntervalCollectorTest >> testWithTextOneSubstring_2 [ | result | collector text: 'AA AA AA A'. @@ -66,7 +68,7 @@ BlIntervalCollectorTest >> testWithTextOneSubstring_2 [ self assert: result third last equals: 8 ] -{ #category : #initialization } +{ #category : 'initialization' } BlIntervalCollectorTest >> testWithTextOneSubstring_3 [ | result | collector text: ' AA AA AA A'. @@ -77,7 +79,7 @@ BlIntervalCollectorTest >> testWithTextOneSubstring_3 [ ] -{ #category : #initialization } +{ #category : 'initialization' } BlIntervalCollectorTest >> testWithTextOneSubstring_4 [ | result | collector text: ')))'. diff --git a/src/Bloc-Text-Tests/BlRopedTextTest2.class.st b/src/Bloc-Text-Tests/BlRopedTextTest2.class.st index 5404b4a94..f8317e5d6 100644 --- a/src/Bloc-Text-Tests/BlRopedTextTest2.class.st +++ b/src/Bloc-Text-Tests/BlRopedTextTest2.class.st @@ -3,12 +3,13 @@ I have been automatically converted and probably manually tweaked from BlRopedTe Finally and more important such tests should not use setup because every method should be in capacity of returning a fully working object called an example :) " Class { - #name : #BlRopedTextTest2, - #superclass : #TestCase, - #category : #'Bloc-Text-Tests' + #name : 'BlRopedTextTest2', + #superclass : 'TestCase', + #category : 'Bloc-Text-Tests', + #package : 'Bloc-Text-Tests' } -{ #category : #tests } +{ #category : 'tests' } BlRopedTextTest2 >> testAllAttributesSuchThat [ @@ -31,7 +32,7 @@ BlRopedTextTest2 >> testAllAttributesSuchThat [ ^ aText ] -{ #category : #tests } +{ #category : 'tests' } BlRopedTextTest2 >> testAppendEmptyText [ @@ -51,7 +52,7 @@ BlRopedTextTest2 >> testAppendEmptyText [ ^ aText ] -{ #category : #tests } +{ #category : 'tests' } BlRopedTextTest2 >> testInsertEmptyStrings [ @@ -71,7 +72,7 @@ BlRopedTextTest2 >> testInsertEmptyStrings [ ^ aText ] -{ #category : #tests } +{ #category : 'tests' } BlRopedTextTest2 >> testNextSpanFontColorOnHelloWorldWithColor [ @@ -106,7 +107,7 @@ BlRopedTextTest2 >> testNextSpanFontColorOnHelloWorldWithColor [ ^ aText ] -{ #category : #tests } +{ #category : 'tests' } BlRopedTextTest2 >> testTextForeground [ @@ -135,7 +136,7 @@ BlRopedTextTest2 >> testTextForeground [ ^ text ] -{ #category : #tests } +{ #category : 'tests' } BlRopedTextTest2 >> testTextWithAttributes [ @@ -154,7 +155,7 @@ BlRopedTextTest2 >> testTextWithAttributes [ ^ text ] -{ #category : #tests } +{ #category : 'tests' } BlRopedTextTest2 >> testTextWithCr [ diff --git a/src/Bloc-Text-Tests/BlTextDecorationStyleTest.class.st b/src/Bloc-Text-Tests/BlTextDecorationStyleTest.class.st index c7e4d8426..8c0098a9a 100644 --- a/src/Bloc-Text-Tests/BlTextDecorationStyleTest.class.st +++ b/src/Bloc-Text-Tests/BlTextDecorationStyleTest.class.st @@ -3,12 +3,13 @@ I have been automatically converted and probably manually tweaked from BlTextDec Finally and more important such tests should not use setup because every method should be in capacity of returning a fully working object called an example :) " Class { - #name : #BlTextDecorationStyleTest, - #superclass : #TestCase, - #category : #'Bloc-Text-Tests' + #name : 'BlTextDecorationStyleTest', + #superclass : 'TestCase', + #category : 'Bloc-Text-Tests', + #package : 'Bloc-Text-Tests' } -{ #category : #tests } +{ #category : 'tests' } BlTextDecorationStyleTest >> testDashed [ @@ -27,7 +28,7 @@ BlTextDecorationStyleTest >> testDashed [ ^ aStyle ] -{ #category : #tests } +{ #category : 'tests' } BlTextDecorationStyleTest >> testDotted [ @@ -46,7 +47,7 @@ BlTextDecorationStyleTest >> testDotted [ ^ aStyle ] -{ #category : #tests } +{ #category : 'tests' } BlTextDecorationStyleTest >> testDouble [ @@ -65,7 +66,7 @@ BlTextDecorationStyleTest >> testDouble [ ^ aStyle ] -{ #category : #tests } +{ #category : 'tests' } BlTextDecorationStyleTest >> testSolid [ @@ -84,7 +85,7 @@ BlTextDecorationStyleTest >> testSolid [ ^ aStyle ] -{ #category : #tests } +{ #category : 'tests' } BlTextDecorationStyleTest >> testWavy [ diff --git a/src/Bloc-Text-Tests/BlTextElementTest.class.st b/src/Bloc-Text-Tests/BlTextElementTest.class.st index 813e44fe0..70c36057f 100644 --- a/src/Bloc-Text-Tests/BlTextElementTest.class.st +++ b/src/Bloc-Text-Tests/BlTextElementTest.class.st @@ -3,33 +3,34 @@ I have been automatically converted and probably manually tweaked from BlTextEle Finally and more important such tests should not use setup because every method should be in capacity of returning a fully working object called an example :) " Class { - #name : #BlTextElementTest, - #superclass : #TestCase, - #category : #'Bloc-Text-Tests' + #name : 'BlTextElementTest', + #superclass : 'TestCase', + #category : 'Bloc-Text-Tests', + #package : 'Bloc-Text-Tests' } -{ #category : #metadata } +{ #category : 'metadata' } BlTextElementTest >> originClassName [ "This test was generated from..." ^ 'BlTextElementExamples' ] -{ #category : #tests } +{ #category : 'tests' } BlTextElementTest >> testHelloText [ ^ 'mama' asRopedText fontSize: 80 ] -{ #category : #tests } +{ #category : 'tests' } BlTextElementTest >> testLoremIpsumText [ ^ (String loremIpsum: 50) asRopedText ] -{ #category : #tests } +{ #category : 'tests' } BlTextElementTest >> testSimpleText [ @@ -43,7 +44,7 @@ BlTextElementTest >> testSimpleText [ ^ textElement ] -{ #category : #tests } +{ #category : 'tests' } BlTextElementTest >> testTextAttributes [ @@ -79,7 +80,7 @@ BlTextElementTest >> testTextAttributes [ ^ textElement ] -{ #category : #tests } +{ #category : 'tests' } BlTextElementTest >> testTextElement [ diff --git a/src/Bloc-Text-Tests/BlTextOperatorTest.class.st b/src/Bloc-Text-Tests/BlTextOperatorTest.class.st index 4c30f65a7..d8de517e3 100644 --- a/src/Bloc-Text-Tests/BlTextOperatorTest.class.st +++ b/src/Bloc-Text-Tests/BlTextOperatorTest.class.st @@ -3,12 +3,13 @@ I have been automatically converted and probably manually tweaked from BlTextOpe Finally and more important such tests should not use setup because every method should be in capacity of returning a fully working object called an example :) " Class { - #name : #BlTextOperatorTest, - #superclass : #TestCase, - #category : #'Bloc-Text-Tests' + #name : 'BlTextOperatorTest', + #superclass : 'TestCase', + #category : 'Bloc-Text-Tests', + #package : 'Bloc-Text-Tests' } -{ #category : #tests } +{ #category : 'tests' } BlTextOperatorTest >> testFindCaseInsensitiveSubStringInTheMiddle [ @@ -23,7 +24,7 @@ BlTextOperatorTest >> testFindCaseInsensitiveSubStringInTheMiddle [ ^ aText ] -{ #category : #tests } +{ #category : 'tests' } BlTextOperatorTest >> testFindGCharacterInAMiddle [ @@ -38,7 +39,7 @@ BlTextOperatorTest >> testFindGCharacterInAMiddle [ ^ aText ] -{ #category : #tests } +{ #category : 'tests' } BlTextOperatorTest >> testFindGCharacterInAMiddleReversed [ @@ -55,7 +56,7 @@ BlTextOperatorTest >> testFindGCharacterInAMiddleReversed [ ^ aText ] -{ #category : #tests } +{ #category : 'tests' } BlTextOperatorTest >> testFindIngSubStringInTheMiddle [ @@ -70,7 +71,7 @@ BlTextOperatorTest >> testFindIngSubStringInTheMiddle [ ^ aText ] -{ #category : #tests } +{ #category : 'tests' } BlTextOperatorTest >> testFindIngSubStringInTheMiddleReversed [ @@ -87,7 +88,7 @@ BlTextOperatorTest >> testFindIngSubStringInTheMiddleReversed [ ^ aText ] -{ #category : #tests } +{ #category : 'tests' } BlTextOperatorTest >> testFindLCharacterAtTheBeginning [ @@ -102,7 +103,7 @@ BlTextOperatorTest >> testFindLCharacterAtTheBeginning [ ^ aText ] -{ #category : #tests } +{ #category : 'tests' } BlTextOperatorTest >> testFindLCharacterAtTheBeginningReversed [ @@ -119,7 +120,7 @@ BlTextOperatorTest >> testFindLCharacterAtTheBeginningReversed [ ^ aText ] -{ #category : #tests } +{ #category : 'tests' } BlTextOperatorTest >> testFindLookSubStringInTheBeginning [ @@ -134,7 +135,7 @@ BlTextOperatorTest >> testFindLookSubStringInTheBeginning [ ^ aText ] -{ #category : #tests } +{ #category : 'tests' } BlTextOperatorTest >> testFindLookSubStringInTheBeginningReversed [ @@ -151,7 +152,7 @@ BlTextOperatorTest >> testFindLookSubStringInTheBeginningReversed [ ^ aText ] -{ #category : #tests } +{ #category : 'tests' } BlTextOperatorTest >> testFindNoSubString [ @@ -164,7 +165,7 @@ BlTextOperatorTest >> testFindNoSubString [ ^ aText ] -{ #category : #tests } +{ #category : 'tests' } BlTextOperatorTest >> testFindNoSubStringReversed [ @@ -179,7 +180,7 @@ BlTextOperatorTest >> testFindNoSubStringReversed [ ^ aText ] -{ #category : #tests } +{ #category : 'tests' } BlTextOperatorTest >> testFindNothing [ @@ -192,7 +193,7 @@ BlTextOperatorTest >> testFindNothing [ ^ aText ] -{ #category : #tests } +{ #category : 'tests' } BlTextOperatorTest >> testFindRCharacterAtTheEnd [ @@ -207,7 +208,7 @@ BlTextOperatorTest >> testFindRCharacterAtTheEnd [ ^ aText ] -{ #category : #tests } +{ #category : 'tests' } BlTextOperatorTest >> testFindRCharacterAtTheEndReversed [ @@ -224,7 +225,7 @@ BlTextOperatorTest >> testFindRCharacterAtTheEndReversed [ ^ aText ] -{ #category : #tests } +{ #category : 'tests' } BlTextOperatorTest >> testFindRingSubStringInTheEnd [ @@ -239,7 +240,7 @@ BlTextOperatorTest >> testFindRingSubStringInTheEnd [ ^ aText ] -{ #category : #tests } +{ #category : 'tests' } BlTextOperatorTest >> testFindRingSubStringInTheEndReversed [ @@ -256,7 +257,7 @@ BlTextOperatorTest >> testFindRingSubStringInTheEndReversed [ ^ aText ] -{ #category : #tests } +{ #category : 'tests' } BlTextOperatorTest >> testFindxXCharactersAtTheBeginning [ @@ -271,7 +272,7 @@ BlTextOperatorTest >> testFindxXCharactersAtTheBeginning [ ^ aText ] -{ #category : #tests } +{ #category : 'tests' } BlTextOperatorTest >> testLineBreaks [ @@ -282,7 +283,7 @@ BlTextOperatorTest >> testLineBreaks [ ^ aString ] -{ #category : #tests } +{ #category : 'tests' } BlTextOperatorTest >> testSeparators [ @@ -293,14 +294,14 @@ BlTextOperatorTest >> testSeparators [ ^ aString ] -{ #category : #tests } +{ #category : 'tests' } BlTextOperatorTest >> testStringWithLineBreaksInTheMiddle [ ^ 'the first text' , self testLineBreaks , 'the second text' ] -{ #category : #tests } +{ #category : 'tests' } BlTextOperatorTest >> testStringWithLineBreaksOnBothSidesAndInTheMiddle [ @@ -308,14 +309,14 @@ BlTextOperatorTest >> testStringWithLineBreaksOnBothSidesAndInTheMiddle [ , self testLineBreaks ] -{ #category : #tests } +{ #category : 'tests' } BlTextOperatorTest >> testStringWithSeparatorsInTheMiddle [ ^ 'the first text' , self testSeparators , 'the second text' ] -{ #category : #tests } +{ #category : 'tests' } BlTextOperatorTest >> testStringWithSeparatorsOnBothSidesAndInTheMiddle [ @@ -323,7 +324,7 @@ BlTextOperatorTest >> testStringWithSeparatorsOnBothSidesAndInTheMiddle [ , self testSeparators ] -{ #category : #tests } +{ #category : 'tests' } BlTextOperatorTest >> testTrimBothTextWithLineBreakssOnBothSidesAndInTheMiddle [ @@ -340,7 +341,7 @@ BlTextOperatorTest >> testTrimBothTextWithLineBreakssOnBothSidesAndInTheMiddle [ ^ aText ] -{ #category : #tests } +{ #category : 'tests' } BlTextOperatorTest >> testTrimBothTextWithSeparatorsOnBothSidesAndInTheMiddle [ @@ -357,7 +358,7 @@ BlTextOperatorTest >> testTrimBothTextWithSeparatorsOnBothSidesAndInTheMiddle [ ^ aText ] -{ #category : #tests } +{ #category : 'tests' } BlTextOperatorTest >> testTrimEmptyText [ @@ -370,7 +371,7 @@ BlTextOperatorTest >> testTrimEmptyText [ ^ aText ] -{ #category : #tests } +{ #category : 'tests' } BlTextOperatorTest >> testTrimLeftTextWithSeparatorsOnBothSidesAndInTheMiddle [ @@ -387,7 +388,7 @@ BlTextOperatorTest >> testTrimLeftTextWithSeparatorsOnBothSidesAndInTheMiddle [ ^ aText ] -{ #category : #tests } +{ #category : 'tests' } BlTextOperatorTest >> testTrimOnlySeparatorsText [ @@ -400,7 +401,7 @@ BlTextOperatorTest >> testTrimOnlySeparatorsText [ ^ aText ] -{ #category : #tests } +{ #category : 'tests' } BlTextOperatorTest >> testTrimRightTextWithSeparatorsOnBothSidesAndInTheMiddle [ diff --git a/src/Bloc-Text-Tests/package.st b/src/Bloc-Text-Tests/package.st index 9a569d03d..a4f04b28a 100644 --- a/src/Bloc-Text-Tests/package.st +++ b/src/Bloc-Text-Tests/package.st @@ -1 +1 @@ -Package { #name : #'Bloc-Text-Tests' } +Package { #name : 'Bloc-Text-Tests' } diff --git a/src/Bloc-Text/BlAscentLooseBaselineMeasurer.class.st b/src/Bloc-Text/BlAscentLooseBaselineMeasurer.class.st index 88163d078..8859ddfe9 100644 --- a/src/Bloc-Text/BlAscentLooseBaselineMeasurer.class.st +++ b/src/Bloc-Text/BlAscentLooseBaselineMeasurer.class.st @@ -4,12 +4,14 @@ I am a baseline which is computed based on ascent property of the paragraph " Class { - #name : #BlAscentLooseBaselineMeasurer, - #superclass : #BlTextParagraphBaselineMeasurer, - #category : #'Bloc-Text-Text-Paragraph' + #name : 'BlAscentLooseBaselineMeasurer', + #superclass : 'BlTextParagraphBaselineMeasurer', + #category : 'Bloc-Text-Text-Paragraph', + #package : 'Bloc-Text', + #tag : 'Text-Paragraph' } -{ #category : #baseline } +{ #category : 'baseline' } BlAscentLooseBaselineMeasurer >> computedBaseline: aTextParagraph [ diff --git a/src/Bloc-Text/BlAscentTightBaselineMeasurer.class.st b/src/Bloc-Text/BlAscentTightBaselineMeasurer.class.st index 45e498da0..b3ad71b3c 100644 --- a/src/Bloc-Text/BlAscentTightBaselineMeasurer.class.st +++ b/src/Bloc-Text/BlAscentTightBaselineMeasurer.class.st @@ -1,10 +1,12 @@ Class { - #name : #BlAscentTightBaselineMeasurer, - #superclass : #BlTextParagraphBaselineMeasurer, - #category : #'Bloc-Text-Text-Paragraph' + #name : 'BlAscentTightBaselineMeasurer', + #superclass : 'BlTextParagraphBaselineMeasurer', + #category : 'Bloc-Text-Text-Paragraph', + #package : 'Bloc-Text', + #tag : 'Text-Paragraph' } -{ #category : #baseline } +{ #category : 'baseline' } BlAscentTightBaselineMeasurer >> computedBaseline: aTextParagraph [ ^ aTextParagraph left negated @ aTextParagraph ascent abs diff --git a/src/Bloc-Text/BlAttributeRope.extension.st b/src/Bloc-Text/BlAttributeRope.extension.st index 9939f4155..ac1ba9b35 100644 --- a/src/Bloc-Text/BlAttributeRope.extension.st +++ b/src/Bloc-Text/BlAttributeRope.extension.st @@ -1,6 +1,6 @@ -Extension { #name : #BlAttributeRope } +Extension { #name : 'BlAttributeRope' } -{ #category : #'*Bloc-Text' } +{ #category : '*Bloc-Text' } BlAttributeRope >> encodeOn: aWriteStream with: aZnCharacterEncoder [ "Encode my rope on a ByteString stream using the provided Zinc encoder." diff --git a/src/Bloc-Text/BlBoundsBaselineMeasurer.class.st b/src/Bloc-Text/BlBoundsBaselineMeasurer.class.st index cce46b8e7..15d456e6c 100644 --- a/src/Bloc-Text/BlBoundsBaselineMeasurer.class.st +++ b/src/Bloc-Text/BlBoundsBaselineMeasurer.class.st @@ -1,10 +1,12 @@ Class { - #name : #BlBoundsBaselineMeasurer, - #superclass : #BlTextParagraphBaselineMeasurer, - #category : #'Bloc-Text-Text-Paragraph' + #name : 'BlBoundsBaselineMeasurer', + #superclass : 'BlTextParagraphBaselineMeasurer', + #category : 'Bloc-Text-Text-Paragraph', + #package : 'Bloc-Text', + #tag : 'Text-Paragraph' } -{ #category : #baseline } +{ #category : 'baseline' } BlBoundsBaselineMeasurer >> computedBaseline: aTextParagraph [ diff --git a/src/Bloc-Text/BlCharacterText.class.st b/src/Bloc-Text/BlCharacterText.class.st index 001c3a321..301a84297 100644 --- a/src/Bloc-Text/BlCharacterText.class.st +++ b/src/Bloc-Text/BlCharacterText.class.st @@ -6,12 +6,14 @@ Similar to the String I can not modified (insertion or deletions). Therefore " Class { - #name : #BlCharacterText, - #superclass : #BlReadonlyText, - #category : #'Bloc-Text-Text' + #name : 'BlCharacterText', + #superclass : 'BlReadonlyText', + #category : 'Bloc-Text-Text', + #package : 'Bloc-Text', + #tag : 'Text' } -{ #category : #comparing } +{ #category : 'comparing' } BlCharacterText >> = anObject [ | myIterator | self == anObject @@ -39,7 +41,7 @@ BlCharacterText >> = anObject [ ^ true ] -{ #category : #accessing } +{ #category : 'accessing' } BlCharacterText >> at: anIndex [ "Return a character at a given index" @@ -47,7 +49,7 @@ BlCharacterText >> at: anIndex [ ^ (super at: anIndex) asCharacter ] -{ #category : #accessing } +{ #category : 'accessing' } BlCharacterText >> basicAt: anIndex [ "Return an integer representation of the character at a given index" @@ -55,7 +57,7 @@ BlCharacterText >> basicAt: anIndex [ ^ (self at: anIndex) asInteger ] -{ #category : #'text - copying' } +{ #category : 'text - copying' } BlCharacterText >> copyFrom: aStartIndex to: anEndIndex [ "For performance reasons I do not return a copy of the text because I am immutable. This speeds up parser by an order of magnitude. @@ -68,21 +70,21 @@ BlCharacterText >> copyFrom: aStartIndex to: anEndIndex [ ^ (self from: aStartIndex to: anEndIndex) characters ] -{ #category : #'text - enumeration' } +{ #category : 'text - enumeration' } BlCharacterText >> do: aBlock [ "Evaluate aBlock with every character as argument" self text do: [ :eachItem | aBlock value: eachItem asCharacter ] ] -{ #category : #'text - enumeration' } +{ #category : 'text - enumeration' } BlCharacterText >> from: aFromIndex to: aToIndex do: aBlock [ "Evaluate aBlock with every character as argument within interval [aFromIndex, aToIndex]" self text from: aFromIndex to: aToIndex do: [ :eachItem | aBlock value: eachItem asCharacter ] ] -{ #category : #comparing } +{ #category : 'comparing' } BlCharacterText >> hash [ | hash low | hash := self class hash bitAnd: 16rFFFFFFF. @@ -94,24 +96,24 @@ BlCharacterText >> hash [ ^ hash ] -{ #category : #'string - compatibility' } +{ #category : 'string - compatibility' } BlCharacterText >> isByteString [ ^ false ] -{ #category : #'string - compatibility' } +{ #category : 'string - compatibility' } BlCharacterText >> isString [ ^ true ] -{ #category : #'string - compatibility' } +{ #category : 'string - compatibility' } BlCharacterText >> trimBoth [ "Trim separators from both sides of the receiving string." ^ self trimmer bothSeparators trimmed ] -{ #category : #'string - compatibility' } +{ #category : 'string - compatibility' } BlCharacterText >> withoutTrailingNewlines [ "Return a copy of the receiver with any combination of cr/lf characters at the end removed" diff --git a/src/Bloc-Text/BlCollectionRope.extension.st b/src/Bloc-Text/BlCollectionRope.extension.st index 652ddec7e..3a6fcbf10 100644 --- a/src/Bloc-Text/BlCollectionRope.extension.st +++ b/src/Bloc-Text/BlCollectionRope.extension.st @@ -1,6 +1,6 @@ -Extension { #name : #BlCollectionRope } +Extension { #name : 'BlCollectionRope' } -{ #category : #'*Bloc-Text' } +{ #category : '*Bloc-Text' } BlCollectionRope >> encodeOn: aWriteStream with: aZnCharacterEncoder [ "Encode my collection on a ByteString stream using the provided Zinc encoder." diff --git a/src/Bloc-Text/BlConcatenationRope.extension.st b/src/Bloc-Text/BlConcatenationRope.extension.st index 7e827831f..fc61d9926 100644 --- a/src/Bloc-Text/BlConcatenationRope.extension.st +++ b/src/Bloc-Text/BlConcatenationRope.extension.st @@ -1,6 +1,6 @@ -Extension { #name : #BlConcatenationRope } +Extension { #name : 'BlConcatenationRope' } -{ #category : #'*Bloc-Text' } +{ #category : '*Bloc-Text' } BlConcatenationRope >> encodeOn: aWriteStream with: aZnCharacterEncoder [ "Encode my two branches on a ByteString stream using the provided Zinc encoder." diff --git a/src/Bloc-Text/BlEmptyText.class.st b/src/Bloc-Text/BlEmptyText.class.st index bea7ed9e5..f91711a95 100644 --- a/src/Bloc-Text/BlEmptyText.class.st +++ b/src/Bloc-Text/BlEmptyText.class.st @@ -1,25 +1,27 @@ Class { - #name : #BlEmptyText, - #superclass : #BlText, + #name : 'BlEmptyText', + #superclass : 'BlText', #classInstVars : [ 'uniqueInstance' ], - #category : #'Bloc-Text-Text' + #category : 'Bloc-Text-Text', + #package : 'Bloc-Text', + #tag : 'Text' } -{ #category : #cleanup } +{ #category : 'cleanup' } BlEmptyText class >> cleanUp [ super cleanUp. uniqueInstance := nil ] -{ #category : #accessing } +{ #category : 'accessing' } BlEmptyText class >> uniqueInstance [ ^ uniqueInstance ifNil: [ uniqueInstance := self new ] ] -{ #category : #'text - accessing' } +{ #category : 'text - accessing' } BlEmptyText >> at: anIndex [ "Return an item at a given index" @@ -27,26 +29,26 @@ BlEmptyText >> at: anIndex [ ^ self errorSubscriptBounds: anIndex ] -{ #category : #'text - attributes' } +{ #category : 'text - attributes' } BlEmptyText >> attributes: anAttributesCollection [ ] -{ #category : #'text - attributes' } +{ #category : 'text - attributes' } BlEmptyText >> attributes: anAttributesCollection from: aStart to: anEnd [ "Apply given attributes on the text from aStart to anEnd" ] -{ #category : #'text - attributes' } +{ #category : 'text - attributes' } BlEmptyText >> attributesFinder [ ^ BlTextAttributesIgnoringFinder new ] -{ #category : #'text - attributes' } +{ #category : 'text - attributes' } BlEmptyText >> clearAttributes: aStart to: anEnd if: aBlock [ ] -{ #category : #'text - copying' } +{ #category : 'text - copying' } BlEmptyText >> copyFrom: aStartIndex to: anEndIndex [ "Create a copy of this text within a given indices interval. Note: I am different from ==#from:to:== in a sense that I don't create a sub-text that points @@ -58,15 +60,15 @@ BlEmptyText >> copyFrom: aStartIndex to: anEndIndex [ ^ self ] -{ #category : #'text - modifications' } +{ #category : 'text - modifications' } BlEmptyText >> deleteAll: aCollectionOfIntervals [ ] -{ #category : #'text - enumeration' } +{ #category : 'text - enumeration' } BlEmptyText >> do: aBlock [ ] -{ #category : #'text - accessing' } +{ #category : 'text - accessing' } BlEmptyText >> empty [ "Return a similar (the same backend data structure) but empty text" @@ -74,18 +76,18 @@ BlEmptyText >> empty [ ^ self ] -{ #category : #'text - converting' } +{ #category : 'text - converting' } BlEmptyText >> encodeOn: aWriteStream with: aZnCharacterEncoder [ "Encode myself on a ByteString stream using the provided Zinc encoder." ] -{ #category : #'text - enumeration' } +{ #category : 'text - enumeration' } BlEmptyText >> from: aFromIndex to: aToIndex do: aBlock [ ] -{ #category : #'text - copying' } +{ #category : 'text - copying' } BlEmptyText >> generation [ "Return an object that uniquely represents this generation of text" @@ -93,21 +95,21 @@ BlEmptyText >> generation [ ^ self ] -{ #category : #'text - modifications' } +{ #category : 'text - modifications' } BlEmptyText >> insertStrings: aCollectionOfStrings atAll: aCollectionOfIndices [ ] -{ #category : #'text - modifications' } +{ #category : 'text - modifications' } BlEmptyText >> insertText: aString at: anIndex [ ] -{ #category : #'text - testing' } +{ #category : 'text - testing' } BlEmptyText >> isEmpty [ ^ true ] -{ #category : #'text - enumeration' } +{ #category : 'text - enumeration' } BlEmptyText >> iterator [ "Return an iterator pointing to the first text item (character) limited only by the text size" @@ -115,7 +117,7 @@ BlEmptyText >> iterator [ ^ BlEmptyTextIterator new ] -{ #category : #'text - enumeration' } +{ #category : 'text - enumeration' } BlEmptyText >> iterator: aStartIndex to: anEndIndex [ @@ -126,13 +128,13 @@ BlEmptyText >> iterator: aStartIndex to: anEndIndex [ ^ BlEmptyTextIterator new ] -{ #category : #'text - accessing' } +{ #category : 'text - accessing' } BlEmptyText >> size [ ^ 0 ] -{ #category : #'text - attributes' } +{ #category : 'text - attributes' } BlEmptyText >> unstyle: aFromIndex to: aToIndex [ ] diff --git a/src/Bloc-Text/BlEmptyTextIterator.class.st b/src/Bloc-Text/BlEmptyTextIterator.class.st index 510d089b9..57fbccea2 100644 --- a/src/Bloc-Text/BlEmptyTextIterator.class.st +++ b/src/Bloc-Text/BlEmptyTextIterator.class.st @@ -1,10 +1,12 @@ Class { - #name : #BlEmptyTextIterator, - #superclass : #BlTextIterator, - #category : #'Bloc-Text-Text' + #name : 'BlEmptyTextIterator', + #superclass : 'BlTextIterator', + #category : 'Bloc-Text-Text', + #package : 'Bloc-Text', + #tag : 'Text' } -{ #category : #'iterator - accessing' } +{ #category : 'iterator - accessing' } BlEmptyTextIterator >> attributes [ "Return a collection of rope attributes at a current position without duplicates" @@ -12,14 +14,14 @@ BlEmptyTextIterator >> attributes [ ^ #() ] -{ #category : #'iterator - accessing' } +{ #category : 'iterator - accessing' } BlEmptyTextIterator >> cursorPosition [ ^ 0 ] -{ #category : #'iterator - enumeration' } +{ #category : 'iterator - enumeration' } BlEmptyTextIterator >> detectAttribute: aBlock ifFound: aFoundBlock ifNone: anExceptionBlock [ "Evaluate aBlock with each of the receiver's elements as the argument. If some element evaluates aBlock to true, then cull this element into @@ -30,14 +32,14 @@ BlEmptyTextIterator >> detectAttribute: aBlock ifFound: aFoundBlock ifNone: anEx ^ anExceptionBlock value ] -{ #category : #testing } +{ #category : 'testing' } BlEmptyTextIterator >> hasNext [ "Return true if there is a next text item (character) after a current position" ^ false ] -{ #category : #'iterator - testing' } +{ #category : 'iterator - testing' } BlEmptyTextIterator >> hasPrevious [ "Return true if there is a previous text item (character) before the current position" @@ -45,7 +47,7 @@ BlEmptyTextIterator >> hasPrevious [ ^ false ] -{ #category : #'iterator - accessing' } +{ #category : 'iterator - accessing' } BlEmptyTextIterator >> position [ "Return current iterator position within a text" @@ -53,7 +55,7 @@ BlEmptyTextIterator >> position [ ^ 0 ] -{ #category : #accessing } +{ #category : 'accessing' } BlEmptyTextIterator >> text [ "Return an original text that I iterate over" diff --git a/src/Bloc-Text/BlFont.class.st b/src/Bloc-Text/BlFont.class.st index e05c49274..9ef598048 100644 --- a/src/Bloc-Text/BlFont.class.st +++ b/src/Bloc-Text/BlFont.class.st @@ -1,24 +1,26 @@ Class { - #name : #BlFont, - #superclass : #Object, + #name : 'BlFont', + #superclass : 'Object', #traits : 'TBlFontDescriptor + TBlFont', #classTraits : 'TBlFontDescriptor classTrait + TBlFont classTrait', - #category : #'Bloc-Text-Font' + #category : 'Bloc-Text-Font', + #package : 'Bloc-Text', + #tag : 'Font' } -{ #category : #defaults } +{ #category : 'defaults' } BlFont class >> defaultFamilyName [ ^ 'Source Sans Pro' ] -{ #category : #defaults } +{ #category : 'defaults' } BlFont class >> defaultFontSize [ "14pt" ^ 14 ] -{ #category : #performing } +{ #category : 'performing' } BlFont >> applyOnText: aBlText [ aBlText fontName: self familyName; @@ -27,14 +29,14 @@ BlFont >> applyOnText: aBlText [ perform: self fontSlant name ] -{ #category : #accessing } +{ #category : 'accessing' } BlFont >> fontPropertiesTarget [ ^ self ] -{ #category : #initialization } +{ #category : 'initialization' } BlFont >> initialize [ super initialize. diff --git a/src/Bloc-Text/BlFontEmphasisAttribute.class.st b/src/Bloc-Text/BlFontEmphasisAttribute.class.st index 53aae928a..7454180bf 100644 --- a/src/Bloc-Text/BlFontEmphasisAttribute.class.st +++ b/src/Bloc-Text/BlFontEmphasisAttribute.class.st @@ -1,32 +1,34 @@ Class { - #name : #BlFontEmphasisAttribute, - #superclass : #BlTextAttribute, - #category : #'Bloc-Text-Text-Attributes' + #name : 'BlFontEmphasisAttribute', + #superclass : 'BlTextAttribute', + #category : 'Bloc-Text-Text-Attributes', + #package : 'Bloc-Text', + #tag : 'Text-Attributes' } -{ #category : #'instance creation' } +{ #category : 'instance creation' } BlFontEmphasisAttribute class >> italic [ ^ BlFontItalicAttribute new ] -{ #category : #'instance creation' } +{ #category : 'instance creation' } BlFontEmphasisAttribute class >> normal [ ^ BlFontNormalAttribute new ] -{ #category : #'instance creation' } +{ #category : 'instance creation' } BlFontEmphasisAttribute class >> oblique [ ^ BlFontObliqueAttribute new ] -{ #category : #accessing } +{ #category : 'accessing' } BlFontEmphasisAttribute >> emphasisName [ ^ self subclassResponsibility ] -{ #category : #printing } +{ #category : 'printing' } BlFontEmphasisAttribute >> printOn: aStream [ aStream nextPutAll: 'font-style: '; diff --git a/src/Bloc-Text/BlFontFamilyAttribute.class.st b/src/Bloc-Text/BlFontFamilyAttribute.class.st index db07d22ce..475e7a1ef 100644 --- a/src/Bloc-Text/BlFontFamilyAttribute.class.st +++ b/src/Bloc-Text/BlFontFamilyAttribute.class.st @@ -1,42 +1,44 @@ Class { - #name : #BlFontFamilyAttribute, - #superclass : #BlTextAttribute, + #name : 'BlFontFamilyAttribute', + #superclass : 'BlTextAttribute', #instVars : [ 'name' ], - #category : #'Bloc-Text-Text-Attributes' + #category : 'Bloc-Text-Text-Attributes', + #package : 'Bloc-Text', + #tag : 'Text-Attributes' } -{ #category : #'instance creation' } +{ #category : 'instance creation' } BlFontFamilyAttribute class >> named: aString [ ^ self new name: aString; yourself ] -{ #category : #'text style' } +{ #category : 'text style' } BlFontFamilyAttribute >> applyOnFontAndStyleBuilder: aBlTextFontAndStyleBuilder [ aBlTextFontAndStyleBuilder familyName: self name ] -{ #category : #comparing } +{ #category : 'comparing' } BlFontFamilyAttribute >> equals: anAnotherAttribute [ ^ self name = anAnotherAttribute name ] -{ #category : #comparing } +{ #category : 'comparing' } BlFontFamilyAttribute >> hash [ "Answer an integer value that is related to the identity of the receiver." ^ super hash bitXor: self name hash ] -{ #category : #accessing } +{ #category : 'accessing' } BlFontFamilyAttribute >> name [ ^ name ] -{ #category : #accessing } +{ #category : 'accessing' } BlFontFamilyAttribute >> name: aString [ self assert: [ name isNil ] @@ -45,14 +47,14 @@ BlFontFamilyAttribute >> name: aString [ name := aString ] -{ #category : #printing } +{ #category : 'printing' } BlFontFamilyAttribute >> printOn: aStream [ aStream nextPutAll: 'font-family: '; nextPutAll: self name printString ] -{ #category : #printing } +{ #category : 'printing' } BlFontFamilyAttribute >> storeOn: aStream [ super storeOn: aStream. diff --git a/src/Bloc-Text/BlFontFamilyDefaultAttribute.class.st b/src/Bloc-Text/BlFontFamilyDefaultAttribute.class.st index 525a73094..eeb61f587 100644 --- a/src/Bloc-Text/BlFontFamilyDefaultAttribute.class.st +++ b/src/Bloc-Text/BlFontFamilyDefaultAttribute.class.st @@ -1,42 +1,44 @@ Class { - #name : #BlFontFamilyDefaultAttribute, - #superclass : #BlTextAttribute, + #name : 'BlFontFamilyDefaultAttribute', + #superclass : 'BlTextAttribute', #instVars : [ 'name' ], - #category : #'Bloc-Text-Text-Attributes' + #category : 'Bloc-Text-Text-Attributes', + #package : 'Bloc-Text', + #tag : 'Text-Attributes' } -{ #category : #'instance creation' } +{ #category : 'instance creation' } BlFontFamilyDefaultAttribute class >> named: aString [ ^ self new name: aString; yourself ] -{ #category : #'text style' } +{ #category : 'text style' } BlFontFamilyDefaultAttribute >> applyOnFontAndStyleBuilder: aBlTextFontAndStyleBuilder [ aBlTextFontAndStyleBuilder defaultFamilyName: self name ] -{ #category : #comparing } +{ #category : 'comparing' } BlFontFamilyDefaultAttribute >> equals: anAnotherAttribute [ ^ self name = anAnotherAttribute name ] -{ #category : #comparing } +{ #category : 'comparing' } BlFontFamilyDefaultAttribute >> hash [ "Answer an integer value that is related to the identity of the receiver." ^ super hash bitXor: self name hash ] -{ #category : #accessing } +{ #category : 'accessing' } BlFontFamilyDefaultAttribute >> name [ ^ name ] -{ #category : #accessing } +{ #category : 'accessing' } BlFontFamilyDefaultAttribute >> name: aString [ self assert: [ name isNil ] @@ -45,14 +47,14 @@ BlFontFamilyDefaultAttribute >> name: aString [ name := aString ] -{ #category : #printing } +{ #category : 'printing' } BlFontFamilyDefaultAttribute >> printOn: aStream [ aStream nextPutAll: 'font-family-default: '; nextPutAll: self name printString ] -{ #category : #printing } +{ #category : 'printing' } BlFontFamilyDefaultAttribute >> storeOn: aStream [ super storeOn: aStream. diff --git a/src/Bloc-Text/BlFontItalicAttribute.class.st b/src/Bloc-Text/BlFontItalicAttribute.class.st index af14605d9..8c9380d85 100644 --- a/src/Bloc-Text/BlFontItalicAttribute.class.st +++ b/src/Bloc-Text/BlFontItalicAttribute.class.st @@ -1,15 +1,17 @@ Class { - #name : #BlFontItalicAttribute, - #superclass : #BlFontEmphasisAttribute, - #category : #'Bloc-Text-Text-Attributes' + #name : 'BlFontItalicAttribute', + #superclass : 'BlFontEmphasisAttribute', + #category : 'Bloc-Text-Text-Attributes', + #package : 'Bloc-Text', + #tag : 'Text-Attributes' } -{ #category : #'text style' } +{ #category : 'text style' } BlFontItalicAttribute >> applyOnFontAndStyleBuilder: aBlTextFontAndStyleBuilder [ aBlTextFontAndStyleBuilder slantItalic ] -{ #category : #accessing } +{ #category : 'accessing' } BlFontItalicAttribute >> emphasisName [ diff --git a/src/Bloc-Text/BlFontNormalAttribute.class.st b/src/Bloc-Text/BlFontNormalAttribute.class.st index 95a28f440..3ba702d71 100644 --- a/src/Bloc-Text/BlFontNormalAttribute.class.st +++ b/src/Bloc-Text/BlFontNormalAttribute.class.st @@ -1,15 +1,17 @@ Class { - #name : #BlFontNormalAttribute, - #superclass : #BlFontEmphasisAttribute, - #category : #'Bloc-Text-Text-Attributes' + #name : 'BlFontNormalAttribute', + #superclass : 'BlFontEmphasisAttribute', + #category : 'Bloc-Text-Text-Attributes', + #package : 'Bloc-Text', + #tag : 'Text-Attributes' } -{ #category : #'text style' } +{ #category : 'text style' } BlFontNormalAttribute >> applyOnFontAndStyleBuilder: aBlTextFontAndStyleBuilder [ aBlTextFontAndStyleBuilder slantNormal ] -{ #category : #accessing } +{ #category : 'accessing' } BlFontNormalAttribute >> emphasisName [ diff --git a/src/Bloc-Text/BlFontObliqueAttribute.class.st b/src/Bloc-Text/BlFontObliqueAttribute.class.st index a9a239c7c..931649cdf 100644 --- a/src/Bloc-Text/BlFontObliqueAttribute.class.st +++ b/src/Bloc-Text/BlFontObliqueAttribute.class.st @@ -1,15 +1,17 @@ Class { - #name : #BlFontObliqueAttribute, - #superclass : #BlFontEmphasisAttribute, - #category : #'Bloc-Text-Text-Attributes' + #name : 'BlFontObliqueAttribute', + #superclass : 'BlFontEmphasisAttribute', + #category : 'Bloc-Text-Text-Attributes', + #package : 'Bloc-Text', + #tag : 'Text-Attributes' } -{ #category : #'text style' } +{ #category : 'text style' } BlFontObliqueAttribute >> applyOnFontAndStyleBuilder: aBlTextFontAndStyleBuilder [ aBlTextFontAndStyleBuilder slantOblique ] -{ #category : #accessing } +{ #category : 'accessing' } BlFontObliqueAttribute >> emphasisName [ diff --git a/src/Bloc-Text/BlFontSize.class.st b/src/Bloc-Text/BlFontSize.class.st index 3b4107a2b..05148ccb0 100644 --- a/src/Bloc-Text/BlFontSize.class.st +++ b/src/Bloc-Text/BlFontSize.class.st @@ -1,5 +1,7 @@ Class { - #name : #BlFontSize, - #superclass : #BlValueWithUnit, - #category : #'Bloc-Text-Text-Support' + #name : 'BlFontSize', + #superclass : 'BlValueWithUnit', + #category : 'Bloc-Text-Text-Support', + #package : 'Bloc-Text', + #tag : 'Text-Support' } diff --git a/src/Bloc-Text/BlFontSizeAttribute.class.st b/src/Bloc-Text/BlFontSizeAttribute.class.st index fa4fd60a3..315e20fbe 100644 --- a/src/Bloc-Text/BlFontSizeAttribute.class.st +++ b/src/Bloc-Text/BlFontSizeAttribute.class.st @@ -17,51 +17,53 @@ Internal Representation and Key Implementation Points. " Class { - #name : #BlFontSizeAttribute, - #superclass : #BlTextAttribute, + #name : 'BlFontSizeAttribute', + #superclass : 'BlTextAttribute', #instVars : [ 'size' ], - #category : #'Bloc-Text-Text-Attributes' + #category : 'Bloc-Text-Text-Attributes', + #package : 'Bloc-Text', + #tag : 'Text-Attributes' } -{ #category : #'instance creation' } +{ #category : 'instance creation' } BlFontSizeAttribute class >> size: aNumber [ ^ self new size: aNumber; yourself ] -{ #category : #'text style' } +{ #category : 'text style' } BlFontSizeAttribute >> applyOnFontAndStyleBuilder: aBlTextFontAndStyleBuilder [ aBlTextFontAndStyleBuilder fontSize: self size ] -{ #category : #comparing } +{ #category : 'comparing' } BlFontSizeAttribute >> equals: anAnotherAttribute [ ^ self size = anAnotherAttribute size ] -{ #category : #comparing } +{ #category : 'comparing' } BlFontSizeAttribute >> hash [ "Answer an integer value that is related to the identity of the receiver." ^ super hash bitXor: self size hash ] -{ #category : #printing } +{ #category : 'printing' } BlFontSizeAttribute >> printOn: aStream [ aStream nextPutAll: 'font-size: '; nextPutAll: self size asString ] -{ #category : #accessing } +{ #category : 'accessing' } BlFontSizeAttribute >> size [ ^ size ] -{ #category : #accessing } +{ #category : 'accessing' } BlFontSizeAttribute >> size: aNumber [ self assert: [ size isNil ] @@ -70,7 +72,7 @@ BlFontSizeAttribute >> size: aNumber [ size := aNumber ] -{ #category : #printing } +{ #category : 'printing' } BlFontSizeAttribute >> storeOn: aStream [ super storeOn: aStream. diff --git a/src/Bloc-Text/BlFontSizeDefaultAttribute.class.st b/src/Bloc-Text/BlFontSizeDefaultAttribute.class.st index 467d0a8a4..0e23645d0 100644 --- a/src/Bloc-Text/BlFontSizeDefaultAttribute.class.st +++ b/src/Bloc-Text/BlFontSizeDefaultAttribute.class.st @@ -1,49 +1,51 @@ Class { - #name : #BlFontSizeDefaultAttribute, - #superclass : #BlTextAttribute, + #name : 'BlFontSizeDefaultAttribute', + #superclass : 'BlTextAttribute', #instVars : [ 'size' ], - #category : #'Bloc-Text-Text-Attributes' + #category : 'Bloc-Text-Text-Attributes', + #package : 'Bloc-Text', + #tag : 'Text-Attributes' } -{ #category : #'instance creation' } +{ #category : 'instance creation' } BlFontSizeDefaultAttribute class >> size: aNumber [ ^ self new size: aNumber; yourself ] -{ #category : #'text style' } +{ #category : 'text style' } BlFontSizeDefaultAttribute >> applyOnFontAndStyleBuilder: aBlTextFontAndStyleBuilder [ aBlTextFontAndStyleBuilder defaultFontSizePt: self size value ] -{ #category : #comparing } +{ #category : 'comparing' } BlFontSizeDefaultAttribute >> equals: anAnotherAttribute [ ^ self size = anAnotherAttribute size ] -{ #category : #comparing } +{ #category : 'comparing' } BlFontSizeDefaultAttribute >> hash [ "Answer an integer value that is related to the identity of the receiver." ^ super hash bitXor: self size hash ] -{ #category : #printing } +{ #category : 'printing' } BlFontSizeDefaultAttribute >> printOn: aStream [ aStream nextPutAll: 'font-size-default: '; nextPutAll: self size asString ] -{ #category : #accessing } +{ #category : 'accessing' } BlFontSizeDefaultAttribute >> size [ ^ size ] -{ #category : #accessing } +{ #category : 'accessing' } BlFontSizeDefaultAttribute >> size: aNumber [ self assert: [ size isNil ] @@ -52,7 +54,7 @@ BlFontSizeDefaultAttribute >> size: aNumber [ size := aNumber ] -{ #category : #printing } +{ #category : 'printing' } BlFontSizeDefaultAttribute >> storeOn: aStream [ super storeOn: aStream. diff --git a/src/Bloc-Text/BlFontSlant.class.st b/src/Bloc-Text/BlFontSlant.class.st index ac8b28d6e..d985f2c2f 100644 --- a/src/Bloc-Text/BlFontSlant.class.st +++ b/src/Bloc-Text/BlFontSlant.class.st @@ -1,6 +1,6 @@ Class { - #name : #BlFontSlant, - #superclass : #SharedPool, + #name : 'BlFontSlant', + #superclass : 'SharedPool', #instVars : [ 'name', 'value' @@ -11,10 +11,12 @@ Class { 'Oblique', 'Slants' ], - #category : #'Bloc-Text-Font' + #category : 'Bloc-Text-Font', + #package : 'Bloc-Text', + #tag : 'Font' } -{ #category : #'instance creation' } +{ #category : 'instance creation' } BlFontSlant class >> fromNumber: aNumber [ Slants @@ -25,36 +27,36 @@ BlFontSlant class >> fromNumber: aNumber [ ^ Slants at: aNumber ifAbsent: [ self slant: aNumber name: #custom ] ] -{ #category : #'class initialization' } +{ #category : 'class initialization' } BlFontSlant class >> initialize [ Normal := self slant: 0 name: #normal. Italic := self slant: 1 name: #italic. Oblique := self slant: 2 name: #oblique ] -{ #category : #accessing } +{ #category : 'accessing' } BlFontSlant class >> italic [ ^ Italic ] -{ #category : #accessing } +{ #category : 'accessing' } BlFontSlant class >> normal [ ^ Normal ] -{ #category : #accessing } +{ #category : 'accessing' } BlFontSlant class >> oblique [ ^ Oblique ] -{ #category : #'instance creation' } +{ #category : 'instance creation' } BlFontSlant class >> slant: aSlantValue name: aSlantName [ ^ self new value: aSlantValue; name: aSlantName ] -{ #category : #comparing } +{ #category : 'comparing' } BlFontSlant >> = anObject [ "Answer whether the receiver and anObject represent the same object." @@ -65,26 +67,26 @@ BlFontSlant >> = anObject [ ^ value = anObject value ] -{ #category : #comparing } +{ #category : 'comparing' } BlFontSlant >> hash [ "Answer an integer value that is related to the identity of the receiver." ^ value hash ] -{ #category : #accessing } +{ #category : 'accessing' } BlFontSlant >> name [ ^ name ] -{ #category : #accessing } +{ #category : 'accessing' } BlFontSlant >> name: aSymbol [ name := aSymbol ] -{ #category : #printing } +{ #category : 'printing' } BlFontSlant >> printOn: aStream [ "Append a sequence of characters to aStream that identify the receiver." @@ -97,14 +99,14 @@ BlFontSlant >> printOn: aStream [ print: name ] -{ #category : #accessing } +{ #category : 'accessing' } BlFontSlant >> value [ ^ value ] -{ #category : #accessing } +{ #category : 'accessing' } BlFontSlant >> value: aNumber [ value := aNumber ] diff --git a/src/Bloc-Text/BlFontStretch.class.st b/src/Bloc-Text/BlFontStretch.class.st index 74812817e..3391cc2be 100644 --- a/src/Bloc-Text/BlFontStretch.class.st +++ b/src/Bloc-Text/BlFontStretch.class.st @@ -1,6 +1,6 @@ Class { - #name : #BlFontStretch, - #superclass : #SharedPool, + #name : 'BlFontStretch', + #superclass : 'SharedPool', #instVars : [ 'name', 'value' @@ -16,30 +16,32 @@ Class { 'UltraCondensed', 'UltraExpanded' ], - #category : #'Bloc-Text-Font' + #category : 'Bloc-Text-Font', + #package : 'Bloc-Text', + #tag : 'Font' } -{ #category : #accessing } +{ #category : 'accessing' } BlFontStretch class >> condensed [ ^ Condensed ] -{ #category : #accessing } +{ #category : 'accessing' } BlFontStretch class >> expanded [ ^ Expanded ] -{ #category : #accessing } +{ #category : 'accessing' } BlFontStretch class >> extraCondensed [ ^ ExtraCondensed ] -{ #category : #accessing } +{ #category : 'accessing' } BlFontStretch class >> extraExpanded [ ^ ExtraExpanded ] -{ #category : #'class initialization' } +{ #category : 'class initialization' } BlFontStretch class >> initialize [ UltraCondensed := self stretch: 0 name: #ultraCondensed. ExtraCondensed := self stretch: 1 name: #extraCondensed. @@ -52,39 +54,39 @@ BlFontStretch class >> initialize [ UltraExpanded := self stretch: 8 name: #ultraExpanded. ] -{ #category : #accessing } +{ #category : 'accessing' } BlFontStretch class >> normal [ ^ Normal ] -{ #category : #accessing } +{ #category : 'accessing' } BlFontStretch class >> semiCondensed [ ^ SemiCondensed ] -{ #category : #accessing } +{ #category : 'accessing' } BlFontStretch class >> semiExpanded [ ^ SemiExpanded ] -{ #category : #'instance creation' } +{ #category : 'instance creation' } BlFontStretch class >> stretch: aStretchValue name: aStretchName [ ^ self new value: aStretchValue; name: aStretchName ] -{ #category : #accessing } +{ #category : 'accessing' } BlFontStretch class >> ultraCondensed [ ^ UltraCondensed ] -{ #category : #accessing } +{ #category : 'accessing' } BlFontStretch class >> ultraExpanded [ ^ UltraExpanded ] -{ #category : #comparing } +{ #category : 'comparing' } BlFontStretch >> = anObject [ "Answer whether the receiver and anObject represent the same object." @@ -95,26 +97,26 @@ BlFontStretch >> = anObject [ ^ value = anObject value ] -{ #category : #comparing } +{ #category : 'comparing' } BlFontStretch >> hash [ "Answer an integer value that is related to the identity of the receiver." ^ value hash ] -{ #category : #accessing } +{ #category : 'accessing' } BlFontStretch >> name [ ^ name ] -{ #category : #accessing } +{ #category : 'accessing' } BlFontStretch >> name: aSymbol [ name := aSymbol ] -{ #category : #printing } +{ #category : 'printing' } BlFontStretch >> printOn: aStream [ "Append a sequence of characters to aStream that identify the receiver." @@ -127,14 +129,14 @@ BlFontStretch >> printOn: aStream [ print: value ] -{ #category : #evaluating } +{ #category : 'evaluating' } BlFontStretch >> value [ ^ value ] -{ #category : #accessing } +{ #category : 'accessing' } BlFontStretch >> value: aNumber [ value := aNumber ] diff --git a/src/Bloc-Text/BlFontWeight.class.st b/src/Bloc-Text/BlFontWeight.class.st index 377135823..22828111c 100644 --- a/src/Bloc-Text/BlFontWeight.class.st +++ b/src/Bloc-Text/BlFontWeight.class.st @@ -1,6 +1,6 @@ Class { - #name : #BlFontWeight, - #superclass : #SharedPool, + #name : 'BlFontWeight', + #superclass : 'SharedPool', #instVars : [ 'name', 'value' @@ -19,35 +19,37 @@ Class { 'Thin', 'Weights' ], - #category : #'Bloc-Text-Font' + #category : 'Bloc-Text-Font', + #package : 'Bloc-Text', + #tag : 'Font' } -{ #category : #accessing } +{ #category : 'accessing' } BlFontWeight class >> black [ ^ Black ] -{ #category : #accessing } +{ #category : 'accessing' } BlFontWeight class >> bold [ ^ Bold ] -{ #category : #accessing } +{ #category : 'accessing' } BlFontWeight class >> extraBlack [ ^ ExtraBlack ] -{ #category : #accessing } +{ #category : 'accessing' } BlFontWeight class >> extraBold [ ^ ExtraBold ] -{ #category : #accessing } +{ #category : 'accessing' } BlFontWeight class >> extraLight [ ^ ExtraLight ] -{ #category : #'class initialization' } +{ #category : 'class initialization' } BlFontWeight class >> fromNumber: aNumber [ Weights @@ -60,7 +62,7 @@ BlFontWeight class >> fromNumber: aNumber [ ifAbsent: [ self weight: aNumber name: #custom ] ] -{ #category : #'class initialization' } +{ #category : 'class initialization' } BlFontWeight class >> initialize [ Invisible := self weight: 0 name: #invisible. Thin := self weight: 100 name: #thin. @@ -75,44 +77,44 @@ BlFontWeight class >> initialize [ ExtraBlack := self weight: 1000 name: #extraBlack. ] -{ #category : #accessing } +{ #category : 'accessing' } BlFontWeight class >> invisible [ ^ Invisible ] -{ #category : #accessing } +{ #category : 'accessing' } BlFontWeight class >> light [ ^ Light ] -{ #category : #accessing } +{ #category : 'accessing' } BlFontWeight class >> medium [ ^ Medium ] -{ #category : #accessing } +{ #category : 'accessing' } BlFontWeight class >> normal [ ^ Normal ] -{ #category : #accessing } +{ #category : 'accessing' } BlFontWeight class >> semiBold [ ^ SemiBold ] -{ #category : #accessing } +{ #category : 'accessing' } BlFontWeight class >> thin [ ^ Thin ] -{ #category : #'instance creation' } +{ #category : 'instance creation' } BlFontWeight class >> weight: aWeightValue name: aWeightName [ ^ self new value: aWeightValue; name: aWeightName ] -{ #category : #comparing } +{ #category : 'comparing' } BlFontWeight >> = anObject [ "Answer whether the receiver and anObject represent the same object." @@ -123,26 +125,26 @@ BlFontWeight >> = anObject [ ^ value = anObject value ] -{ #category : #comparing } +{ #category : 'comparing' } BlFontWeight >> hash [ "Answer an integer value that is related to the identity of the receiver." ^ value hash ] -{ #category : #accessing } +{ #category : 'accessing' } BlFontWeight >> name [ ^ name ] -{ #category : #accessing } +{ #category : 'accessing' } BlFontWeight >> name: aSymbol [ name := aSymbol ] -{ #category : #printing } +{ #category : 'printing' } BlFontWeight >> printOn: aStream [ "Append a sequence of characters to aStream that identify the receiver." @@ -155,14 +157,14 @@ BlFontWeight >> printOn: aStream [ print: name ] -{ #category : #accessing } +{ #category : 'accessing' } BlFontWeight >> value [ ^ value ] -{ #category : #accessing } +{ #category : 'accessing' } BlFontWeight >> value: aNumber [ value := aNumber ] diff --git a/src/Bloc-Text/BlFontWeightAttribute.class.st b/src/Bloc-Text/BlFontWeightAttribute.class.st index 3778d9f30..c12269d9e 100644 --- a/src/Bloc-Text/BlFontWeightAttribute.class.st +++ b/src/Bloc-Text/BlFontWeightAttribute.class.st @@ -20,93 +20,95 @@ Internal Representation and Key Implementation Points. " Class { - #name : #BlFontWeightAttribute, - #superclass : #BlTextAttribute, + #name : 'BlFontWeightAttribute', + #superclass : 'BlTextAttribute', #instVars : [ 'weight' ], - #category : #'Bloc-Text-Text-Attributes' + #category : 'Bloc-Text-Text-Attributes', + #package : 'Bloc-Text', + #tag : 'Text-Attributes' } -{ #category : #'instance creation' } +{ #category : 'instance creation' } BlFontWeightAttribute class >> black [ ^ self new weight: LogicalFont weightBlack; yourself ] -{ #category : #'instance creation' } +{ #category : 'instance creation' } BlFontWeightAttribute class >> bold [ ^ self new weight: LogicalFont weightBold; yourself ] -{ #category : #'instance creation' } +{ #category : 'instance creation' } BlFontWeightAttribute class >> light [ ^ self new weight: LogicalFont weightLight; yourself ] -{ #category : #'instance creation' } +{ #category : 'instance creation' } BlFontWeightAttribute class >> medium [ ^ self new weight: LogicalFont weightMedium; yourself ] -{ #category : #'instance creation' } +{ #category : 'instance creation' } BlFontWeightAttribute class >> normal [ ^ self new weight: LogicalFont weightRegular; yourself ] -{ #category : #'instance creation' } +{ #category : 'instance creation' } BlFontWeightAttribute class >> thin [ ^ self new weight: LogicalFont weightThin; yourself ] -{ #category : #'instance creation' } +{ #category : 'instance creation' } BlFontWeightAttribute class >> weight: aNumber [ ^ self new weight: aNumber; yourself ] -{ #category : #'text style' } +{ #category : 'text style' } BlFontWeightAttribute >> applyOnFontAndStyleBuilder: aBlTextFontAndStyleBuilder [ aBlTextFontAndStyleBuilder fontWeight: self weight ] -{ #category : #comparing } +{ #category : 'comparing' } BlFontWeightAttribute >> equals: anAnotherAttribute [ ^ self weight = anAnotherAttribute weight ] -{ #category : #comparing } +{ #category : 'comparing' } BlFontWeightAttribute >> hash [ "Answer an integer value that is related to the identity of the receiver." ^ super hash bitXor: self weight hash ] -{ #category : #printing } +{ #category : 'printing' } BlFontWeightAttribute >> printOn: aStream [ aStream nextPutAll: 'font-weight: '; nextPutAll: self weight asString ] -{ #category : #accessing } +{ #category : 'accessing' } BlFontWeightAttribute >> weight [ ^ weight ] -{ #category : #accessing } +{ #category : 'accessing' } BlFontWeightAttribute >> weight: aNumber [ weight := aNumber ] diff --git a/src/Bloc-Text/BlGenerationText.class.st b/src/Bloc-Text/BlGenerationText.class.st index 173445dd8..d81870577 100644 --- a/src/Bloc-Text/BlGenerationText.class.st +++ b/src/Bloc-Text/BlGenerationText.class.st @@ -1,13 +1,15 @@ Class { - #name : #BlGenerationText, - #superclass : #BlReadonlyText, + #name : 'BlGenerationText', + #superclass : 'BlReadonlyText', #instVars : [ 'previousGeneration' ], - #category : #'Bloc-Text-Text' + #category : 'Bloc-Text-Text', + #package : 'Bloc-Text', + #tag : 'Text' } -{ #category : #'instance creation' } +{ #category : 'instance creation' } BlGenerationText class >> fromText: aBlText [ ^ self basicNew @@ -17,7 +19,7 @@ BlGenerationText class >> fromText: aBlText [ yourself ] -{ #category : #'text - copying' } +{ #category : 'text - copying' } BlGenerationText >> generation [ "Return an object that uniquely represents this generation of text" @@ -25,19 +27,19 @@ BlGenerationText >> generation [ ^ self text generation ] -{ #category : #initialization } +{ #category : 'initialization' } BlGenerationText >> initialize: aBlText with: aPreviousGeneration [ previousGeneration := aPreviousGeneration. text := aBlText ] -{ #category : #testing } +{ #category : 'testing' } BlGenerationText >> isNextGenerationOf: aBlText [ ^ self previousGeneration == aBlText generation ] -{ #category : #accessing } +{ #category : 'accessing' } BlGenerationText >> previousGeneration [ diff --git a/src/Bloc-Text/BlIntervalCollector.class.st b/src/Bloc-Text/BlIntervalCollector.class.st index 3b01aa3ea..fc7248832 100644 --- a/src/Bloc-Text/BlIntervalCollector.class.st +++ b/src/Bloc-Text/BlIntervalCollector.class.st @@ -3,61 +3,63 @@ I use a position finder (a `BlPositionFinder`) to search for all intervals satis " Class { - #name : #BlIntervalCollector, - #superclass : #BlTextOperator, + #name : 'BlIntervalCollector', + #superclass : 'BlTextOperator', #instVars : [ 'finder' ], - #category : #'Bloc-Text-Text-Operator' + #category : 'Bloc-Text-Text-Operator', + #package : 'Bloc-Text', + #tag : 'Text-Operator' } -{ #category : #'api - configuration' } +{ #category : 'api - configuration' } BlIntervalCollector >> caseInsensitiveSubstring: aString [ finder caseInsensitiveSubstring: aString ] -{ #category : #'api - configuration' } +{ #category : 'api - configuration' } BlIntervalCollector >> caseSensitiveSubstring: aString [ finder caseSensitiveSubstring: aString ] -{ #category : #'api - configuration' } +{ #category : 'api - configuration' } BlIntervalCollector >> character: aCharacter [ finder character: aCharacter ] -{ #category : #'api - configuration' } +{ #category : 'api - configuration' } BlIntervalCollector >> characters: aString [ finder characters: aString ] -{ #category : #initialization } +{ #category : 'initialization' } BlIntervalCollector >> initialize [ super initialize. finder := BlPositionFinder new ] -{ #category : #'api - configuration' } +{ #category : 'api - configuration' } BlIntervalCollector >> pattern: anOneArgBlock [ finder pattern: anOneArgBlock ] -{ #category : #'api - configuration' } +{ #category : 'api - configuration' } BlIntervalCollector >> reversed [ finder reversed ] -{ #category : #'api - processing' } +{ #category : 'api - processing' } BlIntervalCollector >> search [ ^ finder search ] -{ #category : #'api - processing' } +{ #category : 'api - processing' } BlIntervalCollector >> searchAll: aSubstring [ self substring: aSubstring. ^ Array streamContents: [ :stream | @@ -70,7 +72,7 @@ BlIntervalCollector >> searchAll: aSubstring [ finder startAtPosition: nextIdx + 1 ] ] ] ] -{ #category : #'api - processing' } +{ #category : 'api - processing' } BlIntervalCollector >> searchAll: aSubstring excluding: anInterval [ self pattern: [ :aText :aPosition | @@ -90,30 +92,30 @@ BlIntervalCollector >> searchAll: aSubstring excluding: anInterval [ finder startAtPosition: nextIdx + 1 ] ] ] ] -{ #category : #'api - configuration' } +{ #category : 'api - configuration' } BlIntervalCollector >> startAtEnd [ finder startAtEnd ] -{ #category : #'api - configuration' } +{ #category : 'api - configuration' } BlIntervalCollector >> startAtPosition: anInteger [ finder startAtPosition: anInteger ] -{ #category : #'api - configuration' } +{ #category : 'api - configuration' } BlIntervalCollector >> stepBy: anInteger [ finder stepBy: anInteger ] -{ #category : #'api - configuration' } +{ #category : 'api - configuration' } BlIntervalCollector >> substring: aString [ finder substring: aString ] -{ #category : #accessing } +{ #category : 'accessing' } BlIntervalCollector >> text: aBlText [ finder text: aBlText ] diff --git a/src/Bloc-Text/BlPositionFinder.class.st b/src/Bloc-Text/BlPositionFinder.class.st index 4d322613c..68bda7bb2 100644 --- a/src/Bloc-Text/BlPositionFinder.class.st +++ b/src/Bloc-Text/BlPositionFinder.class.st @@ -6,17 +6,19 @@ AS an example, I can be used to find the position of a substring within a text. Tests are mandatory for this kind of toolkit class " Class { - #name : #BlPositionFinder, - #superclass : #BlTextOperator, + #name : 'BlPositionFinder', + #superclass : 'BlTextOperator', #instVars : [ 'startIndex', 'patterns', 'stepLength' ], - #category : #'Bloc-Text-Text-Operator' + #category : 'Bloc-Text-Text-Operator', + #package : 'Bloc-Text', + #tag : 'Text-Operator' } -{ #category : #'api - configuration' } +{ #category : 'api - configuration' } BlPositionFinder >> caseInsensitiveSubstring: aString [ | aLowerCaseString | aLowerCaseString := aString asLowercase. @@ -26,7 +28,7 @@ BlPositionFinder >> caseInsensitiveSubstring: aString [ to: ((aPosition + aString size - 1) min: aText size)) asString asLowercase ] ] -{ #category : #'api - configuration' } +{ #category : 'api - configuration' } BlPositionFinder >> caseSensitiveSubstring: aString [ self pattern: [ :aText :aPosition | @@ -35,14 +37,14 @@ BlPositionFinder >> caseSensitiveSubstring: aString [ to: ((aPosition + aString size - 1) min: aText size)) asString ] ] -{ #category : #'api - configuration' } +{ #category : 'api - configuration' } BlPositionFinder >> character: aCharacter [ self pattern: [ :aText :aPosition | aCharacter = (aText at: aPosition) ] ] -{ #category : #'api - configuration' } +{ #category : 'api - configuration' } BlPositionFinder >> characters: aString [ aString do: [ :eachCharacter | @@ -50,7 +52,7 @@ BlPositionFinder >> characters: aString [ eachCharacter = (aText at: aPosition) ] ] ] -{ #category : #initialization } +{ #category : 'initialization' } BlPositionFinder >> initialize [ super initialize. patterns := OrderedCollection new. @@ -58,29 +60,29 @@ BlPositionFinder >> initialize [ stepLength := 1. ] -{ #category : #private } +{ #category : 'private' } BlPositionFinder >> isCurrentIndexInsideOfText: aCurrentIndex [ ^ aCurrentIndex > 0 and: [ aCurrentIndex <= self text size ] ] -{ #category : #'api - processing' } +{ #category : 'api - processing' } BlPositionFinder >> nextIndexFrom: aCurrentIndex [ ^ aCurrentIndex + stepLength ] -{ #category : #'api - configuration' } +{ #category : 'api - configuration' } BlPositionFinder >> pattern: anOneArgBlock [ patterns add: anOneArgBlock ] -{ #category : #'api - configuration' } +{ #category : 'api - configuration' } BlPositionFinder >> reversed [ self stepBy: stepLength negated ] -{ #category : #'api - processing' } +{ #category : 'api - processing' } BlPositionFinder >> search [ | aCurrentIndex | @@ -99,7 +101,7 @@ BlPositionFinder >> search [ ^ 0 ] -{ #category : #'api - processing' } +{ #category : 'api - processing' } BlPositionFinder >> searchClosest [ | aStartIndex aForwardLocation aBackwardLocation | @@ -127,12 +129,12 @@ BlPositionFinder >> searchClosest [ ifFalse: [ aBackwardLocation ] ] -{ #category : #'api - configuration' } +{ #category : 'api - configuration' } BlPositionFinder >> startAtEnd [ self startAtPosition: self text size. ] -{ #category : #'api - configuration' } +{ #category : 'api - configuration' } BlPositionFinder >> startAtPosition: anInteger [ self @@ -142,12 +144,12 @@ BlPositionFinder >> startAtPosition: anInteger [ startIndex := anInteger ] -{ #category : #accessing } +{ #category : 'accessing' } BlPositionFinder >> startPosition [ ^ startIndex ] -{ #category : #'api - configuration' } +{ #category : 'api - configuration' } BlPositionFinder >> stepBy: anInteger [ anInteger isZero @@ -155,7 +157,7 @@ BlPositionFinder >> stepBy: anInteger [ stepLength := anInteger. ] -{ #category : #'api - configuration' } +{ #category : 'api - configuration' } BlPositionFinder >> substring: aString [ self pattern: [ :aText :aPosition | diff --git a/src/Bloc-Text/BlRBTextStyler.class.st b/src/Bloc-Text/BlRBTextStyler.class.st index 40c37d716..183a66184 100644 --- a/src/Bloc-Text/BlRBTextStyler.class.st +++ b/src/Bloc-Text/BlRBTextStyler.class.st @@ -2,8 +2,8 @@ I'm the one who visits node to coloring the code " Class { - #name : #BlRBTextStyler, - #superclass : #BlTextStyler, + #name : 'BlRBTextStyler', + #superclass : 'BlTextStyler', #traits : 'TRBProgramNodeVisitor', #classTraits : 'TRBProgramNodeVisitor classTrait', #instVars : [ @@ -18,10 +18,12 @@ Class { 'styleTable', 'textAttributes' ], - #category : #'Bloc-Text-Text-Styler' + #category : 'Bloc-Text-Text-Styler', + #package : 'Bloc-Text', + #tag : 'Text-Styler' } -{ #category : #private } +{ #category : 'private' } BlRBTextStyler class >> attributeArrayForColor: aColorOrNil emphasis: anEmphasisArray [ "Return a collection of text or font attributes for given color (or nil) and array of requested emphasis styles (#bold, #italic, #oblique or #normal)" @@ -33,7 +35,7 @@ BlRBTextStyler class >> attributeArrayForColor: aColorOrNil emphasis: anEmphasis anEmphasisArray do: [ :anEmphasis | aStream nextPut: (self emphasisAttribute: anEmphasis) ] ] ] -{ #category : #private } +{ #category : 'private' } BlRBTextStyler class >> attributesFor: aSymbol [ "Return a collection of text or font attributes for a given style name" @@ -45,7 +47,7 @@ BlRBTextStyler class >> attributesFor: aSymbol [ ifAbsent: [ #() ] ] -{ #category : #'style tables' } +{ #category : 'style tables' } BlRBTextStyler class >> blueStyleTable [ "color can be a valid argument to Color class>>colorFrom: , or nil to use the editor text color. @@ -176,7 +178,7 @@ BlRBTextStyler class >> blueStyleTable [ (module (green muchDarker) bold)) ] -{ #category : #cleanup } +{ #category : 'cleanup' } BlRBTextStyler class >> cleanUp [ super cleanUp. @@ -184,7 +186,7 @@ BlRBTextStyler class >> cleanUp [ textAttributes := nil. ] -{ #category : #'style tables' } +{ #category : 'style tables' } BlRBTextStyler class >> darkStyleTable [ "color can be a valid argument to Color class>>colorFrom: , or nil to use the editor text color. @@ -323,7 +325,7 @@ BlRBTextStyler class >> darkStyleTable [ (module 'B4DD6E' bold)) ] -{ #category : #'style tables' } +{ #category : 'style tables' } BlRBTextStyler class >> defaultStyleTable [ "color can be a valid argument to Color class>>colorFrom: , or nil to use the editor text color. Multiple emphases can be specified using an array e.g. #(bold italic). @@ -332,7 +334,7 @@ BlRBTextStyler class >> defaultStyleTable [ ^ self blueStyleTable ] -{ #category : #attributes } +{ #category : 'attributes' } BlRBTextStyler class >> emphasisAttribute: anEmphasisAsSymbol [ "Create and return a text emphasis attribute for a given emphasis. anEmphasisAsSymbol can be either #bold #italic #oblique or #normal" @@ -356,7 +358,7 @@ BlRBTextStyler class >> emphasisAttribute: anEmphasisAsSymbol [ self error: 'Unknown emphasis: ', anEmphasisAsSymbol asString ] -{ #category : #attributes } +{ #category : 'attributes' } BlRBTextStyler class >> foregroundAttribute: aPaint [ "Create and return a text foreground attribute for a given paint. aPaint can be a color, gradient or any other object that represents a paint @@ -366,7 +368,7 @@ BlRBTextStyler class >> foregroundAttribute: aPaint [ ^ BlTextForegroundAttribute paint: aPaint ] -{ #category : #initialization } +{ #category : 'initialization' } BlRBTextStyler class >> initialTextAttributes [ | theAttributes | @@ -388,14 +390,14 @@ BlRBTextStyler class >> initialTextAttributes [ ^ theAttributes ] -{ #category : #initialization } +{ #category : 'initialization' } BlRBTextStyler class >> initialize [ "self initialize" styleTable := nil. textAttributes := nil. ] -{ #category : #accessing } +{ #category : 'accessing' } BlRBTextStyler class >> styleTable [ "Return a style table used by default by all stylers" @@ -403,7 +405,7 @@ BlRBTextStyler class >> styleTable [ ^ styleTable ifNil: [ styleTable := self defaultStyleTable ] ] -{ #category : #accessing } +{ #category : 'accessing' } BlRBTextStyler class >> styleTable: anArray [ "Set a style table that should be used by default by text stylers" @@ -411,7 +413,7 @@ BlRBTextStyler class >> styleTable: anArray [ textAttributes := nil ] -{ #category : #'style tables' } +{ #category : 'style tables' } BlRBTextStyler class >> tangoStyleTable [ "color can be a valid argument to Color class>>colorFrom: , or nil to use the editor text color. @@ -550,7 +552,7 @@ BlRBTextStyler class >> tangoStyleTable [ (module (green muchDarker) bold)) ] -{ #category : #accessing } +{ #category : 'accessing' } BlRBTextStyler class >> textAttributes [ "Return a dictionary of text attributes as assocciations of style name and an array of attributes" @@ -558,7 +560,7 @@ BlRBTextStyler class >> textAttributes [ ^ textAttributes ifNil: [ textAttributes := self initialTextAttributes ] ] -{ #category : #'style tables' } +{ #category : 'style tables' } BlRBTextStyler class >> vintageStyleTable [ "color can be a valid argument to Color class>>colorFrom: , or nil to use the editor text color. @@ -697,7 +699,7 @@ BlRBTextStyler class >> vintageStyleTable [ (module (cyan muchDarker) bold)) ] -{ #category : #formatting } +{ #category : 'formatting' } BlRBTextStyler >> addAttributes: attributes forNode: anRBNode [ "RB bug?" @@ -710,7 +712,7 @@ BlRBTextStyler >> addAttributes: attributes forNode: anRBNode [ to: anRBNode stop ] -{ #category : #formatting } +{ #category : 'formatting' } BlRBTextStyler >> addAttributes: attributes from: start to: stop [ text isEmpty ifTrue: [ ^ self ]. @@ -721,7 +723,7 @@ BlRBTextStyler >> addAttributes: attributes from: start to: stop [ to: stop ] -{ #category : #converting } +{ #category : 'converting' } BlRBTextStyler >> addAttributesFrom: attributeRuns satisfying: aTestBlock to: aText [ attributeRuns withStartStopAndValueDo: [:start :stop :attributes | @@ -736,7 +738,7 @@ BlRBTextStyler >> addAttributesFrom: attributeRuns satisfying: aTestBlock to: aT ^ aText ] -{ #category : #formatting } +{ #category : 'formatting' } BlRBTextStyler >> addStyle: styleSymbol attribute: additionalAttribute forNode: anRBNode [ self @@ -745,7 +747,7 @@ BlRBTextStyler >> addStyle: styleSymbol attribute: additionalAttribute forNode: forNode: anRBNode. ] -{ #category : #formatting } +{ #category : 'formatting' } BlRBTextStyler >> addStyle: styleSymbol attribute: additionalAttribute from: start to: end [ self @@ -754,7 +756,7 @@ BlRBTextStyler >> addStyle: styleSymbol attribute: additionalAttribute from: sta to: end ] -{ #category : #formatting } +{ #category : 'formatting' } BlRBTextStyler >> addStyle: styleSymbol attributes: additionalAttributes forNode: anRBNode [ self @@ -762,7 +764,7 @@ BlRBTextStyler >> addStyle: styleSymbol attributes: additionalAttributes forNode forNode: anRBNode ] -{ #category : #formatting } +{ #category : 'formatting' } BlRBTextStyler >> addStyle: styleSymbol forNode: anRBNode [ "Style a piece of text that represents a given node for a provided style name" @@ -771,7 +773,7 @@ BlRBTextStyler >> addStyle: styleSymbol forNode: anRBNode [ forNode: anRBNode ] -{ #category : #formatting } +{ #category : 'formatting' } BlRBTextStyler >> addStyle: aStyleSymbol from: aStart to: anEnd [ "Style a piece of text from aStart to anEnd for a provided style name" @@ -781,7 +783,7 @@ BlRBTextStyler >> addStyle: aStyleSymbol from: aStart to: anEnd [ to: anEnd ] -{ #category : #private } +{ #category : 'private' } BlRBTextStyler >> attributesFor: aSymbol [ "Return a collection of text attributes for a given name" @@ -789,7 +791,7 @@ BlRBTextStyler >> attributesFor: aSymbol [ ^ self class attributesFor: aSymbol ] -{ #category : #accessing } +{ #category : 'accessing' } BlRBTextStyler >> classOrMetaClass: aBehavior [ classOrMetaClass = aBehavior ifTrue: [ ^ self ]. @@ -797,37 +799,37 @@ BlRBTextStyler >> classOrMetaClass: aBehavior [ self announceStateChanged ] -{ #category : #private } +{ #category : 'private' } BlRBTextStyler >> currentClosedBracketStyleName [ bracketLevel isZero ifTrue: [ ^ #blockEnd ]. ^ (#blockEnd asString , bracketLevel asString) asSymbol ] -{ #category : #private } +{ #category : 'private' } BlRBTextStyler >> currentClosedParenthesisStyleName [ parentheseLevel isZero ifTrue: [ ^ #rightParenthesis ]. ^ (#rightParenthesis asString , parentheseLevel asString) asSymbol ] -{ #category : #private } +{ #category : 'private' } BlRBTextStyler >> currentOpenedBracketStyleName [ bracketLevel isZero ifTrue: [ ^ #blockStart ]. ^ (#blockStart asString , bracketLevel asString) asSymbol ] -{ #category : #private } +{ #category : 'private' } BlRBTextStyler >> currentOpenedParenthesisStyleName [ parentheseLevel isZero ifTrue: [ ^ #leftParenthesis ]. ^ (#leftParenthesis asString , parentheseLevel asString) asSymbol ] -{ #category : #accessing } +{ #category : 'accessing' } BlRBTextStyler >> fontName [ ^ fontName ] -{ #category : #accessing } +{ #category : 'accessing' } BlRBTextStyler >> fontName: aFontName [ fontName = aFontName ifTrue: [ ^ self ]. @@ -835,12 +837,12 @@ BlRBTextStyler >> fontName: aFontName [ self announceStateChanged ] -{ #category : #accessing } +{ #category : 'accessing' } BlRBTextStyler >> isForWorkspace [ ^ isForWorkspace ifNil: [ workspace notNil ] ] -{ #category : #accessing } +{ #category : 'accessing' } BlRBTextStyler >> isForWorkspace: aBoolean [ isForWorkspace = aBoolean ifTrue: [ ^self ]. @@ -848,7 +850,7 @@ BlRBTextStyler >> isForWorkspace: aBoolean [ self announceStateChanged ] -{ #category : #formatting } +{ #category : 'formatting' } BlRBTextStyler >> literalStyleSymbol: aValue [ aValue isSymbol ifTrue: [ ^ #symbol ]. @@ -867,21 +869,21 @@ BlRBTextStyler >> literalStyleSymbol: aValue [ ^ #default ] -{ #category : #private } +{ #category : 'private' } BlRBTextStyler >> methodOrBlockArgStyleFor: anArgumentNode [ ^ anArgumentNode isDefinedByBlock ifTrue: [ #blockArg ] ifFalse: [ #methodArg ] ] -{ #category : #private } +{ #category : 'private' } BlRBTextStyler >> methodOrBlockTempDeclStyleFor: aSequenceNode [ ^ aSequenceNode scope isBlockScope ifTrue: [ #blockPatternTempVar ] ifFalse: [ #patternTempVar ] ] -{ #category : #private } +{ #category : 'private' } BlRBTextStyler >> methodOrBlockTempStyleFor: aTemporaryNode [ ^ aTemporaryNode isDefinedByBlock @@ -889,7 +891,7 @@ BlRBTextStyler >> methodOrBlockTempStyleFor: aTemporaryNode [ ifFalse: [ #tempVar ] ] -{ #category : #private } +{ #category : 'private' } BlRBTextStyler >> parse: aText isMethod: isMethod [ |root aString | @@ -905,7 +907,7 @@ BlRBTextStyler >> parse: aText isMethod: isMethod [ ifFalse:[ ^RBParser parseFaultyExpression: aString ]. ] -{ #category : #private } +{ #category : 'private' } BlRBTextStyler >> privateStyle: aText [ | ast compiler | @@ -930,7 +932,7 @@ BlRBTextStyler >> privateStyle: aText [ ^ aText ] -{ #category : #private } +{ #category : 'private' } BlRBTextStyler >> privateStyle_my: aText [ | ast compiler | @@ -955,7 +957,7 @@ BlRBTextStyler >> privateStyle_my: aText [ ^ aText ] -{ #category : #private } +{ #category : 'private' } BlRBTextStyler >> privateStyle_orig: aText [ | ast | @@ -974,7 +976,7 @@ BlRBTextStyler >> privateStyle_orig: aText [ ^ aText ] -{ #category : #private } +{ #category : 'private' } BlRBTextStyler >> resolveStyleFor: aVariableNode [ aVariableNode binding isUndeclaredVariable ifTrue: [ @@ -991,7 +993,7 @@ BlRBTextStyler >> resolveStyleFor: aVariableNode [ ^ #invalid ] -{ #category : #private } +{ #category : 'private' } BlRBTextStyler >> resolveTextLinkFor: aVariableNode [ aVariableNode binding isGlobalVariable @@ -1000,7 +1002,7 @@ BlRBTextStyler >> resolveTextLinkFor: aVariableNode [ ^ BlTextVariableLink variableName: aVariableNode name ] -{ #category : #private } +{ #category : 'private' } BlRBTextStyler >> style: aText ast: ast [ text := aText. text attributes: (self attributesFor: #default). @@ -1010,14 +1012,14 @@ BlRBTextStyler >> style: aText ast: ast [ text := nil ] ] -{ #category : #private } +{ #category : 'private' } BlRBTextStyler >> styleCloseBracket: aBlockNode [ bracketLevel := bracketLevel - 1. (aBlockNode right isZero or: [ aBlockNode value isNil ]) ifTrue:[^ self]. self addStyle: self currentClosedBracketStyleName from: aBlockNode right to: aBlockNode right ] -{ #category : #private } +{ #category : 'private' } BlRBTextStyler >> styleCloseParenthese: aMessageNode [ aMessageNode parentheses ifNotEmpty: [ @@ -1029,7 +1031,7 @@ BlRBTextStyler >> styleCloseParenthese: aMessageNode [ self addStyle: self currentClosedParenthesisStyleName from: pos to: pos ] ] ] -{ #category : #private } +{ #category : 'private' } BlRBTextStyler >> styleOpenBracket: aBlockNode [ | style | style := aBlockNode isFaulty @@ -1039,7 +1041,7 @@ BlRBTextStyler >> styleOpenBracket: aBlockNode [ bracketLevel := bracketLevel + 1 ] -{ #category : #private } +{ #category : 'private' } BlRBTextStyler >> styleOpenParenthese: aMessageNode [ aMessageNode parentheses ifNotEmpty: [ @@ -1051,7 +1053,7 @@ BlRBTextStyler >> styleOpenParenthese: aMessageNode [ parentheseLevel := parentheseLevel + 1 ] ] ] -{ #category : #private } +{ #category : 'private' } BlRBTextStyler >> styleTempBars: aSequenceNode [ | tempBarAttribute | tempBarAttribute := aSequenceNode scope isMethodScope @@ -1063,20 +1065,20 @@ BlRBTextStyler >> styleTempBars: aSequenceNode [ ifNotNil: [ :pos | self addStyle: tempBarAttribute from: pos to: pos ] ] -{ #category : #'visiting rb nodes' } +{ #category : 'visiting rb nodes' } BlRBTextStyler >> visitArgumentNode: anArgumentNode [ | blockOrMethodArgStyle | blockOrMethodArgStyle := self methodOrBlockArgStyleFor: anArgumentNode. self addStyle: blockOrMethodArgStyle forNode: anArgumentNode ] -{ #category : #visiting } +{ #category : 'visiting' } BlRBTextStyler >> visitArrayNode: anArrayNode [ anArrayNode children do: [:each | self visitNode: each] ] -{ #category : #visiting } +{ #category : 'visiting' } BlRBTextStyler >> visitAssignmentNode: anAssignmentNode [ self visitNode: anAssignmentNode variable. self visitNode: anAssignmentNode value. @@ -1084,7 +1086,7 @@ BlRBTextStyler >> visitAssignmentNode: anAssignmentNode [ ifFalse: [ self addStyle: #invalid forNode: anAssignmentNode ] ] -{ #category : #'visiting rb nodes' } +{ #category : 'visiting rb nodes' } BlRBTextStyler >> visitBlockNode: aBlockNode [ aBlockNode comments do: [ :comment | self addStyle: #comment from: comment start to: comment stop ]. aBlockNode arguments do: [ :argument | self addStyle: #blockPatternArg forNode: argument ]. @@ -1095,28 +1097,28 @@ BlRBTextStyler >> visitBlockNode: aBlockNode [ self styleCloseBracket: aBlockNode ] -{ #category : #'visiting rb nodes' } +{ #category : 'visiting rb nodes' } BlRBTextStyler >> visitCascadeNode: aCascadeNode [ aCascadeNode messages do: [ :each | self visitNode: each ]. aCascadeNode semicolons do: [ :pos | self addStyle: #cascadeSeparator from: pos to: pos ] ] -{ #category : #visiting } +{ #category : 'visiting' } BlRBTextStyler >> visitEnglobingErrorNode: anEnglobingErrorNode [ anEnglobingErrorNode contents do: [ :each | self visitNode: each ] ] -{ #category : #visiting } +{ #category : 'visiting' } BlRBTextStyler >> visitGlobalNode: aSelfNode [ ^ self visitVariableNode: aSelfNode ] -{ #category : #visiting } +{ #category : 'visiting' } BlRBTextStyler >> visitInstanceVariableNode: aSelfNode [ ^ self visitVariableNode: aSelfNode ] -{ #category : #visiting } +{ #category : 'visiting' } BlRBTextStyler >> visitLiteralArrayNode: aRBLiteralArrayNode [ "in a (valid) byte array all elements are of the same type, style the whole contents at once, but for ordinary literal arrays, style every node" @@ -1126,7 +1128,7 @@ at once, but for ordinary literal arrays, style every node" ifFalse: [ aRBLiteralArrayNode contents do: [ :each | self visitNode: each ] ] ] -{ #category : #'visiting rb nodes' } +{ #category : 'visiting rb nodes' } BlRBTextStyler >> visitLiteralNode: aLiteralNode [ | value | value := aLiteralNode value. @@ -1136,7 +1138,7 @@ BlRBTextStyler >> visitLiteralNode: aLiteralNode [ forNode: aLiteralNode ] -{ #category : #'visiting rb nodes' } +{ #category : 'visiting rb nodes' } BlRBTextStyler >> visitMessageNode: aMessageNode [ | style link | style := #keyword. @@ -1161,7 +1163,7 @@ BlRBTextStyler >> visitMessageNode: aMessageNode [ self styleCloseParenthese: aMessageNode ] -{ #category : #'visiting rb nodes' } +{ #category : 'visiting rb nodes' } BlRBTextStyler >> visitMethodNode: aMethodNode [ aMethodNode isDoIt ifTrue: [ ^ self visitNode: aMethodNode body ]. @@ -1183,7 +1185,7 @@ BlRBTextStyler >> visitMethodNode: aMethodNode [ self visitNode: aMethodNode body ] -{ #category : #'visiting rb nodes' } +{ #category : 'visiting rb nodes' } BlRBTextStyler >> visitNode: aNode [ aNode comments ifNotNil: [ @@ -1192,27 +1194,27 @@ BlRBTextStyler >> visitNode: aNode [ ^ aNode acceptVisitor: self ] -{ #category : #'visiting rb nodes' } +{ #category : 'visiting rb nodes' } BlRBTextStyler >> visitParseErrorNode: anErrorNode [ self addStyle: #invalid forNode: anErrorNode ] -{ #category : #visiting } +{ #category : 'visiting' } BlRBTextStyler >> visitPatternBlockNode: aRBPatternBlockNode [ self visitArgumentNodes: aRBPatternBlockNode arguments. self visitNode: aRBPatternBlockNode body ] -{ #category : #visiting } +{ #category : 'visiting' } BlRBTextStyler >> visitPatternWrapperBlockNode: aRBPatternWrapperBlockNode [ self visitNode: aRBPatternWrapperBlockNode wrappedNode. self visitArgumentNodes: aRBPatternWrapperBlockNode arguments. self visitNode: aRBPatternWrapperBlockNode body ] -{ #category : #'visiting rb nodes' } +{ #category : 'visiting rb nodes' } BlRBTextStyler >> visitPragmaNode: aPragmaNode [ aPragmaNode selectorParts with: aPragmaNode keywordsPositions do: [ :keyword : position| self @@ -1224,7 +1226,7 @@ BlRBTextStyler >> visitPragmaNode: aPragmaNode [ aPragmaNode arguments do: [ :each | self visitNode: each ] ] -{ #category : #'visiting rb nodes' } +{ #category : 'visiting rb nodes' } BlRBTextStyler >> visitReturnNode: aReturnNode [ self addStyle: #return @@ -1234,14 +1236,14 @@ BlRBTextStyler >> visitReturnNode: aReturnNode [ self visitNode: aReturnNode value ] -{ #category : #'visiting rb nodes' } +{ #category : 'visiting rb nodes' } BlRBTextStyler >> visitSelfNode: aSelfNode [ self addStyle: #self forNode: aSelfNode ] -{ #category : #'visiting rb nodes' } +{ #category : 'visiting rb nodes' } BlRBTextStyler >> visitSequenceNode: aSequenceNode [ | patternTempStyle | patternTempStyle := self methodOrBlockTempDeclStyleFor: aSequenceNode. @@ -1252,34 +1254,34 @@ BlRBTextStyler >> visitSequenceNode: aSequenceNode [ aSequenceNode periods do: [ :pos | self addStyle: #statementSeparator from: pos to: pos ] ] -{ #category : #'visiting rb nodes' } +{ #category : 'visiting rb nodes' } BlRBTextStyler >> visitSuperNode: aSuperNode [ self addStyle: #super forNode: aSuperNode ] -{ #category : #'visiting rb nodes' } +{ #category : 'visiting rb nodes' } BlRBTextStyler >> visitTemporaryNode: aTemporaryNode [ | methodOrBlockTempStyle | methodOrBlockTempStyle := self methodOrBlockTempStyleFor: aTemporaryNode. self addStyle: methodOrBlockTempStyle forNode: aTemporaryNode ] -{ #category : #visiting } +{ #category : 'visiting' } BlRBTextStyler >> visitTemporaryNodes: aNodeCollection [ "This is triggered when defining the temporaries between the pipes" ^self visitArgumentNodes: aNodeCollection ] -{ #category : #'visiting rb nodes' } +{ #category : 'visiting rb nodes' } BlRBTextStyler >> visitThisContextNode: aThisContextNode [ self addStyle: #thisContext forNode: aThisContextNode ] -{ #category : #'visiting rb nodes' } +{ #category : 'visiting rb nodes' } BlRBTextStyler >> visitVariableNode: aVariableNode [ self addStyle: (self resolveStyleFor: aVariableNode) @@ -1289,12 +1291,12 @@ BlRBTextStyler >> visitVariableNode: aVariableNode [ ] -{ #category : #accessing } +{ #category : 'accessing' } BlRBTextStyler >> workspace [ ^ workspace ] -{ #category : #accessing } +{ #category : 'accessing' } BlRBTextStyler >> workspace: aWorkspace [ workspace = aWorkspace ifTrue: [ ^ self ]. diff --git a/src/Bloc-Text/BlReadonlyText.class.st b/src/Bloc-Text/BlReadonlyText.class.st index 62c9d7404..e19734e33 100644 --- a/src/Bloc-Text/BlReadonlyText.class.st +++ b/src/Bloc-Text/BlReadonlyText.class.st @@ -1,36 +1,38 @@ Class { - #name : #BlReadonlyText, - #superclass : #BlWrappedText, - #category : #'Bloc-Text-Text' + #name : 'BlReadonlyText', + #superclass : 'BlWrappedText', + #category : 'Bloc-Text-Text', + #package : 'Bloc-Text', + #tag : 'Text' } -{ #category : #'text - modifications' } +{ #category : 'text - modifications' } BlReadonlyText >> deleteAll: aCollectionOfIntervals [ self shouldNotImplement ] -{ #category : #'text - modifications' } +{ #category : 'text - modifications' } BlReadonlyText >> insertStrings: aCollectionOfStrings atAll: aCollectionOfIndices [ self shouldNotImplement ] -{ #category : #'text - modifications' } +{ #category : 'text - modifications' } BlReadonlyText >> insertText: aString at: anIndex [ self shouldNotImplement ] -{ #category : #'text - copying' } +{ #category : 'text - copying' } BlReadonlyText >> readonly [ ^ self ] -{ #category : #copying } +{ #category : 'copying' } BlReadonlyText >> takeInternalRepresentationOf: anotherText [ self shouldNotImplement ] -{ #category : #'text - copying' } +{ #category : 'text - copying' } BlReadonlyText >> writable [ "Convert me to a writable text if I am readonly" diff --git a/src/Bloc-Text/BlRope.extension.st b/src/Bloc-Text/BlRope.extension.st index 4d289a57c..bfae934c8 100644 --- a/src/Bloc-Text/BlRope.extension.st +++ b/src/Bloc-Text/BlRope.extension.st @@ -1,6 +1,6 @@ -Extension { #name : #BlRope } +Extension { #name : 'BlRope' } -{ #category : #'*Bloc-Text' } +{ #category : '*Bloc-Text' } BlRope >> encodeOn: aWriteStream with: aZnCharacterEncoder [ "Encode myself on a ByteString stream using the provided Zinc encoder." diff --git a/src/Bloc-Text/BlSpan.class.st b/src/Bloc-Text/BlSpan.class.st index 31ac7e49a..ea3b57925 100644 --- a/src/Bloc-Text/BlSpan.class.st +++ b/src/Bloc-Text/BlSpan.class.st @@ -4,15 +4,17 @@ I am data structure independent and rely only on BrText's public API " Class { - #name : #BlSpan, - #superclass : #BlReadonlyText, + #name : 'BlSpan', + #superclass : 'BlReadonlyText', #instVars : [ 'attributes' ], - #category : #'Bloc-Text-Text' + #category : 'Bloc-Text-Text', + #package : 'Bloc-Text', + #tag : 'Text' } -{ #category : #'instance creation' } +{ #category : 'instance creation' } BlSpan class >> text: aBlText attributes: theAttributes [ ^ self basicNew @@ -21,28 +23,28 @@ BlSpan class >> text: aBlText attributes: theAttributes [ yourself ] -{ #category : #'span - accessing' } +{ #category : 'span - accessing' } BlSpan >> attributes [ "Return a collection of attributes that apply on this span" ^ attributes ] -{ #category : #'text - attributes' } +{ #category : 'text - attributes' } BlSpan >> attributesFinder [ ^ BlTextAttributesExplicitFinder new initializeForAttributes: attributes interval: ((1 min: self size) to: self size) ] -{ #category : #testing } +{ #category : 'testing' } BlSpan >> isTabulation [ text ifEmpty: [ ^ false ]. ^ text first == Character tab ] -{ #category : #initialization } +{ #category : 'initialization' } BlSpan >> text: aBlText attributes: theAttributes [ text := aBlText. diff --git a/src/Bloc-Text/BlStylerStateChanged.class.st b/src/Bloc-Text/BlStylerStateChanged.class.st index 615bdbf75..cba058420 100644 --- a/src/Bloc-Text/BlStylerStateChanged.class.st +++ b/src/Bloc-Text/BlStylerStateChanged.class.st @@ -1,5 +1,7 @@ Class { - #name : #BlStylerStateChanged, - #superclass : #Announcement, - #category : #'Bloc-Text-Text-Styler' + #name : 'BlStylerStateChanged', + #superclass : 'Announcement', + #category : 'Bloc-Text-Text-Styler', + #package : 'Bloc-Text', + #tag : 'Text-Styler' } diff --git a/src/Bloc-Text/BlStylerTextStyleRequested.class.st b/src/Bloc-Text/BlStylerTextStyleRequested.class.st index f95d4f122..b8666478a 100644 --- a/src/Bloc-Text/BlStylerTextStyleRequested.class.st +++ b/src/Bloc-Text/BlStylerTextStyleRequested.class.st @@ -1,32 +1,34 @@ Class { - #name : #BlStylerTextStyleRequested, - #superclass : #Announcement, + #name : 'BlStylerTextStyleRequested', + #superclass : 'Announcement', #instVars : [ 'unstyledText', 'referentElement' ], - #category : #'Bloc-Text-Text-Styler' + #category : 'Bloc-Text-Text-Styler', + #package : 'Bloc-Text', + #tag : 'Text-Styler' } -{ #category : #accessing } +{ #category : 'accessing' } BlStylerTextStyleRequested >> referentElement [ ^ referentElement ] -{ #category : #accessing } +{ #category : 'accessing' } BlStylerTextStyleRequested >> referentElement: anObject [ referentElement := anObject ] -{ #category : #accessing } +{ #category : 'accessing' } BlStylerTextStyleRequested >> unstyledText [ ^ unstyledText ] -{ #category : #accessing } +{ #category : 'accessing' } BlStylerTextStyleRequested >> unstyledText: anObject [ unstyledText := anObject diff --git a/src/Bloc-Text/BlStylerTextStyled.class.st b/src/Bloc-Text/BlStylerTextStyled.class.st index 2696aa020..008d1c7a3 100644 --- a/src/Bloc-Text/BlStylerTextStyled.class.st +++ b/src/Bloc-Text/BlStylerTextStyled.class.st @@ -1,25 +1,27 @@ Class { - #name : #BlStylerTextStyled, - #superclass : #Announcement, + #name : 'BlStylerTextStyled', + #superclass : 'Announcement', #instVars : [ 'styledText' ], - #category : #'Bloc-Text-Text-Styler' + #category : 'Bloc-Text-Text-Styler', + #package : 'Bloc-Text', + #tag : 'Text-Styler' } -{ #category : #'text - styling' } +{ #category : 'text - styling' } BlStylerTextStyled class >> styledText: aBlText [ ^ self new styledText: aBlText ] -{ #category : #accessing } +{ #category : 'accessing' } BlStylerTextStyled >> styledText [ ^ styledText ] -{ #category : #accessing } +{ #category : 'accessing' } BlStylerTextStyled >> styledText: aBlText [ styledText := aBlText diff --git a/src/Bloc-Text/BlSubRope.extension.st b/src/Bloc-Text/BlSubRope.extension.st index 11586def2..36e0693fb 100644 --- a/src/Bloc-Text/BlSubRope.extension.st +++ b/src/Bloc-Text/BlSubRope.extension.st @@ -1,6 +1,6 @@ -Extension { #name : #BlSubRope } +Extension { #name : 'BlSubRope' } -{ #category : #'*Bloc-Text' } +{ #category : '*Bloc-Text' } BlSubRope >> encodeOn: aWriteStream with: aZnCharacterEncoder [ "Encode myself on a ByteString stream using the provided Zinc encoder." diff --git a/src/Bloc-Text/BlSubText.class.st b/src/Bloc-Text/BlSubText.class.st index 9e1c49840..1f0dffc59 100644 --- a/src/Bloc-Text/BlSubText.class.st +++ b/src/Bloc-Text/BlSubText.class.st @@ -7,17 +7,19 @@ Essentially, I offer a scope that can be used by upper layers, such as editors, " Class { - #name : #BlSubText, - #superclass : #BlText, + #name : 'BlSubText', + #superclass : 'BlText', #instVars : [ 'text', 'start', 'end' ], - #category : #'Bloc-Text-Text' + #category : 'Bloc-Text-Text', + #package : 'Bloc-Text', + #tag : 'Text' } -{ #category : #'instance creation' } +{ #category : 'instance creation' } BlSubText class >> empty: aBlText [ "Returns a sub-text that is backed up by an empty text" @@ -31,7 +33,7 @@ BlSubText class >> empty: aBlText [ to: 0 ] -{ #category : #'instance creation' } +{ #category : 'instance creation' } BlSubText class >> text: aBlText [ "Answer a new instance from aBlText. The argument should not be a BlSubText" @@ -40,7 +42,7 @@ BlSubText class >> text: aBlText [ yourself ] -{ #category : #'instance creation' } +{ #category : 'instance creation' } BlSubText class >> text: aBlText from: aStartIndex to: anEndIndex [ ^ self new @@ -48,7 +50,7 @@ BlSubText class >> text: aBlText from: aStartIndex to: anEndIndex [ yourself ] -{ #category : #comparing } +{ #category : 'comparing' } BlSubText >> = anotherObject [ self == anotherObject ifTrue: [ ^ true ]. @@ -60,12 +62,12 @@ BlSubText >> = anotherObject [ and: [ anotherObject text = self text ] ] ] -{ #category : #asserting } +{ #category : 'asserting' } BlSubText >> assertInvariant [ self assertStart: start end: end ] -{ #category : #asserting } +{ #category : 'asserting' } BlSubText >> assertStart: aStartIndex end: anEndIndex [ aStartIndex isZero @@ -86,7 +88,7 @@ BlSubText >> assertStart: aStartIndex end: anEndIndex [ description: [ 'If end index is zero then start index must be 1' ] ] -{ #category : #'text - accessing' } +{ #category : 'text - accessing' } BlSubText >> at: anIndex [ "Return a character at a given index" @@ -94,14 +96,14 @@ BlSubText >> at: anIndex [ ^ self text at: anIndex + start - 1 ] -{ #category : #'text - attributes' } +{ #category : 'text - attributes' } BlSubText >> attributes: anAttributesCollection [ "Apply given attributes on the whole text" self text attributes: anAttributesCollection from: start to: end ] -{ #category : #'text - attributes' } +{ #category : 'text - attributes' } BlSubText >> attributes: anAttributesCollection from: aFromIndex to: aToIndex [ self @@ -118,7 +120,7 @@ BlSubText >> attributes: anAttributesCollection from: aFromIndex to: aToIndex [ to: start + aToIndex - 1 ] -{ #category : #'text - attributes' } +{ #category : 'text - attributes' } BlSubText >> attributesAt: anIndex [ "Return a collection of text attributes without duplicates at a given text index" @@ -127,12 +129,12 @@ BlSubText >> attributesAt: anIndex [ ^ self text attributesAt: anIndex + start - 1 ] -{ #category : #'text - attributes' } +{ #category : 'text - attributes' } BlSubText >> attributesFinder [ ^ BlTextAttributesDynamicFinder new initializeForText: self ] -{ #category : #'text - attributes' } +{ #category : 'text - attributes' } BlSubText >> clearAttributes: aBlock [ text clearAttributes: start @@ -140,7 +142,7 @@ BlSubText >> clearAttributes: aBlock [ if: aBlock ] -{ #category : #'text - attributes' } +{ #category : 'text - attributes' } BlSubText >> clearAttributes: aFromIndex to: aToIndex if: aBlock [ text clearAttributes: start + aFromIndex - 1 @@ -148,7 +150,7 @@ BlSubText >> clearAttributes: aFromIndex to: aToIndex if: aBlock [ if: aBlock ] -{ #category : #'text - copying' } +{ #category : 'text - copying' } BlSubText >> copyFrom: aStartIndex to: anEndIndex [ "Create a copy of this text within a given indices interval. Note: I am different from ==#from:to:== in a sense that I don't create a sub-text that points @@ -162,7 +164,7 @@ BlSubText >> copyFrom: aStartIndex to: anEndIndex [ to: (start + anEndIndex - 1) ] -{ #category : #'text - modifications' } +{ #category : 'text - modifications' } BlSubText >> deleteAll: aCollectionOfIntervals [ aCollectionOfIntervals @@ -174,14 +176,14 @@ BlSubText >> deleteAll: aCollectionOfIntervals [ end := end - (aCollectionOfIntervals sum: #size) ] -{ #category : #'text - enumeration' } +{ #category : 'text - enumeration' } BlSubText >> do: aBlockClosure [ | anIterator | anIterator := self iterator. [ anIterator hasNext ] whileTrue: [ aBlockClosure value: anIterator next ] ] -{ #category : #'text - accessing' } +{ #category : 'text - accessing' } BlSubText >> empty [ "Return a similar (the same backend data structure) but empty text" @@ -189,21 +191,21 @@ BlSubText >> empty [ ^ self text empty ] -{ #category : #'text - converting' } +{ #category : 'text - converting' } BlSubText >> encodeOn: aWriteStream with: aZnCharacterEncoder [ self do: [ :each | aZnCharacterEncoder nextPut: each toStream: aWriteStream ] ] -{ #category : #accessing } +{ #category : 'accessing' } BlSubText >> end [ ^ end ] -{ #category : #'text - accessing' } +{ #category : 'text - accessing' } BlSubText >> from: aStart to: anEnd [ self assertInvariant. @@ -216,14 +218,14 @@ BlSubText >> from: aStart to: anEnd [ to: ((anEnd + start - 1) max: 0) ] -{ #category : #'text - enumeration' } +{ #category : 'text - enumeration' } BlSubText >> from: aFromIndex to: aToIndex do: aBlockClosure [ | anIterator | anIterator := self iterator: aFromIndex to: aToIndex. [ anIterator hasNext ] whileTrue: [ aBlockClosure value: anIterator next ] ] -{ #category : #'text - copying' } +{ #category : 'text - copying' } BlSubText >> generation [ "Return an object that uniquely represents this generation of text" @@ -231,12 +233,12 @@ BlSubText >> generation [ ^ self text generation ] -{ #category : #comparing } +{ #category : 'comparing' } BlSubText >> hash [ ^ ((self class hash bitXor: self start hash) bitXor: self end hash) bitXor: self text hash ] -{ #category : #'text - modifications' } +{ #category : 'text - modifications' } BlSubText >> insertStrings: aCollectionOfStrings atAll: aCollectionOfIndices [ | aPreviousSize aNewSize | @@ -253,17 +255,17 @@ BlSubText >> insertStrings: aCollectionOfStrings atAll: aCollectionOfIndices [ end := end + (aNewSize - aPreviousSize) ] -{ #category : #accessing } +{ #category : 'accessing' } BlSubText >> insertText: arg1 at: arg2 [ ^ self shouldBeImplemented ] -{ #category : #'text - testing' } +{ #category : 'text - testing' } BlSubText >> isEmpty [ ^ self size isZero ] -{ #category : #'text - enumeration' } +{ #category : 'text - enumeration' } BlSubText >> iterator [ ^ BlSubTextIterator text: self @@ -271,7 +273,7 @@ BlSubText >> iterator [ to: self size ] -{ #category : #'text - enumeration' } +{ #category : 'text - enumeration' } BlSubText >> iterator: aStartIndex to: anEndIndex [ ^ BlSubTextIterator text: self @@ -279,20 +281,20 @@ BlSubText >> iterator: aStartIndex to: anEndIndex [ to: anEndIndex ] -{ #category : #copying } +{ #category : 'copying' } BlSubText >> postCopy [ super postCopy. text := text copy ] -{ #category : #'text - converting' } +{ #category : 'text - converting' } BlSubText >> printOn: aStream [ end > text size ifTrue: [ ^ aStream << 'BlSubText(end>text size)' ]. ^ super printOn: aStream ] -{ #category : #'text - accessing' } +{ #category : 'text - accessing' } BlSubText >> size [ self assertInvariant. @@ -301,14 +303,14 @@ BlSubText >> size [ ifFalse: [ end - start + 1 ] ] -{ #category : #accessing } +{ #category : 'accessing' } BlSubText >> start [ ^ start ] -{ #category : #initialization } +{ #category : 'initialization' } BlSubText >> start: aStartIndex end: anEndIndex [ self assertStart: aStartIndex end: anEndIndex. @@ -318,18 +320,18 @@ BlSubText >> start: aStartIndex end: anEndIndex [ self assertInvariant ] -{ #category : #'text - notifying' } +{ #category : 'text - notifying' } BlSubText >> suspendAnnouncementsWhile: aBlock [ super suspendAnnouncementsWhile: [ self text suspendAnnouncementsWhile: aBlock ] ] -{ #category : #accessing } +{ #category : 'accessing' } BlSubText >> text [ ^ text ] -{ #category : #initialization } +{ #category : 'initialization' } BlSubText >> text: aBlText from: aStartIndex to: anEndIndex [ text := aBlText. @@ -339,7 +341,7 @@ BlSubText >> text: aBlText from: aStartIndex to: anEndIndex [ self assertInvariant ] -{ #category : #'text - accessing' } +{ #category : 'text - accessing' } BlSubText >> textOffset [ "Return absolute text offset to better deal with sub-texts" @@ -347,7 +349,7 @@ BlSubText >> textOffset [ ^ ((self start - 1) max: 0) + self text textOffset ] -{ #category : #accessing } +{ #category : 'accessing' } BlSubText >> unstyle: aFromIndex to: aToIndex [ self text unstyle: (start + aFromIndex - 1) to: (start + aToIndex - 1) ] diff --git a/src/Bloc-Text/BlSubTextIterator.class.st b/src/Bloc-Text/BlSubTextIterator.class.st index ad7a05d4f..27274505b 100644 --- a/src/Bloc-Text/BlSubTextIterator.class.st +++ b/src/Bloc-Text/BlSubTextIterator.class.st @@ -1,14 +1,16 @@ Class { - #name : #BlSubTextIterator, - #superclass : #BlTextIterator, + #name : 'BlSubTextIterator', + #superclass : 'BlTextIterator', #instVars : [ 'text', 'iterator' ], - #category : #'Bloc-Text-Text' + #category : 'Bloc-Text-Text', + #package : 'Bloc-Text', + #tag : 'Text' } -{ #category : #initialization } +{ #category : 'initialization' } BlSubTextIterator class >> text: aBrSubText from: aStartIndex to: anEndIndex [ ^ self new @@ -16,7 +18,7 @@ BlSubTextIterator class >> text: aBrSubText from: aStartIndex to: anEndIndex [ yourself ] -{ #category : #'iterator - accessing' } +{ #category : 'iterator - accessing' } BlSubTextIterator >> attributes [ "Return a collection of rope attributes at a current position without duplicates" @@ -24,7 +26,7 @@ BlSubTextIterator >> attributes [ ^ iterator attributes ] -{ #category : #'iterator - enumeration' } +{ #category : 'iterator - enumeration' } BlSubTextIterator >> detectAttribute: aBlock ifFound: aFoundBlock ifNone: anExceptionBlock [ "Evaluate aBlock with each of the receiver's elements as the argument. If some element evaluates aBlock to true, then cull this element into @@ -35,7 +37,7 @@ BlSubTextIterator >> detectAttribute: aBlock ifFound: aFoundBlock ifNone: anExce ^ iterator detectAttribute: aBlock ifFound: aFoundBlock ifNone: anExceptionBlock ] -{ #category : #'iterator - testing' } +{ #category : 'iterator - testing' } BlSubTextIterator >> doesAttributeEnd: anAttribute [ "Return true if a given attribute ends at the current position. By `ends` we mean that this attribute is not present at the next position. @@ -55,14 +57,14 @@ BlSubTextIterator >> doesAttributeEnd: anAttribute [ ^ ((self text text attributesAt: self position + self text textOffset + 1) includes: anAttribute) not ] -{ #category : #'iterator - testing' } +{ #category : 'iterator - testing' } BlSubTextIterator >> hasNext [ "Return true if there is a next text item (character) after a current position" ^ iterator hasNext ] -{ #category : #'iterator - testing' } +{ #category : 'iterator - testing' } BlSubTextIterator >> hasPrevious [ "Return true if there is a previous text item (character) before the current position" @@ -70,7 +72,7 @@ BlSubTextIterator >> hasPrevious [ ^ iterator hasNext ] -{ #category : #'iterator - enumeration' } +{ #category : 'iterator - enumeration' } BlSubTextIterator >> next [ "Return an item (character) at current position and move one to the right" @@ -78,7 +80,7 @@ BlSubTextIterator >> next [ ^ iterator next ] -{ #category : #'iterator - enumeration' } +{ #category : 'iterator - enumeration' } BlSubTextIterator >> nextLine [ "Return an instance of BrText which represents a piece of text from current position until the first carriage return character" @@ -87,7 +89,7 @@ BlSubTextIterator >> nextLine [ ^ iterator nextLine ] -{ #category : #'iterator - enumeration' } +{ #category : 'iterator - enumeration' } BlSubTextIterator >> nextLineIndicesDo: anIndicesBlock [ " execute anIndicesBlock with 3 arguments for each line: - start index of line in text coordinates @@ -101,14 +103,14 @@ BlSubTextIterator >> nextLineIndicesDo: anIndicesBlock [ value: aLineDelimiterEnd - self text textOffset ] ] -{ #category : #'iterator - enumeration' } +{ #category : 'iterator - enumeration' } BlSubTextIterator >> nextSegment: aBlock [ ^ iterator nextSegment: aBlock ] -{ #category : #'iterator - enumeration' } +{ #category : 'iterator - enumeration' } BlSubTextIterator >> nextSegment: aBlock indicesDo: anIndicesBlock [ "@see BlTextIterator>>#nextSegment:indicesDo:" @@ -120,7 +122,7 @@ BlSubTextIterator >> nextSegment: aBlock indicesDo: anIndicesBlock [ cull: anInitialValue ] ] -{ #category : #'iterator - enumeration' } +{ #category : 'iterator - enumeration' } BlSubTextIterator >> nextSpan [ "Return a next homogeneous text span" @@ -128,7 +130,7 @@ BlSubTextIterator >> nextSpan [ ^ iterator nextSpan ] -{ #category : #'iterator - enumeration' } +{ #category : 'iterator - enumeration' } BlSubTextIterator >> nextWhitespace [ "Return an instance of BrText which represents a piece of text from current position until the first non-whitespace character without including it" @@ -142,7 +144,7 @@ BlSubTextIterator >> nextWhitespace [ ^ BlSubText text: text from: aStartPosition to: aStartPosition + aSegment size - 1 ] -{ #category : #'iterator - enumeration' } +{ #category : 'iterator - enumeration' } BlSubTextIterator >> nextWord [ "Return an instance of BrText which represents a piece of text from current position until the first space character" @@ -151,7 +153,7 @@ BlSubTextIterator >> nextWord [ ^ iterator nextWord ] -{ #category : #'iterator - enumeration' } +{ #category : 'iterator - enumeration' } BlSubTextIterator >> peek [ "Return an item (character) at current position" @@ -159,7 +161,7 @@ BlSubTextIterator >> peek [ ^ iterator peek ] -{ #category : #'iterator - accessing' } +{ #category : 'iterator - accessing' } BlSubTextIterator >> position [ "Return current iterator position within a text" @@ -167,7 +169,7 @@ BlSubTextIterator >> position [ ^ iterator position - text start + 1 ] -{ #category : #'iterator - enumeration' } +{ #category : 'iterator - enumeration' } BlSubTextIterator >> previous [ "Return an item (character) at current position and move one to the left" @@ -175,7 +177,7 @@ BlSubTextIterator >> previous [ ^ iterator previous ] -{ #category : #'iterator - enumeration' } +{ #category : 'iterator - enumeration' } BlSubTextIterator >> selectAttributes: aBlock [ "Evaluate aBlock with each of the receiver's elements as the argument. Collect into a new collection like the receiver, only those elements for @@ -185,19 +187,19 @@ BlSubTextIterator >> selectAttributes: aBlock [ ^ iterator selectAttributes: aBlock ] -{ #category : #'iterator - enumeration' } +{ #category : 'iterator - enumeration' } BlSubTextIterator >> skip: aNumber [ "Move forward by aNumber characters" iterator skip: aNumber ] -{ #category : #accessing } +{ #category : 'accessing' } BlSubTextIterator >> text [ ^ text ] -{ #category : #initialization } +{ #category : 'initialization' } BlSubTextIterator >> text: aBrSubText from: aStartIntegerIndex to: anEndIntegerIndex [ "aStartIntegerIndex and anEndIntegerIndex are integers." diff --git a/src/Bloc-Text/BlText.class.st b/src/Bloc-Text/BlText.class.st index 965252719..64a3dd195 100644 --- a/src/Bloc-Text/BlText.class.st +++ b/src/Bloc-Text/BlText.class.st @@ -25,27 +25,29 @@ text " Class { - #name : #BlText, - #superclass : #Object, + #name : 'BlText', + #superclass : 'Object', #traits : 'TBlDebug + TBlTextStyleable', #classTraits : 'TBlDebug classTrait + TBlTextStyleable classTrait', #instVars : [ 'announcer' ], - #category : #'Bloc-Text-Text' + #category : 'Bloc-Text-Text', + #package : 'Bloc-Text', + #tag : 'Text' } -{ #category : #accessing } +{ #category : 'accessing' } BlText class >> empty [ ^ BlEmptyText uniqueInstance ] -{ #category : #'text - modifications' } +{ #category : 'text - modifications' } BlText >> , aText [ self append: aText ] -{ #category : #'text - enumeration' } +{ #category : 'text - enumeration' } BlText >> allSatisfy: aBlock [ "Evaluate aBlock with all text items. If aBlock returns false for any element return false, otherwise return true" @@ -56,13 +58,13 @@ BlText >> allSatisfy: aBlock [ ^ true ] -{ #category : #'text - notifying' } +{ #category : 'text - notifying' } BlText >> announcerDo: aBlockClosure [ "Evaluate a given block closure with an announcer as an argument if it is initialized" announcer ifNotNil: aBlockClosure ] -{ #category : #'text - enumeration' } +{ #category : 'text - enumeration' } BlText >> anySatisfy: aBlock [ "Evaluate aBlock with all text items. If aBlock returns true for any element return true, otherwise return false" @@ -73,23 +75,23 @@ BlText >> anySatisfy: aBlock [ ^ false ] -{ #category : #'text - modifications' } +{ #category : 'text - modifications' } BlText >> append: aText [ self insertText: aText at: self size ] -{ #category : #'text - modifications' } +{ #category : 'text - modifications' } BlText >> appendString: aString [ self insertString: aString at: self size ] -{ #category : #'text - converting' } +{ #category : 'text - converting' } BlText >> asArray [ ^ Array streamContents: [ :aStream | self do: [ :anItem | aStream nextPut: anItem ] ] ] -{ #category : #'text - converting' } +{ #category : 'text - converting' } BlText >> asString [ "I return an original String representaion of this text. It is guaranteed that the size of the resulting string is the same as of this text" @@ -98,7 +100,7 @@ BlText >> asString [ self do: [ :aCharacter | aStream nextPut: aCharacter ] ] ] -{ #category : #'text - accessing' } +{ #category : 'text - accessing' } BlText >> at: anIndex [ "Return an item at a given index" @@ -106,52 +108,52 @@ BlText >> at: anIndex [ ^ self subclassResponsibility ] -{ #category : #'text - attributes' } +{ #category : 'text - attributes' } BlText >> attribute: aTextAttribute [ "Apply a given attribute on the whole text" self attributes: { aTextAttribute } ] -{ #category : #'text - attributes' } +{ #category : 'text - attributes' } BlText >> attribute: aTextAttribute from: aStart to: anEnd [ "Apply a given attribute on the text from aStart to anEnd" self attributes: { aTextAttribute } from: aStart to: anEnd ] -{ #category : #'text - attributes' } +{ #category : 'text - attributes' } BlText >> attributes: anAttributesCollection [ "Apply given attributes on the whole text" self subclassResponsibility ] -{ #category : #'text - attributes' } +{ #category : 'text - attributes' } BlText >> attributes: anAttributesCollection from: aStart to: anEnd [ "Apply given attributes on the text from aStart to anEnd" self subclassResponsibility ] -{ #category : #'text - attributes' } +{ #category : 'text - attributes' } BlText >> attributesAndIndicesDo: aBlock [ self attributesFinder attributesAndIndicesDo: aBlock ] -{ #category : #'text - attributes' } +{ #category : 'text - attributes' } BlText >> attributesAndIndicesSuchThat: aFilterBlock [ ^ self attributesFinder attributesAndIndicesSuchThat: aFilterBlock ] -{ #category : #'text - attributes' } +{ #category : 'text - attributes' } BlText >> attributesAndIndicesSuchThat: aFilterBlock do: aBinaryBlock [ (self attributesAndIndicesSuchThat: aFilterBlock) do: [ :assoc | aBinaryBlock value: assoc key value: assoc value ]. ] -{ #category : #'text - attributes' } +{ #category : 'text - attributes' } BlText >> attributesAt: anIndex [ "Return a collection of text attributes without duplicates at a given text index" @@ -159,14 +161,14 @@ BlText >> attributesAt: anIndex [ ^ (self iterator: anIndex to: anIndex) attributes ] -{ #category : #accessing } +{ #category : 'accessing' } BlText >> attributesBuilder [ ^ self ] -{ #category : #'text - attributes' } +{ #category : 'text - attributes' } BlText >> attributesDo: aBlock [ "Evaluate a block with all attributes for each text item" | anIterator | @@ -183,34 +185,34 @@ BlText >> attributesDo: aBlock [ hasNext ] ] -{ #category : #'text - attributes' } +{ #category : 'text - attributes' } BlText >> attributesFinder [ ^ self subclassResponsibility ] -{ #category : #'text - copying' } +{ #category : 'text - copying' } BlText >> characters [ ^ BlCharacterText text: self ] -{ #category : #'text - attributes' } +{ #category : 'text - attributes' } BlText >> clearAttributes: aBlock [ self clearAttributes: (1 min: self size) to: self size if: aBlock ] -{ #category : #'text - attributes' } +{ #category : 'text - attributes' } BlText >> clearAttributes: aStart to: anEnd if: aBlock [ self subclassResponsibility ] -{ #category : #'text - attributes' } +{ #category : 'text - attributes' } BlText >> clearAttributesOfClass: aBlTextAttributeClass [ self clearAttributes: [ :eachAttribute | eachAttribute isKindOf: aBlTextAttributeClass ] ] -{ #category : #'text - enumeration' } +{ #category : 'text - enumeration' } BlText >> collect: aBlock [ "Evaluate aBlock with each of the text's items as the argument. Collect the resulting values into a collection like the receiver. Answer the new collection." @@ -219,7 +221,7 @@ BlText >> collect: aBlock [ self do: [ :anItem | aStream nextPut: (aBlock value: anItem) ] ] ] -{ #category : #'text - copying' } +{ #category : 'text - copying' } BlText >> copyFrom: aStartIndex to: anEndIndex [ "Create a copy of this text within a given indices interval. Note: I am different from ==#from:to:== in a sense that I don't create a sub-text that points @@ -231,7 +233,7 @@ BlText >> copyFrom: aStartIndex to: anEndIndex [ ^ self subclassResponsibility ] -{ #category : #'text - copying' } +{ #category : 'text - copying' } BlText >> copyWithoutExternalReferences [ @@ -240,22 +242,22 @@ BlText >> copyWithoutExternalReferences [ yourself. ] -{ #category : #'text - modifications' } +{ #category : 'text - modifications' } BlText >> delete: aStart to: anEnd [ self deleteAll: { (aStart to: anEnd) } ] -{ #category : #'text - modifications' } +{ #category : 'text - modifications' } BlText >> deleteAll [ self delete: (1 min: self size) to: self size ] -{ #category : #'text - modifications' } +{ #category : 'text - modifications' } BlText >> deleteAll: aCollectionOfIntervals [ self subclassResponsibility ] -{ #category : #'text - enumeration' } +{ #category : 'text - enumeration' } BlText >> do: aBlock [ "Evaluate aBlock with every item as argument. We do not guarantee that all items of this text are Characters. Some items may be special objects such as line breaks. @@ -264,7 +266,7 @@ BlText >> do: aBlock [ self subclassResponsibility ] -{ #category : #'text - accessing' } +{ #category : 'text - accessing' } BlText >> empty [ "Return a similar (the same backend data structure) but empty text" @@ -272,19 +274,19 @@ BlText >> empty [ ^ self subclassResponsibility ] -{ #category : #'text - converting' } +{ #category : 'text - converting' } BlText >> encodeOn: aWriteStream with: aZnCharacterEncoder [ "Encode myself on a ByteString stream using the provided Zinc encoder." self subclassResponsibility ] -{ #category : #'text - notifying' } +{ #category : 'text - notifying' } BlText >> ensureAnnouncer [ announcer ifNil: [ announcer := BlTextAnnouncer new ] ] -{ #category : #comparing } +{ #category : 'comparing' } BlText >> equals: anObject [ | myIterator otherIterator areSame | @@ -311,21 +313,21 @@ BlText >> equals: anObject [ ^ areSame ] -{ #category : #'text - attributes' } +{ #category : 'text - attributes' } BlText >> findAttribute: aBlTextAttribute indicesDo: aBlock [ self attributesFinder findAttribute: aBlTextAttribute indicesDo: aBlock ] -{ #category : #'text - attributes' } +{ #category : 'text - attributes' } BlText >> findAttributes: aCollectionOfBlTextAttribute indicesDo: aBlock [ self attributesFinder findAttributes: aCollectionOfBlTextAttribute indicesDo: aBlock ] -{ #category : #'text - attributes' } +{ #category : 'text - attributes' } BlText >> findAttributesSuchThat: aFilterBlock indicesDo: anIterationBlock [ self attributesFinder @@ -333,7 +335,7 @@ BlText >> findAttributesSuchThat: aFilterBlock indicesDo: anIterationBlock [ indicesDo: anIterationBlock ] -{ #category : #'text - enumeration' } +{ #category : 'text - enumeration' } BlText >> finder [ ^ BlPositionFinder new @@ -341,20 +343,20 @@ BlText >> finder [ yourself ] -{ #category : #'text - accessing' } +{ #category : 'text - accessing' } BlText >> first [ ^ self at: 1 ] -{ #category : #'text - accessing' } +{ #category : 'text - accessing' } BlText >> first: aNumber [ ^ self from: 1 to: aNumber ] -{ #category : #'text - accessing' } +{ #category : 'text - accessing' } BlText >> from: aStart to: anEnd [ "Create and return a subtext of this text form aStart to anEnd. Note: All modifications that are happening to the subtext automatically @@ -363,14 +365,14 @@ BlText >> from: aStart to: anEnd [ ^ BlSubText text: self from: aStart to: anEnd ] -{ #category : #'text - enumeration' } +{ #category : 'text - enumeration' } BlText >> from: aFromIndex to: aToIndex do: aBlock [ "Evaluate aBlock with every item as argument within interval [aFromIndex, aToIndex]" self subclassResponsibility ] -{ #category : #'text - copying' } +{ #category : 'text - copying' } BlText >> generation [ "Return an object that uniquely represents this generation of text" @@ -378,7 +380,7 @@ BlText >> generation [ ^ self subclassResponsibility ] -{ #category : #'text - attributes' } +{ #category : 'text - attributes' } BlText >> hasAttribute: aBlTextAttribute [ @@ -386,7 +388,7 @@ BlText >> hasAttribute: aBlTextAttribute [ hasAttribute: aBlTextAttribute ] -{ #category : #'text - attributes' } +{ #category : 'text - attributes' } BlText >> hasAttributeSuchThat: aComparisonBlock [ @@ -394,7 +396,7 @@ BlText >> hasAttributeSuchThat: aComparisonBlock [ hasAttributeSuchThat: aComparisonBlock ] -{ #category : #'text - testing' } +{ #category : 'text - testing' } BlText >> ifEmpty: aBlock [ "Evaluate the given block, answering its value if the receiver is empty, otherwise answer the receiver." @@ -405,7 +407,7 @@ BlText >> ifEmpty: aBlock [ ifFalse: [ self ] ] -{ #category : #'text - testing' } +{ #category : 'text - testing' } BlText >> ifEmpty: emptyBlock ifNotEmpty: notEmptyBlock [ "Evaluate emptyBlock if I'm empty, notEmptyBlock otherwise" "If the notEmptyBlock has an argument, eval with the receiver as its argument" @@ -415,7 +417,7 @@ BlText >> ifEmpty: emptyBlock ifNotEmpty: notEmptyBlock [ ifFalse: [ notEmptyBlock cull: self ] ] -{ #category : #'text - testing' } +{ #category : 'text - testing' } BlText >> ifNotEmpty: aBlock [ "Evaluate the given block with the receiver as argument, answering its value unless the receiver is empty, in which case answer the receiver." @@ -425,7 +427,7 @@ BlText >> ifNotEmpty: aBlock [ ifFalse: [ aBlock cull: self ] ] -{ #category : #'text - testing' } +{ #category : 'text - testing' } BlText >> ifNotEmpty: notEmptyBlock ifEmpty: emptyBlock [ "Evaluate emptyBlock if I'm empty, notEmptyBlock otherwise If the notEmptyBlock has an argument, eval with the receiver as its argument" @@ -435,31 +437,31 @@ BlText >> ifNotEmpty: notEmptyBlock ifEmpty: emptyBlock [ ifFalse: [ notEmptyBlock cull: self ] ] -{ #category : #'text - modifications' } +{ #category : 'text - modifications' } BlText >> insertString: aString at: anIndex [ self insertStrings: { aString } atAll: { anIndex } ] -{ #category : #'text - modifications' } +{ #category : 'text - modifications' } BlText >> insertStrings: aCollectionOfStrings atAll: aCollectionOfIndices [ self subclassResponsibility ] -{ #category : #'text - modifications' } +{ #category : 'text - modifications' } BlText >> insertText: aString at: anIndex [ ^ self subclassResponsibility ] -{ #category : #copying } +{ #category : 'copying' } BlText >> internalRepresentation [ " gives direct acces to how the text is privately represented - to be used with caution for optimization purpose" ^ self subclassResponsibility ] -{ #category : #'text - testing' } +{ #category : 'text - testing' } BlText >> isEmpty [ "Return true if this text is empty, false otherwise. Note: Override me to provide performance optimized implementation" @@ -467,12 +469,12 @@ BlText >> isEmpty [ ^ self subclassResponsibility ] -{ #category : #'text - testing' } +{ #category : 'text - testing' } BlText >> isNotEmpty [ ^ self isEmpty not ] -{ #category : #'text - enumeration' } +{ #category : 'text - enumeration' } BlText >> iterator [ "Return an iterator pointing to the first text item limited only by the text size" @@ -480,7 +482,7 @@ BlText >> iterator [ ^ self subclassResponsibility ] -{ #category : #'text - enumeration' } +{ #category : 'text - enumeration' } BlText >> iterator: aStartIndex to: anEndIndex [ "Return an iterator pointing to the item at anStartIndex and limited by anEndIndex" @@ -488,14 +490,14 @@ BlText >> iterator: aStartIndex to: anEndIndex [ ^ self subclassResponsibility ] -{ #category : #'text - accessing' } +{ #category : 'text - accessing' } BlText >> last [ ^ self at: self size ] -{ #category : #'text - copying' } +{ #category : 'text - copying' } BlText >> nextGeneration [ "Return a copy of this text marked as a next generation of this one" @@ -503,19 +505,19 @@ BlText >> nextGeneration [ ^ BlGenerationText fromText: self ] -{ #category : #'text - notifying' } +{ #category : 'text - notifying' } BlText >> notifyAttributeAdded: anAttribute from: aFromIndex to: aToIndex [ self announcerDo: [ :anAnnouncer | anAnnouncer announce: (BlTextAttributeAdded attribute: anAttribute from: aFromIndex to: aToIndex) ] ] -{ #category : #'text - notifying' } +{ #category : 'text - notifying' } BlText >> notifyAttributesRemovedFrom: aFromIndex to: aToIndex [ self announcerDo: [ :anAnnouncer | anAnnouncer announce: (BlTextAttributesRemoved from: aFromIndex to: aToIndex) ] ] -{ #category : #'text - notifying' } +{ #category : 'text - notifying' } BlText >> notifyDeletedAll: theDeletedIntervals requested: theRequestedIntervals texts: theDeletedTexts [ theDeletedIntervals ifEmpty: [ ^ self ]. @@ -531,7 +533,7 @@ BlText >> notifyDeletedAll: theDeletedIntervals requested: theRequestedIntervals finalIntervals: theDeletedIntervals) ] ] -{ #category : #'text - notifying' } +{ #category : 'text - notifying' } BlText >> notifyStringsInserted: aCollectionOfStrings atAll: aCollectionOfFinalIndices requested: aCollectionOfRequestedIndices [ aCollectionOfStrings ifEmpty: [ ^ self ]. @@ -569,12 +571,12 @@ BlText >> notifyStringsInserted: aCollectionOfStrings atAll: aCollectionOfFinalI finalIndices: aNonEmptyCollectionOfFinalIndices) ] ] -{ #category : #copying } +{ #category : 'copying' } BlText >> postCopy [ announcer := nil ] -{ #category : #'text - printing' } +{ #category : 'text - printing' } BlText >> printOn: aStream [ super printOn: aStream. @@ -585,7 +587,7 @@ BlText >> printOn: aStream [ ] -{ #category : #'text - printing' } +{ #category : 'text - printing' } BlText >> printOn: aWriteStream from: aStart to: anEnd [ self from: aStart @@ -596,13 +598,13 @@ BlText >> printOn: aWriteStream from: aStart to: anEnd [ ifFalse: [ aWriteStream print: anItem ] ] ] -{ #category : #'text - enumeration' } +{ #category : 'text - enumeration' } BlText >> readStream [ "Compatibility with ${method:SequenceableCollection>>#readStream}$" ^ BlTextReadStream new iterator: self iterator ] -{ #category : #'text - copying' } +{ #category : 'text - copying' } BlText >> readonly [ "Return a readonly version of this text" @@ -610,12 +612,12 @@ BlText >> readonly [ ^ BlReadonlyText text: self ] -{ #category : #'text - attributes' } +{ #category : 'text - attributes' } BlText >> removeAttribute: aBlTextAttribute [ self removeAttributes: { aBlTextAttribute } ] -{ #category : #'text - attributes' } +{ #category : 'text - attributes' } BlText >> removeAttributes: aCollectionOfAttributes [ | theAttributesToRemove | @@ -623,34 +625,34 @@ BlText >> removeAttributes: aCollectionOfAttributes [ self clearAttributes: [ :eachAttribute | theAttributesToRemove includes: eachAttribute ] ] -{ #category : #'text - modifications' } +{ #category : 'text - modifications' } BlText >> replace: aStart to: anEnd withString: aString [ self delete: aStart to: anEnd. self insertString: aString at: aStart ] -{ #category : #'text - accessing' } +{ #category : 'text - accessing' } BlText >> second [ ^ self at: 2 ] -{ #category : #'text - accessing' } +{ #category : 'text - accessing' } BlText >> size [ ^ self subclassResponsibility ] -{ #category : #'text - attributes style' } +{ #category : 'text - attributes style' } BlText >> styler [ ^ BlTextAttributesStyler on: self ] -{ #category : #'text - attributes style' } +{ #category : 'text - attributes style' } BlText >> stylerDo: aBlock [ "I allow users to apply attributes in a bulk fashion with the help of text attributes styler. @@ -667,21 +669,21 @@ BlText >> stylerDo: aBlock [ aStyler style ] -{ #category : #'text - notifying' } +{ #category : 'text - notifying' } BlText >> suspendAnnouncementsWhile: aBlock [ announcer ifNil: aBlock ifNotNil: [ :anAnnouncer | anAnnouncer suspendAllWhile: aBlock ] ] -{ #category : #copying } +{ #category : 'copying' } BlText >> takeInternalRepresentationOf: anotherText [ " To be used with caution because the receiver and the argument text must have the same internal representation" self subclassResponsibility ] -{ #category : #'text - accessing' } +{ #category : 'text - accessing' } BlText >> textOffset [ "Return absolute text offset to better deal with sub-texts" @@ -689,14 +691,14 @@ BlText >> textOffset [ ^ 0 ] -{ #category : #'text - accessing' } +{ #category : 'text - accessing' } BlText >> third [ ^ self at: 3 ] -{ #category : #'text - modifications' } +{ #category : 'text - modifications' } BlText >> trimmer [ ^ BlTextTrimmer new @@ -704,21 +706,21 @@ BlText >> trimmer [ yourself ] -{ #category : #'text - attributes' } +{ #category : 'text - attributes' } BlText >> unstyle [ "Clear all style related attributes" self unstyle: (1 min: self size) to: self size ] -{ #category : #'text - attributes' } +{ #category : 'text - attributes' } BlText >> unstyle: aFromIndex to: aToIndex [ "Clear all style related attributes within interval defined by from and to indices" self subclassResponsibility ] -{ #category : #'text - attributes' } +{ #category : 'text - attributes' } BlText >> unstyled [ "Return a copy of a text without any style attributes" @@ -726,13 +728,13 @@ BlText >> unstyled [ ^ self copy unstyle ] -{ #category : #'text - notifying' } +{ #category : 'text - notifying' } BlText >> unsubscribe: anObject [ "Unsubscribe all subscriptions of anObject from the receiver" self announcerDo: [ :anAnnouncer | anAnnouncer unsubscribe: anObject ] ] -{ #category : #'text - converting' } +{ #category : 'text - converting' } BlText >> utf8Encoded [ "Answer a ByteArray encoding the receiver using UTF-8." @@ -742,19 +744,19 @@ BlText >> utf8Encoded [ with: ZnUTF8Encoder default ] ] -{ #category : #'text - notifying' } +{ #category : 'text - notifying' } BlText >> when: anAnnouncementClass do: aValuable [ self ensureAnnouncer. announcer when: anAnnouncementClass do: aValuable ] -{ #category : #'text - notifying' } +{ #category : 'text - notifying' } BlText >> when: anAnnouncementClass send: aSelector to: anObject [ self ensureAnnouncer. announcer weak when: anAnnouncementClass send: aSelector to: anObject ] -{ #category : #'text - enumeration' } +{ #category : 'text - enumeration' } BlText >> withIndexCollect: elementAndIndexBlock [ "Just like with:collect: except that the iteration index supplies the second argument to the block." @@ -766,7 +768,7 @@ BlText >> withIndexCollect: elementAndIndexBlock [ anIndex := anIndex + 1 ] ] ] -{ #category : #'text - copying' } +{ #category : 'text - copying' } BlText >> writable [ "Convert me to a writable text if I am readonly" diff --git a/src/Bloc-Text/BlTextAnnouncer.class.st b/src/Bloc-Text/BlTextAnnouncer.class.st index 3ea069a08..6799f51c2 100644 --- a/src/Bloc-Text/BlTextAnnouncer.class.st +++ b/src/Bloc-Text/BlTextAnnouncer.class.st @@ -1,30 +1,32 @@ Class { - #name : #BlTextAnnouncer, - #superclass : #Announcer, + #name : 'BlTextAnnouncer', + #superclass : 'Announcer', #instVars : [ 'suspendAll', 'suspendedAnnouncemets' ], - #category : #'Bloc-Text-Text' + #category : 'Bloc-Text-Text', + #package : 'Bloc-Text', + #tag : 'Text' } -{ #category : #announce } +{ #category : 'announce' } BlTextAnnouncer >> announce: anAnnouncement [ (self isAnnouncementSuspended: anAnnouncement) ifTrue: [ ^ anAnnouncement asAnnouncement ]. ^ super announce: anAnnouncement ] -{ #category : #accessing } +{ #category : 'accessing' } BlTextAnnouncer >> announcer [ ^ self ] -{ #category : #accessing } +{ #category : 'accessing' } BlTextAnnouncer >> glmSubscriptions [ ^ registry glmSubscriptions ] -{ #category : #testing } +{ #category : 'testing' } BlTextAnnouncer >> isAnnouncementSuspended: anAnnouncement [ ^ self suspendAll or: [ |announcementType| announcementType := anAnnouncement isClass @@ -34,23 +36,23 @@ BlTextAnnouncer >> isAnnouncementSuspended: anAnnouncement [ announcementType = anAnnouncementType or: [ announcementType inheritsFrom: anAnnouncementType ] ] ] ] -{ #category : #copying } +{ #category : 'copying' } BlTextAnnouncer >> postCopy [ super postCopy. registry := registry copy. ] -{ #category : #accessing } +{ #category : 'accessing' } BlTextAnnouncer >> resetAnnouncer [ registry reset ] -{ #category : #suspending } +{ #category : 'suspending' } BlTextAnnouncer >> suspendAll [ ^ suspendAll ifNil: [ suspendAll := false ]. ] -{ #category : #suspending } +{ #category : 'suspending' } BlTextAnnouncer >> suspendAll: aCollection while: aBlock [ | previousSuspendedAnnouncemets | previousSuspendedAnnouncemets := suspendedAnnouncemets. @@ -58,7 +60,7 @@ BlTextAnnouncer >> suspendAll: aCollection while: aBlock [ aBlock ensure: [suspendedAnnouncemets := previousSuspendedAnnouncemets] ] -{ #category : #suspending } +{ #category : 'suspending' } BlTextAnnouncer >> suspendAllWhile: aBlock [ | previousSuspensionState | previousSuspensionState := suspendAll. @@ -67,7 +69,7 @@ BlTextAnnouncer >> suspendAllWhile: aBlock [ ] -{ #category : #accessing } +{ #category : 'accessing' } BlTextAnnouncer >> suspendedAnnouncemets [ ^ suspendedAnnouncemets ifNil: [ suspendedAnnouncemets := OrderedCollection new ]. ] diff --git a/src/Bloc-Text/BlTextAttribute.class.st b/src/Bloc-Text/BlTextAttribute.class.st index 76b653994..76f6694a6 100644 --- a/src/Bloc-Text/BlTextAttribute.class.st +++ b/src/Bloc-Text/BlTextAttribute.class.st @@ -1,15 +1,17 @@ Class { - #name : #BlTextAttribute, - #superclass : #Object, + #name : 'BlTextAttribute', + #superclass : 'Object', #traits : 'TBlDebug', #classTraits : 'TBlDebug classTrait', #instVars : [ 'isOverwritableByStyler' ], - #category : #'Bloc-Text-Text-Attributes' + #category : 'Bloc-Text-Text-Attributes', + #package : 'Bloc-Text', + #tag : 'Text-Attributes' } -{ #category : #comparing } +{ #category : 'comparing' } BlTextAttribute >> = anObject [ "Return true if I am equal to a given object" @@ -22,28 +24,28 @@ BlTextAttribute >> = anObject [ ^ self equals: anObject ] -{ #category : #'text style' } +{ #category : 'text style' } BlTextAttribute >> applyOnFontAndStyleBuilder: aBlTextFontAndStyleBuilder [ ] -{ #category : #style } +{ #category : 'style' } BlTextAttribute >> beNotOverwritableByStyler [ isOverwritableByStyler := false ] -{ #category : #style } +{ #category : 'style' } BlTextAttribute >> beOverwritableByStyler [ isOverwritableByStyler := true ] -{ #category : #comparing } +{ #category : 'comparing' } BlTextAttribute >> equals: anAnotherAttribute [ ^ self type == anAnotherAttribute type ] -{ #category : #comparing } +{ #category : 'comparing' } BlTextAttribute >> hash [ "Compute and return a hash code. Two objects for which equals: returns true must have the same hash" @@ -52,14 +54,14 @@ BlTextAttribute >> hash [ ^ self type identityHash ] -{ #category : #initialization } +{ #category : 'initialization' } BlTextAttribute >> initialize [ super initialize. isOverwritableByStyler := true ] -{ #category : #testing } +{ #category : 'testing' } BlTextAttribute >> isAdornment [ "Return true if attribute influences text structure, for examples if it replaces one or more characters with any amount of other arbitrary items, false otherwise" @@ -68,7 +70,7 @@ BlTextAttribute >> isAdornment [ ^ false ] -{ #category : #testing } +{ #category : 'testing' } BlTextAttribute >> isEventHandler [ "Return true if attribute is designed to handle UI events such as mouse, false otherwise" @@ -77,7 +79,7 @@ BlTextAttribute >> isEventHandler [ ^ false ] -{ #category : #testing } +{ #category : 'testing' } BlTextAttribute >> isOverwritableByStyler [ "Return true if attribute is overwritable by stylers, false otherwise. By default all attributes are treated as style ones" @@ -86,7 +88,7 @@ BlTextAttribute >> isOverwritableByStyler [ ^ isOverwritableByStyler ] -{ #category : #testing } +{ #category : 'testing' } BlTextAttribute >> isParagraphAttribute [ "Return true if I am a special paragraph attribute, false otherwise" @@ -94,7 +96,7 @@ BlTextAttribute >> isParagraphAttribute [ ^ false ] -{ #category : #testing } +{ #category : 'testing' } BlTextAttribute >> isStyle [ "Return true if attribute represents a text or font style attribute that only changes how text looks, for example foreground, background, weight, emphasis etc. @@ -103,14 +105,14 @@ BlTextAttribute >> isStyle [ ^ true ] -{ #category : #testing } +{ #category : 'testing' } BlTextAttribute >> mayHaveExternalReferences [ "Answer if this attribute can have references to some external objects like AST nodes or computation results" ^ false ] -{ #category : #comparing } +{ #category : 'comparing' } BlTextAttribute >> ropeAttributeType [ "Return an object that is used to compare attribute by type The rule is the following: attributes of the same type must overwrite each other." @@ -118,7 +120,7 @@ BlTextAttribute >> ropeAttributeType [ ^ self type ] -{ #category : #printing } +{ #category : 'printing' } BlTextAttribute >> storeOn: aStream [ aStream nextPutAll: self class name; @@ -128,7 +130,7 @@ BlTextAttribute >> storeOn: aStream [ ifFalse: [ aStream nextPutAll: ' ', #beNotOverwritableByStyler asString ] ] -{ #category : #comparing } +{ #category : 'comparing' } BlTextAttribute >> type [ "Return an object that is used to compare attribute by type The rule is the following: attributes of the same type must overwrite each other." diff --git a/src/Bloc-Text/BlTextAttributeAdded.class.st b/src/Bloc-Text/BlTextAttributeAdded.class.st index d1bd07087..c86ab3948 100644 --- a/src/Bloc-Text/BlTextAttributeAdded.class.st +++ b/src/Bloc-Text/BlTextAttributeAdded.class.st @@ -1,15 +1,17 @@ Class { - #name : #BlTextAttributeAdded, - #superclass : #Announcement, + #name : 'BlTextAttributeAdded', + #superclass : 'Announcement', #instVars : [ 'attribute', 'fromIndex', 'toIndex' ], - #category : #'Bloc-Text-Text-Events' + #category : 'Bloc-Text-Text-Events', + #package : 'Bloc-Text', + #tag : 'Text-Events' } -{ #category : #'instance creation' } +{ #category : 'instance creation' } BlTextAttributeAdded class >> attribute: aTextAttribute from: aFromIndex to: aToIndex [ ^ self new attribute: aTextAttribute; @@ -17,32 +19,32 @@ BlTextAttributeAdded class >> attribute: aTextAttribute from: aFromIndex to: aTo toIndex: aToIndex ] -{ #category : #accessing } +{ #category : 'accessing' } BlTextAttributeAdded >> attribute [ ^ attribute ] -{ #category : #accessing } +{ #category : 'accessing' } BlTextAttributeAdded >> attribute: anObject [ attribute := anObject ] -{ #category : #accessing } +{ #category : 'accessing' } BlTextAttributeAdded >> fromIndex [ ^ fromIndex ] -{ #category : #accessing } +{ #category : 'accessing' } BlTextAttributeAdded >> fromIndex: anObject [ fromIndex := anObject ] -{ #category : #accessing } +{ #category : 'accessing' } BlTextAttributeAdded >> toIndex [ ^ toIndex ] -{ #category : #accessing } +{ #category : 'accessing' } BlTextAttributeAdded >> toIndex: anObject [ toIndex := anObject ] diff --git a/src/Bloc-Text/BlTextAttributesBuilder.class.st b/src/Bloc-Text/BlTextAttributesBuilder.class.st index 717dc44a3..1c1f7dd98 100644 --- a/src/Bloc-Text/BlTextAttributesBuilder.class.st +++ b/src/Bloc-Text/BlTextAttributesBuilder.class.st @@ -12,24 +12,26 @@ BlTextAttributesBuilder new " Class { - #name : #BlTextAttributesBuilder, - #superclass : #Object, + #name : 'BlTextAttributesBuilder', + #superclass : 'Object', #traits : 'TBlTextStyleable', #classTraits : 'TBlTextStyleable classTrait', #instVars : [ 'attributes' ], - #category : #'Bloc-Text-Text-Support' + #category : 'Bloc-Text-Text-Support', + #package : 'Bloc-Text', + #tag : 'Text-Support' } -{ #category : #hook } +{ #category : 'hook' } BlTextAttributesBuilder >> applyOn: aBlText [ "Apply these text properties on a given text" ^ aBlText attributes: self attributes ] -{ #category : #accessing } +{ #category : 'accessing' } BlTextAttributesBuilder >> attribute: aTextAttribute [ | anExistingAttributeIndex | @@ -42,26 +44,26 @@ BlTextAttributesBuilder >> attribute: aTextAttribute [ ifFalse: [ self attributes at: anExistingAttributeIndex put: aTextAttribute ] ] -{ #category : #accessing } +{ #category : 'accessing' } BlTextAttributesBuilder >> attributes [ ^ attributes ] -{ #category : #hook } +{ #category : 'hook' } BlTextAttributesBuilder >> attributes: aCollectionOfAttributes [ aCollectionOfAttributes do: [ :eachAttribute | self attribute: eachAttribute ] ] -{ #category : #accessing } +{ #category : 'accessing' } BlTextAttributesBuilder >> attributesBuilder [ ^ self ] -{ #category : #testing } +{ #category : 'testing' } BlTextAttributesBuilder >> hasAttribute: anAttribute [ ^ self attributes detect: [ :eachAttribute | eachAttribute type = anAttribute type ] @@ -69,7 +71,7 @@ BlTextAttributesBuilder >> hasAttribute: anAttribute [ ifNone: [ false ] ] -{ #category : #initialization } +{ #category : 'initialization' } BlTextAttributesBuilder >> initialize [ super initialize. diff --git a/src/Bloc-Text/BlTextAttributesCachingFinder.class.st b/src/Bloc-Text/BlTextAttributesCachingFinder.class.st index 76f3f17af..e5fd2d6e8 100644 --- a/src/Bloc-Text/BlTextAttributesCachingFinder.class.st +++ b/src/Bloc-Text/BlTextAttributesCachingFinder.class.st @@ -3,17 +3,19 @@ {{gtClass:BlText}} allows users to assign attributes on a text interval. In addition, it is important to to be able to query text attributes efficiently. The attributes cache is responsible for maintaining an association cache between text attributes and their corresponding interval in the text. " Class { - #name : #BlTextAttributesCachingFinder, - #superclass : #Object, + #name : 'BlTextAttributesCachingFinder', + #superclass : 'Object', #traits : 'TBlTextAttributesFinder', #classTraits : 'TBlTextAttributesFinder classTrait', #instVars : [ 'attributes' ], - #category : #'Bloc-Text-Text-Attributes Finder' + #category : 'Bloc-Text-Text-Attributes Finder', + #package : 'Bloc-Text', + #tag : 'Text-Attributes Finder' } -{ #category : #enumerating } +{ #category : 'enumerating' } BlTextAttributesCachingFinder >> findAttribute: aBlTextAttribute indicesDo: aBlock [ attributes at: aBlTextAttribute @@ -25,7 +27,7 @@ BlTextAttributesCachingFinder >> findAttribute: aBlTextAttribute indicesDo: aBlo cull: aBlTextAttribute ] ] ] -{ #category : #enumerating } +{ #category : 'enumerating' } BlTextAttributesCachingFinder >> findAttributesSuchThat: aFilterBlock indicesDo: anIterationBlock [ attributes keysAndValuesDo: [ :eachAttribute :aCollectionOfIntervals | (aFilterBlock value: eachAttribute) @@ -37,7 +39,7 @@ BlTextAttributesCachingFinder >> findAttributesSuchThat: aFilterBlock indicesDo: cull: eachAttribute ] ] ] ] -{ #category : #initialization } +{ #category : 'initialization' } BlTextAttributesCachingFinder >> initializeForText: aBlText [ attributes := self computeAttributesDictionaryFor: aBlText ] diff --git a/src/Bloc-Text/BlTextAttributesDynamicFinder.class.st b/src/Bloc-Text/BlTextAttributesDynamicFinder.class.st index dbf6206f0..2cc3d7007 100644 --- a/src/Bloc-Text/BlTextAttributesDynamicFinder.class.st +++ b/src/Bloc-Text/BlTextAttributesDynamicFinder.class.st @@ -1,15 +1,17 @@ Class { - #name : #BlTextAttributesDynamicFinder, - #superclass : #Object, + #name : 'BlTextAttributesDynamicFinder', + #superclass : 'Object', #traits : 'TBlTextAttributesFinder', #classTraits : 'TBlTextAttributesFinder classTrait', #instVars : [ 'text' ], - #category : #'Bloc-Text-Text-Attributes Finder' + #category : 'Bloc-Text-Text-Attributes Finder', + #package : 'Bloc-Text', + #tag : 'Text-Attributes Finder' } -{ #category : #enumerating } +{ #category : 'enumerating' } BlTextAttributesDynamicFinder >> findAttribute: aBlTextAttribute indicesDo: aBlock [ | theAttributes | @@ -24,7 +26,7 @@ BlTextAttributesDynamicFinder >> findAttribute: aBlTextAttribute indicesDo: aBlo cull: aBlTextAttribute ] ] ] -{ #category : #enumerating } +{ #category : 'enumerating' } BlTextAttributesDynamicFinder >> findAttributesSuchThat: aFilterBlock indicesDo: anIterationBlock [ | theAttributes | @@ -39,7 +41,7 @@ BlTextAttributesDynamicFinder >> findAttributesSuchThat: aFilterBlock indicesDo: cull: eachAttribute ] ] ] ] -{ #category : #initialization } +{ #category : 'initialization' } BlTextAttributesDynamicFinder >> initializeForText: aBlText [ text := aBlText ] diff --git a/src/Bloc-Text/BlTextAttributesExplicitFinder.class.st b/src/Bloc-Text/BlTextAttributesExplicitFinder.class.st index b122f987a..8d02005d5 100644 --- a/src/Bloc-Text/BlTextAttributesExplicitFinder.class.st +++ b/src/Bloc-Text/BlTextAttributesExplicitFinder.class.st @@ -1,16 +1,18 @@ Class { - #name : #BlTextAttributesExplicitFinder, - #superclass : #Object, + #name : 'BlTextAttributesExplicitFinder', + #superclass : 'Object', #traits : 'TBlTextAttributesFinder', #classTraits : 'TBlTextAttributesFinder classTrait', #instVars : [ 'attributes', 'interval' ], - #category : #'Bloc-Text-Text-Attributes Finder' + #category : 'Bloc-Text-Text-Attributes Finder', + #package : 'Bloc-Text', + #tag : 'Text-Attributes Finder' } -{ #category : #enumerating } +{ #category : 'enumerating' } BlTextAttributesExplicitFinder >> findAttribute: aBlTextAttribute indicesDo: aBlock [ (attributes includes: aBlTextAttribute) ifFalse: [ ^ self ]. @@ -21,7 +23,7 @@ BlTextAttributesExplicitFinder >> findAttribute: aBlTextAttribute indicesDo: aBl cull: aBlTextAttribute ] -{ #category : #enumerating } +{ #category : 'enumerating' } BlTextAttributesExplicitFinder >> findAttributesSuchThat: aFilterBlock indicesDo: anIterationBlock [ attributes select: aFilterBlock thenDo: [ :eachAttribute | anIterationBlock @@ -30,7 +32,7 @@ BlTextAttributesExplicitFinder >> findAttributesSuchThat: aFilterBlock indicesDo cull: eachAttribute ] ] -{ #category : #initialization } +{ #category : 'initialization' } BlTextAttributesExplicitFinder >> initializeForAttributes: aCollectionOfAttributes interval: anInterval [ attributes := aCollectionOfAttributes asSet. interval := anInterval diff --git a/src/Bloc-Text/BlTextAttributesIgnoringFinder.class.st b/src/Bloc-Text/BlTextAttributesIgnoringFinder.class.st index b120734a7..27c2a6e0f 100644 --- a/src/Bloc-Text/BlTextAttributesIgnoringFinder.class.st +++ b/src/Bloc-Text/BlTextAttributesIgnoringFinder.class.st @@ -1,15 +1,17 @@ Class { - #name : #BlTextAttributesIgnoringFinder, - #superclass : #Object, + #name : 'BlTextAttributesIgnoringFinder', + #superclass : 'Object', #traits : 'TBlTextAttributesFinder', #classTraits : 'TBlTextAttributesFinder classTrait', - #category : #'Bloc-Text-Text-Attributes Finder' + #category : 'Bloc-Text-Text-Attributes Finder', + #package : 'Bloc-Text', + #tag : 'Text-Attributes Finder' } -{ #category : #enumerating } +{ #category : 'enumerating' } BlTextAttributesIgnoringFinder >> findAttribute: aBlTextAttribute indicesDo: aBlock [ ] -{ #category : #enumerating } +{ #category : 'enumerating' } BlTextAttributesIgnoringFinder >> findAttributesSuchThat: aFilterBlock indicesDo: anIterationBlock [ ] diff --git a/src/Bloc-Text/BlTextAttributesRemoved.class.st b/src/Bloc-Text/BlTextAttributesRemoved.class.st index 011ef62af..c92d8a08d 100644 --- a/src/Bloc-Text/BlTextAttributesRemoved.class.st +++ b/src/Bloc-Text/BlTextAttributesRemoved.class.st @@ -3,38 +3,40 @@ Sent when one or more attributes are removed within an interval " Class { - #name : #BlTextAttributesRemoved, - #superclass : #Announcement, + #name : 'BlTextAttributesRemoved', + #superclass : 'Announcement', #instVars : [ 'fromIndex', 'toIndex' ], - #category : #'Bloc-Text-Text-Events' + #category : 'Bloc-Text-Text-Events', + #package : 'Bloc-Text', + #tag : 'Text-Events' } -{ #category : #'instance creation' } +{ #category : 'instance creation' } BlTextAttributesRemoved class >> from: aFromIndex to: aToIndex [ ^ self new fromIndex: aFromIndex; toIndex: aToIndex ] -{ #category : #accessing } +{ #category : 'accessing' } BlTextAttributesRemoved >> fromIndex [ ^ fromIndex ] -{ #category : #accessing } +{ #category : 'accessing' } BlTextAttributesRemoved >> fromIndex: anObject [ fromIndex := anObject ] -{ #category : #accessing } +{ #category : 'accessing' } BlTextAttributesRemoved >> toIndex [ ^ toIndex ] -{ #category : #accessing } +{ #category : 'accessing' } BlTextAttributesRemoved >> toIndex: anObject [ toIndex := anObject ] diff --git a/src/Bloc-Text/BlTextAttributesStyler.class.st b/src/Bloc-Text/BlTextAttributesStyler.class.st index 615098003..98db61d94 100644 --- a/src/Bloc-Text/BlTextAttributesStyler.class.st +++ b/src/Bloc-Text/BlTextAttributesStyler.class.st @@ -29,18 +29,20 @@ text " Class { - #name : #BlTextAttributesStyler, - #superclass : #Object, + #name : 'BlTextAttributesStyler', + #superclass : 'Object', #traits : 'TBlTextStyleable', #classTraits : 'TBlTextStyleable classTrait', #instVars : [ 'text', 'properties' ], - #category : #'Bloc-Text-Text-Support' + #category : 'Bloc-Text-Text-Support', + #package : 'Bloc-Text', + #tag : 'Text-Support' } -{ #category : #'instance creation' } +{ #category : 'instance creation' } BlTextAttributesStyler class >> on: aBlText [ ^ self new @@ -48,31 +50,31 @@ BlTextAttributesStyler class >> on: aBlText [ yourself ] -{ #category : #accessing } +{ #category : 'accessing' } BlTextAttributesStyler >> attributesBuilder [ ^ properties ] -{ #category : #initialization } +{ #category : 'initialization' } BlTextAttributesStyler >> initialize [ super initialize. properties := BlTextAttributesBuilder new ] -{ #category : #'api - text style' } +{ #category : 'api - text style' } BlTextAttributesStyler >> style [ self attributesBuilder applyOn: self text ] -{ #category : #accessing } +{ #category : 'accessing' } BlTextAttributesStyler >> text [ ^ text ] -{ #category : #accessing } +{ #category : 'accessing' } BlTextAttributesStyler >> text: anObject [ text := anObject ] diff --git a/src/Bloc-Text/BlTextBackgroundAttribute.class.st b/src/Bloc-Text/BlTextBackgroundAttribute.class.st index b21359f0b..3c1f717a5 100644 --- a/src/Bloc-Text/BlTextBackgroundAttribute.class.st +++ b/src/Bloc-Text/BlTextBackgroundAttribute.class.st @@ -17,39 +17,41 @@ Internal Representation and Key Implementation Points. " Class { - #name : #BlTextBackgroundAttribute, - #superclass : #BlTextAttribute, + #name : 'BlTextBackgroundAttribute', + #superclass : 'BlTextAttribute', #instVars : [ 'paint' ], - #category : #'Bloc-Text-Text-Attributes' + #category : 'Bloc-Text-Text-Attributes', + #package : 'Bloc-Text', + #tag : 'Text-Attributes' } -{ #category : #'instance creation' } +{ #category : 'instance creation' } BlTextBackgroundAttribute class >> paint: aPaint [ ^ self new paint: aPaint; yourself ] -{ #category : #comparing } +{ #category : 'comparing' } BlTextBackgroundAttribute >> equals: anAnotherAttribute [ ^ self paint = anAnotherAttribute paint ] -{ #category : #comparing } +{ #category : 'comparing' } BlTextBackgroundAttribute >> hash [ "Answer an integer value that is related to the identity of the receiver." ^ super hash bitXor: self paint hash ] -{ #category : #accessing } +{ #category : 'accessing' } BlTextBackgroundAttribute >> paint [ ^ paint ] -{ #category : #accessing } +{ #category : 'accessing' } BlTextBackgroundAttribute >> paint: aPaint [ self assert: [ paint isNil ] @@ -58,7 +60,7 @@ BlTextBackgroundAttribute >> paint: aPaint [ paint := aPaint ] -{ #category : #printing } +{ #category : 'printing' } BlTextBackgroundAttribute >> printOn: aStream [ aStream nextPutAll: 'text-background: '; diff --git a/src/Bloc-Text/BlTextClassLink.class.st b/src/Bloc-Text/BlTextClassLink.class.st index c941c39f3..8838c65b5 100644 --- a/src/Bloc-Text/BlTextClassLink.class.st +++ b/src/Bloc-Text/BlTextClassLink.class.st @@ -1,15 +1,17 @@ Class { - #name : #BlTextClassLink, - #superclass : #BlTextLinkAttribute, - #category : #'Bloc-Text-Text-Attributes' + #name : 'BlTextClassLink', + #superclass : 'BlTextLinkAttribute', + #category : 'Bloc-Text-Text-Attributes', + #package : 'Bloc-Text', + #tag : 'Text-Attributes' } -{ #category : #accessing } +{ #category : 'accessing' } BlTextClassLink class >> class: aClass [ ^ self new ] -{ #category : #accessing } +{ #category : 'accessing' } BlTextClassLink class >> className: aString [ ^ self new ] diff --git a/src/Bloc-Text/BlTextDecoration.class.st b/src/Bloc-Text/BlTextDecoration.class.st index cd71333bf..db3b2b5e2 100644 --- a/src/Bloc-Text/BlTextDecoration.class.st +++ b/src/Bloc-Text/BlTextDecoration.class.st @@ -1,21 +1,23 @@ Class { - #name : #BlTextDecoration, - #superclass : #Object, + #name : 'BlTextDecoration', + #superclass : 'Object', #instVars : [ 'thickness', 'color', 'style', 'type' ], - #category : #'Bloc-Text-Text-Decoration' + #category : 'Bloc-Text-Text-Decoration', + #package : 'Bloc-Text', + #tag : 'Text-Decoration' } -{ #category : #accessing } +{ #category : 'accessing' } BlTextDecoration class >> label [ ^ self subclassResponsibility ] -{ #category : #comparing } +{ #category : 'comparing' } BlTextDecoration >> = anObject [ "Answer whether the receiver and anObject represent the same object." @@ -28,32 +30,32 @@ BlTextDecoration >> = anObject [ and: [ thickness = anObject thickness and: [ type = anObject type ] ] ] ] -{ #category : #accessing } +{ #category : 'accessing' } BlTextDecoration >> color [ ^ color ] -{ #category : #'api - decoration' } +{ #category : 'api - decoration' } BlTextDecoration >> color: aColor [ color := aColor ] -{ #category : #'api - decoration' } +{ #category : 'api - decoration' } BlTextDecoration >> dashed [ self style: BlTextDecorationStyle dashed ] -{ #category : #'api - decoration' } +{ #category : 'api - decoration' } BlTextDecoration >> dotted [ self style: BlTextDecorationStyle dotted ] -{ #category : #'api - decoration' } +{ #category : 'api - decoration' } BlTextDecoration >> double [ self style: BlTextDecorationStyle double ] -{ #category : #comparing } +{ #category : 'comparing' } BlTextDecoration >> hash [ "Answer an integer value that is related to the identity of the receiver." @@ -61,7 +63,7 @@ BlTextDecoration >> hash [ bitXor: (style hash bitXor: (thickness hash bitXor: type hash)) ] -{ #category : #initialization } +{ #category : 'initialization' } BlTextDecoration >> initialize [ super initialize. @@ -71,7 +73,7 @@ BlTextDecoration >> initialize [ thickness := 1 ] -{ #category : #printing } +{ #category : 'printing' } BlTextDecoration >> printOn: aStream [ "Append a sequence of characters to aStream that identify the receiver." @@ -100,12 +102,12 @@ BlTextDecoration >> printOn: aStream [ nextPut: $} ] -{ #category : #'api - decoration' } +{ #category : 'api - decoration' } BlTextDecoration >> solid [ self style: BlTextDecorationStyle solid ] -{ #category : #printing } +{ #category : 'printing' } BlTextDecoration >> storeOn: aStream [ aStream nextPut: $(; @@ -134,26 +136,26 @@ BlTextDecoration >> storeOn: aStream [ nextPut: $) ] -{ #category : #accessing } +{ #category : 'accessing' } BlTextDecoration >> style [ ^ style ] -{ #category : #accessing } +{ #category : 'accessing' } BlTextDecoration >> style: aBlTextDecorationStyle [ style := aBlTextDecorationStyle ] -{ #category : #accessing } +{ #category : 'accessing' } BlTextDecoration >> thickness [ ^ thickness ] -{ #category : #'api - decoration' } +{ #category : 'api - decoration' } BlTextDecoration >> thickness: aNumber [ self @@ -163,37 +165,37 @@ BlTextDecoration >> thickness: aNumber [ thickness := aNumber ] -{ #category : #accessing } +{ #category : 'accessing' } BlTextDecoration >> type [ ^ type ] -{ #category : #accessing } +{ #category : 'accessing' } BlTextDecoration >> type: aBlTextDecorationType [ type := aBlTextDecorationType ] -{ #category : #accessing } +{ #category : 'accessing' } BlTextDecoration >> typesDo: aBlock [ self type typesDo: aBlock ] -{ #category : #'api - decoration' } +{ #category : 'api - decoration' } BlTextDecoration >> wavy [ self style: BlTextDecorationStyle wavy ] -{ #category : #'api - decoration' } +{ #category : 'api - decoration' } BlTextDecoration >> withLineThrough [ self type withLineThrough ] -{ #category : #'api - decoration' } +{ #category : 'api - decoration' } BlTextDecoration >> withOverline [ self type withOverline ] -{ #category : #'api - decoration' } +{ #category : 'api - decoration' } BlTextDecoration >> withUnderline [ self type withUnderline ] diff --git a/src/Bloc-Text/BlTextDecorationAttribute.class.st b/src/Bloc-Text/BlTextDecorationAttribute.class.st index 69b82adcf..595d4c78e 100644 --- a/src/Bloc-Text/BlTextDecorationAttribute.class.st +++ b/src/Bloc-Text/BlTextDecorationAttribute.class.st @@ -1,79 +1,81 @@ Class { - #name : #BlTextDecorationAttribute, - #superclass : #BlTextAttribute, + #name : 'BlTextDecorationAttribute', + #superclass : 'BlTextAttribute', #instVars : [ 'decoration' ], - #category : #'Bloc-Text-Text-Attributes' + #category : 'Bloc-Text-Text-Attributes', + #package : 'Bloc-Text', + #tag : 'Text-Attributes' } -{ #category : #accessing } +{ #category : 'accessing' } BlTextDecorationAttribute >> color [ ^ decoration color ] -{ #category : #'api - decoration' } +{ #category : 'api - decoration' } BlTextDecorationAttribute >> color: aColor [ decoration color: aColor ] -{ #category : #'api - decoration' } +{ #category : 'api - decoration' } BlTextDecorationAttribute >> dashed [ decoration dashed ] -{ #category : #accessing } +{ #category : 'accessing' } BlTextDecorationAttribute >> decoration [ ^ decoration ] -{ #category : #accessing } +{ #category : 'accessing' } BlTextDecorationAttribute >> decoration: aBlTextDecoration [ decoration := aBlTextDecoration ] -{ #category : #'api - decoration' } +{ #category : 'api - decoration' } BlTextDecorationAttribute >> dotted [ decoration dotted ] -{ #category : #'api - decoration' } +{ #category : 'api - decoration' } BlTextDecorationAttribute >> double [ decoration double ] -{ #category : #comparing } +{ #category : 'comparing' } BlTextDecorationAttribute >> equals: anAnotherAttribute [ ^ self decoration = anAnotherAttribute decoration ] -{ #category : #comparing } +{ #category : 'comparing' } BlTextDecorationAttribute >> hash [ "Answer an integer value that is related to the identity of the receiver." ^ super hash bitXor: decoration hash ] -{ #category : #initialization } +{ #category : 'initialization' } BlTextDecorationAttribute >> initialize [ super initialize. decoration := BlTextDecoration new ] -{ #category : #'api - decoration' } +{ #category : 'api - decoration' } BlTextDecorationAttribute >> lineThrough [ decoration withLineThrough ] -{ #category : #'api - decoration' } +{ #category : 'api - decoration' } BlTextDecorationAttribute >> overline [ decoration withOverline ] -{ #category : #'api - decoration' } +{ #category : 'api - decoration' } BlTextDecorationAttribute >> paint: aColor [ self deprecated: 'Use color: instead' @@ -83,7 +85,7 @@ BlTextDecorationAttribute >> paint: aColor [ self color: aColor ] -{ #category : #printing } +{ #category : 'printing' } BlTextDecorationAttribute >> printOn: aStream [ aStream @@ -91,32 +93,32 @@ BlTextDecorationAttribute >> printOn: aStream [ print: self decoration ] -{ #category : #'api - decoration' } +{ #category : 'api - decoration' } BlTextDecorationAttribute >> solid [ decoration solid ] -{ #category : #accessing } +{ #category : 'accessing' } BlTextDecorationAttribute >> thickness [ ^ decoration thickness ] -{ #category : #'api - decoration' } +{ #category : 'api - decoration' } BlTextDecorationAttribute >> thickness: aNumber [ decoration thickness: aNumber ] -{ #category : #'api - decoration' } +{ #category : 'api - decoration' } BlTextDecorationAttribute >> underline [ decoration withUnderline ] -{ #category : #'api - decoration' } +{ #category : 'api - decoration' } BlTextDecorationAttribute >> wavy [ decoration wavy ] -{ #category : #'api - decoration' } +{ #category : 'api - decoration' } BlTextDecorationAttribute >> width: aNumber [ self deprecated: 'Use thickness: instead' diff --git a/src/Bloc-Text/BlTextDecorationCompositeType.class.st b/src/Bloc-Text/BlTextDecorationCompositeType.class.st index 97e756573..124be8380 100644 --- a/src/Bloc-Text/BlTextDecorationCompositeType.class.st +++ b/src/Bloc-Text/BlTextDecorationCompositeType.class.st @@ -1,13 +1,15 @@ Class { - #name : #BlTextDecorationCompositeType, - #superclass : #BlTextDecorationType, + #name : 'BlTextDecorationCompositeType', + #superclass : 'BlTextDecorationType', #instVars : [ 'types' ], - #category : #'Bloc-Text-Text-Decoration' + #category : 'Bloc-Text-Text-Decoration', + #package : 'Bloc-Text', + #tag : 'Text-Decoration' } -{ #category : #comparing } +{ #category : 'comparing' } BlTextDecorationCompositeType >> = anObject [ "Answer whether the receiver and anObject represent the same object." @@ -18,31 +20,31 @@ BlTextDecorationCompositeType >> = anObject [ ^ types = anObject types ] -{ #category : #adding } +{ #category : 'adding' } BlTextDecorationCompositeType >> addType: aBlTextDecorationType [ types add: aBlTextDecorationType ] -{ #category : #testing } +{ #category : 'testing' } BlTextDecorationCompositeType >> hasTypes [ ^ types isNotEmpty ] -{ #category : #comparing } +{ #category : 'comparing' } BlTextDecorationCompositeType >> hash [ "Answer an integer value that is related to the identity of the receiver." ^ types hash ] -{ #category : #initialization } +{ #category : 'initialization' } BlTextDecorationCompositeType >> initialize [ super initialize. types := Set new ] -{ #category : #printing } +{ #category : 'printing' } BlTextDecorationCompositeType >> printOn: aStream [ "Append a sequence of characters to aStream that identify the receiver." @@ -59,7 +61,7 @@ BlTextDecorationCompositeType >> printOn: aStream [ nextPut: $} ] -{ #category : #printing } +{ #category : 'printing' } BlTextDecorationCompositeType >> storeOn: aStream [ aStream nextPut: $(. @@ -79,37 +81,37 @@ BlTextDecorationCompositeType >> storeOn: aStream [ aStream nextPut: $) ] -{ #category : #accessing } +{ #category : 'accessing' } BlTextDecorationCompositeType >> typeCount [ ^ types size ] -{ #category : #accessing } +{ #category : 'accessing' } BlTextDecorationCompositeType >> types [ ^ types ] -{ #category : #enumerating } +{ #category : 'enumerating' } BlTextDecorationCompositeType >> typesDo: aBlock [ self types do: [ :eachType | eachType typesDo: aBlock ] ] -{ #category : #'api - composition' } +{ #category : 'api - composition' } BlTextDecorationCompositeType >> withLineThrough [ self addType: self class lineThrough ] -{ #category : #'api - composition' } +{ #category : 'api - composition' } BlTextDecorationCompositeType >> withOverline [ self addType: self class overline ] -{ #category : #'api - composition' } +{ #category : 'api - composition' } BlTextDecorationCompositeType >> withUnderline [ self addType: self class underline ] -{ #category : #'logical operations' } +{ #category : 'logical operations' } BlTextDecorationCompositeType >> | anOtherDecorationType [ ^ self addType: anOtherDecorationType ] diff --git a/src/Bloc-Text/BlTextDecorationDashedStyle.class.st b/src/Bloc-Text/BlTextDecorationDashedStyle.class.st index e9f48cb04..68c9381c0 100644 --- a/src/Bloc-Text/BlTextDecorationDashedStyle.class.st +++ b/src/Bloc-Text/BlTextDecorationDashedStyle.class.st @@ -4,17 +4,19 @@ " Class { - #name : #BlTextDecorationDashedStyle, - #superclass : #BlTextDecorationStyle, - #category : #'Bloc-Text-Text-Decoration' + #name : 'BlTextDecorationDashedStyle', + #superclass : 'BlTextDecorationStyle', + #category : 'Bloc-Text-Text-Decoration', + #package : 'Bloc-Text', + #tag : 'Text-Decoration' } -{ #category : #accessing } +{ #category : 'accessing' } BlTextDecorationDashedStyle class >> constructor [ ^ #dashed ] -{ #category : #accessing } +{ #category : 'accessing' } BlTextDecorationDashedStyle class >> label [ ^ 'Dashed' ] diff --git a/src/Bloc-Text/BlTextDecorationDottedStyle.class.st b/src/Bloc-Text/BlTextDecorationDottedStyle.class.st index c12676071..e4fb7a565 100644 --- a/src/Bloc-Text/BlTextDecorationDottedStyle.class.st +++ b/src/Bloc-Text/BlTextDecorationDottedStyle.class.st @@ -4,17 +4,19 @@ " Class { - #name : #BlTextDecorationDottedStyle, - #superclass : #BlTextDecorationStyle, - #category : #'Bloc-Text-Text-Decoration' + #name : 'BlTextDecorationDottedStyle', + #superclass : 'BlTextDecorationStyle', + #category : 'Bloc-Text-Text-Decoration', + #package : 'Bloc-Text', + #tag : 'Text-Decoration' } -{ #category : #accessing } +{ #category : 'accessing' } BlTextDecorationDottedStyle class >> constructor [ ^ #dotted ] -{ #category : #accessing } +{ #category : 'accessing' } BlTextDecorationDottedStyle class >> label [ ^ 'Dotted' ] diff --git a/src/Bloc-Text/BlTextDecorationDoubleStyle.class.st b/src/Bloc-Text/BlTextDecorationDoubleStyle.class.st index 7b45e9c19..94de6a453 100644 --- a/src/Bloc-Text/BlTextDecorationDoubleStyle.class.st +++ b/src/Bloc-Text/BlTextDecorationDoubleStyle.class.st @@ -4,17 +4,19 @@ " Class { - #name : #BlTextDecorationDoubleStyle, - #superclass : #BlTextDecorationStyle, - #category : #'Bloc-Text-Text-Decoration' + #name : 'BlTextDecorationDoubleStyle', + #superclass : 'BlTextDecorationStyle', + #category : 'Bloc-Text-Text-Decoration', + #package : 'Bloc-Text', + #tag : 'Text-Decoration' } -{ #category : #accessing } +{ #category : 'accessing' } BlTextDecorationDoubleStyle class >> constructor [ ^ #double ] -{ #category : #accessing } +{ #category : 'accessing' } BlTextDecorationDoubleStyle class >> label [ ^ 'Double' ] diff --git a/src/Bloc-Text/BlTextDecorationLineThroughType.class.st b/src/Bloc-Text/BlTextDecorationLineThroughType.class.st index c00fb5815..6ad23f1dc 100644 --- a/src/Bloc-Text/BlTextDecorationLineThroughType.class.st +++ b/src/Bloc-Text/BlTextDecorationLineThroughType.class.st @@ -1,15 +1,17 @@ Class { - #name : #BlTextDecorationLineThroughType, - #superclass : #BlTextDecorationSingleType, - #category : #'Bloc-Text-Text-Decoration' + #name : 'BlTextDecorationLineThroughType', + #superclass : 'BlTextDecorationSingleType', + #category : 'Bloc-Text-Text-Decoration', + #package : 'Bloc-Text', + #tag : 'Text-Decoration' } -{ #category : #accessing } +{ #category : 'accessing' } BlTextDecorationLineThroughType class >> constructor [ ^ #lineThrough ] -{ #category : #accessing } +{ #category : 'accessing' } BlTextDecorationLineThroughType class >> label [ ^ 'Line through' ] diff --git a/src/Bloc-Text/BlTextDecorationOverlineType.class.st b/src/Bloc-Text/BlTextDecorationOverlineType.class.st index 7cb7808be..60b07d659 100644 --- a/src/Bloc-Text/BlTextDecorationOverlineType.class.st +++ b/src/Bloc-Text/BlTextDecorationOverlineType.class.st @@ -1,15 +1,17 @@ Class { - #name : #BlTextDecorationOverlineType, - #superclass : #BlTextDecorationSingleType, - #category : #'Bloc-Text-Text-Decoration' + #name : 'BlTextDecorationOverlineType', + #superclass : 'BlTextDecorationSingleType', + #category : 'Bloc-Text-Text-Decoration', + #package : 'Bloc-Text', + #tag : 'Text-Decoration' } -{ #category : #accessing } +{ #category : 'accessing' } BlTextDecorationOverlineType class >> constructor [ ^ #overline ] -{ #category : #accessing } +{ #category : 'accessing' } BlTextDecorationOverlineType class >> label [ ^ 'Overline' ] diff --git a/src/Bloc-Text/BlTextDecorationSingleType.class.st b/src/Bloc-Text/BlTextDecorationSingleType.class.st index 1c873e4ae..440fb7efe 100644 --- a/src/Bloc-Text/BlTextDecorationSingleType.class.st +++ b/src/Bloc-Text/BlTextDecorationSingleType.class.st @@ -1,38 +1,40 @@ Class { - #name : #BlTextDecorationSingleType, - #superclass : #BlTextDecorationType, + #name : 'BlTextDecorationSingleType', + #superclass : 'BlTextDecorationType', #classInstVars : [ 'uniqueInstance' ], - #category : #'Bloc-Text-Text-Decoration' + #category : 'Bloc-Text-Text-Decoration', + #package : 'Bloc-Text', + #tag : 'Text-Decoration' } -{ #category : #cleanup } +{ #category : 'cleanup' } BlTextDecorationSingleType class >> cleanUp [ uniqueInstance := nil ] -{ #category : #accessing } +{ #category : 'accessing' } BlTextDecorationSingleType class >> constructor [ ^ self subclassResponsibility ] -{ #category : #testing } +{ #category : 'testing' } BlTextDecorationSingleType class >> isAbstract [ ^ self = BlTextDecorationSingleType ] -{ #category : #accessing } +{ #category : 'accessing' } BlTextDecorationSingleType class >> label [ ^ self subclassResponsibility ] -{ #category : #accessing } +{ #category : 'accessing' } BlTextDecorationSingleType class >> uniqueInstance [ ^ uniqueInstance ifNil: [ uniqueInstance := self new ] ] -{ #category : #comparing } +{ #category : 'comparing' } BlTextDecorationSingleType >> = anObject [ "Answer whether the receiver and anObject represent the same object." @@ -41,19 +43,19 @@ BlTextDecorationSingleType >> = anObject [ ^ self class = anObject class ] -{ #category : #comparing } +{ #category : 'comparing' } BlTextDecorationSingleType >> hash [ "Answer an integer value that is related to the identity of the receiver." ^ self class hash ] -{ #category : #printing } +{ #category : 'printing' } BlTextDecorationSingleType >> printOn: aStream [ aStream nextPutAll: self class label ] -{ #category : #printing } +{ #category : 'printing' } BlTextDecorationSingleType >> storeOn: aStream [ aStream nextPutAll: BlTextDecorationType name; @@ -61,12 +63,12 @@ BlTextDecorationSingleType >> storeOn: aStream [ nextPutAll: self class constructor ] -{ #category : #enumerating } +{ #category : 'enumerating' } BlTextDecorationSingleType >> typesDo: aBlock [ aBlock value: self ] -{ #category : #'logical operations' } +{ #category : 'logical operations' } BlTextDecorationSingleType >> | anOtherDecorationType [ ^ BlTextDecorationCompositeType new addType: self; diff --git a/src/Bloc-Text/BlTextDecorationSolidStyle.class.st b/src/Bloc-Text/BlTextDecorationSolidStyle.class.st index 9988f11bf..ba8918257 100644 --- a/src/Bloc-Text/BlTextDecorationSolidStyle.class.st +++ b/src/Bloc-Text/BlTextDecorationSolidStyle.class.st @@ -4,17 +4,19 @@ " Class { - #name : #BlTextDecorationSolidStyle, - #superclass : #BlTextDecorationStyle, - #category : #'Bloc-Text-Text-Decoration' + #name : 'BlTextDecorationSolidStyle', + #superclass : 'BlTextDecorationStyle', + #category : 'Bloc-Text-Text-Decoration', + #package : 'Bloc-Text', + #tag : 'Text-Decoration' } -{ #category : #accessing } +{ #category : 'accessing' } BlTextDecorationSolidStyle class >> constructor [ ^ #solid ] -{ #category : #accessing } +{ #category : 'accessing' } BlTextDecorationSolidStyle class >> label [ ^ 'Solid' ] diff --git a/src/Bloc-Text/BlTextDecorationStyle.class.st b/src/Bloc-Text/BlTextDecorationStyle.class.st index a8f0b1434..ce3fea2eb 100644 --- a/src/Bloc-Text/BlTextDecorationStyle.class.st +++ b/src/Bloc-Text/BlTextDecorationStyle.class.st @@ -4,65 +4,67 @@ Describes the style of the text {{gtClass:BlTextDecoration|label=decoration}} (l " Class { - #name : #BlTextDecorationStyle, - #superclass : #Object, + #name : 'BlTextDecorationStyle', + #superclass : 'Object', #classInstVars : [ 'uniqueInstance' ], - #category : #'Bloc-Text-Text-Decoration' + #category : 'Bloc-Text-Text-Decoration', + #package : 'Bloc-Text', + #tag : 'Text-Decoration' } -{ #category : #cleanup } +{ #category : 'cleanup' } BlTextDecorationStyle class >> cleanUp [ uniqueInstance := nil ] -{ #category : #accessing } +{ #category : 'accessing' } BlTextDecorationStyle class >> constructor [ ^ self subclassResponsibility ] -{ #category : #'api - instance creation' } +{ #category : 'api - instance creation' } BlTextDecorationStyle class >> dashed [ ^ BlTextDecorationDashedStyle uniqueInstance ] -{ #category : #'api - instance creation' } +{ #category : 'api - instance creation' } BlTextDecorationStyle class >> dotted [ ^ BlTextDecorationDottedStyle uniqueInstance ] -{ #category : #'api - instance creation' } +{ #category : 'api - instance creation' } BlTextDecorationStyle class >> double [ ^ BlTextDecorationDoubleStyle uniqueInstance ] -{ #category : #testing } +{ #category : 'testing' } BlTextDecorationStyle class >> isAbstract [ ^ self = BlTextDecorationStyle ] -{ #category : #accessing } +{ #category : 'accessing' } BlTextDecorationStyle class >> label [ ^ self subclassResponsibility ] -{ #category : #'api - instance creation' } +{ #category : 'api - instance creation' } BlTextDecorationStyle class >> solid [ ^ BlTextDecorationSolidStyle uniqueInstance ] -{ #category : #accessing } +{ #category : 'accessing' } BlTextDecorationStyle class >> uniqueInstance [ ^ uniqueInstance ifNil: [ uniqueInstance := self new ] ] -{ #category : #'api - instance creation' } +{ #category : 'api - instance creation' } BlTextDecorationStyle class >> wavy [ ^ BlTextDecorationWavyStyle uniqueInstance ] -{ #category : #comparing } +{ #category : 'comparing' } BlTextDecorationStyle >> = anObject [ "Answer whether the receiver and anObject represent the same object." @@ -71,19 +73,19 @@ BlTextDecorationStyle >> = anObject [ ^ self class = anObject class ] -{ #category : #comparing } +{ #category : 'comparing' } BlTextDecorationStyle >> hash [ "Answer an integer value that is related to the identity of the receiver." ^ self class hash ] -{ #category : #printing } +{ #category : 'printing' } BlTextDecorationStyle >> printOn: aStream [ aStream nextPutAll: self class label ] -{ #category : #printing } +{ #category : 'printing' } BlTextDecorationStyle >> storeOn: aStream [ aStream nextPutAll: BlTextDecorationStyle name; diff --git a/src/Bloc-Text/BlTextDecorationType.class.st b/src/Bloc-Text/BlTextDecorationType.class.st index 6b69d5532..eaefb8933 100644 --- a/src/Bloc-Text/BlTextDecorationType.class.st +++ b/src/Bloc-Text/BlTextDecorationType.class.st @@ -1,35 +1,37 @@ Class { - #name : #BlTextDecorationType, - #superclass : #Object, - #category : #'Bloc-Text-Text-Decoration' + #name : 'BlTextDecorationType', + #superclass : 'Object', + #category : 'Bloc-Text-Text-Decoration', + #package : 'Bloc-Text', + #tag : 'Text-Decoration' } -{ #category : #testing } +{ #category : 'testing' } BlTextDecorationType class >> isAbstract [ ^ self = BlTextDecorationType ] -{ #category : #accessing } +{ #category : 'accessing' } BlTextDecorationType class >> lineThrough [ ^ BlTextDecorationLineThroughType uniqueInstance ] -{ #category : #accessing } +{ #category : 'accessing' } BlTextDecorationType class >> overline [ ^ BlTextDecorationOverlineType uniqueInstance ] -{ #category : #accessing } +{ #category : 'accessing' } BlTextDecorationType class >> underline [ ^ BlTextDecorationUnderlineType uniqueInstance ] -{ #category : #enumerating } +{ #category : 'enumerating' } BlTextDecorationType >> typesDo: aBlock [ ] -{ #category : #'logical operations' } +{ #category : 'logical operations' } BlTextDecorationType >> | anOtherDecorationType [ ^ self subclassResponsibility ] diff --git a/src/Bloc-Text/BlTextDecorationUnderlineType.class.st b/src/Bloc-Text/BlTextDecorationUnderlineType.class.st index be6ba6828..d490dd456 100644 --- a/src/Bloc-Text/BlTextDecorationUnderlineType.class.st +++ b/src/Bloc-Text/BlTextDecorationUnderlineType.class.st @@ -1,15 +1,17 @@ Class { - #name : #BlTextDecorationUnderlineType, - #superclass : #BlTextDecorationSingleType, - #category : #'Bloc-Text-Text-Decoration' + #name : 'BlTextDecorationUnderlineType', + #superclass : 'BlTextDecorationSingleType', + #category : 'Bloc-Text-Text-Decoration', + #package : 'Bloc-Text', + #tag : 'Text-Decoration' } -{ #category : #accessing } +{ #category : 'accessing' } BlTextDecorationUnderlineType class >> constructor [ ^ #underline ] -{ #category : #accessing } +{ #category : 'accessing' } BlTextDecorationUnderlineType class >> label [ ^ 'Underline' ] diff --git a/src/Bloc-Text/BlTextDecorationWavyStyle.class.st b/src/Bloc-Text/BlTextDecorationWavyStyle.class.st index 796e23046..91b5ee4d0 100644 --- a/src/Bloc-Text/BlTextDecorationWavyStyle.class.st +++ b/src/Bloc-Text/BlTextDecorationWavyStyle.class.st @@ -4,17 +4,19 @@ " Class { - #name : #BlTextDecorationWavyStyle, - #superclass : #BlTextDecorationStyle, - #category : #'Bloc-Text-Text-Decoration' + #name : 'BlTextDecorationWavyStyle', + #superclass : 'BlTextDecorationStyle', + #category : 'Bloc-Text-Text-Decoration', + #package : 'Bloc-Text', + #tag : 'Text-Decoration' } -{ #category : #accessing } +{ #category : 'accessing' } BlTextDecorationWavyStyle class >> constructor [ ^ #wavy ] -{ #category : #accessing } +{ #category : 'accessing' } BlTextDecorationWavyStyle class >> label [ ^ 'Wavy' ] diff --git a/src/Bloc-Text/BlTextDelegatedAttributesBuilder.class.st b/src/Bloc-Text/BlTextDelegatedAttributesBuilder.class.st index 0de005f1b..7a7997f7e 100644 --- a/src/Bloc-Text/BlTextDelegatedAttributesBuilder.class.st +++ b/src/Bloc-Text/BlTextDelegatedAttributesBuilder.class.st @@ -3,17 +3,19 @@ I am an extended version of the attributes builder with an ability to delegate t " Class { - #name : #BlTextDelegatedAttributesBuilder, - #superclass : #BlTextAttributesBuilder, + #name : 'BlTextDelegatedAttributesBuilder', + #superclass : 'BlTextAttributesBuilder', #instVars : [ 'attributesTarget', 'attributeAddedBlock', 'isOverwritableByStyler' ], - #category : #'Bloc-Text-Text-Support' + #category : 'Bloc-Text-Text-Support', + #package : 'Bloc-Text', + #tag : 'Text-Support' } -{ #category : #accessing } +{ #category : 'accessing' } BlTextDelegatedAttributesBuilder >> attribute: aTextAttribute [ isOverwritableByStyler @@ -29,30 +31,30 @@ BlTextDelegatedAttributesBuilder >> attribute: aTextAttribute [ attributeAddedBlock cull: aTextAttribute ] -{ #category : #accessing } +{ #category : 'accessing' } BlTextDelegatedAttributesBuilder >> attributesTarget [ ^ attributesTarget ] -{ #category : #accessing } +{ #category : 'accessing' } BlTextDelegatedAttributesBuilder >> attributesTarget: aTBlTextStyleable [ attributesTarget := aTBlTextStyleable. self applyOn: attributesTarget ] -{ #category : #accessing } +{ #category : 'accessing' } BlTextDelegatedAttributesBuilder >> beNotOverwritableByStyler [ isOverwritableByStyler := false ] -{ #category : #accessing } +{ #category : 'accessing' } BlTextDelegatedAttributesBuilder >> beOverwritableByStyler [ isOverwritableByStyler := true ] -{ #category : #initialization } +{ #category : 'initialization' } BlTextDelegatedAttributesBuilder >> initialize [ super initialize. @@ -60,7 +62,7 @@ BlTextDelegatedAttributesBuilder >> initialize [ isOverwritableByStyler := true ] -{ #category : #scripting } +{ #category : 'scripting' } BlTextDelegatedAttributesBuilder >> whenAdded: aBlock [ attributeAddedBlock := aBlock ] diff --git a/src/Bloc-Text/BlTextError.class.st b/src/Bloc-Text/BlTextError.class.st index 6a5f0c520..dd418a726 100644 --- a/src/Bloc-Text/BlTextError.class.st +++ b/src/Bloc-Text/BlTextError.class.st @@ -1,5 +1,7 @@ Class { - #name : #BlTextError, - #superclass : #Error, - #category : #'Bloc-Text-Text' + #name : 'BlTextError', + #superclass : 'Error', + #category : 'Bloc-Text-Text', + #package : 'Bloc-Text', + #tag : 'Text' } diff --git a/src/Bloc-Text/BlTextFontAndStyleBuilder.class.st b/src/Bloc-Text/BlTextFontAndStyleBuilder.class.st index 2034d7825..3b1a81a9c 100644 --- a/src/Bloc-Text/BlTextFontAndStyleBuilder.class.st +++ b/src/Bloc-Text/BlTextFontAndStyleBuilder.class.st @@ -1,6 +1,6 @@ Class { - #name : #BlTextFontAndStyleBuilder, - #superclass : #Object, + #name : 'BlTextFontAndStyleBuilder', + #superclass : 'Object', #traits : 'TBlFontDescriptor + TBlFont', #classTraits : 'TBlFontDescriptor classTrait + TBlFont classTrait', #instVars : [ @@ -9,45 +9,47 @@ Class { 'defaultFontSize', 'defaultFontFamilyName' ], - #category : #'Bloc-Text-Text-Support' + #category : 'Bloc-Text-Text-Support', + #package : 'Bloc-Text', + #tag : 'Text-Support' } -{ #category : #'text - style' } +{ #category : 'text - style' } BlTextFontAndStyleBuilder >> color [ ^ color ] -{ #category : #'text - style' } +{ #category : 'text - style' } BlTextFontAndStyleBuilder >> color: aColor [ color := aColor ] -{ #category : #'text - style' } +{ #category : 'text - style' } BlTextFontAndStyleBuilder >> decoration [ ^ decoration ] -{ #category : #'text - style' } +{ #category : 'text - style' } BlTextFontAndStyleBuilder >> decoration: aBlTextDecoration [ decoration := aBlTextDecoration ] -{ #category : #'font - name' } +{ #category : 'font - name' } BlTextFontAndStyleBuilder >> defaultFamilyName: aString [ defaultFontFamilyName := aString ] -{ #category : #'font - size' } +{ #category : 'font - size' } BlTextFontAndStyleBuilder >> defaultFontSizePt: aNumber [ defaultFontSize := aNumber ] -{ #category : #accessing } +{ #category : 'accessing' } BlTextFontAndStyleBuilder >> font [ | aFont | @@ -67,61 +69,61 @@ BlTextFontAndStyleBuilder >> font [ ^ aFont ] -{ #category : #accessing } +{ #category : 'accessing' } BlTextFontAndStyleBuilder >> fontPropertiesTarget [ ^ self ] -{ #category : #testing } +{ #category : 'testing' } BlTextFontAndStyleBuilder >> hasCustomColor [ ^ color notNil ] -{ #category : #testing } +{ #category : 'testing' } BlTextFontAndStyleBuilder >> hasCustomDecoration [ ^ decoration notNil ] -{ #category : #testing } +{ #category : 'testing' } BlTextFontAndStyleBuilder >> hasCustomFamilyName [ ^ fontFamilyName notNil or: [ defaultFontFamilyName notNil ] ] -{ #category : #testing } +{ #category : 'testing' } BlTextFontAndStyleBuilder >> hasCustomFontSize [ ^ fontSize notNil or: [ defaultFontSize notNil ] ] -{ #category : #testing } +{ #category : 'testing' } BlTextFontAndStyleBuilder >> hasCustomFontSlant [ ^ fontSlant notNil ] -{ #category : #testing } +{ #category : 'testing' } BlTextFontAndStyleBuilder >> hasCustomFontStretch [ ^ fontStretch notNil ] -{ #category : #testing } +{ #category : 'testing' } BlTextFontAndStyleBuilder >> hasCustomFontStyle [ ^ self hasCustomFontSlant or: [ self hasCustomFontStretch or: [ self hasCustomFontWeight ] ] ] -{ #category : #testing } +{ #category : 'testing' } BlTextFontAndStyleBuilder >> hasCustomFontWeight [ ^ fontWeight notNil ] -{ #category : #'font - name' } +{ #category : 'font - name' } BlTextFontAndStyleBuilder >> resolvedFontFamilyName [ ^ self familyName ifNil: [ defaultFontFamilyName ] ] -{ #category : #'font - size' } +{ #category : 'font - size' } BlTextFontAndStyleBuilder >> resolvedFontSize [ diff --git a/src/Bloc-Text/BlTextForegroundAttribute.class.st b/src/Bloc-Text/BlTextForegroundAttribute.class.st index e10405bed..7a63782fe 100644 --- a/src/Bloc-Text/BlTextForegroundAttribute.class.st +++ b/src/Bloc-Text/BlTextForegroundAttribute.class.st @@ -17,50 +17,52 @@ Internal Representation and Key Implementation Points. " Class { - #name : #BlTextForegroundAttribute, - #superclass : #BlTextAttribute, + #name : 'BlTextForegroundAttribute', + #superclass : 'BlTextAttribute', #instVars : [ 'paint' ], - #category : #'Bloc-Text-Text-Attributes' + #category : 'Bloc-Text-Text-Attributes', + #package : 'Bloc-Text', + #tag : 'Text-Attributes' } -{ #category : #'instance creation' } +{ #category : 'instance creation' } BlTextForegroundAttribute class >> color: aColor [ ^ self new paint: aColor; yourself ] -{ #category : #'instance creation' } +{ #category : 'instance creation' } BlTextForegroundAttribute class >> paint: aPaint [ ^ self color: aPaint ] -{ #category : #'text style' } +{ #category : 'text style' } BlTextForegroundAttribute >> applyOnFontAndStyleBuilder: aBlTextFontAndStyleBuilder [ aBlTextFontAndStyleBuilder color: self paint ] -{ #category : #comparing } +{ #category : 'comparing' } BlTextForegroundAttribute >> equals: anAnotherAttribute [ ^ self paint = anAnotherAttribute paint ] -{ #category : #comparing } +{ #category : 'comparing' } BlTextForegroundAttribute >> hash [ "Answer an integer value that is related to the identity of the receiver." ^ super hash bitXor: self paint hash ] -{ #category : #accessing } +{ #category : 'accessing' } BlTextForegroundAttribute >> paint [ ^ paint ] -{ #category : #accessing } +{ #category : 'accessing' } BlTextForegroundAttribute >> paint: aPaint [ self assert: [ paint isNil ] @@ -73,14 +75,14 @@ BlTextForegroundAttribute >> paint: aPaint [ paint := aPaint ] -{ #category : #printing } +{ #category : 'printing' } BlTextForegroundAttribute >> printOn: aStream [ aStream nextPutAll: 'text-foreground: '; nextPutAll: self paint printString ] -{ #category : #printing } +{ #category : 'printing' } BlTextForegroundAttribute >> storeOn: aStream [ super storeOn: aStream. diff --git a/src/Bloc-Text/BlTextIterator.class.st b/src/Bloc-Text/BlTextIterator.class.st index ab5a6daa5..5285ae806 100644 --- a/src/Bloc-Text/BlTextIterator.class.st +++ b/src/Bloc-Text/BlTextIterator.class.st @@ -5,14 +5,16 @@ Use me for text enumeration purposes " Class { - #name : #BlTextIterator, - #superclass : #Object, + #name : 'BlTextIterator', + #superclass : 'Object', #traits : 'TBlDebug', #classTraits : 'TBlDebug classTrait', - #category : #'Bloc-Text-Text' + #category : 'Bloc-Text-Text', + #package : 'Bloc-Text', + #tag : 'Text' } -{ #category : #'iterator - accessing' } +{ #category : 'iterator - accessing' } BlTextIterator >> attributes [ "Return a collection of rope attributes at a current position without duplicates" @@ -20,7 +22,7 @@ BlTextIterator >> attributes [ ^ self subclassResponsibility ] -{ #category : #'iterator - enumeration' } +{ #category : 'iterator - enumeration' } BlTextIterator >> detectAttribute: aBlock ifFound: aFoundBlock ifNone: anExceptionBlock [ "Evaluate aBlock with each of the receiver's elements as the argument. If some element evaluates aBlock to true, then cull this element into @@ -31,7 +33,7 @@ BlTextIterator >> detectAttribute: aBlock ifFound: aFoundBlock ifNone: anExcepti ^ self subclassResponsibility ] -{ #category : #'iterator - testing' } +{ #category : 'iterator - testing' } BlTextIterator >> doesAttributeEnd: anAttribute [ "Return true if a given attribute ends at the current position. By `ends` we mean that this attribute is not present at the next position. @@ -51,14 +53,14 @@ BlTextIterator >> doesAttributeEnd: anAttribute [ ^ ((self text attributesAt: self position + 1) includes: anAttribute) not ] -{ #category : #'iterator - testing' } +{ #category : 'iterator - testing' } BlTextIterator >> hasNext [ "Return true if there is a next text item (character) after a current position" ^ self subclassResponsibility ] -{ #category : #'iterator - testing' } +{ #category : 'iterator - testing' } BlTextIterator >> hasPrevious [ "Return true if there is a previous text item (character) before the current position" @@ -66,7 +68,7 @@ BlTextIterator >> hasPrevious [ ^ self subclassResponsibility ] -{ #category : #'iterator - enumeration' } +{ #category : 'iterator - enumeration' } BlTextIterator >> next [ "Return an item (character) at current position and move one to the right" @@ -74,7 +76,7 @@ BlTextIterator >> next [ ^ self subclassResponsibility ] -{ #category : #'iterator - enumeration' } +{ #category : 'iterator - enumeration' } BlTextIterator >> nextAttributeStartAndEnd: aBlTextAttribute indicesDo: anIndicesBlock [ "Find and iterate over the start and end indices of the given attribute" @@ -83,7 +85,7 @@ BlTextIterator >> nextAttributeStartAndEnd: aBlTextAttribute indicesDo: anIndice indicesDo: anIndicesBlock ] -{ #category : #'iterator - enumeration' } +{ #category : 'iterator - enumeration' } BlTextIterator >> nextAttributeStartAndEndSuchThat: aComparisonBlock indicesDo: anIndicesBlock [ "Find and iterate over the start and end indices of the given attribute" | startPosition endPosition isAttributeStartFound isAttributeEndFound | @@ -132,7 +134,7 @@ BlTextIterator >> nextAttributeStartAndEndSuchThat: aComparisonBlock indicesDo: value: endPosition ] ] -{ #category : #'iterator - enumeration' } +{ #category : 'iterator - enumeration' } BlTextIterator >> nextAttributedEnd: aBlock indicesDo: anIndicesBlock [ "Find and iterate over the last indices of the attributes for which aBlock returns true" | startPosition endPosition theEndedAttributes | @@ -179,7 +181,7 @@ BlTextIterator >> nextAttributedEnd: aBlock indicesDo: anIndicesBlock [ value: theEndedAttributes ] -{ #category : #'iterator - enumeration' } +{ #category : 'iterator - enumeration' } BlTextIterator >> nextLine [ "Return an instance of BrText which represents a piece of text from current position until the first carriage return character" @@ -188,7 +190,7 @@ BlTextIterator >> nextLine [ ^ self subclassResponsibility ] -{ #category : #'iterator - enumeration' } +{ #category : 'iterator - enumeration' } BlTextIterator >> nextLineIndicesDo: anIndicesBlock [ " execute anIndicesBlock with 3 arguments for each line: - start index of line @@ -198,7 +200,7 @@ BlTextIterator >> nextLineIndicesDo: anIndicesBlock [ self subclassResponsibility ] -{ #category : #'iterator - enumeration' } +{ #category : 'iterator - enumeration' } BlTextIterator >> nextLineIndicesDo: anIndicesBlock shouldMerge: aMergeBlock [ "Iterate over lines within current text and execute aSplitBlock with the 3 arguments for each potential line: @@ -248,14 +250,14 @@ BlTextIterator >> nextLineIndicesDo: anIndicesBlock shouldMerge: aMergeBlock [ value: actualDelimiterIndex ] -{ #category : #'iterator - enumeration' } +{ #category : 'iterator - enumeration' } BlTextIterator >> nextSegment: aBlock [ ^ self subclassResponsibility ] -{ #category : #'iterator - enumeration' } +{ #category : 'iterator - enumeration' } BlTextIterator >> nextSegment: aBlock indicesDo: anIndicesBlock [ "Evaluate aBlock with every item in the forward direction until aBlock returns a different value compared to the value produced by evaluating aBlock with the first item in a sequence or until we run out of items to iterate over. @@ -275,7 +277,7 @@ BlTextIterator >> nextSegment: aBlock indicesDo: anIndicesBlock [ ^ self subclassResponsibility ] -{ #category : #'iterator - enumeration' } +{ #category : 'iterator - enumeration' } BlTextIterator >> nextSpan [ "Return a next homogeneous text span" @@ -283,7 +285,7 @@ BlTextIterator >> nextSpan [ ^ self subclassResponsibility ] -{ #category : #'iterator - enumeration' } +{ #category : 'iterator - enumeration' } BlTextIterator >> nextSpan: aBlock [ "Return a text whose attributes of each characters evaluate aBlock to the same value, e.g. either false or true" @@ -294,7 +296,7 @@ BlTextIterator >> nextSpan: aBlock [ indicesDo: [ :aStart :anEnd :hasValue | self text from: aStart to: anEnd ] ] -{ #category : #'iterator - enumeration' } +{ #category : 'iterator - enumeration' } BlTextIterator >> nextSpan: aBlock indicesDo: anIndicesBlock [ | theMatchedAttributes theMatchedAttributesSet startPosition endPosition | @@ -335,7 +337,7 @@ BlTextIterator >> nextSpan: aBlock indicesDo: anIndicesBlock [ value: theMatchedAttributes ] -{ #category : #'iterator - enumeration' } +{ #category : 'iterator - enumeration' } BlTextIterator >> nextSpanAny: aBlock indicesDo: anIndicesBlock [ | initialValue startPosition endPosition | @@ -369,7 +371,7 @@ BlTextIterator >> nextSpanAny: aBlock indicesDo: anIndicesBlock [ value: initialValue ] -{ #category : #'iterator - enumeration' } +{ #category : 'iterator - enumeration' } BlTextIterator >> nextWhitespace [ "Return an instance of BrText which represents a piece of text from current position until the first non-whitespace character without including it" @@ -378,7 +380,7 @@ BlTextIterator >> nextWhitespace [ ^ self subclassResponsibility ] -{ #category : #'iterator - enumeration' } +{ #category : 'iterator - enumeration' } BlTextIterator >> nextWord [ "Return an instance of BrText which represents a piece of text from current position until the first space character" @@ -387,7 +389,7 @@ BlTextIterator >> nextWord [ ^ self subclassResponsibility ] -{ #category : #'iterator - enumeration' } +{ #category : 'iterator - enumeration' } BlTextIterator >> peek [ "Return an item (character) at current position" @@ -395,7 +397,7 @@ BlTextIterator >> peek [ ^ self subclassResponsibility ] -{ #category : #'iterator - enumeration' } +{ #category : 'iterator - enumeration' } BlTextIterator >> peer [ "Return an item (character) before current position" @@ -403,7 +405,7 @@ BlTextIterator >> peer [ ^ self subclassResponsibility ] -{ #category : #'iterator - accessing' } +{ #category : 'iterator - accessing' } BlTextIterator >> position [ "Return current iterator position within a text" @@ -411,7 +413,7 @@ BlTextIterator >> position [ ^ self subclassResponsibility ] -{ #category : #'iterator - enumeration' } +{ #category : 'iterator - enumeration' } BlTextIterator >> previous [ "Return an item (character) at current position and move one to the left" @@ -419,7 +421,7 @@ BlTextIterator >> previous [ ^ self subclassResponsibility ] -{ #category : #'iterator - enumeration' } +{ #category : 'iterator - enumeration' } BlTextIterator >> previousSegment: aBlock indicesDo: anIndicesBlock [ "Evaluate aBlock with every item in the backward direction until aBlock returns a different value compared to the value produced by evaluating aBlock with the first item in a sequence or until we run out of items to iterate over. @@ -439,7 +441,7 @@ BlTextIterator >> previousSegment: aBlock indicesDo: anIndicesBlock [ ^ self subclassResponsibility ] -{ #category : #'iterator - enumeration' } +{ #category : 'iterator - enumeration' } BlTextIterator >> selectAttributes: aBlock [ "Evaluate aBlock with each of the receiver's elements as the argument. Collect into a new collection like the receiver, only those elements for @@ -449,14 +451,14 @@ BlTextIterator >> selectAttributes: aBlock [ ^ self subclassResponsibility ] -{ #category : #'iterator - enumeration' } +{ #category : 'iterator - enumeration' } BlTextIterator >> skip: aNumber [ "Move forward by aNumber characters" self subclassResponsibility ] -{ #category : #accessing } +{ #category : 'accessing' } BlTextIterator >> text [ "Return an original text that I iterate over" @@ -464,7 +466,7 @@ BlTextIterator >> text [ ^ self subclassResponsibility ] -{ #category : #accessing } +{ #category : 'accessing' } BlTextIterator >> text: arg1 from: arg2 to: arg3 [ ^ self subclassResponsibility ] diff --git a/src/Bloc-Text/BlTextLinkAttribute.class.st b/src/Bloc-Text/BlTextLinkAttribute.class.st index 7d10c96e1..69d3f621b 100644 --- a/src/Bloc-Text/BlTextLinkAttribute.class.st +++ b/src/Bloc-Text/BlTextLinkAttribute.class.st @@ -1,5 +1,7 @@ Class { - #name : #BlTextLinkAttribute, - #superclass : #BlTextAttribute, - #category : #'Bloc-Text-Text-Attributes' + #name : 'BlTextLinkAttribute', + #superclass : 'BlTextAttribute', + #category : 'Bloc-Text-Text-Attributes', + #package : 'Bloc-Text', + #tag : 'Text-Attributes' } diff --git a/src/Bloc-Text/BlTextMethodLink.class.st b/src/Bloc-Text/BlTextMethodLink.class.st index f284d75fc..65fc26a35 100644 --- a/src/Bloc-Text/BlTextMethodLink.class.st +++ b/src/Bloc-Text/BlTextMethodLink.class.st @@ -1,10 +1,12 @@ Class { - #name : #BlTextMethodLink, - #superclass : #BlTextLinkAttribute, - #category : #'Bloc-Text-Text-Attributes' + #name : 'BlTextMethodLink', + #superclass : 'BlTextLinkAttribute', + #category : 'Bloc-Text-Text-Attributes', + #package : 'Bloc-Text', + #tag : 'Text-Attributes' } -{ #category : #accessing } +{ #category : 'accessing' } BlTextMethodLink class >> selector: aSymbol [ ^ self new ] diff --git a/src/Bloc-Text/BlTextNonPrintableCharacterPrinter.class.st b/src/Bloc-Text/BlTextNonPrintableCharacterPrinter.class.st index 757162929..b881486fc 100644 --- a/src/Bloc-Text/BlTextNonPrintableCharacterPrinter.class.st +++ b/src/Bloc-Text/BlTextNonPrintableCharacterPrinter.class.st @@ -1,13 +1,15 @@ Class { - #name : #BlTextNonPrintableCharacterPrinter, - #superclass : #Object, + #name : 'BlTextNonPrintableCharacterPrinter', + #superclass : 'Object', #classVars : [ 'CharacterMap' ], - #category : #'Bloc-Text-Text-Support' + #category : 'Bloc-Text-Text-Support', + #package : 'Bloc-Text', + #tag : 'Text-Support' } -{ #category : #accessing } +{ #category : 'accessing' } BlTextNonPrintableCharacterPrinter class >> characterMap [ ^ CharacterMap ifNil: [ CharacterMap := { @@ -17,14 +19,14 @@ BlTextNonPrintableCharacterPrinter class >> characterMap [ Character nel -> '' } asDictionary ] ] -{ #category : #printing } +{ #category : 'printing' } BlTextNonPrintableCharacterPrinter class >> print: aString [ ^ String streamContents: [ :stream | self print: aString on: stream ] ] -{ #category : #printing } +{ #category : 'printing' } BlTextNonPrintableCharacterPrinter class >> print: aString on: aStream [ aString do: [ :ch | diff --git a/src/Bloc-Text/BlTextOperator.class.st b/src/Bloc-Text/BlTextOperator.class.st index 75602aba5..a36005d9c 100644 --- a/src/Bloc-Text/BlTextOperator.class.st +++ b/src/Bloc-Text/BlTextOperator.class.st @@ -1,21 +1,23 @@ Class { - #name : #BlTextOperator, - #superclass : #Object, + #name : 'BlTextOperator', + #superclass : 'Object', #traits : 'TBlDebug', #classTraits : 'TBlDebug classTrait', #instVars : [ 'text' ], - #category : #'Bloc-Text-Text-Operator' + #category : 'Bloc-Text-Text-Operator', + #package : 'Bloc-Text', + #tag : 'Text-Operator' } -{ #category : #accessing } +{ #category : 'accessing' } BlTextOperator >> text [ ^ text ifNil: [ text := '' asRopedText ] ] -{ #category : #accessing } +{ #category : 'accessing' } BlTextOperator >> text: aBlText [ text := aBlText asRopedText ] diff --git a/src/Bloc-Text/BlTextOutOfBoundsError.class.st b/src/Bloc-Text/BlTextOutOfBoundsError.class.st index 3c11bc44a..a2fdeb859 100644 --- a/src/Bloc-Text/BlTextOutOfBoundsError.class.st +++ b/src/Bloc-Text/BlTextOutOfBoundsError.class.st @@ -1,5 +1,7 @@ Class { - #name : #BlTextOutOfBoundsError, - #superclass : #BlTextError, - #category : #'Bloc-Text-Text' + #name : 'BlTextOutOfBoundsError', + #superclass : 'BlTextError', + #category : 'Bloc-Text-Text', + #package : 'Bloc-Text', + #tag : 'Text' } diff --git a/src/Bloc-Text/BlTextParagraph.class.st b/src/Bloc-Text/BlTextParagraph.class.st index 6dae30080..0b055d659 100644 --- a/src/Bloc-Text/BlTextParagraph.class.st +++ b/src/Bloc-Text/BlTextParagraph.class.st @@ -30,8 +30,8 @@ Internal Representation and Key Implementation Points. " Class { - #name : #BlTextParagraph, - #superclass : #Object, + #name : 'BlTextParagraph', + #superclass : 'Object', #instVars : [ 'text', 'line', @@ -41,23 +41,25 @@ Class { 'session', 'baselineMeasurer' ], - #category : #'Bloc-Text-Text-Paragraph' + #category : 'Bloc-Text-Text-Paragraph', + #package : 'Bloc-Text', + #tag : 'Text-Paragraph' } -{ #category : #'paragraph - geometry' } +{ #category : 'paragraph - geometry' } BlTextParagraph >> advance [ ^ line advance ] -{ #category : #'paragraph - geometry' } +{ #category : 'paragraph - geometry' } BlTextParagraph >> ascent [ "Return an ascent of the first line in a paragraph" ^ line ascent ] -{ #category : #accessing } +{ #category : 'accessing' } BlTextParagraph >> baseline [ @@ -65,7 +67,7 @@ BlTextParagraph >> baseline [ ^ baselineMeasurer computedBaseline: self ] -{ #category : #'api - instantiation' } +{ #category : 'api - instantiation' } BlTextParagraph >> baseline: aBlTextParagraphBaselineMeasurer [ self @@ -78,21 +80,21 @@ BlTextParagraph >> baseline: aBlTextParagraphBaselineMeasurer [ ] -{ #category : #'paragraph - geometry' } +{ #category : 'paragraph - geometry' } BlTextParagraph >> baselineChanged [ "I should be sent when baseline needs to be recomputed" line baseline: self baseline ] -{ #category : #'api - instantiation' } +{ #category : 'api - instantiation' } BlTextParagraph >> baselineMeasurer: aBlTextParagraphBaselineMeasurer [ baselineMeasurer := aBlTextParagraphBaselineMeasurer. self baselineChanged ] -{ #category : #'paragraph - measuring' } +{ #category : 'paragraph - measuring' } BlTextParagraph >> basicMeasureOn: aHostSpanMeasurer [ "Measure and create lines with text spans from provided text based on attributes and layout properties (maximum width / height)" @@ -117,32 +119,32 @@ BlTextParagraph >> basicMeasureOn: aHostSpanMeasurer [ end := line to ] -{ #category : #'paragraph - geometry' } +{ #category : 'paragraph - geometry' } BlTextParagraph >> bottom [ "Return a visual bottom coordinate of the text (bottom-most rendered pixel)" ^ self top + self height ] -{ #category : #'paragraph - geometry' } +{ #category : 'paragraph - geometry' } BlTextParagraph >> bounds [ ^ line bounds ] -{ #category : #'paragraph - geometry' } +{ #category : 'paragraph - geometry' } BlTextParagraph >> descent [ "Return an descent of the last line in a paragraph" ^ line descent ] -{ #category : #'paragraph - measuring' } +{ #category : 'paragraph - measuring' } BlTextParagraph >> emptySpan [ ^ BlSpan text: BlText empty attributes: #(). ] -{ #category : #'paragraph - geometry' } +{ #category : 'paragraph - geometry' } BlTextParagraph >> extent [ "Return measured extent of the paragraph. @see #width and #height to learn more" @@ -150,7 +152,7 @@ BlTextParagraph >> extent [ ^ self width @ self height ] -{ #category : #finalization } +{ #category : 'finalization' } BlTextParagraph >> finalize [ super finalize. @@ -158,7 +160,7 @@ BlTextParagraph >> finalize [ line := nil ] -{ #category : #'paragraph - geometry' } +{ #category : 'paragraph - geometry' } BlTextParagraph >> height [ "Return measured height of the paragraph. Note: height may be greater than maxHeight. This may happen @@ -168,7 +170,7 @@ BlTextParagraph >> height [ ^ line height ] -{ #category : #'paragraph - geometry' } +{ #category : 'paragraph - geometry' } BlTextParagraph >> indexAtPosition: aPoint [ | aParagraphSpan aPointInSpan | @@ -183,57 +185,57 @@ BlTextParagraph >> indexAtPosition: aPoint [ ^ aParagraphSpan indexAtPosition: aPointInSpan ] -{ #category : #initialization } +{ #category : 'initialization' } BlTextParagraph >> initialize [ super initialize. line := BlTextParagraphLine new ] -{ #category : #testing } +{ #category : 'testing' } BlTextParagraph >> isEmpty [ ^ self line isEmpty ] -{ #category : #'paragraph - geometry' } +{ #category : 'paragraph - geometry' } BlTextParagraph >> left [ "Return a visual left coordinate of the text (left-most rendered pixel)" ^ line left ] -{ #category : #accessing } +{ #category : 'accessing' } BlTextParagraph >> line [ ^ line ] -{ #category : #'api - instantiation' } +{ #category : 'api - instantiation' } BlTextParagraph >> maxHeight [ ^ maxHeight ] -{ #category : #'api - instantiation' } +{ #category : 'api - instantiation' } BlTextParagraph >> maxHeight: aNumber [ maxHeight := aNumber ] -{ #category : #'api - instantiation' } +{ #category : 'api - instantiation' } BlTextParagraph >> maxWidth [ ^ maxWidth ] -{ #category : #'api - instantiation' } +{ #category : 'api - instantiation' } BlTextParagraph >> maxWidth: aNumber [ maxWidth := aNumber ] -{ #category : #'paragraph - measuring' } +{ #category : 'paragraph - measuring' } BlTextParagraph >> measureOn: aBlHostTextMeasurer [ "Measure myself with a given text measurer as a backend-specific context. Note: I double dispatch through aBlHostTextMeasurer to support multiple completely different canvases" @@ -248,7 +250,7 @@ BlTextParagraph >> measureOn: aBlHostTextMeasurer [ ] -{ #category : #accessing } +{ #category : 'accessing' } BlTextParagraph >> measuredEnd [ "Return a text index of the last measured character. Must be equal to the last character of the last span" @@ -256,7 +258,7 @@ BlTextParagraph >> measuredEnd [ ^ end ] -{ #category : #'paragraph - measuring' } +{ #category : 'paragraph - measuring' } BlTextParagraph >> newParagraphMeasurerOn: aHostSpanMeasurer [ ^ BlTextParagraphMeasurer @@ -265,13 +267,13 @@ BlTextParagraph >> newParagraphMeasurerOn: aHostSpanMeasurer [ maxHeight: maxHeight ] -{ #category : #'paragraph - measuring' } +{ #category : 'paragraph - measuring' } BlTextParagraph >> normalize: aScale [ line normalize: aScale ] -{ #category : #'paragraph - geometry' } +{ #category : 'paragraph - geometry' } BlTextParagraph >> positionAt: anIndex [ "Answer a Point with the position of the character at anIndex." @@ -280,7 +282,7 @@ BlTextParagraph >> positionAt: anIndex [ ^ aParagraphSpan positionAt: anIndex ] -{ #category : #printing } +{ #category : 'printing' } BlTextParagraph >> printOn: aStream [ "Append a sequence of characters to aStream that identify the receiver." @@ -292,20 +294,20 @@ BlTextParagraph >> printOn: aStream [ ] -{ #category : #'paragraph - geometry' } +{ #category : 'paragraph - geometry' } BlTextParagraph >> right [ "Return a visual right coordinate of the text (right-most rendered pixel)" ^ self left + self width ] -{ #category : #accessing } +{ #category : 'accessing' } BlTextParagraph >> session [ ^ session ] -{ #category : #'paragraph - geometry' } +{ #category : 'paragraph - geometry' } BlTextParagraph >> spanAtIndex: anIndex [ @@ -327,7 +329,7 @@ BlTextParagraph >> spanAtIndex: anIndex [ ifNone: [ self error: 'Span for character at index ', anIndex asString, ' does not exist' ] ] -{ #category : #'paragraph - geometry' } +{ #category : 'paragraph - geometry' } BlTextParagraph >> spanAtPoint: aPoint [ @@ -337,7 +339,7 @@ BlTextParagraph >> spanAtPoint: aPoint [ ifNone: #yourself ] -{ #category : #'paragraph - geometry' } +{ #category : 'paragraph - geometry' } BlTextParagraph >> spanAtPoint: aPoint ifFound: aFoundBlock ifNone: anExceptionBlock [ "Find a paragraph span that contains a given point given in a paragraph coordinates and evaluate a found block if such span was found or evaluate an exception block @@ -360,13 +362,13 @@ BlTextParagraph >> spanAtPoint: aPoint ifFound: aFoundBlock ifNone: anExceptionB ifNone: [ :a :b | anExceptionBlock cull: (a ifNil: [ b ] ifNotNil: [ a ]) ] ] -{ #category : #accessing } +{ #category : 'accessing' } BlTextParagraph >> text [ ^ text ] -{ #category : #'api - instantiation' } +{ #category : 'api - instantiation' } BlTextParagraph >> text: aBlText [ "Construct me with a given text. Note, that I can be only initialized once. @@ -376,14 +378,14 @@ BlTextParagraph >> text: aBlText [ text := aBlText ] -{ #category : #'paragraph - geometry' } +{ #category : 'paragraph - geometry' } BlTextParagraph >> top [ "Return a visual top coordinate of the text (top-most rendered pixel)" ^ line top ] -{ #category : #'paragraph - geometry' } +{ #category : 'paragraph - geometry' } BlTextParagraph >> width [ "Return measured width of the paragraph. Note: width may be greater than maxWidth. This may happen diff --git a/src/Bloc-Text/BlTextParagraphAscentLooseBaseline.class.st b/src/Bloc-Text/BlTextParagraphAscentLooseBaseline.class.st index 8a19ebc42..ba9a04dff 100644 --- a/src/Bloc-Text/BlTextParagraphAscentLooseBaseline.class.st +++ b/src/Bloc-Text/BlTextParagraphAscentLooseBaseline.class.st @@ -1,10 +1,12 @@ Class { - #name : #BlTextParagraphAscentLooseBaseline, - #superclass : #BlAscentLooseBaselineMeasurer, - #category : #'Bloc-Text-Text-Paragraph-Deprecated' + #name : 'BlTextParagraphAscentLooseBaseline', + #superclass : 'BlAscentLooseBaselineMeasurer', + #category : 'Bloc-Text-Text-Paragraph-Deprecated', + #package : 'Bloc-Text', + #tag : 'Text-Paragraph-Deprecated' } -{ #category : #testing } +{ #category : 'testing' } BlTextParagraphAscentLooseBaseline class >> isDeprecated [ ^ true diff --git a/src/Bloc-Text/BlTextParagraphAscentTightBaseline.class.st b/src/Bloc-Text/BlTextParagraphAscentTightBaseline.class.st index 0c2d37719..ea2c74d52 100644 --- a/src/Bloc-Text/BlTextParagraphAscentTightBaseline.class.st +++ b/src/Bloc-Text/BlTextParagraphAscentTightBaseline.class.st @@ -1,10 +1,12 @@ Class { - #name : #BlTextParagraphAscentTightBaseline, - #superclass : #BlAscentTightBaselineMeasurer, - #category : #'Bloc-Text-Text-Paragraph-Deprecated' + #name : 'BlTextParagraphAscentTightBaseline', + #superclass : 'BlAscentTightBaselineMeasurer', + #category : 'Bloc-Text-Text-Paragraph-Deprecated', + #package : 'Bloc-Text', + #tag : 'Text-Paragraph-Deprecated' } -{ #category : #testing } +{ #category : 'testing' } BlTextParagraphAscentTightBaseline class >> isDeprecated [ ^ true diff --git a/src/Bloc-Text/BlTextParagraphBaselineMeasurer.class.st b/src/Bloc-Text/BlTextParagraphBaselineMeasurer.class.st index 853e6927c..d5ad8a5c3 100644 --- a/src/Bloc-Text/BlTextParagraphBaselineMeasurer.class.st +++ b/src/Bloc-Text/BlTextParagraphBaselineMeasurer.class.st @@ -6,27 +6,29 @@ The baseline is the line upon which most letters ""sit"" and below which descend " Class { - #name : #BlTextParagraphBaselineMeasurer, - #superclass : #Object, + #name : 'BlTextParagraphBaselineMeasurer', + #superclass : 'Object', #classInstVars : [ 'uniqueInstance' ], - #category : #'Bloc-Text-Text-Paragraph' + #category : 'Bloc-Text-Text-Paragraph', + #package : 'Bloc-Text', + #tag : 'Text-Paragraph' } -{ #category : #cleanup } +{ #category : 'cleanup' } BlTextParagraphBaselineMeasurer class >> cleanUp [ super cleanUp. uniqueInstance := nil ] -{ #category : #accessing } +{ #category : 'accessing' } BlTextParagraphBaselineMeasurer class >> uniqueInstance [ ^ uniqueInstance ifNil: [ uniqueInstance := self new ] ] -{ #category : #baseline } +{ #category : 'baseline' } BlTextParagraphBaselineMeasurer >> computedBaseline: aTextParagraph [ diff --git a/src/Bloc-Text/BlTextParagraphBoundsBaseline.class.st b/src/Bloc-Text/BlTextParagraphBoundsBaseline.class.st index 25b1c21b8..99208ac39 100644 --- a/src/Bloc-Text/BlTextParagraphBoundsBaseline.class.st +++ b/src/Bloc-Text/BlTextParagraphBoundsBaseline.class.st @@ -1,10 +1,12 @@ Class { - #name : #BlTextParagraphBoundsBaseline, - #superclass : #BlBoundsBaselineMeasurer, - #category : #'Bloc-Text-Text-Paragraph-Deprecated' + #name : 'BlTextParagraphBoundsBaseline', + #superclass : 'BlBoundsBaselineMeasurer', + #category : 'Bloc-Text-Text-Paragraph-Deprecated', + #package : 'Bloc-Text', + #tag : 'Text-Paragraph-Deprecated' } -{ #category : #testing } +{ #category : 'testing' } BlTextParagraphBoundsBaseline class >> isDeprecated [ ^ true diff --git a/src/Bloc-Text/BlTextParagraphHighlight.class.st b/src/Bloc-Text/BlTextParagraphHighlight.class.st index d5923c1e7..bd28d9733 100644 --- a/src/Bloc-Text/BlTextParagraphHighlight.class.st +++ b/src/Bloc-Text/BlTextParagraphHighlight.class.st @@ -4,21 +4,23 @@ I am a highlight on a composite text selection, which consists of multiple indep My main collaborator is a `BlCompositeSelection`. " Class { - #name : #BlTextParagraphHighlight, - #superclass : #Object, + #name : 'BlTextParagraphHighlight', + #superclass : 'Object', #instVars : [ 'paint', 'selection' ], - #category : #'Bloc-Text-Text-Paragraph' + #category : 'Bloc-Text-Text-Paragraph', + #package : 'Bloc-Text', + #tag : 'Text-Paragraph' } -{ #category : #'instance creation' } +{ #category : 'instance creation' } BlTextParagraphHighlight class >> paint: aPaint from: aFromIndex to: aToIndex [ ^ self new paint: aPaint from: aFromIndex to: aToIndex ] -{ #category : #initialization } +{ #category : 'initialization' } BlTextParagraphHighlight >> initialize [ super initialize. @@ -26,20 +28,20 @@ BlTextParagraphHighlight >> initialize [ selection := BlCompositeSelection new ] -{ #category : #accessing } +{ #category : 'accessing' } BlTextParagraphHighlight >> paint [ ^ paint ] -{ #category : #'api - highlighting' } +{ #category : 'api - highlighting' } BlTextParagraphHighlight >> paint: aPaint from: aFromIndex to: aToIndex [ paint := aPaint. selection select: aFromIndex to: aToIndex ] -{ #category : #accessing } +{ #category : 'accessing' } BlTextParagraphHighlight >> selection [ ^ selection diff --git a/src/Bloc-Text/BlTextParagraphLine.class.st b/src/Bloc-Text/BlTextParagraphLine.class.st index 2e041c04b..6157a4e31 100644 --- a/src/Bloc-Text/BlTextParagraphLine.class.st +++ b/src/Bloc-Text/BlTextParagraphLine.class.st @@ -5,15 +5,17 @@ My width is not a plain sum of width of all spans. The difference comes from the " Class { - #name : #BlTextParagraphLine, - #superclass : #BlTextParagraphSegment, + #name : 'BlTextParagraphLine', + #superclass : 'BlTextParagraphSegment', #instVars : [ 'spans' ], - #category : #'Bloc-Text-Text-Paragraph' + #category : 'Bloc-Text-Text-Paragraph', + #package : 'Bloc-Text', + #tag : 'Text-Paragraph' } -{ #category : #adding } +{ #category : 'adding' } BlTextParagraphLine >> addSpan: aBlTextParagraphLeaf [ spans add: aBlTextParagraphLeaf. @@ -22,7 +24,7 @@ BlTextParagraphLine >> addSpan: aBlTextParagraphLeaf [ ifFalse: [ self spanAdded: spans last after: (spans at: spans size - 1) ] ] -{ #category : #accessing } +{ #category : 'accessing' } BlTextParagraphLine >> baseline: aPoint [ self moveSpansBy: self baseline negated. @@ -30,34 +32,34 @@ BlTextParagraphLine >> baseline: aPoint [ self moveSpansBy: self baseline ] -{ #category : #finalization } +{ #category : 'finalization' } BlTextParagraphLine >> finalize [ spans ifNotNil: [ spans do: #finalize ]. spans reset ] -{ #category : #initialization } +{ #category : 'initialization' } BlTextParagraphLine >> initialize [ super initialize. spans := OrderedCollection new ] -{ #category : #testing } +{ #category : 'testing' } BlTextParagraphLine >> isEmpty [ ^ spans isEmpty ] -{ #category : #private } +{ #category : 'private' } BlTextParagraphLine >> moveSpansBy: aPoint [ "Move baseline of all spans by a given delta as a point" spans do: [ :aSpan | aSpan baseline: aSpan baseline + aPoint ] ] -{ #category : #measurement } +{ #category : 'measurement' } BlTextParagraphLine >> normalize: aScale [ "Normalize this segment to have rounded measurements. I don't change the baseline" @@ -67,7 +69,7 @@ BlTextParagraphLine >> normalize: aScale [ self recomputeLineLayout ] -{ #category : #measurement } +{ #category : 'measurement' } BlTextParagraphLine >> recomputeLineLayout [ self spans ifEmpty: [ ^ self ]. @@ -79,14 +81,14 @@ BlTextParagraphLine >> recomputeLineLayout [ after: (self spans at: index - 1) ] ] -{ #category : #finalization } +{ #category : 'finalization' } BlTextParagraphLine >> reset [ self finalize ] -{ #category : #hooks } +{ #category : 'hooks' } BlTextParagraphLine >> spanAdded: aSpan [ "React to a span added. Note: aSpan must be the first span." @@ -105,7 +107,7 @@ BlTextParagraphLine >> spanAdded: aSpan [ aSpan baseline: self baseline ] -{ #category : #hooks } +{ #category : 'hooks' } BlTextParagraphLine >> spanAdded: aLastSpan after: aPreviousSpan [ | previousBottom newBottom | @@ -126,7 +128,7 @@ BlTextParagraphLine >> spanAdded: aLastSpan after: aPreviousSpan [ to := aLastSpan to ] -{ #category : #accessing } +{ #category : 'accessing' } BlTextParagraphLine >> spans [ ^ spans diff --git a/src/Bloc-Text/BlTextParagraphMeasurer.class.st b/src/Bloc-Text/BlTextParagraphMeasurer.class.st index ff5e764fe..83dc06797 100644 --- a/src/Bloc-Text/BlTextParagraphMeasurer.class.st +++ b/src/Bloc-Text/BlTextParagraphMeasurer.class.st @@ -3,8 +3,8 @@ I am text paragraph measurer. I keep track of available width, height, current m " Class { - #name : #BlTextParagraphMeasurer, - #superclass : #Object, + #name : 'BlTextParagraphMeasurer', + #superclass : 'Object', #instVars : [ 'maxHeight', 'maxWidth', @@ -12,10 +12,12 @@ Class { 'line', 'hostTextMeasurer' ], - #category : #'Bloc-Text-Text-Paragraph' + #category : 'Bloc-Text-Text-Paragraph', + #package : 'Bloc-Text', + #tag : 'Text-Paragraph' } -{ #category : #measurement } +{ #category : 'measurement' } BlTextParagraphMeasurer class >> hostTextMeasurer: aHostSpanMeasurer maxWidth: aWidth maxHeight: aHeight [ ^ self new @@ -25,31 +27,31 @@ BlTextParagraphMeasurer class >> hostTextMeasurer: aHostSpanMeasurer maxWidth: a yourself ] -{ #category : #accessing } +{ #category : 'accessing' } BlTextParagraphMeasurer >> accumulatedHeight [ ^ line height ] -{ #category : #accessing } +{ #category : 'accessing' } BlTextParagraphMeasurer >> accumulatedWidth [ ^ line width ] -{ #category : #'geometry - accessing' } +{ #category : 'geometry - accessing' } BlTextParagraphMeasurer >> availableHeight [ ^ maxHeight - self accumulatedHeight ] -{ #category : #'geometry - accessing' } +{ #category : 'geometry - accessing' } BlTextParagraphMeasurer >> availableWidth [ ^ maxWidth - self accumulatedWidth ] -{ #category : #finalization } +{ #category : 'finalization' } BlTextParagraphMeasurer >> finalize [ super finalize. @@ -58,14 +60,14 @@ BlTextParagraphMeasurer >> finalize [ line := nil ] -{ #category : #'measurement - testing' } +{ #category : 'measurement - testing' } BlTextParagraphMeasurer >> hasAvailableSpace [ "Return true if I have space available for more spans, false otherwise" ^ self availableWidth > 0 and: [ self availableHeight > 0 ] ] -{ #category : #measurement } +{ #category : 'measurement' } BlTextParagraphMeasurer >> hostTextMeasurer: aBlHostTextMeasurer maxWidth: aWidth maxHeight: aHeight [ hostTextMeasurer := aBlHostTextMeasurer. @@ -73,7 +75,7 @@ BlTextParagraphMeasurer >> hostTextMeasurer: aBlHostTextMeasurer maxWidth: aWidt self maxHeight: aHeight ] -{ #category : #initialization } +{ #category : 'initialization' } BlTextParagraphMeasurer >> initialize [ maxWidth := Float infinity. @@ -84,36 +86,36 @@ BlTextParagraphMeasurer >> initialize [ line := BlTextParagraphLine new ] -{ #category : #accessing } +{ #category : 'accessing' } BlTextParagraphMeasurer >> line [ ^ line ] -{ #category : #'paragraph - properties' } +{ #category : 'paragraph - properties' } BlTextParagraphMeasurer >> maxHeight [ ^ maxHeight ] -{ #category : #'paragraph - properties' } +{ #category : 'paragraph - properties' } BlTextParagraphMeasurer >> maxHeight: aFloat [ maxHeight := aFloat ] -{ #category : #'paragraph - properties' } +{ #category : 'paragraph - properties' } BlTextParagraphMeasurer >> maxWidth [ ^ maxWidth ] -{ #category : #'paragraph - properties' } +{ #category : 'paragraph - properties' } BlTextParagraphMeasurer >> maxWidth: aFloat [ maxWidth := aFloat ] -{ #category : #measurement } +{ #category : 'measurement' } BlTextParagraphMeasurer >> measureSpan: aBlSpan [ | aParagraphSpan | @@ -125,25 +127,25 @@ BlTextParagraphMeasurer >> measureSpan: aBlSpan [ self pushSpan: aParagraphSpan ] -{ #category : #accessing } +{ #category : 'accessing' } BlTextParagraphMeasurer >> movePosition: aNumber [ textPosition := aNumber ] -{ #category : #'text - accessing' } +{ #category : 'text - accessing' } BlTextParagraphMeasurer >> position [ ^ textPosition ] -{ #category : #accessing } +{ #category : 'accessing' } BlTextParagraphMeasurer >> pushPosition: aNumber [ textPosition := textPosition + aNumber ] -{ #category : #adding } +{ #category : 'adding' } BlTextParagraphMeasurer >> pushSpan: aParagraphSpan [ line addSpan: aParagraphSpan. @@ -152,7 +154,7 @@ BlTextParagraphMeasurer >> pushSpan: aParagraphSpan [ self pushPosition: aParagraphSpan spanLength - 1 ] -{ #category : #initialization } +{ #category : 'initialization' } BlTextParagraphMeasurer >> reset [ textPosition := 0. diff --git a/src/Bloc-Text/BlTextParagraphSegment.class.st b/src/Bloc-Text/BlTextParagraphSegment.class.st index 3ad975cd7..cea48301a 100644 --- a/src/Bloc-Text/BlTextParagraphSegment.class.st +++ b/src/Bloc-Text/BlTextParagraphSegment.class.st @@ -5,8 +5,8 @@ I an already measured abstract paragraph segment. I'm a composite to design line " Class { - #name : #BlTextParagraphSegment, - #superclass : #Object, + #name : 'BlTextParagraphSegment', + #superclass : 'Object', #instVars : [ 'from', 'to', @@ -19,64 +19,66 @@ Class { 'descent', 'baseline' ], - #category : #'Bloc-Text-Text-Paragraph' + #category : 'Bloc-Text-Text-Paragraph', + #package : 'Bloc-Text', + #tag : 'Text-Paragraph' } -{ #category : #accessing } +{ #category : 'accessing' } BlTextParagraphSegment >> advance [ ^ advance ] -{ #category : #accessing } +{ #category : 'accessing' } BlTextParagraphSegment >> ascent [ ^ ascent ] -{ #category : #accessing } +{ #category : 'accessing' } BlTextParagraphSegment >> baseline [ ^ baseline ] -{ #category : #accessing } +{ #category : 'accessing' } BlTextParagraphSegment >> baseline: aPoint [ baseline := aPoint ] -{ #category : #accessing } +{ #category : 'accessing' } BlTextParagraphSegment >> bounds [ ^ self origin extent: self extent ] -{ #category : #accessing } +{ #category : 'accessing' } BlTextParagraphSegment >> descent [ ^ descent ] -{ #category : #accessing } +{ #category : 'accessing' } BlTextParagraphSegment >> extent [ ^ width @ height ] -{ #category : #accessing } +{ #category : 'accessing' } BlTextParagraphSegment >> from [ ^ from ] -{ #category : #accessing } +{ #category : 'accessing' } BlTextParagraphSegment >> height [ ^ height ] -{ #category : #initialization } +{ #category : 'initialization' } BlTextParagraphSegment >> initialize [ super initialize. @@ -95,43 +97,43 @@ BlTextParagraphSegment >> initialize [ descent := 0 ] -{ #category : #accessing } +{ #category : 'accessing' } BlTextParagraphSegment >> left [ ^ left ] -{ #category : #measurement } +{ #category : 'measurement' } BlTextParagraphSegment >> normalize: aScale [ "Normalize this segment to have rounded measurements" self subclassResponsibility ] -{ #category : #accessing } +{ #category : 'accessing' } BlTextParagraphSegment >> origin [ ^ left @ top ] -{ #category : #accessing } +{ #category : 'accessing' } BlTextParagraphSegment >> right [ ^ left + width ] -{ #category : #accessing } +{ #category : 'accessing' } BlTextParagraphSegment >> to [ ^ to ] -{ #category : #accessing } +{ #category : 'accessing' } BlTextParagraphSegment >> top [ ^ top ] -{ #category : #accessing } +{ #category : 'accessing' } BlTextParagraphSegment >> width [ ^ width diff --git a/src/Bloc-Text/BlTextParagraphSegmentLeaf.class.st b/src/Bloc-Text/BlTextParagraphSegmentLeaf.class.st index 4869dfa92..8acbb2a80 100644 --- a/src/Bloc-Text/BlTextParagraphSegmentLeaf.class.st +++ b/src/Bloc-Text/BlTextParagraphSegmentLeaf.class.st @@ -3,24 +3,26 @@ I represent a single measured span within `BlTextParagraph`. Depending on the type of a paragraph (single or multi line) I can be either a direct child of `BlTextParagraph` or be contained inside of `BlTextParagraphLine`. " Class { - #name : #BlTextParagraphSegmentLeaf, - #superclass : #BlTextParagraphSegment, + #name : 'BlTextParagraphSegmentLeaf', + #superclass : 'BlTextParagraphSegment', #instVars : [ 'span', 'hostMeasurer', 'fontAndStyleBuilder' ], - #category : #'Bloc-Text-Text-Paragraph' + #category : 'Bloc-Text-Text-Paragraph', + #package : 'Bloc-Text', + #tag : 'Text-Paragraph' } -{ #category : #'accessing - span' } +{ #category : 'accessing - span' } BlTextParagraphSegmentLeaf >> attributes [ "Return a set of attributes applied on this span" ^ span attributes ] -{ #category : #accessing } +{ #category : 'accessing' } BlTextParagraphSegmentLeaf >> from: aGlobalTextStart to: aGlobalTextEnd [ "Assign provided indices so that we could always determine which part of text I measure" @@ -28,13 +30,13 @@ BlTextParagraphSegmentLeaf >> from: aGlobalTextStart to: aGlobalTextEnd [ to := aGlobalTextEnd ] -{ #category : #initialization } +{ #category : 'initialization' } BlTextParagraphSegmentLeaf >> hostMeasurer: aHostMeasurer [ hostMeasurer := aHostMeasurer ] -{ #category : #accessing } +{ #category : 'accessing' } BlTextParagraphSegmentLeaf >> indexAtPosition: aPoint [ "Return a cursor index at a given position as a Point provided in local coordinates of this span" @@ -101,20 +103,20 @@ BlTextParagraphSegmentLeaf >> indexAtPosition: aPoint [ self from + spanIndex - 1 ] ] -{ #category : #building } +{ #category : 'building' } BlTextParagraphSegmentLeaf >> measure [ "Calculate span measurement using hostTextMeasurer." ^ self subclassResponsibility ] -{ #category : #measurement } +{ #category : 'measurement' } BlTextParagraphSegmentLeaf >> normalize: aScale [ "Normalize this segment to have rounded measurements" ] -{ #category : #geometry } +{ #category : 'geometry' } BlTextParagraphSegmentLeaf >> positionAt: anIndex [ | aSpanIndex aSubSpan aMeasuredSpan aPositionY aPositionX | @@ -136,7 +138,7 @@ BlTextParagraphSegmentLeaf >> positionAt: anIndex [ ^ aPositionX + aMeasuredSpan advance @ aPositionY ] -{ #category : #printing } +{ #category : 'printing' } BlTextParagraphSegmentLeaf >> printOn: aStream [ super printOn: aStream. @@ -147,13 +149,13 @@ BlTextParagraphSegmentLeaf >> printOn: aStream [ ] -{ #category : #accessing } +{ #category : 'accessing' } BlTextParagraphSegmentLeaf >> span [ ^ span ] -{ #category : #accessing } +{ #category : 'accessing' } BlTextParagraphSegmentLeaf >> span: aBlSpan [ span := aBlSpan. @@ -165,13 +167,13 @@ BlTextParagraphSegmentLeaf >> span: aBlSpan [ ] -{ #category : #'accessing - span' } +{ #category : 'accessing - span' } BlTextParagraphSegmentLeaf >> spanEnd [ ^ span size ] -{ #category : #'accessing - span' } +{ #category : 'accessing - span' } BlTextParagraphSegmentLeaf >> spanLength [ ^ (self spanStart isZero and: [ self spanEnd isZero ]) @@ -179,7 +181,7 @@ BlTextParagraphSegmentLeaf >> spanLength [ ifFalse: [ self spanEnd - self spanStart + 1 ] ] -{ #category : #'accessing - span' } +{ #category : 'accessing - span' } BlTextParagraphSegmentLeaf >> spanStart [ ^ 1 min: span size diff --git a/src/Bloc-Text/BlTextReadStream.class.st b/src/Bloc-Text/BlTextReadStream.class.st index e4fe2f38f..167c7add5 100644 --- a/src/Bloc-Text/BlTextReadStream.class.st +++ b/src/Bloc-Text/BlTextReadStream.class.st @@ -4,49 +4,51 @@ I offer API compatible with {{gtClass:ReadStream}}. " Class { - #name : #BlTextReadStream, - #superclass : #Object, + #name : 'BlTextReadStream', + #superclass : 'Object', #traits : 'TBlDebug', #classTraits : 'TBlDebug classTrait', #instVars : [ 'iterator' ], - #category : #'Bloc-Text-Text' + #category : 'Bloc-Text-Text', + #package : 'Bloc-Text', + #tag : 'Text' } -{ #category : #'stream - testing' } +{ #category : 'stream - testing' } BlTextReadStream >> atEnd [ "Return false if there is a next text item (character) after a current position" ^ self iterator hasNext not ] -{ #category : #accessing } +{ #category : 'accessing' } BlTextReadStream >> contents [ ^ self iterator text asString ] -{ #category : #accessing } +{ #category : 'accessing' } BlTextReadStream >> iterator [ ^ iterator ] -{ #category : #accessing } +{ #category : 'accessing' } BlTextReadStream >> iterator: aBlTextIterator [ iterator := aBlTextIterator ] -{ #category : #'stream - enumeration' } +{ #category : 'stream - enumeration' } BlTextReadStream >> next [ "Return an item (character) at current position and move one to the right" ^ self iterator next ] -{ #category : #'stream - enumeration' } +{ #category : 'stream - enumeration' } BlTextReadStream >> next: anAmount [ "Return a text and move one to the right" @@ -58,7 +60,7 @@ BlTextReadStream >> next: anAmount [ ^ aText ] -{ #category : #accessing } +{ #category : 'accessing' } BlTextReadStream >> nextLine [ "Return an instance of BrText which represents a piece of text from current position until the first carriage return character" @@ -66,7 +68,7 @@ BlTextReadStream >> nextLine [ ^ self iterator nextLine ] -{ #category : #'stream - enumeration' } +{ #category : 'stream - enumeration' } BlTextReadStream >> peek [ "Return an item (character) at current position. If the receiver is at the end, answer nil." @@ -76,7 +78,7 @@ BlTextReadStream >> peek [ ifFalse: [ nil ] ] -{ #category : #'stream - enumeration' } +{ #category : 'stream - enumeration' } BlTextReadStream >> peekBack [ "Return the element at the previous position, without changing position. Use indirect messages in case self is a StandardFileStream." @@ -84,7 +86,7 @@ BlTextReadStream >> peekBack [ ^ self iterator peer ] -{ #category : #'stream - enumeration' } +{ #category : 'stream - enumeration' } BlTextReadStream >> peekFor: anObject [ "Answer false and do not move over the next element if it is not equal to @@ -100,14 +102,14 @@ BlTextReadStream >> peekFor: anObject [ ^ false ] -{ #category : #'stream - accessing' } +{ #category : 'stream - accessing' } BlTextReadStream >> position [ "Return current iterator position within a text" ^ self iterator position ] -{ #category : #'stream - accessing' } +{ #category : 'stream - accessing' } BlTextReadStream >> position: aNumber [ "Set current iterator position within a text" | aDiff | @@ -115,7 +117,7 @@ BlTextReadStream >> position: aNumber [ self iterator skip: aDiff. ] -{ #category : #'stream - enumeration' } +{ #category : 'stream - enumeration' } BlTextReadStream >> skip: anInteger [ "Set the receiver's position to be the current position+anInteger. A @@ -126,7 +128,7 @@ BlTextReadStream >> skip: anInteger [ ] -{ #category : #'stream - enumeration' } +{ #category : 'stream - enumeration' } BlTextReadStream >> upTo: aCharacter [ "Answer a subcollection from the current access position to the diff --git a/src/Bloc-Text/BlTextSpacingAttribute.class.st b/src/Bloc-Text/BlTextSpacingAttribute.class.st index ad9fbdc45..ffb126da0 100644 --- a/src/Bloc-Text/BlTextSpacingAttribute.class.st +++ b/src/Bloc-Text/BlTextSpacingAttribute.class.st @@ -1,35 +1,37 @@ Class { - #name : #BlTextSpacingAttribute, - #superclass : #BlTextAttribute, + #name : 'BlTextSpacingAttribute', + #superclass : 'BlTextAttribute', #instVars : [ 'spacing' ], - #category : #'Bloc-Text-Text-Attributes' + #category : 'Bloc-Text-Text-Attributes', + #package : 'Bloc-Text', + #tag : 'Text-Attributes' } -{ #category : #'instance creation' } +{ #category : 'instance creation' } BlTextSpacingAttribute class >> spacing: aNumber [ ^ self new spacing: aNumber ] -{ #category : #comparing } +{ #category : 'comparing' } BlTextSpacingAttribute >> equals: anAnotherAttribute [ ^ self spacing = anAnotherAttribute spacing ] -{ #category : #comparing } +{ #category : 'comparing' } BlTextSpacingAttribute >> hash [ "Answer an integer value that is related to the identity of the receiver." ^ super hash bitXor: self spacing hash ] -{ #category : #accessing } +{ #category : 'accessing' } BlTextSpacingAttribute >> spacing [ ^ spacing ] -{ #category : #accessing } +{ #category : 'accessing' } BlTextSpacingAttribute >> spacing: anObject [ spacing := anObject ] diff --git a/src/Bloc-Text/BlTextStringsInserted.class.st b/src/Bloc-Text/BlTextStringsInserted.class.st index fb93b538c..ef5dc17a8 100644 --- a/src/Bloc-Text/BlTextStringsInserted.class.st +++ b/src/Bloc-Text/BlTextStringsInserted.class.st @@ -3,42 +3,44 @@ I am sent by BlText when a collection of strings (or one string) is inserted at " Class { - #name : #BlTextStringsInserted, - #superclass : #Announcement, + #name : 'BlTextStringsInserted', + #superclass : 'Announcement', #instVars : [ 'strings', 'finalIndices', 'requestedIndices' ], - #category : #'Bloc-Text-Text-Events' + #category : 'Bloc-Text-Text-Events', + #package : 'Bloc-Text', + #tag : 'Text-Events' } -{ #category : #accessing } +{ #category : 'accessing' } BlTextStringsInserted >> finalIndices [ ^ finalIndices ] -{ #category : #accessing } +{ #category : 'accessing' } BlTextStringsInserted >> finalIndices: anObject [ finalIndices := anObject ] -{ #category : #accessing } +{ #category : 'accessing' } BlTextStringsInserted >> requestedIndices [ ^ requestedIndices ] -{ #category : #accessing } +{ #category : 'accessing' } BlTextStringsInserted >> requestedIndices: anObject [ requestedIndices := anObject ] -{ #category : #accessing } +{ #category : 'accessing' } BlTextStringsInserted >> strings [ ^ strings ] -{ #category : #accessing } +{ #category : 'accessing' } BlTextStringsInserted >> strings: anObject [ strings := anObject ] diff --git a/src/Bloc-Text/BlTextStyler.class.st b/src/Bloc-Text/BlTextStyler.class.st index 76f6925b7..60bd9869e 100644 --- a/src/Bloc-Text/BlTextStyler.class.st +++ b/src/Bloc-Text/BlTextStyler.class.st @@ -18,70 +18,72 @@ Clients may subscribe to `BlStylerTextStyled` and `BlStylerStateChanged` with #w " Class { - #name : #BlTextStyler, - #superclass : #Object, + #name : 'BlTextStyler', + #superclass : 'Object', #traits : 'TBlAnnouncerProvider', #classTraits : 'TBlAnnouncerProvider classTrait', #instVars : [ 'text', 'launcher' ], - #category : #'Bloc-Text-Text-Styler' + #category : 'Bloc-Text-Text-Styler', + #package : 'Bloc-Text', + #tag : 'Text-Styler' } -{ #category : #'api - text style' } +{ #category : 'api - text style' } BlTextStyler >> announceStateChanged [ self announcerDo: [ :anAnnouncer | anAnnouncer announce: BlStylerStateChanged ] ] -{ #category : #'api - text style' } +{ #category : 'api - text style' } BlTextStyler >> announceTextStyled: aBlText [ self announce: (BlStylerTextStyled styledText: aBlText) ] -{ #category : #initialization } +{ #category : 'initialization' } BlTextStyler >> defaultStylerLauncher [ ^ BlTextStylerLauncher new ] -{ #category : #accessing } +{ #category : 'accessing' } BlTextStyler >> fontName: aFontName [ ] -{ #category : #initialization } +{ #category : 'initialization' } BlTextStyler >> initialize [ super initialize. launcher := self defaultStylerLauncher. self whenAnnouncement: BlStylerTextStyleRequested send: #whenTextStyleRequested: to: self. ] -{ #category : #'api - text style' } +{ #category : 'api - text style' } BlTextStyler >> launchStyle: aBlText in: anElement [ ^ self launcher styleText: aBlText withStyler: self inElement: anElement ] -{ #category : #accessing } +{ #category : 'accessing' } BlTextStyler >> launcher [ ^ launcher ] -{ #category : #copying } +{ #category : 'copying' } BlTextStyler >> postCopy [ self resetAnnouncer ] -{ #category : #private } +{ #category : 'private' } BlTextStyler >> privateStyle: aText [ ^ self subclassResponsibility ] -{ #category : #styling } +{ #category : 'styling' } BlTextStyler >> style: aBlText [ "Return the styled text based on the argument. Announced the styling." @@ -93,7 +95,7 @@ BlTextStyler >> style: aBlText [ ^ aStyledText ] -{ #category : #'api - text style' } +{ #category : 'api - text style' } BlTextStyler >> whenTextStyleRequested: aBlStylerTextStyleRequested [ " a client request text styling " diff --git a/src/Bloc-Text/BlTextStylerLauncher.class.st b/src/Bloc-Text/BlTextStylerLauncher.class.st index 5f6ca3f01..af458dbf4 100644 --- a/src/Bloc-Text/BlTextStylerLauncher.class.st +++ b/src/Bloc-Text/BlTextStylerLauncher.class.st @@ -4,8 +4,8 @@ I launch text styling process either by scheduling a process (if the element is " Class { - #name : #BlTextStylerLauncher, - #superclass : #Object, + #name : 'BlTextStylerLauncher', + #superclass : 'Object', #instVars : [ 'monitor', 'isStylingRequested', @@ -15,20 +15,22 @@ Class { #classVars : [ 'MinTextSizeForStylingInBackground' ], - #category : #'Bloc-Text-Text-Styler' + #category : 'Bloc-Text-Text-Styler', + #package : 'Bloc-Text', + #tag : 'Text-Styler' } -{ #category : #accessing } +{ #category : 'accessing' } BlTextStylerLauncher class >> minTextSizeForStylingInBackground [ ^ MinTextSizeForStylingInBackground ifNil: [ MinTextSizeForStylingInBackground := 16000 ] ] -{ #category : #accessing } +{ #category : 'accessing' } BlTextStylerLauncher class >> minTextSizeForStylingInBackground: anInteger [ MinTextSizeForStylingInBackground := anInteger ] -{ #category : #accessing } +{ #category : 'accessing' } BlTextStylerLauncher class >> settingsOn: aBuilder [ (aBuilder setting: #minTextSizeForStylingInBackground) @@ -39,13 +41,13 @@ BlTextStylerLauncher class >> settingsOn: aBuilder [ label: 'Min text size for background styling' ] -{ #category : #accessing } +{ #category : 'accessing' } BlTextStylerLauncher >> backgroundProcess [ ^ backgroundProcess ] -{ #category : #private } +{ #category : 'private' } BlTextStylerLauncher >> doStyleText: aText withStyler: aStyler [ "Style a given text with the provided styler" @@ -53,7 +55,7 @@ BlTextStylerLauncher >> doStyleText: aText withStyler: aStyler [ aStyler style: aText ] -{ #category : #private } +{ #category : 'private' } BlTextStylerLauncher >> enqueueStyleText: aText withStyler: aStyler inElement: anElement [ monitor critical: [ @@ -73,7 +75,7 @@ BlTextStylerLauncher >> enqueueStyleText: aText withStyler: aStyler inElement: a isStylingRequested := false ]) ] ] -{ #category : #initialization } +{ #category : 'initialization' } BlTextStylerLauncher >> initialize [ super initialize. @@ -81,13 +83,13 @@ BlTextStylerLauncher >> initialize [ isStylingRequested := false ] -{ #category : #accessing } +{ #category : 'accessing' } BlTextStylerLauncher >> minTextSizeForStylingInBackground [ ^ self class minTextSizeForStylingInBackground ] -{ #category : #private } +{ #category : 'private' } BlTextStylerLauncher >> newProcessForStyling: aText withStyler: aStyler [ | process | @@ -97,7 +99,7 @@ BlTextStylerLauncher >> newProcessForStyling: aText withStyler: aStyler [ ^ process ] -{ #category : #private } +{ #category : 'private' } BlTextStylerLauncher >> scheduleStyleText: aText withStyler: aStyler [ self terminateBackgroundStylingProcess. @@ -105,7 +107,7 @@ BlTextStylerLauncher >> scheduleStyleText: aText withStyler: aStyler [ backgroundProcess resume ] -{ #category : #'public - styling' } +{ #category : 'public - styling' } BlTextStylerLauncher >> styleText: aText withStyler: aStyler inElement: anElement [ " Take care to schedule (with a fork) only if the editor is actually on the scene, otherwise, enqueue an editor task" @@ -125,7 +127,7 @@ BlTextStylerLauncher >> styleText: aText withStyler: aStyler inElement: anElemen ifFalse: [ self doStyleText: aText withStyler: aStyler ] ] ] ] -{ #category : #private } +{ #category : 'private' } BlTextStylerLauncher >> terminateBackgroundStylingProcess [ backgroundProcess ifNotNil: [ diff --git a/src/Bloc-Text/BlTextTrimmer.class.st b/src/Bloc-Text/BlTextTrimmer.class.st index 858ff03bd..145e30365 100644 --- a/src/Bloc-Text/BlTextTrimmer.class.st +++ b/src/Bloc-Text/BlTextTrimmer.class.st @@ -1,69 +1,71 @@ Class { - #name : #BlTextTrimmer, - #superclass : #BlTextOperator, + #name : 'BlTextTrimmer', + #superclass : 'BlTextOperator', #instVars : [ 'leftTrimPatterns', 'rightTrimPatterns' ], - #category : #'Bloc-Text-Text-Operator' + #category : 'Bloc-Text-Text-Operator', + #package : 'Bloc-Text', + #tag : 'Text-Operator' } -{ #category : #'api - configuration' } +{ #category : 'api - configuration' } BlTextTrimmer >> both: anOneArgBlock [ self left: anOneArgBlock. self right: anOneArgBlock. ] -{ #category : #'api - configuration' } +{ #category : 'api - configuration' } BlTextTrimmer >> bothLineBreaks [ self leftLineBreaks; rightLineBreaks. ] -{ #category : #'api - configuration' } +{ #category : 'api - configuration' } BlTextTrimmer >> bothSeparators [ self leftSeparators; rightSeparators. ] -{ #category : #initialization } +{ #category : 'initialization' } BlTextTrimmer >> initialize [ super initialize. leftTrimPatterns := OrderedCollection new. rightTrimPatterns := OrderedCollection new. ] -{ #category : #'api - configuration' } +{ #category : 'api - configuration' } BlTextTrimmer >> left: anOneArgBlock [ leftTrimPatterns add: anOneArgBlock ] -{ #category : #'api - configuration' } +{ #category : 'api - configuration' } BlTextTrimmer >> leftLineBreaks [ self left: [ :aCharacter | aCharacter isLineBreak ] ] -{ #category : #'api - configuration' } +{ #category : 'api - configuration' } BlTextTrimmer >> leftSeparators [ self left: [ :aCharacter | aCharacter isSeparator ] ] -{ #category : #'api - configuration' } +{ #category : 'api - configuration' } BlTextTrimmer >> right: anOneArgBlock [ rightTrimPatterns add: anOneArgBlock ] -{ #category : #'api - configuration' } +{ #category : 'api - configuration' } BlTextTrimmer >> rightLineBreaks [ self right: [ :aCharacter | aCharacter isLineBreak ] ] -{ #category : #'api - configuration' } +{ #category : 'api - configuration' } BlTextTrimmer >> rightSeparators [ self right: [ :aCharacter | aCharacter isSeparator ] ] -{ #category : #'api - processing' } +{ #category : 'api - processing' } BlTextTrimmer >> trim [ | left right | @@ -83,7 +85,7 @@ BlTextTrimmer >> trim [ self text delete: 1 to: left - 1 ]. ] -{ #category : #'api - processing' } +{ #category : 'api - processing' } BlTextTrimmer >> trimmed [ "I return a new copy of the text trimmed according to the configuration" diff --git a/src/Bloc-Text/BlTextVariableLink.class.st b/src/Bloc-Text/BlTextVariableLink.class.st index d91b7c7f7..00c890360 100644 --- a/src/Bloc-Text/BlTextVariableLink.class.st +++ b/src/Bloc-Text/BlTextVariableLink.class.st @@ -1,10 +1,12 @@ Class { - #name : #BlTextVariableLink, - #superclass : #BlTextLinkAttribute, - #category : #'Bloc-Text-Text-Attributes' + #name : 'BlTextVariableLink', + #superclass : 'BlTextLinkAttribute', + #category : 'Bloc-Text-Text-Attributes', + #package : 'Bloc-Text', + #tag : 'Text-Attributes' } -{ #category : #accessing } +{ #category : 'accessing' } BlTextVariableLink class >> variableName: aString [ ^ self new ] diff --git a/src/Bloc-Text/BlTextsDeleted.class.st b/src/Bloc-Text/BlTextsDeleted.class.st index 14a2c9dfe..74ac9d1bd 100644 --- a/src/Bloc-Text/BlTextsDeleted.class.st +++ b/src/Bloc-Text/BlTextsDeleted.class.st @@ -3,49 +3,51 @@ I am sent by BlText when some pieces of text defined by index intervals are dele " Class { - #name : #BlTextsDeleted, - #superclass : #Announcement, + #name : 'BlTextsDeleted', + #superclass : 'Announcement', #instVars : [ 'texts', 'finalIntervals', 'requestedIntervals' ], - #category : #'Bloc-Text-Text-Events' + #category : 'Bloc-Text-Text-Events', + #package : 'Bloc-Text', + #tag : 'Text-Events' } -{ #category : #'instance creation' } +{ #category : 'instance creation' } BlTextsDeleted class >> intervals: aCollectionOfIntervals texts: aCollectionOfTexts [ ^ self new intervals: aCollectionOfIntervals; texts: aCollectionOfTexts ] -{ #category : #accessing } +{ #category : 'accessing' } BlTextsDeleted >> finalIntervals [ ^ finalIntervals ] -{ #category : #accessing } +{ #category : 'accessing' } BlTextsDeleted >> finalIntervals: anObject [ finalIntervals := anObject ] -{ #category : #accessing } +{ #category : 'accessing' } BlTextsDeleted >> requestedIntervals [ ^ requestedIntervals ] -{ #category : #accessing } +{ #category : 'accessing' } BlTextsDeleted >> requestedIntervals: anObject [ requestedIntervals := anObject ] -{ #category : #accessing } +{ #category : 'accessing' } BlTextsDeleted >> texts [ ^ texts ] -{ #category : #accessing } +{ #category : 'accessing' } BlTextsDeleted >> texts: anObject [ texts := anObject ] diff --git a/src/Bloc-Text/BlWrappedText.class.st b/src/Bloc-Text/BlWrappedText.class.st index 6a92a8800..f2f1f17ae 100644 --- a/src/Bloc-Text/BlWrappedText.class.st +++ b/src/Bloc-Text/BlWrappedText.class.st @@ -3,25 +3,27 @@ I am a special type of text that delegates most operations to the underlying tex " Class { - #name : #BlWrappedText, - #superclass : #BlText, + #name : 'BlWrappedText', + #superclass : 'BlText', #instVars : [ 'text' ], - #category : #'Bloc-Text-Text' + #category : 'Bloc-Text-Text', + #package : 'Bloc-Text', + #tag : 'Text' } -{ #category : #testing } +{ #category : 'testing' } BlWrappedText class >> isAbstract [ ^ self name = #BlWrappedText ] -{ #category : #'instance creation' } +{ #category : 'instance creation' } BlWrappedText class >> new [ self error: 'Use one of my factories instead (e.g. #text:)' ] -{ #category : #'instance creation' } +{ #category : 'instance creation' } BlWrappedText class >> text: aBlText [ @@ -30,7 +32,7 @@ BlWrappedText class >> text: aBlText [ text: aBlText ] -{ #category : #accessing } +{ #category : 'accessing' } BlWrappedText >> at: anIndex [ "Return a character at a given index" @@ -38,31 +40,31 @@ BlWrappedText >> at: anIndex [ ^ self text at: anIndex ] -{ #category : #'text - attributes' } +{ #category : 'text - attributes' } BlWrappedText >> attributes: anAttributesCollection [ "Apply given attributes on the whole text" self text attributes: anAttributesCollection ] -{ #category : #'text - attributes' } +{ #category : 'text - attributes' } BlWrappedText >> attributes: anAttributesCollection from: aStart to: anEnd [ "Apply given attributes on the text from aStart to anEnd" self text attributes: anAttributesCollection from: aStart to: anEnd ] -{ #category : #'text - attributes' } +{ #category : 'text - attributes' } BlWrappedText >> attributesFinder [ ^ text attributesFinder ] -{ #category : #'text - attributes' } +{ #category : 'text - attributes' } BlWrappedText >> clearAttributes: aStart to: anEnd if: aBlock [ self text clearAttributes: aStart to: anEnd if: aBlock ] -{ #category : #'text - copying' } +{ #category : 'text - copying' } BlWrappedText >> copyFrom: aStartIndex to: anEndIndex [ "Create a copy of this text within a given indices interval. Note: I am different from ==#from:to:== in a sense that I don't create a sub-text that points @@ -74,14 +76,14 @@ BlWrappedText >> copyFrom: aStartIndex to: anEndIndex [ ^ self text copyFrom: aStartIndex to: anEndIndex ] -{ #category : #'text - enumeration' } +{ #category : 'text - enumeration' } BlWrappedText >> do: aBlock [ "Evaluate aBlock with every character as argument" self text do: aBlock ] -{ #category : #'text - accessing' } +{ #category : 'text - accessing' } BlWrappedText >> empty [ "Return a similar (the same backend data structure) but empty text" @@ -89,21 +91,21 @@ BlWrappedText >> empty [ ^ self text empty ] -{ #category : #'text - converting' } +{ #category : 'text - converting' } BlWrappedText >> encodeOn: aWriteStream with: aZnCharacterEncoder [ "Encode myself on a ByteString stream using the provided Zinc encoder." text encodeOn: aWriteStream with: aZnCharacterEncoder ] -{ #category : #'text - enumeration' } +{ #category : 'text - enumeration' } BlWrappedText >> from: aFromIndex to: aToIndex do: aBlock [ "Evaluate aBlock with every character as argument within interval [aFromIndex, aToIndex]" self text from: aFromIndex to: aToIndex do: aBlock ] -{ #category : #'text - copying' } +{ #category : 'text - copying' } BlWrappedText >> generation [ "Return an object that uniquely represents this generation of text" @@ -111,20 +113,20 @@ BlWrappedText >> generation [ ^ self text generation ] -{ #category : #copying } +{ #category : 'copying' } BlWrappedText >> internalRepresentation [ ^ self text internalRepresentation ] -{ #category : #'text - testing' } +{ #category : 'text - testing' } BlWrappedText >> isEmpty [ ^ self text isEmpty ] -{ #category : #'text - enumeration' } +{ #category : 'text - enumeration' } BlWrappedText >> iterator [ "Return an iterator pointing to the first text item (character) limited only by the text size" @@ -132,7 +134,7 @@ BlWrappedText >> iterator [ ^ self text iterator ] -{ #category : #'text - enumeration' } +{ #category : 'text - enumeration' } BlWrappedText >> iterator: aStartIndex to: anEndIndex [ "Return an iterator pointing to the character at anStartIndex and limited by anEndIndex" @@ -140,31 +142,31 @@ BlWrappedText >> iterator: aStartIndex to: anEndIndex [ ^ self text iterator: aStartIndex to: anEndIndex ] -{ #category : #'text - accessing' } +{ #category : 'text - accessing' } BlWrappedText >> size [ ^ self text size ] -{ #category : #'text - notifying' } +{ #category : 'text - notifying' } BlWrappedText >> suspendAnnouncementsWhile: aBlock [ super suspendAnnouncementsWhile: [ self text suspendAnnouncementsWhile: aBlock ] ] -{ #category : #copying } +{ #category : 'copying' } BlWrappedText >> takeInternalRepresentationOf: anotherText [ self text takeInternalRepresentationOf: anotherText ] -{ #category : #accessing } +{ #category : 'accessing' } BlWrappedText >> text [ ^ text ] -{ #category : #accessing } +{ #category : 'accessing' } BlWrappedText >> text: aBlText [ self assert: [ text isNil ] @@ -173,7 +175,7 @@ BlWrappedText >> text: aBlText [ text := aBlText ] -{ #category : #'text - attributes' } +{ #category : 'text - attributes' } BlWrappedText >> unstyle: aFromIndex to: aToIndex [ "Clear all style related attributes within interval defined by from and to indices" diff --git a/src/Bloc-Text/Character.extension.st b/src/Bloc-Text/Character.extension.st index cd3538734..d075d9318 100644 --- a/src/Bloc-Text/Character.extension.st +++ b/src/Bloc-Text/Character.extension.st @@ -1,13 +1,13 @@ -Extension { #name : #Character } +Extension { #name : 'Character' } -{ #category : #'*Bloc-Text' } +{ #category : '*Bloc-Text' } Character class >> nel [ "Answer the Character representing next line." ^self value: 16r85 ] -{ #category : #'*Bloc-Text' } +{ #category : '*Bloc-Text' } Character >> textRunOn: aStream [ "When rendering text we should convert logical items to something that will actually appear on the screen and something that can be measured. For example a Tab can not be measured not diff --git a/src/Bloc-Text/Number.extension.st b/src/Bloc-Text/Number.extension.st index 9cccadee2..b60d4c8e3 100644 --- a/src/Bloc-Text/Number.extension.st +++ b/src/Bloc-Text/Number.extension.st @@ -1,21 +1,21 @@ -Extension { #name : #Number } +Extension { #name : 'Number' } -{ #category : #'*Bloc-Text' } +{ #category : '*Bloc-Text' } Number >> fontEm [ ^ BlFontSize em: self ] -{ #category : #'*Bloc-Text' } +{ #category : '*Bloc-Text' } Number >> fontPercent [ ^ BlFontSize percent: self ] -{ #category : #'*Bloc-Text' } +{ #category : '*Bloc-Text' } Number >> fontPt [ ^ BlFontSize pt: self ] -{ #category : #'*Bloc-Text' } +{ #category : '*Bloc-Text' } Number >> fontRem [ ^ BlFontSize rem: self ] diff --git a/src/Bloc-Text/RBAssignmentToken.extension.st b/src/Bloc-Text/RBAssignmentToken.extension.st index cd4cfb25b..a9c696b36 100644 --- a/src/Bloc-Text/RBAssignmentToken.extension.st +++ b/src/Bloc-Text/RBAssignmentToken.extension.st @@ -1,6 +1,6 @@ -Extension { #name : #RBAssignmentToken } +Extension { #name : 'RBAssignmentToken' } -{ #category : #'*Bloc-Text' } +{ #category : '*Bloc-Text' } RBAssignmentToken >> acceptVisitor: aVisitor [ ^ aVisitor visitAssignmentToken: self diff --git a/src/Bloc-Text/RBBinarySelectorToken.extension.st b/src/Bloc-Text/RBBinarySelectorToken.extension.st index dc05cfc66..7cddfb782 100644 --- a/src/Bloc-Text/RBBinarySelectorToken.extension.st +++ b/src/Bloc-Text/RBBinarySelectorToken.extension.st @@ -1,6 +1,6 @@ -Extension { #name : #RBBinarySelectorToken } +Extension { #name : 'RBBinarySelectorToken' } -{ #category : #'*Bloc-Text' } +{ #category : '*Bloc-Text' } RBBinarySelectorToken >> acceptVisitor: aVisitor [ ^ aVisitor visitBinarySelectorToken: self diff --git a/src/Bloc-Text/RBCommentToken.extension.st b/src/Bloc-Text/RBCommentToken.extension.st index ce39795b2..64bb25480 100644 --- a/src/Bloc-Text/RBCommentToken.extension.st +++ b/src/Bloc-Text/RBCommentToken.extension.st @@ -1,6 +1,6 @@ -Extension { #name : #RBCommentToken } +Extension { #name : 'RBCommentToken' } -{ #category : #'*Bloc-Text' } +{ #category : '*Bloc-Text' } RBCommentToken >> acceptVisitor: aVisitor [ ^ aVisitor visitCommentToken: self diff --git a/src/Bloc-Text/RBEOFToken.extension.st b/src/Bloc-Text/RBEOFToken.extension.st index b723920bc..917bbdc76 100644 --- a/src/Bloc-Text/RBEOFToken.extension.st +++ b/src/Bloc-Text/RBEOFToken.extension.st @@ -1,6 +1,6 @@ -Extension { #name : #RBEOFToken } +Extension { #name : 'RBEOFToken' } -{ #category : #'*Bloc-Text' } +{ #category : '*Bloc-Text' } RBEOFToken >> acceptVisitor: aVisitor [ ^ aVisitor visitEOFToken: self diff --git a/src/Bloc-Text/RBErrorToken.extension.st b/src/Bloc-Text/RBErrorToken.extension.st index dfb4b89bb..163dd7abb 100644 --- a/src/Bloc-Text/RBErrorToken.extension.st +++ b/src/Bloc-Text/RBErrorToken.extension.st @@ -1,6 +1,6 @@ -Extension { #name : #RBErrorToken } +Extension { #name : 'RBErrorToken' } -{ #category : #'*Bloc-Text' } +{ #category : '*Bloc-Text' } RBErrorToken >> acceptVisitor: aVisitor [ ^ aVisitor visitErrorToken: self diff --git a/src/Bloc-Text/RBIdentifierToken.extension.st b/src/Bloc-Text/RBIdentifierToken.extension.st index 221eae352..809ce6df6 100644 --- a/src/Bloc-Text/RBIdentifierToken.extension.st +++ b/src/Bloc-Text/RBIdentifierToken.extension.st @@ -1,6 +1,6 @@ -Extension { #name : #RBIdentifierToken } +Extension { #name : 'RBIdentifierToken' } -{ #category : #'*Bloc-Text' } +{ #category : '*Bloc-Text' } RBIdentifierToken >> acceptVisitor: aVisitor [ ^ aVisitor visitIdentifierToken: self diff --git a/src/Bloc-Text/RBKeywordToken.extension.st b/src/Bloc-Text/RBKeywordToken.extension.st index 3d54175fb..656c16288 100644 --- a/src/Bloc-Text/RBKeywordToken.extension.st +++ b/src/Bloc-Text/RBKeywordToken.extension.st @@ -1,6 +1,6 @@ -Extension { #name : #RBKeywordToken } +Extension { #name : 'RBKeywordToken' } -{ #category : #'*Bloc-Text' } +{ #category : '*Bloc-Text' } RBKeywordToken >> acceptVisitor: aVisitor [ ^ aVisitor visitKeywordToken: self diff --git a/src/Bloc-Text/RBLiteralArrayToken.extension.st b/src/Bloc-Text/RBLiteralArrayToken.extension.st index d9ebb1163..9a0e8581d 100644 --- a/src/Bloc-Text/RBLiteralArrayToken.extension.st +++ b/src/Bloc-Text/RBLiteralArrayToken.extension.st @@ -1,6 +1,6 @@ -Extension { #name : #RBLiteralArrayToken } +Extension { #name : 'RBLiteralArrayToken' } -{ #category : #'*Bloc-Text' } +{ #category : '*Bloc-Text' } RBLiteralArrayToken >> acceptVisitor: aVisitor [ ^ aVisitor visitLiteralArrayToken: self diff --git a/src/Bloc-Text/RBLiteralToken.extension.st b/src/Bloc-Text/RBLiteralToken.extension.st index b65ab70a7..54d4dd2a6 100644 --- a/src/Bloc-Text/RBLiteralToken.extension.st +++ b/src/Bloc-Text/RBLiteralToken.extension.st @@ -1,6 +1,6 @@ -Extension { #name : #RBLiteralToken } +Extension { #name : 'RBLiteralToken' } -{ #category : #'*Bloc-Text' } +{ #category : '*Bloc-Text' } RBLiteralToken >> acceptVisitor: aVisitor [ ^ aVisitor visitLiteralToken: self diff --git a/src/Bloc-Text/RBNumberLiteralToken.extension.st b/src/Bloc-Text/RBNumberLiteralToken.extension.st index b65ac8dbc..8bfda5ca1 100644 --- a/src/Bloc-Text/RBNumberLiteralToken.extension.st +++ b/src/Bloc-Text/RBNumberLiteralToken.extension.st @@ -1,6 +1,6 @@ -Extension { #name : #RBNumberLiteralToken } +Extension { #name : 'RBNumberLiteralToken' } -{ #category : #'*Bloc-Text' } +{ #category : '*Bloc-Text' } RBNumberLiteralToken >> acceptVisitor: aVisitor [ ^ aVisitor visitNumberLiteralToken: self diff --git a/src/Bloc-Text/RBPatternBlockToken.extension.st b/src/Bloc-Text/RBPatternBlockToken.extension.st index 5b17bd4f6..5eae6ca17 100644 --- a/src/Bloc-Text/RBPatternBlockToken.extension.st +++ b/src/Bloc-Text/RBPatternBlockToken.extension.st @@ -1,6 +1,6 @@ -Extension { #name : #RBPatternBlockToken } +Extension { #name : 'RBPatternBlockToken' } -{ #category : #'*Bloc-Text' } +{ #category : '*Bloc-Text' } RBPatternBlockToken >> acceptVisitor: aVisitor [ ^ aVisitor visitPatternBlockToken: self diff --git a/src/Bloc-Text/RBSpecialCharacterToken.extension.st b/src/Bloc-Text/RBSpecialCharacterToken.extension.st index 34ed310df..fa62de501 100644 --- a/src/Bloc-Text/RBSpecialCharacterToken.extension.st +++ b/src/Bloc-Text/RBSpecialCharacterToken.extension.st @@ -1,6 +1,6 @@ -Extension { #name : #RBSpecialCharacterToken } +Extension { #name : 'RBSpecialCharacterToken' } -{ #category : #'*Bloc-Text' } +{ #category : '*Bloc-Text' } RBSpecialCharacterToken >> acceptVisitor: aVisitor [ ^ aVisitor visitSpecialCharacterToken: self diff --git a/src/Bloc-Text/RBToken.extension.st b/src/Bloc-Text/RBToken.extension.st index c4955c871..a6e1b6e89 100644 --- a/src/Bloc-Text/RBToken.extension.st +++ b/src/Bloc-Text/RBToken.extension.st @@ -1,6 +1,6 @@ -Extension { #name : #RBToken } +Extension { #name : 'RBToken' } -{ #category : #'*Bloc-Text' } +{ #category : '*Bloc-Text' } RBToken >> acceptVisitor: aVisitor [ (self class name, '>>acceptVisitor: not implemented') traceCr. diff --git a/src/Bloc-Text/TBlFont.trait.st b/src/Bloc-Text/TBlFont.trait.st index 44c4b1a43..88ea40ad0 100644 --- a/src/Bloc-Text/TBlFont.trait.st +++ b/src/Bloc-Text/TBlFont.trait.st @@ -1,5 +1,5 @@ Trait { - #name : #TBlFont, + #name : 'TBlFont', #instVars : [ 'fontFamilyName', 'fontSize', @@ -7,65 +7,67 @@ Trait { 'fontSlant', 'fontWeight' ], - #category : #'Bloc-Text-Font' + #category : 'Bloc-Text-Font', + #package : 'Bloc-Text', + #tag : 'Font' } -{ #category : #private } +{ #category : 'private' } TBlFont >> privateFontFamilyName [ ^ fontFamilyName ] -{ #category : #private } +{ #category : 'private' } TBlFont >> privateFontFamilyName: aString [ fontFamilyName := aString ] -{ #category : #private } +{ #category : 'private' } TBlFont >> privateFontSize [ ^ fontSize ] -{ #category : #private } +{ #category : 'private' } TBlFont >> privateFontSize: aBlValueWithUnit [ fontSize := aBlValueWithUnit ] -{ #category : #private } +{ #category : 'private' } TBlFont >> privateFontSlant [ ^ fontSlant ] -{ #category : #private } +{ #category : 'private' } TBlFont >> privateFontSlant: aBlFontSlant [ fontSlant := aBlFontSlant ] -{ #category : #private } +{ #category : 'private' } TBlFont >> privateFontStretch [ ^ fontStretch ] -{ #category : #private } +{ #category : 'private' } TBlFont >> privateFontStretch: aBlFontStretch [ fontStretch := aBlFontStretch ] -{ #category : #private } +{ #category : 'private' } TBlFont >> privateFontWeight [ ^ fontWeight ] -{ #category : #private } +{ #category : 'private' } TBlFont >> privateFontWeight: aBlFontWeight [ fontWeight := aBlFontWeight ] diff --git a/src/Bloc-Text/TBlFontDescriptor.trait.st b/src/Bloc-Text/TBlFontDescriptor.trait.st index 965d9a936..7ca34799f 100644 --- a/src/Bloc-Text/TBlFontDescriptor.trait.st +++ b/src/Bloc-Text/TBlFontDescriptor.trait.st @@ -1,203 +1,205 @@ Trait { - #name : #TBlFontDescriptor, - #category : #'Bloc-Text-Font' + #name : 'TBlFontDescriptor', + #category : 'Bloc-Text-Font', + #package : 'Bloc-Text', + #tag : 'Font' } -{ #category : #'font - name' } +{ #category : 'font - name' } TBlFontDescriptor >> familyName [ ^ self fontPropertiesTarget privateFontFamilyName ] -{ #category : #'font - name' } +{ #category : 'font - name' } TBlFontDescriptor >> familyName: aString [ self fontPropertiesTarget privateFontFamilyName: aString ] -{ #category : #accessing } +{ #category : 'accessing' } TBlFontDescriptor >> fontPropertiesTarget [ ^ self explicitRequirement ] -{ #category : #'font - size' } +{ #category : 'font - size' } TBlFontDescriptor >> fontSize [ ^ self fontPropertiesTarget privateFontSize ] -{ #category : #'font - size' } +{ #category : 'font - size' } TBlFontDescriptor >> fontSize: aBlValueWithUnitOrNumber [ self fontPropertiesTarget privateFontSize: (aBlValueWithUnitOrNumber isNumber ifTrue: [ BlValueWithUnit pt: aBlValueWithUnitOrNumber ] ifFalse: [ aBlValueWithUnitOrNumber ]) ] -{ #category : #'font - slant' } +{ #category : 'font - slant' } TBlFontDescriptor >> fontSlant [ ^ self fontPropertiesTarget privateFontSlant ] -{ #category : #'font - slant' } +{ #category : 'font - slant' } TBlFontDescriptor >> fontSlant: aBlFontSlantOrNumber [ self fontPropertiesTarget privateFontSlant: (aBlFontSlantOrNumber isNumber ifTrue: [ BlFontSlant fromNumber: aBlFontSlantOrNumber ] ifFalse: [ aBlFontSlantOrNumber ]) ] -{ #category : #'font - stretch' } +{ #category : 'font - stretch' } TBlFontDescriptor >> fontStretch [ ^ self fontPropertiesTarget privateFontStretch ] -{ #category : #'font - stretch' } +{ #category : 'font - stretch' } TBlFontDescriptor >> fontStretch: aBlFontStretch [ self fontPropertiesTarget privateFontStretch: aBlFontStretch ] -{ #category : #'font - weight' } +{ #category : 'font - weight' } TBlFontDescriptor >> fontWeight [ ^ self fontPropertiesTarget privateFontWeight ] -{ #category : #'font - weight' } +{ #category : 'font - weight' } TBlFontDescriptor >> fontWeight: aBlFontWeightOrNumber [ self fontPropertiesTarget privateFontWeight: (aBlFontWeightOrNumber isNumber ifTrue: [ BlFontWeight fromNumber: aBlFontWeightOrNumber ] ifFalse: [ aBlFontWeightOrNumber ]) ] -{ #category : #'font - slant' } +{ #category : 'font - slant' } TBlFontDescriptor >> slantItalic [ self fontSlant: BlFontSlant italic ] -{ #category : #'font - slant' } +{ #category : 'font - slant' } TBlFontDescriptor >> slantNormal [ self fontSlant: BlFontSlant normal ] -{ #category : #'font - slant' } +{ #category : 'font - slant' } TBlFontDescriptor >> slantOblique [ self fontSlant: BlFontSlant oblique ] -{ #category : #'font - slant' } +{ #category : 'font - slant' } TBlFontDescriptor >> slantReset [ self slantNormal ] -{ #category : #'font - stretch' } +{ #category : 'font - stretch' } TBlFontDescriptor >> stretchCondensed [ self fontStretch: BlFontStretch condensed ] -{ #category : #'font - stretch' } +{ #category : 'font - stretch' } TBlFontDescriptor >> stretchExpanded [ self fontStretch: BlFontStretch expanded ] -{ #category : #'font - stretch' } +{ #category : 'font - stretch' } TBlFontDescriptor >> stretchExtraCondensed [ self fontStretch: BlFontStretch extraCondensed ] -{ #category : #'font - stretch' } +{ #category : 'font - stretch' } TBlFontDescriptor >> stretchExtraExpanded [ self fontStretch: BlFontStretch extraExpanded ] -{ #category : #'font - stretch' } +{ #category : 'font - stretch' } TBlFontDescriptor >> stretchNormal [ self fontStretch: BlFontStretch normal ] -{ #category : #'font - stretch' } +{ #category : 'font - stretch' } TBlFontDescriptor >> stretchReset [ self stretchNormal ] -{ #category : #'font - stretch' } +{ #category : 'font - stretch' } TBlFontDescriptor >> stretchSemiCondensed [ self fontStretch: BlFontStretch semiCondensed ] -{ #category : #'font - stretch' } +{ #category : 'font - stretch' } TBlFontDescriptor >> stretchSemiExpanded [ self fontStretch: BlFontStretch semiExpanded ] -{ #category : #'font - stretch' } +{ #category : 'font - stretch' } TBlFontDescriptor >> stretchUltraCondensed [ self fontStretch: BlFontStretch ultraCondensed ] -{ #category : #'font - stretch' } +{ #category : 'font - stretch' } TBlFontDescriptor >> stretchUltraExpanded [ self fontStretch: BlFontStretch ultraExpanded ] -{ #category : #'font - weight' } +{ #category : 'font - weight' } TBlFontDescriptor >> weightBlack [ self fontWeight: BlFontWeight black ] -{ #category : #'font - weight' } +{ #category : 'font - weight' } TBlFontDescriptor >> weightBold [ self fontWeight: BlFontWeight bold ] -{ #category : #'font - weight' } +{ #category : 'font - weight' } TBlFontDescriptor >> weightExtraBlack [ self fontWeight: BlFontWeight extraBlack ] -{ #category : #'font - weight' } +{ #category : 'font - weight' } TBlFontDescriptor >> weightExtraBold [ self fontWeight: BlFontWeight extraBold ] -{ #category : #'font - weight' } +{ #category : 'font - weight' } TBlFontDescriptor >> weightExtraLight [ self fontWeight: BlFontWeight extraLight ] -{ #category : #'font - weight' } +{ #category : 'font - weight' } TBlFontDescriptor >> weightLight [ self fontWeight: BlFontWeight light ] -{ #category : #'font - weight' } +{ #category : 'font - weight' } TBlFontDescriptor >> weightMedium [ self fontWeight: BlFontWeight medium ] -{ #category : #'font - weight' } +{ #category : 'font - weight' } TBlFontDescriptor >> weightNormal [ self fontWeight: BlFontWeight normal ] -{ #category : #'font - weight' } +{ #category : 'font - weight' } TBlFontDescriptor >> weightReset [ self weightNormal ] -{ #category : #'font - weight' } +{ #category : 'font - weight' } TBlFontDescriptor >> weightSemiBold [ self fontWeight: BlFontWeight semiBold ] -{ #category : #'font - weight' } +{ #category : 'font - weight' } TBlFontDescriptor >> weightThin [ self fontWeight: BlFontWeight thin ] diff --git a/src/Bloc-Text/TBlTextAttributesFinder.trait.st b/src/Bloc-Text/TBlTextAttributesFinder.trait.st index adee783fa..fb261f069 100644 --- a/src/Bloc-Text/TBlTextAttributesFinder.trait.st +++ b/src/Bloc-Text/TBlTextAttributesFinder.trait.st @@ -1,16 +1,18 @@ Trait { - #name : #TBlTextAttributesFinder, - #category : #'Bloc-Text-Text-Attributes Finder' + #name : 'TBlTextAttributesFinder', + #category : 'Bloc-Text-Text-Attributes Finder', + #package : 'Bloc-Text', + #tag : 'Text-Attributes Finder' } -{ #category : #enumerating } +{ #category : 'enumerating' } TBlTextAttributesFinder >> attributesAndIndicesDo: aBlock [ self findAttributesSuchThat: [ :eachAttribute | true ] indicesDo: aBlock ] -{ #category : #enumerating } +{ #category : 'enumerating' } TBlTextAttributesFinder >> attributesAndIndicesSuchThat: aFilterBlock [ ^ Array streamContents: [ :aStream | self @@ -19,7 +21,7 @@ TBlTextAttributesFinder >> attributesAndIndicesSuchThat: aFilterBlock [ aStream nextPut: anAttribute -> (aStart to: anEnd) ] ] ] -{ #category : #private } +{ #category : 'private' } TBlTextAttributesFinder >> computeAttributesDictionaryFor: aBlText [ | anIterator theAttributes | @@ -47,12 +49,12 @@ TBlTextAttributesFinder >> computeAttributesDictionaryFor: aBlText [ ^ theAttributes ] -{ #category : #enumerating } +{ #category : 'enumerating' } TBlTextAttributesFinder >> findAttribute: aBlTextAttribute indicesDo: aBlock [ self explicitRequirement ] -{ #category : #enumerating } +{ #category : 'enumerating' } TBlTextAttributesFinder >> findAttributes: aCollectionOfBlTextAttribute indicesDo: aBlock [ aCollectionOfBlTextAttribute do: [ :eachAttribute | @@ -61,12 +63,12 @@ TBlTextAttributesFinder >> findAttributes: aCollectionOfBlTextAttribute indicesD indicesDo: aBlock ] ] -{ #category : #enumerating } +{ #category : 'enumerating' } TBlTextAttributesFinder >> findAttributesSuchThat: aFilterBlock indicesDo: anIterationBlock [ self explicitRequirement ] -{ #category : #testing } +{ #category : 'testing' } TBlTextAttributesFinder >> hasAttribute: aBlTextAttribute [ @@ -77,7 +79,7 @@ TBlTextAttributesFinder >> hasAttribute: aBlTextAttribute [ ^ false ] -{ #category : #testing } +{ #category : 'testing' } TBlTextAttributesFinder >> hasAttributeSuchThat: aComparisonBlock [ diff --git a/src/Bloc-Text/TBlTextStyleable.trait.st b/src/Bloc-Text/TBlTextStyleable.trait.st index f86438cea..fe291ab57 100644 --- a/src/Bloc-Text/TBlTextStyleable.trait.st +++ b/src/Bloc-Text/TBlTextStyleable.trait.st @@ -4,33 +4,35 @@ I am a unified entrance point for text style attributes. My goal is to let users As a trait I am used in different parts of the system, thus by adding extension methods to me developers can add support of their custom attributes everywhere. " Trait { - #name : #TBlTextStyleable, - #category : #'Bloc-Text-Text-Support' + #name : 'TBlTextStyleable', + #category : 'Bloc-Text-Text-Support', + #package : 'Bloc-Text', + #tag : 'Text-Support' } -{ #category : #accessing } +{ #category : 'accessing' } TBlTextStyleable >> attributesBuilder [ ^ self explicitRequirement ] -{ #category : #'api - text style' } +{ #category : 'api - text style' } TBlTextStyleable >> background: aPaint [ self attributesBuilder attribute: (BlTextBackgroundAttribute paint: aPaint) ] -{ #category : #'api - text weight' } +{ #category : 'api - text weight' } TBlTextStyleable >> black [ self attributesBuilder attribute: BlFontWeightAttribute black ] -{ #category : #'api - text weight' } +{ #category : 'api - text weight' } TBlTextStyleable >> bold [ self attributesBuilder attribute: BlFontWeightAttribute bold ] -{ #category : #'api - text decoration' } +{ #category : 'api - text decoration' } TBlTextStyleable >> decorationDo: aBlock [ | anAttribute | @@ -39,104 +41,104 @@ TBlTextStyleable >> decorationDo: aBlock [ self attributesBuilder attribute: anAttribute ] -{ #category : #'api - text font' } +{ #category : 'api - text font' } TBlTextStyleable >> defaultFontName: aString [ self attributesBuilder attribute: (BlFontFamilyDefaultAttribute named: aString) ] -{ #category : #'api - text font' } +{ #category : 'api - text font' } TBlTextStyleable >> defaultFontSize: aNumber [ self attributesBuilder attribute: (BlFontSizeDefaultAttribute size: aNumber) ] -{ #category : #'api - text font' } +{ #category : 'api - text font' } TBlTextStyleable >> fontName: aString [ self attributesBuilder attribute: (BlFontFamilyAttribute named: aString) ] -{ #category : #'api - text font' } +{ #category : 'api - text font' } TBlTextStyleable >> fontSize: aNumber [ self attributesBuilder attribute: (BlFontSizeAttribute size: aNumber) ] -{ #category : #'api - text style' } +{ #category : 'api - text style' } TBlTextStyleable >> foreground: aBlPaint [ self attributesBuilder attribute: (BlTextForegroundAttribute paint: aBlPaint) ] -{ #category : #'api - text orientation' } +{ #category : 'api - text orientation' } TBlTextStyleable >> horizontal [ ] -{ #category : #'api - text emphasis' } +{ #category : 'api - text emphasis' } TBlTextStyleable >> italic [ self attributesBuilder attribute: BlFontEmphasisAttribute italic ] -{ #category : #'api - text weight' } +{ #category : 'api - text weight' } TBlTextStyleable >> light [ self attributesBuilder attribute: BlFontWeightAttribute light ] -{ #category : #'api - text decoration' } +{ #category : 'api - text decoration' } TBlTextStyleable >> lineThroughDo: aBlock [ self decorationDo: [ :aBlTextDecorationAttribute | aBlock value: aBlTextDecorationAttribute lineThrough ] ] -{ #category : #'api - text weight' } +{ #category : 'api - text weight' } TBlTextStyleable >> medium [ self attributesBuilder attribute: BlFontWeightAttribute medium ] -{ #category : #'api - text style' } +{ #category : 'api - text style' } TBlTextStyleable >> monospace [ ] -{ #category : #'api - text emphasis' } +{ #category : 'api - text emphasis' } TBlTextStyleable >> normal [ self attributesBuilder attribute: BlFontEmphasisAttribute normal ] -{ #category : #'api - text emphasis' } +{ #category : 'api - text emphasis' } TBlTextStyleable >> oblique [ self attributesBuilder attribute: BlFontEmphasisAttribute oblique ] -{ #category : #'api - text decoration' } +{ #category : 'api - text decoration' } TBlTextStyleable >> overlineDo: aBlock [ self decorationDo: [ :aBlTextDecorationAttribute | aBlock value: aBlTextDecorationAttribute overline ] ] -{ #category : #'api - text weight' } +{ #category : 'api - text weight' } TBlTextStyleable >> regular [ self attributesBuilder attribute: BlFontWeightAttribute normal ] -{ #category : #'api - text style' } +{ #category : 'api - text style' } TBlTextStyleable >> spacing: aNumber [ self attributesBuilder attribute: (BlTextSpacingAttribute spacing: aNumber) ] -{ #category : #'api - text weight' } +{ #category : 'api - text weight' } TBlTextStyleable >> thin [ self attributesBuilder attribute: BlFontWeightAttribute thin ] -{ #category : #'api - text decoration' } +{ #category : 'api - text decoration' } TBlTextStyleable >> underline [ "Set the default underline of black color and thickness 1" self underlineDo: [ :aBlTextDecorationAttribute | ] ] -{ #category : #'api - text decoration' } +{ #category : 'api - text decoration' } TBlTextStyleable >> underlineColor: aColor [ self underlineDo: [ :aBlTextDecorationAttribute | aBlTextDecorationAttribute color: aColor ] ] -{ #category : #'api - text decoration' } +{ #category : 'api - text decoration' } TBlTextStyleable >> underlineColor: aColor thickness: aNumber [ self underlineDo: [ :aBlTextDecorationAttribute | aBlTextDecorationAttribute @@ -144,12 +146,12 @@ TBlTextStyleable >> underlineColor: aColor thickness: aNumber [ thickness: aNumber ] ] -{ #category : #'api - text decoration' } +{ #category : 'api - text decoration' } TBlTextStyleable >> underlineDo: aBlock [ self decorationDo: [ :aBlTextDecorationAttribute | aBlock value: aBlTextDecorationAttribute underline ] ] -{ #category : #'api - text decoration' } +{ #category : 'api - text decoration' } TBlTextStyleable >> underlinePaint: aColor width: aNumber [ self deprecated: 'Use underlineColor:thickness: instead' @@ -159,12 +161,12 @@ TBlTextStyleable >> underlinePaint: aColor width: aNumber [ self underlineColor: aColor thickness: aNumber ] -{ #category : #'api - text orientation' } +{ #category : 'api - text orientation' } TBlTextStyleable >> vertical [ ] -{ #category : #'api - text weight' } +{ #category : 'api - text weight' } TBlTextStyleable >> weight: aNumber [ self attributesBuilder attribute: (BlFontWeightAttribute weight: aNumber) ] diff --git a/src/Bloc-Text/package.st b/src/Bloc-Text/package.st index 6b40b73d6..c3c80ff54 100644 --- a/src/Bloc-Text/package.st +++ b/src/Bloc-Text/package.st @@ -1 +1 @@ -Package { #name : #'Bloc-Text' } +Package { #name : 'Bloc-Text' } diff --git a/src/Bloc-UnitedTests/BlAnnulusSectorGeometryTest.class.st b/src/Bloc-UnitedTests/BlAnnulusSectorGeometryTest.class.st index a43e0262b..ca5481eaf 100644 --- a/src/Bloc-UnitedTests/BlAnnulusSectorGeometryTest.class.st +++ b/src/Bloc-UnitedTests/BlAnnulusSectorGeometryTest.class.st @@ -3,12 +3,14 @@ I have been automatically converted and probably manually tweaked from BlAnnulus Finally and more important such tests should not use setup because every method should be in capacity of returning a fully working object called an example :) " Class { - #name : #BlAnnulusSectorGeometryTest, - #superclass : #BlGeometryTest, - #category : #'Bloc-UnitedTests-Geometry' + #name : 'BlAnnulusSectorGeometryTest', + #superclass : 'BlGeometryTest', + #category : 'Bloc-UnitedTests-Geometry', + #package : 'Bloc-UnitedTests', + #tag : 'Geometry' } -{ #category : #tests } +{ #category : 'tests' } BlAnnulusSectorGeometryTest >> testAnnulus [ @@ -28,7 +30,7 @@ BlAnnulusSectorGeometryTest >> testAnnulus [ ^ aSector ] -{ #category : #tests } +{ #category : 'tests' } BlAnnulusSectorGeometryTest >> testAnnulusSectorBottomLeft [ @@ -50,7 +52,7 @@ BlAnnulusSectorGeometryTest >> testAnnulusSectorBottomLeft [ ^ aSector ] -{ #category : #tests } +{ #category : 'tests' } BlAnnulusSectorGeometryTest >> testAnnulusSectorBottomRight [ @@ -72,7 +74,7 @@ BlAnnulusSectorGeometryTest >> testAnnulusSectorBottomRight [ ^ aSector ] -{ #category : #tests } +{ #category : 'tests' } BlAnnulusSectorGeometryTest >> testAnnulusSectorTopLeft [ @@ -94,7 +96,7 @@ BlAnnulusSectorGeometryTest >> testAnnulusSectorTopLeft [ ^ aSector ] -{ #category : #tests } +{ #category : 'tests' } BlAnnulusSectorGeometryTest >> testAnnulusSectorTopRight [ @@ -116,7 +118,7 @@ BlAnnulusSectorGeometryTest >> testAnnulusSectorTopRight [ ^ aSector ] -{ #category : #tests } +{ #category : 'tests' } BlAnnulusSectorGeometryTest >> testCircle [ @@ -137,7 +139,7 @@ BlAnnulusSectorGeometryTest >> testCircle [ ^ aSector ] -{ #category : #tests } +{ #category : 'tests' } BlAnnulusSectorGeometryTest >> testCircleSector [ @@ -158,7 +160,7 @@ BlAnnulusSectorGeometryTest >> testCircleSector [ ^ aSector ] -{ #category : #tests } +{ #category : 'tests' } BlAnnulusSectorGeometryTest >> testDefault [ @@ -176,7 +178,7 @@ BlAnnulusSectorGeometryTest >> testDefault [ ^ aSector ] -{ #category : #tests } +{ #category : 'tests' } BlAnnulusSectorGeometryTest >> testOuterRadiusSmallerThanInner [ @@ -196,7 +198,7 @@ BlAnnulusSectorGeometryTest >> testOuterRadiusSmallerThanInner [ ^ aSector ] -{ #category : #tests } +{ #category : 'tests' } BlAnnulusSectorGeometryTest >> testPacman [ @@ -217,7 +219,7 @@ BlAnnulusSectorGeometryTest >> testPacman [ ^ aSector ] -{ #category : #tests } +{ #category : 'tests' } BlAnnulusSectorGeometryTest >> testRadiiOutsideOfValidInterval [ @@ -237,7 +239,7 @@ BlAnnulusSectorGeometryTest >> testRadiiOutsideOfValidInterval [ ^ aSector ] -{ #category : #tests } +{ #category : 'tests' } BlAnnulusSectorGeometryTest >> testSameRadii [ diff --git a/src/Bloc-UnitedTests/BlBasicTest.class.st b/src/Bloc-UnitedTests/BlBasicTest.class.st index 5ae75e11c..4bb934617 100644 --- a/src/Bloc-UnitedTests/BlBasicTest.class.st +++ b/src/Bloc-UnitedTests/BlBasicTest.class.st @@ -3,12 +3,14 @@ I have been automatically converted and probably manually tweaked from BlBasicEx Finally and more important such tests should not use setup because every method should be in capacity of returning a fully working object called an example :) " Class { - #name : #BlBasicTest, - #superclass : #TestCase, - #category : #'Bloc-UnitedTests-Basic' + #name : 'BlBasicTest', + #superclass : 'TestCase', + #category : 'Bloc-UnitedTests-Basic', + #package : 'Bloc-UnitedTests', + #tag : 'Basic' } -{ #category : #tests } +{ #category : 'tests' } BlBasicTest >> testAsForm [ | anElement | @@ -30,7 +32,7 @@ BlBasicTest >> testAsForm [ equals: Color green ] -{ #category : #tests } +{ #category : 'tests' } BlBasicTest >> testBorderRopedText [ | aText | @@ -43,7 +45,7 @@ self assert: aText rope attributes equals: { (BlFontSizeAttribute size: 30). ^ aText ] -{ #category : #tests } +{ #category : 'tests' } BlBasicTest >> testBorderTextElement [ @@ -58,7 +60,7 @@ BlBasicTest >> testBorderTextElement [ c frame horizontal alignCenter ] ] -{ #category : #tests } +{ #category : 'tests' } BlBasicTest >> testBottomBorder [ @@ -66,7 +68,7 @@ BlBasicTest >> testBottomBorder [ c frame vertical alignBottom ] ] -{ #category : #tests } +{ #category : 'tests' } BlBasicTest >> testButtons [ @@ -77,7 +79,7 @@ BlBasicTest >> testButtons [ yourself ] -{ #category : #tests } +{ #category : 'tests' } BlBasicTest >> testCircle [ @@ -89,7 +91,7 @@ BlBasicTest >> testCircle [ yourself ] -{ #category : #tests } +{ #category : 'tests' } BlBasicTest >> testColoredButton [ @@ -130,7 +132,7 @@ BlBasicTest >> testColoredButton [ ^ button ] -{ #category : #tests } +{ #category : 'tests' } BlBasicTest >> testContainer [ @@ -143,7 +145,7 @@ BlBasicTest >> testContainer [ yourself ] -{ #category : #tests } +{ #category : 'tests' } BlBasicTest >> testElementWithAllBorders [ @@ -158,7 +160,7 @@ BlBasicTest >> testElementWithAllBorders [ addChild: (self testBottomBorder background: Color red) ] -{ #category : #tests } +{ #category : 'tests' } BlBasicTest >> testElementWithEllipticBorders [ @@ -182,7 +184,7 @@ BlBasicTest >> testElementWithEllipticBorders [ addChild: self testBorderTextElement ] -{ #category : #tests } +{ #category : 'tests' } BlBasicTest >> testElementsWithShadow [ @@ -192,7 +194,7 @@ BlBasicTest >> testElementsWithShadow [ (self testEllipseWithShadow position: 500 @ 100) } ] -{ #category : #tests } +{ #category : 'tests' } BlBasicTest >> testEllipse [ @@ -202,7 +204,7 @@ BlBasicTest >> testEllipse [ yourself ] -{ #category : #tests } +{ #category : 'tests' } BlBasicTest >> testEllipseWithShadow [ @@ -217,7 +219,7 @@ BlBasicTest >> testEllipseWithShadow [ yourself ] -{ #category : #tests } +{ #category : 'tests' } BlBasicTest >> testFabButton [ @@ -263,7 +265,7 @@ BlBasicTest >> testFabButton [ ^ button ] -{ #category : #tests } +{ #category : 'tests' } BlBasicTest >> testHorizontalBorder [ ^ BlElement new constraintsDo: [ :c | @@ -271,7 +273,7 @@ BlBasicTest >> testHorizontalBorder [ c horizontal matchParent ] ] -{ #category : #tests } +{ #category : 'tests' } BlBasicTest >> testLeftBorder [ @@ -279,7 +281,7 @@ BlBasicTest >> testLeftBorder [ c frame horizontal alignLeft ] ] -{ #category : #tests } +{ #category : 'tests' } BlBasicTest >> testLinearGradient [ @@ -293,7 +295,7 @@ BlBasicTest >> testLinearGradient [ yourself ] -{ #category : #tests } +{ #category : 'tests' } BlBasicTest >> testPolygon [ @@ -311,7 +313,7 @@ BlBasicTest >> testPolygon [ yourself ] -{ #category : #tests } +{ #category : 'tests' } BlBasicTest >> testRectangle [ @@ -325,7 +327,7 @@ BlBasicTest >> testRectangle [ yourself ] -{ #category : #tests } +{ #category : 'tests' } BlBasicTest >> testRectangleWithImage [ @@ -339,7 +341,7 @@ BlBasicTest >> testRectangleWithImage [ yourself ] -{ #category : #tests } +{ #category : 'tests' } BlBasicTest >> testRectangleWithLinearGradient [ @@ -352,7 +354,7 @@ BlBasicTest >> testRectangleWithLinearGradient [ yourself ] -{ #category : #tests } +{ #category : 'tests' } BlBasicTest >> testRectangleWithShadow [ @@ -366,7 +368,7 @@ BlBasicTest >> testRectangleWithShadow [ yourself ] -{ #category : #tests } +{ #category : 'tests' } BlBasicTest >> testRightBorder [ @@ -374,7 +376,7 @@ BlBasicTest >> testRightBorder [ c frame horizontal alignRight ] ] -{ #category : #tests } +{ #category : 'tests' } BlBasicTest >> testRoundedRectangle [ @@ -387,14 +389,14 @@ BlBasicTest >> testRoundedRectangle [ yourself ] -{ #category : #tests } +{ #category : 'tests' } BlBasicTest >> testShadowEffect [ ^ BlGaussianShadowEffect color: Color black width: 10 offset: 10 @ 10 ] -{ #category : #tests } +{ #category : 'tests' } BlBasicTest >> testShapes [ @@ -407,7 +409,7 @@ BlBasicTest >> testShapes [ (self testSquare position: 400 @ 200) } ] -{ #category : #tests } +{ #category : 'tests' } BlBasicTest >> testSquare [ @@ -420,7 +422,7 @@ BlBasicTest >> testSquare [ yourself ] -{ #category : #tests } +{ #category : 'tests' } BlBasicTest >> testTopBorder [ @@ -428,7 +430,7 @@ BlBasicTest >> testTopBorder [ c frame vertical alignTop ] ] -{ #category : #tests } +{ #category : 'tests' } BlBasicTest >> testVerticalBorder [ diff --git a/src/Bloc-UnitedTests/BlBorderTest.class.st b/src/Bloc-UnitedTests/BlBorderTest.class.st index 9fa5c2762..413c30d1f 100644 --- a/src/Bloc-UnitedTests/BlBorderTest.class.st +++ b/src/Bloc-UnitedTests/BlBorderTest.class.st @@ -3,12 +3,14 @@ I have been automatically converted and probably manually tweaked from BlBorderE Finally and more important such tests should not use setup because every method should be in capacity of returning a fully working object called an example :) " Class { - #name : #BlBorderTest, - #superclass : #TestCase, - #category : #'Bloc-UnitedTests-Basic' + #name : 'BlBorderTest', + #superclass : 'TestCase', + #category : 'Bloc-UnitedTests-Basic', + #package : 'Bloc-UnitedTests', + #tag : 'Basic' } -{ #category : #tests } +{ #category : 'tests' } BlBorderTest >> testChangeOpacityError [ @@ -24,7 +26,7 @@ BlBorderTest >> testChangeOpacityError [ ^ anError ] -{ #category : #tests } +{ #category : 'tests' } BlBorderTest >> testChangePaintError [ @@ -40,7 +42,7 @@ BlBorderTest >> testChangePaintError [ ^ anError ] -{ #category : #tests } +{ #category : 'tests' } BlBorderTest >> testChangeStyleError [ @@ -56,7 +58,7 @@ BlBorderTest >> testChangeStyleError [ ^ anError ] -{ #category : #tests } +{ #category : 'tests' } BlBorderTest >> testChangeWidthError [ @@ -72,7 +74,7 @@ BlBorderTest >> testChangeWidthError [ ^ anError ] -{ #category : #'test seed' } +{ #category : 'test seed' } BlBorderTest >> testColorGrayBorder [ @@ -95,7 +97,7 @@ BlBorderTest >> testColorGrayBorder [ ^ aBorder ] -{ #category : #tests } +{ #category : 'tests' } BlBorderTest >> testColorGrayBorderWithExplicitWidth [ @@ -118,7 +120,7 @@ BlBorderTest >> testColorGrayBorderWithExplicitWidth [ ^ aBorder ] -{ #category : #tests } +{ #category : 'tests' } BlBorderTest >> testCopyWithOpacity [ @@ -142,7 +144,7 @@ BlBorderTest >> testCopyWithOpacity [ ^ aBorder ] -{ #category : #tests } +{ #category : 'tests' } BlBorderTest >> testCopyWithPaint [ @@ -166,7 +168,7 @@ BlBorderTest >> testCopyWithPaint [ ^ aBorder ] -{ #category : #tests } +{ #category : 'tests' } BlBorderTest >> testCopyWithStyle [ @@ -190,7 +192,7 @@ BlBorderTest >> testCopyWithStyle [ ^ aBorder ] -{ #category : #tests } +{ #category : 'tests' } BlBorderTest >> testCopyWithWidth [ diff --git a/src/Bloc-UnitedTests/BlBoundsMatcherTest.class.st b/src/Bloc-UnitedTests/BlBoundsMatcherTest.class.st index 19f3e3821..969636d16 100644 --- a/src/Bloc-UnitedTests/BlBoundsMatcherTest.class.st +++ b/src/Bloc-UnitedTests/BlBoundsMatcherTest.class.st @@ -3,12 +3,14 @@ I have been automatically converted and probably manually tweaked from BlBoundsM Finally and more important such tests should not use setup because every method should be in capacity of returning a fully working object called an example :) " Class { - #name : #BlBoundsMatcherTest, - #superclass : #TestCase, - #category : #'Bloc-UnitedTests-Bounds' + #name : 'BlBoundsMatcherTest', + #superclass : 'TestCase', + #category : 'Bloc-UnitedTests-Bounds', + #package : 'Bloc-UnitedTests', + #tag : 'Bounds' } -{ #category : #tests } +{ #category : 'tests' } BlBoundsMatcherTest >> testChildStartEqualParentStartWhenEquals [ | aMatcher | @@ -21,7 +23,7 @@ BlBoundsMatcherTest >> testChildStartEqualParentStartWhenEquals [ ^ aMatcher ] -{ #category : #tests } +{ #category : 'tests' } BlBoundsMatcherTest >> testChildStartEqualParentStartWhenGreater [ | aMatcher | @@ -34,7 +36,7 @@ BlBoundsMatcherTest >> testChildStartEqualParentStartWhenGreater [ ^ aMatcher ] -{ #category : #tests } +{ #category : 'tests' } BlBoundsMatcherTest >> testChildStartEqualParentStartWhenLess [ | aMatcher | @@ -47,7 +49,7 @@ BlBoundsMatcherTest >> testChildStartEqualParentStartWhenLess [ ^ aMatcher ] -{ #category : #tests } +{ #category : 'tests' } BlBoundsMatcherTest >> testChildStartGreaterThanParentStartWhenEquals [ | aMatcher | @@ -60,7 +62,7 @@ BlBoundsMatcherTest >> testChildStartGreaterThanParentStartWhenEquals [ ^ aMatcher ] -{ #category : #tests } +{ #category : 'tests' } BlBoundsMatcherTest >> testChildStartGreaterThanParentStartWhenGreater [ | aMatcher | @@ -73,7 +75,7 @@ BlBoundsMatcherTest >> testChildStartGreaterThanParentStartWhenGreater [ ^ aMatcher ] -{ #category : #tests } +{ #category : 'tests' } BlBoundsMatcherTest >> testChildStartGreaterThanParentStartWhenLess [ | aMatcher | @@ -86,7 +88,7 @@ BlBoundsMatcherTest >> testChildStartGreaterThanParentStartWhenLess [ ^ aMatcher ] -{ #category : #tests } +{ #category : 'tests' } BlBoundsMatcherTest >> testChildStartLessThanParentStartWhenEquals [ | aMatcher | @@ -99,7 +101,7 @@ BlBoundsMatcherTest >> testChildStartLessThanParentStartWhenEquals [ ^ aMatcher ] -{ #category : #tests } +{ #category : 'tests' } BlBoundsMatcherTest >> testChildStartLessThanParentStartWhenGreater [ | aMatcher | @@ -112,7 +114,7 @@ BlBoundsMatcherTest >> testChildStartLessThanParentStartWhenGreater [ ^ aMatcher ] -{ #category : #tests } +{ #category : 'tests' } BlBoundsMatcherTest >> testChildStartLessThanParentStartWhenLess [ | aMatcher | diff --git a/src/Bloc-UnitedTests/BlChildrenArrayTest.class.st b/src/Bloc-UnitedTests/BlChildrenArrayTest.class.st index 10d022a95..586dfc9c6 100644 --- a/src/Bloc-UnitedTests/BlChildrenArrayTest.class.st +++ b/src/Bloc-UnitedTests/BlChildrenArrayTest.class.st @@ -3,14 +3,16 @@ I have been automatically converted and probably manually tweaked from BlChildre Finally and more important such tests should not use setup because every method should be in capacity of returning a fully working object called an example :) " Class { - #name : #BlChildrenArrayTest, - #superclass : #TestCase, + #name : 'BlChildrenArrayTest', + #superclass : 'TestCase', #traits : 'TBlChildrenTest', #classTraits : 'TBlChildrenTest classTrait', - #category : #'Bloc-UnitedTests-Children' + #category : 'Bloc-UnitedTests-Children', + #package : 'Bloc-UnitedTests', + #tag : 'Children' } -{ #category : #fixture } +{ #category : 'fixture' } BlChildrenArrayTest >> fill: aNumber [ | childrenArray | @@ -20,7 +22,7 @@ BlChildrenArrayTest >> fill: aNumber [ ^ childrenArray ] -{ #category : #fixture } +{ #category : 'fixture' } BlChildrenArrayTest >> newChildAt: anIndex [ | anElement | @@ -29,14 +31,14 @@ BlChildrenArrayTest >> newChildAt: anIndex [ ^ anElement ] -{ #category : #fixture } +{ #category : 'fixture' } BlChildrenArrayTest >> newChildrenCollection [ ^ BlChildrenArray new ] -{ #category : #tests } +{ #category : 'tests' } BlChildrenArrayTest >> testAdd [ @@ -53,7 +55,7 @@ BlChildrenArrayTest >> testAdd [ ^ theChildren ] -{ #category : #tests } +{ #category : 'tests' } BlChildrenArrayTest >> testAddAt [ @@ -78,7 +80,7 @@ BlChildrenArrayTest >> testAddAt [ ^ theChildren ] -{ #category : #tests } +{ #category : 'tests' } BlChildrenArrayTest >> testAsArray [ @@ -90,7 +92,7 @@ BlChildrenArrayTest >> testAsArray [ ^ theChildren ] -{ #category : #tests } +{ #category : 'tests' } BlChildrenArrayTest >> testAsArrayEmpty [ @@ -102,7 +104,7 @@ BlChildrenArrayTest >> testAsArrayEmpty [ ^ theChildren ] -{ #category : #tests } +{ #category : 'tests' } BlChildrenArrayTest >> testAt [ @@ -116,7 +118,7 @@ BlChildrenArrayTest >> testAt [ ^ theChildren ] -{ #category : #tests } +{ #category : 'tests' } BlChildrenArrayTest >> testAtIfAbsent [ @@ -142,7 +144,7 @@ BlChildrenArrayTest >> testAtIfAbsent [ ^ theChildren ] -{ #category : #tests } +{ #category : 'tests' } BlChildrenArrayTest >> testEmptyChildren [ @@ -154,7 +156,7 @@ BlChildrenArrayTest >> testEmptyChildren [ ^ theChildren ] -{ #category : #tests } +{ #category : 'tests' } BlChildrenArrayTest >> testEmptyChildrenExplicitCreation [ @@ -166,7 +168,7 @@ BlChildrenArrayTest >> testEmptyChildrenExplicitCreation [ ^ theChildren ] -{ #category : #tests } +{ #category : 'tests' } BlChildrenArrayTest >> testEmptyChildrenFactoryMethodCreation [ @@ -180,7 +182,7 @@ BlChildrenArrayTest >> testEmptyChildrenFactoryMethodCreation [ ^ theChildren ] -{ #category : #tests } +{ #category : 'tests' } BlChildrenArrayTest >> testFirst [ @@ -190,7 +192,7 @@ BlChildrenArrayTest >> testFirst [ ^ theChildren ] -{ #category : #tests } +{ #category : 'tests' } BlChildrenArrayTest >> testIfEmpty [ @@ -200,7 +202,7 @@ BlChildrenArrayTest >> testIfEmpty [ ^ theChildren ] -{ #category : #tests } +{ #category : 'tests' } BlChildrenArrayTest >> testIfEmptyNot [ @@ -210,7 +212,7 @@ BlChildrenArrayTest >> testIfEmptyNot [ ^ theChildren ] -{ #category : #tests } +{ #category : 'tests' } BlChildrenArrayTest >> testIndexOf [ @@ -221,7 +223,7 @@ BlChildrenArrayTest >> testIndexOf [ ^ theChildren ] -{ #category : #tests } +{ #category : 'tests' } BlChildrenArrayTest >> testIndexOfUnknown [ @@ -231,7 +233,7 @@ BlChildrenArrayTest >> testIndexOfUnknown [ ^ theChildren ] -{ #category : #tests } +{ #category : 'tests' } BlChildrenArrayTest >> testIsEmpty [ @@ -243,7 +245,7 @@ BlChildrenArrayTest >> testIsEmpty [ ^ theChildren ] -{ #category : #tests } +{ #category : 'tests' } BlChildrenArrayTest >> testIsNotEmpty [ @@ -255,7 +257,7 @@ BlChildrenArrayTest >> testIsNotEmpty [ ^ theChildren ] -{ #category : #tests } +{ #category : 'tests' } BlChildrenArrayTest >> testLast [ @@ -265,7 +267,7 @@ BlChildrenArrayTest >> testLast [ ^ theChildren ] -{ #category : #tests } +{ #category : 'tests' } BlChildrenArrayTest >> testRemove [ @@ -278,7 +280,7 @@ BlChildrenArrayTest >> testRemove [ ^ theChildren ] -{ #category : #tests } +{ #category : 'tests' } BlChildrenArrayTest >> testRemoveAll [ @@ -294,7 +296,7 @@ BlChildrenArrayTest >> testRemoveAll [ ^ theChildren ] -{ #category : #tests } +{ #category : 'tests' } BlChildrenArrayTest >> testRemoveAt [ @@ -309,7 +311,7 @@ BlChildrenArrayTest >> testRemoveAt [ ^ theChildren ] -{ #category : #tests } +{ #category : 'tests' } BlChildrenArrayTest >> testSecond [ @@ -319,7 +321,7 @@ BlChildrenArrayTest >> testSecond [ ^ theChildren ] -{ #category : #tests } +{ #category : 'tests' } BlChildrenArrayTest >> testSize [ @@ -329,7 +331,7 @@ BlChildrenArrayTest >> testSize [ ^ theChildren ] -{ #category : #tests } +{ #category : 'tests' } BlChildrenArrayTest >> testSizeEmpty [ diff --git a/src/Bloc-UnitedTests/BlChildrenLinkedListTest.class.st b/src/Bloc-UnitedTests/BlChildrenLinkedListTest.class.st index a816e2187..5895fa1f4 100644 --- a/src/Bloc-UnitedTests/BlChildrenLinkedListTest.class.st +++ b/src/Bloc-UnitedTests/BlChildrenLinkedListTest.class.st @@ -3,14 +3,16 @@ I have been automatically converted and probably manually tweaked from BlChildre Finally and more important such tests should not use setup because every method should be in capacity of returning a fully working object called an example :) " Class { - #name : #BlChildrenLinkedListTest, - #superclass : #TestCase, + #name : 'BlChildrenLinkedListTest', + #superclass : 'TestCase', #traits : 'TBlChildrenTest', #classTraits : 'TBlChildrenTest classTrait', - #category : #'Bloc-UnitedTests-Children' + #category : 'Bloc-UnitedTests-Children', + #package : 'Bloc-UnitedTests', + #tag : 'Children' } -{ #category : #fixture } +{ #category : 'fixture' } BlChildrenLinkedListTest >> fill: aNumber [ | childrenArray | childrenArray := self testEmptyChildren. @@ -18,7 +20,7 @@ BlChildrenLinkedListTest >> fill: aNumber [ ^ childrenArray ] -{ #category : #fixture } +{ #category : 'fixture' } BlChildrenLinkedListTest >> newChildAt: anIndex [ | anElement | anElement := BlElement new. @@ -26,12 +28,12 @@ BlChildrenLinkedListTest >> newChildAt: anIndex [ ^ anElement ] -{ #category : #fixture } +{ #category : 'fixture' } BlChildrenLinkedListTest >> newChildrenCollection [ ^ BlChildrenLinkedList new ] -{ #category : #tests } +{ #category : 'tests' } BlChildrenLinkedListTest >> testAdd [ | theChildren indices | @@ -47,7 +49,7 @@ BlChildrenLinkedListTest >> testAdd [ ^ theChildren ] -{ #category : #tests } +{ #category : 'tests' } BlChildrenLinkedListTest >> testAddAt [ | theChildren indices | @@ -71,7 +73,7 @@ BlChildrenLinkedListTest >> testAddAt [ ^ theChildren ] -{ #category : #tests } +{ #category : 'tests' } BlChildrenLinkedListTest >> testAsArray [ | theChildren indices | @@ -82,7 +84,7 @@ BlChildrenLinkedListTest >> testAsArray [ ^ theChildren ] -{ #category : #tests } +{ #category : 'tests' } BlChildrenLinkedListTest >> testAsArrayEmpty [ | theChildren indices | @@ -93,7 +95,7 @@ BlChildrenLinkedListTest >> testAsArrayEmpty [ ^ theChildren ] -{ #category : #tests } +{ #category : 'tests' } BlChildrenLinkedListTest >> testAt [ | theChildren | @@ -106,7 +108,7 @@ BlChildrenLinkedListTest >> testAt [ ^ theChildren ] -{ #category : #tests } +{ #category : 'tests' } BlChildrenLinkedListTest >> testAtIfAbsent [ | theChildren | @@ -135,7 +137,7 @@ BlChildrenLinkedListTest >> testAtIfAbsent [ ^ theChildren ] -{ #category : #tests } +{ #category : 'tests' } BlChildrenLinkedListTest >> testEmptyChildren [ | theChildren | @@ -146,7 +148,7 @@ BlChildrenLinkedListTest >> testEmptyChildren [ ^ theChildren ] -{ #category : #tests } +{ #category : 'tests' } BlChildrenLinkedListTest >> testEmptyChildrenExplicitCreation [ | theChildren | @@ -157,7 +159,7 @@ BlChildrenLinkedListTest >> testEmptyChildrenExplicitCreation [ ^ theChildren ] -{ #category : #tests } +{ #category : 'tests' } BlChildrenLinkedListTest >> testFirst [ | theChildren | @@ -166,7 +168,7 @@ BlChildrenLinkedListTest >> testFirst [ ^ theChildren ] -{ #category : #tests } +{ #category : 'tests' } BlChildrenLinkedListTest >> testIfEmpty [ | theChildren | @@ -175,7 +177,7 @@ BlChildrenLinkedListTest >> testIfEmpty [ ^ theChildren ] -{ #category : #tests } +{ #category : 'tests' } BlChildrenLinkedListTest >> testIfEmptyNot [ | theChildren | @@ -184,7 +186,7 @@ BlChildrenLinkedListTest >> testIfEmptyNot [ ^ theChildren ] -{ #category : #tests } +{ #category : 'tests' } BlChildrenLinkedListTest >> testIndexOf [ | theChildren | @@ -194,7 +196,7 @@ BlChildrenLinkedListTest >> testIndexOf [ ^ theChildren ] -{ #category : #tests } +{ #category : 'tests' } BlChildrenLinkedListTest >> testIndexOfUnknown [ | theChildren | @@ -203,7 +205,7 @@ BlChildrenLinkedListTest >> testIndexOfUnknown [ ^ theChildren ] -{ #category : #tests } +{ #category : 'tests' } BlChildrenLinkedListTest >> testIsEmpty [ | theChildren | @@ -214,7 +216,7 @@ BlChildrenLinkedListTest >> testIsEmpty [ ^ theChildren ] -{ #category : #tests } +{ #category : 'tests' } BlChildrenLinkedListTest >> testIsNotEmpty [ | theChildren | @@ -225,7 +227,7 @@ BlChildrenLinkedListTest >> testIsNotEmpty [ ^ theChildren ] -{ #category : #tests } +{ #category : 'tests' } BlChildrenLinkedListTest >> testLast [ | theChildren | @@ -234,7 +236,7 @@ BlChildrenLinkedListTest >> testLast [ ^ theChildren ] -{ #category : #tests } +{ #category : 'tests' } BlChildrenLinkedListTest >> testRemove [ | theChildren indices | @@ -246,7 +248,7 @@ BlChildrenLinkedListTest >> testRemove [ ^ theChildren ] -{ #category : #tests } +{ #category : 'tests' } BlChildrenLinkedListTest >> testRemoveAll [ | theChildren indices | @@ -262,7 +264,7 @@ BlChildrenLinkedListTest >> testRemoveAll [ ^ theChildren ] -{ #category : #tests } +{ #category : 'tests' } BlChildrenLinkedListTest >> testRemoveAt [ | theChildren indices | @@ -276,7 +278,7 @@ BlChildrenLinkedListTest >> testRemoveAt [ ^ theChildren ] -{ #category : #tests } +{ #category : 'tests' } BlChildrenLinkedListTest >> testSecond [ | theChildren | @@ -285,7 +287,7 @@ BlChildrenLinkedListTest >> testSecond [ ^ theChildren ] -{ #category : #tests } +{ #category : 'tests' } BlChildrenLinkedListTest >> testSize [ | theChildren | @@ -294,7 +296,7 @@ BlChildrenLinkedListTest >> testSize [ ^ theChildren ] -{ #category : #tests } +{ #category : 'tests' } BlChildrenLinkedListTest >> testSizeEmpty [ | theChildren | diff --git a/src/Bloc-UnitedTests/BlChildrenOrderedCollectionTest.class.st b/src/Bloc-UnitedTests/BlChildrenOrderedCollectionTest.class.st index b8245eb28..39f6d52d4 100644 --- a/src/Bloc-UnitedTests/BlChildrenOrderedCollectionTest.class.st +++ b/src/Bloc-UnitedTests/BlChildrenOrderedCollectionTest.class.st @@ -3,14 +3,16 @@ I have been automatically converted and probably manually tweaked from BlChildre Finally and more important such tests should not use setup because every method should be in capacity of returning a fully working object called an example :) " Class { - #name : #BlChildrenOrderedCollectionTest, - #superclass : #TestCase, + #name : 'BlChildrenOrderedCollectionTest', + #superclass : 'TestCase', #traits : 'TBlChildrenTest', #classTraits : 'TBlChildrenTest classTrait', - #category : #'Bloc-UnitedTests-Children' + #category : 'Bloc-UnitedTests-Children', + #package : 'Bloc-UnitedTests', + #tag : 'Children' } -{ #category : #fixture } +{ #category : 'fixture' } BlChildrenOrderedCollectionTest >> fill: aNumber [ | childrenArray | @@ -20,7 +22,7 @@ BlChildrenOrderedCollectionTest >> fill: aNumber [ ^ childrenArray ] -{ #category : #fixture } +{ #category : 'fixture' } BlChildrenOrderedCollectionTest >> newChildAt: anIndex [ | anElement | @@ -29,13 +31,13 @@ BlChildrenOrderedCollectionTest >> newChildAt: anIndex [ ^ anElement ] -{ #category : #fixture } +{ #category : 'fixture' } BlChildrenOrderedCollectionTest >> newChildrenCollection [ ^ BlChildrenOrderedCollection new ] -{ #category : #tests } +{ #category : 'tests' } BlChildrenOrderedCollectionTest >> testEmptyChildren [ | theChildren | @@ -46,7 +48,7 @@ BlChildrenOrderedCollectionTest >> testEmptyChildren [ ^ theChildren ] -{ #category : #tests } +{ #category : 'tests' } BlChildrenOrderedCollectionTest >> testFirst [ @@ -56,7 +58,7 @@ BlChildrenOrderedCollectionTest >> testFirst [ ^ theChildren ] -{ #category : #tests } +{ #category : 'tests' } BlChildrenOrderedCollectionTest >> testIfEmpty [ | theChildren | @@ -65,7 +67,7 @@ BlChildrenOrderedCollectionTest >> testIfEmpty [ ^ theChildren ] -{ #category : #tests } +{ #category : 'tests' } BlChildrenOrderedCollectionTest >> testIfEmptyNot [ | theChildren | @@ -74,7 +76,7 @@ BlChildrenOrderedCollectionTest >> testIfEmptyNot [ ^ theChildren ] -{ #category : #tests } +{ #category : 'tests' } BlChildrenOrderedCollectionTest >> testIndexOf [ | theChildren | @@ -84,7 +86,7 @@ BlChildrenOrderedCollectionTest >> testIndexOf [ ^ theChildren ] -{ #category : #tests } +{ #category : 'tests' } BlChildrenOrderedCollectionTest >> testIndexOfUnknown [ | theChildren | @@ -93,7 +95,7 @@ BlChildrenOrderedCollectionTest >> testIndexOfUnknown [ ^ theChildren ] -{ #category : #tests } +{ #category : 'tests' } BlChildrenOrderedCollectionTest >> testIsEmpty [ | theChildren | @@ -104,7 +106,7 @@ BlChildrenOrderedCollectionTest >> testIsEmpty [ ^ theChildren ] -{ #category : #tests } +{ #category : 'tests' } BlChildrenOrderedCollectionTest >> testIsNotEmpty [ | theChildren | @@ -115,7 +117,7 @@ BlChildrenOrderedCollectionTest >> testIsNotEmpty [ ^ theChildren ] -{ #category : #tests } +{ #category : 'tests' } BlChildrenOrderedCollectionTest >> testLast [ | theChildren | @@ -124,7 +126,7 @@ BlChildrenOrderedCollectionTest >> testLast [ ^ theChildren ] -{ #category : #tests } +{ #category : 'tests' } BlChildrenOrderedCollectionTest >> testRemove [ | theChildren indices | @@ -136,7 +138,7 @@ BlChildrenOrderedCollectionTest >> testRemove [ ^ theChildren ] -{ #category : #tests } +{ #category : 'tests' } BlChildrenOrderedCollectionTest >> testRemoveAll [ | theChildren indices | @@ -151,7 +153,7 @@ BlChildrenOrderedCollectionTest >> testRemoveAll [ ^ theChildren ] -{ #category : #tests } +{ #category : 'tests' } BlChildrenOrderedCollectionTest >> testRemoveAt [ | theChildren indices | @@ -165,7 +167,7 @@ BlChildrenOrderedCollectionTest >> testRemoveAt [ ^ theChildren ] -{ #category : #tests } +{ #category : 'tests' } BlChildrenOrderedCollectionTest >> testSecond [ | theChildren | @@ -174,7 +176,7 @@ BlChildrenOrderedCollectionTest >> testSecond [ ^ theChildren ] -{ #category : #tests } +{ #category : 'tests' } BlChildrenOrderedCollectionTest >> testSize [ | theChildren | @@ -183,7 +185,7 @@ BlChildrenOrderedCollectionTest >> testSize [ ^ theChildren ] -{ #category : #tests } +{ #category : 'tests' } BlChildrenOrderedCollectionTest >> testSizeEmpty [ | theChildren | diff --git a/src/Bloc-UnitedTests/BlChildrenRopeTest.class.st b/src/Bloc-UnitedTests/BlChildrenRopeTest.class.st index 0d8ea70f4..4649f1341 100644 --- a/src/Bloc-UnitedTests/BlChildrenRopeTest.class.st +++ b/src/Bloc-UnitedTests/BlChildrenRopeTest.class.st @@ -3,27 +3,29 @@ I have been automatically converted and probably manually tweaked from BlChildre Finally and more important such tests should not use setup because every method should be in capacity of returning a fully working object called an example :) " Class { - #name : #BlChildrenRopeTest, - #superclass : #TestCase, + #name : 'BlChildrenRopeTest', + #superclass : 'TestCase', #traits : 'TBlChildrenTest', #classTraits : 'TBlChildrenTest classTrait', - #category : #'Bloc-UnitedTests-Rope' + #category : 'Bloc-UnitedTests-Rope', + #package : 'Bloc-UnitedTests', + #tag : 'Rope' } -{ #category : #fixture } +{ #category : 'fixture' } BlChildrenRopeTest >> newChildrenCollection [ ^ BlChildrenRope new ] -{ #category : #'as yet unclassified' } +{ #category : 'as yet unclassified' } BlChildrenRopeTest >> originClassName [ "This test was generated from..." ^ 'BlChildrenRopeExamples' ] -{ #category : #tests } +{ #category : 'tests' } BlChildrenRopeTest >> testEmptyChildrenExplicitCreation [ diff --git a/src/Bloc-UnitedTests/BlChildrenSubsetTest.class.st b/src/Bloc-UnitedTests/BlChildrenSubsetTest.class.st index 73c56a830..05331cc7b 100644 --- a/src/Bloc-UnitedTests/BlChildrenSubsetTest.class.st +++ b/src/Bloc-UnitedTests/BlChildrenSubsetTest.class.st @@ -3,35 +3,37 @@ I have been automatically converted and probably manually tweaked from BlChildre Finally and more important such tests should not use setup because every method should be in capacity of returning a fully working object called an example :) " Class { - #name : #BlChildrenSubsetTest, - #superclass : #TestCase, - #category : #'Bloc-UnitedTests-Children' + #name : 'BlChildrenSubsetTest', + #superclass : 'TestCase', + #category : 'Bloc-UnitedTests-Children', + #package : 'Bloc-UnitedTests', + #tag : 'Children' } -{ #category : #tests } +{ #category : 'tests' } BlChildrenSubsetTest >> accountedByLayout [ ^ self testAccountedByLayout ] -{ #category : #tests } +{ #category : 'tests' } BlChildrenSubsetTest >> childrenArrayWith5Elements [ ^ self testChildrenArrayWith5Elements ] -{ #category : #tests } +{ #category : 'tests' } BlChildrenSubsetTest >> elementWithChildren [ ^ self testElementWithChildren ] -{ #category : #tests } +{ #category : 'tests' } BlChildrenSubsetTest >> ignoredByLayout [ ^ self testIgnoredByLayout ] -{ #category : #fixture } +{ #category : 'fixture' } BlChildrenSubsetTest >> newChildAt: anIndex [ | anElement | anElement := BlElement new. @@ -39,26 +41,26 @@ BlChildrenSubsetTest >> newChildAt: anIndex [ ^ anElement ] -{ #category : #metadata } +{ #category : 'metadata' } BlChildrenSubsetTest >> originClassName [ "This test was generated from..." ^ 'BlChildrenSubsetExamples' ] -{ #category : #tests } +{ #category : 'tests' } BlChildrenSubsetTest >> reversed [ ^ self testReversed ] -{ #category : #tests } +{ #category : 'tests' } BlChildrenSubsetTest >> sortedByElevation [ ^ self testSortedByElevation ] -{ #category : #tests } +{ #category : 'tests' } BlChildrenSubsetTest >> testAccountedByLayout [ | childrenArray childrenIterator | @@ -78,7 +80,7 @@ BlChildrenSubsetTest >> testAccountedByLayout [ ^ childrenIterator ] -{ #category : #tests } +{ #category : 'tests' } BlChildrenSubsetTest >> testAccountedByLayoutAndIgnoredByLayout [ | childrenIterator childrenIteratorIgnoredByLayout | @@ -91,7 +93,7 @@ BlChildrenSubsetTest >> testAccountedByLayoutAndIgnoredByLayout [ ^ childrenIteratorIgnoredByLayout ] -{ #category : #tests } +{ #category : 'tests' } BlChildrenSubsetTest >> testAccountedByLayoutAndReversed [ | childrenIterator childrenIteratorReversed | @@ -113,7 +115,7 @@ BlChildrenSubsetTest >> testAccountedByLayoutAndReversed [ ^ childrenIteratorReversed ] -{ #category : #tests } +{ #category : 'tests' } BlChildrenSubsetTest >> testAccountedByLayoutChildrenFromElement [ | element accountedByLayoutChildren | @@ -123,7 +125,7 @@ BlChildrenSubsetTest >> testAccountedByLayoutChildrenFromElement [ ^ accountedByLayoutChildren ] -{ #category : #tests } +{ #category : 'tests' } BlChildrenSubsetTest >> testAccountedByLayoutTwice [ | childrenIterator childrenIteratorAccountedByLayout | @@ -134,7 +136,7 @@ BlChildrenSubsetTest >> testAccountedByLayoutTwice [ ^ childrenIteratorAccountedByLayout ] -{ #category : #tests } +{ #category : 'tests' } BlChildrenSubsetTest >> testChildrenArrayWith5Elements [ | childrenArray zIndex | @@ -154,7 +156,7 @@ BlChildrenSubsetTest >> testChildrenArrayWith5Elements [ ^ childrenArray ] -{ #category : #tests } +{ #category : 'tests' } BlChildrenSubsetTest >> testChildrenWithMultipleCombinedSubsets [ | element children | @@ -171,7 +173,7 @@ BlChildrenSubsetTest >> testChildrenWithMultipleCombinedSubsets [ ^ children ] -{ #category : #tests } +{ #category : 'tests' } BlChildrenSubsetTest >> testElementWithChildren [ | element | @@ -182,7 +184,7 @@ BlChildrenSubsetTest >> testElementWithChildren [ ^ element ] -{ #category : #tests } +{ #category : 'tests' } BlChildrenSubsetTest >> testIgnoredByLayout [ | childrenArray childrenIterator | @@ -200,7 +202,7 @@ BlChildrenSubsetTest >> testIgnoredByLayout [ ^ childrenIterator ] -{ #category : #tests } +{ #category : 'tests' } BlChildrenSubsetTest >> testIgnoredByLayoutAndAcountedByLayout [ | childrenIterator childrenIteratorAcountedByLayout | @@ -214,7 +216,7 @@ BlChildrenSubsetTest >> testIgnoredByLayoutAndAcountedByLayout [ ^ childrenIteratorAcountedByLayout ] -{ #category : #tests } +{ #category : 'tests' } BlChildrenSubsetTest >> testIgnoredByLayoutAndReverse [ | childrenIterator childrenIteratorReversed | @@ -233,7 +235,7 @@ BlChildrenSubsetTest >> testIgnoredByLayoutAndReverse [ ^ childrenIteratorReversed ] -{ #category : #tests } +{ #category : 'tests' } BlChildrenSubsetTest >> testIgnoredByLayoutExplicitCreation [ | childrenArray childrenIterator | @@ -251,7 +253,7 @@ BlChildrenSubsetTest >> testIgnoredByLayoutExplicitCreation [ ^ childrenIterator ] -{ #category : #tests } +{ #category : 'tests' } BlChildrenSubsetTest >> testIgnoredByLayoutFromElement [ | element ignoredByLayoutChildren | @@ -261,7 +263,7 @@ BlChildrenSubsetTest >> testIgnoredByLayoutFromElement [ ^ ignoredByLayoutChildren ] -{ #category : #tests } +{ #category : 'tests' } BlChildrenSubsetTest >> testIgnoredByLayoutTwice [ | childrenIterator childrenIteratorIgnoredByLayout | @@ -271,7 +273,7 @@ BlChildrenSubsetTest >> testIgnoredByLayoutTwice [ ^ childrenIteratorIgnoredByLayout ] -{ #category : #tests } +{ #category : 'tests' } BlChildrenSubsetTest >> testReversed [ | childrenArray childrenIterator | @@ -286,7 +288,7 @@ BlChildrenSubsetTest >> testReversed [ ^ childrenIterator ] -{ #category : #tests } +{ #category : 'tests' } BlChildrenSubsetTest >> testReversedAndAcountedByLayout [ | childrenIterator childrenIteratorAcountedByLayout | @@ -315,7 +317,7 @@ BlChildrenSubsetTest >> testReversedAndAcountedByLayout [ ^ childrenIteratorAcountedByLayout ] -{ #category : #tests } +{ #category : 'tests' } BlChildrenSubsetTest >> testReversedAndIgnoredByLayout [ | childrenIterator childrenIteratorIgnoredByLayout | @@ -339,7 +341,7 @@ BlChildrenSubsetTest >> testReversedAndIgnoredByLayout [ ^ childrenIteratorIgnoredByLayout ] -{ #category : #tests } +{ #category : 'tests' } BlChildrenSubsetTest >> testReversedChildrenFromElement [ | element reversedChildren | @@ -349,7 +351,7 @@ BlChildrenSubsetTest >> testReversedChildrenFromElement [ ^ reversedChildren ] -{ #category : #tests } +{ #category : 'tests' } BlChildrenSubsetTest >> testReversedTwice [ | childrenIterator | @@ -363,7 +365,7 @@ BlChildrenSubsetTest >> testReversedTwice [ ^ childrenIterator ] -{ #category : #tests } +{ #category : 'tests' } BlChildrenSubsetTest >> testSortedByElevation [ | childrenArray childrenIterator expectedOrder | @@ -379,7 +381,7 @@ BlChildrenSubsetTest >> testSortedByElevation [ ^ childrenIterator ] -{ #category : #tests } +{ #category : 'tests' } BlChildrenSubsetTest >> testSortedByElevationAndAcountedByLayout [ | childrenIterator childrenIteratorAcountedByLayout | @@ -402,7 +404,7 @@ BlChildrenSubsetTest >> testSortedByElevationAndAcountedByLayout [ ^ childrenIteratorAcountedByLayout ] -{ #category : #tests } +{ #category : 'tests' } BlChildrenSubsetTest >> testSortedByElevationAndIgnoredByLayout [ | childrenIterator childrenIteratorIgnoredByLayout | @@ -421,7 +423,7 @@ BlChildrenSubsetTest >> testSortedByElevationAndIgnoredByLayout [ ^ childrenIteratorIgnoredByLayout ] -{ #category : #tests } +{ #category : 'tests' } BlChildrenSubsetTest >> testSortedByElevationAndReversed [ | childrenIterator childrenIteratorReversed expectedOrder | @@ -439,7 +441,7 @@ BlChildrenSubsetTest >> testSortedByElevationAndReversed [ ^ childrenIteratorReversed ] -{ #category : #tests } +{ #category : 'tests' } BlChildrenSubsetTest >> testSortedByElevationFromElement [ | element sortedByElevationChildren | @@ -449,7 +451,7 @@ BlChildrenSubsetTest >> testSortedByElevationFromElement [ ^ sortedByElevationChildren ] -{ #category : #tests } +{ #category : 'tests' } BlChildrenSubsetTest >> testSortedByElevationTwice [ | childrenIterator childrenIteratorSortedByElevation | diff --git a/src/Bloc-UnitedTests/BlElementAttachmentTest.class.st b/src/Bloc-UnitedTests/BlElementAttachmentTest.class.st index 80cef65e2..54f2c77b6 100644 --- a/src/Bloc-UnitedTests/BlElementAttachmentTest.class.st +++ b/src/Bloc-UnitedTests/BlElementAttachmentTest.class.st @@ -3,12 +3,14 @@ I have been automatically converted and probably manually tweaked from BlElement Finally and more important such tests should not use setup because every method should be in capacity of returning a fully working object called an example :) " Class { - #name : #BlElementAttachmentTest, - #superclass : #TestCase, - #category : #'Bloc-UnitedTests-Children' + #name : 'BlElementAttachmentTest', + #superclass : 'TestCase', + #category : 'Bloc-UnitedTests-Children', + #package : 'Bloc-UnitedTests', + #tag : 'Children' } -{ #category : #tests } +{ #category : 'tests' } BlElementAttachmentTest >> testAddToSpace [ @@ -43,7 +45,7 @@ BlElementAttachmentTest >> testAddToSpace [ ^ aContainer ] -{ #category : #tests } +{ #category : 'tests' } BlElementAttachmentTest >> testDetachAndAttachChild [ @@ -81,7 +83,7 @@ BlElementAttachmentTest >> testDetachAndAttachChild [ ^ aContainer ] -{ #category : #tests } +{ #category : 'tests' } BlElementAttachmentTest >> testDetachAndRemoveChild [ @@ -119,7 +121,7 @@ BlElementAttachmentTest >> testDetachAndRemoveChild [ ^ aContainer ] -{ #category : #tests } +{ #category : 'tests' } BlElementAttachmentTest >> testDetachAndRemoveContainer [ @@ -164,7 +166,7 @@ BlElementAttachmentTest >> testDetachAndRemoveContainer [ ^ aContainer ] -{ #category : #tests } +{ #category : 'tests' } BlElementAttachmentTest >> testDetachRequestFocusAndAttachChild [ diff --git a/src/Bloc-UnitedTests/BlElementBoundsTest.class.st b/src/Bloc-UnitedTests/BlElementBoundsTest.class.st index 2dc9e1fff..2462cb01e 100644 --- a/src/Bloc-UnitedTests/BlElementBoundsTest.class.st +++ b/src/Bloc-UnitedTests/BlElementBoundsTest.class.st @@ -3,12 +3,14 @@ I have been automatically converted and probably manually tweaked from BlElement Finally and more important such tests should not use setup because every method should be in capacity of returning a fully working object called an example :) " Class { - #name : #BlElementBoundsTest, - #superclass : #BlExampleTest, - #category : #'Bloc-UnitedTests-Bounds' + #name : 'BlElementBoundsTest', + #superclass : 'BlExampleTest', + #category : 'Bloc-UnitedTests-Bounds', + #package : 'Bloc-UnitedTests', + #tag : 'Bounds' } -{ #category : #'test seed' } +{ #category : 'test seed' } BlElementBoundsTest >> child [ @@ -19,17 +21,17 @@ BlElementBoundsTest >> child [ background: Color red ] -{ #category : #helpers } +{ #category : 'helpers' } BlElementBoundsTest >> childExtent [ ^ 100 @ 50 ] -{ #category : #helpers } +{ #category : 'helpers' } BlElementBoundsTest >> childPosition [ ^ 200 @ 150 ] -{ #category : #'test seed' } +{ #category : 'test seed' } BlElementBoundsTest >> parent [ @@ -40,17 +42,17 @@ BlElementBoundsTest >> parent [ background: (Color gray alpha: 0.3) ] -{ #category : #helpers } +{ #category : 'helpers' } BlElementBoundsTest >> parentExtent [ ^ 500 @ 400 ] -{ #category : #helpers } +{ #category : 'helpers' } BlElementBoundsTest >> parentPosition [ ^ 100 @ 75 ] -{ #category : #'test seed' } +{ #category : 'test seed' } BlElementBoundsTest >> parentWithChild [ @@ -60,7 +62,7 @@ BlElementBoundsTest >> parentWithChild [ forceLayout ] -{ #category : #tests } +{ #category : 'tests' } BlElementBoundsTest >> testBounds [ "Element bounds consist of position and extent" @@ -77,7 +79,7 @@ BlElementBoundsTest >> testBounds [ ^ parent ] -{ #category : #tests } +{ #category : 'tests' } BlElementBoundsTest >> testBoundsInLocal [ "Bounds in local always have position 0@0" @@ -94,7 +96,7 @@ BlElementBoundsTest >> testBoundsInLocal [ ^ parent ] -{ #category : #tests } +{ #category : 'tests' } BlElementBoundsTest >> testBoundsInLocalInLocal [ @@ -110,7 +112,7 @@ BlElementBoundsTest >> testBoundsInLocalInLocal [ ^ parent ] -{ #category : #tests } +{ #category : 'tests' } BlElementBoundsTest >> testBoundsInLocalInParent [ @@ -132,7 +134,7 @@ BlElementBoundsTest >> testBoundsInLocalInParent [ ^ parent ] -{ #category : #tests } +{ #category : 'tests' } BlElementBoundsTest >> testBoundsInLocalInSpace [ @@ -154,7 +156,7 @@ BlElementBoundsTest >> testBoundsInLocalInSpace [ ^ parent ] -{ #category : #tests } +{ #category : 'tests' } BlElementBoundsTest >> testBoundsInParent [ @@ -172,7 +174,7 @@ BlElementBoundsTest >> testBoundsInParent [ ^ parent ] -{ #category : #tests } +{ #category : 'tests' } BlElementBoundsTest >> testBoundsInParentInLocal [ @@ -194,7 +196,7 @@ BlElementBoundsTest >> testBoundsInParentInLocal [ ^ parent ] -{ #category : #tests } +{ #category : 'tests' } BlElementBoundsTest >> testBoundsInParentInParent [ @@ -216,7 +218,7 @@ BlElementBoundsTest >> testBoundsInParentInParent [ ^ parent ] -{ #category : #tests } +{ #category : 'tests' } BlElementBoundsTest >> testBoundsInParentInParentInParent [ @@ -238,7 +240,7 @@ BlElementBoundsTest >> testBoundsInParentInParentInParent [ ^ parent ] -{ #category : #tests } +{ #category : 'tests' } BlElementBoundsTest >> testBoundsInSpace [ @@ -256,7 +258,7 @@ BlElementBoundsTest >> testBoundsInSpace [ ^ parent ] -{ #category : #tests } +{ #category : 'tests' } BlElementBoundsTest >> testBoundsInSpaceInLocal [ @@ -278,7 +280,7 @@ BlElementBoundsTest >> testBoundsInSpaceInLocal [ ^ parent ] -{ #category : #tests } +{ #category : 'tests' } BlElementBoundsTest >> testBoundsInSpaceInParent [ @@ -300,7 +302,7 @@ BlElementBoundsTest >> testBoundsInSpaceInParent [ ^ parent ] -{ #category : #tests } +{ #category : 'tests' } BlElementBoundsTest >> testBoundsInSpecificChild [ @@ -324,7 +326,7 @@ BlElementBoundsTest >> testBoundsInSpecificChild [ ^ parent ] -{ #category : #tests } +{ #category : 'tests' } BlElementBoundsTest >> testBoundsInSpecificChildInSpecificParent [ @@ -352,7 +354,7 @@ BlElementBoundsTest >> testBoundsInSpecificChildInSpecificParent [ ^ parent ] -{ #category : #tests } +{ #category : 'tests' } BlElementBoundsTest >> testBoundsInSpecificParent [ @@ -376,7 +378,7 @@ BlElementBoundsTest >> testBoundsInSpecificParent [ ^ parent ] -{ #category : #tests } +{ #category : 'tests' } BlElementBoundsTest >> testBoundsInSpecificParentInSpecificChild [ @@ -404,7 +406,7 @@ BlElementBoundsTest >> testBoundsInSpecificParentInSpecificChild [ ^ parent ] -{ #category : #tests } +{ #category : 'tests' } BlElementBoundsTest >> testShadowEffectBoundsWithoutOffset [ diff --git a/src/Bloc-UnitedTests/BlElementChildrenTest.class.st b/src/Bloc-UnitedTests/BlElementChildrenTest.class.st index 33198ff8c..368bc7fcc 100644 --- a/src/Bloc-UnitedTests/BlElementChildrenTest.class.st +++ b/src/Bloc-UnitedTests/BlElementChildrenTest.class.st @@ -3,12 +3,14 @@ I have been automatically converted and probably manually tweaked from BlElement Finally and more important such tests should not use setup because every method should be in capacity of returning a fully working object called an example :) " Class { - #name : #BlElementChildrenTest, - #superclass : #TestCase, - #category : #'Bloc-UnitedTests-Children' + #name : 'BlElementChildrenTest', + #superclass : 'TestCase', + #category : 'Bloc-UnitedTests-Children', + #package : 'Bloc-UnitedTests', + #tag : 'Children' } -{ #category : #tests } +{ #category : 'tests' } BlElementChildrenTest >> hierarchyChildren [ @@ -34,7 +36,7 @@ BlElementChildrenTest >> hierarchyChildren [ ^ aContainer ] -{ #category : #tests } +{ #category : 'tests' } BlElementChildrenTest >> multipleChildren [ @@ -50,7 +52,7 @@ BlElementChildrenTest >> multipleChildren [ ^ aContainer ] -{ #category : #tests } +{ #category : 'tests' } BlElementChildrenTest >> multipleChildrenDepth2 [ @@ -58,7 +60,7 @@ BlElementChildrenTest >> multipleChildrenDepth2 [ ^ self multipleChildrenDepth: 2 ] -{ #category : #tests } +{ #category : 'tests' } BlElementChildrenTest >> multipleChildrenDepth3 [ @@ -66,7 +68,7 @@ BlElementChildrenTest >> multipleChildrenDepth3 [ ^ self multipleChildrenDepth: 3 ] -{ #category : #tests } +{ #category : 'tests' } BlElementChildrenTest >> multipleChildrenDepth: aDepth [ | aContainer | @@ -75,7 +77,7 @@ BlElementChildrenTest >> multipleChildrenDepth: aDepth [ ^ aContainer ] -{ #category : #tests } +{ #category : 'tests' } BlElementChildrenTest >> multipleChildrenIn: aContainer depth: aDepth [ @@ -93,7 +95,7 @@ BlElementChildrenTest >> multipleChildrenIn: aContainer depth: aDepth [ ^ aContainer ] -{ #category : #tests } +{ #category : 'tests' } BlElementChildrenTest >> overlappingChildren [ @@ -119,7 +121,7 @@ BlElementChildrenTest >> overlappingChildren [ ^ aContainer ] -{ #category : #tests } +{ #category : 'tests' } BlElementChildrenTest >> testAllChildrenBreadthFirstWithDepthDo [ | aContainer allChildren founds all | @@ -148,7 +150,7 @@ BlElementChildrenTest >> testAllChildrenBreadthFirstWithDepthDo [ ] -{ #category : #tests } +{ #category : 'tests' } BlElementChildrenTest >> testAllLeafChildrenAt100200 [ | aContainer theChildren | @@ -158,7 +160,7 @@ BlElementChildrenTest >> testAllLeafChildrenAt100200 [ ^ theChildren ] -{ #category : #tests } +{ #category : 'tests' } BlElementChildrenTest >> testAllLeafChildrenAt200100 [ | aContainer theChildren | @@ -168,7 +170,7 @@ BlElementChildrenTest >> testAllLeafChildrenAt200100 [ ^ theChildren ] -{ #category : #tests } +{ #category : 'tests' } BlElementChildrenTest >> testAllLeafChildrenAt200200 [ | aContainer theChildren | @@ -180,7 +182,7 @@ BlElementChildrenTest >> testAllLeafChildrenAt200200 [ ^ theChildren ] -{ #category : #tests } +{ #category : 'tests' } BlElementChildrenTest >> testAllLeafChildrenAt5050 [ | aContainer theChildren | @@ -190,7 +192,7 @@ BlElementChildrenTest >> testAllLeafChildrenAt5050 [ ^ theChildren ] -{ #category : #tests } +{ #category : 'tests' } BlElementChildrenTest >> testAllLeafChildrenAt600600 [ | aContainer theChildren | @@ -200,7 +202,7 @@ BlElementChildrenTest >> testAllLeafChildrenAt600600 [ ^ theChildren ] -{ #category : #tests } +{ #category : 'tests' } BlElementChildrenTest >> testAllParentsDetectifFoundifNone1 [ | aContainer aChild | @@ -222,7 +224,7 @@ BlElementChildrenTest >> testAllParentsDetectifFoundifNone1 [ ifNone: [ self assert: true ] ] -{ #category : #tests } +{ #category : 'tests' } BlElementChildrenTest >> testAllParentsDetectifFoundifNone2 [ | aContainer aChild | @@ -235,7 +237,7 @@ BlElementChildrenTest >> testAllParentsDetectifFoundifNone2 [ ifNone: [ self assert: false ] ] -{ #category : #tests } +{ #category : 'tests' } BlElementChildrenTest >> testAllParentsDo [ | aContainer aChild res | @@ -261,7 +263,7 @@ BlElementChildrenTest >> testAllParentsDo [ self assert: res asArray equals: { } ] -{ #category : #tests } +{ #category : 'tests' } BlElementChildrenTest >> testAllParentsReversedDo [ | aContainer aChild all | @@ -285,7 +287,7 @@ BlElementChildrenTest >> testAllParentsReversedDo [ (aContainer childWithId: #shape_9) } ] -{ #category : #tests } +{ #category : 'tests' } BlElementChildrenTest >> testAllParentsToDo [ | aContainer res | @@ -314,7 +316,7 @@ BlElementChildrenTest >> testAllParentsToDo [ aContainer } ] -{ #category : #tests } +{ #category : 'tests' } BlElementChildrenTest >> testChildAt [ | aContainer | @@ -331,7 +333,7 @@ BlElementChildrenTest >> testChildAt [ ifFalse: [ self assert: false ] ] ] -{ #category : #tests } +{ #category : 'tests' } BlElementChildrenTest >> testChildIndexOf [ | aContainer aNonChild | @@ -350,7 +352,7 @@ BlElementChildrenTest >> testChildIndexOf [ self assert: (aContainer childIndexOf: aNonChild) equals: 0 ] -{ #category : #tests } +{ #category : 'tests' } BlElementChildrenTest >> testChildWithId [ | aContainer aChild1 aChild2 | @@ -375,7 +377,7 @@ BlElementChildrenTest >> testChildWithId [ self assert: false ] onErrorDo: [ :err | self assert: true ] ] -{ #category : #tests } +{ #category : 'tests' } BlElementChildrenTest >> testChildWithId1 [ @@ -398,7 +400,7 @@ BlElementChildrenTest >> testChildWithId1 [ self assert: false ] onErrorDo: [ :err | self assert: true ] ] -{ #category : #tests } +{ #category : 'tests' } BlElementChildrenTest >> testChildWithId2 [ @@ -424,7 +426,7 @@ BlElementChildrenTest >> testChildWithId2 [ self assert: false ] onErrorDo: [ :err | self assert: true ] ] -{ #category : #tests } +{ #category : 'tests' } BlElementChildrenTest >> testChildWithIdIfFound1 [ | aContainer | @@ -443,7 +445,7 @@ BlElementChildrenTest >> testChildWithIdIfFound1 [ ifFound: [ self assert: false ] ] -{ #category : #tests } +{ #category : 'tests' } BlElementChildrenTest >> testChildWithIdIfFound2 [ | aContainer | @@ -462,7 +464,7 @@ BlElementChildrenTest >> testChildWithIdIfFound2 [ ifFound: [ self assert: false ] ] -{ #category : #tests } +{ #category : 'tests' } BlElementChildrenTest >> testChildWithIdIfFoundifNone1 [ | aContainer | @@ -485,7 +487,7 @@ BlElementChildrenTest >> testChildWithIdIfFoundifNone1 [ ifNone: [ self assert: true ] ] -{ #category : #tests } +{ #category : 'tests' } BlElementChildrenTest >> testChildWithIdIfFoundifNone2 [ | aContainer | @@ -508,7 +510,7 @@ BlElementChildrenTest >> testChildWithIdIfFoundifNone2 [ ifNone: [ self assert: true ] ] -{ #category : #tests } +{ #category : 'tests' } BlElementChildrenTest >> testChildWithIdifNone1 [ | aContainer | @@ -527,7 +529,7 @@ BlElementChildrenTest >> testChildWithIdifNone1 [ ifNone: [ self assert: true ] ] -{ #category : #tests } +{ #category : 'tests' } BlElementChildrenTest >> testChildWithIdifNone2 [ | aContainer | @@ -546,7 +548,7 @@ BlElementChildrenTest >> testChildWithIdifNone2 [ ifNone: [ self assert: true ] ] -{ #category : #tests } +{ #category : 'tests' } BlElementChildrenTest >> testChildren1 [ | aContainer allChildren | @@ -566,7 +568,7 @@ BlElementChildrenTest >> testChildren1 [ equals: (aContainer childWithId: #shape_10) ] -{ #category : #tests } +{ #category : 'tests' } BlElementChildrenTest >> testChildren2 [ | aContainer allChildren | @@ -580,7 +582,7 @@ BlElementChildrenTest >> testChildren2 [ equals: (aContainer childWithId: #shape_1) ] -{ #category : #tests } +{ #category : 'tests' } BlElementChildrenTest >> testChildrenCount1 [ | aContainer | @@ -588,7 +590,7 @@ BlElementChildrenTest >> testChildrenCount1 [ self assert: aContainer childrenCount equals: 10 ] -{ #category : #tests } +{ #category : 'tests' } BlElementChildrenTest >> testChildrenCount2 [ @@ -597,7 +599,7 @@ BlElementChildrenTest >> testChildrenCount2 [ self assert: aContainer childrenCount equals: 1 ] -{ #category : #'children - accessing' } +{ #category : 'children - accessing' } BlElementChildrenTest >> testDirectChildWithIdifFoundifNone [ | aContainer | @@ -616,7 +618,7 @@ BlElementChildrenTest >> testDirectChildWithIdifFoundifNone [ ifNone: [ self assert: true ] ] -{ #category : #tests } +{ #category : 'tests' } BlElementChildrenTest >> testFirstChild [ | aContainer anElementWithNoChild | @@ -631,7 +633,7 @@ BlElementChildrenTest >> testFirstChild [ self assert: false ] onErrorDo: [ :err | self assert: true ] ] -{ #category : #tests } +{ #category : 'tests' } BlElementChildrenTest >> testFirstCommonParentifFoundifNone [ | aContainer aChild1 aChild2 | @@ -671,7 +673,7 @@ BlElementChildrenTest >> testFirstCommonParentifFoundifNone [ ifNone: [ self assert: true ] ] -{ #category : #tests } +{ #category : 'tests' } BlElementChildrenTest >> testHasChildren [ | aContainer | @@ -684,7 +686,7 @@ BlElementChildrenTest >> testHasChildren [ self assert: aContainer hasChildren. ] -{ #category : #tests } +{ #category : 'tests' } BlElementChildrenTest >> testIsFirstChild [ | aContainer aChild | @@ -707,7 +709,7 @@ BlElementChildrenTest >> testIsFirstChild [ self assert: false ] onErrorDo: [ self assert: true ] ] -{ #category : #tests } +{ #category : 'tests' } BlElementChildrenTest >> testIsLastChild [ | aContainer aChild | @@ -730,7 +732,7 @@ BlElementChildrenTest >> testIsLastChild [ self assert: false ] onErrorDo: [ self assert: true ] ] -{ #category : #tests } +{ #category : 'tests' } BlElementChildrenTest >> testNextSiblingDo [ | aContainer aChild | @@ -745,7 +747,7 @@ BlElementChildrenTest >> testNextSiblingDo [ aChild nextSiblingDo: [ :next | self assert: false ] ] -{ #category : #tests } +{ #category : 'tests' } BlElementChildrenTest >> testNextSiblingSuchThatdo [ | aContainer aChild | @@ -770,7 +772,7 @@ BlElementChildrenTest >> testNextSiblingSuchThatdo [ do: [ :next | self assert: false ] ] -{ #category : #tests } +{ #category : 'tests' } BlElementChildrenTest >> testOwner [ | aContainer | @@ -787,7 +789,7 @@ BlElementChildrenTest >> testOwner [ self assert: aContainer owner equals: nil ] -{ #category : #tests } +{ #category : 'tests' } BlElementChildrenTest >> testParentDo [ | aContainer aChild res | @@ -805,7 +807,7 @@ BlElementChildrenTest >> testParentDo [ self assert: res asArray equals: { } ] -{ #category : #tests } +{ #category : 'tests' } BlElementChildrenTest >> testPreviousSiblingDo [ | aContainer aChild | @@ -820,7 +822,7 @@ BlElementChildrenTest >> testPreviousSiblingDo [ self assert: next equals: (aContainer childWithId: #shape_9) ] ] -{ #category : #tests } +{ #category : 'tests' } BlElementChildrenTest >> testPreviousSiblingSuchThatdo [ | aContainer aChild | @@ -845,7 +847,7 @@ BlElementChildrenTest >> testPreviousSiblingSuchThatdo [ self assert: next equals: (aContainer childWithId: #shape_8) ] ] -{ #category : #tests } +{ #category : 'tests' } BlElementChildrenTest >> testSiblingsDo [ | aContainer aChild found | @@ -869,7 +871,7 @@ BlElementChildrenTest >> testSiblingsDo [ ] -{ #category : #tests } +{ #category : 'tests' } BlElementChildrenTest >> testTopMostParent [ | aContainer aChild | @@ -878,7 +880,7 @@ BlElementChildrenTest >> testTopMostParent [ self assert: aChild topMostParent equals: aContainer ] -{ #category : #tests } +{ #category : 'tests' } BlElementChildrenTest >> testTopMostParentSuchThatifFoundifNone [ | aContainer aChild | @@ -894,7 +896,7 @@ BlElementChildrenTest >> testTopMostParentSuchThatifFoundifNone [ ifNone: [ self assert: true ] ] -{ #category : #tests } +{ #category : 'tests' } BlElementChildrenTest >> testWithAllParents [ | aContainer aChild | @@ -914,7 +916,7 @@ BlElementChildrenTest >> testWithAllParents [ aContainer } ] -{ #category : #tests } +{ #category : 'tests' } BlElementChildrenTest >> testWithAllParentsDetectifFoundifNone [ | aContainer aChild | @@ -938,7 +940,7 @@ BlElementChildrenTest >> testWithAllParentsDetectifFoundifNone [ ifNone: [ self assert: true ] ] -{ #category : #tests } +{ #category : 'tests' } BlElementChildrenTest >> testWithAllParentsDo [ | aContainer aChild res | @@ -965,7 +967,7 @@ BlElementChildrenTest >> testWithAllParentsDo [ self assert: res asArray equals: { aContainer } ] -{ #category : #tests } +{ #category : 'tests' } BlElementChildrenTest >> testWithAllParentsReversedDo [ | aContainer aChild all | @@ -990,7 +992,7 @@ BlElementChildrenTest >> testWithAllParentsReversedDo [ (aContainer childWithId: #shape_10) } ] -{ #category : #tests } +{ #category : 'tests' } BlElementChildrenTest >> testWithAllParentsUpToDo [ | aContainer res | @@ -1020,7 +1022,7 @@ BlElementChildrenTest >> testWithAllParentsUpToDo [ aContainer } ] -{ #category : #tests } +{ #category : 'tests' } BlElementChildrenTest >> testWithAllParentsUpTodetectifFoundIfNone [ | aContainer res | diff --git a/src/Bloc-UnitedTests/BlElementEventTest.class.st b/src/Bloc-UnitedTests/BlElementEventTest.class.st index a37e30a12..2b41fc2a8 100644 --- a/src/Bloc-UnitedTests/BlElementEventTest.class.st +++ b/src/Bloc-UnitedTests/BlElementEventTest.class.st @@ -3,12 +3,14 @@ I have been automatically converted and probably manually tweaked from BlElement Finally and more important such tests should not use setup because every method should be in capacity of returning a fully working object called an example :) " Class { - #name : #BlElementEventTest, - #superclass : #TestCase, - #category : #'Bloc-UnitedTests-Event' + #name : 'BlElementEventTest', + #superclass : 'TestCase', + #category : 'Bloc-UnitedTests-Event', + #package : 'Bloc-UnitedTests', + #tag : 'Event' } -{ #category : #'test seed' } +{ #category : 'test seed' } BlElementEventTest >> child [ @@ -18,7 +20,7 @@ BlElementEventTest >> child [ background: Color red ] -{ #category : #'test seed' } +{ #category : 'test seed' } BlElementEventTest >> container [ @@ -31,7 +33,7 @@ BlElementEventTest >> container [ build) ] -{ #category : #'test seed' } +{ #category : 'test seed' } BlElementEventTest >> parent [ @@ -41,7 +43,7 @@ BlElementEventTest >> parent [ background: (Color gray alpha: 0.3) ] -{ #category : #tests } +{ #category : 'tests' } BlElementEventTest >> testAddedToParent [ @@ -66,7 +68,7 @@ BlElementEventTest >> testAddedToParent [ ^ container ] -{ #category : #tests } +{ #category : 'tests' } BlElementEventTest >> testBackgroundChanged [ @@ -85,7 +87,7 @@ BlElementEventTest >> testBackgroundChanged [ ^ element ] -{ #category : #tests } +{ #category : 'tests' } BlElementEventTest >> testBorderChanged [ @@ -107,7 +109,7 @@ BlElementEventTest >> testBorderChanged [ ^ element ] -{ #category : #tests } +{ #category : 'tests' } BlElementEventTest >> testExtentChanged [ @@ -135,7 +137,7 @@ BlElementEventTest >> testExtentChanged [ ^ element ] -{ #category : #tests } +{ #category : 'tests' } BlElementEventTest >> testExtentChangedChangingWithTheSameSizeDoesNotRaiseEvent [ @@ -155,7 +157,7 @@ BlElementEventTest >> testExtentChangedChangingWithTheSameSizeDoesNotRaiseEvent ^ element ] -{ #category : #tests } +{ #category : 'tests' } BlElementEventTest >> testLayoutChanged [ @@ -174,7 +176,7 @@ BlElementEventTest >> testLayoutChanged [ ^ element ] -{ #category : #tests } +{ #category : 'tests' } BlElementEventTest >> testPositionChanged [ @@ -203,7 +205,7 @@ BlElementEventTest >> testPositionChanged [ ^ parent ] -{ #category : #tests } +{ #category : 'tests' } BlElementEventTest >> testPositionChangedRelocatingOnSamePositionDoesNotRaiseEvent [ @@ -227,7 +229,7 @@ BlElementEventTest >> testPositionChangedRelocatingOnSamePositionDoesNotRaiseEve ^ parent ] -{ #category : #tests } +{ #category : 'tests' } BlElementEventTest >> testRemovedFromParent [ diff --git a/src/Bloc-UnitedTests/BlElementLayoutBoundaryTest.class.st b/src/Bloc-UnitedTests/BlElementLayoutBoundaryTest.class.st index 3184f5eef..6bc64e53b 100644 --- a/src/Bloc-UnitedTests/BlElementLayoutBoundaryTest.class.st +++ b/src/Bloc-UnitedTests/BlElementLayoutBoundaryTest.class.st @@ -3,12 +3,14 @@ I have been automatically converted and probably manually tweaked from BlElement Finally and more important such tests should not use setup because every method should be in capacity of returning a fully working object called an example :) " Class { - #name : #BlElementLayoutBoundaryTest, - #superclass : #TestCase, - #category : #'Bloc-UnitedTests-Layout' + #name : 'BlElementLayoutBoundaryTest', + #superclass : 'TestCase', + #category : 'Bloc-UnitedTests-Layout', + #package : 'Bloc-UnitedTests', + #tag : 'Layout' } -{ #category : #tests } +{ #category : 'tests' } BlElementLayoutBoundaryTest >> testExactLayoutBoundary01Pulse [ @@ -32,7 +34,7 @@ BlElementLayoutBoundaryTest >> testExactLayoutBoundary01Pulse [ ^ aSpace ] -{ #category : #tests } +{ #category : 'tests' } BlElementLayoutBoundaryTest >> testExactLayoutBoundary02RequestLayoutChild [ | aSpace | @@ -58,7 +60,7 @@ BlElementLayoutBoundaryTest >> testExactLayoutBoundary02RequestLayoutChild [ ^ aSpace ] -{ #category : #tests } +{ #category : 'tests' } BlElementLayoutBoundaryTest >> testSpaceWithExactLayoutBoundary [ | aSpace aContainer aLayoutBoundary aChild | diff --git a/src/Bloc-UnitedTests/BlElementWithBrokenDrawingAndOnLayoutMock.class.st b/src/Bloc-UnitedTests/BlElementWithBrokenDrawingAndOnLayoutMock.class.st index d4d9af648..8f7da470c 100644 --- a/src/Bloc-UnitedTests/BlElementWithBrokenDrawingAndOnLayoutMock.class.st +++ b/src/Bloc-UnitedTests/BlElementWithBrokenDrawingAndOnLayoutMock.class.st @@ -2,18 +2,20 @@ I am an element with broken drawing and onLayout methods " Class { - #name : #BlElementWithBrokenDrawingAndOnLayoutMock, - #superclass : #BlElement, - #category : #'Bloc-UnitedTests-Errors' + #name : 'BlElementWithBrokenDrawingAndOnLayoutMock', + #superclass : 'BlElement', + #category : 'Bloc-UnitedTests-Errors', + #package : 'Bloc-UnitedTests', + #tag : 'Errors' } -{ #category : #drawing } +{ #category : 'drawing' } BlElementWithBrokenDrawingAndOnLayoutMock >> aeDrawOn: aCanvas [ 1 / 0 ] -{ #category : #layout } +{ #category : 'layout' } BlElementWithBrokenDrawingAndOnLayoutMock >> onLayout: aBounds context: aBlElementBoundsUpdater [ #() at: 1 ] diff --git a/src/Bloc-UnitedTests/BlElementWithBrokenDrawingMock.class.st b/src/Bloc-UnitedTests/BlElementWithBrokenDrawingMock.class.st index 3736a16c7..336dc9d6b 100644 --- a/src/Bloc-UnitedTests/BlElementWithBrokenDrawingMock.class.st +++ b/src/Bloc-UnitedTests/BlElementWithBrokenDrawingMock.class.st @@ -2,12 +2,14 @@ I am an element with a broken drawing method that throws Error (ZeroDivide) " Class { - #name : #BlElementWithBrokenDrawingMock, - #superclass : #BlElement, - #category : #'Bloc-UnitedTests-Errors' + #name : 'BlElementWithBrokenDrawingMock', + #superclass : 'BlElement', + #category : 'Bloc-UnitedTests-Errors', + #package : 'Bloc-UnitedTests', + #tag : 'Errors' } -{ #category : #drawing } +{ #category : 'drawing' } BlElementWithBrokenDrawingMock >> aeDrawOn: aCanvas [ 1 / 0 diff --git a/src/Bloc-UnitedTests/BlElementWithBrokenOnLayoutMock.class.st b/src/Bloc-UnitedTests/BlElementWithBrokenOnLayoutMock.class.st index 8082dabfa..de77d8ebb 100644 --- a/src/Bloc-UnitedTests/BlElementWithBrokenOnLayoutMock.class.st +++ b/src/Bloc-UnitedTests/BlElementWithBrokenOnLayoutMock.class.st @@ -2,12 +2,14 @@ I am an element with a broken onLayout method that throws Error (SubscriptOutOfBounds) " Class { - #name : #BlElementWithBrokenOnLayoutMock, - #superclass : #BlElement, - #category : #'Bloc-UnitedTests-Errors' + #name : 'BlElementWithBrokenOnLayoutMock', + #superclass : 'BlElement', + #category : 'Bloc-UnitedTests-Errors', + #package : 'Bloc-UnitedTests', + #tag : 'Errors' } -{ #category : #layout } +{ #category : 'layout' } BlElementWithBrokenOnLayoutMock >> onLayout: aBounds context: aBlElementBoundsUpdater [ #() at: 1 ] diff --git a/src/Bloc-UnitedTests/BlEllipseGeometryTest.class.st b/src/Bloc-UnitedTests/BlEllipseGeometryTest.class.st index c165a89dd..f1384f67f 100644 --- a/src/Bloc-UnitedTests/BlEllipseGeometryTest.class.st +++ b/src/Bloc-UnitedTests/BlEllipseGeometryTest.class.st @@ -3,12 +3,14 @@ I have been automatically converted and probably manually tweaked from BlEllipse Finally and more important such tests should not use setup because every method should be in capacity of returning a fully working object called an example :) " Class { - #name : #BlEllipseGeometryTest, - #superclass : #BlGeometryTest, - #category : #'Bloc-UnitedTests-Geometry' + #name : 'BlEllipseGeometryTest', + #superclass : 'BlGeometryTest', + #category : 'Bloc-UnitedTests-Geometry', + #package : 'Bloc-UnitedTests', + #tag : 'Geometry' } -{ #category : #tests } +{ #category : 'tests' } BlEllipseGeometryTest >> testDefault [ diff --git a/src/Bloc-UnitedTests/BlErrorHandlingTest.class.st b/src/Bloc-UnitedTests/BlErrorHandlingTest.class.st index c260a69d8..591f036a4 100644 --- a/src/Bloc-UnitedTests/BlErrorHandlingTest.class.st +++ b/src/Bloc-UnitedTests/BlErrorHandlingTest.class.st @@ -3,18 +3,20 @@ I have been automatically converted and probably manually tweaked from BlErrorHa Finally and more important such tests should not use setup because every method should be in capacity of returning a fully working object called an example :) " Class { - #name : #BlErrorHandlingTest, - #superclass : #TestCase, - #category : #'Bloc-UnitedTests-Errors' + #name : 'BlErrorHandlingTest', + #superclass : 'TestCase', + #category : 'Bloc-UnitedTests-Errors', + #package : 'Bloc-UnitedTests', + #tag : 'Errors' } -{ #category : #metadata } +{ #category : 'metadata' } BlErrorHandlingTest >> originClassName [ "This test was generated from..." ^ 'BlErrorHandlingExamples' ] -{ #category : #fixture } +{ #category : 'fixture' } BlErrorHandlingTest >> sceneWith: aFaultyElement [ "Create a visual scene with a faulty element embedded in it" @@ -78,7 +80,7 @@ BlErrorHandlingTest >> sceneWith: aFaultyElement [ ^ aContainer ] -{ #category : #tests } +{ #category : 'tests' } BlErrorHandlingTest >> testSceneElementThatHasBrokenDrawing [ @@ -102,7 +104,7 @@ BlErrorHandlingTest >> testSceneElementThatHasBrokenDrawing [ ^ aSceneElement ] -{ #category : #tests } +{ #category : 'tests' } BlErrorHandlingTest >> testSceneElementThatHasBrokenDrawingAndOnLayout [ @@ -134,7 +136,7 @@ BlErrorHandlingTest >> testSceneElementThatHasBrokenDrawingAndOnLayout [ ^ aSceneElement ] -{ #category : #tests } +{ #category : 'tests' } BlErrorHandlingTest >> testSceneElementThatHasBrokenOnLayout [ diff --git a/src/Bloc-UnitedTests/BlExamplesMock.class.st b/src/Bloc-UnitedTests/BlExamplesMock.class.st index 84c966097..3ce072c40 100644 --- a/src/Bloc-UnitedTests/BlExamplesMock.class.st +++ b/src/Bloc-UnitedTests/BlExamplesMock.class.st @@ -4,41 +4,43 @@ I define examples with the goal of demonstrating and testing my superclass. See my references. " Class { - #name : #BlExamplesMock, - #superclass : #TestCase, + #name : 'BlExamplesMock', + #superclass : 'TestCase', #instVars : [ 'enabled' ], - #category : #'Bloc-UnitedTests-Examples' + #category : 'Bloc-UnitedTests-Examples', + #package : 'Bloc-UnitedTests', + #tag : 'Examples' } -{ #category : #accessing } +{ #category : 'accessing' } BlExamplesMock >> enableRunning [ enabled := true ] -{ #category : #examples } +{ #category : 'examples' } BlExamplesMock >> exampleError [ self error ] -{ #category : #examples } +{ #category : 'examples' } BlExamplesMock >> exampleFail [ self fail ] -{ #category : #examples } +{ #category : 'examples' } BlExamplesMock >> examplePass [ ] -{ #category : #examples } +{ #category : 'examples' } BlExamplesMock >> exampleSkip [ @@ -46,44 +48,44 @@ BlExamplesMock >> exampleSkip [ self error ] -{ #category : #examples } +{ #category : 'examples' } BlExamplesMock >> exampleWithArgument: arg [ ] -{ #category : #initialization } +{ #category : 'initialization' } BlExamplesMock >> initialize [ super initialize. enabled := false ] -{ #category : #private } +{ #category : 'private' } BlExamplesMock >> performTest [ enabled ifTrue: [ super performTest ] ] -{ #category : #examples } +{ #category : 'examples' } BlExamplesMock >> testExampleError [ self error ] -{ #category : #examples } +{ #category : 'examples' } BlExamplesMock >> testExampleFail [ self fail ] -{ #category : #examples } +{ #category : 'examples' } BlExamplesMock >> testExamplePass [ ] -{ #category : #examples } +{ #category : 'examples' } BlExamplesMock >> testExampleSkip [ self skip diff --git a/src/Bloc-UnitedTests/BlExamplesTest.class.st b/src/Bloc-UnitedTests/BlExamplesTest.class.st index b676a7100..41a6fdc98 100644 --- a/src/Bloc-UnitedTests/BlExamplesTest.class.st +++ b/src/Bloc-UnitedTests/BlExamplesTest.class.st @@ -2,7 +2,9 @@ Do not use this class we will remove it. " Class { - #name : #BlExamplesTest, - #superclass : #BlExampleTest, - #category : #'Bloc-UnitedTests-Examples' + #name : 'BlExamplesTest', + #superclass : 'BlExampleTest', + #category : 'Bloc-UnitedTests-Examples', + #package : 'Bloc-UnitedTests', + #tag : 'Examples' } diff --git a/src/Bloc-UnitedTests/BlGeometryTest.class.st b/src/Bloc-UnitedTests/BlGeometryTest.class.st index b33556baa..7af8d213e 100644 --- a/src/Bloc-UnitedTests/BlGeometryTest.class.st +++ b/src/Bloc-UnitedTests/BlGeometryTest.class.st @@ -2,18 +2,20 @@ An AkGroupTest is a test class for testing the behavior of AkGroup " Class { - #name : #BlGeometryTest, - #superclass : #TestCase, - #category : #'Bloc-UnitedTests-Geometry' + #name : 'BlGeometryTest', + #superclass : 'TestCase', + #category : 'Bloc-UnitedTests-Geometry', + #package : 'Bloc-UnitedTests', + #tag : 'Geometry' } -{ #category : #testing } +{ #category : 'testing' } BlGeometryTest class >> shouldInheritSelectors [ ^ true ] -{ #category : #'contains tests' } +{ #category : 'contains tests' } BlGeometryTest >> test3ElContainsPoint [ | g c1 c2 | @@ -46,7 +48,7 @@ BlGeometryTest >> test3ElContainsPoint [ self assert: (c1 containsPoint: 50 @ 50) ] -{ #category : #'any bounds tests' } +{ #category : 'any bounds tests' } BlGeometryTest >> testElAnyBounds [ | g c1 c2 | @@ -110,7 +112,7 @@ BlGeometryTest >> testElAnyBounds [ equals: (200 @ 200 corner: 400 @ 300) ] -{ #category : #'bounds tests' } +{ #category : 'bounds tests' } BlGeometryTest >> testElLocalAndGlobalBoundsConvertion [ | g | @@ -140,7 +142,7 @@ BlGeometryTest >> testElLocalAndGlobalBoundsConvertion [ equals: (10 @ 10 corner: 110 @ 110) ] -{ #category : #'position tests' } +{ #category : 'position tests' } BlGeometryTest >> testElLocalAndGlobalPostionConvertion [ | g n | @@ -164,7 +166,7 @@ BlGeometryTest >> testElLocalAndGlobalPostionConvertion [ self assert: (n parentPointToLocal: n position) equals: 0 @ 0 ] -{ #category : #'tx bounds tests' } +{ #category : 'tx bounds tests' } BlGeometryTest >> testElTxBounds [ | g n | diff --git a/src/Bloc-UnitedTests/BlHistogramGeometryTest.class.st b/src/Bloc-UnitedTests/BlHistogramGeometryTest.class.st index ee47b204d..6b9910f80 100644 --- a/src/Bloc-UnitedTests/BlHistogramGeometryTest.class.st +++ b/src/Bloc-UnitedTests/BlHistogramGeometryTest.class.st @@ -3,12 +3,14 @@ I have been automatically converted and probably manually tweaked from BlHistogr Finally and more important such tests should not use setup because every method should be in capacity of returning a fully working object called an example :) " Class { - #name : #BlHistogramGeometryTest, - #superclass : #BlGeometryTest, - #category : #'Bloc-UnitedTests-Geometry' + #name : 'BlHistogramGeometryTest', + #superclass : 'BlGeometryTest', + #category : 'Bloc-UnitedTests-Geometry', + #package : 'Bloc-UnitedTests', + #tag : 'Geometry' } -{ #category : #tests } +{ #category : 'tests' } BlHistogramGeometryTest >> testBottomToTop [ @@ -19,7 +21,7 @@ BlHistogramGeometryTest >> testBottomToTop [ ^ aHistogram ] -{ #category : #tests } +{ #category : 'tests' } BlHistogramGeometryTest >> testDefault [ @@ -39,7 +41,7 @@ BlHistogramGeometryTest >> testDefault [ ^ aHistogram ] -{ #category : #tests } +{ #category : 'tests' } BlHistogramGeometryTest >> testLeftToRight [ @@ -50,7 +52,7 @@ BlHistogramGeometryTest >> testLeftToRight [ ^ aHistogram ] -{ #category : #tests } +{ #category : 'tests' } BlHistogramGeometryTest >> testRightToLeft [ @@ -61,7 +63,7 @@ BlHistogramGeometryTest >> testRightToLeft [ ^ aHistogram ] -{ #category : #tests } +{ #category : 'tests' } BlHistogramGeometryTest >> testTopToBottom [ diff --git a/src/Bloc-UnitedTests/BlOpacityTest.class.st b/src/Bloc-UnitedTests/BlOpacityTest.class.st index c2977eb9c..b00f06eec 100644 --- a/src/Bloc-UnitedTests/BlOpacityTest.class.st +++ b/src/Bloc-UnitedTests/BlOpacityTest.class.st @@ -3,12 +3,14 @@ I have been automatically converted and probably manually tweaked from BlOpacity Finally and more important such tests should not use setup because every method should be in capacity of returning a fully working object called an example :) " Class { - #name : #BlOpacityTest, - #superclass : #TestCase, - #category : #'Bloc-UnitedTests-Basic' + #name : 'BlOpacityTest', + #superclass : 'TestCase', + #category : 'Bloc-UnitedTests-Basic', + #package : 'Bloc-UnitedTests', + #tag : 'Basic' } -{ #category : #'tests seed' } +{ #category : 'tests seed' } BlOpacityTest >> colorfulElement [ | anElement | @@ -31,7 +33,7 @@ BlOpacityTest >> colorfulElement [ ^ anElement ] -{ #category : #tests } +{ #category : 'tests' } BlOpacityTest >> testDefaultOpacity [ | anElement | @@ -43,7 +45,7 @@ BlOpacityTest >> testDefaultOpacity [ ^ anElement ] -{ #category : #tests } +{ #category : 'tests' } BlOpacityTest >> testMakeOpaque [ | anElement | @@ -56,7 +58,7 @@ BlOpacityTest >> testMakeOpaque [ ^ anElement ] -{ #category : #tests } +{ #category : 'tests' } BlOpacityTest >> testMakeTranslucent [ | anElement | @@ -69,7 +71,7 @@ BlOpacityTest >> testMakeTranslucent [ ^ anElement ] -{ #category : #tests } +{ #category : 'tests' } BlOpacityTest >> testMakeTransparent [ | anElement | diff --git a/src/Bloc-UnitedTests/BlSelectionHandlerTest.class.st b/src/Bloc-UnitedTests/BlSelectionHandlerTest.class.st index 85f64bea2..034471379 100644 --- a/src/Bloc-UnitedTests/BlSelectionHandlerTest.class.st +++ b/src/Bloc-UnitedTests/BlSelectionHandlerTest.class.st @@ -3,12 +3,14 @@ I have been automatically converted and probably manually tweaked from BlSelecti Finally and more important such tests should not use setup because every method should be in capacity of returning a fully working object called an example :) " Class { - #name : #BlSelectionHandlerTest, - #superclass : #TestCase, - #category : #'Bloc-UnitedTests-Selection' + #name : 'BlSelectionHandlerTest', + #superclass : 'TestCase', + #category : 'Bloc-UnitedTests-Selection', + #package : 'Bloc-UnitedTests', + #tag : 'Selection' } -{ #category : #'instance creation' } +{ #category : 'instance creation' } BlSelectionHandlerTest class >> grid [ @@ -21,7 +23,7 @@ BlSelectionHandlerTest class >> grid [ space show ] -{ #category : #'instance creation' } +{ #category : 'instance creation' } BlSelectionHandlerTest class >> gridRow [ @@ -34,13 +36,13 @@ BlSelectionHandlerTest class >> gridRow [ space show ] -{ #category : #metadata } +{ #category : 'metadata' } BlSelectionHandlerTest >> originClassName [ "This test was generated from..." ^ 'BlSelectionHandlerExamples' ] -{ #category : #'smoke tests' } +{ #category : 'smoke tests' } BlSelectionHandlerTest >> testCell [ ^ BlElement new @@ -56,7 +58,7 @@ BlSelectionHandlerTest >> testCell [ do: [ :anEvent | anEvent currentTarget border: BlBorder empty ] ] -{ #category : #'smoke tests' } +{ #category : 'smoke tests' } BlSelectionHandlerTest >> testContainer [ ^ BlElement new @@ -66,31 +68,31 @@ BlSelectionHandlerTest >> testContainer [ background: Color white ] -{ #category : #'smoke tests' } +{ #category : 'smoke tests' } BlSelectionHandlerTest >> testContainerWithOneGrid [ ^ self testContainer addChild: self testGridWith11Cells ] -{ #category : #'smoke tests' } +{ #category : 'smoke tests' } BlSelectionHandlerTest >> testContainerWithOneGridAndVisualHandler [ ^ self testContainerWithOneGrid addEventHandler: self testVisualHandler ] -{ #category : #'smoke tests' } +{ #category : 'smoke tests' } BlSelectionHandlerTest >> testContainerWithThreeGrids [ ^ self testContainer addChild: self testThreeGrids ] -{ #category : #'smoke tests' } +{ #category : 'smoke tests' } BlSelectionHandlerTest >> testContainerWithThreeGridsAndVisualHandler [ ^ self testContainerWithThreeGrids addEventHandler: self testVisualHandler ] -{ #category : #'smoke tests' } +{ #category : 'smoke tests' } BlSelectionHandlerTest >> testGrid [ ^ BlElement new @@ -105,7 +107,7 @@ BlSelectionHandlerTest >> testGrid [ rowCount: 5 ] ] -{ #category : #'smoke tests' } +{ #category : 'smoke tests' } BlSelectionHandlerTest >> testGridWith11Cells [ ^ self testGrid @@ -113,7 +115,7 @@ BlSelectionHandlerTest >> testGridWith11Cells [ yourself ] -{ #category : #'smoke tests' } +{ #category : 'smoke tests' } BlSelectionHandlerTest >> testThreeGrids [ ^ self testContainer @@ -125,7 +127,7 @@ BlSelectionHandlerTest >> testThreeGrids [ self testGridWith11Cells } ] -{ #category : #'smoke tests' } +{ #category : 'smoke tests' } BlSelectionHandlerTest >> testVisualHandler [ ^ BlVisualSelectionHandler new diff --git a/src/Bloc-UnitedTests/BlSelectionTest.class.st b/src/Bloc-UnitedTests/BlSelectionTest.class.st index 78db49619..1ce5b5ee4 100644 --- a/src/Bloc-UnitedTests/BlSelectionTest.class.st +++ b/src/Bloc-UnitedTests/BlSelectionTest.class.st @@ -3,24 +3,26 @@ I have been automatically converted and probably manually tweaked from BlSelecti Finally and more important such tests should not use setup because every method should be in capacity of returning a fully working object called an example :) " Class { - #name : #BlSelectionTest, - #superclass : #TestCase, - #category : #'Bloc-UnitedTests-Selection' + #name : 'BlSelectionTest', + #superclass : 'TestCase', + #category : 'Bloc-UnitedTests-Selection', + #package : 'Bloc-UnitedTests', + #tag : 'Selection' } -{ #category : #'test seed' } +{ #category : 'test seed' } BlSelectionTest >> compositeSelection [ ^ BlCompositeSelection new ] -{ #category : #'test seed' } +{ #category : 'test seed' } BlSelectionTest >> monotoneSelection [ ^ BlMonotoneSelection ] -{ #category : #tests } +{ #category : 'tests' } BlSelectionTest >> testCompositeSelectFrom0To1 [ | aCompositeSelection | @@ -41,7 +43,7 @@ BlSelectionTest >> testCompositeSelectFrom0To1 [ ^ aCompositeSelection ] -{ #category : #tests } +{ #category : 'tests' } BlSelectionTest >> testCompositeSelectFrom1To1 [ | aCompositeSelection | @@ -57,7 +59,7 @@ BlSelectionTest >> testCompositeSelectFrom1To1 [ ^ aCompositeSelection ] -{ #category : #tests } +{ #category : 'tests' } BlSelectionTest >> testCompositeSelectFrom1To3 [ | aCompositeSelection | @@ -78,7 +80,7 @@ BlSelectionTest >> testCompositeSelectFrom1To3 [ ^ aCompositeSelection ] -{ #category : #tests } +{ #category : 'tests' } BlSelectionTest >> testCompositeSelectFrom1To3And2To6 [ | aCompositeSelection | @@ -100,7 +102,7 @@ BlSelectionTest >> testCompositeSelectFrom1To3And2To6 [ ^ aCompositeSelection ] -{ #category : #tests } +{ #category : 'tests' } BlSelectionTest >> testCompositeSelectFrom1To3And4To6 [ | aCompositeSelection | @@ -122,7 +124,7 @@ BlSelectionTest >> testCompositeSelectFrom1To3And4To6 [ ^ aCompositeSelection ] -{ #category : #tests } +{ #category : 'tests' } BlSelectionTest >> testCompositeSelectFrom1To3And5To6 [ | aCompositeSelection | @@ -144,7 +146,7 @@ BlSelectionTest >> testCompositeSelectFrom1To3And5To6 [ ^ aCompositeSelection ] -{ #category : #tests } +{ #category : 'tests' } BlSelectionTest >> testCompositeSelectFrom1To4And4To6 [ | aCompositeSelection | @@ -166,7 +168,7 @@ BlSelectionTest >> testCompositeSelectFrom1To4And4To6 [ ^ aCompositeSelection ] -{ #category : #tests } +{ #category : 'tests' } BlSelectionTest >> testCompositeSelectFrom5To6And1To3 [ | aCompositeSelection | @@ -188,13 +190,13 @@ BlSelectionTest >> testCompositeSelectFrom5To6And1To3 [ ^ aCompositeSelection ] -{ #category : #tests } +{ #category : 'tests' } BlSelectionTest >> testCompositeSelection [ ^ BlCompositeSelection new ] -{ #category : #tests } +{ #category : 'tests' } BlSelectionTest >> testMonotoneContainsIn1To1 [ | aMonotoneSelection | @@ -207,7 +209,7 @@ BlSelectionTest >> testMonotoneContainsIn1To1 [ ^ aMonotoneSelection ] -{ #category : #tests } +{ #category : 'tests' } BlSelectionTest >> testMonotoneContainsIndexIn1To1 [ | aMonotoneSelection | @@ -220,7 +222,7 @@ BlSelectionTest >> testMonotoneContainsIndexIn1To1 [ ^ aMonotoneSelection ] -{ #category : #tests } +{ #category : 'tests' } BlSelectionTest >> testMonotoneNeighbours1To1And3To4 [ | from1to1 from3to4 | @@ -233,7 +235,7 @@ BlSelectionTest >> testMonotoneNeighbours1To1And3To4 [ ^ from3to4 neighbours: from1to1 ] -{ #category : #tests } +{ #category : 'tests' } BlSelectionTest >> testMonotoneNeighbours1To3And1To1 [ | from1to3 from1to1 | @@ -246,7 +248,7 @@ BlSelectionTest >> testMonotoneNeighbours1To3And1To1 [ ^ from1to3 neighbours: from1to1 ] -{ #category : #tests } +{ #category : 'tests' } BlSelectionTest >> testMonotoneNeighbours1To3And3To4 [ | from1to3 from3to4 | @@ -259,7 +261,7 @@ BlSelectionTest >> testMonotoneNeighbours1To3And3To4 [ ^ from1to3 neighbours: from3to4 ] -{ #category : #tests } +{ #category : 'tests' } BlSelectionTest >> testMonotoneNeighbours1To3And4To6 [ | from1to3 from4to6 | @@ -272,7 +274,7 @@ BlSelectionTest >> testMonotoneNeighbours1To3And4To6 [ ^ from1to3 neighbours: from4to6 ] -{ #category : #tests } +{ #category : 'tests' } BlSelectionTest >> testMonotoneNeighbours1To4And4To6 [ | from1to4 from4to6 | @@ -285,7 +287,7 @@ BlSelectionTest >> testMonotoneNeighbours1To4And4To6 [ ^ from1to4 neighbours: from4to6 ] -{ #category : #tests } +{ #category : 'tests' } BlSelectionTest >> testMonotoneRangeIncludesIn1To1 [ | aMonotoneSelection | @@ -298,7 +300,7 @@ BlSelectionTest >> testMonotoneRangeIncludesIn1To1 [ ^ aMonotoneSelection ] -{ #category : #tests } +{ #category : 'tests' } BlSelectionTest >> testMonotoneRangeIncludesIn1To3 [ | aMonotoneSelection | @@ -313,7 +315,7 @@ BlSelectionTest >> testMonotoneRangeIncludesIn1To3 [ ^ aMonotoneSelection ] -{ #category : #tests } +{ #category : 'tests' } BlSelectionTest >> testMonotoneRangeIncludesIn4To6 [ | aMonotoneSelection | @@ -331,7 +333,7 @@ BlSelectionTest >> testMonotoneRangeIncludesIn4To6 [ ^ aMonotoneSelection ] -{ #category : #tests } +{ #category : 'tests' } BlSelectionTest >> testMonotoneSelectFrom1To1 [ | aMonotoneSelection | @@ -348,7 +350,7 @@ BlSelectionTest >> testMonotoneSelectFrom1To1 [ ^ aMonotoneSelection ] -{ #category : #tests } +{ #category : 'tests' } BlSelectionTest >> testMonotoneSelectFrom1To3 [ | aMonotoneSelection | @@ -368,7 +370,7 @@ BlSelectionTest >> testMonotoneSelectFrom1To3 [ ^ aMonotoneSelection ] -{ #category : #tests } +{ #category : 'tests' } BlSelectionTest >> testMonotoneSelectFrom1To4 [ | aMonotoneSelection | @@ -388,7 +390,7 @@ BlSelectionTest >> testMonotoneSelectFrom1To4 [ ^ aMonotoneSelection ] -{ #category : #tests } +{ #category : 'tests' } BlSelectionTest >> testMonotoneSelectFrom3To4 [ | aMonotoneSelection | @@ -408,7 +410,7 @@ BlSelectionTest >> testMonotoneSelectFrom3To4 [ ^ aMonotoneSelection ] -{ #category : #tests } +{ #category : 'tests' } BlSelectionTest >> testMonotoneSelectFrom4To6 [ | aMonotoneSelection | diff --git a/src/Bloc-UnitedTests/BlSpace2Test.class.st b/src/Bloc-UnitedTests/BlSpace2Test.class.st index bad59a978..8cd439131 100644 --- a/src/Bloc-UnitedTests/BlSpace2Test.class.st +++ b/src/Bloc-UnitedTests/BlSpace2Test.class.st @@ -1,10 +1,12 @@ Class { - #name : #BlSpace2Test, - #superclass : #TestCase, - #category : #'Bloc-UnitedTests-Space' + #name : 'BlSpace2Test', + #superclass : 'TestCase', + #category : 'Bloc-UnitedTests-Space', + #package : 'Bloc-UnitedTests', + #tag : 'Space' } -{ #category : #'test seed' } +{ #category : 'test seed' } BlSpace2Test >> animatedElement [ @@ -16,7 +18,7 @@ BlSpace2Test >> animatedElement [ yourself ] -{ #category : #'test seed' } +{ #category : 'test seed' } BlSpace2Test >> iconElement [ @@ -26,7 +28,7 @@ BlSpace2Test >> iconElement [ geometry: BlCircleGeometry new ] -{ #category : #'test seed' } +{ #category : 'test seed' } BlSpace2Test >> iconStencil [ @@ -36,7 +38,7 @@ BlSpace2Test >> iconStencil [ ^ aStencil ] -{ #category : #'test seed' } +{ #category : 'test seed' } BlSpace2Test >> infiniteAnimation [ @@ -48,7 +50,7 @@ BlSpace2Test >> infiniteAnimation [ ^ anAnimation ] -{ #category : #'test seed' } +{ #category : 'test seed' } BlSpace2Test >> spaceWithSlownDownTime [ @@ -60,7 +62,7 @@ BlSpace2Test >> spaceWithSlownDownTime [ ^ aSpace ] -{ #category : #'test seed' } +{ #category : 'test seed' } BlSpace2Test >> spaceWithSlownDownTimeAndAnimatedElement [ @@ -70,16 +72,16 @@ BlSpace2Test >> spaceWithSlownDownTimeAndAnimatedElement [ ^ aSpace ] -{ #category : #tests } +{ #category : 'tests' } BlSpace2Test >> testChangeIcon [ | aSpace aCollection | aSpace := self testEmptySpace. aCollection := OrderedCollection new. - aSpace - when: BlSpaceIconChangedEvent - do: [ :anEvent | aCollection add: anEvent ]. + aSpace addEventHandler: (BlEventHandler + on: BlSpaceIconChangedEvent + do: [ :anEvent | aCollection add: anEvent ]). aSpace icon: self iconStencil. self assert: aCollection size equals: 1. self assert: aCollection first class equals: BlSpaceIconChangedEvent. @@ -92,7 +94,7 @@ BlSpace2Test >> testChangeIcon [ ^ aSpace ] -{ #category : #tests } +{ #category : 'tests' } BlSpace2Test >> testEmptySpace [ @@ -120,7 +122,7 @@ BlSpace2Test >> testEmptySpace [ ^ aSpace ] -{ #category : #tests } +{ #category : 'tests' } BlSpace2Test >> testFirstPulse [ @@ -135,7 +137,7 @@ BlSpace2Test >> testFirstPulse [ ^ aSpace ] -{ #category : #'test seed' } +{ #category : 'test seed' } BlSpace2Test >> testInfiniteAnimation [ diff --git a/src/Bloc-UnitedTests/BlSpaceIconDummyStencil2.class.st b/src/Bloc-UnitedTests/BlSpaceIconDummyStencil2.class.st index 12f8ea59e..dca86b24a 100644 --- a/src/Bloc-UnitedTests/BlSpaceIconDummyStencil2.class.st +++ b/src/Bloc-UnitedTests/BlSpaceIconDummyStencil2.class.st @@ -1,24 +1,26 @@ Class { - #name : #BlSpaceIconDummyStencil2, - #superclass : #Object, + #name : 'BlSpaceIconDummyStencil2', + #superclass : 'Object', #instVars : [ 'block' ], - #category : #'Bloc-UnitedTests-Space' + #category : 'Bloc-UnitedTests-Space', + #package : 'Bloc-UnitedTests', + #tag : 'Space' } -{ #category : #'api - converting' } +{ #category : 'api - converting' } BlSpaceIconDummyStencil2 >> asElement [ ^ self block value ] -{ #category : #'api - accessing' } +{ #category : 'api - accessing' } BlSpaceIconDummyStencil2 >> block [ ^ block ] -{ #category : #'api - accessing' } +{ #category : 'api - accessing' } BlSpaceIconDummyStencil2 >> block: anObject [ block := anObject ] diff --git a/src/Bloc-UnitedTests/BlTestOfExamplesTest.class.st b/src/Bloc-UnitedTests/BlTestOfExamplesTest.class.st index b471650ee..df4f488c2 100644 --- a/src/Bloc-UnitedTests/BlTestOfExamplesTest.class.st +++ b/src/Bloc-UnitedTests/BlTestOfExamplesTest.class.st @@ -1,10 +1,12 @@ Class { - #name : #BlTestOfExamplesTest, - #superclass : #TestCase, - #category : #'Bloc-UnitedTests-Examples' + #name : 'BlTestOfExamplesTest', + #superclass : 'TestCase', + #category : 'Bloc-UnitedTests-Examples', + #package : 'Bloc-UnitedTests', + #tag : 'Examples' } -{ #category : #running } +{ #category : 'running' } BlTestOfExamplesTest >> examplesTestResult [ | suite | @@ -13,7 +15,7 @@ BlTestOfExamplesTest >> examplesTestResult [ ^ suite run ] -{ #category : #tests } +{ #category : 'tests' } BlTestOfExamplesTest >> testAllExamplesAreConsideredTests [ self @@ -22,7 +24,7 @@ BlTestOfExamplesTest >> testAllExamplesAreConsideredTests [ ] -{ #category : #tests } +{ #category : 'tests' } BlTestOfExamplesTest >> testErrors [ self @@ -31,7 +33,7 @@ BlTestOfExamplesTest >> testErrors [ ] -{ #category : #tests } +{ #category : 'tests' } BlTestOfExamplesTest >> testFail [ self @@ -40,7 +42,7 @@ BlTestOfExamplesTest >> testFail [ ] -{ #category : #tests } +{ #category : 'tests' } BlTestOfExamplesTest >> testPass [ self @@ -49,7 +51,7 @@ BlTestOfExamplesTest >> testPass [ ] -{ #category : #tests } +{ #category : 'tests' } BlTestOfExamplesTest >> testSkip [ self diff --git a/src/Bloc-UnitedTests/BlTransformationTest.class.st b/src/Bloc-UnitedTests/BlTransformationTest.class.st index 88d3e9f35..52b9b4799 100644 --- a/src/Bloc-UnitedTests/BlTransformationTest.class.st +++ b/src/Bloc-UnitedTests/BlTransformationTest.class.st @@ -3,12 +3,14 @@ I have been automatically converted and probably manually tweaked from BlTransfo Finally and more important such tests should not use setup because every method should be in capacity of returning a fully working object called an example :) " Class { - #name : #BlTransformationTest, - #superclass : #TestCase, - #category : #'Bloc-UnitedTests-Math' + #name : 'BlTransformationTest', + #superclass : 'TestCase', + #category : 'Bloc-UnitedTests-Math', + #package : 'Bloc-UnitedTests', + #tag : 'Math' } -{ #category : #'test seeds' } +{ #category : 'test seeds' } BlTransformationTest >> element [ ^ BlElement new @@ -18,17 +20,17 @@ BlTransformationTest >> element [ "to compute extent and position"forceLayout ] -{ #category : #hooks } +{ #category : 'hooks' } BlTransformationTest >> extent [ ^ 100 @ 100 ] -{ #category : #hooks } +{ #category : 'hooks' } BlTransformationTest >> position [ ^ 100 @ 100 ] -{ #category : #tests } +{ #category : 'tests' } BlTransformationTest >> testElTxBoundsWithScale [ | g n | @@ -64,7 +66,7 @@ BlTransformationTest >> testElTxBoundsWithScale [ equals: ((100 @ 100) negated extent: 400 @ 400) ] -{ #category : #tests } +{ #category : 'tests' } BlTransformationTest >> testInheritFromIdentity [ | n | @@ -86,7 +88,7 @@ BlTransformationTest >> testInheritFromIdentity [ equals: ((50 @ 50) negated corner: 150 @ 150) ] -{ #category : #tests } +{ #category : 'tests' } BlTransformationTest >> testReflection [ | element | @@ -102,7 +104,7 @@ BlTransformationTest >> testReflection [ ^ element ] -{ #category : #tests } +{ #category : 'tests' } BlTransformationTest >> testRotate [ | element expectedOrigin expectedExtent | @@ -127,7 +129,7 @@ BlTransformationTest >> testRotate [ ^ element ] -{ #category : #tests } +{ #category : 'tests' } BlTransformationTest >> testScale [ | element expectedOrigin expectedExtent | @@ -150,7 +152,7 @@ BlTransformationTest >> testScale [ ^ element ] -{ #category : #tests } +{ #category : 'tests' } BlTransformationTest >> testScaleBy [ | n | @@ -178,7 +180,7 @@ BlTransformationTest >> testScaleBy [ self assert: n transformedBounds equals: (0 @ 0 corner: 100 @ 100) ] -{ #category : #tests } +{ #category : 'tests' } BlTransformationTest >> testScaleTo [ | n | @@ -204,7 +206,7 @@ BlTransformationTest >> testScaleTo [ self assert: n transformedBounds equals: (25 @ 25 corner: 75 @ 75) ] -{ #category : #tests } +{ #category : 'tests' } BlTransformationTest >> testTranslate [ | element expectedOrigin expectedExtent | @@ -227,7 +229,7 @@ BlTransformationTest >> testTranslate [ ^ element ] -{ #category : #tests } +{ #category : 'tests' } BlTransformationTest >> testTranslateTo [ | n | diff --git a/src/Bloc-UnitedTests/BlVectorTest.class.st b/src/Bloc-UnitedTests/BlVectorTest.class.st index 7a0120540..6dfcaf63d 100644 --- a/src/Bloc-UnitedTests/BlVectorTest.class.st +++ b/src/Bloc-UnitedTests/BlVectorTest.class.st @@ -3,12 +3,14 @@ I have been automatically converted and probably manually tweaked from BlVector2 Finally and more important such tests should not use setup because every method should be in capacity of returning a fully working object called an example :) " Class { - #name : #BlVectorTest, - #superclass : #TestCase, - #category : #'Bloc-UnitedTests-Math' + #name : 'BlVectorTest', + #superclass : 'TestCase', + #category : 'Bloc-UnitedTests-Math', + #package : 'Bloc-UnitedTests', + #tag : 'Math' } -{ #category : #'tests - conversions' } +{ #category : 'tests - conversions' } BlVectorTest >> testAsBlocVector [ | v | @@ -18,7 +20,7 @@ BlVectorTest >> testAsBlocVector [ self assert: v y equals: 10. ] -{ #category : #'tests - conversions' } +{ #category : 'tests - conversions' } BlVectorTest >> testAsBlocVectorNumber [ | v | @@ -28,7 +30,7 @@ BlVectorTest >> testAsBlocVectorNumber [ self assert: v y equals: 10. ] -{ #category : #'tests - conversions' } +{ #category : 'tests - conversions' } BlVectorTest >> testAsBlocVectorPoint [ | v | @@ -38,7 +40,7 @@ BlVectorTest >> testAsBlocVectorPoint [ self assert: v y equals: 20. ] -{ #category : #'tests - maths' } +{ #category : 'tests - maths' } BlVectorTest >> testNormal [ | v norm | @@ -49,7 +51,7 @@ BlVectorTest >> testNormal [ self assert: (v asPoint crossProduct: norm asPoint) equals: 1 ] -{ #category : #'tests - conversions' } +{ #category : 'tests - conversions' } BlVectorTest >> testSign [ | signVector | @@ -58,7 +60,7 @@ BlVectorTest >> testSign [ self assert: signVector y equals: -1. ] -{ #category : #tests } +{ #category : 'tests' } BlVectorTest >> testSingleton [ | singletonSelectors | @@ -74,7 +76,7 @@ BlVectorTest >> testSingleton [ ] -{ #category : #tests } +{ #category : 'tests' } BlVectorTest >> testVector0degrees [ | aVector | @@ -84,7 +86,7 @@ BlVectorTest >> testVector0degrees [ ^ aVector ] -{ #category : #tests } +{ #category : 'tests' } BlVectorTest >> testVector180degrees [ | aVector | @@ -94,7 +96,7 @@ BlVectorTest >> testVector180degrees [ ^ aVector ] -{ #category : #tests } +{ #category : 'tests' } BlVectorTest >> testVector270degrees [ | aVector | @@ -104,7 +106,7 @@ BlVectorTest >> testVector270degrees [ ^ aVector ] -{ #category : #'tests - arithmetic' } +{ #category : 'tests - arithmetic' } BlVectorTest >> testVector2DAddition [ | aVector anotherVector sum | @@ -116,7 +118,7 @@ BlVectorTest >> testVector2DAddition [ ^ sum ] -{ #category : #'tests - arithmetic' } +{ #category : 'tests - arithmetic' } BlVectorTest >> testVector2DAdditionWith3D [ | aVector anotherVector sum | @@ -129,7 +131,7 @@ BlVectorTest >> testVector2DAdditionWith3D [ ^ sum ] -{ #category : #'tests - arithmetic' } +{ #category : 'tests - arithmetic' } BlVectorTest >> testVector2DMultiplication [ | aVector mul | @@ -140,7 +142,7 @@ BlVectorTest >> testVector2DMultiplication [ ^ mul ] -{ #category : #'tests - arithmetic' } +{ #category : 'tests - arithmetic' } BlVectorTest >> testVector2DMultiplicationConstantFirst [ | aVector mul | @@ -151,7 +153,7 @@ BlVectorTest >> testVector2DMultiplicationConstantFirst [ ^ mul ] -{ #category : #tests } +{ #category : 'tests' } BlVectorTest >> testVector346degrees [ | aVector | @@ -167,7 +169,7 @@ BlVectorTest >> testVector346degrees [ ^ aVector ] -{ #category : #'tests - arithmetic' } +{ #category : 'tests - arithmetic' } BlVectorTest >> testVector3DAddition [ | aVector anotherVector sum | @@ -180,7 +182,7 @@ BlVectorTest >> testVector3DAddition [ ^ sum ] -{ #category : #'tests - arithmetic' } +{ #category : 'tests - arithmetic' } BlVectorTest >> testVector3DAdditionWith2D [ | aVector anotherVector sum | @@ -193,7 +195,7 @@ BlVectorTest >> testVector3DAdditionWith2D [ ^ sum ] -{ #category : #'tests - arithmetic' } +{ #category : 'tests - arithmetic' } BlVectorTest >> testVector3DMultiplication [ | aVector mul | @@ -205,7 +207,7 @@ BlVectorTest >> testVector3DMultiplication [ ^ mul ] -{ #category : #tests } +{ #category : 'tests' } BlVectorTest >> testVector45degrees [ | aVector | @@ -218,7 +220,7 @@ BlVectorTest >> testVector45degrees [ ^ aVector ] -{ #category : #'tests - arithmetic' } +{ #category : 'tests - arithmetic' } BlVectorTest >> testVectorMultiplicationConstantFirst [ | aVector mul | diff --git a/src/Bloc-UnitedTests/TBlChildrenTest.trait.st b/src/Bloc-UnitedTests/TBlChildrenTest.trait.st index 8eb0806ae..f1bc00dbb 100644 --- a/src/Bloc-UnitedTests/TBlChildrenTest.trait.st +++ b/src/Bloc-UnitedTests/TBlChildrenTest.trait.st @@ -1,9 +1,11 @@ Trait { - #name : #TBlChildrenTest, - #category : #'Bloc-UnitedTests-Children' + #name : 'TBlChildrenTest', + #category : 'Bloc-UnitedTests-Children', + #package : 'Bloc-UnitedTests', + #tag : 'Children' } -{ #category : #fixture } +{ #category : 'fixture' } TBlChildrenTest >> fill: aNumber [ | childrenArray | @@ -13,7 +15,7 @@ TBlChildrenTest >> fill: aNumber [ ^ childrenArray ] -{ #category : #fixture } +{ #category : 'fixture' } TBlChildrenTest >> newChildAt: anIndex [ | anElement | @@ -22,14 +24,14 @@ TBlChildrenTest >> newChildAt: anIndex [ ^ anElement ] -{ #category : #fixture } +{ #category : 'fixture' } TBlChildrenTest >> newChildrenCollection [ "Instantiate the type of children collection under test" ^ self explicitRequirement ] -{ #category : #tests } +{ #category : 'tests' } TBlChildrenTest >> testAdd [ @@ -46,7 +48,7 @@ TBlChildrenTest >> testAdd [ ^ theChildren ] -{ #category : #tests } +{ #category : 'tests' } TBlChildrenTest >> testAddAt [ @@ -71,7 +73,7 @@ TBlChildrenTest >> testAddAt [ ^ theChildren ] -{ #category : #tests } +{ #category : 'tests' } TBlChildrenTest >> testAsArray [ | theChildren indices | @@ -82,7 +84,7 @@ TBlChildrenTest >> testAsArray [ ^ theChildren ] -{ #category : #tests } +{ #category : 'tests' } TBlChildrenTest >> testAsArrayEmpty [ | theChildren indices | @@ -93,7 +95,7 @@ TBlChildrenTest >> testAsArrayEmpty [ ^ theChildren ] -{ #category : #tests } +{ #category : 'tests' } TBlChildrenTest >> testAt [ | theChildren | @@ -106,7 +108,7 @@ TBlChildrenTest >> testAt [ ^ theChildren ] -{ #category : #tests } +{ #category : 'tests' } TBlChildrenTest >> testAtIfAbsent [ | theChildren | @@ -131,7 +133,7 @@ TBlChildrenTest >> testAtIfAbsent [ ^ theChildren ] -{ #category : #tests } +{ #category : 'tests' } TBlChildrenTest >> testEmptyChildren [ | theChildren | @@ -142,7 +144,7 @@ TBlChildrenTest >> testEmptyChildren [ ^ theChildren ] -{ #category : #tests } +{ #category : 'tests' } TBlChildrenTest >> testFirst [ | theChildren | @@ -151,7 +153,7 @@ TBlChildrenTest >> testFirst [ ^ theChildren ] -{ #category : #tests } +{ #category : 'tests' } TBlChildrenTest >> testIfEmpty [ | theChildren | @@ -160,7 +162,7 @@ TBlChildrenTest >> testIfEmpty [ ^ theChildren ] -{ #category : #tests } +{ #category : 'tests' } TBlChildrenTest >> testIfEmptyNot [ | theChildren | @@ -169,7 +171,7 @@ TBlChildrenTest >> testIfEmptyNot [ ^ theChildren ] -{ #category : #tests } +{ #category : 'tests' } TBlChildrenTest >> testIndexOf [ | theChildren | @@ -179,7 +181,7 @@ TBlChildrenTest >> testIndexOf [ ^ theChildren ] -{ #category : #tests } +{ #category : 'tests' } TBlChildrenTest >> testIndexOfUnknown [ | theChildren | @@ -188,7 +190,7 @@ TBlChildrenTest >> testIndexOfUnknown [ ^ theChildren ] -{ #category : #tests } +{ #category : 'tests' } TBlChildrenTest >> testIsEmpty [ | theChildren | @@ -199,7 +201,7 @@ TBlChildrenTest >> testIsEmpty [ ^ theChildren ] -{ #category : #tests } +{ #category : 'tests' } TBlChildrenTest >> testIsNotEmpty [ | theChildren | @@ -210,7 +212,7 @@ TBlChildrenTest >> testIsNotEmpty [ ^ theChildren ] -{ #category : #tests } +{ #category : 'tests' } TBlChildrenTest >> testLast [ | theChildren | @@ -219,7 +221,7 @@ TBlChildrenTest >> testLast [ ^ theChildren ] -{ #category : #tests } +{ #category : 'tests' } TBlChildrenTest >> testRemove [ | theChildren indices | @@ -231,7 +233,7 @@ TBlChildrenTest >> testRemove [ ^ theChildren ] -{ #category : #tests } +{ #category : 'tests' } TBlChildrenTest >> testRemoveAll [ | theChildren indices | @@ -246,7 +248,7 @@ TBlChildrenTest >> testRemoveAll [ ^ theChildren ] -{ #category : #tests } +{ #category : 'tests' } TBlChildrenTest >> testRemoveAt [ | theChildren indices | @@ -260,7 +262,7 @@ TBlChildrenTest >> testRemoveAt [ ^ theChildren ] -{ #category : #tests } +{ #category : 'tests' } TBlChildrenTest >> testSecond [ | theChildren | @@ -269,7 +271,7 @@ TBlChildrenTest >> testSecond [ ^ theChildren ] -{ #category : #tests } +{ #category : 'tests' } TBlChildrenTest >> testSelectThenCollect [ | theChildren collected | @@ -279,7 +281,7 @@ TBlChildrenTest >> testSelectThenCollect [ self assert: collected size equals: theChildren size ] -{ #category : #tests } +{ #category : 'tests' } TBlChildrenTest >> testSelectThenCollectEmpty [ | theChildren collected | @@ -289,7 +291,7 @@ TBlChildrenTest >> testSelectThenCollectEmpty [ self assert: collected isEmpty ] -{ #category : #tests } +{ #category : 'tests' } TBlChildrenTest >> testSize [ | theChildren | @@ -298,7 +300,7 @@ TBlChildrenTest >> testSize [ ^ theChildren ] -{ #category : #tests } +{ #category : 'tests' } TBlChildrenTest >> testSizeEmpty [ | theChildren | diff --git a/src/Bloc-UnitedTests/package.st b/src/Bloc-UnitedTests/package.st index 24e2ab4c4..8902989e3 100644 --- a/src/Bloc-UnitedTests/package.st +++ b/src/Bloc-UnitedTests/package.st @@ -1 +1 @@ -Package { #name : #'Bloc-UnitedTests' } +Package { #name : 'Bloc-UnitedTests' }