From 5d50d6f329358eeda2a873ad3ffcc664e2c6f8e3 Mon Sep 17 00:00:00 2001 From: CyrilFerlicot Date: Fri, 14 Jun 2024 15:50:24 +0200 Subject: [PATCH] Migrate to Tonel V3 --- .../BaselineOfRoassal.class.st | 37 +-- src/BaselineOfRoassal/package.st | 2 +- .../RSAnimationTest.class.st | 15 +- .../RSEasingInterpolatorTest.class.st | 9 +- .../RSPAnimationTest.class.st | 23 +- .../RSParallelAnimationTest.class.st | 17 +- .../RSSequentialAnimationTest.class.st | 17 +- .../RSTransitionAnimationTest.class.st | 17 +- src/Roassal-Animation-Tests/package.st | 2 +- .../RSMapBuilderTest.class.st | 13 +- src/Roassal-BaselineMap-Tests/package.st | 2 +- .../ManifestRoassalBasic3D.class.st | 8 +- src/Roassal-Basic3D/RSData3D.class.st | 12 +- src/Roassal-Basic3D/RSGrapher3D.class.st | 10 +- src/Roassal-Basic3D/RSMShape3D.class.st | 8 +- src/Roassal-Basic3D/RSMatrix3D.class.st | 56 ++-- src/Roassal-Basic3D/RSMesh3D.class.st | 56 ++-- .../RSRoassalDExamples.class.st | 12 +- src/Roassal-Basic3D/RSSpace3D.class.st | 38 +-- src/Roassal-Basic3D/RSTriangle3D.class.st | 30 +- src/Roassal-Basic3D/package.st | 2 +- .../AthensAffineTransform.extension.st | 4 +- .../LinearGradientPaint.extension.st | 4 +- src/Roassal-Bloc/RSAbstractLine.extension.st | 10 +- src/Roassal-Bloc/RSBezier.extension.st | 6 +- src/Roassal-Bloc/RSBitmap.extension.st | 6 +- .../RSBlocAnimationPlayingTask.class.st | 16 +- src/Roassal-Bloc/RSBlocEventListener.class.st | 36 +-- src/Roassal-Bloc/RSBlocExamples.class.st | 82 +++--- src/Roassal-Bloc/RSBlocHost.class.st | 22 +- .../RSBlocMetricProvider.class.st | 10 +- src/Roassal-Bloc/RSBorder.extension.st | 4 +- src/Roassal-Bloc/RSBoundingShape.extension.st | 10 +- src/Roassal-Bloc/RSBox.extension.st | 4 +- src/Roassal-Bloc/RSCameraElement.class.st | 18 +- src/Roassal-Bloc/RSCanvas.extension.st | 6 +- src/Roassal-Bloc/RSCanvasElement.class.st | 32 ++- src/Roassal-Bloc/RSCircularShape.extension.st | 4 +- src/Roassal-Bloc/RSComposite.extension.st | 6 +- src/Roassal-Bloc/RSCompositeElement.class.st | 12 +- src/Roassal-Bloc/RSEvent.extension.st | 6 +- .../RSExamplesBrowserPresenter.class.st | 28 +- src/Roassal-Bloc/RSLabel.extension.st | 10 +- src/Roassal-Bloc/RSLabelElement.class.st | 18 +- src/Roassal-Bloc/RSLine.extension.st | 6 +- .../RSMouseWheelEvent.extension.st | 4 +- src/Roassal-Bloc/RSPolygon.extension.st | 6 +- src/Roassal-Bloc/RSPolyline.extension.st | 6 +- src/Roassal-Bloc/RSShape.extension.st | 8 +- src/Roassal-Bloc/RSShapeElement.class.st | 18 +- src/Roassal-Bloc/RSStrokeStyle.extension.st | 6 +- src/Roassal-Bloc/package.st | 2 +- .../RSViolinPlot.extension.st | 26 +- .../RSViolinPlotTest.extension.st | 6 +- src/Roassal-Chart-DataFrame/package.st | 2 +- src/Roassal-Colors/Color.extension.st | 4 +- .../LinearGradientPaint.extension.st | 4 +- src/Roassal-Colors/RSColorPalette.class.st | 17 +- .../RSColoredTreePalette.class.st | 29 +- .../RSDivergingColorPalette.class.st | 171 ++++++------ src/Roassal-Colors/RSGradientPalette.class.st | 53 ++-- .../RSQualitativeColorPalette.class.st | 161 +++++------ .../RSSequentialColorPalette.class.st | 261 +++++++++--------- src/Roassal-Colors/package.st | 2 +- .../RSAnimationDebuggerExtension.class.st | 11 +- src/Roassal-Debugger/package.st | 2 +- src/Roassal-Examples/Class.extension.st | 4 +- .../CompiledMethod.extension.st | 6 +- .../RSAbstractExamples.class.st | 12 +- .../RSAnimationExamples.class.st | 104 +++---- .../RSArrowedLine.extension.st | 4 +- .../RSBasicAnimationExamples.class.st | 30 +- .../RSBasicShapeExamples.class.st | 98 +++---- src/Roassal-Examples/RSBezier.extension.st | 6 +- src/Roassal-Examples/RSBitmap.extension.st | 4 +- src/Roassal-Examples/RSBlink.extension.st | 4 +- src/Roassal-Examples/RSBox.extension.st | 4 +- .../RSCanvasController.extension.st | 4 +- .../RSCellLayout.extension.st | 8 +- .../RSClusteringLayout.extension.st | 6 +- .../RSConditionalLayout.extension.st | 8 +- .../RSControlConfiguration.extension.st | 6 +- src/Roassal-Examples/RSDSMExample.class.st | 36 +-- src/Roassal-Examples/RSDraggable.extension.st | 4 +- .../RSDraggableCanvasInteraction.extension.st | 6 +- .../RSEquidistantCircleLayout.extension.st | 4 +- .../RSExpandingBoxes.class.st | 30 +- .../RSGhostDraggable.extension.st | 6 +- .../RSHighlightable.extension.st | 16 +- .../RSHighlightableExamples.class.st | 34 +-- .../RSInspectableExample.class.st | 16 +- ...nvasPositionCanvasInteraction.extension.st | 4 +- ...eyNavigationCanvasInteraction.extension.st | 8 +- src/Roassal-Examples/RSLabeled.extension.st | 6 +- src/Roassal-Examples/RSLayout.extension.st | 8 +- .../RSLayoutExamples.class.st | 56 ++-- src/Roassal-Examples/RSLine.extension.st | 6 +- .../RSMenuActivable.extension.st | 4 +- src/Roassal-Examples/RSPolyline.extension.st | 6 +- .../RSRenderTreeExamples.class.st | 14 +- .../RSSVGPathLine.extension.st | 4 +- ...RSScrollBarsCanvasInteraction.extension.st | 6 +- ...SScrollWheelCanvasInteraction.extension.st | 4 +- .../RSSearchInCanvasInteraction.extension.st | 6 +- .../RSSelfLoopCPController.extension.st | 4 +- src/Roassal-Examples/RSShapeExamples.class.st | 94 ++++--- .../RSVerticalCellLayout.extension.st | 4 +- .../RSWeightedCircleLayout.extension.st | 4 +- .../RSZoomLevelText.extension.st | 4 +- .../RSZoomToFitCanvasInteraction.extension.st | 4 +- .../RSZoomableCanvasInteraction.extension.st | 4 +- .../RTBulkLoadRTreeCollection.class.st | 10 +- src/Roassal-Examples/RTNode.extension.st | 4 +- src/Roassal-Examples/String.extension.st | 4 +- src/Roassal-Examples/package.st | 2 +- .../RSAbstractColorGenerator.class.st | 12 +- .../RSAcrossPathBuilder.class.st | 30 +- .../RSAlgoritmia.class.st | 32 ++- src/Roassal-Experimental/RSAlpharo.class.st | 32 ++- .../RSAlpharoExample.class.st | 14 +- src/Roassal-Experimental/RSAmeba.class.st | 30 +- src/Roassal-Experimental/RSCat.class.st | 40 +-- src/Roassal-Experimental/RSCircleD.class.st | 30 +- .../RSColorHSBGenerator.class.st | 12 +- .../RSColorMonoGenerator.class.st | 12 +- .../RSColorPerlinGenerator.class.st | 16 +- src/Roassal-Experimental/RSDelaunay.class.st | 22 +- .../RSDelaunayExample.class.st | 50 ++-- .../RSForceBuilder.class.st | 48 ++-- .../RSForceExample.class.st | 16 +- .../RSForceLayoutInSpacesBuilder.class.st | 38 +-- src/Roassal-Experimental/RSHanoi.class.st | 14 +- .../RSHanoiRoassal.class.st | 26 +- .../RSInterference.class.st | 24 +- src/Roassal-Experimental/RSLissajous.class.st | 26 +- src/Roassal-Experimental/RSParticleD.class.st | 34 +-- .../RSParticleForce.class.st | 22 +- src/Roassal-Experimental/RSSankey.class.st | 84 +++--- src/Roassal-Experimental/RSSankeyBox.class.st | 50 ++-- .../RSSankeyCPController.class.st | 10 +- .../RSSankeyExamples.class.st | 24 +- .../RSSankeyLine.class.st | 28 +- .../RSSankeyLink.class.st | 28 +- .../RSSankeyTest.class.st | 36 +-- .../RSXmasBranch.class.st | 34 +-- .../RSXmasExample.class.st | 20 +- .../RSXmasFrontier.class.st | 28 +- src/Roassal-Experimental/RSXmasTree.class.st | 18 +- src/Roassal-Experimental/package.st | 2 +- .../RSFlameGraphExamples.class.st | 11 +- src/Roassal-FlameGraph-Examples/package.st | 2 +- src/Roassal-FlameGraph/RSFlameGraph.class.st | 31 ++- src/Roassal-FlameGraph/package.st | 2 +- .../GraphvizFFILibrary.class.st | 12 +- .../RSAbstractDotConverter.class.st | 28 +- .../RSDigraphDotConverter.class.st | 12 +- .../RSGraphVizExamples.class.st | 32 ++- .../RSGraphVizLayoutTest.class.st | 12 +- .../RSGraphvizAttachPoint.class.st | 16 +- .../RSGraphvizLayout.class.st | 56 ++-- src/Roassal-GraphViz/RSGraphvizLine.class.st | 24 +- .../RSLayoutBuilder.extension.st | 4 +- .../RSLineBuilder.extension.st | 4 +- src/Roassal-GraphViz/RSMondrian.extension.st | 4 +- .../RSNeatoDotConverter.class.st | 12 +- src/Roassal-GraphViz/RSSFDPConverter.class.st | 12 +- .../RSStrictDotConverter.class.st | 12 +- .../RSTwoPiDotConverter.class.st | 12 +- .../RSUnixSubprocess.class.st | 82 +++--- src/Roassal-GraphViz/package.st | 2 +- src/Roassal-Gtk/GtkAthensDrawingArea.class.st | 47 ++-- .../GtkRoassalDrawingArea.class.st | 27 +- .../GtkRoassalDrawingAreaBox.class.st | 49 ++-- .../GtkRoassalDrawingAreaBoxOverlay.class.st | 27 +- src/Roassal-Gtk/package.st | 2 +- .../RSInspectorShapeTest.class.st | 9 +- ...ectionPresentationInteractionTest.class.st | 15 +- src/Roassal-Inspector-Tests/package.st | 2 +- .../RSLegendExamples.class.st | 35 +-- src/Roassal-Legend-Examples/package.st | 2 +- src/Roassal-Legend/RSLegend.class.st | 94 ++++--- src/Roassal-Legend/package.st | 2 +- .../AtomicCollection.extension.st | 4 +- .../AtomicSharedQueue.extension.st | 4 +- .../RSAthensRenderer.extension.st | 20 +- .../RSOSMBuilder.class.st | 23 +- .../RSOSMExamples.class.st | 33 +-- src/Roassal-OpenStreetMap/RSOSMShape.class.st | 77 +++--- src/Roassal-OpenStreetMap/RSOSMTest.class.st | 13 +- .../TKTCommonQueueWorkerPool.extension.st | 4 +- .../TKTFuture.extension.st | 4 +- .../TKTTaskExecution.extension.st | 4 +- src/Roassal-OpenStreetMap/package.st | 2 +- src/Roassal-Pharo/CompiledMethod.extension.st | 4 +- src/Roassal-Pharo/FormCanvas.extension.st | 4 +- src/Roassal-Pharo/RPackage.extension.st | 8 +- src/Roassal-Pharo/package.st | 2 +- .../SequenceableCollection.extension.st | 4 +- src/Roassal-Pharo10/package.st | 2 +- .../NSInterpolator.extension.st | 4 +- src/Roassal-Pharo8/RSAbstractAction.class.st | 25 +- src/Roassal-Pharo8/RSCanvas.extension.st | 6 +- src/Roassal-Pharo8/RSChart.extension.st | 4 +- src/Roassal-Pharo8/RSGroup.extension.st | 4 +- src/Roassal-Pharo8/RSMondrian.extension.st | 4 +- .../RSObjectWithProperty.extension.st | 4 +- src/Roassal-Pharo8/RSSERAction.class.st | 13 +- src/Roassal-Pharo8/RSShape.extension.st | 4 +- src/Roassal-Pharo8/SpPanedLayout.extension.st | 4 +- src/Roassal-Pharo8/SpPresenter.extension.st | 6 +- src/Roassal-Pharo8/package.st | 2 +- .../RSExamplesBrowser.extension.st | 6 +- src/Roassal-Pharo9/RSIconBrowser.extension.st | 6 +- .../RSLayoutStudio.extension.st | 6 +- .../SequenceableCollection.extension.st | 4 +- src/Roassal-Pharo9/SpBoxLayout.extension.st | 4 +- .../SpDropListPresenter.extension.st | 4 +- src/Roassal-Pharo9/SpPresenter.extension.st | 4 +- .../SpRoassalInspectorPresenter.extension.st | 4 +- src/Roassal-Pharo9/package.st | 2 +- .../RSAbstractPieDecorator.class.st | 16 +- src/Roassal-Pie/RSPie.class.st | 34 +-- .../RSPieLabeledInteraction.class.st | 36 +-- .../RSPieTitleInteraction.class.st | 18 +- .../RSRotatedPieLabelDecorator.class.st | 18 +- .../RSShowProgressLabelDecorator.class.st | 20 +- src/Roassal-Pie/package.st | 2 +- .../ASCircle.extension.st | 4 +- .../ASColorPaint.extension.st | 6 +- .../ASContainerElement.extension.st | 4 +- .../ASEllipse.extension.st | 4 +- src/Roassal-SVG-Importer/ASLine.extension.st | 4 +- .../ASMetadata.extension.st | 4 +- .../ASNoFill.extension.st | 6 +- src/Roassal-SVG-Importer/ASPath.extension.st | 4 +- .../ASPolyLine.extension.st | 4 +- .../ASPolygon.extension.st | 4 +- src/Roassal-SVG-Importer/ASRect.extension.st | 4 +- src/Roassal-SVG-Importer/ASShape.extension.st | 6 +- src/Roassal-SVG-Importer/ASStyle.extension.st | 4 +- src/Roassal-SVG-Importer/ASText.extension.st | 4 +- .../RSSVGImportExamples.class.st | 11 +- .../RSSVGImporter.class.st | 13 +- src/Roassal-SVG-Importer/package.st | 2 +- src/Roassal-SVG-Tests/RSSVGTest.class.st | 13 +- src/Roassal-SVG-Tests/package.st | 2 +- .../GtkRoassalAdapter.class.st | 87 +++--- .../RSUserInputEvent.extension.st | 4 +- src/Roassal-Spec-Gtk/package.st | 2 +- .../SpMorphicRoassalAdapter.class.st | 21 +- src/Roassal-Spec-Morphic/package.st | 2 +- .../RSEaselExample.class.st | 43 +-- .../Sp1MorphicAdapter.class.st | 19 +- .../Sp1RoassalPresenter.class.st | 21 +- src/Roassal-Spec-Obsolete/package.st | 2 +- src/Roassal-TreeMap/RSCircleBounds.class.st | 16 +- src/Roassal-TreeMap/RSCircleGapTree.class.st | 18 +- src/Roassal-TreeMap/RSCircleTree.class.st | 36 +-- src/Roassal-TreeMap/RSCircleVector.class.st | 52 ++-- .../RSCircularTreeMap.class.st | 40 +-- .../RSRectangleTreeMap.class.st | 36 +-- src/Roassal-TreeMap/RSTreeMap.class.st | 34 +-- src/Roassal-TreeMap/RSTreeMapLayout.class.st | 50 ++-- src/Roassal-TreeMap/package.st | 2 +- .../ClassDescription.extension.st | 6 +- .../ConfigurationOf.extension.st | 4 +- .../PharoDarkTheme.extension.st | 4 +- .../RGBehavior.extension.st | 10 +- src/Roassal-UML-Calypso/RGMethod.extension.st | 4 +- .../RSAbstractUMLCalypso.class.st | 30 +- .../RSBaselineCalypso.class.st | 64 ++--- .../RSColorSelection.class.st | 10 +- .../RSDancingSelection.class.st | 10 +- .../RSInitialSelection.class.st | 14 +- .../RSNothingSelection.class.st | 10 +- .../RSUMLCalypsoRenderer.class.st | 12 +- .../RSUMLCalypsoSettings.class.st | 46 +-- .../RSUMLClassCalypso.class.st | 30 +- .../RSUMLPackageCalypso.class.st | 28 +- src/Roassal-UML-Calypso/UITheme.extension.st | 6 +- src/Roassal-UML-Calypso/package.st | 2 +- .../RSDarkUMLClassRenderer.class.st | 15 +- .../RSUMLExamples.class.st | 27 +- src/Roassal-UML-Examples/package.st | 2 +- .../RSUMLClassBuilderTest.class.st | 13 +- src/Roassal-UML-Tests/package.st | 2 +- .../RSAbstractUMLClassRenderer.class.st | 68 ++--- .../RSAbstractUMLPackageRenderer.class.st | 36 +-- .../RSAbstractUMLRenderer.class.st | 46 +-- src/Roassal-UML/RSAdaptativePopup.class.st | 20 +- .../RSBasicUMLClassRenderer.class.st | 18 +- .../RSBasicUMLPackageRenderer.class.st | 10 +- .../RSTorchUMLClassRenderer.class.st | 40 +-- src/Roassal-UML/RSUMLAbstractBuilder.class.st | 24 +- .../RSUMLAbstractModelDescriptor.class.st | 14 +- src/Roassal-UML/RSUMLClassBuilder.class.st | 18 +- src/Roassal-UML/RSUMLClassDescriptor.class.st | 50 ++-- src/Roassal-UML/RSUMLPackageBuilder.class.st | 18 +- .../RSUMLPackageDescriptor.class.st | 22 +- src/Roassal-UML/package.st | 2 +- src/Roassal/Announcer.extension.st | 4 +- .../AthensAffineTransform.extension.st | 8 +- .../AthensCairoPathBuilder.extension.st | 10 +- src/Roassal/AthensCairoSurface.extension.st | 4 +- src/Roassal/AthensCanvas.extension.st | 4 +- src/Roassal/Class.extension.st | 6 +- src/Roassal/CompiledMethod.extension.st | 4 +- src/Roassal/RSAthensMorph.class.st | 98 +++---- src/Roassal/RSAthensRenderer.class.st | 90 +++--- src/Roassal/RSCamera.class.st | 76 ++--- src/Roassal/RSCanvas.class.st | 198 ++++++------- .../RSCenterMiddleCoordinates.class.st | 10 +- src/Roassal/RSCoordinates.class.st | 28 +- src/Roassal/RSEventProcessor.class.st | 64 ++--- src/Roassal/RSEventsMonitor.class.st | 22 +- src/Roassal/RSGroup.extension.st | 4 +- src/Roassal/RSHost.class.st | 20 +- src/Roassal/RSMorphicHost.class.st | 52 ++-- src/Roassal/RSObject.class.st | 14 +- src/Roassal/RSObjectWithProperty.class.st | 62 +++-- src/Roassal/RSRenderer.class.st | 28 +- src/Roassal/RSShape.class.st | 198 ++++++------- src/Roassal/RSTAnnounceable.trait.st | 40 +-- src/Roassal/RSTContainer.trait.st | 118 ++++---- src/Roassal/RSTPositionable.trait.st | 14 +- src/Roassal/RSTopLeftCoordinates.class.st | 16 +- .../SequenceableCollection.extension.st | 10 +- src/Roassal/SubscriptionRegistry.extension.st | 6 +- src/Roassal/package.st | 2 +- 329 files changed, 3614 insertions(+), 3305 deletions(-) diff --git a/src/BaselineOfRoassal/BaselineOfRoassal.class.st b/src/BaselineOfRoassal/BaselineOfRoassal.class.st index 495b672c..d87e37fd 100644 --- a/src/BaselineOfRoassal/BaselineOfRoassal.class.st +++ b/src/BaselineOfRoassal/BaselineOfRoassal.class.st @@ -2,19 +2,20 @@ Baseline for https://github.com/pharo-graphics/Roassal " Class { - #name : #BaselineOfRoassal, - #superclass : #BaselineOf, - #category : #BaselineOfRoassal + #name : 'BaselineOfRoassal', + #superclass : 'BaselineOf', + #category : 'BaselineOfRoassal', + #package : 'BaselineOfRoassal' } -{ #category : #dependencies } +{ #category : 'dependencies' } BaselineOfRoassal >> aiDatasets: spec [ spec baseline: 'AIDatasets' with: [ spec repository: 'github://pharo-ai/datasets' ] ] -{ #category : #dependencies } +{ #category : 'dependencies' } BaselineOfRoassal >> athensSVG: spec [ spec baseline: 'AthensSVG' with: [ spec repository: 'github://pharo-contributions/Athens-SVG/src' ]. @@ -22,7 +23,7 @@ BaselineOfRoassal >> athensSVG: spec [ spec repository: 'github://pharo-contributions/Athens-SVG/src']. ] -{ #category : #baselines } +{ #category : 'baselines' } BaselineOfRoassal >> baseline: spec [ "https://github.com/pharo-graphics/Roassal" @@ -50,7 +51,7 @@ BaselineOfRoassal >> baseline: spec [ spec group: 'Core' with: #( 'Roassal-Pharo12' ) ] ] -{ #category : #baselines } +{ #category : 'baselines' } BaselineOfRoassal >> baselineOfCommon: spec [ spec for: #common do: [ @@ -95,13 +96,13 @@ BaselineOfRoassal >> baselineOfCommon: spec [ group: 'Full-DataFrame' with: #( 'Full' 'Roassal-Chart-DataFrame' ) ] ] -{ #category : #dependencies } +{ #category : 'dependencies' } BaselineOfRoassal >> bloc: spec [ spec baseline: 'Bloc' with: [ spec repository: 'github://pharo-graphics/Bloc:dev-1.0/src' ] ] -{ #category : #'API-packages' } +{ #category : 'API-packages' } BaselineOfRoassal >> corePackagesNames [ ^ #( 'Roassal-Event' @@ -128,14 +129,14 @@ BaselineOfRoassal >> corePackagesNames [ ) ] -{ #category : #dependencies } +{ #category : 'dependencies' } BaselineOfRoassal >> dataFrame: spec [ spec baseline: 'DataFrame' with: [ spec repository: 'github://PolyMathOrg/DataFrame/src' ] ] -{ #category : #'API-packages' } +{ #category : 'API-packages' } BaselineOfRoassal >> examplePackagesNames [ ^ #( 'Roassal-Examples' @@ -148,7 +149,7 @@ BaselineOfRoassal >> examplePackagesNames [ 'Roassal-Spec-Examples') ] -{ #category : #'API-packages' } +{ #category : 'API-packages' } BaselineOfRoassal >> extraPackagesNames [ ^ #( 'Roassal-Experimental' @@ -159,40 +160,40 @@ BaselineOfRoassal >> extraPackagesNames [ 'Roassal-TreeMap-Examples') ] -{ #category : #dependencies } +{ #category : 'dependencies' } BaselineOfRoassal >> geometry: spec [ spec baseline: 'Geometry' with: [ spec repository: 'github://pharo-contributions/Geometry/src' ] ] -{ #category : #dependencies } +{ #category : 'dependencies' } BaselineOfRoassal >> layouts: spec [ spec baseline: 'RoassalLayouts' with: [ spec repository: 'github://pharo-graphics/RoassalLayouts:v1.01/src' ] ] -{ #category : #dependencies } +{ #category : 'dependencies' } BaselineOfRoassal >> numeric: spec [ spec baseline: 'NumericScales'with: [ spec repository: 'github://pharo-graphics/NumericScales:v1.03/src' ]. ] -{ #category : #dependencies } +{ #category : 'dependencies' } BaselineOfRoassal >> rtree: spec [ spec baseline: 'RTree' with: [ spec repository: 'github://pharo-graphics/RTree:v1.01/src' ] ] -{ #category : #dependencies } +{ #category : 'dependencies' } BaselineOfRoassal >> subProcess: spec [ spec baseline: 'OSSubprocess' with: [ spec repository: 'github://pharo-contributions/OSSubprocess/repository' ] ] -{ #category : #'API-packages' } +{ #category : 'API-packages' } BaselineOfRoassal >> testPackagesNames [ ^ #( 'Roassal-Global-Tests' diff --git a/src/BaselineOfRoassal/package.st b/src/BaselineOfRoassal/package.st index d811c1eb..3c3d892a 100644 --- a/src/BaselineOfRoassal/package.st +++ b/src/BaselineOfRoassal/package.st @@ -1 +1 @@ -Package { #name : #BaselineOfRoassal } +Package { #name : 'BaselineOfRoassal' } diff --git a/src/Roassal-Animation-Tests/RSAnimationTest.class.st b/src/Roassal-Animation-Tests/RSAnimationTest.class.st index 5038d447..1a87e3ba 100644 --- a/src/Roassal-Animation-Tests/RSAnimationTest.class.st +++ b/src/Roassal-Animation-Tests/RSAnimationTest.class.st @@ -2,15 +2,16 @@ base of animation tests " Class { - #name : #RSAnimationTest, - #superclass : #RSTest, + #name : 'RSAnimationTest', + #superclass : 'RSTest', #instVars : [ 'canvas' ], - #category : #'Roassal-Animation-Tests' + #category : 'Roassal-Animation-Tests', + #package : 'Roassal-Animation-Tests' } -{ #category : #tests } +{ #category : 'tests' } RSAnimationTest >> addingInComposite: compositeAnimation duration: aDuration [ compositeAnimation add: (RSTransitionAnimation new @@ -22,7 +23,7 @@ RSAnimationTest >> addingInComposite: compositeAnimation duration: aDuration [ self assert: compositeAnimation duration equals: aDuration ] -{ #category : #tests } +{ #category : 'tests' } RSAnimationTest >> createAnimationWith: block animationClass: class [ | animation | self assert: canvas animations size equals: 0. @@ -31,7 +32,7 @@ RSAnimationTest >> createAnimationWith: block animationClass: class [ self assert: animation class equals: class ] -{ #category : #running } +{ #category : 'running' } RSAnimationTest >> runAnimation: animation threshold: threshold [ | time ended | @@ -47,7 +48,7 @@ RSAnimationTest >> runAnimation: animation threshold: threshold [ ] ] -{ #category : #running } +{ #category : 'running' } RSAnimationTest >> setUp [ super setUp. canvas := RSCanvas new diff --git a/src/Roassal-Animation-Tests/RSEasingInterpolatorTest.class.st b/src/Roassal-Animation-Tests/RSEasingInterpolatorTest.class.st index e5a8181f..79fd7349 100644 --- a/src/Roassal-Animation-Tests/RSEasingInterpolatorTest.class.st +++ b/src/Roassal-Animation-Tests/RSEasingInterpolatorTest.class.st @@ -1,10 +1,11 @@ Class { - #name : #RSEasingInterpolatorTest, - #superclass : #TestCase, - #category : #'Roassal-Animation-Tests' + #name : 'RSEasingInterpolatorTest', + #superclass : 'TestCase', + #category : 'Roassal-Animation-Tests', + #package : 'Roassal-Animation-Tests' } -{ #category : #tests } +{ #category : 'tests' } RSEasingInterpolatorTest >> testAllEasing [ "Simply check if no error is raised" | someX | diff --git a/src/Roassal-Animation-Tests/RSPAnimationTest.class.st b/src/Roassal-Animation-Tests/RSPAnimationTest.class.st index 43412d32..fdddaa9c 100644 --- a/src/Roassal-Animation-Tests/RSPAnimationTest.class.st +++ b/src/Roassal-Animation-Tests/RSPAnimationTest.class.st @@ -1,14 +1,15 @@ Class { - #name : #RSPAnimationTest, - #superclass : #ParametrizedTestCase, + #name : 'RSPAnimationTest', + #superclass : 'ParametrizedTestCase', #instVars : [ 'canvas', 'animationClass' ], - #category : #'Roassal-Animation-Tests' + #category : 'Roassal-Animation-Tests', + #package : 'Roassal-Animation-Tests' } -{ #category : #'building suites' } +{ #category : 'building suites' } RSPAnimationTest class >> testParameters [ | m classesToConsider | m := ParametrizedTestMatrix new. @@ -19,23 +20,23 @@ RSPAnimationTest class >> testParameters [ ^ m ] -{ #category : #accessing } +{ #category : 'accessing' } RSPAnimationTest >> animationClass [ ^ animationClass ] -{ #category : #accessing } +{ #category : 'accessing' } RSPAnimationTest >> animationClass: aClass [ animationClass := aClass ] -{ #category : #running } +{ #category : 'running' } RSPAnimationTest >> setUp [ super setUp. canvas := RSCanvas new ] -{ #category : #tests } +{ #category : 'tests' } RSPAnimationTest >> testBasic [ | animation | animation := self animationClass new. @@ -61,7 +62,7 @@ RSPAnimationTest >> testBasic [ self assert: animation loops equals: 3 ] -{ #category : #tests } +{ #category : 'tests' } RSPAnimationTest >> testBasicInCanvas [ | animation | animation := self animationClass new. @@ -72,7 +73,7 @@ RSPAnimationTest >> testBasicInCanvas [ self assert: animation duration equals: self animationClass defaultDuration ] -{ #category : #tests } +{ #category : 'tests' } RSPAnimationTest >> testDelay [ | animation | animation := self animationClass new. @@ -83,7 +84,7 @@ RSPAnimationTest >> testDelay [ self assert: animation isDelayDone ] -{ #category : #tests } +{ #category : 'tests' } RSPAnimationTest >> testError [ | c shape ani | diff --git a/src/Roassal-Animation-Tests/RSParallelAnimationTest.class.st b/src/Roassal-Animation-Tests/RSParallelAnimationTest.class.st index 7acc17f1..28833864 100644 --- a/src/Roassal-Animation-Tests/RSParallelAnimationTest.class.st +++ b/src/Roassal-Animation-Tests/RSParallelAnimationTest.class.st @@ -1,17 +1,18 @@ Class { - #name : #RSParallelAnimationTest, - #superclass : #RSAnimationTest, - #category : #'Roassal-Animation-Tests' + #name : 'RSParallelAnimationTest', + #superclass : 'RSAnimationTest', + #category : 'Roassal-Animation-Tests', + #package : 'Roassal-Animation-Tests' } -{ #category : #tests } +{ #category : 'tests' } RSParallelAnimationTest >> testAddingAnimations [ self addingInComposite: canvas parallelAnimation duration: 2 second ] -{ #category : #tests } +{ #category : 'tests' } RSParallelAnimationTest >> testDuration [ | animation | animation := RSParallelAnimation new. @@ -41,14 +42,14 @@ RSParallelAnimationTest >> testDuration [ self assert: animation allDuration equals: 4 seconds ] -{ #category : #tests } +{ #category : 'tests' } RSParallelAnimationTest >> testParallelAnimationCreation [ self createAnimationWith: [ canvas parallelAnimationFrom: {} ] animationClass: RSParallelAnimation ] -{ #category : #tests } +{ #category : 'tests' } RSParallelAnimationTest >> testStep [ | value animation | value := 0. @@ -64,7 +65,7 @@ RSParallelAnimationTest >> testStep [ self assert: value equals: 2 ] -{ #category : #tests } +{ #category : 'tests' } RSParallelAnimationTest >> testStepEvent [ | value loop animation | value := nil. diff --git a/src/Roassal-Animation-Tests/RSSequentialAnimationTest.class.st b/src/Roassal-Animation-Tests/RSSequentialAnimationTest.class.st index 004abbea..6fb11c63 100644 --- a/src/Roassal-Animation-Tests/RSSequentialAnimationTest.class.st +++ b/src/Roassal-Animation-Tests/RSSequentialAnimationTest.class.st @@ -2,19 +2,20 @@ I have test for sequential animation " Class { - #name : #RSSequentialAnimationTest, - #superclass : #RSAnimationTest, - #category : #'Roassal-Animation-Tests' + #name : 'RSSequentialAnimationTest', + #superclass : 'RSAnimationTest', + #category : 'Roassal-Animation-Tests', + #package : 'Roassal-Animation-Tests' } -{ #category : #tests } +{ #category : 'tests' } RSSequentialAnimationTest >> testAddingAnimations [ self addingInComposite: canvas sequentialAnimation duration: 3 second ] -{ #category : #tests } +{ #category : 'tests' } RSSequentialAnimationTest >> testDuration [ | animation | animation := RSSequentialAnimation new. @@ -41,14 +42,14 @@ RSSequentialAnimationTest >> testDuration [ self assert: animation allDuration equals: 2 seconds ] -{ #category : #tests } +{ #category : 'tests' } RSSequentialAnimationTest >> testSequentialAnimationCreation [ self createAnimationWith: [ canvas animationFrom: {} ] animationClass: RSSequentialAnimation ] -{ #category : #tests } +{ #category : 'tests' } RSSequentialAnimationTest >> testStep [ | value animation | value := 0. @@ -62,7 +63,7 @@ RSSequentialAnimationTest >> testStep [ self assert: value equals: 1 ] -{ #category : #tests } +{ #category : 'tests' } RSSequentialAnimationTest >> testStepEvent [ | value loop animation | value := nil. diff --git a/src/Roassal-Animation-Tests/RSTransitionAnimationTest.class.st b/src/Roassal-Animation-Tests/RSTransitionAnimationTest.class.st index 70e93902..fc1b3dbc 100644 --- a/src/Roassal-Animation-Tests/RSTransitionAnimationTest.class.st +++ b/src/Roassal-Animation-Tests/RSTransitionAnimationTest.class.st @@ -2,12 +2,13 @@ I have test for animation in trachel " Class { - #name : #RSTransitionAnimationTest, - #superclass : #RSAnimationTest, - #category : #'Roassal-Animation-Tests' + #name : 'RSTransitionAnimationTest', + #superclass : 'RSAnimationTest', + #category : 'Roassal-Animation-Tests', + #package : 'Roassal-Animation-Tests' } -{ #category : #tests } +{ #category : 'tests' } RSTransitionAnimationTest >> testDuration [ | animation | animation := RSTransitionAnimation new duration: 2 seconds. @@ -23,7 +24,7 @@ RSTransitionAnimationTest >> testDuration [ self assert: animation allDuration equals: 2 seconds ] -{ #category : #tests } +{ #category : 'tests' } RSTransitionAnimationTest >> testStep [ | value | value := 0. @@ -35,7 +36,7 @@ RSTransitionAnimationTest >> testStep [ self assert: value equals: 1 ] -{ #category : #tests } +{ #category : 'tests' } RSTransitionAnimationTest >> testStepEvent [ | value loop animation | value := nil. @@ -55,7 +56,7 @@ RSTransitionAnimationTest >> testStepEvent [ self deny: animation isRunning ] -{ #category : #tests } +{ #category : 'tests' } RSTransitionAnimationTest >> testStepReset [ | animation | animation := canvas newAnimation @@ -74,7 +75,7 @@ RSTransitionAnimationTest >> testStepReset [ self runAnimation: animation threshold: 500 ] -{ #category : #tests } +{ #category : 'tests' } RSTransitionAnimationTest >> testTransitionAnimationCreation [ self createAnimationWith: [ canvas newAnimation ] diff --git a/src/Roassal-Animation-Tests/package.st b/src/Roassal-Animation-Tests/package.st index 763f5639..8040b241 100644 --- a/src/Roassal-Animation-Tests/package.st +++ b/src/Roassal-Animation-Tests/package.st @@ -1 +1 @@ -Package { #name : #'Roassal-Animation-Tests' } +Package { #name : 'Roassal-Animation-Tests' } diff --git a/src/Roassal-BaselineMap-Tests/RSMapBuilderTest.class.st b/src/Roassal-BaselineMap-Tests/RSMapBuilderTest.class.st index cefdd902..6ec5195b 100644 --- a/src/Roassal-BaselineMap-Tests/RSMapBuilderTest.class.st +++ b/src/Roassal-BaselineMap-Tests/RSMapBuilderTest.class.st @@ -2,12 +2,13 @@ A BMMapBuilderTest is a test class for testing the behavior of BMMapBuilder " Class { - #name : #RSMapBuilderTest, - #superclass : #TestCase, - #category : #'Roassal-BaselineMap-Tests' + #name : 'RSMapBuilderTest', + #superclass : 'TestCase', + #category : 'Roassal-BaselineMap-Tests', + #package : 'Roassal-BaselineMap-Tests' } -{ #category : #tests } +{ #category : 'tests' } RSMapBuilderTest >> testAttributes [ | map | map := RSMapBuilder new. @@ -16,14 +17,14 @@ RSMapBuilderTest >> testAttributes [ self assert: map models size > 1 ] -{ #category : #tests } +{ #category : 'tests' } RSMapBuilderTest >> testBasic [ RSMapBuilder new baseline: BaselineOfMorphic; build ] -{ #category : #tests } +{ #category : 'tests' } RSMapBuilderTest >> testHighlightOnNode [ | builder | builder := RSThemedMapBuilder new. diff --git a/src/Roassal-BaselineMap-Tests/package.st b/src/Roassal-BaselineMap-Tests/package.st index fd2a0f4d..e2460be5 100644 --- a/src/Roassal-BaselineMap-Tests/package.st +++ b/src/Roassal-BaselineMap-Tests/package.st @@ -1 +1 @@ -Package { #name : #'Roassal-BaselineMap-Tests' } +Package { #name : 'Roassal-BaselineMap-Tests' } diff --git a/src/Roassal-Basic3D/ManifestRoassalBasic3D.class.st b/src/Roassal-Basic3D/ManifestRoassalBasic3D.class.st index 4e8c23f0..16a2142e 100644 --- a/src/Roassal-Basic3D/ManifestRoassalBasic3D.class.st +++ b/src/Roassal-Basic3D/ManifestRoassalBasic3D.class.st @@ -2,7 +2,9 @@ Please describe the package using the class comment of the included manifest class. The manifest class also includes other additional metadata for the package. These meta data are used by other tools such as the SmalllintManifestChecker and the critics Browser " Class { - #name : #ManifestRoassalBasic3D, - #superclass : #PackageManifest, - #category : #'Roassal-Basic3D-Manifest' + #name : 'ManifestRoassalBasic3D', + #superclass : 'PackageManifest', + #category : 'Roassal-Basic3D-Manifest', + #package : 'Roassal-Basic3D', + #tag : 'Manifest' } diff --git a/src/Roassal-Basic3D/RSData3D.class.st b/src/Roassal-Basic3D/RSData3D.class.st index 36f68bb8..bc404c96 100644 --- a/src/Roassal-Basic3D/RSData3D.class.st +++ b/src/Roassal-Basic3D/RSData3D.class.st @@ -2,8 +2,8 @@ I am a basic data for this basic 3d " Class { - #name : #RSData3D, - #superclass : #Object, + #name : 'RSData3D', + #superclass : 'Object', #instVars : [ 'extent', 'tmat', @@ -12,15 +12,17 @@ Class { 'elements', 'cubeShape' ], - #category : #'Roassal-Basic3D-TODO' + #category : 'Roassal-Basic3D-TODO', + #package : 'Roassal-Basic3D', + #tag : 'TODO' } -{ #category : #accessing } +{ #category : 'accessing' } RSData3D >> cube [ ^ cubeShape ] -{ #category : #initialization } +{ #category : 'initialization' } RSData3D >> initialize [ super initialize. cubeShape := RSMShape3D cube diff --git a/src/Roassal-Basic3D/RSGrapher3D.class.st b/src/Roassal-Basic3D/RSGrapher3D.class.st index ef13c673..726225db 100644 --- a/src/Roassal-Basic3D/RSGrapher3D.class.st +++ b/src/Roassal-Basic3D/RSGrapher3D.class.st @@ -2,8 +2,8 @@ TODO " Class { - #name : #RSGrapher3D, - #superclass : #Object, + #name : 'RSGrapher3D', + #superclass : 'Object', #instVars : [ 'extent', 'tmat', @@ -11,10 +11,12 @@ Class { 'meshes', 'elements' ], - #category : #'Roassal-Basic3D-TODO' + #category : 'Roassal-Basic3D-TODO', + #package : 'Roassal-Basic3D', + #tag : 'TODO' } -{ #category : #public } +{ #category : 'public' } RSGrapher3D class >> sampleData [ | r data | r := SharedRandom globalGenerator. diff --git a/src/Roassal-Basic3D/RSMShape3D.class.st b/src/Roassal-Basic3D/RSMShape3D.class.st index 20158d1c..c31405b1 100644 --- a/src/Roassal-Basic3D/RSMShape3D.class.st +++ b/src/Roassal-Basic3D/RSMShape3D.class.st @@ -2,7 +2,9 @@ I am the basic shape factory i return mesh3d objects " Class { - #name : #RSMShape3D, - #superclass : #Object, - #category : #'Roassal-Basic3D-TODO' + #name : 'RSMShape3D', + #superclass : 'Object', + #category : 'Roassal-Basic3D-TODO', + #package : 'Roassal-Basic3D', + #tag : 'TODO' } diff --git a/src/Roassal-Basic3D/RSMatrix3D.class.st b/src/Roassal-Basic3D/RSMatrix3D.class.st index 365049c0..d2af5125 100644 --- a/src/Roassal-Basic3D/RSMatrix3D.class.st +++ b/src/Roassal-Basic3D/RSMatrix3D.class.st @@ -2,8 +2,8 @@ I am a fairly conventional 3d matrix. I can transform 3d points and perform a variety of manipulations on the transform " Class { - #name : #RSMatrix3D, - #superclass : #Object, + #name : 'RSMatrix3D', + #superclass : 'Object', #instVars : [ 'xx', 'xy', @@ -18,10 +18,12 @@ Class { 'zz', 'z0' ], - #category : #'Roassal-Basic3D-Core' + #category : 'Roassal-Basic3D-Core', + #package : 'Roassal-Basic3D', + #tag : 'Core' } -{ #category : #inspector } +{ #category : 'inspector' } RSMatrix3D >> gtInspertorMatrix: composite [ composite table @@ -33,7 +35,7 @@ RSMatrix3D >> gtInspertorMatrix: composite [ column: '0' evaluated: [ :each | each fourth ] ] -{ #category : #'instance creation' } +{ #category : 'instance creation' } RSMatrix3D >> identity [ xx := yy := zz := 1. xy := xz := x0 := 0. @@ -41,12 +43,12 @@ RSMatrix3D >> identity [ zx := zy := z0 := 0 ] -{ #category : #initialization } +{ #category : 'initialization' } RSMatrix3D >> initialize [ self identity ] -{ #category : #tranforming } +{ #category : 'tranforming' } RSMatrix3D >> mult: r [ "multiply this matrix by a second matrix, M := M*R" | lxx lxy lxz lx0 lyx lyy lyz ly0 lzx lzy lzz lz0 | @@ -81,7 +83,7 @@ RSMatrix3D >> mult: r [ z0 := lz0 ] -{ #category : #'scaling, rotation, translation' } +{ #category : 'scaling, rotation, translation' } RSMatrix3D >> scale: f [ "scale by f in all dimensions" xx := xx * f. @@ -100,7 +102,7 @@ RSMatrix3D >> scale: f [ z0 := z0 * f ] -{ #category : #'scaling, rotation, translation' } +{ #category : 'scaling, rotation, translation' } RSMatrix3D >> scaleX: xf y: yf z: zf [ "scale by f in all dimensions" xx := xx * xf. @@ -119,7 +121,7 @@ RSMatrix3D >> scaleX: xf y: yf z: zf [ z0 := z0 * zf ] -{ #category : #tranforming } +{ #category : 'tranforming' } RSMatrix3D >> tranform: alist in: result [ "tranform a list to a another vector" | lxx lxy lxz lx0 lyx lyy lyz ly0 lzx lzy lzz lz0 | @@ -146,14 +148,14 @@ RSMatrix3D >> tranform: alist in: result [ ] ] -{ #category : #'scaling, rotation, translation' } +{ #category : 'scaling, rotation, translation' } RSMatrix3D >> translateByX: x y: y z: z [ x0 := x0 + x. y0 := y0 + y. z0 := z0 + z. ] -{ #category : #accessing } +{ #category : 'accessing' } RSMatrix3D >> values [ ^ Array with: (Array with: xx with: xy with: xz with: x0) @@ -161,12 +163,12 @@ RSMatrix3D >> values [ with: (Array with: zx with: zy with: zz with: x0) ] -{ #category : #accessing } +{ #category : 'accessing' } RSMatrix3D >> x0 [ ^ x0 ] -{ #category : #'scaling, rotation, translation' } +{ #category : 'scaling, rotation, translation' } RSMatrix3D >> xrot: theta [ " theta is in radians, rotation in x axis" | ct st nyx nyy nyz ny0 nzx nzy nzz nz0 | @@ -195,27 +197,27 @@ RSMatrix3D >> xrot: theta [ z0 := nz0 ] -{ #category : #accessing } +{ #category : 'accessing' } RSMatrix3D >> xx [ ^ xx ] -{ #category : #accessing } +{ #category : 'accessing' } RSMatrix3D >> xy [ ^ xy ] -{ #category : #accessing } +{ #category : 'accessing' } RSMatrix3D >> xz [ ^ xz ] -{ #category : #accessing } +{ #category : 'accessing' } RSMatrix3D >> y0 [ ^ y0 ] -{ #category : #'scaling, rotation, translation' } +{ #category : 'scaling, rotation, translation' } RSMatrix3D >> yrot: theta [ " theta is in radians, rotation in y axis" | ct st nxx nxy nxz nx0 nzx nzy nzz nz0 | @@ -244,27 +246,27 @@ RSMatrix3D >> yrot: theta [ z0 := nz0 ] -{ #category : #accessing } +{ #category : 'accessing' } RSMatrix3D >> yx [ ^ yx ] -{ #category : #accessing } +{ #category : 'accessing' } RSMatrix3D >> yy [ ^ yy ] -{ #category : #accessing } +{ #category : 'accessing' } RSMatrix3D >> yz [ ^ yz ] -{ #category : #accessing } +{ #category : 'accessing' } RSMatrix3D >> z0 [ ^ z0 ] -{ #category : #'scaling, rotation, translation' } +{ #category : 'scaling, rotation, translation' } RSMatrix3D >> zrot: theta [ " theta is in radians, rotation in z axis" | ct st nyx nyy nyz ny0 nxx nxy nxz nx0 | @@ -293,17 +295,17 @@ RSMatrix3D >> zrot: theta [ x0 := nx0 ] -{ #category : #accessing } +{ #category : 'accessing' } RSMatrix3D >> zx [ ^ zx ] -{ #category : #accessing } +{ #category : 'accessing' } RSMatrix3D >> zy [ ^ zy ] -{ #category : #accessing } +{ #category : 'accessing' } RSMatrix3D >> zz [ ^ zz ] diff --git a/src/Roassal-Basic3D/RSMesh3D.class.st b/src/Roassal-Basic3D/RSMesh3D.class.st index 43176567..e28bc5e3 100644 --- a/src/Roassal-Basic3D/RSMesh3D.class.st +++ b/src/Roassal-Basic3D/RSMesh3D.class.st @@ -2,8 +2,8 @@ The representaion of a 3d model just the mesh " Class { - #name : #RSMesh3D, - #superclass : #Object, + #name : 'RSMesh3D', + #superclass : 'Object', #instVars : [ 'matrix', 'tranformed', @@ -14,10 +14,12 @@ Class { 'meshMode', 'shapes' ], - #category : #'Roassal-Basic3D-Core' + #category : 'Roassal-Basic3D-Core', + #package : 'Roassal-Basic3D', + #tag : 'Core' } -{ #category : #public } +{ #category : 'public' } RSMesh3D class >> cubeVector: array [ | inst data| inst := self new. @@ -47,12 +49,12 @@ RSMesh3D class >> cubeVector: array [ ^ inst ] -{ #category : #public } +{ #category : 'public' } RSMesh3D class >> cubeWidth: width height: height depth: depth [ ^ self cubeVector: { width. height. depth } ] -{ #category : #public } +{ #category : 'public' } RSMesh3D class >> inflate: triangles [ | res m1 m2 m3 | res := OrderedCollection new. @@ -90,7 +92,7 @@ RSMesh3D class >> inflate: triangles [ ^ res ] -{ #category : #public } +{ #category : 'public' } RSMesh3D class >> tetrahedron [ | list | list := OrderedCollection new. @@ -117,22 +119,22 @@ RSMesh3D class >> tetrahedron [ ^ list ] -{ #category : #adding } +{ #category : 'adding' } RSMesh3D >> add: triangle [ triangle addedIn: self ] -{ #category : #adding } +{ #category : 'adding' } RSMesh3D >> addAll: list [ list do: [ :e | self add: e ] ] -{ #category : #private } +{ #category : 'private' } RSMesh3D >> addTriangle: kv [ edges add: kv ] -{ #category : #private } +{ #category : 'private' } RSMesh3D >> addVertex: vertex [ | index | index := vertices indexOf: vertex. @@ -142,12 +144,12 @@ RSMesh3D >> addVertex: vertex [ ^ index ] -{ #category : #public } +{ #category : 'public' } RSMesh3D >> areaMode [ meshMode := false ] -{ #category : #private } +{ #category : 'private' } RSMesh3D >> cos: a [ | p v1 v2 v3 ab ac norm normalLenght | p := a key. @@ -173,7 +175,7 @@ RSMesh3D >> cos: a [ ^ (norm third / normalLenght) abs ] -{ #category : #private } +{ #category : 'private' } RSMesh3D >> createShapes [ shapes := edges collect: [:ed | RSPolygon new @@ -182,19 +184,19 @@ RSMesh3D >> createShapes [ self updateShapes ] -{ #category : #accessing } +{ #category : 'accessing' } RSMesh3D >> edges [ ^ edges ] -{ #category : #public } +{ #category : 'public' } RSMesh3D >> elements [ ^ shapes ifNil: [ self createShapes. shapes. ] ] -{ #category : #private } +{ #category : 'private' } RSMesh3D >> getShade: a [ | angleCos c r g b | angleCos := self cos: a. @@ -209,7 +211,7 @@ RSMesh3D >> getShade: a [ ^ Color r: r g: g b: b ] -{ #category : #initialization } +{ #category : 'initialization' } RSMesh3D >> initialize [ super initialize. matrix := RSMatrix3D new. @@ -219,17 +221,17 @@ RSMesh3D >> initialize [ self areaMode ] -{ #category : #accessing } +{ #category : 'accessing' } RSMesh3D >> matrix [ ^ matrix ] -{ #category : #public } +{ #category : 'public' } RSMesh3D >> meshMode [ meshMode := true ] -{ #category : #transformations } +{ #category : 'transformations' } RSMesh3D >> transform [ transformed ifTrue: [ ^ self ]. vertices ifEmpty: [ ^ self ]. @@ -238,22 +240,22 @@ RSMesh3D >> transform [ transformed := true ] -{ #category : #testing } +{ #category : 'testing' } RSMesh3D >> transformed [ ^ transformed ] -{ #category : #accessing } +{ #category : 'accessing' } RSMesh3D >> transformed: aBool [ transformed := aBool ] -{ #category : #accessing } +{ #category : 'accessing' } RSMesh3D >> tvertices [ ^ tvertices ] -{ #category : #public } +{ #category : 'public' } RSMesh3D >> update [ shapes sort: [ :a :b | (self zof: a) < (self zof: b) ]. @@ -264,7 +266,7 @@ RSMesh3D >> update [ ^ self ] -{ #category : #public } +{ #category : 'public' } RSMesh3D >> updateShapes [ shapes do: [ :polygon| | v points p ed | @@ -283,7 +285,7 @@ RSMesh3D >> updateShapes [ ] ] -{ #category : #private } +{ #category : 'private' } RSMesh3D >> zof: e [ | points sum p | points := e model key. diff --git a/src/Roassal-Basic3D/RSRoassalDExamples.class.st b/src/Roassal-Basic3D/RSRoassalDExamples.class.st index eff6c660..0a675501 100644 --- a/src/Roassal-Basic3D/RSRoassalDExamples.class.st +++ b/src/Roassal-Basic3D/RSRoassalDExamples.class.st @@ -2,12 +2,14 @@ I have basic examples of Roassald " Class { - #name : #RSRoassalDExamples, - #superclass : #Object, - #category : #'Roassal-Basic3D-Examples' + #name : 'RSRoassalDExamples', + #superclass : 'Object', + #category : 'Roassal-Basic3D-Examples', + #package : 'Roassal-Basic3D', + #tag : 'Examples' } -{ #category : #examples } +{ #category : 'examples' } RSRoassalDExamples >> example01Ball [ | space mesh list | @@ -24,7 +26,7 @@ RSRoassalDExamples >> example01Ball [ ^ space ] -{ #category : #examples } +{ #category : 'examples' } RSRoassalDExamples >> example02Rect [ | space mesh | diff --git a/src/Roassal-Basic3D/RSSpace3D.class.st b/src/Roassal-Basic3D/RSSpace3D.class.st index 1f312f1a..f19a1e12 100644 --- a/src/Roassal-Basic3D/RSSpace3D.class.st +++ b/src/Roassal-Basic3D/RSSpace3D.class.st @@ -2,8 +2,8 @@ I am the basic space, you can add mesh 3d instances in this object " Class { - #name : #RSSpace3D, - #superclass : #Object, + #name : 'RSSpace3D', + #superclass : 'Object', #instVars : [ 'extent', 'tmat', @@ -11,15 +11,17 @@ Class { 'elements', 'canvas' ], - #category : #'Roassal-Basic3D-Core' + #category : 'Roassal-Basic3D-Core', + #package : 'Roassal-Basic3D', + #tag : 'Core' } -{ #category : #adding } +{ #category : 'adding' } RSSpace3D >> add: mesh [ meshes add: mesh ] -{ #category : #building } +{ #category : 'building' } RSSpace3D >> build [ self @@ -27,7 +29,7 @@ RSSpace3D >> build [ buildEvents ] -{ #category : #building } +{ #category : 'building' } RSSpace3D >> buildElements [ elements := Dictionary new. meshes do: [ :mesh | | meshElements | @@ -39,7 +41,7 @@ RSSpace3D >> buildElements [ ] ] -{ #category : #building } +{ #category : 'building' } RSSpace3D >> buildEvents [ | prev | @@ -63,17 +65,17 @@ RSSpace3D >> buildEvents [ for: self ] -{ #category : #accessing } +{ #category : 'accessing' } RSSpace3D >> canvas [ ^ canvas ] -{ #category : #accessing } +{ #category : 'accessing' } RSSpace3D >> canvas: aRSCanvas [ canvas := aRSCanvas ] -{ #category : #private } +{ #category : 'private' } RSSpace3D >> draw [ meshes do: [ :mesh | self updateMatrix: mesh. @@ -81,22 +83,22 @@ RSSpace3D >> draw [ canvas signalUpdate ] -{ #category : #accessing } +{ #category : 'accessing' } RSSpace3D >> elements [ ^ elements ] -{ #category : #accessing } +{ #category : 'accessing' } RSSpace3D >> extent [ ^ extent ] -{ #category : #accessing } +{ #category : 'accessing' } RSSpace3D >> extent: aPoint [ extent := aPoint ] -{ #category : #ui } +{ #category : 'ui' } RSSpace3D >> gtInspectorViewIn: composite [ composite Roassal @@ -108,7 +110,7 @@ RSSpace3D >> gtInspectorViewIn: composite [ canvas ] ] -{ #category : #initialization } +{ #category : 'initialization' } RSSpace3D >> initialize [ super initialize. self @@ -118,7 +120,7 @@ RSSpace3D >> initialize [ tmat := RSMatrix3D new ] -{ #category : #ui } +{ #category : 'ui' } RSSpace3D >> inspector [ canvas color: Smalltalk ui theme backgroundColor. @@ -129,12 +131,12 @@ RSSpace3D >> inspector [ yourself ] -{ #category : #accessing } +{ #category : 'accessing' } RSSpace3D >> meshes [ ^ meshes ] -{ #category : #private } +{ #category : 'private' } RSSpace3D >> updateMatrix: mesh [ mesh transformed: false; diff --git a/src/Roassal-Basic3D/RSTriangle3D.class.st b/src/Roassal-Basic3D/RSTriangle3D.class.st index a68de1a7..9d5ac086 100644 --- a/src/Roassal-Basic3D/RSTriangle3D.class.st +++ b/src/Roassal-Basic3D/RSTriangle3D.class.st @@ -2,18 +2,20 @@ I am a basic triangle in 3d " Class { - #name : #RSTriangle3D, - #superclass : #Object, + #name : 'RSTriangle3D', + #superclass : 'Object', #instVars : [ 'v1', 'v2', 'v3', 'color' ], - #category : #'Roassal-Basic3D-Core' + #category : 'Roassal-Basic3D-Core', + #package : 'Roassal-Basic3D', + #tag : 'Core' } -{ #category : #actions } +{ #category : 'actions' } RSTriangle3D >> addedIn: mesh [ | i1 i2 i3 | i1 := mesh addVertex: v1. @@ -22,55 +24,55 @@ RSTriangle3D >> addedIn: mesh [ mesh addTriangle: { i1. i2. i3 } -> color ] -{ #category : #accessing } +{ #category : 'accessing' } RSTriangle3D >> color [ ^ color ] -{ #category : #accessing } +{ #category : 'accessing' } RSTriangle3D >> color: aColor [ color := aColor ] -{ #category : #actions } +{ #category : 'actions' } RSTriangle3D >> mult: array [ v1 := self mult: v1 with: array. v2 := self mult: v2 with: array. v3 := self mult: v3 with: array ] -{ #category : #actions } +{ #category : 'actions' } RSTriangle3D >> mult: vertex with: array [ ^ vertex collectWithIndex: [ :k :j | k * (array at: j) ] ] -{ #category : #accessing } +{ #category : 'accessing' } RSTriangle3D >> v1 [ ^ v1 ] -{ #category : #accessing } +{ #category : 'accessing' } RSTriangle3D >> v1: a3dPoint [ v1 := a3dPoint asOrderedCollection ] -{ #category : #accessing } +{ #category : 'accessing' } RSTriangle3D >> v2 [ ^ v2 ] -{ #category : #accessing } +{ #category : 'accessing' } RSTriangle3D >> v2: a3dPoint [ v2 := a3dPoint asOrderedCollection ] -{ #category : #accessing } +{ #category : 'accessing' } RSTriangle3D >> v3 [ ^ v3 ] -{ #category : #accessing } +{ #category : 'accessing' } RSTriangle3D >> v3: a3dPoint [ v3 := a3dPoint asOrderedCollection ] diff --git a/src/Roassal-Basic3D/package.st b/src/Roassal-Basic3D/package.st index 146c62dd..f8de571a 100644 --- a/src/Roassal-Basic3D/package.st +++ b/src/Roassal-Basic3D/package.st @@ -1 +1 @@ -Package { #name : #'Roassal-Basic3D' } +Package { #name : 'Roassal-Basic3D' } diff --git a/src/Roassal-Bloc/AthensAffineTransform.extension.st b/src/Roassal-Bloc/AthensAffineTransform.extension.st index 4887897b..fa0a8218 100644 --- a/src/Roassal-Bloc/AthensAffineTransform.extension.st +++ b/src/Roassal-Bloc/AthensAffineTransform.extension.st @@ -1,6 +1,6 @@ -Extension { #name : #AthensAffineTransform } +Extension { #name : 'AthensAffineTransform' } -{ #category : #'*Roassal-Bloc' } +{ #category : '*Roassal-Bloc' } AthensAffineTransform >> asBlMatrix [ ^ BlMatrix2D new diff --git a/src/Roassal-Bloc/LinearGradientPaint.extension.st b/src/Roassal-Bloc/LinearGradientPaint.extension.st index 9e59ee51..84516f5b 100644 --- a/src/Roassal-Bloc/LinearGradientPaint.extension.st +++ b/src/Roassal-Bloc/LinearGradientPaint.extension.st @@ -1,6 +1,6 @@ -Extension { #name : #LinearGradientPaint } +Extension { #name : 'LinearGradientPaint' } -{ #category : #'*Roassal-Bloc' } +{ #category : '*Roassal-Bloc' } LinearGradientPaint >> asBlBackground [ ^ (BlLinearGradientPaint new diff --git a/src/Roassal-Bloc/RSAbstractLine.extension.st b/src/Roassal-Bloc/RSAbstractLine.extension.st index aa48c521..19939da3 100644 --- a/src/Roassal-Bloc/RSAbstractLine.extension.st +++ b/src/Roassal-Bloc/RSAbstractLine.extension.st @@ -1,6 +1,6 @@ -Extension { #name : #RSAbstractLine } +Extension { #name : 'RSAbstractLine' } -{ #category : #'*Roassal-Bloc' } +{ #category : '*Roassal-Bloc' } RSAbstractLine >> asBlElement [ ^ (RSShapeElement newWith: self) @@ -10,13 +10,13 @@ RSAbstractLine >> asBlElement [ yourself ] -{ #category : #'*Roassal-Bloc' } +{ #category : '*Roassal-Bloc' } RSAbstractLine >> asBlGeometry [ ^ self subclassResponsibility ] -{ #category : #'*Roassal-Bloc' } +{ #category : '*Roassal-Bloc' } RSAbstractLine >> updateBlElement: aBlElement [ "Update the element. Note: Unlike other shapes, the lines need to update the geometry." @@ -28,7 +28,7 @@ RSAbstractLine >> updateBlElement: aBlElement [ background: self blPaint ] -{ #category : #'*Roassal-Bloc' } +{ #category : '*Roassal-Bloc' } RSAbstractLine >> updateBlGeometry: aBlGeometry [ self subclassResponsibility diff --git a/src/Roassal-Bloc/RSBezier.extension.st b/src/Roassal-Bloc/RSBezier.extension.st index 8b1035cd..ef056b8e 100644 --- a/src/Roassal-Bloc/RSBezier.extension.st +++ b/src/Roassal-Bloc/RSBezier.extension.st @@ -1,12 +1,12 @@ -Extension { #name : #RSBezier } +Extension { #name : 'RSBezier' } -{ #category : #'*Roassal-Bloc' } +{ #category : '*Roassal-Bloc' } RSBezier >> asBlGeometry [ ^ BlBezierCurveGeometry new ] -{ #category : #'*Roassal-Bloc' } +{ #category : '*Roassal-Bloc' } RSBezier >> updateBlGeometry: aBlGeometry [ aBlGeometry controlPoints: self controlPoints diff --git a/src/Roassal-Bloc/RSBitmap.extension.st b/src/Roassal-Bloc/RSBitmap.extension.st index 3ace87aa..979093e7 100644 --- a/src/Roassal-Bloc/RSBitmap.extension.st +++ b/src/Roassal-Bloc/RSBitmap.extension.st @@ -1,12 +1,12 @@ -Extension { #name : #RSBitmap } +Extension { #name : 'RSBitmap' } -{ #category : #'*Roassal-Bloc' } +{ #category : '*Roassal-Bloc' } RSBitmap >> asBlGeometry [ ^ BlRectangleGeometry new ] -{ #category : #'*Roassal-Bloc' } +{ #category : '*Roassal-Bloc' } RSBitmap >> blPaint [ ^ BlImageBackground image: form diff --git a/src/Roassal-Bloc/RSBlocAnimationPlayingTask.class.st b/src/Roassal-Bloc/RSBlocAnimationPlayingTask.class.st index d80a061c..2af0fa5a 100644 --- a/src/Roassal-Bloc/RSBlocAnimationPlayingTask.class.st +++ b/src/Roassal-Bloc/RSBlocAnimationPlayingTask.class.st @@ -2,15 +2,17 @@ I'm a task that re-enqueues on every frame and does nothing when the Roassal canvas has no animations. " Class { - #name : #RSBlocAnimationPlayingTask, - #superclass : #BlTask, + #name : 'RSBlocAnimationPlayingTask', + #superclass : 'BlTask', #instVars : [ 'roassalCanvas' ], - #category : #'Roassal-Bloc-Core' + #category : 'Roassal-Bloc-Core', + #package : 'Roassal-Bloc', + #tag : 'Core' } -{ #category : #'instance creation' } +{ #category : 'instance creation' } RSBlocAnimationPlayingTask class >> newWithCanvas: aRSCanvas [ ^ self basicNew @@ -18,20 +20,20 @@ RSBlocAnimationPlayingTask class >> newWithCanvas: aRSCanvas [ yourself ] -{ #category : #accessing } +{ #category : 'accessing' } RSBlocAnimationPlayingTask >> initializeWithCanvas: aRSCanvas [ self initialize. roassalCanvas := aRSCanvas ] -{ #category : #'private - testing' } +{ #category : 'private - testing' } RSBlocAnimationPlayingTask >> requeueTaskAfterExecution [ ^ true ] -{ #category : #'api - running' } +{ #category : 'api - running' } RSBlocAnimationPlayingTask >> run [ roassalCanvas hasAnimation ifTrue: [ roassalCanvas playAnimations ] diff --git a/src/Roassal-Bloc/RSBlocEventListener.class.st b/src/Roassal-Bloc/RSBlocEventListener.class.st index de128318..d7bcceac 100644 --- a/src/Roassal-Bloc/RSBlocEventListener.class.st +++ b/src/Roassal-Bloc/RSBlocEventListener.class.st @@ -2,15 +2,17 @@ I listen Bloc events and adapt them as RSEvents. " Class { - #name : #RSBlocEventListener, - #superclass : #BlEventListener, + #name : 'RSBlocEventListener', + #superclass : 'BlEventListener', #instVars : [ 'roassalCanvas' ], - #category : #'Roassal-Bloc-Events' + #category : 'Roassal-Bloc-Events', + #package : 'Roassal-Bloc', + #tag : 'Events' } -{ #category : #'instance creation' } +{ #category : 'instance creation' } RSBlocEventListener class >> newForCanvas: aRSHost [ ^ self basicNew @@ -18,7 +20,7 @@ RSBlocEventListener class >> newForCanvas: aRSHost [ yourself ] -{ #category : #private } +{ #category : 'private' } RSBlocEventListener >> announceEventOfClass: aRSEventClass actionClass: anActionClass from: aBlEvent [ | targetShape aRSEvent | @@ -34,7 +36,7 @@ RSBlocEventListener >> announceEventOfClass: aRSEventClass actionClass: anAction targetShape announce: aRSEvent ] -{ #category : #private } +{ #category : 'private' } RSBlocEventListener >> announceEventOfClass: aRSEventClass from: aBlEvent [ self @@ -43,7 +45,7 @@ RSBlocEventListener >> announceEventOfClass: aRSEventClass from: aBlEvent [ from: aBlEvent ] -{ #category : #private } +{ #category : 'private' } RSBlocEventListener >> announceMouseEventOfClass: defaultClass ifLeftButton: leftButtonClass ifRightButton: rightButtonClass from: aBlClickEvent [ "Translate a Bloc click event to a Roassal click event." @@ -60,7 +62,7 @@ RSBlocEventListener >> announceMouseEventOfClass: defaultClass ifLeftButton: lef from: aBlClickEvent ] -{ #category : #'mouse handlers' } +{ #category : 'mouse handlers' } RSBlocEventListener >> clickEvent: aBlEvent [ self @@ -71,7 +73,7 @@ RSBlocEventListener >> clickEvent: aBlEvent [ ] -{ #category : #'mouse handlers' } +{ #category : 'mouse handlers' } RSBlocEventListener >> doubleClickEvent: aBlEvent [ self @@ -81,19 +83,19 @@ RSBlocEventListener >> doubleClickEvent: aBlEvent [ from: aBlEvent ] -{ #category : #'dnd handlers' } +{ #category : 'dnd handlers' } RSBlocEventListener >> dragEndEvent: aBlEvent [ self announceEventOfClass: RSMouseDragEnd from: aBlEvent ] -{ #category : #'dnd handlers' } +{ #category : 'dnd handlers' } RSBlocEventListener >> dragEvent: aBlEvent [ self announceEventOfClass: RSMouseDragging from: aBlEvent ] -{ #category : #'dnd handlers' } +{ #category : 'dnd handlers' } RSBlocEventListener >> dragStartEvent: aBlEvent [ self @@ -103,26 +105,26 @@ RSBlocEventListener >> dragStartEvent: aBlEvent [ from: aBlEvent ] -{ #category : #initialization } +{ #category : 'initialization' } RSBlocEventListener >> initializeForCanvas: aRSCanvas [ self initialize. roassalCanvas := aRSCanvas ] -{ #category : #'mouse handlers' } +{ #category : 'mouse handlers' } RSBlocEventListener >> mouseEnterEvent: aBlEvent [ self announceEventOfClass: RSMouseEnter from: aBlEvent ] -{ #category : #'mouse handlers' } +{ #category : 'mouse handlers' } RSBlocEventListener >> mouseLeaveEvent: aBlEvent [ self announceEventOfClass: RSMouseLeave from: aBlEvent ] -{ #category : #'mouse handlers' } +{ #category : 'mouse handlers' } RSBlocEventListener >> mouseMoveEvent: aBlEvent [ roassalCanvas host lastMousePosition: aBlEvent position. @@ -130,7 +132,7 @@ RSBlocEventListener >> mouseMoveEvent: aBlEvent [ self announceEventOfClass: RSMouseMove from: aBlEvent ] -{ #category : #'mouse handlers' } +{ #category : 'mouse handlers' } RSBlocEventListener >> mouseWheelEvent: aBlEvent [ aBlEvent vector y isZero ifTrue: [ ^ self ]. diff --git a/src/Roassal-Bloc/RSBlocExamples.class.st b/src/Roassal-Bloc/RSBlocExamples.class.st index 8c0ed64d..260334f0 100644 --- a/src/Roassal-Bloc/RSBlocExamples.class.st +++ b/src/Roassal-Bloc/RSBlocExamples.class.st @@ -1,17 +1,19 @@ Class { - #name : #RSBlocExamples, - #superclass : #Object, - #category : #'Roassal-Bloc-Examples' + #name : 'RSBlocExamples', + #superclass : 'Object', + #category : 'Roassal-Bloc-Examples', + #package : 'Roassal-Bloc', + #tag : 'Examples' } -{ #category : #accessing } +{ #category : 'accessing' } RSBlocExamples class >> allExampleSelectors [ ^ (self selectors select: [ :each | each beginsWith: 'example' ]) sorted ] -{ #category : #examples } +{ #category : 'examples' } RSBlocExamples >> example01Boxes [ @@ -31,7 +33,7 @@ RSBlocExamples >> example01Boxes [ ^ c ] -{ #category : #examples } +{ #category : 'examples' } RSBlocExamples >> example02EllipseAndCircle [ @@ -52,7 +54,7 @@ RSBlocExamples >> example02EllipseAndCircle [ ^ c ] -{ #category : #examples } +{ #category : 'examples' } RSBlocExamples >> example03RotatedBoxes [ @@ -86,7 +88,7 @@ RSBlocExamples >> example03RotatedBoxes [ ] -{ #category : #examples } +{ #category : 'examples' } RSBlocExamples >> example04RotatedLabels [ @@ -125,7 +127,7 @@ RSBlocExamples >> example04RotatedLabels [ ^ c ] -{ #category : #examples } +{ #category : 'examples' } RSBlocExamples >> example05Ellipses [ @@ -151,7 +153,7 @@ RSBlocExamples >> example05Ellipses [ ^ c ] -{ #category : #examples } +{ #category : 'examples' } RSBlocExamples >> example06Polyline [ @@ -169,7 +171,7 @@ RSBlocExamples >> example06Polyline [ ] -{ #category : #examples } +{ #category : 'examples' } RSBlocExamples >> example07MouseMove [ < script: 'self new example07MouseMove open' > @@ -202,7 +204,7 @@ RSBlocExamples >> example07MouseMove [ ^ canvas ] -{ #category : #examples } +{ #category : 'examples' } RSBlocExamples >> example08ZoomToFitWhenExtentChangedEvent [ | canvas | @@ -224,7 +226,7 @@ RSBlocExamples >> example08ZoomToFitWhenExtentChangedEvent [ ^ canvas ] -{ #category : #examples } +{ #category : 'examples' } RSBlocExamples >> example09HierarchyWithCanvasController [ @@ -259,7 +261,7 @@ RSBlocExamples >> example09HierarchyWithCanvasController [ ] -{ #category : #examples } +{ #category : 'examples' } RSBlocExamples >> example10BasicComposite [ @@ -290,7 +292,7 @@ RSBlocExamples >> example10BasicComposite [ ^ c ] -{ #category : #examples } +{ #category : 'examples' } RSBlocExamples >> example11SimpleClassHierarchy [ @@ -324,7 +326,7 @@ RSBlocExamples >> example11SimpleClassHierarchy [ ^ c ] -{ #category : #examples } +{ #category : 'examples' } RSBlocExamples >> example12Donna [ @@ -404,7 +406,7 @@ E di pensier ^ canvas ] -{ #category : #examples } +{ #category : 'examples' } RSBlocExamples >> example13Cluster [ @@ -455,7 +457,7 @@ RSBlocExamples >> example13Cluster [ ^ canvas ] -{ #category : #examples } +{ #category : 'examples' } RSBlocExamples >> example14LabelExtent [ @@ -488,7 +490,7 @@ RSBlocExamples >> example14LabelExtent [ ] -{ #category : #examples } +{ #category : 'examples' } RSBlocExamples >> example15BarPlot [ @@ -515,7 +517,7 @@ RSBlocExamples >> example15BarPlot [ ^ c canvas ] -{ #category : #examples } +{ #category : 'examples' } RSBlocExamples >> example16Histogram [ @@ -547,7 +549,7 @@ RSBlocExamples >> example16Histogram [ ^ canvas ] -{ #category : #examples } +{ #category : 'examples' } RSBlocExamples >> example17MouseMoveEllipse [ @@ -579,7 +581,7 @@ RSBlocExamples >> example17MouseMoveEllipse [ ^ c ] -{ #category : #examples } +{ #category : 'examples' } RSBlocExamples >> example18MouseMoveLine [ | c rotate size angle | @@ -614,7 +616,7 @@ RSBlocExamples >> example18MouseMoveLine [ ^ c ] -{ #category : #examples } +{ #category : 'examples' } RSBlocExamples >> example19Animation [ @@ -657,7 +659,7 @@ RSBlocExamples >> example19Animation [ ^ canvas ] -{ #category : #examples } +{ #category : 'examples' } RSBlocExamples >> example20BoxWindmill [ | canvas shapes extent points frameCount border | @@ -694,7 +696,7 @@ RSBlocExamples >> example20BoxWindmill [ ^ canvas ] -{ #category : #examples } +{ #category : 'examples' } RSBlocExamples >> example21BoxesLineCircles [ @@ -801,7 +803,7 @@ RSBlocExamples >> example21BoxesLineCircles [ ] -{ #category : #examples } +{ #category : 'examples' } RSBlocExamples >> example22AnimationOnRightClick [ @@ -863,7 +865,7 @@ RSBlocExamples >> example22AnimationOnRightClick [ ^ canvas ] -{ #category : #examples } +{ #category : 'examples' } RSBlocExamples >> example23Flor [ @@ -912,7 +914,7 @@ RSBlocExamples >> example23Flor [ ] -{ #category : #examples } +{ #category : 'examples' } RSBlocExamples >> example24AnimationLinesInComposite [ @@ -998,7 +1000,7 @@ RSBlocExamples >> example24AnimationLinesInComposite [ ^ canvas ] -{ #category : #examples } +{ #category : 'examples' } RSBlocExamples >> example25Bitmap [ @@ -1024,7 +1026,7 @@ RSBlocExamples >> example25Bitmap [ ^ canvas ] -{ #category : #examples } +{ #category : 'examples' } RSBlocExamples >> example26Bezier [ @@ -1044,7 +1046,7 @@ RSBlocExamples >> example26Bezier [ ^ canvas ] -{ #category : #examples } +{ #category : 'examples' } RSBlocExamples >> example27BezierAttachPoints [ @@ -1084,7 +1086,7 @@ RSBlocExamples >> example27BezierAttachPoints [ ^ canvas ] -{ #category : #examples } +{ #category : 'examples' } RSBlocExamples >> example28BezierWithAnimation [ @@ -1142,7 +1144,7 @@ RSBlocExamples >> example28BezierWithAnimation [ ^ canvas ] -{ #category : #examples } +{ #category : 'examples' } RSBlocExamples >> example29Polygon [ @@ -1172,7 +1174,7 @@ RSBlocExamples >> example29Polygon [ ^ canvas ] -{ #category : #examples } +{ #category : 'examples' } RSBlocExamples >> example30EllipseWithLinearGradient [ @@ -1195,7 +1197,7 @@ RSBlocExamples >> example30EllipseWithLinearGradient [ ^ canvas ] -{ #category : #examples } +{ #category : 'examples' } RSBlocExamples >> example31PolygonWithLinearGradient [ @@ -1242,7 +1244,7 @@ RSBlocExamples >> example31PolygonWithLinearGradient [ ^ canvas ] -{ #category : #examples } +{ #category : 'examples' } RSBlocExamples >> example32FixedShape [ @@ -1267,7 +1269,7 @@ RSBlocExamples >> example32FixedShape [ ^ canvas ] -{ #category : #examples } +{ #category : 'examples' } RSBlocExamples >> example33AnimatedLayout [ @@ -1320,7 +1322,7 @@ RSBlocExamples >> example33AnimatedLayout [ ] -{ #category : #examples } +{ #category : 'examples' } RSBlocExamples >> example34RSLocateWithMouseEvents [ @@ -1419,7 +1421,7 @@ RSBlocExamples >> example34RSLocateWithMouseEvents [ ^ canvas ] -{ #category : #examples } +{ #category : 'examples' } RSBlocExamples >> example35MouseEnterMouseLeave [ "Open Transcript to see the traced events. - Blue ellipse is over the box. @@ -1467,7 +1469,7 @@ RSBlocExamples >> example35MouseEnterMouseLeave [ ^ canvas ] -{ #category : #private } +{ #category : 'private' } RSBlocExamples >> newCanvas [ ^ RSCanvas new diff --git a/src/Roassal-Bloc/RSBlocHost.class.st b/src/Roassal-Bloc/RSBlocHost.class.st index 10b2ad42..e98b4664 100644 --- a/src/Roassal-Bloc/RSBlocHost.class.st +++ b/src/Roassal-Bloc/RSBlocHost.class.st @@ -2,17 +2,19 @@ I'm a RSHost that represents a RSCanvas as BlElement instances, eventually in a BlSpace (window). " Class { - #name : #RSBlocHost, - #superclass : #RSHost, + #name : 'RSBlocHost', + #superclass : 'RSHost', #instVars : [ 'space', 'canvasElement', 'lastMousePosition' ], - #category : #'Roassal-Bloc-Core' + #category : 'Roassal-Bloc-Core', + #package : 'Roassal-Bloc', + #tag : 'Core' } -{ #category : #opening } +{ #category : 'opening' } RSBlocHost >> canvasElement [ "Analog to RSCanvas>>createMorph" @@ -20,25 +22,25 @@ RSBlocHost >> canvasElement [ canvasElement := RSCanvasElement newWithCanvas: canvas ] ] -{ #category : #accessing } +{ #category : 'accessing' } RSBlocHost >> defaultWindowTitle [ ^ super defaultWindowTitle , ' - Bloc' ] -{ #category : #accessing } +{ #category : 'accessing' } RSBlocHost >> lastMousePosition [ ^ lastMousePosition ] -{ #category : #accessing } +{ #category : 'accessing' } RSBlocHost >> lastMousePosition: anObject [ lastMousePosition := anObject ] -{ #category : #opening } +{ #category : 'opening' } RSBlocHost >> openWithTitle: aTitleAsString [ "Open a canvas with a given title" @@ -54,7 +56,7 @@ RSBlocHost >> openWithTitle: aTitleAsString [ ] -{ #category : #opening } +{ #category : 'opening' } RSBlocHost >> signalUpdate [ "Request a redraw on the canvas." @@ -63,7 +65,7 @@ RSBlocHost >> signalUpdate [ canvasElement signalUpdate ] -{ #category : #accessing } +{ #category : 'accessing' } RSBlocHost >> space [ "Answer the BlSpace where the the canvas has been opened. If it wasn't opened, the answer is nil." diff --git a/src/Roassal-Bloc/RSBlocMetricProvider.class.st b/src/Roassal-Bloc/RSBlocMetricProvider.class.st index 68737acb..2f985c04 100644 --- a/src/Roassal-Bloc/RSBlocMetricProvider.class.st +++ b/src/Roassal-Bloc/RSBlocMetricProvider.class.st @@ -1,10 +1,12 @@ Class { - #name : #RSBlocMetricProvider, - #superclass : #RSMetricsProvider, - #category : #'Roassal-Bloc-Core' + #name : 'RSBlocMetricProvider', + #superclass : 'RSMetricsProvider', + #category : 'Roassal-Bloc-Core', + #package : 'Roassal-Bloc', + #tag : 'Core' } -{ #category : #hooks } +{ #category : 'hooks' } RSBlocMetricProvider >> extentsOf: aRSLabel [ | paragraph line | paragraph := BlTextParagraph new diff --git a/src/Roassal-Bloc/RSBorder.extension.st b/src/Roassal-Bloc/RSBorder.extension.st index d77260ec..608423d4 100644 --- a/src/Roassal-Bloc/RSBorder.extension.st +++ b/src/Roassal-Bloc/RSBorder.extension.st @@ -1,6 +1,6 @@ -Extension { #name : #RSBorder } +Extension { #name : 'RSBorder' } -{ #category : #'*Roassal-Bloc' } +{ #category : '*Roassal-Bloc' } RSBorder >> asBlBorder [ | builder | builder := BlBorder builder diff --git a/src/Roassal-Bloc/RSBoundingShape.extension.st b/src/Roassal-Bloc/RSBoundingShape.extension.st index f12c6636..f4bc6197 100644 --- a/src/Roassal-Bloc/RSBoundingShape.extension.st +++ b/src/Roassal-Bloc/RSBoundingShape.extension.st @@ -1,6 +1,6 @@ -Extension { #name : #RSBoundingShape } +Extension { #name : 'RSBoundingShape' } -{ #category : #'*Roassal-Bloc' } +{ #category : '*Roassal-Bloc' } RSBoundingShape >> asBlElement [ ^ (RSShapeElement newWith: self) @@ -9,13 +9,13 @@ RSBoundingShape >> asBlElement [ yourself ] -{ #category : #'*Roassal-Bloc' } +{ #category : '*Roassal-Bloc' } RSBoundingShape >> asBlGeometry [ ^ self subclassResponsibility ] -{ #category : #'*Roassal-Bloc' } +{ #category : '*Roassal-Bloc' } RSBoundingShape >> blTransformation [ | anAffineTransformation | @@ -27,7 +27,7 @@ RSBoundingShape >> blTransformation [ ^ BlElementLocalTransformation newWith: anAffineTransformation ] -{ #category : #'*Roassal-Bloc' } +{ #category : '*Roassal-Bloc' } RSBoundingShape >> updateBlElement: aShapeElement [ aShapeElement diff --git a/src/Roassal-Bloc/RSBox.extension.st b/src/Roassal-Bloc/RSBox.extension.st index f8a3d04f..92409d0a 100644 --- a/src/Roassal-Bloc/RSBox.extension.st +++ b/src/Roassal-Bloc/RSBox.extension.st @@ -1,6 +1,6 @@ -Extension { #name : #RSBox } +Extension { #name : 'RSBox' } -{ #category : #'*Roassal-Bloc' } +{ #category : '*Roassal-Bloc' } RSBox >> asBlGeometry [ ^ BlRectangleGeometry new diff --git a/src/Roassal-Bloc/RSCameraElement.class.st b/src/Roassal-Bloc/RSCameraElement.class.st index f67e98aa..99e77e36 100644 --- a/src/Roassal-Bloc/RSCameraElement.class.st +++ b/src/Roassal-Bloc/RSCameraElement.class.st @@ -4,15 +4,17 @@ I'm a BlElement that has as children the representation of the regular RSShapes Such regular shapes must be translated and scaled according to the camera. " Class { - #name : #RSCameraElement, - #superclass : #BlElement, + #name : 'RSCameraElement', + #superclass : 'BlElement', #instVars : [ 'roassalCanvas' ], - #category : #'Roassal-Bloc-Elements' + #category : 'Roassal-Bloc-Elements', + #package : 'Roassal-Bloc', + #tag : 'Elements' } -{ #category : #'instance creation' } +{ #category : 'instance creation' } RSCameraElement class >> newWithCanvas: aRSCanvas [ ^ self basicNew @@ -20,7 +22,7 @@ RSCameraElement class >> newWithCanvas: aRSCanvas [ yourself ] -{ #category : #initialization } +{ #category : 'initialization' } RSCameraElement >> initializeWithCanvas: aRSCanvas [ self initialize. @@ -36,13 +38,13 @@ RSCameraElement >> initializeWithCanvas: aRSCanvas [ updateFromCanvasCamera ] -{ #category : #accessing } +{ #category : 'accessing' } RSCameraElement >> roassalShape [ ^ roassalCanvas ] -{ #category : #accessing } +{ #category : 'accessing' } RSCameraElement >> updateFromCanvasCamera [ | aMatrix | @@ -50,7 +52,7 @@ RSCameraElement >> updateFromCanvasCamera [ self transformation: (BlElementAbsoluteTransformation matrix: aMatrix) ] -{ #category : #accessing } +{ #category : 'accessing' } RSCameraElement >> updateFromRoassalShape [ "The difference with the inherited implementation is to update the camera instead of a shape." diff --git a/src/Roassal-Bloc/RSCanvas.extension.st b/src/Roassal-Bloc/RSCanvas.extension.st index b6a3801c..22d49b35 100644 --- a/src/Roassal-Bloc/RSCanvas.extension.st +++ b/src/Roassal-Bloc/RSCanvas.extension.st @@ -1,12 +1,12 @@ -Extension { #name : #RSCanvas } +Extension { #name : 'RSCanvas' } -{ #category : #'*Roassal-Bloc' } +{ #category : '*Roassal-Bloc' } RSCanvas >> host [ ^ host ] -{ #category : #'*Roassal-Bloc' } +{ #category : '*Roassal-Bloc' } RSCanvas >> useBlocHost [ host := RSBlocHost new diff --git a/src/Roassal-Bloc/RSCanvasElement.class.st b/src/Roassal-Bloc/RSCanvasElement.class.st index aa4a174f..4c84aa50 100644 --- a/src/Roassal-Bloc/RSCanvasElement.class.st +++ b/src/Roassal-Bloc/RSCanvasElement.class.st @@ -1,6 +1,6 @@ Class { - #name : #RSCanvasElement, - #superclass : #BlElement, + #name : 'RSCanvasElement', + #superclass : 'BlElement', #instVars : [ 'roassalCanvas', 'elementListener', @@ -8,10 +8,12 @@ Class { 'fixedElements', 'regularElements' ], - #category : #'Roassal-Bloc-Elements' + #category : 'Roassal-Bloc-Elements', + #package : 'Roassal-Bloc', + #tag : 'Elements' } -{ #category : #'instance creation' } +{ #category : 'instance creation' } RSCanvasElement class >> newWithCanvas: aRSCanvas [ ^ self basicNew @@ -19,7 +21,7 @@ RSCanvasElement class >> newWithCanvas: aRSCanvas [ yourself ] -{ #category : #accessing } +{ #category : 'accessing' } RSCanvasElement >> elementAtShape: aRSShape ifFound: foundBlock ifNone: noneBlock [ ^ self @@ -29,7 +31,7 @@ RSCanvasElement >> elementAtShape: aRSShape ifFound: foundBlock ifNone: noneBloc ifNone: noneBlock ] -{ #category : #private } +{ #category : 'private' } RSCanvasElement >> handleRSShapeAddedEvent: evt [ | newChild | @@ -38,7 +40,7 @@ RSCanvasElement >> handleRSShapeAddedEvent: evt [ self addChild: newChild ] -{ #category : #private } +{ #category : 'private' } RSCanvasElement >> handleRSShapeRemovedEvent: evt [ self flag: #todo. "Remove handler" @@ -49,7 +51,7 @@ RSCanvasElement >> handleRSShapeRemovedEvent: evt [ ifNone: [ #couldntRemoveShapeElement traceCr ] ] -{ #category : #initialization } +{ #category : 'initialization' } RSCanvasElement >> initializeWithCanvas: aRSCanvas [ self initialize. @@ -77,7 +79,7 @@ RSCanvasElement >> initializeWithCanvas: aRSCanvas [ subscribeRoassalToBloc ] -{ #category : #private } +{ #category : 'private' } RSCanvasElement >> newFixedShapeElements [ "Answer a collection of BlElement instances that represent the #fixedShapes. The fixedShapes of a RSCanvas are shapes that are not affected by camera transformations. They are useful for toolbar buttons or legends, for example." @@ -87,7 +89,7 @@ RSCanvasElement >> newFixedShapeElements [ yourself ] ] -{ #category : #private } +{ #category : 'private' } RSCanvasElement >> newRegularShapeElements [ "Answer a collection of BlElement instances that represent the regular RSShapes of a RSCanvas. These are the regular shapes, that must be translated and scaled according to the camera." @@ -97,13 +99,13 @@ RSCanvasElement >> newRegularShapeElements [ yourself ] ] -{ #category : #accessing } +{ #category : 'accessing' } RSCanvasElement >> roassalShape [ ^ roassalCanvas ] -{ #category : #refreshing } +{ #category : 'refreshing' } RSCanvasElement >> signalUpdate [ "Request a redraw on the canvas. @@ -131,7 +133,7 @@ RSCanvasElement >> signalUpdate [ ] -{ #category : #initialization } +{ #category : 'initialization' } RSCanvasElement >> subscribeBlocToRoassal [ self @@ -145,7 +147,7 @@ RSCanvasElement >> subscribeBlocToRoassal [ do: [ :evt | roassalCanvas extent: evt source extent ] ] -{ #category : #initialization } +{ #category : 'initialization' } RSCanvasElement >> subscribeRoassalToBloc [ roassalCanvas @@ -159,7 +161,7 @@ RSCanvasElement >> subscribeRoassalToBloc [ for: self ] -{ #category : #refreshing } +{ #category : 'refreshing' } RSCanvasElement >> updateFromRoassalCanvas [ self background: roassalCanvas color. diff --git a/src/Roassal-Bloc/RSCircularShape.extension.st b/src/Roassal-Bloc/RSCircularShape.extension.st index 5668259f..8c232d17 100644 --- a/src/Roassal-Bloc/RSCircularShape.extension.st +++ b/src/Roassal-Bloc/RSCircularShape.extension.st @@ -1,6 +1,6 @@ -Extension { #name : #RSCircularShape } +Extension { #name : 'RSCircularShape' } -{ #category : #'*Roassal-Bloc' } +{ #category : '*Roassal-Bloc' } RSCircularShape >> asBlGeometry [ ^ BlEllipseGeometry new diff --git a/src/Roassal-Bloc/RSComposite.extension.st b/src/Roassal-Bloc/RSComposite.extension.st index e2ea10cc..2a790ce0 100644 --- a/src/Roassal-Bloc/RSComposite.extension.st +++ b/src/Roassal-Bloc/RSComposite.extension.st @@ -1,6 +1,6 @@ -Extension { #name : #RSComposite } +Extension { #name : 'RSComposite' } -{ #category : #'*Roassal-Bloc' } +{ #category : '*Roassal-Bloc' } RSComposite >> asBlElement [ | aContainer | @@ -20,7 +20,7 @@ RSComposite >> asBlElement [ ^ aContainer ] -{ #category : #'*Roassal-Bloc' } +{ #category : '*Roassal-Bloc' } RSComposite >> asBlGeometry [ ^ BlRectangleGeometry new diff --git a/src/Roassal-Bloc/RSCompositeElement.class.st b/src/Roassal-Bloc/RSCompositeElement.class.st index 3773daff..29e074f2 100644 --- a/src/Roassal-Bloc/RSCompositeElement.class.st +++ b/src/Roassal-Bloc/RSCompositeElement.class.st @@ -2,12 +2,14 @@ I'm a Bloc element that is associated with a RSComposite. " Class { - #name : #RSCompositeElement, - #superclass : #RSShapeElement, - #category : #'Roassal-Bloc-Elements' + #name : 'RSCompositeElement', + #superclass : 'RSShapeElement', + #category : 'Roassal-Bloc-Elements', + #package : 'Roassal-Bloc', + #tag : 'Elements' } -{ #category : #adding } +{ #category : 'adding' } RSCompositeElement >> addBlocToRoassalEventHandler: aHandler [ super addBlocToRoassalEventHandler: aHandler. @@ -16,7 +18,7 @@ RSCompositeElement >> addBlocToRoassalEventHandler: aHandler [ each addEventHandler: aHandler ] ] -{ #category : #refreshing } +{ #category : 'refreshing' } RSCompositeElement >> updateFromRoassalShape [ super updateFromRoassalShape. diff --git a/src/Roassal-Bloc/RSEvent.extension.st b/src/Roassal-Bloc/RSEvent.extension.st index 99db354b..3c2cbdb8 100644 --- a/src/Roassal-Bloc/RSEvent.extension.st +++ b/src/Roassal-Bloc/RSEvent.extension.st @@ -1,6 +1,6 @@ -Extension { #name : #RSEvent } +Extension { #name : 'RSEvent' } -{ #category : #'*Roassal-Bloc' } +{ #category : '*Roassal-Bloc' } RSEvent class >> newFromBlEvent: aBlEvent canvas: roassalCanvas [ ^ self new position: (self roassalPositionFor: aBlEvent roassalCanvas: roassalCanvas); @@ -8,7 +8,7 @@ RSEvent class >> newFromBlEvent: aBlEvent canvas: roassalCanvas [ yourself. ] -{ #category : #'*Roassal-Bloc' } +{ #category : '*Roassal-Bloc' } RSEvent class >> roassalPositionFor: aBlEvent roassalCanvas: roassalCanvas [ "Answer the position of the event translated to a RSCanvas space position as callbacks expect it (where '0@0' is the center of the canvas)." diff --git a/src/Roassal-Bloc/RSExamplesBrowserPresenter.class.st b/src/Roassal-Bloc/RSExamplesBrowserPresenter.class.st index 0e865e8e..bc2067e7 100644 --- a/src/Roassal-Bloc/RSExamplesBrowserPresenter.class.st +++ b/src/Roassal-Bloc/RSExamplesBrowserPresenter.class.st @@ -1,15 +1,17 @@ Class { - #name : #RSExamplesBrowserPresenter, - #superclass : #SpPresenter, + #name : 'RSExamplesBrowserPresenter', + #superclass : 'SpPresenter', #instVars : [ 'examplesList', 'visualization', 'examplesClass' ], - #category : #'Roassal-Bloc-Examples' + #category : 'Roassal-Bloc-Examples', + #package : 'Roassal-Bloc', + #tag : 'Examples' } -{ #category : #specs } +{ #category : 'specs' } RSExamplesBrowserPresenter class >> defaultLayout [ ^ SpBoxLayout newLeftToRight @@ -22,7 +24,7 @@ RSExamplesBrowserPresenter class >> defaultLayout [ yourself ] -{ #category : #examples } +{ #category : 'examples' } RSExamplesBrowserPresenter class >> exampleOpenRSBlocExamples [ | app presenter | @@ -33,7 +35,7 @@ RSExamplesBrowserPresenter class >> exampleOpenRSBlocExamples [ ] -{ #category : #initialization } +{ #category : 'initialization' } RSExamplesBrowserPresenter >> connectPresenters [ super connectPresenters. @@ -45,7 +47,7 @@ RSExamplesBrowserPresenter >> connectPresenters [ (examplesClass >> aSelection selectedItem) browse ] ] -{ #category : #initialization } +{ #category : 'initialization' } RSExamplesBrowserPresenter >> initializePresenters [ super initializePresenters. @@ -56,7 +58,7 @@ RSExamplesBrowserPresenter >> initializePresenters [ self refresh. ] -{ #category : #initialization } +{ #category : 'initialization' } RSExamplesBrowserPresenter >> initializeWindow: aWindowPresenter [ aWindowPresenter @@ -65,7 +67,7 @@ RSExamplesBrowserPresenter >> initializeWindow: aWindowPresenter [ centered ] -{ #category : #initialization } +{ #category : 'initialization' } RSExamplesBrowserPresenter >> refresh [ examplesList @@ -75,7 +77,7 @@ RSExamplesBrowserPresenter >> refresh [ self refreshAccordingToSelectedExample ] -{ #category : #initialization } +{ #category : 'initialization' } RSExamplesBrowserPresenter >> refreshAccordingToSelectedExample [ examplesList selectedItem @@ -83,13 +85,13 @@ RSExamplesBrowserPresenter >> refreshAccordingToSelectedExample [ ifNotNil: [ :item | self showVisualizationFor: item ] ] -{ #category : #initialization } +{ #category : 'initialization' } RSExamplesBrowserPresenter >> setModelBeforeInitialization: aClass [ examplesClass := aClass ] -{ #category : #initialization } +{ #category : 'initialization' } RSExamplesBrowserPresenter >> showNullVisualization [ visualization space root @@ -99,7 +101,7 @@ RSExamplesBrowserPresenter >> showNullVisualization [ yourself) ] -{ #category : #initialization } +{ #category : 'initialization' } RSExamplesBrowserPresenter >> showVisualizationFor: aSelector [ | aRSCanvas | diff --git a/src/Roassal-Bloc/RSLabel.extension.st b/src/Roassal-Bloc/RSLabel.extension.st index 1c08ec4b..2a2d987e 100644 --- a/src/Roassal-Bloc/RSLabel.extension.st +++ b/src/Roassal-Bloc/RSLabel.extension.st @@ -1,6 +1,6 @@ -Extension { #name : #RSLabel } +Extension { #name : 'RSLabel' } -{ #category : #'*Roassal-Bloc' } +{ #category : '*Roassal-Bloc' } RSLabel >> asBlElement [ ^ (RSLabelElement newWith: self) @@ -8,13 +8,13 @@ RSLabel >> asBlElement [ yourself ] -{ #category : #'*Roassal-Bloc' } +{ #category : '*Roassal-Bloc' } RSLabel >> asBlGeometry [ ^ self shouldNotImplement ] -{ #category : #'*Roassal-Bloc' } +{ #category : '*Roassal-Bloc' } RSLabel >> blRopedText [ | result | @@ -34,7 +34,7 @@ RSLabel >> blRopedText [ ^ result ] -{ #category : #'*Roassal-Bloc' } +{ #category : '*Roassal-Bloc' } RSLabel >> updateBlElement: aShapeElement [ aShapeElement diff --git a/src/Roassal-Bloc/RSLabelElement.class.st b/src/Roassal-Bloc/RSLabelElement.class.st index b32359a5..ad0c63ea 100644 --- a/src/Roassal-Bloc/RSLabelElement.class.st +++ b/src/Roassal-Bloc/RSLabelElement.class.st @@ -1,13 +1,15 @@ Class { - #name : #RSLabelElement, - #superclass : #BlTextElement, + #name : 'RSLabelElement', + #superclass : 'BlTextElement', #instVars : [ 'roassalLabelShape' ], - #category : #'Roassal-Bloc-Elements' + #category : 'Roassal-Bloc-Elements', + #package : 'Roassal-Bloc', + #tag : 'Elements' } -{ #category : #'instance creation' } +{ #category : 'instance creation' } RSLabelElement class >> newWith: aRSLabel [ ^ self basicNew @@ -15,13 +17,13 @@ RSLabelElement class >> newWith: aRSLabel [ yourself ] -{ #category : #adding } +{ #category : 'adding' } RSLabelElement >> addBlocToRoassalEventHandler: aHandler [ self addEventHandler: aHandler ] -{ #category : #initialization } +{ #category : 'initialization' } RSLabelElement >> initializeWith: aRSLabel [ self initialize. @@ -29,13 +31,13 @@ RSLabelElement >> initializeWith: aRSLabel [ roassalLabelShape := aRSLabel ] -{ #category : #accessing } +{ #category : 'accessing' } RSLabelElement >> roassalShape [ ^ roassalLabelShape ] -{ #category : #refreshing } +{ #category : 'refreshing' } RSLabelElement >> updateFromRoassalShape [ roassalLabelShape updateBlElement: self diff --git a/src/Roassal-Bloc/RSLine.extension.st b/src/Roassal-Bloc/RSLine.extension.st index b92a5462..f3dce6ca 100644 --- a/src/Roassal-Bloc/RSLine.extension.st +++ b/src/Roassal-Bloc/RSLine.extension.st @@ -1,12 +1,12 @@ -Extension { #name : #RSLine } +Extension { #name : 'RSLine' } -{ #category : #'*Roassal-Bloc' } +{ #category : '*Roassal-Bloc' } RSLine >> asBlGeometry [ ^ BlLineGeometry new ] -{ #category : #'*Roassal-Bloc' } +{ #category : '*Roassal-Bloc' } RSLine >> updateBlGeometry: aBlGeometry [ aBlGeometry from: self startPoint to: self endPoint diff --git a/src/Roassal-Bloc/RSMouseWheelEvent.extension.st b/src/Roassal-Bloc/RSMouseWheelEvent.extension.st index 1c681c13..dbc56d6a 100644 --- a/src/Roassal-Bloc/RSMouseWheelEvent.extension.st +++ b/src/Roassal-Bloc/RSMouseWheelEvent.extension.st @@ -1,6 +1,6 @@ -Extension { #name : #RSMouseWheelEvent } +Extension { #name : 'RSMouseWheelEvent' } -{ #category : #'*Roassal-Bloc' } +{ #category : '*Roassal-Bloc' } RSMouseWheelEvent class >> newFromBlEvent: aBlEvent canvas: roassalCanvas [ | instance direction | instance := super diff --git a/src/Roassal-Bloc/RSPolygon.extension.st b/src/Roassal-Bloc/RSPolygon.extension.st index 8480a09b..82abacc3 100644 --- a/src/Roassal-Bloc/RSPolygon.extension.st +++ b/src/Roassal-Bloc/RSPolygon.extension.st @@ -1,12 +1,12 @@ -Extension { #name : #RSPolygon } +Extension { #name : 'RSPolygon' } -{ #category : #'*Roassal-Bloc' } +{ #category : '*Roassal-Bloc' } RSPolygon >> asBlGeometry [ ^ BlPolygonGeometry vertices: self points ] -{ #category : #'*Roassal-Bloc' } +{ #category : '*Roassal-Bloc' } RSPolygon >> updateBlElement: aShapeElement [ "We duplicate a lot of code from the inherited from super classes but avoid translation. This is related to the fact that RSPolygon>>points: moves received points to center." diff --git a/src/Roassal-Bloc/RSPolyline.extension.st b/src/Roassal-Bloc/RSPolyline.extension.st index 7154993e..86597a7d 100644 --- a/src/Roassal-Bloc/RSPolyline.extension.st +++ b/src/Roassal-Bloc/RSPolyline.extension.st @@ -1,12 +1,12 @@ -Extension { #name : #RSPolyline } +Extension { #name : 'RSPolyline' } -{ #category : #'*Roassal-Bloc' } +{ #category : '*Roassal-Bloc' } RSPolyline >> asBlGeometry [ ^ BlPolylineGeometry new ] -{ #category : #'*Roassal-Bloc' } +{ #category : '*Roassal-Bloc' } RSPolyline >> updateBlGeometry: aBlGeometry [ aBlGeometry vertices: self controlPoints diff --git a/src/Roassal-Bloc/RSShape.extension.st b/src/Roassal-Bloc/RSShape.extension.st index 1258ca16..cd677728 100644 --- a/src/Roassal-Bloc/RSShape.extension.st +++ b/src/Roassal-Bloc/RSShape.extension.st @@ -1,6 +1,6 @@ -Extension { #name : #RSShape } +Extension { #name : 'RSShape' } -{ #category : #'*Roassal-Bloc' } +{ #category : '*Roassal-Bloc' } RSShape >> asBlElement [ "Answer an instance of BlElement that represents this shape in a Bloc host. The returned object needs to answer #roassalShape." @@ -8,13 +8,13 @@ RSShape >> asBlElement [ ^ self subclassResponsibility ] -{ #category : #'*Roassal-Bloc' } +{ #category : '*Roassal-Bloc' } RSShape >> blBorder [ ^ border ifNil: [ BlBorder empty ] ifNotNil: [ border asBlBorder ] ] -{ #category : #'*Roassal-Bloc' } +{ #category : '*Roassal-Bloc' } RSShape >> blPaint [ ^ self paint ifNil: [ BlBackground transparent ] diff --git a/src/Roassal-Bloc/RSShapeElement.class.st b/src/Roassal-Bloc/RSShapeElement.class.st index 1071b978..ab7dac7f 100644 --- a/src/Roassal-Bloc/RSShapeElement.class.st +++ b/src/Roassal-Bloc/RSShapeElement.class.st @@ -2,15 +2,17 @@ I'm a Bloc element that is associated with a Roassal shape. " Class { - #name : #RSShapeElement, - #superclass : #BlElement, + #name : 'RSShapeElement', + #superclass : 'BlElement', #instVars : [ 'roassalShape' ], - #category : #'Roassal-Bloc-Elements' + #category : 'Roassal-Bloc-Elements', + #package : 'Roassal-Bloc', + #tag : 'Elements' } -{ #category : #'instance creation' } +{ #category : 'instance creation' } RSShapeElement class >> newWith: aRSShape [ ^ self basicNew @@ -18,13 +20,13 @@ RSShapeElement class >> newWith: aRSShape [ yourself ] -{ #category : #adding } +{ #category : 'adding' } RSShapeElement >> addBlocToRoassalEventHandler: aHandler [ self addEventHandler: aHandler ] -{ #category : #accessing } +{ #category : 'accessing' } RSShapeElement >> initializeWith: aRSShape [ self @@ -34,13 +36,13 @@ RSShapeElement >> initializeWith: aRSShape [ roassalShape := aRSShape ] -{ #category : #accessing } +{ #category : 'accessing' } RSShapeElement >> roassalShape [ ^ roassalShape ] -{ #category : #refreshing } +{ #category : 'refreshing' } RSShapeElement >> updateFromRoassalShape [ roassalShape updateBlElement: self diff --git a/src/Roassal-Bloc/RSStrokeStyle.extension.st b/src/Roassal-Bloc/RSStrokeStyle.extension.st index 11454afb..4957823e 100644 --- a/src/Roassal-Bloc/RSStrokeStyle.extension.st +++ b/src/Roassal-Bloc/RSStrokeStyle.extension.st @@ -1,12 +1,12 @@ -Extension { #name : #RSStrokeStyle } +Extension { #name : 'RSStrokeStyle' } -{ #category : #'*Roassal-Bloc' } +{ #category : '*Roassal-Bloc' } RSStrokeStyle >> blApplyOn: aBlBorderBuilder [ aBlBorderBuilder lineJoin: self blLineJoin ] -{ #category : #'*Roassal-Bloc' } +{ #category : '*Roassal-Bloc' } RSStrokeStyle >> blLineJoin [ joinStyle = #joinRound ifTrue: [ ^ BlStrokeLineJoin round ]. diff --git a/src/Roassal-Bloc/package.st b/src/Roassal-Bloc/package.st index 08ca46ce..6d8f814a 100644 --- a/src/Roassal-Bloc/package.st +++ b/src/Roassal-Bloc/package.st @@ -1 +1 @@ -Package { #name : #'Roassal-Bloc' } +Package { #name : 'Roassal-Bloc' } diff --git a/src/Roassal-Chart-DataFrame/RSViolinPlot.extension.st b/src/Roassal-Chart-DataFrame/RSViolinPlot.extension.st index 886e907d..d5aefc4a 100644 --- a/src/Roassal-Chart-DataFrame/RSViolinPlot.extension.st +++ b/src/Roassal-Chart-DataFrame/RSViolinPlot.extension.st @@ -1,6 +1,6 @@ -Extension { #name : #RSViolinPlot } +Extension { #name : 'RSViolinPlot' } -{ #category : #'*Roassal-Chart-DataFrame' } +{ #category : '*Roassal-Chart-DataFrame' } RSViolinPlot >> categoryBy: aColumnName [ | newModels newLabels | @@ -20,7 +20,7 @@ RSViolinPlot >> categoryBy: aColumnName [ self xTickLabels: newLabels ] -{ #category : #'*Roassal-Chart-DataFrame' } +{ #category : '*Roassal-Chart-DataFrame' } RSViolinPlot class >> dataFrame: aDataSeriesOrDataFrame [ | violinPlot aDataSeries | violinPlot := self new. @@ -30,7 +30,7 @@ RSViolinPlot class >> dataFrame: aDataSeriesOrDataFrame [ ^ violinPlot ] -{ #category : #'*Roassal-Chart-DataFrame' } +{ #category : '*Roassal-Chart-DataFrame' } RSViolinPlot class >> dataFrame: aDataFrame x: aColumnNameToCategory y: aColumnNameOfData [ | categoryNames data violinPlot collectionOfDataSeries | @@ -54,13 +54,13 @@ RSViolinPlot class >> dataFrame: aDataFrame x: aColumnNameToCategory y: aColumnN ^ violinPlot ] -{ #category : #'*Roassal-Chart-DataFrame' } +{ #category : '*Roassal-Chart-DataFrame' } RSViolinPlot >> dataSeries: aDataSeries [ self data: aDataSeries asArray. self ylabel: aDataSeries name. ] -{ #category : #'*Roassal-Chart-DataFrame' } +{ #category : '*Roassal-Chart-DataFrame' } RSViolinPlot class >> example03DataSeries [ | boxPlot1 toothGrowthDose | @@ -69,7 +69,7 @@ RSViolinPlot class >> example03DataSeries [ ^ boxPlot1 open ] -{ #category : #'*Roassal-Chart-DataFrame' } +{ #category : '*Roassal-Chart-DataFrame' } RSViolinPlot class >> example04DataFrame [ | boxPlot1 toothGrowth | @@ -79,7 +79,7 @@ RSViolinPlot class >> example04DataFrame [ ^ boxPlot1 open ] -{ #category : #'*Roassal-Chart-DataFrame' } +{ #category : '*Roassal-Chart-DataFrame' } RSViolinPlot class >> example05DataFrameCategoryBy [ | boxPlot1 toothGrowth | @@ -90,7 +90,7 @@ RSViolinPlot class >> example05DataFrameCategoryBy [ ^ boxPlot1 open ] -{ #category : #'*Roassal-Chart-DataFrame' } +{ #category : '*Roassal-Chart-DataFrame' } RSViolinPlot class >> example06DataFrameHue [ | boxPlot1 toothGrowth | @@ -99,7 +99,7 @@ RSViolinPlot class >> example06DataFrameHue [ ^ boxPlot1 open ] -{ #category : #'*Roassal-Chart-DataFrame' } +{ #category : '*Roassal-Chart-DataFrame' } RSViolinPlot class >> example07DataFrameCategoryAndHue [ | boxPlot1 toothGrowth | @@ -108,7 +108,7 @@ RSViolinPlot class >> example07DataFrameCategoryAndHue [ ^ boxPlot1 open ] -{ #category : #'*Roassal-Chart-DataFrame' } +{ #category : '*Roassal-Chart-DataFrame' } RSViolinPlot class >> fromDataFrame: aDataFrame [ | violinPlot | violinPlot := self new. @@ -117,7 +117,7 @@ RSViolinPlot class >> fromDataFrame: aDataFrame [ ^ violinPlot ] -{ #category : #'*Roassal-Chart-DataFrame' } +{ #category : '*Roassal-Chart-DataFrame' } RSViolinPlot >> hue: aColumnName [ | categories clusteredChart | @@ -140,7 +140,7 @@ RSViolinPlot >> hue: aColumnName [ ^ clusteredChart ] -{ #category : #'*Roassal-Chart-DataFrame' } +{ #category : '*Roassal-Chart-DataFrame' } RSViolinPlot >> y: aColumnName [ self data: [ :df | (df column: aColumnName) asArray ]. diff --git a/src/Roassal-Chart-DataFrame/RSViolinPlotTest.extension.st b/src/Roassal-Chart-DataFrame/RSViolinPlotTest.extension.st index bbef26b5..5f8ba16b 100644 --- a/src/Roassal-Chart-DataFrame/RSViolinPlotTest.extension.st +++ b/src/Roassal-Chart-DataFrame/RSViolinPlotTest.extension.st @@ -1,6 +1,6 @@ -Extension { #name : #RSViolinPlotTest } +Extension { #name : 'RSViolinPlotTest' } -{ #category : #'*Roassal-Chart-DataFrame' } +{ #category : '*Roassal-Chart-DataFrame' } RSViolinPlotTest >> testModelDataFrame [ | violinPlot aModel window | aModel := AIDatasets loadToothGrowth. @@ -13,7 +13,7 @@ RSViolinPlotTest >> testModelDataFrame [ window delete. ] -{ #category : #'*Roassal-Chart-DataFrame' } +{ #category : '*Roassal-Chart-DataFrame' } RSViolinPlotTest >> testModelOfEachViolinDataSeries [ | violinPlot window dataFrame dataSeries1 dataSeries2 | dataFrame := AIDatasets loadToothGrowth. diff --git a/src/Roassal-Chart-DataFrame/package.st b/src/Roassal-Chart-DataFrame/package.st index 2fe361dd..9c49e3b0 100644 --- a/src/Roassal-Chart-DataFrame/package.st +++ b/src/Roassal-Chart-DataFrame/package.st @@ -1 +1 @@ -Package { #name : #'Roassal-Chart-DataFrame' } +Package { #name : 'Roassal-Chart-DataFrame' } diff --git a/src/Roassal-Colors/Color.extension.st b/src/Roassal-Colors/Color.extension.st index 73eebee0..1bb1c365 100644 --- a/src/Roassal-Colors/Color.extension.st +++ b/src/Roassal-Colors/Color.extension.st @@ -1,6 +1,6 @@ -Extension { #name : #Color } +Extension { #name : 'Color' } -{ #category : #'*Roassal-Colors' } +{ #category : '*Roassal-Colors' } Color >> translucent [ "Make the color transparent" ^ self alpha: 0.4 diff --git a/src/Roassal-Colors/LinearGradientPaint.extension.st b/src/Roassal-Colors/LinearGradientPaint.extension.st index 46db8b95..4fa1b351 100644 --- a/src/Roassal-Colors/LinearGradientPaint.extension.st +++ b/src/Roassal-Colors/LinearGradientPaint.extension.st @@ -1,6 +1,6 @@ -Extension { #name : #LinearGradientPaint } +Extension { #name : 'LinearGradientPaint' } -{ #category : #'*Roassal-Colors' } +{ #category : '*Roassal-Colors' } LinearGradientPaint >> asScale [ | sc | sc := NSScale linear. diff --git a/src/Roassal-Colors/RSColorPalette.class.st b/src/Roassal-Colors/RSColorPalette.class.st index 45dba3a8..d8ed9865 100644 --- a/src/Roassal-Colors/RSColorPalette.class.st +++ b/src/Roassal-Colors/RSColorPalette.class.st @@ -19,32 +19,33 @@ Code by Cynthia is under the Apache License 2.0 (https://github.com/axismaps/col Roassal is distributed under the MIT License, which is compatible with Apache License 2.0 " Class { - #name : #RSColorPalette, - #superclass : #RSObject, - #category : #'Roassal-Colors' + #name : 'RSColorPalette', + #superclass : 'RSObject', + #category : 'Roassal-Colors', + #package : 'Roassal-Colors' } -{ #category : #'instance creation' } +{ #category : 'instance creation' } RSColorPalette class >> diverging [ ^ RSDivergingColorPalette new ] -{ #category : #accessing } +{ #category : 'accessing' } RSColorPalette class >> paletteName [ ^ self subclassResponsibility ] -{ #category : #'instance creation' } +{ #category : 'instance creation' } RSColorPalette class >> qualitative [ ^ RSQualitativeColorPalette new ] -{ #category : #'instance creation' } +{ #category : 'instance creation' } RSColorPalette class >> sequential [ ^ RSSequentialColorPalette new ] -{ #category : #'instance creation' } +{ #category : 'instance creation' } RSColorPalette >> fromTriplet: array [ ^ NSScale ordinal range: (array collect: [ :arr | diff --git a/src/Roassal-Colors/RSColoredTreePalette.class.st b/src/Roassal-Colors/RSColoredTreePalette.class.st index de869ff4..04727565 100644 --- a/src/Roassal-Colors/RSColoredTreePalette.class.st +++ b/src/Roassal-Colors/RSColoredTreePalette.class.st @@ -42,17 +42,18 @@ m canvas " Class { - #name : #RSColoredTreePalette, - #superclass : #RSObject, + #name : 'RSColoredTreePalette', + #superclass : 'RSObject', #instVars : [ 'shapes', 'totalNumberOfLeaves', 'alpha' ], - #category : #'Roassal-Colors' + #category : 'Roassal-Colors', + #package : 'Roassal-Colors' } -{ #category : #private } +{ #category : 'private' } RSColoredTreePalette >> allLeavesAccessibleFrom: aRootShape [ | c | @@ -61,7 +62,7 @@ RSColoredTreePalette >> allLeavesAccessibleFrom: aRootShape [ ^ c size ] -{ #category : #private } +{ #category : 'private' } RSColoredTreePalette >> allLeavesAccessibleFrom: aShape in: result [ aShape numberOfOutgoingLines = 0 @@ -72,13 +73,13 @@ RSColoredTreePalette >> allLeavesAccessibleFrom: aShape in: result [ ] ] -{ #category : #accessing } +{ #category : 'accessing' } RSColoredTreePalette >> alpha: alphaValueAsFloat [ "Set the transparency of the colors. Take as argument a number between 0.0 and 1.0" alpha := alphaValueAsFloat ] -{ #category : #public } +{ #category : 'public' } RSColoredTreePalette >> assignColor [ | roots | @@ -86,7 +87,7 @@ RSColoredTreePalette >> assignColor [ roots do: [ :r | self assignColorToRoot: r ] ] -{ #category : #private } +{ #category : 'private' } RSColoredTreePalette >> assignColorToChildren: children low: low high: high [ | step hs | step := high - low / children size. @@ -97,12 +98,12 @@ RSColoredTreePalette >> assignColorToChildren: children low: low high: high [ ] ] -{ #category : #private } +{ #category : 'private' } RSColoredTreePalette >> assignColorToRoot: aRootShape [ self assignColorToRoot: aRootShape h: 360 / 2 ] -{ #category : #private } +{ #category : 'private' } RSColoredTreePalette >> assignColorToRoot: aRootShape h: h [ | children span | @@ -114,19 +115,19 @@ RSColoredTreePalette >> assignColorToRoot: aRootShape h: h [ self assignColorToChildren: children low: h - (span / 2) high: h + (span / 2) ] -{ #category : #initialization } +{ #category : 'initialization' } RSColoredTreePalette >> initialize [ super initialize. alpha := 1.0 ] -{ #category : #accessing } +{ #category : 'accessing' } RSColoredTreePalette >> shapes [ ^ shapes ] -{ #category : #accessing } +{ #category : 'accessing' } RSColoredTreePalette >> shapes: someShapes [ "Set the shapes (the nodes) that must be colored" shapes := someShapes. @@ -136,7 +137,7 @@ RSColoredTreePalette >> shapes: someShapes [ ] ] -{ #category : #accessing } +{ #category : 'accessing' } RSColoredTreePalette >> totalNumberOfLeaves [ "Return the total number of leaves" ^ totalNumberOfLeaves diff --git a/src/Roassal-Colors/RSDivergingColorPalette.class.st b/src/Roassal-Colors/RSDivergingColorPalette.class.st index 47883320..ae76e137 100644 --- a/src/Roassal-Colors/RSDivergingColorPalette.class.st +++ b/src/Roassal-Colors/RSDivergingColorPalette.class.st @@ -13,417 +13,418 @@ Code by Cynthia is under the Apache License 2.0 (https://github.com/axismaps/col Roassal is distributed under the MIT License, which is compatible with Apache License 2.0 " Class { - #name : #RSDivergingColorPalette, - #superclass : #RSColorPalette, - #category : #'Roassal-Colors' + #name : 'RSDivergingColorPalette', + #superclass : 'RSColorPalette', + #category : 'Roassal-Colors', + #package : 'Roassal-Colors' } -{ #category : #accessing } +{ #category : 'accessing' } RSDivergingColorPalette class >> paletteName [ ^ #diverging ] -{ #category : #palette } +{ #category : 'palette' } RSDivergingColorPalette >> brbg10 [ ^ self fromTriplet: #(#(84 48 5) #(140 81 10) #(191 129 45) #(223 194 125) #(246 232 195) #(199 234 229) #(128 205 193) #(53 151 143) #(1 102 94) #(0 60 48)) ] -{ #category : #palette } +{ #category : 'palette' } RSDivergingColorPalette >> brbg11 [ ^ self fromTriplet: #(#(84 48 5) #(140 81 10) #(191 129 45) #(223 194 125) #(246 232 195) #(245 245 245) #(199 234 229) #(128 205 193) #(53 151 143) #(1 102 94) #(0 60 48)) ] -{ #category : #palette } +{ #category : 'palette' } RSDivergingColorPalette >> brbg3 [ ^ self fromTriplet: #(#(216 179 101) #(245 245 245) #(90 180 172)) ] -{ #category : #palette } +{ #category : 'palette' } RSDivergingColorPalette >> brbg4 [ ^ self fromTriplet: #(#(166 97 26) #(223 194 125) #(128 205 193) #(1 133 113)) ] -{ #category : #palette } +{ #category : 'palette' } RSDivergingColorPalette >> brbg5 [ ^ self fromTriplet: #(#(166 97 26) #(223 194 125) #(245 245 245) #(128 205 193) #(1 133 113)) ] -{ #category : #palette } +{ #category : 'palette' } RSDivergingColorPalette >> brbg6 [ ^ self fromTriplet: #(#(140 81 10) #(216 179 101) #(246 232 195) #(199 234 229) #(90 180 172) #(1 102 94)) ] -{ #category : #palette } +{ #category : 'palette' } RSDivergingColorPalette >> brbg7 [ ^ self fromTriplet: #(#(140 81 10) #(216 179 101) #(246 232 195) #(245 245 245) #(199 234 229) #(90 180 172) #(1 102 94)) ] -{ #category : #palette } +{ #category : 'palette' } RSDivergingColorPalette >> brbg8 [ ^ self fromTriplet: #(#(140 81 10) #(191 129 45) #(223 194 125) #(246 232 195) #(199 234 229) #(128 205 193) #(53 151 143) #(1 102 94)) ] -{ #category : #palette } +{ #category : 'palette' } RSDivergingColorPalette >> brbg9 [ ^ self fromTriplet: #(#(140 81 10) #(191 129 45) #(223 194 125) #(246 232 195) #(245 245 245) #(199 234 229) #(128 205 193) #(53 151 143) #(1 102 94)) ] -{ #category : #palette } +{ #category : 'palette' } RSDivergingColorPalette >> piyg10 [ ^ self fromTriplet: #(#(142 1 82) #(197 27 125) #(222 119 174) #(241 182 218) #(253 224 239) #(230 245 208) #(184 225 134) #(127 188 65) #(77 146 33) #(39 100 25)) ] -{ #category : #palette } +{ #category : 'palette' } RSDivergingColorPalette >> piyg11 [ ^ self fromTriplet: #(#(142 1 82) #(197 27 125) #(222 119 174) #(241 182 218) #(253 224 239) #(247 247 247) #(230 245 208) #(184 225 134) #(127 188 65) #(77 146 33) #(39 100 25)) ] -{ #category : #palette } +{ #category : 'palette' } RSDivergingColorPalette >> piyg3 [ ^ self fromTriplet: #(#(233 163 201) #(247 247 247) #(161 215 106)) ] -{ #category : #palette } +{ #category : 'palette' } RSDivergingColorPalette >> piyg4 [ ^ self fromTriplet: #(#(208 28 139) #(241 182 218) #(184 225 134) #(77 172 38)) ] -{ #category : #palette } +{ #category : 'palette' } RSDivergingColorPalette >> piyg5 [ ^ self fromTriplet: #(#(208 28 139) #(241 182 218) #(247 247 247) #(184 225 134) #(77 172 38)) ] -{ #category : #palette } +{ #category : 'palette' } RSDivergingColorPalette >> piyg6 [ ^ self fromTriplet: #(#(197 27 125) #(233 163 201) #(253 224 239) #(230 245 208) #(161 215 106) #(77 146 33)) ] -{ #category : #palette } +{ #category : 'palette' } RSDivergingColorPalette >> piyg7 [ ^ self fromTriplet: #(#(197 27 125) #(233 163 201) #(253 224 239) #(247 247 247) #(230 245 208) #(161 215 106) #(77 146 33)) ] -{ #category : #palette } +{ #category : 'palette' } RSDivergingColorPalette >> piyg8 [ ^ self fromTriplet: #(#(197 27 125) #(222 119 174) #(241 182 218) #(253 224 239) #(230 245 208) #(184 225 134) #(127 188 65) #(77 146 33)) ] -{ #category : #palette } +{ #category : 'palette' } RSDivergingColorPalette >> piyg9 [ ^ self fromTriplet: #(#(197 27 125) #(222 119 174) #(241 182 218) #(253 224 239) #(247 247 247) #(230 245 208) #(184 225 134) #(127 188 65) #(77 146 33)) ] -{ #category : #palette } +{ #category : 'palette' } RSDivergingColorPalette >> prgn10 [ ^ self fromTriplet: #(#(64 0 75) #(118 42 131) #(153 112 171) #(194 165 207) #(231 212 232) #(217 240 211) #(166 219 160) #(90 174 97) #(27 120 55) #(0 68 27)) ] -{ #category : #palette } +{ #category : 'palette' } RSDivergingColorPalette >> prgn11 [ ^ self fromTriplet: #(#(64 0 75) #(118 42 131) #(153 112 171) #(194 165 207) #(231 212 232) #(247 247 247) #(217 240 211) #(166 219 160) #(90 174 97) #(27 120 55) #(0 68 27)) ] -{ #category : #palette } +{ #category : 'palette' } RSDivergingColorPalette >> prgn3 [ ^ self fromTriplet: #(#(175 141 195) #(247 247 247) #(127 191 123)) ] -{ #category : #palette } +{ #category : 'palette' } RSDivergingColorPalette >> prgn4 [ ^ self fromTriplet: #(#(123 50 148) #(194 165 207) #(166 219 160) #(0 136 55)) ] -{ #category : #palette } +{ #category : 'palette' } RSDivergingColorPalette >> prgn5 [ ^ self fromTriplet: #(#(123 50 148) #(194 165 207) #(247 247 247) #(166 219 160) #(0 136 55)) ] -{ #category : #palette } +{ #category : 'palette' } RSDivergingColorPalette >> prgn6 [ ^ self fromTriplet: #(#(118 42 131) #(175 141 195) #(231 212 232) #(217 240 211) #(127 191 123) #(27 120 55)) ] -{ #category : #palette } +{ #category : 'palette' } RSDivergingColorPalette >> prgn7 [ ^ self fromTriplet: #(#(118 42 131) #(175 141 195) #(231 212 232) #(247 247 247) #(217 240 211) #(127 191 123) #(27 120 55)) ] -{ #category : #palette } +{ #category : 'palette' } RSDivergingColorPalette >> prgn8 [ ^ self fromTriplet: #(#(118 42 131) #(153 112 171) #(194 165 207) #(231 212 232) #(217 240 211) #(166 219 160) #(90 174 97) #(27 120 55)) ] -{ #category : #palette } +{ #category : 'palette' } RSDivergingColorPalette >> prgn9 [ ^ self fromTriplet: #(#(118 42 131) #(153 112 171) #(194 165 207) #(231 212 232) #(247 247 247) #(217 240 211) #(166 219 160) #(90 174 97) #(27 120 55)) ] -{ #category : #palette } +{ #category : 'palette' } RSDivergingColorPalette >> puor10 [ ^ self fromTriplet: #(#(127 59 8) #(179 88 6) #(224 130 20) #(253 184 99) #(254 224 182) #(216 218 235) #(178 171 210) #(128 115 172) #(84 39 136) #(45 0 75)) ] -{ #category : #palette } +{ #category : 'palette' } RSDivergingColorPalette >> puor11 [ ^ self fromTriplet: #(#(127 59 8) #(179 88 6) #(224 130 20) #(253 184 99) #(254 224 182) #(247 247 247) #(216 218 235) #(178 171 210) #(128 115 172) #(84 39 136) #(45 0 75)) ] -{ #category : #palette } +{ #category : 'palette' } RSDivergingColorPalette >> puor3 [ ^ self fromTriplet: #(#(241 163 64) #(247 247 247) #(153 142 195)) ] -{ #category : #palette } +{ #category : 'palette' } RSDivergingColorPalette >> puor4 [ ^ self fromTriplet: #(#(230 97 1) #(253 184 99) #(178 171 210) #(94 60 153)) ] -{ #category : #palette } +{ #category : 'palette' } RSDivergingColorPalette >> puor5 [ ^ self fromTriplet: #(#(230 97 1) #(253 184 99) #(247 247 247) #(178 171 210) #(94 60 153)) ] -{ #category : #palette } +{ #category : 'palette' } RSDivergingColorPalette >> puor6 [ ^ self fromTriplet: #(#(179 88 6) #(241 163 64) #(254 224 182) #(216 218 235) #(153 142 195) #(84 39 136)) ] -{ #category : #palette } +{ #category : 'palette' } RSDivergingColorPalette >> puor7 [ ^ self fromTriplet: #(#(179 88 6) #(241 163 64) #(254 224 182) #(247 247 247) #(216 218 235) #(153 142 195) #(84 39 136)) ] -{ #category : #palette } +{ #category : 'palette' } RSDivergingColorPalette >> puor8 [ ^ self fromTriplet: #(#(179 88 6) #(224 130 20) #(253 184 99) #(254 224 182) #(216 218 235) #(178 171 210) #(128 115 172) #(84 39 136)) ] -{ #category : #palette } +{ #category : 'palette' } RSDivergingColorPalette >> puor9 [ ^ self fromTriplet: #(#(179 88 6) #(224 130 20) #(253 184 99) #(254 224 182) #(247 247 247) #(216 218 235) #(178 171 210) #(128 115 172) #(84 39 136)) ] -{ #category : #palette } +{ #category : 'palette' } RSDivergingColorPalette >> rdbu10 [ ^ self fromTriplet: #(#(103 0 31) #(178 24 43) #(214 96 77) #(244 165 130) #(253 219 199) #(209 229 240) #(146 197 222) #(67 147 195) #(33 102 172) #(5 48 97)) ] -{ #category : #palette } +{ #category : 'palette' } RSDivergingColorPalette >> rdbu11 [ ^ self fromTriplet: #(#(103 0 31) #(178 24 43) #(214 96 77) #(244 165 130) #(253 219 199) #(247 247 247) #(209 229 240) #(146 197 222) #(67 147 195) #(33 102 172) #(5 48 97)) ] -{ #category : #palette } +{ #category : 'palette' } RSDivergingColorPalette >> rdbu3 [ ^ self fromTriplet: #(#(239 138 98) #(247 247 247) #(103 169 207)) ] -{ #category : #palette } +{ #category : 'palette' } RSDivergingColorPalette >> rdbu4 [ ^ self fromTriplet: #(#(202 0 32) #(244 165 130) #(146 197 222) #(5 113 176)) ] -{ #category : #palette } +{ #category : 'palette' } RSDivergingColorPalette >> rdbu5 [ ^ self fromTriplet: #(#(202 0 32) #(244 165 130) #(247 247 247) #(146 197 222) #(5 113 176)) ] -{ #category : #palette } +{ #category : 'palette' } RSDivergingColorPalette >> rdbu6 [ ^ self fromTriplet: #(#(178 24 43) #(239 138 98) #(253 219 199) #(209 229 240) #(103 169 207) #(33 102 172)) ] -{ #category : #palette } +{ #category : 'palette' } RSDivergingColorPalette >> rdbu7 [ ^ self fromTriplet: #(#(178 24 43) #(239 138 98) #(253 219 199) #(247 247 247) #(209 229 240) #(103 169 207) #(33 102 172)) ] -{ #category : #palette } +{ #category : 'palette' } RSDivergingColorPalette >> rdbu8 [ ^ self fromTriplet: #(#(178 24 43) #(214 96 77) #(244 165 130) #(253 219 199) #(209 229 240) #(146 197 222) #(67 147 195) #(33 102 172)) ] -{ #category : #palette } +{ #category : 'palette' } RSDivergingColorPalette >> rdbu9 [ ^ self fromTriplet: #(#(178 24 43) #(214 96 77) #(244 165 130) #(253 219 199) #(247 247 247) #(209 229 240) #(146 197 222) #(67 147 195) #(33 102 172)) ] -{ #category : #palette } +{ #category : 'palette' } RSDivergingColorPalette >> rdgy10 [ ^ self fromTriplet: #(#(103 0 31) #(178 24 43) #(214 96 77) #(244 165 130) #(253 219 199) #(224 224 224) #(186 186 186) #(135 135 135) #(77 77 77) #(26 26 26)) ] -{ #category : #palette } +{ #category : 'palette' } RSDivergingColorPalette >> rdgy11 [ ^ self fromTriplet: #(#(103 0 31) #(178 24 43) #(214 96 77) #(244 165 130) #(253 219 199) #(255 255 255) #(224 224 224) #(186 186 186) #(135 135 135) #(77 77 77) #(26 26 26)) ] -{ #category : #palette } +{ #category : 'palette' } RSDivergingColorPalette >> rdgy3 [ ^ self fromTriplet: #(#(239 138 98) #(255 255 255) #(153 153 153)) ] -{ #category : #palette } +{ #category : 'palette' } RSDivergingColorPalette >> rdgy4 [ ^ self fromTriplet: #(#(202 0 32) #(244 165 130) #(186 186 186) #(64 64 64)) ] -{ #category : #palette } +{ #category : 'palette' } RSDivergingColorPalette >> rdgy5 [ ^ self fromTriplet: #(#(202 0 32) #(244 165 130) #(255 255 255) #(186 186 186) #(64 64 64)) ] -{ #category : #palette } +{ #category : 'palette' } RSDivergingColorPalette >> rdgy6 [ ^ self fromTriplet: #(#(178 24 43) #(239 138 98) #(253 219 199) #(224 224 224) #(153 153 153) #(77 77 77)) ] -{ #category : #palette } +{ #category : 'palette' } RSDivergingColorPalette >> rdgy7 [ ^ self fromTriplet: #(#(178 24 43) #(239 138 98) #(253 219 199) #(255 255 255) #(224 224 224) #(153 153 153) #(77 77 77)) ] -{ #category : #palette } +{ #category : 'palette' } RSDivergingColorPalette >> rdgy8 [ ^ self fromTriplet: #(#(178 24 43) #(214 96 77) #(244 165 130) #(253 219 199) #(224 224 224) #(186 186 186) #(135 135 135) #(77 77 77)) ] -{ #category : #palette } +{ #category : 'palette' } RSDivergingColorPalette >> rdgy9 [ ^ self fromTriplet: #(#(178 24 43) #(214 96 77) #(244 165 130) #(253 219 199) #(255 255 255) #(224 224 224) #(186 186 186) #(135 135 135) #(77 77 77)) ] -{ #category : #palette } +{ #category : 'palette' } RSDivergingColorPalette >> rdylbu10 [ ^ self fromTriplet: #(#(165 0 38) #(215 48 39) #(244 109 67) #(253 174 97) #(254 224 144) #(224 243 248) #(171 217 233) #(116 173 209) #(69 117 180) #(49 54 149)) ] -{ #category : #palette } +{ #category : 'palette' } RSDivergingColorPalette >> rdylbu11 [ ^ self fromTriplet: #(#(165 0 38) #(215 48 39) #(244 109 67) #(253 174 97) #(254 224 144) #(255 255 191) #(224 243 248) #(171 217 233) #(116 173 209) #(69 117 180) #(49 54 149)) ] -{ #category : #palette } +{ #category : 'palette' } RSDivergingColorPalette >> rdylbu3 [ ^ self fromTriplet: #(#(252 141 89) #(255 255 191) #(145 191 219)) ] -{ #category : #palette } +{ #category : 'palette' } RSDivergingColorPalette >> rdylbu4 [ ^ self fromTriplet: #(#(215 25 28) #(253 174 97) #(171 217 233) #(44 123 182)) ] -{ #category : #palette } +{ #category : 'palette' } RSDivergingColorPalette >> rdylbu5 [ ^ self fromTriplet: #(#(215 25 28) #(253 174 97) #(255 255 191) #(171 217 233) #(44 123 182)) ] -{ #category : #palette } +{ #category : 'palette' } RSDivergingColorPalette >> rdylbu6 [ ^ self fromTriplet: #(#(215 48 39) #(252 141 89) #(254 224 144) #(224 243 248) #(145 191 219) #(69 117 180)) ] -{ #category : #palette } +{ #category : 'palette' } RSDivergingColorPalette >> rdylbu7 [ ^ self fromTriplet: #(#(215 48 39) #(252 141 89) #(254 224 144) #(255 255 191) #(224 243 248) #(145 191 219) #(69 117 180)) ] -{ #category : #palette } +{ #category : 'palette' } RSDivergingColorPalette >> rdylbu8 [ ^ self fromTriplet: #(#(215 48 39) #(244 109 67) #(253 174 97) #(254 224 144) #(224 243 248) #(171 217 233) #(116 173 209) #(69 117 180)) ] -{ #category : #palette } +{ #category : 'palette' } RSDivergingColorPalette >> rdylbu9 [ ^ self fromTriplet: #(#(215 48 39) #(244 109 67) #(253 174 97) #(254 224 144) #(255 255 191) #(224 243 248) #(171 217 233) #(116 173 209) #(69 117 180)) ] -{ #category : #palette } +{ #category : 'palette' } RSDivergingColorPalette >> rdylgn10 [ ^ self fromTriplet: #(#(165 0 38) #(215 48 39) #(244 109 67) #(253 174 97) #(254 224 139) #(217 239 139) #(166 217 106) #(102 189 99) #(26 152 80) #(0 104 55)) ] -{ #category : #palette } +{ #category : 'palette' } RSDivergingColorPalette >> rdylgn11 [ ^ self fromTriplet: #(#(165 0 38) #(215 48 39) #(244 109 67) #(253 174 97) #(254 224 139) #(255 255 191) #(217 239 139) #(166 217 106) #(102 189 99) #(26 152 80) #(0 104 55)) ] -{ #category : #palette } +{ #category : 'palette' } RSDivergingColorPalette >> rdylgn3 [ ^ self fromTriplet: #(#(252 141 89) #(255 255 191) #(145 207 96)) ] -{ #category : #palette } +{ #category : 'palette' } RSDivergingColorPalette >> rdylgn4 [ ^ self fromTriplet: #(#(215 25 28) #(253 174 97) #(166 217 106) #(26 150 65)) ] -{ #category : #palette } +{ #category : 'palette' } RSDivergingColorPalette >> rdylgn5 [ ^ self fromTriplet: #(#(215 25 28) #(253 174 97) #(255 255 191) #(166 217 106) #(26 150 65)) ] -{ #category : #palette } +{ #category : 'palette' } RSDivergingColorPalette >> rdylgn6 [ ^ self fromTriplet: #(#(215 48 39) #(252 141 89) #(254 224 139) #(217 239 139) #(145 207 96) #(26 152 80)) ] -{ #category : #palette } +{ #category : 'palette' } RSDivergingColorPalette >> rdylgn7 [ ^ self fromTriplet: #(#(215 48 39) #(252 141 89) #(254 224 139) #(255 255 191) #(217 239 139) #(145 207 96) #(26 152 80)) ] -{ #category : #palette } +{ #category : 'palette' } RSDivergingColorPalette >> rdylgn8 [ ^ self fromTriplet: #(#(215 48 39) #(244 109 67) #(253 174 97) #(254 224 139) #(217 239 139) #(166 217 106) #(102 189 99) #(26 152 80)) ] -{ #category : #palette } +{ #category : 'palette' } RSDivergingColorPalette >> rdylgn9 [ ^ self fromTriplet: #(#(215 48 39) #(244 109 67) #(253 174 97) #(254 224 139) #(255 255 191) #(217 239 139) #(166 217 106) #(102 189 99) #(26 152 80)) ] -{ #category : #palette } +{ #category : 'palette' } RSDivergingColorPalette >> spectral10 [ ^ self fromTriplet: #(#(158 1 66) #(213 62 79) #(244 109 67) #(253 174 97) #(254 224 139) #(230 245 152) #(171 221 164) #(102 194 165) #(50 136 189) #(94 79 162)) ] -{ #category : #palette } +{ #category : 'palette' } RSDivergingColorPalette >> spectral11 [ ^ self fromTriplet: #(#(158 1 66) #(213 62 79) #(244 109 67) #(253 174 97) #(254 224 139) #(255 255 191) #(230 245 152) #(171 221 164) #(102 194 165) #(50 136 189) #(94 79 162)) ] -{ #category : #palette } +{ #category : 'palette' } RSDivergingColorPalette >> spectral3 [ ^ self fromTriplet: #(#(252 141 89) #(255 255 191) #(153 213 148)) ] -{ #category : #palette } +{ #category : 'palette' } RSDivergingColorPalette >> spectral4 [ ^ self fromTriplet: #(#(215 25 28) #(253 174 97) #(171 221 164) #(43 131 186)) ] -{ #category : #palette } +{ #category : 'palette' } RSDivergingColorPalette >> spectral5 [ ^ self fromTriplet: #(#(215 25 28) #(253 174 97) #(255 255 191) #(171 221 164) #(43 131 186)) ] -{ #category : #palette } +{ #category : 'palette' } RSDivergingColorPalette >> spectral6 [ ^ self fromTriplet: #(#(213 62 79) #(252 141 89) #(254 224 139) #(230 245 152) #(153 213 148) #(50 136 189)) ] -{ #category : #palette } +{ #category : 'palette' } RSDivergingColorPalette >> spectral7 [ ^ self fromTriplet: #(#(213 62 79) #(252 141 89) #(254 224 139) #(255 255 191) #(230 245 152) #(153 213 148) #(50 136 189)) ] -{ #category : #palette } +{ #category : 'palette' } RSDivergingColorPalette >> spectral8 [ ^ self fromTriplet: #(#(213 62 79) #(244 109 67) #(253 174 97) #(254 224 139) #(230 245 152) #(171 221 164) #(102 194 165) #(50 136 189)) ] -{ #category : #palette } +{ #category : 'palette' } RSDivergingColorPalette >> spectral9 [ ^ self fromTriplet: #(#(213 62 79) #(244 109 67) #(253 174 97) #(254 224 139) #(255 255 191) #(230 245 152) #(171 221 164) #(102 194 165) #(50 136 189)) ] diff --git a/src/Roassal-Colors/RSGradientPalette.class.st b/src/Roassal-Colors/RSGradientPalette.class.st index a00cf750..3ea476ee 100644 --- a/src/Roassal-Colors/RSGradientPalette.class.st +++ b/src/Roassal-Colors/RSGradientPalette.class.st @@ -3,12 +3,13 @@ I have instances of linear gradient paints I use the colors from this website https://webgradients.com/ " Class { - #name : #RSGradientPalette, - #superclass : #RSObject, - #category : #'Roassal-Colors' + #name : 'RSGradientPalette', + #superclass : 'RSObject', + #category : 'Roassal-Colors', + #package : 'Roassal-Colors' } -{ #category : #gradients } +{ #category : 'gradients' } RSGradientPalette class >> burningSpring [ ^ LinearGradientPaint fromArray: {0->'4fb576'. @@ -20,28 +21,28 @@ RSGradientPalette class >> burningSpring [ 1->'432c39' } ] -{ #category : #gradients } +{ #category : 'gradients' } RSGradientPalette class >> cloudyKnoxville [ ^ LinearGradientPaint fromArray: {0->'fdfbfb'. 1->'ebedee' } ] -{ #category : #gradients } +{ #category : 'gradients' } RSGradientPalette class >> deepBlue [ ^ LinearGradientPaint fromArray: {0->'e0c3fc'. 1->'8ec5fc' } ] -{ #category : #gradients } +{ #category : 'gradients' } RSGradientPalette class >> dustyGrass [ ^ LinearGradientPaint fromArray: {0->'d4fc79'. 1->'96e6a1' } ] -{ #category : #gradients } +{ #category : 'gradients' } RSGradientPalette class >> fabledSunset [ ^ LinearGradientPaint fromArray: {0->'231557'. @@ -50,7 +51,7 @@ RSGradientPalette class >> fabledSunset [ 1->'FFF800' } ] -{ #category : #palette } +{ #category : 'palette' } RSGradientPalette class >> gradient21 [ ^ NSScale ordinal range:( #('warmFlame' @@ -77,70 +78,70 @@ RSGradientPalette class >> gradient21 [ yourself ] -{ #category : #gradients } +{ #category : 'gradients' } RSGradientPalette class >> happyFisher [ ^ LinearGradientPaint fromArray: {0->'89f7fe'. 1->'66a6ff' } ] -{ #category : #gradients } +{ #category : 'gradients' } RSGradientPalette class >> heavyRain [ ^ LinearGradientPaint fromArray: {0->'cfd9df'. 1->'e2ebf0' } ] -{ #category : #gradients } +{ #category : 'gradients' } RSGradientPalette class >> malibuBeach [ ^ LinearGradientPaint fromArray: {0->'4facfe'. 1->'00f2fe' } ] -{ #category : #gradients } +{ #category : 'gradients' } RSGradientPalette class >> morpheusDen [ ^ LinearGradientPaint fromArray: {0->'30cfd0'. 1->'330867' } ] -{ #category : #gradients } +{ #category : 'gradients' } RSGradientPalette class >> nearMoon [ ^ LinearGradientPaint fromArray: {0->'5ee7df'. 1->'b490ca' } ] -{ #category : #gradients } +{ #category : 'gradients' } RSGradientPalette class >> nightFade [ ^ LinearGradientPaint fromArray: {0->'a18cd1'. 1->'fbc2eb' } ] -{ #category : #gradients } +{ #category : 'gradients' } RSGradientPalette class >> northMiracle [ ^ LinearGradientPaint fromArray: {0->'00dbde'. 1->'fc00ff' } ] -{ #category : #gradients } +{ #category : 'gradients' } RSGradientPalette class >> rainyAshville [ ^ LinearGradientPaint fromArray: {0->'fbc2eb'. 1->'a6c1ee' } ] -{ #category : #gradients } +{ #category : 'gradients' } RSGradientPalette class >> redSalvation [ ^ LinearGradientPaint fromArray: {0->'f43b47'. 1->'453a94' } ] -{ #category : #view } +{ #category : 'view' } RSGradientPalette class >> roassalCanvas [ | canvas gradients | @@ -161,14 +162,14 @@ RSGradientPalette class >> roassalCanvas [ canvas open ] -{ #category : #gradients } +{ #category : 'gradients' } RSGradientPalette class >> sunnyMorning [ ^ LinearGradientPaint fromArray: {0->'f6d365'. 1->'fda085' } ] -{ #category : #gradients } +{ #category : 'gradients' } RSGradientPalette class >> sweetPeriod [ ^ LinearGradientPaint fromArray: {0->'3f51b1'. @@ -182,35 +183,35 @@ RSGradientPalette class >> sweetPeriod [ 1->'f7c978' } ] -{ #category : #gradients } +{ #category : 'gradients' } RSGradientPalette class >> temptingAzure [ ^ LinearGradientPaint fromArray: {0->'84fab0'. 1->'8fd3f4' } ] -{ #category : #gradients } +{ #category : 'gradients' } RSGradientPalette class >> trueSunset [ ^ LinearGradientPaint fromArray: {0->'fa709a'. 1->'fee140' } ] -{ #category : #gradients } +{ #category : 'gradients' } RSGradientPalette class >> warmFlame [ ^ LinearGradientPaint fromArray: {0-> 'ff9a9e'. 1->'fad0c4' } ] -{ #category : #gradients } +{ #category : 'gradients' } RSGradientPalette class >> winterNeva [ ^ LinearGradientPaint fromArray: {0->'a1c4fd'. 1->'c2e9fb' } ] -{ #category : #gradients } +{ #category : 'gradients' } RSGradientPalette class >> youngPassion [ ^ LinearGradientPaint fromArray: {(0 -> 'ff867a'). diff --git a/src/Roassal-Colors/RSQualitativeColorPalette.class.st b/src/Roassal-Colors/RSQualitativeColorPalette.class.st index 3743553d..34dbfe14 100644 --- a/src/Roassal-Colors/RSQualitativeColorPalette.class.st +++ b/src/Roassal-Colors/RSQualitativeColorPalette.class.st @@ -12,392 +12,393 @@ Roassal is distributed under the MIT License, which is compatible with Apache Li FalutUI1 color scheme come from: http://flatuicolors.com/ " Class { - #name : #RSQualitativeColorPalette, - #superclass : #RSColorPalette, - #category : #'Roassal-Colors' + #name : 'RSQualitativeColorPalette', + #superclass : 'RSColorPalette', + #category : 'Roassal-Colors', + #package : 'Roassal-Colors' } -{ #category : #accessing } +{ #category : 'accessing' } RSQualitativeColorPalette class >> paletteName [ ^ #qualitative ] -{ #category : #palette } +{ #category : 'palette' } RSQualitativeColorPalette >> accent3 [ ^ self fromTriplet: #(#(127 201 127) #(190 174 212) #(253 192 134)) ] -{ #category : #palette } +{ #category : 'palette' } RSQualitativeColorPalette >> accent4 [ ^ self fromTriplet: #(#(127 201 127) #(190 174 212) #(253 192 134) #(255 255 153)) ] -{ #category : #palette } +{ #category : 'palette' } RSQualitativeColorPalette >> accent5 [ ^ self fromTriplet: #(#(127 201 127) #(190 174 212) #(253 192 134) #(255 255 153) #(56 108 176)) ] -{ #category : #palette } +{ #category : 'palette' } RSQualitativeColorPalette >> accent6 [ ^ self fromTriplet: #(#(127 201 127) #(190 174 212) #(253 192 134) #(255 255 153) #(56 108 176) #(240 2 127)) ] -{ #category : #palette } +{ #category : 'palette' } RSQualitativeColorPalette >> accent7 [ ^ self fromTriplet: #(#(127 201 127) #(190 174 212) #(253 192 134) #(255 255 153) #(56 108 176) #(240 2 127) #(191 91 23)) ] -{ #category : #palette } +{ #category : 'palette' } RSQualitativeColorPalette >> accent8 [ ^ self fromTriplet: #(#(127 201 127) #(190 174 212) #(253 192 134) #(255 255 153) #(56 108 176) #(240 2 127) #(191 91 23) #(102 102 102)) ] -{ #category : #palette } +{ #category : 'palette' } RSQualitativeColorPalette >> dark23 [ ^ self fromTriplet: #(#(27 158 119) #(217 95 2) #(117 112 179)) ] -{ #category : #palette } +{ #category : 'palette' } RSQualitativeColorPalette >> dark24 [ ^ self fromTriplet: #(#(27 158 119) #(217 95 2) #(117 112 179) #(231 41 138)) ] -{ #category : #palette } +{ #category : 'palette' } RSQualitativeColorPalette >> dark25 [ ^ self fromTriplet: #(#(27 158 119) #(217 95 2) #(117 112 179) #(231 41 138) #(102 166 30)) ] -{ #category : #palette } +{ #category : 'palette' } RSQualitativeColorPalette >> dark26 [ ^ self fromTriplet: #(#(27 158 119) #(217 95 2) #(117 112 179) #(231 41 138) #(102 166 30) #(230 171 2)) ] -{ #category : #palette } +{ #category : 'palette' } RSQualitativeColorPalette >> dark27 [ ^ self fromTriplet: #(#(27 158 119) #(217 95 2) #(117 112 179) #(231 41 138) #(102 166 30) #(230 171 2) #(166 118 29)) ] -{ #category : #palette } +{ #category : 'palette' } RSQualitativeColorPalette >> dark28 [ ^ self fromTriplet: #(#(27 158 119) #(217 95 2) #(117 112 179) #(231 41 138) #(102 166 30) #(230 171 2) #(166 118 29) #(102 102 102)) ] -{ #category : #palette } +{ #category : 'palette' } RSQualitativeColorPalette >> flatui110 [ ^ self fromTriplet: #(#(26 188 156) #(46 204 113) #(52 152 219) #(155 89 182) #(52 73 94) #(22 160 133) #(39 174 96) #(41 128 185) #(142 68 173) #(44 62 80)) ] -{ #category : #palette } +{ #category : 'palette' } RSQualitativeColorPalette >> flatui111 [ ^ self fromTriplet: #(#(26 188 156) #(46 204 113) #(52 152 219) #(155 89 182) #(52 73 94) #(22 160 133) #(39 174 96) #(41 128 185) #(142 68 173) #(44 62 80) #(241 196 15)) ] -{ #category : #palette } +{ #category : 'palette' } RSQualitativeColorPalette >> flatui112 [ ^ self fromTriplet: #(#(26 188 156) #(46 204 113) #(52 152 219) #(155 89 182) #(52 73 94) #(22 160 133) #(39 174 96) #(41 128 185) #(142 68 173) #(44 62 80) #(241 196 15) #(230 126 34)) ] -{ #category : #palette } +{ #category : 'palette' } RSQualitativeColorPalette >> flatui113 [ ^ self fromTriplet: #(#(26 188 156) #(46 204 113) #(52 152 219) #(155 89 182) #(52 73 94) #(22 160 133) #(39 174 96) #(41 128 185) #(142 68 173) #(44 62 80) #(241 196 15) #(230 126 34) #(231 76 60)) ] -{ #category : #palette } +{ #category : 'palette' } RSQualitativeColorPalette >> flatui114 [ ^ self fromTriplet: #(#(26 188 156) #(46 204 113) #(52 152 219) #(155 89 182) #(52 73 94) #(22 160 133) #(39 174 96) #(41 128 185) #(142 68 173) #(44 62 80) #(241 196 15) #(230 126 34) #(231 76 60) #(236 240 241)) ] -{ #category : #palette } +{ #category : 'palette' } RSQualitativeColorPalette >> flatui115 [ ^ self fromTriplet: #(#(26 188 156) #(46 204 113) #(52 152 219) #(155 89 182) #(52 73 94) #(22 160 133) #(39 174 96) #(41 128 185) #(142 68 173) #(44 62 80) #(241 196 15) #(230 126 34) #(231 76 60) #(236 240 241) #(149 165 166)) ] -{ #category : #palette } +{ #category : 'palette' } RSQualitativeColorPalette >> flatui116 [ ^ self fromTriplet: #(#(26 188 156) #(46 204 113) #(52 152 219) #(155 89 182) #(52 73 94) #(22 160 133) #(39 174 96) #(41 128 185) #(142 68 173) #(44 62 80) #(241 196 15) #(230 126 34) #(231 76 60) #(236 240 241) #(149 165 166) #(243 156 18)) ] -{ #category : #palette } +{ #category : 'palette' } RSQualitativeColorPalette >> flatui117 [ ^ self fromTriplet: #(#(26 188 156) #(46 204 113) #(52 152 219) #(155 89 182) #(52 73 94) #(22 160 133) #(39 174 96) #(41 128 185) #(142 68 173) #(44 62 80) #(241 196 15) #(230 126 34) #(231 76 60) #(236 240 241) #(149 165 166) #(243 156 18) #(211 84 0)) ] -{ #category : #palette } +{ #category : 'palette' } RSQualitativeColorPalette >> flatui118 [ ^ self fromTriplet: #(#(26 188 156) #(46 204 113) #(52 152 219) #(155 89 182) #(52 73 94) #(22 160 133) #(39 174 96) #(41 128 185) #(142 68 173) #(44 62 80) #(241 196 15) #(230 126 34) #(231 76 60) #(236 240 241) #(149 165 166) #(243 156 18) #(211 84 0) #(192 57 43)) ] -{ #category : #palette } +{ #category : 'palette' } RSQualitativeColorPalette >> flatui119 [ ^ self fromTriplet: #(#(26 188 156) #(46 204 113) #(52 152 219) #(155 89 182) #(52 73 94) #(22 160 133) #(39 174 96) #(41 128 185) #(142 68 173) #(44 62 80) #(241 196 15) #(230 126 34) #(231 76 60) #(236 240 241) #(149 165 166) #(243 156 18) #(211 84 0) #(192 57 43) #(189 195 199)) ] -{ #category : #palette } +{ #category : 'palette' } RSQualitativeColorPalette >> flatui120 [ ^ self fromTriplet: #(#(26 188 156) #(46 204 113) #(52 152 219) #(155 89 182) #(52 73 94) #(22 160 133) #(39 174 96) #(41 128 185) #(142 68 173) #(44 62 80) #(241 196 15) #(230 126 34) #(231 76 60) #(236 240 241) #(149 165 166) #(243 156 18) #(211 84 0) #(192 57 43) #(189 195 199) #(127 140 141)) ] -{ #category : #palette } +{ #category : 'palette' } RSQualitativeColorPalette >> flatui13 [ ^ self fromTriplet: #(#(26 188 156) #(46 204 113) #(52 152 219)) ] -{ #category : #palette } +{ #category : 'palette' } RSQualitativeColorPalette >> flatui14 [ ^ self fromTriplet: #(#(26 188 156) #(46 204 113) #(52 152 219) #(155 89 182)) ] -{ #category : #palette } +{ #category : 'palette' } RSQualitativeColorPalette >> flatui15 [ ^ self fromTriplet: #(#(26 188 156) #(46 204 113) #(52 152 219) #(155 89 182) #(52 73 94)) ] -{ #category : #palette } +{ #category : 'palette' } RSQualitativeColorPalette >> flatui16 [ ^ self fromTriplet: #(#(26 188 156) #(46 204 113) #(52 152 219) #(155 89 182) #(52 73 94) #(22 160 133)) ] -{ #category : #palette } +{ #category : 'palette' } RSQualitativeColorPalette >> flatui17 [ ^ self fromTriplet: #(#(26 188 156) #(46 204 113) #(52 152 219) #(155 89 182) #(52 73 94) #(22 160 133) #(39 174 96)) ] -{ #category : #palette } +{ #category : 'palette' } RSQualitativeColorPalette >> flatui18 [ ^ self fromTriplet: #(#(26 188 156) #(46 204 113) #(52 152 219) #(155 89 182) #(52 73 94) #(22 160 133) #(39 174 96) #(41 128 185)) ] -{ #category : #palette } +{ #category : 'palette' } RSQualitativeColorPalette >> flatui19 [ ^ self fromTriplet: #(#(26 188 156) #(46 204 113) #(52 152 219) #(155 89 182) #(52 73 94) #(22 160 133) #(39 174 96) #(41 128 185) #(142 68 173)) ] -{ #category : #palette } +{ #category : 'palette' } RSQualitativeColorPalette >> paired10 [ ^ self fromTriplet: #(#(166 206 227) #(31 120 180) #(178 223 138) #(51 160 44) #(251 154 153) #(227 26 28) #(253 191 111) #(255 127 0) #(202 178 214) #(106 61 154)) ] -{ #category : #palette } +{ #category : 'palette' } RSQualitativeColorPalette >> paired11 [ ^ self fromTriplet: #(#(166 206 227) #(31 120 180) #(178 223 138) #(51 160 44) #(251 154 153) #(227 26 28) #(253 191 111) #(255 127 0) #(202 178 214) #(106 61 154) #(255 255 153)) ] -{ #category : #palette } +{ #category : 'palette' } RSQualitativeColorPalette >> paired12 [ ^ self fromTriplet: #(#(166 206 227) #(31 120 180) #(178 223 138) #(51 160 44) #(251 154 153) #(227 26 28) #(253 191 111) #(255 127 0) #(202 178 214) #(106 61 154) #(255 255 153) #(177 89 40)) ] -{ #category : #palette } +{ #category : 'palette' } RSQualitativeColorPalette >> paired3 [ ^ self fromTriplet: #(#(166 206 227) #(31 120 180) #(178 223 138)) ] -{ #category : #palette } +{ #category : 'palette' } RSQualitativeColorPalette >> paired4 [ ^ self fromTriplet: #(#(166 206 227) #(31 120 180) #(178 223 138) #(51 160 44)) ] -{ #category : #palette } +{ #category : 'palette' } RSQualitativeColorPalette >> paired5 [ ^ self fromTriplet: #(#(166 206 227) #(31 120 180) #(178 223 138) #(51 160 44) #(251 154 153)) ] -{ #category : #palette } +{ #category : 'palette' } RSQualitativeColorPalette >> paired6 [ ^ self fromTriplet: #(#(166 206 227) #(31 120 180) #(178 223 138) #(51 160 44) #(251 154 153) #(227 26 28)) ] -{ #category : #palette } +{ #category : 'palette' } RSQualitativeColorPalette >> paired7 [ ^ self fromTriplet: #(#(166 206 227) #(31 120 180) #(178 223 138) #(51 160 44) #(251 154 153) #(227 26 28) #(253 191 111)) ] -{ #category : #palette } +{ #category : 'palette' } RSQualitativeColorPalette >> paired8 [ ^ self fromTriplet: #(#(166 206 227) #(31 120 180) #(178 223 138) #(51 160 44) #(251 154 153) #(227 26 28) #(253 191 111) #(255 127 0)) ] -{ #category : #palette } +{ #category : 'palette' } RSQualitativeColorPalette >> paired9 [ ^ self fromTriplet: #(#(166 206 227) #(31 120 180) #(178 223 138) #(51 160 44) #(251 154 153) #(227 26 28) #(253 191 111) #(255 127 0) #(202 178 214)) ] -{ #category : #palette } +{ #category : 'palette' } RSQualitativeColorPalette >> pastel13 [ ^ self fromTriplet: #(#(251 180 174) #(179 205 227) #(204 235 197)) ] -{ #category : #palette } +{ #category : 'palette' } RSQualitativeColorPalette >> pastel14 [ ^ self fromTriplet: #(#(251 180 174) #(179 205 227) #(204 235 197) #(222 203 228)) ] -{ #category : #palette } +{ #category : 'palette' } RSQualitativeColorPalette >> pastel15 [ ^ self fromTriplet: #(#(251 180 174) #(179 205 227) #(204 235 197) #(222 203 228) #(254 217 166)) ] -{ #category : #palette } +{ #category : 'palette' } RSQualitativeColorPalette >> pastel16 [ ^ self fromTriplet: #(#(251 180 174) #(179 205 227) #(204 235 197) #(222 203 228) #(254 217 166) #(255 255 204)) ] -{ #category : #palette } +{ #category : 'palette' } RSQualitativeColorPalette >> pastel17 [ ^ self fromTriplet: #(#(251 180 174) #(179 205 227) #(204 235 197) #(222 203 228) #(254 217 166) #(255 255 204) #(229 216 189)) ] -{ #category : #palette } +{ #category : 'palette' } RSQualitativeColorPalette >> pastel18 [ ^ self fromTriplet: #(#(251 180 174) #(179 205 227) #(204 235 197) #(222 203 228) #(254 217 166) #(255 255 204) #(229 216 189) #(253 218 236)) ] -{ #category : #palette } +{ #category : 'palette' } RSQualitativeColorPalette >> pastel19 [ ^ self fromTriplet: #(#(251 180 174) #(179 205 227) #(204 235 197) #(222 203 228) #(254 217 166) #(255 255 204) #(229 216 189) #(253 218 236) #(242 242 242)) ] -{ #category : #palette } +{ #category : 'palette' } RSQualitativeColorPalette >> pastel23 [ ^ self fromTriplet: #(#(179 226 205) #(253 205 172) #(203 213 232)) ] -{ #category : #palette } +{ #category : 'palette' } RSQualitativeColorPalette >> pastel24 [ ^ self fromTriplet: #(#(179 226 205) #(253 205 172) #(203 213 232) #(244 202 228)) ] -{ #category : #palette } +{ #category : 'palette' } RSQualitativeColorPalette >> pastel25 [ ^ self fromTriplet: #(#(179 226 205) #(253 205 172) #(203 213 232) #(244 202 228) #(230 245 201)) ] -{ #category : #palette } +{ #category : 'palette' } RSQualitativeColorPalette >> pastel26 [ ^ self fromTriplet: #(#(179 226 205) #(253 205 172) #(203 213 232) #(244 202 228) #(230 245 201) #(255 242 174)) ] -{ #category : #palette } +{ #category : 'palette' } RSQualitativeColorPalette >> pastel27 [ ^ self fromTriplet: #(#(179 226 205) #(253 205 172) #(203 213 232) #(244 202 228) #(230 245 201) #(255 242 174) #(241 226 204)) ] -{ #category : #palette } +{ #category : 'palette' } RSQualitativeColorPalette >> pastel28 [ ^ self fromTriplet: #(#(179 226 205) #(253 205 172) #(203 213 232) #(244 202 228) #(230 245 201) #(255 242 174) #(241 226 204) #(204 204 204)) ] -{ #category : #palette } +{ #category : 'palette' } RSQualitativeColorPalette >> set13 [ ^ self fromTriplet: #(#(228 26 28) #(55 126 184) #(77 175 74)) ] -{ #category : #palette } +{ #category : 'palette' } RSQualitativeColorPalette >> set14 [ ^ self fromTriplet: #(#(228 26 28) #(55 126 184) #(77 175 74) #(152 78 163)) ] -{ #category : #palette } +{ #category : 'palette' } RSQualitativeColorPalette >> set15 [ ^ self fromTriplet: #(#(228 26 28) #(55 126 184) #(77 175 74) #(152 78 163) #(255 127 0)) ] -{ #category : #palette } +{ #category : 'palette' } RSQualitativeColorPalette >> set16 [ ^ self fromTriplet: #(#(228 26 28) #(55 126 184) #(77 175 74) #(152 78 163) #(255 127 0) #(255 255 51)) ] -{ #category : #palette } +{ #category : 'palette' } RSQualitativeColorPalette >> set17 [ ^ self fromTriplet: #(#(228 26 28) #(55 126 184) #(77 175 74) #(152 78 163) #(255 127 0) #(255 255 51) #(166 86 40)) ] -{ #category : #palette } +{ #category : 'palette' } RSQualitativeColorPalette >> set18 [ ^ self fromTriplet: #(#(228 26 28) #(55 126 184) #(77 175 74) #(152 78 163) #(255 127 0) #(255 255 51) #(166 86 40) #(247 129 191)) ] -{ #category : #palette } +{ #category : 'palette' } RSQualitativeColorPalette >> set19 [ ^ self fromTriplet: #(#(228 26 28) #(55 126 184) #(77 175 74) #(152 78 163) #(255 127 0) #(255 255 51) #(166 86 40) #(247 129 191) #(153 153 153)) ] -{ #category : #palette } +{ #category : 'palette' } RSQualitativeColorPalette >> set23 [ ^ self fromTriplet: #(#(102 194 165) #(252 141 98) #(141 160 203)) ] -{ #category : #palette } +{ #category : 'palette' } RSQualitativeColorPalette >> set24 [ ^ self fromTriplet: #(#(102 194 165) #(252 141 98) #(141 160 203) #(231 138 195)) ] -{ #category : #palette } +{ #category : 'palette' } RSQualitativeColorPalette >> set25 [ ^ self fromTriplet: #(#(102 194 165) #(252 141 98) #(141 160 203) #(231 138 195) #(166 216 84)) ] -{ #category : #palette } +{ #category : 'palette' } RSQualitativeColorPalette >> set26 [ ^ self fromTriplet: #(#(102 194 165) #(252 141 98) #(141 160 203) #(231 138 195) #(166 216 84) #(255 217 47)) ] -{ #category : #palette } +{ #category : 'palette' } RSQualitativeColorPalette >> set27 [ ^ self fromTriplet: #(#(102 194 165) #(252 141 98) #(141 160 203) #(231 138 195) #(166 216 84) #(255 217 47) #(229 196 148)) ] -{ #category : #palette } +{ #category : 'palette' } RSQualitativeColorPalette >> set28 [ ^ self fromTriplet: #(#(102 194 165) #(252 141 98) #(141 160 203) #(231 138 195) #(166 216 84) #(255 217 47) #(229 196 148) #(179 179 179)) ] -{ #category : #palette } +{ #category : 'palette' } RSQualitativeColorPalette >> set310 [ ^ self fromTriplet: #(#(141 211 199) #(255 255 179) #(190 186 218) #(251 128 114) #(128 177 211) #(253 180 98) #(179 222 105) #(252 205 229) #(217 217 217) #(188 128 189)) ] -{ #category : #palette } +{ #category : 'palette' } RSQualitativeColorPalette >> set311 [ ^ self fromTriplet: #(#(141 211 199) #(255 255 179) #(190 186 218) #(251 128 114) #(128 177 211) #(253 180 98) #(179 222 105) #(252 205 229) #(217 217 217) #(188 128 189) #(204 235 197)) ] -{ #category : #palette } +{ #category : 'palette' } RSQualitativeColorPalette >> set312 [ ^ self fromTriplet: #(#(141 211 199) #(255 255 179) #(190 186 218) #(251 128 114) #(128 177 211) #(253 180 98) #(179 222 105) #(252 205 229) #(217 217 217) #(188 128 189) #(204 235 197) #(255 237 111)) ] -{ #category : #palette } +{ #category : 'palette' } RSQualitativeColorPalette >> set33 [ ^ self fromTriplet: #(#(141 211 199) #(255 255 179) #(190 186 218)) ] -{ #category : #palette } +{ #category : 'palette' } RSQualitativeColorPalette >> set34 [ ^ self fromTriplet: #(#(141 211 199) #(255 255 179) #(190 186 218) #(251 128 114)) ] -{ #category : #palette } +{ #category : 'palette' } RSQualitativeColorPalette >> set35 [ ^ self fromTriplet: #(#(141 211 199) #(255 255 179) #(190 186 218) #(251 128 114) #(128 177 211)) ] -{ #category : #palette } +{ #category : 'palette' } RSQualitativeColorPalette >> set36 [ ^ self fromTriplet: #(#(141 211 199) #(255 255 179) #(190 186 218) #(251 128 114) #(128 177 211) #(253 180 98)) ] -{ #category : #palette } +{ #category : 'palette' } RSQualitativeColorPalette >> set37 [ ^ self fromTriplet: #(#(141 211 199) #(255 255 179) #(190 186 218) #(251 128 114) #(128 177 211) #(253 180 98) #(179 222 105)) ] -{ #category : #palette } +{ #category : 'palette' } RSQualitativeColorPalette >> set38 [ ^ self fromTriplet: #(#(141 211 199) #(255 255 179) #(190 186 218) #(251 128 114) #(128 177 211) #(253 180 98) #(179 222 105) #(252 205 229)) ] -{ #category : #palette } +{ #category : 'palette' } RSQualitativeColorPalette >> set39 [ ^ self fromTriplet: #(#(141 211 199) #(255 255 179) #(190 186 218) #(251 128 114) #(128 177 211) #(253 180 98) #(179 222 105) #(252 205 229) #(217 217 217)) ] diff --git a/src/Roassal-Colors/RSSequentialColorPalette.class.st b/src/Roassal-Colors/RSSequentialColorPalette.class.st index 29a9223c..f8ffb4d1 100644 --- a/src/Roassal-Colors/RSSequentialColorPalette.class.st +++ b/src/Roassal-Colors/RSSequentialColorPalette.class.st @@ -10,642 +10,643 @@ Code by Cynthia is under the Apache License 2.0 (https://github.com/axismaps/col Roassal is distributed under the MIT License, which is compatible with Apache License 2.0 " Class { - #name : #RSSequentialColorPalette, - #superclass : #RSColorPalette, - #category : #'Roassal-Colors' + #name : 'RSSequentialColorPalette', + #superclass : 'RSColorPalette', + #category : 'Roassal-Colors', + #package : 'Roassal-Colors' } -{ #category : #accessing } +{ #category : 'accessing' } RSSequentialColorPalette class >> paletteName [ ^ #sequential ] -{ #category : #palette } +{ #category : 'palette' } RSSequentialColorPalette >> blues3 [ ^ self fromTriplet: #(#(222 235 247) #(158 202 225) #(49 130 189)) ] -{ #category : #palette } +{ #category : 'palette' } RSSequentialColorPalette >> blues4 [ ^ self fromTriplet: #(#(239 243 255) #(189 215 231) #(107 174 214) #(33 113 181)) ] -{ #category : #palette } +{ #category : 'palette' } RSSequentialColorPalette >> blues5 [ ^ self fromTriplet: #(#(239 243 255) #(189 215 231) #(107 174 214) #(49 130 189) #(8 81 156)) ] -{ #category : #palette } +{ #category : 'palette' } RSSequentialColorPalette >> blues6 [ ^ self fromTriplet: #(#(239 243 255) #(198 219 239) #(158 202 225) #(107 174 214) #(49 130 189) #(8 81 156)) ] -{ #category : #palette } +{ #category : 'palette' } RSSequentialColorPalette >> blues7 [ ^ self fromTriplet: #(#(239 243 255) #(198 219 239) #(158 202 225) #(107 174 214) #(66 146 198) #(33 113 181) #(8 69 148)) ] -{ #category : #palette } +{ #category : 'palette' } RSSequentialColorPalette >> blues8 [ ^ self fromTriplet: #(#(247 251 255) #(222 235 247) #(198 219 239) #(158 202 225) #(107 174 214) #(66 146 198) #(33 113 181) #(8 69 148)) ] -{ #category : #palette } +{ #category : 'palette' } RSSequentialColorPalette >> blues9 [ ^ self fromTriplet: #(#(247 251 255) #(222 235 247) #(198 219 239) #(158 202 225) #(107 174 214) #(66 146 198) #(33 113 181) #(8 81 156) #(8 48 107)) ] -{ #category : #palette } +{ #category : 'palette' } RSSequentialColorPalette >> bugn3 [ ^ self fromTriplet: #(#(229 245 249) #(153 216 201) #(44 162 95)) ] -{ #category : #palette } +{ #category : 'palette' } RSSequentialColorPalette >> bugn4 [ ^ self fromTriplet: #(#(237 248 251) #(178 226 226) #(102 194 164) #(35 139 69)) ] -{ #category : #palette } +{ #category : 'palette' } RSSequentialColorPalette >> bugn5 [ ^ self fromTriplet: #(#(237 248 251) #(178 226 226) #(102 194 164) #(44 162 95) #(0 109 44)) ] -{ #category : #palette } +{ #category : 'palette' } RSSequentialColorPalette >> bugn6 [ ^ self fromTriplet: #(#(237 248 251) #(204 236 230) #(153 216 201) #(102 194 164) #(44 162 95) #(0 109 44)) ] -{ #category : #palette } +{ #category : 'palette' } RSSequentialColorPalette >> bugn7 [ ^ self fromTriplet: #(#(237 248 251) #(204 236 230) #(153 216 201) #(102 194 164) #(65 174 118) #(35 139 69) #(0 88 36)) ] -{ #category : #palette } +{ #category : 'palette' } RSSequentialColorPalette >> bugn8 [ ^ self fromTriplet: #(#(247 252 253) #(229 245 249) #(204 236 230) #(153 216 201) #(102 194 164) #(65 174 118) #(35 139 69) #(0 88 36)) ] -{ #category : #palette } +{ #category : 'palette' } RSSequentialColorPalette >> bugn9 [ ^ self fromTriplet: #(#(247 252 253) #(229 245 249) #(204 236 230) #(153 216 201) #(102 194 164) #(65 174 118) #(35 139 69) #(0 109 44) #(0 68 27)) ] -{ #category : #palette } +{ #category : 'palette' } RSSequentialColorPalette >> bupu3 [ ^ self fromTriplet: #(#(224 236 244) #(158 188 218) #(136 86 167)) ] -{ #category : #palette } +{ #category : 'palette' } RSSequentialColorPalette >> bupu4 [ ^ self fromTriplet: #(#(237 248 251) #(179 205 227) #(140 150 198) #(136 65 157)) ] -{ #category : #palette } +{ #category : 'palette' } RSSequentialColorPalette >> bupu5 [ ^ self fromTriplet: #(#(237 248 251) #(179 205 227) #(140 150 198) #(136 86 167) #(129 15 124)) ] -{ #category : #palette } +{ #category : 'palette' } RSSequentialColorPalette >> bupu6 [ ^ self fromTriplet: #(#(237 248 251) #(191 211 230) #(158 188 218) #(140 150 198) #(136 86 167) #(129 15 124)) ] -{ #category : #palette } +{ #category : 'palette' } RSSequentialColorPalette >> bupu7 [ ^ self fromTriplet: #(#(237 248 251) #(191 211 230) #(158 188 218) #(140 150 198) #(140 107 177) #(136 65 157) #(110 1 107)) ] -{ #category : #palette } +{ #category : 'palette' } RSSequentialColorPalette >> bupu8 [ ^ self fromTriplet: #(#(247 252 253) #(224 236 244) #(191 211 230) #(158 188 218) #(140 150 198) #(140 107 177) #(136 65 157) #(110 1 107)) ] -{ #category : #palette } +{ #category : 'palette' } RSSequentialColorPalette >> bupu9 [ ^ self fromTriplet: #(#(247 252 253) #(224 236 244) #(191 211 230) #(158 188 218) #(140 150 198) #(140 107 177) #(136 65 157) #(129 15 124) #(77 0 75)) ] -{ #category : #palette } +{ #category : 'palette' } RSSequentialColorPalette >> gnbu3 [ ^ self fromTriplet: #(#(224 243 219) #(168 221 181) #(67 162 202)) ] -{ #category : #palette } +{ #category : 'palette' } RSSequentialColorPalette >> gnbu4 [ ^ self fromTriplet: #(#(240 249 232) #(186 228 188) #(123 204 196) #(43 140 190)) ] -{ #category : #palette } +{ #category : 'palette' } RSSequentialColorPalette >> gnbu5 [ ^ self fromTriplet: #(#(240 249 232) #(186 228 188) #(123 204 196) #(67 162 202) #(8 104 172)) ] -{ #category : #palette } +{ #category : 'palette' } RSSequentialColorPalette >> gnbu6 [ ^ self fromTriplet: #(#(240 249 232) #(204 235 197) #(168 221 181) #(123 204 196) #(67 162 202) #(8 104 172)) ] -{ #category : #palette } +{ #category : 'palette' } RSSequentialColorPalette >> gnbu7 [ ^ self fromTriplet: #(#(240 249 232) #(204 235 197) #(168 221 181) #(123 204 196) #(78 179 211) #(43 140 190) #(8 88 158)) ] -{ #category : #palette } +{ #category : 'palette' } RSSequentialColorPalette >> gnbu8 [ ^ self fromTriplet: #(#(247 252 240) #(224 243 219) #(204 235 197) #(168 221 181) #(123 204 196) #(78 179 211) #(43 140 190) #(8 88 158)) ] -{ #category : #palette } +{ #category : 'palette' } RSSequentialColorPalette >> gnbu9 [ ^ self fromTriplet: #(#(247 252 240) #(224 243 219) #(204 235 197) #(168 221 181) #(123 204 196) #(78 179 211) #(43 140 190) #(8 104 172) #(8 64 129)) ] -{ #category : #palette } +{ #category : 'palette' } RSSequentialColorPalette >> greens3 [ ^ self fromTriplet: #(#(229 245 224) #(161 217 155) #(49 163 84)) ] -{ #category : #palette } +{ #category : 'palette' } RSSequentialColorPalette >> greens4 [ ^ self fromTriplet: #(#(237 248 233) #(186 228 179) #(116 196 118) #(35 139 69)) ] -{ #category : #palette } +{ #category : 'palette' } RSSequentialColorPalette >> greens5 [ ^ self fromTriplet: #(#(237 248 233) #(186 228 179) #(116 196 118) #(49 163 84) #(0 109 44)) ] -{ #category : #palette } +{ #category : 'palette' } RSSequentialColorPalette >> greens6 [ ^ self fromTriplet: #(#(237 248 233) #(199 233 192) #(161 217 155) #(116 196 118) #(49 163 84) #(0 109 44)) ] -{ #category : #palette } +{ #category : 'palette' } RSSequentialColorPalette >> greens7 [ ^ self fromTriplet: #(#(237 248 233) #(199 233 192) #(161 217 155) #(116 196 118) #(65 171 93) #(35 139 69) #(0 90 50)) ] -{ #category : #palette } +{ #category : 'palette' } RSSequentialColorPalette >> greens8 [ ^ self fromTriplet: #(#(247 252 245) #(229 245 224) #(199 233 192) #(161 217 155) #(116 196 118) #(65 171 93) #(35 139 69) #(0 90 50)) ] -{ #category : #palette } +{ #category : 'palette' } RSSequentialColorPalette >> greens9 [ ^ self fromTriplet: #(#(247 252 245) #(229 245 224) #(199 233 192) #(161 217 155) #(116 196 118) #(65 171 93) #(35 139 69) #(0 109 44) #(0 68 27)) ] -{ #category : #palette } +{ #category : 'palette' } RSSequentialColorPalette >> greys3 [ ^ self fromTriplet: #(#(240 240 240) #(189 189 189) #(99 99 99)) ] -{ #category : #palette } +{ #category : 'palette' } RSSequentialColorPalette >> greys4 [ ^ self fromTriplet: #(#(247 247 247) #(204 204 204) #(150 150 150) #(82 82 82)) ] -{ #category : #palette } +{ #category : 'palette' } RSSequentialColorPalette >> greys5 [ ^ self fromTriplet: #(#(247 247 247) #(204 204 204) #(150 150 150) #(99 99 99) #(37 37 37)) ] -{ #category : #palette } +{ #category : 'palette' } RSSequentialColorPalette >> greys6 [ ^ self fromTriplet: #(#(247 247 247) #(217 217 217) #(189 189 189) #(150 150 150) #(99 99 99) #(37 37 37)) ] -{ #category : #palette } +{ #category : 'palette' } RSSequentialColorPalette >> greys7 [ ^ self fromTriplet: #(#(247 247 247) #(217 217 217) #(189 189 189) #(150 150 150) #(115 115 115) #(82 82 82) #(37 37 37)) ] -{ #category : #palette } +{ #category : 'palette' } RSSequentialColorPalette >> greys8 [ ^ self fromTriplet: #(#(255 255 255) #(240 240 240) #(217 217 217) #(189 189 189) #(150 150 150) #(115 115 115) #(82 82 82) #(37 37 37)) ] -{ #category : #palette } +{ #category : 'palette' } RSSequentialColorPalette >> greys9 [ ^ self fromTriplet: #(#(255 255 255) #(240 240 240) #(217 217 217) #(189 189 189) #(150 150 150) #(115 115 115) #(82 82 82) #(37 37 37) #(0 0 0)) ] -{ #category : #palette } +{ #category : 'palette' } RSSequentialColorPalette >> oranges3 [ ^ self fromTriplet: #(#(254 230 206) #(253 174 107) #(230 85 13)) ] -{ #category : #palette } +{ #category : 'palette' } RSSequentialColorPalette >> oranges4 [ ^ self fromTriplet: #(#(254 237 222) #(253 190 133) #(253 141 60) #(217 71 1)) ] -{ #category : #palette } +{ #category : 'palette' } RSSequentialColorPalette >> oranges5 [ ^ self fromTriplet: #(#(254 237 222) #(253 190 133) #(253 141 60) #(230 85 13) #(166 54 3)) ] -{ #category : #palette } +{ #category : 'palette' } RSSequentialColorPalette >> oranges6 [ ^ self fromTriplet: #(#(254 237 222) #(253 208 162) #(253 174 107) #(253 141 60) #(230 85 13) #(166 54 3)) ] -{ #category : #palette } +{ #category : 'palette' } RSSequentialColorPalette >> oranges7 [ ^ self fromTriplet: #(#(254 237 222) #(253 208 162) #(253 174 107) #(253 141 60) #(241 105 19) #(217 72 1) #(140 45 4)) ] -{ #category : #palette } +{ #category : 'palette' } RSSequentialColorPalette >> oranges8 [ ^ self fromTriplet: #(#(255 245 235) #(254 230 206) #(253 208 162) #(253 174 107) #(253 141 60) #(241 105 19) #(217 72 1) #(140 45 4)) ] -{ #category : #palette } +{ #category : 'palette' } RSSequentialColorPalette >> oranges9 [ ^ self fromTriplet: #(#(255 245 235) #(254 230 206) #(253 208 162) #(253 174 107) #(253 141 60) #(241 105 19) #(217 72 1) #(166 54 3) #(127 39 4)) ] -{ #category : #palette } +{ #category : 'palette' } RSSequentialColorPalette >> orrd3 [ ^ self fromTriplet: #(#(254 232 200) #(253 187 132) #(227 74 51)) ] -{ #category : #palette } +{ #category : 'palette' } RSSequentialColorPalette >> orrd4 [ ^ self fromTriplet: #(#(254 240 217) #(253 204 138) #(252 141 89) #(215 48 31)) ] -{ #category : #palette } +{ #category : 'palette' } RSSequentialColorPalette >> orrd5 [ ^ self fromTriplet: #(#(254 240 217) #(253 204 138) #(252 141 89) #(227 74 51) #(179 0 0)) ] -{ #category : #palette } +{ #category : 'palette' } RSSequentialColorPalette >> orrd6 [ ^ self fromTriplet: #(#(254 240 217) #(253 212 158) #(253 187 132) #(252 141 89) #(227 74 51) #(179 0 0)) ] -{ #category : #palette } +{ #category : 'palette' } RSSequentialColorPalette >> orrd7 [ ^ self fromTriplet: #(#(254 240 217) #(253 212 158) #(253 187 132) #(252 141 89) #(239 101 72) #(215 48 31) #(153 0 0)) ] -{ #category : #palette } +{ #category : 'palette' } RSSequentialColorPalette >> orrd8 [ ^ self fromTriplet: #(#(255 247 236) #(254 232 200) #(253 212 158) #(253 187 132) #(252 141 89) #(239 101 72) #(215 48 31) #(153 0 0)) ] -{ #category : #palette } +{ #category : 'palette' } RSSequentialColorPalette >> orrd9 [ ^ self fromTriplet: #(#(255 247 236) #(254 232 200) #(253 212 158) #(253 187 132) #(252 141 89) #(239 101 72) #(215 48 31) #(179 0 0) #(127 0 0)) ] -{ #category : #palette } +{ #category : 'palette' } RSSequentialColorPalette >> pubu3 [ ^ self fromTriplet: #(#(236 231 242) #(166 189 219) #(43 140 190)) ] -{ #category : #palette } +{ #category : 'palette' } RSSequentialColorPalette >> pubu4 [ ^ self fromTriplet: #(#(241 238 246) #(189 201 225) #(116 169 207) #(5 112 176)) ] -{ #category : #palette } +{ #category : 'palette' } RSSequentialColorPalette >> pubu5 [ ^ self fromTriplet: #(#(241 238 246) #(189 201 225) #(116 169 207) #(43 140 190) #(4 90 141)) ] -{ #category : #palette } +{ #category : 'palette' } RSSequentialColorPalette >> pubu6 [ ^ self fromTriplet: #(#(241 238 246) #(208 209 230) #(166 189 219) #(116 169 207) #(43 140 190) #(4 90 141)) ] -{ #category : #palette } +{ #category : 'palette' } RSSequentialColorPalette >> pubu7 [ ^ self fromTriplet: #(#(241 238 246) #(208 209 230) #(166 189 219) #(116 169 207) #(54 144 192) #(5 112 176) #(3 78 123)) ] -{ #category : #palette } +{ #category : 'palette' } RSSequentialColorPalette >> pubu8 [ ^ self fromTriplet: #(#(255 247 251) #(236 231 242) #(208 209 230) #(166 189 219) #(116 169 207) #(54 144 192) #(5 112 176) #(3 78 123)) ] -{ #category : #palette } +{ #category : 'palette' } RSSequentialColorPalette >> pubu9 [ ^ self fromTriplet: #(#(255 247 251) #(236 231 242) #(208 209 230) #(166 189 219) #(116 169 207) #(54 144 192) #(5 112 176) #(4 90 141) #(2 56 88)) ] -{ #category : #palette } +{ #category : 'palette' } RSSequentialColorPalette >> pubugn3 [ ^ self fromTriplet: #(#(236 226 240) #(166 189 219) #(28 144 153)) ] -{ #category : #palette } +{ #category : 'palette' } RSSequentialColorPalette >> pubugn4 [ ^ self fromTriplet: #(#(246 239 247) #(189 201 225) #(103 169 207) #(2 129 138)) ] -{ #category : #palette } +{ #category : 'palette' } RSSequentialColorPalette >> pubugn5 [ ^ self fromTriplet: #(#(246 239 247) #(189 201 225) #(103 169 207) #(28 144 153) #(1 108 89)) ] -{ #category : #palette } +{ #category : 'palette' } RSSequentialColorPalette >> pubugn6 [ ^ self fromTriplet: #(#(246 239 247) #(208 209 230) #(166 189 219) #(103 169 207) #(28 144 153) #(1 108 89)) ] -{ #category : #palette } +{ #category : 'palette' } RSSequentialColorPalette >> pubugn7 [ ^ self fromTriplet: #(#(246 239 247) #(208 209 230) #(166 189 219) #(103 169 207) #(54 144 192) #(2 129 138) #(1 100 80)) ] -{ #category : #palette } +{ #category : 'palette' } RSSequentialColorPalette >> pubugn8 [ ^ self fromTriplet: #(#(255 247 251) #(236 226 240) #(208 209 230) #(166 189 219) #(103 169 207) #(54 144 192) #(2 129 138) #(1 100 80)) ] -{ #category : #palette } +{ #category : 'palette' } RSSequentialColorPalette >> pubugn9 [ ^ self fromTriplet: #(#(255 247 251) #(236 226 240) #(208 209 230) #(166 189 219) #(103 169 207) #(54 144 192) #(2 129 138) #(1 108 89) #(1 70 54)) ] -{ #category : #palette } +{ #category : 'palette' } RSSequentialColorPalette >> purd3 [ ^ self fromTriplet: #(#(231 225 239) #(201 148 199) #(221 28 119)) ] -{ #category : #palette } +{ #category : 'palette' } RSSequentialColorPalette >> purd4 [ ^ self fromTriplet: #(#(241 238 246) #(215 181 216) #(223 101 176) #(206 18 86)) ] -{ #category : #palette } +{ #category : 'palette' } RSSequentialColorPalette >> purd5 [ ^ self fromTriplet: #(#(241 238 246) #(215 181 216) #(223 101 176) #(221 28 119) #(152 0 67)) ] -{ #category : #palette } +{ #category : 'palette' } RSSequentialColorPalette >> purd6 [ ^ self fromTriplet: #(#(241 238 246) #(212 185 218) #(201 148 199) #(223 101 176) #(221 28 119) #(152 0 67)) ] -{ #category : #palette } +{ #category : 'palette' } RSSequentialColorPalette >> purd7 [ ^ self fromTriplet: #(#(241 238 246) #(212 185 218) #(201 148 199) #(223 101 176) #(231 41 138) #(206 18 86) #(145 0 63)) ] -{ #category : #palette } +{ #category : 'palette' } RSSequentialColorPalette >> purd8 [ ^ self fromTriplet: #(#(247 244 249) #(231 225 239) #(212 185 218) #(201 148 199) #(223 101 176) #(231 41 138) #(206 18 86) #(145 0 63)) ] -{ #category : #palette } +{ #category : 'palette' } RSSequentialColorPalette >> purd9 [ ^ self fromTriplet: #(#(247 244 249) #(231 225 239) #(212 185 218) #(201 148 199) #(223 101 176) #(231 41 138) #(206 18 86) #(152 0 67) #(103 0 31)) ] -{ #category : #palette } +{ #category : 'palette' } RSSequentialColorPalette >> purples3 [ ^ self fromTriplet: #(#(239 237 245) #(188 189 220) #(117 107 177)) ] -{ #category : #palette } +{ #category : 'palette' } RSSequentialColorPalette >> purples4 [ ^ self fromTriplet: #(#(242 240 247) #(203 201 226) #(158 154 200) #(106 81 163)) ] -{ #category : #palette } +{ #category : 'palette' } RSSequentialColorPalette >> purples5 [ ^ self fromTriplet: #(#(242 240 247) #(203 201 226) #(158 154 200) #(117 107 177) #(84 39 143)) ] -{ #category : #palette } +{ #category : 'palette' } RSSequentialColorPalette >> purples6 [ ^ self fromTriplet: #(#(242 240 247) #(218 218 235) #(188 189 220) #(158 154 200) #(117 107 177) #(84 39 143)) ] -{ #category : #palette } +{ #category : 'palette' } RSSequentialColorPalette >> purples7 [ ^ self fromTriplet: #(#(242 240 247) #(218 218 235) #(188 189 220) #(158 154 200) #(128 125 186) #(106 81 163) #(74 20 134)) ] -{ #category : #palette } +{ #category : 'palette' } RSSequentialColorPalette >> purples8 [ ^ self fromTriplet: #(#(252 251 253) #(239 237 245) #(218 218 235) #(188 189 220) #(158 154 200) #(128 125 186) #(106 81 163) #(74 20 134)) ] -{ #category : #palette } +{ #category : 'palette' } RSSequentialColorPalette >> purples9 [ ^ self fromTriplet: #(#(252 251 253) #(239 237 245) #(218 218 235) #(188 189 220) #(158 154 200) #(128 125 186) #(106 81 163) #(84 39 143) #(63 0 125)) ] -{ #category : #palette } +{ #category : 'palette' } RSSequentialColorPalette >> rdpu3 [ ^ self fromTriplet: #(#(253 224 221) #(250 159 181) #(197 27 138)) ] -{ #category : #palette } +{ #category : 'palette' } RSSequentialColorPalette >> rdpu4 [ ^ self fromTriplet: #(#(254 235 226) #(251 180 185) #(247 104 161) #(174 1 126)) ] -{ #category : #palette } +{ #category : 'palette' } RSSequentialColorPalette >> rdpu5 [ ^ self fromTriplet: #(#(254 235 226) #(251 180 185) #(247 104 161) #(197 27 138) #(122 1 119)) ] -{ #category : #palette } +{ #category : 'palette' } RSSequentialColorPalette >> rdpu6 [ ^ self fromTriplet: #(#(254 235 226) #(252 197 192) #(250 159 181) #(247 104 161) #(197 27 138) #(122 1 119)) ] -{ #category : #palette } +{ #category : 'palette' } RSSequentialColorPalette >> rdpu7 [ ^ self fromTriplet: #(#(254 235 226) #(252 197 192) #(250 159 181) #(247 104 161) #(221 52 151) #(174 1 126) #(122 1 119)) ] -{ #category : #palette } +{ #category : 'palette' } RSSequentialColorPalette >> rdpu8 [ ^ self fromTriplet: #(#(255 247 243) #(253 224 221) #(252 197 192) #(250 159 181) #(247 104 161) #(221 52 151) #(174 1 126) #(122 1 119)) ] -{ #category : #palette } +{ #category : 'palette' } RSSequentialColorPalette >> rdpu9 [ ^ self fromTriplet: #(#(255 247 243) #(253 224 221) #(252 197 192) #(250 159 181) #(247 104 161) #(221 52 151) #(174 1 126) #(122 1 119) #(73 0 106)) ] -{ #category : #palette } +{ #category : 'palette' } RSSequentialColorPalette >> reds3 [ ^ self fromTriplet: #(#(254 224 210) #(252 146 114) #(222 45 38)) ] -{ #category : #palette } +{ #category : 'palette' } RSSequentialColorPalette >> reds4 [ ^ self fromTriplet: #(#(254 229 217) #(252 174 145) #(251 106 74) #(203 24 29)) ] -{ #category : #palette } +{ #category : 'palette' } RSSequentialColorPalette >> reds5 [ ^ self fromTriplet: #(#(254 229 217) #(252 174 145) #(251 106 74) #(222 45 38) #(165 15 21)) ] -{ #category : #palette } +{ #category : 'palette' } RSSequentialColorPalette >> reds6 [ ^ self fromTriplet: #(#(254 229 217) #(252 187 161) #(252 146 114) #(251 106 74) #(222 45 38) #(165 15 21)) ] -{ #category : #palette } +{ #category : 'palette' } RSSequentialColorPalette >> reds7 [ ^ self fromTriplet: #(#(254 229 217) #(252 187 161) #(252 146 114) #(251 106 74) #(239 59 44) #(203 24 29) #(153 0 13)) ] -{ #category : #palette } +{ #category : 'palette' } RSSequentialColorPalette >> reds8 [ ^ self fromTriplet: #(#(255 245 240) #(254 224 210) #(252 187 161) #(252 146 114) #(251 106 74) #(239 59 44) #(203 24 29) #(153 0 13)) ] -{ #category : #palette } +{ #category : 'palette' } RSSequentialColorPalette >> reds9 [ ^ self fromTriplet: #(#(255 245 240) #(254 224 210) #(252 187 161) #(252 146 114) #(251 106 74) #(239 59 44) #(203 24 29) #(165 15 21) #(103 0 13)) ] -{ #category : #palette } +{ #category : 'palette' } RSSequentialColorPalette >> ylgn3 [ ^ self fromTriplet: #(#(247 252 185) #(173 221 142) #(49 163 84)) ] -{ #category : #palette } +{ #category : 'palette' } RSSequentialColorPalette >> ylgn4 [ ^ self fromTriplet: #(#(255 255 204) #(194 230 153) #(120 198 121) #(35 132 67)) ] -{ #category : #palette } +{ #category : 'palette' } RSSequentialColorPalette >> ylgn5 [ ^ self fromTriplet: #(#(255 255 204) #(194 230 153) #(120 198 121) #(49 163 84) #(0 104 55)) ] -{ #category : #palette } +{ #category : 'palette' } RSSequentialColorPalette >> ylgn6 [ ^ self fromTriplet: #(#(255 255 204) #(217 240 163) #(173 221 142) #(120 198 121) #(49 163 84) #(0 104 55)) ] -{ #category : #palette } +{ #category : 'palette' } RSSequentialColorPalette >> ylgn7 [ ^ self fromTriplet: #(#(255 255 204) #(217 240 163) #(173 221 142) #(120 198 121) #(65 171 93) #(35 132 67) #(0 90 50)) ] -{ #category : #palette } +{ #category : 'palette' } RSSequentialColorPalette >> ylgn8 [ ^ self fromTriplet: #(#(255 255 229) #(247 252 185) #(217 240 163) #(173 221 142) #(120 198 121) #(65 171 93) #(35 132 67) #(0 90 50)) ] -{ #category : #palette } +{ #category : 'palette' } RSSequentialColorPalette >> ylgn9 [ ^ self fromTriplet: #(#(255 255 229) #(247 252 185) #(217 240 163) #(173 221 142) #(120 198 121) #(65 171 93) #(35 132 67) #(0 104 55) #(0 69 41)) ] -{ #category : #palette } +{ #category : 'palette' } RSSequentialColorPalette >> ylgnbu3 [ ^ self fromTriplet: #(#(237 248 177) #(127 205 187) #(44 127 184)) ] -{ #category : #palette } +{ #category : 'palette' } RSSequentialColorPalette >> ylgnbu4 [ ^ self fromTriplet: #(#(255 255 204) #(161 218 180) #(65 182 196) #(34 94 168)) ] -{ #category : #palette } +{ #category : 'palette' } RSSequentialColorPalette >> ylgnbu5 [ ^ self fromTriplet: #(#(255 255 204) #(161 218 180) #(65 182 196) #(44 127 184) #(37 52 148)) ] -{ #category : #palette } +{ #category : 'palette' } RSSequentialColorPalette >> ylgnbu6 [ ^ self fromTriplet: #(#(255 255 204) #(199 233 180) #(127 205 187) #(65 182 196) #(44 127 184) #(37 52 148)) ] -{ #category : #palette } +{ #category : 'palette' } RSSequentialColorPalette >> ylgnbu7 [ ^ self fromTriplet: #(#(255 255 204) #(199 233 180) #(127 205 187) #(65 182 196) #(29 145 192) #(34 94 168) #(12 44 132)) ] -{ #category : #palette } +{ #category : 'palette' } RSSequentialColorPalette >> ylgnbu8 [ ^ self fromTriplet: #(#(255 255 217) #(237 248 177) #(199 233 180) #(127 205 187) #(65 182 196) #(29 145 192) #(34 94 168) #(12 44 132)) ] -{ #category : #palette } +{ #category : 'palette' } RSSequentialColorPalette >> ylgnbu9 [ ^ self fromTriplet: #(#(255 255 217) #(237 248 177) #(199 233 180) #(127 205 187) #(65 182 196) #(29 145 192) #(34 94 168) #(37 52 148) #(8 29 88)) ] -{ #category : #palette } +{ #category : 'palette' } RSSequentialColorPalette >> ylorbr3 [ ^ self fromTriplet: #(#(255 247 188) #(254 196 79) #(217 95 14)) ] -{ #category : #palette } +{ #category : 'palette' } RSSequentialColorPalette >> ylorbr4 [ ^ self fromTriplet: #(#(255 255 212) #(254 217 142) #(254 153 41) #(204 76 2)) ] -{ #category : #palette } +{ #category : 'palette' } RSSequentialColorPalette >> ylorbr5 [ ^ self fromTriplet: #(#(255 255 212) #(254 217 142) #(254 153 41) #(217 95 14) #(153 52 4)) ] -{ #category : #palette } +{ #category : 'palette' } RSSequentialColorPalette >> ylorbr6 [ ^ self fromTriplet: #(#(255 255 212) #(254 227 145) #(254 196 79) #(254 153 41) #(217 95 14) #(153 52 4)) ] -{ #category : #palette } +{ #category : 'palette' } RSSequentialColorPalette >> ylorbr7 [ ^ self fromTriplet: #(#(255 255 212) #(254 227 145) #(254 196 79) #(254 153 41) #(236 112 20) #(204 76 2) #(140 45 4)) ] -{ #category : #palette } +{ #category : 'palette' } RSSequentialColorPalette >> ylorbr8 [ ^ self fromTriplet: #(#(255 255 229) #(255 247 188) #(254 227 145) #(254 196 79) #(254 153 41) #(236 112 20) #(204 76 2) #(140 45 4)) ] -{ #category : #palette } +{ #category : 'palette' } RSSequentialColorPalette >> ylorbr9 [ ^ self fromTriplet: #(#(255 255 229) #(255 247 188) #(254 227 145) #(254 196 79) #(254 153 41) #(236 112 20) #(204 76 2) #(153 52 4) #(102 37 6)) ] -{ #category : #palette } +{ #category : 'palette' } RSSequentialColorPalette >> ylorrd3 [ ^ self fromTriplet: #(#(255 237 160) #(254 178 76) #(240 59 32)) ] -{ #category : #palette } +{ #category : 'palette' } RSSequentialColorPalette >> ylorrd4 [ ^ self fromTriplet: #(#(255 255 178) #(254 204 92) #(253 141 60) #(227 26 28)) ] -{ #category : #palette } +{ #category : 'palette' } RSSequentialColorPalette >> ylorrd5 [ ^ self fromTriplet: #(#(255 255 178) #(254 204 92) #(253 141 60) #(240 59 32) #(189 0 38)) ] -{ #category : #palette } +{ #category : 'palette' } RSSequentialColorPalette >> ylorrd6 [ ^ self fromTriplet: #(#(255 255 178) #(254 217 118) #(254 178 76) #(253 141 60) #(240 59 32) #(189 0 38)) ] -{ #category : #palette } +{ #category : 'palette' } RSSequentialColorPalette >> ylorrd7 [ ^ self fromTriplet: #(#(255 255 178) #(254 217 118) #(254 178 76) #(253 141 60) #(252 78 42) #(227 26 28) #(177 0 38)) ] -{ #category : #palette } +{ #category : 'palette' } RSSequentialColorPalette >> ylorrd8 [ ^ self fromTriplet: #(#(255 255 204) #(255 237 160) #(254 217 118) #(254 178 76) #(253 141 60) #(252 78 42) #(227 26 28) #(177 0 38)) ] -{ #category : #palette } +{ #category : 'palette' } RSSequentialColorPalette >> ylorrd9 [ ^ self fromTriplet: #(#(255 255 204) #(255 237 160) #(254 217 118) #(254 178 76) #(253 141 60) #(252 78 42) #(227 26 28) #(189 0 38) #(128 0 38)) ] diff --git a/src/Roassal-Colors/package.st b/src/Roassal-Colors/package.st index 17fb3f24..e346ac7c 100644 --- a/src/Roassal-Colors/package.st +++ b/src/Roassal-Colors/package.st @@ -1 +1 @@ -Package { #name : #'Roassal-Colors' } +Package { #name : 'Roassal-Colors' } diff --git a/src/Roassal-Debugger/RSAnimationDebuggerExtension.class.st b/src/Roassal-Debugger/RSAnimationDebuggerExtension.class.st index ff14d82a..5ce8b620 100644 --- a/src/Roassal-Debugger/RSAnimationDebuggerExtension.class.st +++ b/src/Roassal-Debugger/RSAnimationDebuggerExtension.class.st @@ -2,24 +2,25 @@ An experimental debugger for Roassal animations " Class { - #name : #RSAnimationDebuggerExtension, - #superclass : #SpPresenterWithModel, + #name : 'RSAnimationDebuggerExtension', + #superclass : 'SpPresenterWithModel', #traits : 'TStDebuggerExtension', #classTraits : 'TStDebuggerExtension classTrait', #instVars : [ 'canvas', 'debugger' ], - #category : #'Roassal-Debugger' + #category : 'Roassal-Debugger', + #package : 'Roassal-Debugger' } -{ #category : #layout } +{ #category : 'layout' } RSAnimationDebuggerExtension >> debuggerLayout [ ^ SpBoxLayout newVertical. ] -{ #category : #initialization } +{ #category : 'initialization' } RSAnimationDebuggerExtension >> updatePresenter [ (debugger interruptedContext findContextSuchThat: [:ctx | ctx receiver isKindOf: RSAbstractAnimation]) ifNotNil: [ :ctx| canvas := ctx receiver canvas. diff --git a/src/Roassal-Debugger/package.st b/src/Roassal-Debugger/package.st index a5c9be86..24d26447 100644 --- a/src/Roassal-Debugger/package.st +++ b/src/Roassal-Debugger/package.st @@ -1 +1 @@ -Package { #name : #'Roassal-Debugger' } +Package { #name : 'Roassal-Debugger' } diff --git a/src/Roassal-Examples/Class.extension.st b/src/Roassal-Examples/Class.extension.st index ef1c6b81..a5bb12f0 100644 --- a/src/Roassal-Examples/Class.extension.st +++ b/src/Roassal-Examples/Class.extension.st @@ -1,6 +1,6 @@ -Extension { #name : #Class } +Extension { #name : 'Class' } -{ #category : #'*Roassal-Examples' } +{ #category : '*Roassal-Examples' } Class >> numberOfLinesOfCode [ "A convenient and homogeneous method to return the number of lines of code" ^ self linesOfCode diff --git a/src/Roassal-Examples/CompiledMethod.extension.st b/src/Roassal-Examples/CompiledMethod.extension.st index 95fcc5a1..2145ba2f 100644 --- a/src/Roassal-Examples/CompiledMethod.extension.st +++ b/src/Roassal-Examples/CompiledMethod.extension.st @@ -1,6 +1,6 @@ -Extension { #name : #CompiledMethod } +Extension { #name : 'CompiledMethod' } -{ #category : #'*Roassal-Examples' } +{ #category : '*Roassal-Examples' } CompiledMethod >> dependentMethods [ "Return the list of methods defined in my class for which I may invoke" "(self >> #dependentMethods) dependentMethods" @@ -9,7 +9,7 @@ CompiledMethod >> dependentMethods [ thenCollect: [ :k | self methodClass >> k ] ] -{ #category : #'*Roassal-Examples' } +{ #category : '*Roassal-Examples' } CompiledMethod >> numberOfLinesOfCode [ ^ self linesOfCode ] diff --git a/src/Roassal-Examples/RSAbstractExamples.class.st b/src/Roassal-Examples/RSAbstractExamples.class.st index b9459bcd..49536fe1 100644 --- a/src/Roassal-Examples/RSAbstractExamples.class.st +++ b/src/Roassal-Examples/RSAbstractExamples.class.st @@ -5,17 +5,19 @@ The goal is to make the examples part of the tests. If you wish to add examples to Roassal, then you need to subclass me. " Class { - #name : #RSAbstractExamples, - #superclass : #RSObject, - #category : 'Roassal-Examples-Core' + #name : 'RSAbstractExamples', + #superclass : 'RSObject', + #category : 'Roassal-Examples-Core', + #package : 'Roassal-Examples', + #tag : 'Core' } -{ #category : #accessing } +{ #category : 'accessing' } RSAbstractExamples >> label [ ^ self className ] -{ #category : #accessing } +{ #category : 'accessing' } RSAbstractExamples >> order [ ^ 100 ] diff --git a/src/Roassal-Examples/RSAnimationExamples.class.st b/src/Roassal-Examples/RSAnimationExamples.class.st index 9088211c..26ae1a0b 100644 --- a/src/Roassal-Examples/RSAnimationExamples.class.st +++ b/src/Roassal-Examples/RSAnimationExamples.class.st @@ -2,12 +2,14 @@ I have examples for animation " Class { - #name : #RSAnimationExamples, - #superclass : #RSAbstractExamples, - #category : 'Roassal-Examples-Basic' + #name : 'RSAnimationExamples', + #superclass : 'RSAbstractExamples', + #category : 'Roassal-Examples-Basic', + #package : 'Roassal-Examples', + #tag : 'Basic' } -{ #category : #examples } +{ #category : 'examples' } RSAnimationExamples >> example01BoxWindmill [ | canvas shapes extent points frameCount border | @@ -44,7 +46,7 @@ RSAnimationExamples >> example01BoxWindmill [ ^ canvas ] -{ #category : #examples } +{ #category : 'examples' } RSAnimationExamples >> example02BoxesLineCircles [ @@ -143,7 +145,7 @@ RSAnimationExamples >> example02BoxesLineCircles [ ^ c ] -{ #category : #examples } +{ #category : 'examples' } RSAnimationExamples >> example03Atom [ @@ -196,7 +198,7 @@ RSAnimationExamples >> example03Atom [ ^ canvas ] -{ #category : #examples } +{ #category : 'examples' } RSAnimationExamples >> example05ElasticEllipses [ @@ -254,7 +256,7 @@ RSAnimationExamples >> example05ElasticEllipses [ ^ canvas ] -{ #category : #lines } +{ #category : 'lines' } RSAnimationExamples >> example06LinePatterns [ @@ -317,7 +319,7 @@ RSAnimationExamples >> example06LinePatterns [ ^ canvas ] -{ #category : #examples } +{ #category : 'examples' } RSAnimationExamples >> example07CircleParty [ | canvas x x2 speed speed2 random shape color | @@ -368,7 +370,7 @@ RSAnimationExamples >> example07CircleParty [ ^ canvas ] -{ #category : #examples } +{ #category : 'examples' } RSAnimationExamples >> example08ArcTree [ @@ -421,7 +423,7 @@ RSAnimationExamples >> example08ArcTree [ ^ canvas ] -{ #category : #perlin } +{ #category : 'perlin' } RSAnimationExamples >> example09PerlinParticles [ > example09PerlinParticles [ ^ canvas ] -{ #category : #perlin } +{ #category : 'perlin' } RSAnimationExamples >> example09b [ @@ -639,7 +641,7 @@ RSAnimationExamples >> example09b [ ^ canvas ] -{ #category : #perlin } +{ #category : 'perlin' } RSAnimationExamples >> example10Arcs [ @@ -686,7 +688,7 @@ RSAnimationExamples >> example10Arcs [ ^ canvas ] -{ #category : #examples } +{ #category : 'examples' } RSAnimationExamples >> example11C [ @@ -715,7 +717,7 @@ RSAnimationExamples >> example11C [ ^ canvas ] -{ #category : #examples } +{ #category : 'examples' } RSAnimationExamples >> example12Sky [ @@ -781,7 +783,7 @@ RSAnimationExamples >> example12Sky [ ^ canvas ] -{ #category : #perlin } +{ #category : 'perlin' } RSAnimationExamples >> example13ArcNoise [ > example13ArcNoise [ ^ canvas ] -{ #category : #perlin } +{ #category : 'perlin' } RSAnimationExamples >> example14Retina [ @@ -927,7 +929,7 @@ RSAnimationExamples >> example14Retina [ ^ canvas ] -{ #category : #examples } +{ #category : 'examples' } RSAnimationExamples >> example15SpaceDandy [ @@ -1011,7 +1013,7 @@ RSAnimationExamples >> example15SpaceDandy [ ^ canvas ] -{ #category : #examples } +{ #category : 'examples' } RSAnimationExamples >> example16Gris [ @@ -1102,7 +1104,7 @@ RSAnimationExamples >> example16Gris [ ^ c ] -{ #category : #examples } +{ #category : 'examples' } RSAnimationExamples >> example17Flor [ @@ -1154,7 +1156,7 @@ RSAnimationExamples >> example17Flor [ ^ c ] -{ #category : #perlin } +{ #category : 'perlin' } RSAnimationExamples >> example18Rainbow [ @@ -1248,7 +1250,7 @@ RSAnimationExamples >> example18Rainbow [ ^ canvas ] -{ #category : #examples } +{ #category : 'examples' } RSAnimationExamples >> example19Stars [ @@ -1290,7 +1292,7 @@ RSAnimationExamples >> example19Stars [ ^ canvas ] -{ #category : #examples } +{ #category : 'examples' } RSAnimationExamples >> example20CircleWaves [ @@ -1334,7 +1336,7 @@ RSAnimationExamples >> example20CircleWaves [ ^ canvas ] -{ #category : #lines } +{ #category : 'lines' } RSAnimationExamples >> example21Lines [ @@ -1415,7 +1417,7 @@ RSAnimationExamples >> example21Lines [ ^ canvas ] -{ #category : #lines } +{ #category : 'lines' } RSAnimationExamples >> example22Lines [ @@ -1478,7 +1480,7 @@ RSAnimationExamples >> example22Lines [ ^ canvas ] -{ #category : #perlin } +{ #category : 'perlin' } RSAnimationExamples >> example23PerlinNoise [ "inpired by wangyasai Twitter: @yasai_wang" @@ -1531,7 +1533,7 @@ RSAnimationExamples >> example23PerlinNoise [ ^ canvas ] -{ #category : #perlin } +{ #category : 'perlin' } RSAnimationExamples >> example24RoassalPerlinNoise [ > example24RoassalPerlinNoise [ " ] -{ #category : #examples } +{ #category : 'examples' } RSAnimationExamples >> example25AnimationCircle [ > example25AnimationCircle [ ^ canvas ] -{ #category : #lines } +{ #category : 'lines' } RSAnimationExamples >> example26Bezier [ @@ -1779,7 +1781,7 @@ RSAnimationExamples >> example26Bezier [ ^ canvas ] -{ #category : #examples } +{ #category : 'examples' } RSAnimationExamples >> example27RSLocate [ > example27RSLocate [ ^ canvas ] -{ #category : #perlin } +{ #category : 'perlin' } RSAnimationExamples >> example28AlteredWorld [ "base on Gerard Ferrandez source code" @@ -1956,7 +1958,7 @@ RSAnimationExamples >> example28AlteredWorld [ ^ canvas ] -{ #category : #examples } +{ #category : 'examples' } RSAnimationExamples >> example29Tick [ @@ -2019,7 +2021,7 @@ RSAnimationExamples >> example29Tick [ ^ c ] -{ #category : #perlin } +{ #category : 'perlin' } RSAnimationExamples >> example30Perlin [ @@ -2098,7 +2100,7 @@ RSAnimationExamples >> example30Perlin [ ^ canvas ] -{ #category : #examples } +{ #category : 'examples' } RSAnimationExamples >> example31RoundRectangles [ "example inspired in paper.js" @@ -2141,7 +2143,7 @@ RSAnimationExamples >> example31RoundRectangles [ ^ canvas ] -{ #category : #examples } +{ #category : 'examples' } RSAnimationExamples >> example32SimpleClock [ > example32SimpleClock [ ^ canvas ] -{ #category : #examples } +{ #category : 'examples' } RSAnimationExamples >> example33AnimatedLayout [ > example33AnimatedLayout [ ^ c ] -{ #category : #examples } +{ #category : 'examples' } RSAnimationExamples >> example34ForceLayout [ | c classes layout | @@ -2308,7 +2310,7 @@ RSAnimationExamples >> example34ForceLayout [ ^ c ] -{ #category : #examples } +{ #category : 'examples' } RSAnimationExamples >> example35Roassal [ @@ -2387,7 +2389,7 @@ RSAnimationExamples >> example35Roassal [ ^ canvas ] -{ #category : #examples } +{ #category : 'examples' } RSAnimationExamples >> example36Title [ @@ -2515,7 +2517,7 @@ for Pharo 8 and Pharo 9.'. "TODO add animation to line3 and line4, hide and remove with animation these elements" ] -{ #category : #examples } +{ #category : 'examples' } RSAnimationExamples >> example37RectangleForceLayout [ @@ -2561,7 +2563,7 @@ RSAnimationExamples >> example37RectangleForceLayout [ ^ canvas ] -{ #category : #perlin } +{ #category : 'perlin' } RSAnimationExamples >> example38PerlinRose [ > example38PerlinRose [ ^ canvas ] -{ #category : #perlin } +{ #category : 'perlin' } RSAnimationExamples >> example39Duna [ | canvas extent num color noiseScale perlin c particles | @@ -2650,7 +2652,7 @@ RSAnimationExamples >> example39Duna [ ^ canvas ] -{ #category : #examples } +{ #category : 'examples' } RSAnimationExamples >> example40Circles [ @@ -2730,7 +2732,7 @@ RSAnimationExamples >> example40Circles [ ^ canvas ] -{ #category : #perlin } +{ #category : 'perlin' } RSAnimationExamples >> example41River [ > example41River [ ^ c ] -{ #category : #lines } +{ #category : 'lines' } RSAnimationExamples >> example42OneLine [ | canvas line ang1 ang2 radio x1 y1 x2 y2 | @@ -2831,7 +2833,7 @@ RSAnimationExamples >> example42OneLine [ ^ canvas ] -{ #category : #lines } +{ #category : 'lines' } RSAnimationExamples >> example43Waves [ > example43Waves [ ^ canvas ] -{ #category : #perlin } +{ #category : 'perlin' } RSAnimationExamples >> example44A [ " @@ -2917,7 +2919,7 @@ c svgExporter export" ^ canvas ] -{ #category : #perlin } +{ #category : 'perlin' } RSAnimationExamples >> example45Beziers [ @@ -3139,7 +3141,7 @@ RSAnimationExamples >> example45Beziers [ ^ c ] -{ #category : #perlin } +{ #category : 'perlin' } RSAnimationExamples >> example46Lines [ @@ -3232,7 +3234,7 @@ RSAnimationExamples >> example46Lines [ ^ c ] -{ #category : #perlin } +{ #category : 'perlin' } RSAnimationExamples >> example47FractalTree [ @@ -3284,7 +3286,7 @@ RSAnimationExamples >> example47FractalTree [ ^ canvas ] -{ #category : #accessing } +{ #category : 'accessing' } RSAnimationExamples >> order [ ^ 1000 ] diff --git a/src/Roassal-Examples/RSArrowedLine.extension.st b/src/Roassal-Examples/RSArrowedLine.extension.st index 53297721..1c1b32e2 100644 --- a/src/Roassal-Examples/RSArrowedLine.extension.st +++ b/src/Roassal-Examples/RSArrowedLine.extension.st @@ -1,6 +1,6 @@ -Extension { #name : #RSArrowedLine } +Extension { #name : 'RSArrowedLine' } -{ #category : #'*Roassal-Examples' } +{ #category : '*Roassal-Examples' } RSArrowedLine class >> exampleArrow [ | arrow | arrow := self new. diff --git a/src/Roassal-Examples/RSBasicAnimationExamples.class.st b/src/Roassal-Examples/RSBasicAnimationExamples.class.st index 2ad91b6c..a1c9bfb9 100644 --- a/src/Roassal-Examples/RSBasicAnimationExamples.class.st +++ b/src/Roassal-Examples/RSBasicAnimationExamples.class.st @@ -2,12 +2,14 @@ I have basic animation examples " Class { - #name : #RSBasicAnimationExamples, - #superclass : #RSAbstractExamples, - #category : 'Roassal-Examples-Basic' + #name : 'RSBasicAnimationExamples', + #superclass : 'RSAbstractExamples', + #category : 'Roassal-Examples-Basic', + #package : 'Roassal-Examples', + #tag : 'Basic' } -{ #category : #examples } +{ #category : 'examples' } RSBasicAnimationExamples >> example01Basic [ @@ -40,7 +42,7 @@ RSBasicAnimationExamples >> example01Basic [ ^ c ] -{ #category : #examples } +{ #category : 'examples' } RSBasicAnimationExamples >> example02Sequential [ @@ -74,7 +76,7 @@ RSBasicAnimationExamples >> example02Sequential [ ^ c ] -{ #category : #examples } +{ #category : 'examples' } RSBasicAnimationExamples >> example03Ramp [ @@ -101,7 +103,7 @@ RSBasicAnimationExamples >> example03Ramp [ ^ c ] -{ #category : #lines } +{ #category : 'lines' } RSBasicAnimationExamples >> example04DashAnimation [ @@ -137,7 +139,7 @@ RSBasicAnimationExamples >> example04DashAnimation [ ^ c ] -{ #category : #lines } +{ #category : 'lines' } RSBasicAnimationExamples >> example05LoopEvent [ @@ -160,7 +162,7 @@ RSBasicAnimationExamples >> example05LoopEvent [ ^ canvas ] -{ #category : #lines } +{ #category : 'lines' } RSBasicAnimationExamples >> example06Parallel [ @@ -206,7 +208,7 @@ RSBasicAnimationExamples >> example06Parallel [ ^ canvas ] -{ #category : #lines } +{ #category : 'lines' } RSBasicAnimationExamples >> example07CornerRadius [ | c paint b from to | @@ -236,7 +238,7 @@ RSBasicAnimationExamples >> example07CornerRadius [ ^ c ] -{ #category : #lines } +{ #category : 'lines' } RSBasicAnimationExamples >> example08Markers [ | canvas line radius marker red | @@ -285,7 +287,7 @@ RSBasicAnimationExamples >> example08Markers [ ^ canvas ] -{ #category : #lines } +{ #category : 'lines' } RSBasicAnimationExamples >> example09Easing [ | canvas radius numberOfCircles circles innerRadius | @@ -326,7 +328,7 @@ RSBasicAnimationExamples >> example09Easing [ ^ canvas ] -{ #category : #lines } +{ #category : 'lines' } RSBasicAnimationExamples >> example10Scales [ @@ -457,7 +459,7 @@ RSBasicAnimationExamples >> example10Scales [ ^ c ] -{ #category : #accessing } +{ #category : 'accessing' } RSBasicAnimationExamples >> order [ ^ 10 ] diff --git a/src/Roassal-Examples/RSBasicShapeExamples.class.st b/src/Roassal-Examples/RSBasicShapeExamples.class.st index 86eb6ddd..cec0e518 100644 --- a/src/Roassal-Examples/RSBasicShapeExamples.class.st +++ b/src/Roassal-Examples/RSBasicShapeExamples.class.st @@ -2,12 +2,14 @@ I have the basic examples for shapes " Class { - #name : #RSBasicShapeExamples, - #superclass : #RSAbstractExamples, - #category : 'Roassal-Examples-Basic' + #name : 'RSBasicShapeExamples', + #superclass : 'RSAbstractExamples', + #category : 'Roassal-Examples-Basic', + #package : 'Roassal-Examples', + #tag : 'Basic' } -{ #category : #'boxes and ellipses' } +{ #category : 'boxes and ellipses' } RSBasicShapeExamples >> example01BasicBoxes [ | c | @@ -23,7 +25,7 @@ RSBasicShapeExamples >> example01BasicBoxes [ ^ c ] -{ #category : #'boxes and ellipses' } +{ #category : 'boxes and ellipses' } RSBasicShapeExamples >> example02BasicEllipses [ @@ -40,7 +42,7 @@ RSBasicShapeExamples >> example02BasicEllipses [ ^ c ] -{ #category : #composite } +{ #category : 'composite' } RSBasicShapeExamples >> example03BasicComposite [ | c com | @@ -70,7 +72,7 @@ RSBasicShapeExamples >> example03BasicComposite [ ^ c ] -{ #category : #composite } +{ #category : 'composite' } RSBasicShapeExamples >> example04BasicComposite [ | c com | @@ -102,7 +104,7 @@ RSBasicShapeExamples >> example04BasicComposite [ ^ c ] -{ #category : #'boxes and ellipses' } +{ #category : 'boxes and ellipses' } RSBasicShapeExamples >> example05BasicGroup [ | g | @@ -129,7 +131,7 @@ RSBasicShapeExamples >> example05BasicGroup [ ^ g ] -{ #category : #labels } +{ #category : 'labels' } RSBasicShapeExamples >> example06BasicLabels [ | c label | @@ -165,7 +167,7 @@ RSBasicShapeExamples >> example06BasicLabels [ ^ c ] -{ #category : #events } +{ #category : 'events' } RSBasicShapeExamples >> example07EventsMouseMoveDrag [ @@ -192,7 +194,7 @@ RSBasicShapeExamples >> example07EventsMouseMoveDrag [ ^ c ] -{ #category : #'boxes and ellipses' } +{ #category : 'boxes and ellipses' } RSBasicShapeExamples >> example08EllipseBorder [ | c y r | @@ -220,7 +222,7 @@ RSBasicShapeExamples >> example08EllipseBorder [ ^ c ] -{ #category : #events } +{ #category : 'events' } RSBasicShapeExamples >> example09MouseStep [ @@ -251,7 +253,7 @@ RSBasicShapeExamples >> example09MouseStep [ ^ c ] -{ #category : #events } +{ #category : 'events' } RSBasicShapeExamples >> example10EllipseMouseMove [ @@ -283,7 +285,7 @@ RSBasicShapeExamples >> example10EllipseMouseMove [ ^ c ] -{ #category : #events } +{ #category : 'events' } RSBasicShapeExamples >> example11ScaleMouseDistance [ @@ -332,7 +334,7 @@ RSBasicShapeExamples >> example11ScaleMouseDistance [ ^ c ] -{ #category : #lines } +{ #category : 'lines' } RSBasicShapeExamples >> example12BasicLine [ @@ -369,7 +371,7 @@ RSBasicShapeExamples >> example12BasicLine [ ^ c ] -{ #category : #bitmap } +{ #category : 'bitmap' } RSBasicShapeExamples >> example14BasicBitmap [ @@ -382,7 +384,7 @@ RSBasicShapeExamples >> example14BasicBitmap [ ^ c ] -{ #category : #'boxes and ellipses' } +{ #category : 'boxes and ellipses' } RSBasicShapeExamples >> example15BasicRoundBoxes [ @@ -401,7 +403,7 @@ RSBasicShapeExamples >> example15BasicRoundBoxes [ ^ c ] -{ #category : #border } +{ #category : 'border' } RSBasicShapeExamples >> example17Borders [ | c | @@ -427,7 +429,7 @@ RSBasicShapeExamples >> example17Borders [ ^ c ] -{ #category : #arcs } +{ #category : 'arcs' } RSBasicShapeExamples >> example18BasicPieSlice [ | c | @@ -443,7 +445,7 @@ RSBasicShapeExamples >> example18BasicPieSlice [ ^ c ] -{ #category : #arcs } +{ #category : 'arcs' } RSBasicShapeExamples >> example19PieSlice [ | c | @@ -458,7 +460,7 @@ RSBasicShapeExamples >> example19PieSlice [ ^ c ] -{ #category : #arcs } +{ #category : 'arcs' } RSBasicShapeExamples >> example20Donut [ | c | @@ -473,7 +475,7 @@ RSBasicShapeExamples >> example20Donut [ ^ c ] -{ #category : #arcs } +{ #category : 'arcs' } RSBasicShapeExamples >> example21CornerRadii [ | c | @@ -488,7 +490,7 @@ RSBasicShapeExamples >> example21CornerRadii [ ^ c ] -{ #category : #arcs } +{ #category : 'arcs' } RSBasicShapeExamples >> example22BasicPieSlice [ | c | @@ -501,7 +503,7 @@ RSBasicShapeExamples >> example22BasicPieSlice [ ^ c ] -{ #category : #'boxes and ellipses' } +{ #category : 'boxes and ellipses' } RSBasicShapeExamples >> example23FixedShape [ | c box | @@ -522,7 +524,7 @@ RSBasicShapeExamples >> example23FixedShape [ ^ c ] -{ #category : #lines } +{ #category : 'lines' } RSBasicShapeExamples >> example24Polyline [ | c | @@ -537,7 +539,7 @@ RSBasicShapeExamples >> example24Polyline [ ^ c ] -{ #category : #labels } +{ #category : 'labels' } RSBasicShapeExamples >> example25LabelWithBorder [ | c | @@ -553,7 +555,7 @@ RSBasicShapeExamples >> example25LabelWithBorder [ ^ c ] -{ #category : #polygons } +{ #category : 'polygons' } RSBasicShapeExamples >> example26Polygon [ @@ -579,7 +581,7 @@ RSBasicShapeExamples >> example26Polygon [ ^ c ] -{ #category : #lines } +{ #category : 'lines' } RSBasicShapeExamples >> example27Markers [ | c arrow axes circle dataLine | @@ -607,7 +609,7 @@ RSBasicShapeExamples >> example27Markers [ ^ c ] -{ #category : #lines } +{ #category : 'lines' } RSBasicShapeExamples >> example29PolylineRadius [ | c | @@ -620,7 +622,7 @@ RSBasicShapeExamples >> example29PolylineRadius [ ^ c ] -{ #category : #polygons } +{ #category : 'polygons' } RSBasicShapeExamples >> example30PolygonWithRadius [ @@ -647,7 +649,7 @@ RSBasicShapeExamples >> example30PolygonWithRadius [ ^ c ] -{ #category : #'boxes and ellipses' } +{ #category : 'boxes and ellipses' } RSBasicShapeExamples >> example31BorderAttachPointWithOffset [ | c s1 s2| @@ -673,7 +675,7 @@ RSBasicShapeExamples >> example31BorderAttachPointWithOffset [ ^ c ] -{ #category : #events } +{ #category : 'events' } RSBasicShapeExamples >> example32RotateShapeByMouse [ | c s | @@ -687,7 +689,7 @@ RSBasicShapeExamples >> example32RotateShapeByMouse [ ^ c ] -{ #category : #lines } +{ #category : 'lines' } RSBasicShapeExamples >> example33EdgesBetweenChildren [ | c b1 b2 e1 com1 com2 | @@ -716,7 +718,7 @@ RSBasicShapeExamples >> example33EdgesBetweenChildren [ ^ c ] -{ #category : #composite } +{ #category : 'composite' } RSBasicShapeExamples >> example34PaletteVisualization [ | c colors shapes compo label composites paletteObject | @@ -751,7 +753,7 @@ RSBasicShapeExamples >> example34PaletteVisualization [ ^ c ] -{ #category : #events } +{ #category : 'events' } RSBasicShapeExamples >> example35KeyEvents [ > example35KeyEvents [ ^ c ] -{ #category : #polygons } +{ #category : 'polygons' } RSBasicShapeExamples >> example36PolygonAndCanvas [ | coords canvas int | @@ -832,7 +834,7 @@ RSBasicShapeExamples >> example36PolygonAndCanvas [ ^ canvas ] -{ #category : #polygons } +{ #category : 'polygons' } RSBasicShapeExamples >> example37AngleDirection [ | canvas slice magic | @@ -886,7 +888,7 @@ RSBasicShapeExamples >> example37AngleDirection [ ^ canvas ] -{ #category : #shapes } +{ #category : 'shapes' } RSBasicShapeExamples >> example38Interaction [ @@ -932,7 +934,7 @@ RSBasicShapeExamples >> example38Interaction [ ^ canvas ] -{ #category : #shapes } +{ #category : 'shapes' } RSBasicShapeExamples >> example39YikigeiAnimated [ @@ -958,7 +960,7 @@ RSBasicShapeExamples >> example39YikigeiAnimated [ ^ c ] -{ #category : #shapes } +{ #category : 'shapes' } RSBasicShapeExamples >> example40ColorScale [ | color canvas popup shapes | @@ -990,7 +992,7 @@ RSBasicShapeExamples >> example40ColorScale [ ^ canvas ] -{ #category : #lines } +{ #category : 'lines' } RSBasicShapeExamples >> example41PopupAndMarkers [ | line marker canvas | @@ -1005,7 +1007,7 @@ RSBasicShapeExamples >> example41PopupAndMarkers [ ^ canvas ] -{ #category : #lines } +{ #category : 'lines' } RSBasicShapeExamples >> example42GhostDraggable [ | canvas b1 b2 | @@ -1027,7 +1029,7 @@ RSBasicShapeExamples >> example42GhostDraggable [ ^ canvas ] -{ #category : #lines } +{ #category : 'lines' } RSBasicShapeExamples >> example43ShortestAttachPoint [ | canvas numbers marker | @@ -1070,7 +1072,7 @@ RSBasicShapeExamples >> example43ShortestAttachPoint [ ^ canvas ] -{ #category : #lines } +{ #category : 'lines' } RSBasicShapeExamples >> example44AA [ @@ -1113,7 +1115,7 @@ RSBasicShapeExamples >> example44AA [ ^ canvas ] -{ #category : #lines } +{ #category : 'lines' } RSBasicShapeExamples >> example45RTree30KShapes [ @@ -1140,7 +1142,7 @@ RSBasicShapeExamples >> example45RTree30KShapes [ ^ canvas ] -{ #category : #lines } +{ #category : 'lines' } RSBasicShapeExamples >> example46ExampleRTreeInComposites [ @@ -1177,7 +1179,7 @@ RSBasicShapeExamples >> example46ExampleRTreeInComposites [ ^ canvas ] -{ #category : #lines } +{ #category : 'lines' } RSBasicShapeExamples >> example47ExampleRTreeWithOverlapping [ @@ -1203,7 +1205,7 @@ RSBasicShapeExamples >> example47ExampleRTreeWithOverlapping [ ^ canvas ] -{ #category : #accessing } +{ #category : 'accessing' } RSBasicShapeExamples >> order [ ^ 0 ] diff --git a/src/Roassal-Examples/RSBezier.extension.st b/src/Roassal-Examples/RSBezier.extension.st index 95e9697a..4a765bc4 100644 --- a/src/Roassal-Examples/RSBezier.extension.st +++ b/src/Roassal-Examples/RSBezier.extension.st @@ -1,6 +1,6 @@ -Extension { #name : #RSBezier } +Extension { #name : 'RSBezier' } -{ #category : #'*Roassal-Examples' } +{ #category : '*Roassal-Examples' } RSBezier class >> exampleBezier [ | bezier | bezier := self new. @@ -8,7 +8,7 @@ RSBezier class >> exampleBezier [ ^ (Smalltalk tools inspector inspect: bezier) window ] -{ #category : #'*Roassal-Examples' } +{ #category : '*Roassal-Examples' } RSBezier class >> exampleControlPointsController [ | bezier controller points | bezier := self new. diff --git a/src/Roassal-Examples/RSBitmap.extension.st b/src/Roassal-Examples/RSBitmap.extension.st index 2c591348..65dd9fcf 100644 --- a/src/Roassal-Examples/RSBitmap.extension.st +++ b/src/Roassal-Examples/RSBitmap.extension.st @@ -1,6 +1,6 @@ -Extension { #name : #RSBitmap } +Extension { #name : 'RSBitmap' } -{ #category : #'*Roassal-Examples' } +{ #category : '*Roassal-Examples' } RSBitmap class >> example [ | image | image := self new. diff --git a/src/Roassal-Examples/RSBlink.extension.st b/src/Roassal-Examples/RSBlink.extension.st index 4f5f3159..13853231 100644 --- a/src/Roassal-Examples/RSBlink.extension.st +++ b/src/Roassal-Examples/RSBlink.extension.st @@ -1,6 +1,6 @@ -Extension { #name : #RSBlink } +Extension { #name : 'RSBlink' } -{ #category : #'*Roassal-Examples' } +{ #category : '*Roassal-Examples' } RSBlink class >> example [ | canvas shapes | diff --git a/src/Roassal-Examples/RSBox.extension.st b/src/Roassal-Examples/RSBox.extension.st index d2605fb1..568b5c9d 100644 --- a/src/Roassal-Examples/RSBox.extension.st +++ b/src/Roassal-Examples/RSBox.extension.st @@ -1,6 +1,6 @@ -Extension { #name : #RSBox } +Extension { #name : 'RSBox' } -{ #category : #'*Roassal-Examples' } +{ #category : '*Roassal-Examples' } RSBox class >> example [ | box | box := self new. diff --git a/src/Roassal-Examples/RSCanvasController.extension.st b/src/Roassal-Examples/RSCanvasController.extension.st index 6061bd18..d14515a8 100644 --- a/src/Roassal-Examples/RSCanvasController.extension.st +++ b/src/Roassal-Examples/RSCanvasController.extension.st @@ -1,6 +1,6 @@ -Extension { #name : #RSCanvasController } +Extension { #name : 'RSCanvasController' } -{ #category : #'*Roassal-Examples' } +{ #category : '*Roassal-Examples' } RSCanvasController class >> exampleNoLegend [ | canvas int | canvas := RSCanvas new. diff --git a/src/Roassal-Examples/RSCellLayout.extension.st b/src/Roassal-Examples/RSCellLayout.extension.st index 948fecbb..52356439 100644 --- a/src/Roassal-Examples/RSCellLayout.extension.st +++ b/src/Roassal-Examples/RSCellLayout.extension.st @@ -1,6 +1,6 @@ -Extension { #name : #RSCellLayout } +Extension { #name : 'RSCellLayout' } -{ #category : #'*Roassal-Examples' } +{ #category : '*Roassal-Examples' } RSCellLayout class >> example1 [ | c shapes | c := RSCanvas new. @@ -12,7 +12,7 @@ RSCellLayout class >> example1 [ ^ c open ] -{ #category : #'*Roassal-Examples' } +{ #category : '*Roassal-Examples' } RSCellLayout class >> example2 [ | c shapes | c := RSCanvas new. @@ -27,7 +27,7 @@ RSCellLayout class >> example2 [ ^ c open ] -{ #category : #'*Roassal-Examples' } +{ #category : '*Roassal-Examples' } RSCellLayout class >> example3 [ | c shapes | c := RSCanvas new. diff --git a/src/Roassal-Examples/RSClusteringLayout.extension.st b/src/Roassal-Examples/RSClusteringLayout.extension.st index 2245a04b..5f249a55 100644 --- a/src/Roassal-Examples/RSClusteringLayout.extension.st +++ b/src/Roassal-Examples/RSClusteringLayout.extension.st @@ -1,6 +1,6 @@ -Extension { #name : #RSClusteringLayout } +Extension { #name : 'RSClusteringLayout' } -{ #category : #'*Roassal-Examples' } +{ #category : '*Roassal-Examples' } RSClusteringLayout class >> exampleMondrian [ | m nodes | m := RSMondrian new. @@ -22,7 +22,7 @@ RSClusteringLayout class >> exampleMondrian [ ^ m canvas open ] -{ #category : #'*Roassal-Examples' } +{ #category : '*Roassal-Examples' } RSClusteringLayout class >> exampleNumbers [ | m nodes | m := RSMondrian new. diff --git a/src/Roassal-Examples/RSConditionalLayout.extension.st b/src/Roassal-Examples/RSConditionalLayout.extension.st index eebf58b0..38bd5e71 100644 --- a/src/Roassal-Examples/RSConditionalLayout.extension.st +++ b/src/Roassal-Examples/RSConditionalLayout.extension.st @@ -1,6 +1,6 @@ -Extension { #name : #RSConditionalLayout } +Extension { #name : 'RSConditionalLayout' } -{ #category : #'*Roassal-Examples' } +{ #category : '*Roassal-Examples' } RSConditionalLayout class >> createCanvas [ | classes shapes c eb | classes := Collection allSubclasses. @@ -17,7 +17,7 @@ RSConditionalLayout class >> createCanvas [ ^ c ] -{ #category : #'*Roassal-Examples' } +{ #category : '*Roassal-Examples' } RSConditionalLayout class >> exampleCollection [ | c | c := self createCanvas. @@ -28,7 +28,7 @@ RSConditionalLayout class >> exampleCollection [ ^ c open ] -{ #category : #'*Roassal-Examples' } +{ #category : '*Roassal-Examples' } RSConditionalLayout class >> exampleCollection2 [ | c | c := self createCanvas. diff --git a/src/Roassal-Examples/RSControlConfiguration.extension.st b/src/Roassal-Examples/RSControlConfiguration.extension.st index 53ab5bca..9a468cd4 100644 --- a/src/Roassal-Examples/RSControlConfiguration.extension.st +++ b/src/Roassal-Examples/RSControlConfiguration.extension.st @@ -1,6 +1,6 @@ -Extension { #name : #RSControlConfiguration } +Extension { #name : 'RSControlConfiguration' } -{ #category : #'*Roassal-Examples' } +{ #category : '*Roassal-Examples' } RSControlConfiguration class >> example1 [ | c controller | c := RSCanvas new. @@ -10,7 +10,7 @@ RSControlConfiguration class >> example1 [ ^ c open ] -{ #category : #'*Roassal-Examples' } +{ #category : '*Roassal-Examples' } RSControlConfiguration class >> example2 [ | canvas shapes int | canvas := RSCanvas new. diff --git a/src/Roassal-Examples/RSDSMExample.class.st b/src/Roassal-Examples/RSDSMExample.class.st index 633fb57f..66d40adb 100644 --- a/src/Roassal-Examples/RSDSMExample.class.st +++ b/src/Roassal-Examples/RSDSMExample.class.st @@ -41,12 +41,14 @@ RTDSMExample new installTitle: 'EvolutionDSM' ' " Class { - #name : #RSDSMExample, - #superclass : #RSAbstractExamples, - #category : 'Roassal-Examples-DSM' + #name : 'RSDSMExample', + #superclass : 'RSAbstractExamples', + #category : 'Roassal-Examples-DSM', + #package : 'Roassal-Examples', + #tag : 'DSM' } -{ #category : #'example-data' } +{ #category : 'example-data' } RSDSMExample class >> collab [ ^ 'time n1 n2 weight 2005 Lea Lucas 4.0 @@ -259,7 +261,7 @@ RSDSMExample class >> collab [ 2010 Hugo Hugo 1.0' ] -{ #category : #'example-data' } +{ #category : 'example-data' } RSDSMExample class >> gtinspector [ ^ 'time n1 n2 weight 51 GTExample AndreiChis 1 @@ -307,7 +309,7 @@ RSDSMExample class >> gtinspector [ ' ] -{ #category : #sources } +{ #category : 'sources' } RSDSMExample >> example01Numbers [ | dsm | @@ -317,7 +319,7 @@ RSDSMExample >> example01Numbers [ ^ dsm ] -{ #category : #sources } +{ #category : 'sources' } RSDSMExample >> example02Numbers [ | dsm | @@ -328,7 +330,7 @@ RSDSMExample >> example02Numbers [ ^ dsm ] -{ #category : #sources } +{ #category : 'sources' } RSDSMExample >> example03Classes [ | dsm | @@ -340,7 +342,7 @@ RSDSMExample >> example03Classes [ ^ dsm ] -{ #category : #sources } +{ #category : 'sources' } RSDSMExample >> example04Token [ @@ -374,7 +376,7 @@ RSDSMExample >> example04Token [ ^ dsm ] -{ #category : #sources } +{ #category : 'sources' } RSDSMExample >> example05TopLabelRotation [ | dsm v keys | @@ -392,7 +394,7 @@ RSDSMExample >> example05TopLabelRotation [ ^ dsm ] -{ #category : #sources } +{ #category : 'sources' } RSDSMExample >> example06StronglyConnected [ | dsm v keys | @@ -409,7 +411,7 @@ RSDSMExample >> example06StronglyConnected [ ^ dsm ] -{ #category : #sources } +{ #category : 'sources' } RSDSMExample >> example07StronglyConnectedWithClasses [ | classes v keys dsm | @@ -432,7 +434,7 @@ RSDSMExample >> example07StronglyConnectedWithClasses [ ^ dsm ] -{ #category : #sources } +{ #category : 'sources' } RSDSMExample >> example08Heatmap [ | builder | @@ -443,7 +445,7 @@ RSDSMExample >> example08Heatmap [ ^ builder ] -{ #category : #sources } +{ #category : 'sources' } RSDSMExample >> example09HeatmapMonths [ | builder | @@ -472,7 +474,7 @@ RSDSMExample >> example09HeatmapMonths [ ^ builder ] -{ #category : #sources } +{ #category : 'sources' } RSDSMExample >> example10Vegetables [ | vegetables farmers values h | @@ -495,7 +497,7 @@ RSDSMExample >> example10Vegetables [ ^ h ] -{ #category : #sources } +{ #category : 'sources' } RSDSMExample >> example11Heatmap [ | builder | @@ -509,7 +511,7 @@ RSDSMExample >> example11Heatmap [ ^ builder canvas ] -{ #category : #sources } +{ #category : 'sources' } RSDSMExample >> example12Heatmap [ | builder | diff --git a/src/Roassal-Examples/RSDraggable.extension.st b/src/Roassal-Examples/RSDraggable.extension.st index 056a655f..199ba889 100644 --- a/src/Roassal-Examples/RSDraggable.extension.st +++ b/src/Roassal-Examples/RSDraggable.extension.st @@ -1,6 +1,6 @@ -Extension { #name : #RSDraggable } +Extension { #name : 'RSDraggable' } -{ #category : #'*Roassal-Examples' } +{ #category : '*Roassal-Examples' } RSDraggable class >> example [ | canvas | canvas := self canvasExample. diff --git a/src/Roassal-Examples/RSDraggableCanvasInteraction.extension.st b/src/Roassal-Examples/RSDraggableCanvasInteraction.extension.st index 03973748..2848cbef 100644 --- a/src/Roassal-Examples/RSDraggableCanvasInteraction.extension.st +++ b/src/Roassal-Examples/RSDraggableCanvasInteraction.extension.st @@ -1,6 +1,6 @@ -Extension { #name : #RSDraggableCanvasInteraction } +Extension { #name : 'RSDraggableCanvasInteraction' } -{ #category : #'*Roassal-Examples' } +{ #category : '*Roassal-Examples' } RSDraggableCanvasInteraction class >> example [ | canvas interaction | canvas := self canvasExample. @@ -13,7 +13,7 @@ RSDraggableCanvasInteraction class >> example [ ^ canvas open ] -{ #category : #'*Roassal-Examples' } +{ #category : '*Roassal-Examples' } RSDraggableCanvasInteraction class >> exampleOriginTopLeft [ | canvas | canvas := self canvasExample. diff --git a/src/Roassal-Examples/RSEquidistantCircleLayout.extension.st b/src/Roassal-Examples/RSEquidistantCircleLayout.extension.st index fd3ecfa1..d006fabf 100644 --- a/src/Roassal-Examples/RSEquidistantCircleLayout.extension.st +++ b/src/Roassal-Examples/RSEquidistantCircleLayout.extension.st @@ -1,6 +1,6 @@ -Extension { #name : #RSEquidistantCircleLayout } +Extension { #name : 'RSEquidistantCircleLayout' } -{ #category : #'*Roassal-Examples' } +{ #category : '*Roassal-Examples' } RSEquidistantCircleLayout class >> example1 [ | v elements | diff --git a/src/Roassal-Examples/RSExpandingBoxes.class.st b/src/Roassal-Examples/RSExpandingBoxes.class.st index 3d051a17..3e8e5a39 100644 --- a/src/Roassal-Examples/RSExpandingBoxes.class.st +++ b/src/Roassal-Examples/RSExpandingBoxes.class.st @@ -2,24 +2,26 @@ This is a simple example suggested by Nicolas Anquetil " Class { - #name : #RSExpandingBoxes, - #superclass : #RSObject, + #name : 'RSExpandingBoxes', + #superclass : 'RSObject', #instVars : [ 'canvas', 'color', 'base', 'border' ], - #category : 'Roassal-Examples-Experimental' + #category : 'Roassal-Examples-Experimental', + #package : 'Roassal-Examples', + #tag : 'Experimental' } -{ #category : #events } +{ #category : 'events' } RSExpandingBoxes >> close: shape [ shape children copy do: #remove. self update ] -{ #category : #initialization } +{ #category : 'initialization' } RSExpandingBoxes >> initialize [ super initialize. canvas := RSCanvas new. @@ -30,7 +32,7 @@ RSExpandingBoxes >> initialize [ border := RSBorder new ] -{ #category : #helpers } +{ #category : 'helpers' } RSExpandingBoxes >> nodeFor: cls [ | com | com := base copy. @@ -41,7 +43,7 @@ RSExpandingBoxes >> nodeFor: cls [ ^ com ] -{ #category : #events } +{ #category : 'events' } RSExpandingBoxes >> open: shape [ | children | children := shape model subclasses @@ -50,7 +52,7 @@ RSExpandingBoxes >> open: shape [ self update ] -{ #category : #events } +{ #category : 'events' } RSExpandingBoxes >> processEvent: evt [ | shape | shape := evt shape. @@ -59,7 +61,7 @@ RSExpandingBoxes >> processEvent: evt [ ifNotEmpty: [ self close: shape ] ] -{ #category : #updating } +{ #category : 'updating' } RSExpandingBoxes >> relayout: shape [ shape propertyAt: #original put: shape encompassingRectangle. @@ -69,7 +71,7 @@ RSExpandingBoxes >> relayout: shape [ shape padding: 10 ] -{ #category : #running } +{ #category : 'running' } RSExpandingBoxes >> run [ canvas add: (self nodeFor: Collection). @@ -77,13 +79,13 @@ RSExpandingBoxes >> run [ canvas open ] -{ #category : #updating } +{ #category : 'updating' } RSExpandingBoxes >> saveCurrent: shape [ shape children do: [ :s | self saveCurrent: s ]. shape propertyAt: #current put: shape encompassingRectangle ] -{ #category : #updating } +{ #category : 'updating' } RSExpandingBoxes >> scale: shape at: t [ | rect1 rect2 | shape children do: [ :s | self scale: s at: t ]. @@ -97,7 +99,7 @@ RSExpandingBoxes >> scale: shape at: t [ shape extent: (rect1 extent interpolateTo: rect2 extent at: t) ] -{ #category : #updating } +{ #category : 'updating' } RSExpandingBoxes >> update [ | first | first := canvas shapes first. @@ -111,7 +113,7 @@ RSExpandingBoxes >> update [ ] ] -{ #category : #updating } +{ #category : 'updating' } RSExpandingBoxes >> zoomCanvans [ canvas zoomToFit canvas camera scale: 1 diff --git a/src/Roassal-Examples/RSGhostDraggable.extension.st b/src/Roassal-Examples/RSGhostDraggable.extension.st index 36746c1f..b70a5bac 100644 --- a/src/Roassal-Examples/RSGhostDraggable.extension.st +++ b/src/Roassal-Examples/RSGhostDraggable.extension.st @@ -1,6 +1,6 @@ -Extension { #name : #RSGhostDraggable } +Extension { #name : 'RSGhostDraggable' } -{ #category : #'*Roassal-Examples' } +{ #category : '*Roassal-Examples' } RSGhostDraggable class >> example [ | canvas | canvas := self canvasExample. @@ -9,7 +9,7 @@ RSGhostDraggable class >> example [ setLabel: 'Drag and find the ghost' ] -{ #category : #'*Roassal-Examples' } +{ #category : '*Roassal-Examples' } RSGhostDraggable class >> exampleChangeColor [ | canvas int | canvas := self canvasExample. diff --git a/src/Roassal-Examples/RSHighlightable.extension.st b/src/Roassal-Examples/RSHighlightable.extension.st index 897ed257..a93d850d 100644 --- a/src/Roassal-Examples/RSHighlightable.extension.st +++ b/src/Roassal-Examples/RSHighlightable.extension.st @@ -1,6 +1,6 @@ -Extension { #name : #RSHighlightable } +Extension { #name : 'RSHighlightable' } -{ #category : #'*Roassal-Examples' } +{ #category : '*Roassal-Examples' } RSHighlightable class >> example [ | canvas | canvas := self canvasExample. @@ -10,7 +10,7 @@ RSHighlightable class >> example [ yourself ] -{ #category : #'*Roassal-Examples' } +{ #category : '*Roassal-Examples' } RSHighlightable class >> exampleBorder [ | c shapes interaction | c := RSCanvas new. @@ -32,7 +32,7 @@ RSHighlightable class >> exampleBorder [ ^ c open ] -{ #category : #'*Roassal-Examples' } +{ #category : '*Roassal-Examples' } RSHighlightable class >> exampleGrid [ | c shapes interaction | c := RSCanvas new. @@ -49,7 +49,7 @@ RSHighlightable class >> exampleGrid [ ^ c open ] -{ #category : #'*Roassal-Examples' } +{ #category : '*Roassal-Examples' } RSHighlightable class >> exampleGrid2 [ | c shapes interaction | c := RSCanvas new. @@ -66,7 +66,7 @@ RSHighlightable class >> exampleGrid2 [ ^ c open ] -{ #category : #'*Roassal-Examples' } +{ #category : '*Roassal-Examples' } RSHighlightable class >> exampleInteractive [ | classes c shapes buttonReset selectedShapes highlightable lbl buttonInspect g | @@ -134,7 +134,7 @@ RSHighlightable class >> exampleInteractive [ ^ c openOnce ] -{ #category : #'*Roassal-Examples' } +{ #category : '*Roassal-Examples' } RSHighlightable class >> exampleNumbers [ | c shapes lb int | c := RSCanvas new. @@ -156,7 +156,7 @@ RSHighlightable class >> exampleNumbers [ ^ c open ] -{ #category : #'*Roassal-Examples' } +{ #category : '*Roassal-Examples' } RSHighlightable class >> exampleTree [ | c shapes interaction | c := RSCanvas new. diff --git a/src/Roassal-Examples/RSHighlightableExamples.class.st b/src/Roassal-Examples/RSHighlightableExamples.class.st index 621fc799..c797231b 100644 --- a/src/Roassal-Examples/RSHighlightableExamples.class.st +++ b/src/Roassal-Examples/RSHighlightableExamples.class.st @@ -2,12 +2,14 @@ Basic examples about highlighting " Class { - #name : #RSHighlightableExamples, - #superclass : #RSAbstractExamples, - #category : 'Roassal-Examples-Basic' + #name : 'RSHighlightableExamples', + #superclass : 'RSAbstractExamples', + #category : 'Roassal-Examples-Basic', + #package : 'Roassal-Examples', + #tag : 'Basic' } -{ #category : #examples } +{ #category : 'examples' } RSHighlightableExamples >> example01Basic [ | canvas shapes color | @@ -35,7 +37,7 @@ RSHighlightableExamples >> example01Basic [ ^ canvas ] -{ #category : #examples } +{ #category : 'examples' } RSHighlightableExamples >> example02ElementEdges [ | canvas shapes interaction color | @@ -65,7 +67,7 @@ RSHighlightableExamples >> example02ElementEdges [ ^ canvas ] -{ #category : #'examples - animated' } +{ #category : 'examples - animated' } RSHighlightableExamples >> example03Interactive [ @@ -102,7 +104,7 @@ RSHighlightableExamples >> example03Interactive [ ^ canvas ] -{ #category : #'examples - animated' } +{ #category : 'examples - animated' } RSHighlightableExamples >> example04Interactive [ @@ -141,7 +143,7 @@ RSHighlightableExamples >> example04Interactive [ ^ canvas ] -{ #category : #examples } +{ #category : 'examples' } RSHighlightableExamples >> example05Border [ | canvas shapes interaction color | @@ -170,7 +172,7 @@ RSHighlightableExamples >> example05Border [ ^ canvas ] -{ #category : #examples } +{ #category : 'examples' } RSHighlightableExamples >> example06IterateNext [ @@ -257,7 +259,7 @@ RSHighlightableExamples >> example06IterateNext [ ^ canvas ] -{ #category : #examples } +{ #category : 'examples' } RSHighlightableExamples >> example07HighlightButtons [ @@ -293,7 +295,7 @@ RSHighlightableExamples >> example07HighlightButtons [ ^ canvas ] -{ #category : #examples } +{ #category : 'examples' } RSHighlightableExamples >> example08DependendMethods [ @@ -377,7 +379,7 @@ RSHighlightableExamples >> example08DependendMethods [ ^ canvas ] -{ #category : #examples } +{ #category : 'examples' } RSHighlightableExamples >> example09ArrowedLines [ | canvas interaction color shapes | @@ -411,7 +413,7 @@ RSHighlightableExamples >> example09ArrowedLines [ ^ canvas ] -{ #category : #elastic } +{ #category : 'elastic' } RSHighlightableExamples >> example10ElasticBox [ @@ -448,7 +450,7 @@ RSHighlightableExamples >> example10ElasticBox [ ^ canvas ] -{ #category : #elastic } +{ #category : 'elastic' } RSHighlightableExamples >> example11ElasticBoxWithCustomDraggable [ @@ -499,7 +501,7 @@ RSHighlightableExamples >> example11ElasticBoxWithCustomDraggable [ ^ canvas ] -{ #category : #elastic } +{ #category : 'elastic' } RSHighlightableExamples >> example12ShowingEdges [ | canvas shapes color interaction cpController| @@ -541,7 +543,7 @@ RSHighlightableExamples >> example12ShowingEdges [ ^ canvas ] -{ #category : #elastic } +{ #category : 'elastic' } RSHighlightableExamples >> example13Click [ diff --git a/src/Roassal-Examples/RSInspectableExample.class.st b/src/Roassal-Examples/RSInspectableExample.class.st index 418fdf2f..ccd0d563 100644 --- a/src/Roassal-Examples/RSInspectableExample.class.st +++ b/src/Roassal-Examples/RSInspectableExample.class.st @@ -2,12 +2,14 @@ I have examples of different ways to inspect views an objects in Roassal " Class { - #name : #RSInspectableExample, - #superclass : #RSAbstractExamples, - #category : 'Roassal-Examples-Basic' + #name : 'RSInspectableExample', + #superclass : 'RSAbstractExamples', + #category : 'Roassal-Examples-Basic', + #package : 'Roassal-Examples', + #tag : 'Basic' } -{ #category : #examples } +{ #category : 'examples' } RSInspectableExample >> example01SimpleExample [ | canvas boxes inspectable highligtable | @@ -40,7 +42,7 @@ RSInspectableExample >> example01SimpleExample [ ^ canvas ] -{ #category : #examples } +{ #category : 'examples' } RSInspectableExample >> example02Inspect [ @@ -98,13 +100,13 @@ RSInspectableExample >> example02Inspect [ ^ canvas ] -{ #category : #examples } +{ #category : 'examples' } RSInspectableExample >> example03Easing [ ^ RSEasingInterpolator bounceOut ] -{ #category : #examples } +{ #category : 'examples' } RSInspectableExample >> example04ChagingContext [ | c context int | diff --git a/src/Roassal-Examples/RSKeepCanvasPositionCanvasInteraction.extension.st b/src/Roassal-Examples/RSKeepCanvasPositionCanvasInteraction.extension.st index 7fc415d4..57d92ba5 100644 --- a/src/Roassal-Examples/RSKeepCanvasPositionCanvasInteraction.extension.st +++ b/src/Roassal-Examples/RSKeepCanvasPositionCanvasInteraction.extension.st @@ -1,6 +1,6 @@ -Extension { #name : #RSKeepCanvasPositionCanvasInteraction } +Extension { #name : 'RSKeepCanvasPositionCanvasInteraction' } -{ #category : #'*Roassal-Examples' } +{ #category : '*Roassal-Examples' } RSKeepCanvasPositionCanvasInteraction class >> example [ | canvas window | canvas := self canvasExample. diff --git a/src/Roassal-Examples/RSKeyNavigationCanvasInteraction.extension.st b/src/Roassal-Examples/RSKeyNavigationCanvasInteraction.extension.st index 239ef8bf..ceb75515 100644 --- a/src/Roassal-Examples/RSKeyNavigationCanvasInteraction.extension.st +++ b/src/Roassal-Examples/RSKeyNavigationCanvasInteraction.extension.st @@ -1,6 +1,6 @@ -Extension { #name : #RSKeyNavigationCanvasInteraction } +Extension { #name : 'RSKeyNavigationCanvasInteraction' } -{ #category : #'*Roassal-Examples' } +{ #category : '*Roassal-Examples' } RSKeyNavigationCanvasInteraction class >> example [ | canvas | canvas := self canvasExample. @@ -11,7 +11,7 @@ RSKeyNavigationCanvasInteraction class >> example [ yourself ] -{ #category : #'*Roassal-Examples' } +{ #category : '*Roassal-Examples' } RSKeyNavigationCanvasInteraction class >> exampleNoHorizontalScroll [ | canvas interaction | canvas := self canvasExample. @@ -24,7 +24,7 @@ RSKeyNavigationCanvasInteraction class >> exampleNoHorizontalScroll [ yourself ] -{ #category : #'*Roassal-Examples' } +{ #category : '*Roassal-Examples' } RSKeyNavigationCanvasInteraction class >> exampleNoVerticalScroll [ | canvas interaction | canvas := self canvasExample. diff --git a/src/Roassal-Examples/RSLabeled.extension.st b/src/Roassal-Examples/RSLabeled.extension.st index f5631443..dcb8adfd 100644 --- a/src/Roassal-Examples/RSLabeled.extension.st +++ b/src/Roassal-Examples/RSLabeled.extension.st @@ -1,6 +1,6 @@ -Extension { #name : #RSLabeled } +Extension { #name : 'RSLabeled' } -{ #category : #'*Roassal-Examples' } +{ #category : '*Roassal-Examples' } RSLabeled class >> exampleBoxes [ | c shapes | c := RSCanvas new. @@ -22,7 +22,7 @@ RSLabeled class >> exampleBoxes [ ^ c open ] -{ #category : #'*Roassal-Examples' } +{ #category : '*Roassal-Examples' } RSLabeled class >> exampleLabeledHighlightable [ | c shapes | c := RSCanvas new. diff --git a/src/Roassal-Examples/RSLayout.extension.st b/src/Roassal-Examples/RSLayout.extension.st index a1dbefb7..3fc56fd5 100644 --- a/src/Roassal-Examples/RSLayout.extension.st +++ b/src/Roassal-Examples/RSLayout.extension.st @@ -1,16 +1,16 @@ -Extension { #name : #RSLayout } +Extension { #name : 'RSLayout' } -{ #category : #'*Roassal-Examples' } +{ #category : '*Roassal-Examples' } RSLayout class >> example1 [ ^ RSGridLayout basicExample ] -{ #category : #'*Roassal-Examples' } +{ #category : '*Roassal-Examples' } RSLayout class >> example2 [ ^ RSTreeLayout basicExample ] -{ #category : #'*Roassal-Examples' } +{ #category : '*Roassal-Examples' } RSLayout class >> example3 [ ^ RSVerticalLineLayout basicExample ] diff --git a/src/Roassal-Examples/RSLayoutExamples.class.st b/src/Roassal-Examples/RSLayoutExamples.class.st index 91040f9e..4faf3324 100644 --- a/src/Roassal-Examples/RSLayoutExamples.class.st +++ b/src/Roassal-Examples/RSLayoutExamples.class.st @@ -2,12 +2,14 @@ I use the RSShapeBuilder " Class { - #name : #RSLayoutExamples, - #superclass : #RSAbstractExamples, - #category : 'Roassal-Examples-Basic' + #name : 'RSLayoutExamples', + #superclass : 'RSAbstractExamples', + #category : 'Roassal-Examples-Basic', + #package : 'Roassal-Examples', + #tag : 'Basic' } -{ #category : #layouts } +{ #category : 'layouts' } RSLayoutExamples >> example01LayoutBasic [ @@ -28,7 +30,7 @@ RSLayoutExamples >> example01LayoutBasic [ ^ canvas ] -{ #category : #layouts } +{ #category : 'layouts' } RSLayoutExamples >> example02Grid [ @@ -44,7 +46,7 @@ RSLayoutExamples >> example02Grid [ ^ canvas ] -{ #category : #layouts } +{ #category : 'layouts' } RSLayoutExamples >> example03LayoutColorFadingBasic [ @@ -66,7 +68,7 @@ RSLayoutExamples >> example03LayoutColorFadingBasic [ ^ canvas ] -{ #category : #layouts } +{ #category : 'layouts' } RSLayoutExamples >> example04LayoutColorFadingBasic2 [ @@ -89,7 +91,7 @@ RSLayoutExamples >> example04LayoutColorFadingBasic2 [ ^ canvas ] -{ #category : #layouts } +{ #category : 'layouts' } RSLayoutExamples >> example05LayoutBasicWithColorFading [ | canvas shapes minAndMax color | @@ -112,7 +114,7 @@ RSLayoutExamples >> example05LayoutBasicWithColorFading [ ^ canvas ] -{ #category : #layouts } +{ #category : 'layouts' } RSLayoutExamples >> example06TreeLayout [ | c shapes eb | @@ -143,7 +145,7 @@ RSLayoutExamples >> example06TreeLayout [ ^ c ] -{ #category : #lines } +{ #category : 'lines' } RSLayoutExamples >> example07ForceBasedLayout [ | c shapes eb | @@ -178,7 +180,7 @@ RSLayoutExamples >> example07ForceBasedLayout [ ^ c ] -{ #category : #lines } +{ #category : 'lines' } RSLayoutExamples >> example08HorizontalTree [ | c shapes | @@ -214,7 +216,7 @@ RSLayoutExamples >> example08HorizontalTree [ ^ c ] -{ #category : #lines } +{ #category : 'lines' } RSLayoutExamples >> example09BorderAttachPoint [ | c shapes | @@ -233,7 +235,7 @@ RSLayoutExamples >> example09BorderAttachPoint [ ^ c ] -{ #category : #lines } +{ #category : 'lines' } RSLayoutExamples >> example10Locate [ | canvas newshape e1 e2 color | @@ -259,7 +261,7 @@ RSLayoutExamples >> example10Locate [ ^ canvas ] -{ #category : #lines } +{ #category : 'lines' } RSLayoutExamples >> example11PaddingInComposite [ | canvas shapes | @@ -285,7 +287,7 @@ RSLayoutExamples >> example11PaddingInComposite [ ^ canvas ] -{ #category : #animations } +{ #category : 'animations' } RSLayoutExamples >> example12AnimatedForceBasedLayout [ | c | @@ -299,7 +301,7 @@ RSLayoutExamples >> example12AnimatedForceBasedLayout [ ^ c ] -{ #category : #animations } +{ #category : 'animations' } RSLayoutExamples >> example13VisualizeQuatree [ @@ -362,7 +364,7 @@ RSLayoutExamples >> example13VisualizeQuatree [ ^ canvas ] -{ #category : #lines } +{ #category : 'lines' } RSLayoutExamples >> example15SimpleClassHierarchy [ | c methods | @@ -398,7 +400,7 @@ RSLayoutExamples >> example15SimpleClassHierarchy [ ^ c ] -{ #category : #lines } +{ #category : 'lines' } RSLayoutExamples >> example16SimpleClassHierarchy [ | c | @@ -426,7 +428,7 @@ RSLayoutExamples >> example16SimpleClassHierarchy [ ^ c ] -{ #category : #animations } +{ #category : 'animations' } RSLayoutExamples >> example17ForceBasedLayout [ | canvas shapes stepping edges layout | @@ -458,7 +460,7 @@ RSLayoutExamples >> example17ForceBasedLayout [ ^ canvas ] -{ #category : #layouts } +{ #category : 'layouts' } RSLayoutExamples >> example18ClusterTree [ | canvas shapes | @@ -506,7 +508,7 @@ RSLayoutExamples >> example18ClusterTree [ ^ canvas ] -{ #category : #layouts } +{ #category : 'layouts' } RSLayoutExamples >> example19AutomaticLayoutWhenWindowIsResized [ | classes shapes c eb | @@ -530,7 +532,7 @@ RSLayoutExamples >> example19AutomaticLayoutWhenWindowIsResized [ ^ c @ RSCanvasController @ RSHierarchyPackerInteraction ] -{ #category : #layouts } +{ #category : 'layouts' } RSLayoutExamples >> example20FlowLayout [ @@ -648,7 +650,7 @@ RSLayoutExamples >> example20FlowLayout [ ^ canvas ] -{ #category : #layouts } +{ #category : 'layouts' } RSLayoutExamples >> example21TreeLayoutEllipses [ | c shapes eb | @@ -683,7 +685,7 @@ RSLayoutExamples >> example21TreeLayoutEllipses [ ^ c ] -{ #category : #tests } +{ #category : 'tests' } RSLayoutExamples >> example22ClassHierarchies [ @@ -746,7 +748,7 @@ RSLayoutExamples >> example22ClassHierarchies [ @ RSCanvasController ] -{ #category : #tests } +{ #category : 'tests' } RSLayoutExamples >> example23RoassalCommitsWithTimeGaps [ @@ -844,7 +846,7 @@ RSLayoutExamples >> example23RoassalCommitsWithTimeGaps [ @ RSCanvasController ] -{ #category : #layouts } +{ #category : 'layouts' } RSLayoutExamples >> example24SmartHorizontalTree [ | c shapes | @@ -881,7 +883,7 @@ RSLayoutExamples >> example24SmartHorizontalTree [ ^ c ] -{ #category : #layouts } +{ #category : 'layouts' } RSLayoutExamples >> example25SortBlock [ | c shapes | diff --git a/src/Roassal-Examples/RSLine.extension.st b/src/Roassal-Examples/RSLine.extension.st index e3ee6827..25cda5ab 100644 --- a/src/Roassal-Examples/RSLine.extension.st +++ b/src/Roassal-Examples/RSLine.extension.st @@ -1,6 +1,6 @@ -Extension { #name : #RSLine } +Extension { #name : 'RSLine' } -{ #category : #'*Roassal-Examples' } +{ #category : '*Roassal-Examples' } RSLine class >> exampleFMT [ | line | line := self new. @@ -16,7 +16,7 @@ RSLine class >> exampleFMT [ open ] -{ #category : #'*Roassal-Examples' } +{ #category : '*Roassal-Examples' } RSLine class >> exampleLine [ | line | line := self new. diff --git a/src/Roassal-Examples/RSMenuActivable.extension.st b/src/Roassal-Examples/RSMenuActivable.extension.st index cb6e8cab..e7110837 100644 --- a/src/Roassal-Examples/RSMenuActivable.extension.st +++ b/src/Roassal-Examples/RSMenuActivable.extension.st @@ -1,6 +1,6 @@ -Extension { #name : #RSMenuActivable } +Extension { #name : 'RSMenuActivable' } -{ #category : #'*Roassal-Examples' } +{ #category : '*Roassal-Examples' } RSMenuActivable class >> example [ | m | diff --git a/src/Roassal-Examples/RSPolyline.extension.st b/src/Roassal-Examples/RSPolyline.extension.st index e70bd2bb..81e8fcd9 100644 --- a/src/Roassal-Examples/RSPolyline.extension.st +++ b/src/Roassal-Examples/RSPolyline.extension.st @@ -1,6 +1,6 @@ -Extension { #name : #RSPolyline } +Extension { #name : 'RSPolyline' } -{ #category : #'*Roassal-Examples' } +{ #category : '*Roassal-Examples' } RSPolyline class >> exampleArrowedPolyline [ | line | line := self new. @@ -12,7 +12,7 @@ RSPolyline class >> exampleArrowedPolyline [ open ] -{ #category : #'*Roassal-Examples' } +{ #category : '*Roassal-Examples' } RSPolyline class >> examplePolyline [ | line | line := self new. diff --git a/src/Roassal-Examples/RSRenderTreeExamples.class.st b/src/Roassal-Examples/RSRenderTreeExamples.class.st index e8d96a0d..7f294f03 100644 --- a/src/Roassal-Examples/RSRenderTreeExamples.class.st +++ b/src/Roassal-Examples/RSRenderTreeExamples.class.st @@ -3,12 +3,14 @@ This class is used to customize the render collection of roassal check RSAbstractRenderCollection " Class { - #name : #RSRenderTreeExamples, - #superclass : #RSAbstractExamples, - #category : 'Roassal-Examples-Basic' + #name : 'RSRenderTreeExamples', + #superclass : 'RSAbstractExamples', + #category : 'Roassal-Examples-Basic', + #package : 'Roassal-Examples', + #tag : 'Basic' } -{ #category : #lines } +{ #category : 'lines' } RSRenderTreeExamples >> example01BigVisualization131k [ @@ -33,7 +35,7 @@ RSRenderTreeExamples >> example01BigVisualization131k [ ^ c ] -{ #category : #lines } +{ #category : 'lines' } RSRenderTreeExamples >> example02BigVisualizationHalfMillion [ @@ -58,7 +60,7 @@ RSRenderTreeExamples >> example02BigVisualizationHalfMillion [ ^ c ] -{ #category : #lines } +{ #category : 'lines' } RSRenderTreeExamples >> example03RTree [ diff --git a/src/Roassal-Examples/RSSVGPathLine.extension.st b/src/Roassal-Examples/RSSVGPathLine.extension.st index a71db92c..9621da2f 100644 --- a/src/Roassal-Examples/RSSVGPathLine.extension.st +++ b/src/Roassal-Examples/RSSVGPathLine.extension.st @@ -1,6 +1,6 @@ -Extension { #name : #RSSVGPathLine } +Extension { #name : 'RSSVGPathLine' } -{ #category : #'*Roassal-Examples' } +{ #category : '*Roassal-Examples' } RSSVGPathLine class >> exampleArc [ | canvas line | canvas := RSCanvas new. diff --git a/src/Roassal-Examples/RSScrollBarsCanvasInteraction.extension.st b/src/Roassal-Examples/RSScrollBarsCanvasInteraction.extension.st index f1ed4c2e..18963b43 100644 --- a/src/Roassal-Examples/RSScrollBarsCanvasInteraction.extension.st +++ b/src/Roassal-Examples/RSScrollBarsCanvasInteraction.extension.st @@ -1,6 +1,6 @@ -Extension { #name : #RSScrollBarsCanvasInteraction } +Extension { #name : 'RSScrollBarsCanvasInteraction' } -{ #category : #'*Roassal-Examples' } +{ #category : '*Roassal-Examples' } RSScrollBarsCanvasInteraction class >> example [ | canvas | canvas := self canvasExample. @@ -10,7 +10,7 @@ RSScrollBarsCanvasInteraction class >> example [ ^ canvas open ] -{ #category : #'*Roassal-Examples' } +{ #category : '*Roassal-Examples' } RSScrollBarsCanvasInteraction class >> exampleOriginTopLeft [ | canvas | canvas := self canvasExample. diff --git a/src/Roassal-Examples/RSScrollWheelCanvasInteraction.extension.st b/src/Roassal-Examples/RSScrollWheelCanvasInteraction.extension.st index b6d24b10..1a73ca01 100644 --- a/src/Roassal-Examples/RSScrollWheelCanvasInteraction.extension.st +++ b/src/Roassal-Examples/RSScrollWheelCanvasInteraction.extension.st @@ -1,6 +1,6 @@ -Extension { #name : #RSScrollWheelCanvasInteraction } +Extension { #name : 'RSScrollWheelCanvasInteraction' } -{ #category : #'*Roassal-Examples' } +{ #category : '*Roassal-Examples' } RSScrollWheelCanvasInteraction class >> example [ | canvas | diff --git a/src/Roassal-Examples/RSSearchInCanvasInteraction.extension.st b/src/Roassal-Examples/RSSearchInCanvasInteraction.extension.st index bca17c6a..53507eee 100644 --- a/src/Roassal-Examples/RSSearchInCanvasInteraction.extension.st +++ b/src/Roassal-Examples/RSSearchInCanvasInteraction.extension.st @@ -1,6 +1,6 @@ -Extension { #name : #RSSearchInCanvasInteraction } +Extension { #name : 'RSSearchInCanvasInteraction' } -{ #category : #'*Roassal-Examples' } +{ #category : '*Roassal-Examples' } RSSearchInCanvasInteraction class >> exampleCollection [ | c shapes lb | c := RSCanvas new. @@ -19,7 +19,7 @@ RSSearchInCanvasInteraction class >> exampleCollection [ yourself ] -{ #category : #'*Roassal-Examples' } +{ #category : '*Roassal-Examples' } RSSearchInCanvasInteraction class >> exampleCollection2 [ | c classes g elements high con | diff --git a/src/Roassal-Examples/RSSelfLoopCPController.extension.st b/src/Roassal-Examples/RSSelfLoopCPController.extension.st index ee65b724..6a5ac842 100644 --- a/src/Roassal-Examples/RSSelfLoopCPController.extension.st +++ b/src/Roassal-Examples/RSSelfLoopCPController.extension.st @@ -1,6 +1,6 @@ -Extension { #name : #RSSelfLoopCPController } +Extension { #name : 'RSSelfLoopCPController' } -{ #category : #'*Roassal-Examples' } +{ #category : '*Roassal-Examples' } RSSelfLoopCPController class >> example [ | canvas links models arrow | canvas := RSCanvas new. diff --git a/src/Roassal-Examples/RSShapeExamples.class.st b/src/Roassal-Examples/RSShapeExamples.class.st index 8f0883cd..bd7ee884 100644 --- a/src/Roassal-Examples/RSShapeExamples.class.st +++ b/src/Roassal-Examples/RSShapeExamples.class.st @@ -2,12 +2,14 @@ I use the RSShapeBuilder " Class { - #name : #RSShapeExamples, - #superclass : #RSAbstractExamples, - #category : 'Roassal-Examples-Basic' + #name : 'RSShapeExamples', + #superclass : 'RSAbstractExamples', + #category : 'Roassal-Examples-Basic', + #package : 'Roassal-Examples', + #tag : 'Basic' } -{ #category : #shapes } +{ #category : 'shapes' } RSShapeExamples >> example01BasicShape [ @@ -27,7 +29,7 @@ RSShapeExamples >> example01BasicShape [ ^ canvas ] -{ #category : #lines } +{ #category : 'lines' } RSShapeExamples >> example02BasicEdge [ @@ -55,7 +57,7 @@ RSShapeExamples >> example02BasicEdge [ ^ canvas ] -{ #category : #lines } +{ #category : 'lines' } RSShapeExamples >> example04LineDashes [ @@ -80,7 +82,7 @@ RSShapeExamples >> example04LineDashes [ ^ canvas ] -{ #category : #lines } +{ #category : 'lines' } RSShapeExamples >> example05CapStyles [ @@ -113,7 +115,7 @@ RSShapeExamples >> example05CapStyles [ ^ canvas ] -{ #category : #normalizer } +{ #category : 'normalizer' } RSShapeExamples >> example07NormalizeColor [ @@ -148,7 +150,7 @@ RSShapeExamples >> example07NormalizeColor [ ^ canvas ] -{ #category : #shapes } +{ #category : 'shapes' } RSShapeExamples >> example08Labels [ | canvas shapes random | @@ -176,7 +178,7 @@ RSShapeExamples >> example08Labels [ ^ canvas ] -{ #category : #lines } +{ #category : 'lines' } RSShapeExamples >> example09Polyline [ | canvas box box1 line box2 | @@ -204,7 +206,7 @@ RSShapeExamples >> example09Polyline [ ^ canvas ] -{ #category : #shapes } +{ #category : 'shapes' } RSShapeExamples >> example10Donut [ | data radius color canvas border | @@ -233,7 +235,7 @@ RSShapeExamples >> example10Donut [ ^ canvas ] -{ #category : #shapes } +{ #category : 'shapes' } RSShapeExamples >> example11ClassTree [ | canvas shapes | @@ -276,7 +278,7 @@ RSShapeExamples >> example11ClassTree [ ^ canvas ] -{ #category : #shapes } +{ #category : 'shapes' } RSShapeExamples >> example12Polygons [ | canvas color border | @@ -306,7 +308,7 @@ RSShapeExamples >> example12Polygons [ ^ canvas ] -{ #category : #shapes } +{ #category : 'shapes' } RSShapeExamples >> example13Arrow [ | canvas polygon labels paint | @@ -347,7 +349,7 @@ RSShapeExamples >> example13Arrow [ ^ canvas ] -{ #category : #shapes } +{ #category : 'shapes' } RSShapeExamples >> example14Marker [ | canvas shapes line arrow | @@ -379,7 +381,7 @@ RSShapeExamples >> example14Marker [ ^ canvas ] -{ #category : #shapes } +{ #category : 'shapes' } RSShapeExamples >> example16Bezier [ | canvas box1 box2 line | @@ -416,7 +418,7 @@ RSShapeExamples >> example16Bezier [ ^ canvas ] -{ #category : #shapes } +{ #category : 'shapes' } RSShapeExamples >> example17Labeled [ | canvas e1 e2 s line label | @@ -448,7 +450,7 @@ RSShapeExamples >> example17Labeled [ ^ canvas ] -{ #category : #shapes } +{ #category : 'shapes' } RSShapeExamples >> example19Bitmap [ @@ -471,7 +473,7 @@ RSShapeExamples >> example19Bitmap [ ^ canvas ] -{ #category : #shapes } +{ #category : 'shapes' } RSShapeExamples >> example20Highlightable [ | canvas shapes labeled | @@ -492,7 +494,7 @@ RSShapeExamples >> example20Highlightable [ ^ canvas ] -{ #category : #shapes } +{ #category : 'shapes' } RSShapeExamples >> example21MenuActivableOnElement [ | canvas boxes | @@ -517,7 +519,7 @@ RSShapeExamples >> example21MenuActivableOnElement [ ^ canvas ] -{ #category : #lines } +{ #category : 'lines' } RSShapeExamples >> example22ScaleEvents [ "Zooming preserve the size of the red arrow" @@ -557,7 +559,7 @@ RSShapeExamples >> example22ScaleEvents [ ^ canvas ] -{ #category : #shapes } +{ #category : 'shapes' } RSShapeExamples >> example24Highlightable [ | canvas shapes interaction | @@ -589,7 +591,7 @@ RSShapeExamples >> example24Highlightable [ ^ canvas ] -{ #category : #shapes } +{ #category : 'shapes' } RSShapeExamples >> example26AnimatedPopup [ | canvas interaction s box | @@ -616,7 +618,7 @@ RSShapeExamples >> example26AnimatedPopup [ ^ canvas ] -{ #category : #shapes } +{ #category : 'shapes' } RSShapeExamples >> example27MultilineLabelBasic [ @@ -645,7 +647,7 @@ qui s''alimentent de ta lumière"'. ^ canvas zoomToFit ] -{ #category : #shapes } +{ #category : 'shapes' } RSShapeExamples >> example28MultilineLabel [ @@ -681,7 +683,7 @@ RSShapeExamples >> example28MultilineLabel [ ^ canvas ] -{ #category : #lines } +{ #category : 'lines' } RSShapeExamples >> example29AntAnimation [ > example29AntAnimation [ ^ canvas ] -{ #category : #shapes } +{ #category : 'shapes' } RSShapeExamples >> example30EdgesToChildren [ @@ -778,7 +780,7 @@ RSShapeExamples >> example30EdgesToChildren [ ^ canvas ] -{ #category : #shapes } +{ #category : 'shapes' } RSShapeExamples >> example31BasicGrapher [ | classes canvas line shapes color | @@ -820,7 +822,7 @@ RSShapeExamples >> example31BasicGrapher [ ^ canvas ] -{ #category : #shapes } +{ #category : 'shapes' } RSShapeExamples >> example32RSLabeledOnComposite [ | canvas shapes labeled | @@ -854,7 +856,7 @@ RSShapeExamples >> example32RSLabeledOnComposite [ ^ canvas ] -{ #category : #shapes } +{ #category : 'shapes' } RSShapeExamples >> example33ColorScaling [ | c classes scale numberOfMethods | @@ -882,7 +884,7 @@ RSShapeExamples >> example33ColorScaling [ ^ c ] -{ #category : #shapes } +{ #category : 'shapes' } RSShapeExamples >> example34MorphicPopup [ | c | @@ -899,7 +901,7 @@ RSShapeExamples >> example34MorphicPopup [ ^ c ] -{ #category : #lines } +{ #category : 'lines' } RSShapeExamples >> example35Lines [ | c circle box dragMeLabel | @@ -942,7 +944,7 @@ RSShapeExamples >> example35Lines [ ^ c ] -{ #category : #shapes } +{ #category : 'shapes' } RSShapeExamples >> example36ShapePosition [ @@ -985,7 +987,7 @@ RSShapeExamples >> example36ShapePosition [ ^ c ] -{ #category : #shapes } +{ #category : 'shapes' } RSShapeExamples >> example37PunchCard [ | card | @@ -997,7 +999,7 @@ RSShapeExamples >> example37PunchCard [ ^ card build ] -{ #category : #shapes } +{ #category : 'shapes' } RSShapeExamples >> example38Transformable [ | c | @@ -1050,7 +1052,7 @@ RSShapeExamples >> example38Transformable [ ^ c ] -{ #category : #shapes } +{ #category : 'shapes' } RSShapeExamples >> example39RoassalPackages [ @@ -1088,7 +1090,7 @@ RSShapeExamples >> example39RoassalPackages [ ^ canvas ] -{ #category : #lines } +{ #category : 'lines' } RSShapeExamples >> example40LabelingLine [ @@ -1124,7 +1126,7 @@ RSShapeExamples >> example40LabelingLine [ ^ c ] -{ #category : #shapes } +{ #category : 'shapes' } RSShapeExamples >> example41Butterfly [ @@ -1196,7 +1198,7 @@ RSShapeExamples >> example41Butterfly [ ^ canvas ] -{ #category : #shapes } +{ #category : 'shapes' } RSShapeExamples >> example42DirectedBezier [ | c shapes | @@ -1223,7 +1225,7 @@ RSShapeExamples >> example42DirectedBezier [ ^ c ] -{ #category : #shapes } +{ #category : 'shapes' } RSShapeExamples >> example43KeepLabelSize [ @@ -1250,7 +1252,7 @@ RSShapeExamples >> example43KeepLabelSize [ ^ canvas ] -{ #category : #shapes } +{ #category : 'shapes' } RSShapeExamples >> example44Donna [ | text canvas horizontal vertical groups count | @@ -1327,7 +1329,7 @@ E di pensier ^ canvas ] -{ #category : #shapes } +{ #category : 'shapes' } RSShapeExamples >> example45CompositeDragResize [ | c nodes | @@ -1352,7 +1354,7 @@ RSShapeExamples >> example45CompositeDragResize [ ^ c ] -{ #category : #shapes } +{ #category : 'shapes' } RSShapeExamples >> example46Popups [ | c shapes color | @@ -1387,7 +1389,7 @@ RSShapeExamples >> example46Popups [ ^ c ] -{ #category : #shapes } +{ #category : 'shapes' } RSShapeExamples >> example47CompositeClipChildren [ @@ -1431,7 +1433,7 @@ RSShapeExamples >> example47CompositeClipChildren [ ^ c ] -{ #category : #shapes } +{ #category : 'shapes' } RSShapeExamples >> example48GhostDraggable [ @@ -1455,7 +1457,7 @@ RSShapeExamples >> example48GhostDraggable [ ^ c @ RSCanvasController simple ] -{ #category : #accessing } +{ #category : 'accessing' } RSShapeExamples >> order [ ^ 20 ] diff --git a/src/Roassal-Examples/RSVerticalCellLayout.extension.st b/src/Roassal-Examples/RSVerticalCellLayout.extension.st index 2f01d64f..2b85610e 100644 --- a/src/Roassal-Examples/RSVerticalCellLayout.extension.st +++ b/src/Roassal-Examples/RSVerticalCellLayout.extension.st @@ -1,6 +1,6 @@ -Extension { #name : #RSVerticalCellLayout } +Extension { #name : 'RSVerticalCellLayout' } -{ #category : #'*Roassal-Examples' } +{ #category : '*Roassal-Examples' } RSVerticalCellLayout class >> example1 [ | c shapes | c := RSCanvas new. diff --git a/src/Roassal-Examples/RSWeightedCircleLayout.extension.st b/src/Roassal-Examples/RSWeightedCircleLayout.extension.st index 50cba3ac..98b3e0b4 100644 --- a/src/Roassal-Examples/RSWeightedCircleLayout.extension.st +++ b/src/Roassal-Examples/RSWeightedCircleLayout.extension.st @@ -1,6 +1,6 @@ -Extension { #name : #RSWeightedCircleLayout } +Extension { #name : 'RSWeightedCircleLayout' } -{ #category : #'*Roassal-Examples' } +{ #category : '*Roassal-Examples' } RSWeightedCircleLayout class >> example1 [ | v elements | v := RSCanvas new. diff --git a/src/Roassal-Examples/RSZoomLevelText.extension.st b/src/Roassal-Examples/RSZoomLevelText.extension.st index b87436b8..40099d18 100644 --- a/src/Roassal-Examples/RSZoomLevelText.extension.st +++ b/src/Roassal-Examples/RSZoomLevelText.extension.st @@ -1,6 +1,6 @@ -Extension { #name : #RSZoomLevelText } +Extension { #name : 'RSZoomLevelText' } -{ #category : #'*Roassal-Examples' } +{ #category : '*Roassal-Examples' } RSZoomLevelText class >> exampleSimpleUML [ | builder | builder := RSUMLClassBuilder new. diff --git a/src/Roassal-Examples/RSZoomToFitCanvasInteraction.extension.st b/src/Roassal-Examples/RSZoomToFitCanvasInteraction.extension.st index 48230e3d..27f17beb 100644 --- a/src/Roassal-Examples/RSZoomToFitCanvasInteraction.extension.st +++ b/src/Roassal-Examples/RSZoomToFitCanvasInteraction.extension.st @@ -1,6 +1,6 @@ -Extension { #name : #RSZoomToFitCanvasInteraction } +Extension { #name : 'RSZoomToFitCanvasInteraction' } -{ #category : #'*Roassal-Examples' } +{ #category : '*Roassal-Examples' } RSZoomToFitCanvasInteraction class >> example [ | canvas interaction | canvas := self canvasExample. diff --git a/src/Roassal-Examples/RSZoomableCanvasInteraction.extension.st b/src/Roassal-Examples/RSZoomableCanvasInteraction.extension.st index 0479aad5..376ea101 100644 --- a/src/Roassal-Examples/RSZoomableCanvasInteraction.extension.st +++ b/src/Roassal-Examples/RSZoomableCanvasInteraction.extension.st @@ -1,6 +1,6 @@ -Extension { #name : #RSZoomableCanvasInteraction } +Extension { #name : 'RSZoomableCanvasInteraction' } -{ #category : #'*Roassal-Examples' } +{ #category : '*Roassal-Examples' } RSZoomableCanvasInteraction class >> example [ | canvas | canvas := self canvasExample. diff --git a/src/Roassal-Examples/RTBulkLoadRTreeCollection.class.st b/src/Roassal-Examples/RTBulkLoadRTreeCollection.class.st index 339dd3f3..1d8e7db4 100644 --- a/src/Roassal-Examples/RTBulkLoadRTreeCollection.class.st +++ b/src/Roassal-Examples/RTBulkLoadRTreeCollection.class.st @@ -7,12 +7,14 @@ users should provide a (2 raisedTo: n) number of nodes to compute the tree. rembember a balance tree offers a better search experience " Class { - #name : #RTBulkLoadRTreeCollection, - #superclass : #RTreeCollection, - #category : 'Roassal-Examples-Basic' + #name : 'RTBulkLoadRTreeCollection', + #superclass : 'RTreeCollection', + #category : 'Roassal-Examples-Basic', + #package : 'Roassal-Examples', + #tag : 'Basic' } -{ #category : #adding } +{ #category : 'adding' } RTBulkLoadRTreeCollection >> bulkLoad: aCollection [ aCollection ifEmpty: [ ^ self ]. root := RTNode new. diff --git a/src/Roassal-Examples/RTNode.extension.st b/src/Roassal-Examples/RTNode.extension.st index 1fa73c79..437f3bb7 100644 --- a/src/Roassal-Examples/RTNode.extension.st +++ b/src/Roassal-Examples/RTNode.extension.st @@ -1,6 +1,6 @@ -Extension { #name : #RTNode } +Extension { #name : 'RTNode' } -{ #category : #'*Roassal-Examples' } +{ #category : '*Roassal-Examples' } RTNode >> bulkLoad: aCollection from: a to: b [ "a and b are indeces, used to copy part of the boxes" b < a ifTrue: [ ^ self error: 'should not' ]. diff --git a/src/Roassal-Examples/String.extension.st b/src/Roassal-Examples/String.extension.st index d608fbfe..a20a5ca0 100644 --- a/src/Roassal-Examples/String.extension.st +++ b/src/Roassal-Examples/String.extension.st @@ -1,6 +1,6 @@ -Extension { #name : #String } +Extension { #name : 'String' } -{ #category : #'*Roassal-Examples' } +{ #category : '*Roassal-Examples' } String >> cutCamelCase [ "Breaks apart words written in camel case. diff --git a/src/Roassal-Examples/package.st b/src/Roassal-Examples/package.st index 75e586fa..b64321db 100644 --- a/src/Roassal-Examples/package.st +++ b/src/Roassal-Examples/package.st @@ -1 +1 @@ -Package { #name : #'Roassal-Examples' } +Package { #name : 'Roassal-Examples' } diff --git a/src/Roassal-Experimental/RSAbstractColorGenerator.class.st b/src/Roassal-Experimental/RSAbstractColorGenerator.class.st index acf77b92..e54d36ff 100644 --- a/src/Roassal-Experimental/RSAbstractColorGenerator.class.st +++ b/src/Roassal-Experimental/RSAbstractColorGenerator.class.st @@ -2,17 +2,19 @@ TODO " Class { - #name : #RSAbstractColorGenerator, - #superclass : #RSObject, - #category : #'Roassal-Experimental-Force' + #name : 'RSAbstractColorGenerator', + #superclass : 'RSObject', + #category : 'Roassal-Experimental-Force', + #package : 'Roassal-Experimental', + #tag : 'Force' } -{ #category : #accessing } +{ #category : 'accessing' } RSAbstractColorGenerator >> backgroundColor [ ^ self subclassResponsibility ] -{ #category : #accessing } +{ #category : 'accessing' } RSAbstractColorGenerator >> colorFor: aParticle [ self subclassResponsibility ] diff --git a/src/Roassal-Experimental/RSAcrossPathBuilder.class.st b/src/Roassal-Experimental/RSAcrossPathBuilder.class.st index d35374de..c4a89e9e 100644 --- a/src/Roassal-Experimental/RSAcrossPathBuilder.class.st +++ b/src/Roassal-Experimental/RSAcrossPathBuilder.class.st @@ -2,16 +2,18 @@ This class provides a simple way do push a group of shapes across a given path " Class { - #name : #RSAcrossPathBuilder, - #superclass : #RSBuilder, + #name : 'RSAcrossPathBuilder', + #superclass : 'RSBuilder', #instVars : [ 'shapesToLayout', 'svgShape' ], - #category : #'Roassal-Experimental-AcrossPath' + #category : 'Roassal-Experimental-AcrossPath', + #package : 'Roassal-Experimental', + #tag : 'AcrossPath' } -{ #category : #examples } +{ #category : 'examples' } RSAcrossPathBuilder >> example01Labels [ @@ -35,7 +37,7 @@ RSAcrossPathBuilder >> example01Labels [ ^ self canvas ] -{ #category : #examples } +{ #category : 'examples' } RSAcrossPathBuilder >> example02Labels [ @@ -55,7 +57,7 @@ RSAcrossPathBuilder >> example02Labels [ ^ self canvas ] -{ #category : #examples } +{ #category : 'examples' } RSAcrossPathBuilder >> example03Labels [ @@ -75,7 +77,7 @@ RSAcrossPathBuilder >> example03Labels [ ^ self canvas ] -{ #category : #examples } +{ #category : 'examples' } RSAcrossPathBuilder >> example04Labels [ @@ -95,14 +97,14 @@ RSAcrossPathBuilder >> example04Labels [ ^ self canvas ] -{ #category : #public } +{ #category : 'public' } RSAcrossPathBuilder >> fromString: aString [ | groupOfShapes | groupOfShapes := aString collect: [ :char | self labelShapeFor: char ] as: RSGroup. self shapesToLayout: groupOfShapes ] -{ #category : #public } +{ #category : 'public' } RSAcrossPathBuilder >> labelShapeFor: char [ ^ char isSpaceSeparator ifTrue: [ @@ -118,7 +120,7 @@ RSAcrossPathBuilder >> labelShapeFor: char [ ] ] -{ #category : #rendering } +{ #category : 'rendering' } RSAcrossPathBuilder >> renderIn: aCanvas [ | visitor | aCanvas addAll: shapesToLayout. @@ -131,22 +133,22 @@ RSAcrossPathBuilder >> renderIn: aCanvas [ [ shapes isEmpty ] whileFalse: [ shapes removeFirst remove ] ] -{ #category : #accessing } +{ #category : 'accessing' } RSAcrossPathBuilder >> shapesToLayout [ ^ shapesToLayout ] -{ #category : #accessing } +{ #category : 'accessing' } RSAcrossPathBuilder >> shapesToLayout: aGroupOfShapes [ shapesToLayout := aGroupOfShapes ] -{ #category : #accessing } +{ #category : 'accessing' } RSAcrossPathBuilder >> svgShape [ ^ svgShape ] -{ #category : #accessing } +{ #category : 'accessing' } RSAcrossPathBuilder >> svgShape: aRSSVGPath [ svgShape := aRSSVGPath ] diff --git a/src/Roassal-Experimental/RSAlgoritmia.class.st b/src/Roassal-Experimental/RSAlgoritmia.class.st index de5aa99a..0967172e 100644 --- a/src/Roassal-Experimental/RSAlgoritmia.class.st +++ b/src/Roassal-Experimental/RSAlgoritmia.class.st @@ -2,8 +2,8 @@ based on https://www.openprocessing.org/sketch/85954 " Class { - #name : #RSAlgoritmia, - #superclass : #Object, + #name : 'RSAlgoritmia', + #superclass : 'Object', #instVars : [ 'canvas', 'extent', @@ -25,15 +25,17 @@ Class { 'border', 'animation' ], - #category : #'Roassal-Experimental-Animations' + #category : 'Roassal-Experimental-Animations', + #package : 'Roassal-Experimental', + #tag : 'Animations' } -{ #category : #update } +{ #category : 'update' } RSAlgoritmia >> cosInterpolateA: val1 withB: val2 at: amt [ ^ val1 interpolateTo: val2 at: (cos scale: (amt * Float pi) cos) ] -{ #category : #update } +{ #category : 'update' } RSAlgoritmia >> doInterpolateA: cOne withB: cTwo inT: beTwixt [ ^ (1 to: degs) collect: [ :j | (self @@ -42,7 +44,7 @@ RSAlgoritmia >> doInterpolateA: cOne withB: cTwo inT: beTwixt [ at: beTwixt) ] ] -{ #category : #update } +{ #category : 'update' } RSAlgoritmia >> doSimpleOutline: myCircle [ | points polygon n | masterX := masterX + 3. @@ -68,7 +70,7 @@ RSAlgoritmia >> doSimpleOutline: myCircle [ yourself) ] -{ #category : #initialization } +{ #category : 'initialization' } RSAlgoritmia >> initialize [ super initialize. "change this variables to get a different result" @@ -100,7 +102,7 @@ RSAlgoritmia >> initialize [ self initializeCanvas ] -{ #category : #initialization } +{ #category : 'initialization' } RSAlgoritmia >> initializeCanvas [ canvas := RSCanvas new. @@ -110,14 +112,14 @@ RSAlgoritmia >> initializeCanvas [ onStepDo: [:t | self step ] ] -{ #category : #initialization } +{ #category : 'initialization' } RSAlgoritmia >> initializeCircles [ 1 to: models do: [ :i | | zz | zz := rand atRandom. radii at: i put: (self newCircleX: zz y: zz -1 ) ] ] -{ #category : #initialization } +{ #category : 'initialization' } RSAlgoritmia >> newCircleX: nXstart y: nYstart [ | n | ^ (1 to: degs) collect: [ :i | @@ -129,20 +131,20 @@ RSAlgoritmia >> newCircleX: nXstart y: nYstart [ n ] ] -{ #category : #'instance creation' } +{ #category : 'instance creation' } RSAlgoritmia >> open [ canvas open setLabel: 'Algoritmia'; extent: extent ] -{ #category : #running } +{ #category : 'running' } RSAlgoritmia >> run01 [ self open ] -{ #category : #running } +{ #category : 'running' } RSAlgoritmia >> run02 [ perlin := NSPerlinNoise3 new octaves: 1. @@ -153,7 +155,7 @@ RSAlgoritmia >> run02 [ self open ] -{ #category : #running } +{ #category : 'running' } RSAlgoritmia >> run03 [ nRadius := 3. @@ -163,7 +165,7 @@ RSAlgoritmia >> run03 [ self open ] -{ #category : #update } +{ #category : 'update' } RSAlgoritmia >> step [ frameCount := frameCount + 1. canvas shapes copy do: #remove. diff --git a/src/Roassal-Experimental/RSAlpharo.class.st b/src/Roassal-Experimental/RSAlpharo.class.st index 3f19d3de..db53cd09 100644 --- a/src/Roassal-Experimental/RSAlpharo.class.st +++ b/src/Roassal-Experimental/RSAlpharo.class.st @@ -2,8 +2,8 @@ TODO " Class { - #name : #RSAlpharo, - #superclass : #RSBuilder, + #name : 'RSAlpharo', + #superclass : 'RSBuilder', #instVars : [ 'objects', 'jarShape', @@ -13,10 +13,12 @@ Class { 'random', 'redLine' ], - #category : #'Roassal-Experimental-Alpharo' + #category : 'Roassal-Experimental-Alpharo', + #package : 'Roassal-Experimental', + #tag : 'Alpharo' } -{ #category : #hooks } +{ #category : 'hooks' } RSAlpharo >> addGravityAnimation [ | box edges mock | box := RSBox new. @@ -34,7 +36,7 @@ RSAlpharo >> addGravityAnimation [ box translateTo: p] ] -{ #category : #hooks } +{ #category : 'hooks' } RSAlpharo >> blinkRandomAmeba [ | ameba | random next> 0.05 ifTrue: [ ^ self ]. @@ -43,14 +45,14 @@ RSAlpharo >> blinkRandomAmeba [ ameba blink ] -{ #category : #initialization } +{ #category : 'initialization' } RSAlpharo >> initialize [ super initialize. perlin := NSPerlinNoise3 new octaves: 3. random := Random new ] -{ #category : #hooks } +{ #category : 'hooks' } RSAlpharo >> jar [ ^ jarShape ifNil: [ jarShape := RSSVGPath new svgPath: self jarPath; @@ -60,7 +62,7 @@ RSAlpharo >> jar [ yourself ] ] -{ #category : #hooks } +{ #category : 'hooks' } RSAlpharo >> jarPath [ ^ 'M2165 4344 c-49 -2 -199 -11 -332 -19 -346 -22 -537 -49 -563 -80 -12 -15 -8 -193 5 -253 6 -26 2 -43 -16 -75 -30 -54 -31 -119 -3 -173 l22 -41 @@ -104,17 +106,17 @@ c-13 -26 -53 -75 -92 -112 -48 -44 -72 -74 -76 -96 -7 -34 -1 -31 -163 -71 975 -9z' ] -{ #category : #hooks } +{ #category : 'hooks' } RSAlpharo >> mousePosition [ ^ amebas anyOne mousePosition ] -{ #category : #accessing } +{ #category : 'accessing' } RSAlpharo >> objects: aCollection [ objects := aCollection ] -{ #category : #hooks } +{ #category : 'hooks' } RSAlpharo >> removeJar [ | animation | @@ -141,7 +143,7 @@ RSAlpharo >> removeJar [ jarShape propertyAt: #anime put: animation ] -{ #category : #rendering } +{ #category : 'rendering' } RSAlpharo >> renderIn: aCanvas [ aCanvas inspectorContext: RSEmptyContextInteraction new. amebas := objects collect: [ :obj | @@ -158,7 +160,7 @@ RSAlpharo >> renderIn: aCanvas [ aCanvas when: RSMouseClick send: #removeJar to: self ] -{ #category : #hooks } +{ #category : 'hooks' } RSAlpharo >> setAnimationsIn: aCanvas [ "we create 3 different animations, then we can pause one animation with out affectin others" aCanvas newAnimation repeat @@ -174,7 +176,7 @@ RSAlpharo >> setAnimationsIn: aCanvas [ onStepDo: [ self updateRedLine ] ] -{ #category : #hooks } +{ #category : 'hooks' } RSAlpharo >> setupLayoutIn: aCanvas [ | jar | jar := self jar. @@ -191,7 +193,7 @@ RSAlpharo >> setupLayoutIn: aCanvas [ yourself ] -{ #category : #hooks } +{ #category : 'hooks' } RSAlpharo >> updateRedLine [ | trace position | redLine ifNil: [ diff --git a/src/Roassal-Experimental/RSAlpharoExample.class.st b/src/Roassal-Experimental/RSAlpharoExample.class.st index 20a1ec49..49fc7581 100644 --- a/src/Roassal-Experimental/RSAlpharoExample.class.st +++ b/src/Roassal-Experimental/RSAlpharoExample.class.st @@ -2,12 +2,14 @@ TODO " Class { - #name : #RSAlpharoExample, - #superclass : #Object, - #category : #'Roassal-Experimental-Alpharo' + #name : 'RSAlpharoExample', + #superclass : 'Object', + #category : 'Roassal-Experimental-Alpharo', + #package : 'Roassal-Experimental', + #tag : 'Alpharo' } -{ #category : #running } +{ #category : 'running' } RSAlpharoExample >> example01Basic [ | b | @@ -17,7 +19,7 @@ RSAlpharoExample >> example01Basic [ b canvas inspect ] -{ #category : #running } +{ #category : 'running' } RSAlpharoExample >> example02Classes [ @@ -35,7 +37,7 @@ RSAlpharoExample >> example02Classes [ b canvas inspect ] -{ #category : #running } +{ #category : 'running' } RSAlpharoExample >> example03Basic [ > blink [ | leftEye rightEye p1 p2 | @@ -40,7 +42,7 @@ RSAmeba >> blink [ when: RSAnimationEndEvent do: [ shape removeKey: #blink ] for: self ] -{ #category : #accessing } +{ #category : 'accessing' } RSAmeba >> createBody [ | body leftEye rightEye | polygon := RSShapeFactory square size: 100. @@ -56,7 +58,7 @@ RSAmeba >> createBody [ ^ body ] -{ #category : #accessing } +{ #category : 'accessing' } RSAmeba >> createEye [ | eye globe iris irisa irisb | globe := RSEllipse new extent: 25@20; color: Color white. @@ -68,17 +70,17 @@ RSAmeba >> createEye [ ^ eye ] -{ #category : #testing } +{ #category : 'testing' } RSAmeba >> isBlinking [ ^ self shape hasProperty: #blink ] -{ #category : #accessing } +{ #category : 'accessing' } RSAmeba >> model: anObject [ self shape children first model: anObject ] -{ #category : #accessing } +{ #category : 'accessing' } RSAmeba >> mousePosition [ | position | position := self currentWorld currentHand position. @@ -86,17 +88,17 @@ RSAmeba >> mousePosition [ ^ position ] -{ #category : #accessing } +{ #category : 'accessing' } RSAmeba >> offset: aNumber [ offset := aNumber ] -{ #category : #accessing } +{ #category : 'accessing' } RSAmeba >> shape [ ^ shape ifNil: [ shape := self createBody ] ] -{ #category : #updating } +{ #category : 'updating' } RSAmeba >> update: perlin [ | angleInc offsetInc r points | angleInc := 1 / 10. @@ -113,7 +115,7 @@ RSAmeba >> update: perlin [ self updateEyes ] -{ #category : #updating } +{ #category : 'updating' } RSAmeba >> updateEye: eye [ | position angle iris eyepos dist | position := self mousePosition. @@ -126,7 +128,7 @@ RSAmeba >> updateEye: eye [ iris translateTo: (angle cos @ angle sin) * dist ] -{ #category : #updating } +{ #category : 'updating' } RSAmeba >> updateEyes [ self updateEye: self shape children second. self updateEye: self shape children third diff --git a/src/Roassal-Experimental/RSCat.class.st b/src/Roassal-Experimental/RSCat.class.st index 5e55ed6f..4fd5bfa5 100644 --- a/src/Roassal-Experimental/RSCat.class.st +++ b/src/Roassal-Experimental/RSCat.class.st @@ -2,18 +2,20 @@ NyanCat " Class { - #name : #RSCat, - #superclass : #Object, + #name : 'RSCat', + #superclass : 'Object', #instVars : [ 'canvas', 'pixel', 'rainbowColors', 'tileColor' ], - #category : #'Roassal-Experimental-Animations' + #category : 'Roassal-Experimental-Animations', + #package : 'Roassal-Experimental', + #tag : 'Animations' } -{ #category : #building } +{ #category : 'building' } RSCat >> addAnimationSlider [ | red black slider label loc layout ps durations | @@ -63,7 +65,7 @@ RSCat >> addAnimationSlider [ label } ] -{ #category : #building } +{ #category : 'building' } RSCat >> addCat [ | body head feet tail delta | body := self catBody. @@ -94,7 +96,7 @@ RSCat >> addCat [ canvas addAll: feet, { tail. body. head} ] -{ #category : #building } +{ #category : 'building' } RSCat >> addRainbow [ | rainbow psx psy | rainbow := (1 to: 6 )collect: [ :i | self createRainbowSegFor: i ] as: RSGroup. @@ -124,7 +126,7 @@ RSCat >> addRainbow [ rainbow pushBack ] -{ #category : #building } +{ #category : 'building' } RSCat >> addStars [ | stars sx r delta | stars := (1 to: 10) collect: [ :i | self newStar ] as: RSGroup. @@ -145,7 +147,7 @@ RSCat >> addStars [ stars pushBack ] -{ #category : #building } +{ #category : 'building' } RSCat >> catBody [ ^ self partFrom: ' 001111111111111111100 @@ -169,7 +171,7 @@ RSCat >> catBody [ ' ] -{ #category : #building } +{ #category : 'building' } RSCat >> catFeet [ | feet | feet := { @@ -212,7 +214,7 @@ RSCat >> catFeet [ ^ feet collect: [ :s | self partFrom: s ] ] -{ #category : #building } +{ #category : 'building' } RSCat >> catHead [ ^ self partFrom: ' 0011000000001100 @@ -231,7 +233,7 @@ RSCat >> catHead [ ' ] -{ #category : #building } +{ #category : 'building' } RSCat >> catTail [ | tail ys | tail:= RSGroup with: self firstTail. @@ -251,7 +253,7 @@ RSCat >> catTail [ ^ tail asShape ] -{ #category : #building } +{ #category : 'building' } RSCat >> createRainbowSegFor: i [ | boxes segment | boxes := (1 to: 6) collect: [ :j | @@ -267,7 +269,7 @@ RSCat >> createRainbowSegFor: i [ ^ segment ] -{ #category : #building } +{ #category : 'building' } RSCat >> firstTail [ ^ self partFrom: ' 0111 @@ -276,7 +278,7 @@ RSCat >> firstTail [ 0111' ] -{ #category : #initialization } +{ #category : 'initialization' } RSCat >> initialize [ super initialize. canvas := RSCanvas new. @@ -288,7 +290,7 @@ RSCat >> initialize [ rangeFrom: { 'black'. '#f6d4ac'. '#f1a9f8'. '#dd63b6'. '#a8c5e9'. '#f9deeb'. 'white'} ] -{ #category : #building } +{ #category : 'building' } RSCat >> middleTail [ ^ self partFrom: ' 11 @@ -298,7 +300,7 @@ RSCat >> middleTail [ ' ] -{ #category : #building } +{ #category : 'building' } RSCat >> newStar [ | rays | rays :=( 1 to: 4) collect: [ :i | RSBox new color: Color white ]. @@ -337,7 +339,7 @@ RSCat >> newStar [ yourself ]) asGroup asShape ] -{ #category : #building } +{ #category : 'building' } RSCat >> partFrom: aString [ | model g | model := aString trimBoth. @@ -348,7 +350,7 @@ RSCat >> partFrom: aString [ ^ g asShape ] -{ #category : #running } +{ #category : 'running' } RSCat >> run [ self addCat. @@ -365,7 +367,7 @@ RSCat >> run [ self addAnimationSlider ] -{ #category : #building } +{ #category : 'building' } RSCat >> tileFor: char pos: pos in: group [ | tile | char = $0 ifTrue: [ ^ self ]. diff --git a/src/Roassal-Experimental/RSCircleD.class.st b/src/Roassal-Experimental/RSCircleD.class.st index 4a5891fc..215f318d 100644 --- a/src/Roassal-Experimental/RSCircleD.class.st +++ b/src/Roassal-Experimental/RSCircleD.class.st @@ -2,67 +2,69 @@ I am an example " Class { - #name : #RSCircleD, - #superclass : #Object, + #name : 'RSCircleD', + #superclass : 'Object', #instVars : [ 'indices', 'position', 'radius' ], - #category : #'Roassal-Experimental-Delaunay' + #category : 'Roassal-Experimental-Delaunay', + #package : 'Roassal-Experimental', + #tag : 'Delaunay' } -{ #category : #accessing } +{ #category : 'accessing' } RSCircleD >> i [ ^ indices first ] -{ #category : #accessing } +{ #category : 'accessing' } RSCircleD >> indices [ ^ indices ] -{ #category : #accessing } +{ #category : 'accessing' } RSCircleD >> indices: array [ indices := array ] -{ #category : #accessing } +{ #category : 'accessing' } RSCircleD >> isRespectLimit: n [ ^ indices allSatisfy: [ :i | i <= n ] ] -{ #category : #accessing } +{ #category : 'accessing' } RSCircleD >> j [ ^ indices second ] -{ #category : #accessing } +{ #category : 'accessing' } RSCircleD >> k [ ^ indices third ] -{ #category : #accessing } +{ #category : 'accessing' } RSCircleD >> position: point [ position := point ] -{ #category : #accessing } +{ #category : 'accessing' } RSCircleD >> radius [ ^ radius ] -{ #category : #accessing } +{ #category : 'accessing' } RSCircleD >> radius: number [ radius := number ] -{ #category : #accessing } +{ #category : 'accessing' } RSCircleD >> x [ ^ position x ] -{ #category : #accessing } +{ #category : 'accessing' } RSCircleD >> y [ ^ position y ] diff --git a/src/Roassal-Experimental/RSColorHSBGenerator.class.st b/src/Roassal-Experimental/RSColorHSBGenerator.class.st index 4273ac26..a45050fb 100644 --- a/src/Roassal-Experimental/RSColorHSBGenerator.class.st +++ b/src/Roassal-Experimental/RSColorHSBGenerator.class.st @@ -2,20 +2,22 @@ TODO " Class { - #name : #RSColorHSBGenerator, - #superclass : #RSAbstractColorGenerator, + #name : 'RSColorHSBGenerator', + #superclass : 'RSAbstractColorGenerator', #instVars : [ 'colors' ], - #category : #'Roassal-Experimental-Force' + #category : 'Roassal-Experimental-Force', + #package : 'Roassal-Experimental', + #tag : 'Force' } -{ #category : #accessing } +{ #category : 'accessing' } RSColorHSBGenerator >> backgroundColor [ ^ Color black ] -{ #category : #accessing } +{ #category : 'accessing' } RSColorHSBGenerator >> colorFor: aParticle [ colors ifNil: [ colors := Dictionary new ]. ^ colors at: aParticle ifAbsentPut: [ diff --git a/src/Roassal-Experimental/RSColorMonoGenerator.class.st b/src/Roassal-Experimental/RSColorMonoGenerator.class.st index bd5269ba..e11242ce 100644 --- a/src/Roassal-Experimental/RSColorMonoGenerator.class.st +++ b/src/Roassal-Experimental/RSColorMonoGenerator.class.st @@ -2,17 +2,19 @@ TODO " Class { - #name : #RSColorMonoGenerator, - #superclass : #RSAbstractColorGenerator, - #category : #'Roassal-Experimental-Force' + #name : 'RSColorMonoGenerator', + #superclass : 'RSAbstractColorGenerator', + #category : 'Roassal-Experimental-Force', + #package : 'Roassal-Experimental', + #tag : 'Force' } -{ #category : #accessing } +{ #category : 'accessing' } RSColorMonoGenerator >> backgroundColor [ ^ Color white ] -{ #category : #accessing } +{ #category : 'accessing' } RSColorMonoGenerator >> colorFor: aParticle [ ^ Color black alpha: 0.1 diff --git a/src/Roassal-Experimental/RSColorPerlinGenerator.class.st b/src/Roassal-Experimental/RSColorPerlinGenerator.class.st index f70fef9c..57792937 100644 --- a/src/Roassal-Experimental/RSColorPerlinGenerator.class.st +++ b/src/Roassal-Experimental/RSColorPerlinGenerator.class.st @@ -2,20 +2,22 @@ TODO " Class { - #name : #RSColorPerlinGenerator, - #superclass : #RSAbstractColorGenerator, + #name : 'RSColorPerlinGenerator', + #superclass : 'RSAbstractColorGenerator', #instVars : [ 'perlin' ], - #category : #'Roassal-Experimental-Force' + #category : 'Roassal-Experimental-Force', + #package : 'Roassal-Experimental', + #tag : 'Force' } -{ #category : #accessing } +{ #category : 'accessing' } RSColorPerlinGenerator >> backgroundColor [ ^ Color black ] -{ #category : #accessing } +{ #category : 'accessing' } RSColorPerlinGenerator >> colorFor: aParticle [ | period n p color | period := 0.005. @@ -25,13 +27,13 @@ RSColorPerlinGenerator >> colorFor: aParticle [ ^ color alpha: 0.03 ] -{ #category : #initialization } +{ #category : 'initialization' } RSColorPerlinGenerator >> initialize [ super initialize. perlin := NSPerlinNoise3 new octaves: 5 ] -{ #category : #accessing } +{ #category : 'accessing' } RSColorPerlinGenerator >> perlin: aNSPerlin [ perlin := aNSPerlin ] diff --git a/src/Roassal-Experimental/RSDelaunay.class.st b/src/Roassal-Experimental/RSDelaunay.class.st index 2d93b844..9340bc05 100644 --- a/src/Roassal-Experimental/RSDelaunay.class.st +++ b/src/Roassal-Experimental/RSDelaunay.class.st @@ -2,15 +2,17 @@ based on https://cdn.rawgit.com/ironwallaby/delaunay/master/delaunay.js " Class { - #name : #RSDelaunay, - #superclass : #RSObject, + #name : 'RSDelaunay', + #superclass : 'RSObject', #classInstVars : [ 'epsilon' ], - #category : #'Roassal-Experimental-Delaunay' + #category : 'Roassal-Experimental-Delaunay', + #package : 'Roassal-Experimental', + #tag : 'Delaunay' } -{ #category : #initialization } +{ #category : 'initialization' } RSDelaunay class >> circumCircle: particles indices: in [ | p1 p2 p3 y12 y23 xc dx yc dy x1 x2 x3 y1 y2 y3 m2 mx2 my2 m1 mx1 my1 flag | p1 := particles at: in first. @@ -66,7 +68,7 @@ RSDelaunay class >> circumCircle: particles indices: in [ yourself ] -{ #category : #initialization } +{ #category : 'initialization' } RSDelaunay class >> dedup: edges [ | i j a b m n break before | j := edges size. @@ -96,7 +98,7 @@ RSDelaunay class >> dedup: edges [ ] ] -{ #category : #initialization } +{ #category : 'initialization' } RSDelaunay class >> generateEdge: open closed: closed vertices: vertices c: c j: j edges: edges [ | dx circ vertex dy | "If this point is to the right of this triangle's circumcircle, @@ -120,7 +122,7 @@ RSDelaunay class >> generateEdge: open closed: closed vertices: vertices c: c j: open remove: circ ] -{ #category : #initialization } +{ #category : 'initialization' } RSDelaunay class >> generateMesh: indices circle: circCircle vertices: vertices [ | open closed edges size | size := vertices size-3. @@ -162,12 +164,12 @@ RSDelaunay class >> generateMesh: indices circle: circCircle vertices: vertices ^ open ] -{ #category : #'class initialization' } +{ #category : 'class initialization' } RSDelaunay class >> initialize [ epsilon := 1.0 / 1048576.0 ] -{ #category : #initialization } +{ #category : 'initialization' } RSDelaunay class >> supertriangle: vertices [ | xmin ymin xmax ymax dx dy dmax xmid ymid | xmin := ymin := SmallInteger maxVal. @@ -190,7 +192,7 @@ RSDelaunay class >> supertriangle: vertices [ } ] -{ #category : #initialization } +{ #category : 'initialization' } RSDelaunay class >> triangulate: particles [ | indices st circCircle nsize vertices | nsize := particles size. diff --git a/src/Roassal-Experimental/RSDelaunayExample.class.st b/src/Roassal-Experimental/RSDelaunayExample.class.st index 1ad3edbc..80990a8b 100644 --- a/src/Roassal-Experimental/RSDelaunayExample.class.st +++ b/src/Roassal-Experimental/RSDelaunayExample.class.st @@ -2,22 +2,24 @@ https://es.wikipedia.org/wiki/Triangulaci%C3%B3n_de_Delaunay " Class { - #name : #RSDelaunayExample, - #superclass : #RSObject, + #name : 'RSDelaunayExample', + #superclass : 'RSObject', #instVars : [ 'allParticles', 'canvas', 'useFill' ], - #category : #'Roassal-Experimental-Delaunay' + #category : 'Roassal-Experimental-Delaunay', + #package : 'Roassal-Experimental', + #tag : 'Delaunay' } -{ #category : #adding } +{ #category : 'adding' } RSDelaunayExample >> addParticle: aRSParticleD [ allParticles add: aRSParticleD ] -{ #category : #girls } +{ #category : 'girls' } RSDelaunayExample >> anime1 [ | girl | @@ -35,7 +37,7 @@ RSDelaunayExample >> anime1 [ for: self ] -{ #category : #girls } +{ #category : 'girls' } RSDelaunayExample >> anime2 [ | girl | @@ -54,7 +56,7 @@ RSDelaunayExample >> anime2 [ for: self ] -{ #category : #girls } +{ #category : 'girls' } RSDelaunayExample >> anime3 [ | girl y | @@ -75,7 +77,7 @@ RSDelaunayExample >> anime3 [ for: self ] -{ #category : #running } +{ #category : 'running' } RSDelaunayExample >> borderFor: particle [ useFill ifTrue: [ ^ nil ]. ^ RSBorder new @@ -84,17 +86,17 @@ RSDelaunayExample >> borderFor: particle [ yourself ] -{ #category : #accessing } +{ #category : 'accessing' } RSDelaunayExample >> canvas: aCanvas [ canvas := aCanvas ] -{ #category : #running } +{ #category : 'running' } RSDelaunayExample >> colorFor: particle [ ^ (Color h: particle life * 1.5 + 165 s: 1 v: 1) ] -{ #category : #girls } +{ #category : 'girls' } RSDelaunayExample >> g1Src [ ^ ' ' ] -{ #category : #girls } +{ #category : 'girls' } RSDelaunayExample >> g2Src [ ^ ' ' ] -{ #category : #girls } +{ #category : 'girls' } RSDelaunayExample >> g3Src [ ^ '> girlFrom: string [ ^ com ] -{ #category : #running } +{ #category : 'running' } RSDelaunayExample >> hasAreaLessThan: lim p1: p1 p2: p2 p3: p3 [ ^ (p1 position distanceTo: p2 position) < lim and: [ (p2 position distanceTo: p3 position) < lim and: [ (p3 position distanceTo: p1 position) < lim ] ] ] -{ #category : #initialization } +{ #category : 'initialization' } RSDelaunayExample >> initialize [ super initialize. useFill := false. allParticles := OrderedCollection new ] -{ #category : #running } +{ #category : 'running' } RSDelaunayExample >> paintFor: particle [ useFill ifFalse: [ ^ nil ]. ^ self colorFor: particle ] -{ #category : #running } +{ #category : 'running' } RSDelaunayExample >> run [ @@ -707,7 +709,7 @@ RSDelaunayExample >> run [ canvas open setLabel: 'Delaunay and Chelmico' ] -{ #category : #running } +{ #category : 'running' } RSDelaunayExample >> run2 [ @@ -730,7 +732,7 @@ RSDelaunayExample >> run2 [ canvas open setLabel: 'Delaunay' ] -{ #category : #running } +{ #category : 'running' } RSDelaunayExample >> step [ | indices | canvas nodes copy do: #remove. @@ -756,7 +758,7 @@ RSDelaunayExample >> step [ ] ] -{ #category : #accessing } +{ #category : 'accessing' } RSDelaunayExample >> useFill: aBoolean [ useFill := aBoolean ] diff --git a/src/Roassal-Experimental/RSForceBuilder.class.st b/src/Roassal-Experimental/RSForceBuilder.class.st index 55ceee9f..fe7d9ad5 100644 --- a/src/Roassal-Experimental/RSForceBuilder.class.st +++ b/src/Roassal-Experimental/RSForceBuilder.class.st @@ -2,8 +2,8 @@ TODO " Class { - #name : #RSForceBuilder, - #superclass : #RSBuilder, + #name : 'RSForceBuilder', + #superclass : 'RSBuilder', #instVars : [ 'interferences', 'particles', @@ -15,15 +15,17 @@ Class { 'random', 'colorGenerator' ], - #category : #'Roassal-Experimental-Force' + #category : 'Roassal-Experimental-Force', + #package : 'Roassal-Experimental', + #tag : 'Force' } -{ #category : #accessing } +{ #category : 'accessing' } RSForceBuilder >> colorGenerator: aRSColorGenerator [ colorGenerator := aRSColorGenerator ] -{ #category : #private } +{ #category : 'private' } RSForceBuilder >> createObjects: amt radius: radius class: cls [ ^ (1 to: amt) collect: [ :i | | r | r := random next * 360. @@ -33,17 +35,17 @@ RSForceBuilder >> createObjects: amt radius: radius class: cls [ yourself ] ] -{ #category : #accessing } +{ #category : 'accessing' } RSForceBuilder >> force [ ^ force ] -{ #category : #accessing } +{ #category : 'accessing' } RSForceBuilder >> force: aNumber [ force := aNumber ] -{ #category : #initialization } +{ #category : 'initialization' } RSForceBuilder >> initialize [ super initialize. interferences := particles := #(). @@ -57,57 +59,57 @@ RSForceBuilder >> initialize [ interferencesRadius: 100 ] -{ #category : #accessing } +{ #category : 'accessing' } RSForceBuilder >> interferences [ ^ interferences ] -{ #category : #accessing } +{ #category : 'accessing' } RSForceBuilder >> interferencesRadius [ ^ interferencesRadius ] -{ #category : #accessing } +{ #category : 'accessing' } RSForceBuilder >> interferencesRadius: anInteger [ interferencesRadius := anInteger ] -{ #category : #accessing } +{ #category : 'accessing' } RSForceBuilder >> interferencesSize [ ^ interferencesSize ] -{ #category : #accessing } +{ #category : 'accessing' } RSForceBuilder >> interferencesSize: anInteger [ interferencesSize := anInteger ] -{ #category : #accessing } +{ #category : 'accessing' } RSForceBuilder >> particles [ ^ particles ] -{ #category : #accessing } +{ #category : 'accessing' } RSForceBuilder >> particlesRadius [ ^ particlesRadius ] -{ #category : #accessing } +{ #category : 'accessing' } RSForceBuilder >> particlesRadius: anInteger [ particlesRadius := anInteger ] -{ #category : #accessing } +{ #category : 'accessing' } RSForceBuilder >> particlesSize [ ^ particlesSize ] -{ #category : #accessing } +{ #category : 'accessing' } RSForceBuilder >> particlesSize: anInteger [ particlesSize := anInteger ] -{ #category : #rendering } +{ #category : 'rendering' } RSForceBuilder >> renderIn: aCanvas [ aCanvas color: colorGenerator backgroundColor. self reset. @@ -115,7 +117,7 @@ RSForceBuilder >> renderIn: aCanvas [ aCanvas newAnimation repeat; onStepDo: [ self update: self force ] ] -{ #category : #initialization } +{ #category : 'initialization' } RSForceBuilder >> reset [ | c | @@ -131,7 +133,7 @@ RSForceBuilder >> reset [ for: self ] -{ #category : #hooks } +{ #category : 'hooks' } RSForceBuilder >> setInterferences [ interferences := self createObjects: self interferencesSize @@ -139,7 +141,7 @@ RSForceBuilder >> setInterferences [ class: RSInterference ] -{ #category : #hooks } +{ #category : 'hooks' } RSForceBuilder >> setParticles [ particles := self createObjects: self particlesSize @@ -147,7 +149,7 @@ RSForceBuilder >> setParticles [ class: RSParticleForce ] -{ #category : #updating } +{ #category : 'updating' } RSForceBuilder >> update: aFloat [ | c | c := self canvas. diff --git a/src/Roassal-Experimental/RSForceExample.class.st b/src/Roassal-Experimental/RSForceExample.class.st index a4b8eede..d1d92ca2 100644 --- a/src/Roassal-Experimental/RSForceExample.class.st +++ b/src/Roassal-Experimental/RSForceExample.class.st @@ -2,12 +2,14 @@ Inspired by Raven Kwok drawingMachine_10 (http://openprocessing.org/sketch/34320). " Class { - #name : #RSForceExample, - #superclass : #RSObject, - #category : #'Roassal-Experimental-Force' + #name : 'RSForceExample', + #superclass : 'RSObject', + #category : 'Roassal-Experimental-Force', + #package : 'Roassal-Experimental', + #tag : 'Force' } -{ #category : #examples } +{ #category : 'examples' } RSForceExample >> example01 [ | c | @@ -16,7 +18,7 @@ RSForceExample >> example01 [ ^ c canvas ] -{ #category : #examples } +{ #category : 'examples' } RSForceExample >> example02 [ | c | @@ -29,7 +31,7 @@ RSForceExample >> example02 [ ^ c canvas ] -{ #category : #examples } +{ #category : 'examples' } RSForceExample >> example03 [ | c | @@ -42,7 +44,7 @@ RSForceExample >> example03 [ ^ c canvas ] -{ #category : #examples } +{ #category : 'examples' } RSForceExample >> example04 [ | c | diff --git a/src/Roassal-Experimental/RSForceLayoutInSpacesBuilder.class.st b/src/Roassal-Experimental/RSForceLayoutInSpacesBuilder.class.st index 7bcb30e5..8bd7f339 100644 --- a/src/Roassal-Experimental/RSForceLayoutInSpacesBuilder.class.st +++ b/src/Roassal-Experimental/RSForceLayoutInSpacesBuilder.class.st @@ -2,8 +2,8 @@ TODO " Class { - #name : #RSForceLayoutInSpacesBuilder, - #superclass : #RSBuilder, + #name : 'RSForceLayoutInSpacesBuilder', + #superclass : 'RSBuilder', #instVars : [ 'numberOfSpaces', 'spaces', @@ -13,10 +13,12 @@ Class { 'colorScale', 'classes' ], - #category : #'Roassal-Experimental-ForceLayoutSpaces' + #category : 'Roassal-Experimental-ForceLayoutSpaces', + #package : 'Roassal-Experimental', + #tag : 'ForceLayoutSpaces' } -{ #category : #hooks } +{ #category : 'hooks' } RSForceLayoutInSpacesBuilder >> abandonLayout: shape [ | layout | layout := shape propertyAt: #layout. @@ -24,7 +26,7 @@ RSForceLayoutInSpacesBuilder >> abandonLayout: shape [ layout removeNode: shape ] -{ #category : #hooks } +{ #category : 'hooks' } RSForceLayoutInSpacesBuilder >> addEdgesOf: shape to: space [ | layout edgesToAdd | layout := space propertyAt: #layout. @@ -43,7 +45,7 @@ RSForceLayoutInSpacesBuilder >> addEdgesOf: shape to: space [ layout addLines: (edgesToAdd at: true ifAbsent: [#()]) ] -{ #category : #hooks } +{ #category : 'hooks' } RSForceLayoutInSpacesBuilder >> addShape: shape to: space [ | layout | layout := space propertyAt: #layout. @@ -53,12 +55,12 @@ RSForceLayoutInSpacesBuilder >> addShape: shape to: space [ shape propertyAt: #layout put: layout ] -{ #category : #accessing } +{ #category : 'accessing' } RSForceLayoutInSpacesBuilder >> classes: aCollection [ classes := aCollection ] -{ #category : #hooks } +{ #category : 'hooks' } RSForceLayoutInSpacesBuilder >> dragEnd: evt [ | dropPosition droppedShape targetLayout layout shapesToMove | droppedShape := evt shape. @@ -80,7 +82,7 @@ RSForceLayoutInSpacesBuilder >> dragEnd: evt [ shapesToMove do: [ :s | self addEdgesOf: s to: targetLayout ] ] -{ #category : #accessing } +{ #category : 'accessing' } RSForceLayoutInSpacesBuilder >> example01 [ @@ -109,7 +111,7 @@ RSForceLayoutInSpacesBuilder >> example01 [ ^ b canvas ] -{ #category : #hooks } +{ #category : 'hooks' } RSForceLayoutInSpacesBuilder >> fill: space with: aCollection [ | layout cpController | cpController := RSBlockCPController new @@ -148,7 +150,7 @@ RSForceLayoutInSpacesBuilder >> fill: space with: aCollection [ aCollection do:[ :s | s when: RSMouseDragEnd send: #dragEnd: to: self ] ] -{ #category : #initialization } +{ #category : 'initialization' } RSForceLayoutInSpacesBuilder >> initialize [ super initialize. colorForLinesInSameSpace := Color blue muchDarker alpha: 0.8. @@ -157,7 +159,7 @@ RSForceLayoutInSpacesBuilder >> initialize [ linearScale := NSScale linear domain: #(5 20); range: #(5 10) ] -{ #category : #shapes } +{ #category : 'shapes' } RSForceLayoutInSpacesBuilder >> newShapeFor: aClass [ ^ RSEllipse new popup; @@ -167,7 +169,7 @@ RSForceLayoutInSpacesBuilder >> newShapeFor: aClass [ yourself ] -{ #category : #shapes } +{ #category : 'shapes' } RSForceLayoutInSpacesBuilder >> newSpaceFor: model [ | space layout | layout := RSRectangleForceLayout new @@ -184,17 +186,17 @@ RSForceLayoutInSpacesBuilder >> newSpaceFor: model [ ^ space ] -{ #category : #accessing } +{ #category : 'accessing' } RSForceLayoutInSpacesBuilder >> numberOfSpaces [ ^ numberOfSpaces ] -{ #category : #accessing } +{ #category : 'accessing' } RSForceLayoutInSpacesBuilder >> numberOfSpaces: anInteger [ numberOfSpaces := anInteger ] -{ #category : #rendering } +{ #category : 'rendering' } RSForceLayoutInSpacesBuilder >> renderIn: aCanvas [ spaces := (1 to: numberOfSpaces) collect: [ :i | self newSpaceFor: i ]. shapes := classes collect: [ :obj | self newShapeFor: obj ] as: RSGroup. @@ -206,7 +208,7 @@ RSForceLayoutInSpacesBuilder >> renderIn: aCanvas [ aCanvas @ RSCanvasController ] -{ #category : #hooks } +{ #category : 'hooks' } RSForceLayoutInSpacesBuilder >> updateSpace: space [ | layout | layout := space propertyAt: #layout. @@ -214,7 +216,7 @@ RSForceLayoutInSpacesBuilder >> updateSpace: space [ layout enclosingRectangle: space encompassingRectangle ] -{ #category : #hooks } +{ #category : 'hooks' } RSForceLayoutInSpacesBuilder >> withShapesThatAccompany: shape [ ^ shape model withAllSubclasses collect: [ :cls | self canvas shapeFromModel: cls ] ] diff --git a/src/Roassal-Experimental/RSHanoi.class.st b/src/Roassal-Experimental/RSHanoi.class.st index 56af24aa..78404a22 100644 --- a/src/Roassal-Experimental/RSHanoi.class.st +++ b/src/Roassal-Experimental/RSHanoi.class.st @@ -2,12 +2,14 @@ a simple hanoi " Class { - #name : #RSHanoi, - #superclass : #Object, - #category : #'Roassal-Experimental-Hanoi' + #name : 'RSHanoi', + #superclass : 'Object', + #category : 'Roassal-Experimental-Hanoi', + #package : 'Roassal-Experimental', + #tag : 'Hanoi' } -{ #category : #hanoi } +{ #category : 'hanoi' } RSHanoi >> hanoi: anInteger from: a bridge: b to: c [ " self new hanoi: 3 from: 'A' bridge: 'B' to: 'C' @@ -21,12 +23,12 @@ RSHanoi >> hanoi: anInteger from: a bridge: b to: c [ ] ] -{ #category : #hanoi } +{ #category : 'hanoi' } RSHanoi >> moveFrom: a to: b [ ^ 'Move from ', a, ' to: ', b ] -{ #category : #running } +{ #category : 'running' } RSHanoi >> run [ ^ self hanoi: 3 from: 'A' bridge: 'B' to: 'C' diff --git a/src/Roassal-Experimental/RSHanoiRoassal.class.st b/src/Roassal-Experimental/RSHanoiRoassal.class.st index 3fa1c178..079da021 100644 --- a/src/Roassal-Experimental/RSHanoiRoassal.class.st +++ b/src/Roassal-Experimental/RSHanoiRoassal.class.st @@ -2,16 +2,18 @@ I create a visualization of hanoi " Class { - #name : #RSHanoiRoassal, - #superclass : #Object, + #name : 'RSHanoiRoassal', + #superclass : 'Object', #instVars : [ 'canvas', 'moves' ], - #category : #'Roassal-Experimental-Hanoi' + #category : 'Roassal-Experimental-Hanoi', + #package : 'Roassal-Experimental', + #tag : 'Hanoi' } -{ #category : #'meta level' } +{ #category : 'meta level' } RSHanoiRoassal >> animationFor: asso [ | from to pscale | @@ -41,7 +43,7 @@ RSHanoiRoassal >> animationFor: asso [ yourself ] -{ #category : #'meta level' } +{ #category : 'meta level' } RSHanoiRoassal >> createAnimations [ | allAnimations | @@ -53,7 +55,7 @@ RSHanoiRoassal >> createAnimations [ for: self ] -{ #category : #public } +{ #category : 'public' } RSHanoiRoassal >> createBoxFor: index size: size [ ^ RSBox new height: size; @@ -64,7 +66,7 @@ RSHanoiRoassal >> createBoxFor: index size: size [ yourself ] -{ #category : #public } +{ #category : 'public' } RSHanoiRoassal >> createCanvasFor: anInteger [ | color groupA size w | canvas := RSCanvas new. @@ -85,7 +87,7 @@ RSHanoiRoassal >> createCanvasFor: anInteger [ setLabel: 'Hanoi!' ] -{ #category : #public } +{ #category : 'public' } RSHanoiRoassal >> createGroup: aString length: anInteger size: size index: index [ | w g l | canvas propertyAt: aString put: (g:= RSGroup new). @@ -98,7 +100,7 @@ RSHanoiRoassal >> createGroup: aString length: anInteger size: size index: index g add: l ] -{ #category : #'meta level' } +{ #category : 'meta level' } RSHanoiRoassal >> createLink [ | node link | node := (RSHanoi >> #moveFrom:to:) ast. @@ -115,18 +117,18 @@ RSHanoiRoassal >> createLink [ ^ link ] -{ #category : #public } +{ #category : 'public' } RSHanoiRoassal >> createLinkAnCanvas: anInteger [ self createCanvasFor: anInteger. ^ self createLink ] -{ #category : #'meta level' } +{ #category : 'meta level' } RSHanoiRoassal >> group: key [ ^ canvas propertyAt: key ] -{ #category : #running } +{ #category : 'running' } RSHanoiRoassal >> run [ | link size res | diff --git a/src/Roassal-Experimental/RSInterference.class.st b/src/Roassal-Experimental/RSInterference.class.st index 5fe602aa..be086a0e 100644 --- a/src/Roassal-Experimental/RSInterference.class.st +++ b/src/Roassal-Experimental/RSInterference.class.st @@ -2,21 +2,23 @@ TODO " Class { - #name : #RSInterference, - #superclass : #RSObject, + #name : 'RSInterference', + #superclass : 'RSObject', #instVars : [ 'position', 'mode', 'radius' ], - #category : #'Roassal-Experimental-Force' + #category : 'Roassal-Experimental-Force', + #package : 'Roassal-Experimental', + #tag : 'Force' } -{ #category : #accessing } +{ #category : 'accessing' } RSInterference >> color: aColor [ ] -{ #category : #initialization } +{ #category : 'initialization' } RSInterference >> initialize [ | r | super initialize. @@ -27,32 +29,32 @@ RSInterference >> initialize [ self radius: r next * 300 ] -{ #category : #accessing } +{ #category : 'accessing' } RSInterference >> mode [ ^ mode ] -{ #category : #accessing } +{ #category : 'accessing' } RSInterference >> mode: aSymbol [ mode := aSymbol ] -{ #category : #accessing } +{ #category : 'accessing' } RSInterference >> position [ ^ position ] -{ #category : #accessing } +{ #category : 'accessing' } RSInterference >> position: aPoint [ position := aPoint ] -{ #category : #initialization } +{ #category : 'initialization' } RSInterference >> radius [ ^ radius ] -{ #category : #initialization } +{ #category : 'initialization' } RSInterference >> radius: aNumber [ radius := aNumber ] diff --git a/src/Roassal-Experimental/RSLissajous.class.st b/src/Roassal-Experimental/RSLissajous.class.st index 1c4ab5d1..ab39ad55 100644 --- a/src/Roassal-Experimental/RSLissajous.class.st +++ b/src/Roassal-Experimental/RSLissajous.class.st @@ -2,8 +2,8 @@ Based on https://es.wikipedia.org/wiki/Curva_de_Lissajous " Class { - #name : #RSLissajous, - #superclass : #Object, + #name : 'RSLissajous', + #superclass : 'Object', #instVars : [ 'canvas', 'nCircles', @@ -13,10 +13,12 @@ Class { 'dotSize', 'cell' ], - #category : #'Roassal-Experimental-Animations' + #category : 'Roassal-Experimental-Animations', + #package : 'Roassal-Experimental', + #tag : 'Animations' } -{ #category : #building } +{ #category : 'building' } RSLissajous >> build [ | rows columns | canvas color: Color black. @@ -28,7 +30,7 @@ RSLissajous >> build [ self createAnimationFor: row and: column ] ] ] -{ #category : #animations } +{ #category : 'animations' } RSLissajous >> createAnimationFor: row and: column [ | col points combined e1 e2 p1 p2 delta dot | e1 := column shapes first. @@ -56,7 +58,7 @@ RSLissajous >> createAnimationFor: row and: column [ ] ] -{ #category : #shapes } +{ #category : 'shapes' } RSLissajous >> createBigCircleFor: aPoint [ | group shape | group := RSGroup new. @@ -73,7 +75,7 @@ RSLissajous >> createBigCircleFor: aPoint [ ^ shape ] -{ #category : #shapes } +{ #category : 'shapes' } RSLissajous >> createCirclesWith: aBlockClosure [ | values shapes | values := (1 to: nCircles) collect: aBlockClosure. @@ -82,7 +84,7 @@ RSLissajous >> createCirclesWith: aBlockClosure [ ^ shapes ] -{ #category : #animations } +{ #category : 'animations' } RSLissajous >> createDot [ ^ RSEllipse new size: dotSize; @@ -91,7 +93,7 @@ RSLissajous >> createDot [ yourself ] -{ #category : #animations } +{ #category : 'animations' } RSLissajous >> createLineAnimationFor: shape [ | dot point index line | dot := self createDot. @@ -116,7 +118,7 @@ RSLissajous >> createLineAnimationFor: shape [ ] ] -{ #category : #shapes } +{ #category : 'shapes' } RSLissajous >> createLineFor: dot [ ^ RSLine new dashed; @@ -127,7 +129,7 @@ RSLissajous >> createLineFor: dot [ yourself ] -{ #category : #initialization } +{ #category : 'initialization' } RSLissajous >> initialize [ super initialize. canvas := RSCanvas new. @@ -140,7 +142,7 @@ RSLissajous >> initialize [ cell := gap + circleSize ] -{ #category : #running } +{ #category : 'running' } RSLissajous >> run [ self build. diff --git a/src/Roassal-Experimental/RSParticleD.class.st b/src/Roassal-Experimental/RSParticleD.class.st index f4cb952d..01efdb30 100644 --- a/src/Roassal-Experimental/RSParticleD.class.st +++ b/src/Roassal-Experimental/RSParticleD.class.st @@ -2,8 +2,8 @@ I am used in the delaunay example " Class { - #name : #RSParticleD, - #superclass : #RSObject, + #name : 'RSParticleD', + #superclass : 'RSObject', #instVars : [ 'pos', 'level', @@ -12,26 +12,28 @@ Class { 'decay', 'maxLevel' ], - #category : #'Roassal-Experimental-Delaunay' + #category : 'Roassal-Experimental-Delaunay', + #package : 'Roassal-Experimental', + #tag : 'Delaunay' } -{ #category : #accessing } +{ #category : 'accessing' } RSParticleD >> decay [ ^ decay ifNil: [ decay := 0.90 ] ] -{ #category : #accessing } +{ #category : 'accessing' } RSParticleD >> decay: aNumber [ decay := aNumber ] -{ #category : #initialization } +{ #category : 'initialization' } RSParticleD >> initialize [ super initialize. life := 0 ] -{ #category : #accessing } +{ #category : 'accessing' } RSParticleD >> level: anInteger [ | r | level := anInteger. @@ -40,22 +42,22 @@ RSParticleD >> level: anInteger [ vel := vel * (NSScale linear domain: {0. self maxLevel}; range: #(5 2); scale: level) ] -{ #category : #accessing } +{ #category : 'accessing' } RSParticleD >> life [ ^ life ] -{ #category : #accessing } +{ #category : 'accessing' } RSParticleD >> maxLevel [ ^ maxLevel ifNil: [ maxLevel := 5 ] ] -{ #category : #accessing } +{ #category : 'accessing' } RSParticleD >> maxLevel: aNumber [ maxLevel := aNumber ] -{ #category : #updating } +{ #category : 'updating' } RSParticleD >> moveIn: particles [ life := life + 1. "add friction" @@ -73,27 +75,27 @@ RSParticleD >> moveIn: particles [ ] ] -{ #category : #accessing } +{ #category : 'accessing' } RSParticleD >> position [ ^ pos ] -{ #category : #accessing } +{ #category : 'accessing' } RSParticleD >> position: aPoint [ pos := aPoint ] -{ #category : #accessing } +{ #category : 'accessing' } RSParticleD >> velocity [ ^ vel r ] -{ #category : #'accessing structure variables' } +{ #category : 'accessing structure variables' } RSParticleD >> x [ ^ pos x ] -{ #category : #'accessing structure variables' } +{ #category : 'accessing structure variables' } RSParticleD >> y [ ^ pos y ] diff --git a/src/Roassal-Experimental/RSParticleForce.class.st b/src/Roassal-Experimental/RSParticleForce.class.st index 96468544..cc63a905 100644 --- a/src/Roassal-Experimental/RSParticleForce.class.st +++ b/src/Roassal-Experimental/RSParticleForce.class.st @@ -2,32 +2,34 @@ TODO " Class { - #name : #RSParticleForce, - #superclass : #RSObject, + #name : 'RSParticleForce', + #superclass : 'RSObject', #instVars : [ 'position', 'shape', 'color' ], - #category : #'Roassal-Experimental-Force' + #category : 'Roassal-Experimental-Force', + #package : 'Roassal-Experimental', + #tag : 'Force' } -{ #category : #accessing } +{ #category : 'accessing' } RSParticleForce >> color: aColor [ color := aColor ] -{ #category : #accessing } +{ #category : 'accessing' } RSParticleForce >> position [ ^ position ] -{ #category : #accessing } +{ #category : 'accessing' } RSParticleForce >> position: aPoint [ ^ position := aPoint ] -{ #category : #rendering } +{ #category : 'rendering' } RSParticleForce >> renderIn: aCanvas [ shape ifNil: [ shape := RSEllipse new size: 1; color: (Color black alpha: 0.1). @@ -36,7 +38,7 @@ RSParticleForce >> renderIn: aCanvas [ shape position: position ] -{ #category : #rendering } +{ #category : 'rendering' } RSParticleForce >> renderIn: aCanvas perlin: perlin [ | period n | shape ifNil: [ @@ -50,7 +52,7 @@ RSParticleForce >> renderIn: aCanvas perlin: perlin [ shape position: position ] -{ #category : #rendering } +{ #category : 'rendering' } RSParticleForce >> renderIn: aCanvas with: colorGenerator [ shape ifNil: [ @@ -61,7 +63,7 @@ RSParticleForce >> renderIn: aCanvas with: colorGenerator [ shape position: position ] -{ #category : #updating } +{ #category : 'updating' } RSParticleForce >> update: itf with: force [ | dist p1 p2 dir | p1 := position. diff --git a/src/Roassal-Experimental/RSSankey.class.st b/src/Roassal-Experimental/RSSankey.class.st index b1f30684..2ed7607a 100644 --- a/src/Roassal-Experimental/RSSankey.class.st +++ b/src/Roassal-Experimental/RSSankey.class.st @@ -6,8 +6,8 @@ I am reimplemented the sankey code from D3 for smalltalk-pharo and some of their https://www.d3-graph-gallery.com/sankey " Class { - #name : #RSSankey, - #superclass : #RSBuilder, + #name : 'RSSankey', + #superclass : 'RSBuilder', #instVars : [ 'extent', 'nodePadding', @@ -22,17 +22,19 @@ Class { 'lines', 'boxColor' ], - #category : #'Roassal-Experimental-Sankey' + #category : 'Roassal-Experimental-Sankey', + #package : 'Roassal-Experimental', + #tag : 'Sankey' } -{ #category : #'instance creation' } +{ #category : 'instance creation' } RSSankey class >> withAllAssociations: aCollection [ ^ self withAllLinks: (aCollection collect: [ :eachAssociation | RSSankeyLink on: eachAssociation ]) ] -{ #category : #'instance creation' } +{ #category : 'instance creation' } RSSankey class >> withAllLinks: aCollection [ ^ self new @@ -45,31 +47,31 @@ RSSankey class >> withAllLinks: aCollection [ as: OrderedCollection) removeDuplicates ] -{ #category : #accessing } +{ #category : 'accessing' } RSSankey >> boxColor [ ^ boxColor ] -{ #category : #accessing } +{ #category : 'accessing' } RSSankey >> boxColor: anObject [ boxColor := anObject ] -{ #category : #accessing } +{ #category : 'accessing' } RSSankey >> boxShape [ ^ boxShape ] -{ #category : #accessing } +{ #category : 'accessing' } RSSankey >> boxes [ ^ boxes ] -{ #category : #private } +{ #category : 'private' } RSSankey >> boxesByBreadth [ | boxesByBreadth | @@ -79,7 +81,7 @@ RSSankey >> boxesByBreadth [ ^ boxesByBreadth ] -{ #category : #private } +{ #category : 'private' } RSSankey >> computeBoxesBreadths [ | remainingBoxes nextBoxes x kx | @@ -101,7 +103,7 @@ RSSankey >> computeBoxesBreadths [ box x: box x * kx ] ] -{ #category : #private } +{ #category : 'private' } RSSankey >> computeBoxesDepths [ | boxesByBreadth alpha | @@ -122,19 +124,19 @@ RSSankey >> computeBoxesDepths [ self computeLinesDepths ] ] -{ #category : #private } +{ #category : 'private' } RSSankey >> computeBoxesValues [ boxes do: [ :eachBox | eachBox computeValue ] ] -{ #category : #private } +{ #category : 'private' } RSSankey >> computeLinesDepths [ boxes do: [ :eachBox | eachBox computeLinesDepths ] ] -{ #category : #private } +{ #category : 'private' } RSSankey >> computeSankey [ self @@ -144,7 +146,7 @@ RSSankey >> computeSankey [ computeLinesDepths ] -{ #category : #hooks } +{ #category : 'hooks' } RSSankey >> createBoxes [ ^ nodes @@ -158,7 +160,7 @@ RSSankey >> createBoxes [ as: RSGroup ] -{ #category : #hooks } +{ #category : 'hooks' } RSSankey >> createLabels [ ^ nodes collect: [ :node | @@ -168,7 +170,7 @@ RSSankey >> createLabels [ yourself ] ] -{ #category : #hooks } +{ #category : 'hooks' } RSSankey >> createLines [ ^ links collect: [ :link | @@ -187,31 +189,31 @@ RSSankey >> createLines [ line ] ] -{ #category : #defaults } +{ #category : 'defaults' } RSSankey >> defaultContainer [ ^ RSCanvas new @ RSCanvasController ] -{ #category : #defaults } +{ #category : 'defaults' } RSSankey >> defaultLineColor [ ^ Color lightGray translucent ] -{ #category : #accessing } +{ #category : 'accessing' } RSSankey >> extent [ ^ extent ] -{ #category : #accessing } +{ #category : 'accessing' } RSSankey >> extent: anObject [ extent := anObject ] -{ #category : #initialization } +{ #category : 'initialization' } RSSankey >> initialize [ super initialize. @@ -224,93 +226,93 @@ RSSankey >> initialize [ self nodePadding: 0 ] -{ #category : #accessing } +{ #category : 'accessing' } RSSankey >> iterations [ ^ iterations ifNil: 1 ] -{ #category : #accessing } +{ #category : 'accessing' } RSSankey >> iterations: aNumber [ iterations := aNumber ] -{ #category : #accessing } +{ #category : 'accessing' } RSSankey >> labelShape [ ^ labelShape ] -{ #category : #accessing } +{ #category : 'accessing' } RSSankey >> labels [ ^ labels ] -{ #category : #accessing } +{ #category : 'accessing' } RSSankey >> lineShape [ ^ lineShape ] -{ #category : #accessing } +{ #category : 'accessing' } RSSankey >> lines [ ^ lines ] -{ #category : #accessing } +{ #category : 'accessing' } RSSankey >> links [ ^ links ] -{ #category : #accessing } +{ #category : 'accessing' } RSSankey >> links: aCollection [ links := aCollection ] -{ #category : #accessing } +{ #category : 'accessing' } RSSankey >> nodePadding [ ^ nodePadding ] -{ #category : #accessing } +{ #category : 'accessing' } RSSankey >> nodePadding: aNumber [ nodePadding := aNumber ] -{ #category : #accessing } +{ #category : 'accessing' } RSSankey >> nodes [ ^ nodes ] -{ #category : #accessing } +{ #category : 'accessing' } RSSankey >> nodes: aCollection [ nodes := aCollection asOrderedCollection ] -{ #category : #private } +{ #category : 'private' } RSSankey >> relaxLeftToRight: alpha boxes: boxesByBreadth [ boxesByBreadth flattened do: [ :eachBox | eachBox relaxLeftToRight: alpha ] ] -{ #category : #private } +{ #category : 'private' } RSSankey >> relaxRightToLeft: alpha boxes: boxesByBreadth [ boxesByBreadth reversed flattened do: [ :eachBox | eachBox relaxRightToLeft: alpha ] ] -{ #category : #rendering } +{ #category : 'rendering' } RSSankey >> renderIn: aCanvas [ nodes ifNil: [ ^ self ]. @@ -326,7 +328,7 @@ RSSankey >> renderIn: aCanvas [ self updateBoxes ] -{ #category : #private } +{ #category : 'private' } RSSankey >> resolveCollisions: boxesByBreadth [ | list node dy y0 | @@ -350,7 +352,7 @@ RSSankey >> resolveCollisions: boxesByBreadth [ y0 := node y ] ] ] ] -{ #category : #private } +{ #category : 'private' } RSSankey >> setupBoxesDepth: boxesByBreadth [ | ky | @@ -365,7 +367,7 @@ RSSankey >> setupBoxesDepth: boxesByBreadth [ lines do: [ :line | line dy: line value * ky ] ] -{ #category : #private } +{ #category : 'private' } RSSankey >> updateBoxes [ | side | diff --git a/src/Roassal-Experimental/RSSankeyBox.class.st b/src/Roassal-Experimental/RSSankeyBox.class.st index b967b4a6..b4118887 100644 --- a/src/Roassal-Experimental/RSSankeyBox.class.st +++ b/src/Roassal-Experimental/RSSankeyBox.class.st @@ -2,8 +2,8 @@ I represent boxes drawn in sankey charts " Class { - #name : #RSSankeyBox, - #superclass : #RSBox, + #name : 'RSSankeyBox', + #superclass : 'RSBox', #instVars : [ 'sourceLinks', 'targetLinks', @@ -13,16 +13,18 @@ Class { 'value', 'last' ], - #category : #'Roassal-Experimental-Sankey' + #category : 'Roassal-Experimental-Sankey', + #package : 'Roassal-Experimental', + #tag : 'Sankey' } -{ #category : #accessing } +{ #category : 'accessing' } RSSankeyBox >> center [ ^ self y + (self dy / 2) ] -{ #category : #computing } +{ #category : 'computing' } RSSankeyBox >> computeLinesDepths [ | sy ty | @@ -36,38 +38,38 @@ RSSankeyBox >> computeLinesDepths [ ty := ty + line dy ] ] -{ #category : #computing } +{ #category : 'computing' } RSSankeyBox >> computeValue [ self value: ((self sumLinks: sourceLinks) max: (self sumLinks: targetLinks)) ] -{ #category : #accessing } +{ #category : 'accessing' } RSSankeyBox >> dy [ ^ dy ] -{ #category : #accessing } +{ #category : 'accessing' } RSSankeyBox >> dy: anObject [ dy := anObject ] -{ #category : #accessing } +{ #category : 'accessing' } RSSankeyBox >> last [ ^ last ifNil: [ false ] ] -{ #category : #accessing } +{ #category : 'accessing' } RSSankeyBox >> last: aBoolean [ last := aBoolean ] -{ #category : #computing } +{ #category : 'computing' } RSSankeyBox >> relaxLeftToRight: alpha [ targetLinks ifNotEmpty: [ @@ -77,7 +79,7 @@ RSSankeyBox >> relaxLeftToRight: alpha [ self y: y + (alpha * (averageY - self center)) ] ] -{ #category : #computing } +{ #category : 'computing' } RSSankeyBox >> relaxRightToLeft: alpha [ sourceLinks ifNotEmpty: [ @@ -87,26 +89,26 @@ RSSankeyBox >> relaxRightToLeft: alpha [ self y: y + (alpha * (averageY - self center)) ] ] -{ #category : #computing } +{ #category : 'computing' } RSSankeyBox >> sortLinks [ sourceLinks sort: [ :a1 :b1 | a1 to y < b1 to y ]. targetLinks sort: [ :a :b | a from y < b from y ] ] -{ #category : #accessing } +{ #category : 'accessing' } RSSankeyBox >> sourceLinks [ ^ sourceLinks ] -{ #category : #accessing } +{ #category : 'accessing' } RSSankeyBox >> sourceLinks: aCollection [ sourceLinks := aCollection ] -{ #category : #computing } +{ #category : 'computing' } RSSankeyBox >> sumLinks: aCollectionOfLinks [ ^ aCollectionOfLinks @@ -114,49 +116,49 @@ RSSankeyBox >> sumLinks: aCollectionOfLinks [ into: [ :sum :link | link value + sum ] ] -{ #category : #accessing } +{ #category : 'accessing' } RSSankeyBox >> targetLinks [ ^ targetLinks ] -{ #category : #accessing } +{ #category : 'accessing' } RSSankeyBox >> targetLinks: aCollection [ targetLinks := aCollection ] -{ #category : #accessing } +{ #category : 'accessing' } RSSankeyBox >> value [ ^ value ] -{ #category : #accessing } +{ #category : 'accessing' } RSSankeyBox >> value: anObject [ value := anObject ] -{ #category : #accessing } +{ #category : 'accessing' } RSSankeyBox >> x [ ^ x ] -{ #category : #accessing } +{ #category : 'accessing' } RSSankeyBox >> x: anObject [ x := anObject ] -{ #category : #accessing } +{ #category : 'accessing' } RSSankeyBox >> y [ ^ y ] -{ #category : #accessing } +{ #category : 'accessing' } RSSankeyBox >> y: anObject [ y := anObject diff --git a/src/Roassal-Experimental/RSSankeyCPController.class.st b/src/Roassal-Experimental/RSSankeyCPController.class.st index 74b658c6..5fcec256 100644 --- a/src/Roassal-Experimental/RSSankeyCPController.class.st +++ b/src/Roassal-Experimental/RSSankeyCPController.class.st @@ -2,12 +2,14 @@ TODO " Class { - #name : #RSSankeyCPController, - #superclass : #RSAbstractCPController, - #category : #'Roassal-Experimental-Sankey' + #name : 'RSSankeyCPController', + #superclass : 'RSAbstractCPController', + #category : 'Roassal-Experimental-Sankey', + #package : 'Roassal-Experimental', + #tag : 'Sankey' } -{ #category : #hooks } +{ #category : 'hooks' } RSSankeyCPController >> controlPointsFor: aLine [ | x1 x2 x3 x4 y1 y2 y3 y4 sy ty | diff --git a/src/Roassal-Experimental/RSSankeyExamples.class.st b/src/Roassal-Experimental/RSSankeyExamples.class.st index 3f81cc27..e718e0be 100644 --- a/src/Roassal-Experimental/RSSankeyExamples.class.st +++ b/src/Roassal-Experimental/RSSankeyExamples.class.st @@ -2,12 +2,14 @@ I have examples of RSSankey " Class { - #name : #RSSankeyExamples, - #superclass : #RSAbstractExamples, - #category : #'Roassal-Experimental-Sankey' + #name : 'RSSankeyExamples', + #superclass : 'RSAbstractExamples', + #category : 'Roassal-Experimental-Sankey', + #package : 'Roassal-Experimental', + #tag : 'Sankey' } -{ #category : #examples } +{ #category : 'examples' } RSSankeyExamples >> example01 [ | data b nodes links | @@ -36,7 +38,7 @@ RSSankeyExamples >> example01 [ ^ b ] -{ #category : #examples } +{ #category : 'examples' } RSSankeyExamples >> example02Colors [ | b | @@ -47,7 +49,7 @@ RSSankeyExamples >> example02Colors [ ^ b ] -{ #category : #examples } +{ #category : 'examples' } RSSankeyExamples >> example03Colors [ | b colors | @@ -65,7 +67,7 @@ RSSankeyExamples >> example03Colors [ ^ b ] -{ #category : #examples } +{ #category : 'examples' } RSSankeyExamples >> example04Popup [ | b | @@ -81,7 +83,7 @@ RSSankeyExamples >> example04Popup [ ^ b ] -{ #category : #examples } +{ #category : 'examples' } RSSankeyExamples >> example05Animation [ | b blue blue2 | @@ -113,7 +115,7 @@ RSSankeyExamples >> example05Animation [ ^ b canvas ] -{ #category : #examples } +{ #category : 'examples' } RSSankeyExamples >> example06Gradient [ | b | @@ -133,7 +135,7 @@ RSSankeyExamples >> example06Gradient [ ^ b canvas ] -{ #category : #examples } +{ #category : 'examples' } RSSankeyExamples >> sankeyData [ ^ Dictionary new @@ -260,7 +262,7 @@ RSSankeyExamples >> sankeyData [ yourself ] -{ #category : #examples } +{ #category : 'examples' } RSSankeyExamples >> smallExample [ diff --git a/src/Roassal-Experimental/RSSankeyLine.class.st b/src/Roassal-Experimental/RSSankeyLine.class.st index 9b8bb286..6f2dba1e 100644 --- a/src/Roassal-Experimental/RSSankeyLine.class.st +++ b/src/Roassal-Experimental/RSSankeyLine.class.st @@ -2,72 +2,74 @@ I represent lines drawn in sankey charts, these lines have instance variables used by Sankey layout algorithmn " Class { - #name : #RSSankeyLine, - #superclass : #RSBezier, + #name : 'RSSankeyLine', + #superclass : 'RSBezier', #instVars : [ 'sy', 'dy', 'ty', 'value' ], - #category : #'Roassal-Experimental-Sankey' + #category : 'Roassal-Experimental-Sankey', + #package : 'Roassal-Experimental', + #tag : 'Sankey' } -{ #category : #accessing } +{ #category : 'accessing' } RSSankeyLine >> dy [ ^ dy ] -{ #category : #accessing } +{ #category : 'accessing' } RSSankeyLine >> dy: anObject [ dy := anObject ] -{ #category : #accessing } +{ #category : 'accessing' } RSSankeyLine >> sy [ ^ sy ] -{ #category : #accessing } +{ #category : 'accessing' } RSSankeyLine >> sy: anObject [ sy := anObject ] -{ #category : #accessing } +{ #category : 'accessing' } RSSankeyLine >> ty [ ^ ty ] -{ #category : #accessing } +{ #category : 'accessing' } RSSankeyLine >> ty: anObject [ ty := anObject ] -{ #category : #accessing } +{ #category : 'accessing' } RSSankeyLine >> value [ ^ value ] -{ #category : #accessing } +{ #category : 'accessing' } RSSankeyLine >> value: anObject [ value := anObject ] -{ #category : #computing } +{ #category : 'computing' } RSSankeyLine >> weightedSource [ ^ self from center * self value ] -{ #category : #computing } +{ #category : 'computing' } RSSankeyLine >> weightedTarget [ ^ self to center * self value diff --git a/src/Roassal-Experimental/RSSankeyLink.class.st b/src/Roassal-Experimental/RSSankeyLink.class.st index 6c9e1aa7..fd44bee2 100644 --- a/src/Roassal-Experimental/RSSankeyLink.class.st +++ b/src/Roassal-Experimental/RSSankeyLink.class.st @@ -2,17 +2,19 @@ I represent links between sankey charts nodes " Class { - #name : #RSSankeyLink, - #superclass : #RSObject, + #name : 'RSSankeyLink', + #superclass : 'RSObject', #instVars : [ 'from', 'to', 'value' ], - #category : #'Roassal-Experimental-Sankey' + #category : 'Roassal-Experimental-Sankey', + #package : 'Roassal-Experimental', + #tag : 'Sankey' } -{ #category : #'instance creation' } +{ #category : 'instance creation' } RSSankeyLink class >> on: anAssociation [ ^ self new @@ -22,7 +24,7 @@ RSSankeyLink class >> on: anAssociation [ yourself ] -{ #category : #comparing } +{ #category : 'comparing' } RSSankeyLink >> = anObject [ ^ anObject class == self class and: [ @@ -30,25 +32,25 @@ RSSankeyLink >> = anObject [ anObject to = self to and: [ anObject value = self value ] ] ] ] -{ #category : #accessing } +{ #category : 'accessing' } RSSankeyLink >> from [ ^ from ] -{ #category : #accessing } +{ #category : 'accessing' } RSSankeyLink >> from: anObject [ from := anObject ] -{ #category : #comparing } +{ #category : 'comparing' } RSSankeyLink >> hash [ ^ self from hash bitXor: (self to hash bitXor: self value hash) ] -{ #category : #printing } +{ #category : 'printing' } RSSankeyLink >> printOn: stream [ stream << from @@ -56,25 +58,25 @@ RSSankeyLink >> printOn: stream [ << to ] -{ #category : #accessing } +{ #category : 'accessing' } RSSankeyLink >> to [ ^ to ] -{ #category : #accessing } +{ #category : 'accessing' } RSSankeyLink >> to: anObject [ to := anObject ] -{ #category : #accessing } +{ #category : 'accessing' } RSSankeyLink >> value [ ^ value ] -{ #category : #accessing } +{ #category : 'accessing' } RSSankeyLink >> value: anObject [ value := anObject diff --git a/src/Roassal-Experimental/RSSankeyTest.class.st b/src/Roassal-Experimental/RSSankeyTest.class.st index 08c79936..6bb9d0ee 100644 --- a/src/Roassal-Experimental/RSSankeyTest.class.st +++ b/src/Roassal-Experimental/RSSankeyTest.class.st @@ -1,13 +1,15 @@ Class { - #name : #RSSankeyTest, - #superclass : #RSTest, + #name : 'RSSankeyTest', + #superclass : 'RSTest', #instVars : [ 'sankey' ], - #category : #'Roassal-Experimental-Sankey' + #category : 'Roassal-Experimental-Sankey', + #package : 'Roassal-Experimental', + #tag : 'Sankey' } -{ #category : #running } +{ #category : 'running' } RSSankeyTest >> setUp [ super setUp. @@ -27,7 +29,7 @@ RSSankeyTest >> setUp [ sankey build ] -{ #category : #tests } +{ #category : 'tests' } RSSankeyTest >> testBoxDy [ self assert: (sankey boxes at: 1) dy equals: 1225 / 3. @@ -37,7 +39,7 @@ RSSankeyTest >> testBoxDy [ self assert: (sankey boxes at: 5) dy equals: 980 / 3 ] -{ #category : #tests } +{ #category : 'tests' } RSSankeyTest >> testBoxLast [ self deny: (sankey boxes at: 1) last. @@ -47,7 +49,7 @@ RSSankeyTest >> testBoxLast [ self assert: (sankey boxes at: 5) last ] -{ #category : #tests } +{ #category : 'tests' } RSSankeyTest >> testBoxModel [ self assert: (sankey boxes at: 1) model equals: #Source1. @@ -57,7 +59,7 @@ RSSankeyTest >> testBoxModel [ self assert: (sankey boxes at: 5) model equals: #Target3 ] -{ #category : #tests } +{ #category : 'tests' } RSSankeyTest >> testBoxValue [ self assert: (sankey boxes at: 1) value equals: 5. @@ -67,7 +69,7 @@ RSSankeyTest >> testBoxValue [ self assert: (sankey boxes at: 5) value equals: 4 ] -{ #category : #tests } +{ #category : 'tests' } RSSankeyTest >> testBoxX [ self assert: (sankey boxes at: 1) x equals: 0. @@ -77,7 +79,7 @@ RSSankeyTest >> testBoxX [ self assert: (sankey boxes at: 5) x equals: 960 ] -{ #category : #tests } +{ #category : 'tests' } RSSankeyTest >> testBoxY [ self assert: ((sankey boxes at: 1) y closeTo: 0 precision: 10e-2). @@ -87,7 +89,7 @@ RSSankeyTest >> testBoxY [ self assert: ((sankey boxes at: 5) y closeTo: 0 precision: 10e-2) ] -{ #category : #tests } +{ #category : 'tests' } RSSankeyTest >> testGenerateSankeyUsingSet [ RSSankey withAllAssociations: { @@ -97,7 +99,7 @@ RSSankeyTest >> testGenerateSankeyUsingSet [ (#Target1 -> 4 -> #Target3) } asSet ] -{ #category : #tests } +{ #category : 'tests' } RSSankeyTest >> testLineDy [ self assert: (sankey lines at: 1) dy equals: 1225 / 3. @@ -106,7 +108,7 @@ RSSankeyTest >> testLineDy [ self assert: (sankey lines at: 4) dy equals: 980 / 3 ] -{ #category : #tests } +{ #category : 'tests' } RSSankeyTest >> testLineModel [ self @@ -123,7 +125,7 @@ RSSankeyTest >> testLineModel [ equals: (RSSankeyLink on: #Target1 -> 4 -> #Target3) ] -{ #category : #tests } +{ #category : 'tests' } RSSankeyTest >> testLineSy [ self assert: (sankey lines at: 1) sy equals: 0. @@ -132,7 +134,7 @@ RSSankeyTest >> testLineSy [ self assert: (sankey lines at: 4) sy equals: 0 ] -{ #category : #tests } +{ #category : 'tests' } RSSankeyTest >> testLineTy [ self assert: (sankey lines at: 1) ty equals: 0. @@ -141,7 +143,7 @@ RSSankeyTest >> testLineTy [ self assert: (sankey lines at: 4) ty equals: 0 ] -{ #category : #tests } +{ #category : 'tests' } RSSankeyTest >> testLineValue [ self assert: (sankey lines at: 1) value equals: 5. @@ -150,7 +152,7 @@ RSSankeyTest >> testLineValue [ self assert: (sankey lines at: 4) value equals: 4 ] -{ #category : #tests } +{ #category : 'tests' } RSSankeyTest >> testNodeAndLinksOrders [ self diff --git a/src/Roassal-Experimental/RSXmasBranch.class.st b/src/Roassal-Experimental/RSXmasBranch.class.st index 995f2713..da0d9c82 100644 --- a/src/Roassal-Experimental/RSXmasBranch.class.st +++ b/src/Roassal-Experimental/RSXmasBranch.class.st @@ -2,8 +2,8 @@ I am a demo " Class { - #name : #RSXmasBranch, - #superclass : #Object, + #name : 'RSXmasBranch', + #superclass : 'Object', #instVars : [ 'positions', 'thickness', @@ -11,30 +11,32 @@ Class { 'baseIndex', 'dTheta' ], - #category : #'Roassal-Experimental-Xmas2019' + #category : 'Roassal-Experimental-Xmas2019', + #package : 'Roassal-Experimental', + #tag : 'Xmas2019' } -{ #category : #adding } +{ #category : 'adding' } RSXmasBranch >> addBaseIndex: aPoint [ baseIndex add: aPoint ] -{ #category : #adding } +{ #category : 'adding' } RSXmasBranch >> addPosition: aPoint [ positions add: aPoint ] -{ #category : #adding } +{ #category : 'adding' } RSXmasBranch >> addThickness: aFloat [ thickness add: aFloat ] -{ #category : #accessing } +{ #category : 'accessing' } RSXmasBranch >> baseIndex [ ^ baseIndex ] -{ #category : #public } +{ #category : 'public' } RSXmasBranch >> branchRotate: index theta: theta position: reference [ | v | v := positions at: index. @@ -46,17 +48,17 @@ RSXmasBranch >> branchRotate: index theta: theta position: reference [ positions at: index put: v ] -{ #category : #accessing } +{ #category : 'accessing' } RSXmasBranch >> dTheta [ ^ dTheta ] -{ #category : #accessing } +{ #category : 'accessing' } RSXmasBranch >> dTheta: aCollection [ dTheta := aCollection ] -{ #category : #initialization } +{ #category : 'initialization' } RSXmasBranch >> initialize [ super initialize. positions := OrderedCollection new. @@ -65,27 +67,27 @@ RSXmasBranch >> initialize [ isCandidate := false ] -{ #category : #accessing } +{ #category : 'accessing' } RSXmasBranch >> isCandidate [ ^ isCandidate ] -{ #category : #accessing } +{ #category : 'accessing' } RSXmasBranch >> isCandidate: aBool [ isCandidate := aBool ] -{ #category : #accessing } +{ #category : 'accessing' } RSXmasBranch >> positions [ ^ positions ] -{ #category : #accessing } +{ #category : 'accessing' } RSXmasBranch >> setLastThickness: aNumber [ thickness at: thickness size put: aNumber ] -{ #category : #accessing } +{ #category : 'accessing' } RSXmasBranch >> thickness [ ^ thickness ] diff --git a/src/Roassal-Experimental/RSXmasExample.class.st b/src/Roassal-Experimental/RSXmasExample.class.st index 3d0832a0..271039fe 100644 --- a/src/Roassal-Experimental/RSXmasExample.class.st +++ b/src/Roassal-Experimental/RSXmasExample.class.st @@ -2,12 +2,14 @@ I am just a demo " Class { - #name : #RSXmasExample, - #superclass : #Object, - #category : #'Roassal-Experimental-Xmas2019' + #name : 'RSXmasExample', + #superclass : 'Object', + #category : 'Roassal-Experimental-Xmas2019', + #package : 'Roassal-Experimental', + #tag : 'Xmas2019' } -{ #category : #accessing } +{ #category : 'accessing' } RSXmasExample >> background [ @@ -61,7 +63,7 @@ RSXmasExample >> background [ ^ v ] -{ #category : #accessing } +{ #category : 'accessing' } RSXmasExample >> icon [ | c | c := RSComposite new. @@ -188,7 +190,7 @@ l52 -46 0 -113 0 -113 -80 -76 c-181 -170 -398 -226 -564 -145 -22 10 -41 19 ^ c ] -{ #category : #accessing } +{ #category : 'accessing' } RSXmasExample >> myIcon [ | canvas c r paint | @@ -213,7 +215,7 @@ RSXmasExample >> myIcon [ ^ canvas ] -{ #category : #running } +{ #category : 'running' } RSXmasExample >> run [ | full background tree icon title world | @@ -239,7 +241,7 @@ RSXmasExample >> run [ (full openInWindowLabeled: '2020') position: 100 asPoint ] -{ #category : #accessing } +{ #category : 'accessing' } RSXmasExample >> title [ | canvas title t2020 | @@ -279,7 +281,7 @@ RSXmasExample >> title [ ^ canvas ] -{ #category : #running } +{ #category : 'running' } RSXmasExample >> tree [ | canvas tree | diff --git a/src/Roassal-Experimental/RSXmasFrontier.class.st b/src/Roassal-Experimental/RSXmasFrontier.class.st index f633ab25..b2a2f5ba 100644 --- a/src/Roassal-Experimental/RSXmasFrontier.class.st +++ b/src/Roassal-Experimental/RSXmasFrontier.class.st @@ -2,55 +2,57 @@ I am a demo " Class { - #name : #RSXmasFrontier, - #superclass : #Object, + #name : 'RSXmasFrontier', + #superclass : 'Object', #instVars : [ 'position', 'velocity', 'finished', 'thickness' ], - #category : #'Roassal-Experimental-Xmas2019' + #category : 'Roassal-Experimental-Xmas2019', + #package : 'Roassal-Experimental', + #tag : 'Xmas2019' } -{ #category : #accessing } +{ #category : 'accessing' } RSXmasFrontier >> finished [ ^ finished ] -{ #category : #accessing } +{ #category : 'accessing' } RSXmasFrontier >> finished: aBool [ finished := aBool ] -{ #category : #initialization } +{ #category : 'initialization' } RSXmasFrontier >> initialize [ super initialize. finished := false. thickness := SharedRandom globalGenerator rsNext: 10 and: 20 ] -{ #category : #accessing } +{ #category : 'accessing' } RSXmasFrontier >> position [ ^ position ] -{ #category : #accessing } +{ #category : 'accessing' } RSXmasFrontier >> position: aPoint [ position := aPoint ] -{ #category : #accessing } +{ #category : 'accessing' } RSXmasFrontier >> thickness [ ^ thickness ] -{ #category : #accessing } +{ #category : 'accessing' } RSXmasFrontier >> thickness: aNumber [ thickness := aNumber ] -{ #category : #updating } +{ #category : 'updating' } RSXmasFrontier >> update: factor [ | rect r | rect := -10 asPoint corner: 510 asPoint. @@ -68,12 +70,12 @@ RSXmasFrontier >> update: factor [ ] ] -{ #category : #accessing } +{ #category : 'accessing' } RSXmasFrontier >> velocity [ ^ velocity ] -{ #category : #accessing } +{ #category : 'accessing' } RSXmasFrontier >> velocity: aPoint [ velocity := aPoint ] diff --git a/src/Roassal-Experimental/RSXmasTree.class.st b/src/Roassal-Experimental/RSXmasTree.class.st index 80051eb0..beaaa34d 100644 --- a/src/Roassal-Experimental/RSXmasTree.class.st +++ b/src/Roassal-Experimental/RSXmasTree.class.st @@ -2,8 +2,8 @@ just a demo " Class { - #name : #RSXmasTree, - #superclass : #Object, + #name : 'RSXmasTree', + #superclass : 'Object', #instVars : [ 'branchPositionFactor', 'branchLenghtFactor', @@ -18,10 +18,12 @@ Class { 'treeSize', 'map' ], - #category : #'Roassal-Experimental-Xmas2019' + #category : 'Roassal-Experimental-Xmas2019', + #package : 'Roassal-Experimental', + #tag : 'Xmas2019' } -{ #category : #initialization } +{ #category : 'initialization' } RSXmasTree >> initialize [ super initialize. @@ -32,7 +34,7 @@ RSXmasTree >> initialize [ self initializeBraches ] -{ #category : #initialization } +{ #category : 'initialization' } RSXmasTree >> initializeBraches [ | frontiers r growth candList | candidateIndex := Array new:3. @@ -121,7 +123,7 @@ RSXmasTree >> initializeBraches [ phaseFactor at: i put: (phaseFactor at: i-1)*(r rsNext: 0.9 and: 1.4) ] ] -{ #category : #public } +{ #category : 'public' } RSXmasTree >> renderIn: canvas [ | color | color := (Color r: 80 g: 0 b: 50 range: 255) alpha: 0.4. @@ -146,7 +148,7 @@ RSXmasTree >> renderIn: canvas [ ] ] -{ #category : #public } +{ #category : 'public' } RSXmasTree >> swing [ 1 to: 3 do: [ :i | | t | t := twigs at: (candidateIndex at: i). @@ -178,7 +180,7 @@ RSXmasTree >> swing [ time >= period ifTrue: [ time := time - period ] ] -{ #category : #public } +{ #category : 'public' } RSXmasTree >> updateCanvas: canvas [ 2 to: treeSize do: [ :index | | t mi | diff --git a/src/Roassal-Experimental/package.st b/src/Roassal-Experimental/package.st index cbe4350c..abc42807 100644 --- a/src/Roassal-Experimental/package.st +++ b/src/Roassal-Experimental/package.st @@ -1 +1 @@ -Package { #name : #'Roassal-Experimental' } +Package { #name : 'Roassal-Experimental' } diff --git a/src/Roassal-FlameGraph-Examples/RSFlameGraphExamples.class.st b/src/Roassal-FlameGraph-Examples/RSFlameGraphExamples.class.st index 334c7ef5..22ce5522 100644 --- a/src/Roassal-FlameGraph-Examples/RSFlameGraphExamples.class.st +++ b/src/Roassal-FlameGraph-Examples/RSFlameGraphExamples.class.st @@ -1,10 +1,11 @@ Class { - #name : #RSFlameGraphExamples, - #superclass : #RSAbstractExamples, - #category : #'Roassal-FlameGraph-Examples' + #name : 'RSFlameGraphExamples', + #superclass : 'RSAbstractExamples', + #category : 'Roassal-FlameGraph-Examples', + #package : 'Roassal-FlameGraph-Examples' } -{ #category : #examples } +{ #category : 'examples' } RSFlameGraphExamples >> example01FileSystem [ @@ -46,7 +47,7 @@ RSFlameGraphExamples >> example01FileSystem [ yourself ] -{ #category : #examples } +{ #category : 'examples' } RSFlameGraphExamples >> example02FileSystem [ diff --git a/src/Roassal-FlameGraph-Examples/package.st b/src/Roassal-FlameGraph-Examples/package.st index a64e3abb..14980369 100644 --- a/src/Roassal-FlameGraph-Examples/package.st +++ b/src/Roassal-FlameGraph-Examples/package.st @@ -1 +1 @@ -Package { #name : #'Roassal-FlameGraph-Examples' } +Package { #name : 'Roassal-FlameGraph-Examples' } diff --git a/src/Roassal-FlameGraph/RSFlameGraph.class.st b/src/Roassal-FlameGraph/RSFlameGraph.class.st index c41c3620..c041211f 100644 --- a/src/Roassal-FlameGraph/RSFlameGraph.class.st +++ b/src/Roassal-FlameGraph/RSFlameGraph.class.st @@ -6,31 +6,32 @@ https://github.com/brendangregg/FlameGraph " Class { - #name : #RSFlameGraph, - #superclass : #RSAbstractTreeBuilder, + #name : 'RSFlameGraph', + #superclass : 'RSAbstractTreeBuilder', #instVars : [ 'gap', 'boxShape', 'graphWidth', 'boxHeight' ], - #category : #'Roassal-FlameGraph' + #category : 'Roassal-FlameGraph', + #package : 'Roassal-FlameGraph' } -{ #category : #accessing } +{ #category : 'accessing' } RSFlameGraph >> boxHeight: anInteger [ "Set the height for the rectangles that will represent the nodes of the tree." boxHeight := anInteger ] -{ #category : #accessing } +{ #category : 'accessing' } RSFlameGraph >> boxShape [ ^ boxShape ] -{ #category : #private } +{ #category : 'private' } RSFlameGraph >> doLayout [ "Establish the position and extent of each rectangle of the graph." @@ -52,13 +53,13 @@ RSFlameGraph >> doLayout [ roots do: [ :shape | shape sparent: nil ] ] ] -{ #category : #accessing } +{ #category : 'accessing' } RSFlameGraph >> gap [ ^ gap ] -{ #category : #accessing } +{ #category : 'accessing' } RSFlameGraph >> gap: aPoint [ "Set the gap between the rectangles. The x value represents the horizontal gap between siblings. @@ -67,14 +68,14 @@ RSFlameGraph >> gap: aPoint [ gap := aPoint ] -{ #category : #accessing } +{ #category : 'accessing' } RSFlameGraph >> graphWidth: anInteger [ "Set the expected width for the roots." graphWidth := anInteger ] -{ #category : #initialization } +{ #category : 'initialization' } RSFlameGraph >> initialize [ super initialize. @@ -87,7 +88,7 @@ RSFlameGraph >> initialize [ gap: 1 asPoint ] -{ #category : #rendering } +{ #category : 'rendering' } RSFlameGraph >> layoutFlameGraph: aShape [ self @@ -95,7 +96,7 @@ RSFlameGraph >> layoutFlameGraph: aShape [ setupHorizontallyOn: aShape ] -{ #category : #rendering } +{ #category : 'rendering' } RSFlameGraph >> renderIn: aCanvas [ super renderIn: aCanvas. @@ -103,7 +104,7 @@ RSFlameGraph >> renderIn: aCanvas [ self doLayout ] -{ #category : #rendering } +{ #category : 'rendering' } RSFlameGraph >> setupHorizontallyOn: shape [ | children parentX parentWidth parentWeight ratio gap2 | @@ -128,7 +129,7 @@ RSFlameGraph >> setupHorizontallyOn: shape [ self layoutFlameGraph: child ] ] -{ #category : #rendering } +{ #category : 'rendering' } RSFlameGraph >> setupVerticallyOn: aShape [ | depth y | @@ -140,7 +141,7 @@ RSFlameGraph >> setupVerticallyOn: aShape [ height: boxHeight ] -{ #category : #rendering } +{ #category : 'rendering' } RSFlameGraph >> shapeFor: anObject [ ^ self boxShape copyWithAnnouncer diff --git a/src/Roassal-FlameGraph/package.st b/src/Roassal-FlameGraph/package.st index 825e5612..72d5f223 100644 --- a/src/Roassal-FlameGraph/package.st +++ b/src/Roassal-FlameGraph/package.st @@ -1 +1 @@ -Package { #name : #'Roassal-FlameGraph' } +Package { #name : 'Roassal-FlameGraph' } diff --git a/src/Roassal-GraphViz/GraphvizFFILibrary.class.st b/src/Roassal-GraphViz/GraphvizFFILibrary.class.st index 1821092b..6890f2ed 100644 --- a/src/Roassal-GraphViz/GraphvizFFILibrary.class.st +++ b/src/Roassal-GraphViz/GraphvizFFILibrary.class.st @@ -1,10 +1,12 @@ Class { - #name : #GraphvizFFILibrary, - #superclass : #FFILibrary, - #category : #'Roassal-GraphViz-FFI' + #name : 'GraphvizFFILibrary', + #superclass : 'FFILibrary', + #category : 'Roassal-GraphViz-FFI', + #package : 'Roassal-GraphViz', + #tag : 'FFI' } -{ #category : #'accessing platform' } +{ #category : 'accessing platform' } GraphvizFFILibrary >> macModuleName [ { 'liball.dylib' . @@ -14,7 +16,7 @@ GraphvizFFILibrary >> macModuleName [ self error: 'Cannot locate the liball library.' ] -{ #category : #'accessing platform' } +{ #category : 'accessing platform' } GraphvizFFILibrary >> unixModuleName [ ^ 'liball.so' ] diff --git a/src/Roassal-GraphViz/RSAbstractDotConverter.class.st b/src/Roassal-GraphViz/RSAbstractDotConverter.class.st index 817c3292..d471e6e7 100644 --- a/src/Roassal-GraphViz/RSAbstractDotConverter.class.st +++ b/src/Roassal-GraphViz/RSAbstractDotConverter.class.st @@ -2,33 +2,35 @@ Abstract converter for different types of layouts in graphviz " Class { - #name : #RSAbstractDotConverter, - #superclass : #Object, + #name : 'RSAbstractDotConverter', + #superclass : 'Object', #instVars : [ 'stream', 'nodes', 'dotMode' ], - #category : #'Roassal-GraphViz-Core' + #category : 'Roassal-GraphViz-Core', + #package : 'Roassal-GraphViz', + #tag : 'Core' } -{ #category : #accessing } +{ #category : 'accessing' } RSAbstractDotConverter >> dotMode: aRSDotMode [ dotMode := aRSDotMode ] -{ #category : #visiting } +{ #category : 'visiting' } RSAbstractDotConverter >> idFor: aShape [ ^ nodes at: aShape ifAbsentPut: [ (nodes size+1) asString ] ] -{ #category : #accessing } +{ #category : 'accessing' } RSAbstractDotConverter >> stream [ ^ stream ] -{ #category : #visiting } +{ #category : 'visiting' } RSAbstractDotConverter >> visitBoundingShape: aShape [ "http://www.graphviz.org/doc/info/attrs.html#d:height" | s | @@ -42,12 +44,12 @@ RSAbstractDotConverter >> visitBoundingShape: aShape [ << ']' ] -{ #category : #visiting } +{ #category : 'visiting' } RSAbstractDotConverter >> visitCanvas: aCanvas [ aCanvas shapes accept: self ] -{ #category : #visiting } +{ #category : 'visiting' } RSAbstractDotConverter >> visitGroup: aRSGroup [ stream := WriteStream on: String new. @@ -61,12 +63,12 @@ RSAbstractDotConverter >> visitGroup: aRSGroup [ stream close ] -{ #category : #visiting } +{ #category : 'visiting' } RSAbstractDotConverter >> visitLabel: aShape [ ^ self visitBoundingShape: aShape ] -{ #category : #visiting } +{ #category : 'visiting' } RSAbstractDotConverter >> visitLine: aLine [ stream << '"'; @@ -79,12 +81,12 @@ RSAbstractDotConverter >> visitLine: aLine [ << '"' ] -{ #category : #visiting } +{ #category : 'visiting' } RSAbstractDotConverter >> writeHeader: aRSGroup [ self subclassResponsibility ] -{ #category : #visiting } +{ #category : 'visiting' } RSAbstractDotConverter >> writeLineConnector: aLine [ self subclassResponsibility ] diff --git a/src/Roassal-GraphViz/RSDigraphDotConverter.class.st b/src/Roassal-GraphViz/RSDigraphDotConverter.class.st index 6f6eb603..cb4e96c7 100644 --- a/src/Roassal-GraphViz/RSDigraphDotConverter.class.st +++ b/src/Roassal-GraphViz/RSDigraphDotConverter.class.st @@ -5,12 +5,14 @@ digraph G {Hello->World} ``` " Class { - #name : #RSDigraphDotConverter, - #superclass : #RSAbstractDotConverter, - #category : #'Roassal-GraphViz-Core' + #name : 'RSDigraphDotConverter', + #superclass : 'RSAbstractDotConverter', + #category : 'Roassal-GraphViz-Core', + #package : 'Roassal-GraphViz', + #tag : 'Core' } -{ #category : #visiting } +{ #category : 'visiting' } RSDigraphDotConverter >> writeHeader: aRSGroup [ stream << 'digraph G {'; crlf; @@ -18,7 +20,7 @@ RSDigraphDotConverter >> writeHeader: aRSGroup [ << 'mincross = 2.0 ; '; crlf ] -{ #category : #visiting } +{ #category : 'visiting' } RSDigraphDotConverter >> writeLineConnector: aLine [ stream << '->' ] diff --git a/src/Roassal-GraphViz/RSGraphVizExamples.class.st b/src/Roassal-GraphViz/RSGraphVizExamples.class.st index 8ce55eee..33d2c78e 100644 --- a/src/Roassal-GraphViz/RSGraphVizExamples.class.st +++ b/src/Roassal-GraphViz/RSGraphVizExamples.class.st @@ -4,12 +4,14 @@ read https://graphviz.org/ " Class { - #name : #RSGraphVizExamples, - #superclass : #Object, - #category : #'Roassal-GraphViz-Example' + #name : 'RSGraphVizExamples', + #superclass : 'Object', + #category : 'Roassal-GraphViz-Example', + #package : 'Roassal-GraphViz', + #tag : 'Example' } -{ #category : #examples } +{ #category : 'examples' } RSGraphVizExamples >> example01Basic [ @@ -34,7 +36,7 @@ RSGraphVizExamples >> example01Basic [ process closeAndCleanStreams ] -{ #category : #examples } +{ #category : 'examples' } RSGraphVizExamples >> example02Basic [ "" "this is just an idea for a future example" @@ -86,7 +88,7 @@ fontsize=12; "RSGraphVizLayout on: canvas shapes." ] -{ #category : #examples } +{ #category : 'examples' } RSGraphVizExamples >> example03Basic [ | canvas node converter process | @@ -129,7 +131,7 @@ RSGraphVizExamples >> example03Basic [ canvas open ] -{ #category : #examples } +{ #category : 'examples' } RSGraphVizExamples >> example04Layout [ | canvas node | @@ -154,7 +156,7 @@ RSGraphVizExamples >> example04Layout [ canvas open ] -{ #category : #examples } +{ #category : 'examples' } RSGraphVizExamples >> example05Layout [ | canvas node labeled | @@ -188,7 +190,7 @@ RSGraphVizExamples >> example05Layout [ canvas open ] -{ #category : #examples } +{ #category : 'examples' } RSGraphVizExamples >> example06UniFamilyTree [ | canvas nodeBlock labeled edges nodes baseline | @@ -221,7 +223,7 @@ RSGraphVizExamples >> example06UniFamilyTree [ ^ canvas ] -{ #category : #examples } +{ #category : 'examples' } RSGraphVizExamples >> example07UniFamilyTreeAnimated [ | canvas nodes com paint base icon show hide animation high labelAnimation force | @@ -374,7 +376,7 @@ RSGraphVizExamples >> example07UniFamilyTreeAnimated [ canvas open extent: 800@600 ] -{ #category : #examples } +{ #category : 'examples' } RSGraphVizExamples >> example08RoassalPackages [ | canvas nodeBlock labeled packagesRegExp packages baseline | @@ -410,7 +412,7 @@ RSGraphVizExamples >> example08RoassalPackages [ canvas inspect ] -{ #category : #examples } +{ #category : 'examples' } RSGraphVizExamples >> example09Arrows [ | c shapes lb | @@ -437,7 +439,7 @@ RSGraphVizExamples >> example09Arrows [ c openOnce ] -{ #category : #examples } +{ #category : 'examples' } RSGraphVizExamples >> example10Mondrian [ @@ -453,7 +455,7 @@ RSGraphVizExamples >> example10Mondrian [ m open ] -{ #category : #examples } +{ #category : 'examples' } RSGraphVizExamples >> example11RSObjectWithAllSubclasses [ | c shapes lb | @@ -473,7 +475,7 @@ RSGraphVizExamples >> example11RSObjectWithAllSubclasses [ ^ c ] -{ #category : #examples } +{ #category : 'examples' } RSGraphVizExamples >> unixFamilyTree [ ^ {'5th Edition' -> '6th Edition'. '5th Edition' -> 'PWB 1.0'. diff --git a/src/Roassal-GraphViz/RSGraphVizLayoutTest.class.st b/src/Roassal-GraphViz/RSGraphVizLayoutTest.class.st index e16d559a..f35c763b 100644 --- a/src/Roassal-GraphViz/RSGraphVizLayoutTest.class.st +++ b/src/Roassal-GraphViz/RSGraphVizLayoutTest.class.st @@ -1,10 +1,12 @@ Class { - #name : #RSGraphVizLayoutTest, - #superclass : #RSTest, - #category : #'Roassal-GraphViz-Tests' + #name : 'RSGraphVizLayoutTest', + #superclass : 'RSTest', + #category : 'Roassal-GraphViz-Tests', + #package : 'Roassal-GraphViz', + #tag : 'Tests' } -{ #category : #tests } +{ #category : 'tests' } RSGraphVizLayoutTest >> testBasic [ | m layout | @@ -33,7 +35,7 @@ stop ' copyWithoutAll: String crlf) ] -{ #category : #tests } +{ #category : 'tests' } RSGraphVizLayoutTest >> testBasic2 [ | m layout | diff --git a/src/Roassal-GraphViz/RSGraphvizAttachPoint.class.st b/src/Roassal-GraphViz/RSGraphvizAttachPoint.class.st index feb5c168..3f0de33d 100644 --- a/src/Roassal-GraphViz/RSGraphvizAttachPoint.class.st +++ b/src/Roassal-GraphViz/RSGraphvizAttachPoint.class.st @@ -2,17 +2,19 @@ This attach point is used only by graphviz layout with graphviz line " Class { - #name : #RSGraphvizAttachPoint, - #superclass : #RSAttachPoint, + #name : 'RSGraphvizAttachPoint', + #superclass : 'RSAttachPoint', #instVars : [ 'points', 'startDistance', 'endDistance' ], - #category : #'Roassal-GraphViz-Core' + #category : 'Roassal-GraphViz-Core', + #package : 'Roassal-GraphViz', + #tag : 'Core' } -{ #category : #'public - hooks' } +{ #category : 'public - hooks' } RSGraphvizAttachPoint >> basicEndingPointOf: anEdge [ | p | p := anEdge to position. @@ -20,7 +22,7 @@ RSGraphvizAttachPoint >> basicEndingPointOf: anEdge [ ^ points last ] -{ #category : #'public - hooks' } +{ #category : 'public - hooks' } RSGraphvizAttachPoint >> basicStartingPointOf: anEdge [ | p | p := anEdge from position. @@ -29,12 +31,12 @@ RSGraphvizAttachPoint >> basicStartingPointOf: anEdge [ ^ points first ] -{ #category : #accessing } +{ #category : 'accessing' } RSGraphvizAttachPoint >> points [ ^ points ] -{ #category : #accessing } +{ #category : 'accessing' } RSGraphvizAttachPoint >> points: aCollection edge: anEdge [ |p1 p2 | self assert: aCollection isNotEmpty description: 'Can not be empty'. diff --git a/src/Roassal-GraphViz/RSGraphvizLayout.class.st b/src/Roassal-GraphViz/RSGraphvizLayout.class.st index f8d9c746..5f054dcc 100644 --- a/src/Roassal-GraphViz/RSGraphvizLayout.class.st +++ b/src/Roassal-GraphViz/RSGraphvizLayout.class.st @@ -2,8 +2,8 @@ This layout uses unix process to run dot commands, the command input is build based on Roassal shapes " Class { - #name : #RSGraphvizLayout, - #superclass : #RSLineDrivenLayout, + #name : 'RSGraphvizLayout', + #superclass : 'RSLineDrivenLayout', #instVars : [ 'dotConverter', 'scale', @@ -13,20 +13,22 @@ Class { #classInstVars : [ 'commandLocation' ], - #category : #'Roassal-GraphViz-Core' + #category : 'Roassal-GraphViz-Core', + #package : 'Roassal-GraphViz', + #tag : 'Core' } -{ #category : #public } +{ #category : 'public' } RSGraphvizLayout class >> commandLocation [ ^ commandLocation ifNil: [ commandLocation := self findCommand ] ] -{ #category : #'instance creation' } +{ #category : 'instance creation' } RSGraphvizLayout class >> digraph [ ^ self new digraph ] -{ #category : #public } +{ #category : 'public' } RSGraphvizLayout class >> findCommand [ | process | process := RSUnixSubprocess new @@ -41,29 +43,29 @@ RSGraphvizLayout class >> findCommand [ ^ process stdout trimBoth ] -{ #category : #'instance creation' } +{ #category : 'instance creation' } RSGraphvizLayout class >> neato [ ^ self new neato ] -{ #category : #'instance creation' } +{ #category : 'instance creation' } RSGraphvizLayout class >> strict [ ^ self new strict ] -{ #category : #'instance creation' } +{ #category : 'instance creation' } RSGraphvizLayout class >> twoPi [ ^ self new twoPi ] -{ #category : #'public - configuration' } +{ #category : 'public - configuration' } RSGraphvizLayout >> digraph [ ^ self dotConverter: RSDigraphDotConverter new; yourself ] -{ #category : #hook } +{ #category : 'hook' } RSGraphvizLayout >> doExecute: shapes [ | group process | group := shapes asGroup. @@ -85,23 +87,23 @@ RSGraphvizLayout >> doExecute: shapes [ process closeAndCleanStreams ] -{ #category : #accessing } +{ #category : 'accessing' } RSGraphvizLayout >> dotConverter [ ^ dotConverter ] -{ #category : #accessing } +{ #category : 'accessing' } RSGraphvizLayout >> dotConverter: aRSDotConverter [ dotConverter := aRSDotConverter ] -{ #category : #accessing } +{ #category : 'accessing' } RSGraphvizLayout >> dotDescription [ "Return the dot description, after the doExecute: is executed" ^ dotDescription asString ] -{ #category : #accessing } +{ #category : 'accessing' } RSGraphvizLayout >> dotDescriptionOf: shapes [ | group | @@ -110,27 +112,27 @@ RSGraphvizLayout >> dotDescriptionOf: shapes [ ^ dotConverter stream contents utf8Encoded ] -{ #category : #accessing } +{ #category : 'accessing' } RSGraphvizLayout >> graphvizResult [ "Return the graphviz result" ^ graphvizResult ] -{ #category : #'initialize-release' } +{ #category : 'initialize-release' } RSGraphvizLayout >> initialize [ super initialize. self dotConverter: RSStrictDotConverter new. self scale: 70 negated ] -{ #category : #'public - configuration' } +{ #category : 'public - configuration' } RSGraphvizLayout >> neato [ ^ self dotConverter: RSNeatoDotConverter new; yourself ] -{ #category : #hook } +{ #category : 'hook' } RSGraphvizLayout >> pointsFor: line [ | points n | n := line next asNumber. @@ -143,7 +145,7 @@ RSGraphvizLayout >> pointsFor: line [ ^ points ] -{ #category : #hook } +{ #category : 'hook' } RSGraphvizLayout >> positionShapes: elements with: string [ | nodeIndex | string ifEmpty: [ self error: 'Error in Dot converter' ]. @@ -176,7 +178,7 @@ RSGraphvizLayout >> positionShapes: elements with: string [ ] ] -{ #category : #hook } +{ #category : 'hook' } RSGraphvizLayout >> runningGraphvizInputFilename: filenameInput outputFilename: filenameOutput [ " self new runningGraphvizInputFilename: 'hello.dot' outputFilename: 'myresult.txt' @@ -185,36 +187,36 @@ RSGraphvizLayout >> runningGraphvizInputFilename: filenameInput outputFilename: ^ self ffiCall: #( int runGraphviz ( char * filenameInput , char* filenameOutput) ) library: GraphvizFFILibrary ] -{ #category : #accessing } +{ #category : 'accessing' } RSGraphvizLayout >> scale [ ^ scale ] -{ #category : #accessing } +{ #category : 'accessing' } RSGraphvizLayout >> scale: aNumber [ scale := aNumber ] -{ #category : #'public - configuration' } +{ #category : 'public - configuration' } RSGraphvizLayout >> sfdp [ ^ self dotConverter: RSSFDPConverter new; yourself ] -{ #category : #'public - configuration' } +{ #category : 'public - configuration' } RSGraphvizLayout >> strict [ ^ self dotConverter: RSStrictDotConverter new; yourself ] -{ #category : #hook } +{ #category : 'hook' } RSGraphvizLayout >> transform: aPoint [ ^ aPoint * scale ] -{ #category : #'public - configuration' } +{ #category : 'public - configuration' } RSGraphvizLayout >> twoPi [ ^ self dotConverter: RSTwoPiDotConverter new; diff --git a/src/Roassal-GraphViz/RSGraphvizLine.class.st b/src/Roassal-GraphViz/RSGraphvizLine.class.st index ad9a034e..f8128a9a 100644 --- a/src/Roassal-GraphViz/RSGraphvizLine.class.st +++ b/src/Roassal-GraphViz/RSGraphvizLine.class.st @@ -2,38 +2,40 @@ TODO " Class { - #name : #RSGraphvizLine, - #superclass : #RSSVGPathLine, - #category : #'Roassal-GraphViz-Core' + #name : 'RSGraphvizLine', + #superclass : 'RSSVGPathLine', + #category : 'Roassal-GraphViz-Core', + #package : 'Roassal-GraphViz', + #tag : 'Core' } -{ #category : #initialization } +{ #category : 'initialization' } RSGraphvizLine >> color [ ^ self border color ] -{ #category : #initialization } +{ #category : 'initialization' } RSGraphvizLine >> color: aColor [ self strokeColor: aColor ] -{ #category : #accessing } +{ #category : 'accessing' } RSGraphvizLine >> controlPoints [ ^ self propertyAt: #points ifAbsent: [ super controlPoints ] ] -{ #category : #initialization } +{ #category : 'initialization' } RSGraphvizLine >> initialize [ super initialize. self setSVGPath ] -{ #category : #testing } +{ #category : 'testing' } RSGraphvizLine >> intersects: aRectangle [ ^ true ] -{ #category : #initialization } +{ #category : 'initialization' } RSGraphvizLine >> manyPointsFor: edge [ ^ String streamContents: [ :s | @@ -51,7 +53,7 @@ RSGraphvizLine >> manyPointsFor: edge [ ] ] -{ #category : #initialization } +{ #category : 'initialization' } RSGraphvizLine >> setSVGPath [ self svgPath: [ :edge | (edge hasProperty: #points) @@ -60,7 +62,7 @@ RSGraphvizLine >> setSVGPath [ ] ] -{ #category : #initialization } +{ #category : 'initialization' } RSGraphvizLine >> twoPointsFor: edge [ | pos1 pos2 | edge from ifNil: [ ^ 'M0 0 L100 100' ]. diff --git a/src/Roassal-GraphViz/RSLayoutBuilder.extension.st b/src/Roassal-GraphViz/RSLayoutBuilder.extension.st index e124bf0b..fb9723d2 100644 --- a/src/Roassal-GraphViz/RSLayoutBuilder.extension.st +++ b/src/Roassal-GraphViz/RSLayoutBuilder.extension.st @@ -1,6 +1,6 @@ -Extension { #name : #RSLayoutBuilder } +Extension { #name : 'RSLayoutBuilder' } -{ #category : #'*Roassal-GraphViz' } +{ #category : '*Roassal-GraphViz' } RSLayoutBuilder >> graphviz [ ^ layout := RSGraphvizLayout new ] diff --git a/src/Roassal-GraphViz/RSLineBuilder.extension.st b/src/Roassal-GraphViz/RSLineBuilder.extension.st index 8c9c3d44..6dcb1681 100644 --- a/src/Roassal-GraphViz/RSLineBuilder.extension.st +++ b/src/Roassal-GraphViz/RSLineBuilder.extension.st @@ -1,6 +1,6 @@ -Extension { #name : #RSLineBuilder } +Extension { #name : 'RSLineBuilder' } -{ #category : #'*Roassal-GraphViz' } +{ #category : '*Roassal-GraphViz' } RSLineBuilder class >> graphviz [ ^ self new: RSGraphvizLine new diff --git a/src/Roassal-GraphViz/RSMondrian.extension.st b/src/Roassal-GraphViz/RSMondrian.extension.st index ea508c42..314107e7 100644 --- a/src/Roassal-GraphViz/RSMondrian.extension.st +++ b/src/Roassal-GraphViz/RSMondrian.extension.st @@ -1,6 +1,6 @@ -Extension { #name : #RSMondrian } +Extension { #name : 'RSMondrian' } -{ #category : #'*Roassal-GraphViz' } +{ #category : '*Roassal-GraphViz' } RSMondrian >> graphvizLine [ lineBuilder := RSLineBuilder graphviz. lineBuilder canvas: canvas. diff --git a/src/Roassal-GraphViz/RSNeatoDotConverter.class.st b/src/Roassal-GraphViz/RSNeatoDotConverter.class.st index 09384472..b0f3fc68 100644 --- a/src/Roassal-GraphViz/RSNeatoDotConverter.class.st +++ b/src/Roassal-GraphViz/RSNeatoDotConverter.class.st @@ -27,17 +27,19 @@ graph ER { ``` " Class { - #name : #RSNeatoDotConverter, - #superclass : #RSAbstractDotConverter, - #category : #'Roassal-GraphViz-Core' + #name : 'RSNeatoDotConverter', + #superclass : 'RSAbstractDotConverter', + #category : 'Roassal-GraphViz-Core', + #package : 'Roassal-GraphViz', + #tag : 'Core' } -{ #category : #visiting } +{ #category : 'visiting' } RSNeatoDotConverter >> writeHeader: aRSGroup [ stream << 'graph Roassal'; crlf; << '{'; crlf; << 'layout=neato;'; crlf ] -{ #category : #visiting } +{ #category : 'visiting' } RSNeatoDotConverter >> writeLineConnector: aLine [ stream << '--' ] diff --git a/src/Roassal-GraphViz/RSSFDPConverter.class.st b/src/Roassal-GraphViz/RSSFDPConverter.class.st index c1ac0c14..c65dd783 100644 --- a/src/Roassal-GraphViz/RSSFDPConverter.class.st +++ b/src/Roassal-GraphViz/RSSFDPConverter.class.st @@ -2,12 +2,14 @@ TODO " Class { - #name : #RSSFDPConverter, - #superclass : #RSAbstractDotConverter, - #category : #'Roassal-GraphViz-Core' + #name : 'RSSFDPConverter', + #superclass : 'RSAbstractDotConverter', + #category : 'Roassal-GraphViz-Core', + #package : 'Roassal-GraphViz', + #tag : 'Core' } -{ #category : #writing } +{ #category : 'writing' } RSSFDPConverter >> writeHeader: aRSGroup [ stream << 'graph G {'; crlf; @@ -15,7 +17,7 @@ RSSFDPConverter >> writeHeader: aRSGroup [ << 'layout = "sfdp" ;'; crlf ] -{ #category : #visiting } +{ #category : 'visiting' } RSSFDPConverter >> writeLineConnector: aLine [ stream << '--' ] diff --git a/src/Roassal-GraphViz/RSStrictDotConverter.class.st b/src/Roassal-GraphViz/RSStrictDotConverter.class.st index dadfe400..6bd34084 100644 --- a/src/Roassal-GraphViz/RSStrictDotConverter.class.st +++ b/src/Roassal-GraphViz/RSStrictDotConverter.class.st @@ -22,17 +22,19 @@ strict graph ip_map { ``` " Class { - #name : #RSStrictDotConverter, - #superclass : #RSAbstractDotConverter, - #category : #'Roassal-GraphViz-Core' + #name : 'RSStrictDotConverter', + #superclass : 'RSAbstractDotConverter', + #category : 'Roassal-GraphViz-Core', + #package : 'Roassal-GraphViz', + #tag : 'Core' } -{ #category : #visiting } +{ #category : 'visiting' } RSStrictDotConverter >> writeHeader: aRSGroup [ stream << 'strict graph Roassal'; crlf; << '{' ] -{ #category : #visiting } +{ #category : 'visiting' } RSStrictDotConverter >> writeLineConnector: aLine [ stream << '--' ] diff --git a/src/Roassal-GraphViz/RSTwoPiDotConverter.class.st b/src/Roassal-GraphViz/RSTwoPiDotConverter.class.st index adc25ee4..73f0ceaf 100644 --- a/src/Roassal-GraphViz/RSTwoPiDotConverter.class.st +++ b/src/Roassal-GraphViz/RSTwoPiDotConverter.class.st @@ -10,12 +10,14 @@ Hello->World ``` " Class { - #name : #RSTwoPiDotConverter, - #superclass : #RSAbstractDotConverter, - #category : #'Roassal-GraphViz-Core' + #name : 'RSTwoPiDotConverter', + #superclass : 'RSAbstractDotConverter', + #category : 'Roassal-GraphViz-Core', + #package : 'Roassal-GraphViz', + #tag : 'Core' } -{ #category : #visiting } +{ #category : 'visiting' } RSTwoPiDotConverter >> writeHeader: aRSGroup [ stream << 'digraph Roassal{ '; crlf; @@ -24,7 +26,7 @@ RSTwoPiDotConverter >> writeHeader: aRSGroup [ << 'layout=twopi;'; crlf ] -{ #category : #visiting } +{ #category : 'visiting' } RSTwoPiDotConverter >> writeLineConnector: aLine [ stream << '->' ] diff --git a/src/Roassal-GraphViz/RSUnixSubprocess.class.st b/src/Roassal-GraphViz/RSUnixSubprocess.class.st index 978134e7..f4bf6198 100644 --- a/src/Roassal-GraphViz/RSUnixSubprocess.class.st +++ b/src/Roassal-GraphViz/RSUnixSubprocess.class.st @@ -33,8 +33,8 @@ Public API and Key Messages ### Implementation Points " Class { - #name : #RSUnixSubprocess, - #superclass : #Object, + #name : 'RSUnixSubprocess', + #superclass : 'Object', #instVars : [ 'command', 'arguments', @@ -47,10 +47,12 @@ Class { 'stderrStream', 'stdinStream' ], - #category : #'Roassal-GraphViz-Core' + #category : 'Roassal-GraphViz-Core', + #package : 'Roassal-GraphViz', + #tag : 'Core' } -{ #category : #'instance creation' } +{ #category : 'instance creation' } RSUnixSubprocess class >> command: cmd arguments: args [ ^self new @@ -58,61 +60,61 @@ RSUnixSubprocess class >> command: cmd arguments: args [ arguments: args ] -{ #category : #adding } +{ #category : 'adding' } RSUnixSubprocess >> addAllEnvVariablesFromParentWithoutOverride [ self process addAllEnvVariablesFromParentWithoutOverride ] -{ #category : #accessing } +{ #category : 'accessing' } RSUnixSubprocess >> arguments [ ^ arguments ] -{ #category : #accessing } +{ #category : 'accessing' } RSUnixSubprocess >> arguments: anObject [ arguments := anObject ] -{ #category : #cleaning } +{ #category : 'cleaning' } RSUnixSubprocess >> closeAndCleanStreams [ process ifNil: [ ^ self ]. process closeAndCleanStreams ] -{ #category : #accessing } +{ #category : 'accessing' } RSUnixSubprocess >> command [ ^ command ] -{ #category : #accessing } +{ #category : 'accessing' } RSUnixSubprocess >> command: anObject [ command := anObject ] -{ #category : #'env building' } +{ #category : 'env building' } RSUnixSubprocess >> envVariables [ ^ process envVariables ] -{ #category : #accessing } +{ #category : 'accessing' } RSUnixSubprocess >> environmentAt: key put: value [ ^ self process environmentAt: key put: value ] -{ #category : #accessing } +{ #category : 'accessing' } RSUnixSubprocess >> errorBlock [ ^ errorBlock ] -{ #category : #accessing } +{ #category : 'accessing' } RSUnixSubprocess >> errorBlock: anObject [ errorBlock := anObject ] -{ #category : #accessing } +{ #category : 'accessing' } RSUnixSubprocess >> exitCode [ "Answer the interpretted exit status, or nil if not available" @@ -120,25 +122,25 @@ RSUnixSubprocess >> exitCode [ ^ process exitStatusInterpreter exitStatus ] -{ #category : #accessing } +{ #category : 'accessing' } RSUnixSubprocess >> exitStatus [ ^ process exitStatus ] -{ #category : #status } +{ #category : 'status' } RSUnixSubprocess >> exitStatusInterpreter [ ^ process exitStatusInterpreter ] -{ #category : #testing } +{ #category : 'testing' } RSUnixSubprocess >> hasProcess [ "Answer a boolean indicating whether the receiver has a process object" ^ process isNotNil ] -{ #category : #initialization } +{ #category : 'initialization' } RSUnixSubprocess >> initialize [ super initialize. @@ -146,12 +148,12 @@ RSUnixSubprocess >> initialize [ stdinStream := String new writeStream ] -{ #category : #testing } +{ #category : 'testing' } RSUnixSubprocess >> isRunning [ ^ self process isRunning ] -{ #category : #testing } +{ #category : 'testing' } RSUnixSubprocess >> isSuccess [ "Answer whether the command completed successfully. Only valid after the command has completed." @@ -159,7 +161,7 @@ RSUnixSubprocess >> isSuccess [ ^process exitStatusInterpreter isSuccess ] -{ #category : #printing } +{ #category : 'printing' } RSUnixSubprocess >> printOn: aStream [ process ifNil: [ ^super printOn: aStream ]. @@ -172,18 +174,18 @@ RSUnixSubprocess >> printOn: aStream [ [ aStream nextPutAll: 'an Unsuccessfull RSUnixSubprocess' ] ] ] -{ #category : #accessing } +{ #category : 'accessing' } RSUnixSubprocess >> process [ ^ process ifNil: [ process := OSSUnixSubprocess new ] ] -{ #category : #status } +{ #category : 'status' } RSUnixSubprocess >> queryExitStatus [ ^ process queryExitStatus ] -{ #category : #removing } +{ #category : 'removing' } RSUnixSubprocess >> removeLD_LIBRARY_PATH [ "The script for running pharo sets LD_LIBRARY_PATH to the VM directory, which contains non-standard libraries. Unset LD_LIBRARY_PATH." @@ -192,7 +194,7 @@ RSUnixSubprocess >> removeLD_LIBRARY_PATH [ self process envVariables removeKey: 'LD_LIBRARY_PATH' ] -{ #category : #running } +{ #category : 'running' } RSUnixSubprocess >> run [ "Run the command without waiting" @@ -200,7 +202,7 @@ RSUnixSubprocess >> run [ ^self runProcess ] -{ #category : #running } +{ #category : 'running' } RSUnixSubprocess >> runAndWait [ "Run the command and wait for completion" @@ -211,7 +213,7 @@ RSUnixSubprocess >> runAndWait [ ifTrue: [ errorBlock value: self ] ] -{ #category : #running } +{ #category : 'running' } RSUnixSubprocess >> runProcess [ "Run the requested command as a separate process" @@ -245,7 +247,7 @@ RSUnixSubprocess >> runProcess [ ifNotNil: [ semaphore signal ] ] fork ] -{ #category : #private } +{ #category : 'private' } RSUnixSubprocess >> setCommand [ "Set the command or shell command in the process. Either may be specified, but not both :-)" @@ -263,60 +265,60 @@ RSUnixSubprocess >> setCommand [ arguments: arguments ] ] -{ #category : #accessing } +{ #category : 'accessing' } RSUnixSubprocess >> shellCommand [ ^ shellCommand ] -{ #category : #accessing } +{ #category : 'accessing' } RSUnixSubprocess >> shellCommand: anObject [ shellCommand := anObject ] -{ #category : #'OS signal sending' } +{ #category : 'OS signal sending' } RSUnixSubprocess >> sigterm [ "Ask the external process to terminate" ^process sigterm ] -{ #category : #accessing } +{ #category : 'accessing' } RSUnixSubprocess >> stderr [ ^ stderrStream contents ] -{ #category : #accessing } +{ #category : 'accessing' } RSUnixSubprocess >> stdin [ ^ stdinStream ] -{ #category : #accessing } +{ #category : 'accessing' } RSUnixSubprocess >> stdin: aByteArray [ stdinStream := aByteArray ] -{ #category : #accessing } +{ #category : 'accessing' } RSUnixSubprocess >> stdout [ ^ stdoutStream contents ] -{ #category : #actions } +{ #category : 'actions' } RSUnixSubprocess >> terminate [ process terminate ] -{ #category : #'system startup & shutdown' } +{ #category : 'system startup & shutdown' } RSUnixSubprocess >> terminateOnShutdown [ self process terminateOnShutdown ] -{ #category : #accessing } +{ #category : 'accessing' } RSUnixSubprocess >> workingDirectory [ ^ workingDirectory ] -{ #category : #accessing } +{ #category : 'accessing' } RSUnixSubprocess >> workingDirectory: aFileReference [ workingDirectory := aFileReference asFileReference diff --git a/src/Roassal-GraphViz/package.st b/src/Roassal-GraphViz/package.st index c2741408..4909a9ce 100644 --- a/src/Roassal-GraphViz/package.st +++ b/src/Roassal-GraphViz/package.st @@ -1 +1 @@ -Package { #name : #'Roassal-GraphViz' } +Package { #name : 'Roassal-GraphViz' } diff --git a/src/Roassal-Gtk/GtkAthensDrawingArea.class.st b/src/Roassal-Gtk/GtkAthensDrawingArea.class.st index d1b4ec95..8e0308bc 100644 --- a/src/Roassal-Gtk/GtkAthensDrawingArea.class.st +++ b/src/Roassal-Gtk/GtkAthensDrawingArea.class.st @@ -2,8 +2,8 @@ Gtk drawing area with an Athens canvas " Class { - #name : #GtkAthensDrawingArea, - #superclass : #GtkDrawingArea, + #name : 'GtkAthensDrawingArea', + #superclass : 'GtkDrawingArea', #instVars : [ 'activeSurface', 'rect', @@ -11,25 +11,26 @@ Class { 'lastExtent', 'paintMutex' ], - #category : #'Roassal-Gtk' + #category : 'Roassal-Gtk', + #package : 'Roassal-Gtk' } -{ #category : #private } +{ #category : 'private' } GtkAthensDrawingArea class >> drawingAreaNew [ ^ self ffiCall: #( GtkAthensDrawingArea *gtk_drawing_area_new () ) ] -{ #category : #accessing } +{ #category : 'accessing' } GtkAthensDrawingArea >> adapter [ ^ adapter ] -{ #category : #accessing } +{ #category : 'accessing' } GtkAthensDrawingArea >> adapter: anObject [ adapter := anObject ] -{ #category : #drawing } +{ #category : 'drawing' } GtkAthensDrawingArea >> basicDraw: cr [ self @@ -40,46 +41,46 @@ GtkAthensDrawingArea >> basicDraw: cr [ self paint: cr ] -{ #category : #drawing } +{ #category : 'drawing' } GtkAthensDrawingArea >> changed [ super changed. self repaint. ] -{ #category : #accessing } +{ #category : 'accessing' } GtkAthensDrawingArea >> critical: aBlock [ paintMutex ifNil: [ paintMutex := Mutex new ]. paintMutex critical: aBlock ] -{ #category : #drawing } +{ #category : 'drawing' } GtkAthensDrawingArea >> dpi [ ^ 92 ] -{ #category : #drawing } +{ #category : 'drawing' } GtkAthensDrawingArea >> draw: cr [ self basicDraw: cr. ^ true ] -{ #category : #drawing } +{ #category : 'drawing' } GtkAthensDrawingArea >> drawOnAthensCanvas: aCanvas [ "redefine me in subclasses" ] -{ #category : #drawing } +{ #category : 'drawing' } GtkAthensDrawingArea >> extent [ ^ 100@100 ] -{ #category : #drawing } +{ #category : 'drawing' } GtkAthensDrawingArea >> initialize [ super initialize. @@ -88,7 +89,7 @@ GtkAthensDrawingArea >> initialize [ ] -{ #category : #accessing } +{ #category : 'accessing' } GtkAthensDrawingArea >> newCairoSurface [ | newSurface | @@ -96,7 +97,7 @@ GtkAthensDrawingArea >> newCairoSurface [ ^ newSurface ] -{ #category : #drawing } +{ #category : 'drawing' } GtkAthensDrawingArea >> paint: cr [ self @@ -104,17 +105,17 @@ GtkAthensDrawingArea >> paint: cr [ module: CairoLibrary ] -{ #category : #accessing } +{ #category : 'accessing' } GtkAthensDrawingArea >> rect [ ^ rect ] -{ #category : #accessing } +{ #category : 'accessing' } GtkAthensDrawingArea >> rect: anObject [ rect := anObject ] -{ #category : #accessing } +{ #category : 'accessing' } GtkAthensDrawingArea >> repaint [ | currentExtent | currentExtent := self extent. @@ -127,14 +128,14 @@ GtkAthensDrawingArea >> repaint [ self queueDraw ] -{ #category : #accessing } +{ #category : 'accessing' } GtkAthensDrawingArea >> resetSurface [ activeSurface := self newCairoSurface. ] -{ #category : #drawing } +{ #category : 'drawing' } GtkAthensDrawingArea >> setSourceSurfaceTo: cr surface: surface x: x y: y [ self @@ -142,13 +143,13 @@ GtkAthensDrawingArea >> setSourceSurfaceTo: cr surface: surface x: x y: y [ module: CairoLibrary ] -{ #category : #accessing } +{ #category : 'accessing' } GtkAthensDrawingArea >> sizeRequest: aPoint [ self setSizeRequestWidth: aPoint x height: aPoint y ] -{ #category : #accessing } +{ #category : 'accessing' } GtkAthensDrawingArea >> viewPortExtent [ ^ adapter rect diff --git a/src/Roassal-Gtk/GtkRoassalDrawingArea.class.st b/src/Roassal-Gtk/GtkRoassalDrawingArea.class.st index 818dca40..deeba6ff 100644 --- a/src/Roassal-Gtk/GtkRoassalDrawingArea.class.st +++ b/src/Roassal-Gtk/GtkRoassalDrawingArea.class.st @@ -2,27 +2,28 @@ Gtk Athens drawing area with an associated Roassal canvas " Class { - #name : #GtkRoassalDrawingArea, - #superclass : #GtkAthensDrawingArea, + #name : 'GtkRoassalDrawingArea', + #superclass : 'GtkAthensDrawingArea', #instVars : [ 'canvas', 'renderer', 'isDrawing' ], - #category : #'Roassal-Gtk' + #category : 'Roassal-Gtk', + #package : 'Roassal-Gtk' } -{ #category : #private } +{ #category : 'private' } GtkRoassalDrawingArea class >> drawingAreaNew [ ^ self ffiCall: #( #GtkRoassalDrawingArea *gtk_drawing_area_new () ) ] -{ #category : #accessing } +{ #category : 'accessing' } GtkRoassalDrawingArea >> canvas [ ^ canvas ] -{ #category : #accessing } +{ #category : 'accessing' } GtkRoassalDrawingArea >> canvas: anObject [ canvas := anObject. canvas morph: self. @@ -31,11 +32,11 @@ GtkRoassalDrawingArea >> canvas: anObject [ self repaint ] -{ #category : #private } +{ #category : 'private' } GtkRoassalDrawingArea >> checkSession [ ] -{ #category : #drawing } +{ #category : 'drawing' } GtkRoassalDrawingArea >> drawOnAthensCanvas: anAthensCanvas [ anAthensCanvas surface clear: canvas color. @@ -60,7 +61,7 @@ GtkRoassalDrawingArea >> drawOnAthensCanvas: anAthensCanvas [ isDrawing := false ] ] -{ #category : #drawing } +{ #category : 'drawing' } GtkRoassalDrawingArea >> drawShapesWithBackground: backgroundColor [ "The drawing has to be done when a change in the shapes occured or when there is an animation." @@ -95,13 +96,13 @@ GtkRoassalDrawingArea >> drawShapesWithBackground: backgroundColor [ ] -{ #category : #accessing } +{ #category : 'accessing' } GtkRoassalDrawingArea >> extent [ ^ self canvas extent ] -{ #category : #initialization } +{ #category : 'initialization' } GtkRoassalDrawingArea >> initialize [ super initialize. @@ -111,7 +112,7 @@ GtkRoassalDrawingArea >> initialize [ ] -{ #category : #drawing } +{ #category : 'drawing' } GtkRoassalDrawingArea >> showRectanglesIfNecessary: shapes [ canvas showRectangles ifFalse: [ ^ self ]. @@ -121,7 +122,7 @@ GtkRoassalDrawingArea >> showRectanglesIfNecessary: shapes [ ]. ] -{ #category : #drawing } +{ #category : 'drawing' } GtkRoassalDrawingArea >> sizeRequest: aPoint [ self setSizeRequestWidth: aPoint x height: aPoint y diff --git a/src/Roassal-Gtk/GtkRoassalDrawingAreaBox.class.st b/src/Roassal-Gtk/GtkRoassalDrawingAreaBox.class.st index 91dbf5ad..44a27f40 100644 --- a/src/Roassal-Gtk/GtkRoassalDrawingAreaBox.class.st +++ b/src/Roassal-Gtk/GtkRoassalDrawingAreaBox.class.st @@ -2,8 +2,8 @@ Gtk Roassal canvas drawing area with scrollbars and overlay for putting Gtk elements into the canvas. " Class { - #name : #GtkRoassalDrawingAreaBox, - #superclass : #GtkBox, + #name : 'GtkRoassalDrawingAreaBox', + #superclass : 'GtkBox', #instVars : [ 'drawingArea', 'horizontalScrollbar', @@ -20,53 +20,54 @@ Class { #pools : [ 'GdkEventMask' ], - #category : #'Roassal-Gtk' + #category : 'Roassal-Gtk', + #package : 'Roassal-Gtk' } -{ #category : #'instance creation' } +{ #category : 'instance creation' } GtkRoassalDrawingAreaBox class >> boxNewOrientation: orientation spacing: spacing [ ^ self ffiCall: #(GtkRoassalDrawingAreaBox *gtk_box_new (GtkOrientation orientation, gint spacing)) ] -{ #category : #'instance creation' } +{ #category : 'instance creation' } GtkRoassalDrawingAreaBox class >> new [ ^ (self boxNewOrientation: GTK_ORIENTATION_HORIZONTAL spacing: 0) initialize ] -{ #category : #accessing } +{ #category : 'accessing' } GtkRoassalDrawingAreaBox >> adapter: anAdapter [ drawingArea adapter: anAdapter ] -{ #category : #accessing } +{ #category : 'accessing' } GtkRoassalDrawingAreaBox >> camera [ ^ self gtkTrachel canvas camera ] -{ #category : #accessing } +{ #category : 'accessing' } GtkRoassalDrawingAreaBox >> cameraRectangle [ ^ self camera position extent: (self canvas extent / self camera scale) ] -{ #category : #accessing } +{ #category : 'accessing' } GtkRoassalDrawingAreaBox >> canvas [ ^ self gtkTrachel canvas ] -{ #category : #accessing } +{ #category : 'accessing' } GtkRoassalDrawingAreaBox >> canvas: aCanvas [ drawingArea canvas: aCanvas. ] -{ #category : #accessing } +{ #category : 'accessing' } GtkRoassalDrawingAreaBox >> encompassingRectangle [ | anEncompassingRectangle | @@ -74,24 +75,24 @@ GtkRoassalDrawingAreaBox >> encompassingRectangle [ ^ (0@0 min: anEncompassingRectangle topLeft) corner: (anEncompassingRectangle bottomRight) ] -{ #category : #accessing } +{ #category : 'accessing' } GtkRoassalDrawingAreaBox >> extent [ ^ drawingArea canvas extent ] -{ #category : #accessing } +{ #category : 'accessing' } GtkRoassalDrawingAreaBox >> gtkTrachel [ ^ drawingArea ] -{ #category : #accessing } +{ #category : 'accessing' } GtkRoassalDrawingAreaBox >> gtkTrachel: anObject [ drawingArea := anObject. ] -{ #category : #accessing } +{ #category : 'accessing' } GtkRoassalDrawingAreaBox >> initialize [ | horizontalOrientation verticalOrientation vbox | @@ -157,7 +158,7 @@ GtkRoassalDrawingAreaBox >> initialize [ ] -{ #category : #accessing } +{ #category : 'accessing' } GtkRoassalDrawingAreaBox >> initializeOverlayInfo [ | fixed overlayContainer | @@ -181,19 +182,19 @@ GtkRoassalDrawingAreaBox >> initializeOverlayInfo [ ] -{ #category : #accessing } +{ #category : 'accessing' } GtkRoassalDrawingAreaBox >> minSize [ ^ 20 ] -{ #category : #accessing } +{ #category : 'accessing' } GtkRoassalDrawingAreaBox >> recalculateOverlay [ "do nothing here. Override in subclasses" ] -{ #category : #accessing } +{ #category : 'accessing' } GtkRoassalDrawingAreaBox >> recalculateScrollbars: forceUpdate [ | vScrollbarPosition needsUpdate cameraRect contentRect | needsUpdate := forceUpdate. @@ -234,12 +235,12 @@ GtkRoassalDrawingAreaBox >> recalculateScrollbars: forceUpdate [ self recalculateOverlay. ] -{ #category : #accessing } +{ #category : 'accessing' } GtkRoassalDrawingAreaBox >> scale [ ^ self camera scale ] -{ #category : #accessing } +{ #category : 'accessing' } GtkRoassalDrawingAreaBox >> sizeChangedTo: aRect [ drawingArea canvas extent: aRect extent. @@ -248,19 +249,19 @@ GtkRoassalDrawingAreaBox >> sizeChangedTo: aRect [ self recalculateScrollbars: true. ] -{ #category : #accessing } +{ #category : 'accessing' } GtkRoassalDrawingAreaBox >> sizeRequest: aPoint [ drawingArea setSizeRequestWidth: aPoint x height: aPoint y ] -{ #category : #accessing } +{ #category : 'accessing' } GtkRoassalDrawingAreaBox >> stepIncrement [ ^ 10 ] -{ #category : #accessing } +{ #category : 'accessing' } GtkRoassalDrawingAreaBox >> update: anAspect [ self recalculateScrollbars: false. diff --git a/src/Roassal-Gtk/GtkRoassalDrawingAreaBoxOverlay.class.st b/src/Roassal-Gtk/GtkRoassalDrawingAreaBoxOverlay.class.st index f6bc2637..ad49648e 100644 --- a/src/Roassal-Gtk/GtkRoassalDrawingAreaBoxOverlay.class.st +++ b/src/Roassal-Gtk/GtkRoassalDrawingAreaBoxOverlay.class.st @@ -2,8 +2,8 @@ Store information about the overlay of the GtkRoassalDrawingAreaBox " Class { - #name : #GtkRoassalDrawingAreaBoxOverlay, - #superclass : #Object, + #name : 'GtkRoassalDrawingAreaBoxOverlay', + #superclass : 'Object', #instVars : [ 'overlay', 'fixed', @@ -14,55 +14,56 @@ Class { #pools : [ 'GdkEventMask' ], - #category : #'Roassal-Gtk' + #category : 'Roassal-Gtk', + #package : 'Roassal-Gtk' } -{ #category : #accessing } +{ #category : 'accessing' } GtkRoassalDrawingAreaBoxOverlay >> content [ ^ content ] -{ #category : #accessing } +{ #category : 'accessing' } GtkRoassalDrawingAreaBoxOverlay >> content: anObject [ content := anObject ] -{ #category : #accessing } +{ #category : 'accessing' } GtkRoassalDrawingAreaBoxOverlay >> extent [ ^ extent ] -{ #category : #accessing } +{ #category : 'accessing' } GtkRoassalDrawingAreaBoxOverlay >> extent: anObject [ extent := anObject ] -{ #category : #accessing } +{ #category : 'accessing' } GtkRoassalDrawingAreaBoxOverlay >> fixed [ ^ fixed ] -{ #category : #accessing } +{ #category : 'accessing' } GtkRoassalDrawingAreaBoxOverlay >> fixed: anObject [ fixed := anObject ] -{ #category : #accessing } +{ #category : 'accessing' } GtkRoassalDrawingAreaBoxOverlay >> overlay [ ^ overlay ] -{ #category : #accessing } +{ #category : 'accessing' } GtkRoassalDrawingAreaBoxOverlay >> overlay: anObject [ overlay := anObject ] -{ #category : #accessing } +{ #category : 'accessing' } GtkRoassalDrawingAreaBoxOverlay >> position [ ^ position ] -{ #category : #accessing } +{ #category : 'accessing' } GtkRoassalDrawingAreaBoxOverlay >> position: anObject [ position := anObject ] diff --git a/src/Roassal-Gtk/package.st b/src/Roassal-Gtk/package.st index 40f35c08..f0d0cccd 100644 --- a/src/Roassal-Gtk/package.st +++ b/src/Roassal-Gtk/package.st @@ -1 +1 @@ -Package { #name : #'Roassal-Gtk' } +Package { #name : 'Roassal-Gtk' } diff --git a/src/Roassal-Inspector-Tests/RSInspectorShapeTest.class.st b/src/Roassal-Inspector-Tests/RSInspectorShapeTest.class.st index 8eb2a3f3..4ec4e901 100644 --- a/src/Roassal-Inspector-Tests/RSInspectorShapeTest.class.st +++ b/src/Roassal-Inspector-Tests/RSInspectorShapeTest.class.st @@ -1,10 +1,11 @@ Class { - #name : #RSInspectorShapeTest, - #superclass : #RSTest, - #category : #'Roassal-Inspector-Tests' + #name : 'RSInspectorShapeTest', + #superclass : 'RSTest', + #category : 'Roassal-Inspector-Tests', + #package : 'Roassal-Inspector-Tests' } -{ #category : #tests } +{ #category : 'tests' } RSInspectorShapeTest >> testNoEvents [ | box label composite canvas copy boxCopy labelCopy | box := RSBox new. diff --git a/src/Roassal-Inspector-Tests/RSSelectionPresentationInteractionTest.class.st b/src/Roassal-Inspector-Tests/RSSelectionPresentationInteractionTest.class.st index fdeed88b..2c398ce5 100644 --- a/src/Roassal-Inspector-Tests/RSSelectionPresentationInteractionTest.class.st +++ b/src/Roassal-Inspector-Tests/RSSelectionPresentationInteractionTest.class.st @@ -1,10 +1,11 @@ Class { - #name : #RSSelectionPresentationInteractionTest, - #superclass : #RSTest, - #category : #'Roassal-Inspector-Tests' + #name : 'RSSelectionPresentationInteractionTest', + #superclass : 'RSTest', + #category : 'Roassal-Inspector-Tests', + #package : 'Roassal-Inspector-Tests' } -{ #category : #tests } +{ #category : 'tests' } RSSelectionPresentationInteractionTest >> testBasic [ | c shapes | @@ -24,7 +25,7 @@ RSSelectionPresentationInteractionTest >> testBasic [ self assert: c nodes first hasShadow ] -{ #category : #tests } +{ #category : 'tests' } RSSelectionPresentationInteractionTest >> testCanvasInspect [ | c window | @@ -37,7 +38,7 @@ RSSelectionPresentationInteractionTest >> testCanvasInspect [ self assert: (c hasInteraction: RSSelectionPresentationInteraction) ] -{ #category : #tests } +{ #category : 'tests' } RSSelectionPresentationInteractionTest >> testClickOnCanvasShouldUnselectShape [ | c | @@ -50,7 +51,7 @@ RSSelectionPresentationInteractionTest >> testClickOnCanvasShouldUnselectShape [ self assert: c nodes first shadow isNil ] -{ #category : #tests } +{ #category : 'tests' } RSSelectionPresentationInteractionTest >> testSelectAShapeShouldUnselect [ | c | diff --git a/src/Roassal-Inspector-Tests/package.st b/src/Roassal-Inspector-Tests/package.st index 2280b0d3..09fbf55f 100644 --- a/src/Roassal-Inspector-Tests/package.st +++ b/src/Roassal-Inspector-Tests/package.st @@ -1 +1 @@ -Package { #name : #'Roassal-Inspector-Tests' } +Package { #name : 'Roassal-Inspector-Tests' } diff --git a/src/Roassal-Legend-Examples/RSLegendExamples.class.st b/src/Roassal-Legend-Examples/RSLegendExamples.class.st index e209fc59..d4f4acc8 100644 --- a/src/Roassal-Legend-Examples/RSLegendExamples.class.st +++ b/src/Roassal-Legend-Examples/RSLegendExamples.class.st @@ -2,12 +2,13 @@ I have basic examples of legend builder " Class { - #name : #RSLegendExamples, - #superclass : #RSAbstractExamples, - #category : #'Roassal-Legend-Examples' + #name : 'RSLegendExamples', + #superclass : 'RSAbstractExamples', + #category : 'Roassal-Legend-Examples', + #package : 'Roassal-Legend-Examples' } -{ #category : #examples } +{ #category : 'examples' } RSLegendExamples >> canvasExample [ | canvas classes | canvas := RSCanvas new. @@ -35,7 +36,7 @@ RSLegendExamples >> canvasExample [ ^ canvas ] -{ #category : #examples } +{ #category : 'examples' } RSLegendExamples >> example01Basic [ | b | @@ -49,7 +50,7 @@ RSLegendExamples >> example01Basic [ ^ b canvas ] -{ #category : #examples } +{ #category : 'examples' } RSLegendExamples >> example02Border [ | b | @@ -65,7 +66,7 @@ RSLegendExamples >> example02Border [ ^ b canvas ] -{ #category : #examples } +{ #category : 'examples' } RSLegendExamples >> example03Vertical [ | b | @@ -86,7 +87,7 @@ RSLegendExamples >> example03Vertical [ ^ b canvas ] -{ #category : #examples } +{ #category : 'examples' } RSLegendExamples >> example04Horizontal [ | b | @@ -107,7 +108,7 @@ RSLegendExamples >> example04Horizontal [ ^ b canvas ] -{ #category : #examples } +{ #category : 'examples' } RSLegendExamples >> example05Colors [ | b color | @@ -129,7 +130,7 @@ RSLegendExamples >> example05Colors [ ^ b canvas ] -{ #category : #examples } +{ #category : 'examples' } RSLegendExamples >> example06BoxColors [ | b color | @@ -151,7 +152,7 @@ RSLegendExamples >> example06BoxColors [ ^ b canvas ] -{ #category : #examples } +{ #category : 'examples' } RSLegendExamples >> example07BoxFading [ | b | @@ -164,7 +165,7 @@ RSLegendExamples >> example07BoxFading [ ^ b canvas ] -{ #category : #examples } +{ #category : 'examples' } RSLegendExamples >> example08Polygons [ | b | @@ -177,7 +178,7 @@ RSLegendExamples >> example08Polygons [ ^ b canvas ] -{ #category : #examples } +{ #category : 'examples' } RSLegendExamples >> example09Lines [ | b | @@ -197,7 +198,7 @@ RSLegendExamples >> example09Lines [ ^ b canvas ] -{ #category : #examples } +{ #category : 'examples' } RSLegendExamples >> example10Location [ | canvas classes b | @@ -244,7 +245,7 @@ RSLegendExamples >> example10Location [ ^ canvas ] -{ #category : #examples } +{ #category : 'examples' } RSLegendExamples >> example11OnDemand [ | b canvas | @@ -271,7 +272,7 @@ RSLegendExamples >> example11OnDemand [ ^ canvas ] -{ #category : #examples } +{ #category : 'examples' } RSLegendExamples >> example12OnPopup [ | canvas shapes interaction popup | @@ -319,7 +320,7 @@ RSLegendExamples >> example12OnPopup [ ^ canvas ] -{ #category : #examples } +{ #category : 'examples' } RSLegendExamples >> example13LinesOfCode [ | canvas | diff --git a/src/Roassal-Legend-Examples/package.st b/src/Roassal-Legend-Examples/package.st index e6aaf0b6..afce4305 100644 --- a/src/Roassal-Legend-Examples/package.st +++ b/src/Roassal-Legend-Examples/package.st @@ -1 +1 @@ -Package { #name : #'Roassal-Legend-Examples' } +Package { #name : 'Roassal-Legend-Examples' } diff --git a/src/Roassal-Legend/RSLegend.class.st b/src/Roassal-Legend/RSLegend.class.st index 1d3424a4..90b7d05a 100644 --- a/src/Roassal-Legend/RSLegend.class.st +++ b/src/Roassal-Legend/RSLegend.class.st @@ -27,8 +27,8 @@ c ``` " Class { - #name : #RSLegend, - #superclass : #RSBuilder, + #name : 'RSLegend', + #superclass : 'RSBuilder', #instVars : [ 'layout', 'defaults', @@ -39,10 +39,12 @@ Class { 'isOnDemand', 'currentLegend' ], - #category : #'Roassal-Legend-Core' + #category : 'Roassal-Legend-Core', + #package : 'Roassal-Legend', + #tag : 'Core' } -{ #category : #hooks } +{ #category : 'hooks' } RSLegend >> basicRenderIn: aCanvas [ | legend | legend := self createLegend. @@ -50,7 +52,7 @@ RSLegend >> basicRenderIn: aCanvas [ aCanvas addShape: legend ] -{ #category : #public } +{ #category : 'public' } RSLegend >> beFixedWithTitle: aString [ isFixed := true. ^ menuShape := self defaultTitle copy @@ -58,7 +60,7 @@ RSLegend >> beFixedWithTitle: aString [ yourself ] -{ #category : #'public - specific' } +{ #category : 'public - specific' } RSLegend >> boxHeightIcon [ | box marker arrow icon | box := RSBox new @@ -81,12 +83,12 @@ RSLegend >> boxHeightIcon [ ^ icon asGroup asShape ] -{ #category : #'public - specific' } +{ #category : 'public - specific' } RSLegend >> boxHeightText: aString [ ^ self boxText: aString icon: self boxHeightIcon ] -{ #category : #'public - specific' } +{ #category : 'public - specific' } RSLegend >> boxText: aString icon: aShape [ | group row | group := { aShape. self defaultLabel copy text: aString }. @@ -97,7 +99,7 @@ RSLegend >> boxText: aString icon: aShape [ ^ row ] -{ #category : #'public - specific' } +{ #category : 'public - specific' } RSLegend >> boxWidthIcon [ | box marker arrow icon | box := RSBox new @@ -120,12 +122,12 @@ RSLegend >> boxWidthIcon [ ^ icon asGroup asShape ] -{ #category : #'public - specific' } +{ #category : 'public - specific' } RSLegend >> boxWidthText: aString [ ^ self boxText: aString icon: self boxWidthIcon ] -{ #category : #private } +{ #category : 'private' } RSLegend >> createLegend [ | legend | layout on: self shapes. @@ -137,7 +139,7 @@ RSLegend >> createLegend [ ^ legend ] -{ #category : #'public - specific' } +{ #category : 'public - specific' } RSLegend >> customText: anObject shape: aShape [ | shape | "general propuse, you can add and define anything in aShape to be a legend" @@ -146,32 +148,32 @@ RSLegend >> customText: anObject shape: aShape [ ^ shape ] -{ #category : #accessing } +{ #category : 'accessing' } RSLegend >> defaultBoldText [ ^ defaults at: #defaultBoldText ifAbsentPut: [ RSLabel new bold ] ] -{ #category : #accessing } +{ #category : 'accessing' } RSLegend >> defaultBox [ ^ defaults at: #defaultBox ifAbsentPut: [ RSBox new size: 15 ] ] -{ #category : #accessing } +{ #category : 'accessing' } RSLegend >> defaultCircle [ ^ defaults at: #defaultCircle ifAbsentPut: [ RSEllipse new size: 15 ] ] -{ #category : #accessing } +{ #category : 'accessing' } RSLegend >> defaultLabel [ ^ defaults at: #defaultLabel ifAbsentPut: [ RSLabel new ] ] -{ #category : #accessing } +{ #category : 'accessing' } RSLegend >> defaultLabel: aShape [ defaults at: #defaultLabel put: aShape ] -{ #category : #accessing } +{ #category : 'accessing' } RSLegend >> defaultTitle [ ^ defaults at: #defaultTitle ifAbsentPut: [ | l | l := RSLabel new. @@ -179,70 +181,70 @@ RSLegend >> defaultTitle [ l ] ] -{ #category : #accessing } +{ #category : 'accessing' } RSLegend >> defaultTitle: aShape [ defaults at: #defaultTitle put: aShape ] -{ #category : #initialization } +{ #category : 'initialization' } RSLegend >> initialize [ super initialize. self reset ] -{ #category : #testing } +{ #category : 'testing' } RSLegend >> isFixed [ ^ isFixed ] -{ #category : #testing } +{ #category : 'testing' } RSLegend >> isOnDemand [ ^ isOnDemand ] -{ #category : #utilities } +{ #category : 'utilities' } RSLegend >> key [ ^ #legendLabels ] -{ #category : #layout } +{ #category : 'layout' } RSLegend >> layout [ ^ layout ] -{ #category : #accessing } +{ #category : 'accessing' } RSLegend >> legend [ ^ currentLegend ] -{ #category : #public } +{ #category : 'public' } RSLegend >> legendDo: aBlock [ legendBlock := aBlock ] -{ #category : #private } +{ #category : 'private' } RSLegend >> legendLabelsIn: aCanvas [ ^ aCanvas propertyAt: self key ifAbsentPut: [ aCanvas when: RSExtentChangedEvent send: #updateLegendLabels: to: self. RSGroup new: 5 ] ] -{ #category : #accessing } +{ #category : 'accessing' } RSLegend >> location [ ^ location ] -{ #category : #accessing } +{ #category : 'accessing' } RSLegend >> menuShape [ ^ menuShape ] -{ #category : #public } +{ #category : 'public' } RSLegend >> onDemand [ ^ self onDemand: 'Help' ] -{ #category : #public } +{ #category : 'public' } RSLegend >> onDemand: text [ isOnDemand := true. ^ menuShape := RSLabel new @@ -252,7 +254,7 @@ RSLegend >> onDemand: text [ yourself ] -{ #category : #'public - specific' } +{ #category : 'public - specific' } RSLegend >> polymetricWidth: labelWidth height: labelHeight box: labelBox [ "very very specific shape" | box s marker line g l1 l2 l3 line1 line2 defaultLabel | @@ -281,7 +283,7 @@ RSLegend >> polymetricWidth: labelWidth height: labelHeight box: labelBox [ ^ s ] -{ #category : #hooks } +{ #category : 'hooks' } RSLegend >> renderFixedOn: aCanvas [ | legend legendLabels originalShapes flag | shapes addFirst: menuShape. @@ -310,7 +312,7 @@ RSLegend >> renderFixedOn: aCanvas [ for: self ] -{ #category : #rendering } +{ #category : 'rendering' } RSLegend >> renderIn: aCanvas [ self isOnDemand ifTrue: [ self renderOnDemandIn: aCanvas ] @@ -320,7 +322,7 @@ RSLegend >> renderIn: aCanvas [ ifFalse: [self basicRenderIn: aCanvas ] ] ] -{ #category : #hooks } +{ #category : 'hooks' } RSLegend >> renderOnDemandIn: aCanvas [ | i legendLabels | menuShape isFixed: true. @@ -333,7 +335,7 @@ RSLegend >> renderOnDemandIn: aCanvas [ self updateLegendLabels: aCanvas ] -{ #category : #initialization } +{ #category : 'initialization' } RSLegend >> reset [ legendBlock := [ :l | l draggable ]. shapes := RSGroup new. @@ -345,7 +347,7 @@ RSLegend >> reset [ defaults := Dictionary new ] -{ #category : #utilities } +{ #category : 'utilities' } RSLegend >> shape: aShape withColor: color [ | copy | copy := aShape copy. @@ -353,12 +355,12 @@ RSLegend >> shape: aShape withColor: color [ ^ copy ] -{ #category : #public } +{ #category : 'public' } RSLegend >> text: aString [ ^ self customText: aString shape: self defaultLabel ] -{ #category : #public } +{ #category : 'public' } RSLegend >> text: aString description: desc [ | text tshapes line l d| text := self defaultBoldText copy. @@ -374,17 +376,17 @@ RSLegend >> text: aString description: desc [ ^ line ] -{ #category : #public } +{ #category : 'public' } RSLegend >> text: aString withBoxColor: color [ ^ self text: aString withShape: (self shape: self defaultBox withColor: color) ] -{ #category : #public } +{ #category : 'public' } RSLegend >> text: aString withCircleColor: color [ ^ self text: aString withShape: (self shape: self defaultCircle withColor: color) ] -{ #category : #'public - specific' } +{ #category : 'public - specific' } RSLegend >> text: aString withFadingRamp: ramp [ | gradient s | "very specific shape" @@ -397,7 +399,7 @@ RSLegend >> text: aString withFadingRamp: ramp [ ^ self text: aString withShape: s ] -{ #category : #public } +{ #category : 'public' } RSLegend >> text: aString withShape: aShape [ | text tshapes line l | text := self defaultLabel copy. @@ -412,12 +414,12 @@ RSLegend >> text: aString withShape: aShape [ ^ line ] -{ #category : #public } +{ #category : 'public' } RSLegend >> title: aString [ ^ self customText: aString shape: self defaultTitle ] -{ #category : #private } +{ #category : 'private' } RSLegend >> updateLegendLabels: evt [ | legendLabels | legendLabels := self legendLabelsIn: evt canvas. @@ -428,7 +430,7 @@ RSLegend >> updateLegendLabels: evt [ move: legendLabels on: evt canvas basicRectangle ] -{ #category : #public } +{ #category : 'public' } RSLegend >> withFrame [ "Set a frame around the legend" self legendDo: [ :l | diff --git a/src/Roassal-Legend/package.st b/src/Roassal-Legend/package.st index 8b767cc4..21f5ef23 100644 --- a/src/Roassal-Legend/package.st +++ b/src/Roassal-Legend/package.st @@ -1 +1 @@ -Package { #name : #'Roassal-Legend' } +Package { #name : 'Roassal-Legend' } diff --git a/src/Roassal-OpenStreetMap/AtomicCollection.extension.st b/src/Roassal-OpenStreetMap/AtomicCollection.extension.st index 211aa303..97171037 100644 --- a/src/Roassal-OpenStreetMap/AtomicCollection.extension.st +++ b/src/Roassal-OpenStreetMap/AtomicCollection.extension.st @@ -1,6 +1,6 @@ -Extension { #name : #AtomicCollection } +Extension { #name : 'AtomicCollection' } -{ #category : #'*Roassal-OpenStreetMap' } +{ #category : '*Roassal-OpenStreetMap' } AtomicCollection >> removeAllSuchThat: aFullBlockClosure [ ^ self subclassResponsibility diff --git a/src/Roassal-OpenStreetMap/AtomicSharedQueue.extension.st b/src/Roassal-OpenStreetMap/AtomicSharedQueue.extension.st index d6ced262..d7462099 100644 --- a/src/Roassal-OpenStreetMap/AtomicSharedQueue.extension.st +++ b/src/Roassal-OpenStreetMap/AtomicSharedQueue.extension.st @@ -1,6 +1,6 @@ -Extension { #name : #AtomicSharedQueue } +Extension { #name : 'AtomicSharedQueue' } -{ #category : #'*Roassal-OpenStreetMap' } +{ #category : '*Roassal-OpenStreetMap' } AtomicSharedQueue >> removeAllSuchThat: aFullBlockClosure [ ^ self nextOrNilSuchThat: aFullBlockClosure diff --git a/src/Roassal-OpenStreetMap/RSAthensRenderer.extension.st b/src/Roassal-OpenStreetMap/RSAthensRenderer.extension.st index 29a27a43..7b5f82cf 100644 --- a/src/Roassal-OpenStreetMap/RSAthensRenderer.extension.st +++ b/src/Roassal-OpenStreetMap/RSAthensRenderer.extension.st @@ -1,6 +1,6 @@ -Extension { #name : #RSAthensRenderer } +Extension { #name : 'RSAthensRenderer' } -{ #category : #'*Roassal-OpenStreetMap' } +{ #category : '*Roassal-OpenStreetMap' } RSAthensRenderer >> allKeyFramesFor: osm [ | zoomLevel start end | @@ -12,7 +12,7 @@ RSAthensRenderer >> allKeyFramesFor: osm [ (start y to: end y) collect: [ :yi | {xi. yi. zoomLevel} ] ]. ] -{ #category : #'*Roassal-OpenStreetMap' } +{ #category : '*Roassal-OpenStreetMap' } RSAthensRenderer >> createFuture: osm key: key [ ^ [ self downloadTile: osm key: key ] future onSuccessDo: [ :tile | @@ -22,7 +22,7 @@ RSAthensRenderer >> createFuture: osm key: key [ ] -{ #category : #'*Roassal-OpenStreetMap' } +{ #category : '*Roassal-OpenStreetMap' } RSAthensRenderer >> downloadTile: osm key: key [ ^ ZnEasy getPng: ('https://a.tile.openstreetmap.org' asZnUrl addPathSegment: key third printString; @@ -30,7 +30,7 @@ RSAthensRenderer >> downloadTile: osm key: key [ addPathSegment: key second printString , '.png') ] -{ #category : #'*Roassal-OpenStreetMap' } +{ #category : '*Roassal-OpenStreetMap' } RSAthensRenderer >> drawTile: tupleOfThree with: tiles shape: osm [ "Draw a single tile at the right position." | aPoint | @@ -55,7 +55,7 @@ RSAthensRenderer >> drawTile: tupleOfThree with: tiles shape: osm [ ] ] -{ #category : #'*Roassal-OpenStreetMap' } +{ #category : '*Roassal-OpenStreetMap' } RSAthensRenderer >> drawTiles: newTiles osm: osm [ | allKeys | allKeys := self allKeyFramesFor: osm. @@ -77,7 +77,7 @@ RSAthensRenderer >> drawTiles: newTiles osm: osm [ ] ] -{ #category : #'*Roassal-OpenStreetMap' } +{ #category : '*Roassal-OpenStreetMap' } RSAthensRenderer >> getTileAt: aPoint with: osm key: key [ "A point has to be xTile @ yTile, integers between 0 and 2^osmZoomLevel - 1" | level future | @@ -94,7 +94,7 @@ RSAthensRenderer >> getTileAt: aPoint with: osm key: key [ ^ osm emptyTile ] -{ #category : #'*Roassal-OpenStreetMap' } +{ #category : '*Roassal-OpenStreetMap' } RSAthensRenderer >> loadOldTiles: newTiles osm: osm [ | oldTiles emptyTile | oldTiles := osm tiles. @@ -105,7 +105,7 @@ RSAthensRenderer >> loadOldTiles: newTiles osm: osm [ ]. ] -{ #category : #'*Roassal-OpenStreetMap' } +{ #category : '*Roassal-OpenStreetMap' } RSAthensRenderer >> removeOldTiles: newTiles size: cacheSize [ | keys key | keys := newTiles keys. @@ -116,7 +116,7 @@ RSAthensRenderer >> removeOldTiles: newTiles size: cacheSize [ ] -{ #category : #'*Roassal-OpenStreetMap' } +{ #category : '*Roassal-OpenStreetMap' } RSAthensRenderer >> visitOSM: osm [ | newTiles | newTiles := OrderedDictionary new. diff --git a/src/Roassal-OpenStreetMap/RSOSMBuilder.class.st b/src/Roassal-OpenStreetMap/RSOSMBuilder.class.st index 25fc4b97..059bd006 100644 --- a/src/Roassal-OpenStreetMap/RSOSMBuilder.class.st +++ b/src/Roassal-OpenStreetMap/RSOSMBuilder.class.st @@ -2,15 +2,16 @@ This class is to create maps directly with the correct interactions " Class { - #name : #RSOSMBuilder, - #superclass : #RSBuilder, + #name : 'RSOSMBuilder', + #superclass : 'RSBuilder', #instVars : [ 'osm' ], - #category : #'Roassal-OpenStreetMap' + #category : 'Roassal-OpenStreetMap', + #package : 'Roassal-OpenStreetMap' } -{ #category : #'accessing - defaults' } +{ #category : 'accessing - defaults' } RSOSMBuilder >> defaultContainer [ | canvas | @@ -22,7 +23,7 @@ RSOSMBuilder >> defaultContainer [ ^ canvas. ] -{ #category : #public } +{ #category : 'public' } RSOSMBuilder >> downloadCityCoordinatesFor: aCityName [ "This is just and example and it contains a limit of 50000 calls. Probably you will need pro account" @@ -35,12 +36,12 @@ RSOSMBuilder >> downloadCityCoordinatesFor: aCityName [ in: [ :city | (city at: 'latitude') asNumber @ (city at: 'longitude') asNumber ] ] -{ #category : #public } +{ #category : 'public' } RSOSMBuilder >> latLogToRoassalCoordinates: aPoint [ ^ (self lonToRoassal: aPoint y) @ (self latToRoassal: aPoint x). ] -{ #category : #public } +{ #category : 'public' } RSOSMBuilder >> latLong: aPoint [ | canvas location camera | "location in latitud and longitud" @@ -58,7 +59,7 @@ RSOSMBuilder >> latLong: aPoint [ ] -{ #category : #public } +{ #category : 'public' } RSOSMBuilder >> latToRoassal: lat [ | l cls | cls := osm class. @@ -66,18 +67,18 @@ RSOSMBuilder >> latToRoassal: lat [ ^ (Float pi / 4 + (l / 2)) tan ln * cls earthR negated ] -{ #category : #public } +{ #category : 'public' } RSOSMBuilder >> lonToRoassal: lon [ ^ osm equatorLength * (lon asFloat / 360) ] -{ #category : #public } +{ #category : 'public' } RSOSMBuilder >> moveToCity: aCityName [ self latLong: (self downloadCityCoordinatesFor: aCityName) ] -{ #category : #rendering } +{ #category : 'rendering' } RSOSMBuilder >> renderIn: aCanvas [ osm := RSOSMShape new. shapes := { osm }. diff --git a/src/Roassal-OpenStreetMap/RSOSMExamples.class.st b/src/Roassal-OpenStreetMap/RSOSMExamples.class.st index 659413b1..0d6e5e77 100644 --- a/src/Roassal-OpenStreetMap/RSOSMExamples.class.st +++ b/src/Roassal-OpenStreetMap/RSOSMExamples.class.st @@ -2,12 +2,13 @@ I have examples for open street map based on roassal2 previous examples " Class { - #name : #RSOSMExamples, - #superclass : #RSObject, - #category : #'Roassal-OpenStreetMap' + #name : 'RSOSMExamples', + #superclass : 'RSObject', + #category : 'Roassal-OpenStreetMap', + #package : 'Roassal-OpenStreetMap' } -{ #category : #examples } +{ #category : 'examples' } RSOSMExamples >> customPopup [ | popup | popup := RSPopup new. @@ -27,7 +28,7 @@ RSOSMExamples >> customPopup [ ^ popup ] -{ #category : #examples } +{ #category : 'examples' } RSOSMExamples >> downloadSeismData [ | csv lines headers| @@ -43,7 +44,7 @@ RSOSMExamples >> downloadSeismData [ ] -{ #category : #examples } +{ #category : 'examples' } RSOSMExamples >> example01Basic [ | canvas | @@ -58,7 +59,7 @@ RSOSMExamples >> example01Basic [ ^ canvas ] -{ #category : #examples } +{ #category : 'examples' } RSOSMExamples >> example02Builder [ | b | @@ -66,7 +67,7 @@ RSOSMExamples >> example02Builder [ ^ b ] -{ #category : #examples } +{ #category : 'examples' } RSOSMExamples >> example03CitySelection [ @@ -107,7 +108,7 @@ RSOSMExamples >> example03CitySelection [ ^ canvas ] -{ #category : #examples } +{ #category : 'examples' } RSOSMExamples >> example04Barcelona [ @@ -144,7 +145,7 @@ RSOSMExamples >> example04Barcelona [ ^ canvas ] -{ #category : #examples } +{ #category : 'examples' } RSOSMExamples >> example05ChartInLondon [ @@ -163,7 +164,7 @@ RSOSMExamples >> example05ChartInLondon [ ^ canvas. ] -{ #category : #examples } +{ #category : 'examples' } RSOSMExamples >> example06SeismOnEarth [ > example06SeismOnEarth [ ^ canvas. ] -{ #category : #examples } +{ #category : 'examples' } RSOSMExamples >> example07SeismOnEarthAnimated [ > example07SeismOnEarthAnimated [ ^ canvas. ] -{ #category : #examples } +{ #category : 'examples' } RSOSMExamples >> example08SeismOnEarthAnimatedByTime [ > example08SeismOnEarthAnimatedByTime [ ^ canvas. ] -{ #category : #examples } +{ #category : 'examples' } RSOSMExamples >> newAnimationByTimeFor: data [ | shape canvas timeScale delay | shape := data first. @@ -305,7 +306,7 @@ RSOSMExamples >> newAnimationByTimeFor: data [ yourself ] -{ #category : #examples } +{ #category : 'examples' } RSOSMExamples >> newAnimationFor: data [ | shape dateLabel locationLabel canvas magScale duration lineStart | shape := data first. @@ -335,7 +336,7 @@ RSOSMExamples >> newAnimationFor: data [ ] -{ #category : #examples } +{ #category : 'examples' } RSOSMExamples >> newLineAnimationFor: data [ | shape lineStart canvas magScale duration | shape := data first. diff --git a/src/Roassal-OpenStreetMap/RSOSMShape.class.st b/src/Roassal-OpenStreetMap/RSOSMShape.class.st index 1308b6b2..d0906740 100644 --- a/src/Roassal-OpenStreetMap/RSOSMShape.class.st +++ b/src/Roassal-OpenStreetMap/RSOSMShape.class.st @@ -4,8 +4,8 @@ I am the basic shape that renders the map, based on code of Roassal2 using the A https://a.tile.openstreetmap.org " Class { - #name : #RSOSMShape, - #superclass : #RSShape, + #name : 'RSOSMShape', + #superclass : 'RSShape', #instVars : [ 'tiles', 'emptyTile', @@ -15,50 +15,51 @@ Class { 'futures', 'cacheSize' ], - #category : #'Roassal-OpenStreetMap' + #category : 'Roassal-OpenStreetMap', + #package : 'Roassal-OpenStreetMap' } -{ #category : #public } +{ #category : 'public' } RSOSMShape class >> earthR [ "Earth R in km." ^ 6378.1370 ] -{ #category : #public } +{ #category : 'public' } RSOSMShape class >> equatorLength [ "Equator length in km. self earthR * 2* Float pi" ^ 40075.016685578485 ] -{ #category : #public } +{ #category : 'public' } RSOSMShape class >> maxLatitude [ ^85.05112877980659 ] -{ #category : #public } +{ #category : 'public' } RSOSMShape class >> minLatitude [ ^-85.05112877980659 ] -{ #category : #adding } +{ #category : 'adding' } RSOSMShape >> accept: aVisitor [ aVisitor visitOSM: self ] -{ #category : #accessing } +{ #category : 'accessing' } RSOSMShape >> cacheSize [ ^ cacheSize ] -{ #category : #accessing } +{ #category : 'accessing' } RSOSMShape >> cacheSize: aNumber [ "a cache size for number of tiles" cacheSize := aNumber ] -{ #category : #accessing } +{ #category : 'accessing' } RSOSMShape >> computeEncompassingRectangle [ | canvas | canvas := self canvas. @@ -66,60 +67,60 @@ RSOSMShape >> computeEncompassingRectangle [ ^ canvas visibleRectangle ] -{ #category : #private } +{ #category : 'private' } RSOSMShape >> computeOsmZoomLevel [ "The osm zoom level." ^ (((self pixelLength * self canvas camera scale) ln / 2 ln) rounded max: 0) min: 18 ] -{ #category : #defaults } +{ #category : 'defaults' } RSOSMShape >> defaultCacheSize [ ^ 100 ] -{ #category : #defaults } +{ #category : 'defaults' } RSOSMShape >> defaultEmptyTile [ ^ ((StringMorph contents: 'Loading...') center: 127 @ 127) imageFormForRectangle: (0 @ 0 extent: 256 @ 256) ] -{ #category : #accessing } +{ #category : 'accessing' } RSOSMShape >> emptyTile [ ^ emptyTile ] -{ #category : #accessing } +{ #category : 'accessing' } RSOSMShape >> emptyTile: aMorph [ emptyTile := aMorph ] -{ #category : #'accessing - computed' } +{ #category : 'accessing - computed' } RSOSMShape >> end [ ^ (self fromOurSpaceToTile: self transformedRectangle bottomRight) ] -{ #category : #accessing } +{ #category : 'accessing' } RSOSMShape >> equatorLength [ "Equator length in km. self earthR * 2* Float pi" ^ self class equatorLength * self ratio ] -{ #category : #'accessing - computed' } +{ #category : 'accessing - computed' } RSOSMShape >> fromCameraSpaceToOurSpace: aPoint [ "To convert our boundaries from the camera space into our space (0@0 at center, no zoom)." ^ self canvas camera fromSpaceToPixel: aPoint ] -{ #category : #'accessing - computed' } +{ #category : 'accessing - computed' } RSOSMShape >> fromOSMSpaceToOurSpace: aPoint [ "Convert a point in OSM space (zoom level) into our space." ^ self fromCameraSpaceToOurSpace: aPoint * self equatorLength / (2 raisedTo: osmZoomLevel) / 256 - (self equatorLength / 2) ] -{ #category : #'accessing - computed' } +{ #category : 'accessing - computed' } RSOSMShape >> fromOurSpaceToCameraSpace: aPoint [ "To convert our boundaries into the camera space." | camera | @@ -127,7 +128,7 @@ RSOSMShape >> fromOurSpaceToCameraSpace: aPoint [ ^ (camera matrix inverseTransform: aPoint+ (camera originMode gapToCenter: camera) ) ] -{ #category : #'accessing - computed' } +{ #category : 'accessing - computed' } RSOSMShape >> fromOurSpaceToTile: aPoint [ "Convert our boundaries into the osm space (as set by the zoom level)." @@ -135,18 +136,18 @@ RSOSMShape >> fromOurSpaceToTile: aPoint [ // (self equatorLength / (2 raisedTo: osmZoomLevel)) ] -{ #category : #accessing } +{ #category : 'accessing' } RSOSMShape >> futures [ ^ futures ] -{ #category : #accessing } +{ #category : 'accessing' } RSOSMShape >> futures: anObject [ futures := anObject ] -{ #category : #initialization } +{ #category : 'initialization' } RSOSMShape >> initialize [ super initialize. tiles := Dictionary new. @@ -157,74 +158,74 @@ RSOSMShape >> initialize [ ] -{ #category : #private } +{ #category : 'private' } RSOSMShape >> inspectorShadowFor: padding color: aColor [ "a map does not contains a shadow" ^ self shouldNotImplement ] -{ #category : #testing } +{ #category : 'testing' } RSOSMShape >> intersects: aRectangle [ "probably this will change with the RTree" ^ self shouldNotImplement ] -{ #category : #accessing } +{ #category : 'accessing' } RSOSMShape >> osmZoomLevel [ ^ osmZoomLevel ] -{ #category : #accessing } +{ #category : 'accessing' } RSOSMShape >> pixelLength [ "Pixel length at equator at highest zoom factor. " ^ self class equatorLength * self ratio / 256 ] -{ #category : #accessing } +{ #category : 'accessing' } RSOSMShape >> ratio [ ^ ratio ifNil: [ ratio := 1.0 ] ] -{ #category : #'accessing - computed' } +{ #category : 'accessing - computed' } RSOSMShape >> remainderZoom: z [ "Remainder zoom to apply on the display." ^ self pixelLength * self canvas camera scale * (256 / 255) asFloat / (2 raisedTo: z) ] -{ #category : #adding } +{ #category : 'adding' } RSOSMShape >> renderOn: aCanvas [ ] -{ #category : #accessing } +{ #category : 'accessing' } RSOSMShape >> semaphore [ ^ semaphore ] -{ #category : #'accessing - computed' } +{ #category : 'accessing - computed' } RSOSMShape >> start [ ^ self fromOurSpaceToTile: self transformedRectangle topLeft ] -{ #category : #accessing } +{ #category : 'accessing' } RSOSMShape >> tiles [ ^ tiles ] -{ #category : #accessing } +{ #category : 'accessing' } RSOSMShape >> tiles: aDictionary [ tiles := aDictionary ] -{ #category : #'accessing - computed' } +{ #category : 'accessing - computed' } RSOSMShape >> transformedRectangle [ | aPoint | aPoint := parent extent. ^ aPoint / -2.0 extent: aPoint ] -{ #category : #private } +{ #category : 'private' } RSOSMShape >> updateOsmZoomLevel [ "Get the osm zoom level. Do something if we need to change the zoom level, like flushing the tile cache." diff --git a/src/Roassal-OpenStreetMap/RSOSMTest.class.st b/src/Roassal-OpenStreetMap/RSOSMTest.class.st index 3f791596..24d209d8 100644 --- a/src/Roassal-OpenStreetMap/RSOSMTest.class.st +++ b/src/Roassal-OpenStreetMap/RSOSMTest.class.st @@ -1,10 +1,11 @@ Class { - #name : #RSOSMTest, - #superclass : #RSTest, - #category : #'Roassal-OpenStreetMap' + #name : 'RSOSMTest', + #superclass : 'RSTest', + #category : 'Roassal-OpenStreetMap', + #package : 'Roassal-OpenStreetMap' } -{ #category : #tests } +{ #category : 'tests' } RSOSMTest >> testOpen [ | b window | b := RSOSMBuilder new. @@ -13,7 +14,7 @@ RSOSMTest >> testOpen [ window delete. ] -{ #category : #tests } +{ #category : 'tests' } RSOSMTest >> testRender [ | b | b := RSOSMBuilder new. @@ -21,7 +22,7 @@ RSOSMTest >> testRender [ b canvas createMorph drawOnMockCanvas ] -{ #category : #tests } +{ #category : 'tests' } RSOSMTest >> testStartEnd [ | osm canvas | osm := RSOSMShape new. diff --git a/src/Roassal-OpenStreetMap/TKTCommonQueueWorkerPool.extension.st b/src/Roassal-OpenStreetMap/TKTCommonQueueWorkerPool.extension.st index f4567396..e54df738 100644 --- a/src/Roassal-OpenStreetMap/TKTCommonQueueWorkerPool.extension.st +++ b/src/Roassal-OpenStreetMap/TKTCommonQueueWorkerPool.extension.st @@ -1,6 +1,6 @@ -Extension { #name : #TKTCommonQueueWorkerPool } +Extension { #name : 'TKTCommonQueueWorkerPool' } -{ #category : #'*Roassal-OpenStreetMap' } +{ #category : '*Roassal-OpenStreetMap' } TKTCommonQueueWorkerPool >> cancelIfNotStarted: aTKTFuture [ taskQueue removeAllSuchThat: [ :futureExecution | diff --git a/src/Roassal-OpenStreetMap/TKTFuture.extension.st b/src/Roassal-OpenStreetMap/TKTFuture.extension.st index 27a611d9..a2b4c458 100644 --- a/src/Roassal-OpenStreetMap/TKTFuture.extension.st +++ b/src/Roassal-OpenStreetMap/TKTFuture.extension.st @@ -1,6 +1,6 @@ -Extension { #name : #TKTFuture } +Extension { #name : 'TKTFuture' } -{ #category : #'*Roassal-OpenStreetMap' } +{ #category : '*Roassal-OpenStreetMap' } TKTFuture >> cancelIfNotStarted [ runner cancelIfNotStarted: self diff --git a/src/Roassal-OpenStreetMap/TKTTaskExecution.extension.st b/src/Roassal-OpenStreetMap/TKTTaskExecution.extension.st index 7ecad5e4..387a9fcc 100644 --- a/src/Roassal-OpenStreetMap/TKTTaskExecution.extension.st +++ b/src/Roassal-OpenStreetMap/TKTTaskExecution.extension.st @@ -1,6 +1,6 @@ -Extension { #name : #TKTTaskExecution } +Extension { #name : 'TKTTaskExecution' } -{ #category : #'*Roassal-OpenStreetMap' } +{ #category : '*Roassal-OpenStreetMap' } TKTTaskExecution >> future [ ^ nil ] diff --git a/src/Roassal-OpenStreetMap/package.st b/src/Roassal-OpenStreetMap/package.st index 7658e327..7d06bbf5 100644 --- a/src/Roassal-OpenStreetMap/package.st +++ b/src/Roassal-OpenStreetMap/package.st @@ -1 +1 @@ -Package { #name : #'Roassal-OpenStreetMap' } +Package { #name : 'Roassal-OpenStreetMap' } diff --git a/src/Roassal-Pharo/CompiledMethod.extension.st b/src/Roassal-Pharo/CompiledMethod.extension.st index 26783b21..75c96ad9 100644 --- a/src/Roassal-Pharo/CompiledMethod.extension.st +++ b/src/Roassal-Pharo/CompiledMethod.extension.st @@ -1,6 +1,6 @@ -Extension { #name : #CompiledMethod } +Extension { #name : 'CompiledMethod' } -{ #category : #'*Roassal-Pharo' } +{ #category : '*Roassal-Pharo' } CompiledMethod >> protocolName [ ^ self protocol ] diff --git a/src/Roassal-Pharo/FormCanvas.extension.st b/src/Roassal-Pharo/FormCanvas.extension.st index a5ccb565..c2a63140 100644 --- a/src/Roassal-Pharo/FormCanvas.extension.st +++ b/src/Roassal-Pharo/FormCanvas.extension.st @@ -1,6 +1,6 @@ -Extension { #name : #FormCanvas } +Extension { #name : 'FormCanvas' } -{ #category : #'*Roassal-Pharo' } +{ #category : '*Roassal-Pharo' } FormCanvas >> scale [ ^ 1 diff --git a/src/Roassal-Pharo/RPackage.extension.st b/src/Roassal-Pharo/RPackage.extension.st index b4d91cc4..170c5e14 100644 --- a/src/Roassal-Pharo/RPackage.extension.st +++ b/src/Roassal-Pharo/RPackage.extension.st @@ -1,6 +1,6 @@ -Extension { #name : #RPackage } +Extension { #name : 'RPackage' } -{ #category : #'*Roassal-Pharo' } +{ #category : '*Roassal-Pharo' } RPackage >> dependentPackages [ " Return the list of packages that I depend on @@ -10,7 +10,7 @@ RPackage >> dependentPackages [ ^ (self definedClasses flatCollect: #dependentClasses), self extendedClasses collect: #package as: Set ] -{ #category : #'*Roassal-Pharo' } +{ #category : '*Roassal-Pharo' } RPackage >> dependentPackagesWithOccurences [ " Return the list of packages that I depend on. The result may includes several times the same packages. This reflects the number of dependencies. @@ -20,7 +20,7 @@ RPackage >> dependentPackagesWithOccurences [ ^ (self definedClasses flatCollect: #dependentClassesWithOccurences as: Bag) collect: #package ] -{ #category : #'*Roassal-Pharo' } +{ #category : '*Roassal-Pharo' } RPackage >> numberOfDependenciesToward: anotherPackage [ " Return the number of dependencies between mysefl and the package provided as argument diff --git a/src/Roassal-Pharo/package.st b/src/Roassal-Pharo/package.st index 90729964..52c9d25c 100644 --- a/src/Roassal-Pharo/package.st +++ b/src/Roassal-Pharo/package.st @@ -1 +1 @@ -Package { #name : #'Roassal-Pharo' } +Package { #name : 'Roassal-Pharo' } diff --git a/src/Roassal-Pharo10/SequenceableCollection.extension.st b/src/Roassal-Pharo10/SequenceableCollection.extension.st index f60d053f..21a46b7a 100644 --- a/src/Roassal-Pharo10/SequenceableCollection.extension.st +++ b/src/Roassal-Pharo10/SequenceableCollection.extension.st @@ -1,6 +1,6 @@ -Extension { #name : #SequenceableCollection } +Extension { #name : 'SequenceableCollection' } -{ #category : #'*Roassal-Pharo10' } +{ #category : '*Roassal-Pharo10' } SequenceableCollection >> closeTo: aSequenceableCollection precision: aPrecision [ "Return true if all my elements are close to the elements of same index of the parameter with a certain precision" diff --git a/src/Roassal-Pharo10/package.st b/src/Roassal-Pharo10/package.st index 2d6acee6..b5f8a744 100644 --- a/src/Roassal-Pharo10/package.st +++ b/src/Roassal-Pharo10/package.st @@ -1 +1 @@ -Package { #name : #'Roassal-Pharo10' } +Package { #name : 'Roassal-Pharo10' } diff --git a/src/Roassal-Pharo8/NSInterpolator.extension.st b/src/Roassal-Pharo8/NSInterpolator.extension.st index 4711a3ca..b700e345 100644 --- a/src/Roassal-Pharo8/NSInterpolator.extension.st +++ b/src/Roassal-Pharo8/NSInterpolator.extension.st @@ -1,6 +1,6 @@ -Extension { #name : #NSInterpolator } +Extension { #name : 'NSInterpolator' } -{ #category : #'*Roassal-Pharo8' } +{ #category : '*Roassal-Pharo8' } NSInterpolator >> gtInspectorCanvasIn: composite [ composite Roassal diff --git a/src/Roassal-Pharo8/RSAbstractAction.class.st b/src/Roassal-Pharo8/RSAbstractAction.class.st index 0130f95d..27575ef7 100644 --- a/src/Roassal-Pharo8/RSAbstractAction.class.st +++ b/src/Roassal-Pharo8/RSAbstractAction.class.st @@ -2,15 +2,16 @@ Users can add actions to the inspector creating a new subclass of abstract action and defined their methods. " Class { - #name : #RSAbstractAction, - #superclass : #RSObject, + #name : 'RSAbstractAction', + #superclass : 'RSObject', #instVars : [ 'presentation' ], - #category : #'Roassal-Pharo8' + #category : 'Roassal-Pharo8', + #package : 'Roassal-Pharo8' } -{ #category : #public } +{ #category : 'public' } RSAbstractAction class >> registerActionsOn: presentation [ | instances | instances := self allSubclasses reject: #hasAbstractMethods. @@ -19,33 +20,33 @@ RSAbstractAction class >> registerActionsOn: presentation [ instances do: [ :inst | inst registerOn: presentation ]. ] -{ #category : #hooks } +{ #category : 'hooks' } RSAbstractAction >> category [ ^ nil ] -{ #category : #hooks } +{ #category : 'hooks' } RSAbstractAction >> execute [ self subclassResponsibility ] -{ #category : #hooks } +{ #category : 'hooks' } RSAbstractAction >> executeOn: roassalPresentation [ presentation := roassalPresentation. self execute ] -{ #category : #hooks } +{ #category : 'hooks' } RSAbstractAction >> icon [ ^ nil ] -{ #category : #hooks } +{ #category : 'hooks' } RSAbstractAction >> order [ ^ 0 ] -{ #category : #hooks } +{ #category : 'hooks' } RSAbstractAction >> registerOn: roassalPresentation [ presentation := roassalPresentation. roassalPresentation addAction: (GLMGenericAction new @@ -57,12 +58,12 @@ RSAbstractAction >> registerOn: roassalPresentation [ ] -{ #category : #accessing } +{ #category : 'accessing' } RSAbstractAction >> roassalCanvas [ ^ presentation canvas ] -{ #category : #hooks } +{ #category : 'hooks' } RSAbstractAction >> title [ ^ nil ] diff --git a/src/Roassal-Pharo8/RSCanvas.extension.st b/src/Roassal-Pharo8/RSCanvas.extension.st index bf8330b7..e51d2b15 100644 --- a/src/Roassal-Pharo8/RSCanvas.extension.st +++ b/src/Roassal-Pharo8/RSCanvas.extension.st @@ -1,6 +1,6 @@ -Extension { #name : #RSCanvas } +Extension { #name : 'RSCanvas' } -{ #category : #'*Roassal-Pharo8' } +{ #category : '*Roassal-Pharo8' } RSCanvas >> gtInspectorShapesIn: composite [ composite table @@ -14,7 +14,7 @@ RSCanvas >> gtInspectorShapesIn: composite [ column: 'Border' evaluated: [ :each | each border asString ]. ] -{ #category : #'*Roassal-Pharo8' } +{ #category : '*Roassal-Pharo8' } RSCanvas >> gtInspectorViewIn: composite [ composite Roassal diff --git a/src/Roassal-Pharo8/RSChart.extension.st b/src/Roassal-Pharo8/RSChart.extension.st index 66604de6..9c799275 100644 --- a/src/Roassal-Pharo8/RSChart.extension.st +++ b/src/Roassal-Pharo8/RSChart.extension.st @@ -1,6 +1,6 @@ -Extension { #name : #RSChart } +Extension { #name : 'RSChart' } -{ #category : #'*Roassal-Pharo8' } +{ #category : '*Roassal-Pharo8' } RSChart >> gtInspectorViewIn: composite [ composite Roassal diff --git a/src/Roassal-Pharo8/RSGroup.extension.st b/src/Roassal-Pharo8/RSGroup.extension.st index e06ef8c1..965ca32b 100644 --- a/src/Roassal-Pharo8/RSGroup.extension.st +++ b/src/Roassal-Pharo8/RSGroup.extension.st @@ -1,6 +1,6 @@ -Extension { #name : #RSGroup } +Extension { #name : 'RSGroup' } -{ #category : #'*Roassal-Pharo8' } +{ #category : '*Roassal-Pharo8' } RSGroup >> gtInspectorViewIn: composite [ diff --git a/src/Roassal-Pharo8/RSMondrian.extension.st b/src/Roassal-Pharo8/RSMondrian.extension.st index 4ea67f32..6b6f59c4 100644 --- a/src/Roassal-Pharo8/RSMondrian.extension.st +++ b/src/Roassal-Pharo8/RSMondrian.extension.st @@ -1,6 +1,6 @@ -Extension { #name : #RSMondrian } +Extension { #name : 'RSMondrian' } -{ #category : #'*Roassal-Pharo8' } +{ #category : '*Roassal-Pharo8' } RSMondrian >> gtInspectorViewIn: composite [ diff --git a/src/Roassal-Pharo8/RSObjectWithProperty.extension.st b/src/Roassal-Pharo8/RSObjectWithProperty.extension.st index c7adc729..bc62dcab 100644 --- a/src/Roassal-Pharo8/RSObjectWithProperty.extension.st +++ b/src/Roassal-Pharo8/RSObjectWithProperty.extension.st @@ -1,6 +1,6 @@ -Extension { #name : #RSObjectWithProperty } +Extension { #name : 'RSObjectWithProperty' } -{ #category : #'*Roassal-Pharo8' } +{ #category : '*Roassal-Pharo8' } RSObjectWithProperty >> gtInspectorProperties: composite [ self hasProperties ifFalse: [ ^ self ]. diff --git a/src/Roassal-Pharo8/RSSERAction.class.st b/src/Roassal-Pharo8/RSSERAction.class.st index 91f85cfb..e0232dc1 100644 --- a/src/Roassal-Pharo8/RSSERAction.class.st +++ b/src/Roassal-Pharo8/RSSERAction.class.st @@ -3,12 +3,13 @@ This action show or hide the encompassing rectangles of shapes in the canvas SER = Show Encompassing Rectangles " Class { - #name : #RSSERAction, - #superclass : #RSAbstractAction, - #category : #'Roassal-Pharo8' + #name : 'RSSERAction', + #superclass : 'RSAbstractAction', + #category : 'Roassal-Pharo8', + #package : 'Roassal-Pharo8' } -{ #category : #hooks } +{ #category : 'hooks' } RSSERAction >> execute [ | canvas | canvas := self roassalCanvas. @@ -18,12 +19,12 @@ RSSERAction >> execute [ canvas signalUpdate ] -{ #category : #hooks } +{ #category : 'hooks' } RSSERAction >> icon [ ^ self iconNamed: #smallDebug ] -{ #category : #hooks } +{ #category : 'hooks' } RSSERAction >> title [ ^ 'Show or hide encompassing rectangles' ] diff --git a/src/Roassal-Pharo8/RSShape.extension.st b/src/Roassal-Pharo8/RSShape.extension.st index 5bfee805..de2fedc3 100644 --- a/src/Roassal-Pharo8/RSShape.extension.st +++ b/src/Roassal-Pharo8/RSShape.extension.st @@ -1,6 +1,6 @@ -Extension { #name : #RSShape } +Extension { #name : 'RSShape' } -{ #category : #'*Roassal-Pharo8' } +{ #category : '*Roassal-Pharo8' } RSShape >> inspectorCanvasIn: composite [ composite Roassal diff --git a/src/Roassal-Pharo8/SpPanedLayout.extension.st b/src/Roassal-Pharo8/SpPanedLayout.extension.st index e946c56b..1f426c1c 100644 --- a/src/Roassal-Pharo8/SpPanedLayout.extension.st +++ b/src/Roassal-Pharo8/SpPanedLayout.extension.st @@ -1,5 +1,5 @@ -Extension { #name : #SpPanedLayout } +Extension { #name : 'SpPanedLayout' } -{ #category : #'*Roassal-Pharo8' } +{ #category : '*Roassal-Pharo8' } SpPanedLayout >> positionOfSlider: aNumber [ ] diff --git a/src/Roassal-Pharo8/SpPresenter.extension.st b/src/Roassal-Pharo8/SpPresenter.extension.st index 360ba024..020a3507 100644 --- a/src/Roassal-Pharo8/SpPresenter.extension.st +++ b/src/Roassal-Pharo8/SpPresenter.extension.st @@ -1,11 +1,11 @@ -Extension { #name : #SpPresenter } +Extension { #name : 'SpPresenter' } -{ #category : #'*Roassal-Pharo8' } +{ #category : '*Roassal-Pharo8' } SpPresenter >> asWindow [ ^ self ] -{ #category : #'*Roassal-Pharo8' } +{ #category : '*Roassal-Pharo8' } SpPresenter >> open [ ^ self openWithSpec ] diff --git a/src/Roassal-Pharo8/package.st b/src/Roassal-Pharo8/package.st index 4dd45b23..bbabf89e 100644 --- a/src/Roassal-Pharo8/package.st +++ b/src/Roassal-Pharo8/package.st @@ -1 +1 @@ -Package { #name : #'Roassal-Pharo8' } +Package { #name : 'Roassal-Pharo8' } diff --git a/src/Roassal-Pharo9/RSExamplesBrowser.extension.st b/src/Roassal-Pharo9/RSExamplesBrowser.extension.st index afd57395..85bfdf2d 100644 --- a/src/Roassal-Pharo9/RSExamplesBrowser.extension.st +++ b/src/Roassal-Pharo9/RSExamplesBrowser.extension.st @@ -1,6 +1,6 @@ -Extension { #name : #RSExamplesBrowser } +Extension { #name : 'RSExamplesBrowser' } -{ #category : #'*Roassal-Pharo9' } -RSExamplesBrowser class >> defaultSpec [ +{ #category : '*Roassal-Pharo9' } +RSExamplesBrowser classSide >> defaultSpec [ ^ self defaultLayout ] diff --git a/src/Roassal-Pharo9/RSIconBrowser.extension.st b/src/Roassal-Pharo9/RSIconBrowser.extension.st index 393dc7c6..1be88fc0 100644 --- a/src/Roassal-Pharo9/RSIconBrowser.extension.st +++ b/src/Roassal-Pharo9/RSIconBrowser.extension.st @@ -1,6 +1,6 @@ -Extension { #name : #RSIconBrowser } +Extension { #name : 'RSIconBrowser' } -{ #category : #'*Roassal-Pharo9' } -RSIconBrowser class >> defaultSpec [ +{ #category : '*Roassal-Pharo9' } +RSIconBrowser classSide >> defaultSpec [ ^ self defaultLayout ] diff --git a/src/Roassal-Pharo9/RSLayoutStudio.extension.st b/src/Roassal-Pharo9/RSLayoutStudio.extension.st index 23526c03..9aba4039 100644 --- a/src/Roassal-Pharo9/RSLayoutStudio.extension.st +++ b/src/Roassal-Pharo9/RSLayoutStudio.extension.st @@ -1,6 +1,6 @@ -Extension { #name : #RSLayoutStudio } +Extension { #name : 'RSLayoutStudio' } -{ #category : #'*Roassal-Pharo9' } -RSLayoutStudio class >> defaultSpec [ +{ #category : '*Roassal-Pharo9' } +RSLayoutStudio classSide >> defaultSpec [ ^ self defaultLayout ] diff --git a/src/Roassal-Pharo9/SequenceableCollection.extension.st b/src/Roassal-Pharo9/SequenceableCollection.extension.st index 8b54588a..47513c1a 100644 --- a/src/Roassal-Pharo9/SequenceableCollection.extension.st +++ b/src/Roassal-Pharo9/SequenceableCollection.extension.st @@ -1,6 +1,6 @@ -Extension { #name : #SequenceableCollection } +Extension { #name : 'SequenceableCollection' } -{ #category : #'*Roassal-Pharo9' } +{ #category : '*Roassal-Pharo9' } SequenceableCollection >> closeTo: aSequenceableCollection precision: aPrecision [ "Return true if all my elements are close to the elements of same index of the parameter with a certain precision" diff --git a/src/Roassal-Pharo9/SpBoxLayout.extension.st b/src/Roassal-Pharo9/SpBoxLayout.extension.st index ab9744c3..9b2bcea6 100644 --- a/src/Roassal-Pharo9/SpBoxLayout.extension.st +++ b/src/Roassal-Pharo9/SpBoxLayout.extension.st @@ -1,6 +1,6 @@ -Extension { #name : #SpBoxLayout } +Extension { #name : 'SpBoxLayout' } -{ #category : #'*Roassal-Pharo9' } +{ #category : '*Roassal-Pharo9' } SpBoxLayout >> buildWithSpec: spec [ ^ Morph new ] diff --git a/src/Roassal-Pharo9/SpDropListPresenter.extension.st b/src/Roassal-Pharo9/SpDropListPresenter.extension.st index f3d48e42..dbadec57 100644 --- a/src/Roassal-Pharo9/SpDropListPresenter.extension.st +++ b/src/Roassal-Pharo9/SpDropListPresenter.extension.st @@ -1,6 +1,6 @@ -Extension { #name : #SpDropListPresenter } +Extension { #name : 'SpDropListPresenter' } -{ #category : #'*Roassal-Pharo9' } +{ #category : '*Roassal-Pharo9' } SpDropListPresenter >> displayIcon: aBlock [ self iconBlock: aBlock ] diff --git a/src/Roassal-Pharo9/SpPresenter.extension.st b/src/Roassal-Pharo9/SpPresenter.extension.st index 0ca866d9..563c75f4 100644 --- a/src/Roassal-Pharo9/SpPresenter.extension.st +++ b/src/Roassal-Pharo9/SpPresenter.extension.st @@ -1,6 +1,6 @@ -Extension { #name : #SpPresenter } +Extension { #name : 'SpPresenter' } -{ #category : #'*Roassal-Pharo9' } +{ #category : '*Roassal-Pharo9' } SpPresenter >> open [ ^ self asWindow open ] diff --git a/src/Roassal-Pharo9/SpRoassalInspectorPresenter.extension.st b/src/Roassal-Pharo9/SpRoassalInspectorPresenter.extension.st index 9e6df08d..cb977abd 100644 --- a/src/Roassal-Pharo9/SpRoassalInspectorPresenter.extension.st +++ b/src/Roassal-Pharo9/SpRoassalInspectorPresenter.extension.st @@ -1,6 +1,6 @@ -Extension { #name : #SpRoassalInspectorPresenter } +Extension { #name : 'SpRoassalInspectorPresenter' } -{ #category : #'*Roassal-Pharo9' } +{ #category : '*Roassal-Pharo9' } SpRoassalInspectorPresenter class >> defaultSpec [ ^ self defaultLayout ] diff --git a/src/Roassal-Pharo9/package.st b/src/Roassal-Pharo9/package.st index 450aa604..2d2561f9 100644 --- a/src/Roassal-Pharo9/package.st +++ b/src/Roassal-Pharo9/package.st @@ -1 +1 @@ -Package { #name : #'Roassal-Pharo9' } +Package { #name : 'Roassal-Pharo9' } diff --git a/src/Roassal-Pie/RSAbstractPieDecorator.class.st b/src/Roassal-Pie/RSAbstractPieDecorator.class.st index 8e7515a4..825331ad 100644 --- a/src/Roassal-Pie/RSAbstractPieDecorator.class.st +++ b/src/Roassal-Pie/RSAbstractPieDecorator.class.st @@ -2,30 +2,32 @@ I can decorate builders inspired on decorator pattern " Class { - #name : #RSAbstractPieDecorator, - #superclass : #RSObject, + #name : 'RSAbstractPieDecorator', + #superclass : 'RSObject', #instVars : [ 'builder' ], - #category : #'Roassal-Pie-Decorators' + #category : 'Roassal-Pie-Decorators', + #package : 'Roassal-Pie', + #tag : 'Decorators' } -{ #category : #'instance creation' } +{ #category : 'instance creation' } RSAbstractPieDecorator class >> on: aPieBuilder [ self new builder: aPieBuilder; render ] -{ #category : #accessing } +{ #category : 'accessing' } RSAbstractPieDecorator >> builder [ ^ builder ] -{ #category : #accessing } +{ #category : 'accessing' } RSAbstractPieDecorator >> builder: aBuilder [ builder := aBuilder ] -{ #category : #rendering } +{ #category : 'rendering' } RSAbstractPieDecorator >> render [ self subclassResponsibility ] diff --git a/src/Roassal-Pie/RSPie.class.st b/src/Roassal-Pie/RSPie.class.st index c51a43f2..8686033e 100644 --- a/src/Roassal-Pie/RSPie.class.st +++ b/src/Roassal-Pie/RSPie.class.st @@ -18,8 +18,8 @@ b open .=.=.=.=.=.=.=.=.=.=.=.=.=.=.=.=.=.=.=.= " Class { - #name : #RSPie, - #superclass : #RSAbstractShapesBuilder, + #name : 'RSPie', + #superclass : 'RSAbstractShapesBuilder', #instVars : [ 'objects', 'values', @@ -28,21 +28,23 @@ Class { 'sliceShape', 'sliceColor' ], - #category : #'Roassal-Pie-Core' + #category : 'Roassal-Pie-Core', + #package : 'Roassal-Pie', + #tag : 'Core' } -{ #category : #'accessing - computed' } +{ #category : 'accessing - computed' } RSPie >> alphaAngleFor: aShape [ values ifNil: [ self slice: #yourself ]. ^ (sumValues at: aShape index) * 360 / totalSum ] -{ #category : #'accessing - computed' } +{ #category : 'accessing - computed' } RSPie >> betaAngleFor: aShape [ ^ ((sumValues at: aShape index) + (values at: aShape index )) * 360 / totalSum ] -{ #category : #initialization } +{ #category : 'initialization' } RSPie >> initialize [ super initialize. self sliceColor: [ :slice | @@ -56,17 +58,17 @@ RSPie >> initialize [ externalRadius: 120 ] -{ #category : #accessing } +{ #category : 'accessing' } RSPie >> objects [ ^ objects ] -{ #category : #accessing } +{ #category : 'accessing' } RSPie >> objects: someObjects [ objects := someObjects ] -{ #category : #hooks } +{ #category : 'hooks' } RSPie >> shapeFor: anObject [ | slice | slice := self sliceShape copy. @@ -79,7 +81,7 @@ RSPie >> shapeFor: anObject [ ^ slice ] -{ #category : #hooks } +{ #category : 'hooks' } RSPie >> shapeFor: anObject index: index [ | slice | slice := self sliceShape copy. @@ -93,7 +95,7 @@ RSPie >> shapeFor: anObject index: index [ ^ slice ] -{ #category : #public } +{ #category : 'public' } RSPie >> slice: aBlockOrASymbol [ "Set the way we give a pie share for each element." | tempSum | @@ -107,30 +109,30 @@ RSPie >> slice: aBlockOrASymbol [ totalSum := tempSum ] -{ #category : #accessing } +{ #category : 'accessing' } RSPie >> sliceColor [ ^ sliceColor ] -{ #category : #accessing } +{ #category : 'accessing' } RSPie >> sliceColor: anObject [ "a block or object that can anwser rsValue:" sliceColor := anObject ] -{ #category : #accessing } +{ #category : 'accessing' } RSPie >> sliceShape [ "you can modify with simples values all atributes of slices except color and angles" "review #sliceColor and #slice:" ^ sliceShape ] -{ #category : #'accessing - computed' } +{ #category : 'accessing - computed' } RSPie >> totalSum [ ^ totalSum ] -{ #category : #accessing } +{ #category : 'accessing' } RSPie >> values [ ^ values ] diff --git a/src/Roassal-Pie/RSPieLabeledInteraction.class.st b/src/Roassal-Pie/RSPieLabeledInteraction.class.st index 0f9305f8..843b7728 100644 --- a/src/Roassal-Pie/RSPieLabeledInteraction.class.st +++ b/src/Roassal-Pie/RSPieLabeledInteraction.class.st @@ -2,8 +2,8 @@ I can create labels for a pie builder and set the position acording to arc " Class { - #name : #RSPieLabeledInteraction, - #superclass : #RSInteraction, + #name : 'RSPieLabeledInteraction', + #superclass : 'RSInteraction', #instVars : [ 'rotated', 'offset', @@ -11,10 +11,12 @@ Class { 'labelText', 'labelShape' ], - #category : #'Roassal-Pie-Interactions' + #category : 'Roassal-Pie-Interactions', + #package : 'Roassal-Pie', + #tag : 'Interactions' } -{ #category : #initialization } +{ #category : 'initialization' } RSPieLabeledInteraction >> initialize [ super initialize. self labelShape: RSLabel new. @@ -23,17 +25,17 @@ RSPieLabeledInteraction >> initialize [ rotated := false ] -{ #category : #testing } +{ #category : 'testing' } RSPieLabeledInteraction >> isRotated [ ^ rotated ] -{ #category : #accessing } +{ #category : 'accessing' } RSPieLabeledInteraction >> labelColor [ ^ labelColor ] -{ #category : #accessing } +{ #category : 'accessing' } RSPieLabeledInteraction >> labelColor: aColor [ "can be a color, a block or color scale" "self labelColor: Color white" @@ -42,27 +44,27 @@ RSPieLabeledInteraction >> labelColor: aColor [ labelColor := aColor ] -{ #category : #'accessing - keys' } +{ #category : 'accessing - keys' } RSPieLabeledInteraction >> labelKey [ ^ #RSPieLabeledInteraction ] -{ #category : #accessing } +{ #category : 'accessing' } RSPieLabeledInteraction >> labelShape [ ^ labelShape ] -{ #category : #accessing } +{ #category : 'accessing' } RSPieLabeledInteraction >> labelShape: aLabel [ labelShape := aLabel ] -{ #category : #accessing } +{ #category : 'accessing' } RSPieLabeledInteraction >> labelText [ ^ labelText ] -{ #category : #accessing } +{ #category : 'accessing' } RSPieLabeledInteraction >> labelText: anObject [ "can be an object or block" "self labelText: 'Hi'" @@ -70,17 +72,17 @@ RSPieLabeledInteraction >> labelText: anObject [ labelText := anObject ] -{ #category : #accessing } +{ #category : 'accessing' } RSPieLabeledInteraction >> offset [ ^ offset ] -{ #category : #accessing } +{ #category : 'accessing' } RSPieLabeledInteraction >> offset: aNumber [ offset := aNumber ] -{ #category : #hooks } +{ #category : 'hooks' } RSPieLabeledInteraction >> onShape: aShape [ | label parent | label := self shapeFor: aShape. @@ -89,12 +91,12 @@ RSPieLabeledInteraction >> onShape: aShape [ parent add: label ] -{ #category : #accessing } +{ #category : 'accessing' } RSPieLabeledInteraction >> rotated [ rotated := true ] -{ #category : #hooks } +{ #category : 'hooks' } RSPieLabeledInteraction >> shapeFor: aPieSliceShape [ | res arc ang | arc := aPieSliceShape. diff --git a/src/Roassal-Pie/RSPieTitleInteraction.class.st b/src/Roassal-Pie/RSPieTitleInteraction.class.st index 3b3ce43e..f7826720 100644 --- a/src/Roassal-Pie/RSPieTitleInteraction.class.st +++ b/src/Roassal-Pie/RSPieTitleInteraction.class.st @@ -2,38 +2,40 @@ I can add a basic title in a pie " Class { - #name : #RSPieTitleInteraction, - #superclass : #RSInteraction, + #name : 'RSPieTitleInteraction', + #superclass : 'RSInteraction', #instVars : [ 'labelBuilder', 'labelText' ], - #category : #'Roassal-Pie-Interactions' + #category : 'Roassal-Pie-Interactions', + #package : 'Roassal-Pie', + #tag : 'Interactions' } -{ #category : #initialization } +{ #category : 'initialization' } RSPieTitleInteraction >> initialize [ super initialize. labelBuilder := RSMultilineLabelBuilder new. labelBuilder layout alignCenter ] -{ #category : #accessing } +{ #category : 'accessing' } RSPieTitleInteraction >> labelShape [ ^ labelBuilder labelShape ] -{ #category : #accessing } +{ #category : 'accessing' } RSPieTitleInteraction >> labelText [ ^ labelText ] -{ #category : #accessing } +{ #category : 'accessing' } RSPieTitleInteraction >> labelText: aString [ labelText := aString ] -{ #category : #hooks } +{ #category : 'hooks' } RSPieTitleInteraction >> onShape: aCanvas [ | label | label := labelBuilder shapeFor: self labelText. diff --git a/src/Roassal-Pie/RSRotatedPieLabelDecorator.class.st b/src/Roassal-Pie/RSRotatedPieLabelDecorator.class.st index f93e8904..837b61a7 100644 --- a/src/Roassal-Pie/RSRotatedPieLabelDecorator.class.st +++ b/src/Roassal-Pie/RSRotatedPieLabelDecorator.class.st @@ -2,17 +2,19 @@ I am a specific interaction based on the example23RotatedAnimation " Class { - #name : #RSRotatedPieLabelDecorator, - #superclass : #RSAbstractPieDecorator, + #name : 'RSRotatedPieLabelDecorator', + #superclass : 'RSAbstractPieDecorator', #instVars : [ 'labels', 'lines', 'animation' ], - #category : #'Roassal-Pie-Decorators' + #category : 'Roassal-Pie-Decorators', + #package : 'Roassal-Pie', + #tag : 'Decorators' } -{ #category : #rendering } +{ #category : 'rendering' } RSRotatedPieLabelDecorator >> createAnimation [ animation := builder container newAnimation from: 0; @@ -22,7 +24,7 @@ RSRotatedPieLabelDecorator >> createAnimation [ onStepDo: [ :t | self stepShapes: t ] ] -{ #category : #rendering } +{ #category : 'rendering' } RSRotatedPieLabelDecorator >> createLabels [ labels := builder objects collect: [ :obj | RSLabel new @@ -30,7 +32,7 @@ RSRotatedPieLabelDecorator >> createLabels [ yourself ] ] -{ #category : #rendering } +{ #category : 'rendering' } RSRotatedPieLabelDecorator >> createLines [ lines := builder objects collect: [ :obj | RSPolyline new @@ -38,7 +40,7 @@ RSRotatedPieLabelDecorator >> createLines [ yourself ] ] -{ #category : #rendering } +{ #category : 'rendering' } RSRotatedPieLabelDecorator >> render [ | container | self createLabels. @@ -52,7 +54,7 @@ RSRotatedPieLabelDecorator >> render [ self stepShapes: 0 ] -{ #category : #rendering } +{ #category : 'rendering' } RSRotatedPieLabelDecorator >> stepShapes: t [ builder shapes doWithIndex: [ :shape :index | | a b label ang ext x p1 p2 p3 line | diff --git a/src/Roassal-Pie/RSShowProgressLabelDecorator.class.st b/src/Roassal-Pie/RSShowProgressLabelDecorator.class.st index 799dc0ff..72cc97ac 100644 --- a/src/Roassal-Pie/RSShowProgressLabelDecorator.class.st +++ b/src/Roassal-Pie/RSShowProgressLabelDecorator.class.st @@ -2,17 +2,19 @@ I put interactions on the shapes and a label for updating " Class { - #name : #RSShowProgressLabelDecorator, - #superclass : #RSAbstractPieDecorator, + #name : 'RSShowProgressLabelDecorator', + #superclass : 'RSAbstractPieDecorator', #instVars : [ 'labelShape', 'progressLabel', 'highlight' ], - #category : #'Roassal-Pie-Decorators' + #category : 'Roassal-Pie-Decorators', + #package : 'Roassal-Pie', + #tag : 'Decorators' } -{ #category : #initialization } +{ #category : 'initialization' } RSShowProgressLabelDecorator >> initialize [ super initialize. labelShape := RSLabel new. @@ -23,22 +25,22 @@ RSShowProgressLabelDecorator >> initialize [ when: RSUnHighlightEvent do: [ :evt | self updateLabel: nil ] for: self ] -{ #category : #accessing } +{ #category : 'accessing' } RSShowProgressLabelDecorator >> labelShape [ ^ labelShape ] -{ #category : #updating } +{ #category : 'updating' } RSShowProgressLabelDecorator >> progressFor: aShape [ ^ ((builder values at: aShape index) * 100 / builder totalSum) rounded ] -{ #category : #accessing } +{ #category : 'accessing' } RSShowProgressLabelDecorator >> progressLabel [ ^ progressLabel ] -{ #category : #rendering } +{ #category : 'rendering' } RSShowProgressLabelDecorator >> render [ | canvas | progressLabel := self labelShape copy. @@ -48,7 +50,7 @@ RSShowProgressLabelDecorator >> render [ builder shapes @ highlight ] -{ #category : #updating } +{ #category : 'updating' } RSShowProgressLabelDecorator >> updateLabel: aShape [ aShape ifNil: [ ^ progressLabel text: '' ]. progressLabel diff --git a/src/Roassal-Pie/package.st b/src/Roassal-Pie/package.st index 2b3cf3d1..704283e6 100644 --- a/src/Roassal-Pie/package.st +++ b/src/Roassal-Pie/package.st @@ -1 +1 @@ -Package { #name : #'Roassal-Pie' } +Package { #name : 'Roassal-Pie' } diff --git a/src/Roassal-SVG-Importer/ASCircle.extension.st b/src/Roassal-SVG-Importer/ASCircle.extension.st index 7e789c76..1f49d683 100644 --- a/src/Roassal-SVG-Importer/ASCircle.extension.st +++ b/src/Roassal-SVG-Importer/ASCircle.extension.st @@ -1,6 +1,6 @@ -Extension { #name : #ASCircle } +Extension { #name : 'ASCircle' } -{ #category : #'*Roassal-SVG-Importer' } +{ #category : '*Roassal-SVG-Importer' } ASCircle >> roassalShape [ ^ RSEllipse new radius: (r ifNil: [0]); diff --git a/src/Roassal-SVG-Importer/ASColorPaint.extension.st b/src/Roassal-SVG-Importer/ASColorPaint.extension.st index 61c0a6c6..77354225 100644 --- a/src/Roassal-SVG-Importer/ASColorPaint.extension.st +++ b/src/Roassal-SVG-Importer/ASColorPaint.extension.st @@ -1,11 +1,11 @@ -Extension { #name : #ASColorPaint } +Extension { #name : 'ASColorPaint' } -{ #category : #'*Roassal-SVG-Importer' } +{ #category : '*Roassal-SVG-Importer' } ASColorPaint >> rsFill: rsShape with: shape [ rsShape paint: (color alpha: (color alpha * shape fill_opacity)) ] -{ #category : #'*Roassal-SVG-Importer' } +{ #category : '*Roassal-SVG-Importer' } ASColorPaint >> rsStroke: rsShape with: shape [ | border | border := RSBorder new diff --git a/src/Roassal-SVG-Importer/ASContainerElement.extension.st b/src/Roassal-SVG-Importer/ASContainerElement.extension.st index 10038ee0..5a82da9c 100644 --- a/src/Roassal-SVG-Importer/ASContainerElement.extension.st +++ b/src/Roassal-SVG-Importer/ASContainerElement.extension.st @@ -1,6 +1,6 @@ -Extension { #name : #ASContainerElement } +Extension { #name : 'ASContainerElement' } -{ #category : #'*Roassal-SVG-Importer' } +{ #category : '*Roassal-SVG-Importer' } ASContainerElement >> asShape [ | shapes com | shapes := children collect: #asShape thenSelect: #notNil. diff --git a/src/Roassal-SVG-Importer/ASEllipse.extension.st b/src/Roassal-SVG-Importer/ASEllipse.extension.st index b8177414..fcecee21 100644 --- a/src/Roassal-SVG-Importer/ASEllipse.extension.st +++ b/src/Roassal-SVG-Importer/ASEllipse.extension.st @@ -1,6 +1,6 @@ -Extension { #name : #ASEllipse } +Extension { #name : 'ASEllipse' } -{ #category : #'*Roassal-SVG-Importer' } +{ #category : '*Roassal-SVG-Importer' } ASEllipse >> roassalShape [ ^ RSEllipse new extent: (rx @ ry *2); diff --git a/src/Roassal-SVG-Importer/ASLine.extension.st b/src/Roassal-SVG-Importer/ASLine.extension.st index dd564f71..6040a050 100644 --- a/src/Roassal-SVG-Importer/ASLine.extension.st +++ b/src/Roassal-SVG-Importer/ASLine.extension.st @@ -1,6 +1,6 @@ -Extension { #name : #ASLine } +Extension { #name : 'ASLine' } -{ #category : #'*Roassal-SVG-Importer' } +{ #category : '*Roassal-SVG-Importer' } ASLine >> roassalShape [ ^ RSLine new startPoint: x1@y1; diff --git a/src/Roassal-SVG-Importer/ASMetadata.extension.st b/src/Roassal-SVG-Importer/ASMetadata.extension.st index 8e2a021f..c291241c 100644 --- a/src/Roassal-SVG-Importer/ASMetadata.extension.st +++ b/src/Roassal-SVG-Importer/ASMetadata.extension.st @@ -1,6 +1,6 @@ -Extension { #name : #ASMetadata } +Extension { #name : 'ASMetadata' } -{ #category : #'*Roassal-SVG-Importer' } +{ #category : '*Roassal-SVG-Importer' } ASMetadata >> asShape [ ^ nil ] diff --git a/src/Roassal-SVG-Importer/ASNoFill.extension.st b/src/Roassal-SVG-Importer/ASNoFill.extension.st index 3a6ec9c1..59ac02ee 100644 --- a/src/Roassal-SVG-Importer/ASNoFill.extension.st +++ b/src/Roassal-SVG-Importer/ASNoFill.extension.st @@ -1,11 +1,11 @@ -Extension { #name : #ASNoFill } +Extension { #name : 'ASNoFill' } -{ #category : #'*Roassal-SVG-Importer' } +{ #category : '*Roassal-SVG-Importer' } ASNoFill >> rsFill: aRSShape with: anShape [ aRSShape paint: nil. ] -{ #category : #'*Roassal-SVG-Importer' } +{ #category : '*Roassal-SVG-Importer' } ASNoFill >> rsStroke: aRSShape with: anShape [ aRSShape border: nil. ] diff --git a/src/Roassal-SVG-Importer/ASPath.extension.st b/src/Roassal-SVG-Importer/ASPath.extension.st index 818e6fab..0b81f8c0 100644 --- a/src/Roassal-SVG-Importer/ASPath.extension.st +++ b/src/Roassal-SVG-Importer/ASPath.extension.st @@ -1,6 +1,6 @@ -Extension { #name : #ASPath } +Extension { #name : 'ASPath' } -{ #category : #'*Roassal-SVG-Importer' } +{ #category : '*Roassal-SVG-Importer' } ASPath >> roassalShape [ ^ RSSVGPath new segments: pathData; diff --git a/src/Roassal-SVG-Importer/ASPolyLine.extension.st b/src/Roassal-SVG-Importer/ASPolyLine.extension.st index 2bb74026..311b8d13 100644 --- a/src/Roassal-SVG-Importer/ASPolyLine.extension.st +++ b/src/Roassal-SVG-Importer/ASPolyLine.extension.st @@ -1,6 +1,6 @@ -Extension { #name : #ASPolyLine } +Extension { #name : 'ASPolyLine' } -{ #category : #'*Roassal-SVG-Importer' } +{ #category : '*Roassal-SVG-Importer' } ASPolyLine >> roassalShape [ ^ RSPolyline new controlPoints: points; diff --git a/src/Roassal-SVG-Importer/ASPolygon.extension.st b/src/Roassal-SVG-Importer/ASPolygon.extension.st index e4282af0..27df12d1 100644 --- a/src/Roassal-SVG-Importer/ASPolygon.extension.st +++ b/src/Roassal-SVG-Importer/ASPolygon.extension.st @@ -1,6 +1,6 @@ -Extension { #name : #ASPolygon } +Extension { #name : 'ASPolygon' } -{ #category : #'*Roassal-SVG-Importer' } +{ #category : '*Roassal-SVG-Importer' } ASPolygon >> roassalShape [ ^ RSPolygon new points: points; diff --git a/src/Roassal-SVG-Importer/ASRect.extension.st b/src/Roassal-SVG-Importer/ASRect.extension.st index f62bf808..d4c93f5b 100644 --- a/src/Roassal-SVG-Importer/ASRect.extension.st +++ b/src/Roassal-SVG-Importer/ASRect.extension.st @@ -1,6 +1,6 @@ -Extension { #name : #ASRect } +Extension { #name : 'ASRect' } -{ #category : #'*Roassal-SVG-Importer' } +{ #category : '*Roassal-SVG-Importer' } ASRect >> roassalShape [ ^ RSBox new fromRectangle: (x@y extent: width@height); diff --git a/src/Roassal-SVG-Importer/ASShape.extension.st b/src/Roassal-SVG-Importer/ASShape.extension.st index 4b695e83..4e6a436e 100644 --- a/src/Roassal-SVG-Importer/ASShape.extension.st +++ b/src/Roassal-SVG-Importer/ASShape.extension.st @@ -1,6 +1,6 @@ -Extension { #name : #ASShape } +Extension { #name : 'ASShape' } -{ #category : #'*Roassal-SVG-Importer' } +{ #category : '*Roassal-SVG-Importer' } ASShape >> asShape [ | shape | self display = 'none' ifTrue: [ ^ nil ]. @@ -15,7 +15,7 @@ ASShape >> asShape [ ^ shape ] -{ #category : #'*Roassal-SVG-Importer' } +{ #category : '*Roassal-SVG-Importer' } ASShape >> roassalShape [ ^ self subclassResponsibility ] diff --git a/src/Roassal-SVG-Importer/ASStyle.extension.st b/src/Roassal-SVG-Importer/ASStyle.extension.st index 752e4b92..8e44f278 100644 --- a/src/Roassal-SVG-Importer/ASStyle.extension.st +++ b/src/Roassal-SVG-Importer/ASStyle.extension.st @@ -1,6 +1,6 @@ -Extension { #name : #ASStyle } +Extension { #name : 'ASStyle' } -{ #category : #'*Roassal-SVG-Importer' } +{ #category : '*Roassal-SVG-Importer' } ASStyle >> asShape [ ^ nil ] diff --git a/src/Roassal-SVG-Importer/ASText.extension.st b/src/Roassal-SVG-Importer/ASText.extension.st index cb0ae5af..1147f016 100644 --- a/src/Roassal-SVG-Importer/ASText.extension.st +++ b/src/Roassal-SVG-Importer/ASText.extension.st @@ -1,6 +1,6 @@ -Extension { #name : #ASText } +Extension { #name : 'ASText' } -{ #category : #'*Roassal-SVG-Importer' } +{ #category : '*Roassal-SVG-Importer' } ASText >> roassalShape [ ^ RSLabel new yourself diff --git a/src/Roassal-SVG-Importer/RSSVGImportExamples.class.st b/src/Roassal-SVG-Importer/RSSVGImportExamples.class.st index aa83f266..d166ca91 100644 --- a/src/Roassal-SVG-Importer/RSSVGImportExamples.class.st +++ b/src/Roassal-SVG-Importer/RSSVGImportExamples.class.st @@ -2,12 +2,13 @@ I have svg import examples " Class { - #name : #RSSVGImportExamples, - #superclass : #RSAbstractExamples, - #category : #'Roassal-SVG-Importer' + #name : 'RSSVGImportExamples', + #superclass : 'RSAbstractExamples', + #category : 'Roassal-SVG-Importer', + #package : 'Roassal-SVG-Importer' } -{ #category : #examples } +{ #category : 'examples' } RSSVGImportExamples >> example01SVGImport [ | canvas svg | @@ -18,7 +19,7 @@ RSSVGImportExamples >> example01SVGImport [ ^ canvas ] -{ #category : #'data - svg' } +{ #category : 'data - svg' } RSSVGImportExamples >> roassalSVG [ ^ ' diff --git a/src/Roassal-SVG-Importer/RSSVGImporter.class.st b/src/Roassal-SVG-Importer/RSSVGImporter.class.st index 135a3bf0..0ff46f40 100644 --- a/src/Roassal-SVG-Importer/RSSVGImporter.class.st +++ b/src/Roassal-SVG-Importer/RSSVGImporter.class.st @@ -2,24 +2,25 @@ TODO " Class { - #name : #RSSVGImporter, - #superclass : #RSObject, - #category : #'Roassal-SVG-Importer' + #name : 'RSSVGImporter', + #superclass : 'RSObject', + #category : 'Roassal-SVG-Importer', + #package : 'Roassal-SVG-Importer' } -{ #category : #'instance creation' } +{ #category : 'instance creation' } RSSVGImporter class >> fromFile: aFileName [ ^ (AthensSVGConverter fromFile: aFileName) asShape. ] -{ #category : #'instance creation' } +{ #category : 'instance creation' } RSSVGImporter class >> fromString: aString [ | doc | doc := XMLDOMParser parse: aString. ^ (AthensSVGConverter new importXMLDocument: doc) asShape. ] -{ #category : #'instance creation' } +{ #category : 'instance creation' } RSSVGImporter class >> fromURL: anUrl [ ^ (AthensSVGConverter fromURL: anUrl) asShape. ] diff --git a/src/Roassal-SVG-Importer/package.st b/src/Roassal-SVG-Importer/package.st index 8a6b78a4..34f0fe1e 100644 --- a/src/Roassal-SVG-Importer/package.st +++ b/src/Roassal-SVG-Importer/package.st @@ -1 +1 @@ -Package { #name : #'Roassal-SVG-Importer' } +Package { #name : 'Roassal-SVG-Importer' } diff --git a/src/Roassal-SVG-Tests/RSSVGTest.class.st b/src/Roassal-SVG-Tests/RSSVGTest.class.st index e82b3a3a..c31279bf 100644 --- a/src/Roassal-SVG-Tests/RSSVGTest.class.st +++ b/src/Roassal-SVG-Tests/RSSVGTest.class.st @@ -1,10 +1,11 @@ Class { - #name : #RSSVGTest, - #superclass : #RSCanvasTest, - #category : #'Roassal-SVG-Tests' + #name : 'RSSVGTest', + #superclass : 'RSCanvasTest', + #category : 'Roassal-SVG-Tests', + #package : 'Roassal-SVG-Tests' } -{ #category : #tests } +{ #category : 'tests' } RSSVGTest >> testBimetricLine [ | s1 s2 l | canvas := RSCanvas new. @@ -31,7 +32,7 @@ RSSVGTest >> testBimetricLine [ ^ canvas ] -{ #category : #tests } +{ #category : 'tests' } RSSVGTest >> testDrawSVG [ canvas addShape: (RSSVGPath new). canvas addShape: (RSSVGPath new @@ -40,7 +41,7 @@ RSSVGTest >> testDrawSVG [ canvas createMorph drawOnMockCanvas ] -{ #category : #tests } +{ #category : 'tests' } RSSVGTest >> testDrawSVGLine [ canvas addShape: (RSSVGPathLine new strokeColor: Color red; diff --git a/src/Roassal-SVG-Tests/package.st b/src/Roassal-SVG-Tests/package.st index b7a26c67..48c81425 100644 --- a/src/Roassal-SVG-Tests/package.st +++ b/src/Roassal-SVG-Tests/package.st @@ -1 +1 @@ -Package { #name : #'Roassal-SVG-Tests' } +Package { #name : 'Roassal-SVG-Tests' } diff --git a/src/Roassal-Spec-Gtk/GtkRoassalAdapter.class.st b/src/Roassal-Spec-Gtk/GtkRoassalAdapter.class.st index 11b37d2d..dde628d1 100644 --- a/src/Roassal-Spec-Gtk/GtkRoassalAdapter.class.st +++ b/src/Roassal-Spec-Gtk/GtkRoassalAdapter.class.st @@ -1,6 +1,6 @@ Class { - #name : #GtkRoassalAdapter, - #superclass : #GtkAdapter, + #name : 'GtkRoassalAdapter', + #superclass : 'GtkAdapter', #instVars : [ 'roassalCanvas', 'drawingArea', @@ -14,10 +14,11 @@ Class { #pools : [ 'GdkEventMask' ], - #category : #'Roassal-Spec-Gtk' + #category : 'Roassal-Spec-Gtk', + #package : 'Roassal-Spec-Gtk' } -{ #category : #examples } +{ #category : 'examples' } GtkRoassalAdapter class >> example [ @@ -33,7 +34,7 @@ GtkRoassalAdapter class >> example [ presenter canvas signalUpdate ] -{ #category : #'instance creation' } +{ #category : 'instance creation' } GtkRoassalAdapter class >> trachelCanvas: aCanvas [ ^ self new @@ -41,7 +42,7 @@ GtkRoassalAdapter class >> trachelCanvas: aCanvas [ yourself ] -{ #category : #building } +{ #category : 'building' } GtkRoassalAdapter >> addModelTo: gtkWidget [ widget := gtkWidget. @@ -49,7 +50,7 @@ GtkRoassalAdapter >> addModelTo: gtkWidget [ self addModelToDrawingArea: self innerWidget. ] -{ #category : #building } +{ #category : 'building' } GtkRoassalAdapter >> addModelToDrawingArea: aGtkRoassalDrawingArea [ aGtkRoassalDrawingArea events: GDK_ALL_EVENTS_MASK value. @@ -86,23 +87,23 @@ GtkRoassalAdapter >> addModelToDrawingArea: aGtkRoassalDrawingArea [ ] -{ #category : #'events support' } +{ #category : 'events support' } GtkRoassalAdapter >> announceToEventOverseer: evt [ ] -{ #category : #accessing } +{ #category : 'accessing' } GtkRoassalAdapter >> canvas [ ^ roassalCanvas ] -{ #category : #accessing } +{ #category : 'accessing' } GtkRoassalAdapter >> canvas: anObject [ roassalCanvas := anObject. ] -{ #category : #events } +{ #category : 'events' } GtkRoassalAdapter >> eventMouseClick: aMorphicEvent [ | trEvent evtClass | @@ -128,7 +129,7 @@ GtkRoassalAdapter >> eventMouseClick: aMorphicEvent [ self announceToEventOverseer: trEvent ] -{ #category : #events } +{ #category : 'events' } GtkRoassalAdapter >> eventMouseDragEnd: aMorphicEvent [ | trEvent | trEvent := self eventOfClass: RSMouseDragEnd from: aMorphicEvent. @@ -148,7 +149,7 @@ GtkRoassalAdapter >> eventMouseDragEnd: aMorphicEvent [ shapeUnderDrag := nil. ] -{ #category : #events } +{ #category : 'events' } GtkRoassalAdapter >> eventMouseDragStart: aGdkEventButton [ | trEvent trEventClass | eventBeginingDragging := aGdkEventButton copy. @@ -176,7 +177,7 @@ GtkRoassalAdapter >> eventMouseDragStart: aGdkEventButton [ ] -{ #category : #events } +{ #category : 'events' } GtkRoassalAdapter >> eventMouseDragging: aMorphicEvent [ | trEvent step | eventBeginingDragging ifNil: [ ^ self ]. @@ -222,7 +223,7 @@ GtkRoassalAdapter >> eventMouseDragging: aMorphicEvent [ " ] -{ #category : #events } +{ #category : 'events' } GtkRoassalAdapter >> eventMouseEnter: aMorphicEvent [ | trEvent | trEvent := self eventOfClass: RSMouseEnter from: aMorphicEvent. @@ -230,7 +231,7 @@ GtkRoassalAdapter >> eventMouseEnter: aMorphicEvent [ self announceToEventOverseer: trEvent ] -{ #category : #events } +{ #category : 'events' } GtkRoassalAdapter >> eventMouseLeave: aMorphicEvent [ | trEvent | trEvent := self eventOfClass: RSMouseLeave from: aMorphicEvent. @@ -238,7 +239,7 @@ GtkRoassalAdapter >> eventMouseLeave: aMorphicEvent [ self announceToEventOverseer: trEvent ] -{ #category : #events } +{ #category : 'events' } GtkRoassalAdapter >> eventMouseMove: aMorphicEvent [ | trEvent | trEvent := self eventOfClass: RSMouseMove from: aMorphicEvent. @@ -247,7 +248,7 @@ GtkRoassalAdapter >> eventMouseMove: aMorphicEvent [ self announceToEventOverseer: trEvent ] -{ #category : #events } +{ #category : 'events' } GtkRoassalAdapter >> eventMouseWheel: aMorphicEvent [ | trEvent | @@ -261,7 +262,7 @@ GtkRoassalAdapter >> eventMouseWheel: aMorphicEvent [ self announceToEventOverseer: trEvent ] -{ #category : #'events support' } +{ #category : 'events support' } GtkRoassalAdapter >> eventOfClass: anEventClass actionClass: anActionClass from: aMorphicEvent [ | relativePosition trEvent shape | relativePosition := self relativePositionFor: aMorphicEvent. @@ -276,7 +277,7 @@ GtkRoassalAdapter >> eventOfClass: anEventClass actionClass: anActionClass from: ^ trEvent ] -{ #category : #'events support' } +{ #category : 'events support' } GtkRoassalAdapter >> eventOfClass: anEventClass actionClass: anActionClass from: aMorphicEvent under: aShape [ | relativePosition shape | relativePosition := self relativePositionFor: aMorphicEvent. @@ -292,12 +293,12 @@ GtkRoassalAdapter >> eventOfClass: anEventClass actionClass: anActionClass from: yourself ] -{ #category : #'events support' } +{ #category : 'events support' } GtkRoassalAdapter >> eventOfClass: anEventClass from: aMorphicEvent [ ^ self eventOfClass: anEventClass actionClass: anEventClass from: aMorphicEvent ] -{ #category : #'events support' } +{ #category : 'events support' } GtkRoassalAdapter >> eventOfClass: anEventClass shape: aShape from: aMorphicEvent [ | relativePosition trEvent | relativePosition := self relativePositionFor: aMorphicEvent. @@ -311,12 +312,12 @@ GtkRoassalAdapter >> eventOfClass: anEventClass shape: aShape from: aMorphicEven ^ trEvent ] -{ #category : #'events support' } +{ #category : 'events support' } GtkRoassalAdapter >> eventOverseer [ ^ roassalCanvas eventOverseer ] -{ #category : #events } +{ #category : 'events' } GtkRoassalAdapter >> handleMouseOver: aMorphicEvent [ | currentElement trEvent | @@ -333,7 +334,7 @@ GtkRoassalAdapter >> handleMouseOver: aMorphicEvent [ self eventMouseEnter: aMorphicEvent ] -{ #category : #initialization } +{ #category : 'initialization' } GtkRoassalAdapter >> initialize [ super initialize. @@ -341,18 +342,18 @@ GtkRoassalAdapter >> initialize [ anyButtonPressed := false. ] -{ #category : #'private accessing' } +{ #category : 'private accessing' } GtkRoassalAdapter >> innerWidget [ ^ widget children first children first children first. ] -{ #category : #testing } +{ #category : 'testing' } GtkRoassalAdapter >> isDragging [ ^ eventBeginingDragging notNil ] -{ #category : #'gtk events' } +{ #category : 'gtk events' } GtkRoassalAdapter >> mouseDoubleClick: evt [ | trEvent evtClass | @@ -372,7 +373,7 @@ GtkRoassalAdapter >> mouseDoubleClick: evt [ ] -{ #category : #'gtk events' } +{ #category : 'gtk events' } GtkRoassalAdapter >> mouseDown: evt [ anyButtonPressed := true. @@ -402,14 +403,14 @@ GtkRoassalAdapter >> mouseDown: evt [ evt wasHandled: true" ] -{ #category : #'gtk events' } +{ #category : 'gtk events' } GtkRoassalAdapter >> mouseEnter: evt [ anyButtonPressed ifFalse: [ self eventMouseEnter: evt ]. ] -{ #category : #'gtk events' } +{ #category : 'gtk events' } GtkRoassalAdapter >> mouseEventOfClass: defaultClass ifLeftButton: leftButtonClass ifRightButton: rightButtonClass from: aMorphicEvent [ | trEventClass | trEventClass := defaultClass. @@ -420,14 +421,14 @@ GtkRoassalAdapter >> mouseEventOfClass: defaultClass ifLeftButton: leftButtonCla ^ self eventOfClass: trEventClass actionClass: defaultClass from: aMorphicEvent ] -{ #category : #'gtk events' } +{ #category : 'gtk events' } GtkRoassalAdapter >> mouseLeave: evt [ anyButtonPressed ifFalse: [ self eventMouseLeave: evt ]. ] -{ #category : #'gtk events' } +{ #category : 'gtk events' } GtkRoassalAdapter >> mouseMove: evt [ clickEventClone ifNil: [ anyButtonPressed @@ -442,7 +443,7 @@ GtkRoassalAdapter >> mouseMove: evt [ clickEventClone := nil ] ] -{ #category : #'gtk events' } +{ #category : 'gtk events' } GtkRoassalAdapter >> mouseUp: evt [ clickEventClone := nil. @@ -455,12 +456,12 @@ GtkRoassalAdapter >> mouseUp: evt [ ] -{ #category : #'gtk events' } +{ #category : 'gtk events' } GtkRoassalAdapter >> mouseWheel: evt [ self eventMouseWheel: evt ] -{ #category : #building } +{ #category : 'building' } GtkRoassalAdapter >> newWidget [ roassalCanvas := model canvas. @@ -470,18 +471,18 @@ GtkRoassalAdapter >> newWidget [ ] -{ #category : #accessing } +{ #category : 'accessing' } GtkRoassalAdapter >> relativePositionFor: evt [ "Return the position within the window" ^ evt position ] -{ #category : #protocol } +{ #category : 'protocol' } GtkRoassalAdapter >> removeSubWidgets [ ] -{ #category : #accessing } +{ #category : 'accessing' } GtkRoassalAdapter >> resizeTo: aRect [ roassalCanvas extent: aRect extent. @@ -489,25 +490,25 @@ GtkRoassalAdapter >> resizeTo: aRect [ self innerWidget repaint. ] -{ #category : #accessing } +{ #category : 'accessing' } GtkRoassalAdapter >> shapeForEvent: anEvent [ "Return the Trachel shape for the event provided as argument" ^ self shapeWithActionForPositionInPixels: (self relativePositionFor: anEvent) ] -{ #category : #accessing } +{ #category : 'accessing' } GtkRoassalAdapter >> shapeWithAction: eventClass forPositionInPixels: position [ "Return the shape with event handler located that contains point" ^ roassalCanvas shapeWithAction: eventClass forPositionInPixels: position ] -{ #category : #accessing } +{ #category : 'accessing' } GtkRoassalAdapter >> shapeWithAction: eventClass forPositionInPixels: position under: aShape [ "Return the shape with event handler located that contains point" ^ roassalCanvas shapeWithAction: eventClass forPositionInPixels: position under: aShape ] -{ #category : #accessing } +{ #category : 'accessing' } GtkRoassalAdapter >> shapeWithActionForPositionInPixels: point [ "Return the shape with event handler located that contains point" ^ roassalCanvas shapeWithActionForPositionInPixels: point diff --git a/src/Roassal-Spec-Gtk/RSUserInputEvent.extension.st b/src/Roassal-Spec-Gtk/RSUserInputEvent.extension.st index 3a9cb491..bc660202 100644 --- a/src/Roassal-Spec-Gtk/RSUserInputEvent.extension.st +++ b/src/Roassal-Spec-Gtk/RSUserInputEvent.extension.st @@ -1,6 +1,6 @@ -Extension { #name : #RSUserInputEvent } +Extension { #name : 'RSUserInputEvent' } -{ #category : #'*Roassal-Spec-Gtk' } +{ #category : '*Roassal-Spec-Gtk' } RSUserInputEvent class >> fromGtkEvent: aUserInputEvent [ | commandKeyPressed controlKeyPressed shiftKeyPressed optionKeyPressed | aUserInputEvent isEventMotion diff --git a/src/Roassal-Spec-Gtk/package.st b/src/Roassal-Spec-Gtk/package.st index 808c01a7..e3a8bc2c 100644 --- a/src/Roassal-Spec-Gtk/package.st +++ b/src/Roassal-Spec-Gtk/package.st @@ -1 +1 @@ -Package { #name : #'Roassal-Spec-Gtk' } +Package { #name : 'Roassal-Spec-Gtk' } diff --git a/src/Roassal-Spec-Morphic/SpMorphicRoassalAdapter.class.st b/src/Roassal-Spec-Morphic/SpMorphicRoassalAdapter.class.st index 79ba257c..c7f693bb 100644 --- a/src/Roassal-Spec-Morphic/SpMorphicRoassalAdapter.class.st +++ b/src/Roassal-Spec-Morphic/SpMorphicRoassalAdapter.class.st @@ -2,22 +2,23 @@ I am bridging RoassalPresenter and RTView " Class { - #name : #SpMorphicRoassalAdapter, - #superclass : #SpAbstractMorphicAdapter, + #name : 'SpMorphicRoassalAdapter', + #superclass : 'SpAbstractMorphicAdapter', #instVars : [ 'canvas' ], - #category : #'Roassal-Spec-Morphic' + #category : 'Roassal-Spec-Morphic', + #package : 'Roassal-Spec-Morphic' } -{ #category : #'class initialization' } +{ #category : 'class initialization' } SpMorphicRoassalAdapter class >> initialize [ "we need to reset the cached adapter bindigns" SpNullApplication reset ] -{ #category : #initialization } +{ #category : 'initialization' } SpMorphicRoassalAdapter >> adapt: aComposableModel [ super adapt: aComposableModel. canvas := widget roassalCanvas. @@ -36,7 +37,7 @@ SpMorphicRoassalAdapter >> adapt: aComposableModel [ canvas notifyExtentChanged: widget extent ] -{ #category : #'scripting actions' } +{ #category : 'scripting actions' } SpMorphicRoassalAdapter >> applyScript [ | extent | extent := canvas extent. @@ -45,7 +46,7 @@ SpMorphicRoassalAdapter >> applyScript [ canvas notifyExtentChanged: extent ] -{ #category : #'scripting actions' } +{ #category : 'scripting actions' } SpMorphicRoassalAdapter >> basicApplyScript [ | aModel | aModel := self model. @@ -54,12 +55,12 @@ SpMorphicRoassalAdapter >> basicApplyScript [ self widgetDo: #startStepping ] -{ #category : #factory } +{ #category : 'factory' } SpMorphicRoassalAdapter >> buildWidget [ ^ RSCanvas new createMorph ] -{ #category : #'scripting actions' } +{ #category : 'scripting actions' } SpMorphicRoassalAdapter >> freeCanvas [ | temp | temp := self buildWidget. @@ -69,7 +70,7 @@ SpMorphicRoassalAdapter >> freeCanvas [ canvas extent: widget extent ] -{ #category : #initialization } +{ #category : 'initialization' } SpMorphicRoassalAdapter >> release [ self class instVarNames do: [ :n | self instVarNamed: n put: nil ] ] diff --git a/src/Roassal-Spec-Morphic/package.st b/src/Roassal-Spec-Morphic/package.st index 0cb9156c..f0238998 100644 --- a/src/Roassal-Spec-Morphic/package.st +++ b/src/Roassal-Spec-Morphic/package.st @@ -1 +1 @@ -Package { #name : #'Roassal-Spec-Morphic' } +Package { #name : 'Roassal-Spec-Morphic' } diff --git a/src/Roassal-Spec-Obsolete/RSEaselExample.class.st b/src/Roassal-Spec-Obsolete/RSEaselExample.class.st index 29b79a97..b7972030 100644 --- a/src/Roassal-Spec-Obsolete/RSEaselExample.class.st +++ b/src/Roassal-Spec-Obsolete/RSEaselExample.class.st @@ -2,18 +2,19 @@ This example works with Spec1 " Class { - #name : #RSEaselExample, - #superclass : #AbstractWidgetPresenter, + #name : 'RSEaselExample', + #superclass : 'AbstractWidgetPresenter', #instVars : [ 'diagram', 'label', 'text', 'button' ], - #category : #'Roassal-Spec-Obsolete' + #category : 'Roassal-Spec-Obsolete', + #package : 'Roassal-Spec-Obsolete' } -{ #category : #specs } +{ #category : 'specs' } RSEaselExample class >> defaultSpec [ ^ SpecLayout composed @@ -27,46 +28,46 @@ RSEaselExample class >> defaultSpec [ trow add: #diagram]]. ] -{ #category : #specs } +{ #category : 'specs' } RSEaselExample class >> open [