From 3af5ca9e4581752926803663e9222ce6eab7e9f2 Mon Sep 17 00:00:00 2001 From: Jan Bliznicenko Date: Tue, 7 May 2024 18:13:28 +0200 Subject: [PATCH] Updates for Pharo 12 --- .../OpenPonk-Core/DoubleLink.extension.st | 12 +- .../OpenPonk-Core/MAContainer.extension.st | 6 +- .../ManifestOpenPonkCore.class.st | 12 +- .../NeoJSONObjectMapping.extension.st | 4 +- .../OpenPonk-Core/OPAbstractEdgeTest.class.st | 10 +- .../OPAbstractLabelTest.class.st | 14 +- .../OPAbstractShapeTest.class.st | 18 +- .../OPAllFiguresDeselected.class.st | 8 +- .../OpenPonk-Core/OPAutosaveManager.class.st | 32 +-- .../OPBaseControllerTest.class.st | 30 +-- repository/OpenPonk-Core/OPBoundNode.class.st | 32 +-- repository/OpenPonk-Core/OPBoundary.class.st | 38 +-- .../OPBoundaryController.class.st | 20 +- .../OPCloseEditorRequest.class.st | 14 +- .../OPCommonElementController.class.st | 28 ++- .../OpenPonk-Core/OPController.class.st | 99 ++++---- .../OPControllerFactory.class.st | 26 +- .../OPControllerFactoryRegistration.class.st | 24 +- ...ControllerFactoryRegistrationTest.class.st | 12 +- .../OPControllerFactoryTest.class.st | 16 +- .../OpenPonk-Core/OPControllerTest.class.st | 10 +- repository/OpenPonk-Core/OPCoreIcons.class.st | 136 +++++------ repository/OpenPonk-Core/OPDIBounds.class.st | 12 +- repository/OpenPonk-Core/OPDICamera.class.st | 12 +- .../OpenPonk-Core/OPDIOpenPonkStyle.class.st | 12 +- repository/OpenPonk-Core/OPDiagram.class.st | 42 ++-- .../OpenPonk-Core/OPDiagramCamera.class.st | 18 +- .../OPDiagramController.class.st | 226 +++++++++--------- .../OpenPonk-Core/OPDiagramInfo.class.st | 42 ++-- .../OpenPonk-Core/OPDiagramOnlyShape.class.st | 26 +- .../OPDiagramSerializer.class.st | 18 +- .../OpenPonk-Core/OPDiagramView.class.st | 8 +- .../OPDiagramViewCamera.class.st | 10 +- .../OpenPonk-Core/OPDiagramViewInfo.class.st | 8 +- ...DirectionalRelationshipController.class.st | 30 +-- repository/OpenPonk-Core/OPEdge.class.st | 38 +-- repository/OpenPonk-Core/OPEdgeLabel.class.st | 24 +- .../OPEditElementTextCommand.class.st | 36 +-- .../OPEditorAnnouncements.class.st | 16 +- .../OpenPonk-Core/OPEditorClosed.class.st | 8 +- .../OpenPonk-Core/OPEditorCreated.class.st | 8 +- .../OpenPonk-Core/OPEditorFocused.class.st | 8 +- .../OpenPonk-Core/OPEditorUnfocused.class.st | 8 +- .../OPElementController.class.st | 58 ++--- .../OPElementControllerTest.class.st | 26 +- .../OPElementLayoutTest.class.st | 28 ++- .../OpenPonk-Core/OPElementRenamed.class.st | 10 +- .../OPElementTextAttributeChanged.class.st | 14 +- .../OpenPonk-Core/OPExportInfo.class.st | 24 +- repository/OpenPonk-Core/OPIcons.class.st | 16 +- .../OpenPonk-Core/OPIdeaActionsIcons.class.st | 12 +- .../OpenPonk-Core/OPIdeaGraphIcons.class.st | 32 +-- .../OpenPonk-Core/OPIdeaWelcomeIcons.class.st | 20 +- .../OPInitialSetElementCommand.class.st | 10 +- .../OPInvisibleOnMouseShape.class.st | 18 +- .../OPJsonDiagramSerializer.class.st | 20 +- .../OPJsonDiagramSerializerTest.class.st | 8 +- .../OpenPonk-Core/OPJsonWriter.class.st | 12 +- repository/OpenPonk-Core/OPLabel.class.st | 44 ++-- repository/OpenPonk-Core/OPLabelTest.class.st | 8 +- .../OpenPonk-Core/OPLegacyDiagram.class.st | 84 +++---- .../OPLegacyDiagramCamera.class.st | 24 +- .../OPLegacyDiagramTest.class.st | 22 +- .../OPLegacyElementLayout.class.st | 48 ++-- .../OPLegacyRelationshipPath.class.st | 28 ++- repository/OpenPonk-Core/OPMemento.class.st | 32 +-- .../OPMementoDirectorySerializer.class.st | 30 +-- .../OPMementoSerializer.class.st | 16 +- .../OPModelAnnouncement.class.st | 14 +- .../OpenPonk-Core/OPModelChanged.class.st | 8 +- .../OPModelObjectReference.class.st | 22 +- .../OpenPonk-Core/OPModelObjectType.class.st | 34 +-- .../OpenPonk-Core/OPModelRemoved.class.st | 8 +- .../OpenPonk-Core/OPModelSerializer.class.st | 20 +- .../OPModelSerializerTest.class.st | 18 +- repository/OpenPonk-Core/OPNode.class.st | 30 +-- .../OpenPonk-Core/OPNodeBounds.class.st | 44 ++-- repository/OpenPonk-Core/OPNote.class.st | 38 +-- .../OpenPonk-Core/OPNoteController.class.st | 16 +- .../OPOpenEditorRequest.class.st | 14 +- .../OpenPonk-Core/OPOpenPonkDiagram.class.st | 28 ++- .../OPOpenPonkShapeStyle.class.st | 60 ++--- .../OPOpenPonkShapeStyleTest.class.st | 20 +- repository/OpenPonk-Core/OPPlugin.class.st | 42 ++-- .../OpenPonk-Core/OPPluginRegistry.class.st | 32 +-- .../OPPluginRegistryTest.class.st | 12 +- repository/OpenPonk-Core/OPProject.class.st | 84 +++---- .../OPProjectController.class.st | 98 ++++---- .../OPProjectControllerTest.class.st | 20 +- .../OPProjectDirectoryMaterializer.class.st | 34 +-- ...PProjectDirectoryMaterializerTest.class.st | 32 +-- .../OPProjectDirectorySerializer.class.st | 38 +-- .../OPProjectDirectorySerializerTest.class.st | 22 +- .../OPProjectSaveCanceledException.class.st | 8 +- .../OpenPonk-Core/OPProjectStorage.class.st | 24 +- .../OpenPonk-Core/OPProjectTest.class.st | 12 +- .../OPRelationshipController.class.st | 10 +- .../OPRenameElementCommand.class.st | 10 +- .../OpenPonk-Core/OPSerializer.class.st | 28 ++- repository/OpenPonk-Core/OPShape.class.st | 154 ++++++------ .../OpenPonk-Core/OPShapeStyle.class.st | 30 +-- .../OPStonDiagramSerializer.class.st | 20 +- .../OPStonModelSerializer.class.st | 24 +- .../OPTBorderColoredAsStroke.trait.st | 16 +- repository/OpenPonk-Core/OPTColored.trait.st | 12 +- .../OpenPonk-Core/OPTColoredAsFill.trait.st | 12 +- ...redAsFillAndBorderColoredAsStroke.trait.st | 8 +- .../OpenPonk-Core/OPTColoredAsFont.trait.st | 12 +- .../OpenPonk-Core/OPTColoredAsStroke.trait.st | 12 +- ...ationshipWithPathPointsController.trait.st | 14 +- .../OPTResizableFigureController.trait.st | 6 +- .../OPTResizableFigureWithText.trait.st | 24 +- .../OPTestAbstractModel.class.st | 16 +- .../OPTestContainerModel.class.st | 22 +- .../OPTestDiagramController.class.st | 16 +- .../OPTestDiagramControllerTest.class.st | 30 +-- .../OPTestDiagramElement.class.st | 10 +- repository/OpenPonk-Core/OPTestEdge.class.st | 10 +- .../OPTestEntityController.class.st | 20 +- .../OPTestEntityControllerTest.class.st | 48 ++-- .../OpenPonk-Core/OPTestEntityModel.class.st | 8 +- repository/OpenPonk-Core/OPTestLabel.class.st | 10 +- .../OpenPonk-Core/OPTestPlugin.class.st | 28 ++- .../OPTestRelationController.class.st | 14 +- .../OPTestRelationControllerTest.class.st | 40 ++-- .../OPTestRelationModel.class.st | 16 +- repository/OpenPonk-Core/OPUICommand.class.st | 18 +- repository/OpenPonk-Core/OPVersion.class.st | 90 +++---- .../OpenPonk-Core/OPZipPersistence.class.st | 12 +- .../OPZipPersistenceTest.class.st | 14 +- repository/OpenPonk-Core/Object.extension.st | 4 +- repository/OpenPonk-Core/UUID.extension.st | 4 +- repository/OpenPonk-Core/package.st | 2 +- .../CmdCommandActivator.extension.st | 4 +- .../CmdCommandMenuItem.extension.st | 4 +- repository/OpenPonk-Spec/CmdMenu.extension.st | 4 +- .../OpenPonk-Spec/CmdMenuGroup.extension.st | 8 +- .../OpenPonk-Spec/CmdMenuItem.extension.st | 4 +- .../CmdRootMenuGroup.extension.st | 4 +- .../OpenPonk-Spec/HandMorph.extension.st | 6 +- .../MAOptionDescription.extension.st | 6 +- .../ManifestOpenPonkSpec.class.st | 10 +- .../OpenPonk-Spec/OPApplication.class.st | 14 +- ...OPBoundaryAndNoteNavigatorAdapter.class.st | 22 +- .../OpenPonk-Spec/OPCanvasPresenter.class.st | 66 ++--- .../OPCherryPickShowHidePresenter.class.st | 22 +- .../OPConnectionCreationTool.class.st | 34 +-- .../OpenPonk-Spec/OPCreationTool.class.st | 22 +- .../OPDefaultNavigatorAdapter.class.st | 22 +- .../OpenPonk-Spec/OPDiagramExplorer.class.st | 34 +-- ...iagramFigureBlackFontColorCommand.class.st | 12 +- ...gramFigureBlackStrokeColorCommand.class.st | 12 +- ...DiagramFigureBlueFillColorCommand.class.st | 12 +- ...DiagramFigureBlueFontColorCommand.class.st | 12 +- ...agramFigureBlueStrokeColorCommand.class.st | 12 +- .../OPDiagramFigureColorCommand.class.st | 24 +- .../OPDiagramFigureCommand.class.st | 18 +- .../OPDiagramFigureContext.class.st | 34 +-- .../OPDiagramFigureDevCommand.class.st | 14 +- .../OPDiagramFigureDevMenuGroup.class.st | 10 +- .../OPDiagramFigureFillColorCommand.class.st | 12 +- .../OPDiagramFigureFontColorCommand.class.st | 12 +- ...DiagramFigureGrayFillColorCommand.class.st | 12 +- ...DiagramFigureGrayFontColorCommand.class.st | 12 +- ...agramFigureGrayStrokeColorCommand.class.st | 12 +- ...iagramFigureGreenFillColorCommand.class.st | 12 +- ...iagramFigureGreenFontColorCommand.class.st | 12 +- ...gramFigureGreenStrokeColorCommand.class.st | 12 +- ...gramFigureMagentaFillColorCommand.class.st | 12 +- ...gramFigureMagentaFontColorCommand.class.st | 12 +- ...amFigureMagentaStrokeColorCommand.class.st | 12 +- ...agramFigureOrangeFillColorCommand.class.st | 12 +- ...agramFigureOrangeFontColorCommand.class.st | 12 +- ...ramFigureOrangeStrokeColorCommand.class.st | 12 +- ...PDiagramFigureRedFillColorCommand.class.st | 12 +- ...PDiagramFigureRedFontColorCommand.class.st | 12 +- ...iagramFigureRedStrokeColorCommand.class.st | 12 +- ...OPDiagramFigureStrokeColorCommand.class.st | 12 +- ...FigureTransparentFillColorCommand.class.st | 14 +- ...iagramFigureWhiteFillColorCommand.class.st | 12 +- ...iagramFigureWhiteFontColorCommand.class.st | 12 +- ...gramFigureWhiteStrokeColorCommand.class.st | 12 +- ...agramFigureYellowFillColorCommand.class.st | 12 +- ...agramFigureYellowFontColorCommand.class.st | 12 +- ...ramFigureYellowStrokeColorCommand.class.st | 12 +- ...ramInspectControllerFigureCommand.class.st | 16 +- ...agramInspectDiagramElementCommand.class.st | 14 +- .../OPDiagramInspectFigureCommand.class.st | 14 +- ...PDiagramInspectModelFigureCommand.class.st | 16 +- .../OPDiagramRemoveFigureCommand.class.st | 28 ++- .../OPDiagramToolbarActivation.class.st | 8 +- .../OPDiagramToolbarBasicMenuGroup.class.st | 14 +- .../OPDiagramToolbarCommand.class.st | 16 +- .../OpenPonk-Spec/OPDiagramsList.class.st | 69 +++--- .../OPDominanceTreeLayoutCommand.class.st | 12 +- repository/OpenPonk-Spec/OPDslEditor.class.st | 54 +++-- .../OpenPonk-Spec/OPDynamicForm.class.st | 70 +++--- .../OPDynamicFormExamples.class.st | 10 +- .../OPDynamicFormMagritteVisitor.class.st | 38 +-- .../OPDynamicFormMagritteVisitorTest.class.st | 10 +- .../OPEdgeCreationTargetController.class.st | 17 +- .../OPEditableDropListMorph.class.st | 18 +- .../OPEditableDropListPresenter.class.st | 12 +- repository/OpenPonk-Spec/OPEditor.class.st | 76 +++--- .../OPEditorAnnouncementsTest.class.st | 78 ++++-- .../OpenPonk-Spec/OPEditorLayout.class.st | 30 +-- .../OPEditorPaletteLeftLayout.class.st | 14 +- .../OPEditorPaletteRightLayout.class.st | 14 +- .../OPExportImageDialog.class.st | 24 +- .../OPFigureColorMenuGroup.class.st | 16 +- .../OPFigureFillColorMenuGroup.class.st | 14 +- .../OPFigureFontColorMenuGroup.class.st | 14 +- .../OPFigureStrokeColorMenuGroup.class.st | 14 +- .../OPFitContentDiagramCommand.class.st | 16 +- .../OPGridLayoutCommand.class.st | 12 +- .../OPHideDependentFigureCommand.class.st | 10 +- .../OPHideFigureCommand.class.st | 12 +- .../OpenPonk-Spec/OPIconProvider.class.st | 10 +- .../OPLayoutDiagramCommand.class.st | 14 +- .../OPLayoutDiagramMenuGroup.class.st | 14 +- .../OPLayoutLoopDetector.class.st | 28 ++- repository/OpenPonk-Spec/OPLayouter.class.st | 42 ++-- .../OPLongTextPresenter.class.st | 8 +- .../OPMAActionDescription.class.st | 20 +- .../OPModelObjectTypeNode.class.st | 42 ++-- .../OpenPonk-Spec/OPModelTreeWidget.class.st | 50 ++-- .../OPModelTypeSelector.class.st | 24 +- .../OPMorphicEditableDropListAdapter.class.st | 12 +- .../OpenPonk-Spec/OPNavigatorAdapter.class.st | 74 +++--- .../OPNavigatorAdapters.class.st | 36 +-- .../OPNavigatorAdaptersTest.class.st | 16 +- .../OpenPonk-Spec/OPNoLayouter.class.st | 14 +- repository/OpenPonk-Spec/OPPalette.class.st | 76 +++--- .../OpenPonk-Spec/OPPaletteEntry.class.st | 30 +-- .../OPPaletteInitializer.class.st | 20 +- .../OpenPonk-Spec/OPPaletteTool.class.st | 30 +-- .../OPPragmaPluginMenuBuilder.class.st | 16 +- .../OpenPonk-Spec/OPProject.extension.st | 6 +- .../OpenPonk-Spec/OPProjectBrowser.class.st | 54 +++-- .../OpenPonk-Spec/OPProjectCommand.class.st | 14 +- .../OPProjectExitCommand.class.st | 16 +- .../OPProjectMergeCommand.class.st | 16 +- .../OPProjectMergeModelsCommand.class.st | 18 +- .../OpenPonk-Spec/OPProjectNavigator.class.st | 12 +- .../OPProjectNewModelCommand.class.st | 16 +- .../OPProjectOpenCommand.class.st | 16 +- .../OPProjectSaveAsCommand.class.st | 16 +- .../OPProjectSaveCommand.class.st | 16 +- .../OPRedoDiagramCommand.class.st | 16 +- .../OpenPonk-Spec/OPSelectionTool.class.st | 16 +- .../OPShowDependentFigureCommand.class.st | 10 +- ...PShowHideElementsInDiagramCommand.class.st | 16 +- .../OPShowHideElementsSelected.class.st | 8 +- .../OPShowHideElementsUnselected.class.st | 8 +- .../OpenPonk-Spec/OPShowHideFacade.class.st | 22 +- .../OPShowHidePresenter.class.st | 26 +- .../OPShowHideSelectionChanged.class.st | 12 +- .../OPShowHideTabContentPresenter.class.st | 44 ++-- .../OPSugiyamaLayoutCommand.class.st | 12 +- .../OpenPonk-Spec/OPTabHeaderAdapter.class.st | 12 +- .../OPTabHeaderPresenter.class.st | 16 +- .../OPToggleFigureCommand.class.st | 22 +- .../OPToggleFigureMenuGroup.class.st | 10 +- .../OPTreeLayoutCommand.class.st | 12 +- .../OPTypesShowHidePresenter.class.st | 30 +-- .../OPUndoDiagramCommand.class.st | 16 +- repository/OpenPonk-Spec/OPUpdater.class.st | 18 +- .../OpenPonk-Spec/OPVersionInfo.class.st | 24 +- .../OPWProjectExitMenuGroup.class.st | 12 +- .../OPWProjectModelsMenuGroup.class.st | 12 +- .../OPWProjectOpenMenuGroup.class.st | 12 +- .../OPWProjectSaveMenuGroup.class.st | 12 +- repository/OpenPonk-Spec/OPWorkbench.class.st | 74 +++--- .../OPWorkbenchActivation.class.st | 8 +- .../OpenPonk-Spec/OPWorkbenchToolbar.class.st | 36 +-- .../OPZoomActualDiagramCommand.class.st | 16 +- .../OPZoomInDiagramCommand.class.st | 16 +- .../OPZoomOutDiagramCommand.class.st | 16 +- .../SpDropListPresenter.extension.st | 6 +- repository/OpenPonk-Spec/String.extension.st | 4 +- .../ToggleMenuItemShortcut.extension.st | 4 +- .../WindowsResolver.extension.st | 4 +- repository/OpenPonk-Spec/package.st | 2 +- 283 files changed, 3480 insertions(+), 2919 deletions(-) diff --git a/repository/OpenPonk-Core/DoubleLink.extension.st b/repository/OpenPonk-Core/DoubleLink.extension.st index 4d02bf3ab..80ad63991 100644 --- a/repository/OpenPonk-Core/DoubleLink.extension.st +++ b/repository/OpenPonk-Core/DoubleLink.extension.st @@ -1,6 +1,6 @@ -Extension { #name : #DoubleLink } +Extension { #name : 'DoubleLink' } -{ #category : #'*OpenPonk-Core-accessing' } +{ #category : '*OpenPonk-Core-accessing' } DoubleLink >> addPredecessor: aLink [ | oldPredeccessor | oldPredeccessor := self previousLink. @@ -10,7 +10,7 @@ DoubleLink >> addPredecessor: aLink [ self previousLink: aLink ] -{ #category : #'*OpenPonk-Core-accessing' } +{ #category : '*OpenPonk-Core-accessing' } DoubleLink >> addSuccessor: aLink [ | oldSuccessor | oldSuccessor := self nextLink. @@ -20,17 +20,17 @@ DoubleLink >> addSuccessor: aLink [ self nextLink: aLink ] -{ #category : #'*OpenPonk-Core-accessing' } +{ #category : '*OpenPonk-Core-accessing' } DoubleLink >> next [ ^ self nextLink ] -{ #category : #'*OpenPonk-Core-accessing' } +{ #category : '*OpenPonk-Core-accessing' } DoubleLink >> previous [ ^ self previousLink ] -{ #category : #'*OpenPonk-Core-accessing' } +{ #category : '*OpenPonk-Core-accessing' } DoubleLink >> removeLink [ | predecessor successor | predecessor := self previousLink. diff --git a/repository/OpenPonk-Core/MAContainer.extension.st b/repository/OpenPonk-Core/MAContainer.extension.st index 94172b7c6..7cf687c98 100644 --- a/repository/OpenPonk-Core/MAContainer.extension.st +++ b/repository/OpenPonk-Core/MAContainer.extension.st @@ -1,12 +1,12 @@ -Extension { #name : #MAContainer } +Extension { #name : 'MAContainer' } -{ #category : #'*OpenPonk-Core' } +{ #category : '*OpenPonk-Core' } MAContainer >> definingContext [ ^ self propertyAt: #definingContext ifAbsent: [ nil ] ] -{ #category : #'*OpenPonk-Core' } +{ #category : '*OpenPonk-Core' } MAContainer >> definingContext: anMADefiningContext [ ^ self propertyAt: #definingContext put: anMADefiningContext diff --git a/repository/OpenPonk-Core/ManifestOpenPonkCore.class.st b/repository/OpenPonk-Core/ManifestOpenPonkCore.class.st index ba6965f91..0a3273a8e 100644 --- a/repository/OpenPonk-Core/ManifestOpenPonkCore.class.st +++ b/repository/OpenPonk-Core/ManifestOpenPonkCore.class.st @@ -1,15 +1,17 @@ Class { - #name : #ManifestOpenPonkCore, - #superclass : #PackageManifest, - #category : #'OpenPonk-Core-Manifest' + #name : 'ManifestOpenPonkCore', + #superclass : 'PackageManifest', + #category : 'OpenPonk-Core-Manifest', + #package : 'OpenPonk-Core', + #tag : 'Manifest' } -{ #category : #'code-critics' } +{ #category : 'code-critics' } ManifestOpenPonkCore class >> ruleRTInvocationSequenceRuleV1FalsePositive [ ^ #(#(#(#RGMethodDefinition #(#OPTRelationshipWithPathPointsController #layout #false)) #'2021-07-21T17:15:27.877427+02:00') #(#(#RGMethodDefinition #(#OPTRelationshipWithPathPointsController #layout: #false)) #'2021-07-21T17:17:28.272427+02:00') ) ] -{ #category : #'code-critics' } +{ #category : 'code-critics' } ManifestOpenPonkCore class >> ruleReTestClassNotInPackageWithTestEndingNameV1FalsePositive [ ^ #(#(#(#RGPackageDefinition #(#'OpenPonk-Core')) #'2020-05-27T10:56:37.652665+02:00') ) ] diff --git a/repository/OpenPonk-Core/NeoJSONObjectMapping.extension.st b/repository/OpenPonk-Core/NeoJSONObjectMapping.extension.st index 03d6af918..07062683d 100644 --- a/repository/OpenPonk-Core/NeoJSONObjectMapping.extension.st +++ b/repository/OpenPonk-Core/NeoJSONObjectMapping.extension.st @@ -1,6 +1,6 @@ -Extension { #name : #NeoJSONObjectMapping } +Extension { #name : 'NeoJSONObjectMapping' } -{ #category : #'*OpenPonk-Core' } +{ #category : '*OpenPonk-Core' } NeoJSONObjectMapping >> sortProperties [ properties := properties sorted: #propertyName ascending ] diff --git a/repository/OpenPonk-Core/OPAbstractEdgeTest.class.st b/repository/OpenPonk-Core/OPAbstractEdgeTest.class.st index 1940d3289..8740869c8 100644 --- a/repository/OpenPonk-Core/OPAbstractEdgeTest.class.st +++ b/repository/OpenPonk-Core/OPAbstractEdgeTest.class.st @@ -1,10 +1,12 @@ Class { - #name : #OPAbstractEdgeTest, - #superclass : #OPAbstractShapeTest, - #category : #'OpenPonk-Core-Tests' + #name : 'OPAbstractEdgeTest', + #superclass : 'OPAbstractShapeTest', + #category : 'OpenPonk-Core-Tests', + #package : 'OpenPonk-Core', + #tag : 'Tests' } -{ #category : #tests } +{ #category : 'tests' } OPAbstractEdgeTest >> testRenderSimplifiedForController [ | diagramController controller connectedController rsBox connectedShape | diff --git a/repository/OpenPonk-Core/OPAbstractLabelTest.class.st b/repository/OpenPonk-Core/OPAbstractLabelTest.class.st index 31a10a572..75efe3a22 100644 --- a/repository/OpenPonk-Core/OPAbstractLabelTest.class.st +++ b/repository/OpenPonk-Core/OPAbstractLabelTest.class.st @@ -1,15 +1,17 @@ Class { - #name : #OPAbstractLabelTest, - #superclass : #OPAbstractShapeTest, - #category : #'OpenPonk-Core-Tests' + #name : 'OPAbstractLabelTest', + #superclass : 'OPAbstractShapeTest', + #category : 'OpenPonk-Core-Tests', + #package : 'OpenPonk-Core', + #tag : 'Tests' } -{ #category : #hooks } +{ #category : 'hooks' } OPAbstractLabelTest >> shapeClass [ ^ OPTestLabel ] -{ #category : #tests } +{ #category : 'tests' } OPAbstractLabelTest >> testRoassalShape [ | roassalShape | @@ -20,7 +22,7 @@ OPAbstractLabelTest >> testRoassalShape [ self assert: roassalShape text equals: 'some text' ] -{ #category : #tests } +{ #category : 'tests' } OPAbstractLabelTest >> testRoassalShapeEmphasis [ | roassalShape | diff --git a/repository/OpenPonk-Core/OPAbstractShapeTest.class.st b/repository/OpenPonk-Core/OPAbstractShapeTest.class.st index 5f04cb4d0..6fde11021 100644 --- a/repository/OpenPonk-Core/OPAbstractShapeTest.class.st +++ b/repository/OpenPonk-Core/OPAbstractShapeTest.class.st @@ -1,24 +1,26 @@ Class { - #name : #OPAbstractShapeTest, - #superclass : #TestCase, + #name : 'OPAbstractShapeTest', + #superclass : 'TestCase', #instVars : [ 'canvas', 'shape' ], - #category : #'OpenPonk-Core-Tests' + #category : 'OpenPonk-Core-Tests', + #package : 'OpenPonk-Core', + #tag : 'Tests' } -{ #category : #testing } +{ #category : 'testing' } OPAbstractShapeTest class >> isAbstract [ ^ self name includesSubstring: 'Abstract' ] -{ #category : #'instance creation' } +{ #category : 'instance creation' } OPAbstractShapeTest >> newShapeInstance [ ^ self shapeClass new ] -{ #category : #running } +{ #category : 'running' } OPAbstractShapeTest >> setUp [ super setUp. @@ -26,12 +28,12 @@ OPAbstractShapeTest >> setUp [ canvas := RSCanvas new ] -{ #category : #hooks } +{ #category : 'hooks' } OPAbstractShapeTest >> shapeClass [ ^ self subclassResponsibility ] -{ #category : #tests } +{ #category : 'tests' } OPAbstractShapeTest >> testRenderSimplifiedForController [ | diagramController controller | diff --git a/repository/OpenPonk-Core/OPAllFiguresDeselected.class.st b/repository/OpenPonk-Core/OPAllFiguresDeselected.class.st index 0bc15ae41..ea85fc453 100644 --- a/repository/OpenPonk-Core/OPAllFiguresDeselected.class.st +++ b/repository/OpenPonk-Core/OPAllFiguresDeselected.class.st @@ -1,5 +1,7 @@ Class { - #name : #OPAllFiguresDeselected, - #superclass : #Announcement, - #category : #'OpenPonk-Core-Controllers' + #name : 'OPAllFiguresDeselected', + #superclass : 'Announcement', + #category : 'OpenPonk-Core-Controllers', + #package : 'OpenPonk-Core', + #tag : 'Controllers' } diff --git a/repository/OpenPonk-Core/OPAutosaveManager.class.st b/repository/OpenPonk-Core/OPAutosaveManager.class.st index a9fe28608..7c744a260 100644 --- a/repository/OpenPonk-Core/OPAutosaveManager.class.st +++ b/repository/OpenPonk-Core/OPAutosaveManager.class.st @@ -6,60 +6,62 @@ I manage autosaving and undo/redo operations of a single controller. As I manage only a single controller, do not rely on this for cross-model operations (such as instance modeling), as changes in the ""linked-to"" model can make your model invalid if you undo/redo/recover only the instance. " Class { - #name : #OPAutosaveManager, - #superclass : #Object, + #name : 'OPAutosaveManager', + #superclass : 'Object', #instVars : [ 'history', 'current', 'future', 'serializer' ], - #category : #'OpenPonk-Core-Persistence' + #category : 'OpenPonk-Core-Persistence', + #package : 'OpenPonk-Core', + #tag : 'Persistence' } -{ #category : #'instance creation' } +{ #category : 'instance creation' } OPAutosaveManager class >> on: aSerializer [ ^ self new serializer: aSerializer; yourself ] -{ #category : #'instance creation' } +{ #category : 'instance creation' } OPAutosaveManager >> autosaveFileFor: aUUID [ self autosavePath ensureCreateDirectory. ^ self autosavePath / aUUID asString , 'ston' ] -{ #category : #accessing } +{ #category : 'accessing' } OPAutosaveManager >> autosavePath [ ^ FileLocator imageDirectory asFileReference / 'autosave' ] -{ #category : #testing } +{ #category : 'testing' } OPAutosaveManager >> futureIsEmpty [ ^ future isEmpty ] -{ #category : #testing } +{ #category : 'testing' } OPAutosaveManager >> historyIsEmpty [ ^ history isEmpty ] -{ #category : #initialization } +{ #category : 'initialization' } OPAutosaveManager >> initialize [ super initialize. history := OrderedCollection new. future := OrderedCollection new ] -{ #category : #'save/load' } +{ #category : 'save/load' } OPAutosaveManager >> loadCurrent [ current ifNil: [ ^ nil ]. ^ current readStreamDo: [ :stream | self serializer materializeFrom: stream ] ] -{ #category : #'save/load' } +{ #category : 'save/load' } OPAutosaveManager >> loadNext [ future ifEmpty: [ ^ nil ]. history addLast: current. @@ -68,7 +70,7 @@ OPAutosaveManager >> loadNext [ readStreamDo: [ :stream | self serializer materializeFrom: stream ] ] -{ #category : #'save/load' } +{ #category : 'save/load' } OPAutosaveManager >> loadPrevious [ history ifEmpty: [ ^ nil ]. future addLast: current. @@ -77,7 +79,7 @@ OPAutosaveManager >> loadPrevious [ readStreamDo: [ :stream | self serializer materializeFrom: stream ] ] -{ #category : #'save/load' } +{ #category : 'save/load' } OPAutosaveManager >> saveState: aMemento [ future reset. current ifNotNil: [ history addLast: current ]. @@ -91,12 +93,12 @@ OPAutosaveManager >> saveState: aMemento [ nextPutAll: current ] ] -{ #category : #accessing } +{ #category : 'accessing' } OPAutosaveManager >> serializer [ ^ serializer ] -{ #category : #accessing } +{ #category : 'accessing' } OPAutosaveManager >> serializer: aSerializer [ serializer := aSerializer ] diff --git a/repository/OpenPonk-Core/OPBaseControllerTest.class.st b/repository/OpenPonk-Core/OPBaseControllerTest.class.st index 2868c82fd..efbb083aa 100644 --- a/repository/OpenPonk-Core/OPBaseControllerTest.class.st +++ b/repository/OpenPonk-Core/OPBaseControllerTest.class.st @@ -2,48 +2,50 @@ I provide basic scaffolding and utility functions to ease the testing of controllers. " Class { - #name : #OPBaseControllerTest, - #superclass : #TestCase, + #name : 'OPBaseControllerTest', + #superclass : 'TestCase', #instVars : [ 'controller', 'diagramController', 'model' ], - #category : #'OpenPonk-Core-Controllers - Tests' + #category : 'OpenPonk-Core-Controllers - Tests', + #package : 'OpenPonk-Core', + #tag : 'Controllers - Tests' } -{ #category : #testing } +{ #category : 'testing' } OPBaseControllerTest class >> isAbstract [ ^ self = OPBaseControllerTest ] -{ #category : #accessing } +{ #category : 'accessing' } OPBaseControllerTest >> controllerClass [ ^ self subclassResponsibility ] -{ #category : #accessing } +{ #category : 'accessing' } OPBaseControllerTest >> diagramControllerClass [ ^ self subclassResponsibility ] -{ #category : #construction } +{ #category : 'construction' } OPBaseControllerTest >> diagramElementClass [ ^ OPTestDiagramElement ] -{ #category : #accessing } +{ #category : 'accessing' } OPBaseControllerTest >> diagramModelClass [ ^ self subclassResponsibility ] -{ #category : #accessing } +{ #category : 'accessing' } OPBaseControllerTest >> modelClass [ ^ self subclassResponsibility ] -{ #category : #'instance creation' } +{ #category : 'instance creation' } OPBaseControllerTest >> newModel [ | aModel | @@ -53,7 +55,7 @@ OPBaseControllerTest >> newModel [ ^ aModel ] -{ #category : #running } +{ #category : 'running' } OPBaseControllerTest >> setUp [ super setUp. @@ -66,20 +68,20 @@ OPBaseControllerTest >> setUp [ model := self newModel ] -{ #category : #support } +{ #category : 'support' } OPBaseControllerTest >> stubRefresh [ controller stub figure willReturn: Mock new. controller stub refreshFigure willReturn: controller ] -{ #category : #tests } +{ #category : 'tests' } OPBaseControllerTest >> testIsSupported [ self diagramControllerClass = self controllerClass ifTrue: [ ^ self ]. self assert: (diagramController hasSupportForModel: model) ] -{ #category : #tests } +{ #category : 'tests' } OPBaseControllerTest >> testModelClass [ self diagramControllerClass = self controllerClass ifTrue: [ ^ self ]. diff --git a/repository/OpenPonk-Core/OPBoundNode.class.st b/repository/OpenPonk-Core/OPBoundNode.class.st index f46706c56..0fb5b0885 100644 --- a/repository/OpenPonk-Core/OPBoundNode.class.st +++ b/repository/OpenPonk-Core/OPBoundNode.class.st @@ -1,13 +1,15 @@ Class { - #name : #OPBoundNode, - #superclass : #OPNode, + #name : 'OPBoundNode', + #superclass : 'OPNode', #instVars : [ 'bounds' ], - #category : #'OpenPonk-Core-Shapes' + #category : 'OpenPonk-Core-Shapes', + #package : 'OpenPonk-Core', + #tag : 'Shapes' } -{ #category : #'ston-core' } +{ #category : 'ston-core' } OPBoundNode class >> stonAllInstVarNames [ "Override to encode my instances using a custom set of instance variables or to define their order." @@ -15,7 +17,7 @@ OPBoundNode class >> stonAllInstVarNames [ ^ super stonAllInstVarNames , #( #bounds ) ] -{ #category : #'as yet unclassified' } +{ #category : 'as yet unclassified' } OPBoundNode >> allOwnedShapesPositionableByUser [ self isRendered ifFalse: [ ^ #( ) ]. @@ -24,31 +26,31 @@ OPBoundNode >> allOwnedShapesPositionableByUser [ ^ { self } , super allOwnedShapesPositionableByUser ] -{ #category : #accessing } +{ #category : 'accessing' } OPBoundNode >> bounds [ ^ bounds ] -{ #category : #accessing } +{ #category : 'accessing' } OPBoundNode >> bounds: anObject [ bounds := anObject ] -{ #category : #accessing } +{ #category : 'accessing' } OPBoundNode >> extent [ ^ (roassalShape ifNil: [ self bounds ]) extent ] -{ #category : #'as yet unclassified' } +{ #category : 'as yet unclassified' } OPBoundNode >> isResizableByUser [ ^ true ] -{ #category : #'as yet unclassified' } +{ #category : 'as yet unclassified' } OPBoundNode >> moveToEmptySpace [ | spacing neededSpace canvasRectangle possibleCanvas occupiedRectangles | @@ -82,13 +84,13 @@ OPBoundNode >> moveToEmptySpace [ maxFoundOccupiedY max: each bottom ] ] -{ #category : #accessing } +{ #category : 'accessing' } OPBoundNode >> position [ ^ (roassalShape ifNil: [ self bounds ]) position ] -{ #category : #rendering } +{ #category : 'rendering' } OPBoundNode >> renderIn: aCanvas [ self isRendered ifTrue: [ ^ self ]. @@ -98,7 +100,7 @@ OPBoundNode >> renderIn: aCanvas [ ^ roassalShape ] -{ #category : #'as yet unclassified' } +{ #category : 'as yet unclassified' } OPBoundNode >> updateFromRender [ self isResizableByUser | self isPositionableByUser ifTrue: [ @@ -108,7 +110,7 @@ OPBoundNode >> updateFromRender [ super updateFromRender ] -{ #category : #roassal } +{ #category : 'roassal' } OPBoundNode >> updateRenderFromBounds [ bounds ifNil: [ ^ self ]. @@ -117,7 +119,7 @@ OPBoundNode >> updateRenderFromBounds [ roassalShape translateTo: bounds position ] ] -{ #category : #roassal } +{ #category : 'roassal' } OPBoundNode >> updateRenderFromSelf [ self isRendered ifFalse: [ ^ self ]. diff --git a/repository/OpenPonk-Core/OPBoundary.class.st b/repository/OpenPonk-Core/OPBoundary.class.st index a458c5aa6..0c8f3a644 100644 --- a/repository/OpenPonk-Core/OPBoundary.class.st +++ b/repository/OpenPonk-Core/OPBoundary.class.st @@ -1,6 +1,6 @@ Class { - #name : #OPBoundary, - #superclass : #OPDiagramOnlyShape, + #name : 'OPBoundary', + #superclass : 'OPDiagramOnlyShape', #traits : 'OPTResizableFigureWithText', #classTraits : 'OPTResizableFigureWithText classTrait', #instVars : [ @@ -9,10 +9,12 @@ Class { 'dragBoxUpdateBlocks', 'dragBoxes' ], - #category : #'OpenPonk-Core-CommonElements' + #category : 'OpenPonk-Core-CommonElements', + #package : 'OpenPonk-Core', + #tag : 'CommonElements' } -{ #category : #'ston-core' } +{ #category : 'ston-core' } OPBoundary class >> stonAllInstVarNames [ "Override to encode my instances using a custom set of instance variables or to define their order." @@ -20,40 +22,40 @@ OPBoundary class >> stonAllInstVarNames [ ^ super stonAllInstVarNames , #( #name ) ] -{ #category : #'creating - subelements' } +{ #category : 'creating - subelements' } OPBoundary >> addSelectionDraggableInteraction [ roassalShape @ OPRSSelectionDraggableBorder thatAlsoDragsContainedShapes ] -{ #category : #accessing } +{ #category : 'accessing' } OPBoundary >> defaultHeight [ ^ 400 ] -{ #category : #accessing } +{ #category : 'accessing' } OPBoundary >> defaultWidth [ ^ 500 ] -{ #category : #initialization } +{ #category : 'initialization' } OPBoundary >> initialize [ super initialize. name := '' ] -{ #category : #accessing } +{ #category : 'accessing' } OPBoundary >> name [ ^ name ] -{ #category : #accessing } +{ #category : 'accessing' } OPBoundary >> name: aString [ name := aString ] -{ #category : #printing } +{ #category : 'printing' } OPBoundary >> printOn: aStream [ super printOn: aStream. aStream @@ -62,7 +64,7 @@ OPBoundary >> printOn: aStream [ nextPutAll: ''')' ] -{ #category : #'creating - subelements' } +{ #category : 'creating - subelements' } OPBoundary >> renderBasicShape [ ^ RSBox new @@ -76,20 +78,20 @@ OPBoundary >> renderBasicShape [ yourself ] -{ #category : #'creating - subelements' } +{ #category : 'creating - subelements' } OPBoundary >> renderShapeDetails [ super renderShapeDetails. self renderLabel ] -{ #category : #'creating - subelements' } +{ #category : 'creating - subelements' } OPBoundary >> selectableInteraction [ ^ OPRSSelectable ] -{ #category : #'creating - subelements' } +{ #category : 'creating - subelements' } OPBoundary >> setupLabelLocation: aLocation [ aLocation @@ -98,19 +100,19 @@ OPBoundary >> setupLabelLocation: aLocation [ inner ] -{ #category : #interactions } +{ #category : 'interactions' } OPBoundary >> shouldBePositionableByUser [ ^ true ] -{ #category : #interactions } +{ #category : 'interactions' } OPBoundary >> shouldBeResizableByUser [ ^ true ] -{ #category : #accessing } +{ #category : 'accessing' } OPBoundary >> text [ ^ self name ] diff --git a/repository/OpenPonk-Core/OPBoundaryController.class.st b/repository/OpenPonk-Core/OPBoundaryController.class.st index cf2b1aa60..00448173d 100644 --- a/repository/OpenPonk-Core/OPBoundaryController.class.st +++ b/repository/OpenPonk-Core/OPBoundaryController.class.st @@ -1,23 +1,25 @@ Class { - #name : #OPBoundaryController, - #superclass : #OPCommonElementController, + #name : 'OPBoundaryController', + #superclass : 'OPCommonElementController', #traits : 'OPTResizableFigureController', #classTraits : 'OPTResizableFigureController classTrait', - #category : #'OpenPonk-Core-CommonElements' + #category : 'OpenPonk-Core-CommonElements', + #package : 'OpenPonk-Core', + #tag : 'CommonElements' } -{ #category : #'as yet unclassified' } +{ #category : 'as yet unclassified' } OPBoundaryController class >> paletteItemName [ ^ #boundary ] -{ #category : #connecting } +{ #category : 'connecting' } OPBoundaryController >> addAsTargetFor: aController [ ^ self diagramController addAsTargetFor: aController ] -{ #category : #forms } +{ #category : 'forms' } OPBoundaryController >> buildEditorForm: aForm [ (aForm addText: 'Name') @@ -27,18 +29,18 @@ OPBoundaryController >> buildEditorForm: aForm [ self diagramElement updateText ] ] -{ #category : #connecting } +{ #category : 'connecting' } OPBoundaryController >> canBeTargetFor: aController [ ^ self diagramController canBeTargetFor: aController ] -{ #category : #accessing } +{ #category : 'accessing' } OPBoundaryController >> diagramElementClass [ ^ OPBoundary ] -{ #category : #announcements } +{ #category : 'announcements' } OPBoundaryController >> renderDiagramElement [ super renderDiagramElement. diff --git a/repository/OpenPonk-Core/OPCloseEditorRequest.class.st b/repository/OpenPonk-Core/OPCloseEditorRequest.class.st index f7b7b5a00..e3b4b34c6 100644 --- a/repository/OpenPonk-Core/OPCloseEditorRequest.class.st +++ b/repository/OpenPonk-Core/OPCloseEditorRequest.class.st @@ -2,27 +2,29 @@ Fire me on any DiagramController's MODEL and the Editor operating on the model will be closed. If it doesn't exist then nothing will happen. " Class { - #name : #OPCloseEditorRequest, - #superclass : #Announcement, + #name : 'OPCloseEditorRequest', + #superclass : 'Announcement', #instVars : [ 'model' ], - #category : #'OpenPonk-Core-Announcements' + #category : 'OpenPonk-Core-Announcements', + #package : 'OpenPonk-Core', + #tag : 'Announcements' } -{ #category : #accessing } +{ #category : 'accessing' } OPCloseEditorRequest class >> model: aModel [ ^ self new model: aModel; yourself ] -{ #category : #accessing } +{ #category : 'accessing' } OPCloseEditorRequest >> model [ ^ model ] -{ #category : #accessing } +{ #category : 'accessing' } OPCloseEditorRequest >> model: anObject [ model := anObject ] diff --git a/repository/OpenPonk-Core/OPCommonElementController.class.st b/repository/OpenPonk-Core/OPCommonElementController.class.st index 65c87089f..f53d79436 100644 --- a/repository/OpenPonk-Core/OPCommonElementController.class.st +++ b/repository/OpenPonk-Core/OPCommonElementController.class.st @@ -1,15 +1,17 @@ Class { - #name : #OPCommonElementController, - #superclass : #OPElementController, - #category : #'OpenPonk-Core-CommonElements' + #name : 'OPCommonElementController', + #superclass : 'OPElementController', + #category : 'OpenPonk-Core-CommonElements', + #package : 'OpenPonk-Core', + #tag : 'CommonElements' } -{ #category : #'as yet unclassified' } +{ #category : 'as yet unclassified' } OPCommonElementController class >> paletteItemName [ ^ self subclassResponsibility ] -{ #category : #construction } +{ #category : 'construction' } OPCommonElementController >> createModelIn: aParentModel [ "do nothing - common model elements are not part of any model" @@ -17,14 +19,14 @@ OPCommonElementController >> createModelIn: aParentModel [ ^ nil ] -{ #category : #accessing } +{ #category : 'accessing' } OPCommonElementController >> ensureDiagramElement [ diagramElement ifNil: [ self createDiagramElement ]. ^ diagramElement ] -{ #category : #announcements } +{ #category : 'announcements' } OPCommonElementController >> internalSubscribeTo: aModel [ "do nothing" @@ -32,35 +34,35 @@ OPCommonElementController >> internalSubscribeTo: aModel [ ] -{ #category : #testing } +{ #category : 'testing' } OPCommonElementController >> isCommon [ ^ true ] -{ #category : #accessing } +{ #category : 'accessing' } OPCommonElementController >> model [ ^ self diagramElement ] -{ #category : #accessing } +{ #category : 'accessing' } OPCommonElementController >> model: aModel [ self diagramElement: aModel ] -{ #category : #accessing } +{ #category : 'accessing' } OPCommonElementController >> modelClass [ ^ self diagramElementClass ] -{ #category : #'as yet unclassified' } +{ #category : 'as yet unclassified' } OPCommonElementController >> paletteItemName [ ^ self class paletteItemName ] -{ #category : #private } +{ #category : 'private' } OPCommonElementController >> removeModel [ "do nothing - common model elements are not part of any model" diff --git a/repository/OpenPonk-Core/OPController.class.st b/repository/OpenPonk-Core/OPController.class.st index 9911f9704..03a9bbd84 100644 --- a/repository/OpenPonk-Core/OPController.class.st +++ b/repository/OpenPonk-Core/OPController.class.st @@ -2,22 +2,24 @@ A DCController is the parent class to all controller classes. " Class { - #name : #OPController, - #superclass : #Object, + #name : 'OPController', + #superclass : 'Object', #instVars : [ 'model', 'diagramController', 'diagramElement' ], - #category : #'OpenPonk-Core-Controllers' + #category : 'OpenPonk-Core-Controllers', + #package : 'OpenPonk-Core', + #tag : 'Controllers' } -{ #category : #accessing } +{ #category : 'accessing' } OPController class >> modelClass [ ^ self new modelClass ] -{ #category : #connecting } +{ #category : 'connecting' } OPController >> addAsSourceFor: aController [ (self canBeSourceFor: aController) ifFalse: [ self @@ -27,7 +29,7 @@ OPController >> addAsSourceFor: aController [ aController source: self ] -{ #category : #connecting } +{ #category : 'connecting' } OPController >> addAsTargetFor: aController [ (self canBeTargetFor: aController) ifFalse: [ self @@ -40,27 +42,27 @@ OPController >> addAsTargetFor: aController [ andShowInDiagram: self diagramController ] -{ #category : #forms } +{ #category : 'forms' } OPController >> buildEditorForm: aForm [ aForm fromMagritteDescriptions: self magritteDescription ] -{ #category : #connecting } +{ #category : 'connecting' } OPController >> canBeSourceFor: aController [ ^ false ] -{ #category : #connecting } +{ #category : 'connecting' } OPController >> canBeTargetFor: aController [ ^ false ] -{ #category : #'as yet unclassified' } +{ #category : 'as yet unclassified' } OPController >> commonModelClassPrefix [ ^ 'OP' ] -{ #category : #accessing } +{ #category : 'accessing' } OPController >> dependentControllers [ ^ self dependentElements collect: @@ -68,12 +70,12 @@ OPController >> dependentControllers [ thenSelect: #isNotNil ] -{ #category : #accessing } +{ #category : 'accessing' } OPController >> dependentElements [ ^ self elementsToShowInside ] -{ #category : #forms } +{ #category : 'forms' } OPController >> descriptionAccessor: aSymbol [ ^ MAPluggableAccessor read: [ :me | me model perform: aSymbol ] @@ -82,7 +84,7 @@ OPController >> descriptionAccessor: aSymbol [ self modelChanged ] ] -{ #category : #forms } +{ #category : 'forms' } OPController >> descriptionName [ @@ -99,34 +101,34 @@ OPController >> descriptionName [ yourself ] -{ #category : #accessing } +{ #category : 'accessing' } OPController >> diagramController [ ^ diagramController ] -{ #category : #accessing } +{ #category : 'accessing' } OPController >> diagramController: aDiagramController [ diagramController := aDiagramController ] -{ #category : #accessing } +{ #category : 'accessing' } OPController >> diagramElement [ ^ diagramElement ] -{ #category : #accessing } +{ #category : 'accessing' } OPController >> diagramElement: aDiagramElement [ diagramElement := aDiagramElement ] -{ #category : #accessing } +{ #category : 'accessing' } OPController >> elementsToShowInside [ ^ #() ] -{ #category : #accessing } +{ #category : 'accessing' } OPController >> ensureDiagramElement [ self assert: diagramElement isNotNil. @@ -134,7 +136,7 @@ OPController >> ensureDiagramElement [ ^ diagramElement ] -{ #category : #figures } +{ #category : 'figures' } OPController >> figure [ self @@ -144,36 +146,37 @@ OPController >> figure [ ^ self diagramElement ] -{ #category : #'canvas actions' } +{ #category : 'canvas actions' } OPController >> hideSelectionFeedback [ self deprecated: 'This should be done by shapes (diagram elements)' ] -{ #category : #announcements } +{ #category : 'announcements' } OPController >> internalSubscribeTo: aModel [ aModel announcer when: OPElementRenamed do: [ self diagramElement modelChanged ] + for: self ] -{ #category : #announcements } +{ #category : 'announcements' } OPController >> internalUnsubscribeFrom: aModel [ aModel announcer unsubscribe: self ] -{ #category : #testing } +{ #category : 'testing' } OPController >> isHideable [ ^ false ] -{ #category : #accessing } +{ #category : 'accessing' } OPController >> model [ ^ model ] -{ #category : #accessing } +{ #category : 'accessing' } OPController >> model: aModel [ aModel ifNotNil: [ @@ -184,27 +187,27 @@ OPController >> model: aModel [ model ifNotNil: [ :m | self internalSubscribeTo: m ] ] -{ #category : #connecting } +{ #category : 'connecting' } OPController >> modelAsParent [ ^ self model ] -{ #category : #announcements } +{ #category : 'announcements' } OPController >> modelChanged [ self figure ifNotNil: [ self refreshFigure ] ] -{ #category : #accessing } +{ #category : 'accessing' } OPController >> modelClass [ ^ self subclassResponsibility ] -{ #category : #accessing } +{ #category : 'accessing' } OPController >> nameOfType [ ^ (self diagramController typeOfModel: self model) name ] -{ #category : #figures } +{ #category : 'figures' } OPController >> refreshFigure [ self @@ -215,14 +218,14 @@ OPController >> refreshFigure [ ^ self diagramElement modelChanged ] -{ #category : #deprecated } +{ #category : 'deprecated' } OPController >> remove [ self deprecated: 'Use removeController instead.'. self model ifNotNil: [ self model announcer unsubscribe: self ] ] -{ #category : #destruction } +{ #category : 'destruction' } OPController >> removeController [ self model ifNotNil: [ self removeDependentControllers ]. @@ -232,7 +235,7 @@ OPController >> removeController [ self diagramController removeController: self ] -{ #category : #destruction } +{ #category : 'destruction' } OPController >> removeControllerAndModel [ self removeDependent. @@ -241,7 +244,7 @@ OPController >> removeControllerAndModel [ self model: nil ] -{ #category : #destruction } +{ #category : 'destruction' } OPController >> removeDependent [ self dependentControllers do: [ :each | @@ -250,7 +253,7 @@ OPController >> removeDependent [ ifFound: #removeControllerAndModel ] ] -{ #category : #destruction } +{ #category : 'destruction' } OPController >> removeDependentControllers [ self dependentControllers do: [ :each | @@ -259,14 +262,14 @@ OPController >> removeDependentControllers [ ifFound: #removeController ] ] -{ #category : #destruction } +{ #category : 'destruction' } OPController >> removeDiagramElement [ self diagramElement ifNotNil: #remove. diagramElement := nil ] -{ #category : #destruction } +{ #category : 'destruction' } OPController >> removeFigure [ self @@ -277,12 +280,12 @@ OPController >> removeFigure [ self figure remove ] -{ #category : #private } +{ #category : 'private' } OPController >> removeModel [ ^ self subclassResponsibility ] -{ #category : #deprecated } +{ #category : 'deprecated' } OPController >> removeModelElement: aModelElement [ "Remove self as target of aModelElement" self deprecated: 'use #removeModel on the proper controller instead.'. @@ -290,20 +293,20 @@ OPController >> removeModelElement: aModelElement [ (self diagramController controllerForModel: aModelElement) removeModel ] -{ #category : #destruction } +{ #category : 'destruction' } OPController >> removeRender [ self diagramController deselectAll. self diagramElement removeRender ] -{ #category : #figures } +{ #category : 'figures' } OPController >> roassalShape [ ^ self diagramElement roassalShape ] -{ #category : #figures } +{ #category : 'figures' } OPController >> saveStateOnDragEndFor: aFigure [ aFigure @@ -311,27 +314,27 @@ OPController >> saveStateOnDragEndFor: aFigure [ do: [ :evt | self diagramController saveState ] ] -{ #category : #'canvas actions' } +{ #category : 'canvas actions' } OPController >> showAcceptFeedbackFor: aController [ "Return something that understands #remove, or nil to not show any feedback." ^ OPRSAcceptDenyFeedbackBuilder acceptFeedbackFor: self roassalShape ] -{ #category : #'canvas actions' } +{ #category : 'canvas actions' } OPController >> showDenyFeedbackFor: aController [ "Return something that understands #remove, or nil to not show any feedback." ^ OPRSAcceptDenyFeedbackBuilder denyFeedbackFor: self roassalShape ] -{ #category : #construction } +{ #category : 'construction' } OPController >> showInDiagram: aDiagramController [ ^ self dependentElements do: [ :each | aDiagramController showInDiagramModel: each ] ] -{ #category : #'canvas actions' } +{ #category : 'canvas actions' } OPController >> showSelectionFeedback [ self deprecated: 'This should be done by shapes (diagram elements)' diff --git a/repository/OpenPonk-Core/OPControllerFactory.class.st b/repository/OpenPonk-Core/OPControllerFactory.class.st index a67ee6b28..af128eea7 100644 --- a/repository/OpenPonk-Core/OPControllerFactory.class.st +++ b/repository/OpenPonk-Core/OPControllerFactory.class.st @@ -4,36 +4,38 @@ I create new controllers for models. Controllers are registered for models and optionally with a condition further clarifying the nature of the model required for the controller. " Class { - #name : #OPControllerFactory, - #superclass : #Object, + #name : 'OPControllerFactory', + #superclass : 'Object', #instVars : [ 'registrations' ], - #category : #'OpenPonk-Core-Controllers' + #category : 'OpenPonk-Core-Controllers', + #package : 'OpenPonk-Core', + #tag : 'Controllers' } -{ #category : #'as yet unclassified' } +{ #category : 'as yet unclassified' } OPControllerFactory class >> withCommonElements [ ^ self new registerCommonElements ] -{ #category : #'accessing - defaults' } +{ #category : 'accessing - defaults' } OPControllerFactory >> acceptAllCondition [ ^ [ :aModel | true ] ] -{ #category : #'api - testing' } +{ #category : 'api - testing' } OPControllerFactory >> hasControllerFor: aModel [ ^ registrations anySatisfy: [ :each | each isForModel: aModel ] ] -{ #category : #initialization } +{ #category : 'initialization' } OPControllerFactory >> initialize [ super initialize. registrations := OrderedCollection new ] -{ #category : #'api - accessing' } +{ #category : 'api - accessing' } OPControllerFactory >> newControllerFor: aModel [ | controller | controller := (registrations detect: [ :each | each isForModel: aModel ]) controllerClass @@ -42,12 +44,12 @@ OPControllerFactory >> newControllerFor: aModel [ ^ controller ] -{ #category : #'api - registration' } +{ #category : 'api - registration' } OPControllerFactory >> register: aControllerClass forModel: aModelClass [ self register: aControllerClass forModel: aModelClass condition: self acceptAllCondition ] -{ #category : #'api - registration' } +{ #category : 'api - registration' } OPControllerFactory >> register: aControllerClass forModel: aModelClass condition: aConditionBlock [ registrations add: @@ -57,13 +59,13 @@ OPControllerFactory >> register: aControllerClass forModel: aModelClass conditio condition: aConditionBlock) ] -{ #category : #'as yet unclassified' } +{ #category : 'as yet unclassified' } OPControllerFactory >> registerCommonElements [ OPCommonElementController allSubclassesDo: [ :each | self register: each forModel: each modelClass ] ] -{ #category : #'accessing - defaults' } +{ #category : 'accessing - defaults' } OPControllerFactory >> registrationClass [ ^ OPControllerFactoryRegistration ] diff --git a/repository/OpenPonk-Core/OPControllerFactoryRegistration.class.st b/repository/OpenPonk-Core/OPControllerFactoryRegistration.class.st index c9412dc33..d3959f889 100644 --- a/repository/OpenPonk-Core/OPControllerFactoryRegistration.class.st +++ b/repository/OpenPonk-Core/OPControllerFactoryRegistration.class.st @@ -1,50 +1,52 @@ Class { - #name : #OPControllerFactoryRegistration, - #superclass : #Object, + #name : 'OPControllerFactoryRegistration', + #superclass : 'Object', #instVars : [ 'controllerClass', 'modelClass', 'condition' ], - #category : #'OpenPonk-Core-Controllers' + #category : 'OpenPonk-Core-Controllers', + #package : 'OpenPonk-Core', + #tag : 'Controllers' } -{ #category : #accessing } +{ #category : 'accessing' } OPControllerFactoryRegistration >> condition [ ^ condition ifNil: [ [ :aModel | true ] ] ] -{ #category : #accessing } +{ #category : 'accessing' } OPControllerFactoryRegistration >> condition: aBlock [ condition := aBlock ] -{ #category : #accessing } +{ #category : 'accessing' } OPControllerFactoryRegistration >> controllerClass [ ^ controllerClass ] -{ #category : #accessing } +{ #category : 'accessing' } OPControllerFactoryRegistration >> controllerClass: anObject [ controllerClass := anObject ] -{ #category : #accessing } +{ #category : 'accessing' } OPControllerFactoryRegistration >> isForModel: aModel [ ^ aModel class = self modelClass and: [ self condition value: aModel ] ] -{ #category : #accessing } +{ #category : 'accessing' } OPControllerFactoryRegistration >> modelClass [ ^ modelClass ] -{ #category : #accessing } +{ #category : 'accessing' } OPControllerFactoryRegistration >> modelClass: anObject [ modelClass := anObject ] -{ #category : #printing } +{ #category : 'printing' } OPControllerFactoryRegistration >> printOn: stream [ super printOn: stream. stream << ' (' << self modelClass asString << ' -> ' diff --git a/repository/OpenPonk-Core/OPControllerFactoryRegistrationTest.class.st b/repository/OpenPonk-Core/OPControllerFactoryRegistrationTest.class.st index d2ea0ddba..8b59958da 100644 --- a/repository/OpenPonk-Core/OPControllerFactoryRegistrationTest.class.st +++ b/repository/OpenPonk-Core/OPControllerFactoryRegistrationTest.class.st @@ -1,21 +1,23 @@ Class { - #name : #OPControllerFactoryRegistrationTest, - #superclass : #TestCase, + #name : 'OPControllerFactoryRegistrationTest', + #superclass : 'TestCase', #instVars : [ 'factory', 'registration' ], - #category : #'OpenPonk-Core-Controllers - Tests' + #category : 'OpenPonk-Core-Controllers - Tests', + #package : 'OpenPonk-Core', + #tag : 'Controllers - Tests' } -{ #category : #running } +{ #category : 'running' } OPControllerFactoryRegistrationTest >> testIsForModel [ registration := OPControllerFactoryRegistration new modelClass: OPTestEntityModel. self assert: (registration isForModel: OPTestEntityModel new). self deny: (registration isForModel: OPTestRelationModel new) ] -{ #category : #running } +{ #category : 'running' } OPControllerFactoryRegistrationTest >> testIsForModelWithCondition [ registration := OPControllerFactoryRegistration new modelClass: OPTestRelationModel; diff --git a/repository/OpenPonk-Core/OPControllerFactoryTest.class.st b/repository/OpenPonk-Core/OPControllerFactoryTest.class.st index 1ffd88d13..13839a278 100644 --- a/repository/OpenPonk-Core/OPControllerFactoryTest.class.st +++ b/repository/OpenPonk-Core/OPControllerFactoryTest.class.st @@ -1,18 +1,20 @@ Class { - #name : #OPControllerFactoryTest, - #superclass : #TestCase, + #name : 'OPControllerFactoryTest', + #superclass : 'TestCase', #instVars : [ 'factory' ], - #category : #'OpenPonk-Core-Controllers - Tests' + #category : 'OpenPonk-Core-Controllers - Tests', + #package : 'OpenPonk-Core', + #tag : 'Controllers - Tests' } -{ #category : #running } +{ #category : 'running' } OPControllerFactoryTest >> setUp [ factory := OPControllerFactory new ] -{ #category : #tests } +{ #category : 'tests' } OPControllerFactoryTest >> testNewControllerFor [ factory register: OPTestRelationController forModel: OPTestRelationModel. self @@ -20,7 +22,7 @@ OPControllerFactoryTest >> testNewControllerFor [ equals: OPTestRelationController ] -{ #category : #tests } +{ #category : 'tests' } OPControllerFactoryTest >> testNewControllerForWithPriority [ factory register: OPTestEntityController @@ -35,7 +37,7 @@ OPControllerFactoryTest >> testNewControllerForWithPriority [ equals: OPTestEntityController ] -{ #category : #tests } +{ #category : 'tests' } OPControllerFactoryTest >> testRegister [ self deny: (factory hasControllerFor: OPTestEntityModel new). factory register: OPTestEntityController forModel: OPTestEntityModel. diff --git a/repository/OpenPonk-Core/OPControllerTest.class.st b/repository/OpenPonk-Core/OPControllerTest.class.st index efb601ebc..c3c0f25c2 100644 --- a/repository/OpenPonk-Core/OPControllerTest.class.st +++ b/repository/OpenPonk-Core/OPControllerTest.class.st @@ -1,10 +1,12 @@ Class { - #name : #OPControllerTest, - #superclass : #OPElementControllerTest, - #category : #'OpenPonk-Core-Controllers - Tests' + #name : 'OPControllerTest', + #superclass : 'OPElementControllerTest', + #category : 'OpenPonk-Core-Controllers - Tests', + #package : 'OpenPonk-Core', + #tag : 'Controllers - Tests' } -{ #category : #testing } +{ #category : 'testing' } OPControllerTest class >> isDeprecated [ "Use OPElementControllerTest" diff --git a/repository/OpenPonk-Core/OPCoreIcons.class.st b/repository/OpenPonk-Core/OPCoreIcons.class.st index c759d7985..dea26ad1a 100644 --- a/repository/OpenPonk-Core/OPCoreIcons.class.st +++ b/repository/OpenPonk-Core/OPCoreIcons.class.st @@ -6,18 +6,20 @@ DCIcons current inspect. ]]] " Class { - #name : #OPCoreIcons, - #superclass : #OPIcons, - #category : #'OpenPonk-Core-Icons' + #name : 'OPCoreIcons', + #superclass : 'OPIcons', + #category : 'OpenPonk-Core-Icons', + #package : 'OpenPonk-Core', + #tag : 'Icons' } -{ #category : #'accessing - icons' } +{ #category : 'accessing - icons' } OPCoreIcons class >> logo [ ^ Form fromBinaryStream: self logoContents base64Decoded asByteArray readStream ] -{ #category : #'private - contents' } +{ #category : 'private - contents' } OPCoreIcons class >> logoContents [ "Private - Method generated with the content of the file File @ /home/peter/prog/dynacase/icons/dynacase.png" ^ 'iVBORw0KGgoAAAANSUhEUgAAAakAAACRCAYAAAB5ckcvAAAABmJLR0QA/wD/AP+gvaeTAAAA @@ -809,25 +811,25 @@ GvhPKl0VoHlDSf3r+MyYGALrVcCOQWDnvlF4xWHwMISKBFLJJnS0z8JJyxwstCZ4Tyqs5d9i GiiFhmfVQENJNdBAAw008J8QjYxhAw000EAD/27x/wCGSAjyqcKbJQAAAABJRU5ErkJggg==' ] -{ #category : #'accessing - icons' } +{ #category : 'accessing - icons' } OPCoreIcons class >> opCheckAllIcon [ ^ Form fromBinaryStream: self opCheckAllIconContents base64Decoded asByteArray readStream ] -{ #category : #'private - contents' } +{ #category : 'private - contents' } OPCoreIcons class >> opCheckAllIconContents [ ^ 'iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABmJLR0QA/wD/AP+gvaeTAAAACXBIWXMAAA7DAAAOwwHHb6hkAAAAVUlEQVQ4y2NgGCigtNHnPwMDAwMLAXX/cWgm2qL/2GyG2c7AwMDARMCZDMiKYex7/lsYYWKMhFyA7tx7/ltQ9DER8gOybchsol2AQ5xxNBpHoxEZAAD4PzMFFDc54QAAAABJRU5ErkJggg==' ] -{ #category : #'accessing - icons' } +{ #category : 'accessing - icons' } OPCoreIcons class >> opConnectionIcon [ ^ Form fromBinaryStream: self opConnectionIconContents base64Decoded asByteArray readStream ] -{ #category : #'as yet unclassified' } +{ #category : 'as yet unclassified' } OPCoreIcons class >> opConnectionIconContents [ "Private - Method generated with the content of the file File @ D:\OpenPonk\icons\uml\directedAssociation.png" ^ 'iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABHNCSVQICAgIfAhkiAAAAAlw @@ -839,208 +841,208 @@ a89/n/8MDMd2ejC+g4ntcWX8+P8/w1HPPf8D8BrgsP8/z38GBpvtLowb0OV2ujJuZWBgsHDY /4/hAtku+P+P4QIHC3YDKAYABoVHXkJDbNUAAAAASUVORK5CYII=' ] -{ #category : #'as yet unclassified' } +{ #category : 'as yet unclassified' } OPCoreIcons class >> opErdAttributeContents [ "Private - Method generated with the content of the file File @ /home/peter/prog/dynacase/icons/dcFsmTransition.png" ^ 'iVBORw0KGgoAAAANSUhEUgAAACAAAAAPCAYAAACFgM0XAAAAsElEQVQ4T2NkIANERET8B2lbsWIFWDeQD6aBfEZSjSNaA8hSkIXl5eUMnZ2dWPXB1IAcRKxjiHHAf1IMhIVAXV39/7NnzzBs3boVrx2EHAAKakJqCIU6XjPwGU4Ny2GOw2kWvrik1OcoIQNNHxhm4rKEmr7HGwqjDhi0aQAUb9RMB6TlAqTkSw1HkF0OwFMvOSVhamrq/9mzZ4PMoKgkhAcGMeU8MWrQi02yChtq1oYA7yFbELAAUOYAAAAASUVORK5CYII=' ] -{ #category : #'as yet unclassified' } +{ #category : 'as yet unclassified' } OPCoreIcons class >> opErdAttributeIcon [ ^ Form fromBinaryStream: self opErdAttributeContents base64Decoded asByteArray readStream ] -{ #category : #'as yet unclassified' } +{ #category : 'as yet unclassified' } OPCoreIcons class >> opErdConnectionContents [ "Private - Method generated with the content of the file File @ /home/peter/prog/dynacase/icons/dcFsmTransition.png" ^ 'iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAAkElEQVQ4T9WTYQ7AEAyFS+xY7uGI7uFYE10tIWXFMr/mD6H9vPeCgs2hNvthCXDOofceaAaaH/VTQGkuKiXISgEKFpueGQDPGOEwJtdkUKnlazkDJl1qQm5lpKC5pVOQXdXzaQYpJdRa9xaaWFYhluJeUYX8ABBCQGttliyq5ZvSo7m9EgQIsgR8+ldvQxzCL11EMRHXXN1rAAAAAElFTkSuQmCC' ] -{ #category : #'as yet unclassified' } +{ #category : 'as yet unclassified' } OPCoreIcons class >> opErdConnectionIcon [ ^ Form fromBinaryStream: self opErdConnectionContents base64Decoded asByteArray readStream ] -{ #category : #'as yet unclassified' } +{ #category : 'as yet unclassified' } OPCoreIcons class >> opErdDerivedAttributeContents [ "Private - Method generated with the content of the file File @ /home/peter/prog/dynacase/icons/dcFsmTransition.png" ^ 'iVBORw0KGgoAAAANSUhEUgAAACAAAAAPCAYAAACFgM0XAAAAeElEQVQ4T2NkIA/8B2pjRNOKTYyg6eiGENQAVIDPIpIdQY4DiHEk0WoIOYBkH2GxGa8Z+BxADcth7sFpFlYHRERE/F+xYgWh0CE6mEEKcZlJVUtIchFU8agDBnUaGLhcgJSYqOEIsssBchI1yXrIyQWDoi6gWm0IAANOIBCnwFUxAAAAAElFTkSuQmCC' ] -{ #category : #'as yet unclassified' } +{ #category : 'as yet unclassified' } OPCoreIcons class >> opErdDerivedAttributeIcon [ ^ Form fromBinaryStream: self opErdDerivedAttributeContents base64Decoded asByteArray readStream ] -{ #category : #'as yet unclassified' } +{ #category : 'as yet unclassified' } OPCoreIcons class >> opErdDiagramIcon [ ^ Form fromBinaryStream: self opErdDiagramIconContents base64Decoded asByteArray readStream ] -{ #category : #'as yet unclassified' } +{ #category : 'as yet unclassified' } OPCoreIcons class >> opErdDiagramIconContents [ "Private - Method generated with the content of the file File @ /home/peter/prog/dynacase/icons/dcFsmTransition.png" ^ 'iVBORw0KGgoAAAANSUhEUgAAAA0AAAAPCAYAAAA/I0V3AAAAZElEQVQoU2NkAILDhw//t7W1BTHxAqA6BqA6Rkaoqv8REREMK1asgPExNAPl/wPlQeIITSAOEP/HYxVMHkMTIReCDEXVBPUbI4hG1w3yC9Qlo34aavEES4y4kgRSooZELqmpHAChnlsQd9dJfgAAAABJRU5ErkJggg==' ] -{ #category : #'as yet unclassified' } +{ #category : 'as yet unclassified' } OPCoreIcons class >> opErdDisjointExtensionContents [ "Private - Method generated with the content of the file File @ /home/peter/prog/dynacase/icons/dcFsmTransition.png" ^ 'iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAA2ElEQVQ4T2NkQAOHDx/+b2trGwUUjgFiG6j0ESC9BCi3DCjHiKwFhQPVDJI/CcQLgHgGVHEGkE4AYnOgGgZkQ+AGIGnORNKI7kCQQdORDQEbgKTZE8jdga4Lje8B5G+HGcJIpM3/gZqQvQt3CUgwEojzgdgCj83oBoCUngDiiSADtgLxZjz+BinGZgDIFb4gAz4CMT+67Uheg0mhxBhU8CNOA0C2IoU2NheAzAAbgMsLhAyAewFrIBLhBUggEhmNOBMU5QkJZjSRLsGelLEYQnpmQjOE6OwMAF52f59jtcBbAAAAAElFTkSuQmCC' ] -{ #category : #'as yet unclassified' } +{ #category : 'as yet unclassified' } OPCoreIcons class >> opErdDisjointExtensionIcon [ ^ Form fromBinaryStream: self opErdDisjointExtensionContents base64Decoded asByteArray readStream ] -{ #category : #'as yet unclassified' } +{ #category : 'as yet unclassified' } OPCoreIcons class >> opErdEntityContents [ "Private - Method generated with the content of the file File @ /home/peter/prog/dynacase/icons/dcFsmTransition.png" ^ 'iVBORw0KGgoAAAANSUhEUgAAACAAAAAPCAYAAACFgM0XAAAAO0lEQVQ4T2NkwAT/sYhRW4gRZiCcgWQDyAHYxKnlCBTzRx0wGgKjITAaAqMhMBoCuEKAWhUPLnPg9gIAGQ0cENSO07kAAAAASUVORK5CYII=' ] -{ #category : #'as yet unclassified' } +{ #category : 'as yet unclassified' } OPCoreIcons class >> opErdEntityIcon [ ^ Form fromBinaryStream: self opErdEntityContents base64Decoded asByteArray readStream ] -{ #category : #'as yet unclassified' } +{ #category : 'as yet unclassified' } OPCoreIcons class >> opErdIdentifyingRelationContents [ "Private - Method generated with the content of the file File @ /home/peter/prog/dynacase/icons/dcFsmTransition.png" ^ 'iVBORw0KGgoAAAANSUhEUgAAAB8AAAAPCAYAAAAceBSiAAAAmElEQVQ4T8VVQQ7AIAib8f9PNm4aTTZXKOBBjxPaUmCma+/UkZ4iMKGkh2glDYnwkjMSdv8xyEqOQOe3CfjGMolg5BrpmuuJ7YJ/5KWUmnMOVwPmoWFBJ7bVK1NOnUC2tyQkirVo1UFxJECqeqdi1FOE5xHhicUDJ1R0ZNVQH+GWjEDTflttl1p75PfqdUJ9b7zrE3m8xJwbwnkrEEJ0QxwAAAAASUVORK5CYII=' ] -{ #category : #'as yet unclassified' } +{ #category : 'as yet unclassified' } OPCoreIcons class >> opErdIdentifyingRelationIcon [ ^ Form fromBinaryStream: self opErdIdentifyingRelationContents base64Decoded asByteArray readStream ] -{ #category : #'as yet unclassified' } +{ #category : 'as yet unclassified' } OPCoreIcons class >> opErdInheritanceConnectionContents [ "Private - Method generated with the content of the file File @ /home/peter/prog/dynacase/icons/dcFsmTransition.png" ^ 'iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAAmElEQVQ4T6WT0Q3AIAhEMbFjuYcjuodj1YRKEwxalCb0x8bCuzuxAZxPcPaDCcg5YykF+gp9/dQfAdzMLjWI5QCViFPPCYB3a3DFSDUE4lr5rp+BsK41oYyyczCpLA4o1fj+5wxkhBW8H2OtFVNKpDYB+j70/SG8deAGkLSAvNNc1dne8TYrE5nqZQTt0shiNa41BfNfcwMeWE9CEfoVJdAAAAAASUVORK5CYII=' ] -{ #category : #'as yet unclassified' } +{ #category : 'as yet unclassified' } OPCoreIcons class >> opErdInheritanceConnectionIcon [ ^ Form fromBinaryStream: self opErdInheritanceConnectionContents base64Decoded asByteArray readStream ] -{ #category : #'as yet unclassified' } +{ #category : 'as yet unclassified' } OPCoreIcons class >> opErdKeyAttributeContents [ "Private - Method generated with the content of the file File @ /home/peter/prog/dynacase/icons/dcFsmTransition.png" ^ 'iVBORw0KGgoAAAANSUhEUgAAACAAAAAPCAYAAACFgM0XAAAAwElEQVQ4T2NkIANERET8B2lbsWIFWDeQD6aBfEZSjSNaA8hSkIXl5eUMnZ2dWPXB1IAcRKxjiHHAf1IMhIVAXV39/7NnzzBs3boVrx2EHAAKakJqCIU6XjNwGi4vL///4cOHlFoOcxxOR+CLS2pZDkuooDSEYSYuS6gR9OhRg9XMUQcM2jQAij/kOAOXfGQAmAdJywVIFlEjMZJXDiA7gpySMDU19f/s2bNBxlBUEsLdQUw5T4wa9Ggkq7ChZm0IAJV6XxBD0g9oAAAAAElFTkSuQmCC' ] -{ #category : #'as yet unclassified' } +{ #category : 'as yet unclassified' } OPCoreIcons class >> opErdKeyAttributeIcon [ ^ Form fromBinaryStream: self opErdKeyAttributeContents base64Decoded asByteArray readStream ] -{ #category : #'as yet unclassified' } +{ #category : 'as yet unclassified' } OPCoreIcons class >> opErdMultivaluedAttributeContents [ "Private - Method generated with the content of the file File @ /home/peter/prog/dynacase/icons/dcFsmTransition.png" ^ 'iVBORw0KGgoAAAANSUhEUgAAACAAAAAPCAYAAACFgM0XAAAA4UlEQVQ4T81VwQ3DIAxMxJJZgEf+jZghSv88WIAlkYtRQDTBYFDVlk9EsM/nszHzNLCWZQF0s9YGb78PX7+fe+HYDhgUAyqlpn3fi37RBglxyXAIQAUwKOHXDSeSKZ3lKrUIYIBkk4EG2WOW1P8z0BvGtUQ1ArkjmSlR86s9SaJIYF1X0FqHMyEEOOdaSlG9lwKfKt1wKODk+Ng2eB7HEIFL0KIKLQLV+jGvXMQYIoDNhtfvuwpwpOvMnkzkP29Blt1P50DkMTQJpZRgjClOyZ5JmGw5c55j0zMJyT775Gv4AoAxkxDFp3QrAAAAAElFTkSuQmCC' ] -{ #category : #'as yet unclassified' } +{ #category : 'as yet unclassified' } OPCoreIcons class >> opErdMultivaluedAttributeIcon [ ^ Form fromBinaryStream: self opErdMultivaluedAttributeContents base64Decoded asByteArray readStream ] -{ #category : #'as yet unclassified' } +{ #category : 'as yet unclassified' } OPCoreIcons class >> opErdOverlappingExtensionContents [ "Private - Method generated with the content of the file File @ /home/peter/prog/dynacase/icons/dcFsmTransition.png" ^ 'iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAA1klEQVQ4T2NkQAOHDx/+b2trGwUUjgFiG6j0ESC9BCi3DCjHiKwFhQPVDJI/CcQLgHgGVHEGkE4AYnOgGgZkQ+AGIGnORNKI7kCQQdORDQEbgKTZE8jdga4Lje8B5G+HGcKIy2YkcZAFKM4GGgB3CcgFkUCcD8QWMJtgmiMiIsBCK1aswGbICaDURJABW4F4M8zfMM3ItmITg7rCF2TARyDmR/Lnf5DNQFtRYggo9h/kEiBAFv9IFQMo9gJlgUiNaKQsIaHHPZBPelLGYgjpmQnNEKKzMwCmtLifzTv4KwAAAABJRU5ErkJggg==' ] -{ #category : #'as yet unclassified' } +{ #category : 'as yet unclassified' } OPCoreIcons class >> opErdOverlappingExtensionIcon [ ^ Form fromBinaryStream: self opErdOverlappingExtensionContents base64Decoded asByteArray readStream ] -{ #category : #'as yet unclassified' } +{ #category : 'as yet unclassified' } OPCoreIcons class >> opErdRelationContents [ "Private - Method generated with the content of the file File @ /home/peter/prog/dynacase/icons/dcFsmTransition.png" ^ 'iVBORw0KGgoAAAANSUhEUgAAAB8AAAAPCAYAAAAceBSiAAAAf0lEQVQ4T82USw6AIAxE5f6HVkh0QVOZTzWBbdN50x/tqL3zTm+OjJXUQRFqmVDhCILiU4NYuCSadCadCoKr0AhZ5r/Bq1DKRIR/DV2ayCofBtA4nMsaOZP2Vm2nZiWUbS1c1QS1O+pskSiKW58M6oQEfcTUypEJYR3+OynKxAWsDhoQGgBB5QAAAABJRU5ErkJggg==' ] -{ #category : #'as yet unclassified' } +{ #category : 'as yet unclassified' } OPCoreIcons class >> opErdRelationIcon [ ^ Form fromBinaryStream: self opErdRelationContents base64Decoded asByteArray readStream ] -{ #category : #'as yet unclassified' } +{ #category : 'as yet unclassified' } OPCoreIcons class >> opErdTotalConnectionContents [ "Private - Method generated with the content of the file File @ /home/peter/prog/dynacase/icons/dcFsmTransition.png" ^ 'iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAAlklEQVQ4T7WT2w3AIAhF0dix3MMR3cOxaqTSRIMVH01Tf/gQDvdCUPDxqY/1sAQ459B7DzlCjl3+FFCKi0oJslKAgsWmZgbAM0Y4jCEG5RGMx5stAph0qRC5lZGC0o2aSJ3r/3QGKSXUWj8tNGNZDXGkoEL+BYQQ0Fq7bUHaeZHarY9/7J4D34w4g5kCyHYg23l3CzvSLjyaOBHbix1rAAAAAElFTkSuQmCC' ] -{ #category : #'as yet unclassified' } +{ #category : 'as yet unclassified' } OPCoreIcons class >> opErdTotalConnectionIcon [ ^ Form fromBinaryStream: self opErdTotalConnectionContents base64Decoded asByteArray readStream ] -{ #category : #'as yet unclassified' } +{ #category : 'as yet unclassified' } OPCoreIcons class >> opErdUnionExtensionContents [ "Private - Method generated with the content of the file File @ /home/peter/prog/dynacase/icons/dcFsmTransition.png" ^ 'iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAA4UlEQVQ4T6WTMQ4CIRBFlxN4HC2k18IDaCws3cqzWGlpYbyAMdpjocfZE6x/Nix+RogYSX7IwPy3zMCaSg3nXGutXWB5CY399h3zEXsn7Bm2RIE3y/4TOkB7n7zGvIKGyKkYEgBkrsmoDyigHUM6AJmnCG/apeIJ4msPMZkvt0iKykPMa+EkkjSHNtCIvvQNIKkPaCuAC3RWdZcA5BQzATTQQNVZAhBLkwVwp6lPui8d4KOE3iAQGbh3uano/rEcSkg1ka82ZX43sfABZR/U/w+pRxeeJP2UE5DffyYFKf6dXxo8i5/mcinpAAAAAElFTkSuQmCC' ] -{ #category : #'as yet unclassified' } +{ #category : 'as yet unclassified' } OPCoreIcons class >> opErdUnionExtensionIcon [ ^ Form fromBinaryStream: self opErdUnionExtensionContents base64Decoded asByteArray readStream ] -{ #category : #'as yet unclassified' } +{ #category : 'as yet unclassified' } OPCoreIcons class >> opErdWeakEntityContents [ "Private - Method generated with the content of the file File @ /home/peter/prog/dynacase/icons/dcFsmTransition.png" ^ 'iVBORw0KGgoAAAANSUhEUgAAACAAAAAPCAYAAACFgM0XAAAAUklEQVQ4T2NkwAT/sYhRW4gRZiCcgWQDyAHYxKnlCBTz8TmAFiEBso8kB1AzJGAWjzpgNARGQ2A0BEgKAWoVv8hFP9EOoLblMPOIcgCtLMeoBAG8gjAQEIzL/wAAAABJRU5ErkJggg==' ] -{ #category : #'as yet unclassified' } +{ #category : 'as yet unclassified' } OPCoreIcons class >> opErdWeakEntityIcon [ ^ Form fromBinaryStream: self opErdWeakEntityContents base64Decoded asByteArray readStream ] -{ #category : #'accessing - icons' } +{ #category : 'accessing - icons' } OPCoreIcons class >> opFsmDiagramIcon [ ^ Form fromBinaryStream: self opFsmDiagramIconContents base64Decoded asByteArray readStream ] -{ #category : #'private - contents' } +{ #category : 'private - contents' } OPCoreIcons class >> opFsmDiagramIconContents [ "Private - Method generated with the content of the file File @ /home/peter/prog/dynacase/icons/dcFsmDiagram.png" ^ 'iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABmJLR0QA/wD/AP+gvaeTAAAA @@ -1050,13 +1052,13 @@ iBCRgpeuMfrHxsBOikA1Yuc8Ac1IvYAKyKgds4BiqBfyDJCjmfFWsRrBFTNwGhk4HMuaGmEm ZPiIb9LKLVqZU7MtNmeUX9VI4c+vvMeqPusCWs8vzPVQRpYAAAAASUVORK5CYII=' ] -{ #category : #'accessing - icons' } +{ #category : 'accessing - icons' } OPCoreIcons class >> opFsmFinalStateIcon [ ^ Form fromBinaryStream: self opFsmFinalStateIconContents base64Decoded asByteArray readStream ] -{ #category : #'private - contents' } +{ #category : 'private - contents' } OPCoreIcons class >> opFsmFinalStateIconContents [ "Private - Method generated with the content of the file File @ /home/peter/prog/dynacase/icons/dcFsmFinalState.png" ^ 'iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABmJLR0QA/wD/AP+gvaeTAAAA @@ -1067,26 +1069,26 @@ JWm2q86rxBXIgIlZsSDNmxPXdW7JduLQuiLNiWvdd1m8Sv4ssignogm37pl75M5FQWvyGpb9 UMCk9cDxYAKGnzA8xOE1Dh/SlFOe8pn++s4v54Jh4eRQWrEAAAAASUVORK5CYII=' ] -{ #category : #'accessing - icons' } +{ #category : 'accessing - icons' } OPCoreIcons class >> opFsmFlippedTransitionIcon [ ^ Form fromBinaryStream: self opFsmFlippedTransitionIconContents base64Decoded asByteArray readStream ] -{ #category : #'private - contents' } +{ #category : 'private - contents' } OPCoreIcons class >> opFsmFlippedTransitionIconContents [ "Private - Method generated with the content of the file File @ /home/peter/prog/dynacase/icons/dcFsmTransition.png" ^ 'iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8YQUAAAAJcEhZcwAADsQAAA7EAZUrDhsAAAAGYktHRAD/AP8A/6C9p5MAAAAHdElNRQfeDBERByHXeUXaAAAAGXRFWHRDb21tZW50AENyZWF0ZWQgd2l0aCBHSU1QV4EOFwAAAIxJREFUOE/tk7ENAyEMRT9ZhRKJBSjYiwpWADZjANaggjtbXJorILkmRZ5k2S54km0hxgke8Jr5a35YsLuamyClBCEExxZ0BaLWOpRSw1rLfe+d8wo+YwgB3nvknGGMQWtt6tewQGuNUgqcczw7xTYkIGKM9IrzJ7wFF7QDKeXs1twExDnOrNb8/wJwAD42FpEUsSdQAAAAAElFTkSuQmCC' ] -{ #category : #'accessing - icons' } +{ #category : 'accessing - icons' } OPCoreIcons class >> opFsmInitialStateIcon [ ^ Form fromBinaryStream: self opFsmInitialStateIconContents base64Decoded asByteArray readStream ] -{ #category : #'private - contents' } +{ #category : 'private - contents' } OPCoreIcons class >> opFsmInitialStateIconContents [ "Private - Method generated with the content of the file File @ /home/peter/prog/dynacase/icons/dcFsmInitialState.png" ^ 'iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABmJLR0QA/wD/AP+gvaeTAAAA @@ -1095,13 +1097,13 @@ cmVhdGVkIHdpdGggR0lNUFeBDhcAAAA0SURBVDjLY2AYBYQADxSTBSIZGBj+Q3EkJZpJNoQH i2YYxvAOE60CjyIvUCUQqRKNIwUAAFRhFQHiIcRQAAAAAElFTkSuQmCC' ] -{ #category : #'accessing - icons' } +{ #category : 'accessing - icons' } OPCoreIcons class >> opFsmRegularStateIcon [ ^ Form fromBinaryStream: self opFsmRegularStateIconContents base64Decoded asByteArray readStream ] -{ #category : #'private - contents' } +{ #category : 'private - contents' } OPCoreIcons class >> opFsmRegularStateIconContents [ "Private - Method generated with the content of the file File @ /home/peter/prog/dynacase/icons/dcFsmRegularState.png" ^ 'iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABmJLR0QA/wD/AP+gvaeTAAAA @@ -1112,13 +1114,13 @@ YpX02SEFy6SlCY1pgBDy80purE/32WebTxJqdBgiusglM9QY0SOjjMiRG0PzlSYE+YdBDk0z yrsc06pzfgKTTTJXZ7zJ7gAAAABJRU5ErkJggg==' ] -{ #category : #'accessing - icons' } +{ #category : 'accessing - icons' } OPCoreIcons class >> opFsmTransitionIcon [ ^ Form fromBinaryStream: self opFsmTransitionIconContents base64Decoded asByteArray readStream ] -{ #category : #'private - contents' } +{ #category : 'private - contents' } OPCoreIcons class >> opFsmTransitionIconContents [ "Private - Method generated with the content of the file File @ /home/peter/prog/dynacase/icons/dcFsmTransition.png" ^ 'iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABmJLR0QA/wD/AP+gvaeTAAAA @@ -1128,24 +1130,24 @@ cICBgeEKAwODArKEBQkG/WBgYLBmYGCYwsDA0MDAwNDIwsDA4E+iN/5D2cEMDAyNpHolF2pA LkyAhQTNdxgYGJ7gixFCQGc0NWMHAKweDmH+UsOrAAAAAElFTkSuQmCC' ] -{ #category : #'as yet unclassified' } +{ #category : 'as yet unclassified' } OPCoreIcons class >> opMcDiagramIcon [ ^ Form fromBinaryStream: self opMcDiagramIconContents base64Decoded asByteArray readStream ] -{ #category : #'as yet unclassified' } +{ #category : 'as yet unclassified' } OPCoreIcons class >> opMcDiagramIconContents [ ^ 'iVBORw0KGgoAAAANSUhEUgAAAA8AAAAPCAYAAAA71pVKAAAAq0lEQVQoU2NkoAAwUqCXgZDm/0DDcarBpxmkEQawqsOlGd1GrC5A1nwAaM1KIK4EYjkghmmA0U+AYs1AHAHEjiAnIWtmAvL/EhGALDB16M6GGYDNOyAXwDWi2wziozsV5hCs4ug2/AOqBtkOUnwViH9BbdOFehEmDzYUm/NgYiCFIDbIIJCBMJfBgwWX39ANhsU5inpcmvmBuj8hhTyI/wHdpYSSJ96Yo0gzAACCIBAWVWZIAAAAAElFTkSuQmCC' ] -{ #category : #'accessing - icons' } +{ #category : 'accessing - icons' } OPCoreIcons class >> opOmlBoxIcon [ ^ Form fromBinaryStream: self opOmlBoxIconContents base64Decoded asByteArray readStream ] -{ #category : #'private - contents' } +{ #category : 'private - contents' } OPCoreIcons class >> opOmlBoxIconContents [ "Private - Method generated with the content of the file File @ /home/peter/prog/dynacase/icons/dcOmlBox.png" ^ 'iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABmJLR0QA/wD/AP+gvaeTAAAA @@ -1155,13 +1157,13 @@ Rnh4OEmuWLlyJaZzyPECC7rowYMHUQyzt7dnJNq0oe+C/wwjEwAAMrgWCki0InUAAAAASUVO RK5CYII=' ] -{ #category : #'accessing - icons' } +{ #category : 'accessing - icons' } OPCoreIcons class >> opOmlDiagramIcon [ ^ Form fromBinaryStream: self opOmlDiagramIconContents base64Decoded asByteArray readStream ] -{ #category : #'private - contents' } +{ #category : 'private - contents' } OPCoreIcons class >> opOmlDiagramIconContents [ "Private - Method generated with the content of the file File @ /home/peter/prog/dynacase/icons/dcOmlDiagram.png" ^ 'iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABmJLR0QA/wD/AP+gvaeTAAAA @@ -1171,13 +1173,13 @@ CPnvP6n+JsvPVA+DgTeAUEJiJBA+jPgk/xPDZ6E0VqjmhYEDAKlHDwzayLTLAAAAAElFTkSu QmCC' ] -{ #category : #'accessing - icons' } +{ #category : 'accessing - icons' } OPCoreIcons class >> opSelectIcon [ ^ Form fromBinaryStream: self opSelectIconContents base64Decoded asByteArray readStream ] -{ #category : #'private - contents' } +{ #category : 'private - contents' } OPCoreIcons class >> opSelectIconContents [ "Private - Method generated with the content of the file File @ /home/peter/prog/dynacase/icons/dcSelect.png" ^ 'iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAABn0lEQVR4XpWSTUs6YRTFn5lk @@ -1191,13 +1193,13 @@ PAEf7Xb7qtFooEAggBiGOQbv36xNa8wQkUgkXhVQOp0WwWABYroDY42LxSLv9XofarXaMxhr v/dmQSaCxb50u11+8hs/gG99/Qf21bg5RlgkZQAAAABJRU5ErkJggg==' ] -{ #category : #'accessing - icons' } +{ #category : 'accessing - icons' } OPCoreIcons class >> opZoomIcon [ ^ Form fromBinaryStream: self opZoomIconContents base64Decoded asByteArray readStream ] -{ #category : #'private - contents' } +{ #category : 'private - contents' } OPCoreIcons class >> opZoomIconContents [ "Private - Method generated with the content of the file /home/peter/prog/dynacase/icons/dcZoom.png" ^ 'iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAAK/INwWK6QAAABl0 @@ -1215,13 +1217,13 @@ zxVFG2v/CwAMnguF80oLe8p27cQh+fnpPV/fTc95S6piXQDAw7a9YbWkezZXFbAwMx/xPFXb 1D3+Y90AQF/L7kAsri9mZ4lrTd0TcYA/Kakr+x2JSPUAAAAASUVORK5CYII=' ] -{ #category : #'accessing - icons' } +{ #category : 'accessing - icons' } OPCoreIcons class >> opZoomInIcon [ ^ Form fromBinaryStream: self opZoomInIconContents base64Decoded asByteArray readStream ] -{ #category : #'private - contents' } +{ #category : 'private - contents' } OPCoreIcons class >> opZoomInIconContents [ "Private - Method generated with the content of the file /home/peter/prog/dynacase/icons/dcZoomIn.png" ^ 'iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAAK/INwWK6QAAABl0 @@ -1240,13 +1242,13 @@ WsTLYvtUEo5c3nkYDtkOwpfNR/B1KwTvlnsh1lYlRVuOFf8m+Bvz16rNK0Pn4f36MAhvpuED /P87L+2y1u3sopMAAAAASUVORK5CYII=' ] -{ #category : #'accessing - icons' } +{ #category : 'accessing - icons' } OPCoreIcons class >> opZoomOutIcon [ ^ Form fromBinaryStream: self opZoomOutIconContents base64Decoded asByteArray readStream ] -{ #category : #'private - contents' } +{ #category : 'private - contents' } OPCoreIcons class >> opZoomOutIconContents [ "Private - Method generated with the content of the file /home/peter/prog/dynacase/icons/dcZoomOut.png" ^ 'iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAAK/INwWK6QAAABl0 @@ -1265,13 +1267,13 @@ sxbmx9phbqwTMl49RJvI98s2wNy0kcZgYxWMdynQCOSroGnTSnz/A5Fyv6NS2MnjAAAAAElF TkSuQmCC' ] -{ #category : #'accessing - icons' } +{ #category : 'accessing - icons' } OPCoreIcons class >> openponkIcon [ ^ Form fromBinaryStream: self openponkIconContents base64Decoded asByteArray readStream ] -{ #category : #'private - contents' } +{ #category : 'private - contents' } OPCoreIcons class >> openponkIconContents [ "Private - Method generated with the content of the file File @ /home/peter/prog/dynacase/icons/dynacase.png" ^ 'iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABmJLR0QA/wD/AP+gvaeTAAAA diff --git a/repository/OpenPonk-Core/OPDIBounds.class.st b/repository/OpenPonk-Core/OPDIBounds.class.st index d6ef65e36..03792f86a 100644 --- a/repository/OpenPonk-Core/OPDIBounds.class.st +++ b/repository/OpenPonk-Core/OPDIBounds.class.st @@ -1,17 +1,19 @@ Class { - #name : #OPDIBounds, - #superclass : #OPNodeBounds, - #category : #'OpenPonk-Core-Shapes' + #name : 'OPDIBounds', + #superclass : 'OPNodeBounds', + #category : 'OpenPonk-Core-Shapes', + #package : 'OpenPonk-Core', + #tag : 'Shapes' } -{ #category : #testing } +{ #category : 'testing' } OPDIBounds class >> isDeprecated [ "replaced by superclass" ^ true ] -{ #category : #'instance creation' } +{ #category : 'instance creation' } OPDIBounds class >> new [ ^ self superclass new diff --git a/repository/OpenPonk-Core/OPDICamera.class.st b/repository/OpenPonk-Core/OPDICamera.class.st index 850cc6d44..f96913d40 100644 --- a/repository/OpenPonk-Core/OPDICamera.class.st +++ b/repository/OpenPonk-Core/OPDICamera.class.st @@ -1,17 +1,19 @@ Class { - #name : #OPDICamera, - #superclass : #OPDiagramCamera, - #category : #'OpenPonk-Core-Shapes' + #name : 'OPDICamera', + #superclass : 'OPDiagramCamera', + #category : 'OpenPonk-Core-Shapes', + #package : 'OpenPonk-Core', + #tag : 'Shapes' } -{ #category : #testing } +{ #category : 'testing' } OPDICamera class >> isDeprecated [ "replaced by superclass" ^ true ] -{ #category : #'instance creation' } +{ #category : 'instance creation' } OPDICamera class >> new [ ^ self superclass new diff --git a/repository/OpenPonk-Core/OPDIOpenPonkStyle.class.st b/repository/OpenPonk-Core/OPDIOpenPonkStyle.class.st index 501b5d038..8f1e68316 100644 --- a/repository/OpenPonk-Core/OPDIOpenPonkStyle.class.st +++ b/repository/OpenPonk-Core/OPDIOpenPonkStyle.class.st @@ -1,17 +1,19 @@ Class { - #name : #OPDIOpenPonkStyle, - #superclass : #OPOpenPonkShapeStyle, - #category : #'OpenPonk-Core-Shapes' + #name : 'OPDIOpenPonkStyle', + #superclass : 'OPOpenPonkShapeStyle', + #category : 'OpenPonk-Core-Shapes', + #package : 'OpenPonk-Core', + #tag : 'Shapes' } -{ #category : #testing } +{ #category : 'testing' } OPDIOpenPonkStyle class >> isDeprecated [ "replaced by superclass" ^ true ] -{ #category : #'instance creation' } +{ #category : 'instance creation' } OPDIOpenPonkStyle class >> new [ ^ self superclass new diff --git a/repository/OpenPonk-Core/OPDiagram.class.st b/repository/OpenPonk-Core/OPDiagram.class.st index 3950e532e..40e267974 100644 --- a/repository/OpenPonk-Core/OPDiagram.class.st +++ b/repository/OpenPonk-Core/OPDiagram.class.st @@ -1,15 +1,17 @@ Class { - #name : #OPDiagram, - #superclass : #OPBoundNode, + #name : 'OPDiagram', + #superclass : 'OPBoundNode', #instVars : [ 'name', 'documentation', 'resolution' ], - #category : #'OpenPonk-Core-Shapes' + #category : 'OpenPonk-Core-Shapes', + #package : 'OpenPonk-Core', + #tag : 'Shapes' } -{ #category : #'ston-core' } +{ #category : 'ston-core' } OPDiagram class >> stonAllInstVarNames [ "Override to encode my instances using a custom set of instance variables or to define their order." @@ -17,37 +19,37 @@ OPDiagram class >> stonAllInstVarNames [ ^ super stonAllInstVarNames , #( #name #documentation #resolution ) ] -{ #category : #accessing } +{ #category : 'accessing' } OPDiagram >> documentation [ ^ documentation ] -{ #category : #accessing } +{ #category : 'accessing' } OPDiagram >> documentation: anObject [ documentation := anObject ] -{ #category : #'as yet unclassified' } +{ #category : 'as yet unclassified' } OPDiagram >> isPositionableByUser [ ^ false ] -{ #category : #testing } +{ #category : 'testing' } OPDiagram >> isRendered [ ^ roassalShape isNotNil ] -{ #category : #'as yet unclassified' } +{ #category : 'as yet unclassified' } OPDiagram >> isResizableByUser [ ^ false ] -{ #category : #'as yet unclassified' } +{ #category : 'as yet unclassified' } OPDiagram >> modelElementName [ ^ (self modelElement respondsTo: #name) @@ -55,25 +57,25 @@ OPDiagram >> modelElementName [ ifFalse: [ self modelElementType ] ] -{ #category : #'as yet unclassified' } +{ #category : 'as yet unclassified' } OPDiagram >> modelElementType [ ^ self modelElement className ] -{ #category : #accessing } +{ #category : 'accessing' } OPDiagram >> name [ ^ name ifNil: [ self modelElement name ] ] -{ #category : #accessing } +{ #category : 'accessing' } OPDiagram >> name: anObject [ name := anObject ] -{ #category : #'as yet unclassified' } +{ #category : 'as yet unclassified' } OPDiagram >> ownedElement: aShape renderedIn: aCanvas [ self isRendered ifTrue: [ @@ -87,7 +89,7 @@ OPDiagram >> ownedElement: aShape renderedIn: aCanvas [ self updateRenderFromSelf ] -{ #category : #rendering } +{ #category : 'rendering' } OPDiagram >> renderBasicShape [ "diagram cannot be rendered directly now, only its owned elements" @@ -95,7 +97,7 @@ OPDiagram >> renderBasicShape [ ^ nil ] -{ #category : #rendering } +{ #category : 'rendering' } OPDiagram >> renderBasicShapeIn: aCanvas [ self isRendered ifTrue: [ @@ -104,26 +106,26 @@ OPDiagram >> renderBasicShapeIn: aCanvas [ 'Reusing same diagram element for 2 canvases not allowed' ] ] ] -{ #category : #rendering } +{ #category : 'rendering' } OPDiagram >> renderShapeDetails [ "diagram cannot be rendered directly now, only its owned elements" ^ nil ] -{ #category : #accessing } +{ #category : 'accessing' } OPDiagram >> resolution [ ^ resolution ] -{ #category : #accessing } +{ #category : 'accessing' } OPDiagram >> resolution: anObject [ resolution := anObject ] -{ #category : #'as yet unclassified' } +{ #category : 'as yet unclassified' } OPDiagram >> updateFromRender [ self bounds: (OPNodeBounds diff --git a/repository/OpenPonk-Core/OPDiagramCamera.class.st b/repository/OpenPonk-Core/OPDiagramCamera.class.st index 03e353108..9687bd0b0 100644 --- a/repository/OpenPonk-Core/OPDiagramCamera.class.st +++ b/repository/OpenPonk-Core/OPDiagramCamera.class.st @@ -1,14 +1,16 @@ Class { - #name : #OPDiagramCamera, - #superclass : #Object, + #name : 'OPDiagramCamera', + #superclass : 'Object', #instVars : [ 'scale', 'position' ], - #category : #'OpenPonk-Core-Shapes' + #category : 'OpenPonk-Core-Shapes', + #package : 'OpenPonk-Core', + #tag : 'Shapes' } -{ #category : #'instance creation' } +{ #category : 'instance creation' } OPDiagramCamera class >> newFrom: aCamera [ ^ self new @@ -17,23 +19,23 @@ OPDiagramCamera class >> newFrom: aCamera [ yourself ] -{ #category : #accessing } +{ #category : 'accessing' } OPDiagramCamera >> position [ ^ position ] -{ #category : #accessing } +{ #category : 'accessing' } OPDiagramCamera >> position: aPoint [ position := aPoint ] -{ #category : #accessing } +{ #category : 'accessing' } OPDiagramCamera >> scale: aNumber [ scale := aNumber ] -{ #category : #roassal } +{ #category : 'roassal' } OPDiagramCamera >> updateRoassalCamera: aRSCamera [ scale ifNotNil: [ aRSCamera scale: scale ]. diff --git a/repository/OpenPonk-Core/OPDiagramController.class.st b/repository/OpenPonk-Core/OPDiagramController.class.st index 1f7670ac7..a6dfa6b9b 100644 --- a/repository/OpenPonk-Core/OPDiagramController.class.st +++ b/repository/OpenPonk-Core/OPDiagramController.class.st @@ -2,8 +2,8 @@ A DCDiagramController is the parent class to controller classes that control whole diagrams. It (its decendant) creates a palette / menu for specific diagram. It also handles the changes in diagram, e.g. removal of element. " Class { - #name : #OPDiagramController, - #superclass : #OPController, + #name : 'OPDiagramController', + #superclass : 'OPController', #instVars : [ 'announcer', 'controllers', @@ -21,10 +21,12 @@ Class { 'lastSelectionPosition', 'canvasPresenter' ], - #category : #'OpenPonk-Core-Controllers' + #category : 'OpenPonk-Core-Controllers', + #package : 'OpenPonk-Core', + #tag : 'Controllers' } -{ #category : #deprecated } +{ #category : 'deprecated' } OPDiagramController >> addAllElements [ self @@ -34,13 +36,13 @@ OPDiagramController >> addAllElements [ ^ self showAllElements ] -{ #category : #'controllers management' } +{ #category : 'controllers management' } OPDiagramController >> addController: aController [ aController diagramController: self. self controllers add: aController ] -{ #category : #deprecated } +{ #category : 'deprecated' } OPDiagramController >> addModelElement: aModelElement [ | controller figure | self deprecated: 'Use createModelIn:andShowInDiagram: instead.'. @@ -67,7 +69,7 @@ OPDiagramController >> addModelElement: aModelElement [ ^ controller" ] -{ #category : #accessing } +{ #category : 'accessing' } OPDiagramController >> addMouseEventsFor: aFigure [ aFigure @@ -80,7 +82,7 @@ OPDiagramController >> addMouseEventsFor: aFigure [ for: self ] -{ #category : #rendering } +{ #category : 'rendering' } OPDiagramController >> allShowableElements [ "Should return all elements that could be directly hidden on diagram" @@ -88,33 +90,33 @@ OPDiagramController >> allShowableElements [ ^ (Set with: model) , self elementsToShowInside ] -{ #category : #'as yet unclassified' } +{ #category : 'as yet unclassified' } OPDiagramController >> allVisibleShowableElements [ "Should return all elements that could be directly hidden on diagram but are currently shown" ^ self controllers collect: [ :each | each model ] ] -{ #category : #accessing } +{ #category : 'accessing' } OPDiagramController >> announcer [ ^ announcer ifNil: [ announcer := Announcer new ] ] -{ #category : #userinterface } +{ #category : 'userinterface' } OPDiagramController >> applyDefaultLayout [ self layouter defaultLayout ] -{ #category : #accessing } +{ #category : 'accessing' } OPDiagramController >> autosaveManager [ ^ autosaveManager ifNil: [ autosaveManager := OPAutosaveManager on: self plugin singleStringSerializer ] ] -{ #category : #'controllers management' } +{ #category : 'controllers management' } OPDiagramController >> cachedControllerForModel: aModel [ ^ self cachedControllerForModel: aModel ifNone: [ @@ -122,7 +124,7 @@ OPDiagramController >> cachedControllerForModel: aModel [ 'Controller for ' , aModel printString ] ] -{ #category : #'controllers management' } +{ #category : 'controllers management' } OPDiagramController >> cachedControllerForModel: aModel ifFound: aFoundBlock [ ^ self @@ -131,7 +133,7 @@ OPDiagramController >> cachedControllerForModel: aModel ifFound: aFoundBlock [ ifNone: [ nil ] ] -{ #category : #'controllers management' } +{ #category : 'controllers management' } OPDiagramController >> cachedControllerForModel: aModel ifFound: aFoundBlock ifNone: aNoneBlock [ | ctrl | @@ -150,7 +152,7 @@ OPDiagramController >> cachedControllerForModel: aModel ifFound: aFoundBlock ifN ifNone: aNoneBlock ] -{ #category : #'controllers management' } +{ #category : 'controllers management' } OPDiagramController >> cachedControllerForModel: aModel ifNone: aNoneBlock [ ^ self @@ -159,7 +161,7 @@ OPDiagramController >> cachedControllerForModel: aModel ifNone: aNoneBlock [ ifNone: aNoneBlock ] -{ #category : #'controllers management' } +{ #category : 'controllers management' } OPDiagramController >> cachedControllerForRoassalShape: aFigure [ | ctrl | @@ -174,7 +176,7 @@ OPDiagramController >> cachedControllerForRoassalShape: aFigure [ ^ ctrl ] -{ #category : #'controllers management' } +{ #category : 'controllers management' } OPDiagramController >> cachedControllerForRoassalShape: aFigure ifNone: aBlock [ | ctrl | @@ -191,60 +193,60 @@ OPDiagramController >> cachedControllerForRoassalShape: aFigure ifNone: aBlock [ ^ ctrl ] -{ #category : #connecting } +{ #category : 'connecting' } OPDiagramController >> canBeTargetFor: aController [ ^ (aController isKindOf: OPCommonElementController) and: [ aController class ~= OPCommonElementController ] ] -{ #category : #accessing } +{ #category : 'accessing' } OPDiagramController >> canvas [ ^ canvasPresenter canvas ] -{ #category : #accessing } +{ #category : 'accessing' } OPDiagramController >> canvasPresenter [ ^ canvasPresenter ] -{ #category : #accessing } +{ #category : 'accessing' } OPDiagramController >> canvasPresenter: aCanvasPresenter [ canvasPresenter := aCanvasPresenter. self addMouseEventsFor: canvasPresenter canvas ] -{ #category : #accessing } +{ #category : 'accessing' } OPDiagramController >> commonElementControllers [ ^ self controllers select: #isCommon ] -{ #category : #accessing } +{ #category : 'accessing' } OPDiagramController >> commonElements [ ^ self commonElementControllers collect: #model as: Array ] -{ #category : #accessing } +{ #category : 'accessing' } OPDiagramController >> controllerFactory [ ^ OPControllerFactory withCommonElements ] -{ #category : #'controllers management' } +{ #category : 'controllers management' } OPDiagramController >> controllerForModel: aModel [ aModel = model ifTrue: [ ^ self ]. ^ self cachedControllerForModel: aModel ] -{ #category : #'controllers management' } +{ #category : 'controllers management' } OPDiagramController >> controllerForModel: aModel ifFound: aFoundBlock [ aModel = model ifTrue: [ ^ aFoundBlock value: self ]. ^ self cachedControllerForModel: aModel ifFound: aFoundBlock ] -{ #category : #'controllers management' } +{ #category : 'controllers management' } OPDiagramController >> controllerForModel: aModel ifFound: aFoundBlock ifNone: aNoneBlock [ aModel = model ifTrue: [ ^ aFoundBlock value: self ]. @@ -254,14 +256,14 @@ OPDiagramController >> controllerForModel: aModel ifFound: aFoundBlock ifNone: a ifNone: aNoneBlock ] -{ #category : #'controllers management' } +{ #category : 'controllers management' } OPDiagramController >> controllerForModel: aModel ifNone: aFoundBlock [ aModel = model ifTrue: [ ^ self ]. ^ self cachedControllerForModel: aModel ifNone: aFoundBlock ] -{ #category : #'controllers management' } +{ #category : 'controllers management' } OPDiagramController >> controllerForRoassalShape: aFigure [ aFigure = self canvas ifTrue: [ ^ self ]. @@ -269,7 +271,7 @@ OPDiagramController >> controllerForRoassalShape: aFigure [ "^ self controllers detect: [ :ctrl | ctrl figure = aFigure ]" ] -{ #category : #'controllers management' } +{ #category : 'controllers management' } OPDiagramController >> controllerForRoassalShape: aFigure ifNone: aBlock [ aFigure = self canvas ifTrue: [ ^ self ]. @@ -277,25 +279,25 @@ OPDiagramController >> controllerForRoassalShape: aFigure ifNone: aBlock [ "^ self controllers detect: [ :ctrl | ctrl figure = aFigure ]" ] -{ #category : #deprecated } +{ #category : 'deprecated' } OPDiagramController >> controllerNameFor: aModel [ self deprecated: 'no replacement' " ^ modelToControllerMapping at: aModel class" ] -{ #category : #'controllers management' } +{ #category : 'controllers management' } OPDiagramController >> controllers [ ^ controllers ifNil: [ controllers := Set new ] ] -{ #category : #testing } +{ #category : 'testing' } OPDiagramController >> controllersOfVisibleElements: aCollectionOfModelObject [ ^ aCollectionOfModelObject collect: [ :each | self controllerForModel: each ifNone: [ nil ] ] thenSelect: [ :each | each isNotNil ] ] -{ #category : #deprecated } +{ #category : 'deprecated' } OPDiagramController >> createController: aModel [ self deprecated: 'Use newControllerFor: instead' @@ -304,13 +306,13 @@ OPDiagramController >> createController: aModel [ ^ self newControllerFor: aModel ] -{ #category : #'protocol-canvas' } +{ #category : 'protocol-canvas' } OPDiagramController >> deselectAll [ self announcer announce: OPAllFiguresDeselected new ] -{ #category : #accessing } +{ #category : 'accessing' } OPDiagramController >> diagram [ self @@ -319,7 +321,7 @@ OPDiagramController >> diagram [ ^ self diagramElement ] -{ #category : #accessing } +{ #category : 'accessing' } OPDiagramController >> diagram: aDiagram [ self @@ -329,12 +331,12 @@ OPDiagramController >> diagram: aDiagram [ ^ self diagramElement: aDiagram ] -{ #category : #accessing } +{ #category : 'accessing' } OPDiagramController >> diagramController [ ^ self ] -{ #category : #accessing } +{ #category : 'accessing' } OPDiagramController >> diagramController: aController [ aController ifNil: [ ^ self ]. @@ -342,28 +344,28 @@ OPDiagramController >> diagramController: aController [ self error: 'Cannot assign diagramController to diagramController' ] -{ #category : #userinterface } +{ #category : 'userinterface' } OPDiagramController >> disableRefresh [ self flag: #todo ] -{ #category : #'ui interaction' } +{ #category : 'ui interaction' } OPDiagramController >> editor [ ^ editor ] -{ #category : #'ui interaction' } +{ #category : 'ui interaction' } OPDiagramController >> editor: anEditor [ editor := anEditor ] -{ #category : #userinterface } +{ #category : 'userinterface' } OPDiagramController >> enableRefresh [ self flag: #todo ] -{ #category : #figures } +{ #category : 'figures' } OPDiagramController >> ensureControllerFor: aModel [ | controller | @@ -373,12 +375,12 @@ OPDiagramController >> ensureControllerFor: aModel [ ^ controller ] -{ #category : #accessing } +{ #category : 'accessing' } OPDiagramController >> figure [ ^ self canvas ] -{ #category : #accessing } +{ #category : 'accessing' } OPDiagramController >> figureAdded: aFigure [ self @@ -389,7 +391,7 @@ OPDiagramController >> figureAdded: aFigure [ ^ self rendered: (self controllerForRoassalShape: aFigure) ] -{ #category : #accessing } +{ #category : 'accessing' } OPDiagramController >> figureContextClicked: anEvent [ | shapes menu | @@ -403,13 +405,13 @@ OPDiagramController >> figureContextClicked: anEvent [ menu popUpInWorld ] -{ #category : #'ui interaction' } +{ #category : 'ui interaction' } OPDiagramController >> form [ ^ self editor form ] -{ #category : #'controllers management' } +{ #category : 'controllers management' } OPDiagramController >> hasControllerForFigure: aFigure [ ^ aFigure = self canvas or: [ @@ -417,29 +419,29 @@ OPDiagramController >> hasControllerForFigure: aFigure [ true ] ] -{ #category : #'controllers management' } +{ #category : 'controllers management' } OPDiagramController >> hasControllerForModel: aModel [ ^ aModel = model or: [ self cachedControllerForModel: aModel ifNone: [ ^ false ]. true ] ] -{ #category : #testing } +{ #category : 'testing' } OPDiagramController >> hasRedo [ ^ self autosaveManager futureIsEmpty not ] -{ #category : #testing } +{ #category : 'testing' } OPDiagramController >> hasSupportForModel: aModel [ ^ controllerFactory hasControllerFor: aModel ] -{ #category : #testing } +{ #category : 'testing' } OPDiagramController >> hasUndo [ ^ self autosaveManager historyIsEmpty not ] -{ #category : #figures } +{ #category : 'figures' } OPDiagramController >> hideAllElements [ [ self controllers isNotEmpty ] whileTrue: [ @@ -447,33 +449,33 @@ OPDiagramController >> hideAllElements [ self canvas signalUpdate ] -{ #category : #figures } +{ #category : 'figures' } OPDiagramController >> hideModelFromDiagram: aModel [ self controllerForModel: aModel ifFound: [ :ctrl | ctrl removeController ] ] -{ #category : #'protocol-canvas' } +{ #category : 'protocol-canvas' } OPDiagramController >> hoverController: aController [ self editor palette selectedTool hoveredController: aController ] -{ #category : #'protocol-canvas' } +{ #category : 'protocol-canvas' } OPDiagramController >> hoverRoassalShape: aFigure [ self hoverController: (self controllerForRoassalShape: aFigure) ] -{ #category : #'ui interaction' } +{ #category : 'ui interaction' } OPDiagramController >> incompatiblePaletteItemNames [ ^ OPCommonElementController allSubclasses reject: [ :eachClass | self canBeTargetFor: eachClass new ] thenCollect: [ :each | each paletteItemName ] ] -{ #category : #initialization } +{ #category : 'initialization' } OPDiagramController >> initialize [ super initialize. figureAdded := [ :figure | ]. @@ -482,28 +484,28 @@ OPDiagramController >> initialize [ figuresBeingAdded := Set new ] -{ #category : #'ui interaction' } +{ #category : 'ui interaction' } OPDiagramController >> initializePalette: aPalette [ self subclassResponsibility ] -{ #category : #testing } +{ #category : 'testing' } OPDiagramController >> isVisibleInDiagram: aModel [ ^ self hasControllerForModel: aModel ] -{ #category : #accessing } +{ #category : 'accessing' } OPDiagramController >> layouter [ ^ layouter ifNil: [ layouter := self plugin layouterClass new diagramController: self ] ] -{ #category : #accessing } +{ #category : 'accessing' } OPDiagramController >> layouter: aLayouter [ layouter := aLayouter ] -{ #category : #'undo/redo' } +{ #category : 'undo/redo' } OPDiagramController >> loadState: aMemento [ " | oldModel | aMemento ifNil: [ ^ self ]. @@ -516,22 +518,22 @@ OPDiagramController >> loadState: aMemento [ self editor updateUndoRedo" ] -{ #category : #accessing } +{ #category : 'accessing' } OPDiagramController >> modelClass [ ^ self plugin modelClass ] -{ #category : #accessing } +{ #category : 'accessing' } OPDiagramController >> modelForFigure: aFigure [ ^ (self controllerForRoassalShape: aFigure) model ] -{ #category : #'events handling' } +{ #category : 'events handling' } OPDiagramController >> modelRemoved: aModel [ self controllerForModel: aModel ifFound: #removeController ] -{ #category : #accessing } +{ #category : 'accessing' } OPDiagramController >> modelToControllerMapping [ self deprecated: 'Use #controllerFactory instead' @@ -539,7 +541,7 @@ OPDiagramController >> modelToControllerMapping [ ^ self controllerFactory ] -{ #category : #'as yet unclassified' } +{ #category : 'as yet unclassified' } OPDiagramController >> nameOfTypeForModel: aModel [ self deprecated: 'use #name on typeOfModel: instead' @@ -549,58 +551,58 @@ OPDiagramController >> nameOfTypeForModel: aModel [ ^ (self typeOfModel: aModel) name ] -{ #category : #'controllers management' } +{ #category : 'controllers management' } OPDiagramController >> newControllerFor: aModel [ ^ controllerFactory newControllerFor: aModel ] -{ #category : #'ui interaction' } +{ #category : 'ui interaction' } OPDiagramController >> openInForm: aController [ self form editController: aController ] -{ #category : #accessing } +{ #category : 'accessing' } OPDiagramController >> parent [ ^ self ] -{ #category : #accessing } +{ #category : 'accessing' } OPDiagramController >> plugin [ ^ plugin ifNil: [ OPPluginRegistry default pluginForController: self ] ] -{ #category : #'undo/redo' } +{ #category : 'undo/redo' } OPDiagramController >> redo [ self assert: [ self hasRedo ]. self loadState: self autosaveManager loadNext ] -{ #category : #deprecated } +{ #category : 'deprecated' } OPDiagramController >> registerModelEvents: aModel [ self deprecated: 'Use #model: and #internalSubscribeTo: instead'. "super registerModelEvents: aModel. aModel announcer when: OPElementChanged do: [ :evt | self saveState ]" ] -{ #category : #deprecated } +{ #category : 'deprecated' } OPDiagramController >> remove [ self error: 'There should be no need to call #remove on DiagramController' ] -{ #category : #destruction } +{ #category : 'destruction' } OPDiagramController >> removeAllControllers [ [ self controllers isNotEmpty ] whileTrue: [ self controllers anyOne removeController ] ] -{ #category : #'controllers management' } +{ #category : 'controllers management' } OPDiagramController >> removeController: aController [ self controllers remove: aController ifAbsent: [ ] ] -{ #category : #deprecated } +{ #category : 'deprecated' } OPDiagramController >> removeControllerOf: aModelElement [ self deprecated: 'Use #removeController: and #removeController instead' @@ -609,13 +611,13 @@ OPDiagramController >> removeControllerOf: aModelElement [ ^ self removeController: (self controllerForModel: aModelElement) ] -{ #category : #destruction } +{ #category : 'destruction' } OPDiagramController >> removeFromCanvas: aFigure [ aFigure ifNil: [ ^ self ]. (self controllerForRoassalShape: aFigure) removeControllerAndModel ] -{ #category : #deprecated } +{ #category : 'deprecated' } OPDiagramController >> removeFromModel: aModel [ "Remove aModel from the diagram. It is aModel's owner's controller responsibility to remove it. @@ -627,13 +629,13 @@ OPDiagramController >> removeFromModel: aModel [ (self controllerForModel: aModel owner) removeModelElement: aModel" ] -{ #category : #deprecated } +{ #category : 'deprecated' } OPDiagramController >> removeModel [ self deprecated: 'should not implement'. ^ self shouldNotImplement ] -{ #category : #deprecated } +{ #category : 'deprecated' } OPDiagramController >> removeModelElement: aModelElement [ self deprecated: 'Use removeModel on its controller instead.'. " model remove: aModelElement" @@ -641,7 +643,7 @@ OPDiagramController >> removeModelElement: aModelElement [ (self controllerForModel: aModelElement) removeModel ] -{ #category : #accessing } +{ #category : 'accessing' } OPDiagramController >> rendered: aController [ (figuresBeingAdded includes: aController) @@ -658,26 +660,26 @@ OPDiagramController >> rendered: aController [ self addMouseEventsFor: aController roassalShape ] -{ #category : #testing } +{ #category : 'testing' } OPDiagramController >> requiresControllerToShowDiagramElement: aDiagramElement [ ^ aDiagramElement ownModelElement isNotNil and: [ (aDiagramElement isKindOf: OPEdgeLabel) not ] ] -{ #category : #accessing } +{ #category : 'accessing' } OPDiagramController >> roassalShape [ ^ self canvas ] -{ #category : #accessing } +{ #category : 'accessing' } OPDiagramController >> roassalShapeForModel: aModel [ ^ (self controllerForModel: aModel) roassalShape ] -{ #category : #'undo/redo' } +{ #category : 'undo/redo' } OPDiagramController >> saveState [ " | memento | memento := self memento. @@ -686,20 +688,20 @@ OPDiagramController >> saveState [ self editor workbench projectController autoSave: memento" ] -{ #category : #'ui interaction' } +{ #category : 'ui interaction' } OPDiagramController >> selectController: aController [ self editor palette selectSelectionTool selectedTool selectedTargetControllers: { aController } ] -{ #category : #accessing } +{ #category : 'accessing' } OPDiagramController >> selectedElements [ ^ (self canvas propertyAt: OPRSSelectableCanvas) selectedShapes ] -{ #category : #'protocol-canvas' } +{ #category : 'protocol-canvas' } OPDiagramController >> selectedShapes: shapes onPosition: aPoint [ lastSelectionPosition := aPoint. @@ -707,7 +709,7 @@ OPDiagramController >> selectedShapes: shapes onPosition: aPoint [ (shapes collect: [ :each | self controllerForRoassalShape: each ]) ] -{ #category : #rebuilding } +{ #category : 'rebuilding' } OPDiagramController >> showAllElements [ self disableRefresh. @@ -716,7 +718,7 @@ OPDiagramController >> showAllElements [ self enableRefresh ] -{ #category : #rebuilding } +{ #category : 'rebuilding' } OPDiagramController >> showDiagramElement: aDiagramElement [ (self requiresControllerToShowDiagramElement: aDiagramElement) @@ -739,7 +741,7 @@ OPDiagramController >> showDiagramElement: aDiagramElement [ self showDiagramElement: each ] ] -{ #category : #rebuilding } +{ #category : 'rebuilding' } OPDiagramController >> showElements [ diagramElement ownedElements do: [ :each | @@ -747,7 +749,7 @@ OPDiagramController >> showElements [ diagramElement updateRenderFromSelf ] -{ #category : #figures } +{ #category : 'figures' } OPDiagramController >> showInDiagramModel: aModel [ self controllerForModel: aModel ifFound: [ :ctrl | ^ ctrl ]. @@ -756,7 +758,7 @@ OPDiagramController >> showInDiagramModel: aModel [ yourself ] -{ #category : #figures } +{ #category : 'figures' } OPDiagramController >> showWithoutDependentInDiagramModel: aModel [ self controllerForModel: aModel ifFound: [ :ctrl | ^ ctrl ]. @@ -765,7 +767,7 @@ OPDiagramController >> showWithoutDependentInDiagramModel: aModel [ yourself ] -{ #category : #'as yet unclassified' } +{ #category : 'as yet unclassified' } OPDiagramController >> typeOfModel: aModel [ ^ OPModelObjectType named: @@ -773,19 +775,19 @@ OPDiagramController >> typeOfModel: aModel [ splitOnCapitals joinUsing: ' ') ] -{ #category : #'undo/redo' } +{ #category : 'undo/redo' } OPDiagramController >> undo [ self assert: [ self hasUndo ]. self loadState: self autosaveManager loadPrevious ] -{ #category : #userinterface } +{ #category : 'userinterface' } OPDiagramController >> updateCanvas [ self canvas signalUpdate ] -{ #category : #userinterface } +{ #category : 'userinterface' } OPDiagramController >> updateView [ self @@ -796,7 +798,7 @@ OPDiagramController >> updateView [ ^ self updateCanvas ] -{ #category : #accessing } +{ #category : 'accessing' } OPDiagramController >> view [ self @@ -805,13 +807,13 @@ OPDiagramController >> view [ ^ self canvas ] -{ #category : #accessing } +{ #category : 'accessing' } OPDiagramController >> visibleElements [ ^ self allShowableElements select: [ :el | self isVisibleInDiagram: el ] ] -{ #category : #accessing } +{ #category : 'accessing' } OPDiagramController >> visibleElements: aCollection [ | executor | aCollection ifEmpty: [ ^ self ]. @@ -823,24 +825,24 @@ OPDiagramController >> visibleElements: aCollection [ select: [ :each | aCollection anySatisfy: [ :any | any = each ] ]) ] -{ #category : #accessing } +{ #category : 'accessing' } OPDiagramController >> when: anEvent do: aBlock [ - ^ self announcer when: anEvent do: aBlock + ^ self announcer when: anEvent do: aBlock for: aBlock receiver ] -{ #category : #'protocol-events' } +{ #category : 'protocol-events' } OPDiagramController >> whenAllDeselectedDo: aBlock [ self when: OPAllFiguresDeselected do: aBlock ] -{ #category : #'protocol-events' } +{ #category : 'protocol-events' } OPDiagramController >> whenFigureAdded: aBlock [ figureAdded := aBlock ifNil: [ [ :figure | ] ] ] -{ #category : #accessing } +{ #category : 'accessing' } OPDiagramController >> willRender: aController [ (figuresBeingAdded includes: aController) ifTrue: [ @@ -848,17 +850,17 @@ OPDiagramController >> willRender: aController [ figuresBeingAdded add: aController ] -{ #category : #accessing } +{ #category : 'accessing' } OPDiagramController >> workbenchAnnouncer [ ^ workbenchAnnouncer ] -{ #category : #accessing } +{ #category : 'accessing' } OPDiagramController >> workbenchAnnouncer: anObject [ workbenchAnnouncer := anObject ] -{ #category : #zoom } +{ #category : 'zoom' } OPDiagramController >> zoomToFit [ self canvasPresenter zoomToFit diff --git a/repository/OpenPonk-Core/OPDiagramInfo.class.st b/repository/OpenPonk-Core/OPDiagramInfo.class.st index 58f3758c4..a5ecd8c62 100644 --- a/repository/OpenPonk-Core/OPDiagramInfo.class.st +++ b/repository/OpenPonk-Core/OPDiagramInfo.class.st @@ -2,8 +2,8 @@ I represent a basic info about the view that is detached from its actual content. I exist mainly to separate per-application info about what is opened/how the views are ordered. " Class { - #name : #OPDiagramInfo, - #superclass : #Object, + #name : 'OPDiagramInfo', + #superclass : 'Object', #instVars : [ 'modelName', 'modelType', @@ -12,17 +12,19 @@ Class { 'order', 'diagramName' ], - #category : #'OpenPonk-Core-Diagrams' + #category : 'OpenPonk-Core-Diagrams', + #package : 'OpenPonk-Core', + #tag : 'Diagrams' } -{ #category : #testing } +{ #category : 'testing' } OPDiagramInfo class >> isDeprecated [ "no longer tested and used" ^ true ] -{ #category : #serializing } +{ #category : 'serializing' } OPDiagramInfo >> asJson [ ^ String << [ :stream | @@ -31,44 +33,44 @@ OPDiagramInfo >> asJson [ nextPut: self ] ] -{ #category : #accessing } +{ #category : 'accessing' } OPDiagramInfo >> diagramName [ ^ diagramName ] -{ #category : #accessing } +{ #category : 'accessing' } OPDiagramInfo >> diagramName: anObject [ diagramName := anObject ] -{ #category : #testing } +{ #category : 'testing' } OPDiagramInfo >> isForDiagram: aDiagram [ ^ aDiagram modelType = self modelType & (aDiagram modelName = self modelName) & (aDiagram name = self diagramName) ] -{ #category : #accessing } +{ #category : 'accessing' } OPDiagramInfo >> isOpen [ ^ isOpen ] -{ #category : #accessing } +{ #category : 'accessing' } OPDiagramInfo >> isOpen: anObject [ isOpen := anObject ] -{ #category : #accessing } +{ #category : 'accessing' } OPDiagramInfo >> isSelected [ ^ isSelected ] -{ #category : #accessing } +{ #category : 'accessing' } OPDiagramInfo >> isSelected: anObject [ isSelected := anObject ] -{ #category : #accessing } +{ #category : 'accessing' } OPDiagramInfo >> model [ self deprecated: 'We no longer have means to find the project'. @@ -82,37 +84,37 @@ OPDiagramInfo >> model [ [ each name = self modelName and: [ each version = self modelVersion ] ] ]" ] -{ #category : #accessing } +{ #category : 'accessing' } OPDiagramInfo >> modelName [ ^ modelName ] -{ #category : #accessing } +{ #category : 'accessing' } OPDiagramInfo >> modelName: anObject [ modelName := anObject ] -{ #category : #accessing } +{ #category : 'accessing' } OPDiagramInfo >> modelType [ ^ modelType ] -{ #category : #accessing } +{ #category : 'accessing' } OPDiagramInfo >> modelType: anObject [ modelType := anObject ] -{ #category : #accessing } +{ #category : 'accessing' } OPDiagramInfo >> order [ ^ order ] -{ #category : #accessing } +{ #category : 'accessing' } OPDiagramInfo >> order: anObject [ order := anObject ] -{ #category : #printing } +{ #category : 'printing' } OPDiagramInfo >> printOn: aStream [ super printOn: aStream. diff --git a/repository/OpenPonk-Core/OPDiagramOnlyShape.class.st b/repository/OpenPonk-Core/OPDiagramOnlyShape.class.st index 7a6b262cd..487e50646 100644 --- a/repository/OpenPonk-Core/OPDiagramOnlyShape.class.st +++ b/repository/OpenPonk-Core/OPDiagramOnlyShape.class.st @@ -1,15 +1,17 @@ Class { - #name : #OPDiagramOnlyShape, - #superclass : #OPBoundNode, + #name : 'OPDiagramOnlyShape', + #superclass : 'OPBoundNode', #traits : 'OPTBorderColoredAsStroke - {#updateRenderFromStyles}', #classTraits : 'OPTBorderColoredAsStroke classTrait', #instVars : [ 'uuid' ], - #category : #'OpenPonk-Core-CommonElements' + #category : 'OpenPonk-Core-CommonElements', + #package : 'OpenPonk-Core', + #tag : 'CommonElements' } -{ #category : #accessing } +{ #category : 'accessing' } OPDiagramOnlyShape class >> neoJsonMapping: mapper [ mapper @@ -30,7 +32,7 @@ OPDiagramOnlyShape class >> neoJsonMapping: mapper [ do: [ string ] ] ] ] -{ #category : #'ston-core' } +{ #category : 'ston-core' } OPDiagramOnlyShape class >> stonAllInstVarNames [ "Override to encode my instances using a custom set of instance variables or to define their order." @@ -38,45 +40,45 @@ OPDiagramOnlyShape class >> stonAllInstVarNames [ ^ super stonAllInstVarNames , #( #uuid ) ] -{ #category : #accessing } +{ #category : 'accessing' } OPDiagramOnlyShape >> announcer [ ^ roassalShape ifNotNil: #announcer ] -{ #category : #accessing } +{ #category : 'accessing' } OPDiagramOnlyShape >> initialize [ super initialize. uuid := UUID new ] -{ #category : #accessing } +{ #category : 'accessing' } OPDiagramOnlyShape >> modelElements [ ^ { self } ] -{ #category : #accessing } +{ #category : 'accessing' } OPDiagramOnlyShape >> modelElements: aCollection [ (aCollection noneSatisfy: [ :any | any ~= self ]) ifTrue: [ ^ self ]. self shouldNotImplement ] -{ #category : #accessing } +{ #category : 'accessing' } OPDiagramOnlyShape >> strokeColor: aColor [ "ignore for now" ] -{ #category : #rendering } +{ #category : 'rendering' } OPDiagramOnlyShape >> updateRenderFromModel [ "do nothing - there is no model" ] -{ #category : #accessing } +{ #category : 'accessing' } OPDiagramOnlyShape >> uuid [ ^ uuid diff --git a/repository/OpenPonk-Core/OPDiagramSerializer.class.st b/repository/OpenPonk-Core/OPDiagramSerializer.class.st index a1b365b7e..d5c0bda40 100644 --- a/repository/OpenPonk-Core/OPDiagramSerializer.class.st +++ b/repository/OpenPonk-Core/OPDiagramSerializer.class.st @@ -1,28 +1,30 @@ Class { - #name : #OPDiagramSerializer, - #superclass : #OPSerializer, - #category : #'OpenPonk-Core-Persistence' + #name : 'OPDiagramSerializer', + #superclass : 'OPSerializer', + #category : 'OpenPonk-Core-Persistence', + #package : 'OpenPonk-Core', + #tag : 'Persistence' } -{ #category : #'as yet unclassified' } +{ #category : 'as yet unclassified' } OPDiagramSerializer class >> exportSubject [ ^ #diagram ] -{ #category : #accessing } +{ #category : 'accessing' } OPDiagramSerializer >> formatName [ ^ self subclassResponsibility ] -{ #category : #'serialize/materialize' } +{ #category : 'serialize/materialize' } OPDiagramSerializer >> materializeDiagramOf: aModel from: aStream [ "materialize aStream into a diagram that will be consumed by your controller" ^ self subclassResponsibility ] -{ #category : #'serialize/materialize' } +{ #category : 'serialize/materialize' } OPDiagramSerializer >> serializeDiagram: aDiagram [ "Serialize a diagram returned by your controller to a string" @@ -30,7 +32,7 @@ OPDiagramSerializer >> serializeDiagram: aDiagram [ streamContents: [ :stream | self serializeDiagram: aDiagram to: stream ] ] -{ #category : #'serialize/materialize' } +{ #category : 'serialize/materialize' } OPDiagramSerializer >> serializeDiagram: aDiagram to: aStream [ "Serialize a diagram returned by your controller to a string" diff --git a/repository/OpenPonk-Core/OPDiagramView.class.st b/repository/OpenPonk-Core/OPDiagramView.class.st index 09a010071..ba23bf6ae 100644 --- a/repository/OpenPonk-Core/OPDiagramView.class.st +++ b/repository/OpenPonk-Core/OPDiagramView.class.st @@ -1,5 +1,7 @@ Class { - #name : #OPDiagramView, - #superclass : #OPLegacyDiagram, - #category : #'OpenPonk-Core-Diagrams' + #name : 'OPDiagramView', + #superclass : 'OPLegacyDiagram', + #category : 'OpenPonk-Core-Diagrams', + #package : 'OpenPonk-Core', + #tag : 'Diagrams' } diff --git a/repository/OpenPonk-Core/OPDiagramViewCamera.class.st b/repository/OpenPonk-Core/OPDiagramViewCamera.class.st index 907c731c1..c48c5d690 100644 --- a/repository/OpenPonk-Core/OPDiagramViewCamera.class.st +++ b/repository/OpenPonk-Core/OPDiagramViewCamera.class.st @@ -1,10 +1,12 @@ Class { - #name : #OPDiagramViewCamera, - #superclass : #OPLegacyDiagramCamera, - #category : #'OpenPonk-Core-Diagrams' + #name : 'OPDiagramViewCamera', + #superclass : 'OPLegacyDiagramCamera', + #category : 'OpenPonk-Core-Diagrams', + #package : 'OpenPonk-Core', + #tag : 'Diagrams' } -{ #category : #testing } +{ #category : 'testing' } OPDiagramViewCamera class >> isDeprecated [ "renamed to OPDiagramCamera" diff --git a/repository/OpenPonk-Core/OPDiagramViewInfo.class.st b/repository/OpenPonk-Core/OPDiagramViewInfo.class.st index 31861effd..4e298fc24 100644 --- a/repository/OpenPonk-Core/OPDiagramViewInfo.class.st +++ b/repository/OpenPonk-Core/OPDiagramViewInfo.class.st @@ -1,5 +1,7 @@ Class { - #name : #OPDiagramViewInfo, - #superclass : #OPDiagramInfo, - #category : #'OpenPonk-Core-Diagrams' + #name : 'OPDiagramViewInfo', + #superclass : 'OPDiagramInfo', + #category : 'OpenPonk-Core-Diagrams', + #package : 'OpenPonk-Core', + #tag : 'Diagrams' } diff --git a/repository/OpenPonk-Core/OPDirectionalRelationshipController.class.st b/repository/OpenPonk-Core/OPDirectionalRelationshipController.class.st index 13a282711..750918e1b 100644 --- a/repository/OpenPonk-Core/OPDirectionalRelationshipController.class.st +++ b/repository/OpenPonk-Core/OPDirectionalRelationshipController.class.st @@ -2,18 +2,20 @@ A DCRelationshipController is the parent class to all line based element controllers. " Class { - #name : #OPDirectionalRelationshipController, - #superclass : #OPElementController, + #name : 'OPDirectionalRelationshipController', + #superclass : 'OPElementController', #traits : 'OPTRelationshipWithPathPointsController', #classTraits : 'OPTRelationshipWithPathPointsController classTrait', #instVars : [ 'source', 'target' ], - #category : #'OpenPonk-Core-Controllers' + #category : 'OpenPonk-Core-Controllers', + #package : 'OpenPonk-Core', + #tag : 'Controllers' } -{ #category : #figures } +{ #category : 'figures' } OPDirectionalRelationshipController >> createDiagramElement [ super createDiagramElement. @@ -22,13 +24,13 @@ OPDirectionalRelationshipController >> createDiagramElement [ target: self target ensureDiagramElement ] -{ #category : #hooks } +{ #category : 'hooks' } OPDirectionalRelationshipController >> createLineFrom: fromElement to: toElement [ self deprecated: 'This is responsibility of DI shapes now'. ] -{ #category : #construction } +{ #category : 'construction' } OPDirectionalRelationshipController >> createModelIn: aParentModel [ self model: self modelClass new. @@ -38,32 +40,32 @@ OPDirectionalRelationshipController >> createModelIn: aParentModel [ ^ self model ] -{ #category : #hooks } +{ #category : 'hooks' } OPDirectionalRelationshipController >> edgeBuilder [ self deprecated: 'Depracated without replacement - use Roassal directly or define own figures' ] -{ #category : #accessing } +{ #category : 'accessing' } OPDirectionalRelationshipController >> modelSource [ ^ self model source ] -{ #category : #accessing } +{ #category : 'accessing' } OPDirectionalRelationshipController >> modelTarget [ ^ self model target ] -{ #category : #rendering } +{ #category : 'rendering' } OPDirectionalRelationshipController >> renderSimplified [ diagramElement := self diagramElementClass renderSimplifiedForController: self. ] -{ #category : #accessing } +{ #category : 'accessing' } OPDirectionalRelationshipController >> source [ ^ source ifNil: [ @@ -71,12 +73,12 @@ OPDirectionalRelationshipController >> source [ ensureControllerFor: self modelSource ] ] -{ #category : #accessing } +{ #category : 'accessing' } OPDirectionalRelationshipController >> source: aSourceController [ source := aSourceController ] -{ #category : #accessing } +{ #category : 'accessing' } OPDirectionalRelationshipController >> target [ ^ target ifNil: [ @@ -84,7 +86,7 @@ OPDirectionalRelationshipController >> target [ ensureControllerFor: self modelTarget ] ] -{ #category : #accessing } +{ #category : 'accessing' } OPDirectionalRelationshipController >> target: aTargetController [ target := aTargetController ] diff --git a/repository/OpenPonk-Core/OPEdge.class.st b/repository/OpenPonk-Core/OPEdge.class.st index 3d94cfd55..bc67002cd 100644 --- a/repository/OpenPonk-Core/OPEdge.class.st +++ b/repository/OpenPonk-Core/OPEdge.class.st @@ -1,15 +1,17 @@ Class { - #name : #OPEdge, - #superclass : #OPShape, + #name : 'OPEdge', + #superclass : 'OPShape', #instVars : [ 'source', 'target', 'waypoints' ], - #category : #'OpenPonk-Core-Shapes' + #category : 'OpenPonk-Core-Shapes', + #package : 'OpenPonk-Core', + #tag : 'Shapes' } -{ #category : #rendering } +{ #category : 'rendering' } OPEdge class >> renderForController: aController [ ^ self new @@ -20,7 +22,7 @@ OPEdge class >> renderForController: aController [ yourself ] -{ #category : #rendering } +{ #category : 'rendering' } OPEdge class >> renderSimplifiedForController: aController [ ^ self new @@ -30,7 +32,7 @@ OPEdge class >> renderSimplifiedForController: aController [ yourself ] -{ #category : #'ston-core' } +{ #category : 'ston-core' } OPEdge class >> stonAllInstVarNames [ "Override to encode my instances using a custom set of instance variables or to define their order." @@ -38,13 +40,13 @@ OPEdge class >> stonAllInstVarNames [ ^ super stonAllInstVarNames , #( #source #target #waypoints ) ] -{ #category : #accessing } +{ #category : 'accessing' } OPEdge >> innerWaypoints [ ^ waypoints copyFrom: 2 to: waypoints size - 1 ] -{ #category : #accessing } +{ #category : 'accessing' } OPEdge >> innerWaypoints: aCollection [ self isRendered ifTrue: [ @@ -53,7 +55,7 @@ OPEdge >> innerWaypoints: aCollection [ , { self roassalShape controlPoints last } ] ] -{ #category : #removing } +{ #category : 'removing' } OPEdge >> remove [ super remove. @@ -61,19 +63,19 @@ OPEdge >> remove [ self target: nil ] -{ #category : #rendering } +{ #category : 'rendering' } OPEdge >> selectableInteraction [ ^ OPRSSelectable highlightColorBlue ] -{ #category : #accessing } +{ #category : 'accessing' } OPEdge >> source [ ^ source ] -{ #category : #accessing } +{ #category : 'accessing' } OPEdge >> source: anElement [ source := SRToOneLink @@ -84,13 +86,13 @@ OPEdge >> source: anElement [ to: anElement ] -{ #category : #accessing } +{ #category : 'accessing' } OPEdge >> target [ ^ target ] -{ #category : #accessing } +{ #category : 'accessing' } OPEdge >> target: anElement [ target := SRToOneLink @@ -101,14 +103,14 @@ OPEdge >> target: anElement [ to: anElement ] -{ #category : #'as yet unclassified' } +{ #category : 'as yet unclassified' } OPEdge >> updateFromRender [ self waypoints: roassalShape controlPoints. super updateFromRender ] -{ #category : #'as yet unclassified' } +{ #category : 'as yet unclassified' } OPEdge >> updateRenderFromSelf [ self isRendered ifFalse: [ ^ self ]. @@ -122,13 +124,13 @@ OPEdge >> updateRenderFromSelf [ super updateRenderFromSelf ] -{ #category : #accessing } +{ #category : 'accessing' } OPEdge >> waypoints [ ^ waypoints ] -{ #category : #accessing } +{ #category : 'accessing' } OPEdge >> waypoints: anObject [ waypoints := anObject diff --git a/repository/OpenPonk-Core/OPEdgeLabel.class.st b/repository/OpenPonk-Core/OPEdgeLabel.class.st index ac4affabc..bc7759aa3 100644 --- a/repository/OpenPonk-Core/OPEdgeLabel.class.st +++ b/repository/OpenPonk-Core/OPEdgeLabel.class.st @@ -1,10 +1,12 @@ Class { - #name : #OPEdgeLabel, - #superclass : #OPLabel, - #category : #'OpenPonk-Core-Shapes' + #name : 'OPEdgeLabel', + #superclass : 'OPLabel', + #category : 'OpenPonk-Core-Shapes', + #package : 'OpenPonk-Core', + #tag : 'Shapes' } -{ #category : #adding } +{ #category : 'adding' } OPEdgeLabel >> anchorToEdge [ OPRSAnchorConstraint new @@ -13,32 +15,32 @@ OPEdgeLabel >> anchorToEdge [ stick: roassalShape on: self owningElement roassalShape ] -{ #category : #adding } +{ #category : 'adding' } OPEdgeLabel >> defaultAnchorConstraintPosition [ ^ self subclassResponsibility ] -{ #category : #adding } +{ #category : 'adding' } OPEdgeLabel >> defaultMinDistance [ ^ self subclassResponsibility ] -{ #category : #adding } +{ #category : 'adding' } OPEdgeLabel >> renderShapeDetails [ super renderShapeDetails. self anchorToEdge ] -{ #category : #interactions } +{ #category : 'interactions' } OPEdgeLabel >> shouldBePositionableByUser [ ^ true ] -{ #category : #'as yet unclassified' } +{ #category : 'as yet unclassified' } OPEdgeLabel >> updateFromRender [ self bounds: (OPNodeBounds @@ -47,7 +49,7 @@ OPEdgeLabel >> updateFromRender [ super updateFromRender ] -{ #category : #rendering } +{ #category : 'rendering' } OPEdgeLabel >> updateRenderFromModel [ roassalShape text: self defaultText. @@ -57,7 +59,7 @@ OPEdgeLabel >> updateRenderFromModel [ super updateRenderFromModel ] -{ #category : #roassal } +{ #category : 'roassal' } OPEdgeLabel >> updateRenderFromSelf [ self isRendered ifFalse: [ ^ self ]. diff --git a/repository/OpenPonk-Core/OPEditElementTextCommand.class.st b/repository/OpenPonk-Core/OPEditElementTextCommand.class.st index 8264d9c0d..e5e172535 100644 --- a/repository/OpenPonk-Core/OPEditElementTextCommand.class.st +++ b/repository/OpenPonk-Core/OPEditElementTextCommand.class.st @@ -1,22 +1,24 @@ Class { - #name : #OPEditElementTextCommand, - #superclass : #OPUICommand, + #name : 'OPEditElementTextCommand', + #superclass : 'OPUICommand', #instVars : [ 'get', 'set', 'name' ], - #category : #'OpenPonk-Core-UICommands' + #category : 'OpenPonk-Core-UICommands', + #package : 'OpenPonk-Core', + #tag : 'UICommands' } -{ #category : #'instance creation' } +{ #category : 'instance creation' } OPEditElementTextCommand class >> accessor: anAccessor on: anObject [ ^ self new accessor: anAccessor; on: anObject ] -{ #category : #'instance creation' } +{ #category : 'instance creation' } OPEditElementTextCommand class >> executeAccessor: anAccessor on: anObject [ ^ self new accessor: anAccessor; @@ -24,21 +26,21 @@ OPEditElementTextCommand class >> executeAccessor: anAccessor on: anObject [ execute ] -{ #category : #accessing } +{ #category : 'accessing' } OPEditElementTextCommand >> accessor: anAccessor [ self getSelector: anAccessor. self setSelector: anAccessor , ':'. self name: (anAccessor capitalized splitOnCapitals joinUsing: ' ') ] -{ #category : #execute } +{ #category : 'execute' } OPEditElementTextCommand >> announceChange [ controller model announcer announce: OPElementTextAttributeChanged new ] -{ #category : #execute } +{ #category : 'execute' } OPEditElementTextCommand >> execute [ | result | @@ -49,50 +51,50 @@ OPEditElementTextCommand >> execute [ self announceChange ] -{ #category : #accessing } +{ #category : 'accessing' } OPEditElementTextCommand >> get [ ^ get ] -{ #category : #accessing } +{ #category : 'accessing' } OPEditElementTextCommand >> get: anObject [ get := anObject ] -{ #category : #accessing } +{ #category : 'accessing' } OPEditElementTextCommand >> getSelector: anAccessor [ self get: [ (MessageSend receiver: controller model selector: anAccessor) value ] ] -{ #category : #initialization } +{ #category : 'initialization' } OPEditElementTextCommand >> initialize [ super initialize. self accessor: #text ] -{ #category : #accessing } +{ #category : 'accessing' } OPEditElementTextCommand >> name [ ^ name ] -{ #category : #accessing } +{ #category : 'accessing' } OPEditElementTextCommand >> name: anObject [ name := anObject ] -{ #category : #accessing } +{ #category : 'accessing' } OPEditElementTextCommand >> set [ ^ set ] -{ #category : #accessing } +{ #category : 'accessing' } OPEditElementTextCommand >> set: anObject [ set := anObject ] -{ #category : #accessing } +{ #category : 'accessing' } OPEditElementTextCommand >> setSelector: anAccessor [ self set: [ :argument | diff --git a/repository/OpenPonk-Core/OPEditorAnnouncements.class.st b/repository/OpenPonk-Core/OPEditorAnnouncements.class.st index 0e4f62462..b30d3f918 100644 --- a/repository/OpenPonk-Core/OPEditorAnnouncements.class.st +++ b/repository/OpenPonk-Core/OPEditorAnnouncements.class.st @@ -3,15 +3,17 @@ I am a base class for announcements tied to Editor lifecycle. All my events are fired on the Workbench's announcer. " Class { - #name : #OPEditorAnnouncements, - #superclass : #Announcement, + #name : 'OPEditorAnnouncements', + #superclass : 'Announcement', #instVars : [ 'editor' ], - #category : #'OpenPonk-Core-Announcements' + #category : 'OpenPonk-Core-Announcements', + #package : 'OpenPonk-Core', + #tag : 'Announcements' } -{ #category : #'instance creation' } +{ #category : 'instance creation' } OPEditorAnnouncements class >> on: anEditor [ ^ self new @@ -19,17 +21,17 @@ OPEditorAnnouncements class >> on: anEditor [ yourself ] -{ #category : #accessing } +{ #category : 'accessing' } OPEditorAnnouncements >> diagramController [ ^ self editor diagramController ] -{ #category : #accessing } +{ #category : 'accessing' } OPEditorAnnouncements >> editor [ ^ editor ] -{ #category : #accessing } +{ #category : 'accessing' } OPEditorAnnouncements >> editor: anObject [ editor := anObject ] diff --git a/repository/OpenPonk-Core/OPEditorClosed.class.st b/repository/OpenPonk-Core/OPEditorClosed.class.st index 624eecb33..01d9c02a9 100644 --- a/repository/OpenPonk-Core/OPEditorClosed.class.st +++ b/repository/OpenPonk-Core/OPEditorClosed.class.st @@ -2,7 +2,9 @@ I am fired when an Editor was closed. " Class { - #name : #OPEditorClosed, - #superclass : #OPEditorAnnouncements, - #category : #'OpenPonk-Core-Announcements' + #name : 'OPEditorClosed', + #superclass : 'OPEditorAnnouncements', + #category : 'OpenPonk-Core-Announcements', + #package : 'OpenPonk-Core', + #tag : 'Announcements' } diff --git a/repository/OpenPonk-Core/OPEditorCreated.class.st b/repository/OpenPonk-Core/OPEditorCreated.class.st index 2f2d84522..0cbcb5a72 100644 --- a/repository/OpenPonk-Core/OPEditorCreated.class.st +++ b/repository/OpenPonk-Core/OPEditorCreated.class.st @@ -2,7 +2,9 @@ I am fired when a brand new Editor was created. " Class { - #name : #OPEditorCreated, - #superclass : #OPEditorAnnouncements, - #category : #'OpenPonk-Core-Announcements' + #name : 'OPEditorCreated', + #superclass : 'OPEditorAnnouncements', + #category : 'OpenPonk-Core-Announcements', + #package : 'OpenPonk-Core', + #tag : 'Announcements' } diff --git a/repository/OpenPonk-Core/OPEditorFocused.class.st b/repository/OpenPonk-Core/OPEditorFocused.class.st index 368bf7c25..a439430a5 100644 --- a/repository/OpenPonk-Core/OPEditorFocused.class.st +++ b/repository/OpenPonk-Core/OPEditorFocused.class.st @@ -2,7 +2,9 @@ I am fired when an editor was focused (tab switched to this editor). " Class { - #name : #OPEditorFocused, - #superclass : #OPEditorAnnouncements, - #category : #'OpenPonk-Core-Announcements' + #name : 'OPEditorFocused', + #superclass : 'OPEditorAnnouncements', + #category : 'OpenPonk-Core-Announcements', + #package : 'OpenPonk-Core', + #tag : 'Announcements' } diff --git a/repository/OpenPonk-Core/OPEditorUnfocused.class.st b/repository/OpenPonk-Core/OPEditorUnfocused.class.st index bd518ad19..0e1db2407 100644 --- a/repository/OpenPonk-Core/OPEditorUnfocused.class.st +++ b/repository/OpenPonk-Core/OPEditorUnfocused.class.st @@ -2,7 +2,9 @@ I am fired when an Editor lost focus (because it was closed, or because another Editor became focused). " Class { - #name : #OPEditorUnfocused, - #superclass : #OPEditorAnnouncements, - #category : #'OpenPonk-Core-Announcements' + #name : 'OPEditorUnfocused', + #superclass : 'OPEditorAnnouncements', + #category : 'OpenPonk-Core-Announcements', + #package : 'OpenPonk-Core', + #tag : 'Announcements' } diff --git a/repository/OpenPonk-Core/OPElementController.class.st b/repository/OpenPonk-Core/OPElementController.class.st index fe7925418..eb654d63b 100644 --- a/repository/OpenPonk-Core/OPElementController.class.st +++ b/repository/OpenPonk-Core/OPElementController.class.st @@ -3,19 +3,21 @@ A DCElementController an abstract class which should be a parent for all element It has method which handles the creation of the form for specific element. The controller is also responsible for specification of the view of an element. The precise definition of the form and the view is done by descendants. " Class { - #name : #OPElementController, - #superclass : #OPController, - #category : #'OpenPonk-Core-Controllers' + #name : 'OPElementController', + #superclass : 'OPController', + #category : 'OpenPonk-Core-Controllers', + #package : 'OpenPonk-Core', + #tag : 'Controllers' } -{ #category : #deprecated } +{ #category : 'deprecated' } OPElementController >> attach [ self deprecated: 'Use createInModel:andShowInDiagram: instead.'. " self registerModelEvents: model. self attachFigure" ] -{ #category : #deprecated } +{ #category : 'deprecated' } OPElementController >> attachFigure [ "add figure to the view" @@ -28,7 +30,7 @@ OPElementController >> attachFigure [ self refreshFigure" ] -{ #category : #deprecated } +{ #category : 'deprecated' } OPElementController >> attachTo: aDiagramController [ self deprecated: 'Use createInModel:andShowInDiagram: instead.'. "self diagramController: aDiagramController. @@ -39,7 +41,7 @@ OPElementController >> attachTo: aDiagramController [ self attachFigure" ] -{ #category : #construction } +{ #category : 'construction' } OPElementController >> createDiagramElement [ diagramElement := self diagramElementClass @@ -47,19 +49,19 @@ OPElementController >> createDiagramElement [ forModelElement: self model ] -{ #category : #deprecated } +{ #category : 'deprecated' } OPElementController >> createFigure [ self deprecated: 'Use renderFigureIn: instead.' ] -{ #category : #deprecated } +{ #category : 'deprecated' } OPElementController >> createModel [ self deprecated: 'Use createModelIn: instead.' " ^ self model ifNil: [ self modelClass new ]" ] -{ #category : #construction } +{ #category : 'construction' } OPElementController >> createModelIn: aParentModel [ self model: self modelClass new. @@ -67,7 +69,7 @@ OPElementController >> createModelIn: aParentModel [ ^ self model ] -{ #category : #construction } +{ #category : 'construction' } OPElementController >> createModelIn: aParentModel andShowInDiagram: aDiagramController [ self removeDiagramElement. @@ -75,19 +77,19 @@ OPElementController >> createModelIn: aParentModel andShowInDiagram: aDiagramCon self showWithoutDependentInDiagram: aDiagramController ] -{ #category : #construction } +{ #category : 'construction' } OPElementController >> diagramElementClass [ ^ self subclassResponsibility ] -{ #category : #'diagram elements' } +{ #category : 'diagram elements' } OPElementController >> diagramElementOwner [ ^ self diagramController diagramElement ] -{ #category : #accessing } +{ #category : 'accessing' } OPElementController >> ensureDiagramElement [ diagramElement @@ -96,20 +98,20 @@ OPElementController >> ensureDiagramElement [ ^ diagramElement ] -{ #category : #figures } +{ #category : 'figures' } OPElementController >> figure: aFigure [ self deprecated: 'Figure (Roassal shape) cannot be set directly anymore.' ] -{ #category : #deprecated } +{ #category : 'deprecated' } OPElementController >> figureLabel: aLabelName text: aString [ self deprecated: 'Method will be removed without replacement.' " (figure labels at: aLabelName) trachelShape text: aString" ] -{ #category : #accessing } +{ #category : 'accessing' } OPElementController >> hookDiagramElement [ "do nothing by default" @@ -117,31 +119,31 @@ OPElementController >> hookDiagramElement [ ] -{ #category : #testing } +{ #category : 'testing' } OPElementController >> isCommon [ ^ false ] -{ #category : #testing } +{ #category : 'testing' } OPElementController >> isRendered [ ^ self diagramElement isNotNil and: [ self diagramElement isRendered ] ] -{ #category : #construction } +{ #category : 'construction' } OPElementController >> linkToExistingDiagramElement [ self diagramElement modelElement: self model ] -{ #category : #deprecated } +{ #category : 'deprecated' } OPElementController >> loadModel [ self deprecated: 'Method will be removed without replacement.' " self model ifNil: [ self model: self createModel ]. ^ self model" ] -{ #category : #deprecated } +{ #category : 'deprecated' } OPElementController >> registerModelEvents: aModel [ self deprecated: 'Use model: and internalSubscribeTo: instead.'. " super registerModelEvents: aModel. @@ -152,7 +154,7 @@ OPElementController >> registerModelEvents: aModel [ ifTrue: [ self refreshFigure ] ]" ] -{ #category : #deprecated } +{ #category : 'deprecated' } OPElementController >> remove [ self @@ -162,7 +164,7 @@ OPElementController >> remove [ ^ self removeController ] -{ #category : #construction } +{ #category : 'construction' } OPElementController >> renderDiagramElement [ self diagramController willRender: self. @@ -172,7 +174,7 @@ OPElementController >> renderDiagramElement [ ^ self roassalShape ] -{ #category : #construction } +{ #category : 'construction' } OPElementController >> renderFigureIn: aCanvas [ self @@ -184,7 +186,7 @@ OPElementController >> renderFigureIn: aCanvas [ renderDiagramElement ] -{ #category : #construction } +{ #category : 'construction' } OPElementController >> showInDiagram: aDiagramController [ aDiagramController addController: self. @@ -194,7 +196,7 @@ OPElementController >> showInDiagram: aDiagramController [ aDiagramController showInDiagramModel: each ] ] -{ #category : #construction } +{ #category : 'construction' } OPElementController >> showWithoutDependentInDiagram: aDiagramController [ aDiagramController addController: self. @@ -202,7 +204,7 @@ OPElementController >> showWithoutDependentInDiagram: aDiagramController [ self renderDiagramElement ] -{ #category : #accessing } +{ #category : 'accessing' } OPElementController >> target: aController [ "do nothing" diff --git a/repository/OpenPonk-Core/OPElementControllerTest.class.st b/repository/OpenPonk-Core/OPElementControllerTest.class.st index 09470b289..631f44129 100644 --- a/repository/OpenPonk-Core/OPElementControllerTest.class.st +++ b/repository/OpenPonk-Core/OPElementControllerTest.class.st @@ -1,37 +1,39 @@ Class { - #name : #OPElementControllerTest, - #superclass : #OPBaseControllerTest, - #category : #'OpenPonk-Core-Controllers - Tests' + #name : 'OPElementControllerTest', + #superclass : 'OPBaseControllerTest', + #category : 'OpenPonk-Core-Controllers - Tests', + #package : 'OpenPonk-Core', + #tag : 'Controllers - Tests' } -{ #category : #accessing } +{ #category : 'accessing' } OPElementControllerTest >> controllerClass [ ^ OPTestEntityController ] -{ #category : #accessing } +{ #category : 'accessing' } OPElementControllerTest >> diagramControllerClass [ ^ OPTestDiagramController ] -{ #category : #accessing } +{ #category : 'accessing' } OPElementControllerTest >> diagramModelClass [ ^ OPTestContainerModel ] -{ #category : #accessing } +{ #category : 'accessing' } OPElementControllerTest >> modelClass [ ^ OPTestEntityModel ] -{ #category : #tests } +{ #category : 'tests' } OPElementControllerTest >> testClassSideModelClass [ self assert: self controllerClass modelClass equals: self modelClass ] -{ #category : #'tests - creation' } +{ #category : 'tests - creation' } OPElementControllerTest >> testCreateDiagramElement [ self diagramControllerClass = self controllerClass ifTrue: [ @@ -46,7 +48,7 @@ OPElementControllerTest >> testCreateDiagramElement [ equals: self diagramElementClass ] -{ #category : #tests } +{ #category : 'tests' } OPElementControllerTest >> testDescriptionName [ | diagramElement | model := Mock new. @@ -61,14 +63,14 @@ OPElementControllerTest >> testDescriptionName [ diagramElement should receive modelChanged ] -{ #category : #tests } +{ #category : 'tests' } OPElementControllerTest >> testIsSupported [ self class = OPElementControllerTest ifTrue: [ ^ self ]. super testIsSupported ] -{ #category : #tests } +{ #category : 'tests' } OPElementControllerTest >> testModelIsSubscribedTo [ controller := OPController new. model := self modelClass new. diff --git a/repository/OpenPonk-Core/OPElementLayoutTest.class.st b/repository/OpenPonk-Core/OPElementLayoutTest.class.st index 9445fe4e9..dfddd5ff5 100644 --- a/repository/OpenPonk-Core/OPElementLayoutTest.class.st +++ b/repository/OpenPonk-Core/OPElementLayoutTest.class.st @@ -2,18 +2,20 @@ An OPElementLayoutTest is a test class for testing the behavior of OPElementLayout " Class { - #name : #OPElementLayoutTest, - #superclass : #TestCase, + #name : 'OPElementLayoutTest', + #superclass : 'TestCase', #instVars : [ 'elementLayout', 'relationshipLayout', 'elementLayoutJSON', 'relationshipLayoutJSON' ], - #category : #'OpenPonk-Core-Tests' + #category : 'OpenPonk-Core-Tests', + #package : 'OpenPonk-Core', + #tag : 'Tests' } -{ #category : #running } +{ #category : 'running' } OPElementLayoutTest >> setUp [ elementLayout := OPLegacyElementLayout withPosition: -10 @ 50 @@ -55,7 +57,7 @@ OPElementLayoutTest >> setUp [ }' ] -{ #category : #tests } +{ #category : 'tests' } OPElementLayoutTest >> testContentFromJSON [ | newLayout | newLayout := NeoJSONReader fromString: elementLayoutJSON. @@ -70,7 +72,7 @@ OPElementLayoutTest >> testContentFromJSON [ self assert: ((newLayout at: #extent) at: #y) equals: 200 ] -{ #category : #tests } +{ #category : 'tests' } OPElementLayoutTest >> testFromJSON [ | newLayout | newLayout := NeoJSONReader @@ -80,7 +82,7 @@ OPElementLayoutTest >> testFromJSON [ self assert: newLayout extent equals: 100 @ 200 ] -{ #category : #tests } +{ #category : 'tests' } OPElementLayoutTest >> testJSONWithoutExtent [ | json newLayout | elementLayout extent: nil. @@ -90,7 +92,7 @@ OPElementLayoutTest >> testJSONWithoutExtent [ self assert: newLayout equals: elementLayout ] -{ #category : #tests } +{ #category : 'tests' } OPElementLayoutTest >> testRelationshipContentFromJSON [ | newLayout path | newLayout := NeoJSONReader fromString: relationshipLayoutJSON. @@ -116,7 +118,7 @@ OPElementLayoutTest >> testRelationshipContentFromJSON [ self assert: (((path at: #points) at: 3) at: #y) equals: 300 ] -{ #category : #tests } +{ #category : 'tests' } OPElementLayoutTest >> testRelationshipFromJSON [ | newLayout | newLayout := NeoJSONReader @@ -131,7 +133,7 @@ OPElementLayoutTest >> testRelationshipFromJSON [ self assert: (newLayout path points at: 3) equals: 150 @ 300 ] -{ #category : #tests } +{ #category : 'tests' } OPElementLayoutTest >> testRelationshipRoundtripJSON [ | json newLayout | json := OPJsonWriter toString: relationshipLayout. @@ -139,14 +141,14 @@ OPElementLayoutTest >> testRelationshipRoundtripJSON [ self assert: newLayout equals: relationshipLayout ] -{ #category : #tests } +{ #category : 'tests' } OPElementLayoutTest >> testRelationshipToJSON [ | json | json := OPJsonWriter toString: relationshipLayout. self assert: json equals: relationshipLayoutJSON withUnixLineEndings ] -{ #category : #tests } +{ #category : 'tests' } OPElementLayoutTest >> testRoundtripJSON [ | json newLayout | json := OPJsonWriter toString: elementLayout. @@ -154,7 +156,7 @@ OPElementLayoutTest >> testRoundtripJSON [ self assert: newLayout equals: elementLayout ] -{ #category : #tests } +{ #category : 'tests' } OPElementLayoutTest >> testToJSON [ | json | json := OPJsonWriter toString: elementLayout. diff --git a/repository/OpenPonk-Core/OPElementRenamed.class.st b/repository/OpenPonk-Core/OPElementRenamed.class.st index fb56332b8..86c3c3bfb 100644 --- a/repository/OpenPonk-Core/OPElementRenamed.class.st +++ b/repository/OpenPonk-Core/OPElementRenamed.class.st @@ -2,12 +2,14 @@ I am fired by RenameElementCommand after a model element has been renamed. " Class { - #name : #OPElementRenamed, - #superclass : #OPElementTextAttributeChanged, - #category : #'OpenPonk-Core-UICommands' + #name : 'OPElementRenamed', + #superclass : 'OPElementTextAttributeChanged', + #category : 'OpenPonk-Core-UICommands', + #package : 'OpenPonk-Core', + #tag : 'UICommands' } -{ #category : #initialization } +{ #category : 'initialization' } OPElementRenamed >> initialize [ super initialize. attributeName := 'Name' diff --git a/repository/OpenPonk-Core/OPElementTextAttributeChanged.class.st b/repository/OpenPonk-Core/OPElementTextAttributeChanged.class.st index 0ee1c2cce..b83e3f6ae 100644 --- a/repository/OpenPonk-Core/OPElementTextAttributeChanged.class.st +++ b/repository/OpenPonk-Core/OPElementTextAttributeChanged.class.st @@ -1,25 +1,27 @@ Class { - #name : #OPElementTextAttributeChanged, - #superclass : #Announcement, + #name : 'OPElementTextAttributeChanged', + #superclass : 'Announcement', #instVars : [ 'attributeName' ], - #category : #'OpenPonk-Core-UICommands' + #category : 'OpenPonk-Core-UICommands', + #package : 'OpenPonk-Core', + #tag : 'UICommands' } -{ #category : #'instance creation' } +{ #category : 'instance creation' } OPElementTextAttributeChanged class >> withAttributeName: aString [ ^ self new attributeName: aString; yourself ] -{ #category : #accessing } +{ #category : 'accessing' } OPElementTextAttributeChanged >> attributeName: aString [ attributeName := aString ] -{ #category : #initialization } +{ #category : 'initialization' } OPElementTextAttributeChanged >> initialize [ attributeName := '' ] diff --git a/repository/OpenPonk-Core/OPExportInfo.class.st b/repository/OpenPonk-Core/OPExportInfo.class.st index e3937d150..8d6f60a1e 100644 --- a/repository/OpenPonk-Core/OPExportInfo.class.st +++ b/repository/OpenPonk-Core/OPExportInfo.class.st @@ -1,57 +1,59 @@ Class { - #name : #OPExportInfo, - #superclass : #Object, + #name : 'OPExportInfo', + #superclass : 'Object', #instVars : [ 'subject', 'version', 'format' ], - #category : #'OpenPonk-Core-Persistence' + #category : 'OpenPonk-Core-Persistence', + #package : 'OpenPonk-Core', + #tag : 'Persistence' } -{ #category : #accessing } +{ #category : 'accessing' } OPExportInfo class >> fileName [ ^ 'export-info.json' ] -{ #category : #accessing } +{ #category : 'accessing' } OPExportInfo class >> neoJsonMapping: mapper [ mapper for: self do: [ :mapping | mapping mapAllInstVars ] ] -{ #category : #accessing } +{ #category : 'accessing' } OPExportInfo >> format [ ^ format ] -{ #category : #accessing } +{ #category : 'accessing' } OPExportInfo >> format: anObject [ format := anObject ] -{ #category : #accessing } +{ #category : 'accessing' } OPExportInfo >> subject [ ^ subject ] -{ #category : #accessing } +{ #category : 'accessing' } OPExportInfo >> subject: anObject [ subject := anObject ] -{ #category : #accessing } +{ #category : 'accessing' } OPExportInfo >> version [ ^ version ] -{ #category : #accessing } +{ #category : 'accessing' } OPExportInfo >> version: anObject [ version := anObject diff --git a/repository/OpenPonk-Core/OPIcons.class.st b/repository/OpenPonk-Core/OPIcons.class.st index a7b2912c2..17909f240 100644 --- a/repository/OpenPonk-Core/OPIcons.class.st +++ b/repository/OpenPonk-Core/OPIcons.class.st @@ -1,13 +1,15 @@ Class { - #name : #OPIcons, - #superclass : #Object, + #name : 'OPIcons', + #superclass : 'Object', #classInstVars : [ 'Icons' ], - #category : #'OpenPonk-Core-Icons' + #category : 'OpenPonk-Core-Icons', + #package : 'OpenPonk-Core', + #tag : 'Icons' } -{ #category : #accessing } +{ #category : 'accessing' } OPIcons class >> at: aName ifAbsent: aBlock [ Icons ifNil: [ Icons := Dictionary new ]. @@ -18,13 +20,13 @@ OPIcons class >> at: aName ifAbsent: aBlock [ do: [ ^ aBlock value ] ] ] -{ #category : #'GT-InspectorExtensions' } +{ #category : 'GT-InspectorExtensions' } OPIcons class >> iconSelectors [ ^ self class selectorsInCategory: 'accessing - icons' ] -{ #category : #'GT-InspectorExtensions' } +{ #category : 'GT-InspectorExtensions' } OPIcons class >> inspectionIcons [ @@ -55,7 +57,7 @@ OPIcons class >> inspectionIcons [ yourself ] -{ #category : #accessing } +{ #category : 'accessing' } OPIcons class >> resetIcons [