diff --git a/repository/OpenPonk-Core/OPTBorderColoredAsStroke.trait.st b/repository/OpenPonk-Core/OPTBorderColoredAsStroke.trait.st index ba1a9dae..b1dee070 100644 --- a/repository/OpenPonk-Core/OPTBorderColoredAsStroke.trait.st +++ b/repository/OpenPonk-Core/OPTBorderColoredAsStroke.trait.st @@ -23,7 +23,7 @@ OPTBorderColoredAsStroke >> strokeColor: aColor [ ^ self stylePropertyNamed: #strokeColor put: aColor ] -{ #category : 'update' } +{ #category : 'initialization' } OPTBorderColoredAsStroke >> updateBorderColorFromStyles [ self roassalShape diff --git a/repository/OpenPonk-Core/OPTColored.trait.st b/repository/OpenPonk-Core/OPTColored.trait.st index fc9a07ce..f1f9fc95 100644 --- a/repository/OpenPonk-Core/OPTColored.trait.st +++ b/repository/OpenPonk-Core/OPTColored.trait.st @@ -11,7 +11,7 @@ OPTColored >> color [ ^ self shouldBeImplemented ] -{ #category : 'update' } +{ #category : 'initialization' } OPTColored >> updateColorFromStyles [ self roassalShape @@ -27,7 +27,7 @@ OPTColored >> updateColorFromStyles [ self roassalShape color: self color ] -{ #category : 'update' } +{ #category : 'initialization' } OPTColored >> updateRenderFromStyles [ self isRendered ifFalse: [ ^ self ]. diff --git a/repository/OpenPonk-Core/OPTColoredAsFillAndBorderColoredAsStroke.trait.st b/repository/OpenPonk-Core/OPTColoredAsFillAndBorderColoredAsStroke.trait.st index a105bbd8..25159b8f 100644 --- a/repository/OpenPonk-Core/OPTColoredAsFillAndBorderColoredAsStroke.trait.st +++ b/repository/OpenPonk-Core/OPTColoredAsFillAndBorderColoredAsStroke.trait.st @@ -7,7 +7,7 @@ Trait { #tag : 'Shapes' } -{ #category : 'update' } +{ #category : 'initialization' } OPTColoredAsFillAndBorderColoredAsStroke >> updateRenderFromStyles [ self isRendered ifFalse: [ ^ self ]. diff --git a/repository/OpenPonk-Core/OPTColoredAsStroke.trait.st b/repository/OpenPonk-Core/OPTColoredAsStroke.trait.st index 5c17611c..fd90746c 100644 --- a/repository/OpenPonk-Core/OPTColoredAsStroke.trait.st +++ b/repository/OpenPonk-Core/OPTColoredAsStroke.trait.st @@ -7,7 +7,7 @@ Trait { #tag : 'Shapes' } -{ #category : 'update' } +{ #category : 'accessing' } OPTColoredAsStroke >> color [ ^ self strokeColor