SwaLintBrowser & RC

.git-s-metadata

@@ -0,0 +1,78 @@
+GSMetadata {
+	#version : 1,
+	#mappers : OrderedCollection [
+		GSCypressMapper {
+			#version : 1,
+			#package : MCPackage {
+				#name : 'BaselineOfSwaLint'
+			},
+			#path : FSAbsolutePath [
+				'packages'
+			]
+		},
+		GSCypressMapper {
+			#version : 1,
+			#package : MCPackage {
+				#name : 'SwaLint-Core'
+			},
+			#path : FSAbsolutePath [
+				'packages'
+			]
+		},
+		GSCypressMapper {
+			#version : 1,
+			#package : MCPackage {
+				#name : 'SwaLint-PlugIns'
+			},
+			#path : FSAbsolutePath [
+				'packages'
+			]
+		},
+		GSCypressMapper {
+			#version : 1,
+			#package : MCPackage {
+				#name : 'SwaLint-Preferences'
+			},
+			#path : FSAbsolutePath [
+				'packages'
+			]
+		},
+		GSCypressMapper {
+			#version : 1,
+			#package : MCPackage {
+				#name : 'SwaLint-Slime-Grease'
+			},
+			#path : FSAbsolutePath [
+				'packages'
+			]
+		},
+		GSCypressMapper {
+			#version : 1,
+			#package : MCPackage {
+				#name : 'SwaLint-Slime-Seaside'
+			},
+			#path : FSAbsolutePath [
+				'packages'
+			]
+		},
+		GSCypressMapper {
+			#version : 1,
+			#package : MCPackage {
+				#name : 'SwaLint-Tests'
+			},
+			#path : FSAbsolutePath [
+				'packages'
+			]
+		},
+		GSCypressMapper {
+			#version : 1,
+			#package : MCPackage {
+				#name : 'SwaLintBrowser'
+			},
+			#path : FSAbsolutePath [
+				'packages'
+			]
+		}
+	],
+	#name : 'SwaLint'
+}

.github/workflows/develop.yml

@@ -1,6 +1,6 @@
 name: allTests
-on: 
-  push: 
+on:
+  push:
     branches-ignore:
       - main
   pull_request:
@@ -14,21 +14,26 @@ jobs:
   build:
     runs-on: ${{ matrix.os }}
     strategy:
+      fail-fast: false
       matrix:
         # Select platform(s)
-        os: [ ubuntu-latest ]
+        os: [ macos-latest ]  # ubuntu-latest does not work with Squeak 5.x VMs
         # Select compatible Smalltalk image(s)
-        smalltalk: [Squeak64-trunk, Squeak64-5.3, Squeak64-5.2]
+        smalltalk:
+          - Squeak64-trunk
+          - Squeak64-6.0
+          - Squeak64-5.3
+          - Squeak64-5.2
     name: ${{ matrix.smalltalk }} on ${{ matrix.os }}
     steps:
       # Checks-out your repository under $GITHUB_WORKSPACE, so your job can access it
       - uses: actions/checkout@v2
       - uses: hpi-swa/setup-smalltalkCI@v1
         with:
           smalltalk-image: ${{ matrix.smalltalk }}
-        env: 
+        env:
           GITHUB_TOKEN: ${{ secrets.GITHUB_TOKEN }}
       - run: smalltalkci -s ${{ matrix.smalltalk }}
         timeout-minutes: 15
-        env: 
+        env:
           GITHUB_TOKEN: ${{ secrets.GITHUB_TOKEN }}

.github/workflows/main.yml

@@ -1,6 +1,6 @@
 name: mainTests
-on: 
-  push: 
+on:
+  push:
     branches:
       - main
   pull_request:
@@ -16,19 +16,23 @@ jobs:
     strategy:
       matrix:
         # Select platform(s)
-        os: [ ubuntu-latest ]
+        os: [ macos-latest ]  # ubuntu-latest does not work with Squeak 5.x VMs
         # Select compatible Smalltalk image(s)
-        smalltalk: [Squeak64-5.3, Squeak64-5.2]
+        smalltalk:
+          - Squeak64-trunk
+          - Squeak64-6.0
+          - Squeak64-5.3
+          - Squeak64-5.2
     name: ${{ matrix.smalltalk }} on ${{ matrix.os }}
     steps:
       # Checks-out your repository under $GITHUB_WORKSPACE, so your job can access it
       - uses: actions/checkout@v2
       - uses: hpi-swa/setup-smalltalkCI@v1
         with:
           smalltalk-image: ${{ matrix.smalltalk }}
-        env: 
+        env:
           GITHUB_TOKEN: ${{ secrets.GITHUB_TOKEN }}
       - run: smalltalkci -s ${{ matrix.smalltalk }}
         timeout-minutes: 15
-        env: 
+        env:
           GITHUB_TOKEN: ${{ secrets.GITHUB_TOKEN }}

README.md

@@ -16,7 +16,7 @@ There are two ways of installing the latest release. You can either use a SAR fi
 #### SAR file
 Go to the [latest release of SwaLint](https://github.com/hpi-swa-teaching/SwaLint/releases/latest), download the .sar file, drag and drop it into your image and choose "install SAR".  
 
-#### Metaclleo
+#### Metacello
 1. Make sure you have [metacello](https://github.com/Metacello/metacello) installed.
 2. Load the project with (it might ask you to click "Proceed" several times):
 ```Smalltalk
@@ -33,7 +33,7 @@ Go to the [latest release of SwaLint](https://github.com/hpi-swa-teaching/SwaLin
 
 ### Latest develop version
 
-#### Metaclleo
+#### Metacello
 1. Make sure you have [metacello](https://github.com/Metacello/metacello) installed.
 2. Load the project with (it might ask you to click "Proceed" several times):
 ```Smalltalk

packages/BaselineOfSwaLint.package/BaselineOfSwaLint.class/instance/baseline..st

@@ -6,11 +6,11 @@ baseline: spec
 		"Requirements"
 		spec 
 			project: 'RefactoringBrowser' with: [
-				spec
+				spec 
 					className: 'ConfigurationOfRefactoringBrowser';
 					versionString: #'stable';
-					loads: #('Core' );
-					repository: 'http://www.squeaksource.com/MetacelloRepository' ];
+					loads: #('Core');
+					repository: 'http://www.squeaksource.com/MetacelloRepository'];
 			project: 'Grease' with: [
 				spec
 					className: 'ConfigurationOfGrease';
@@ -32,20 +32,30 @@ baseline: spec
 			package: 'SwaLint-PlugIns' with: [ spec requires: 'SwaLint-Core' ];
 			package: 'SwaLint-Slime-Grease' with: [spec requires: #('SwaLint-PlugIns' 'Grease')];
 			package: 'SwaLint-Slime-Seaside' with: [spec requires: #('SwaLint-PlugIns' 'Seaside3')];
-			package: 'SwaLint-Tests' with: [ spec requires: #('SwaLint-Core' 'SwaLint-PlugIns') ].
+			package: 'SwaLint-Tests' with: [ spec requires: #('SwaLint-Core' 'SwaLint-PlugIns') ];
+			package: 'SwaLintBrowser' with: [ spec requires: #('SwaLint-Core' 'SwaLint-PlugIns') ].
 		spec
-			group: 'default' with: #('PlugIns');
+			group: 'default' with: #('PlugIns' 'Browser');
 			group: 'portability' with: #('PlugIns' 'SwaLint-Slime-Grease');
 			group: 'web' with: #('portability' 'SwaLint-Slime-Seaside');
 			group: 'Core' with: #('SwaLint-Core');
 			group: 'All' with: #('Tests' 'web');
 			group: 'PlugIns' with: #('SwaLint-PlugIns');
-			group: 'Tests' with: #('SwaLint-Tests')].
+			group: 'Tests' with: #('SwaLint-Tests');
+			group: 'Browser' with: #('SwaLintBrowser')].
+	spec for: #'squeak6.x' do: [
+		spec 
+			project: 'RefactoringBrowser' with: [
+				spec 
+					className: 'ConfigurationOfRefactoringBrowser';
+					versionString: '3.2';
+					loads: #('Core');
+					repository: 'http://www.squeaksource.com/MetacelloRepository']].
 	spec for: #'pharo' do: [
 		spec
 			package: 'PreferenceBrowser';
 			package: 'SwaLint-Preferences' with: [spec requires: 'PreferenceBrowser']].
 	spec for: #'pharo1.2.x' do: [
 		spec 
 			preLoadDoIt: #preLoadPharo200;
-			postLoadDoIt: #postLoadPharo200].
+			postLoadDoIt: #postLoadPharo200].

packages/BaselineOfSwaLint.package/BaselineOfSwaLint.class/instance/installDependencies.st

@@ -0,0 +1,9 @@
+self-updating
+installDependencies
+	"Install most important dependencies. Metacello>>#get is not recursive."
+
+	Metacello new
+		configuration: 'RefactoringBrowser';
+		version: '3.2';
+		get;
+		load: #('Core').

packages/BaselineOfSwaLint.package/BaselineOfSwaLint.class/instance/projectClass.st

@@ -0,0 +1,4 @@
+accessing
+projectClass
+
+	^ (self environment classNamed: #MetacelloCypressBaselineProject) ifNil: [super projectClass]

packages/BaselineOfSwaLint.package/BaselineOfSwaLint.class/methodProperties.json

@@ -2,5 +2,7 @@
 	"class" : {
 		 },
 	"instance" : {
-		"baseline:" : "fn 5/18/2018 12:54",
-		"postLoad" : "BD 6/16/2018 18:09" } }
+		"baseline:" : "ct 12/20/2024 05:20",
+		"installDependencies" : "ct 12/20/2024 05:20",
+		"postLoad" : "BD 6/16/2018 18:09",
+		"projectClass" : "ct 5/26/2021 15:29" } }

packages/SwaLint-Core.package/ComplexityOverviewPyramidMorph.class/instance/addCalcMorphWith.to.at..st

@@ -2,6 +2,6 @@ initialization
 addCalcMorphWith: aString to: aMorph at: yPosition
 
 	| calcmorph |
-	calcmorph := TextMorph new contents: aString.
+	calcmorph := (TextMorph new contents: aString) lock.
 	aMorph addMorph: calcmorph.
-	calcmorph position: ((aMorph position x)-(calcmorph width)-5)@yPosition.
+	calcmorph position: ((aMorph position x)-(calcmorph width)-5 px)@yPosition.

packages/SwaLint-Core.package/ComplexityOverviewPyramidMorph.class/instance/addNameMorphWith.to.at..st

@@ -2,6 +2,6 @@ initialization
 addNameMorphWith: aString to: aMorph at: yPosition
 
 	| namemorph |
-	namemorph := (TextMorph new contents: aString).
+	namemorph := (TextMorph new contents: aString) lock.
 	aMorph addMorph: namemorph.
-	namemorph position: ((aMorph position x)+5)@yPosition.
+	namemorph position: ((aMorph position x)+5 px)@yPosition.

packages/SwaLint-Core.package/ComplexityOverviewPyramidMorph.class/instance/addResultMorphWith.to.at..st

@@ -2,6 +2,6 @@ initialization
 addResultMorphWith: aString to: aMorph at: yPosition
 
 	| resultmorph |
-	resultmorph := (TextMorph new contents: aString).
+	resultmorph := (TextMorph new contents: aString) lock.
 	aMorph addMorph: resultmorph.
-	resultmorph position: ((aMorph position x)+(aMorph width)-(resultmorph width)-5)@yPosition.
+	resultmorph position: ((aMorph position x)+(aMorph width)-(resultmorph width)-5 px)@yPosition.

packages/SwaLint-Core.package/ComplexityOverviewPyramidMorph.class/methodProperties.json

@@ -2,10 +2,9 @@
 	"class" : {
 		 },
 	"instance" : {
-		"addCalcMorphWith:to:at:" : "NA 7/31/2015 21:18",
-		"addNameMorphWith:to:at:" : "NA 7/31/2015 21:16",
-		"addResultMorphWith:to:at:" : "NA 7/31/2015 21:18",
+		"addCalcMorphWith:to:at:" : "ct 12/21/2024 19:02",
+		"addNameMorphWith:to:at:" : "ct 12/21/2024 19:01",
+		"addResultMorphWith:to:at:" : "ct 12/21/2024 19:02",
 		"buildDictionary" : "NH 7/28/2015 13:31",
 		"setupContainerMorphWith:at:" : "BD 6/29/2018 12:45",
-		"xOffset" : "NH 7/28/2015 13:44",
 		"yOffset" : "NH 7/28/2015 13:44" } }

packages/SwaLint-Core.package/CouplingOverviewPyramidMorph.class/instance/addCalcMorphWith.to.at..st

@@ -2,6 +2,6 @@ initialization
 addCalcMorphWith: aString to: aMorph at: yPosition
 
 	| calcmorph |
-	calcmorph := TextMorph new contents: aString.
+	calcmorph := (TextMorph new contents: aString) lock.
 	aMorph addMorph: calcmorph.
-	calcmorph position: ((aMorph position x)+(aMorph width)+5)@yPosition.
+	calcmorph position: ((aMorph position x)+(aMorph width)+5 px)@yPosition.

packages/SwaLint-Core.package/CouplingOverviewPyramidMorph.class/instance/addNameMorphWith.to.at..st

@@ -2,6 +2,6 @@ initialization
 addNameMorphWith: aString to: aMorph at: yPosition
 
 	| namemorph |
-	namemorph := (TextMorph new contents: aString).
+	namemorph := (TextMorph new contents: aString) lock.
 	aMorph addMorph: namemorph.
-	namemorph position: ((aMorph position x)+(aMorph width)-(namemorph  width)-5)@yPosition.
+	namemorph position: ((aMorph position x)+(aMorph width)-(namemorph  width)-5 px)@yPosition.

packages/SwaLint-Core.package/CouplingOverviewPyramidMorph.class/instance/addResultMorphWith.to.at..st

@@ -2,6 +2,6 @@ initialization
 addResultMorphWith: aString to: aMorph at: yPosition
 
 	| resultmorph |
-	resultmorph := (TextMorph new contents: aString).
+	resultmorph := (TextMorph new contents: aString) lock.
 	aMorph addMorph: resultmorph.
-	resultmorph position: ((aMorph position x)+5)@yPosition.
+	resultmorph position: ((aMorph position x)+5 px)@yPosition.

packages/SwaLint-Core.package/CouplingOverviewPyramidMorph.class/methodProperties.json

@@ -2,10 +2,9 @@
 	"class" : {
 		 },
 	"instance" : {
-		"addCalcMorphWith:to:at:" : "NA 7/31/2015 21:25",
-		"addNameMorphWith:to:at:" : "NA 7/31/2015 21:27",
-		"addResultMorphWith:to:at:" : "NA 7/31/2015 21:24",
+		"addCalcMorphWith:to:at:" : "ct 12/21/2024 19:02",
+		"addNameMorphWith:to:at:" : "ct 12/21/2024 19:02",
+		"addResultMorphWith:to:at:" : "ct 12/21/2024 19:02",
 		"buildDictionary" : "NH 7/28/2015 13:45",
 		"setupContainerMorphWith:at:" : "BD 6/29/2018 12:46",
-		"xOffset" : "NH 7/28/2015 13:47",
 		"yOffset" : "NH 7/28/2015 14:22" } }

packages/SwaLint-Core.package/InheritanceOverviewPyramidMorph.class/instance/addNameMorphWith.to.at..st

@@ -2,6 +2,6 @@ initialization
 addNameMorphWith: aString to: aMorph at: yPosition
 
 	| namemorph |
-	namemorph := (TextMorph new contents: aString).
+	namemorph := (TextMorph new contents: aString) lock.
 	aMorph addMorph: namemorph.
-	namemorph position: ((aMorph position x)+5)@yPosition.
+	namemorph position: ((aMorph position x)+5 px)@yPosition.

packages/SwaLint-Core.package/InheritanceOverviewPyramidMorph.class/instance/addResultMorphWith.to.at..st

@@ -2,6 +2,6 @@ initialization
 addResultMorphWith: aString to: aMorph at: yPosition
 
 	| resultmorph |
-	resultmorph := (TextMorph new contents: aString).
+	resultmorph := (TextMorph new contents: aString) lock.
 	aMorph addMorph: resultmorph.
-	resultmorph position: ((aMorph position x)+(aMorph width)-(resultmorph width)-5)@yPosition.
+	resultmorph position: ((aMorph position x)+(aMorph width)-(resultmorph width)-5 px)@yPosition.