diff --git a/.git-s-metadata b/.git-s-metadata new file mode 100644 index 00000000..0313118f --- /dev/null +++ b/.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' +} \ No newline at end of file diff --git a/.github/workflows/develop.yml b/.github/workflows/develop.yml index 037972a7..e2951632 100644 --- a/.github/workflows/develop.yml +++ b/.github/workflows/develop.yml @@ -1,6 +1,6 @@ name: allTests -on: - push: +on: + push: branches-ignore: - main pull_request: @@ -14,11 +14,16 @@ 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 @@ -26,9 +31,9 @@ jobs: - 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 }} diff --git a/.github/workflows/main.yml b/.github/workflows/main.yml index 5a21f0ce..850c0c92 100644 --- a/.github/workflows/main.yml +++ b/.github/workflows/main.yml @@ -1,6 +1,6 @@ name: mainTests -on: - push: +on: + push: branches: - main pull_request: @@ -16,9 +16,13 @@ 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 @@ -26,9 +30,9 @@ jobs: - 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 }} diff --git a/.squot b/.squot deleted file mode 100644 index 72a3dcb6..00000000 --- a/.squot +++ /dev/null @@ -1,9 +0,0 @@ -OrderedDictionary { - 'packages/BaselineOfSwaLint.package' : #SquotCypressCodeSerializer, - 'packages/SwaLint-Core.package' : #SquotCypressCodeSerializer, - 'packages/SwaLint-PlugIns.package' : #SquotCypressCodeSerializer, - 'packages/SwaLint-Preferences.package' : #SquotCypressCodeSerializer, - 'packages/SwaLint-Slime-Grease.package' : #SquotCypressCodeSerializer, - 'packages/SwaLint-Slime-Seaside.package' : #SquotCypressCodeSerializer, - 'packages/SwaLint-Tests.package' : #SquotCypressCodeSerializer -} \ No newline at end of file diff --git a/README.md b/README.md index 999756fb..723fb7a0 100644 --- a/README.md +++ b/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 diff --git a/packages/BaselineOfSwaLint.package/.squot-contents b/packages/BaselineOfSwaLint.package/.squot-contents deleted file mode 100644 index 239ddebb..00000000 --- a/packages/BaselineOfSwaLint.package/.squot-contents +++ /dev/null @@ -1,5 +0,0 @@ -SquotTrackedObjectMetadata { - #objectClassName : #PackageInfo, - #objectsReplacedByNames : true, - #serializer : #SquotCypressCodeSerializer -} \ No newline at end of file diff --git a/packages/BaselineOfSwaLint.package/BaselineOfSwaLint.class/instance/baseline..st b/packages/BaselineOfSwaLint.package/BaselineOfSwaLint.class/instance/baseline..st index 78270d0d..765f64d4 100644 --- a/packages/BaselineOfSwaLint.package/BaselineOfSwaLint.class/instance/baseline..st +++ b/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,15 +32,25 @@ 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'; @@ -48,4 +58,4 @@ baseline: spec spec for: #'pharo1.2.x' do: [ spec preLoadDoIt: #preLoadPharo200; - postLoadDoIt: #postLoadPharo200]. \ No newline at end of file + postLoadDoIt: #postLoadPharo200]. diff --git a/packages/BaselineOfSwaLint.package/BaselineOfSwaLint.class/instance/installDependencies.st b/packages/BaselineOfSwaLint.package/BaselineOfSwaLint.class/instance/installDependencies.st new file mode 100644 index 00000000..78bfced1 --- /dev/null +++ b/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'). \ No newline at end of file diff --git a/packages/BaselineOfSwaLint.package/BaselineOfSwaLint.class/instance/projectClass.st b/packages/BaselineOfSwaLint.package/BaselineOfSwaLint.class/instance/projectClass.st new file mode 100644 index 00000000..300076fc --- /dev/null +++ b/packages/BaselineOfSwaLint.package/BaselineOfSwaLint.class/instance/projectClass.st @@ -0,0 +1,4 @@ +accessing +projectClass + + ^ (self environment classNamed: #MetacelloCypressBaselineProject) ifNil: [super projectClass] \ No newline at end of file diff --git a/packages/BaselineOfSwaLint.package/BaselineOfSwaLint.class/methodProperties.json b/packages/BaselineOfSwaLint.package/BaselineOfSwaLint.class/methodProperties.json index d0c2389b..aaa5fd49 100644 --- a/packages/BaselineOfSwaLint.package/BaselineOfSwaLint.class/methodProperties.json +++ b/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" } } diff --git a/packages/SwaLint-Core.package/.squot-contents b/packages/SwaLint-Core.package/.squot-contents deleted file mode 100644 index 4ad0c330..00000000 --- a/packages/SwaLint-Core.package/.squot-contents +++ /dev/null @@ -1,4 +0,0 @@ -SquotTrackedObjectMetadata { - #objectClassName : #PackageInfo, - #serializer : #SquotCypressCodeSerializer -} \ No newline at end of file diff --git a/packages/SwaLint-Core.package/ComplexityOverviewPyramidMorph.class/instance/addCalcMorphWith.to.at..st b/packages/SwaLint-Core.package/ComplexityOverviewPyramidMorph.class/instance/addCalcMorphWith.to.at..st index d2fd0de0..183ae071 100644 --- a/packages/SwaLint-Core.package/ComplexityOverviewPyramidMorph.class/instance/addCalcMorphWith.to.at..st +++ b/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. \ No newline at end of file + calcmorph position: ((aMorph position x)-(calcmorph width)-5 px)@yPosition. \ No newline at end of file diff --git a/packages/SwaLint-Core.package/ComplexityOverviewPyramidMorph.class/instance/addNameMorphWith.to.at..st b/packages/SwaLint-Core.package/ComplexityOverviewPyramidMorph.class/instance/addNameMorphWith.to.at..st index 19434bee..02bac387 100644 --- a/packages/SwaLint-Core.package/ComplexityOverviewPyramidMorph.class/instance/addNameMorphWith.to.at..st +++ b/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. \ No newline at end of file + namemorph position: ((aMorph position x)+5 px)@yPosition. \ No newline at end of file diff --git a/packages/SwaLint-Core.package/ComplexityOverviewPyramidMorph.class/instance/addResultMorphWith.to.at..st b/packages/SwaLint-Core.package/ComplexityOverviewPyramidMorph.class/instance/addResultMorphWith.to.at..st index 52780b16..f0025b96 100644 --- a/packages/SwaLint-Core.package/ComplexityOverviewPyramidMorph.class/instance/addResultMorphWith.to.at..st +++ b/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. \ No newline at end of file + resultmorph position: ((aMorph position x)+(aMorph width)-(resultmorph width)-5 px)@yPosition. \ No newline at end of file diff --git a/packages/SwaLint-Core.package/ComplexityOverviewPyramidMorph.class/methodProperties.json b/packages/SwaLint-Core.package/ComplexityOverviewPyramidMorph.class/methodProperties.json index b176a4ce..6478e3ee 100644 --- a/packages/SwaLint-Core.package/ComplexityOverviewPyramidMorph.class/methodProperties.json +++ b/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" } } diff --git a/packages/SwaLint-Core.package/CouplingOverviewPyramidMorph.class/instance/addCalcMorphWith.to.at..st b/packages/SwaLint-Core.package/CouplingOverviewPyramidMorph.class/instance/addCalcMorphWith.to.at..st index 67551e73..5b60ef48 100644 --- a/packages/SwaLint-Core.package/CouplingOverviewPyramidMorph.class/instance/addCalcMorphWith.to.at..st +++ b/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. \ No newline at end of file + calcmorph position: ((aMorph position x)+(aMorph width)+5 px)@yPosition. \ No newline at end of file diff --git a/packages/SwaLint-Core.package/CouplingOverviewPyramidMorph.class/instance/addNameMorphWith.to.at..st b/packages/SwaLint-Core.package/CouplingOverviewPyramidMorph.class/instance/addNameMorphWith.to.at..st index 87abe3ab..998ae982 100644 --- a/packages/SwaLint-Core.package/CouplingOverviewPyramidMorph.class/instance/addNameMorphWith.to.at..st +++ b/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. \ No newline at end of file + namemorph position: ((aMorph position x)+(aMorph width)-(namemorph width)-5 px)@yPosition. \ No newline at end of file diff --git a/packages/SwaLint-Core.package/CouplingOverviewPyramidMorph.class/instance/addResultMorphWith.to.at..st b/packages/SwaLint-Core.package/CouplingOverviewPyramidMorph.class/instance/addResultMorphWith.to.at..st index be9c0077..b8a4c62e 100644 --- a/packages/SwaLint-Core.package/CouplingOverviewPyramidMorph.class/instance/addResultMorphWith.to.at..st +++ b/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. \ No newline at end of file + resultmorph position: ((aMorph position x)+5 px)@yPosition. \ No newline at end of file diff --git a/packages/SwaLint-Core.package/CouplingOverviewPyramidMorph.class/instance/xOffset.st b/packages/SwaLint-Core.package/CouplingOverviewPyramidMorph.class/instance/xOffset.st deleted file mode 100644 index c3361d16..00000000 --- a/packages/SwaLint-Core.package/CouplingOverviewPyramidMorph.class/instance/xOffset.st +++ /dev/null @@ -1,4 +0,0 @@ -constants -xOffset - - ^ 1 \ No newline at end of file diff --git a/packages/SwaLint-Core.package/CouplingOverviewPyramidMorph.class/methodProperties.json b/packages/SwaLint-Core.package/CouplingOverviewPyramidMorph.class/methodProperties.json index dee1ddd3..bab13d60 100644 --- a/packages/SwaLint-Core.package/CouplingOverviewPyramidMorph.class/methodProperties.json +++ b/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" } } diff --git a/packages/SwaLint-Core.package/InheritanceOverviewPyramidMorph.class/instance/addNameMorphWith.to.at..st b/packages/SwaLint-Core.package/InheritanceOverviewPyramidMorph.class/instance/addNameMorphWith.to.at..st index 19434bee..02bac387 100644 --- a/packages/SwaLint-Core.package/InheritanceOverviewPyramidMorph.class/instance/addNameMorphWith.to.at..st +++ b/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. \ No newline at end of file + namemorph position: ((aMorph position x)+5 px)@yPosition. \ No newline at end of file diff --git a/packages/SwaLint-Core.package/InheritanceOverviewPyramidMorph.class/instance/addResultMorphWith.to.at..st b/packages/SwaLint-Core.package/InheritanceOverviewPyramidMorph.class/instance/addResultMorphWith.to.at..st index 52780b16..f0025b96 100644 --- a/packages/SwaLint-Core.package/InheritanceOverviewPyramidMorph.class/instance/addResultMorphWith.to.at..st +++ b/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. \ No newline at end of file + resultmorph position: ((aMorph position x)+(aMorph width)-(resultmorph width)-5 px)@yPosition. \ No newline at end of file diff --git a/packages/SwaLint-Core.package/InheritanceOverviewPyramidMorph.class/instance/xOffset.st b/packages/SwaLint-Core.package/InheritanceOverviewPyramidMorph.class/instance/xOffset.st deleted file mode 100644 index c3361d16..00000000 --- a/packages/SwaLint-Core.package/InheritanceOverviewPyramidMorph.class/instance/xOffset.st +++ /dev/null @@ -1,4 +0,0 @@ -constants -xOffset - - ^ 1 \ No newline at end of file diff --git a/packages/SwaLint-Core.package/InheritanceOverviewPyramidMorph.class/methodProperties.json b/packages/SwaLint-Core.package/InheritanceOverviewPyramidMorph.class/methodProperties.json index 0831e2ef..52a6396d 100644 --- a/packages/SwaLint-Core.package/InheritanceOverviewPyramidMorph.class/methodProperties.json +++ b/packages/SwaLint-Core.package/InheritanceOverviewPyramidMorph.class/methodProperties.json @@ -3,10 +3,9 @@ }, "instance" : { "addCalcMorphWith:to:at:" : "NA 7/31/2015 22:03", - "addNameMorphWith:to:at:" : "NA 7/31/2015 21:30", - "addResultMorphWith:to:at:" : "NA 7/31/2015 21:31", + "addNameMorphWith:to:at:" : "ct 12/21/2024 19:02", + "addResultMorphWith:to:at:" : "ct 12/21/2024 19:02", "buildDictionary" : "NH 7/28/2015 13:48", "createMorphFor:withValue:andValForCalc:andOffsetX:Y:addCalculation:" : "NA 7/31/2015 22:05", "setupContainerMorphWith:at:" : "BD 6/29/2018 12:46", - "xOffset" : "NH 7/28/2015 13:47", "yOffset" : "NH 7/28/2015 13:49" } } diff --git a/packages/SwaLint-Core.package/MorphicToolBuilder.extension/instance/buildPluggableMultiSelectionList..st b/packages/SwaLint-Core.package/MorphicToolBuilder.extension/instance/buildPluggableMultiSelectionList..st deleted file mode 100644 index 15dd2293..00000000 --- a/packages/SwaLint-Core.package/MorphicToolBuilder.extension/instance/buildPluggableMultiSelectionList..st +++ /dev/null @@ -1,24 +0,0 @@ -*SwaLint-Core-UserInterface -buildPluggableMultiSelectionList: aSpec - | widget listClass | - aSpec getSelected ifNotNil:[^self error:'There is no PluggableListMorphOfManyByItem']. - listClass := self multiSelectListClass. - widget := listClass on: aSpec model - list: aSpec list - primarySelection: aSpec getIndex - changePrimarySelection: aSpec setIndex - listSelection: aSpec getSelectionList - changeListSelection: aSpec setSelectionList - menu: aSpec menu. - self register: widget id: aSpec name. - widget keystrokeActionSelector: aSpec keyPress. - widget getListElementSelector: aSpec listItem. - widget getListSizeSelector: aSpec listSize. - widget getIconSelector: aSpec icon. - self buildHelpFor: widget spec: aSpec. - self setFrame: aSpec frame in: widget. - parent ifNotNil:[self add: widget to: parent]. - panes ifNotNil:[ - aSpec list ifNotNil:[panes add: aSpec list]. - ]. - ^widget \ No newline at end of file diff --git a/packages/SwaLint-Core.package/MorphicToolBuilder.extension/methodProperties.json b/packages/SwaLint-Core.package/MorphicToolBuilder.extension/methodProperties.json deleted file mode 100644 index b29d0cb2..00000000 --- a/packages/SwaLint-Core.package/MorphicToolBuilder.extension/methodProperties.json +++ /dev/null @@ -1,5 +0,0 @@ -{ - "class" : { - }, - "instance" : { - "buildPluggableMultiSelectionList:" : "NA 7/21/2015 11:16" } } diff --git a/packages/SwaLint-Core.package/MorphicToolBuilder.extension/properties.json b/packages/SwaLint-Core.package/MorphicToolBuilder.extension/properties.json deleted file mode 100644 index 6d0ea559..00000000 --- a/packages/SwaLint-Core.package/MorphicToolBuilder.extension/properties.json +++ /dev/null @@ -1,2 +0,0 @@ -{ - "name" : "MorphicToolBuilder" } diff --git a/packages/SwaLint-Core.package/OverviewPyramidMorph.class/class/newWithResults..st b/packages/SwaLint-Core.package/OverviewPyramidMorph.class/class/newWithResults..st index fef5769b..2b4cbd05 100644 --- a/packages/SwaLint-Core.package/OverviewPyramidMorph.class/class/newWithResults..st +++ b/packages/SwaLint-Core.package/OverviewPyramidMorph.class/class/newWithResults..st @@ -1,4 +1,4 @@ -as yet unclassified +instance creation newWithResults: aDictionary ^ self new diff --git a/packages/SwaLint-Core.package/OverviewPyramidMorph.class/instance/asContainer.st b/packages/SwaLint-Core.package/OverviewPyramidMorph.class/instance/asContainer.st new file mode 100644 index 00000000..71471eff --- /dev/null +++ b/packages/SwaLint-Core.package/OverviewPyramidMorph.class/instance/asContainer.st @@ -0,0 +1,4 @@ +initialization +asContainer + + ^ self asContainerWithPadding: 5 px \ No newline at end of file diff --git a/packages/SwaLint-Core.package/OverviewPyramidMorph.class/instance/asContainerWithPadding..st b/packages/SwaLint-Core.package/OverviewPyramidMorph.class/instance/asContainerWithPadding..st new file mode 100644 index 00000000..12882607 --- /dev/null +++ b/packages/SwaLint-Core.package/OverviewPyramidMorph.class/instance/asContainerWithPadding..st @@ -0,0 +1,11 @@ +initialization +asContainerWithPadding: padding + + | container | + container := Morph new + beTransparent; + extent: (self fullBounds; extent) + (padding * 2); + addMorph: self; + yourself. + self position: padding. + ^ container \ No newline at end of file diff --git a/packages/SwaLint-Core.package/OverviewPyramidMorph.class/instance/borderWidth.st b/packages/SwaLint-Core.package/OverviewPyramidMorph.class/instance/borderWidth.st index 351c9ea7..b75a6961 100644 --- a/packages/SwaLint-Core.package/OverviewPyramidMorph.class/instance/borderWidth.st +++ b/packages/SwaLint-Core.package/OverviewPyramidMorph.class/instance/borderWidth.st @@ -1,4 +1,4 @@ initialization borderWidth - ^ 1 \ No newline at end of file + ^ 1 px \ No newline at end of file diff --git a/packages/SwaLint-Core.package/OverviewPyramidMorph.class/instance/buildDictionary.st b/packages/SwaLint-Core.package/OverviewPyramidMorph.class/instance/buildDictionary.st new file mode 100644 index 00000000..a5431b80 --- /dev/null +++ b/packages/SwaLint-Core.package/OverviewPyramidMorph.class/instance/buildDictionary.st @@ -0,0 +1,4 @@ +initialization +buildDictionary + + ^ self subclassResponsibility \ No newline at end of file diff --git a/packages/SwaLint-Core.package/OverviewPyramidMorph.class/instance/createMorphFor.withValue.andValForCalc.andOffsetX.Y.addCalculation..st b/packages/SwaLint-Core.package/OverviewPyramidMorph.class/instance/createMorphFor.withValue.andValForCalc.andOffsetX.Y.addCalculation..st index 2a3465c4..b68afcc1 100644 --- a/packages/SwaLint-Core.package/OverviewPyramidMorph.class/instance/createMorphFor.withValue.andValForCalc.andOffsetX.Y.addCalculation..st +++ b/packages/SwaLint-Core.package/OverviewPyramidMorph.class/instance/createMorphFor.withValue.andValForCalc.andOffsetX.Y.addCalculation..st @@ -15,6 +15,6 @@ addCalculation: aBoolean addNameMorphWith: aString to: morph at: yPosition. aBoolean ifTrue: [ - self addCalcMorphWith: (((anotherValue/aValue) asFloat printShowingMaxDecimalPlaces: 3) asString) + self addCalcMorphWith: ((([anotherValue/aValue] on: ZeroDivide do: [Float nan]) asFloat printShowingMaxDecimalPlaces: 3) asString) to: morph at: yPosition]. \ No newline at end of file diff --git a/packages/SwaLint-Core.package/OverviewPyramidMorph.class/instance/defaultMorphEntryHeight.st b/packages/SwaLint-Core.package/OverviewPyramidMorph.class/instance/defaultMorphEntryHeight.st index a423c6af..6096fa55 100644 --- a/packages/SwaLint-Core.package/OverviewPyramidMorph.class/instance/defaultMorphEntryHeight.st +++ b/packages/SwaLint-Core.package/OverviewPyramidMorph.class/instance/defaultMorphEntryHeight.st @@ -1,4 +1,4 @@ positioning defaultMorphEntryHeight - ^ 20 \ No newline at end of file + ^ 20 px \ No newline at end of file diff --git a/packages/SwaLint-Core.package/OverviewPyramidMorph.class/instance/defaultMorphEntryWidth.st b/packages/SwaLint-Core.package/OverviewPyramidMorph.class/instance/defaultMorphEntryWidth.st index 51cbf348..a4ad816c 100644 --- a/packages/SwaLint-Core.package/OverviewPyramidMorph.class/instance/defaultMorphEntryWidth.st +++ b/packages/SwaLint-Core.package/OverviewPyramidMorph.class/instance/defaultMorphEntryWidth.st @@ -1,4 +1,4 @@ positioning defaultMorphEntryWidth - ^ 80 \ No newline at end of file + ^ 80 px \ No newline at end of file diff --git a/packages/SwaLint-Core.package/OverviewPyramidMorph.class/instance/defaultMorphEntryWidthExtension.st b/packages/SwaLint-Core.package/OverviewPyramidMorph.class/instance/defaultMorphEntryWidthExtension.st index fb63a0bb..cf47f612 100644 --- a/packages/SwaLint-Core.package/OverviewPyramidMorph.class/instance/defaultMorphEntryWidthExtension.st +++ b/packages/SwaLint-Core.package/OverviewPyramidMorph.class/instance/defaultMorphEntryWidthExtension.st @@ -1,4 +1,4 @@ positioning defaultMorphEntryWidthExtension - ^ 35 \ No newline at end of file + ^ 35 px \ No newline at end of file diff --git a/packages/SwaLint-Core.package/OverviewPyramidMorph.class/instance/getMainMorphCenterX.st b/packages/SwaLint-Core.package/OverviewPyramidMorph.class/instance/getMainMorphCenterX.st index a4e80fd6..7d387a5e 100644 --- a/packages/SwaLint-Core.package/OverviewPyramidMorph.class/instance/getMainMorphCenterX.st +++ b/packages/SwaLint-Core.package/OverviewPyramidMorph.class/instance/getMainMorphCenterX.st @@ -1,4 +1,4 @@ positioning getMainMorphCenterX - ^ (self center x)+140 \ No newline at end of file + ^ (self center x)+140 px \ No newline at end of file diff --git a/packages/SwaLint-Core.package/OverviewPyramidMorph.class/instance/initialize.st b/packages/SwaLint-Core.package/OverviewPyramidMorph.class/instance/initialize.st index e7023c01..18e49b93 100644 --- a/packages/SwaLint-Core.package/OverviewPyramidMorph.class/instance/initialize.st +++ b/packages/SwaLint-Core.package/OverviewPyramidMorph.class/instance/initialize.st @@ -2,4 +2,5 @@ initialization initialize super initialize. + self hResizing: #shrinkWrap; vResizing: #shrinkWrap. self color: self defaultBackgroundColor. \ No newline at end of file diff --git a/packages/SwaLint-Core.package/ComplexityOverviewPyramidMorph.class/instance/xOffset.st b/packages/SwaLint-Core.package/OverviewPyramidMorph.class/instance/xOffset.st similarity index 100% rename from packages/SwaLint-Core.package/ComplexityOverviewPyramidMorph.class/instance/xOffset.st rename to packages/SwaLint-Core.package/OverviewPyramidMorph.class/instance/xOffset.st diff --git a/packages/SwaLint-Core.package/OverviewPyramidMorph.class/instance/yOffset.st b/packages/SwaLint-Core.package/OverviewPyramidMorph.class/instance/yOffset.st new file mode 100644 index 00000000..901d4c4b --- /dev/null +++ b/packages/SwaLint-Core.package/OverviewPyramidMorph.class/instance/yOffset.st @@ -0,0 +1,4 @@ +constants +yOffset + + ^ self subclassResponsibility \ No newline at end of file diff --git a/packages/SwaLint-Core.package/OverviewPyramidMorph.class/methodProperties.json b/packages/SwaLint-Core.package/OverviewPyramidMorph.class/methodProperties.json index 6cdd3159..71fb4e74 100644 --- a/packages/SwaLint-Core.package/OverviewPyramidMorph.class/methodProperties.json +++ b/packages/SwaLint-Core.package/OverviewPyramidMorph.class/methodProperties.json @@ -5,18 +5,23 @@ "addCalcMorphWith:to:at:" : "NA 7/31/2015 22:03", "addNameMorphWith:to:at:" : "NA 7/31/2015 21:41", "addResultMorphWith:to:at:" : "NA 7/31/2015 21:41", - "borderWidth" : "NA 7/30/2015 13:30", + "asContainer" : "ct 12/21/2024 20:06", + "asContainerWithPadding:" : "ct 12/21/2024 20:06", + "borderWidth" : "ct 12/21/2024 18:18", + "buildDictionary" : "ct 12/21/2024 18:18", "buildEntries" : "BD 6/29/2018 12:32", "buildMorphs" : "BD 6/29/2018 12:46", - "createMorphFor:withValue:andValForCalc:andOffsetX:Y:addCalculation:" : "NA 7/31/2015 22:01", + "createMorphFor:withValue:andValForCalc:andOffsetX:Y:addCalculation:" : "ct 12/22/2024 05:03", "defaultBackgroundColor" : "NA 7/30/2015 13:43", - "defaultMorphEntryHeight" : "NH 7/28/2015 11:43", - "defaultMorphEntryWidth" : "NA 7/30/2015 13:48", - "defaultMorphEntryWidthExtension" : "NA 7/31/2015 21:00", + "defaultMorphEntryHeight" : "ct 12/21/2024 18:18", + "defaultMorphEntryWidth" : "ct 12/21/2024 18:18", + "defaultMorphEntryWidthExtension" : "ct 12/21/2024 18:18", "formatSymbol:" : "NH 7/28/2015 13:41", - "getMainMorphCenterX" : "NA 7/31/2015 21:00", - "initialize" : "NA 7/31/2015 20:26", + "getMainMorphCenterX" : "ct 12/21/2024 19:23", + "initialize" : "ct 12/21/2024 18:19", "newRectangleMorph" : "BD 6/29/2018 12:47", "results" : "NH 7/28/2015 13:06", "results:" : "NH 7/28/2015 13:06", - "setupContainerMorphWith:at:" : "NA 7/31/2015 21:42" } } + "setupContainerMorphWith:at:" : "NA 7/31/2015 21:42", + "xOffset" : "ct 12/21/2024 19:21", + "yOffset" : "ct 12/21/2024 18:19" } } diff --git a/packages/SwaLint-Core.package/SLClassTestObject.class/instance/children.st b/packages/SwaLint-Core.package/SLClassTestObject.class/instance/children.st index 96644047..4227c55e 100644 --- a/packages/SwaLint-Core.package/SLClassTestObject.class/instance/children.st +++ b/packages/SwaLint-Core.package/SLClassTestObject.class/instance/children.st @@ -1,4 +1,4 @@ accessing children - ^ self methods, self variables + ^ self methods asArray "optimization", self variables diff --git a/packages/SwaLint-Core.package/SLClassTestObject.class/instance/fetchClassMethods.st b/packages/SwaLint-Core.package/SLClassTestObject.class/instance/fetchClassMethods.st index 05014617..b2f7771d 100644 --- a/packages/SwaLint-Core.package/SLClassTestObject.class/instance/fetchClassMethods.st +++ b/packages/SwaLint-Core.package/SLClassTestObject.class/instance/fetchClassMethods.st @@ -3,7 +3,7 @@ fetchClassMethods classMethods := (self collect: SLMethodTestObject - from: self testObject class methodDict values) + from: self testObject theMetaClass methodDict values) reject: [:method | self rejectMethod: method]. classMethods do: [:each | each classSide: true]. ^ classMethods \ No newline at end of file diff --git a/packages/SwaLint-Core.package/SLClassTestObject.class/instance/fetchClassVariables.st b/packages/SwaLint-Core.package/SLClassTestObject.class/instance/fetchClassVariables.st index e511733e..60a161da 100644 --- a/packages/SwaLint-Core.package/SLClassTestObject.class/instance/fetchClassVariables.st +++ b/packages/SwaLint-Core.package/SLClassTestObject.class/instance/fetchClassVariables.st @@ -3,8 +3,10 @@ fetchClassVariables classVariables := self collect: SLVariableTestObject - from: self testObject class instVarNames. + from: self testObject classVarNames. + classVariables do: [:each | each isClassVariable: true]. classVariables addAll: (self collect: SLVariableTestObject - from: self testObject classVarNames). + from: self testObject theMetaClass instVarNames). + classVariables do: [:each | each classSide: true]. ^ classVariables \ No newline at end of file diff --git a/packages/SwaLint-Core.package/SLClassTestObject.class/instance/fetchSuperClassMethods.st b/packages/SwaLint-Core.package/SLClassTestObject.class/instance/fetchSuperClassMethods.st index c717d720..41f7c1a7 100644 --- a/packages/SwaLint-Core.package/SLClassTestObject.class/instance/fetchSuperClassMethods.st +++ b/packages/SwaLint-Core.package/SLClassTestObject.class/instance/fetchSuperClassMethods.st @@ -3,7 +3,7 @@ fetchSuperClassMethods superClassMethods := (self collect: SLMethodTestObject - from: self testObject superclass class methodDict values) + from: self testObject superclass theMetaClass methodDict values) reject: [:method | self rejectMethod: method]. superClassMethods do: [:each | each classSide: true]. ^ superClassMethods \ No newline at end of file diff --git a/packages/SwaLint-Core.package/SLClassTestObject.class/instance/fetchSuperClassVariables.st b/packages/SwaLint-Core.package/SLClassTestObject.class/instance/fetchSuperClassVariables.st index 87c304ed..f99d9c83 100644 --- a/packages/SwaLint-Core.package/SLClassTestObject.class/instance/fetchSuperClassVariables.st +++ b/packages/SwaLint-Core.package/SLClassTestObject.class/instance/fetchSuperClassVariables.st @@ -3,8 +3,10 @@ fetchSuperClassVariables superClassVariables := self collect: SLVariableTestObject - from: self testObject class superclass allInstVarNames. - superClassVariables addAll: (self + from: self testObject superclass allClassVarNames. + superClassVariables do: [:each | each isClassVariable: true]. + superClassVariables addAll: (self collect: SLVariableTestObject - from: self testObject superclass allClassVarNames). + from: self testObject theMetaClass superclass allInstVarNames). + superClassVariables do: [:each | each classSide: true]. ^ superClassVariables \ No newline at end of file diff --git a/packages/SwaLint-Core.package/SLClassTestObject.class/instance/processed..st b/packages/SwaLint-Core.package/SLClassTestObject.class/instance/processed..st index 7f29979c..32c248e0 100644 --- a/packages/SwaLint-Core.package/SLClassTestObject.class/instance/processed..st +++ b/packages/SwaLint-Core.package/SLClassTestObject.class/instance/processed..st @@ -3,4 +3,4 @@ processed: aTest "Notify runner that I was processed" aTest isUserSelected - ifTrue: [self testRunner processed: self]. \ No newline at end of file + ifTrue: [self testRunner processed: aTest for: self]. \ No newline at end of file diff --git a/packages/SwaLint-Core.package/SLClassTestObject.class/instance/rejectMethod..st b/packages/SwaLint-Core.package/SLClassTestObject.class/instance/rejectMethod..st index 800e3411..91c4e632 100644 --- a/packages/SwaLint-Core.package/SLClassTestObject.class/instance/rejectMethod..st +++ b/packages/SwaLint-Core.package/SLClassTestObject.class/instance/rejectMethod..st @@ -1,6 +1,6 @@ preferences rejectMethod: aSLMethod - SLPreferences ShouldFilterMethods ifFalse: [^ false]. + (SLPreferences valueOfFlag: #ShouldFilterMethods) ifFalse: [^ false]. ^ (self rejectMethodByDate: aSLMethod) or: [self rejectMethodByAuthor: aSLMethod] diff --git a/packages/SwaLint-Core.package/SLClassTestObject.class/instance/rejectMethodByAuthor..st b/packages/SwaLint-Core.package/SLClassTestObject.class/instance/rejectMethodByAuthor..st index d1b867d6..0d2442fc 100644 --- a/packages/SwaLint-Core.package/SLClassTestObject.class/instance/rejectMethodByAuthor..st +++ b/packages/SwaLint-Core.package/SLClassTestObject.class/instance/rejectMethodByAuthor..st @@ -1,7 +1,7 @@ preferences rejectMethodByAuthor: aSLMethod | splitString authorString negated | - SLPreferences AuthorFilter ifEmpty: [^ false]. + (SLPreferences valueOfPreference: #AuthorFilter) ifEmpty: [^ false]. aSLMethod testObject timeStamp ifEmpty: [^ false]. splitString := SLPreferences AuthorFilter splitBy: ', '. (negated := splitString first beginsWith: '~= ') diff --git a/packages/SwaLint-Core.package/SLClassTestObject.class/instance/rejectMethodByDate..st b/packages/SwaLint-Core.package/SLClassTestObject.class/instance/rejectMethodByDate..st index fd0b4d3f..8f0b1f00 100644 --- a/packages/SwaLint-Core.package/SLClassTestObject.class/instance/rejectMethodByDate..st +++ b/packages/SwaLint-Core.package/SLClassTestObject.class/instance/rejectMethodByDate..st @@ -1,8 +1,8 @@ preferences rejectMethodByDate: aSLMethod | splitString dateString | - SLPreferences DateFilter ifEmpty: [^ false]. - splitString := SLPreferences DateFilter splitBy: ' '. + (SLPreferences valueOfPreference: #DateFilter) ifEmpty: [^ false]. + splitString := (SLPreferences valueOfPreference: #DateFilter) splitBy: ' '. dateString := (splitString allButFirst inject: '' into: [:str :next | str, ' ', next]) withBlanksTrimmed. ^ aSLMethod testObject dateMethodLastSubmitted ifNil: [false] diff --git a/packages/SwaLint-Core.package/SLClassTestObject.class/methodProperties.json b/packages/SwaLint-Core.package/SLClassTestObject.class/methodProperties.json index 565bebef..fa6b07e2 100644 --- a/packages/SwaLint-Core.package/SLClassTestObject.class/methodProperties.json +++ b/packages/SwaLint-Core.package/SLClassTestObject.class/methodProperties.json @@ -11,7 +11,7 @@ "allVariables:" : "MB 6/17/2014 12:47", "category" : "AT 5/7/2008 21:34", "categoryName" : "AT 5/7/2008 21:34", - "children" : "topa 1/10/2015 11:32", + "children" : "ct 1/5/2025 03:31", "classMethodForSelector:" : "AT 5/7/2008 21:34", "classMethods" : "AT 5/7/2008 21:34", "classMethods:" : "MB 6/17/2014 12:22", @@ -19,12 +19,12 @@ "classVariables" : "AT 5/7/2008 21:34", "classVariables:" : "MB 6/17/2014 12:22", "fetchAllVariables" : "MB 6/17/2014 12:51", - "fetchClassMethods" : "tfel 7/25/2011 15:14:47.818", - "fetchClassVariables" : "AT 5/28/2008 13:24", + "fetchClassMethods" : "ct 12/22/2024 01:45", + "fetchClassVariables" : "ct 12/22/2024 01:47", "fetchInstanceMethods" : "tfel 7/25/2011 15:14:09.188", "fetchInstanceVariables" : "AT 5/28/2008 13:29", - "fetchSuperClassMethods" : "NA 7/26/2015 18:31", - "fetchSuperClassVariables" : "MB 6/17/2014 12:51", + "fetchSuperClassMethods" : "ct 12/22/2024 01:51", + "fetchSuperClassVariables" : "ct 10/4/2025 01:29", "fetchSuperInstanceMethods" : "NA 7/26/2015 18:32", "fetchSuperInstanceVariables" : "MB 6/17/2014 12:51", "fetchSuperMethods" : "NA 7/26/2015 19:11", @@ -44,10 +44,10 @@ "methods" : "topa 1/10/2015 11:33", "methods:" : "MB 6/17/2014 12:22", "name" : "AT 5/7/2008 21:31", - "processed:" : "NR 1/29/2008 14:18", - "rejectMethod:" : "tfel 7/25/2011 14:57:49.885", - "rejectMethodByAuthor:" : "tfel 7/25/2011 15:07:10.75", - "rejectMethodByDate:" : "tfel 7/25/2011 15:04:27.94", + "processed:" : "ct 12/13/2024 02:53", + "rejectMethod:" : "ct 10/4/2025 02:26", + "rejectMethodByAuthor:" : "ct 10/4/2025 02:24", + "rejectMethodByDate:" : "ct 10/4/2025 03:24", "replace:in:" : "AT 2/2/2008 15:12", "superClassMethods" : "NA 7/26/2015 13:12", "superClassMethods:" : "NA 7/26/2015 18:26", diff --git a/packages/SwaLint-Core.package/SLDefaultDialog.class/class/defaultFastSelectionTests.st b/packages/SwaLint-Core.package/SLDefaultDialog.class/class/defaultFastSelectionTests.st index 6575abab..e34680b9 100644 --- a/packages/SwaLint-Core.package/SLDefaultDialog.class/class/defaultFastSelectionTests.st +++ b/packages/SwaLint-Core.package/SLDefaultDialog.class/class/defaultFastSelectionTests.st @@ -1,4 +1,4 @@ instance-creation defaultFastSelectionTests - ^ { #smallLintUnconditionalRecursion . #instanceVariableAccessIsConsistent: . #collectionProtocolRule: . #smallLintJustSendsSuper . #smallLintTempsReadBeforeWritten . #unnecessaryAssignmentRule: . #smallLintConsistencyCheck . #longMethods: . #smallLintDetectContains . #smallLintToDoWithIncrement . #smallLintEqualNotUsed . #smallLintModifiesCollection . #smallLintOverridesSpecialMessage . #lawOfDemeterRule: . #smallLintAbstractClass . #smallLintCollectSelectNotUsed . #smallLintOnlyReadOrWrittenVariable . #smallLintMethodModifierFinal . #smallLintMissingYourself . #smallLintUndeclaredReference . #smallLintOnlyReadOrWrittenTemporary . #smallLintUsesTrue . #dotAfterReturn: . #smallLintFloatEqualityComparison } asSet \ No newline at end of file + ^ { #smallLintUnconditionalRecursion . #instanceVariableAccessIsConsistent: . #collectionProtocolRule: . #smallLintJustSendsSuper . #smallLintTempsReadBeforeWritten . #unnecessaryAssignmentRule: . #smallLintConsistencyCheck . #longMethods: . #smallLintDetectContains . #smallLintToDoWithIncrement . #smallLintEqualNotUsed . #smallLintModifiesCollection . #smallLintOverridesSpecialMessage . #lawOfDemeterRule: . #smallLintAbstractClass . #smallLintCollectSelectNotUsed . #smallLintOnlyReadOrWrittenVariable . #smallLintMethodModifierFinal . #smallLintMissingYourself . #smallLintUndeclaredReference . #smallLintOnlyReadOrWrittenTemporary . #smallLintUsesTrue . #dotAfterReturn: . #smallLintFloatEqualityComparison. #suspiciousAuthorInitials: } asSet \ No newline at end of file diff --git a/packages/SwaLint-Core.package/SLDefaultDialog.class/class/defaultFullSelectionTests.st b/packages/SwaLint-Core.package/SLDefaultDialog.class/class/defaultFullSelectionTests.st index 979bb4b0..82f61423 100644 --- a/packages/SwaLint-Core.package/SLDefaultDialog.class/class/defaultFullSelectionTests.st +++ b/packages/SwaLint-Core.package/SLDefaultDialog.class/class/defaultFullSelectionTests.st @@ -1,4 +1,4 @@ instance-creation defaultFullSelectionTests - ^ { #smallLintExcessiveArguments . #smallLintEquivalentSuperclassMethods . #smallLintUnclassifiedMethods . #lawOfDemeterRule: . #noClassComments: . #smallLintMissingYourself . #smallLintOnlyReadOrWrittenVariable . #unnecessaryAssignmentRule: . #smallLintBooleanPrecedence . #smallLintAbstractClass . #smallLintMissingSuperSends . #ifTrueReturnsRule: . #smallLintReturnsIfTrue . #smallLintCollectionMessagesToExternalObject . #smallLintConsistencyCheck . #smallLintCollectionCopyEmpty . #smallLintFloatEqualityComparison . #smallLintUnreferencedVariables . #smallLintMethodModifierOverride . #brainMethod: . #smallLintOnlyReadOrWrittenTemporary . #smallLintYourselfNotUsed . #godClass: . #smallLintExcessiveMethods . #magicNumbers: . #instVarInAllSubclasses: . #collectionProtocolRule: . #smallLintDefinesEqualNotHash . #badlyFormattedMethods: . #smallLintUnconditionalRecursion . #smallLintLiteralArrayContainsComma . #smallLintTempsReadBeforeWritten . #smallLintMissingSubclassResponsibility . #instanceVariableAccessIsConsistent: . #smallLintEqualNotUsed . #smallLintAddRemoveDependents . #smallLintMethodModifierFinal . #smallLintModifiesCollection . #smallLintRefersToClass . #smallLintThreeElementPoint . #precedenceRule: . #brainClass: . #smallLintCollectSelectNotUsed . #featureEnvy: . #smallLintInconsistentMethodClassification . #smallLintUsesTrue . #smallLintJustSendsSuper . #smallLintDetectContains . #metaProgramming: . #smallLintTemporaryVariableCapitalization . #smallLintAssignmentWithoutEffect . #smallLintOverridesSpecialMessage . #smallLintUndeclaredReference . #smallLintEqualsTrue . #smallLintToDoWithIncrement . #smallLintExcessiveVariables . #longMethods: . #dotAfterReturn: } asSet \ No newline at end of file + ^ { #smallLintExcessiveArguments . #smallLintEquivalentSuperclassMethods . #smallLintUnclassifiedMethods . #lawOfDemeterRule: . #noClassComments: . #smallLintMissingYourself . #smallLintOnlyReadOrWrittenVariable . #unnecessaryAssignmentRule: . #smallLintBooleanPrecedence . #smallLintAbstractClass . #smallLintMissingSuperSends . #ifTrueReturnsRule: . #smallLintReturnsIfTrue . #smallLintCollectionMessagesToExternalObject . #smallLintConsistencyCheck . #smallLintCollectionCopyEmpty . #smallLintFloatEqualityComparison . #smallLintUnreferencedVariables . #smallLintMethodModifierOverride . #brainMethod: . #smallLintOnlyReadOrWrittenTemporary . #smallLintYourselfNotUsed . #godClass: . #smallLintExcessiveMethods . #magicNumbers: . #instVarInAllSubclasses: . #collectionProtocolRule: . #smallLintDefinesEqualNotHash . #badlyFormattedMethods: . #smallLintUnconditionalRecursion . #smallLintLiteralArrayContainsComma . #smallLintLiteralArrayContainsDot .#smallLintTempsReadBeforeWritten . #smallLintMissingSubclassResponsibility . #instanceVariableAccessIsConsistent: . #smallLintEqualNotUsed . #smallLintAddRemoveDependents . #smallLintMethodModifierFinal . #smallLintModifiesCollection . #smallLintRefersToClass . #smallLintThreeElementPoint . #precedenceRule: . #brainClass: . #smallLintCollectSelectNotUsed . #featureEnvy: . #smallLintInconsistentMethodClassification . #smallLintUsesTrue . #smallLintJustSendsSuper . #smallLintDetectContains . #metaProgramming: . #smallLintTemporaryVariableCapitalization . #smallLintAssignmentWithoutEffect . #smallLintOverridesSpecialMessage . #smallLintUndeclaredReference . #smallLintEqualsTrue . #smallLintToDoWithIncrement . #smallLintExcessiveVariables . #longMethods: . #dotAfterReturn:. #suspiciousAuthorInitials: } asSet \ No newline at end of file diff --git a/packages/SwaLint-Core.package/SLDefaultDialog.class/instance/addModelItemsToWindowMenu..st b/packages/SwaLint-Core.package/SLDefaultDialog.class/instance/addModelItemsToWindowMenu..st new file mode 100644 index 00000000..7f1ed34c --- /dev/null +++ b/packages/SwaLint-Core.package/SLDefaultDialog.class/instance/addModelItemsToWindowMenu..st @@ -0,0 +1,5 @@ +building +addModelItemsToWindowMenu: menu + + menu addLine. + SwaLint appMenu: menu. \ No newline at end of file diff --git a/packages/SwaLint-Core.package/SLDefaultDialog.class/instance/autoLint.st b/packages/SwaLint-Core.package/SLDefaultDialog.class/instance/autoLint.st index f05bc44c..7d2cc25e 100644 --- a/packages/SwaLint-Core.package/SLDefaultDialog.class/instance/autoLint.st +++ b/packages/SwaLint-Core.package/SLDefaultDialog.class/instance/autoLint.st @@ -2,5 +2,9 @@ actions autoLint self runnable ifFalse: [^ self]. - SLTestAutoRunner on: classesSelected with: testsSelected calledBy: (self dependents first) reopens: self. + SLTestAutoRunner + on: self classesSelected + with: self testsSelected + calledBy: self containingWindow + reopens: self. self close. diff --git a/packages/SwaLint-Core.package/SLDefaultDialog.class/instance/browseTest.st b/packages/SwaLint-Core.package/SLDefaultDialog.class/instance/browseTest.st new file mode 100644 index 00000000..f7ebb617 --- /dev/null +++ b/packages/SwaLint-Core.package/SLDefaultDialog.class/instance/browseTest.st @@ -0,0 +1,5 @@ +actions +browseTest + + self testSelected = 0 ifTrue: [^ self changed: #flash]. + ^ (self tests at: self testSelected) browse \ No newline at end of file diff --git a/packages/SwaLint-Core.package/SLDefaultDialog.class/instance/buildTestListWith..st b/packages/SwaLint-Core.package/SLDefaultDialog.class/instance/buildTestListWith..st index 1bcf3d3b..b366a91d 100644 --- a/packages/SwaLint-Core.package/SLDefaultDialog.class/instance/buildTestListWith..st +++ b/packages/SwaLint-Core.package/SLDefaultDialog.class/instance/buildTestListWith..st @@ -5,7 +5,7 @@ buildTestListWith: aBuilder model: self; name: 'Test List'; list: #testList; - menu: #testMenu:; + menu: #testMenu:shifted:; getIndex: #testSelected; setIndex: #testSelected:; getSelectionList: #testAt:; diff --git a/packages/SwaLint-Core.package/SLDefaultDialog.class/instance/buildWith..st b/packages/SwaLint-Core.package/SLDefaultDialog.class/instance/buildWith..st index 5cd472a8..a07be969 100644 --- a/packages/SwaLint-Core.package/SLDefaultDialog.class/instance/buildWith..st +++ b/packages/SwaLint-Core.package/SLDefaultDialog.class/instance/buildWith..st @@ -12,5 +12,4 @@ buildWith: aBuilder self testsFrame -> [self buildTestListWith: aBuilder]. }. - window := aBuilder build: windowSpec. - ^window \ No newline at end of file + ^ aBuilder build: windowSpec \ No newline at end of file diff --git a/packages/SwaLint-Core.package/SLDefaultDialog.class/instance/categories.st b/packages/SwaLint-Core.package/SLDefaultDialog.class/instance/categories.st index 3d259bbe..98db43b5 100644 --- a/packages/SwaLint-Core.package/SLDefaultDialog.class/instance/categories.st +++ b/packages/SwaLint-Core.package/SLDefaultDialog.class/instance/categories.st @@ -1,4 +1,4 @@ accessing-categories categories - ^ self environment classCategories \ No newline at end of file + ^ self testEnvironment classCategories \ No newline at end of file diff --git a/packages/SwaLint-Core.package/SLDefaultDialog.class/instance/categoriesSelected..st b/packages/SwaLint-Core.package/SLDefaultDialog.class/instance/categoriesSelected..st new file mode 100644 index 00000000..ec3bbcf3 --- /dev/null +++ b/packages/SwaLint-Core.package/SLDefaultDialog.class/instance/categoriesSelected..st @@ -0,0 +1,5 @@ +accessing +categoriesSelected: aSet + + categoriesSelected := aSet. + self changed: #categoriesSelected; updateClasses. \ No newline at end of file diff --git a/packages/SwaLint-Core.package/SLDefaultDialog.class/instance/categoriesSelected.st b/packages/SwaLint-Core.package/SLDefaultDialog.class/instance/categoriesSelected.st new file mode 100644 index 00000000..c5b31a6b --- /dev/null +++ b/packages/SwaLint-Core.package/SLDefaultDialog.class/instance/categoriesSelected.st @@ -0,0 +1,4 @@ +accessing +categoriesSelected + + ^ categoriesSelected \ No newline at end of file diff --git a/packages/SwaLint-Core.package/SLDefaultDialog.class/instance/categoryAt..st b/packages/SwaLint-Core.package/SLDefaultDialog.class/instance/categoryAt..st index 5b34b4ed..613d97d4 100644 --- a/packages/SwaLint-Core.package/SLDefaultDialog.class/instance/categoryAt..st +++ b/packages/SwaLint-Core.package/SLDefaultDialog.class/instance/categoryAt..st @@ -1,4 +1,5 @@ accessing-categories categoryAt: anIndex - ^ categoriesSelected includes: (self categories at: anIndex ifAbsent: [ ^ false ]) \ No newline at end of file + ^ self categoriesSelected includes: + (self categories at: anIndex ifAbsent: [ ^ false ]) \ No newline at end of file diff --git a/packages/SwaLint-Core.package/SLDefaultDialog.class/instance/categoryAt.put..st b/packages/SwaLint-Core.package/SLDefaultDialog.class/instance/categoryAt.put..st index 8b100fd4..582fc2ae 100644 --- a/packages/SwaLint-Core.package/SLDefaultDialog.class/instance/categoryAt.put..st +++ b/packages/SwaLint-Core.package/SLDefaultDialog.class/instance/categoryAt.put..st @@ -1,15 +1,16 @@ accessing-categories categoryAt: anInteger put: aBoolean + | target | target := self categories at: anInteger ifAbsent: [^ self]. - self selectByCategory - ifTrue: [categoriesSelected := aBoolean - ifTrue: [ categoriesSelected copyWith: target ] - ifFalse: [ categoriesSelected copyWithout: target ]] - ifFalse: [| categoryList package | - package := self environment packageForCategory: target. - categoryList := self getCategoriesFor: package. - categoriesSelected := aBoolean - ifTrue: [ categoriesSelected, categoryList ] - ifFalse: [ categoriesSelected copyWithoutAll: categoryList ]]. - self changed: #categorySelected; updateClasses. \ No newline at end of file + self categoriesSelected: + (self selectByCategory + ifTrue: [aBoolean + ifTrue: [ self categoriesSelected copyWith: target ] + ifFalse: [ self categoriesSelected copyWithout: target ]] + ifFalse: [| categoryList package | + package := self testEnvironment packageForCategory: target. + categoryList := self getCategoriesFor: package. + aBoolean + ifTrue: [ self categoriesSelected, categoryList ] + ifFalse: [ self categoriesSelected copyWithoutAll: categoryList ]]). \ No newline at end of file diff --git a/packages/SwaLint-Core.package/SLDefaultDialog.class/instance/classAt..st b/packages/SwaLint-Core.package/SLDefaultDialog.class/instance/classAt..st index 17ac6c6c..727d6fda 100644 --- a/packages/SwaLint-Core.package/SLDefaultDialog.class/instance/classAt..st +++ b/packages/SwaLint-Core.package/SLDefaultDialog.class/instance/classAt..st @@ -1,4 +1,5 @@ accessing-classes classAt: anInteger - ^ classesSelected includes: (classes at: anInteger ifAbsent: [ ^ false ]) \ No newline at end of file + ^ self classesSelected includes: + (self classes at: anInteger ifAbsent: [ ^ false ]) \ No newline at end of file diff --git a/packages/SwaLint-Core.package/SLDefaultDialog.class/instance/classAt.put..st b/packages/SwaLint-Core.package/SLDefaultDialog.class/instance/classAt.put..st index 266d16f4..7c022dad 100644 --- a/packages/SwaLint-Core.package/SLDefaultDialog.class/instance/classAt.put..st +++ b/packages/SwaLint-Core.package/SLDefaultDialog.class/instance/classAt.put..st @@ -1,7 +1,9 @@ accessing-classes classAt: anInteger put: aBoolean - classesSelected := classesSelected - perform: (aBoolean ifTrue: [ #copyWith: ] ifFalse: [ #copyWithout: ]) - with: (classes at: anInteger ifAbsent: [ ^ self ]). - self changed: #classSelected; changed: #runnable. \ No newline at end of file + | target | + target := self classes at: anInteger ifAbsent: [ ^ self ]. + self classesSelected: + (self classesSelected + perform: (aBoolean ifTrue: [ #copyWith: ] ifFalse: [ #copyWithout: ]) + with: target). \ No newline at end of file diff --git a/packages/SwaLint-Core.package/SLDefaultDialog.class/instance/classesSelected.st b/packages/SwaLint-Core.package/SLDefaultDialog.class/instance/classesSelected.st new file mode 100644 index 00000000..8a621392 --- /dev/null +++ b/packages/SwaLint-Core.package/SLDefaultDialog.class/instance/classesSelected.st @@ -0,0 +1,4 @@ +accessing +classesSelected + + ^ classesSelected \ No newline at end of file diff --git a/packages/SwaLint-Core.package/SLDefaultDialog.class/instance/environment..st b/packages/SwaLint-Core.package/SLDefaultDialog.class/instance/environment..st deleted file mode 100644 index 8b29ae7b..00000000 --- a/packages/SwaLint-Core.package/SLDefaultDialog.class/instance/environment..st +++ /dev/null @@ -1,4 +0,0 @@ -accessing -environment: aSLEnvironment - - environment := aSLEnvironment. \ No newline at end of file diff --git a/packages/SwaLint-Core.package/SLDefaultDialog.class/instance/environment.st b/packages/SwaLint-Core.package/SLDefaultDialog.class/instance/environment.st deleted file mode 100644 index 31526e1c..00000000 --- a/packages/SwaLint-Core.package/SLDefaultDialog.class/instance/environment.st +++ /dev/null @@ -1,4 +0,0 @@ -accessing -environment - - ^ environment \ No newline at end of file diff --git a/packages/SwaLint-Core.package/SLDefaultDialog.class/instance/filterCategories.st b/packages/SwaLint-Core.package/SLDefaultDialog.class/instance/filterCategories.st index 22dc72ec..5a0bc6c0 100644 --- a/packages/SwaLint-Core.package/SLDefaultDialog.class/instance/filterCategories.st +++ b/packages/SwaLint-Core.package/SLDefaultDialog.class/instance/filterCategories.st @@ -1,15 +1,16 @@ accessing-categories filterCategories + | pattern | - pattern := UIManager default + pattern := Project uiManager request: 'Pattern(s) to select categories:\ (separate patterns with '';'')' withCRs initialAnswer: (categoryPattern ifNil: ['*']). (pattern isNil or: [pattern isEmpty]) ifTrue: [^self]. - categoriesSelected := ((categoryPattern := pattern) subStrings: ';') - inject: Set new - into: [:matches :subPattern| - matches - addAll: (self categories select: [ :each | subPattern match: each]); - yourself]. - self changed: #categorySelected; update. \ No newline at end of file + self categoriesSelected: + (((categoryPattern := pattern) subStrings: ';') + inject: Set new + into: [:matches :subPattern| + matches + addAll: (self categories select: [ :each | subPattern match: each]); + yourself]). \ No newline at end of file diff --git a/packages/SwaLint-Core.package/SLDefaultDialog.class/instance/filterClasses.st b/packages/SwaLint-Core.package/SLDefaultDialog.class/instance/filterClasses.st index 185e0e77..6ce56bec 100644 --- a/packages/SwaLint-Core.package/SLDefaultDialog.class/instance/filterClasses.st +++ b/packages/SwaLint-Core.package/SLDefaultDialog.class/instance/filterClasses.st @@ -1,18 +1,17 @@ accessing-classes filterClasses + | pattern | - pattern := UIManager default + pattern := Project uiManager request: 'Pattern(s) to select tests:\ (separate patterns with '';'')' withCRs initialAnswer: (classPattern ifNil: ['*']). (pattern isNil or: [pattern isEmpty]) ifTrue: [^self]. - classesSelected := ((classPattern := pattern) subStrings: ';') - inject: Set new - into: [:matches :subPattern| - matches - addAll: (classes select: [ :each | subPattern match: each name]); - yourself]. - self - changed: #classSelected; - changed: #runnable; - update. \ No newline at end of file + self classesSelected: + (((classPattern := pattern) subStrings: ';') + inject: Set new + into: [:matches :subPattern| + matches + addAll: (self classes select: [ :each | subPattern match: each name]); + yourself]). + self update. \ No newline at end of file diff --git a/packages/SwaLint-Core.package/SLDefaultDialog.class/instance/filterTestCategories.st b/packages/SwaLint-Core.package/SLDefaultDialog.class/instance/filterTestCategories.st index ae4a5a68..28d49c09 100644 --- a/packages/SwaLint-Core.package/SLDefaultDialog.class/instance/filterTestCategories.st +++ b/packages/SwaLint-Core.package/SLDefaultDialog.class/instance/filterTestCategories.st @@ -6,12 +6,10 @@ filterTestCategories initialAnswer: (testCategoryPattern ifNil: ['*']). (pattern isNil or: [pattern isEmpty]) ifTrue: [^self]. - testCategoriesSelected := ((testCategoryPattern := pattern) subStrings: ';') + self testCategoriesSelected: + (((testCategoryPattern := pattern) subStrings: ';') inject: Set new into: [:matches :subPattern| matches addAll: (self testCategories select: [ :each | subPattern match: each name]); - yourself]. - self - changed: #testCategorySelected; - update. \ No newline at end of file + yourself]). \ No newline at end of file diff --git a/packages/SwaLint-Core.package/SLDefaultDialog.class/instance/filterTests.st b/packages/SwaLint-Core.package/SLDefaultDialog.class/instance/filterTests.st index b1a58a65..855eff90 100644 --- a/packages/SwaLint-Core.package/SLDefaultDialog.class/instance/filterTests.st +++ b/packages/SwaLint-Core.package/SLDefaultDialog.class/instance/filterTests.st @@ -1,18 +1,16 @@ accessing-test filterTests + | pattern | - pattern := UIManager default + pattern := Project uiManager request: 'Pattern(s) to select tests:\ (separate patterns with '';'')' withCRs initialAnswer: (testPattern ifNil: ['*']). (pattern isNil or: [pattern isEmpty]) ifTrue: [^self]. - testsSelected := ((testPattern := pattern) subStrings: ';') - inject: Set new - into: [:matches :subPattern| - matches - addAll: (tests select: [ :each | subPattern match: each name]); - yourself]. - self - changed: #testSelected; - changed: #runnable; - update. \ No newline at end of file + self testsSelected: + (((testPattern := pattern) subStrings: ';') + inject: Set new + into: [:matches :subPattern| + matches + addAll: (self tests select: [ :each | subPattern match: each name]); + yourself]). \ No newline at end of file diff --git a/packages/SwaLint-Core.package/SLDefaultDialog.class/instance/findClassesForSelectedCategories.st b/packages/SwaLint-Core.package/SLDefaultDialog.class/instance/findClassesForSelectedCategories.st index af5e61f5..8e28b390 100644 --- a/packages/SwaLint-Core.package/SLDefaultDialog.class/instance/findClassesForSelectedCategories.st +++ b/packages/SwaLint-Core.package/SLDefaultDialog.class/instance/findClassesForSelectedCategories.st @@ -1,8 +1,8 @@ updating findClassesForSelectedCategories | items | - categoriesSelected isEmpty ifTrue: [ ^ OrderedCollection new ]. - items := categoriesSelected gather: [ :category | + self categoriesSelected isEmpty ifTrue: [ ^ OrderedCollection new ]. + items := self categoriesSelected gather: [ :category | ((Smalltalk organization listAtCategoryNamed: category) collect: [ :each | Smalltalk at: each ])]. - ^ items asOrderedCollection \ No newline at end of file + ^ items asSet \ No newline at end of file diff --git a/packages/SwaLint-Core.package/SLDefaultDialog.class/instance/findTestsForSelectedTestCategories.st b/packages/SwaLint-Core.package/SLDefaultDialog.class/instance/findTestsForSelectedTestCategories.st index 27bd5bea..9b3370fe 100644 --- a/packages/SwaLint-Core.package/SLDefaultDialog.class/instance/findTestsForSelectedTestCategories.st +++ b/packages/SwaLint-Core.package/SLDefaultDialog.class/instance/findTestsForSelectedTestCategories.st @@ -1,6 +1,6 @@ updating findTestsForSelectedTestCategories | items | - testCategoriesSelected isEmpty ifTrue: [ ^ OrderedCollection new ]. - items := testCategoriesSelected gather: [ :category | environment testsAtCategory: category ]. + self testCategoriesSelected ifEmpty: [ ^ OrderedCollection new ]. + items := self testCategoriesSelected gather: [ :category | self testEnvironment testsAtCategory: category ]. ^ items asOrderedCollection \ No newline at end of file diff --git a/packages/SwaLint-Core.package/SLDefaultDialog.class/instance/initializeInstanceVariables.st b/packages/SwaLint-Core.package/SLDefaultDialog.class/instance/initializeInstanceVariables.st index 0ae3c758..80a7f5a0 100644 --- a/packages/SwaLint-Core.package/SLDefaultDialog.class/instance/initializeInstanceVariables.st +++ b/packages/SwaLint-Core.package/SLDefaultDialog.class/instance/initializeInstanceVariables.st @@ -8,5 +8,4 @@ initializeInstanceVariables classes := OrderedCollection new. tests := OrderedCollection new. testIndex := 0. - selectByCategory := true. - descriptionCollection := OrderedCollection new. \ No newline at end of file + selectByCategory := true. \ No newline at end of file diff --git a/packages/SwaLint-Core.package/SLDefaultDialog.class/instance/onEnvironment..st b/packages/SwaLint-Core.package/SLDefaultDialog.class/instance/onEnvironment..st index e9a888be..24c6c90b 100644 --- a/packages/SwaLint-Core.package/SLDefaultDialog.class/instance/onEnvironment..st +++ b/packages/SwaLint-Core.package/SLDefaultDialog.class/instance/onEnvironment..st @@ -1,5 +1,5 @@ initialization onEnvironment: aSLEnvironment - environment := aSLEnvironment. + self testEnvironment: aSLEnvironment. self update. \ No newline at end of file diff --git a/packages/SwaLint-Core.package/SLDefaultDialog.class/instance/run.st b/packages/SwaLint-Core.package/SLDefaultDialog.class/instance/run.st index 70f6cfc4..86fc6b1d 100644 --- a/packages/SwaLint-Core.package/SLDefaultDialog.class/instance/run.st +++ b/packages/SwaLint-Core.package/SLDefaultDialog.class/instance/run.st @@ -2,7 +2,7 @@ actions run self runnable ifFalse: [^ self]. - self environment selectedTests: testsSelected. - self environment selectedClasses: classesSelected. + self testEnvironment selectedTests: self testsSelected. + self testEnvironment selectedClasses: self classesSelected. SLResultDialog onEnvironment: - (SLTestRunner onEnvironment: self environment). \ No newline at end of file + (SLTestRunner onEnvironment: self testEnvironment). \ No newline at end of file diff --git a/packages/SwaLint-Core.package/SLDefaultDialog.class/instance/runnable.st b/packages/SwaLint-Core.package/SLDefaultDialog.class/instance/runnable.st index fa53483b..7cf08698 100644 --- a/packages/SwaLint-Core.package/SLDefaultDialog.class/instance/runnable.st +++ b/packages/SwaLint-Core.package/SLDefaultDialog.class/instance/runnable.st @@ -1,4 +1,4 @@ actions runnable - ^ classesSelected notEmpty and: [testsSelected notEmpty] \ No newline at end of file + ^ self classesSelected notEmpty and: [self testsSelected notEmpty] \ No newline at end of file diff --git a/packages/SwaLint-Core.package/SLDefaultDialog.class/instance/selectAllCategories.st b/packages/SwaLint-Core.package/SLDefaultDialog.class/instance/selectAllCategories.st index f3093541..77ffb157 100644 --- a/packages/SwaLint-Core.package/SLDefaultDialog.class/instance/selectAllCategories.st +++ b/packages/SwaLint-Core.package/SLDefaultDialog.class/instance/selectAllCategories.st @@ -1,5 +1,4 @@ accessing-categories selectAllCategories - categoriesSelected := self categories asSet. - self changed: #categorySelected; update. \ No newline at end of file + self categoriesSelected: self categories asSet. \ No newline at end of file diff --git a/packages/SwaLint-Core.package/SLDefaultDialog.class/instance/selectAllClasses.st b/packages/SwaLint-Core.package/SLDefaultDialog.class/instance/selectAllClasses.st index df2ea3dc..55152575 100644 --- a/packages/SwaLint-Core.package/SLDefaultDialog.class/instance/selectAllClasses.st +++ b/packages/SwaLint-Core.package/SLDefaultDialog.class/instance/selectAllClasses.st @@ -3,8 +3,5 @@ selectAllClasses "Fixed to update all selections now that the selection invalidation has been optimised." - classesSelected := classes asSet. - self - changed: #classSelected; - changed: #runnable; - update. \ No newline at end of file + self classesSelected: self classes asSet. + self update. \ No newline at end of file diff --git a/packages/SwaLint-Core.package/SLDefaultDialog.class/instance/selectAllTestCategories.st b/packages/SwaLint-Core.package/SLDefaultDialog.class/instance/selectAllTestCategories.st index 106c8079..1311ae6c 100644 --- a/packages/SwaLint-Core.package/SLDefaultDialog.class/instance/selectAllTestCategories.st +++ b/packages/SwaLint-Core.package/SLDefaultDialog.class/instance/selectAllTestCategories.st @@ -1,5 +1,4 @@ accessing-testCategories selectAllTestCategories - testCategoriesSelected := self testCategories asSet. - self changed: #testCategorySelected; update. \ No newline at end of file + self testCategoriesSelected: self testCategories asSet. \ No newline at end of file diff --git a/packages/SwaLint-Core.package/SLDefaultDialog.class/instance/selectAllTests.st b/packages/SwaLint-Core.package/SLDefaultDialog.class/instance/selectAllTests.st index cd45553a..c5f9e5e2 100644 --- a/packages/SwaLint-Core.package/SLDefaultDialog.class/instance/selectAllTests.st +++ b/packages/SwaLint-Core.package/SLDefaultDialog.class/instance/selectAllTests.st @@ -1,10 +1,4 @@ accessing-test selectAllTests - "Fixed to update all selections now that the - selection invalidation has been optimised." - testsSelected := tests asSet. - self - changed: #testSelected; - changed: #runnable; - update. \ No newline at end of file + self testsSelected: self tests asSet. \ No newline at end of file diff --git a/packages/SwaLint-Core.package/SLDefaultDialog.class/instance/selectInverseCategories.st b/packages/SwaLint-Core.package/SLDefaultDialog.class/instance/selectInverseCategories.st index 13d7865e..7a6ea554 100644 --- a/packages/SwaLint-Core.package/SLDefaultDialog.class/instance/selectInverseCategories.st +++ b/packages/SwaLint-Core.package/SLDefaultDialog.class/instance/selectInverseCategories.st @@ -1,7 +1,8 @@ accessing-categories selectInverseCategories - categoriesSelected := self categories asSet - removeAll: categoriesSelected; - yourself. - self changed: #allSelections; changed: #categorySelected; update. \ No newline at end of file + self categoriesSelected: + (self categories asSet + removeAll: self categoriesSelected; + yourself). + self changed: #allSelections. \ No newline at end of file diff --git a/packages/SwaLint-Core.package/SLDefaultDialog.class/instance/selectInverseClasses.st b/packages/SwaLint-Core.package/SLDefaultDialog.class/instance/selectInverseClasses.st index 96417d01..0e9ef01e 100644 --- a/packages/SwaLint-Core.package/SLDefaultDialog.class/instance/selectInverseClasses.st +++ b/packages/SwaLint-Core.package/SLDefaultDialog.class/instance/selectInverseClasses.st @@ -1,12 +1,8 @@ accessing-classes selectInverseClasses - "Fixed to update all selections now that the - selection invalidation has been optimised." - - classesSelected := classes asSet - removeAll: classesSelected; - yourself. - self - changed: #classSelected; - changed: #runnable; - update. \ No newline at end of file + + self classesSelected: + (self classes asSet + removeAll: classesSelected; + yourself). + self update. \ No newline at end of file diff --git a/packages/SwaLint-Core.package/SLDefaultDialog.class/instance/selectInverseTestCategories.st b/packages/SwaLint-Core.package/SLDefaultDialog.class/instance/selectInverseTestCategories.st index 7dd646d5..d5a7b4cd 100644 --- a/packages/SwaLint-Core.package/SLDefaultDialog.class/instance/selectInverseTestCategories.st +++ b/packages/SwaLint-Core.package/SLDefaultDialog.class/instance/selectInverseTestCategories.st @@ -1,7 +1,7 @@ accessing-testCategories selectInverseTestCategories - testCategoriesSelected := self testCategories asSet - removeAll: testCategoriesSelected; - yourself. - self changed: #testCategorySelected; update. \ No newline at end of file + self testCategoriesSelected: + (self testCategories asSet + removeAll: self testCategoriesSelected; + yourself). \ No newline at end of file diff --git a/packages/SwaLint-Core.package/SLDefaultDialog.class/instance/selectInverseTests.st b/packages/SwaLint-Core.package/SLDefaultDialog.class/instance/selectInverseTests.st index be0812c0..b8781e83 100644 --- a/packages/SwaLint-Core.package/SLDefaultDialog.class/instance/selectInverseTests.st +++ b/packages/SwaLint-Core.package/SLDefaultDialog.class/instance/selectInverseTests.st @@ -1,15 +1,7 @@ accessing-test selectInverseTests - "Fixed to update all selections now that the - selection invalidation has been optimised." - testsSelected := tests asSet - removeAll: testsSelected; - yourself. - descriptionCollection := OrderedCollection new - addAll: testsSelected; - yourself. - self - changed: #testSelected; - changed: #runnable; - update. \ No newline at end of file + self testsSelected: + (self tests asSet + removeAll: self testsSelected; + yourself). \ No newline at end of file diff --git a/packages/SwaLint-Core.package/SLDefaultDialog.class/instance/selectNoCategories.st b/packages/SwaLint-Core.package/SLDefaultDialog.class/instance/selectNoCategories.st index 5e4c9942..7d7c4ee8 100644 --- a/packages/SwaLint-Core.package/SLDefaultDialog.class/instance/selectNoCategories.st +++ b/packages/SwaLint-Core.package/SLDefaultDialog.class/instance/selectNoCategories.st @@ -1,5 +1,5 @@ accessing-categories selectNoCategories - categoriesSelected := Set new. - self changed: #allSelections; changed: #categorySelected; update. \ No newline at end of file + self categoriesSelected: Set new. + self changed: #allSelections. \ No newline at end of file diff --git a/packages/SwaLint-Core.package/SLDefaultDialog.class/instance/selectNoTestCategories.st b/packages/SwaLint-Core.package/SLDefaultDialog.class/instance/selectNoTestCategories.st index 581134d2..874d3d04 100644 --- a/packages/SwaLint-Core.package/SLDefaultDialog.class/instance/selectNoTestCategories.st +++ b/packages/SwaLint-Core.package/SLDefaultDialog.class/instance/selectNoTestCategories.st @@ -1,5 +1,4 @@ accessing-testCategories selectNoTestCategories - testCategoriesSelected := Set new. - self changed: #testCategorySelected; update. \ No newline at end of file + self testCategoriesSelected: Set new. \ No newline at end of file diff --git a/packages/SwaLint-Core.package/SLDefaultDialog.class/instance/selectNoTests.st b/packages/SwaLint-Core.package/SLDefaultDialog.class/instance/selectNoTests.st index b18c4e72..4b45a44f 100644 --- a/packages/SwaLint-Core.package/SLDefaultDialog.class/instance/selectNoTests.st +++ b/packages/SwaLint-Core.package/SLDefaultDialog.class/instance/selectNoTests.st @@ -1,11 +1,4 @@ accessing-test selectNoTests - "Fixed to update all selections now that the - selection invalidation has been optimised." - testsSelected := Set new. - descriptionCollection := OrderedCollection new. - self - changed: #testSelected; - changed: #runnable; - update. \ No newline at end of file + self testsSelected: Set new. \ No newline at end of file diff --git a/packages/SwaLint-Core.package/SLDefaultDialog.class/instance/testAt..st b/packages/SwaLint-Core.package/SLDefaultDialog.class/instance/testAt..st index e1fc9f17..04771e60 100644 --- a/packages/SwaLint-Core.package/SLDefaultDialog.class/instance/testAt..st +++ b/packages/SwaLint-Core.package/SLDefaultDialog.class/instance/testAt..st @@ -1,4 +1,5 @@ accessing-test testAt: anInteger - ^ testsSelected includes: (tests at: anInteger ifAbsent: [ ^ false ]) \ No newline at end of file + ^ self testsSelected includes: + (self tests at: anInteger ifAbsent: [ ^ false ]) \ No newline at end of file diff --git a/packages/SwaLint-Core.package/SLDefaultDialog.class/instance/testAt.put..st b/packages/SwaLint-Core.package/SLDefaultDialog.class/instance/testAt.put..st index 4b070ce2..3a183bd0 100644 --- a/packages/SwaLint-Core.package/SLDefaultDialog.class/instance/testAt.put..st +++ b/packages/SwaLint-Core.package/SLDefaultDialog.class/instance/testAt.put..st @@ -1,9 +1,9 @@ accessing-test testAt: anInteger put: aBoolean - | target | - target := tests at: anInteger ifAbsent: [^ self]. - testsSelected := aBoolean - ifTrue: [descriptionCollection addLast: target. testsSelected copyWith: target] - ifFalse: [descriptionCollection removeAllSuchThat: [ :each | each symbol = target symbol]. testsSelected copyWithout: target.]. - self changed: #testSelected; changed: #testDescription; changed: #runnable. \ No newline at end of file + | target | + target := self tests at: anInteger ifAbsent: [^ self]. + self testsSelected: + (aBoolean + ifTrue: [self testsSelected copyWith: target] + ifFalse: [self testsSelected copyWithout: target]). \ No newline at end of file diff --git a/packages/SwaLint-Core.package/SLDefaultDialog.class/instance/testCategories.st b/packages/SwaLint-Core.package/SLDefaultDialog.class/instance/testCategories.st index 7c42dce6..602b0dfc 100644 --- a/packages/SwaLint-Core.package/SLDefaultDialog.class/instance/testCategories.st +++ b/packages/SwaLint-Core.package/SLDefaultDialog.class/instance/testCategories.st @@ -1,4 +1,4 @@ accessing-testCategories testCategories - ^ self environment testCategories \ No newline at end of file + ^ self testEnvironment testCategories \ No newline at end of file diff --git a/packages/SwaLint-Core.package/SLDefaultDialog.class/instance/testCategoriesSelected..st b/packages/SwaLint-Core.package/SLDefaultDialog.class/instance/testCategoriesSelected..st new file mode 100644 index 00000000..fae8bec2 --- /dev/null +++ b/packages/SwaLint-Core.package/SLDefaultDialog.class/instance/testCategoriesSelected..st @@ -0,0 +1,5 @@ +accessing +testCategoriesSelected: aSet + + testCategoriesSelected := aSet. + self changed: #testCategoriesSelected; changed: #testCategoryAt:; updateTests; changed: #hasRunnable. \ No newline at end of file diff --git a/packages/SwaLint-Core.package/SLDefaultDialog.class/instance/testCategoriesSelected.st b/packages/SwaLint-Core.package/SLDefaultDialog.class/instance/testCategoriesSelected.st new file mode 100644 index 00000000..7f90e841 --- /dev/null +++ b/packages/SwaLint-Core.package/SLDefaultDialog.class/instance/testCategoriesSelected.st @@ -0,0 +1,4 @@ +accessing +testCategoriesSelected + + ^ testCategoriesSelected \ No newline at end of file diff --git a/packages/SwaLint-Core.package/SLDefaultDialog.class/instance/testCategoryAt..st b/packages/SwaLint-Core.package/SLDefaultDialog.class/instance/testCategoryAt..st index 05e04f5a..709d4688 100644 --- a/packages/SwaLint-Core.package/SLDefaultDialog.class/instance/testCategoryAt..st +++ b/packages/SwaLint-Core.package/SLDefaultDialog.class/instance/testCategoryAt..st @@ -1,4 +1,5 @@ accessing-testCategories testCategoryAt: anInteger - ^ testCategoriesSelected includes: (self testCategories at: anInteger ifAbsent: [ ^ false ]) \ No newline at end of file + ^ self testCategoriesSelected includes: + (self testCategories at: anInteger ifAbsent: [ ^ false ]) \ No newline at end of file diff --git a/packages/SwaLint-Core.package/SLDefaultDialog.class/instance/testCategoryAt.put..st b/packages/SwaLint-Core.package/SLDefaultDialog.class/instance/testCategoryAt.put..st index 1fd53b86..c2b54ce2 100644 --- a/packages/SwaLint-Core.package/SLDefaultDialog.class/instance/testCategoryAt.put..st +++ b/packages/SwaLint-Core.package/SLDefaultDialog.class/instance/testCategoryAt.put..st @@ -1,7 +1,9 @@ accessing-testCategories testCategoryAt: anInteger put: aBoolean - testCategoriesSelected := testCategoriesSelected - perform: (aBoolean ifTrue: [ #copyWith: ] ifFalse: [ #copyWithout: ]) - with: (self testCategories at: anInteger ifAbsent: [ ^ self ]). - self changed: #testCategorySelected; updateTests; changed: #hasRunnable. \ No newline at end of file + | target | + target := self testCategories at: anInteger ifAbsent: [ ^ self ]. + self testCategoriesSelected: + (self testCategoriesSelected + perform: (aBoolean ifTrue: [ #copyWith: ] ifFalse: [ #copyWithout: ]) + with: target). \ No newline at end of file diff --git a/packages/SwaLint-Core.package/SLDefaultDialog.class/instance/testDescription.st b/packages/SwaLint-Core.package/SLDefaultDialog.class/instance/testDescription.st index b6a7dd50..8d66226e 100644 --- a/packages/SwaLint-Core.package/SLDefaultDialog.class/instance/testDescription.st +++ b/packages/SwaLint-Core.package/SLDefaultDialog.class/instance/testDescription.st @@ -1,11 +1,11 @@ accessing-test testDescription - | test | - ^ descriptionCollection isEmpty + ^ self testSelected = 0 ifTrue: ['There is no test chosen.'] ifFalse: [ - test := descriptionCollection last. + | test | + test := self tests at: self testSelected. test name, ':', Character cr, (test description ifNil: ['There is no description for the chosen test.'] @@ -15,4 +15,4 @@ testDescription ifTrue: ['', 'This test may require more time than other tests, hence the * in the name.' asText allBold, Character cr]), Character cr, 'PlugIn: ', test plugIn, Character cr, - 'ID: #', (test symbol readStream upTo: $:) ] \ No newline at end of file + 'ID: #', test key ] \ No newline at end of file diff --git a/packages/SwaLint-Core.package/SLDefaultDialog.class/instance/testEnvironment..st b/packages/SwaLint-Core.package/SLDefaultDialog.class/instance/testEnvironment..st new file mode 100644 index 00000000..ea38dd5c --- /dev/null +++ b/packages/SwaLint-Core.package/SLDefaultDialog.class/instance/testEnvironment..st @@ -0,0 +1,6 @@ +accessing +testEnvironment: aSLEnvironment + + self removeDependent: environment. + environment := aSLEnvironment. + self addDependent: environment. \ No newline at end of file diff --git a/packages/SwaLint-Core.package/SLDefaultDialog.class/instance/testEnvironment.st b/packages/SwaLint-Core.package/SLDefaultDialog.class/instance/testEnvironment.st new file mode 100644 index 00000000..0b94785e --- /dev/null +++ b/packages/SwaLint-Core.package/SLDefaultDialog.class/instance/testEnvironment.st @@ -0,0 +1,4 @@ +accessing +testEnvironment + + ^ environment \ No newline at end of file diff --git a/packages/SwaLint-Core.package/SLDefaultDialog.class/instance/testList.st b/packages/SwaLint-Core.package/SLDefaultDialog.class/instance/testList.st index eaff191b..706ab92c 100644 --- a/packages/SwaLint-Core.package/SLDefaultDialog.class/instance/testList.st +++ b/packages/SwaLint-Core.package/SLDefaultDialog.class/instance/testList.st @@ -1,4 +1,4 @@ accessing-test testList - ^ tests collect: [ :test | test format ] \ No newline at end of file + ^ self tests collect: [ :test | test format ] \ No newline at end of file diff --git a/packages/SwaLint-Core.package/SLDefaultDialog.class/instance/testMenu..st b/packages/SwaLint-Core.package/SLDefaultDialog.class/instance/testMenu..st deleted file mode 100644 index 5790a5fa..00000000 --- a/packages/SwaLint-Core.package/SLDefaultDialog.class/instance/testMenu..st +++ /dev/null @@ -1,20 +0,0 @@ -accessing-test -testMenu: aMenu - - ^ aMenu - title: 'Tests'; - addLine; - addLine; - add: 'Select all' action: #selectAllTests; - add: 'Select inversion' action: #selectInverseTests; - add: 'Select none' action: #selectNoTests; - addLine; - add: 'Filter...' action: #filterTests; - addLine; - add: 'Refresh' action: #updateTests; - addLine; - add: 'Save selection' action: #saveSelectionTests; - add: 'Load saved selection' action: #loadSelectionTests; - add: 'Load default profile: ''Fast''' action: #loadFastTests; - add: 'Load default profile: ''Full''' action: #loadFullTests; - yourself \ No newline at end of file diff --git a/packages/SwaLint-Core.package/SLDefaultDialog.class/instance/testMenu.shifted..st b/packages/SwaLint-Core.package/SLDefaultDialog.class/instance/testMenu.shifted..st new file mode 100644 index 00000000..edc45257 --- /dev/null +++ b/packages/SwaLint-Core.package/SLDefaultDialog.class/instance/testMenu.shifted..st @@ -0,0 +1,24 @@ +accessing-test +testMenu: aMenu shifted: shifted + + (shifted and: [self testSelected > 0]) ifTrue: + [aMenu + add: 'Browse' action: #browseTest; + addLine]. + ^ aMenu + title: 'Tests'; + addLine; + addLine; + add: 'Select all' action: #selectAllTests; + add: 'Select inversion' action: #selectInverseTests; + add: 'Select none' action: #selectNoTests; + addLine; + add: 'Filter...' action: #filterTests; + addLine; + add: 'Refresh' action: #updateTests; + addLine; + add: 'Save selection' action: #saveSelectionTests; + add: 'Load saved selection' action: #loadSelectionTests; + add: 'Load default profile: ''Fast''' action: #loadFastTests; + add: 'Load default profile: ''Full''' action: #loadFullTests; + yourself \ No newline at end of file diff --git a/packages/SwaLint-Core.package/SLDefaultDialog.class/instance/testSelected..st b/packages/SwaLint-Core.package/SLDefaultDialog.class/instance/testSelected..st index f2195857..435be5f1 100644 --- a/packages/SwaLint-Core.package/SLDefaultDialog.class/instance/testSelected..st +++ b/packages/SwaLint-Core.package/SLDefaultDialog.class/instance/testSelected..st @@ -2,4 +2,4 @@ accessing-test testSelected: anInteger testIndex := anInteger. - self changed: #testSelected; changed: #runnable. \ No newline at end of file + self changed: #testSelected; changed: #testDescription; changed: #runnable. \ No newline at end of file diff --git a/packages/SwaLint-Core.package/SLDefaultDialog.class/instance/testsSelected..st b/packages/SwaLint-Core.package/SLDefaultDialog.class/instance/testsSelected..st index d951f766..27467d9f 100644 --- a/packages/SwaLint-Core.package/SLDefaultDialog.class/instance/testsSelected..st +++ b/packages/SwaLint-Core.package/SLDefaultDialog.class/instance/testsSelected..st @@ -2,4 +2,4 @@ accessing testsSelected: aSet testsSelected := aSet. - self changed: #testSelected; changed: #runnable. \ No newline at end of file + self changed: #testsSelected; changed: #testAt:; changed: #runnable. \ No newline at end of file diff --git a/packages/SwaLint-Core.package/SLDefaultDialog.class/instance/update..st b/packages/SwaLint-Core.package/SLDefaultDialog.class/instance/update..st new file mode 100644 index 00000000..100d9549 --- /dev/null +++ b/packages/SwaLint-Core.package/SLDefaultDialog.class/instance/update..st @@ -0,0 +1,6 @@ +updating +update: aspect + + aspect == self testEnvironment ifTrue: + [self update]. + ^ super update: aspect \ No newline at end of file diff --git a/packages/SwaLint-Core.package/SLDefaultDialog.class/instance/updateCategories.st b/packages/SwaLint-Core.package/SLDefaultDialog.class/instance/updateCategories.st index c8188501..9a298f9f 100644 --- a/packages/SwaLint-Core.package/SLDefaultDialog.class/instance/updateCategories.st +++ b/packages/SwaLint-Core.package/SLDefaultDialog.class/instance/updateCategories.st @@ -1,5 +1,5 @@ updating updateCategories - categoriesSelected := categoriesSelected select: [ :each | self categories includes: each ]. - self changed: #categoryList; changed: #categorySelected. \ No newline at end of file + self categoriesSelected: + (self categoriesSelected select: [ :each | self categories includes: each ]). \ No newline at end of file diff --git a/packages/SwaLint-Core.package/SLDefaultDialog.class/instance/updateClasses.st b/packages/SwaLint-Core.package/SLDefaultDialog.class/instance/updateClasses.st index cdb22a9a..8b471b7e 100644 --- a/packages/SwaLint-Core.package/SLDefaultDialog.class/instance/updateClasses.st +++ b/packages/SwaLint-Core.package/SLDefaultDialog.class/instance/updateClasses.st @@ -4,6 +4,6 @@ updateClasses | classesForCategories | classesForCategories := self findClassesForSelectedCategories. classes := classesForCategories asArray sorted: [ :first :second | first name <= second name ]. - classIndex := 0. - classesSelected := classesSelected select: [ :each | classesForCategories includes: each ]. - self changed: #classList; changed: #classSelected; changed: #runnable. \ No newline at end of file + self classSelected: 0. + self classesSelected: (self classesSelected select: [ :each | classesForCategories includes: each ]). + self changed: #classList. \ No newline at end of file diff --git a/packages/SwaLint-Core.package/SLDefaultDialog.class/instance/updateTestCategories.st b/packages/SwaLint-Core.package/SLDefaultDialog.class/instance/updateTestCategories.st index 9912d54b..d8ad6f28 100644 --- a/packages/SwaLint-Core.package/SLDefaultDialog.class/instance/updateTestCategories.st +++ b/packages/SwaLint-Core.package/SLDefaultDialog.class/instance/updateTestCategories.st @@ -1,5 +1,5 @@ updating updateTestCategories - testCategoriesSelected := testCategoriesSelected select: [ :each | self testCategories includes: each ]. - self changed: #testCategories; changed: #testCategorySelected. \ No newline at end of file + self testCategoriesSelected: + (self testCategoriesSelected select: [ :each | self testCategories includes: each ]). \ No newline at end of file diff --git a/packages/SwaLint-Core.package/SLDefaultDialog.class/instance/updateTests.st b/packages/SwaLint-Core.package/SLDefaultDialog.class/instance/updateTests.st index 6fa12776..a6840eb4 100644 --- a/packages/SwaLint-Core.package/SLDefaultDialog.class/instance/updateTests.st +++ b/packages/SwaLint-Core.package/SLDefaultDialog.class/instance/updateTests.st @@ -3,7 +3,6 @@ updateTests | testsForCategories | testsForCategories := self findTestsForSelectedTestCategories. tests := testsForCategories sorted: [ :aTest :anotherTest | aTest name <= anotherTest name ]. - testIndex := 0. - testsSelected := testsSelected select: [ :each | testsForCategories includes: each ]. - descriptionCollection := descriptionCollection intersection: testsSelected. - self changed: #testList; changed: #testSelected; changed: #testDescription; changed: #runnable. \ No newline at end of file + self changed: #testList. + self testSelected: 0. + self testsSelected: (self testsSelected select: [ :each | testsForCategories includes: each ]). \ No newline at end of file diff --git a/packages/SwaLint-Core.package/SLDefaultDialog.class/instance/window.st b/packages/SwaLint-Core.package/SLDefaultDialog.class/instance/window.st deleted file mode 100644 index 923fed0a..00000000 --- a/packages/SwaLint-Core.package/SLDefaultDialog.class/instance/window.st +++ /dev/null @@ -1,3 +0,0 @@ -building -window - ^window \ No newline at end of file diff --git a/packages/SwaLint-Core.package/SLDefaultDialog.class/methodProperties.json b/packages/SwaLint-Core.package/SLDefaultDialog.class/methodProperties.json index b563af38..69a0fc94 100644 --- a/packages/SwaLint-Core.package/SLDefaultDialog.class/methodProperties.json +++ b/packages/SwaLint-Core.package/SLDefaultDialog.class/methodProperties.json @@ -1,8 +1,8 @@ { "class" : { "build" : "NA 7/2/2015 18:31", - "defaultFastSelectionTests" : "BD 6/29/2018 15:56", - "defaultFullSelectionTests" : "BD 6/29/2018 15:57", + "defaultFastSelectionTests" : "ct 1/5/2025 02:28", + "defaultFullSelectionTests" : "ct 1/5/2025 02:23", "lastSelectionTests" : "BD 6/29/2018 14:35", "lastSelectionTests:" : "BD 6/29/2018 15:55", "onEnvironment:" : "LG 7/5/2018 20:26", @@ -11,16 +11,18 @@ "saveTestsSelected:" : "BD 6/29/2018 14:37", "windowColorSpecification" : "NA 6/30/2015 13:23" }, "instance" : { - "autoLint" : "BD 7/6/2018 10:57", + "addModelItemsToWindowMenu:" : "ct 12/19/2024 23:21", + "autoLint" : "ct 12/20/2024 00:18", "browsable" : "NA 7/1/2015 17:05", + "browseTest" : "ct 12/20/2024 02:22", "buildButtonsWith:" : "fm 6/29/2018 03:17", "buildCategoriesWith:" : "NA 7/2/2015 18:28", "buildClassesWith:" : "NA 7/2/2015 18:28", "buildResultCountWith:" : "BD 7/6/2018 11:19", "buildTestCategoryListWith:" : "NA 7/14/2015 11:52", - "buildTestListWith:" : "NA 7/14/2015 11:52", + "buildTestListWith:" : "ct 12/20/2024 02:23", "buildWindowWith:" : "TS 7/8/2015 11:59", - "buildWith:" : "LS 7/13/2018 10:59", + "buildWith:" : "ct 12/20/2024 00:20", "buttonHeight" : "NA 6/30/2015 22:32", "buttons" : "LS 6/29/2018 16:07", "buttonsBottom" : "BD 6/17/2018 21:10", @@ -29,20 +31,22 @@ "buttonsOffsetTop" : "BD 6/29/2018 11:58", "buttonsRight" : "NA 6/30/2015 22:39", "buttonsTop" : "NA 6/30/2015 22:39", - "categories" : "NA 7/14/2015 11:57", + "categories" : "ct 12/22/2024 05:06", "categoriesFrame" : "BD 6/29/2018 12:49", "categoriesLeft" : "NA 6/30/2015 22:46", "categoriesOffsetBottom" : "BD 6/29/2018 11:58", "categoriesRight" : "NA 6/30/2015 23:02", + "categoriesSelected" : "ct 12/20/2024 00:06", + "categoriesSelected:" : "ct 12/17/2024 21:37", "categoriesTop" : "NA 6/30/2015 22:48", - "categoryAt:" : "NA 7/14/2015 12:11", - "categoryAt:put:" : "NA 7/17/2015 01:09", + "categoryAt:" : "ct 12/20/2024 00:10", + "categoryAt:put:" : "ct 12/22/2024 05:06", "categoryList" : "NA 7/14/2015 11:57", "categoryMenu:" : "BD 6/29/2018 14:27", "categorySelected" : "NA 6/30/2015 11:43", "categorySelected:" : "NA 6/30/2015 11:43", - "classAt:" : "NA 6/30/2015 14:59", - "classAt:put:" : "NA 6/30/2015 15:41", + "classAt:" : "ct 12/20/2024 00:10", + "classAt:put:" : "ct 12/20/2024 00:10", "classList" : "NA 7/29/2015 18:56", "classMenu:" : "NA 7/2/2015 18:29", "classSelected" : "NA 6/30/2015 11:50", @@ -50,76 +54,79 @@ "classes" : "NA 7/15/2015 10:58", "classesFrame" : "BD 6/29/2018 12:49", "classesRight" : "NA 6/30/2015 23:02", + "classesSelected" : "ct 12/20/2024 00:06", "classesSelected:" : "LS 7/13/2018 10:45", "classesTop" : "NA 6/30/2015 22:49", "close" : "NA 7/17/2015 00:35", "defaultBackgroundColor" : "NA 6/30/2015 11:58", "descriptionFrame" : "BD 6/29/2018 12:49", - "environment" : "NA 7/14/2015 10:56", - "environment:" : "NA 7/14/2015 10:55", - "filterCategories" : "NA 7/16/2015 11:21", - "filterClasses" : "BD 6/29/2018 12:34", - "filterTestCategories" : "BD 6/29/2018 12:34", - "filterTests" : "BD 6/29/2018 12:34", - "findClassesForSelectedCategories" : "NA 7/30/2015 14:37", - "findTestsForSelectedTestCategories" : "NA 7/30/2015 14:38", + "filterCategories" : "ct 12/20/2024 00:14", + "filterClasses" : "ct 12/20/2024 00:14", + "filterTestCategories" : "ct 12/13/2024 05:32", + "filterTests" : "ct 12/20/2024 00:15", + "findClassesForSelectedCategories" : "ct 1/5/2025 02:49", + "findTestsForSelectedTestCategories" : "ct 12/22/2024 05:06", "getCategoriesFor:" : "NA 7/17/2015 01:04", "initialExtent" : "BD 6/17/2018 21:14", "initialize" : "BD 7/13/2018 11:40", - "initializeInstanceVariables" : "NA 7/31/2015 01:15", + "initializeInstanceVariables" : "ct 12/13/2024 05:48", "loadFastTests" : "BD 6/29/2018 15:57", "loadFullTests" : "BD 6/29/2018 15:48", "loadSelectionTests" : "BD 6/29/2018 15:19", - "onEnvironment:" : "NA 7/30/2015 14:32", + "onEnvironment:" : "ct 12/22/2024 05:05", "open" : "NA 6/30/2015 11:55", "openConfigureDialog" : "NA 7/14/2015 11:43", "perform:orSendTo:" : "NA 7/2/2015 18:29", - "run" : "BD 7/6/2018 10:53", - "runnable" : "BD 6/17/2018 09:16", + "run" : "ct 12/22/2024 05:06", + "runnable" : "ct 12/20/2024 00:16", "saveSelectionTests" : "BD 6/29/2018 15:19", - "selectAllCategories" : "NA 7/16/2015 11:20", - "selectAllClasses" : "NA 7/16/2015 11:17", - "selectAllTestCategories" : "NA 7/16/2015 11:21", - "selectAllTests" : "NA 7/16/2015 11:21", + "selectAllCategories" : "ct 12/13/2024 05:29", + "selectAllClasses" : "ct 12/20/2024 00:13", + "selectAllTestCategories" : "ct 12/13/2024 05:33", + "selectAllTests" : "ct 12/13/2024 05:47", "selectByCategory" : "NA 7/17/2015 00:49", - "selectInverseCategories" : "NA 7/16/2015 11:20", - "selectInverseClasses" : "NA 7/16/2015 11:20", - "selectInverseTestCategories" : "NA 7/16/2015 11:22", - "selectInverseTests" : "NA 7/31/2015 01:31", - "selectNoCategories" : "NA 7/16/2015 11:20", + "selectInverseCategories" : "ct 12/20/2024 00:10", + "selectInverseClasses" : "ct 12/20/2024 00:12", + "selectInverseTestCategories" : "ct 12/20/2024 00:14", + "selectInverseTests" : "ct 12/13/2024 05:47", + "selectNoCategories" : "ct 12/13/2024 05:30", "selectNoClasses" : "NA 7/16/2015 11:17", - "selectNoTestCategories" : "NA 7/16/2015 11:22", - "selectNoTests" : "NA 7/31/2015 01:27", + "selectNoTestCategories" : "ct 12/13/2024 05:33", + "selectNoTests" : "ct 12/13/2024 05:47", "selectString" : "NA 7/17/2015 00:51", - "testAt:" : "NA 7/2/2015 18:30", - "testAt:put:" : "fm 6/29/2018 03:52", - "testCategories" : "NA 7/14/2015 10:57", + "testAt:" : "ct 12/20/2024 00:09", + "testAt:put:" : "ct 12/20/2024 00:15", + "testCategories" : "ct 12/22/2024 05:06", "testCategoriesBottom" : "BD 6/21/2018 16:29", "testCategoriesFrame" : "BD 6/29/2018 12:49", "testCategoriesRight" : "NA 6/30/2015 23:00", + "testCategoriesSelected" : "ct 12/20/2024 00:08", + "testCategoriesSelected:" : "ct 12/17/2024 21:38", "testCategoriesTop" : "NA 6/30/2015 22:59", - "testCategoryAt:" : "NA 7/2/2015 18:30", - "testCategoryAt:put:" : "NA 6/30/2015 11:51", + "testCategoryAt:" : "ct 12/20/2024 00:08", + "testCategoryAt:put:" : "ct 12/20/2024 00:09", "testCategoryList" : "NA 7/14/2015 11:53", "testCategoryMenu:" : "NA 7/2/2015 18:30", "testCategorySelected" : "NA 6/30/2015 11:52", "testCategorySelected:" : "NA 6/30/2015 11:52", - "testDescription" : "BD 6/29/2018 09:59", - "testList" : "NA 7/14/2015 11:53", - "testMenu:" : "BD 6/29/2018 15:57", + "testDescription" : "ct 12/19/2024 20:22", + "testEnvironment" : "ct 12/22/2024 05:04", + "testEnvironment:" : "ct 12/22/2024 05:05", + "testList" : "ct 12/20/2024 00:15", + "testMenu:shifted:" : "ct 12/20/2024 02:23", "testSelected" : "NA 6/30/2015 13:57", - "testSelected:" : "NA 6/30/2015 15:42", + "testSelected:" : "ct 12/13/2024 05:45", "tests" : "NA 6/30/2015 15:16", "testsBottom" : "BD 6/21/2018 16:28", "testsFrame" : "BD 6/29/2018 12:49", "testsSelected" : "BD 6/29/2018 14:40", - "testsSelected:" : "BD 6/29/2018 14:43", + "testsSelected:" : "ct 12/17/2024 21:37", "toggleCategorySelectionMethod" : "NA 7/17/2015 00:49", "update" : "fm 6/29/2018 03:24", - "updateCategories" : "NA 7/30/2015 14:38", - "updateClasses" : "fm 6/29/2018 03:50", - "updateTestCategories" : "NA 7/30/2015 14:36", - "updateTests" : "fm 6/29/2018 03:50", - "window" : "LS 7/13/2018 10:59", + "update:" : "ct 12/22/2024 05:06", + "updateCategories" : "ct 12/20/2024 00:10", + "updateClasses" : "ct 12/20/2024 00:13", + "updateTestCategories" : "ct 12/20/2024 00:14", + "updateTests" : "ct 12/17/2024 21:46", "windowIsClosing" : "NA 6/30/2015 11:59", "windowTitle" : "TS 7/8/2015 12:00" } } diff --git a/packages/SwaLint-Core.package/SLDefaultDialog.class/properties.json b/packages/SwaLint-Core.package/SLDefaultDialog.class/properties.json index 60188d46..6624a987 100644 --- a/packages/SwaLint-Core.package/SLDefaultDialog.class/properties.json +++ b/packages/SwaLint-Core.package/SLDefaultDialog.class/properties.json @@ -19,9 +19,7 @@ "testPattern", "testCategoryPattern", "environment", - "selectByCategory", - "descriptionCollection", - "window" ], + "selectByCategory" ], "name" : "SLDefaultDialog", "pools" : [ ], diff --git a/packages/SwaLint-Core.package/SLDefaultEnvironment.class/instance/fetchSystemClasses.st b/packages/SwaLint-Core.package/SLDefaultEnvironment.class/instance/fetchSystemClasses.st index 09360e53..7703147e 100644 --- a/packages/SwaLint-Core.package/SLDefaultEnvironment.class/instance/fetchSystemClasses.st +++ b/packages/SwaLint-Core.package/SLDefaultEnvironment.class/instance/fetchSystemClasses.st @@ -2,7 +2,7 @@ accessing fetchSystemClasses systemClasses := Dictionary new. - Smalltalk allClasses do: [ :aClass | + Smalltalk allClassesDo: [ :aClass | aClass category ifNotNil: [ (self category: aClass category) add: aClass name]]. \ No newline at end of file diff --git a/packages/SwaLint-Core.package/SLDefaultEnvironment.class/methodProperties.json b/packages/SwaLint-Core.package/SLDefaultEnvironment.class/methodProperties.json index 4ec1c7a3..8f881e43 100644 --- a/packages/SwaLint-Core.package/SLDefaultEnvironment.class/methodProperties.json +++ b/packages/SwaLint-Core.package/SLDefaultEnvironment.class/methodProperties.json @@ -2,7 +2,7 @@ "class" : { }, "instance" : { - "fetchSystemClasses" : "BD 6/16/2018 11:19", + "fetchSystemClasses" : "ct 12/13/2024 01:02", "initialize" : "NA 7/31/2015 18:56", "initializeInstanceVariables" : "NA 7/29/2015 16:27", "selectableTestCategories" : "NA 7/28/2015 13:16", diff --git a/packages/SwaLint-Core.package/SLEnvironment.class/instance/addPlugIn..st b/packages/SwaLint-Core.package/SLEnvironment.class/instance/addPlugIn..st index ad23c8a0..0498e3f3 100644 --- a/packages/SwaLint-Core.package/SLEnvironment.class/instance/addPlugIn..st +++ b/packages/SwaLint-Core.package/SLEnvironment.class/instance/addPlugIn..st @@ -2,11 +2,5 @@ SwaLint addPlugIn: aSLPlugInClass "Register all tests offered by the plug-in class." - aSLPlugInClass subclasses - do: [ :subclass | self addPlugIn: subclass] - displayingProgress: ('Loading ', aSLPlugInClass). - aSLPlugInClass offeredTests - do: [ :test | self addTest: test] - displayingProgress: [ :test | 'Loading Test:',test name]. - - SwaLint refreshAllDialogs. \ No newline at end of file + self basicAddPlugIn: aSLPlugInClass. + self changed: #plugIns. \ No newline at end of file diff --git a/packages/SwaLint-Core.package/SLEnvironment.class/instance/addTest.toCategory..st b/packages/SwaLint-Core.package/SLEnvironment.class/instance/addTest.toCategory..st index 4c8f345e..ee8e90a3 100644 --- a/packages/SwaLint-Core.package/SLEnvironment.class/instance/addTest.toCategory..st +++ b/packages/SwaLint-Core.package/SLEnvironment.class/instance/addTest.toCategory..st @@ -2,7 +2,7 @@ SwaLint addTest: aTestSymbol toCategory: aCategorySymbol "Associate a test and its category. If the debug mode is disabled, don't show the hidden category" - ((aCategorySymbol = SwaLint hiddenCategory) and: [SwaLint debug not]) ifFalse: [ + ((aCategorySymbol = SwaLint hiddenCategory) and: [SwaLint debugMode not]) ifFalse: [ | cat | cat := self testCategoryFor: aCategorySymbol. (cat includes: aTestSymbol) ifFalse: [cat add: aTestSymbol]]. \ No newline at end of file diff --git a/packages/SwaLint-Core.package/SLEnvironment.class/instance/basicAddPlugIn..st b/packages/SwaLint-Core.package/SLEnvironment.class/instance/basicAddPlugIn..st new file mode 100644 index 00000000..5cb4a134 --- /dev/null +++ b/packages/SwaLint-Core.package/SLEnvironment.class/instance/basicAddPlugIn..st @@ -0,0 +1,9 @@ +private +basicAddPlugIn: aSLPlugInClass + + aSLPlugInClass subclasses + do: [ :subclass | self basicAddPlugIn: subclass] + displayingProgress: ('Loading ', aSLPlugInClass). + aSLPlugInClass offeredTests + do: [ :test | self addTest: test] + displayingProgress: [ :test | 'Loading Test: ', test name]. \ No newline at end of file diff --git a/packages/SwaLint-Core.package/SLEnvironment.class/instance/basicRemovePlugIn..st b/packages/SwaLint-Core.package/SLEnvironment.class/instance/basicRemovePlugIn..st new file mode 100644 index 00000000..b3276ec2 --- /dev/null +++ b/packages/SwaLint-Core.package/SLEnvironment.class/instance/basicRemovePlugIn..st @@ -0,0 +1,6 @@ +private +basicRemovePlugIn: aSLPlugInClass + + aSLPlugInClass subclassesDo: [:subclass | self basicRemovePlugIn: subclass]. + aSLPlugInClass offeredTests do: [ :each | + self removeTest: each]. \ No newline at end of file diff --git a/packages/SwaLint-Core.package/SLEnvironment.class/instance/removePlugIn..st b/packages/SwaLint-Core.package/SLEnvironment.class/instance/removePlugIn..st index 5dd2deb2..dbbfd5ee 100644 --- a/packages/SwaLint-Core.package/SLEnvironment.class/instance/removePlugIn..st +++ b/packages/SwaLint-Core.package/SLEnvironment.class/instance/removePlugIn..st @@ -1,7 +1,5 @@ updating removePlugIn: aSLPlugInClass - aSLPlugInClass subclassesDo: [:subclass | self removePlugIn: subclass]. - aSLPlugInClass offeredTests do: [ :each | - self removeTest: each]. - SwaLint refreshAllDialogs. \ No newline at end of file + self basicRemovePlugIn: aSLPlugInClass. + self changed: #plugIns. \ No newline at end of file diff --git a/packages/SwaLint-Core.package/SLEnvironment.class/instance/try.catch..st b/packages/SwaLint-Core.package/SLEnvironment.class/instance/try.catch..st index cd273345..6e5d96c4 100644 --- a/packages/SwaLint-Core.package/SLEnvironment.class/instance/try.catch..st +++ b/packages/SwaLint-Core.package/SLEnvironment.class/instance/try.catch..st @@ -2,6 +2,6 @@ SwaLint try: aBlock catch: aExceptBlock "If the SwaLint debug mode is disabled, catch all errors." - ^ SwaLint debug + ^ SwaLint debugMode ifTrue: aBlock ifFalse: [aBlock on: Error do: aExceptBlock] \ No newline at end of file diff --git a/packages/SwaLint-Core.package/SLEnvironment.class/methodProperties.json b/packages/SwaLint-Core.package/SLEnvironment.class/methodProperties.json index ca7734ae..9a5f5666 100644 --- a/packages/SwaLint-Core.package/SLEnvironment.class/methodProperties.json +++ b/packages/SwaLint-Core.package/SLEnvironment.class/methodProperties.json @@ -2,9 +2,11 @@ "class" : { "dataFromEnvironment:" : "JTM 7/28/2015 10:45" }, "instance" : { - "addPlugIn:" : "NA 7/28/2015 13:06", + "addPlugIn:" : "ct 12/13/2024 01:00", "addTest:" : "NH 7/15/2015 22:41", - "addTest:toCategory:" : "JTM 7/22/2015 13:54", + "addTest:toCategory:" : "ct 1/4/2025 23:42", + "basicAddPlugIn:" : "ct 12/19/2024 22:39", + "basicRemovePlugIn:" : "ct 12/13/2024 00:57", "category:" : "AT 5/8/2008 09:32", "categoryDict" : "NA 7/29/2015 18:31", "categoryDict:" : "NH 7/15/2015 22:30", @@ -21,7 +23,7 @@ "loadDefaults" : "NA 7/31/2015 18:56", "packageForCategory:" : "AT 5/8/2008 09:32", "refresh" : "BD 7/13/2018 11:52", - "removePlugIn:" : "JTM 7/22/2015 14:40", + "removePlugIn:" : "ct 12/13/2024 01:00", "removeTest:" : "JTM 7/22/2015 14:41", "selectableClassCategories" : "AT 5/8/2008 09:32", "selectableTestCategories" : "NR 1/6/2008 17:16", @@ -40,6 +42,6 @@ "tests:" : "NA 7/28/2015 12:04", "testsAtCategory:" : "JTM 7/22/2015 12:20", "testsSelectedForTestRun" : "NR 1/25/2008 13:55", - "try:catch:" : "JTM 7/22/2015 13:54", + "try:catch:" : "ct 1/4/2025 23:42", "update:" : "topa 11/26/2012 19:34", "warnOfAlreadyExists:" : "JTM 7/22/2015 14:44" } } diff --git a/packages/SwaLint-Core.package/SLMethodTestObject.class/instance/source.withoutPattern.withoutComments.withoutStrings.withoutLiteralCharacters..st b/packages/SwaLint-Core.package/SLMethodTestObject.class/instance/source.withoutPattern.withoutComments.withoutStrings.withoutLiteralCharacters..st index e740db26..49738646 100644 --- a/packages/SwaLint-Core.package/SLMethodTestObject.class/instance/source.withoutPattern.withoutComments.withoutStrings.withoutLiteralCharacters..st +++ b/packages/SwaLint-Core.package/SLMethodTestObject.class/instance/source.withoutPattern.withoutComments.withoutStrings.withoutLiteralCharacters..st @@ -5,7 +5,11 @@ withoutComments: noComments withoutStrings: noStrings withoutLiteralCharacters: noCharacters " - Take a method source and remove the desired components. + Take a method source and remove the desired components, enabling simple parsing heuristics for analysis. (E.g., nested expressions can be counted more reliably if there are no irrelevant bracket characters in strings or comments.) + withoutPattern: only return method body + withoutComments: remove comments (including surrounding quotes) + withoutStrings: replace each literal string by empty string (to ensure valid syntax) + withoutCharacters: replace each literal character with $$ This probably can be expressed as a state machine-based parser, but this way, it is only 3..4 methods. " @@ -33,6 +37,6 @@ withoutLiteralCharacters: noCharacters ifTrue: [sourceStream next. stream nextPut: $$]. - (noComments & wasInComment) | (noStrings & inString) ifFalse: [ + (noComments & wasInComment) | (noStrings & wasInString & inString) ifFalse: [ (noComments and: [wasInComment ~~ inComment]) ifFalse: [stream nextPut: c]]]] \ No newline at end of file diff --git a/packages/SwaLint-Core.package/SLMethodTestObject.class/methodProperties.json b/packages/SwaLint-Core.package/SLMethodTestObject.class/methodProperties.json index 53973fa0..20137fad 100644 --- a/packages/SwaLint-Core.package/SLMethodTestObject.class/methodProperties.json +++ b/packages/SwaLint-Core.package/SLMethodTestObject.class/methodProperties.json @@ -18,7 +18,7 @@ "normalizedSource" : "topa 1/10/2015 11:56", "normalizedSourceLines" : "JTM 5/28/2015 15:31", "parseTree" : "AT 5/8/2008 09:37", - "source:withoutPattern:withoutComments:withoutStrings:withoutLiteralCharacters:" : "NA 7/2/2015 18:31", + "source:withoutPattern:withoutComments:withoutStrings:withoutLiteralCharacters:" : "ct 1/5/2025 01:03", "sourceCode" : "topa 1/9/2015 18:39", "sourceString" : "AT 5/8/2008 09:37", "startOfMethodBodyIn:" : "BD 6/29/2018 12:56", diff --git a/packages/SwaLint-Core.package/SLPlugIn.class/class/addNumericPreference.categories.default.balloonHelp..st b/packages/SwaLint-Core.package/SLPlugIn.class/class/addNumericPreference.categories.default.balloonHelp..st index 6969db83..e850e086 100644 --- a/packages/SwaLint-Core.package/SLPlugIn.class/class/addNumericPreference.categories.default.balloonHelp..st +++ b/packages/SwaLint-Core.package/SLPlugIn.class/class/addNumericPreference.categories.default.balloonHelp..st @@ -10,4 +10,4 @@ addNumericPreference: aName categories: categoryList default: aValue balloonHelp projectLocal: nil changeInformee: nil changeSelector: nil - type: #Numeric \ No newline at end of file + type: #Number \ No newline at end of file diff --git a/packages/SwaLint-Core.package/SLPlugIn.class/class/addPreference.categories.default.balloonHelp.projectLocal.changeInformee.changeSelector.type..st b/packages/SwaLint-Core.package/SLPlugIn.class/class/addPreference.categories.default.balloonHelp.projectLocal.changeInformee.changeSelector.type..st index fef1fd5f..d40ba2e0 100644 --- a/packages/SwaLint-Core.package/SLPlugIn.class/class/addPreference.categories.default.balloonHelp.projectLocal.changeInformee.changeSelector.type..st +++ b/packages/SwaLint-Core.package/SLPlugIn.class/class/addPreference.categories.default.balloonHelp.projectLocal.changeInformee.changeSelector.type..st @@ -18,4 +18,4 @@ type should be one of {#Boolean. #Numeric. #Color. #Font}" projectLocal: (localBoolean ifNil: [false]) changeInformee: (informeeSymbol "ifNil: [nil]") changeSelector: (aChangeSelector "ifNil: [nil]") - viewRegistry: (SLPreferences viewRegisteryFor: aSymbol). \ No newline at end of file + type: aSymbol. \ No newline at end of file diff --git a/packages/SwaLint-Core.package/SLPlugIn.class/class/addPreference.categories.default.balloonHelp.type..st b/packages/SwaLint-Core.package/SLPlugIn.class/class/addPreference.categories.default.balloonHelp.type..st deleted file mode 100644 index 2f0551d7..00000000 --- a/packages/SwaLint-Core.package/SLPlugIn.class/class/addPreference.categories.default.balloonHelp.type..st +++ /dev/null @@ -1,14 +0,0 @@ -preferences -addPreference: aName categories: categoryList default: aValue balloonHelp: helpString type: aSymbol -"Creates a new preference assigned to this plug in. -type should be one of {#Boolean. #Numeric. #Color. #Font}" - - self - addPreference: aName - categories: categoryList - default: aValue - balloonHelp: helpString - projectLocal: nil - changeInformee: nil - changeSelector: nil - type: aSymbol \ No newline at end of file diff --git a/packages/SwaLint-Core.package/SLPlugIn.class/class/addPreferences..st b/packages/SwaLint-Core.package/SLPlugIn.class/class/addPreferences..st deleted file mode 100644 index b7924c0f..00000000 --- a/packages/SwaLint-Core.package/SLPlugIn.class/class/addPreferences..st +++ /dev/null @@ -1,5 +0,0 @@ -preferences -addPreferences: preferences - - preferences do: [ :each | - self addPreferenceData: each] \ No newline at end of file diff --git a/packages/SwaLint-Core.package/SLPlugIn.class/class/browse..st b/packages/SwaLint-Core.package/SLPlugIn.class/class/browse..st new file mode 100644 index 00000000..b7545cb6 --- /dev/null +++ b/packages/SwaLint-Core.package/SLPlugIn.class/class/browse..st @@ -0,0 +1,4 @@ +browsing +browse: aTest + + ^ ToolSet browse: self selector: aTest method \ No newline at end of file diff --git a/packages/SwaLint-Core.package/SLPlugIn.class/class/initializePreferences.st b/packages/SwaLint-Core.package/SLPlugIn.class/class/initializePreferences.st index 8a58c813..31f6fb5b 100644 --- a/packages/SwaLint-Core.package/SLPlugIn.class/class/initializePreferences.st +++ b/packages/SwaLint-Core.package/SLPlugIn.class/class/initializePreferences.st @@ -1,5 +1,3 @@ preferences initializePreferences - "All plug-ins shall be able to reset its :=default:= preferences" - - SLPreferences initializePragmaPreferencesOf: (self class) \ No newline at end of file + "All plug-ins shall be able to reset its :=default:= preferences. Note that pragma preferences are initialized automatically." \ No newline at end of file diff --git a/packages/SwaLint-Core.package/SLPlugIn.class/class/removePreferences.st b/packages/SwaLint-Core.package/SLPlugIn.class/class/removePreferences.st index a7ea8385..63b25c35 100644 --- a/packages/SwaLint-Core.package/SLPlugIn.class/class/removePreferences.st +++ b/packages/SwaLint-Core.package/SLPlugIn.class/class/removePreferences.st @@ -1,4 +1,2 @@ preferences -removePreferences - - SLPreferences removePragmaPreferencesOf: (self class) \ No newline at end of file +removePreferences \ No newline at end of file diff --git a/packages/SwaLint-Core.package/SLPlugIn.class/instance/hasPreference..st b/packages/SwaLint-Core.package/SLPlugIn.class/instance/hasPreference..st index a5bd0f83..c2881381 100644 --- a/packages/SwaLint-Core.package/SLPlugIn.class/instance/hasPreference..st +++ b/packages/SwaLint-Core.package/SLPlugIn.class/instance/hasPreference..st @@ -1,5 +1,4 @@ preferences hasPreference: aSymbol - SLPreferences preferenceAt: aSymbol ifAbsent: [^false]. - ^ true \ No newline at end of file + ^ SLPlugIn withAllSubclasses anySatisfy: [:plugInClass | plugInClass respondsTo: aSymbol] \ No newline at end of file diff --git a/packages/SwaLint-Core.package/SLPlugIn.class/instance/preference..st b/packages/SwaLint-Core.package/SLPlugIn.class/instance/preference..st index 6477d1da..d7b9dcf1 100644 --- a/packages/SwaLint-Core.package/SLPlugIn.class/instance/preference..st +++ b/packages/SwaLint-Core.package/SLPlugIn.class/instance/preference..st @@ -1,4 +1,6 @@ preferences preference: aSymbol - ^ (SLPreferences preferenceAt: aSymbol) preferenceValue \ No newline at end of file + ^ (SLPlugIn withAllSubclasses + detect: [:plugInClass | plugInClass respondsTo: aSymbol]) + perform: aSymbol \ No newline at end of file diff --git a/packages/SwaLint-Core.package/SLPlugIn.class/methodProperties.json b/packages/SwaLint-Core.package/SLPlugIn.class/methodProperties.json index ceb7edf8..34c05acd 100644 --- a/packages/SwaLint-Core.package/SLPlugIn.class/methodProperties.json +++ b/packages/SwaLint-Core.package/SLPlugIn.class/methodProperties.json @@ -1,14 +1,13 @@ { "class" : { "addBooleanPreference:categories:default:balloonHelp:" : "AT 5/23/2008 23:30", - "addNumericPreference:categories:default:balloonHelp:" : "AT 5/23/2008 23:30", - "addPreference:categories:default:balloonHelp:projectLocal:changeInformee:changeSelector:type:" : "MT 7/23/2014 21:49", - "addPreference:categories:default:balloonHelp:type:" : "AT 5/23/2008 23:30", + "addNumericPreference:categories:default:balloonHelp:" : "ct 12/20/2024 00:43", + "addPreference:categories:default:balloonHelp:projectLocal:changeInformee:changeSelector:type:" : "ct 12/13/2024 03:40", "addPreferenceData:" : "AT 5/19/2008 12:19", - "addPreferences:" : "AT 5/19/2008 11:14", + "browse:" : "ct 12/18/2024 22:11", "defaultCategory" : "AT 5/8/2008 10:05", "initialize" : "AT 1/22/2008 11:50", - "initializePreferences" : "MT 7/23/2014 21:50", + "initializePreferences" : "ct 12/13/2024 04:58", "install" : "JTM 7/29/2015 13:52", "isInstalled" : "AT 5/23/2008 23:50", "isTestPragma:" : "BD 7/13/2018 11:56", @@ -16,7 +15,7 @@ "onInstall" : "AT 5/27/2008 15:40", "onUnload" : "AT 5/27/2008 15:43", "reinstall" : "NRe 5/27/2008 00:13", - "removePreferences" : "MT 7/23/2014 21:51", + "removePreferences" : "ct 12/13/2024 04:59", "reset" : "topa 2/7/2008 23:08", "showUnsolvedDependenciesInfo" : "AT 5/27/2008 15:04", "uninstall" : "NRe 5/27/2008 10:29", @@ -32,7 +31,7 @@ "fewManyResult:" : "AT 5/10/2008 00:03", "fewManySummaryResult:summarizing:" : "topa 4/22/2010 17:18", "fewManySummaryResult:summarizing:condition:" : "topa 4/22/2010 17:17", - "hasPreference:" : "NA 7/2/2015 18:30", + "hasPreference:" : "ct 1/5/2025 00:02", "highLowResult:withThresholdFor:" : "topa 1/9/2015 20:13", "ifResult:do:" : "AT 5/17/2008 16:55", "integerResult:" : "NH 7/1/2015 10:46", @@ -45,7 +44,7 @@ "numericResult:withThresholdFor:" : "topa 1/9/2015 20:16", "percentageResult:" : "AT 5/8/2008 10:02", "percentageResult:withThresholdFor:" : "AT 5/8/2008 10:02", - "preference:" : "topa 1/9/2015 19:35", + "preference:" : "ct 1/5/2025 00:02", "prepareForTests:onTestSystem:" : "AT 1/28/2008 22:41", "result:" : "AT 5/26/2008 16:05", "run:or:ifResult:" : "AT 2/5/2008 21:52", diff --git a/packages/SwaLint-Core.package/SLResult.class/instance/asString.st b/packages/SwaLint-Core.package/SLResult.class/instance/asString.st deleted file mode 100644 index 4e498403..00000000 --- a/packages/SwaLint-Core.package/SLResult.class/instance/asString.st +++ /dev/null @@ -1,4 +0,0 @@ -displaying -asString - - ^ super asString, '(', self valueAsString,')' \ No newline at end of file diff --git a/packages/SwaLint-Core.package/SLResult.class/instance/isResultListDummy.st b/packages/SwaLint-Core.package/SLResult.class/instance/isResultListDummy.st new file mode 100644 index 00000000..38014600 --- /dev/null +++ b/packages/SwaLint-Core.package/SLResult.class/instance/isResultListDummy.st @@ -0,0 +1,4 @@ +testing +isResultListDummy + + ^ false \ No newline at end of file diff --git a/packages/SwaLint-Core.package/SLResult.class/methodProperties.json b/packages/SwaLint-Core.package/SLResult.class/methodProperties.json index 94b481f3..a48a8ec0 100644 --- a/packages/SwaLint-Core.package/SLResult.class/methodProperties.json +++ b/packages/SwaLint-Core.package/SLResult.class/methodProperties.json @@ -14,7 +14,6 @@ "instance" : { "=" : "NA 7/16/2015 12:38", "applyColorRule:" : "NA 7/16/2015 15:31", - "asString" : "AT 5/8/2008 10:07", "cacheColor" : "topa 4/19/2010 10:09", "cacheValueAsString" : "AT 5/26/2008 23:54", "colorBlack" : "AT 5/17/2008 16:46", @@ -42,6 +41,7 @@ "initializeShowRule" : "AT 2/2/2008 12:12", "isError" : "AT 5/8/2008 10:07", "isNumeric" : "BD 7/8/2018 10:53", + "isResultListDummy" : "ct 12/22/2024 04:42", "isSLResult" : "AT 5/17/2008 16:53", "isSummary" : "AT 5/8/2008 10:07", "printOn:" : "BD 6/29/2018 12:57", diff --git a/packages/SwaLint-Core.package/SLResultDialog.class/instance/addClassSummaryResult.toMessageList..st b/packages/SwaLint-Core.package/SLResultDialog.class/instance/addClassSummaryResult.toMessageList..st new file mode 100644 index 00000000..85b410f0 --- /dev/null +++ b/packages/SwaLint-Core.package/SLResultDialog.class/instance/addClassSummaryResult.toMessageList..st @@ -0,0 +1,24 @@ +browsing +addClassSummaryResult: aSLSummaryResult toMessageList: aSet + + | class | + class := aSLSummaryResult testObject testObject. + + aSLSummaryResult testObject instanceMethods do: [ :method | + aSLSummaryResult selectForSummary: method ifTrue: [ + aSet add: (MethodReference + class: class + selector: method methodSelector)]]. + + aSLSummaryResult testObject classMethods do: [ :method | + aSLSummaryResult selectForSummary: method ifTrue: [ + aSet add: (MethodReference + class: class theMetaClass + selector: method methodSelector)]]. + + (aSLSummaryResult testObject variables anySatisfy: [ :variable | + aSLSummaryResult selectForSummary: variable ]) + ifTrue: [ + aSet add: (MethodReference + class: class + selector: #Definition)]. \ No newline at end of file diff --git a/packages/SwaLint-Core.package/SLResultDialog.class/instance/addResult.toMessageList..st b/packages/SwaLint-Core.package/SLResultDialog.class/instance/addResult.toMessageList..st index 15516718..30e573ab 100644 --- a/packages/SwaLint-Core.package/SLResultDialog.class/instance/addResult.toMessageList..st +++ b/packages/SwaLint-Core.package/SLResultDialog.class/instance/addResult.toMessageList..st @@ -3,7 +3,7 @@ addResult: aResultObject toMessageList: aSet aResultObject testObject ifMethod: [ aSet add: (MethodReference - class: aResultObject testObject parent testObject + class: aResultObject testObject testObjectClass selector: aResultObject testObject methodSelector)]. aResultObject testObject ifClass: [ aSet add: (MethodReference diff --git a/packages/SwaLint-Core.package/SLResultDialog.class/instance/addSummaryResult.toEnvironment..st b/packages/SwaLint-Core.package/SLResultDialog.class/instance/addSummaryResult.toEnvironment..st index 3e8b9a2c..61ea1463 100644 --- a/packages/SwaLint-Core.package/SLResultDialog.class/instance/addSummaryResult.toEnvironment..st +++ b/packages/SwaLint-Core.package/SLResultDialog.class/instance/addSummaryResult.toEnvironment..st @@ -1,7 +1,8 @@ browsing -addSummaryResult: aSLSummaryResult toEnvironment: anEnvironment +addSummaryResult: aSLSummaryResult toEnvironment: anEnvironment | class | + self flag: #todo "update". class := aSLSummaryResult testObject testObject. aSLSummaryResult testObject instanceMethods do: [ :method | @@ -13,5 +14,5 @@ addSummaryResult: aSLSummaryResult toEnvironment: anEnvironment aSLSummaryResult testObject classMethods do: [ :method | aSLSummaryResult selectForSummary: method ifTrue: [ anEnvironment - addClass: class class + addClass: class theMetaClass selector: method methodSelector]]. \ No newline at end of file diff --git a/packages/SwaLint-Core.package/SLResultDialog.class/instance/addSummaryResult.toMessageList..st b/packages/SwaLint-Core.package/SLResultDialog.class/instance/addSummaryResult.toMessageList..st index 4a48baed..9ee4bfdf 100644 --- a/packages/SwaLint-Core.package/SLResultDialog.class/instance/addSummaryResult.toMessageList..st +++ b/packages/SwaLint-Core.package/SLResultDialog.class/instance/addSummaryResult.toMessageList..st @@ -1,17 +1,7 @@ browsing addSummaryResult: aSLSummaryResult toMessageList: aSet - - | class | - class := aSLSummaryResult testObject testObject. - - aSLSummaryResult testObject instanceMethods do: [ :method | - aSLSummaryResult selectForSummary: method ifTrue: [ - aSet add: (MethodReference - class: class - selector: method methodSelector)]]. - aSLSummaryResult testObject classMethods do: [ :method | - aSLSummaryResult selectForSummary: method ifTrue: [ - aSet add: (MethodReference - class: class class - selector: method methodSelector)]]. \ No newline at end of file + aSLSummaryResult testObject isSystem ifTrue: [ + ^ self addSystemSummaryResult: aSLSummaryResult toMessageList: aSet]. + + ^ self addClassSummaryResult: aSLSummaryResult toMessageList: aSet \ No newline at end of file diff --git a/packages/SwaLint-Core.package/SLResultDialog.class/instance/addSystemSummaryResult.toMessageList..st b/packages/SwaLint-Core.package/SLResultDialog.class/instance/addSystemSummaryResult.toMessageList..st new file mode 100644 index 00000000..753f7ee5 --- /dev/null +++ b/packages/SwaLint-Core.package/SLResultDialog.class/instance/addSystemSummaryResult.toMessageList..st @@ -0,0 +1,15 @@ +browsing +addSystemSummaryResult: aSLSummaryResult toMessageList: aSet + + aSLSummaryResult testObject allClasses do: [ :each | + aSLSummaryResult selectForSummary: each ifTrue: [ + aSet add: (MethodReference + class: each testObject + selector: #Definition)]]. + + aSLSummaryResult testObject categories do: [ :category | + aSLSummaryResult selectForSummary: category ifTrue: [ + aSet addAll: (category classes collect: [ :each | + MethodReference + class: each testObject + selector: #Definition ])]]. \ No newline at end of file diff --git a/packages/SwaLint-Core.package/SLResultDialog.class/instance/browsable.st b/packages/SwaLint-Core.package/SLResultDialog.class/instance/browsable.st index 754e0add..6964b157 100644 --- a/packages/SwaLint-Core.package/SLResultDialog.class/instance/browsable.st +++ b/packages/SwaLint-Core.package/SLResultDialog.class/instance/browsable.st @@ -1,4 +1,4 @@ browsing browsable - ^ resultsSelected notEmpty \ No newline at end of file + ^ self resultsSelected notEmpty \ No newline at end of file diff --git a/packages/SwaLint-Core.package/SLResultDialog.class/instance/buildOverviewPyramidWith..st b/packages/SwaLint-Core.package/SLResultDialog.class/instance/buildOverviewPyramidWith..st new file mode 100644 index 00000000..7ae42a10 --- /dev/null +++ b/packages/SwaLint-Core.package/SLResultDialog.class/instance/buildOverviewPyramidWith..st @@ -0,0 +1,11 @@ +building +buildOverviewPyramidWith: aBuilder + + | overviewResults pyramid | + overviewResults := self getOverviewPyramidResults ifNil: [^ nil]. + pyramid := OverviewPyramidMorph newWithResults: overviewResults. + + ^ aBuilder pluggableScrollPaneSpec new + name: self overviewPyramidScrollPaneName; + morph: (pyramid asContainerWithPadding: 20 px); + yourself \ No newline at end of file diff --git a/packages/SwaLint-Core.package/SLResultDialog.class/instance/buildResultsListForMorphicWith..st b/packages/SwaLint-Core.package/SLResultDialog.class/instance/buildResultsListForMorphicWith..st index 7b5ecc6d..87d5d777 100644 --- a/packages/SwaLint-Core.package/SLResultDialog.class/instance/buildResultsListForMorphicWith..st +++ b/packages/SwaLint-Core.package/SLResultDialog.class/instance/buildResultsListForMorphicWith..st @@ -1,21 +1,10 @@ building buildResultsListForMorphicWith: aBuilder - ^ resultPanel := aBuilder pluggablePanelSpec new + ^ aBuilder pluggablePanelSpec new + name: #resultsPanel; frame: self resultsFrame; - children: ({ - (self buildResultsListWith: aBuilder) - frame: self resultsFrameInPanel; - yourself}); - yourself - - "This is commented out to prevent the dialog from showing the , atm, broken pyramid." - "aBuilder pluggableScrollPaneSpec new - name: self overviewPyramidScrollPaneName; - frame: (self overviewPyramidScrollFrame); - children: ({ - aBuilder pluggablePanelSpec new - name: self resultsPanelName; - frame: (self overviewPyramidFrame); - yourself.}); - yourself" \ No newline at end of file + wantsResizeHandles: true; + model: self; + children: #buildResultsListMorphs; + yourself \ No newline at end of file diff --git a/packages/SwaLint-Core.package/SLResultDialog.class/instance/buildResultsListMorphs.st b/packages/SwaLint-Core.package/SLResultDialog.class/instance/buildResultsListMorphs.st new file mode 100644 index 00000000..0a615f08 --- /dev/null +++ b/packages/SwaLint-Core.package/SLResultDialog.class/instance/buildResultsListMorphs.st @@ -0,0 +1,13 @@ +building +buildResultsListMorphs + + | builder specs | + builder := Project uiManager toolBuilder. + specs := self buildResultsListMorphsWith: builder. + specs withIndexDo: [:spec :index | + spec frame: + (LayoutFrame fullFrame + leftFraction: index - 1 / specs size; + rightFraction: index / specs size; + yourself)]. + ^ specs collect: [:each | each buildWith: builder] \ No newline at end of file diff --git a/packages/SwaLint-Core.package/SLResultDialog.class/instance/buildResultsListMorphsWith..st b/packages/SwaLint-Core.package/SLResultDialog.class/instance/buildResultsListMorphsWith..st new file mode 100644 index 00000000..87f62fc4 --- /dev/null +++ b/packages/SwaLint-Core.package/SLResultDialog.class/instance/buildResultsListMorphsWith..st @@ -0,0 +1,9 @@ +building +buildResultsListMorphsWith: aBuilder + + ^ Array streamContents: [:stream | + stream nextPut: + (self buildResultsListWith: aBuilder). + self isOrderedByTests ifFalse: [ + (self buildOverviewPyramidWith: aBuilder) ifNotNil: [:pyramid | + stream nextPut: pyramid]]] \ No newline at end of file diff --git a/packages/SwaLint-Core.package/SLResultDialog.class/instance/buildWith..st b/packages/SwaLint-Core.package/SLResultDialog.class/instance/buildWith..st index a6084b6f..564f3721 100644 --- a/packages/SwaLint-Core.package/SLResultDialog.class/instance/buildWith..st +++ b/packages/SwaLint-Core.package/SLResultDialog.class/instance/buildWith..st @@ -1,6 +1,7 @@ building buildWith: aBuilder - | window tool | + + | window | window := self buildWindowWith: aBuilder specs:{ self buttonsFrame -> [self buildButtonsWith: aBuilder]. self categoriesFrame -> [self buildCategoriesWith: aBuilder]. @@ -9,8 +10,4 @@ buildWith: aBuilder self testsFrame -> [self buildTestListWith: aBuilder]. self resultsFrame -> [self buildResultsWith: aBuilder]}. - tool := aBuilder build: window. - - "Smalltalk isMorphic - ifTrue: [ self createOverviewPyramidMorph: tool ]." - ^ tool \ No newline at end of file + ^ aBuilder build: window \ No newline at end of file diff --git a/packages/SwaLint-Core.package/SLResultDialog.class/instance/categoryAt.put..st b/packages/SwaLint-Core.package/SLResultDialog.class/instance/categoryAt.put..st index 8ad83a51..02d468cf 100644 --- a/packages/SwaLint-Core.package/SLResultDialog.class/instance/categoryAt.put..st +++ b/packages/SwaLint-Core.package/SLResultDialog.class/instance/categoryAt.put..st @@ -2,14 +2,15 @@ accessing-categories categoryAt: anInteger put: aBoolean | target | target := self categories at: anInteger ifAbsent: [^ self]. - self selectByCategory - ifTrue: [categoriesSelected := aBoolean - ifTrue: [ categoriesSelected copyWith: target ] - ifFalse: [ categoriesSelected copyWithout: target ]] - ifFalse: [| categoryList package | - package := self environment packageForCategory: (target testObject). - categoryList := (self getCategoriesFor: package) select: [ :each | self categories includes: each]. - categoriesSelected := aBoolean - ifTrue: [ categoriesSelected, categoryList ] - ifFalse: [ categoriesSelected copyWithoutAll: categoryList ]]. - self changed: #categorySelected; updateClasses; updateResults. \ No newline at end of file + self categoriesSelected: + (self selectByCategory + ifTrue: [aBoolean + ifTrue: [ self categoriesSelected copyWith: target ] + ifFalse: [ self categoriesSelected copyWithout: target ]] + ifFalse: [| categoryList package | + package := self testEnvironment packageForCategory: (target testObject). + categoryList := (self getCategoriesFor: package) select: [ :each | self categories includes: each]. + aBoolean + ifTrue: [ self categoriesSelected, categoryList ] + ifFalse: [ self categoriesSelected copyWithoutAll: categoryList ]]). + self updateResults. \ No newline at end of file diff --git a/packages/SwaLint-Core.package/SLResultDialog.class/instance/createOverviewPyramidMorph..st b/packages/SwaLint-Core.package/SLResultDialog.class/instance/createOverviewPyramidMorph..st deleted file mode 100644 index 5a618546..00000000 --- a/packages/SwaLint-Core.package/SLResultDialog.class/instance/createOverviewPyramidMorph..st +++ /dev/null @@ -1,8 +0,0 @@ -overview-pyramid -createOverviewPyramidMorph: aTool - - | overviewResults | - overviewResults := self getOverviewPyramidResults. - overviewResults isNil - ifFalse: [ self createOverviewPyramidMorphWith: overviewResults and: aTool ] - ifTrue: [ self hideOverviewPyramid ] \ No newline at end of file diff --git a/packages/SwaLint-Core.package/SLResultDialog.class/instance/createOverviewPyramidMorphWith.and..st b/packages/SwaLint-Core.package/SLResultDialog.class/instance/createOverviewPyramidMorphWith.and..st deleted file mode 100644 index 6e538588..00000000 --- a/packages/SwaLint-Core.package/SLResultDialog.class/instance/createOverviewPyramidMorphWith.and..st +++ /dev/null @@ -1,10 +0,0 @@ -overview-pyramid -createOverviewPyramidMorphWith: aDictionary and: aTool - - overviewpyramidMorph := OverviewPyramidMorph newWithResults: aDictionary. - (((aTool submorphNamed: self overviewPyramidScrollPaneName) submorphs at: 3) - submorphNamed: self resultsPanelName) - addMorph: overviewpyramidMorph. - self isOrderedByTests - ifTrue: [ self hideOverviewPyramid ] - ifFalse: [ self showOverviewPyramid ] \ No newline at end of file diff --git a/packages/SwaLint-Core.package/SLResultDialog.class/instance/fetchAllTestObjects.st b/packages/SwaLint-Core.package/SLResultDialog.class/instance/fetchAllTestObjects.st index eb078be9..d0b1ce57 100644 --- a/packages/SwaLint-Core.package/SLResultDialog.class/instance/fetchAllTestObjects.st +++ b/packages/SwaLint-Core.package/SLResultDialog.class/instance/fetchAllTestObjects.st @@ -2,10 +2,10 @@ updating fetchAllTestObjects "Fetches System- and CategoryTestObjects as well as all selected ClassTestObjects " | allTestObjects | - allTestObjects := OrderedCollection new - addAll: (self environment testSystem children); - add: (self environment testSystem); + allTestObjects := Set new + addAll: (self testEnvironment testSystem children); + add: (self testEnvironment testSystem); yourself. - classesSelected do: [ :each | allTestObjects addAll: (self fetchChildTestObjectsFrom: each)]. + self classesSelected do: [ :each | allTestObjects addAll: (self fetchChildTestObjectsFrom: each)]. ^ allTestObjects \ No newline at end of file diff --git a/packages/SwaLint-Core.package/SLResultDialog.class/instance/fetchChildTestObjectsFrom..st b/packages/SwaLint-Core.package/SLResultDialog.class/instance/fetchChildTestObjectsFrom..st index df17cb50..caf7e38e 100644 --- a/packages/SwaLint-Core.package/SLResultDialog.class/instance/fetchChildTestObjectsFrom..st +++ b/packages/SwaLint-Core.package/SLResultDialog.class/instance/fetchChildTestObjectsFrom..st @@ -2,7 +2,7 @@ updating fetchChildTestObjectsFrom: aSLTestObject | result | - result := OrderedCollection new. + result := Set new. result add: aSLTestObject. aSLTestObject children do: [ :each | result addAll: (self fetchChildTestObjectsFrom: each)]. diff --git a/packages/SwaLint-Core.package/SLResultDialog.class/instance/findClassesForSelectedCategories.st b/packages/SwaLint-Core.package/SLResultDialog.class/instance/findClassesForSelectedCategories.st index 20c38cb6..75d4b6c5 100644 --- a/packages/SwaLint-Core.package/SLResultDialog.class/instance/findClassesForSelectedCategories.st +++ b/packages/SwaLint-Core.package/SLResultDialog.class/instance/findClassesForSelectedCategories.st @@ -2,11 +2,12 @@ updating findClassesForSelectedCategories | items chosenClasses | - categoriesSelected isEmpty ifTrue: [ ^ Set new ]. - items := categoriesSelected gather: [ :category | + self categoriesSelected isEmpty ifTrue: [ ^ Set new ]. + items := (self categoriesSelected gather: [ :category | ((Smalltalk organization listAtCategoryNamed: (category name)) - collect: [ :each | Smalltalk at: each ])]. - chosenClasses := self environment classes. + collect: [ :each | Smalltalk at: each ])]) + asSet. + chosenClasses := self testEnvironment classes. chosenClasses := chosenClasses select: [:each | items includes: each testObject]. ^ chosenClasses \ No newline at end of file diff --git a/packages/SwaLint-Core.package/SLResultDialog.class/instance/findResults.st b/packages/SwaLint-Core.package/SLResultDialog.class/instance/findResults.st index 27b5f25e..e060232e 100644 --- a/packages/SwaLint-Core.package/SLResultDialog.class/instance/findResults.st +++ b/packages/SwaLint-Core.package/SLResultDialog.class/instance/findResults.st @@ -5,9 +5,9 @@ findResults allTestObjects := self fetchAllTestObjects. resultsDict := Dictionary new. - self environment results do: [ :each | + self testEnvironment results do: [ :each | ((allTestObjects includes: (each testObject)) - and: [testsSelected anySatisfy: [ :testData | testData symbol = each testData symbol]]) + and: [self testsSelected anySatisfy: [ :testData | testData symbol = each testData symbol]]) ifTrue: [self addEntry: each to: resultsDict]]. ^ self buildListFrom: resultsDict \ No newline at end of file diff --git a/packages/SwaLint-Core.package/SLResultDialog.class/instance/findTestsForSelectedTestCategories.st b/packages/SwaLint-Core.package/SLResultDialog.class/instance/findTestsForSelectedTestCategories.st index 87485b4d..b1f3ffea 100644 --- a/packages/SwaLint-Core.package/SLResultDialog.class/instance/findTestsForSelectedTestCategories.st +++ b/packages/SwaLint-Core.package/SLResultDialog.class/instance/findTestsForSelectedTestCategories.st @@ -2,9 +2,9 @@ updating findTestsForSelectedTestCategories | items chosenTests | - testCategoriesSelected isEmpty ifTrue: [ ^ OrderedCollection new ]. - chosenTests := self environment ifNil: [Set new] ifNotNil: [self environment tests]. - items := testCategoriesSelected gather: [ :category | self environment testsAtCategory: category ]. + self testCategoriesSelected ifEmpty: [ ^ OrderedCollection new ]. + chosenTests := self testEnvironment ifNil: [Set new] ifNotNil: [self testEnvironment tests]. + items := self testCategoriesSelected gather: [ :category | self testEnvironment testsAtCategory: category ]. items := items select: [ :each | (chosenTests collect: [ :test | test format]) includes: each format ]. ^ items asOrderedCollection \ No newline at end of file diff --git a/packages/SwaLint-Core.package/SLResultDialog.class/instance/getOverviewPyramidResults.st b/packages/SwaLint-Core.package/SLResultDialog.class/instance/getOverviewPyramidResults.st index 6141a603..34cf1775 100644 --- a/packages/SwaLint-Core.package/SLResultDialog.class/instance/getOverviewPyramidResults.st +++ b/packages/SwaLint-Core.package/SLResultDialog.class/instance/getOverviewPyramidResults.st @@ -7,4 +7,4 @@ getOverviewPyramidResults [(each isMemberOf: SLErrorResult) ifFalse: [(each result notNil)] ifTrue: [false]]] - ifNone: SLResult new) result \ No newline at end of file + ifNone: [SLResult new]) result \ No newline at end of file diff --git a/packages/SwaLint-Core.package/SLResultDialog.class/instance/hideOverviewPyramid.st b/packages/SwaLint-Core.package/SLResultDialog.class/instance/hideOverviewPyramid.st deleted file mode 100644 index b13d0c88..00000000 --- a/packages/SwaLint-Core.package/SLResultDialog.class/instance/hideOverviewPyramid.st +++ /dev/null @@ -1,6 +0,0 @@ -building -hideOverviewPyramid - - | resultListPanel | - resultListPanel := self resultPanel children first. - resultListPanel frame rightFraction: 1 offset: 0. \ No newline at end of file diff --git a/packages/SwaLint-Core.package/SLResultDialog.class/instance/messageListForResults.st b/packages/SwaLint-Core.package/SLResultDialog.class/instance/messageListForResults.st index e81f4df3..490e894f 100644 --- a/packages/SwaLint-Core.package/SLResultDialog.class/instance/messageListForResults.st +++ b/packages/SwaLint-Core.package/SLResultDialog.class/instance/messageListForResults.st @@ -4,7 +4,7 @@ messageListForResults System Navigation calls it Message List. ToolSet calls it MessageSet. " - ^ resultsSelected + ^ self resultsSelected inject: Set new into: [:messages :result | result isSummary diff --git a/packages/SwaLint-Core.package/SLResultDialog.class/instance/overviewPyramidFrame.st b/packages/SwaLint-Core.package/SLResultDialog.class/instance/overviewPyramidFrame.st deleted file mode 100644 index b2640869..00000000 --- a/packages/SwaLint-Core.package/SLResultDialog.class/instance/overviewPyramidFrame.st +++ /dev/null @@ -1,9 +0,0 @@ -building -overviewPyramidFrame - - ^ LayoutFrame new - leftFraction: 0 offset: 0; - topFraction: 0 offset: 0; - rightFraction: 9 offset: 0; - bottomFraction: 5.0 offset: 0; - yourself \ No newline at end of file diff --git a/packages/SwaLint-Core.package/SLResultDialog.class/instance/overviewPyramidIsSelected.st b/packages/SwaLint-Core.package/SLResultDialog.class/instance/overviewPyramidIsSelected.st deleted file mode 100644 index 23997bdb..00000000 --- a/packages/SwaLint-Core.package/SLResultDialog.class/instance/overviewPyramidIsSelected.st +++ /dev/null @@ -1,4 +0,0 @@ -accessing -overviewPyramidIsSelected - - ^ testsSelected contains: [ :each | each symbol = #overviewPyramidMetric: ] diff --git a/packages/SwaLint-Core.package/SLResultDialog.class/instance/overviewPyramidScrollFrame.st b/packages/SwaLint-Core.package/SLResultDialog.class/instance/overviewPyramidScrollFrame.st deleted file mode 100644 index e790df41..00000000 --- a/packages/SwaLint-Core.package/SLResultDialog.class/instance/overviewPyramidScrollFrame.st +++ /dev/null @@ -1,5 +0,0 @@ -building -overviewPyramidScrollFrame - - ^ LayoutFrame - fractions: (0.5 @ 0 corner: 1 @ 1) \ No newline at end of file diff --git a/packages/SwaLint-Core.package/SLResultDialog.class/instance/resultAt..st b/packages/SwaLint-Core.package/SLResultDialog.class/instance/resultAt..st index 5854f17c..43d4713c 100644 --- a/packages/SwaLint-Core.package/SLResultDialog.class/instance/resultAt..st +++ b/packages/SwaLint-Core.package/SLResultDialog.class/instance/resultAt..st @@ -1,4 +1,4 @@ accessing-results resultAt: anIndex - ^ resultsSelected includes: (self results at: anIndex ifAbsent: [ ^ false ]) \ No newline at end of file + ^ self resultsSelected includes: (self results at: anIndex ifAbsent: [ ^ false ]) \ No newline at end of file diff --git a/packages/SwaLint-Core.package/SLResultDialog.class/instance/resultAt.put..st b/packages/SwaLint-Core.package/SLResultDialog.class/instance/resultAt.put..st index 45015036..b32b769b 100644 --- a/packages/SwaLint-Core.package/SLResultDialog.class/instance/resultAt.put..st +++ b/packages/SwaLint-Core.package/SLResultDialog.class/instance/resultAt.put..st @@ -3,15 +3,31 @@ resultAt: anInteger put: aBoolean | target | target := self results at: anInteger ifAbsent: [^ self]. + target isResultListDummy ifTrue: [ + "group selection" + | end group select | + end := (self results findFirst: [ :ea | ea isResultListDummy ] startingAt: anInteger + 1) - 1. + end < 1 ifTrue: [end := self results size]. + group := self results copyFrom: anInteger + 1 to: end. + select := (self resultsSelected includesAllOf: group) not. + ^ self resultsSelected: + (select + ifTrue: [ + self isMultiSelectable + ifTrue: [ self resultsSelected , group ] + ifFalse: [ + group ifEmpty: [^ self]. + self resultsSelected copyWith: group first] ] + ifFalse: [ + self resultsSelected copyWithoutAll: group ]) ]. target hasDetails ifTrue: [ - resultsSelected := self isMultiSelectable - ifTrue: [ - aBoolean - ifTrue: [ resultsSelected copyWith: target ] - ifFalse: [ resultsSelected copyWithout: target ]] - ifFalse: [ - aBoolean - ifTrue: [IdentitySet new add: target; yourself] - ifFalse: [IdentitySet new]]]. - - self changed: #browsable. \ No newline at end of file + self resultsSelected: + (self isMultiSelectable + ifTrue: [ + aBoolean + ifTrue: [ self resultsSelected copyWith: target ] + ifFalse: [ self resultsSelected copyWithout: target ]] + ifFalse: [ + aBoolean + ifTrue: [IdentitySet new add: target; yourself] + ifFalse: [IdentitySet new]])]. \ No newline at end of file diff --git a/packages/SwaLint-Core.package/SLResultDialog.class/instance/resultDialogLabelFor..st b/packages/SwaLint-Core.package/SLResultDialog.class/instance/resultDialogLabelFor..st index 2d5fdbd1..e64a9be7 100644 --- a/packages/SwaLint-Core.package/SLResultDialog.class/instance/resultDialogLabelFor..st +++ b/packages/SwaLint-Core.package/SLResultDialog.class/instance/resultDialogLabelFor..st @@ -4,4 +4,4 @@ resultDialogLabelFor: aSet ^ (aSet size > 1 ifTrue: ['Issues for selected tests on selected objects'] ifFalse: ['Issues for "', aSet anyOne name, '" on selected objects']), - ' (', self environment timeString, ')' \ No newline at end of file + ' (', self testEnvironment timeString, ')' \ No newline at end of file diff --git a/packages/SwaLint-Core.package/SLResultDialog.class/instance/resultPanel.st b/packages/SwaLint-Core.package/SLResultDialog.class/instance/resultPanel.st deleted file mode 100644 index c6a34c8e..00000000 --- a/packages/SwaLint-Core.package/SLResultDialog.class/instance/resultPanel.st +++ /dev/null @@ -1,4 +0,0 @@ -building -resultPanel - - ^ resultPanel \ No newline at end of file diff --git a/packages/SwaLint-Core.package/SLResultDialog.class/instance/resultSelected..st b/packages/SwaLint-Core.package/SLResultDialog.class/instance/resultSelected..st index 2fa623b9..8ad7130c 100644 --- a/packages/SwaLint-Core.package/SLResultDialog.class/instance/resultSelected..st +++ b/packages/SwaLint-Core.package/SLResultDialog.class/instance/resultSelected..st @@ -1,4 +1,5 @@ accessing-results resultSelected: anInteger + resultIndex := anInteger. self changed: #resultSelected; changed: #browsable. \ No newline at end of file diff --git a/packages/SwaLint-Core.package/SLResultDialog.class/instance/resultSelected.st b/packages/SwaLint-Core.package/SLResultDialog.class/instance/resultSelected.st index 6e703d78..5734fe67 100644 --- a/packages/SwaLint-Core.package/SLResultDialog.class/instance/resultSelected.st +++ b/packages/SwaLint-Core.package/SLResultDialog.class/instance/resultSelected.st @@ -1,4 +1,4 @@ accessing-results resultSelected - ^ 0 \ No newline at end of file + ^ resultIndex \ No newline at end of file diff --git a/packages/SwaLint-Core.package/SLResultDialog.class/instance/resultsFrameInPanel.st b/packages/SwaLint-Core.package/SLResultDialog.class/instance/resultsFrameInPanel.st deleted file mode 100644 index c75b7ddd..00000000 --- a/packages/SwaLint-Core.package/SLResultDialog.class/instance/resultsFrameInPanel.st +++ /dev/null @@ -1,9 +0,0 @@ -building -resultsFrameInPanel - - ^ LayoutFrame new - leftFraction: 0 offset: 0; - topFraction: 0 offset: 0; - rightFraction: 1 offset: 0; - bottomFraction: 1 offset: 0; - yourself \ No newline at end of file diff --git a/packages/SwaLint-Core.package/SLResultDialog.class/instance/resultsPanelName.st b/packages/SwaLint-Core.package/SLResultDialog.class/instance/resultsPanelName.st deleted file mode 100644 index 9255ffe5..00000000 --- a/packages/SwaLint-Core.package/SLResultDialog.class/instance/resultsPanelName.st +++ /dev/null @@ -1,4 +0,0 @@ -building -resultsPanelName - - ^ 'SwaLintResultsPanelForMorphic' \ No newline at end of file diff --git a/packages/SwaLint-Core.package/SLResultDialog.class/instance/resultsSelected..st b/packages/SwaLint-Core.package/SLResultDialog.class/instance/resultsSelected..st new file mode 100644 index 00000000..f2ec89c5 --- /dev/null +++ b/packages/SwaLint-Core.package/SLResultDialog.class/instance/resultsSelected..st @@ -0,0 +1,5 @@ +accessing-results +resultsSelected: anIdentitySet + + resultsSelected := anIdentitySet. + self changed: #resultAt:; changed: #browsable. \ No newline at end of file diff --git a/packages/SwaLint-Core.package/SLResultDialog.class/instance/resultsSelected.st b/packages/SwaLint-Core.package/SLResultDialog.class/instance/resultsSelected.st new file mode 100644 index 00000000..1216c8ad --- /dev/null +++ b/packages/SwaLint-Core.package/SLResultDialog.class/instance/resultsSelected.st @@ -0,0 +1,4 @@ +accessing-results +resultsSelected + + ^ resultsSelected \ No newline at end of file diff --git a/packages/SwaLint-Core.package/SLResultDialog.class/instance/run.st b/packages/SwaLint-Core.package/SLResultDialog.class/instance/run.st index 7eb41e82..71f76bdb 100644 --- a/packages/SwaLint-Core.package/SLResultDialog.class/instance/run.st +++ b/packages/SwaLint-Core.package/SLResultDialog.class/instance/run.st @@ -3,5 +3,5 @@ run self runnable ifFalse: [^ self]. self class onEnvironment: - (SLTestRunner onEnvironment: self environment). + (SLTestRunner onEnvironment: self testEnvironment). self close. \ No newline at end of file diff --git a/packages/SwaLint-Core.package/SLResultDialog.class/instance/selectAllResults.st b/packages/SwaLint-Core.package/SLResultDialog.class/instance/selectAllResults.st index 7e6797fd..866530d0 100644 --- a/packages/SwaLint-Core.package/SLResultDialog.class/instance/selectAllResults.st +++ b/packages/SwaLint-Core.package/SLResultDialog.class/instance/selectAllResults.st @@ -2,5 +2,5 @@ accessing-results selectAllResults self isMultiSelectable ifTrue: [ - resultsSelected := (self results select: [:each | each hasDetails]) asIdentitySet. + self resultsSelected: (self results select: [:each | each hasDetails]) asIdentitySet. self changed: #resultSelected; update.] \ No newline at end of file diff --git a/packages/SwaLint-Core.package/SLResultDialog.class/instance/selectNoResults.st b/packages/SwaLint-Core.package/SLResultDialog.class/instance/selectNoResults.st index 90a445e0..a03efe64 100644 --- a/packages/SwaLint-Core.package/SLResultDialog.class/instance/selectNoResults.st +++ b/packages/SwaLint-Core.package/SLResultDialog.class/instance/selectNoResults.st @@ -3,5 +3,5 @@ selectNoResults "Fixed to update all selections now that the selection invalidation has been optimised." - resultsSelected := IdentitySet new. + self resultsSelected: IdentitySet new. self changed: #resultSelected; update. \ No newline at end of file diff --git a/packages/SwaLint-Core.package/SLResultDialog.class/instance/selectorEnvironmentForResults.st b/packages/SwaLint-Core.package/SLResultDialog.class/instance/selectorEnvironmentForResults.st index 7ed40bda..b789d1e8 100644 --- a/packages/SwaLint-Core.package/SLResultDialog.class/instance/selectorEnvironmentForResults.st +++ b/packages/SwaLint-Core.package/SLResultDialog.class/instance/selectorEnvironmentForResults.st @@ -7,12 +7,12 @@ selectorEnvironmentForResults ifAbsent: [Smalltalk at: #RBSelectorEnvironment]) new. selectedTests := Set new. - resultsSelected do: [ :result | + self resultsSelected do: [ :result | result hasDetails ifTrue: [ result isSummary ifTrue: [self addSummaryResult: result toEnvironment: environment] ifFalse: [self addResult: result toEnvironment: environment]. selectedTests add: result testData]]. - environment label: ((self resultDialogLabelFor: selectedTests), ' (', self environment timeString, ')'). + environment label: ((self resultDialogLabelFor: selectedTests), ' (', self testEnvironment timeString, ')'). ^ environment \ No newline at end of file diff --git a/packages/SwaLint-Core.package/SLResultDialog.class/instance/showOverviewPyramid.st b/packages/SwaLint-Core.package/SLResultDialog.class/instance/showOverviewPyramid.st deleted file mode 100644 index 0f0cb742..00000000 --- a/packages/SwaLint-Core.package/SLResultDialog.class/instance/showOverviewPyramid.st +++ /dev/null @@ -1,6 +0,0 @@ -building -showOverviewPyramid - - | resultListPanel | - resultListPanel := self resultPanel children first. - resultListPanel frame rightFraction: 0.5 offset: 0. \ No newline at end of file diff --git a/packages/SwaLint-Core.package/SLResultDialog.class/instance/testAt.put..st b/packages/SwaLint-Core.package/SLResultDialog.class/instance/testAt.put..st deleted file mode 100644 index 5e22ed18..00000000 --- a/packages/SwaLint-Core.package/SLResultDialog.class/instance/testAt.put..st +++ /dev/null @@ -1,5 +0,0 @@ -inheritance -testAt: anInteger put: aBoolean - - super testAt: anInteger put: aBoolean. - self updateResults. \ No newline at end of file diff --git a/packages/SwaLint-Core.package/SLResultDialog.class/instance/testCategoriesSelected..st b/packages/SwaLint-Core.package/SLResultDialog.class/instance/testCategoriesSelected..st new file mode 100644 index 00000000..1af9f582 --- /dev/null +++ b/packages/SwaLint-Core.package/SLResultDialog.class/instance/testCategoriesSelected..st @@ -0,0 +1,5 @@ +inheritance +testCategoriesSelected: aSet + + super testCategoriesSelected: aSet. + self updateResults. \ No newline at end of file diff --git a/packages/SwaLint-Core.package/SLResultDialog.class/instance/testCategoryAt.put..st b/packages/SwaLint-Core.package/SLResultDialog.class/instance/testCategoryAt.put..st deleted file mode 100644 index 7f0d850d..00000000 --- a/packages/SwaLint-Core.package/SLResultDialog.class/instance/testCategoryAt.put..st +++ /dev/null @@ -1,5 +0,0 @@ -inheritance -testCategoryAt: anInteger put: aBoolean - - super testCategoryAt: anInteger put: aBoolean. - self updateResults. \ No newline at end of file diff --git a/packages/SwaLint-Core.package/SLResultDialog.class/instance/testsSelected..st b/packages/SwaLint-Core.package/SLResultDialog.class/instance/testsSelected..st new file mode 100644 index 00000000..a03f5c1f --- /dev/null +++ b/packages/SwaLint-Core.package/SLResultDialog.class/instance/testsSelected..st @@ -0,0 +1,5 @@ +inheritance +testsSelected: aSet + + super testsSelected: aSet. + self updateResults. \ No newline at end of file diff --git a/packages/SwaLint-Core.package/SLResultDialog.class/instance/toggleResultView.st b/packages/SwaLint-Core.package/SLResultDialog.class/instance/toggleResultView.st index 863f040c..95187b15 100644 --- a/packages/SwaLint-Core.package/SLResultDialog.class/instance/toggleResultView.st +++ b/packages/SwaLint-Core.package/SLResultDialog.class/instance/toggleResultView.st @@ -1,6 +1,4 @@ accessing toggleResultView - (Smalltalk isMorphic and: self overviewPyramidIsSelected and: self isOrderedByTests not) - ifTrue: [ self showOverviewPyramid ] - ifFalse: [ self hideOverviewPyramid ]. \ No newline at end of file + self changed: #buildResultsListMorphs. \ No newline at end of file diff --git a/packages/SwaLint-Core.package/SLResultDialog.class/instance/updateResults.st b/packages/SwaLint-Core.package/SLResultDialog.class/instance/updateResults.st index ab654192..d1b2462b 100644 --- a/packages/SwaLint-Core.package/SLResultDialog.class/instance/updateResults.st +++ b/packages/SwaLint-Core.package/SLResultDialog.class/instance/updateResults.st @@ -2,5 +2,6 @@ updating updateResults results := self findResults. - resultsSelected := resultsSelected select: [ :each | self results includes: each ]. + self resultsSelected: (self resultsSelected select: [ :each | self results includes: each ]). + self resultSelected: 0. self changed: #resultList; changed: #results; changed: #resultSelected. diff --git a/packages/SwaLint-Core.package/SLResultDialog.class/methodProperties.json b/packages/SwaLint-Core.package/SLResultDialog.class/methodProperties.json index 368831a2..8066b60b 100644 --- a/packages/SwaLint-Core.package/SLResultDialog.class/methodProperties.json +++ b/packages/SwaLint-Core.package/SLResultDialog.class/methodProperties.json @@ -8,78 +8,75 @@ "open" : "NA 7/1/2015 11:30", "windowColorSpecification" : "NA 7/1/2015 10:21" }, "instance" : { + "addClassSummaryResult:toMessageList:" : "ct 12/22/2024 02:15", "addEntry:to:" : "NA 7/29/2015 18:02", "addResult:toEnvironment:" : "NA 7/2/2015 14:33", - "addResult:toMessageList:" : "NA 7/2/2015 14:37", + "addResult:toMessageList:" : "ct 1/5/2025 02:58", "addResultDictionaryEntryFor:at:with:and:" : "NA 7/29/2015 17:52", - "addSummaryResult:toEnvironment:" : "NA 7/2/2015 14:32", - "addSummaryResult:toMessageList:" : "NA 7/2/2015 14:36", - "browsable" : "NA 7/15/2015 16:11", + "addSummaryResult:toEnvironment:" : "ct 12/22/2024 02:16", + "addSummaryResult:toMessageList:" : "ct 12/19/2024 20:18", + "addSystemSummaryResult:toMessageList:" : "ct 12/19/2024 20:18", + "browsable" : "ct 12/22/2024 04:40", "browseSelection" : "NA 7/2/2015 14:39", "buildListFrom:" : "NA 7/29/2015 18:16", - "buildResultsListForMorphicWith:" : "BD 6/29/2018 12:53", + "buildOverviewPyramidWith:" : "ct 12/21/2024 20:03", + "buildResultsListForMorphicWith:" : "ct 12/21/2024 19:32", + "buildResultsListMorphs" : "ct 12/21/2024 19:39", + "buildResultsListMorphsWith:" : "ct 12/21/2024 19:35", "buildResultsListWith:" : "NH 7/22/2015 10:28", "buildResultsWith:" : "NA 7/31/2015 20:37", - "buildWith:" : "BD 6/16/2018 12:59", + "buildWith:" : "ct 12/21/2024 20:13", "buttons" : "NA 7/31/2015 13:49", "categoriesBottom" : "NA 7/1/2015 11:44", "categoriesFrame" : "BD 6/29/2018 12:53", - "categoryAt:put:" : "NA 7/21/2015 16:46", + "categoryAt:put:" : "ct 12/22/2024 05:06", "categoryList" : "NA 7/14/2015 11:56", "changeResultOrdering" : "BD 7/13/2018 11:49", "changeSelection" : "NA 7/2/2015 10:14", "classAt:put:" : "NA 7/2/2015 19:29", "classList" : "NA 7/15/2015 11:18", "classesFrame" : "BD 6/29/2018 12:53", - "createOverviewPyramidMorph:" : "BD 6/29/2018 12:21", - "createOverviewPyramidMorphWith:and:" : "NA 7/31/2015 21:57", - "fetchAllTestObjects" : "NA 7/30/2015 13:21", - "fetchChildTestObjectsFrom:" : "BD 7/13/2018 11:50", - "findClassesForSelectedCategories" : "BD 7/13/2018 11:49", - "findResults" : "BD 6/29/2018 12:37", - "findTestsForSelectedTestCategories" : "BD 7/13/2018 11:50", + "fetchAllTestObjects" : "ct 1/5/2025 02:52", + "fetchChildTestObjectsFrom:" : "ct 1/5/2025 03:32", + "findClassesForSelectedCategories" : "ct 1/5/2025 02:44", + "findResults" : "ct 12/22/2024 05:07", + "findTestsForSelectedTestCategories" : "ct 12/22/2024 05:08", "getCategoriesFor:" : "NA 7/21/2015 15:40", - "getOverviewPyramidResults" : "NA 7/31/2015 21:57", - "hideOverviewPyramid" : "BD 6/29/2018 12:21", + "getOverviewPyramidResults" : "ct 12/20/2024 02:36", "iconAt:" : "NA 7/16/2015 18:11", "initializeInstanceVariables" : "NA 7/30/2015 16:33", "isMultiSelectable" : "NA 7/30/2015 14:43", "isOrderedByTests" : "NA 7/30/2015 14:43", - "messageListForResults" : "NA 7/16/2015 10:45", + "messageListForResults" : "ct 12/22/2024 04:40", "onEnvironment:" : "BD 7/13/2018 11:43", "orderButtonString" : "NA 7/30/2015 14:45", "orderBySymbol" : "NA 7/2/2015 13:27", - "overviewPyramidFrame" : "BD 6/29/2018 12:54", - "overviewPyramidIsSelected" : "TS 7/29/2015 11:27", - "overviewPyramidScrollFrame" : "BD 7/13/2018 11:42", "overviewPyramidScrollPaneName" : "NH 7/22/2015 14:04", - "resultAt:" : "NA 7/2/2015 13:45", - "resultAt:put:" : "BD 7/13/2018 11:50", - "resultDialogLabelFor:" : "NA 7/15/2015 16:17", + "resultAt:" : "ct 12/22/2024 04:40", + "resultAt:put:" : "ct 12/22/2024 05:01", + "resultDialogLabelFor:" : "ct 12/22/2024 05:07", "resultList" : "NH 7/8/2015 10:06", "resultMenu:" : "NA 7/2/2015 18:29", - "resultPanel" : "NH 7/22/2015 11:08", - "resultSelected" : "BD 7/13/2018 11:42", - "resultSelected:" : "NA 7/16/2015 12:48", + "resultSelected" : "ct 12/21/2024 18:58", + "resultSelected:" : "ct 12/21/2024 18:58", "results" : "BD 7/13/2018 11:44", "resultsBrowserForSelection" : "NA 7/2/2015 14:30", "resultsFrame" : "BD 6/29/2018 12:54", - "resultsFrameInPanel" : "BD 6/29/2018 12:54", - "resultsPanelName" : "TS 7/8/2015 11:59", - "run" : "BD 6/29/2018 12:58", + "resultsSelected" : "ct 12/22/2024 04:39", + "resultsSelected:" : "ct 12/22/2024 04:56", + "run" : "ct 12/22/2024 05:07", "runnable" : "NA 7/1/2015 14:38", - "selectAllResults" : "NA 7/16/2015 12:46", - "selectNoResults" : "NA 7/16/2015 12:47", + "selectAllResults" : "ct 12/22/2024 04:40", + "selectNoResults" : "ct 12/22/2024 04:40", "selectionButtonString" : "NA 7/30/2015 14:46", - "selectorEnvironmentForResults" : "BD 7/13/2018 11:51", - "showOverviewPyramid" : "BD 6/29/2018 12:22", - "testAt:put:" : "NA 7/2/2015 19:29", + "selectorEnvironmentForResults" : "ct 12/22/2024 05:07", "testCategoriesBottom" : "NA 7/1/2015 11:44", - "testCategoryAt:put:" : "NA 7/2/2015 19:30", + "testCategoriesSelected:" : "ct 12/22/2024 01:35", "testsFrame" : "BD 6/29/2018 12:54", + "testsSelected:" : "ct 12/22/2024 01:35", "toggleResultOrdering" : "NA 7/2/2015 10:13", - "toggleResultView" : "NH 7/22/2015 12:09", + "toggleResultView" : "ct 12/21/2024 18:59", "toggleSelection" : "NA 7/2/2015 10:13", "update" : "NA 7/21/2015 16:31", - "updateResults" : "NA 7/30/2015 14:41", + "updateResults" : "ct 12/22/2024 04:41", "windowTitle" : "TS 7/8/2015 12:00" } } diff --git a/packages/SwaLint-Core.package/SLResultDialog.class/properties.json b/packages/SwaLint-Core.package/SLResultDialog.class/properties.json index 8ff5c214..6bbfbf7a 100644 --- a/packages/SwaLint-Core.package/SLResultDialog.class/properties.json +++ b/packages/SwaLint-Core.package/SLResultDialog.class/properties.json @@ -10,9 +10,7 @@ "isOrderedByTests", "results", "resultsSelected", - "mainMorph", - "resultPanel", - "overviewpyramidMorph" ], + "resultIndex" ], "name" : "SLResultDialog", "pools" : [ ], diff --git a/packages/SwaLint-Core.package/SLResultListDummy.class/instance/isResultListDummy.st b/packages/SwaLint-Core.package/SLResultListDummy.class/instance/isResultListDummy.st new file mode 100644 index 00000000..11268ec3 --- /dev/null +++ b/packages/SwaLint-Core.package/SLResultListDummy.class/instance/isResultListDummy.st @@ -0,0 +1,4 @@ +testing +isResultListDummy + + ^ true \ No newline at end of file diff --git a/packages/SwaLint-Core.package/SLResultListDummy.class/methodProperties.json b/packages/SwaLint-Core.package/SLResultListDummy.class/methodProperties.json index 726faa71..aec08d6b 100644 --- a/packages/SwaLint-Core.package/SLResultListDummy.class/methodProperties.json +++ b/packages/SwaLint-Core.package/SLResultListDummy.class/methodProperties.json @@ -8,5 +8,6 @@ "format:" : "NA 7/28/2015 12:13", "hash" : "NA 7/2/2015 14:28", "icon" : "NA 7/16/2015 18:13", + "isResultListDummy" : "ct 12/22/2024 04:42", "noResultText" : "AT 5/22/2008 15:23", "result" : "AT 5/8/2008 10:09" } } diff --git a/packages/SwaLint-Core.package/SLSummaryResult.class/instance/formatAsSummary.st b/packages/SwaLint-Core.package/SLSummaryResult.class/instance/formatAsSummary.st index c8814c31..6b3dee0d 100644 --- a/packages/SwaLint-Core.package/SLSummaryResult.class/instance/formatAsSummary.st +++ b/packages/SwaLint-Core.package/SLSummaryResult.class/instance/formatAsSummary.st @@ -2,5 +2,9 @@ displaying formatAsSummary self valueFormatRule: [ :v | - v rounded asString, - ' occurence', ((v = 1) ifTrue: [''] ifFalse: ['s'])]. \ No newline at end of file + | format | + format := v rounded asString, + ' occurence', ((v = 1) ifTrue: [''] ifFalse: ['s']). + (self testObject variables select: [:variable | self selectForSummary: variable]) ifNotEmpty: [:variables | + format := format , (' ({1})' format: {(variables collect: #variable) asCommaStringAnd})]. + format]. \ No newline at end of file diff --git a/packages/SwaLint-Core.package/SLSummaryResult.class/instance/hasDetails.st b/packages/SwaLint-Core.package/SLSummaryResult.class/instance/hasDetails.st new file mode 100644 index 00000000..eae79950 --- /dev/null +++ b/packages/SwaLint-Core.package/SLSummaryResult.class/instance/hasDetails.st @@ -0,0 +1,4 @@ +accessing +hasDetails + + ^ true \ No newline at end of file diff --git a/packages/SwaLint-Core.package/SLSummaryResult.class/instance/selectForSummary..st b/packages/SwaLint-Core.package/SLSummaryResult.class/instance/selectForSummary..st index c6a74865..7ede8c7d 100644 --- a/packages/SwaLint-Core.package/SLSummaryResult.class/instance/selectForSummary..st +++ b/packages/SwaLint-Core.package/SLSummaryResult.class/instance/selectForSummary..st @@ -2,4 +2,11 @@ summarizing selectForSummary: aSLTestObject ^ self summarizingCondition value: - (aSLTestObject resultOf: self summarizedTest) \ No newline at end of file + ([aSLTestObject resultOf: self summarizedTest] + on: SLTestError do: [:ex | + (ex exception isKindOf: SLWrongTypeError) ifFalse: [ex pass]. + self flag: #revisit. "now that summary results may summarize different types of test objects, asking for summarizing the wrong ones for a test will lead to wrong type errors" + ^ false] + on: SLTestError do: [:ex | + "also this is now possible when something assumes the wrong type..." + ^ false]) \ No newline at end of file diff --git a/packages/SwaLint-Core.package/SLSummaryResult.class/methodProperties.json b/packages/SwaLint-Core.package/SLSummaryResult.class/methodProperties.json index 81f6c91f..b8bf148d 100644 --- a/packages/SwaLint-Core.package/SLSummaryResult.class/methodProperties.json +++ b/packages/SwaLint-Core.package/SLSummaryResult.class/methodProperties.json @@ -6,12 +6,13 @@ "instance" : { "condition:" : "AT 2/2/2008 11:24", "defaultCondition" : "AT 5/8/2008 12:21", - "formatAsSummary" : "NR 1/28/2008 14:25", + "formatAsSummary" : "ct 12/21/2024 19:50", + "hasDetails" : "ct 12/19/2024 04:41", "initializeFormatRule" : "AT 2/2/2008 12:13", "initializeShowRule" : "AT 2/2/2008 12:13", "isNumeric" : "BD 7/8/2018 10:54", "isSummary" : "AT 5/8/2008 12:21", - "selectForSummary:" : "AT 5/8/2008 12:21", + "selectForSummary:" : "ct 12/19/2024 21:00", "selectForSummary:ifTrue:" : "AT 2/2/2008 11:32", "showOnlyIfHit" : "AT 1/19/2008 18:31", "summarizedTest" : "AT 5/8/2008 12:21", diff --git a/packages/SwaLint-Core.package/SLTestAutoRunner.class/instance/buildWith..st b/packages/SwaLint-Core.package/SLTestAutoRunner.class/instance/buildWith..st index 99635b8d..508c422c 100644 --- a/packages/SwaLint-Core.package/SLTestAutoRunner.class/instance/buildWith..st +++ b/packages/SwaLint-Core.package/SLTestAutoRunner.class/instance/buildWith..st @@ -7,6 +7,4 @@ buildWith: aBuilder self resultsFrame -> [self buildResultCountWith: aBuilder]. }. windowSpec closeAction: #close. - self window: (aBuilder build: windowSpec). - - ^ self window \ No newline at end of file + ^ aBuilder build: windowSpec \ No newline at end of file diff --git a/packages/SwaLint-Core.package/SLTestAutoRunner.class/instance/close.st b/packages/SwaLint-Core.package/SLTestAutoRunner.class/instance/close.st index abfafb8a..47ecdfad 100644 --- a/packages/SwaLint-Core.package/SLTestAutoRunner.class/instance/close.st +++ b/packages/SwaLint-Core.package/SLTestAutoRunner.class/instance/close.st @@ -3,7 +3,7 @@ close self lintingEnabled: false; - environment: nil; + testEnvironment: nil; classesSelected: nil; testsSelected: nil. diff --git a/packages/SwaLint-Core.package/SLTestAutoRunner.class/instance/createEnvironment.st b/packages/SwaLint-Core.package/SLTestAutoRunner.class/instance/createEnvironment.st index 6491738b..a397d3a0 100644 --- a/packages/SwaLint-Core.package/SLTestAutoRunner.class/instance/createEnvironment.st +++ b/packages/SwaLint-Core.package/SLTestAutoRunner.class/instance/createEnvironment.st @@ -1,4 +1,4 @@ private createEnvironment - self environment: SLDefaultEnvironment new. \ No newline at end of file + self testEnvironment: SLDefaultEnvironment new. \ No newline at end of file diff --git a/packages/SwaLint-Core.package/SLTestAutoRunner.class/instance/environment..st b/packages/SwaLint-Core.package/SLTestAutoRunner.class/instance/environment..st deleted file mode 100644 index 2ed5fd1b..00000000 --- a/packages/SwaLint-Core.package/SLTestAutoRunner.class/instance/environment..st +++ /dev/null @@ -1,4 +0,0 @@ -accessing -environment: anObject - - environment := anObject \ No newline at end of file diff --git a/packages/SwaLint-Core.package/SLTestAutoRunner.class/instance/environment.st b/packages/SwaLint-Core.package/SLTestAutoRunner.class/instance/environment.st deleted file mode 100644 index 31526e1c..00000000 --- a/packages/SwaLint-Core.package/SLTestAutoRunner.class/instance/environment.st +++ /dev/null @@ -1,4 +0,0 @@ -accessing -environment - - ^ environment \ No newline at end of file diff --git a/packages/SwaLint-Core.package/SLTestAutoRunner.class/instance/run.st b/packages/SwaLint-Core.package/SLTestAutoRunner.class/instance/run.st index 1272552d..a78022fa 100644 --- a/packages/SwaLint-Core.package/SLTestAutoRunner.class/instance/run.st +++ b/packages/SwaLint-Core.package/SLTestAutoRunner.class/instance/run.st @@ -1,12 +1,12 @@ actions run - self environment + self testEnvironment selectedTests: self testsSelected; selectedClasses: self classesSelected. self resultDialog: (SLResultDialog onEnvironmentWithoutOpening: - (SLTestRunner onEnvironment: self environment)). + (SLTestRunner onEnvironment: self testEnvironment)). self changed: #resultCountLabel. diff --git a/packages/SwaLint-Core.package/SLTestAutoRunner.class/instance/testEnvironment..st b/packages/SwaLint-Core.package/SLTestAutoRunner.class/instance/testEnvironment..st new file mode 100644 index 00000000..40a03074 --- /dev/null +++ b/packages/SwaLint-Core.package/SLTestAutoRunner.class/instance/testEnvironment..st @@ -0,0 +1,4 @@ +accessing +testEnvironment: anObject + + environment := anObject \ No newline at end of file diff --git a/packages/SwaLint-Core.package/SLTestAutoRunner.class/instance/testEnvironment.st b/packages/SwaLint-Core.package/SLTestAutoRunner.class/instance/testEnvironment.st new file mode 100644 index 00000000..0b94785e --- /dev/null +++ b/packages/SwaLint-Core.package/SLTestAutoRunner.class/instance/testEnvironment.st @@ -0,0 +1,4 @@ +accessing +testEnvironment + + ^ environment \ No newline at end of file diff --git a/packages/SwaLint-Core.package/SLTestAutoRunner.class/instance/toOverview.st b/packages/SwaLint-Core.package/SLTestAutoRunner.class/instance/toOverview.st index c274ea7c..34ec2418 100644 --- a/packages/SwaLint-Core.package/SLTestAutoRunner.class/instance/toOverview.st +++ b/packages/SwaLint-Core.package/SLTestAutoRunner.class/instance/toOverview.st @@ -5,4 +5,4 @@ toOverview ifNotNil: [self callingWindow comeToFront] ifNil: [self callingDialog open]. - self window closeBoxHit. \ No newline at end of file + self changed: #close. \ No newline at end of file diff --git a/packages/SwaLint-Core.package/SLTestAutoRunner.class/instance/window..st b/packages/SwaLint-Core.package/SLTestAutoRunner.class/instance/window..st deleted file mode 100644 index c4d0e512..00000000 --- a/packages/SwaLint-Core.package/SLTestAutoRunner.class/instance/window..st +++ /dev/null @@ -1,4 +0,0 @@ -accessing -window: aWindow - - window := aWindow. \ No newline at end of file diff --git a/packages/SwaLint-Core.package/SLTestAutoRunner.class/instance/window.st b/packages/SwaLint-Core.package/SLTestAutoRunner.class/instance/window.st deleted file mode 100644 index 2b9c0ec7..00000000 --- a/packages/SwaLint-Core.package/SLTestAutoRunner.class/instance/window.st +++ /dev/null @@ -1,4 +0,0 @@ -accessing -window - - ^ window \ No newline at end of file diff --git a/packages/SwaLint-Core.package/SLTestAutoRunner.class/methodProperties.json b/packages/SwaLint-Core.package/SLTestAutoRunner.class/methodProperties.json index beea9f42..c64d2298 100644 --- a/packages/SwaLint-Core.package/SLTestAutoRunner.class/methodProperties.json +++ b/packages/SwaLint-Core.package/SLTestAutoRunner.class/methodProperties.json @@ -6,7 +6,7 @@ "buildButtonsWith:" : "BD 7/6/2018 10:38", "buildResultCountWith:" : "BD 7/6/2018 11:19", "buildWindowWith:" : "LS 6/29/2018 16:28", - "buildWith:" : "BD 7/6/2018 11:57", + "buildWith:" : "ct 12/20/2024 00:20", "buttonHeight" : "LS 6/29/2018 16:47", "buttons" : "BD 7/6/2018 11:20", "buttonsBottom" : "LS 6/29/2018 16:46", @@ -22,10 +22,8 @@ "callingWindow:" : "BD 7/3/2018 12:15", "classesSelected" : "LS 6/29/2018 16:15", "classesSelected:" : "LS 6/29/2018 16:15", - "close" : "BD 7/6/2018 10:51", - "createEnvironment" : "BD 7/6/2018 11:21", - "environment" : "BD 7/6/2018 11:21", - "environment:" : "BD 7/6/2018 10:36", + "close" : "ct 12/22/2024 05:08", + "createEnvironment" : "ct 12/22/2024 05:09", "initialExtent" : "BD 7/6/2018 11:16", "initialize" : "BD 7/13/2018 10:35", "lintingEnabled" : "BD 7/6/2018 09:42", @@ -37,13 +35,13 @@ "resultDialog" : "BD 7/1/2018 12:23", "resultDialog:" : "BD 7/3/2018 12:18", "resultsFrame" : "BD 7/3/2018 12:17", - "run" : "BD 7/25/2018 16:19", + "run" : "ct 12/22/2024 05:08", + "testEnvironment" : "ct 12/22/2024 05:05", + "testEnvironment:" : "ct 12/22/2024 05:05", "testsSelected" : "LS 6/29/2018 16:15", "testsSelected:" : "LS 6/29/2018 16:15", - "toOverview" : "BD 7/8/2018 10:05", + "toOverview" : "ct 12/20/2024 00:19", "toggleAutoLint" : "BD 7/6/2018 10:37", "toggleAutoLintDescription" : "BD 7/6/2018 10:37", "toggleAutoLintState" : "BD 7/5/2018 22:39", - "window" : "BD 7/6/2018 11:56", - "window:" : "BD 7/8/2018 10:06", "windowTitle" : "BD 7/3/2018 12:15" } } diff --git a/packages/SwaLint-Core.package/SLTestAutoRunner.class/properties.json b/packages/SwaLint-Core.package/SLTestAutoRunner.class/properties.json index fbb8f17d..c27e5a17 100644 --- a/packages/SwaLint-Core.package/SLTestAutoRunner.class/properties.json +++ b/packages/SwaLint-Core.package/SLTestAutoRunner.class/properties.json @@ -9,12 +9,10 @@ "classesSelected", "testsSelected", "environment", - "window", "resultDialog", "callingWindow", "callingDialog", - "lintingEnabled", - "toggleButton" ], + "lintingEnabled" ], "name" : "SLTestAutoRunner", "pools" : [ ], diff --git a/packages/SwaLint-Core.package/SLTestData.class/instance/browse.st b/packages/SwaLint-Core.package/SLTestData.class/instance/browse.st new file mode 100644 index 00000000..d9458777 --- /dev/null +++ b/packages/SwaLint-Core.package/SLTestData.class/instance/browse.st @@ -0,0 +1,4 @@ +browsing +browse + + ^ self plugIn browse: self \ No newline at end of file diff --git a/packages/SwaLint-Core.package/SLTestData.class/instance/key.st b/packages/SwaLint-Core.package/SLTestData.class/instance/key.st new file mode 100644 index 00000000..ace79edc --- /dev/null +++ b/packages/SwaLint-Core.package/SLTestData.class/instance/key.st @@ -0,0 +1,4 @@ +accessing +key + + ^ self symbol readStream upTo: $: \ No newline at end of file diff --git a/packages/SwaLint-Core.package/SLTestData.class/methodProperties.json b/packages/SwaLint-Core.package/SLTestData.class/methodProperties.json index c8a56a35..2e0868e2 100644 --- a/packages/SwaLint-Core.package/SLTestData.class/methodProperties.json +++ b/packages/SwaLint-Core.package/SLTestData.class/methodProperties.json @@ -5,6 +5,7 @@ "newFromPlugIn:" : "NA 7/2/2015 18:29" }, "instance" : { "asSymbol" : "topa 1/10/2015 15:37", + "browse" : "ct 12/18/2024 22:10", "category" : "AT 5/8/2008 12:25", "category:" : "NR 1/10/2008 11:58", "description" : "AT 5/8/2008 12:25", @@ -13,6 +14,7 @@ "hide" : "NA 6/3/2015 16:37", "isHidden" : "NA 6/3/2015 16:38", "isUserSelected" : "AT 5/8/2008 12:25", + "key" : "ct 12/19/2024 20:22", "longRuntime" : "NA 7/1/2015 14:27", "longRuntime:" : "MB 7/17/2014 11:32", "markUserSelected" : "NR 1/29/2008 13:45", diff --git a/packages/SwaLint-Core.package/SLTestError.class/class/newFor.plugIn.test.object..st b/packages/SwaLint-Core.package/SLTestError.class/class/newFor.plugIn.test.object..st index 44ed4fcf..c92b3d03 100644 --- a/packages/SwaLint-Core.package/SLTestError.class/class/newFor.plugIn.test.object..st +++ b/packages/SwaLint-Core.package/SLTestError.class/class/newFor.plugIn.test.object..st @@ -1,6 +1,6 @@ instance creation -newFor: anError plugIn: aSLPlugIn test: aSLTestData object: aSLTestObject +newFor: anException plugIn: aSLPlugIn test: aSLTestData object: aSLTestObject ^ (self new) - error: anError; + exception: anException; plugIn: aSLPlugIn test: aSLTestData object: aSLTestObject \ No newline at end of file diff --git a/packages/SwaLint-Core.package/SLTestError.class/instance/error..st b/packages/SwaLint-Core.package/SLTestError.class/instance/error..st deleted file mode 100644 index eb45abe4..00000000 --- a/packages/SwaLint-Core.package/SLTestError.class/instance/error..st +++ /dev/null @@ -1,5 +0,0 @@ -accessing -error: anError - - error := anError. - rcvr := anError receiver asString. \ No newline at end of file diff --git a/packages/SwaLint-Core.package/SLTestError.class/instance/exception..st b/packages/SwaLint-Core.package/SLTestError.class/instance/exception..st new file mode 100644 index 00000000..e14bfd09 --- /dev/null +++ b/packages/SwaLint-Core.package/SLTestError.class/instance/exception..st @@ -0,0 +1,5 @@ +accessing +exception: anException + + error := anException. + rcvr := anException receiver asString. \ No newline at end of file diff --git a/packages/SwaLint-Core.package/SLTestError.class/instance/exception.st b/packages/SwaLint-Core.package/SLTestError.class/instance/exception.st new file mode 100644 index 00000000..3c84c935 --- /dev/null +++ b/packages/SwaLint-Core.package/SLTestError.class/instance/exception.st @@ -0,0 +1,4 @@ +accessing +exception + + ^ error \ No newline at end of file diff --git a/packages/SwaLint-Core.package/SLTestError.class/methodProperties.json b/packages/SwaLint-Core.package/SLTestError.class/methodProperties.json index ce2a0283..eb65c198 100644 --- a/packages/SwaLint-Core.package/SLTestError.class/methodProperties.json +++ b/packages/SwaLint-Core.package/SLTestError.class/methodProperties.json @@ -1,10 +1,11 @@ { "class" : { "newFor:" : "AT 5/8/2008 12:26", - "newFor:plugIn:test:object:" : "AT 5/8/2008 12:25" }, + "newFor:plugIn:test:object:" : "ct 12/19/2024 20:52" }, "instance" : { - "error:" : "BD 7/13/2018 11:46", "errorStack" : "AT 5/8/2008 12:25", + "exception" : "ct 12/19/2024 20:52", + "exception:" : "ct 12/19/2024 20:52", "plugIn" : "AT 5/8/2008 12:25", "plugIn:test:object:" : "AT 2/8/2008 16:24", "rcvr" : "BD 7/13/2018 11:46", diff --git a/packages/SwaLint-Core.package/SLTestRunner.class/instance/environment..st b/packages/SwaLint-Core.package/SLTestRunner.class/instance/environment..st deleted file mode 100644 index 328751b3..00000000 --- a/packages/SwaLint-Core.package/SLTestRunner.class/instance/environment..st +++ /dev/null @@ -1,4 +0,0 @@ -accessing -environment: anEnvironment - - environment := anEnvironment \ No newline at end of file diff --git a/packages/SwaLint-Core.package/SLTestRunner.class/instance/environment.st b/packages/SwaLint-Core.package/SLTestRunner.class/instance/environment.st deleted file mode 100644 index 4a9ef352..00000000 --- a/packages/SwaLint-Core.package/SLTestRunner.class/instance/environment.st +++ /dev/null @@ -1,4 +0,0 @@ -accessing -environment - - ^ environment \ No newline at end of file diff --git a/packages/SwaLint-Core.package/SLTestRunner.class/instance/processed..st b/packages/SwaLint-Core.package/SLTestRunner.class/instance/processed..st deleted file mode 100644 index ec24700b..00000000 --- a/packages/SwaLint-Core.package/SLTestRunner.class/instance/processed..st +++ /dev/null @@ -1,6 +0,0 @@ -progress displaying -processed: aTestObject - - self progressBar ifNotNil: [ - self progressBar value: (processedItems := processedItems + 1)]. - \ No newline at end of file diff --git a/packages/SwaLint-Core.package/SLTestRunner.class/instance/processed.for..st b/packages/SwaLint-Core.package/SLTestRunner.class/instance/processed.for..st new file mode 100644 index 00000000..231a9a51 --- /dev/null +++ b/packages/SwaLint-Core.package/SLTestRunner.class/instance/processed.for..st @@ -0,0 +1,9 @@ +progress displaying +processed: aTestObject for: aTest + + self progressBar ifNotNil: [ + self progressBar value: + (aTestObject + ifNil: [0] + ifNotNil: [processedItems add: {aTestObject. aTest}; size])]. + \ No newline at end of file diff --git a/packages/SwaLint-Core.package/SLTestRunner.class/instance/progressBar..st b/packages/SwaLint-Core.package/SLTestRunner.class/instance/progressBar..st index 7a387104..aeeac246 100644 --- a/packages/SwaLint-Core.package/SLTestRunner.class/instance/progressBar..st +++ b/packages/SwaLint-Core.package/SLTestRunner.class/instance/progressBar..st @@ -1,7 +1,7 @@ progress displaying progressBar: aProgressBar - processedItems := 0. + processedItems := Set new. progressMorph := aProgressBar. - self processed: nil. \ No newline at end of file + self resetProgress. \ No newline at end of file diff --git a/packages/SwaLint-Core.package/SLTestRunner.class/instance/resetProgress.st b/packages/SwaLint-Core.package/SLTestRunner.class/instance/resetProgress.st new file mode 100644 index 00000000..e18fbbe2 --- /dev/null +++ b/packages/SwaLint-Core.package/SLTestRunner.class/instance/resetProgress.st @@ -0,0 +1,4 @@ +progress displaying +resetProgress + + self progressBar value: 0. \ No newline at end of file diff --git a/packages/SwaLint-Core.package/SLTestRunner.class/instance/run.st b/packages/SwaLint-Core.package/SLTestRunner.class/instance/run.st index e5d178d8..40c6640b 100644 --- a/packages/SwaLint-Core.package/SLTestRunner.class/instance/run.st +++ b/packages/SwaLint-Core.package/SLTestRunner.class/instance/run.st @@ -4,6 +4,7 @@ run 'Running Tests...' displayProgressFrom: 0 to: self testRunsNeeded during: [ :bar | - self progressBar: bar; - loadPluginsForTests; - runTestsOnTestObjects]. \ No newline at end of file + CurrentReadOnlySourceFiles cacheDuring: [ + self progressBar: bar; + loadPluginsForTests; + runTestsOnTestObjects]]. \ No newline at end of file diff --git a/packages/SwaLint-Core.package/SLTestRunner.class/instance/runTestsOnTestObjects.st b/packages/SwaLint-Core.package/SLTestRunner.class/instance/runTestsOnTestObjects.st index 04655071..a4a3bdd7 100644 --- a/packages/SwaLint-Core.package/SLTestRunner.class/instance/runTestsOnTestObjects.st +++ b/packages/SwaLint-Core.package/SLTestRunner.class/instance/runTestsOnTestObjects.st @@ -1,7 +1,8 @@ running runTestsOnTestObjects - self testObjects do: [ :testobject | + (self testObjects sorted: [:x :y | x compareSafely: y]) do: [ :testObject | "sorting for fewer UI updates (previously made up 90% of the test running time!)" self selectedTests do: [ :test | - ProgressNotification signal: '' extra: 'Testing ', testobject name, ' for ', test name. - testobject testWith: test]]. \ No newline at end of file + ProgressNotification signal: '' extra: 'Testing ', testObject name", ' for ', test name". "disabled for fewer UI updates" + testObject testWith: test. + self processed: test for: testObject]] \ No newline at end of file diff --git a/packages/SwaLint-Core.package/SLTestRunner.class/instance/testEnvironment..st b/packages/SwaLint-Core.package/SLTestRunner.class/instance/testEnvironment..st new file mode 100644 index 00000000..3cd922fc --- /dev/null +++ b/packages/SwaLint-Core.package/SLTestRunner.class/instance/testEnvironment..st @@ -0,0 +1,4 @@ +accessing +testEnvironment: aSLEnvironment + + environment := aSLEnvironment. \ No newline at end of file diff --git a/packages/SwaLint-Core.package/SLTestRunner.class/instance/testEnvironment.st b/packages/SwaLint-Core.package/SLTestRunner.class/instance/testEnvironment.st new file mode 100644 index 00000000..0b94785e --- /dev/null +++ b/packages/SwaLint-Core.package/SLTestRunner.class/instance/testEnvironment.st @@ -0,0 +1,4 @@ +accessing +testEnvironment + + ^ environment \ No newline at end of file diff --git a/packages/SwaLint-Core.package/SLTestRunner.class/instance/testRunsNeeded.st b/packages/SwaLint-Core.package/SLTestRunner.class/instance/testRunsNeeded.st index 1d9d237f..1386d566 100644 --- a/packages/SwaLint-Core.package/SLTestRunner.class/instance/testRunsNeeded.st +++ b/packages/SwaLint-Core.package/SLTestRunner.class/instance/testRunsNeeded.st @@ -2,4 +2,4 @@ progress displaying testRunsNeeded "Answer the number of test runs to get all results" - ^ (self selectedTests size * self testObjects size) + 1 \ No newline at end of file + ^ self selectedTests size * self testObjects size \ No newline at end of file diff --git a/packages/SwaLint-Core.package/SLTestRunner.class/methodProperties.json b/packages/SwaLint-Core.package/SLTestRunner.class/methodProperties.json index 4c78a239..dbfeef95 100644 --- a/packages/SwaLint-Core.package/SLTestRunner.class/methodProperties.json +++ b/packages/SwaLint-Core.package/SLTestRunner.class/methodProperties.json @@ -5,8 +5,6 @@ "addTestToSelection:" : "AT 5/27/2008 19:02", "addTestToSelection:inCategory:" : "AT 5/27/2008 19:02", "dataFromEnvironment:" : "topa 2/7/2008 21:15", - "environment" : "NH 7/15/2015 23:55", - "environment:" : "NH 7/15/2015 23:55", "hideTest:" : "AT 5/27/2008 19:15", "initialize" : "JTM 7/29/2015 22:53", "initializeTestDictionary" : "NH 7/15/2015 23:52", @@ -18,14 +16,15 @@ "plugInFor:" : "AT 5/8/2008 16:18", "plugInForTest:" : "AT 5/8/2008 16:18", "preparePlugin:" : "AT 5/27/2008 17:31", - "processed:" : "AT 2/8/2008 13:15", + "processed:for:" : "ct 12/13/2024 02:54", "progressBar" : "AT 5/8/2008 16:18", - "progressBar:" : "NR 1/31/2008 17:28", - "run" : "topa 1/18/2015 22:46", + "progressBar:" : "ct 12/13/2024 02:55", + "resetProgress" : "ct 12/13/2024 02:55", + "run" : "ct 12/13/2024 03:03", "runOnEnvironment:" : "NA 7/28/2015 13:30", "runOnTests:andTestObjects:" : "AT 5/27/2008 17:32", "runOnTests:andTestSystem:" : "AT 5/8/2008 16:17", - "runTestsOnTestObjects" : "NA 7/16/2015 11:39", + "runTestsOnTestObjects" : "ct 10/6/2025 02:39", "selectedTests" : "NA 7/28/2015 12:09", "selectedTests:" : "NR 2/1/2008 12:00", "shouldSkipRuleOf:for:" : "LG 7/25/2018 14:44", @@ -34,9 +33,11 @@ "testDataFor:ifPresent:ifAbsent:" : "topa 1/10/2015 15:41", "testDictionary" : "AT 5/8/2008 16:17", "testDictionary:" : "NR 1/29/2008 13:36", + "testEnvironment" : "ct 1/4/2025 22:33", + "testEnvironment:" : "ct 1/4/2025 22:34", "testNotFound" : "AT 5/27/2008 14:45", "testObjects" : "AT 5/8/2008 16:17", - "testRunsNeeded" : "AT 5/8/2008 16:17", + "testRunsNeeded" : "ct 12/13/2024 02:53", "testSystem" : "AT 5/8/2008 16:17", "testSystem:" : "AT 1/20/2008 19:49", "tests" : "NA 7/28/2015 13:24", diff --git a/packages/SwaLint-Core.package/SLVariableTestObject.class/instance/initialize.st b/packages/SwaLint-Core.package/SLVariableTestObject.class/instance/initialize.st index e97efee1..00801c60 100644 --- a/packages/SwaLint-Core.package/SLVariableTestObject.class/instance/initialize.st +++ b/packages/SwaLint-Core.package/SLVariableTestObject.class/instance/initialize.st @@ -2,4 +2,5 @@ initialization initialize super initialize. - classSide := false. \ No newline at end of file + classSide := false. + isClassVariable := false. \ No newline at end of file diff --git a/packages/SwaLint-Core.package/SLVariableTestObject.class/instance/isClassVariable..st b/packages/SwaLint-Core.package/SLVariableTestObject.class/instance/isClassVariable..st new file mode 100644 index 00000000..a0da93c8 --- /dev/null +++ b/packages/SwaLint-Core.package/SLVariableTestObject.class/instance/isClassVariable..st @@ -0,0 +1,4 @@ +accessing +isClassVariable: aBoolean + + isClassVariable := aBoolean \ No newline at end of file diff --git a/packages/SwaLint-Core.package/SLVariableTestObject.class/instance/isClassVariable.st b/packages/SwaLint-Core.package/SLVariableTestObject.class/instance/isClassVariable.st new file mode 100644 index 00000000..f37e5266 --- /dev/null +++ b/packages/SwaLint-Core.package/SLVariableTestObject.class/instance/isClassVariable.st @@ -0,0 +1,4 @@ +accessing +isClassVariable + + ^ isClassVariable \ No newline at end of file diff --git a/packages/SwaLint-Core.package/SLVariableTestObject.class/methodProperties.json b/packages/SwaLint-Core.package/SLVariableTestObject.class/methodProperties.json index 9fb1633b..dd8ee710 100644 --- a/packages/SwaLint-Core.package/SLVariableTestObject.class/methodProperties.json +++ b/packages/SwaLint-Core.package/SLVariableTestObject.class/methodProperties.json @@ -5,7 +5,9 @@ "children" : "topa 1/10/2015 11:32", "classSide" : "AT 5/28/2008 13:57", "classSide:" : "AT 5/28/2008 13:57", - "initialize" : "AT 5/28/2008 13:59", + "initialize" : "ct 12/20/2024 02:01", + "isClassVariable" : "ct 12/20/2024 02:01", + "isClassVariable:" : "ct 12/20/2024 02:01", "kind" : "AT 5/8/2008 12:24", "name" : "AT 5/28/2008 13:58", "testObject" : "AT 5/8/2008 12:24", diff --git a/packages/SwaLint-Core.package/SLVariableTestObject.class/properties.json b/packages/SwaLint-Core.package/SLVariableTestObject.class/properties.json index 84abb1ea..118aa952 100644 --- a/packages/SwaLint-Core.package/SLVariableTestObject.class/properties.json +++ b/packages/SwaLint-Core.package/SLVariableTestObject.class/properties.json @@ -7,7 +7,8 @@ "commentStamp" : "NR 1/1/2008 17:20", "instvars" : [ "variable", - "classSide" ], + "classSide", + "isClassVariable" ], "name" : "SLVariableTestObject", "pools" : [ ], diff --git a/packages/SwaLint-Core.package/SLWrongTypeError.class/instance/asString.st b/packages/SwaLint-Core.package/SLWrongTypeError.class/instance/asString.st index 0bf2cd92..ff3d05ac 100644 --- a/packages/SwaLint-Core.package/SLWrongTypeError.class/instance/asString.st +++ b/packages/SwaLint-Core.package/SLWrongTypeError.class/instance/asString.st @@ -1,4 +1,4 @@ -as yet unclassified +converting asString ^ super asString, '!!' \ No newline at end of file diff --git a/packages/SwaLint-Core.package/SLWrongTypeError.class/instance/description.st b/packages/SwaLint-Core.package/SLWrongTypeError.class/instance/description.st index dc030e2a..10ea9806 100644 --- a/packages/SwaLint-Core.package/SLWrongTypeError.class/instance/description.st +++ b/packages/SwaLint-Core.package/SLWrongTypeError.class/instance/description.st @@ -1,4 +1,4 @@ -accessing +printing description "Cut the 'SL'..." diff --git a/packages/SwaLint-Core.package/SLWrongTypeError.class/instance/signalerContext.st b/packages/SwaLint-Core.package/SLWrongTypeError.class/instance/signalerContext.st index 5e199b5a..d928f40e 100644 --- a/packages/SwaLint-Core.package/SLWrongTypeError.class/instance/signalerContext.st +++ b/packages/SwaLint-Core.package/SLWrongTypeError.class/instance/signalerContext.st @@ -1,4 +1,4 @@ -printing +handling signalerContext "The debugger shouldn't look into the test objects" diff --git a/packages/SwaLint-Core.package/SwaLint.class/class/ColorizeResults.st b/packages/SwaLint-Core.package/SwaLint.class/class/ColorizeResults.st index 33251a8b..98e57d1e 100644 --- a/packages/SwaLint-Core.package/SwaLint.class/class/ColorizeResults.st +++ b/packages/SwaLint-Core.package/SwaLint.class/class/ColorizeResults.st @@ -2,11 +2,9 @@ preferences ColorizeResults diff --git a/packages/SwaLint-Core.package/SwaLint.class/class/DebugMode...1.st b/packages/SwaLint-Core.package/SwaLint.class/class/DebugMode...1.st deleted file mode 100644 index 215d11b6..00000000 --- a/packages/SwaLint-Core.package/SwaLint.class/class/DebugMode...1.st +++ /dev/null @@ -1,6 +0,0 @@ -preferences -DebugMode: aBoolean - - DebugMode := aBoolean - - \ No newline at end of file diff --git a/packages/SwaLint-Core.package/SwaLint.class/class/DebugMode..1.st b/packages/SwaLint-Core.package/SwaLint.class/class/DebugMode..1.st deleted file mode 100644 index 593e23ab..00000000 --- a/packages/SwaLint-Core.package/SwaLint.class/class/DebugMode..1.st +++ /dev/null @@ -1,15 +0,0 @@ -preferences -DebugMode - - - - ^ DebugMode ifNil: [false] - - \ No newline at end of file diff --git a/packages/SwaLint-Core.package/SwaLint.class/class/MarkLongRuntimeTests.st b/packages/SwaLint-Core.package/SwaLint.class/class/MarkLongRuntimeTests.st index a2485617..3fc27db9 100644 --- a/packages/SwaLint-Core.package/SwaLint.class/class/MarkLongRuntimeTests.st +++ b/packages/SwaLint-Core.package/SwaLint.class/class/MarkLongRuntimeTests.st @@ -2,11 +2,9 @@ preferences MarkLongRuntimeTests diff --git a/packages/SwaLint-Core.package/SwaLint.class/class/OrderByTests.st b/packages/SwaLint-Core.package/SwaLint.class/class/OrderByTests.st index ba640201..02e27007 100644 --- a/packages/SwaLint-Core.package/SwaLint.class/class/OrderByTests.st +++ b/packages/SwaLint-Core.package/SwaLint.class/class/OrderByTests.st @@ -2,11 +2,9 @@ preferences OrderByTests diff --git a/packages/SwaLint-Core.package/SwaLint.class/class/UseOBRefactoryIfAvailable.st b/packages/SwaLint-Core.package/SwaLint.class/class/UseOBRefactoryIfAvailable.st index 7a38c086..78067d14 100644 --- a/packages/SwaLint-Core.package/SwaLint.class/class/UseOBRefactoryIfAvailable.st +++ b/packages/SwaLint-Core.package/SwaLint.class/class/UseOBRefactoryIfAvailable.st @@ -2,11 +2,9 @@ preferences UseOBRefactoryIfAvailable diff --git a/packages/SwaLint-Core.package/SwaLint.class/class/WorldMenuEntry.st b/packages/SwaLint-Core.package/SwaLint.class/class/WorldMenuEntry.st index cd8a640e..f51576c0 100644 --- a/packages/SwaLint-Core.package/SwaLint.class/class/WorldMenuEntry.st +++ b/packages/SwaLint-Core.package/SwaLint.class/class/WorldMenuEntry.st @@ -2,11 +2,9 @@ preferences WorldMenuEntry open.' type: #Boolean - categories: #(SwaLint) - defaultValue: true - helpText: 'Show SwaLint entry in WorldMenu > open.' - projectLocal: false changeInformee: #SwaLint changeSelector: #worldMenuPreferenceChanged> diff --git a/packages/SwaLint-Core.package/SwaLint.class/class/appMenu..st b/packages/SwaLint-Core.package/SwaLint.class/class/appMenu..st new file mode 100644 index 00000000..e3c8a123 --- /dev/null +++ b/packages/SwaLint-Core.package/SwaLint.class/class/appMenu..st @@ -0,0 +1,11 @@ +app - menu +appMenu: menu + + menu + "add: 'about' target: self action: #showAbout;" + add: 'options' target: SLPreferenceBrowser action: #open; + add: 'self-update...' target: self action: #doSelfUpdate; + balloonTextForLastItem: ('download and install the latest updates for {1}' format: {self appName}); + add: 'send feedback...' target: self action: #sendFeedback. + + ^ menu \ No newline at end of file diff --git a/packages/SwaLint-Core.package/SwaLint.class/class/appName.st b/packages/SwaLint-Core.package/SwaLint.class/class/appName.st new file mode 100644 index 00000000..a391b5a8 --- /dev/null +++ b/packages/SwaLint-Core.package/SwaLint.class/class/appName.st @@ -0,0 +1,4 @@ +app - accessing +appName + + ^ 'SwaLint' \ No newline at end of file diff --git a/packages/SwaLint-Core.package/SwaLint.class/class/basicSelfUpdateBranch..st b/packages/SwaLint-Core.package/SwaLint.class/class/basicSelfUpdateBranch..st new file mode 100644 index 00000000..c7500b4f --- /dev/null +++ b/packages/SwaLint-Core.package/SwaLint.class/class/basicSelfUpdateBranch..st @@ -0,0 +1,4 @@ +app - self-updating +basicSelfUpdateBranch: aString + + SelfUpdateBranch := aString. \ No newline at end of file diff --git a/packages/SwaLint-Core.package/SwaLint.class/class/basicSelfUpdateMetacelloSpec.st b/packages/SwaLint-Core.package/SwaLint.class/class/basicSelfUpdateMetacelloSpec.st new file mode 100644 index 00000000..c1086749 --- /dev/null +++ b/packages/SwaLint-Core.package/SwaLint.class/class/basicSelfUpdateMetacelloSpec.st @@ -0,0 +1,4 @@ +app - self-updating +basicSelfUpdateMetacelloSpec + + ^ #default \ No newline at end of file diff --git a/packages/SwaLint-Core.package/SwaLint.class/class/debug.st b/packages/SwaLint-Core.package/SwaLint.class/class/debug.st deleted file mode 100644 index 290134c1..00000000 --- a/packages/SwaLint-Core.package/SwaLint.class/class/debug.st +++ /dev/null @@ -1,4 +0,0 @@ -debugging -debug - - ^ self debugMode ifNil: [self debugMode: false; debugMode] \ No newline at end of file diff --git a/packages/SwaLint-Core.package/SwaLint.class/class/debugCr.st b/packages/SwaLint-Core.package/SwaLint.class/class/debugCr.st index be1f502c..b4d04867 100644 --- a/packages/SwaLint-Core.package/SwaLint.class/class/debugCr.st +++ b/packages/SwaLint-Core.package/SwaLint.class/class/debugCr.st @@ -1,4 +1,4 @@ debugging debugCr - self debug ifTrue: [Transcript cr]. \ No newline at end of file + self debugMode ifTrue: [Transcript cr]. \ No newline at end of file diff --git a/packages/SwaLint-Core.package/SwaLint.class/class/debugMode...2.st b/packages/SwaLint-Core.package/SwaLint.class/class/debugMode...2.st deleted file mode 100644 index b26e1eb7..00000000 --- a/packages/SwaLint-Core.package/SwaLint.class/class/debugMode...2.st +++ /dev/null @@ -1,4 +0,0 @@ -debugging -debugMode: aBoolean - - debug := aBoolean. \ No newline at end of file diff --git a/packages/SwaLint-Core.package/SwaLint.class/class/debugMode..2.st b/packages/SwaLint-Core.package/SwaLint.class/class/debugMode..2.st deleted file mode 100644 index e3123ba4..00000000 --- a/packages/SwaLint-Core.package/SwaLint.class/class/debugMode..2.st +++ /dev/null @@ -1,4 +0,0 @@ -debugging -debugMode - - ^ debug \ No newline at end of file diff --git a/packages/SwaLint-Core.package/SwaLint.class/class/debugMode..st b/packages/SwaLint-Core.package/SwaLint.class/class/debugMode..st new file mode 100644 index 00000000..576595b0 --- /dev/null +++ b/packages/SwaLint-Core.package/SwaLint.class/class/debugMode..st @@ -0,0 +1,6 @@ +preferences +debugMode: aBoolean + + DebugMode := aBoolean + + \ No newline at end of file diff --git a/packages/SwaLint-Core.package/SwaLint.class/class/debugMode.st b/packages/SwaLint-Core.package/SwaLint.class/class/debugMode.st new file mode 100644 index 00000000..c8f86bae --- /dev/null +++ b/packages/SwaLint-Core.package/SwaLint.class/class/debugMode.st @@ -0,0 +1,11 @@ +preferences +debugMode + + + + ^ DebugMode ifNil: [false] \ No newline at end of file diff --git a/packages/SwaLint-Core.package/SwaLint.class/class/debugOut..st b/packages/SwaLint-Core.package/SwaLint.class/class/debugOut..st index 54b12538..5e203f0f 100644 --- a/packages/SwaLint-Core.package/SwaLint.class/class/debugOut..st +++ b/packages/SwaLint-Core.package/SwaLint.class/class/debugOut..st @@ -1,5 +1,5 @@ debugging debugOut: anObject - self debug ifTrue: [ + self debugMode ifTrue: [ Transcript show: anObject asString]. \ No newline at end of file diff --git a/packages/SwaLint-Core.package/SwaLint.class/class/defaultFeedbackText.st b/packages/SwaLint-Core.package/SwaLint.class/class/defaultFeedbackText.st new file mode 100644 index 00000000..a30cb552 --- /dev/null +++ b/packages/SwaLint-Core.package/SwaLint.class/class/defaultFeedbackText.st @@ -0,0 +1,8 @@ +app - feedback +defaultFeedbackText + + ^ '

Reported from {1} (VM: {2}), for version of {3} last updated at {4}.' asTextFromHtml format: + {SystemVersion current. + ([Smalltalk vm openSmalltalkVMBuildNumber] ifError: [nil]) ifNil: [Smalltalk platformSourceVersion]. + self appName. + self latestTimeStamp} \ No newline at end of file diff --git a/packages/SwaLint-Core.package/SwaLint.class/class/defaultSelfUpdateBranch.st b/packages/SwaLint-Core.package/SwaLint.class/class/defaultSelfUpdateBranch.st new file mode 100644 index 00000000..fa0c5293 --- /dev/null +++ b/packages/SwaLint-Core.package/SwaLint.class/class/defaultSelfUpdateBranch.st @@ -0,0 +1,11 @@ +app - self-updating +defaultSelfUpdateBranch + + (self environment classNamed: #MCRepositoryGroup) ifNotNil: [:mcRepositoryGroupClass | + | repoPrefix | + repoPrefix := 'github://{1}/{2}' format: {self githubRepositoryParams first. self githubRepositoryParams second}. + mcRepositoryGroupClass default repositories + detect: [:repo | repo description beginsWith: repoPrefix] + ifFound: [:repo | ^ repo projectVersion]]. + + ^ 'main' \ No newline at end of file diff --git a/packages/SwaLint-Core.package/SwaLint.class/class/doSelfUpdate.st b/packages/SwaLint-Core.package/SwaLint.class/class/doSelfUpdate.st new file mode 100644 index 00000000..01766901 --- /dev/null +++ b/packages/SwaLint-Core.package/SwaLint.class/class/doSelfUpdate.st @@ -0,0 +1,7 @@ +app - self-updating +doSelfUpdate + + (Project uiManager confirm: ('Are you sure you would like to install the latest updates for {1}?' withCRs format: {self appName})) ifFalse: [^ false]. + + self selfUpdate. + ^ true \ No newline at end of file diff --git a/packages/SwaLint-Core.package/SwaLint.class/class/githubNewIssueUrl.st b/packages/SwaLint-Core.package/SwaLint.class/class/githubNewIssueUrl.st new file mode 100644 index 00000000..63d9cea5 --- /dev/null +++ b/packages/SwaLint-Core.package/SwaLint.class/class/githubNewIssueUrl.st @@ -0,0 +1,7 @@ +app - feedback +githubNewIssueUrl + + ^ self githubNewIssueUrlWithBody: '\' withCRs, (String streamContents: [:stream | + (HtmlReadWriter on: stream) + breakLines: false; + nextPutText: self defaultFeedbackText]) \ No newline at end of file diff --git a/packages/SwaLint-Core.package/SwaLint.class/class/githubNewIssueUrlWithBody..st b/packages/SwaLint-Core.package/SwaLint.class/class/githubNewIssueUrlWithBody..st new file mode 100644 index 00000000..c0d8ac0d --- /dev/null +++ b/packages/SwaLint-Core.package/SwaLint.class/class/githubNewIssueUrlWithBody..st @@ -0,0 +1,8 @@ +app - feedback +githubNewIssueUrlWithBody: htmlString + + ^ 'https://github.com/{1}/{2}/issues/new?{3}' format: { + self githubRepositoryParams first. + self githubRepositoryParams second. + WebUtils encodeUrlEncodedForm: { + 'body' -> htmlString}} \ No newline at end of file diff --git a/packages/SwaLint-Core.package/SwaLint.class/class/githubRepositoryParams.st b/packages/SwaLint-Core.package/SwaLint.class/class/githubRepositoryParams.st new file mode 100644 index 00000000..a26f823c --- /dev/null +++ b/packages/SwaLint-Core.package/SwaLint.class/class/githubRepositoryParams.st @@ -0,0 +1,5 @@ +app - accessing +githubRepositoryParams + "{owner. name. directory}" + + ^ {'hpi-swa-teaching'. 'SwaLint'. 'packages'} \ No newline at end of file diff --git a/packages/SwaLint-Core.package/SwaLint.class/class/githubUrl.st b/packages/SwaLint-Core.package/SwaLint.class/class/githubUrl.st new file mode 100644 index 00000000..3731e92f --- /dev/null +++ b/packages/SwaLint-Core.package/SwaLint.class/class/githubUrl.st @@ -0,0 +1,6 @@ +app - accessing +githubUrl + + ^ 'https://github.com/{1}/{2}' format: { + self githubRepositoryParams first. + self githubRepositoryParams second} \ No newline at end of file diff --git a/packages/SwaLint-Core.package/SwaLint.class/class/ifColorizeResult..st b/packages/SwaLint-Core.package/SwaLint.class/class/ifColorizeResult..st index b7515df2..bdb1fb47 100644 --- a/packages/SwaLint-Core.package/SwaLint.class/class/ifColorizeResult..st +++ b/packages/SwaLint-Core.package/SwaLint.class/class/ifColorizeResult..st @@ -1,4 +1,4 @@ accessing ifColorizeResult: aBlock - SLPreferences ColorizeResults ifTrue: aBlock. \ No newline at end of file + self ColorizeResults ifTrue: aBlock. \ No newline at end of file diff --git a/packages/SwaLint-Core.package/SwaLint.class/class/initialize.st b/packages/SwaLint-Core.package/SwaLint.class/class/initialize.st new file mode 100644 index 00000000..3a6f2fee --- /dev/null +++ b/packages/SwaLint-Core.package/SwaLint.class/class/initialize.st @@ -0,0 +1,4 @@ +initialize-release +initialize + + self registerInWorldMenu. \ No newline at end of file diff --git a/packages/SwaLint-Core.package/SwaLint.class/class/initializePreferences.st b/packages/SwaLint-Core.package/SwaLint.class/class/initializePreferences.st index 25486da1..9d509dd5 100644 --- a/packages/SwaLint-Core.package/SwaLint.class/class/initializePreferences.st +++ b/packages/SwaLint-Core.package/SwaLint.class/class/initializePreferences.st @@ -1,4 +1,4 @@ initialize-release initializePreferences - SLPreferences initializePragmaPreferencesOf: (self class) + diff --git a/packages/SwaLint-Core.package/SwaLint.class/class/install.st b/packages/SwaLint-Core.package/SwaLint.class/class/install.st index c9648dd4..32acbef4 100644 --- a/packages/SwaLint-Core.package/SwaLint.class/class/install.st +++ b/packages/SwaLint-Core.package/SwaLint.class/class/install.st @@ -1,11 +1,6 @@ finalization install - self unload. - (TheWorldMenu respondsTo: #unregisterOpenCommand:) - ifTrue: [TheWorldMenu unregisterOpenCommand: self swaLint]. - TheWorldMenu registerOpenCommand: {self swaLint. {SwaLint. #open}}. + self unload; initialize. self initializePreferences. - self debugMode: SLPreferences DebugMode. - SLPreferences OrderByTests. self registerPlugIn: SLPlugIn. \ No newline at end of file diff --git a/packages/SwaLint-Core.package/SwaLint.class/class/latestTimeStamp.st b/packages/SwaLint-Core.package/SwaLint.class/class/latestTimeStamp.st new file mode 100644 index 00000000..3fd94b50 --- /dev/null +++ b/packages/SwaLint-Core.package/SwaLint.class/class/latestTimeStamp.st @@ -0,0 +1,9 @@ +app - accessing +latestTimeStamp + + | packages | + packages := PackageInfo allPackages select: [:ea | '*SwaLint*' match: ea name]. + ^ CurrentReadOnlySourceFiles cacheDuring: + [((packages gather: #methods) collect: + [:method | [TimeStamp fromMethodTimeStamp: method timeStamp] ifError: [TimeStamp new]]) + max] \ No newline at end of file diff --git a/packages/SwaLint-Core.package/SwaLint.class/class/metacello.st b/packages/SwaLint-Core.package/SwaLint.class/class/metacello.st new file mode 100644 index 00000000..24c0472e --- /dev/null +++ b/packages/SwaLint-Core.package/SwaLint.class/class/metacello.st @@ -0,0 +1,7 @@ +app - self-updating +metacello + + ^ Metacello new + baseline: self appName; + repository: self selfUpdateGitHubPath; + yourself \ No newline at end of file diff --git a/packages/SwaLint-Core.package/SwaLint.class/class/openUrl..st b/packages/SwaLint-Core.package/SwaLint.class/class/openUrl..st new file mode 100644 index 00000000..94619e62 --- /dev/null +++ b/packages/SwaLint-Core.package/SwaLint.class/class/openUrl..st @@ -0,0 +1,14 @@ +app - feedback +openUrl: urlString + + self flag: #moveUpstream. + "Something similar but less convenient is also in TextURL >> #actOnClickFor:." + WebBrowser defaultOrNil ifNotNil: [:browser | + (Project uiManager + confirm: ('Do you want to open this URL in a web browser?\\{1}' withCRs format: {urlString}) + title: 'Open Web Page' translated) ifTrue: [browser openOnUrl: urlString]. + ^ self]. + + ^ urlString asText + addAttribute: (TextURL new url: urlString); + editWithLabel: 'Requested URL' \ No newline at end of file diff --git a/packages/SwaLint-Core.package/SwaLint.class/class/projectDescription.st b/packages/SwaLint-Core.package/SwaLint.class/class/projectDescription.st index 362fcddf..5cfb0aa4 100644 --- a/packages/SwaLint-Core.package/SwaLint.class/class/projectDescription.st +++ b/packages/SwaLint-Core.package/SwaLint.class/class/projectDescription.st @@ -1,20 +1,24 @@ -accessing +app - accessing projectDescription "Answer... read below..." - ^ ' - - ', self swaLint, ' (v', self versionString, ') written by - Christoph Neijenhuis, - Johannes Dyck, - Tobias Pape, - Nico Rehwaldt and - Arian Treffer, - Jan-Tobias Matysik, - Siegfried Horschig, - Nico Aechtner, - Toni Stachewicz, - Niklas Hoffmann and - Björn Daase. - - See http://swalint.netshed.de for more information.' \ No newline at end of file + ^ ('{1} (v{2}) written by +Christoph Neijenhuis, +Johannes Dyck, +Tobias Pape, +Nico Rehwaldt, +Arian Treffer, +Jan-Tobias Matysik, +Siegfried Horschig, +Nico Aechtner, +Toni Stachewicz, +Niklas Hoffmann, +Björn Daase, and +Christoph Thiede. + +See {3} for more information.' + format: + {self swaLint. + self versionString. + self githubUrl}) + asTextFromHtml \ No newline at end of file diff --git a/packages/SwaLint-Core.package/SwaLint.class/class/projectLogo.st b/packages/SwaLint-Core.package/SwaLint.class/class/projectLogo.st index 327143a3..9ad08119 100644 --- a/packages/SwaLint-Core.package/SwaLint.class/class/projectLogo.st +++ b/packages/SwaLint-Core.package/SwaLint.class/class/projectLogo.st @@ -1,4 +1,4 @@ -accessing +app - accessing projectLogo "the SwaLint logo" diff --git a/packages/SwaLint-Core.package/SwaLint.class/class/projectLogoContents.st b/packages/SwaLint-Core.package/SwaLint.class/class/projectLogoContents.st index bc5a6ff1..2de4883d 100644 --- a/packages/SwaLint-Core.package/SwaLint.class/class/projectLogoContents.st +++ b/packages/SwaLint-Core.package/SwaLint.class/class/projectLogoContents.st @@ -1,4 +1,4 @@ -accessing +app - accessing projectLogoContents "This is a base64 png" diff --git a/packages/SwaLint-Core.package/SwaLint.class/class/refreshAllDialogs.st b/packages/SwaLint-Core.package/SwaLint.class/class/refreshAllDialogs.st deleted file mode 100644 index baaee3ee..00000000 --- a/packages/SwaLint-Core.package/SwaLint.class/class/refreshAllDialogs.st +++ /dev/null @@ -1,6 +0,0 @@ -initialize-release -refreshAllDialogs - - [SLDefaultDialog allInstancesDo: [ :instance | instance update ]] ifError: []. - SLDefaultDialog subclassesDo: [ :each | - [each allInstancesDo: [ :instance | instance update ]] ifError: []]. \ No newline at end of file diff --git a/packages/SwaLint-Core.package/SwaLint.class/class/registerInWorldMenu.st b/packages/SwaLint-Core.package/SwaLint.class/class/registerInWorldMenu.st index 729c117a..dc84421b 100644 --- a/packages/SwaLint-Core.package/SwaLint.class/class/registerInWorldMenu.st +++ b/packages/SwaLint-Core.package/SwaLint.class/class/registerInWorldMenu.st @@ -1,4 +1,4 @@ -world menu +initialize-release registerInWorldMenu - TheWorldMenu registerOpenCommand: {self swaLint. {self. #open}}. \ No newline at end of file + TheWorldMenu registerOpenCommand: {self worldMenuLabel. {SwaLint. #open}}. \ No newline at end of file diff --git a/packages/SwaLint-Core.package/SwaLint.class/class/selfUpdate.st b/packages/SwaLint-Core.package/SwaLint.class/class/selfUpdate.st new file mode 100644 index 00000000..54cb7349 --- /dev/null +++ b/packages/SwaLint-Core.package/SwaLint.class/class/selfUpdate.st @@ -0,0 +1,15 @@ +app - self-updating +selfUpdate + "SwaLint selfUpdate" + + | squeakVersion | + squeakVersion := SystemVersion current version. + ((Project uiManager + confirm: ('It is recommended to install the latest updates for {1} first.' format: {squeakVersion}) + title: ('Updating {1}' format: {self appName}) + trueChoice: ('Yes, install latest {1} updates now' format: {'Squeak'}) + falseChoice: ('Skip latest {1} updates (not recommended)' format: {'Squeak'})) + ifNil: [^ self]) + ifTrue: [MCMcmUpdater default doUpdate: true]. + + ^ self selfUpdateFromMetacello \ No newline at end of file diff --git a/packages/SwaLint-Core.package/SwaLint.class/class/selfUpdateBranch..st b/packages/SwaLint-Core.package/SwaLint.class/class/selfUpdateBranch..st new file mode 100644 index 00000000..ab69aa11 --- /dev/null +++ b/packages/SwaLint-Core.package/SwaLint.class/class/selfUpdateBranch..st @@ -0,0 +1,7 @@ +app - self-updating +selfUpdateBranch: aString + + self basicSelfUpdateBranch: aString. + + (Project uiManager confirm: 'Would you like to install updates now?' title: ('{1} self-update' format: {self appName})) + ifTrue: [self selfUpdate]. \ No newline at end of file diff --git a/packages/SwaLint-Core.package/SwaLint.class/class/selfUpdateBranch.st b/packages/SwaLint-Core.package/SwaLint.class/class/selfUpdateBranch.st new file mode 100644 index 00000000..647521b2 --- /dev/null +++ b/packages/SwaLint-Core.package/SwaLint.class/class/selfUpdateBranch.st @@ -0,0 +1,8 @@ +app - self-updating +selfUpdateBranch + + + ^ SelfUpdateBranch ifNil: [self defaultSelfUpdateBranch] \ No newline at end of file diff --git a/packages/SwaLint-Core.package/SwaLint.class/class/selfUpdateFromMetacello.st b/packages/SwaLint-Core.package/SwaLint.class/class/selfUpdateFromMetacello.st new file mode 100644 index 00000000..fc7c61f0 --- /dev/null +++ b/packages/SwaLint-Core.package/SwaLint.class/class/selfUpdateFromMetacello.st @@ -0,0 +1,8 @@ +app - self-updating +selfUpdateFromMetacello + + | metacello project | + metacello := self metacello. + project := metacello get. + project configuration installDependencies. + metacello load: self basicSelfUpdateMetacelloSpec. \ No newline at end of file diff --git a/packages/SwaLint-Core.package/SwaLint.class/class/selfUpdateGitHubPath.st b/packages/SwaLint-Core.package/SwaLint.class/class/selfUpdateGitHubPath.st new file mode 100644 index 00000000..0fc842e8 --- /dev/null +++ b/packages/SwaLint-Core.package/SwaLint.class/class/selfUpdateGitHubPath.st @@ -0,0 +1,7 @@ +app - self-updating +selfUpdateGitHubPath + + ^ ('github://{1}/{2}:\{1\}/{3}' format: { + self githubRepositoryParams first. + self githubRepositoryParams second. + self githubRepositoryParams third}) format: {self selfUpdateBranch} \ No newline at end of file diff --git a/packages/SwaLint-Core.package/SwaLint.class/class/sendFeedback.st b/packages/SwaLint-Core.package/SwaLint.class/class/sendFeedback.st new file mode 100644 index 00000000..6673070b --- /dev/null +++ b/packages/SwaLint-Core.package/SwaLint.class/class/sendFeedback.st @@ -0,0 +1,4 @@ +app - feedback +sendFeedback + + ^ self sendFeedbackGitHub \ No newline at end of file diff --git a/packages/SwaLint-Core.package/SwaLint.class/class/sendFeedbackGitHub.st b/packages/SwaLint-Core.package/SwaLint.class/class/sendFeedbackGitHub.st new file mode 100644 index 00000000..e6bfa9f8 --- /dev/null +++ b/packages/SwaLint-Core.package/SwaLint.class/class/sendFeedbackGitHub.st @@ -0,0 +1,4 @@ +app - feedback +sendFeedbackGitHub + + self openUrl: self githubNewIssueUrl \ No newline at end of file diff --git a/packages/SwaLint-Core.package/SwaLint.class/class/showAbout.st b/packages/SwaLint-Core.package/SwaLint.class/class/showAbout.st new file mode 100644 index 00000000..463f4e57 --- /dev/null +++ b/packages/SwaLint-Core.package/SwaLint.class/class/showAbout.st @@ -0,0 +1,7 @@ +app - accessing +showAbout + + | text | + text := (Text string: Character startOfHeader asString attribute: self projectLogo asTextAnchor) + , String cr , self projectDescription. + ^ text editWithLabel: ('About {1}' format: {self swaLint}) \ No newline at end of file diff --git a/packages/SwaLint-Core.package/SwaLint.class/class/swaLint.st b/packages/SwaLint-Core.package/SwaLint.class/class/swaLint.st index 0b7da289..9b06c00b 100644 --- a/packages/SwaLint-Core.package/SwaLint.class/class/swaLint.st +++ b/packages/SwaLint-Core.package/SwaLint.class/class/swaLint.st @@ -1,4 +1,4 @@ -accessing +app - accessing swaLint ^ 'SwaLint Code Critics' \ No newline at end of file diff --git a/packages/SwaLint-Core.package/SwaLint.class/class/try.catch..st b/packages/SwaLint-Core.package/SwaLint.class/class/try.catch..st index 39fb7550..237646b7 100644 --- a/packages/SwaLint-Core.package/SwaLint.class/class/try.catch..st +++ b/packages/SwaLint-Core.package/SwaLint.class/class/try.catch..st @@ -2,6 +2,6 @@ debugging try: aBlock catch: aExceptBlock "If the SwaLint debug mode is disabled, catch all errors." - ^ self debug + ^ self debugMode ifTrue: aBlock ifFalse: [aBlock on: Error do: aExceptBlock] \ No newline at end of file diff --git a/packages/SwaLint-Core.package/SwaLint.class/class/unload.st b/packages/SwaLint-Core.package/SwaLint.class/class/unload.st index 6d6d744a..ad29517a 100644 --- a/packages/SwaLint-Core.package/SwaLint.class/class/unload.st +++ b/packages/SwaLint-Core.package/SwaLint.class/class/unload.st @@ -1,5 +1,4 @@ -finalization +initialize-release unload - SLDefaultDialog allSubInstancesDo: [ :instance | instance close]. self unregisterInWorldMenu. \ No newline at end of file diff --git a/packages/SwaLint-Core.package/SwaLint.class/class/unregisterInWorldMenu.st b/packages/SwaLint-Core.package/SwaLint.class/class/unregisterInWorldMenu.st index 1245872e..27a3a4e0 100644 --- a/packages/SwaLint-Core.package/SwaLint.class/class/unregisterInWorldMenu.st +++ b/packages/SwaLint-Core.package/SwaLint.class/class/unregisterInWorldMenu.st @@ -1,5 +1,4 @@ -world menu +initialize-release unregisterInWorldMenu - (TheWorldMenu respondsTo: #unregisterOpenCommand:) - ifTrue: [TheWorldMenu unregisterOpenCommand: self swaLint]. \ No newline at end of file + TheWorldMenu unregisterOpenCommand: self worldMenuLabel. \ No newline at end of file diff --git a/packages/SwaLint-Core.package/SwaLint.class/class/useOBRefactory.st b/packages/SwaLint-Core.package/SwaLint.class/class/useOBRefactory.st index 27c84851..f01d61f8 100644 --- a/packages/SwaLint-Core.package/SwaLint.class/class/useOBRefactory.st +++ b/packages/SwaLint-Core.package/SwaLint.class/class/useOBRefactory.st @@ -1,5 +1,5 @@ testing useOBRefactory - ^ SLPreferences UseOBRefactoryIfAvailable and: [ + ^ self UseOBRefactoryIfAvailable and: [ (MCPackage named: 'OB-Refactory') hasWorkingCopy] \ No newline at end of file diff --git a/packages/SwaLint-Core.package/SwaLint.class/class/versionString.st b/packages/SwaLint-Core.package/SwaLint.class/class/versionString.st index 7b7297dd..8a12539e 100644 --- a/packages/SwaLint-Core.package/SwaLint.class/class/versionString.st +++ b/packages/SwaLint-Core.package/SwaLint.class/class/versionString.st @@ -1,4 +1,4 @@ -accessing +app - accessing versionString - ^ '4.2.0' \ No newline at end of file + ^ '5.0.0' \ No newline at end of file diff --git a/packages/SwaLint-Core.package/SwaLint.class/class/worldMenuLabel.st b/packages/SwaLint-Core.package/SwaLint.class/class/worldMenuLabel.st new file mode 100644 index 00000000..e197cf9c --- /dev/null +++ b/packages/SwaLint-Core.package/SwaLint.class/class/worldMenuLabel.st @@ -0,0 +1,4 @@ +initialize-release +worldMenuLabel + + ^ '{1} (legacy)' format: {self swaLint} \ No newline at end of file diff --git a/packages/SwaLint-Core.package/SwaLint.class/class/worldMenuPreferenceChanged.st b/packages/SwaLint-Core.package/SwaLint.class/class/worldMenuPreferenceChanged.st index 9a407f54..1012412c 100644 --- a/packages/SwaLint-Core.package/SwaLint.class/class/worldMenuPreferenceChanged.st +++ b/packages/SwaLint-Core.package/SwaLint.class/class/worldMenuPreferenceChanged.st @@ -1,6 +1,6 @@ world menu worldMenuPreferenceChanged - SLPreferences WorldMenuEntry + self WorldMenuEntry ifTrue: [self registerInWorldMenu] ifFalse: [self unregisterInWorldMenu]. \ No newline at end of file diff --git a/packages/SwaLint-Core.package/SwaLint.class/methodProperties.json b/packages/SwaLint-Core.package/SwaLint.class/methodProperties.json index 494d0736..b0e05bb6 100644 --- a/packages/SwaLint-Core.package/SwaLint.class/methodProperties.json +++ b/packages/SwaLint-Core.package/SwaLint.class/methodProperties.json @@ -1,17 +1,19 @@ { "class" : { - "ColorizeResults" : "MT 7/23/2014 21:38", + "ColorizeResults" : "ct 12/13/2024 04:44", "ColorizeResults:" : "MT 7/23/2014 21:40", - "DebugMode" : "NA 7/30/2015 16:32", - "DebugMode:" : "MT 7/23/2014 21:40", - "MarkLongRuntimeTests" : "BD 7/9/2018 18:18", + "MarkLongRuntimeTests" : "ct 12/13/2024 04:45", "MarkLongRuntimeTests:" : "MT 7/23/2014 21:40", - "OrderByTests" : "NA 7/30/2015 16:32", + "OrderByTests" : "ct 12/13/2024 04:45", "OrderByTests:" : "NA 7/30/2015 15:46", - "UseOBRefactoryIfAvailable" : "MT 7/23/2014 21:40", + "UseOBRefactoryIfAvailable" : "ct 12/13/2024 04:45", "UseOBRefactoryIfAvailable:" : "MT 7/23/2014 21:40", - "WorldMenuEntry" : "MT 7/23/2014 21:41", + "WorldMenuEntry" : "ct 12/13/2024 04:45", "WorldMenuEntry:" : "MT 7/23/2014 21:41", + "appMenu:" : "ct 12/19/2024 23:26", + "appName" : "ct 12/19/2024 23:41", + "basicSelfUpdateBranch:" : "ct 8/27/2023 20:17", + "basicSelfUpdateMetacelloSpec" : "ct 1/4/2025 22:16", "class:ignoreRule:" : "LG 7/24/2018 20:48", "class:ignoresRule:" : "LG 7/24/2018 20:47", "class:unignoreRule:" : "LG 7/24/2018 20:34", @@ -19,32 +21,50 @@ "classesIgnoringRules" : "LG 7/24/2018 19:54", "cleanUpOldEnviroments" : "BD 7/8/2018 21:55", "createSARFile" : "LS 7/13/2018 12:06", - "debug" : "NH 7/15/2015 22:10", - "debugCr" : "NH 7/15/2015 22:10", - "debugMode" : "NH 7/15/2015 22:10", - "debugMode:" : "NH 7/15/2015 22:11", - "debugOut:" : "NH 7/15/2015 22:11", + "debugCr" : "ct 1/4/2025 23:41", + "debugMode" : "ct 12/20/2024 00:30", + "debugMode:" : "ct 12/20/2024 00:30", + "debugOut:" : "ct 1/4/2025 23:41", + "defaultFeedbackText" : "ct 8/27/2023 22:35", + "defaultSelfUpdateBranch" : "ct 8/27/2023 20:17", + "doSelfUpdate" : "ct 8/27/2023 23:11", + "githubNewIssueUrl" : "ct 8/27/2023 20:16", + "githubNewIssueUrlWithBody:" : "ct 8/27/2023 20:16", + "githubRepositoryParams" : "ct 12/19/2024 23:05", + "githubUrl" : "ct 12/19/2024 23:17", "hiddenCategory" : "NH 7/15/2015 22:40", - "ifColorizeResult:" : "AT 5/9/2008 21:20", - "initializePreferences" : "NH 7/15/2015 21:46", - "install" : "NA 7/30/2015 16:31", + "ifColorizeResult:" : "ct 12/13/2024 05:23", + "initialize" : "ct 12/20/2024 00:03", + "initializePreferences" : "ct 12/13/2024 04:03", + "install" : "ct 12/20/2024 00:30", + "latestTimeStamp" : "ct 12/19/2024 23:16", "menuCommandOn:" : "BD 7/13/2018 11:37", + "metacello" : "ct 12/20/2024 05:21", "open" : "NA 7/28/2015 13:19", - "projectDescription" : "BD 6/22/2018 13:01", + "openUrl:" : "ct 12/19/2024 23:37", + "projectDescription" : "ct 12/19/2024 23:18", "projectLogo" : "AT 5/8/2008 10:35", "projectLogoContents" : "NR 5/28/2008 14:29", "refresh" : "BD 7/9/2018 18:16", - "refreshAllDialogs" : "NA 7/31/2015 18:42", "refreshAllEnvironments" : "BD 7/13/2018 11:56", - "registerInWorldMenu" : "topa 4/21/2010 16:54", + "registerInWorldMenu" : "ct 12/22/2024 00:10", "registerPlugIn:" : "LS 6/15/2018 16:07", + "selfUpdate" : "ct 12/19/2024 23:08", + "selfUpdateBranch" : "ct 12/19/2024 23:09", + "selfUpdateBranch:" : "ct 8/27/2023 20:18", + "selfUpdateFromMetacello" : "ct 12/20/2024 05:21", + "selfUpdateGitHubPath" : "ct 8/27/2023 20:18", + "sendFeedback" : "ct 8/27/2023 20:17", + "sendFeedbackGitHub" : "ct 11/12/2023 18:55", + "showAbout" : "ct 12/19/2024 23:19", "swaLint" : "topa 4/21/2010 16:53", - "try:catch:" : "topa 4/23/2010 15:39", - "unload" : "BD 7/13/2018 11:48", - "unregisterInWorldMenu" : "tfel 4/6/2012 12:52", + "try:catch:" : "ct 1/4/2025 23:41", + "unload" : "ct 12/20/2024 00:02", + "unregisterInWorldMenu" : "ct 12/22/2024 00:10", "unregisterPlugIn:" : "JTM 7/29/2015 14:08", - "useOBRefactory" : "NA 7/2/2015 18:27", - "versionString" : "BD 7/13/2018 11:36", - "worldMenuPreferenceChanged" : "NR 1/24/2008 10:18" }, + "useOBRefactory" : "ct 12/13/2024 05:23", + "versionString" : "ct 10/6/2025 04:11", + "worldMenuLabel" : "ct 12/22/2024 00:10", + "worldMenuPreferenceChanged" : "ct 12/13/2024 05:23" }, "instance" : { } } diff --git a/packages/SwaLint-Core.package/SwaLint.class/properties.json b/packages/SwaLint-Core.package/SwaLint.class/properties.json index 436f8041..1fec88ad 100644 --- a/packages/SwaLint-Core.package/SwaLint.class/properties.json +++ b/packages/SwaLint-Core.package/SwaLint.class/properties.json @@ -3,7 +3,6 @@ "classinstvars" : [ "tests", "categories", - "debug", "icon", "classesIgnoringRules" ], "classvars" : [ @@ -11,6 +10,7 @@ "DebugMode", "MarkLongRuntimeTests", "OrderByTests", + "SelfUpdateBranch", "UseOBRefactoryIfAvailable", "WorldMenuEntry" ], "commentStamp" : "LG 7/24/2018 20:38", diff --git a/packages/SwaLint-Core.package/monticello.meta/preamble.st b/packages/SwaLint-Core.package/monticello.meta/preamble.st new file mode 100644 index 00000000..08ea77a1 --- /dev/null +++ b/packages/SwaLint-Core.package/monticello.meta/preamble.st @@ -0,0 +1,2 @@ +(PackageInfo named: 'SwaLint-Core') preamble: '"menu item was renamed (09a9ecf)" +TheWorldMenu unregisterOpenCommand: ''SwaLint Code Critics''.'! diff --git a/packages/SwaLint-PlugIns.package/.squot-contents b/packages/SwaLint-PlugIns.package/.squot-contents deleted file mode 100644 index 239ddebb..00000000 --- a/packages/SwaLint-PlugIns.package/.squot-contents +++ /dev/null @@ -1,5 +0,0 @@ -SquotTrackedObjectMetadata { - #objectClassName : #PackageInfo, - #objectsReplacedByNames : true, - #serializer : #SquotCypressCodeSerializer -} \ No newline at end of file diff --git a/packages/SwaLint-PlugIns.package/SLClassMetricsPlugIn.class/class/AverageLOCperMethodAVRG.st b/packages/SwaLint-PlugIns.package/SLClassMetricsPlugIn.class/class/AverageLOCperMethodAVRG.st index b2db8692..a01fca7c 100644 --- a/packages/SwaLint-PlugIns.package/SLClassMetricsPlugIn.class/class/AverageLOCperMethodAVRG.st +++ b/packages/SwaLint-PlugIns.package/SLClassMetricsPlugIn.class/class/AverageLOCperMethodAVRG.st @@ -2,9 +2,8 @@ preferences AverageLOCperMethodAVRG + categoryList: #(ClassMetrics) + description: 'The average of the mean lines of code of the methods in one class' + type: #Number> ^ AverageLOCperMethodAVRG ifNil: [ 7 ] \ No newline at end of file diff --git a/packages/SwaLint-PlugIns.package/SLClassMetricsPlugIn.class/class/AverageLOCperMethodSTDEV.st b/packages/SwaLint-PlugIns.package/SLClassMetricsPlugIn.class/class/AverageLOCperMethodSTDEV.st index 92ffd1da..f1088b74 100644 --- a/packages/SwaLint-PlugIns.package/SLClassMetricsPlugIn.class/class/AverageLOCperMethodSTDEV.st +++ b/packages/SwaLint-PlugIns.package/SLClassMetricsPlugIn.class/class/AverageLOCperMethodSTDEV.st @@ -2,9 +2,8 @@ preferences AverageLOCperMethodSTDEV + categoryList: #(#ClassMetrics) + description: 'The standard deviation of the mean lines of code of the methods in one class' + type: #Number> ^ AverageLOCperMethodSTDEV ifNil: [ 3 ] \ No newline at end of file diff --git a/packages/SwaLint-PlugIns.package/SLClassMetricsPlugIn.class/class/BaseClassOverridingRatioHigh.st b/packages/SwaLint-PlugIns.package/SLClassMetricsPlugIn.class/class/BaseClassOverridingRatioHigh.st index 9c0c183f..3d723ab3 100644 --- a/packages/SwaLint-PlugIns.package/SLClassMetricsPlugIn.class/class/BaseClassOverridingRatioHigh.st +++ b/packages/SwaLint-PlugIns.package/SLClassMetricsPlugIn.class/class/BaseClassOverridingRatioHigh.st @@ -2,9 +2,8 @@ preferences BaseClassOverridingRatioHigh + categoryList: #(ClassMetrics) + description: 'The high border of base class method overriding ratio for a class' + type: #Number> ^ BaseClassOverridingRatioHigh ifNil: [ 3/4 ] \ No newline at end of file diff --git a/packages/SwaLint-PlugIns.package/SLClassMetricsPlugIn.class/class/BaseClassOverridingRatioLow.st b/packages/SwaLint-PlugIns.package/SLClassMetricsPlugIn.class/class/BaseClassOverridingRatioLow.st index 0b2a1284..80493322 100644 --- a/packages/SwaLint-PlugIns.package/SLClassMetricsPlugIn.class/class/BaseClassOverridingRatioLow.st +++ b/packages/SwaLint-PlugIns.package/SLClassMetricsPlugIn.class/class/BaseClassOverridingRatioLow.st @@ -2,9 +2,8 @@ preferences BaseClassOverridingRatioLow + categoryList: #(ClassMetrics) + description: 'The low border of base class method overriding ratio for a class' + type: #Number> ^ BaseClassOverridingRatioLow ifNil: [ 0 ] \ No newline at end of file diff --git a/packages/SwaLint-PlugIns.package/SLClassMetricsPlugIn.class/class/ClassLOCAVRG.st b/packages/SwaLint-PlugIns.package/SLClassMetricsPlugIn.class/class/ClassLOCAVRG.st index 775cf31e..f27c3891 100644 --- a/packages/SwaLint-PlugIns.package/SLClassMetricsPlugIn.class/class/ClassLOCAVRG.st +++ b/packages/SwaLint-PlugIns.package/SLClassMetricsPlugIn.class/class/ClassLOCAVRG.st @@ -2,9 +2,8 @@ preferences ClassLOCAVRG + categoryList: #(ClassMetrics) + description: 'The average of lines of code of a class' + type: #Number> ^ ClassLOCAVRG ifNil: [ 200 ] \ No newline at end of file diff --git a/packages/SwaLint-PlugIns.package/SLClassMetricsPlugIn.class/class/ClassLOCSTDEV.st b/packages/SwaLint-PlugIns.package/SLClassMetricsPlugIn.class/class/ClassLOCSTDEV.st index b06e0ef7..e1d83dc1 100644 --- a/packages/SwaLint-PlugIns.package/SLClassMetricsPlugIn.class/class/ClassLOCSTDEV.st +++ b/packages/SwaLint-PlugIns.package/SLClassMetricsPlugIn.class/class/ClassLOCSTDEV.st @@ -2,9 +2,8 @@ preferences ClassLOCSTDEV + categoryList: #(ClassMetrics) + description: 'The standard deviation of the lines of code of a class' + type: #Number> ^ ClassLOCSTDEV ifNil: [ 100 ] \ No newline at end of file diff --git a/packages/SwaLint-PlugIns.package/SLClassMetricsPlugIn.class/class/NumberOfClassMethodsHigh.st b/packages/SwaLint-PlugIns.package/SLClassMetricsPlugIn.class/class/NumberOfClassMethodsHigh.st index d93b3893..7f0bc6d2 100644 --- a/packages/SwaLint-PlugIns.package/SLClassMetricsPlugIn.class/class/NumberOfClassMethodsHigh.st +++ b/packages/SwaLint-PlugIns.package/SLClassMetricsPlugIn.class/class/NumberOfClassMethodsHigh.st @@ -2,9 +2,8 @@ preferences NumberOfClassMethodsHigh + categoryList: #(ClassMetrics) + description: 'The high border of number of class methods for a class' + type: #Number> ^ NumberOfClassMethodsHigh ifNil: [ 20 ] \ No newline at end of file diff --git a/packages/SwaLint-PlugIns.package/SLClassMetricsPlugIn.class/class/NumberOfClassMethodsLow.st b/packages/SwaLint-PlugIns.package/SLClassMetricsPlugIn.class/class/NumberOfClassMethodsLow.st index e6f01b50..90f54784 100644 --- a/packages/SwaLint-PlugIns.package/SLClassMetricsPlugIn.class/class/NumberOfClassMethodsLow.st +++ b/packages/SwaLint-PlugIns.package/SLClassMetricsPlugIn.class/class/NumberOfClassMethodsLow.st @@ -2,9 +2,8 @@ preferences NumberOfClassMethodsLow + categoryList: #(ClassMetrics) + description: 'The low border of number of class methods for a class' + type: #Number> ^ NumberOfClassMethodsLow ifNil: [ 3 ] \ No newline at end of file diff --git a/packages/SwaLint-PlugIns.package/SLClassMetricsPlugIn.class/class/NumberOfInstanceMethodsLow.st b/packages/SwaLint-PlugIns.package/SLClassMetricsPlugIn.class/class/NumberOfInstanceMethodsLow.st index 233b937a..d3b4e6bf 100644 --- a/packages/SwaLint-PlugIns.package/SLClassMetricsPlugIn.class/class/NumberOfInstanceMethodsLow.st +++ b/packages/SwaLint-PlugIns.package/SLClassMetricsPlugIn.class/class/NumberOfInstanceMethodsLow.st @@ -2,9 +2,8 @@ preferences NumberOfInstanceMethodsLow + categoryList: #(ClassMetrics) + description: 'The low border of number of instance methods for a class' + type: #Number> ^ NumberOfInstanceMethodsLow ifNil: [ 5 ] \ No newline at end of file diff --git a/packages/SwaLint-PlugIns.package/SLClassMetricsPlugIn.class/class/NumberOfInstenceMethodsHigh.st b/packages/SwaLint-PlugIns.package/SLClassMetricsPlugIn.class/class/NumberOfInstenceMethodsHigh.st index 7d4be27d..ad21b897 100644 --- a/packages/SwaLint-PlugIns.package/SLClassMetricsPlugIn.class/class/NumberOfInstenceMethodsHigh.st +++ b/packages/SwaLint-PlugIns.package/SLClassMetricsPlugIn.class/class/NumberOfInstenceMethodsHigh.st @@ -2,9 +2,8 @@ preferences NumberOfInstenceMethodsHigh + categoryList: #(ClassMetrics) + description: 'The high border of number of instance methods for a class' + type: #Number> ^ NumberOfInstenceMethodsHigh ifNil: [ 40 ] \ No newline at end of file diff --git a/packages/SwaLint-PlugIns.package/SLClassMetricsPlugIn.class/class/NumberOfMethodsHigh.st b/packages/SwaLint-PlugIns.package/SLClassMetricsPlugIn.class/class/NumberOfMethodsHigh.st index a6314188..932be08c 100644 --- a/packages/SwaLint-PlugIns.package/SLClassMetricsPlugIn.class/class/NumberOfMethodsHigh.st +++ b/packages/SwaLint-PlugIns.package/SLClassMetricsPlugIn.class/class/NumberOfMethodsHigh.st @@ -2,9 +2,8 @@ preferences NumberOfMethodsHigh + categoryList: #(ClassMetrics) + description: 'The high border of number of methods for a class' + type: #Number> ^ NumberOfMethodsHigh ifNil: [ 60 ] \ No newline at end of file diff --git a/packages/SwaLint-PlugIns.package/SLClassMetricsPlugIn.class/class/NumberOfMethodsLow.st b/packages/SwaLint-PlugIns.package/SLClassMetricsPlugIn.class/class/NumberOfMethodsLow.st index 00143970..a788d0e1 100644 --- a/packages/SwaLint-PlugIns.package/SLClassMetricsPlugIn.class/class/NumberOfMethodsLow.st +++ b/packages/SwaLint-PlugIns.package/SLClassMetricsPlugIn.class/class/NumberOfMethodsLow.st @@ -2,9 +2,8 @@ preferences NumberOfMethodsLow + categoryList: #(ClassMetrics) + description: 'The low border of number of methods for a class' + type: #Number> ^ NumberOfMethodsLow ifNil: [ 8 ] \ No newline at end of file diff --git a/packages/SwaLint-PlugIns.package/SLClassMetricsPlugIn.class/class/ShowClassMetricTests.st b/packages/SwaLint-PlugIns.package/SLClassMetricsPlugIn.class/class/ShowClassMetricTests.st index a345370f..a4791698 100644 --- a/packages/SwaLint-PlugIns.package/SLClassMetricsPlugIn.class/class/ShowClassMetricTests.st +++ b/packages/SwaLint-PlugIns.package/SLClassMetricsPlugIn.class/class/ShowClassMetricTests.st @@ -2,11 +2,9 @@ preferences ShowClassMetricTests diff --git a/packages/SwaLint-PlugIns.package/SLClassMetricsPlugIn.class/class/WMCAVRG.st b/packages/SwaLint-PlugIns.package/SLClassMetricsPlugIn.class/class/WMCAVRG.st index a98574da..3b351a73 100644 --- a/packages/SwaLint-PlugIns.package/SLClassMetricsPlugIn.class/class/WMCAVRG.st +++ b/packages/SwaLint-PlugIns.package/SLClassMetricsPlugIn.class/class/WMCAVRG.st @@ -2,9 +2,8 @@ preferences WMCAVRG + categoryList: #(ClassMetrics) + description: 'The average weighted method count for a class' + type: #Number> ^ WMCAVRG ifNil: [ 25 ] \ No newline at end of file diff --git a/packages/SwaLint-PlugIns.package/SLClassMetricsPlugIn.class/class/WMCSTDEV.st b/packages/SwaLint-PlugIns.package/SLClassMetricsPlugIn.class/class/WMCSTDEV.st index 70f02dda..eb663324 100644 --- a/packages/SwaLint-PlugIns.package/SLClassMetricsPlugIn.class/class/WMCSTDEV.st +++ b/packages/SwaLint-PlugIns.package/SLClassMetricsPlugIn.class/class/WMCSTDEV.st @@ -2,9 +2,8 @@ preferences WMCSTDEV + categoryList: #(ClassMetrics) + description: 'The standard deviation of the weighted method count for a class' + type: #Number> ^ WMCSTDEV ifNil: [ 10 ] \ No newline at end of file diff --git a/packages/SwaLint-PlugIns.package/SLClassMetricsPlugIn.class/instance/countUsedBaseElementsOf..st b/packages/SwaLint-PlugIns.package/SLClassMetricsPlugIn.class/instance/countUsedBaseElementsOf..st index 75b1d38c..6e467a77 100644 --- a/packages/SwaLint-PlugIns.package/SLClassMetricsPlugIn.class/instance/countUsedBaseElementsOf..st +++ b/packages/SwaLint-PlugIns.package/SLClassMetricsPlugIn.class/instance/countUsedBaseElementsOf..st @@ -4,6 +4,6 @@ countUsedBaseElementsOf: aSLClassTestObject | baseInstanceMethods baseInstanceVariables | baseInstanceMethods := self getBaseClassInstanceMethodsUsedIn: aSLClassTestObject. - baseInstanceVariables := self getBaseClassInstanceVaribalesUsedIn: aSLClassTestObject. + baseInstanceVariables := self getBaseClassInstanceVariablesUsedIn: aSLClassTestObject. ^ baseInstanceMethods size + baseInstanceVariables size \ No newline at end of file diff --git a/packages/SwaLint-PlugIns.package/SLClassMetricsPlugIn.class/instance/getBaseClassInstanceVariablesUsedIn..st b/packages/SwaLint-PlugIns.package/SLClassMetricsPlugIn.class/instance/getBaseClassInstanceVariablesUsedIn..st new file mode 100644 index 00000000..5c007d53 --- /dev/null +++ b/packages/SwaLint-PlugIns.package/SLClassMetricsPlugIn.class/instance/getBaseClassInstanceVariablesUsedIn..st @@ -0,0 +1,13 @@ +private +getBaseClassInstanceVariablesUsedIn: aSLClassTestObject + + | allMethodsUsedInClass allBaseClassAccessors instanceVars | + + allMethodsUsedInClass := (self allMethodsUsedIn: aSLClassTestObject). + allBaseClassAccessors := aSLClassTestObject superInstanceMethods select: [ :each | (each resultOf: #isAccessor:) result]. + instanceVars := (allBaseClassAccessors + select: [ :each | allMethodsUsedInClass includes: each testObject selector] + thenCollect: [ :each | aSLClassTestObject superInstanceVariables at: (each resultOf: #accessedVar:) ]) asSet. + aSLClassTestObject instanceMethods do: [ :each | instanceVars addAll: (each resultOf: #usedInstVars:) result]. + + ^ instanceVars \ No newline at end of file diff --git a/packages/SwaLint-PlugIns.package/SLClassMetricsPlugIn.class/instance/getBaseClassInstanceVaribalesUsedIn..st b/packages/SwaLint-PlugIns.package/SLClassMetricsPlugIn.class/instance/getBaseClassInstanceVaribalesUsedIn..st deleted file mode 100644 index f906b2df..00000000 --- a/packages/SwaLint-PlugIns.package/SLClassMetricsPlugIn.class/instance/getBaseClassInstanceVaribalesUsedIn..st +++ /dev/null @@ -1,13 +0,0 @@ -private -getBaseClassInstanceVaribalesUsedIn: aSLClassTestObject - - | allMethodsUsedInClass allBaseClassAccessors instanceVars | - - allMethodsUsedInClass := (self allMethodsUsedIn: aSLClassTestObject). - allBaseClassAccessors := aSLClassTestObject superInstanceMethods select: [ :each | (each resultOf: #isAccessor:) result]. - instanceVars := (allBaseClassAccessors - select: [ :each | allMethodsUsedInClass includes: each testObject selector] - thenCollect: [ :each | aSLClassTestObject superInstanceVariables at: (each resultOf: #accessedVar:) ]) asSet. - aSLClassTestObject instanceMethods do: [ :each | instanceVars addAll: (each resultOf: #usedInstVars:) result]. - - ^ instanceVars \ No newline at end of file diff --git a/packages/SwaLint-PlugIns.package/SLClassMetricsPlugIn.class/methodProperties.json b/packages/SwaLint-PlugIns.package/SLClassMetricsPlugIn.class/methodProperties.json index 2b62ab2f..a05d71f5 100644 --- a/packages/SwaLint-PlugIns.package/SLClassMetricsPlugIn.class/methodProperties.json +++ b/packages/SwaLint-PlugIns.package/SLClassMetricsPlugIn.class/methodProperties.json @@ -1,34 +1,34 @@ { "class" : { - "AverageLOCperMethodAVRG" : "MT 7/23/2014 23:35", + "AverageLOCperMethodAVRG" : "ct 12/20/2024 00:41", "AverageLOCperMethodAVRG:" : "MT 7/23/2014 23:35", - "AverageLOCperMethodSTDEV" : "MT 7/23/2014 23:35", + "AverageLOCperMethodSTDEV" : "ct 12/20/2024 00:42", "AverageLOCperMethodSTDEV:" : "MT 7/23/2014 23:36", - "BaseClassOverridingRatioHigh" : "NA 7/29/2015 11:31", + "BaseClassOverridingRatioHigh" : "ct 12/20/2024 00:42", "BaseClassOverridingRatioHigh:" : "MT 7/23/2014 23:36", - "BaseClassOverridingRatioLow" : "MT 7/23/2014 23:36", + "BaseClassOverridingRatioLow" : "ct 12/20/2024 00:42", "BaseClassOverridingRatioLow:" : "MT 7/23/2014 23:36", - "ClassLOCAVRG" : "MT 7/23/2014 23:36", + "ClassLOCAVRG" : "ct 12/20/2024 00:42", "ClassLOCAVRG:" : "MT 7/23/2014 23:36", - "ClassLOCSTDEV" : "MT 7/23/2014 23:36", + "ClassLOCSTDEV" : "ct 12/20/2024 00:42", "ClassLOCSTDEV:" : "MT 7/23/2014 23:36", - "NumberOfClassMethodsHigh" : "MT 7/23/2014 23:36", + "NumberOfClassMethodsHigh" : "ct 12/20/2024 00:42", "NumberOfClassMethodsHigh:" : "MT 7/23/2014 23:37", - "NumberOfClassMethodsLow" : "MT 7/23/2014 23:35", + "NumberOfClassMethodsLow" : "ct 12/20/2024 00:42", "NumberOfClassMethodsLow:" : "MT 7/23/2014 23:37", - "NumberOfInstanceMethodsLow" : "MT 7/23/2014 23:37", + "NumberOfInstanceMethodsLow" : "ct 12/20/2024 00:42", "NumberOfInstanceMethodsLow:" : "MT 7/23/2014 23:37", - "NumberOfInstenceMethodsHigh" : "MT 7/23/2014 23:37", + "NumberOfInstenceMethodsHigh" : "ct 12/20/2024 00:42", "NumberOfInstenceMethodsHigh:" : "MT 7/23/2014 23:37", - "NumberOfMethodsHigh" : "MT 7/23/2014 23:37", + "NumberOfMethodsHigh" : "ct 12/20/2024 00:42", "NumberOfMethodsHigh:" : "MT 7/23/2014 23:38", - "NumberOfMethodsLow" : "MT 7/23/2014 23:38", + "NumberOfMethodsLow" : "ct 12/20/2024 00:42", "NumberOfMethodsLow:" : "MT 7/23/2014 23:39", - "ShowClassMetricTests" : "MT 7/23/2014 23:39", + "ShowClassMetricTests" : "ct 12/13/2024 04:42", "ShowClassMetricTests:" : "MT 7/23/2014 23:39", - "WMCAVRG" : "MT 7/23/2014 23:39", + "WMCAVRG" : "ct 12/20/2024 00:42", "WMCAVRG:" : "MT 7/23/2014 23:39", - "WMCSTDEV" : "MT 7/23/2014 23:39", + "WMCSTDEV" : "ct 12/20/2024 00:42", "WMCSTDEV:" : "MT 7/23/2014 23:39", "defaultCategory" : "MT 7/23/2014 23:40" }, "instance" : { @@ -45,9 +45,9 @@ "cohesion:" : "AT 5/7/2008 21:33", "computeHITRecursively:" : "AT 5/7/2008 21:33", "countBaseElementsOf:" : "NA 7/29/2015 18:31", - "countUsedBaseElementsOf:" : "NA 7/29/2015 18:31", + "countUsedBaseElementsOf:" : "ct 1/5/2025 03:19", "getBaseClassInstanceMethodsUsedIn:" : "NA 7/26/2015 13:25", - "getBaseClassInstanceVaribalesUsedIn:" : "NA 7/29/2015 18:25", + "getBaseClassInstanceVariablesUsedIn:" : "ct 1/5/2025 03:19", "heightOfInheritanceTree:" : "NA 7/25/2015 21:19", "method:appearsIn:" : "AT 5/7/2008 21:33", "method:isAccessorAndAppearsIn:" : "JTM 5/27/2015 13:45", diff --git a/packages/SwaLint-PlugIns.package/SLCodingStylesPlugIn.class/class/NoDotAfterMethodEnd.st b/packages/SwaLint-PlugIns.package/SLCodingStylesPlugIn.class/class/NoDotAfterMethodEnd.st index 711975c9..d6f8b553 100644 --- a/packages/SwaLint-PlugIns.package/SLCodingStylesPlugIn.class/class/NoDotAfterMethodEnd.st +++ b/packages/SwaLint-PlugIns.package/SLCodingStylesPlugIn.class/class/NoDotAfterMethodEnd.st @@ -2,9 +2,8 @@ preferences NoDotAfterMethodEnd + categoryList: #(CodingStyles) + description: 'If true, dots behind a return statement are a bad thing, if false, they are good.' + type: #Boolean> ^ NoDotAfterMethodEnd ifNil: [ true ] \ No newline at end of file diff --git a/packages/SwaLint-PlugIns.package/SLCodingStylesPlugIn.class/instance/averageHierarchyHeight..st b/packages/SwaLint-PlugIns.package/SLCodingStylesPlugIn.class/instance/averageHierarchyHeight..st new file mode 100644 index 00000000..2a192ce6 --- /dev/null +++ b/packages/SwaLint-PlugIns.package/SLCodingStylesPlugIn.class/instance/averageHierarchyHeight..st @@ -0,0 +1,8 @@ +tests +averageHierarchyHeight: aSLSystemTestObject + + + + aSLSystemTestObject shouldBeSystem. + ^ self numericResult: (self averageHierarchyHeightOf: aSLSystemTestObject) \ No newline at end of file diff --git a/packages/SwaLint-PlugIns.package/SLCodingStylesPlugIn.class/instance/averageHierarchyHeightOf..st b/packages/SwaLint-PlugIns.package/SLCodingStylesPlugIn.class/instance/averageHierarchyHeightOf..st new file mode 100644 index 00000000..a164c6ce --- /dev/null +++ b/packages/SwaLint-PlugIns.package/SLCodingStylesPlugIn.class/instance/averageHierarchyHeightOf..st @@ -0,0 +1,6 @@ +private +averageHierarchyHeightOf: aSLSystemTestObject + + ^ (((aSLSystemTestObject rootClasses ifEmpty: [^ Float nan]) + collect: [:class | class resultOf: #heightOfInheritanceTree:]) sum) + / aSLSystemTestObject rootClasses size \ No newline at end of file diff --git a/packages/SwaLint-PlugIns.package/SLCodingStylesPlugIn.class/instance/averageHierarchyHight..st b/packages/SwaLint-PlugIns.package/SLCodingStylesPlugIn.class/instance/averageHierarchyHight..st deleted file mode 100644 index 6152d200..00000000 --- a/packages/SwaLint-PlugIns.package/SLCodingStylesPlugIn.class/instance/averageHierarchyHight..st +++ /dev/null @@ -1,8 +0,0 @@ -tests -averageHierarchyHight: aSLSystemTestObject - - - - aSLSystemTestObject shouldBeSystem. - ^ self numericResult: (self averageHierarchyHightOf: aSLSystemTestObject) \ No newline at end of file diff --git a/packages/SwaLint-PlugIns.package/SLCodingStylesPlugIn.class/instance/averageHierarchyHightOf..st b/packages/SwaLint-PlugIns.package/SLCodingStylesPlugIn.class/instance/averageHierarchyHightOf..st deleted file mode 100644 index fd184c24..00000000 --- a/packages/SwaLint-PlugIns.package/SLCodingStylesPlugIn.class/instance/averageHierarchyHightOf..st +++ /dev/null @@ -1,5 +0,0 @@ -private -averageHierarchyHightOf: aSLSystemTestObject - - ^ ((aSLSystemTestObject rootClasses collect: - [:class | class resultOf: #heightOfInheritanceTree: ]) sum) / (aSLSystemTestObject rootClasses size) \ No newline at end of file diff --git a/packages/SwaLint-PlugIns.package/SLCodingStylesPlugIn.class/instance/averageNumberOfDerivedClassesOf..st b/packages/SwaLint-PlugIns.package/SLCodingStylesPlugIn.class/instance/averageNumberOfDerivedClassesOf..st index faf07307..7c6a2254 100644 --- a/packages/SwaLint-PlugIns.package/SLCodingStylesPlugIn.class/instance/averageNumberOfDerivedClassesOf..st +++ b/packages/SwaLint-PlugIns.package/SLCodingStylesPlugIn.class/instance/averageNumberOfDerivedClassesOf..st @@ -1,6 +1,6 @@ private averageNumberOfDerivedClassesOf: aSLSystemTestObject - - ^ ((aSLSystemTestObject allClasses collect: - [:class | class testObject subclasses size]) sum ) / (aSLSystemTestObject resultOf: #classCount:) \ No newline at end of file + ^ ((aSLSystemTestObject allClasses ifEmpty: [^ Float nan]) + collect: [:class | class testObject subclasses size]) sum + / (aSLSystemTestObject resultOf: #classCount:) \ No newline at end of file diff --git a/packages/SwaLint-PlugIns.package/SLCodingStylesPlugIn.class/instance/nsFreeClasses..st b/packages/SwaLint-PlugIns.package/SLCodingStylesPlugIn.class/instance/nsFreeClasses..st index 200aaf0c..41e7055a 100644 --- a/packages/SwaLint-PlugIns.package/SLCodingStylesPlugIn.class/instance/nsFreeClasses..st +++ b/packages/SwaLint-PlugIns.package/SLCodingStylesPlugIn.class/instance/nsFreeClasses..st @@ -9,7 +9,7 @@ nsFreeClasses: aSLSystemTestObject aSLSystemTestObject shouldBeSystem. ^ (self integerResult: (aSLSystemTestObject allClasses count: [ :each | - each resultOf: #nsClass: isNil])) + (each resultOf: #nsClass:) value isNil])) showRule: [:v | v > 0]; colorRule: self freeClassesColorRule; yourself \ No newline at end of file diff --git a/packages/SwaLint-PlugIns.package/SLCodingStylesPlugIn.class/instance/overviewPyramidMetric..st b/packages/SwaLint-PlugIns.package/SLCodingStylesPlugIn.class/instance/overviewPyramidMetric..st index c1758819..a73bd075 100644 --- a/packages/SwaLint-PlugIns.package/SLCodingStylesPlugIn.class/instance/overviewPyramidMetric..st +++ b/packages/SwaLint-PlugIns.package/SLCodingStylesPlugIn.class/instance/overviewPyramidMetric..st @@ -3,12 +3,12 @@ overviewPyramidMetric: aSLSystemTestObject - aSLSystemTestObject shouldBeSystem. ^ (self collectionResult: (Dictionary newFrom: - {#ahh->(aSLSystemTestObject resultOf: #averageHierarchyHight:) result. + {#ahh->(aSLSystemTestObject resultOf: #averageHierarchyHeight:) result. #andc->(aSLSystemTestObject resultOf: #averageNumberOfDerivedClasses:) result. #calls->(self systemCALLS: aSLSystemTestObject). #cyclo->(self systemCYCLO: aSLSystemTestObject). diff --git a/packages/SwaLint-PlugIns.package/SLCodingStylesPlugIn.class/instance/systemCALLS..st b/packages/SwaLint-PlugIns.package/SLCodingStylesPlugIn.class/instance/systemCALLS..st index ba6334e6..bde91837 100644 --- a/packages/SwaLint-PlugIns.package/SLCodingStylesPlugIn.class/instance/systemCALLS..st +++ b/packages/SwaLint-PlugIns.package/SLCodingStylesPlugIn.class/instance/systemCALLS..st @@ -1,7 +1,7 @@ private systemCALLS: aSLSystemTestObject - ^((aSLSystemTestObject allClasses collect: + ^(((aSLSystemTestObject allClasses ifEmpty: [^ Float nan]) collect: [:class | (class methods ifEmpty: [{0}] ifNotEmpty: [(class methods collect: [:method | (method resultOf: #methodCallers:) itemCount])]) sum ]) diff --git a/packages/SwaLint-PlugIns.package/SLCodingStylesPlugIn.class/instance/systemCYCLO..st b/packages/SwaLint-PlugIns.package/SLCodingStylesPlugIn.class/instance/systemCYCLO..st index 52faa2bf..886e97c0 100644 --- a/packages/SwaLint-PlugIns.package/SLCodingStylesPlugIn.class/instance/systemCYCLO..st +++ b/packages/SwaLint-PlugIns.package/SLCodingStylesPlugIn.class/instance/systemCYCLO..st @@ -1,7 +1,7 @@ private systemCYCLO: aSLSystemTestObject - ^((aSLSystemTestObject allClasses collect: + ^(((aSLSystemTestObject allClasses ifEmpty: [^ Float nan]) collect: [:class | (class methods ifEmpty: [{0}] ifNotEmpty: [(class methods collect: [:method | (method resultOf: #methodCYCLO:) result])]) sum ]) diff --git a/packages/SwaLint-PlugIns.package/SLCodingStylesPlugIn.class/methodProperties.json b/packages/SwaLint-PlugIns.package/SLCodingStylesPlugIn.class/methodProperties.json index c2bf6614..64a73395 100644 --- a/packages/SwaLint-PlugIns.package/SLCodingStylesPlugIn.class/methodProperties.json +++ b/packages/SwaLint-PlugIns.package/SLCodingStylesPlugIn.class/methodProperties.json @@ -1,13 +1,13 @@ { "class" : { - "NoDotAfterMethodEnd" : "MT 7/23/2014 23:34", + "NoDotAfterMethodEnd" : "ct 12/13/2024 04:36", "NoDotAfterMethodEnd:" : "MT 7/23/2014 23:34", "defaultCategory" : "AT 5/7/2008 21:30" }, "instance" : { - "averageHierarchyHight:" : "NA 7/31/2015 19:28", - "averageHierarchyHightOf:" : "NA 7/31/2015 19:28", + "averageHierarchyHeight:" : "ct 12/19/2024 20:25", + "averageHierarchyHeightOf:" : "ct 1/5/2025 03:43", "averageNumberOfDerivedClasses:" : "NA 7/31/2015 19:27", - "averageNumberOfDerivedClassesOf:" : "NA 7/30/2015 12:32", + "averageNumberOfDerivedClassesOf:" : "ct 1/5/2025 03:44", "classNamespaceResult:" : "BD 6/29/2018 12:47", "collectNamespaces:" : "AT 5/27/2008 18:14", "commonStartOf:" : "BD 6/29/2018 12:16", @@ -29,11 +29,11 @@ "noNumber:at:" : "AT 5/8/2008 09:57", "nsClass:" : "JTM 5/27/2015 13:46", "nsDict:" : "JTM 5/27/2015 11:37", - "nsFreeClasses:" : "BD 6/29/2018 12:48", + "nsFreeClasses:" : "ct 12/19/2024 04:29", "nsTotal:" : "JTM 5/27/2015 13:46", - "overviewPyramidMetric:" : "BD 6/16/2018 13:04", + "overviewPyramidMetric:" : "ct 12/20/2024 01:17", "printOn:" : "NH 6/24/2015 14:11", "qualityResult:" : "BD 7/4/2018 19:45", - "systemCALLS:" : "SH 6/18/2015 11:54", - "systemCYCLO:" : "SH 6/18/2015 11:49", + "systemCALLS:" : "ct 1/5/2025 03:44", + "systemCYCLO:" : "ct 1/5/2025 03:45", "systemFANOUT:" : "BD 7/25/2018 16:17" } } diff --git a/packages/SwaLint-PlugIns.package/SLDisharmonyPlugIn.class/class/LargeClassLOC.st b/packages/SwaLint-PlugIns.package/SLDisharmonyPlugIn.class/class/LargeClassLOC.st index fe61e246..04b3fac0 100644 --- a/packages/SwaLint-PlugIns.package/SLDisharmonyPlugIn.class/class/LargeClassLOC.st +++ b/packages/SwaLint-PlugIns.package/SLDisharmonyPlugIn.class/class/LargeClassLOC.st @@ -2,10 +2,9 @@ preferences LargeClassLOC + categoryList: #(Disharmony) + description: 'Lines of code for large classes. ' + type: #Number> ^ LargeClassLOC ifNil: [SLClassMetricsPlugIn ClassLOCAVRG + SLClassMetricsPlugIn ClassLOCSTDEV * 3 ] \ No newline at end of file diff --git a/packages/SwaLint-PlugIns.package/SLDisharmonyPlugIn.class/class/LargeMethodLOC.st b/packages/SwaLint-PlugIns.package/SLDisharmonyPlugIn.class/class/LargeMethodLOC.st index bf2e4e57..74c56a71 100644 --- a/packages/SwaLint-PlugIns.package/SLDisharmonyPlugIn.class/class/LargeMethodLOC.st +++ b/packages/SwaLint-PlugIns.package/SLDisharmonyPlugIn.class/class/LargeMethodLOC.st @@ -2,10 +2,9 @@ preferences LargeMethodLOC + categoryList: #(Disharmony) + description: 'Lines of code for large methods. ' + type: #Number> ^ LargeMethodLOC ifNil: [SLClassMetricsPlugIn ClassLOCAVRG + SLClassMetricsPlugIn ClassLOCSTDEV / 3] \ No newline at end of file diff --git a/packages/SwaLint-PlugIns.package/SLDisharmonyPlugIn.class/class/LargeWeightedMethodCount.st b/packages/SwaLint-PlugIns.package/SLDisharmonyPlugIn.class/class/LargeWeightedMethodCount.st index 60082435..2511476f 100644 --- a/packages/SwaLint-PlugIns.package/SLDisharmonyPlugIn.class/class/LargeWeightedMethodCount.st +++ b/packages/SwaLint-PlugIns.package/SLDisharmonyPlugIn.class/class/LargeWeightedMethodCount.st @@ -2,10 +2,9 @@ preferences LargeWeightedMethodCount + categoryList: #(Disharmony) + description: 'The weight of large methods' + type: #Number> ^ LargeWeightedMethodCount ifNil: [SLClassMetricsPlugIn WMCAVRG + SLClassMetricsPlugIn WMCSTDEV * 3] \ No newline at end of file diff --git a/packages/SwaLint-PlugIns.package/SLDisharmonyPlugIn.class/class/MinimumDuplicationChainLength.st b/packages/SwaLint-PlugIns.package/SLDisharmonyPlugIn.class/class/MinimumDuplicationChainLength.st index d11c1fd2..3cf2f18b 100644 --- a/packages/SwaLint-PlugIns.package/SLDisharmonyPlugIn.class/class/MinimumDuplicationChainLength.st +++ b/packages/SwaLint-PlugIns.package/SLDisharmonyPlugIn.class/class/MinimumDuplicationChainLength.st @@ -2,9 +2,8 @@ preferences MinimumDuplicationChainLength + categoryList: #(Disharmony) + description: 'The minimum length of the duplication chain.' + type: #Number> ^ MinimumDuplicationChainLength ifNil: [ 9 ] \ No newline at end of file diff --git a/packages/SwaLint-PlugIns.package/SLDisharmonyPlugIn.class/class/MinimumExactCloneSize.st b/packages/SwaLint-PlugIns.package/SLDisharmonyPlugIn.class/class/MinimumExactCloneSize.st index 23636ed3..6811b622 100644 --- a/packages/SwaLint-PlugIns.package/SLDisharmonyPlugIn.class/class/MinimumExactCloneSize.st +++ b/packages/SwaLint-PlugIns.package/SLDisharmonyPlugIn.class/class/MinimumExactCloneSize.st @@ -2,9 +2,8 @@ preferences MinimumExactCloneSize + categoryList: #(Disharmony) + description: 'The minimum size of exact clones.' + type: #Number> ^ MinimumExactCloneSize ifNil: [ 3 ] \ No newline at end of file diff --git a/packages/SwaLint-PlugIns.package/SLDisharmonyPlugIn.class/class/ShortMemoryCap.st b/packages/SwaLint-PlugIns.package/SLDisharmonyPlugIn.class/class/ShortMemoryCap.st index 0095d9ed..b152cdab 100644 --- a/packages/SwaLint-PlugIns.package/SLDisharmonyPlugIn.class/class/ShortMemoryCap.st +++ b/packages/SwaLint-PlugIns.package/SLDisharmonyPlugIn.class/class/ShortMemoryCap.st @@ -2,9 +2,8 @@ preferences ShortMemoryCap + categoryList: #(Disharmony) + description: 'The number of items, that can be memorized by the short-term memory.' + type: #Number> ^ ShortMemoryCap ifNil: [ 30 ] \ No newline at end of file diff --git a/packages/SwaLint-PlugIns.package/SLDisharmonyPlugIn.class/class/SignificantStandaloneExactCloneSize.st b/packages/SwaLint-PlugIns.package/SLDisharmonyPlugIn.class/class/SignificantStandaloneExactCloneSize.st index 9f55f6a0..92541b38 100644 --- a/packages/SwaLint-PlugIns.package/SLDisharmonyPlugIn.class/class/SignificantStandaloneExactCloneSize.st +++ b/packages/SwaLint-PlugIns.package/SLDisharmonyPlugIn.class/class/SignificantStandaloneExactCloneSize.st @@ -2,9 +2,8 @@ preferences SignificantStandaloneExactCloneSize + categoryList: #(Disharmony) + description: 'The siginificant size of exact standalone clones.' + type: #Number> ^ SignificantStandaloneExactCloneSize ifNil: [ 7 ] \ No newline at end of file diff --git a/packages/SwaLint-PlugIns.package/SLDisharmonyPlugIn.class/class/SmallLineBias.st b/packages/SwaLint-PlugIns.package/SLDisharmonyPlugIn.class/class/SmallLineBias.st index f15e46ee..cb9e5cc5 100644 --- a/packages/SwaLint-PlugIns.package/SLDisharmonyPlugIn.class/class/SmallLineBias.st +++ b/packages/SwaLint-PlugIns.package/SLDisharmonyPlugIn.class/class/SmallLineBias.st @@ -2,9 +2,8 @@ preferences SmallLineBias + categoryList: #(Disharmony) + description: 'The maximum distance between two exact clones.' + type: #Number> ^ SmallLineBias ifNil: [ 3 ] \ No newline at end of file diff --git a/packages/SwaLint-PlugIns.package/SLDisharmonyPlugIn.class/methodProperties.json b/packages/SwaLint-PlugIns.package/SLDisharmonyPlugIn.class/methodProperties.json index 8e708abf..0e75f584 100644 --- a/packages/SwaLint-PlugIns.package/SLDisharmonyPlugIn.class/methodProperties.json +++ b/packages/SwaLint-PlugIns.package/SLDisharmonyPlugIn.class/methodProperties.json @@ -1,20 +1,20 @@ { "class" : { - "LargeClassLOC" : "topa 1/9/2015 20:10", + "LargeClassLOC" : "ct 12/20/2024 00:42", "LargeClassLOC:" : "MT 7/23/2014 23:31", - "LargeMethodLOC" : "topa 1/9/2015 20:11", + "LargeMethodLOC" : "ct 12/20/2024 00:42", "LargeMethodLOC:" : "MT 7/23/2014 23:31", - "LargeWeightedMethodCount" : "topa 1/9/2015 20:11", + "LargeWeightedMethodCount" : "ct 12/20/2024 00:42", "LargeWeightedMethodCount:" : "MT 7/23/2014 23:32", - "MinimumDuplicationChainLength" : "MT 7/23/2014 23:32", + "MinimumDuplicationChainLength" : "ct 12/20/2024 00:42", "MinimumDuplicationChainLength:" : "MT 7/23/2014 23:32", - "MinimumExactCloneSize" : "MT 7/23/2014 23:32", + "MinimumExactCloneSize" : "ct 12/20/2024 00:42", "MinimumExactCloneSize:" : "MT 7/23/2014 23:32", - "ShortMemoryCap" : "MT 7/23/2014 23:32", + "ShortMemoryCap" : "ct 12/20/2024 00:42", "ShortMemoryCap:" : "MT 7/23/2014 23:32", - "SignificantStandaloneExactCloneSize" : "MT 7/23/2014 23:33", + "SignificantStandaloneExactCloneSize" : "ct 12/20/2024 00:42", "SignificantStandaloneExactCloneSize:" : "MT 7/23/2014 23:33", - "SmallLineBias" : "MT 7/23/2014 23:33", + "SmallLineBias" : "ct 12/20/2024 00:42", "SmallLineBias:" : "MT 7/23/2014 23:33", "basicClasses" : "topa 1/9/2015 16:17", "defaultCategory" : "AT 5/8/2008 09:28" }, diff --git a/packages/SwaLint-PlugIns.package/SLMethodMetricsPlugIn.class/class/MethodCYCLOHigh.st b/packages/SwaLint-PlugIns.package/SLMethodMetricsPlugIn.class/class/MethodCYCLOHigh.st index fff9ad18..c511a95c 100644 --- a/packages/SwaLint-PlugIns.package/SLMethodMetricsPlugIn.class/class/MethodCYCLOHigh.st +++ b/packages/SwaLint-PlugIns.package/SLMethodMetricsPlugIn.class/class/MethodCYCLOHigh.st @@ -2,9 +2,8 @@ preferences MethodCYCLOHigh + categoryList: #(MethodMetrics) + description: 'The high border of method CYCLO' + type: #Number> ^ MethodCYCLOHigh ifNil: [ 3 ] \ No newline at end of file diff --git a/packages/SwaLint-PlugIns.package/SLMethodMetricsPlugIn.class/class/MethodCYCLOLow.st b/packages/SwaLint-PlugIns.package/SLMethodMetricsPlugIn.class/class/MethodCYCLOLow.st index 8d104ae2..d429e3b7 100644 --- a/packages/SwaLint-PlugIns.package/SLMethodMetricsPlugIn.class/class/MethodCYCLOLow.st +++ b/packages/SwaLint-PlugIns.package/SLMethodMetricsPlugIn.class/class/MethodCYCLOLow.st @@ -2,9 +2,8 @@ preferences MethodCYCLOLow + categoryList: #(MethodMetrics) + description: 'The low border of method CYCLO' + type: #Number> ^ MethodCYCLOLow ifNil: [ 1 ] \ No newline at end of file diff --git a/packages/SwaLint-PlugIns.package/SLMethodMetricsPlugIn.class/class/MethodLOCAVRG.st b/packages/SwaLint-PlugIns.package/SLMethodMetricsPlugIn.class/class/MethodLOCAVRG.st index 31429dc1..78a6d2ca 100644 --- a/packages/SwaLint-PlugIns.package/SLMethodMetricsPlugIn.class/class/MethodLOCAVRG.st +++ b/packages/SwaLint-PlugIns.package/SLMethodMetricsPlugIn.class/class/MethodLOCAVRG.st @@ -2,9 +2,8 @@ preferences MethodLOCAVRG + categoryList: #(MethodMetrics) + description: 'The average of lines of code of a method' + type: #Number> ^ MethodLOCAVRG ifNil: [ 7 ] \ No newline at end of file diff --git a/packages/SwaLint-PlugIns.package/SLMethodMetricsPlugIn.class/class/MethodLOCHigh..st b/packages/SwaLint-PlugIns.package/SLMethodMetricsPlugIn.class/class/MethodLOCHigh..st new file mode 100644 index 00000000..c4962bf4 --- /dev/null +++ b/packages/SwaLint-PlugIns.package/SLMethodMetricsPlugIn.class/class/MethodLOCHigh..st @@ -0,0 +1,4 @@ +preferences +MethodLOCHigh: aNumber + + MethodLOCHigh := aNumber. \ No newline at end of file diff --git a/packages/SwaLint-PlugIns.package/SLMethodMetricsPlugIn.class/class/MethodLOCHigh.st b/packages/SwaLint-PlugIns.package/SLMethodMetricsPlugIn.class/class/MethodLOCHigh.st new file mode 100644 index 00000000..7b8751f5 --- /dev/null +++ b/packages/SwaLint-PlugIns.package/SLMethodMetricsPlugIn.class/class/MethodLOCHigh.st @@ -0,0 +1,9 @@ +preferences +MethodLOCHigh + + + + ^ MethodLOCHigh ifNil: [ 10 ] \ No newline at end of file diff --git a/packages/SwaLint-PlugIns.package/SLMethodMetricsPlugIn.class/class/MethodLOCLow..st b/packages/SwaLint-PlugIns.package/SLMethodMetricsPlugIn.class/class/MethodLOCLow..st new file mode 100644 index 00000000..0ab241fb --- /dev/null +++ b/packages/SwaLint-PlugIns.package/SLMethodMetricsPlugIn.class/class/MethodLOCLow..st @@ -0,0 +1,4 @@ +preferences +MethodLOCLow: aNumber + + MethodLOCLow := aNumber. \ No newline at end of file diff --git a/packages/SwaLint-PlugIns.package/SLMethodMetricsPlugIn.class/class/MethodLOCLow.st b/packages/SwaLint-PlugIns.package/SLMethodMetricsPlugIn.class/class/MethodLOCLow.st new file mode 100644 index 00000000..dbfc1eb0 --- /dev/null +++ b/packages/SwaLint-PlugIns.package/SLMethodMetricsPlugIn.class/class/MethodLOCLow.st @@ -0,0 +1,9 @@ +preferences +MethodLOCLow + + + + ^ MethodLOCLow ifNil: [ 1 ] \ No newline at end of file diff --git a/packages/SwaLint-PlugIns.package/SLMethodMetricsPlugIn.class/class/MethodLOCSTDEV.st b/packages/SwaLint-PlugIns.package/SLMethodMetricsPlugIn.class/class/MethodLOCSTDEV.st index a088fbb2..6802cdf4 100644 --- a/packages/SwaLint-PlugIns.package/SLMethodMetricsPlugIn.class/class/MethodLOCSTDEV.st +++ b/packages/SwaLint-PlugIns.package/SLMethodMetricsPlugIn.class/class/MethodLOCSTDEV.st @@ -2,9 +2,8 @@ preferences MethodLOCSTDEV + categoryList: #(MethodMetrics) + description: 'The standard deviation of the lines of code of a method' + type: #Number> ^ MethodLOCSTDEV ifNil: [ 3 ] \ No newline at end of file diff --git a/packages/SwaLint-PlugIns.package/SLMethodMetricsPlugIn.class/class/ShowMethodMetricTests.st b/packages/SwaLint-PlugIns.package/SLMethodMetricsPlugIn.class/class/ShowMethodMetricTests.st index d7da1893..dcfe701b 100644 --- a/packages/SwaLint-PlugIns.package/SLMethodMetricsPlugIn.class/class/ShowMethodMetricTests.st +++ b/packages/SwaLint-PlugIns.package/SLMethodMetricsPlugIn.class/class/ShowMethodMetricTests.st @@ -2,11 +2,9 @@ preferences ShowMethodMetricTests diff --git a/packages/SwaLint-PlugIns.package/SLMethodMetricsPlugIn.class/instance/isAddedService..st b/packages/SwaLint-PlugIns.package/SLMethodMetricsPlugIn.class/instance/isAddedService..st index 0df4a46a..3069a29f 100644 --- a/packages/SwaLint-PlugIns.package/SLMethodMetricsPlugIn.class/instance/isAddedService..st +++ b/packages/SwaLint-PlugIns.package/SLMethodMetricsPlugIn.class/instance/isAddedService..st @@ -2,7 +2,7 @@ tests isAddedService: aSLMethodTestObject + description: 'Answers whether method extends its class interface compared to its superclass'> ^ self booleanResult: ( aSLMethodTestObject parent testObject superclass allSelectors includes: diff --git a/packages/SwaLint-PlugIns.package/SLMethodMetricsPlugIn.class/methodProperties.json b/packages/SwaLint-PlugIns.package/SLMethodMetricsPlugIn.class/methodProperties.json index 15c6b203..47b3967d 100644 --- a/packages/SwaLint-PlugIns.package/SLMethodMetricsPlugIn.class/methodProperties.json +++ b/packages/SwaLint-PlugIns.package/SLMethodMetricsPlugIn.class/methodProperties.json @@ -1,20 +1,24 @@ { "class" : { - "MethodCYCLOHigh" : "MT 7/23/2014 23:28", + "MethodCYCLOHigh" : "ct 12/20/2024 00:42", "MethodCYCLOHigh:" : "MT 7/23/2014 23:28", - "MethodCYCLOLow" : "MT 7/23/2014 23:28", + "MethodCYCLOLow" : "ct 12/20/2024 00:42", "MethodCYCLOLow:" : "MT 7/23/2014 23:28", - "MethodLOCAVRG" : "MT 7/23/2014 23:28", + "MethodLOCAVRG" : "ct 12/20/2024 00:42", "MethodLOCAVRG:" : "MT 7/23/2014 23:29", - "MethodLOCSTDEV" : "MT 7/23/2014 23:29", + "MethodLOCHigh" : "ct 12/20/2024 00:46", + "MethodLOCHigh:" : "ct 12/20/2024 00:45", + "MethodLOCLow" : "ct 12/20/2024 00:46", + "MethodLOCLow:" : "ct 12/20/2024 00:46", + "MethodLOCSTDEV" : "ct 12/20/2024 00:42", "MethodLOCSTDEV:" : "MT 7/23/2014 23:29", - "ShowMethodMetricTests" : "NH 5/13/2015 11:07", + "ShowMethodMetricTests" : "ct 12/13/2024 04:43", "ShowMethodMetricTests:" : "MT 7/23/2014 23:29", "defaultCategory" : "MT 7/23/2014 23:30", "ifAndSimilar" : "AT 5/8/2008 09:41" }, "instance" : { "attentionIsNeeded:" : "NA 7/29/2015 18:27", - "isAddedService:" : "JTM 5/27/2015 10:54", + "isAddedService:" : "ct 12/19/2024 05:42", "maxNesting:" : "LS 6/21/2018 19:30", "methodATFD:" : "LS 6/21/2018 19:26", "methodCC:" : "LS 6/21/2018 19:27", diff --git a/packages/SwaLint-PlugIns.package/SLMethodMetricsPlugIn.class/properties.json b/packages/SwaLint-PlugIns.package/SLMethodMetricsPlugIn.class/properties.json index b7ca40d7..5d9c1a65 100644 --- a/packages/SwaLint-PlugIns.package/SLMethodMetricsPlugIn.class/properties.json +++ b/packages/SwaLint-PlugIns.package/SLMethodMetricsPlugIn.class/properties.json @@ -6,6 +6,8 @@ "MethodCYCLOHigh", "MethodCYCLOLow", "MethodLOCAVRG", + "MethodLOCHigh", + "MethodLOCLow", "MethodLOCSTDEV", "ShowMethodMetricTests" ], "commentStamp" : "AT 2/8/2008 16:04", diff --git a/packages/SwaLint-PlugIns.package/SLMiscPlugIn.class/instance/accessedVar..st b/packages/SwaLint-PlugIns.package/SLMiscPlugIn.class/instance/accessedVar..st index 79c8a592..949ebc85 100644 --- a/packages/SwaLint-PlugIns.package/SLMiscPlugIn.class/instance/accessedVar..st +++ b/packages/SwaLint-PlugIns.package/SLMiscPlugIn.class/instance/accessedVar..st @@ -5,6 +5,7 @@ accessedVar: aSLMethodTestObject + aSLMethodTestObject shouldBeMethod. (aSLMethodTestObject resultOf: #isAccessor:) ifNegative: [ SLWrongTypeError signal: 'Should be accessor method']. ^ self numericResult: diff --git a/packages/SwaLint-PlugIns.package/SLMiscPlugIn.class/instance/classWidth..st b/packages/SwaLint-PlugIns.package/SLMiscPlugIn.class/instance/classWidth..st index 7ba72c68..ded8e654 100644 --- a/packages/SwaLint-PlugIns.package/SLMiscPlugIn.class/instance/classWidth..st +++ b/packages/SwaLint-PlugIns.package/SLMiscPlugIn.class/instance/classWidth..st @@ -7,4 +7,4 @@ classWidth: aSLClassTestObject aSLClassTestObject shouldBeClass. ^ (SLNumericResult newWithValue: (aSLClassTestObject methods inject: 0 into: [ :w :method | - w max: (method resultOf: #methodWidth)])) formatAsInteger \ No newline at end of file + w max: (method resultOf: #methodWidth:)])) formatAsInteger \ No newline at end of file diff --git a/packages/SwaLint-PlugIns.package/SLMiscPlugIn.class/instance/isAccessor..st b/packages/SwaLint-PlugIns.package/SLMiscPlugIn.class/instance/isAccessor..st index c29ff7ef..d715847c 100644 --- a/packages/SwaLint-PlugIns.package/SLMiscPlugIn.class/instance/isAccessor..st +++ b/packages/SwaLint-PlugIns.package/SLMiscPlugIn.class/instance/isAccessor..st @@ -4,6 +4,7 @@ isAccessor: aSLMethodTestObject + aSLMethodTestObject shouldBeMethod. ^ self booleanResult: ((aSLMethodTestObject resultOf: #isGetter:) isPositive or: [ (aSLMethodTestObject resultOf: #isSetter:) isPositive ]) \ No newline at end of file diff --git a/packages/SwaLint-PlugIns.package/SLMiscPlugIn.class/instance/methodIsPrivate..st b/packages/SwaLint-PlugIns.package/SLMiscPlugIn.class/instance/methodIsPrivate..st index 708a64c4..c18530d5 100644 --- a/packages/SwaLint-PlugIns.package/SLMiscPlugIn.class/instance/methodIsPrivate..st +++ b/packages/SwaLint-PlugIns.package/SLMiscPlugIn.class/instance/methodIsPrivate..st @@ -8,4 +8,4 @@ methodIsPrivate: aCompiledMethod ^ (selector beginsWith: '_') or: [ (selector beginsWith: 'pvt') or: [ - category includesSubString: 'private']] \ No newline at end of file + category includesSubstring: 'private']] \ No newline at end of file diff --git a/packages/SwaLint-PlugIns.package/SLMiscPlugIn.class/instance/suspiciousAuthorInitials..st b/packages/SwaLint-PlugIns.package/SLMiscPlugIn.class/instance/suspiciousAuthorInitials..st new file mode 100644 index 00000000..ae133c22 --- /dev/null +++ b/packages/SwaLint-PlugIns.package/SLMiscPlugIn.class/instance/suspiciousAuthorInitials..st @@ -0,0 +1,18 @@ +method tests +suspiciousAuthorInitials: aMethodTestObject + + + | authorInitials suspicious | + aMethodTestObject ifClassTestChildrenWith: #suspiciousAuthorInitials:. + aMethodTestObject shouldBeMethod. + authorInitials := aMethodTestObject testObject timeStamp ifNotNil: [:stamp | + stamp findTokens at: 1 ifAbsent: nil]. + + suspicious := authorInitials isEmptyOrNil not and: + [(authorInitials copyWithout: '0123456789/') isEmpty + or: [#('programmatic' 'smalltalkCI' '*test*') anySatisfy: [:pattern | pattern match: authorInitials]]]. + + ^ (self booleanResult: suspicious) + showOnlyIfTrue \ No newline at end of file diff --git a/packages/SwaLint-PlugIns.package/SLMiscPlugIn.class/methodProperties.json b/packages/SwaLint-PlugIns.package/SLMiscPlugIn.class/methodProperties.json index 6889721f..38ea779b 100644 --- a/packages/SwaLint-PlugIns.package/SLMiscPlugIn.class/methodProperties.json +++ b/packages/SwaLint-PlugIns.package/SLMiscPlugIn.class/methodProperties.json @@ -3,29 +3,30 @@ "defaultCategory" : "AT 5/8/2008 09:40" }, "instance" : { "aSLPositiveResultDummyFor:" : "NA 7/31/2015 10:40", - "accessedVar:" : "JTM 5/27/2015 11:13", + "accessedVar:" : "ct 1/5/2025 00:03", "allAccessors:" : "JTM 5/26/2015 22:59", "allPublicMethods:" : "JTM 5/27/2015 15:09", "calledClasses:" : "NA 6/18/2015 15:45", "calledOperations:" : "JTM 5/27/2015 11:13", - "classWidth:" : "JTM 5/27/2015 11:18", + "classWidth:" : "ct 1/5/2025 00:04", "collectAllVarsOf:" : "MT 7/23/2014 23:17", "collectInstVarsOf:" : "MB 6/17/2014 12:55", "directlyAccessedVars:" : "NA 7/26/2015 19:07", "firstAccessed:by:" : "AT 2/2/2008 14:38", "firstAccessedBy:" : "AT 5/8/2008 09:37", "indirectlyAccessedVars:in:" : "smalltalkCI 5/5/2021 10:50", - "isAccessor:" : "JTM 5/27/2015 11:13", + "isAccessor:" : "ct 1/5/2025 00:04", "isGetter:" : "JTM 5/27/2015 11:13", "isPrivate:" : "NA 7/25/2015 20:24", "isSetter:" : "JTM 5/27/2015 11:15", "methodCallers:" : "JTM 5/27/2015 11:15", "methodIsGetter:" : "JTM 5/27/2015 11:14", - "methodIsPrivate:" : "JTM 5/27/2015 11:14", + "methodIsPrivate:" : "ct 12/9/2024 23:52", "methodIsSetter:" : "JTM 5/27/2015 11:14", "methodWidth:" : "JTM 5/27/2015 11:16", "miscTest:" : "AT 5/8/2008 09:38", "printOn:" : "NH 6/24/2015 14:11", + "suspiciousAuthorInitials:" : "ct 1/5/2025 02:54", "usedForeignVars:" : "JTM 5/27/2015 11:17", "usedInstVars:" : "JTM 5/27/2015 11:17", "usedVars:" : "JTM 5/27/2015 11:17" } } diff --git a/packages/SwaLint-PlugIns.package/SLRBImportPlugIn.class/class/ShowSwaMetricTests.st b/packages/SwaLint-PlugIns.package/SLRBImportPlugIn.class/class/ShowSwaMetricTests.st index 921abe50..41e45125 100644 --- a/packages/SwaLint-PlugIns.package/SLRBImportPlugIn.class/class/ShowSwaMetricTests.st +++ b/packages/SwaLint-PlugIns.package/SLRBImportPlugIn.class/class/ShowSwaMetricTests.st @@ -2,11 +2,9 @@ preferences ShowSwaMetricTests diff --git a/packages/SwaLint-PlugIns.package/SLRBImportPlugIn.class/instance/classNameInSelectorMethod..st b/packages/SwaLint-PlugIns.package/SLRBImportPlugIn.class/instance/classNameInSelectorMethod..st index 58c7a879..e4decbc4 100644 --- a/packages/SwaLint-PlugIns.package/SLRBImportPlugIn.class/instance/classNameInSelectorMethod..st +++ b/packages/SwaLint-PlugIns.package/SLRBImportPlugIn.class/instance/classNameInSelectorMethod..st @@ -7,7 +7,7 @@ classNameInSelectorMethod: aMethodTestObject |class| aMethodTestObject shouldBeMethod. class := aMethodTestObject parent testClass. - ((class class isMeta and: [aMethodTestObject classSide]) and: + ((class theMetaClass isMeta and: [aMethodTestObject classSide]) and: [(aMethodTestObject testObject selector indexOfSubCollection: class name startingAt: 1) > 0]) ifTrue: diff --git a/packages/SwaLint-PlugIns.package/SLRBImportPlugIn.class/instance/collectionProtocolRuleMethod..st b/packages/SwaLint-PlugIns.package/SLRBImportPlugIn.class/instance/collectionProtocolRuleMethod..st index 0d1253bc..29772e67 100644 --- a/packages/SwaLint-PlugIns.package/SLRBImportPlugIn.class/instance/collectionProtocolRuleMethod..st +++ b/packages/SwaLint-PlugIns.package/SLRBImportPlugIn.class/instance/collectionProtocolRuleMethod..st @@ -5,6 +5,7 @@ collectionProtocolRuleMethod: aMethodTestObject longRuntime: nil> | rbMethodNode isMatching | + aMethodTestObject shouldBeMethod. rbMethodNode := RBParser parseMethod: (aMethodTestObject sourceCode). isMatching := ( RBParseTreeSearcher new matchesAnyOf: #( diff --git a/packages/SwaLint-PlugIns.package/SLRBImportPlugIn.class/instance/ifTrueReturnsRuleMethod..st b/packages/SwaLint-PlugIns.package/SLRBImportPlugIn.class/instance/ifTrueReturnsRuleMethod..st index 29344ed4..7cb1f275 100644 --- a/packages/SwaLint-PlugIns.package/SLRBImportPlugIn.class/instance/ifTrueReturnsRuleMethod..st +++ b/packages/SwaLint-PlugIns.package/SLRBImportPlugIn.class/instance/ifTrueReturnsRuleMethod..st @@ -5,6 +5,7 @@ ifTrueReturnsRuleMethod: aMethodTestObject longRuntime: nil> | rbMethodNode isMatching | + aMethodTestObject shouldBeMethod. rbMethodNode := RBParser parseMethod: (aMethodTestObject sourceCode). isMatching := ( RBParseTreeSearcher new matchesAnyOf: #( diff --git a/packages/SwaLint-PlugIns.package/SLRBImportPlugIn.class/instance/lawOfDemeterRuleMethod..st b/packages/SwaLint-PlugIns.package/SLRBImportPlugIn.class/instance/lawOfDemeterRuleMethod..st index b07250ec..490ace0a 100644 --- a/packages/SwaLint-PlugIns.package/SLRBImportPlugIn.class/instance/lawOfDemeterRuleMethod..st +++ b/packages/SwaLint-PlugIns.package/SLRBImportPlugIn.class/instance/lawOfDemeterRuleMethod..st @@ -5,6 +5,7 @@ lawOfDemeterRuleMethod: aMethodTestObject longRuntime: nil> | rbMethodNode isMatching | + aMethodTestObject shouldBeMethod. rbMethodNode := RBParser parseMethod: (aMethodTestObject sourceCode). isMatching := ( RBParseTreeSearcher new matches: '(((`@reciver `@msg1: `@arg1) `@msg2: `@arg2) `@msg3: `@arg3) `@msg4: `@arg4' diff --git a/packages/SwaLint-PlugIns.package/SLRBImportPlugIn.class/instance/precedenceRuleMethod..st b/packages/SwaLint-PlugIns.package/SLRBImportPlugIn.class/instance/precedenceRuleMethod..st index b48efe7c..9a733eba 100644 --- a/packages/SwaLint-PlugIns.package/SLRBImportPlugIn.class/instance/precedenceRuleMethod..st +++ b/packages/SwaLint-PlugIns.package/SLRBImportPlugIn.class/instance/precedenceRuleMethod..st @@ -5,6 +5,7 @@ precedenceRuleMethod: aMethodTestObject longRuntime: nil> | rbMethodNode isMatching | + aMethodTestObject shouldBeMethod. rbMethodNode := RBParser parseMethod: aMethodTestObject sourceCode. isMatching := (RBParseTreeSearcher new matchesAnyOf: #('`{:node | node isMessage and: [node hasParentheses not and: [#(#+ #-) includes: node selector]]} * `@C' diff --git a/packages/SwaLint-PlugIns.package/SLRBImportPlugIn.class/instance/toDoCollectRuleMethod..st b/packages/SwaLint-PlugIns.package/SLRBImportPlugIn.class/instance/toDoCollectRuleMethod..st index a125fd6f..c6384995 100644 --- a/packages/SwaLint-PlugIns.package/SLRBImportPlugIn.class/instance/toDoCollectRuleMethod..st +++ b/packages/SwaLint-PlugIns.package/SLRBImportPlugIn.class/instance/toDoCollectRuleMethod..st @@ -5,6 +5,7 @@ toDoCollectRuleMethod: aMethodTestObject longRuntime: nil> | rbMethodNode isMatching | + aMethodTestObject shouldBeMethod. rbMethodNode := RBParser parseMethod: (aMethodTestObject sourceCode). isMatching := ( RBParseTreeSearcher new matchesAnyOf: #( diff --git a/packages/SwaLint-PlugIns.package/SLRBImportPlugIn.class/instance/toDoRuleMethod..st b/packages/SwaLint-PlugIns.package/SLRBImportPlugIn.class/instance/toDoRuleMethod..st index 7eae05b9..3e1cc50e 100644 --- a/packages/SwaLint-PlugIns.package/SLRBImportPlugIn.class/instance/toDoRuleMethod..st +++ b/packages/SwaLint-PlugIns.package/SLRBImportPlugIn.class/instance/toDoRuleMethod..st @@ -5,6 +5,7 @@ toDoRuleMethod: aMethodTestObject longRuntime: nil> | rbMethodNode isMatching | + aMethodTestObject shouldBeMethod. rbMethodNode := RBParser parseMethod: (aMethodTestObject sourceCode). isMatching := ( RBParseTreeSearcher new matches: '1 to: ``@object size do: [:`each | | `@temps | `@.Statements]' diff --git a/packages/SwaLint-PlugIns.package/SLRBImportPlugIn.class/instance/unnecessaryAssignmentRuleMethod..st b/packages/SwaLint-PlugIns.package/SLRBImportPlugIn.class/instance/unnecessaryAssignmentRuleMethod..st index d5b2445e..98b5776a 100644 --- a/packages/SwaLint-PlugIns.package/SLRBImportPlugIn.class/instance/unnecessaryAssignmentRuleMethod..st +++ b/packages/SwaLint-PlugIns.package/SLRBImportPlugIn.class/instance/unnecessaryAssignmentRuleMethod..st @@ -5,6 +5,7 @@ unnecessaryAssignmentRuleMethod: aMethodTestObject longRuntime: nil> | rbMethodNode unusedVariables | + aMethodTestObject shouldBeMethod. "Get a list of all variables that are assigned in the method." rbMethodNode := RBParser parseMethod: (aMethodTestObject sourceCode). diff --git a/packages/SwaLint-PlugIns.package/SLRBImportPlugIn.class/methodProperties.json b/packages/SwaLint-PlugIns.package/SLRBImportPlugIn.class/methodProperties.json index 94e8a9fa..876ea6e0 100644 --- a/packages/SwaLint-PlugIns.package/SLRBImportPlugIn.class/methodProperties.json +++ b/packages/SwaLint-PlugIns.package/SLRBImportPlugIn.class/methodProperties.json @@ -1,30 +1,30 @@ { "class" : { - "ShowSwaMetricTests" : "MT 7/23/2014 23:24", + "ShowSwaMetricTests" : "ct 12/13/2024 04:44", "ShowSwaMetricTests:" : "MT 7/23/2014 23:24", "defaultCategory" : "LS 6/15/2018 16:37", "maxLineSize" : "tfel 1/11/2011 11:35" }, "instance" : { "classNameInSelector:" : "BD 6/21/2018 16:21", - "classNameInSelectorMethod:" : "smalltalkCI 5/5/2021 11:46", + "classNameInSelectorMethod:" : "ct 12/22/2024 02:11", "collectionProtocolRule:" : "BD 6/21/2018 16:21", - "collectionProtocolRuleMethod:" : "BD 6/16/2018 11:21", + "collectionProtocolRuleMethod:" : "ct 1/5/2025 00:04", "ifTrueReturnsRule:" : "BD 6/21/2018 16:22", - "ifTrueReturnsRuleMethod:" : "smalltalkCI 5/5/2021 11:46", + "ifTrueReturnsRuleMethod:" : "ct 1/5/2025 00:05", "instVarInAllSubclasses:" : "smalltalkCI 5/5/2021 11:43", "instanceVariableCapitalizationRule:" : "BD 6/21/2018 16:23", "lawOfDemeterAllowedSelectors" : "LG 6/17/2018 18:32", "lawOfDemeterRule:" : "LG 7/24/2018 20:44", - "lawOfDemeterRuleMethod:" : "BD 6/29/2018 12:36", + "lawOfDemeterRuleMethod:" : "ct 1/5/2025 00:05", "longMethod:" : "BD 6/21/2018 16:24", "longMethodMethod:" : "smalltalkCI 5/5/2021 11:46", "longMethodSize" : "BD 6/15/2018 16:54", "precedenceRule:" : "BD 6/22/2018 22:16", - "precedenceRuleMethod:" : "smalltalkCI 5/5/2021 11:43", + "precedenceRuleMethod:" : "ct 1/5/2025 00:05", "toDoCollectRule:" : "BD 6/21/2018 16:25", - "toDoCollectRuleMethod:" : "smalltalkCI 5/5/2021 11:46", + "toDoCollectRuleMethod:" : "ct 1/5/2025 00:05", "toDoRule:" : "BD 6/21/2018 16:26", - "toDoRuleMethod:" : "smalltalkCI 5/5/2021 11:44", + "toDoRuleMethod:" : "ct 1/5/2025 00:05", "unnecessaryAssignmentRule:" : "BD 6/22/2018 13:00", - "unnecessaryAssignmentRuleMethod:" : "smalltalkCI 5/5/2021 11:46", + "unnecessaryAssignmentRuleMethod:" : "ct 1/5/2025 00:05", "unreferencedVariable:" : "fm 6/29/2018 01:40" } } diff --git a/packages/SwaLint-PlugIns.package/SLSmallLintPlugIn.class/class/browse..st b/packages/SwaLint-PlugIns.package/SLSmallLintPlugIn.class/class/browse..st new file mode 100644 index 00000000..86a97927 --- /dev/null +++ b/packages/SwaLint-PlugIns.package/SLSmallLintPlugIn.class/class/browse..st @@ -0,0 +1,4 @@ +browsing +browse: aTest + + ^ (self new ruleFor: aTest) browse \ No newline at end of file diff --git a/packages/SwaLint-PlugIns.package/SLSmallLintPlugIn.class/class/removePreferences.st b/packages/SwaLint-PlugIns.package/SLSmallLintPlugIn.class/class/removePreferences.st new file mode 100644 index 00000000..f153a4fd --- /dev/null +++ b/packages/SwaLint-PlugIns.package/SLSmallLintPlugIn.class/class/removePreferences.st @@ -0,0 +1,5 @@ +preferences +removePreferences + + self externalTests do: [ :each | + SLPreferences removePreference: each first asSymbol]. \ No newline at end of file diff --git a/packages/SwaLint-PlugIns.package/SLSmallLintPlugIn.class/class/smallLintTests.st b/packages/SwaLint-PlugIns.package/SLSmallLintPlugIn.class/class/smallLintTests.st index 03fda4ba..fe901e98 100644 --- a/packages/SwaLint-PlugIns.package/SLSmallLintPlugIn.class/class/smallLintTests.st +++ b/packages/SwaLint-PlugIns.package/SLSmallLintPlugIn.class/class/smallLintTests.st @@ -4,6 +4,7 @@ smallLintTests Symbol: at '*' 'small' will be inserted automatically. DefaultActive: If a test is active, it will be shown in the SmallLint category. The value can be changed in the preferences" + self flag: #deprecate. "ct: Do we still need this?" { "BlockLintRule" {#AbstractClass. 'Abstract class'. 'References an abstract class'. false.}. @@ -19,10 +20,11 @@ smallLintTests {#InstVarInSubclasses. 'Instance var in subclasses'. 'Instance variables defined in all subclasses'. true.}. {#JustSendsSuper. 'Just sends super'. 'Method just sends super message'. true.}. {#LiteralArrayContainsComma. 'Literal array contains a comma'. 'Literal array contains a #,'. true.}. + {#LiteralArrayContainsDot. 'Literal array contains a dot'. 'Literal array contains a #''.'''. true.}. {#LiteralArrayContainsSuspiciousTrueFalseOrNil. 'Literal array contains a #true, #false, or #nil but the source doesn''t.'. 'With ANSI changes, #(true false nil) now is equal to {true. false. nil} not {#true. #false. #nil} as it used to be. This may be a bug.'. true.}. {#LongMethods. 'Long methods'. 'Description'. false.}. - {#MethodHasNoTimeStamp. 'Method has no timeStamp'. 'For proper versioning, every method should have a timestamp.'. true.}. + {#MethodHasNoTimeStamp. 'Method has no timeStamp'. 'For proper change tracking, every method should have a timestamp.'. true.}. {#MethodSourceContainsLinefeeds. 'Method source contains linefeeds'. 'Squeak code should not contain linefeed characters.'. true.}. {#MissingSubclassResponsibility. 'Missing subclass responsibility'. 'Method defined in all subclasses, but not in superclass'. false.}. {#OnlyReadOrWritten. 'OnlyReadOrWritten'. 'Instance variables not read AND written'. true.}. diff --git a/packages/SwaLint-PlugIns.package/SLSmallLintPlugIn.class/methodProperties.json b/packages/SwaLint-PlugIns.package/SLSmallLintPlugIn.class/methodProperties.json index 18a2953a..0b10f1aa 100644 --- a/packages/SwaLint-PlugIns.package/SLSmallLintPlugIn.class/methodProperties.json +++ b/packages/SwaLint-PlugIns.package/SLSmallLintPlugIn.class/methodProperties.json @@ -1,5 +1,6 @@ { "class" : { + "browse:" : "ct 12/18/2024 22:16", "defaultCategory" : "topa 4/21/2010 08:54", "defaultPreferenceOf:" : "BD 6/29/2018 15:59", "description" : "AT 5/8/2008 12:21", @@ -11,7 +12,8 @@ "offeredTestsData" : "BD 6/21/2018 15:48", "possibleRuleClasses" : "topa 1/19/2015 14:16", "postfix" : "topa 4/21/2010 08:18", - "smallLintTests" : "topa 4/21/2010 08:51", + "removePreferences" : "ct 12/13/2024 05:00", + "smallLintTests" : "ct 10/4/2025 02:40", "subclassesIfAvailable:" : "topa 1/19/2015 14:14", "testSymbolForLintClassName:" : "topa 4/21/2010 08:47" }, "instance" : { diff --git a/packages/SwaLint-PlugIns.package/SLSwaMetricsPlugIn.class/class/ShowSwaMetricTests.st b/packages/SwaLint-PlugIns.package/SLSwaMetricsPlugIn.class/class/ShowSwaMetricTests.st index 921abe50..41e45125 100644 --- a/packages/SwaLint-PlugIns.package/SLSwaMetricsPlugIn.class/class/ShowSwaMetricTests.st +++ b/packages/SwaLint-PlugIns.package/SLSwaMetricsPlugIn.class/class/ShowSwaMetricTests.st @@ -2,11 +2,9 @@ preferences ShowSwaMetricTests diff --git a/packages/SwaLint-PlugIns.package/SLSwaMetricsPlugIn.class/instance/instanceVariableAccessIsConsistent..st b/packages/SwaLint-PlugIns.package/SLSwaMetricsPlugIn.class/instance/instanceVariableAccessIsConsistent..st index f49b9664..b936c2b6 100644 --- a/packages/SwaLint-PlugIns.package/SLSwaMetricsPlugIn.class/instance/instanceVariableAccessIsConsistent..st +++ b/packages/SwaLint-PlugIns.package/SLSwaMetricsPlugIn.class/instance/instanceVariableAccessIsConsistent..st @@ -2,7 +2,7 @@ tests instanceVariableAccessIsConsistent: aSLClassTestObject + description: 'Checks for consistent access to instance variables. Direct access to instance variables is a bad practice. You should rather use "self " to access it.'> aSLClassTestObject shouldBeClass. ^ self diff --git a/packages/SwaLint-PlugIns.package/SLSwaMetricsPlugIn.class/instance/magicNumbers..st b/packages/SwaLint-PlugIns.package/SLSwaMetricsPlugIn.class/instance/magicNumbers..st index 4401a3df..33ab38a2 100644 --- a/packages/SwaLint-PlugIns.package/SLSwaMetricsPlugIn.class/instance/magicNumbers..st +++ b/packages/SwaLint-PlugIns.package/SLSwaMetricsPlugIn.class/instance/magicNumbers..st @@ -2,7 +2,7 @@ private magicNumbers: aSLClassTestObject + description: 'A simple magic number test. Magic numbers defined by this test are all numbers, which are not a -1, 0 or 1 and do not appear as the single value in a return statement or in an assignment. Numbers in strings are ignored.'> aSLClassTestObject shouldBeClass. ^ self diff --git a/packages/SwaLint-PlugIns.package/SLSwaMetricsPlugIn.class/instance/nilProgramming..st b/packages/SwaLint-PlugIns.package/SLSwaMetricsPlugIn.class/instance/nilProgramming..st index e872b342..21acbb7f 100644 --- a/packages/SwaLint-PlugIns.package/SLSwaMetricsPlugIn.class/instance/nilProgramming..st +++ b/packages/SwaLint-PlugIns.package/SLSwaMetricsPlugIn.class/instance/nilProgramming..st @@ -2,7 +2,7 @@ tests nilProgramming: aSLClassTestObject + description: 'Consider using the Nil Object pattern instead. Oftentimes, nil values actually have a meaning and can therefore be replaced with a domain specific object. This makes the code more intuitive and debugging easier.'> aSLClassTestObject shouldBeClass. ^ self diff --git a/packages/SwaLint-PlugIns.package/SLSwaMetricsPlugIn.class/instance/noClassComments..st b/packages/SwaLint-PlugIns.package/SLSwaMetricsPlugIn.class/instance/noClassComments..st index e9e9306f..57f8e355 100644 --- a/packages/SwaLint-PlugIns.package/SLSwaMetricsPlugIn.class/instance/noClassComments..st +++ b/packages/SwaLint-PlugIns.package/SLSwaMetricsPlugIn.class/instance/noClassComments..st @@ -2,10 +2,10 @@ tests noClassComments: aSLClassTestObject + description: 'All classes should have a comment to explain their purpose, collaborations with other classes, and optionally provide examples of use.'> | class | aSLClassTestObject shouldBeClass. class := aSLClassTestObject testObject. - ^ self failureResult: (class comment = - class instanceSide organization classComment) + ^ (self booleanResult: class hasComment not) + showOnlyIfTrue \ No newline at end of file diff --git a/packages/SwaLint-PlugIns.package/SLSwaMetricsPlugIn.class/methodProperties.json b/packages/SwaLint-PlugIns.package/SLSwaMetricsPlugIn.class/methodProperties.json index f7eac416..5e35b020 100644 --- a/packages/SwaLint-PlugIns.package/SLSwaMetricsPlugIn.class/methodProperties.json +++ b/packages/SwaLint-PlugIns.package/SLSwaMetricsPlugIn.class/methodProperties.json @@ -1,6 +1,6 @@ { "class" : { - "ShowSwaMetricTests" : "MT 7/23/2014 23:24", + "ShowSwaMetricTests" : "ct 12/13/2024 04:44", "ShowSwaMetricTests:" : "MT 7/23/2014 23:24", "defaultCategory" : "JTM 5/20/2015 23:44", "maxLineSize" : "tfel 1/11/2011 11:35" }, @@ -11,8 +11,8 @@ "evilMethods" : "JTM 5/27/2015 11:05", "globalState:" : "BD 6/15/2018 18:53", "instanceVariableAccess:" : "BD 6/16/2018 20:10", - "instanceVariableAccessIsConsistent:" : "BD 6/16/2018 20:12", - "magicNumbers:" : "BD 6/15/2018 18:09", + "instanceVariableAccessIsConsistent:" : "ct 1/4/2025 21:28", + "magicNumbers:" : "ct 1/4/2025 21:28", "metaProgramming:" : "BD 6/15/2018 18:53", "methodHandlesNil:" : "JTM 5/27/2015 14:01", "methodHasComment:" : "JTM 5/27/2015 14:01", @@ -21,8 +21,8 @@ "methodHasNoSender:" : "NA 7/31/2015 17:02", "methodUsesMetaprogramming:" : "JTM 5/27/2015 14:01", "methodsWithoutSenders:" : "NA 7/31/2015 17:15", - "nilProgramming:" : "BD 6/15/2018 18:54", - "noClassComments:" : "BD 6/15/2018 18:17", + "nilProgramming:" : "ct 1/4/2025 21:28", + "noClassComments:" : "ct 1/9/2025 22:12", "printOn:" : "NH 6/24/2015 14:11", "systemLocCount:" : "BD 6/15/2018 18:54", "systemMethodCount:" : "BD 6/15/2018 18:55" } } diff --git a/packages/SwaLint-Preferences.package/.squot-contents b/packages/SwaLint-Preferences.package/.squot-contents deleted file mode 100644 index 239ddebb..00000000 --- a/packages/SwaLint-Preferences.package/.squot-contents +++ /dev/null @@ -1,5 +0,0 @@ -SquotTrackedObjectMetadata { - #objectClassName : #PackageInfo, - #objectsReplacedByNames : true, - #serializer : #SquotCypressCodeSerializer -} \ No newline at end of file diff --git a/packages/SwaLint-Preferences.package/SLPragmaPreference.class/README.md b/packages/SwaLint-Preferences.package/SLPragmaPreference.class/README.md index 7e7ca71f..7ca37634 100644 --- a/packages/SwaLint-Preferences.package/SLPragmaPreference.class/README.md +++ b/packages/SwaLint-Preferences.package/SLPragmaPreference.class/README.md @@ -1 +1,6 @@ -### I am a copy of the PragmaPreference class ### \ No newline at end of file +### I am a copy of the PragmaPreference class ### + +The following changes have been made based on the PragmaPreference class: +* updated references to Preferences and Preference & subclasses in methods and do-it comments + +When maintaining this class, merge all new changes from the Preference class into this class, considering the above exceptions (please preserve the old timestamps when copying methods by using Shift + Drag!). In the future, this implementation should be dropped in favor of PragmaPreference instead. \ No newline at end of file diff --git a/packages/SwaLint-Preferences.package/SLPragmaPreference.class/instance/asPreference.st b/packages/SwaLint-Preferences.package/SLPragmaPreference.class/instance/asPreference.st index be730c79..594e11c9 100644 --- a/packages/SwaLint-Preferences.package/SLPragmaPreference.class/instance/asPreference.st +++ b/packages/SwaLint-Preferences.package/SLPragmaPreference.class/instance/asPreference.st @@ -1,16 +1,15 @@ converting asPreference | preference | - preference := SLPreference new. preference name: name defaultValue: defaultValue helpString: helpString - localToProject: localToProject + localToProject: self localToProject categoryList: categoryList changeInformee: changeInformee changeSelector: changeSelector - viewRegistry: viewRegistry. + type: type. preference rawValue: self preferenceValue. - ^ preference \ No newline at end of file + ^preference \ No newline at end of file diff --git a/packages/SwaLint-Preferences.package/SLPragmaPreference.class/instance/attemptToSetValueFromGetter..st b/packages/SwaLint-Preferences.package/SLPragmaPreference.class/instance/attemptToSetValueFromGetter..st new file mode 100644 index 00000000..f6fff9a1 --- /dev/null +++ b/packages/SwaLint-Preferences.package/SLPragmaPreference.class/instance/attemptToSetValueFromGetter..st @@ -0,0 +1,25 @@ +value +attemptToSetValueFromGetter: aValue + "Attempt to set the value of the preference from the getter method, answering if the attempt was successful. + Do so by seeing if the method is of the form + ^ClassVar ifNil: [...] + by analysing its bytecode, and if so, extracting the class (or global) var and setting its value." + | getterMethod getterBytecodes getterBytecodeNames + constant comparison branchTuple distance followingpc + classVar | + getterMethod := provider class compiledMethodAt: getter ifAbsent: [^false]. + getterBytecodes := getterMethod abstractBytecodeMessagesAndPCs. + getterBytecodeNames := getterBytecodes collect: [:tuple| tuple first selector]. + ((getterBytecodeNames beginsWith: #(pushLiteralVariable: doDup #pushConstant: send:super:numArgs: jump:if:)) + and: [getterBytecodeNames last == #methodReturnTop + and: [(constant := getterBytecodes third first) arguments first == nil + and: [(comparison := getterBytecodes fourth first) arguments first == #== + and: [branchTuple := getterBytecodes fifth. + followingpc := getterBytecodes sixth last. + distance := branchTuple first arguments first. + "i.e. does the branch jump to the return?" + distance + followingpc = getterBytecodes last second]]]]) ifFalse: + [^false]. + classVar := getterBytecodes first first arguments first. + classVar value: aValue. + ^true \ No newline at end of file diff --git a/packages/SwaLint-Preferences.package/SLPragmaPreference.class/instance/browse.st b/packages/SwaLint-Preferences.package/SLPragmaPreference.class/instance/browse.st new file mode 100644 index 00000000..0cc073d8 --- /dev/null +++ b/packages/SwaLint-Preferences.package/SLPragmaPreference.class/instance/browse.st @@ -0,0 +1,6 @@ +browsing +browse + + ToolSet + browse: self provider class + selector: self selectors first. \ No newline at end of file diff --git a/packages/SwaLint-Preferences.package/SLPragmaPreference.class/instance/codeString.st b/packages/SwaLint-Preferences.package/SLPragmaPreference.class/instance/codeString.st new file mode 100644 index 00000000..808b0a41 --- /dev/null +++ b/packages/SwaLint-Preferences.package/SLPragmaPreference.class/instance/codeString.st @@ -0,0 +1,5 @@ +menu +codeString + "Answer the Smalltalk expressions to get the preference value." + + ^ self provider name, ' ', getter \ No newline at end of file diff --git a/packages/SwaLint-Preferences.package/SLPragmaPreference.class/instance/id.st b/packages/SwaLint-Preferences.package/SLPragmaPreference.class/instance/id.st new file mode 100644 index 00000000..336defe7 --- /dev/null +++ b/packages/SwaLint-Preferences.package/SLPragmaPreference.class/instance/id.st @@ -0,0 +1,4 @@ +accessing +id + + ^ SLPreferences pragmaIdFor: self provider getter: getter \ No newline at end of file diff --git a/packages/SwaLint-Preferences.package/SLPragmaPreference.class/instance/isDeprecated.st b/packages/SwaLint-Preferences.package/SLPragmaPreference.class/instance/isDeprecated.st new file mode 100644 index 00000000..62262e69 --- /dev/null +++ b/packages/SwaLint-Preferences.package/SLPragmaPreference.class/instance/isDeprecated.st @@ -0,0 +1,5 @@ +testing +isDeprecated + + ^ self isObsolete or: [(provider class lookupSelector: getter) isDeprecated + or: [(provider class lookupSelector: setter) isDeprecated]] \ No newline at end of file diff --git a/packages/SwaLint-Preferences.package/SLPragmaPreference.class/instance/isObsolete.st b/packages/SwaLint-Preferences.package/SLPragmaPreference.class/instance/isObsolete.st new file mode 100644 index 00000000..cdfd2fb3 --- /dev/null +++ b/packages/SwaLint-Preferences.package/SLPragmaPreference.class/instance/isObsolete.st @@ -0,0 +1,4 @@ +testing +isObsolete + + ^ ((super isObsolete or: [provider isObsolete]) or: [(provider respondsTo: getter) not]) or: [(provider respondsTo: setter) not] \ No newline at end of file diff --git a/packages/SwaLint-Preferences.package/SLPragmaPreference.class/instance/isPragmaPreference.st b/packages/SwaLint-Preferences.package/SLPragmaPreference.class/instance/isPragmaPreference.st new file mode 100644 index 00000000..2fc2aae1 --- /dev/null +++ b/packages/SwaLint-Preferences.package/SLPragmaPreference.class/instance/isPragmaPreference.st @@ -0,0 +1,4 @@ +testing +isPragmaPreference + + ^ true \ No newline at end of file diff --git a/packages/SwaLint-Preferences.package/SLPragmaPreference.class/instance/localToProject.st b/packages/SwaLint-Preferences.package/SLPragmaPreference.class/instance/localToProject.st new file mode 100644 index 00000000..6e374369 --- /dev/null +++ b/packages/SwaLint-Preferences.package/SLPragmaPreference.class/instance/localToProject.st @@ -0,0 +1,5 @@ +accessing +localToProject + "Pragma preferences are stored and accessed outside the scope of the preference mechanism. Hence, they cannot be project-local." + + ^ false \ No newline at end of file diff --git a/packages/SwaLint-Preferences.package/SLPragmaPreference.class/instance/name.helpString.categoryList.type..st b/packages/SwaLint-Preferences.package/SLPragmaPreference.class/instance/name.helpString.categoryList.type..st new file mode 100644 index 00000000..651a382b --- /dev/null +++ b/packages/SwaLint-Preferences.package/SLPragmaPreference.class/instance/name.helpString.categoryList.type..st @@ -0,0 +1,16 @@ +private +name: aName helpString: aString categoryList: aList type: aType + "Do not make aName an interned symbol." + + name := aName. + value := defaultValue := nil. + + helpString := aString. + localToProject := false. + type := aType. + categoryList := aList + ifNil: [OrderedCollection with: #unclassified] + ifNotNil: [aList collect: [:elem | elem asSymbol]]. + + changeInformee := nil. + changeSelector := nil. \ No newline at end of file diff --git a/packages/SwaLint-Preferences.package/SLPragmaPreference.class/instance/preferenceValue..st b/packages/SwaLint-Preferences.package/SLPragmaPreference.class/instance/preferenceValue..st index 510d0486..5f94f923 100644 --- a/packages/SwaLint-Preferences.package/SLPragmaPreference.class/instance/preferenceValue..st +++ b/packages/SwaLint-Preferences.package/SLPragmaPreference.class/instance/preferenceValue..st @@ -1,8 +1,6 @@ value preferenceValue: aValue "set the value as indicated, and invoke the change selector if appropriate" - - self preferenceValue = aValue - ifFalse:[ - self rawValue: aValue. - self notifyInformeeOfChange] \ No newline at end of file + self preferenceValue = aValue ifFalse:[ + self rawValue: aValue. + self notifyInformeeOfChange]. \ No newline at end of file diff --git a/packages/SwaLint-Preferences.package/SLPragmaPreference.class/instance/preferenceValue.st b/packages/SwaLint-Preferences.package/SLPragmaPreference.class/instance/preferenceValue.st index f9cdd2d0..cd401837 100644 --- a/packages/SwaLint-Preferences.package/SLPragmaPreference.class/instance/preferenceValue.st +++ b/packages/SwaLint-Preferences.package/SLPragmaPreference.class/instance/preferenceValue.st @@ -1,5 +1,4 @@ value preferenceValue "Answer the current value of the preference" - - ^ provider perform: getter \ No newline at end of file + ^provider perform: getter \ No newline at end of file diff --git a/packages/SwaLint-Preferences.package/SLPragmaPreference.class/instance/provider.getter.setter..st b/packages/SwaLint-Preferences.package/SLPragmaPreference.class/instance/provider.getter.setter..st index 63aab848..846f420e 100644 --- a/packages/SwaLint-Preferences.package/SLPragmaPreference.class/instance/provider.getter.setter..st +++ b/packages/SwaLint-Preferences.package/SLPragmaPreference.class/instance/provider.getter.setter..st @@ -1,6 +1,5 @@ initialization provider: aClass getter: getterSymbol setter: setterSymbol - provider := aClass. getter := getterSymbol. - setter := setterSymbol + setter := setterSymbol. diff --git a/packages/SwaLint-Preferences.package/SLPragmaPreference.class/instance/provider.st b/packages/SwaLint-Preferences.package/SLPragmaPreference.class/instance/provider.st index ae7749ff..bcf5a0f0 100644 --- a/packages/SwaLint-Preferences.package/SLPragmaPreference.class/instance/provider.st +++ b/packages/SwaLint-Preferences.package/SLPragmaPreference.class/instance/provider.st @@ -1,4 +1,4 @@ accessing provider - ^ provider \ No newline at end of file + ^provider \ No newline at end of file diff --git a/packages/SwaLint-Preferences.package/SLPragmaPreference.class/instance/rawValue..st b/packages/SwaLint-Preferences.package/SLPragmaPreference.class/instance/rawValue..st index 9dcdcf5e..e8bce73c 100644 --- a/packages/SwaLint-Preferences.package/SLPragmaPreference.class/instance/rawValue..st +++ b/packages/SwaLint-Preferences.package/SLPragmaPreference.class/instance/rawValue..st @@ -1,5 +1,8 @@ value rawValue: aValue "set the value as indicated, with no side effects" - - provider perform: setter with: aValue \ No newline at end of file + [provider perform: setter with: aValue] + on: MessageNotUnderstood + do: [:ex| + (self attemptToSetValueFromGetter: aValue) ifFalse: + [ex pass]] \ No newline at end of file diff --git a/packages/SwaLint-Preferences.package/SLPragmaPreference.class/instance/resetDefaultValue.st b/packages/SwaLint-Preferences.package/SLPragmaPreference.class/instance/resetDefaultValue.st new file mode 100644 index 00000000..07957f33 --- /dev/null +++ b/packages/SwaLint-Preferences.package/SLPragmaPreference.class/instance/resetDefaultValue.st @@ -0,0 +1,3 @@ +initialization +resetDefaultValue + "No-op. Pragma preferences do not have default values." \ No newline at end of file diff --git a/packages/SwaLint-Preferences.package/SLPragmaPreference.class/instance/restoreDefaultValue.st b/packages/SwaLint-Preferences.package/SLPragmaPreference.class/instance/restoreDefaultValue.st index dbb51ac6..99078dcf 100644 --- a/packages/SwaLint-Preferences.package/SLPragmaPreference.class/instance/restoreDefaultValue.st +++ b/packages/SwaLint-Preferences.package/SLPragmaPreference.class/instance/restoreDefaultValue.st @@ -1,5 +1,12 @@ -value +initialization restoreDefaultValue - "restore the default value to the preference" + "Try to send a reset request to the preference provider by setting the preference value to 'nil' to exploit the usual ifNil-pattern in the pragma-preference's getter. + + Note that this reset is silent-by-design to be as fast as possible. If you want to send out notifications, try this: + self rawValue: self preferenceValue; notifyInformeeOfChange." - self preferenceValue: self defaultValue \ No newline at end of file + [[self rawValue: nil] valueSupplyingAnswer: true] + ifError: [:msg | + Transcript + showln: 'Failed to reset pragma preference: ', provider printString, ' >> ', getter printString; + showln: msg]. \ No newline at end of file diff --git a/packages/SwaLint-Preferences.package/SLPragmaPreference.class/instance/selectors.st b/packages/SwaLint-Preferences.package/SLPragmaPreference.class/instance/selectors.st new file mode 100644 index 00000000..3b4e8e4f --- /dev/null +++ b/packages/SwaLint-Preferences.package/SLPragmaPreference.class/instance/selectors.st @@ -0,0 +1,4 @@ +PreferenceBrowser +selectors + "for browsing senders" + ^ {getter. setter} \ No newline at end of file diff --git a/packages/SwaLint-Preferences.package/SLPragmaPreference.class/instance/togglePreferenceValue.st b/packages/SwaLint-Preferences.package/SLPragmaPreference.class/instance/togglePreferenceValue.st index c7ea23ca..e64db92b 100644 --- a/packages/SwaLint-Preferences.package/SLPragmaPreference.class/instance/togglePreferenceValue.st +++ b/packages/SwaLint-Preferences.package/SLPragmaPreference.class/instance/togglePreferenceValue.st @@ -1,6 +1,5 @@ value togglePreferenceValue "Toggle whether the value of the preference. Self must be a boolean preference." - self preferenceValue: self preferenceValue not. self notifyInformeeOfChange \ No newline at end of file diff --git a/packages/SwaLint-Preferences.package/SLPragmaPreference.class/methodProperties.json b/packages/SwaLint-Preferences.package/SLPragmaPreference.class/methodProperties.json index 848f27d0..2ed7dcaa 100644 --- a/packages/SwaLint-Preferences.package/SLPragmaPreference.class/methodProperties.json +++ b/packages/SwaLint-Preferences.package/SLPragmaPreference.class/methodProperties.json @@ -2,12 +2,23 @@ "class" : { }, "instance" : { - "asPreference" : "MT 7/24/2014 00:01", - "preferenceValue" : "MT 7/23/2014 21:28", - "preferenceValue:" : "MT 7/23/2014 20:55", - "printOn:" : "SO 7/9/2014 14:40", - "provider" : "MT 7/23/2014 20:56", - "provider:getter:setter:" : "MT 7/23/2014 20:56", - "rawValue:" : "MT 7/23/2014 20:56", - "restoreDefaultValue" : "MT 7/23/2014 20:56", - "togglePreferenceValue" : "MT 7/23/2014 20:56" } } + "asPreference" : "ct 12/13/2024 05:11", + "attemptToSetValueFromGetter:" : "eem 11/14/2017 10:56", + "browse" : "ct 11/1/2021 22:56", + "codeString" : "mt 8/15/2019 11:28", + "id" : "ct 12/13/2024 05:10", + "isDeprecated" : "mt 8/6/2019 15:38", + "isObsolete" : "mt 8/6/2019 09:41", + "isPragmaPreference" : "mt 1/24/2019 12:28", + "localToProject" : "mt 8/26/2015 16:09", + "name:helpString:categoryList:type:" : "mt 3/23/2023 17:53", + "preferenceValue" : "ar 3/9/2009 21:31", + "preferenceValue:" : "ar 3/9/2009 21:30", + "printOn:" : "ar 3/9/2009 21:28", + "provider" : "kb 11/28/2009 12:17", + "provider:getter:setter:" : "ar 3/9/2009 21:35", + "rawValue:" : "eem 11/14/2017 09:18", + "resetDefaultValue" : "ct 5/20/2022 18:03", + "restoreDefaultValue" : "mt 10/15/2020 14:13", + "selectors" : "bf 3/4/2010 11:45", + "togglePreferenceValue" : "ar 3/9/2009 21:31" } } diff --git a/packages/SwaLint-Preferences.package/SLPragmaPreference.class/properties.json b/packages/SwaLint-Preferences.package/SLPragmaPreference.class/properties.json index 7530ce2b..a9c0fc88 100644 --- a/packages/SwaLint-Preferences.package/SLPragmaPreference.class/properties.json +++ b/packages/SwaLint-Preferences.package/SLPragmaPreference.class/properties.json @@ -4,7 +4,7 @@ ], "classvars" : [ ], - "commentStamp" : "SO 7/9/2014 14:42", + "commentStamp" : "ct 12/19/2024 23:45", "instvars" : [ "provider", "getter", diff --git a/packages/SwaLint-Preferences.package/SLPreference.class/README.md b/packages/SwaLint-Preferences.package/SLPreference.class/README.md index 59426220..73b27caf 100644 --- a/packages/SwaLint-Preferences.package/SLPreference.class/README.md +++ b/packages/SwaLint-Preferences.package/SLPreference.class/README.md @@ -1,12 +1,6 @@ ### I am a copy of the Preference Class ### -Represents a true/false flag that is under user control and which can be interrogated by a call to Preferences - viewRegistry the registry of the classes responsible for building my view - name a symbol, the formal name of the preference. - value a boolean, the current value - defaultValue the default value of the preference - helpString string or text, constituting the help message - localToProject boolean, whether each project holds its own version - categoryList list of categories under which to offer this - changeInformee whom, if anyone, to inform if the value changes: - changeSelector what selector to send to the changeInformee when the value changes \ No newline at end of file +The following changes have been made based on the Preference class: +* updated references to Preferences and Preference & subclasses in methods and do-it comments + +When maintaining this class, merge all new changes from the Preference class into this class, considering the above exceptions (please preserve the old timestamps when copying methods by using Shift + Drag!). In the future, this implementation should be dropped in favor of Preference instead. \ No newline at end of file diff --git a/packages/SwaLint-Preferences.package/SLPreference.class/class/isChangeSelector..st b/packages/SwaLint-Preferences.package/SLPreference.class/class/isChangeSelector..st new file mode 100644 index 00000000..402ca88d --- /dev/null +++ b/packages/SwaLint-Preferences.package/SLPreference.class/class/isChangeSelector..st @@ -0,0 +1,3 @@ +browsing support +isChangeSelector: aLiteral + ^SLPreferences isChangeSelector: aLiteral \ No newline at end of file diff --git a/packages/SwaLint-Preferences.package/SLPreference.class/instance/asPreference.st b/packages/SwaLint-Preferences.package/SLPreference.class/instance/asPreference.st new file mode 100644 index 00000000..fd0b884c --- /dev/null +++ b/packages/SwaLint-Preferences.package/SLPreference.class/instance/asPreference.st @@ -0,0 +1,3 @@ +converting +asPreference + ^self \ No newline at end of file diff --git a/packages/SwaLint-Preferences.package/SLPreference.class/instance/browse.st b/packages/SwaLint-Preferences.package/SLPreference.class/instance/browse.st new file mode 100644 index 00000000..3ebd2abd --- /dev/null +++ b/packages/SwaLint-Preferences.package/SLPreference.class/instance/browse.st @@ -0,0 +1,6 @@ +browsing +browse + + ToolSet + browse: SLPreferences class + selector: self selectors first. \ No newline at end of file diff --git a/packages/SwaLint-Preferences.package/SLPreference.class/instance/browseSenders.st b/packages/SwaLint-Preferences.package/SLPreference.class/instance/browseSenders.st new file mode 100644 index 00000000..87f1e0cf --- /dev/null +++ b/packages/SwaLint-Preferences.package/SLPreference.class/instance/browseSenders.st @@ -0,0 +1,7 @@ +browsing +browseSenders + + self systemNavigation + browseAllSelect: [:m | self selectors anySatisfy: [:sel | m hasLiteral: sel]] + name: ('Preference senders: {1}' translated format: {self name}) + autoSelect: self selectors first. \ No newline at end of file diff --git a/packages/SwaLint-Preferences.package/SLPreference.class/instance/changeSelector.st b/packages/SwaLint-Preferences.package/SLPreference.class/instance/changeSelector.st new file mode 100644 index 00000000..fcd6c1ee --- /dev/null +++ b/packages/SwaLint-Preferences.package/SLPreference.class/instance/changeSelector.st @@ -0,0 +1,3 @@ +accessing +changeSelector + ^changeSelector \ No newline at end of file diff --git a/packages/SwaLint-Preferences.package/SLPreference.class/instance/codeString.st b/packages/SwaLint-Preferences.package/SLPreference.class/instance/codeString.st new file mode 100644 index 00000000..f6e7ee17 --- /dev/null +++ b/packages/SwaLint-Preferences.package/SLPreference.class/instance/codeString.st @@ -0,0 +1,5 @@ +menu +codeString + "Answer the Smalltalk expressions to get the preference value." + + ^ 'Preferences valueOfFlag: #', self name \ No newline at end of file diff --git a/packages/SwaLint-Preferences.package/SLPreference.class/instance/copyCode.st b/packages/SwaLint-Preferences.package/SLPreference.class/instance/copyCode.st new file mode 100644 index 00000000..eb8e67fd --- /dev/null +++ b/packages/SwaLint-Preferences.package/SLPreference.class/instance/copyCode.st @@ -0,0 +1,5 @@ +menu +copyCode + "Copy the code for the given preference to the clipboard" + + Clipboard clipboardText: self codeString. \ No newline at end of file diff --git a/packages/SwaLint-Preferences.package/SLPreference.class/instance/helpString.st b/packages/SwaLint-Preferences.package/SLPreference.class/instance/helpString.st index 13e9ad9d..d75b6fed 100644 --- a/packages/SwaLint-Preferences.package/SLPreference.class/instance/helpString.st +++ b/packages/SwaLint-Preferences.package/SLPreference.class/instance/helpString.st @@ -2,4 +2,4 @@ menu helpString "Answer the help string provided for the receiver" - ^ helpString ifNil: ['no help available'] \ No newline at end of file + ^ helpString ifNil: ['no help available' translatedNoop] \ No newline at end of file diff --git a/packages/SwaLint-Preferences.package/SLPreference.class/instance/id.st b/packages/SwaLint-Preferences.package/SLPreference.class/instance/id.st new file mode 100644 index 00000000..ff13d1f4 --- /dev/null +++ b/packages/SwaLint-Preferences.package/SLPreference.class/instance/id.st @@ -0,0 +1,4 @@ +accessing +id + + ^ self name asSymbol \ No newline at end of file diff --git a/packages/SwaLint-Preferences.package/SLPreference.class/instance/isDeprecated.st b/packages/SwaLint-Preferences.package/SLPreference.class/instance/isDeprecated.st new file mode 100644 index 00000000..f8523750 --- /dev/null +++ b/packages/SwaLint-Preferences.package/SLPreference.class/instance/isDeprecated.st @@ -0,0 +1,4 @@ +testing +isDeprecated + + ^ self isObsolete \ No newline at end of file diff --git a/packages/SwaLint-Preferences.package/SLPreference.class/instance/isPragmaPreference.st b/packages/SwaLint-Preferences.package/SLPreference.class/instance/isPragmaPreference.st new file mode 100644 index 00000000..6374c6c6 --- /dev/null +++ b/packages/SwaLint-Preferences.package/SLPreference.class/instance/isPragmaPreference.st @@ -0,0 +1,4 @@ +testing +isPragmaPreference + + ^ false \ No newline at end of file diff --git a/packages/SwaLint-Preferences.package/SLPreference.class/instance/isProjectLocalString.st b/packages/SwaLint-Preferences.package/SLPreference.class/instance/isProjectLocalString.st index fa6d36a2..3a6c3931 100644 --- a/packages/SwaLint-Preferences.package/SLPreference.class/instance/isProjectLocalString.st +++ b/packages/SwaLint-Preferences.package/SLPreference.class/instance/isProjectLocalString.st @@ -4,7 +4,7 @@ isProjectLocalString | aStr | aStr := 'each project has its own setting'. - ^ localToProject + ^ self localToProject ifTrue: ['', aStr] ifFalse: diff --git a/packages/SwaLint-Preferences.package/SLPreference.class/instance/name.defaultValue.helpString.localToProject.categoryList.changeInformee.changeSelector.type..st b/packages/SwaLint-Preferences.package/SLPreference.class/instance/name.defaultValue.helpString.localToProject.categoryList.changeInformee.changeSelector.type..st new file mode 100644 index 00000000..42432f9c --- /dev/null +++ b/packages/SwaLint-Preferences.package/SLPreference.class/instance/name.defaultValue.helpString.localToProject.categoryList.changeInformee.changeSelector.type..st @@ -0,0 +1,23 @@ +initialization +name: aName defaultValue: aValue helpString: aString localToProject: projectBoolean categoryList: aList changeInformee: informee changeSelector: aChangeSelector type: aType + "Initialize the preference from the given values. There is an extra tolerence here for the symbols #true, #false, and #nil, which are interpreted, when appropriate, as meaning true, false, and nil" + + name := aName asSymbol. + value := defaultValue := aValue + caseOf: { + [#true] -> [true]. + [#false] -> [false] } + otherwise: + [aValue]. + helpString := aString. + localToProject := projectBoolean == true or: [projectBoolean = #true]. + type := aType. + categoryList := aList + ifNil: [OrderedCollection with: #unclassified] + ifNotNil: [aList collect: [:elem | elem asSymbol]]. + + changeInformee := (informee == nil or: [informee == #nil]) ifFalse: + [(informee isSymbol) + ifTrue: [Smalltalk at: informee] + ifFalse: [informee]]. + changeSelector := aChangeSelector \ No newline at end of file diff --git a/packages/SwaLint-Preferences.package/SLPreference.class/instance/name.defaultValue.helpString.localToProject.categoryList.changeInformee.changeSelector.viewRegistry..st b/packages/SwaLint-Preferences.package/SLPreference.class/instance/name.defaultValue.helpString.localToProject.categoryList.changeInformee.changeSelector.viewRegistry..st deleted file mode 100644 index 796de7fd..00000000 --- a/packages/SwaLint-Preferences.package/SLPreference.class/instance/name.defaultValue.helpString.localToProject.categoryList.changeInformee.changeSelector.viewRegistry..st +++ /dev/null @@ -1,23 +0,0 @@ -initialization -name: aName defaultValue: aValue helpString: aString localToProject: projectBoolean categoryList: aList changeInformee: informee changeSelector: aChangeSelector viewRegistry: aViewRegistry - "Initialize the preference from the given values. There is an extra tolerence here for the symbols #true, #false, and #nil, which are interpreted, when appropriate, as meaning true, false, and nil" - - name := aName asSymbol. - defaultValue := aValue. - aValue = #true ifTrue: [defaultValue := true]. - aValue = #false ifTrue: [defaultValue := false]. - value := defaultValue. - helpString := aString. - localToProject := projectBoolean or: [projectBoolean = #true]. - viewRegistry := aViewRegistry. - categoryList := (aList ifNil: [OrderedCollection with: #unclassified]) collect: - [:elem | elem asSymbol]. - - changeInformee := (informee isNil or: [informee == #nil]) - ifTrue: [nil] - ifFalse: [(informee isKindOf: Symbol) - ifTrue: - [Smalltalk at: informee] - ifFalse: - [informee]]. - changeSelector := aChangeSelector \ No newline at end of file diff --git a/packages/SwaLint-Preferences.package/SLPreference.class/instance/notifyInformeeOfChange.st b/packages/SwaLint-Preferences.package/SLPreference.class/instance/notifyInformeeOfChange.st index ffda6012..2dac9164 100644 --- a/packages/SwaLint-Preferences.package/SLPreference.class/instance/notifyInformeeOfChange.st +++ b/packages/SwaLint-Preferences.package/SLPreference.class/instance/notifyInformeeOfChange.st @@ -1,5 +1,8 @@ change notification notifyInformeeOfChange "If there is a changeInformee, notify her that I have changed value" + + + "To find this method as sender of all changeSelectors" changeInformee ifNotNil: [changeInformee perform: changeSelector] \ No newline at end of file diff --git a/packages/SwaLint-Preferences.package/SLPreference.class/instance/open.st b/packages/SwaLint-Preferences.package/SLPreference.class/instance/open.st new file mode 100644 index 00000000..603e37eb --- /dev/null +++ b/packages/SwaLint-Preferences.package/SLPreference.class/instance/open.st @@ -0,0 +1,4 @@ +PreferenceBrowser +open + + ^ self openInCategory: (self categoryList at: 1 ifAbsent: []) \ No newline at end of file diff --git a/packages/SwaLint-Preferences.package/SLPreference.class/instance/openInCategory..st b/packages/SwaLint-Preferences.package/SLPreference.class/instance/openInCategory..st new file mode 100644 index 00000000..471c2e90 --- /dev/null +++ b/packages/SwaLint-Preferences.package/SLPreference.class/instance/openInCategory..st @@ -0,0 +1,11 @@ +PreferenceBrowser +openInCategory: category + + | browser | + browser := PreferenceBrowser open. + ^ browser + selectedCategory: ((self categoryList includes: category) + ifTrue: [category capitalized] + ifFalse: [browser allCategoryLabel]); + selectedPreference: self; + yourself \ No newline at end of file diff --git a/packages/SwaLint-Preferences.package/SLPreference.class/instance/preferenceValue.during..st b/packages/SwaLint-Preferences.package/SLPreference.class/instance/preferenceValue.during..st new file mode 100644 index 00000000..7a9e9103 --- /dev/null +++ b/packages/SwaLint-Preferences.package/SLPreference.class/instance/preferenceValue.during..st @@ -0,0 +1,8 @@ +value +preferenceValue: val during: aBlock + + | oldValue | + (oldValue := self preferenceValue) = val ifTrue: [^ aBlock value]. + self preferenceValue: val. + ^ aBlock ensure: + [self preferenceValue: oldValue] \ No newline at end of file diff --git a/packages/SwaLint-Preferences.package/SLPreference.class/instance/provider.st b/packages/SwaLint-Preferences.package/SLPreference.class/instance/provider.st new file mode 100644 index 00000000..d2a82cea --- /dev/null +++ b/packages/SwaLint-Preferences.package/SLPreference.class/instance/provider.st @@ -0,0 +1,4 @@ +value +provider + "Compatibility with pragma preferences" + ^nil \ No newline at end of file diff --git a/packages/SwaLint-Preferences.package/SLPreference.class/instance/representativeButtonWithColor.inPanel..st b/packages/SwaLint-Preferences.package/SLPreference.class/instance/representativeButtonWithColor.inPanel..st index 256d15f4..66e1c1dd 100644 --- a/packages/SwaLint-Preferences.package/SLPreference.class/instance/representativeButtonWithColor.inPanel..st +++ b/packages/SwaLint-Preferences.package/SLPreference.class/instance/representativeButtonWithColor.inPanel..st @@ -1,4 +1,4 @@ -user interface +PreferenceBrowser representativeButtonWithColor: aColor inPanel: aPanel | view | view := self viewForPanel: aPanel. diff --git a/packages/SwaLint-Preferences.package/SLPreference.class/instance/resetDefaultValue.st b/packages/SwaLint-Preferences.package/SLPreference.class/instance/resetDefaultValue.st new file mode 100644 index 00000000..cbb2173e --- /dev/null +++ b/packages/SwaLint-Preferences.package/SLPreference.class/instance/resetDefaultValue.st @@ -0,0 +1,4 @@ +initialization +resetDefaultValue + + self defaultValue: self preferenceValue. \ No newline at end of file diff --git a/packages/SwaLint-Preferences.package/SLPreference.class/instance/selectors.st b/packages/SwaLint-Preferences.package/SLPreference.class/instance/selectors.st index 9bb1f1ba..c585191c 100644 --- a/packages/SwaLint-Preferences.package/SLPreference.class/instance/selectors.st +++ b/packages/SwaLint-Preferences.package/SLPreference.class/instance/selectors.st @@ -1,10 +1,4 @@ -local to project +PreferenceBrowser selectors - | fullNameWithoutSpaces | - - fullNameWithoutSpaces := ''. - "filter out whitespaces" - self name asSymbol do: [ :each | (each ~= Character space) ifTrue: [ fullNameWithoutSpaces := fullNameWithoutSpaces, each] ]. - - ^ fullNameWithoutSpaces - \ No newline at end of file + "for browsing senders" + ^{name} \ No newline at end of file diff --git a/packages/SwaLint-Preferences.package/SLPreference.class/instance/toggleProjectLocalness.st b/packages/SwaLint-Preferences.package/SLPreference.class/instance/toggleProjectLocalness.st index 54cd24e3..313302af 100644 --- a/packages/SwaLint-Preferences.package/SLPreference.class/instance/toggleProjectLocalness.st +++ b/packages/SwaLint-Preferences.package/SLPreference.class/instance/toggleProjectLocalness.st @@ -2,4 +2,4 @@ local to project toggleProjectLocalness "Toggle whether the preference should be held project-by-project or globally" - localToProject := localToProject not + localToProject := localToProject not. \ No newline at end of file diff --git a/packages/SwaLint-Preferences.package/SLPreference.class/instance/type..st b/packages/SwaLint-Preferences.package/SLPreference.class/instance/type..st new file mode 100644 index 00000000..e6958a97 --- /dev/null +++ b/packages/SwaLint-Preferences.package/SLPreference.class/instance/type..st @@ -0,0 +1,4 @@ +accessing +type: preferenceType + "The type of this preference. One of #Boolean, #Color, #String, #Font, #Number etc." + type := preferenceType \ No newline at end of file diff --git a/packages/SwaLint-Preferences.package/SLPreference.class/instance/type.st b/packages/SwaLint-Preferences.package/SLPreference.class/instance/type.st new file mode 100644 index 00000000..7ff801c3 --- /dev/null +++ b/packages/SwaLint-Preferences.package/SLPreference.class/instance/type.st @@ -0,0 +1,4 @@ +accessing +type + "The type of this preference. One of #Boolean, #Color, #String, #Font, #Number etc." + ^type \ No newline at end of file diff --git a/packages/SwaLint-Preferences.package/SLPreference.class/instance/viewClassForPanel..st b/packages/SwaLint-Preferences.package/SLPreference.class/instance/viewClassForPanel..st index c6f917a2..5989c948 100644 --- a/packages/SwaLint-Preferences.package/SLPreference.class/instance/viewClassForPanel..st +++ b/packages/SwaLint-Preferences.package/SLPreference.class/instance/viewClassForPanel..st @@ -1,3 +1,3 @@ -user interface +PreferenceBrowser viewClassForPanel: aPreferencePanel ^self viewRegistry viewClassFor: aPreferencePanel \ No newline at end of file diff --git a/packages/SwaLint-Preferences.package/SLPreference.class/instance/viewForPanel..st b/packages/SwaLint-Preferences.package/SLPreference.class/instance/viewForPanel..st index fc69bda3..fe0d51c7 100644 --- a/packages/SwaLint-Preferences.package/SLPreference.class/instance/viewForPanel..st +++ b/packages/SwaLint-Preferences.package/SLPreference.class/instance/viewForPanel..st @@ -1,4 +1,4 @@ -user interface +PreferenceBrowser viewForPanel: aPreferencePanel | viewClass | viewClass := self viewClassForPanel: aPreferencePanel. diff --git a/packages/SwaLint-Preferences.package/SLPreference.class/instance/viewRegistry..st b/packages/SwaLint-Preferences.package/SLPreference.class/instance/viewRegistry..st deleted file mode 100644 index 0d5a6361..00000000 --- a/packages/SwaLint-Preferences.package/SLPreference.class/instance/viewRegistry..st +++ /dev/null @@ -1,3 +0,0 @@ -user interface -viewRegistry: aRegistry - viewRegistry := aRegistry \ No newline at end of file diff --git a/packages/SwaLint-Preferences.package/SLPreference.class/instance/viewRegistry.st b/packages/SwaLint-Preferences.package/SLPreference.class/instance/viewRegistry.st index 25fa330c..31814ad6 100644 --- a/packages/SwaLint-Preferences.package/SLPreference.class/instance/viewRegistry.st +++ b/packages/SwaLint-Preferences.package/SLPreference.class/instance/viewRegistry.st @@ -1,3 +1,3 @@ -user interface +PreferenceBrowser viewRegistry - ^viewRegistry \ No newline at end of file + ^PreferenceViewRegistry forType: self type \ No newline at end of file diff --git a/packages/SwaLint-Preferences.package/SLPreference.class/methodProperties.json b/packages/SwaLint-Preferences.package/SLPreference.class/methodProperties.json index 2d7e01e9..9cbb9852 100644 --- a/packages/SwaLint-Preferences.package/SLPreference.class/methodProperties.json +++ b/packages/SwaLint-Preferences.package/SLPreference.class/methodProperties.json @@ -1,31 +1,46 @@ { "class" : { - }, + "isChangeSelector:" : "ct 12/13/2024 05:10" }, "instance" : { - "categoryList" : "AT 12/4/2007 14:04", - "categoryList:" : "AT 12/4/2007 14:04", - "changeInformee:changeSelector:" : "AT 12/4/2007 14:04", - "copyName" : "AT 12/4/2007 14:04", - "defaultValue" : "AT 12/4/2007 14:04", - "defaultValue:" : "AT 12/4/2007 14:04", - "helpString" : "AT 12/4/2007 14:04", - "isObsolete" : "AT 12/4/2007 14:04", - "isProjectLocalString" : "AT 12/4/2007 14:04", - "localToProject" : "AT 12/4/2007 14:04", - "name" : "AT 12/4/2007 14:04", - "name:defaultValue:helpString:localToProject:categoryList:changeInformee:changeSelector:viewRegistry:" : "BD 6/29/2018 12:23", - "notifyInformeeOfChange" : "AT 12/4/2007 14:04", - "preferenceValue" : "AT 12/4/2007 14:04", - "preferenceValue:" : "AT 12/4/2007 14:04", - "printOn:" : "AT 12/4/2007 14:04", - "rawValue:" : "AT 12/4/2007 14:04", - "readableName" : "ct 1/28/2020 15:33", - "representativeButtonWithColor:inPanel:" : "AT 12/4/2007 14:04", - "restoreDefaultValue" : "SO 7/10/2014 11:34", - "selectors" : "BD 6/29/2018 13:06", - "togglePreferenceValue" : "AT 12/4/2007 14:04", - "toggleProjectLocalness" : "MT 7/23/2014 20:46", - "viewClassForPanel:" : "AT 12/4/2007 14:04", - "viewForPanel:" : "AT 12/4/2007 14:04", - "viewRegistry" : "AT 12/4/2007 14:04", - "viewRegistry:" : "AT 12/4/2007 14:04" } } + "asPreference" : "laza 4/7/2010 15:53", + "browse" : "ct 12/13/2024 05:10", + "browseSenders" : "ct 11/1/2021 22:42", + "categoryList" : "sw 4/12/2001 23:42", + "categoryList:" : "sw 4/29/2001 23:51", + "changeInformee:changeSelector:" : "sw 4/12/2001 01:39", + "changeSelector" : "bf 3/10/2016 16:42", + "codeString" : "mt 8/15/2019 11:22", + "copyCode" : "mt 8/15/2019 11:30", + "copyName" : "sw 4/13/2001 00:01", + "defaultValue" : "sw 4/10/2001 15:01", + "defaultValue:" : "sw 4/18/2002 12:15", + "helpString" : "KR 5/11/2008 14:48", + "id" : "mt 8/26/2015 16:48", + "isDeprecated" : "mt 8/6/2019 09:42", + "isObsolete" : "ar 9/27/2005 21:50", + "isPragmaPreference" : "mt 1/24/2019 12:28", + "isProjectLocalString" : "mt 8/26/2015 16:09", + "localToProject" : "sw 4/10/2001 01:14", + "name" : "sw 4/10/2001 15:02", + "name:defaultValue:helpString:localToProject:categoryList:changeInformee:changeSelector:type:" : "eem 6/30/2015 10:54", + "notifyInformeeOfChange" : "bf 3/10/2016 17:38", + "open" : "ct 4/6/2022 21:22", + "openInCategory:" : "ct 4/6/2022 21:25", + "preferenceValue" : "sw 4/10/2001 15:35", + "preferenceValue:" : "sw 4/12/2001 23:28", + "preferenceValue:during:" : "ct 4/6/2022 21:13", + "printOn:" : "sw 4/13/2001 00:05", + "provider" : "ar 3/9/2009 21:41", + "rawValue:" : "sw 4/12/2001 23:28", + "readableName" : "mt 8/15/2019 11:19", + "representativeButtonWithColor:inPanel:" : "hpt 9/26/2004 16:58", + "resetDefaultValue" : "ct 5/20/2022 18:03", + "restoreDefaultValue" : "sw 4/12/2001 00:04", + "selectors" : "bf 3/4/2010 11:46", + "togglePreferenceValue" : "hpt 9/26/2004 16:51", + "toggleProjectLocalness" : "ar 8/9/2009 14:45", + "type" : "ar 1/2/2010 23:56", + "type:" : "ar 8/9/2009 15:11", + "viewClassForPanel:" : "hpt 9/26/2004 15:42", + "viewForPanel:" : "hpt 9/26/2004 16:58", + "viewRegistry" : "ar 8/9/2009 15:21" } } diff --git a/packages/SwaLint-Preferences.package/SLPreference.class/properties.json b/packages/SwaLint-Preferences.package/SLPreference.class/properties.json index e7906d29..80faae39 100644 --- a/packages/SwaLint-Preferences.package/SLPreference.class/properties.json +++ b/packages/SwaLint-Preferences.package/SLPreference.class/properties.json @@ -4,7 +4,7 @@ ], "classvars" : [ ], - "commentStamp" : "AT 2/8/2008 12:03", + "commentStamp" : "ct 12/19/2024 23:45", "instvars" : [ "name", "value", @@ -14,7 +14,7 @@ "categoryList", "changeInformee", "changeSelector", - "viewRegistry" ], + "type" ], "name" : "SLPreference", "pools" : [ ], diff --git a/packages/SwaLint-Preferences.package/SLPreferenceBrowser.class/class/instanceRemoved.st b/packages/SwaLint-Preferences.package/SLPreferenceBrowser.class/class/instanceRemoved.st deleted file mode 100644 index a3b73b51..00000000 --- a/packages/SwaLint-Preferences.package/SLPreferenceBrowser.class/class/instanceRemoved.st +++ /dev/null @@ -1,4 +0,0 @@ -instance-removal -instanceRemoved - - UiInstance := nil. \ No newline at end of file diff --git a/packages/SwaLint-Preferences.package/SLPreferenceBrowser.class/class/open.st b/packages/SwaLint-Preferences.package/SLPreferenceBrowser.class/class/open.st index 4b1b82eb..aeaa6579 100644 --- a/packages/SwaLint-Preferences.package/SLPreferenceBrowser.class/class/open.st +++ b/packages/SwaLint-Preferences.package/SLPreferenceBrowser.class/class/open.st @@ -1,11 +1,7 @@ -instance-creation +instance creation open - - UiInstance - ifNil: [ - | browser | - browser := self new. - UiInstance := (SLPreferenceBrowserMorph withModel: browser) openInWorld ] - ifNotNil: [ UiInstance activate ]. - - ^ UiInstance model \ No newline at end of file + | browser | + browser := self new. + (SLPreferenceBrowserMorph withModel: browser) + openAsTool. + ^browser. \ No newline at end of file diff --git a/packages/SwaLint-Preferences.package/SLPreferenceBrowser.class/instance/aboutSelected.st b/packages/SwaLint-Preferences.package/SLPreferenceBrowser.class/instance/aboutSelected.st index 7897ba9b..0245ccd3 100644 --- a/packages/SwaLint-Preferences.package/SLPreferenceBrowser.class/instance/aboutSelected.st +++ b/packages/SwaLint-Preferences.package/SLPreferenceBrowser.class/instance/aboutSelected.st @@ -1,6 +1,4 @@ initialization aboutSelected - ^ (PopUpMenu labels: ' OK ' translated) - startUpWithCaption: (SwaLint projectDescription withNoLineLongerThan: 35) - icon: (Smalltalk at: #SwaLint) projectLogo \ No newline at end of file + ^ SwaLint showAbout \ No newline at end of file diff --git a/packages/SwaLint-Preferences.package/SLPreferenceBrowser.class/instance/windowIsClosing.st b/packages/SwaLint-Preferences.package/SLPreferenceBrowser.class/instance/windowIsClosing.st deleted file mode 100644 index 511f6797..00000000 --- a/packages/SwaLint-Preferences.package/SLPreferenceBrowser.class/instance/windowIsClosing.st +++ /dev/null @@ -1,4 +0,0 @@ -updating -windowIsClosing - - self class instanceRemoved \ No newline at end of file diff --git a/packages/SwaLint-Preferences.package/SLPreferenceBrowser.class/methodProperties.json b/packages/SwaLint-Preferences.package/SLPreferenceBrowser.class/methodProperties.json index 2cbd2a54..778696a5 100644 --- a/packages/SwaLint-Preferences.package/SLPreferenceBrowser.class/methodProperties.json +++ b/packages/SwaLint-Preferences.package/SLPreferenceBrowser.class/methodProperties.json @@ -1,10 +1,7 @@ { "class" : { - "instanceRemoved" : "NR 5/10/2008 10:29", - "open" : "NR 5/10/2008 10:23" }, + "open" : "ct 12/13/2024 05:17" }, "instance" : { - "aboutSelected" : "topa 4/15/2014 17:58", + "aboutSelected" : "ct 12/19/2024 23:19", "defaultSelected" : "NR 5/7/2008 12:19", - "initialize" : "NR 1/17/2008 13:19", - "initializeWithModel:" : "NR 12/18/2007 14:40", - "windowIsClosing" : "NR 5/10/2008 10:39" } } + "initialize" : "NR 1/17/2008 13:19" } } diff --git a/packages/SwaLint-Preferences.package/SLPreferenceBrowser.class/instance/initializeWithModel..st b/packages/SwaLint-Preferences.package/SLPreferenceBrowserMorph.class/instance/initializeWithModel..st similarity index 100% rename from packages/SwaLint-Preferences.package/SLPreferenceBrowser.class/instance/initializeWithModel..st rename to packages/SwaLint-Preferences.package/SLPreferenceBrowserMorph.class/instance/initializeWithModel..st diff --git a/packages/SwaLint-Preferences.package/SLPreferenceBrowserMorph.class/instance/newButtonRow.st b/packages/SwaLint-Preferences.package/SLPreferenceBrowserMorph.class/instance/newButtonRow.st index 90804a3f..e76c9110 100644 --- a/packages/SwaLint-Preferences.package/SLPreferenceBrowserMorph.class/instance/newButtonRow.st +++ b/packages/SwaLint-Preferences.package/SLPreferenceBrowserMorph.class/instance/newButtonRow.st @@ -5,8 +5,8 @@ newButtonRow ^ BorderedMorph new color: Color transparent; - cellInset: 2; - layoutInset: 2; + borderWidth: 0; + cellGap: ToolBuilder default panelSpacing; layoutPolicy: TableLayout new; listDirection: #leftToRight; listCentering: #topLeft; diff --git a/packages/SwaLint-Preferences.package/SLPreferenceBrowserMorph.class/methodProperties.json b/packages/SwaLint-Preferences.package/SLPreferenceBrowserMorph.class/methodProperties.json index a28ae671..62c516c0 100644 --- a/packages/SwaLint-Preferences.package/SLPreferenceBrowserMorph.class/methodProperties.json +++ b/packages/SwaLint-Preferences.package/SLPreferenceBrowserMorph.class/methodProperties.json @@ -3,4 +3,5 @@ }, "instance" : { "aboutButton" : "BD 6/29/2018 12:51", - "newButtonRow" : "AT 5/8/2008 10:06" } } + "initializeWithModel:" : "NR 12/18/2007 14:40", + "newButtonRow" : "ct 12/13/2024 05:19" } } diff --git a/packages/SwaLint-Preferences.package/SLPreferences.class/README.md b/packages/SwaLint-Preferences.package/SLPreferences.class/README.md index f8132fe3..203d51ea 100644 --- a/packages/SwaLint-Preferences.package/SLPreferences.class/README.md +++ b/packages/SwaLint-Preferences.package/SLPreferences.class/README.md @@ -1,26 +1,13 @@ ### I am a copy of the Preferences class ### -A general mechanism to store preference choices. The default setup treats any symbol as a potential boolean flag; flags unknown to the preference dictionary are always returned as false. - - To open the control panel: Preferences openFactoredPanel - To read how to use the panel (and how to make a preference be per-project): - Preferences giveHelpWithPreferences - -All messages are on the class side. - -To query a a preference: - Preferences logDebuggerStackToFile -or some people prefer the more verbose - Preferences valueOfFlag: #logDebuggerStackToFile - -You can make up a new preference any time. Do not define a new message in Preferences class. Accessor methods are compiled automatically when you add a preference as illustrated below: - -To add a preference (e.g. in the Postscript of a fileout): - Preferences addPreference: #samplePreference categories: #(general browsing) - default: true balloonHelp: 'This is an example of a preference added by a do-it' - projectLocal: false changeInformee: nil changeSelector: nil. - -To change a preference programatically: - Preferences disable: #logDebuggerStackToFile. -Or to turn it on, - Preferences enable: #logDebuggerStackToFile. \ No newline at end of file +The following changes have been made based on the Preferences class: +* updated references to Preferences and Preference & subclasses in methods and do-it comments +* prefixed pragma selector with sl prefix (preference constructors + addPragmaPreference:) +* added addBooleanPreference:categories:default:balloonHelp:projectLocal:changeInformee:changeSelector: and slpreference:categoryList:description:type:changeInformee:changeSelector: +* removed domain-specific preferences (including personalization) +* removed etoys/flaps support +* removed standard values +* removed themes +* commented out compileAccessorForPreference: to avoid reintroduced dependencies on autogenerated accessors + +When maintaining this class, merge all new changes from the Preferences class into this class, considering the above exceptions (please preserve the old timestamps when copying methods by using Shift + Drag!). In the future, this implementation should reuse the default Preferences instead, perhaps by subclassing. \ No newline at end of file diff --git a/packages/SwaLint-Preferences.package/SLPreferences.class/class/acceptAnnotationsFrom..st b/packages/SwaLint-Preferences.package/SLPreferences.class/class/acceptAnnotationsFrom..st deleted file mode 100644 index eee81a61..00000000 --- a/packages/SwaLint-Preferences.package/SLPreferences.class/class/acceptAnnotationsFrom..st +++ /dev/null @@ -1,8 +0,0 @@ -parameters -acceptAnnotationsFrom: aSystemWindow - "This intricate extraction is based on the precise structure of the annotation-request window. Kindly avert your eyes." - | aList | - aList := aSystemWindow paneMorphs first firstSubmorph submorphs collect: - [:m | m contents asSymbol]. - self defaultAnnotationRequests: aList - \ No newline at end of file diff --git a/packages/SwaLint-Preferences.package/SLPreferences.class/class/addBooleanPreference.categories.default.balloonHelp..st b/packages/SwaLint-Preferences.package/SLPreferences.class/class/addBooleanPreference.categories.default.balloonHelp..st index 65755737..75123cbc 100644 --- a/packages/SwaLint-Preferences.package/SLPreferences.class/class/addBooleanPreference.categories.default.balloonHelp..st +++ b/packages/SwaLint-Preferences.package/SLPreferences.class/class/addBooleanPreference.categories.default.balloonHelp..st @@ -1,5 +1,5 @@ -add preferences +add/remove - specific addBooleanPreference: prefSymbol categories: categoryList default: defaultValue balloonHelp: helpString "Add an item repreesenting the given preference symbol to the system. Default view for this preference is boolean to keep backward compatibility" - self addPreference: prefSymbol categories: categoryList default: defaultValue balloonHelp: helpString projectLocal: false changeInformee: nil changeSelector: nil viewRegistry: PreferenceViewRegistry ofBooleanPreferences \ No newline at end of file + ^ self addPreference: prefSymbol categories: categoryList default: defaultValue balloonHelp: helpString projectLocal: false changeInformee: nil changeSelector: nil type: #Boolean \ No newline at end of file diff --git a/packages/SwaLint-Preferences.package/SLPreferences.class/class/addBooleanPreference.categories.default.balloonHelp.projectLocal.changeInformee.changeSelector..st b/packages/SwaLint-Preferences.package/SLPreferences.class/class/addBooleanPreference.categories.default.balloonHelp.projectLocal.changeInformee.changeSelector..st index 5c6807d2..3b87c50d 100644 --- a/packages/SwaLint-Preferences.package/SLPreferences.class/class/addBooleanPreference.categories.default.balloonHelp.projectLocal.changeInformee.changeSelector..st +++ b/packages/SwaLint-Preferences.package/SLPreferences.class/class/addBooleanPreference.categories.default.balloonHelp.projectLocal.changeInformee.changeSelector..st @@ -1,5 +1,5 @@ -add preferences +add/remove - specific addBooleanPreference: prefSymbol categories: categoryList default: aValue balloonHelp: helpString projectLocal: localBoolean changeInformee: informeeSymbol changeSelector: aChangeSelector "Add an item repreesenting the given preference symbol to the system. Default view for this preference is boolean" - self addPreference: prefSymbol categories: categoryList default: aValue balloonHelp: helpString projectLocal: localBoolean changeInformee: informeeSymbol changeSelector: aChangeSelector viewRegistry: PreferenceViewRegistry ofBooleanPreferences \ No newline at end of file + self addPreference: prefSymbol categories: categoryList default: aValue balloonHelp: helpString projectLocal: localBoolean changeInformee: informeeSymbol changeSelector: aChangeSelector type: #Boolean \ No newline at end of file diff --git a/packages/SwaLint-Preferences.package/SLPreferences.class/class/addBooleanPreference.category.default.balloonHelp..st b/packages/SwaLint-Preferences.package/SLPreferences.class/class/addBooleanPreference.category.default.balloonHelp..st index e2547ec4..8ce143db 100644 --- a/packages/SwaLint-Preferences.package/SLPreferences.class/class/addBooleanPreference.category.default.balloonHelp..st +++ b/packages/SwaLint-Preferences.package/SLPreferences.class/class/addBooleanPreference.category.default.balloonHelp..st @@ -1,5 +1,5 @@ -add preferences +add/remove - specific addBooleanPreference: prefSymbol category: categorySymbol default: defaultValue balloonHelp: helpString "Add an item repreesenting the given preference symbol to the system. Default view for this preference is boolean to keep backward compatibility" - self addPreference: prefSymbol categories: {categorySymbol} default: defaultValue balloonHelp: helpString projectLocal: false changeInformee: nil changeSelector: nil viewRegistry: PreferenceViewRegistry ofBooleanPreferences \ No newline at end of file + ^ self addPreference: prefSymbol categories: {categorySymbol} default: defaultValue balloonHelp: helpString projectLocal: false changeInformee: nil changeSelector: nil type: #Boolean \ No newline at end of file diff --git a/packages/SwaLint-Preferences.package/SLPreferences.class/class/addColorPreference.categories.default.balloonHelp..st b/packages/SwaLint-Preferences.package/SLPreferences.class/class/addColorPreference.categories.default.balloonHelp..st index 0851f048..dd884900 100644 --- a/packages/SwaLint-Preferences.package/SLPreferences.class/class/addColorPreference.categories.default.balloonHelp..st +++ b/packages/SwaLint-Preferences.package/SLPreferences.class/class/addColorPreference.categories.default.balloonHelp..st @@ -1,5 +1,5 @@ -add preferences +add/remove - specific addColorPreference: prefSymbol categories: categoryList default: defaultValue balloonHelp: helpString "Add an item repreesenting the given preference symbol to the system. Default view for this preference is boolean to keep backward compatibility" - self addPreference: prefSymbol categories: categoryList default: defaultValue balloonHelp: helpString projectLocal: false changeInformee: nil changeSelector: nil viewRegistry: PreferenceViewRegistry ofColorPreferences \ No newline at end of file + ^ self addPreference: prefSymbol categories: categoryList default: defaultValue balloonHelp: helpString projectLocal: false changeInformee: nil changeSelector: nil type: #Color \ No newline at end of file diff --git a/packages/SwaLint-Preferences.package/SLPreferences.class/class/addColorPreference.category.default.balloonHelp..st b/packages/SwaLint-Preferences.package/SLPreferences.class/class/addColorPreference.category.default.balloonHelp..st index aedbf4ce..2dc2a75c 100644 --- a/packages/SwaLint-Preferences.package/SLPreferences.class/class/addColorPreference.category.default.balloonHelp..st +++ b/packages/SwaLint-Preferences.package/SLPreferences.class/class/addColorPreference.category.default.balloonHelp..st @@ -1,5 +1,5 @@ -add preferences +add/remove - specific addColorPreference: prefSymbol category: categorySymbol default: defaultValue balloonHelp: helpString "Add an item repreesenting the given preference symbol to the system. Default view for this preference is boolean to keep backward compatibility" - self addPreference: prefSymbol categories: {categorySymbol} default: defaultValue balloonHelp: helpString projectLocal: false changeInformee: nil changeSelector: nil viewRegistry: PreferenceViewRegistry ofColorPreferences \ No newline at end of file + ^ self addPreference: prefSymbol categories: {categorySymbol} default: defaultValue balloonHelp: helpString projectLocal: false changeInformee: nil changeSelector: nil type: #Color \ No newline at end of file diff --git a/packages/SwaLint-Preferences.package/SLPreferences.class/class/addFontPreference.categories.default.balloonHelp..st b/packages/SwaLint-Preferences.package/SLPreferences.class/class/addFontPreference.categories.default.balloonHelp..st index 41739cf9..36001ff8 100644 --- a/packages/SwaLint-Preferences.package/SLPreferences.class/class/addFontPreference.categories.default.balloonHelp..st +++ b/packages/SwaLint-Preferences.package/SLPreferences.class/class/addFontPreference.categories.default.balloonHelp..st @@ -1,5 +1,5 @@ -add preferences +add/remove - specific addFontPreference: prefSymbol categories: categoryList default: defaultValue balloonHelp: helpString "Add an item repreesenting the given preference symbol to the system. Default view for this preference is boolean to keep backward compatibility" - self addPreference: prefSymbol categories: categoryList default: defaultValue balloonHelp: helpString projectLocal: false changeInformee: nil changeSelector: nil viewRegistry: PreferenceViewRegistry ofFontPreferences \ No newline at end of file + ^ self addPreference: prefSymbol categories: categoryList default: defaultValue balloonHelp: helpString projectLocal: false changeInformee: nil changeSelector: nil type: #Font \ No newline at end of file diff --git a/packages/SwaLint-Preferences.package/SLPreferences.class/class/addFontPreference.category.default.balloonHelp..st b/packages/SwaLint-Preferences.package/SLPreferences.class/class/addFontPreference.category.default.balloonHelp..st index 3d98d4ee..9e6fb6bd 100644 --- a/packages/SwaLint-Preferences.package/SLPreferences.class/class/addFontPreference.category.default.balloonHelp..st +++ b/packages/SwaLint-Preferences.package/SLPreferences.class/class/addFontPreference.category.default.balloonHelp..st @@ -1,5 +1,5 @@ -add preferences +add/remove - specific addFontPreference: prefSymbol category: categorySymbol default: defaultValue balloonHelp: helpString "Add an item repreesenting the given preference symbol to the system. Default view for this preference is boolean to keep backward compatibility" - self addPreference: prefSymbol categories: {categorySymbol} default: defaultValue balloonHelp: helpString projectLocal: false changeInformee: nil changeSelector: nil viewRegistry: PreferenceViewRegistry ofFontPreferences \ No newline at end of file + ^ self addPreference: prefSymbol categories: {categorySymbol} default: defaultValue balloonHelp: helpString projectLocal: false changeInformee: nil changeSelector: nil type: #Font \ No newline at end of file diff --git a/packages/SwaLint-Preferences.package/SLPreferences.class/class/addModelItemsToWindowMenu..st b/packages/SwaLint-Preferences.package/SLPreferences.class/class/addModelItemsToWindowMenu..st index ffe3520a..1d6c1e06 100644 --- a/packages/SwaLint-Preferences.package/SLPreferences.class/class/addModelItemsToWindowMenu..st +++ b/packages/SwaLint-Preferences.package/SLPreferences.class/class/addModelItemsToWindowMenu..st @@ -1,5 +1,4 @@ -misc +support - misc addModelItemsToWindowMenu: aMenu aMenu addLine. - aMenu add: 'restore default preference settings' target: self action: #chooseInitialSettings. - aMenu add: 'restore default text highlighting' target: self action: #initializeTextHighlightingParameters \ No newline at end of file + aMenu add: 'restore default preference settings' target: self action: #chooseInitialSettings. \ No newline at end of file diff --git a/packages/SwaLint-Preferences.package/SLPreferences.class/class/addNumericPreference.categories.default.balloonHelp..st b/packages/SwaLint-Preferences.package/SLPreferences.class/class/addNumericPreference.categories.default.balloonHelp..st index c4a83881..a4a9a84c 100644 --- a/packages/SwaLint-Preferences.package/SLPreferences.class/class/addNumericPreference.categories.default.balloonHelp..st +++ b/packages/SwaLint-Preferences.package/SLPreferences.class/class/addNumericPreference.categories.default.balloonHelp..st @@ -1,5 +1,5 @@ -add preferences +add/remove - specific addNumericPreference: prefSymbol categories: categoryList default: defaultValue balloonHelp: helpString "Add an item repreesenting the given preference symbol to the system. " - self addPreference: prefSymbol categories: categoryList default: defaultValue balloonHelp: helpString projectLocal: false changeInformee: nil changeSelector: nil viewRegistry: PreferenceViewRegistry ofNumericPreferences \ No newline at end of file + ^ self addPreference: prefSymbol categories: categoryList default: defaultValue balloonHelp: helpString projectLocal: false changeInformee: nil changeSelector: nil type: #Number \ No newline at end of file diff --git a/packages/SwaLint-Preferences.package/SLPreferences.class/class/addNumericPreference.category.default.balloonHelp..st b/packages/SwaLint-Preferences.package/SLPreferences.class/class/addNumericPreference.category.default.balloonHelp..st index 9996d14e..644729d4 100644 --- a/packages/SwaLint-Preferences.package/SLPreferences.class/class/addNumericPreference.category.default.balloonHelp..st +++ b/packages/SwaLint-Preferences.package/SLPreferences.class/class/addNumericPreference.category.default.balloonHelp..st @@ -1,5 +1,5 @@ -add preferences +add/remove - specific addNumericPreference: prefSymbol category: categorySymbol default: defaultValue balloonHelp: helpString "Add an item repreesenting the given preference symbol to the system." - self addPreference: prefSymbol categories: {categorySymbol} default: defaultValue balloonHelp: helpString projectLocal: false changeInformee: nil changeSelector: nil viewRegistry: PreferenceViewRegistry ofNumericPreferences \ No newline at end of file + ^ self addPreference: prefSymbol categories: {categorySymbol} default: defaultValue balloonHelp: helpString projectLocal: false changeInformee: nil changeSelector: nil type: #Number \ No newline at end of file diff --git a/packages/SwaLint-Preferences.package/SLPreferences.class/class/addPragmaPreference..st b/packages/SwaLint-Preferences.package/SLPreferences.class/class/addPragmaPreference..st new file mode 100644 index 00000000..b94382e2 --- /dev/null +++ b/packages/SwaLint-Preferences.package/SLPreferences.class/class/addPragmaPreference..st @@ -0,0 +1,26 @@ +add/remove +addPragmaPreference: pragma + "Note that there will be no accessor method generated because the pragma's method does already govern that." + + | preference | + ((pragma keyword beginsWith: #slpreference:) and: [self respondsTo: pragma keyword]) + ifFalse: [ + "no pragma pref to be defined. do nothing" + ^ self]. + self assert: pragma methodClass isMeta. + + preference := self + perform: pragma keyword + withArguments: pragma arguments. + + preference + provider: pragma methodClass theNonMetaClass + getter: pragma method selector + setter: pragma method selector asSimpleSetter. + + self atomicUpdatePreferences: [ :copyOfDictionaryOfPreferences | + copyOfDictionaryOfPreferences + at: preference id + put: preference]. + + ^ preference \ No newline at end of file diff --git a/packages/SwaLint-Preferences.package/SLPreferences.class/class/addPreference.categories.default.balloonHelp..st b/packages/SwaLint-Preferences.package/SLPreferences.class/class/addPreference.categories.default.balloonHelp..st index 0a1f8aee..2ebf2bfc 100644 --- a/packages/SwaLint-Preferences.package/SLPreferences.class/class/addPreference.categories.default.balloonHelp..st +++ b/packages/SwaLint-Preferences.package/SLPreferences.class/class/addPreference.categories.default.balloonHelp..st @@ -1,4 +1,12 @@ -add preferences +add/remove - convenience addPreference: prefSymbol categories: categoryList default: defaultValue balloonHelp: helpString - "Add an item repreesenting the given preference symbol to the system. Default view for this preference is boolean to keep backward compatibility" - self addBooleanPreference: prefSymbol categories: categoryList default: defaultValue balloonHelp: helpString. \ No newline at end of file + "Add an item repreesenting the given preference symbol to the system." + + ^ self + addPreference: prefSymbol + categories: categoryList + default: defaultValue + balloonHelp: helpString + projectLocal: false + changeInformee: nil + changeSelector: nil \ No newline at end of file diff --git a/packages/SwaLint-Preferences.package/SLPreferences.class/class/addPreference.categories.default.balloonHelp.projectLocal.changeInformee.changeSelector..st b/packages/SwaLint-Preferences.package/SLPreferences.class/class/addPreference.categories.default.balloonHelp.projectLocal.changeInformee.changeSelector..st index 9e57f983..88701696 100644 --- a/packages/SwaLint-Preferences.package/SLPreferences.class/class/addPreference.categories.default.balloonHelp.projectLocal.changeInformee.changeSelector..st +++ b/packages/SwaLint-Preferences.package/SLPreferences.class/class/addPreference.categories.default.balloonHelp.projectLocal.changeInformee.changeSelector..st @@ -1,5 +1,13 @@ -add preferences +add/remove - convenience addPreference: prefSymbol categories: categoryList default: aValue balloonHelp: helpString projectLocal: localBoolean changeInformee: informeeSymbol changeSelector: aChangeSelector - "Add an item representing the given preference symbol to the system. Default view for this preference is boolean to keep backward compatibility" + "Add an item representing the given preference symbol to the system." - self addBooleanPreference: prefSymbol categories: categoryList default: aValue balloonHelp: helpString projectLocal: localBoolean changeInformee: informeeSymbol changeSelector: aChangeSelector + ^ self + addPreference: prefSymbol + categories: categoryList + default: aValue + balloonHelp: helpString + projectLocal: localBoolean + changeInformee: informeeSymbol + changeSelector: aChangeSelector + type: (self typeForValue: aValue) diff --git a/packages/SwaLint-Preferences.package/SLPreferences.class/class/addPreference.categories.default.balloonHelp.projectLocal.changeInformee.changeSelector.type..st b/packages/SwaLint-Preferences.package/SLPreferences.class/class/addPreference.categories.default.balloonHelp.projectLocal.changeInformee.changeSelector.type..st new file mode 100644 index 00000000..17911480 --- /dev/null +++ b/packages/SwaLint-Preferences.package/SLPreferences.class/class/addPreference.categories.default.balloonHelp.projectLocal.changeInformee.changeSelector.type..st @@ -0,0 +1,28 @@ +add/remove +addPreference: aName categories: categoryList default: aValue balloonHelp: helpString projectLocal: localBoolean changeInformee: informeeSymbol changeSelector: aChangeSelector type: aType + "Add or replace a preference as indicated. Reuses the preexisting Preference object for this symbol, if there is one, so that UI artifacts that interact with it will remain valid." + + | newPreference aPreference | + newPreference := SLPreference new + name: aName asSymbol + defaultValue: aValue + helpString: helpString + localToProject: localBoolean + categoryList: categoryList + changeInformee: informeeSymbol + changeSelector: aChangeSelector + type: aType; + yourself. + aPreference := preferencesDictionary + at: newPreference name + ifAbsent: [newPreference]. + aPreference == newPreference + ifTrue: "Atomically add the new preference to the dictionary." + [self atomicUpdatePreferences: + [:preferenceDictionaryCopy| + preferenceDictionaryCopy at: newPreference name put: newPreference]] + ifFalse: "Use the copyFrom: primitive to atomically update the existing preference." + [aPreference copyFrom: newPreference]. + "self compileAccessorForPreference: aPreference." + + ^ aPreference \ No newline at end of file diff --git a/packages/SwaLint-Preferences.package/SLPreferences.class/class/addPreference.categories.default.balloonHelp.projectLocal.changeInformee.changeSelector.viewRegistry..st b/packages/SwaLint-Preferences.package/SLPreferences.class/class/addPreference.categories.default.balloonHelp.projectLocal.changeInformee.changeSelector.viewRegistry..st deleted file mode 100644 index 1b686209..00000000 --- a/packages/SwaLint-Preferences.package/SLPreferences.class/class/addPreference.categories.default.balloonHelp.projectLocal.changeInformee.changeSelector.viewRegistry..st +++ /dev/null @@ -1,19 +0,0 @@ -add preferences -addPreference: aName categories: categoryList default: aValue balloonHelp: helpString projectLocal: localBoolean changeInformee: informeeSymbol changeSelector: aChangeSelector viewRegistry: aViewRegistry - "Add or replace a preference as indicated. Reuses the preexisting Preference object for this symbol, if there is one, so that UI artifacts that interact with it will remain valid." - - | aPreference aPrefSymbol | - aPrefSymbol := aName asSymbol. - aPreference := self dictionaryOfPreferences at:aPrefSymbol - ifAbsent:[SLPreference new]. - aPreference - name:aPrefSymbol - defaultValue:aValue - helpString:helpString - localToProject:localBoolean - categoryList:categoryList - changeInformee:informeeSymbol - changeSelector:aChangeSelector - viewRegistry:aViewRegistry. - self dictionaryOfPreferences at:aPrefSymbol put:aPreference. - self compileAccessMethodForPreference:aPreference \ No newline at end of file diff --git a/packages/SwaLint-Preferences.package/SLPreferences.class/class/addPreference.category.default..st b/packages/SwaLint-Preferences.package/SLPreferences.class/class/addPreference.category.default..st new file mode 100644 index 00000000..b2a9fa09 --- /dev/null +++ b/packages/SwaLint-Preferences.package/SLPreferences.class/class/addPreference.category.default..st @@ -0,0 +1,9 @@ +add/remove - convenience +addPreference: prefSymbol category: categorySymbol default: defaultValue + "Add the given preference, putting it in the given category, with the given default value, and with the given balloon help." + + ^ self + addPreference: prefSymbol + category: categorySymbol + default: defaultValue + balloonHelp: nil. \ No newline at end of file diff --git a/packages/SwaLint-Preferences.package/SLPreferences.class/class/addPreference.category.default.balloonHelp..st b/packages/SwaLint-Preferences.package/SLPreferences.class/class/addPreference.category.default.balloonHelp..st index fadd8bbe..2a405db5 100644 --- a/packages/SwaLint-Preferences.package/SLPreferences.class/class/addPreference.category.default.balloonHelp..st +++ b/packages/SwaLint-Preferences.package/SLPreferences.class/class/addPreference.category.default.balloonHelp..st @@ -1,5 +1,9 @@ -add preferences +add/remove - convenience addPreference: prefSymbol category: categorySymbol default: defaultValue balloonHelp: helpString - "Add the given preference, putting it in the given category, with the given default value, and with the given balloon help. It assumes boolean preference for backward compatibility" + "Add the given preference, putting it in the given category, with the given default value, and with the given balloon help." - self addBooleanPreference: prefSymbol category: categorySymbol default: defaultValue balloonHelp: helpString. \ No newline at end of file + ^ self + addPreference: prefSymbol + categories: {categorySymbol} + default: defaultValue + balloonHelp: helpString. \ No newline at end of file diff --git a/packages/SwaLint-Preferences.package/SLPreferences.class/class/addPreference.default..st b/packages/SwaLint-Preferences.package/SLPreferences.class/class/addPreference.default..st new file mode 100644 index 00000000..7d981362 --- /dev/null +++ b/packages/SwaLint-Preferences.package/SLPreferences.class/class/addPreference.default..st @@ -0,0 +1,8 @@ +add/remove - convenience +addPreference: prefSymbol default: defaultValue + + ^ self + addPreference: prefSymbol + category: self unclassifiedCategory + default: defaultValue + balloonHelp: nil. \ No newline at end of file diff --git a/packages/SwaLint-Preferences.package/SLPreferences.class/class/addTextPreference.categories.default.balloonHelp..st b/packages/SwaLint-Preferences.package/SLPreferences.class/class/addTextPreference.categories.default.balloonHelp..st index 271beb2e..0202b166 100644 --- a/packages/SwaLint-Preferences.package/SLPreferences.class/class/addTextPreference.categories.default.balloonHelp..st +++ b/packages/SwaLint-Preferences.package/SLPreferences.class/class/addTextPreference.categories.default.balloonHelp..st @@ -1,5 +1,5 @@ -add preferences +add/remove - specific addTextPreference: prefSymbol categories: categoryList default: defaultValue balloonHelp: helpString "Add an item repreesenting the given preference symbol to the system. Default view for this preference is boolean to keep backward compatibility" - self addPreference: prefSymbol categories: categoryList default: defaultValue balloonHelp: helpString projectLocal: false changeInformee: nil changeSelector: nil viewRegistry: PreferenceViewRegistry ofTextPreferences \ No newline at end of file + ^ self addPreference: prefSymbol categories: categoryList default: defaultValue balloonHelp: helpString projectLocal: false changeInformee: nil changeSelector: nil type: #String \ No newline at end of file diff --git a/packages/SwaLint-Preferences.package/SLPreferences.class/class/addTextPreference.category.default.balloonHelp..st b/packages/SwaLint-Preferences.package/SLPreferences.class/class/addTextPreference.category.default.balloonHelp..st index addc9d79..528fc630 100644 --- a/packages/SwaLint-Preferences.package/SLPreferences.class/class/addTextPreference.category.default.balloonHelp..st +++ b/packages/SwaLint-Preferences.package/SLPreferences.class/class/addTextPreference.category.default.balloonHelp..st @@ -1,5 +1,5 @@ -add preferences +add/remove - specific addTextPreference: prefSymbol category: categorySymbol default: defaultValue balloonHelp: helpString "Add an item repreesenting the given preference symbol to the system. Default view for this preference is boolean to keep backward compatibility" - self addPreference: prefSymbol categories: {categorySymbol} default: defaultValue balloonHelp: helpString projectLocal: false changeInformee: nil changeSelector: nil viewRegistry: PreferenceViewRegistry ofTextPreferences \ No newline at end of file + ^ self addPreference: prefSymbol categories: {categorySymbol} default: defaultValue balloonHelp: helpString projectLocal: false changeInformee: nil changeSelector: nil type: #String \ No newline at end of file diff --git a/packages/SwaLint-Preferences.package/SLPreferences.class/class/allPreferences.st b/packages/SwaLint-Preferences.package/SLPreferences.class/class/allPreferences.st index bcec36d8..22c3b9b4 100644 --- a/packages/SwaLint-Preferences.package/SLPreferences.class/class/allPreferences.st +++ b/packages/SwaLint-Preferences.package/SLPreferences.class/class/allPreferences.st @@ -1,5 +1,4 @@ -preference-object access +accessing allPreferences - "Answer a list of all the Preference objects registered in the system" - ^ self dictionaryOfPreferences values \ No newline at end of file + ^preferencesDictionary values reject: [:pref | pref isDeprecated] \ No newline at end of file diff --git a/packages/SwaLint-Preferences.package/SLPreferences.class/class/annotationEditingWindow.st b/packages/SwaLint-Preferences.package/SLPreferences.class/class/annotationEditingWindow.st deleted file mode 100644 index 5b7aca8d..00000000 --- a/packages/SwaLint-Preferences.package/SLPreferences.class/class/annotationEditingWindow.st +++ /dev/null @@ -1,59 +0,0 @@ -parameters -annotationEditingWindow - "Answer a window affording editing of annotations" - | aPanel ins outs current aMorph aWindow aButton info pair standardHeight standardWidth | - standardHeight := 180. - standardWidth := (2 sqrt reciprocal * standardHeight) rounded. - Smalltalk isMorphic - ifFalse: [self error: 'annotations can be edited only in morphic']. - aPanel := AlignmentMorph newRow extent: 2 * standardWidth @ standardHeight. - ins := AlignmentMorph newColumn extent: standardWidth @ standardHeight. - ins color: Color green muchLighter. - ins enableDrop: true; - beSticky. - outs := AlignmentMorph newColumn extent: standardWidth @ standardHeight. - outs color: Color red muchLighter. - outs enableDrop: true; - beSticky. - aPanel addMorph: outs; - addMorphFront: ins. - outs position: ins position + (standardWidth @ 0). - current := self defaultAnnotationRequests. - info := self annotationInfo. - current - do: [:sym | - pair := info - detect: [:aPair | aPair first == sym]. - aMorph := StringMorph new contents: pair first. - aMorph setBalloonText: pair last. - aMorph enableDrag: true. - aMorph - on: #startDrag - send: #startDrag:with: - to: aMorph. - ins addMorphBack: aMorph]. - info - do: [:aPair | (current includes: aPair first) - ifFalse: [aMorph := StringMorph new contents: aPair first. - aMorph setBalloonText: aPair last. - aMorph enableDrag: true. - aMorph - on: #startDrag - send: #startDrag:with: - to: aMorph. - outs addMorph: aMorph]]. - aPanel layoutChanged. - aWindow := SystemWindowWithButton new setLabel: 'Annotations'. - aButton := SimpleButtonMorph new target: Preferences; - actionSelector: #acceptAnnotationsFrom:; - - arguments: (Array with: aWindow); - label: 'apply'; - borderWidth: 0; - borderColor: Color transparent; - color: Color transparent. - aButton submorphs first color: Color blue. - aButton setBalloonText: 'After moving all the annotations you want to the left (green) side, and all the ones you do NOT want to the right (pink) side, hit this "apply" button to have your choices take effect.'. - aWindow buttonInTitle: aButton; - adjustExtraButton. - ^ aPanel wrappedInWindow: aWindow"Preferences annotationEditingWindow openInHand" \ No newline at end of file diff --git a/packages/SwaLint-Preferences.package/SLPreferences.class/class/annotationPanesChanged.st b/packages/SwaLint-Preferences.package/SLPreferences.class/class/annotationPanesChanged.st deleted file mode 100644 index 300ab059..00000000 --- a/packages/SwaLint-Preferences.package/SLPreferences.class/class/annotationPanesChanged.st +++ /dev/null @@ -1,3 +0,0 @@ -reacting to change -annotationPanesChanged - "The setting of the annotationPanes preference changed; react. Formerly, we replaced prototypes in flaps but this is no longer necessary" \ No newline at end of file diff --git a/packages/SwaLint-Preferences.package/SLPreferences.class/class/atomicUpdatePreferences..st b/packages/SwaLint-Preferences.package/SLPreferences.class/class/atomicUpdatePreferences..st new file mode 100644 index 00000000..a2d6f22f --- /dev/null +++ b/packages/SwaLint-Preferences.package/SLPreferences.class/class/atomicUpdatePreferences..st @@ -0,0 +1,15 @@ +accessing +atomicUpdatePreferences: aBlock + "Evaluate aBlock with a copy of the preferences dictionary and + then assign (assignment is atomic) the copy to the dictionary." + + [ + | originalPreferences copyOfPreferences | + originalPreferences := preferencesDictionary. + copyOfPreferences := preferencesDictionary + ifNil: [ IdentityDictionary new ] + ifNotNil: [ :dictionary | dictionary copy ]. + aBlock value: copyOfPreferences. + originalPreferences == preferencesDictionary ifTrue: [ + preferencesDictionary := copyOfPreferences. + ^self ] ] repeat \ No newline at end of file diff --git a/packages/SwaLint-Preferences.package/SLPreferences.class/class/attemptToRestoreClassicFonts.st b/packages/SwaLint-Preferences.package/SLPreferences.class/class/attemptToRestoreClassicFonts.st deleted file mode 100644 index 7b726d73..00000000 --- a/packages/SwaLint-Preferences.package/SLPreferences.class/class/attemptToRestoreClassicFonts.st +++ /dev/null @@ -1,18 +0,0 @@ -fonts -attemptToRestoreClassicFonts - "If certain fonts formerly used in early versions of Squeak happen to be present in the image, restore them to their corresponding roles. Not called by any other method -- intended to be invoked via do-it, possibly in a postscript" - "Preferences attemptToRestoreClassicFonts" - - | aTextStyle | - #( (setButtonFontTo: NewYork 12) - (setCodeFontTo: NewYork 12) - (setFlapsFontTo: ComicBold 16) - (setEToysFontTo: ComicBold 16) - (setListFontTo: NewYork 12) - (setMenuFontTo: NewYork 12) - (setWindowTitleFontTo: NewYork 15) - (setSystemFontTo: NewYork 12)) do: - [:triplet | - (aTextStyle := TextStyle named: triplet second) ifNotNil: - [self perform: triplet first with: (aTextStyle fontOfSize: triplet third). - Transcript cr; show: triplet second, ' installed as ', (triplet first copyFrom: 4 to: triplet first size - 3)]] \ No newline at end of file diff --git a/packages/SwaLint-Preferences.package/SLPreferences.class/class/automaticFlapLayoutString.st b/packages/SwaLint-Preferences.package/SLPreferences.class/class/automaticFlapLayoutString.st deleted file mode 100644 index 82e9acc6..00000000 --- a/packages/SwaLint-Preferences.package/SLPreferences.class/class/automaticFlapLayoutString.st +++ /dev/null @@ -1,7 +0,0 @@ -get/set -automaticFlapLayoutString - "Answer a string for the automaticFlapLayout menu item" - ^ (self automaticFlapLayout - ifTrue: [''] - ifFalse: ['']) - , 'automatic flap layout' translated \ No newline at end of file diff --git a/packages/SwaLint-Preferences.package/SLPreferences.class/class/balloonHelpDelayTime.st b/packages/SwaLint-Preferences.package/SLPreferences.class/class/balloonHelpDelayTime.st deleted file mode 100644 index 0e3c530e..00000000 --- a/packages/SwaLint-Preferences.package/SLPreferences.class/class/balloonHelpDelayTime.st +++ /dev/null @@ -1,7 +0,0 @@ -misc -balloonHelpDelayTime - "Answer the number of milliseconds before a balloon help - should be put up on morphs." - ^ Parameters - at: #balloonHelpDelayTime - ifAbsent: [800] \ No newline at end of file diff --git a/packages/SwaLint-Preferences.package/SLPreferences.class/class/borderColorWhenRunning.st b/packages/SwaLint-Preferences.package/SLPreferences.class/class/borderColorWhenRunning.st deleted file mode 100644 index a664c595..00000000 --- a/packages/SwaLint-Preferences.package/SLPreferences.class/class/borderColorWhenRunning.st +++ /dev/null @@ -1,3 +0,0 @@ -parameters -borderColorWhenRunning - ^ Color green \ No newline at end of file diff --git a/packages/SwaLint-Preferences.package/SLPreferences.class/class/browseThemes.st b/packages/SwaLint-Preferences.package/SLPreferences.class/class/browseThemes.st deleted file mode 100644 index 5e736c24..00000000 --- a/packages/SwaLint-Preferences.package/SLPreferences.class/class/browseThemes.st +++ /dev/null @@ -1,11 +0,0 @@ -misc -browseThemes - "Open up a message-category browser on the theme-defining methods" - - | aBrowser | - aBrowser := Browser new setClass: Preferences class selector: #outOfTheBox. - aBrowser messageCategoryListIndex: ((Preferences class organization categories indexOf: 'themes' ifAbsent: [^ self inform: 'no themes found']) + 1). - Browser openBrowserView: (aBrowser openMessageCatEditString: nil) - label: 'Preference themes' - - "Preferences browseThemes" \ No newline at end of file diff --git a/packages/SwaLint-Preferences.package/SLPreferences.class/class/caretWidth..st b/packages/SwaLint-Preferences.package/SLPreferences.class/class/caretWidth..st deleted file mode 100644 index e29ef582..00000000 --- a/packages/SwaLint-Preferences.package/SLPreferences.class/class/caretWidth..st +++ /dev/null @@ -1,3 +0,0 @@ -text highlighting -caretWidth: anInteger - ^ Parameters at: #caretWidth put: anInteger \ No newline at end of file diff --git a/packages/SwaLint-Preferences.package/SLPreferences.class/class/caretWidth.st b/packages/SwaLint-Preferences.package/SLPreferences.class/class/caretWidth.st deleted file mode 100644 index e556db37..00000000 --- a/packages/SwaLint-Preferences.package/SLPreferences.class/class/caretWidth.st +++ /dev/null @@ -1,3 +0,0 @@ -text highlighting -caretWidth - ^ Parameters at: #caretWidth \ No newline at end of file diff --git a/packages/SwaLint-Preferences.package/SLPreferences.class/class/categoriesContainingPreference..st b/packages/SwaLint-Preferences.package/SLPreferences.class/class/categoriesContainingPreference..st deleted file mode 100644 index afb9aef5..00000000 --- a/packages/SwaLint-Preferences.package/SLPreferences.class/class/categoriesContainingPreference..st +++ /dev/null @@ -1,5 +0,0 @@ -factored pref panel -categoriesContainingPreference: prefSymbol - "Return a list of all categories in which the preference occurs" - - ^ (self preferenceAt: prefSymbol ifAbsent: [^ #(unclassified)]) categoryList \ No newline at end of file diff --git a/packages/SwaLint-Preferences.package/SLPreferences.class/class/categoryList.st b/packages/SwaLint-Preferences.package/SLPreferences.class/class/categoryList.st index 29c240ce..0dea8393 100644 --- a/packages/SwaLint-Preferences.package/SLPreferences.class/class/categoryList.st +++ b/packages/SwaLint-Preferences.package/SLPreferences.class/class/categoryList.st @@ -1,6 +1,11 @@ -preferences panel +support categoryList - "Answer a list of category names for the preferences panel" - ^ {#?}, self categoryNames sorted asArray + "Return all available categories. No duplicates." - "Preferences listOfCategories" + | aSet | + aSet := Set new. + self allPreferences do: [ :aPreference | + aSet addAll: ( + aPreference categoryList collect: [ :aCategory | + aCategory asSymbol ]) ]. + ^aSet \ No newline at end of file diff --git a/packages/SwaLint-Preferences.package/SLPreferences.class/class/categoryListOfPreference..st b/packages/SwaLint-Preferences.package/SLPreferences.class/class/categoryListOfPreference..st index 35b96e07..fc0f381f 100644 --- a/packages/SwaLint-Preferences.package/SLPreferences.class/class/categoryListOfPreference..st +++ b/packages/SwaLint-Preferences.package/SLPreferences.class/class/categoryListOfPreference..st @@ -1,4 +1,4 @@ -preferences panel +support categoryListOfPreference: prefSymbol "Return a list of all categories in which the preference occurs" diff --git a/packages/SwaLint-Preferences.package/SLPreferences.class/class/categoryNames.st b/packages/SwaLint-Preferences.package/SLPreferences.class/class/categoryNames.st deleted file mode 100644 index 8e84e601..00000000 --- a/packages/SwaLint-Preferences.package/SLPreferences.class/class/categoryNames.st +++ /dev/null @@ -1,9 +0,0 @@ -preferences panel -categoryNames - | aSet | - aSet := Set new. - self dictionaryOfPreferences do: - [:aPreference | - aSet addAll:(aPreference categoryList - collect:[:aCategory | aCategory asSymbol])]. - ^ aSet \ No newline at end of file diff --git a/packages/SwaLint-Preferences.package/SLPreferences.class/class/checkForWindowColors.st b/packages/SwaLint-Preferences.package/SLPreferences.class/class/checkForWindowColors.st deleted file mode 100644 index 7dba6a4d..00000000 --- a/packages/SwaLint-Preferences.package/SLPreferences.class/class/checkForWindowColors.st +++ /dev/null @@ -1,4 +0,0 @@ -window colors -checkForWindowColors - (self allPreferences noneSatisfy: [:aPref | aPref name endsWith: 'WindowColor']) - ifTrue: [self installBrightWindowColors]. \ No newline at end of file diff --git a/packages/SwaLint-Preferences.package/SLPreferences.class/class/chooseBalloonHelpFont.st b/packages/SwaLint-Preferences.package/SLPreferences.class/class/chooseBalloonHelpFont.st deleted file mode 100644 index 8014a9ed..00000000 --- a/packages/SwaLint-Preferences.package/SLPreferences.class/class/chooseBalloonHelpFont.st +++ /dev/null @@ -1,4 +0,0 @@ -fonts -chooseBalloonHelpFont - - BalloonMorph chooseBalloonFont \ No newline at end of file diff --git a/packages/SwaLint-Preferences.package/SLPreferences.class/class/chooseCodeFont.st b/packages/SwaLint-Preferences.package/SLPreferences.class/class/chooseCodeFont.st deleted file mode 100644 index 96b5df0b..00000000 --- a/packages/SwaLint-Preferences.package/SLPreferences.class/class/chooseCodeFont.st +++ /dev/null @@ -1,5 +0,0 @@ -fonts -chooseCodeFont - "Not currently sent, but once protocols are sorted out so that we can disriminate on whether a text object being launched is for code or not, will be reincorporated" - - self chooseFontWithPrompt: 'Choose the font to be used for displaying code' translated andSendTo: self withSelector: #setCodeFontTo: highlight: self standardCodeFont. \ No newline at end of file diff --git a/packages/SwaLint-Preferences.package/SLPreferences.class/class/chooseEToysFont.st b/packages/SwaLint-Preferences.package/SLPreferences.class/class/chooseEToysFont.st deleted file mode 100644 index d5506109..00000000 --- a/packages/SwaLint-Preferences.package/SLPreferences.class/class/chooseEToysFont.st +++ /dev/null @@ -1,8 +0,0 @@ -fonts -chooseEToysFont - "present a menu with the possible fonts for the eToys" - self - chooseFontWithPrompt: 'Choose the eToys font' translated - andSendTo: self - withSelector: #setEToysFontTo: - highlight: self standardEToysFont \ No newline at end of file diff --git a/packages/SwaLint-Preferences.package/SLPreferences.class/class/chooseEToysTitleFont.st b/packages/SwaLint-Preferences.package/SLPreferences.class/class/chooseEToysTitleFont.st deleted file mode 100644 index 77faa1fb..00000000 --- a/packages/SwaLint-Preferences.package/SLPreferences.class/class/chooseEToysTitleFont.st +++ /dev/null @@ -1,8 +0,0 @@ -fonts -chooseEToysTitleFont - "present a menu with the possible fonts for the eToys" - self - chooseFontWithPrompt: 'Choose the eToys title font' translated - andSendTo: self - withSelector: #setEToysTitleFontTo: - highlight: self standardEToysTitleFont \ No newline at end of file diff --git a/packages/SwaLint-Preferences.package/SLPreferences.class/class/chooseFlapsFont.st b/packages/SwaLint-Preferences.package/SLPreferences.class/class/chooseFlapsFont.st deleted file mode 100644 index 97bb98b9..00000000 --- a/packages/SwaLint-Preferences.package/SLPreferences.class/class/chooseFlapsFont.st +++ /dev/null @@ -1,3 +0,0 @@ -fonts -chooseFlapsFont - self chooseFontWithPrompt: 'Choose a flaps font' translated andSendTo: self withSelector: #setFlapsFontTo: highlight: self standardFlapFont \ No newline at end of file diff --git a/packages/SwaLint-Preferences.package/SLPreferences.class/class/chooseFontWithPrompt.andSendTo.withSelector..st b/packages/SwaLint-Preferences.package/SLPreferences.class/class/chooseFontWithPrompt.andSendTo.withSelector..st deleted file mode 100644 index d6f4ed73..00000000 --- a/packages/SwaLint-Preferences.package/SLPreferences.class/class/chooseFontWithPrompt.andSendTo.withSelector..st +++ /dev/null @@ -1,3 +0,0 @@ -fonts -chooseFontWithPrompt: aPrompt andSendTo: aReceiver withSelector: aSelector - self chooseFontWithPrompt: aPrompt andSendTo: aReceiver withSelector: aSelector highlight: nil diff --git a/packages/SwaLint-Preferences.package/SLPreferences.class/class/chooseFontWithPrompt.andSendTo.withSelector.highlight..st b/packages/SwaLint-Preferences.package/SLPreferences.class/class/chooseFontWithPrompt.andSendTo.withSelector.highlight..st deleted file mode 100644 index 963fea10..00000000 --- a/packages/SwaLint-Preferences.package/SLPreferences.class/class/chooseFontWithPrompt.andSendTo.withSelector.highlight..st +++ /dev/null @@ -1,7 +0,0 @@ -fonts -chooseFontWithPrompt: aPrompt andSendTo: aReceiver withSelector: aSelector highlight: currentFont - Smalltalk isMorphic - ifFalse: - [TextStyle mvcPromptForFont: aPrompt andSendTo: aReceiver withSelector: aSelector] - ifTrue: - [TextStyle promptForFont: aPrompt andSendTo: aReceiver withSelector: aSelector highlight: currentFont] \ No newline at end of file diff --git a/packages/SwaLint-Preferences.package/SLPreferences.class/class/chooseHaloLabelFont.st b/packages/SwaLint-Preferences.package/SLPreferences.class/class/chooseHaloLabelFont.st deleted file mode 100644 index 7d35c787..00000000 --- a/packages/SwaLint-Preferences.package/SLPreferences.class/class/chooseHaloLabelFont.st +++ /dev/null @@ -1,8 +0,0 @@ -fonts -chooseHaloLabelFont - "present a menu with the possible fonts for label in halo" - self - chooseFontWithPrompt: 'halo label font' - andSendTo: self - withSelector: #setHaloLabelFontTo: - highlight: self standardHaloLabelFont \ No newline at end of file diff --git a/packages/SwaLint-Preferences.package/SLPreferences.class/class/chooseInitialSettings.st b/packages/SwaLint-Preferences.package/SLPreferences.class/class/chooseInitialSettings.st index e5c3bdd0..d3390f7b 100644 --- a/packages/SwaLint-Preferences.package/SLPreferences.class/class/chooseInitialSettings.st +++ b/packages/SwaLint-Preferences.package/SLPreferences.class/class/chooseInitialSettings.st @@ -2,7 +2,6 @@ initialization chooseInitialSettings "Restore the default choices for all of the standard Preferences." - self allPreferences do: - [ :aPreference | - aPreference restoreDefaultValue ]. + self allPreferences do: [:aPreference | + aPreference restoreDefaultValue]. Project current installProjectPreferences \ No newline at end of file diff --git a/packages/SwaLint-Preferences.package/SLPreferences.class/class/chooseInsertionPointColor.st b/packages/SwaLint-Preferences.package/SLPreferences.class/class/chooseInsertionPointColor.st deleted file mode 100644 index 34501b79..00000000 --- a/packages/SwaLint-Preferences.package/SLPreferences.class/class/chooseInsertionPointColor.st +++ /dev/null @@ -1,11 +0,0 @@ -text highlighting -chooseInsertionPointColor - "Let the user indicate what color he wishes to have used for insertion points in text" - - ColorPickerMorph new - choseModalityFromPreference; - sourceHand: self currentHand; - target: self; - selector: #insertionPointColor:; - originalColor: self insertionPointColor; - putUpFor: self currentHand near: self currentHand cursorBounds \ No newline at end of file diff --git a/packages/SwaLint-Preferences.package/SLPreferences.class/class/chooseKeyboardFocusColor.st b/packages/SwaLint-Preferences.package/SLPreferences.class/class/chooseKeyboardFocusColor.st deleted file mode 100644 index 9537c82a..00000000 --- a/packages/SwaLint-Preferences.package/SLPreferences.class/class/chooseKeyboardFocusColor.st +++ /dev/null @@ -1,11 +0,0 @@ -text highlighting -chooseKeyboardFocusColor - "Let the user indicate what color he wishes to have used for keyboard-focus feedback" - - ColorPickerMorph new - choseModalityFromPreference; - sourceHand: self currentHand; - target: self; - selector: #keyboardFocusColor:; - originalColor: self keyboardFocusColor; - putUpFor: self currentHand near: self currentHand cursorBounds \ No newline at end of file diff --git a/packages/SwaLint-Preferences.package/SLPreferences.class/class/chooseListFont.st b/packages/SwaLint-Preferences.package/SLPreferences.class/class/chooseListFont.st deleted file mode 100644 index 20306ea5..00000000 --- a/packages/SwaLint-Preferences.package/SLPreferences.class/class/chooseListFont.st +++ /dev/null @@ -1,3 +0,0 @@ -fonts -chooseListFont - self chooseFontWithPrompt: 'Choose the standard list font' translated andSendTo: self withSelector: #setListFontTo: highlight: self standardListFont \ No newline at end of file diff --git a/packages/SwaLint-Preferences.package/SLPreferences.class/class/chooseMenuFont.st b/packages/SwaLint-Preferences.package/SLPreferences.class/class/chooseMenuFont.st deleted file mode 100644 index cf09d694..00000000 --- a/packages/SwaLint-Preferences.package/SLPreferences.class/class/chooseMenuFont.st +++ /dev/null @@ -1,3 +0,0 @@ -fonts -chooseMenuFont - self chooseFontWithPrompt: 'Choose the standard menu font' translated andSendTo: self withSelector: #setMenuFontTo: highlight: self standardMenuFont \ No newline at end of file diff --git a/packages/SwaLint-Preferences.package/SLPreferences.class/class/chooseStandardButtonFont.st b/packages/SwaLint-Preferences.package/SLPreferences.class/class/chooseStandardButtonFont.st deleted file mode 100644 index 4e730d93..00000000 --- a/packages/SwaLint-Preferences.package/SLPreferences.class/class/chooseStandardButtonFont.st +++ /dev/null @@ -1,4 +0,0 @@ -fonts -chooseStandardButtonFont - self chooseFontWithPrompt: 'Choose the button font' translated andSendTo: self withSelector: #setButtonFontTo: highlight: self standardButtonFont - diff --git a/packages/SwaLint-Preferences.package/SLPreferences.class/class/chooseSystemFont.st b/packages/SwaLint-Preferences.package/SLPreferences.class/class/chooseSystemFont.st deleted file mode 100644 index c8122c6c..00000000 --- a/packages/SwaLint-Preferences.package/SLPreferences.class/class/chooseSystemFont.st +++ /dev/null @@ -1,3 +0,0 @@ -fonts -chooseSystemFont - self chooseFontWithPrompt: 'Choose the default text font' translated andSendTo: self withSelector: #setSystemFontTo: highlight: (TextConstants at: #DefaultTextStyle) defaultFont \ No newline at end of file diff --git a/packages/SwaLint-Preferences.package/SLPreferences.class/class/chooseTextHighlightColor.st b/packages/SwaLint-Preferences.package/SLPreferences.class/class/chooseTextHighlightColor.st deleted file mode 100644 index 53f1d026..00000000 --- a/packages/SwaLint-Preferences.package/SLPreferences.class/class/chooseTextHighlightColor.st +++ /dev/null @@ -1,11 +0,0 @@ -text highlighting -chooseTextHighlightColor - "Let the user choose the text-highlight color" - - ColorPickerMorph new - choseModalityFromPreference; - sourceHand: self currentHand; - target: self; - selector: #textHighlightColor:; - originalColor: self textHighlightColor; - putUpFor: self currentHand near: self currentHand cursorBounds \ No newline at end of file diff --git a/packages/SwaLint-Preferences.package/SLPreferences.class/class/chooseWindowTitleFont.st b/packages/SwaLint-Preferences.package/SLPreferences.class/class/chooseWindowTitleFont.st deleted file mode 100644 index dc0e3b31..00000000 --- a/packages/SwaLint-Preferences.package/SLPreferences.class/class/chooseWindowTitleFont.st +++ /dev/null @@ -1,3 +0,0 @@ -fonts -chooseWindowTitleFont - self chooseFontWithPrompt: 'Choose the window title font' translated andSendTo: self withSelector: #setWindowTitleFontTo: highlight: self windowTitleFont \ No newline at end of file diff --git a/packages/SwaLint-Preferences.package/SLPreferences.class/class/classicHaloSpecs.st b/packages/SwaLint-Preferences.package/SLPreferences.class/class/classicHaloSpecs.st deleted file mode 100644 index bcc1c178..00000000 --- a/packages/SwaLint-Preferences.package/SLPreferences.class/class/classicHaloSpecs.st +++ /dev/null @@ -1,31 +0,0 @@ -halos -classicHaloSpecs - "Non-iconic halos with traditional placements" - - "Preferences installClassicHaloSpecs" - "Preferences resetHaloSpecifications" " <- will result in the standard default halos being reinstalled" - "NB: listed below in clockwise order" - - ^ #( - " selector horiz vert color info icon key - --------- ------ ----------- ------------------------------- ---------------" - (addMenuHandle: left top (red) none) - (addDismissHandle: leftCenter top (red muchLighter) 'Halo-Dismiss') - (addGrabHandle: center top (black) none) - (addDragHandle: rightCenter top (brown) none) - (addDupHandle: right top (green) none) - (addMakeSiblingHandle: right top (green muchDarker) 'Halo-Dup') - (addDebugHandle: right topCenter (blue veryMuchLighter) none) - (addPoohHandle: right center (white) none) - (addPaintBgdHandle: right center (lightGray) none) - (addRepaintHandle: right center (lightGray) none) - (addGrowHandle: right bottom (yellow) none) - (addScaleHandle: right bottom (lightOrange) none) - (addFontEmphHandle: rightCenter bottom (lightBrown darker) none) - (addFontStyleHandle: center bottom (lightRed) none) - (addFontSizeHandle: leftCenter bottom (lightGreen) none) - - (addRecolorHandle: right bottomCenter (magenta darker) none) - - (addRotateHandle: left bottom (blue) none)) - diff --git a/packages/SwaLint-Preferences.package/SLPreferences.class/class/classicHalosInForce.st b/packages/SwaLint-Preferences.package/SLPreferences.class/class/classicHalosInForce.st deleted file mode 100644 index 92100d27..00000000 --- a/packages/SwaLint-Preferences.package/SLPreferences.class/class/classicHalosInForce.st +++ /dev/null @@ -1,3 +0,0 @@ -halos -classicHalosInForce - ^ (self preferenceAt: #haloTheme) preferenceValue == #classicHaloSpecs \ No newline at end of file diff --git a/packages/SwaLint-Preferences.package/SLPreferences.class/class/classicTilesSettingToggled.st b/packages/SwaLint-Preferences.package/SLPreferences.class/class/classicTilesSettingToggled.st deleted file mode 100644 index 14055307..00000000 --- a/packages/SwaLint-Preferences.package/SLPreferences.class/class/classicTilesSettingToggled.st +++ /dev/null @@ -1,13 +0,0 @@ -reacting to change -classicTilesSettingToggled - "The current value of the largeTiles flag has changed; now react" - - Smalltalk isMorphic ifTrue: - [Preferences universalTiles - ifFalse: - [self inform: -'note that this will only have a noticeable -effect if the universalTiles preference is -set to true, which it currently is not' translated] - ifTrue: - [World recreateScripts]] \ No newline at end of file diff --git a/packages/SwaLint-Preferences.package/SLPreferences.class/class/cleanUp..st b/packages/SwaLint-Preferences.package/SLPreferences.class/class/cleanUp..st new file mode 100644 index 00000000..0d12d940 --- /dev/null +++ b/packages/SwaLint-Preferences.package/SLPreferences.class/class/cleanUp..st @@ -0,0 +1,12 @@ +initialization +cleanUp: aggressive + + self cleanUpPragmaPreferences. + + "Remove obsolete (non-pragma) preferences." + self removeObsolete. + + aggressive ifTrue: [ + self class organization categories + select: [:ea | ea beginsWith: '*autogenerated'] + thenDo: [:ea | self class removeCategory: ea]]. \ No newline at end of file diff --git a/packages/SwaLint-Preferences.package/SLPreferences.class/class/cleanUpPragmaPreferences.st b/packages/SwaLint-Preferences.package/SLPreferences.class/class/cleanUpPragmaPreferences.st new file mode 100644 index 00000000..f8836842 --- /dev/null +++ b/packages/SwaLint-Preferences.package/SLPreferences.class/class/cleanUpPragmaPreferences.st @@ -0,0 +1,9 @@ +initialization +cleanUpPragmaPreferences + "Synchronize the cache for pragma preferences. Note that the actual preferences values are stored in class variables. So, no such value gets lost if we remove all such preferences from that cache." + + self removeAllPreferencesSuchThat: [:preference | + preference isPragmaPreference]. + SystemNavigation default allSelectorsAndMethodsDo: [:behavior :selector :method | + method pragmas do: [:pragma | + self addPragmaPreference: pragma]]. \ No newline at end of file diff --git a/packages/SwaLint-Preferences.package/SLPreferences.class/class/compileAccessMethodForPreference..st b/packages/SwaLint-Preferences.package/SLPreferences.class/class/compileAccessMethodForPreference..st deleted file mode 100644 index d96e6295..00000000 --- a/packages/SwaLint-Preferences.package/SLPreferences.class/class/compileAccessMethodForPreference..st +++ /dev/null @@ -1,6 +0,0 @@ -initialization -compileAccessMethodForPreference: aPreference - "Compile an accessor method for the given preference" - - self class compileSilently: (aPreference name, ' - ^ self valueOfFlag: #', aPreference name, ' ifAbsent: [', aPreference defaultValue storeString, ']') classified: '*autogenerated - standard queries' \ No newline at end of file diff --git a/packages/SwaLint-Preferences.package/SLPreferences.class/class/compileAccessorForPreference..st b/packages/SwaLint-Preferences.package/SLPreferences.class/class/compileAccessorForPreference..st new file mode 100644 index 00000000..bb624cc3 --- /dev/null +++ b/packages/SwaLint-Preferences.package/SLPreferences.class/class/compileAccessorForPreference..st @@ -0,0 +1,12 @@ +private +compileAccessorForPreference: aPreference + "Compile an accessor method for the given preference" + + self class + compileSilently: ( + '{1} ^self valueOfFlag: {2} ifAbsent: [ {3} ]' + format: { + aPreference name asString. + aPreference name asSymbol printString. + aPreference defaultValue storeString }) + classified: '*autogenerated - standard queries' \ No newline at end of file diff --git a/packages/SwaLint-Preferences.package/SLPreferences.class/class/compileAccessorForPreferenceNamed.value..st b/packages/SwaLint-Preferences.package/SLPreferences.class/class/compileAccessorForPreferenceNamed.value..st new file mode 100644 index 00000000..7204636d --- /dev/null +++ b/packages/SwaLint-Preferences.package/SLPreferences.class/class/compileAccessorForPreferenceNamed.value..st @@ -0,0 +1,13 @@ +private +compileAccessorForPreferenceNamed: name value: value + "Compile a method that returns a simple true or false (depending on the value of aBoolean) when Preferences is sent prefName as a message" + + self class + compileSilently: ( + '{1} ^{2}' + format: { + name asString. + value storeString }) + classified: 'prefs - misc'. + +"Preferences compileAccessorForPreferenceNamed: #testing value: false" \ No newline at end of file diff --git a/packages/SwaLint-Preferences.package/SLPreferences.class/class/compileHardCodedPref.enable..st b/packages/SwaLint-Preferences.package/SLPreferences.class/class/compileHardCodedPref.enable..st deleted file mode 100644 index 8470ca3d..00000000 --- a/packages/SwaLint-Preferences.package/SLPreferences.class/class/compileHardCodedPref.enable..st +++ /dev/null @@ -1,9 +0,0 @@ -personalization -compileHardCodedPref: prefName enable: aBoolean - "Compile a method that returns a simple true or false (depending on the value of aBoolean) when Preferences is sent prefName as a message" - - self class compileSilently: (prefName asString, ' - "compiled programatically -- return hard-coded preference value" - ^ ', aBoolean storeString) classified: 'hard-coded prefs'. - -"Preferences compileHardCodedPref: #testing enable: false" \ No newline at end of file diff --git a/packages/SwaLint-Preferences.package/SLPreferences.class/class/convertPragmaToPreference..st b/packages/SwaLint-Preferences.package/SLPreferences.class/class/convertPragmaToPreference..st deleted file mode 100644 index f7c3b3a3..00000000 --- a/packages/SwaLint-Preferences.package/SLPreferences.class/class/convertPragmaToPreference..st +++ /dev/null @@ -1,28 +0,0 @@ -pragma-preferences -convertPragmaToPreference: aPragma - - | aPreference | - - aPragma keyword == #slpreference:type:categories:defaultValue:helpText: - ifTrue: [ aPreference := self - preference: aPragma arguments first - type: aPragma arguments second - categories: aPragma arguments third - defaultValue: aPragma arguments fourth - helpText: aPragma arguments fifth ]. - aPragma keyword == #slpreference:type:categories:defaultValue:helpText:projectLocal:changeInformee:changeSelector: - ifTrue: [ aPreference := self - preference: aPragma arguments first - type: aPragma arguments second - categories: aPragma arguments third - defaultValue: aPragma arguments fourth - helpText: aPragma arguments fifth - projectLocal: aPragma arguments sixth - changeInformee: aPragma arguments seventh - changeSelector: aPragma arguments eighth ]. - aPreference - provider: aPragma method methodClass theNonMetaClass - getter: aPragma method selector - setter: aPragma method selector asMutator. - - ^ aPreference \ No newline at end of file diff --git a/packages/SwaLint-Preferences.package/SLPreferences.class/class/customHaloSpecs.st b/packages/SwaLint-Preferences.package/SLPreferences.class/class/customHaloSpecs.st deleted file mode 100644 index 0d727764..00000000 --- a/packages/SwaLint-Preferences.package/SLPreferences.class/class/customHaloSpecs.st +++ /dev/null @@ -1,51 +0,0 @@ -halos -customHaloSpecs - "Intended for you to modify to suit your personal preference. What is implemented in the default here is just a skeleton; in comment at the bottom of this method are some useful lines you may wish to paste in to the main body here, possibly modifying positions, colors, etc.. - Note that in this example, we include: - Dismiss handle, at top-left - Menu handle, at top-right - Resize handle, at bottom-right - Rotate handle, at bottom-left - Drag handle, at top-center - Recolor handle, at left-center. (this one is NOT part of the standard formulary -- - it is included here to illustrate how to - add non-standard halos) - Note that the optional handles for specialized morphs, such as Sketch, Text, PasteUp, are also included" - - ^ #( - (addDismissHandle: left top (red muchLighter) 'Halo-Dismiss') - (addMenuHandle: right top (red) 'Halo-Menu') - (addDragHandle: center top (brown) 'Halo-Drag') - (addGrowHandle: right bottom (yellow) 'Halo-Scale') - (addScaleHandle: right bottom (lightOrange) 'Halo-Scale') - - (addRecolorHandle: left center (green muchLighter lighter) 'Halo-Recolor') - - (addPaintBgdHandle: right center (lightGray) 'Halo-Paint') - (addRepaintHandle: right center (lightGray) 'Halo-Paint') - (addFontSizeHandle: leftCenter bottom (lightGreen) 'Halo-FontSize') - (addFontStyleHandle: center bottom (lightRed) 'Halo-FontStyle') - (addFontEmphHandle: rightCenter bottom (lightBrown darker) 'Halo-FontEmph') - (addRotateHandle: left bottom (blue) 'Halo-Rot') - - (addDebugHandle: right topCenter (blue veryMuchLighter) 'Halo-Debug') - (addPoohHandle: right center (white) 'Halo-Pooh') - - - ) - - " Other useful handles... - - selector horiz vert color info icon key - --------- ------ ----------- ------------------------------- --------------- - - (addTileHandle: left bottomCenter (lightBrown) 'Halo-Tile') - (addViewHandle: left center (cyan) 'Halo-View') - (addGrabHandle: center top (black) 'Halo-Grab') - (addDragHandle: rightCenter top (brown) 'Halo-Drag') - (addDupHandle: right top (green) 'Halo-Dup') - (addHelpHandle: center bottom (lightBlue) 'Halo-Help') - (addFewerHandlesHandle: left topCenter (paleBuff) 'Halo-FewerHandles') - (addPaintBgdHandle: right center (lightGray) 'Halo-Paint') - (addRepaintHandle: right center (lightGray) 'Halo-Paint') - " diff --git a/packages/SwaLint-Preferences.package/SLPreferences.class/class/customHalosInForce.st b/packages/SwaLint-Preferences.package/SLPreferences.class/class/customHalosInForce.st deleted file mode 100644 index c15f2e7b..00000000 --- a/packages/SwaLint-Preferences.package/SLPreferences.class/class/customHalosInForce.st +++ /dev/null @@ -1,3 +0,0 @@ -halos -customHalosInForce - ^ (self preferenceAt: #haloTheme) preferenceValue == #customHaloSpecs \ No newline at end of file diff --git a/packages/SwaLint-Preferences.package/SLPreferences.class/class/darkenStandardWindowPreferences.st b/packages/SwaLint-Preferences.package/SLPreferences.class/class/darkenStandardWindowPreferences.st deleted file mode 100644 index 3e42ef43..00000000 --- a/packages/SwaLint-Preferences.package/SLPreferences.class/class/darkenStandardWindowPreferences.st +++ /dev/null @@ -1,10 +0,0 @@ -window colors -darkenStandardWindowPreferences - "Make all window-color preferences one shade darker" - - (self allPreferences - select: [:aPref | (aPref name endsWith: 'WindowColor') - and: [aPref preferenceValue isColor]]) - do: [:aPref | aPref preferenceValue: aPref preferenceValue darker]. - -"Preferences darkenStandardWindowPreferences" diff --git a/packages/SwaLint-Preferences.package/SLPreferences.class/class/defaultAnnotationRequests..st b/packages/SwaLint-Preferences.package/SLPreferences.class/class/defaultAnnotationRequests..st deleted file mode 100644 index 8a59d4b0..00000000 --- a/packages/SwaLint-Preferences.package/SLPreferences.class/class/defaultAnnotationRequests..st +++ /dev/null @@ -1,3 +0,0 @@ -parameters -defaultAnnotationRequests: newList - ^ Parameters at: #MethodAnnotations put: newList \ No newline at end of file diff --git a/packages/SwaLint-Preferences.package/SLPreferences.class/class/defaultAnnotationRequests.st b/packages/SwaLint-Preferences.package/SLPreferences.class/class/defaultAnnotationRequests.st deleted file mode 100644 index a6ff588f..00000000 --- a/packages/SwaLint-Preferences.package/SLPreferences.class/class/defaultAnnotationRequests.st +++ /dev/null @@ -1,5 +0,0 @@ -parameters -defaultAnnotationRequests - ^ Parameters at: #MethodAnnotations ifAbsent: - [self setDefaultAnnotationInfo] - "Preferences annotationInfo" \ No newline at end of file diff --git a/packages/SwaLint-Preferences.package/SLPreferences.class/class/defaultAuthorName.st b/packages/SwaLint-Preferences.package/SLPreferences.class/class/defaultAuthorName.st deleted file mode 100644 index da8fd247..00000000 --- a/packages/SwaLint-Preferences.package/SLPreferences.class/class/defaultAuthorName.st +++ /dev/null @@ -1,5 +0,0 @@ -parameters -defaultAuthorName - "Answer the author name to be planted, by default, in a changeset-preamble template. You can hard-code this to hold your name, thus saving you time when writing the preambles of subsequent changesets" - - ^ Utilities authorName \ No newline at end of file diff --git a/packages/SwaLint-Preferences.package/SLPreferences.class/class/defaultPaintingExtent.st b/packages/SwaLint-Preferences.package/SLPreferences.class/class/defaultPaintingExtent.st deleted file mode 100644 index 6925a057..00000000 --- a/packages/SwaLint-Preferences.package/SLPreferences.class/class/defaultPaintingExtent.st +++ /dev/null @@ -1,5 +0,0 @@ -parameters -defaultPaintingExtent - "Answer the preferred size for the onion-skin paint area when launching a new painting within a paste-up morph. Feel free to change the parameters to suit your configuration." - - ^ 800 @ 600 \ No newline at end of file diff --git a/packages/SwaLint-Preferences.package/SLPreferences.class/class/defaultValueTableForCurrentRelease.st b/packages/SwaLint-Preferences.package/SLPreferences.class/class/defaultValueTableForCurrentRelease.st deleted file mode 100644 index e466750c..00000000 --- a/packages/SwaLint-Preferences.package/SLPreferences.class/class/defaultValueTableForCurrentRelease.st +++ /dev/null @@ -1,133 +0,0 @@ -misc -defaultValueTableForCurrentRelease - "Answer a table defining default values for all the preferences in the release. Returns a list of (pref-symbol, boolean-symbol) pairs" - - ^ #( - (abbreviatedBrowserButtons false) - (alternativeBrowseIt false) - (annotationPanes false) - (areaFillsAreTolerant false) - (areaFillsAreVeryTolerant false) - (automaticFlapLayout true) - (automaticKeyGeneration false) - (automaticPlatformSettings true) - (automaticViewerPlacement true) - (balloonHelpEnabled true) - (balloonHelpInMessageLists false) - (batchPenTrails false) - (browseWithDragNDrop false) - (browseWithPrettyPrint false) - (browserShowsPackagePane false) - (canRecordWhilePlaying false) - (capitalizedReferences true) - (caseSensitiveFinds false) - (cautionBeforeClosing false) - (changeSetVersionNumbers true) - (checkForSlips true) - (checkForUnsavedProjects true) - (classicNavigatorEnabled false) - (clickOnLabelToEdit false) - (cmdDotEnabled true) - (collapseWindowsInPlace false) - (colorWhenPrettyPrinting false) - (compactViewerFlaps false) - (compressFlashImages false) - (confirmFirstUseOfStyle true) - (conversionMethodsAtFileOut false) - (cpuWatcherEnabled false) - (debugHaloHandle true) - (debugPrintSpaceLog false) - (debugShowDamage false) - (decorateBrowserButtons true) - (diffsInChangeList true) - (diffsWithPrettyPrint false) - (dismissAllOnOptionClose false) - (dragNDropWithAnimation false) - (eToyFriendly false) - (eToyLoginEnabled false) - (enableLocalSave true) - (extractFlashInHighQuality true) - (extractFlashInHighestQuality false) - (fastDragWindowForMorphic true) - (fenceEnabled true) - (fullScreenLeavesDeskMargins true) - (haloTransitions false) - (hiddenScrollBars false) - (higherPerformance false) - (honorDesktopCmdKeys true) - (ignoreStyleIfOnlyBold true) - (includeSoundControlInNavigator false) - (infiniteUndo false) - (logDebuggerStackToFile true) - (magicHalos false) - (menuButtonInToolPane false) - (menuColorFromWorld false) - (menuKeyboardControl false) - (modalColorPickers true) - (mouseOverForKeyboardFocus false) - (mouseOverHalos false) - (mvcProjectsAllowed true) - (navigatorOnLeftEdge true) - (noviceMode false) - (okToReinitializeFlaps true) - (optionalButtons true) - (passwordsOnPublish false) - (personalizedWorldMenu true) - (postscriptStoredAsEPS false) - (preserveTrash true) - (projectViewsInWindows true) - (projectZoom true) - (projectsSentToDisk false) - (promptForUpdateServer true) - (propertySheetFromHalo false) - (readDocumentAtStartup true) - (restartAlsoProceeds false) - (reverseWindowStagger true) - (roundedMenuCorners true) - (roundedWindowCorners true) - (scrollBarsNarrow false) - (scrollBarsOnRight true) - (scrollBarsWithoutMenuButton false) - (securityChecksEnabled false) - (selectiveHalos false) - (showBoundsInHalo false) - (showDirectionForSketches false) - (showDirectionHandles false) - (showFlapsWhenPublishing false) - (showProjectNavigator false) - (showSecurityStatus true) - (showSharedFlaps true) - (signProjectFiles true) - (simpleMenus false) - (slideDismissalsToTrash true) - (smartUpdating true) - (soundQuickStart false) - (soundStopWhenDone false) - (soundsEnabled true) - (startInUntrustedDirectory false) - (systemWindowEmbedOK false) - (thoroughSenders true) - (tileTranslucentDrag true) - (timeStampsInMenuTitles true) - (turnOffPowerManager false) - (twentyFourHourFileStamps true) - (typeCheckingInTileScripting true) - (uniTilesClassic true) - (uniqueNamesInHalos false) - (universalTiles false) - (unlimitedPaintArea false) - (updateSavesFile false) - (useButtonProprtiesToFire false) - (useUndo true) - (viewersInFlaps true) - (warnAboutInsecureContent true) - (warnIfNoChangesFile true) - (warnIfNoSourcesFile true)) - - -" -Preferences defaultValueTableForCurrentRelease do: - [:pair | (Preferences preferenceAt: pair first ifAbsent: [nil]) ifNotNilDo: - [:pref | pref defaultValue: (pair last == true)]]. -Preferences chooseInitialSettings. -" \ No newline at end of file diff --git a/packages/SwaLint-Preferences.package/SLPreferences.class/class/defaultWorldColor.st b/packages/SwaLint-Preferences.package/SLPreferences.class/class/defaultWorldColor.st deleted file mode 100644 index d0b94616..00000000 --- a/packages/SwaLint-Preferences.package/SLPreferences.class/class/defaultWorldColor.st +++ /dev/null @@ -1,5 +0,0 @@ -menu parameters -defaultWorldColor - ^ Parameters - at: #defaultWorldColor - ifAbsent: [ Color r: 0.937 g: 0.937 b: 0.937 ] \ No newline at end of file diff --git a/packages/SwaLint-Preferences.package/SLPreferences.class/class/desktopColor..st b/packages/SwaLint-Preferences.package/SLPreferences.class/class/desktopColor..st deleted file mode 100644 index 7c1e8d05..00000000 --- a/packages/SwaLint-Preferences.package/SLPreferences.class/class/desktopColor..st +++ /dev/null @@ -1,5 +0,0 @@ -parameters -desktopColor: aColor - "Record a new desktop color preference." - - DesktopColor := aColor. diff --git a/packages/SwaLint-Preferences.package/SLPreferences.class/class/desktopColor.st b/packages/SwaLint-Preferences.package/SLPreferences.class/class/desktopColor.st deleted file mode 100644 index 92ed610a..00000000 --- a/packages/SwaLint-Preferences.package/SLPreferences.class/class/desktopColor.st +++ /dev/null @@ -1,6 +0,0 @@ -parameters -desktopColor - "Answer the desktop color. Initialize it if necessary." - - DesktopColor == nil ifTrue: [DesktopColor := Color gray]. - ^ DesktopColor diff --git a/packages/SwaLint-Preferences.package/SLPreferences.class/class/dictionaryOfPreferences..st b/packages/SwaLint-Preferences.package/SLPreferences.class/class/dictionaryOfPreferences..st deleted file mode 100644 index 78bfe505..00000000 --- a/packages/SwaLint-Preferences.package/SLPreferences.class/class/dictionaryOfPreferences..st +++ /dev/null @@ -1,3 +0,0 @@ -accessing -dictionaryOfPreferences: anObject - DictionaryOfPreferences := anObject \ No newline at end of file diff --git a/packages/SwaLint-Preferences.package/SLPreferences.class/class/dictionaryOfPreferences.st b/packages/SwaLint-Preferences.package/SLPreferences.class/class/dictionaryOfPreferences.st index 51f0d10e..37d74cc3 100644 --- a/packages/SwaLint-Preferences.package/SLPreferences.class/class/dictionaryOfPreferences.st +++ b/packages/SwaLint-Preferences.package/SLPreferences.class/class/dictionaryOfPreferences.st @@ -1,3 +1,4 @@ accessing dictionaryOfPreferences - ^DictionaryOfPreferences \ No newline at end of file + "N.B. Does /not/ answer the dictionary itself. To burrow that deep use e.g. instVarNamed:" + ^preferencesDictionary copy \ No newline at end of file diff --git a/packages/SwaLint-Preferences.package/SLPreferences.class/class/disable..st b/packages/SwaLint-Preferences.package/SLPreferences.class/class/disable..st index 592a778a..2d0cb893 100644 --- a/packages/SwaLint-Preferences.package/SLPreferences.class/class/disable..st +++ b/packages/SwaLint-Preferences.package/SLPreferences.class/class/disable..st @@ -1,9 +1,5 @@ -get/set +get/set - flags disable: aSymbol "Shorthand access to enabling a preference of the given name. If there is none in the image, conjure one up" - | aPreference | - aPreference := self preferenceAt: aSymbol ifAbsent: - [self addPreference: aSymbol category: 'unclassified' default: false balloonHelp: 'this preference was added idiosyncratically and has no help message.'. - self preferenceAt: aSymbol]. - aPreference preferenceValue: false \ No newline at end of file + ^ self setFlag: aSymbol toValue: false \ No newline at end of file diff --git a/packages/SwaLint-Preferences.package/SLPreferences.class/class/disableGently..st b/packages/SwaLint-Preferences.package/SLPreferences.class/class/disableGently..st deleted file mode 100644 index c973849a..00000000 --- a/packages/SwaLint-Preferences.package/SLPreferences.class/class/disableGently..st +++ /dev/null @@ -1,4 +0,0 @@ -get/set -disableGently: preferenceNameSymbol - "Unlike #disable:, this on does not reset the CategoryInfo cache" - self setPreference: preferenceNameSymbol toValue: false \ No newline at end of file diff --git a/packages/SwaLint-Preferences.package/SLPreferences.class/class/displaySizeChanged.st b/packages/SwaLint-Preferences.package/SLPreferences.class/class/displaySizeChanged.st deleted file mode 100644 index eec605d8..00000000 --- a/packages/SwaLint-Preferences.package/SLPreferences.class/class/displaySizeChanged.st +++ /dev/null @@ -1,9 +0,0 @@ -reacting to change -displaySizeChanged - self flag: #todo. - "only change font on small-land image" - self smallLandFonts. - self bigDisplay - ifTrue: [self disable: #scrollBarsNarrow] - ifFalse: [self enable: #scrollBarsNarrow]. -self tinyDisplay ifTrue:[self disable: #biggerHandles] ifFalse:[self enable: #biggerHandles] \ No newline at end of file diff --git a/packages/SwaLint-Preferences.package/SLPreferences.class/class/doesNotUnderstand..st b/packages/SwaLint-Preferences.package/SLPreferences.class/class/doesNotUnderstand..st index ed9a6b5b..3e13d6e7 100644 --- a/packages/SwaLint-Preferences.package/SLPreferences.class/class/doesNotUnderstand..st +++ b/packages/SwaLint-Preferences.package/SLPreferences.class/class/doesNotUnderstand..st @@ -1,5 +1,10 @@ get/set doesNotUnderstand: aMessage - "Look up the message selector as a flag." - aMessage arguments size > 0 ifTrue: [^ super doesNotUnderstand: aMessage]. - ^ self valueOfFlag: aMessage selector + "Interpret unary message selectors as preference id." + + ^ aMessage arguments size > 0 + ifTrue: [super doesNotUnderstand: aMessage] + ifFalse: [ + self + valueOfPreference: aMessage selector + ifAbsent: [super doesNotUnderstand: aMessage]] \ No newline at end of file diff --git a/packages/SwaLint-Preferences.package/SLPreferences.class/class/eToyFriendlyChanged.st b/packages/SwaLint-Preferences.package/SLPreferences.class/class/eToyFriendlyChanged.st deleted file mode 100644 index 56c92da1..00000000 --- a/packages/SwaLint-Preferences.package/SLPreferences.class/class/eToyFriendlyChanged.st +++ /dev/null @@ -1,5 +0,0 @@ -reacting to change -eToyFriendlyChanged - "The eToyFriendly preference changed; React" - - ScriptingSystem customizeForEToyUsers: Preferences eToyFriendly \ No newline at end of file diff --git a/packages/SwaLint-Preferences.package/SLPreferences.class/class/editAnnotations.st b/packages/SwaLint-Preferences.package/SLPreferences.class/class/editAnnotations.st deleted file mode 100644 index 18ebb95a..00000000 --- a/packages/SwaLint-Preferences.package/SLPreferences.class/class/editAnnotations.st +++ /dev/null @@ -1,10 +0,0 @@ -parameters -editAnnotations - "Put up a window that allows the user to edit annotation specifications" - - | aWindow | - self currentWorld addMorphCentered: (aWindow := self annotationEditingWindow). - aWindow activateAndForceLabelToShow - - "Preferences editAnnotations" - diff --git a/packages/SwaLint-Preferences.package/SLPreferences.class/class/editCustomHalos.st b/packages/SwaLint-Preferences.package/SLPreferences.class/class/editCustomHalos.st deleted file mode 100644 index 653978bd..00000000 --- a/packages/SwaLint-Preferences.package/SLPreferences.class/class/editCustomHalos.st +++ /dev/null @@ -1,5 +0,0 @@ -halos -editCustomHalos - - ToolSet browse: Preferences class - selector: #customHaloSpecs \ No newline at end of file diff --git a/packages/SwaLint-Preferences.package/SLPreferences.class/class/enable..st b/packages/SwaLint-Preferences.package/SLPreferences.class/class/enable..st index d736ca6d..076cb121 100644 --- a/packages/SwaLint-Preferences.package/SLPreferences.class/class/enable..st +++ b/packages/SwaLint-Preferences.package/SLPreferences.class/class/enable..st @@ -1,9 +1,5 @@ -get/set +get/set - flags enable: aSymbol "Shorthand access to enabling a preference of the given name. If there is none in the image, conjure one up" - | aPreference | - aPreference := self preferenceAt: aSymbol ifAbsent: - [self addPreference: aSymbol category: 'unclassified' default: true balloonHelp: 'this preference was added idiosyncratically and has no help message.'. - self preferenceAt: aSymbol]. - aPreference preferenceValue: true \ No newline at end of file + ^ self setFlag: aSymbol toValue: true \ No newline at end of file diff --git a/packages/SwaLint-Preferences.package/SLPreferences.class/class/enableGently..st b/packages/SwaLint-Preferences.package/SLPreferences.class/class/enableGently..st deleted file mode 100644 index a8fc2784..00000000 --- a/packages/SwaLint-Preferences.package/SLPreferences.class/class/enableGently..st +++ /dev/null @@ -1,4 +0,0 @@ -get/set -enableGently: preferenceNameSymbol - "Unlike #enable:, this one does not reset the CategoryInfo cache" - self setPreference: preferenceNameSymbol toValue: true \ No newline at end of file diff --git a/packages/SwaLint-Preferences.package/SLPreferences.class/class/enableOrDisable.asPer..st b/packages/SwaLint-Preferences.package/SLPreferences.class/class/enableOrDisable.asPer..st deleted file mode 100644 index b9d97d40..00000000 --- a/packages/SwaLint-Preferences.package/SLPreferences.class/class/enableOrDisable.asPer..st +++ /dev/null @@ -1,5 +0,0 @@ -get/set -enableOrDisable: preferenceNameSymbol asPer: aBoolean - "either enable or disable the given Preference, depending on the value of aBoolean" - - aBoolean ifTrue: [self enable: preferenceNameSymbol] ifFalse: [self disable: preferenceNameSymbol] \ No newline at end of file diff --git a/packages/SwaLint-Preferences.package/SLPreferences.class/class/enableProjectNavigator.st b/packages/SwaLint-Preferences.package/SLPreferences.class/class/enableProjectNavigator.st deleted file mode 100644 index bd10f7c3..00000000 --- a/packages/SwaLint-Preferences.package/SLPreferences.class/class/enableProjectNavigator.st +++ /dev/null @@ -1,5 +0,0 @@ -get/set -enableProjectNavigator - "Answer whether the project-navigator menu item should be enabled" - - ^ true \ No newline at end of file diff --git a/packages/SwaLint-Preferences.package/SLPreferences.class/class/fileReaderServicesForFile.suffix..st b/packages/SwaLint-Preferences.package/SLPreferences.class/class/fileReaderServicesForFile.suffix..st new file mode 100644 index 00000000..12e80fe3 --- /dev/null +++ b/packages/SwaLint-Preferences.package/SLPreferences.class/class/fileReaderServicesForFile.suffix..st @@ -0,0 +1,5 @@ +support - file list services +fileReaderServicesForFile: fullName suffix: suffix + ^(suffix = 'prefs') | (suffix = '*') + ifTrue: [ self services ] + ifFalse: [ #() ] \ No newline at end of file diff --git a/packages/SwaLint-Preferences.package/SLPreferences.class/class/fontConfigurationMenu.st b/packages/SwaLint-Preferences.package/SLPreferences.class/class/fontConfigurationMenu.st deleted file mode 100644 index bd9a0644..00000000 --- a/packages/SwaLint-Preferences.package/SLPreferences.class/class/fontConfigurationMenu.st +++ /dev/null @@ -1,64 +0,0 @@ -fonts -fontConfigurationMenu - | aMenu | - aMenu := MenuMorph new defaultTarget: Preferences. - aMenu addTitle: 'Standard System Fonts' translated. - - aMenu addStayUpIcons. - - aMenu add: 'default text font...' translated action: #chooseSystemFont. - aMenu balloonTextForLastItem: 'Choose the default font to be used for code and in workspaces, transcripts, etc.' translated. - aMenu lastItem font: Preferences standardDefaultTextFont. - - aMenu add: 'list font...' translated action: #chooseListFont. - aMenu lastItem font: Preferences standardListFont. - aMenu balloonTextForLastItem: 'Choose the font to be used in list panes' translated. - - aMenu add: 'flaps font...' translated action: #chooseFlapsFont. - aMenu lastItem font: Preferences standardFlapFont. - aMenu balloonTextForLastItem: 'Choose the font to be used on textual flap tabs' translated. - - aMenu add: 'eToys font...' translated action: #chooseEToysFont. - aMenu lastItem font: Preferences standardEToysFont. - aMenu balloonTextForLastItem: 'Choose the font to be used on eToys environment' translated. - - aMenu add: 'eToys title font...' translated action: #chooseEToysTitleFont. - aMenu lastItem font: Preferences standardEToysTitleFont. - aMenu balloonTextForLastItem: 'Choose the font to be used in titles on eToys environment' translated. - - aMenu add: 'halo label font...' translated action: #chooseHaloLabelFont. - aMenu lastItem font: Preferences standardHaloLabelFont. - aMenu balloonTextForLastItem: 'Choose the font to be used on labels ih halo' translated. - - aMenu add: 'menu font...' translated action: #chooseMenuFont. - aMenu lastItem font: Preferences standardMenuFont. - aMenu balloonTextForLastItem: 'Choose the font to be used in menus' translated. - - aMenu add: 'window-title font...' translated action: #chooseWindowTitleFont. - aMenu lastItem font: Preferences windowTitleFont emphasis: 1. - aMenu balloonTextForLastItem: 'Choose the font to be used in window titles.' translated. - - aMenu add: 'balloon-help font...' translated action: #chooseBalloonHelpFont. - aMenu lastItem font: Preferences standardBalloonHelpFont. - aMenu balloonTextForLastItem: 'choose the font to be used when presenting balloon help.' translated. - - aMenu add: 'code font...' translated action: #chooseCodeFont. - aMenu lastItem font: Preferences standardCodeFont. - aMenu balloonTextForLastItem: 'Choose the font to be used in code panes.' translated. - - aMenu add: 'button font...' translated action: #chooseStandardButtonFont. - aMenu lastItem font: Preferences standardButtonFont. - aMenu balloonTextForLastItem: 'Choose the font to be used in buttons.' translated. - - aMenu addLine. - aMenu add: 'demo mode' translated action: #setDemoFonts. - aMenu balloonTextForLastItem: 'Set Fonts usable for giving a presentation' translated. - - aMenu addLine. - aMenu add: 'restore default font choices' translated action: #restoreDefaultFonts. - aMenu balloonTextForLastItem: 'Use the standard system font defaults' translated. - - aMenu add: 'print default font choices' translated action: #printStandardSystemFonts. - aMenu balloonTextForLastItem: 'Print the standard system font defaults to the Transcript' translated. - - ^ aMenu \ No newline at end of file diff --git a/packages/SwaLint-Preferences.package/SLPreferences.class/class/fontFactor.st b/packages/SwaLint-Preferences.package/SLPreferences.class/class/fontFactor.st deleted file mode 100644 index 5c73e318..00000000 --- a/packages/SwaLint-Preferences.package/SLPreferences.class/class/fontFactor.st +++ /dev/null @@ -1,9 +0,0 @@ -scrollbar parameters -fontFactor - "answer the convertion factor for resizing element based on font - size" - | factor | - factor := TextStyle defaultFont height / 12.0. - ^ factor > 1.0 - ifTrue: [1 + (factor - 1.0 * 0.5)] - ifFalse: [factor] \ No newline at end of file diff --git a/packages/SwaLint-Preferences.package/SLPreferences.class/class/giveHelpWithPreferences.st b/packages/SwaLint-Preferences.package/SLPreferences.class/class/giveHelpWithPreferences.st deleted file mode 100644 index 0b552b76..00000000 --- a/packages/SwaLint-Preferences.package/SLPreferences.class/class/giveHelpWithPreferences.st +++ /dev/null @@ -1,39 +0,0 @@ -misc -giveHelpWithPreferences - "Open up a workspace with explanatory info in it about Preferences" - - | aString aHelpString | - aString := String streamContents: [:aStream | - aStream nextPutAll: - -'Many aspects of the system are governed by the settings of various "Preferences". - -Click on any of brown tabs at the top of the panel to see all the preferences in that category. -Or type in to the box above the Search button, then hit Search, and all Preferences matching whatever you typed in will appear in the "search results" category. A preference is considered to match your search if either its name matches the characters *or* if anything in the balloon help provided for the preferences matches the search text. - -To find out more about any particular Preference, hold the mouse over it for a moment and balloon help will appear. Also, a complete list of all the Preferences, with documentation for each, is included below. - -Preferences whose names are in shown in bold in the Preferences Panel are designated as being allowed to vary from project to project; those whose name are not in bold are "global", which is to say, they apply equally whatever project you are in. - -Click on the name of any preference to get a menu which allows you to *change* whether the preference should vary from project to project or should be global, and also allows you to browse all the senders of the preference, and to discover all the categories under which the preference has been classified, and to be handed a button that you can drop wherever you please that will control the preference. - -If you like all your current Preferences settings, you may wish to hit the "Save Current Settings as my Personal Preferences" button. Once you have done that, you can at any point in the future hit "Restore my Personal Preferences" and all your saved settings will get restored immediately. - -Also, you can use "themes" to set multiple preferences all at once; click on the "change theme..." button in the Squeak flap or in the Preferences panel, or seek out the themes item in the Appearance menu.' translated. - - aStream cr; cr; nextPutAll: '-----------------------------------------------------------------'; - cr; cr; nextPutAll: 'Alphabetical listing of all Preferences' translated; cr; cr. - (Preferences allPreferences asSortedCollection: [:a :b | a name < b name]) do: - [:pref | - aStream nextPutAll: pref name; cr. - aHelpString := pref helpString translated. - (aHelpString beginsWith: pref name) ifTrue: - [aHelpString := aHelpString copyFrom: (pref name size + 3) to: aHelpString size]. - aHelpString := (aHelpString copyReplaceAll: String cr with: ' ') copyWithout: Character tab. - aStream nextPutAll: aHelpString capitalized. - (aHelpString last == $.) ifFalse: [aStream nextPut: $.]. - aStream cr; cr]]. - - UIManager default edit: aString label: 'About Preferences' translated - -"Preferences giveHelpWithPreferences" \ No newline at end of file diff --git a/packages/SwaLint-Preferences.package/SLPreferences.class/class/haloSpecifications.st b/packages/SwaLint-Preferences.package/SLPreferences.class/class/haloSpecifications.st deleted file mode 100644 index 8f50be71..00000000 --- a/packages/SwaLint-Preferences.package/SLPreferences.class/class/haloSpecifications.st +++ /dev/null @@ -1,10 +0,0 @@ -halos -haloSpecifications - "Answer a list of HaloSpecs that describe which halos are to be used, what they should look like, and where they should be situated" - - ^ Parameters at: #HaloSpecs ifAbsent: - [self installHaloTheme: #iconicHaloSpecifications. - ^ Parameters at: #HaloSpecs] - - "Preferences haloSpecifications" - "Preferences resetHaloSpecifications" diff --git a/packages/SwaLint-Preferences.package/SLPreferences.class/class/haloSpecificationsForWorld.st b/packages/SwaLint-Preferences.package/SLPreferences.class/class/haloSpecificationsForWorld.st deleted file mode 100644 index ee5003d2..00000000 --- a/packages/SwaLint-Preferences.package/SLPreferences.class/class/haloSpecificationsForWorld.st +++ /dev/null @@ -1,9 +0,0 @@ -halos -haloSpecificationsForWorld - | desired | - "Answer a list of HaloSpecs that describe which halos are to be used on a world halo, what they should look like, and where they should be situated" - "Preferences resetHaloSpecifications" - - desired := #(addDebugHandle: addMenuHandle: addTileHandle: addViewHandle: addHelpHandle: addScriptHandle: addPaintBgdHandle: addRecolorHandle:). - ^ self haloSpecifications select: - [:spec | desired includes: spec addHandleSelector] \ No newline at end of file diff --git a/packages/SwaLint-Preferences.package/SLPreferences.class/class/iconicHaloSpecifications.st b/packages/SwaLint-Preferences.package/SLPreferences.class/class/iconicHaloSpecifications.st deleted file mode 100644 index 3b4ade1e..00000000 --- a/packages/SwaLint-Preferences.package/SLPreferences.class/class/iconicHaloSpecifications.st +++ /dev/null @@ -1,34 +0,0 @@ -halos -iconicHaloSpecifications - "Answer an array that characterizes the locations, colors, icons, and selectors of the halo handles that may be used in the iconic halo scheme" - - "Preferences resetHaloSpecifications" - - ^ #( - " selector horiz vert color info icon key - --------- ------ ----------- ------------------------------- ---------------" - (addCollapseHandle: left topCenter (tan) 'Halo-Collapse') - (addPoohHandle: right center (white) 'Halo-Pooh') - (addDebugHandle: right topCenter (blue veryMuchLighter) 'Halo-Debug') - (addDismissHandle: left top (red muchLighter) 'Halo-Dismiss') - (addRotateHandle: left bottom (blue) 'Halo-Rot') - (addMenuHandle: leftCenter top (red) 'Halo-Menu') - (addTileHandle: left bottomCenter (lightBrown) 'Halo-Tile') - (addViewHandle: left center (cyan) 'Halo-View') - (addGrabHandle: center top (black) 'Halo-Grab') - (addDragHandle: rightCenter top (brown) 'Halo-Drag') - (addDupHandle: right top (green) 'Halo-Dup') - (addMakeSiblingHandle: right top (green muchDarker) 'Halo-Dup') - (addHelpHandle: center bottom (lightBlue) 'Halo-Help') - (addGrowHandle: right bottom (yellow) 'Halo-Scale') - (addScaleHandle: right bottom (lightOrange) 'Halo-Scale') - (addScriptHandle: rightCenter bottom (green muchLighter) 'Halo-Script') - (addPaintBgdHandle: right center (lightGray) 'Halo-Paint') - (addViewingHandle: leftCenter bottom (lightGreen lighter) 'Halo-View') - (addRepaintHandle: right center (lightGray) 'Halo-Paint') - (addFontSizeHandle: leftCenter bottom (lightGreen) 'Halo-FontSize') - (addFontStyleHandle: center bottom (lightRed) 'Halo-FontStyle') - (addFontEmphHandle: rightCenter bottom (lightBrown darker) 'Halo-FontEmph') - (addRecolorHandle: right bottomCenter (magenta darker) 'Halo-Recolor') - (addChooseGraphicHandle: right bottomCenter (green muchLighter) 'Halo-ChooseGraphic') - ) \ No newline at end of file diff --git a/packages/SwaLint-Preferences.package/SLPreferences.class/class/iconicHalosInForce.st b/packages/SwaLint-Preferences.package/SLPreferences.class/class/iconicHalosInForce.st deleted file mode 100644 index dda8f15c..00000000 --- a/packages/SwaLint-Preferences.package/SLPreferences.class/class/iconicHalosInForce.st +++ /dev/null @@ -1,3 +0,0 @@ -halos -iconicHalosInForce - ^ (self preferenceAt: #haloTheme) preferenceValue == #iconicHaloSpecifications \ No newline at end of file diff --git a/packages/SwaLint-Preferences.package/SLPreferences.class/class/infiniteUndoChanged.st b/packages/SwaLint-Preferences.package/SLPreferences.class/class/infiniteUndoChanged.st deleted file mode 100644 index a9ac6a17..00000000 --- a/packages/SwaLint-Preferences.package/SLPreferences.class/class/infiniteUndoChanged.st +++ /dev/null @@ -1,6 +0,0 @@ -reacting to change -infiniteUndoChanged - "The infiniteUndo preference changed; react" - - self infiniteUndo ifFalse: - [CommandHistory resetAllHistory] \ No newline at end of file diff --git a/packages/SwaLint-Preferences.package/SLPreferences.class/class/initialExtent.st b/packages/SwaLint-Preferences.package/SLPreferences.class/class/initialExtent.st deleted file mode 100644 index ff0dc1a2..00000000 --- a/packages/SwaLint-Preferences.package/SLPreferences.class/class/initialExtent.st +++ /dev/null @@ -1,3 +0,0 @@ -preferences panel -initialExtent - ^ Smalltalk isMorphic ifFalse: [219 @ 309] ifTrue: [232 @ 309] \ No newline at end of file diff --git a/packages/SwaLint-Preferences.package/SLPreferences.class/class/initialize.st b/packages/SwaLint-Preferences.package/SLPreferences.class/class/initialize.st index fe1b777d..23363fa6 100644 --- a/packages/SwaLint-Preferences.package/SLPreferences.class/class/initialize.st +++ b/packages/SwaLint-Preferences.package/SLPreferences.class/class/initialize.st @@ -1,8 +1,4 @@ class initialization initialize - - self registerInFlapsRegistry; - initializeDictionaryOfPreferences; - initializeParameters; - initializeDependentsFields; - chooseInitialSettings + "SLPreferences initialize" + self registerForEvents. \ No newline at end of file diff --git a/packages/SwaLint-Preferences.package/SLPreferences.class/class/initializeDictionaryOfPreferences.st b/packages/SwaLint-Preferences.package/SLPreferences.class/class/initializeDictionaryOfPreferences.st index f2223e2e..25c2aa11 100644 --- a/packages/SwaLint-Preferences.package/SLPreferences.class/class/initializeDictionaryOfPreferences.st +++ b/packages/SwaLint-Preferences.package/SLPreferences.class/class/initializeDictionaryOfPreferences.st @@ -1,6 +1,7 @@ initialization initializeDictionaryOfPreferences - "Initialize the DictionaryOfPreferences to be an empty IdentityDictionary" - "Preferences initializeDictionaryOfPreferences" + "Initialize the preferencesDictionary to be an empty IdentityDictionary" - self dictionaryOfPreferences: IdentityDictionary new \ No newline at end of file + "SLPreferences initializeDictionaryOfPreferences" + + preferencesDictionary := IdentityDictionary new \ No newline at end of file diff --git a/packages/SwaLint-Preferences.package/SLPreferences.class/class/initializeParameters.st b/packages/SwaLint-Preferences.package/SLPreferences.class/class/initializeParameters.st index 8cfbec90..eb2e401a 100644 --- a/packages/SwaLint-Preferences.package/SLPreferences.class/class/initializeParameters.st +++ b/packages/SwaLint-Preferences.package/SLPreferences.class/class/initializeParameters.st @@ -1,7 +1,4 @@ parameters initializeParameters - "Preferences initializeParameters" - Parameters := IdentityDictionary new. - self restoreDefaultMenuParameters. - Parameters at: #maxBalloonHelpLineLength put: 28. - self initializeTextHighlightingParameters \ No newline at end of file + "SLPreferences initializeParameters" + Parameters := IdentityDictionary new. \ No newline at end of file diff --git a/packages/SwaLint-Preferences.package/SLPreferences.class/class/initializePragmaPreferencesOf..st b/packages/SwaLint-Preferences.package/SLPreferences.class/class/initializePragmaPreferencesOf..st deleted file mode 100644 index 99ddc701..00000000 --- a/packages/SwaLint-Preferences.package/SLPreferences.class/class/initializePragmaPreferencesOf..st +++ /dev/null @@ -1,10 +0,0 @@ -pragma-preferences -initializePragmaPreferencesOf: aClass - - | aPrefSymbol aPreference | - - (self preferencePragmasOf: aClass) do: - [ :aPragma | - aPreference := self convertPragmaToPreference: aPragma. - aPrefSymbol := aPragma method selector asSymbol. - self dictionaryOfPreferences at: aPrefSymbol put: aPreference ] \ No newline at end of file diff --git a/packages/SwaLint-Preferences.package/SLPreferences.class/class/initializePreferencePanel.in..st b/packages/SwaLint-Preferences.package/SLPreferences.class/class/initializePreferencePanel.in..st deleted file mode 100644 index d3ce6d10..00000000 --- a/packages/SwaLint-Preferences.package/SLPreferences.class/class/initializePreferencePanel.in..st +++ /dev/null @@ -1,44 +0,0 @@ -preferences panel -initializePreferencePanel: aPanel in: aPasteUpMorph - "Initialize the given Preferences panel. in the given pasteup, which is the top-level panel installed in the container window. Also used to reset it after some change requires reformulation" - - | tabbedPalette controlPage aColor aFont maxEntriesPerCategory tabsMorph anExtent prefObjects cc | - aPasteUpMorph removeAllMorphs. - - aFont := StrikeFont familyName: 'NewYork' size: 19. - - aColor := aPanel defaultBackgroundColor. - tabbedPalette := TabbedPalette newSticky. - tabbedPalette dropEnabled: false. - (tabsMorph := tabbedPalette tabsMorph) color: aColor darker; - highlightColor: Color red regularColor: Color brown darker darker. - tabbedPalette on: #mouseDown send: #yourself to: #(). - maxEntriesPerCategory := 0. - self listOfCategories do: - [:aCat | - controlPage := AlignmentMorph newColumn beSticky color: aColor. - controlPage on: #mouseDown send: #yourself to: #(). - controlPage dropEnabled: false. - cc := Color transparent. - controlPage color: cc. - controlPage borderColor: aColor; - layoutInset: 4. - (prefObjects := self preferenceObjectsInCategory: aCat) do: - [:aPreference | | button | - button := aPreference representativeButtonWithColor: cc inPanel: aPanel. - button ifNotNil: [controlPage addMorphBack: button]]. - controlPage setNameTo: aCat asString. - aCat = #? - ifTrue: [aPanel addHelpItemsTo: controlPage]. - tabbedPalette addTabFor: controlPage font: aFont. - aCat = 'search results' ifTrue: - [(tabbedPalette tabNamed: aCat) setBalloonText: - 'Use the ? category to find preferences by keyword; the results of your search will show up here']. - maxEntriesPerCategory := maxEntriesPerCategory max: prefObjects size]. - tabbedPalette selectTabNamed: '?'. - tabsMorph rowsNoWiderThan: aPasteUpMorph width. - aPasteUpMorph on: #mouseDown send: #yourself to: #(). - anExtent := aPasteUpMorph width @ (490 max: (25 + tabsMorph height + (20 * maxEntriesPerCategory))). - aPasteUpMorph extent: anExtent. - aPasteUpMorph color: aColor. - aPasteUpMorph addMorphBack: tabbedPalette. \ No newline at end of file diff --git a/packages/SwaLint-Preferences.package/SLPreferences.class/class/initializeTextHighlightingParameters.st b/packages/SwaLint-Preferences.package/SLPreferences.class/class/initializeTextHighlightingParameters.st deleted file mode 100644 index c01832fe..00000000 --- a/packages/SwaLint-Preferences.package/SLPreferences.class/class/initializeTextHighlightingParameters.st +++ /dev/null @@ -1,8 +0,0 @@ -text highlighting -initializeTextHighlightingParameters - "Preferences initializeTextHighlightingParameters" - - self - caretWidth: 2; - insertionPointColor: (TranslucentColor r: 0.0 g: 0.0 b: 0.8 alpha: 0.8); - textHighlightColor: (TranslucentColor r: 0.0 g: 0.0 b: 0.8 alpha: 0.2) \ No newline at end of file diff --git a/packages/SwaLint-Preferences.package/SLPreferences.class/class/insertionPointColor..st b/packages/SwaLint-Preferences.package/SLPreferences.class/class/insertionPointColor..st deleted file mode 100644 index 39fa0eee..00000000 --- a/packages/SwaLint-Preferences.package/SLPreferences.class/class/insertionPointColor..st +++ /dev/null @@ -1,3 +0,0 @@ -text highlighting -insertionPointColor: aColor - Parameters at: #insertionPointColor put: aColor \ No newline at end of file diff --git a/packages/SwaLint-Preferences.package/SLPreferences.class/class/insertionPointColor.st b/packages/SwaLint-Preferences.package/SLPreferences.class/class/insertionPointColor.st deleted file mode 100644 index 114a2958..00000000 --- a/packages/SwaLint-Preferences.package/SLPreferences.class/class/insertionPointColor.st +++ /dev/null @@ -1,3 +0,0 @@ -text highlighting -insertionPointColor - ^ Parameters at: #insertionPointColor \ No newline at end of file diff --git a/packages/SwaLint-Preferences.package/SLPreferences.class/class/inspectPreferences.st b/packages/SwaLint-Preferences.package/SLPreferences.class/class/inspectPreferences.st index 283d7557..d1c19b14 100644 --- a/packages/SwaLint-Preferences.package/SLPreferences.class/class/inspectPreferences.st +++ b/packages/SwaLint-Preferences.package/SLPreferences.class/class/inspectPreferences.st @@ -1,7 +1,7 @@ -preferences panel +support - misc inspectPreferences - "Open a window on the current preferences dictionary, allowing the user to inspect and change the current preference settings. This is fallen back upon if Morphic is not present" + "Open a window on the current preferences dictionary, allowing the user to inspect and change the current preference settings. This is fallen back upon if Morphic is not present. This is dangerous, the dictionary of preferences should not be accessed concurrently." - "Preferences inspectPreferences" + "SLPreferences inspectPreferences" - self dictionaryOfPreferences inspectWithLabel:'Preferences' \ No newline at end of file + preferencesDictionary inspectWithLabel: 'SLPreferences' \ No newline at end of file diff --git a/packages/SwaLint-Preferences.package/SLPreferences.class/class/installBrightWindowColors.st b/packages/SwaLint-Preferences.package/SLPreferences.class/class/installBrightWindowColors.st deleted file mode 100644 index 737e92da..00000000 --- a/packages/SwaLint-Preferences.package/SLPreferences.class/class/installBrightWindowColors.st +++ /dev/null @@ -1,7 +0,0 @@ -window colors -installBrightWindowColors - "Install the factory-provided default window colors for all tools" - - "Preferences installBrightWindowColors" - - self installWindowColorsVia: [:aSpec | aSpec brightColor] \ No newline at end of file diff --git a/packages/SwaLint-Preferences.package/SLPreferences.class/class/installClassicHaloSpecs.st b/packages/SwaLint-Preferences.package/SLPreferences.class/class/installClassicHaloSpecs.st deleted file mode 100644 index d0834ba5..00000000 --- a/packages/SwaLint-Preferences.package/SLPreferences.class/class/installClassicHaloSpecs.st +++ /dev/null @@ -1,6 +0,0 @@ -halos -installClassicHaloSpecs - "Install an alternative set of halos, rather more based on the old placements, and without icons, , and lacking the scripting-relating handles.." - "Preferences installClassicHaloSpecs" - "Preferences resetHaloSpecifications" " <- will result in the standard default halos being reinstalled" - self installHaloTheme: #classicHaloSpecs \ No newline at end of file diff --git a/packages/SwaLint-Preferences.package/SLPreferences.class/class/installCustomHaloSpecs.st b/packages/SwaLint-Preferences.package/SLPreferences.class/class/installCustomHaloSpecs.st deleted file mode 100644 index a01e94a7..00000000 --- a/packages/SwaLint-Preferences.package/SLPreferences.class/class/installCustomHaloSpecs.st +++ /dev/null @@ -1,5 +0,0 @@ -halos -installCustomHaloSpecs - "Install an alternative set of halos, as customized by the user" - "Preferences installCustomHaloSpecs" - self installHaloTheme: #customHaloSpecs \ No newline at end of file diff --git a/packages/SwaLint-Preferences.package/SLPreferences.class/class/installHaloSpecsFromArray..st b/packages/SwaLint-Preferences.package/SLPreferences.class/class/installHaloSpecsFromArray..st deleted file mode 100644 index 5e7ae62e..00000000 --- a/packages/SwaLint-Preferences.package/SLPreferences.class/class/installHaloSpecsFromArray..st +++ /dev/null @@ -1,15 +0,0 @@ -halos -installHaloSpecsFromArray: anArray - - | aColor | - ^ Parameters at: #HaloSpecs put: - (anArray collect: - [:quin | - aColor := Color. - quin fourth do: [:sel | aColor := aColor perform: sel]. - HaloSpec new - horizontalPlacement: quin second - verticalPlacement: quin third - color: aColor - iconSymbol: quin fifth - addHandleSelector: quin first]) \ No newline at end of file diff --git a/packages/SwaLint-Preferences.package/SLPreferences.class/class/installHaloTheme..st b/packages/SwaLint-Preferences.package/SLPreferences.class/class/installHaloTheme..st deleted file mode 100644 index 8b10aa17..00000000 --- a/packages/SwaLint-Preferences.package/SLPreferences.class/class/installHaloTheme..st +++ /dev/null @@ -1,5 +0,0 @@ -halos -installHaloTheme: themeSymbol - self installHaloSpecsFromArray: (self perform: themeSymbol). - (self preferenceAt: #haloTheme) preferenceValue: themeSymbol. - \ No newline at end of file diff --git a/packages/SwaLint-Preferences.package/SLPreferences.class/class/installIconicHaloSpecs.st b/packages/SwaLint-Preferences.package/SLPreferences.class/class/installIconicHaloSpecs.st deleted file mode 100644 index 15df6333..00000000 --- a/packages/SwaLint-Preferences.package/SLPreferences.class/class/installIconicHaloSpecs.st +++ /dev/null @@ -1,5 +0,0 @@ -halos -installIconicHaloSpecs - "Install an alternative set of halos, rather more based on the old placements, and without icons, , and lacking the scripting-relating handles.." - "Preferences installIconicHaloSpecs" - self installHaloTheme: #iconicHaloSpecifications \ No newline at end of file diff --git a/packages/SwaLint-Preferences.package/SLPreferences.class/class/installMissingWindowColors.st b/packages/SwaLint-Preferences.package/SLPreferences.class/class/installMissingWindowColors.st deleted file mode 100644 index 8f59ac06..00000000 --- a/packages/SwaLint-Preferences.package/SLPreferences.class/class/installMissingWindowColors.st +++ /dev/null @@ -1,9 +0,0 @@ -window colors -installMissingWindowColors - "Install the factory-provided bright window colors -- a one-time bootstrap" - "Preferences installMissingWindowColors" - | color | - self windowColorTable do: - [:aColorSpec | - color := (Color colorFrom: aColorSpec brightColor). - self setWindowColorFor: aColorSpec classSymbol to: color] \ No newline at end of file diff --git a/packages/SwaLint-Preferences.package/SLPreferences.class/class/installPastelWindowColors.st b/packages/SwaLint-Preferences.package/SLPreferences.class/class/installPastelWindowColors.st deleted file mode 100644 index 2e2846bc..00000000 --- a/packages/SwaLint-Preferences.package/SLPreferences.class/class/installPastelWindowColors.st +++ /dev/null @@ -1,6 +0,0 @@ -window colors -installPastelWindowColors - "Install the factory-provided default pastel window colors for all tools" - - "Preferences installBrightWindowColors" - self installWindowColorsVia: [:aSpec | aSpec pastelColor] \ No newline at end of file diff --git a/packages/SwaLint-Preferences.package/SLPreferences.class/class/installSimpleHaloSpecs.st b/packages/SwaLint-Preferences.package/SLPreferences.class/class/installSimpleHaloSpecs.st deleted file mode 100644 index 0db2e1b2..00000000 --- a/packages/SwaLint-Preferences.package/SLPreferences.class/class/installSimpleHaloSpecs.st +++ /dev/null @@ -1,4 +0,0 @@ -halos -installSimpleHaloSpecs - "Preferences installSimpleHaloSpecs" - self installHaloTheme: #simpleFullHaloSpecifications \ No newline at end of file diff --git a/packages/SwaLint-Preferences.package/SLPreferences.class/class/installTheme..st b/packages/SwaLint-Preferences.package/SLPreferences.class/class/installTheme..st deleted file mode 100644 index da7d6453..00000000 --- a/packages/SwaLint-Preferences.package/SLPreferences.class/class/installTheme..st +++ /dev/null @@ -1,9 +0,0 @@ -misc -installTheme: aSymbol - "Install the theme represented by aSymbol. The code that makes the theme-specific changes is lodged in a method of the same name as aSymbol, which must reside in category #themes in Preferences class" - - self perform: aSymbol. - self inform: ('Theme {1} is now installed. -Many of the changes will only be -noticeable in new windows that you -create from now on.' translated format: {aSymbol translated}). \ No newline at end of file diff --git a/packages/SwaLint-Preferences.package/SLPreferences.class/class/installUniformWindowColors.st b/packages/SwaLint-Preferences.package/SLPreferences.class/class/installUniformWindowColors.st deleted file mode 100644 index 398649d2..00000000 --- a/packages/SwaLint-Preferences.package/SLPreferences.class/class/installUniformWindowColors.st +++ /dev/null @@ -1,6 +0,0 @@ -window colors -installUniformWindowColors - "Install the factory-provided uniform window colors for all tools" - - "Preferences installUniformWindowColors" - self installWindowColorsVia: [:aQuad | #white] \ No newline at end of file diff --git a/packages/SwaLint-Preferences.package/SLPreferences.class/class/installWindowColorsVia..st b/packages/SwaLint-Preferences.package/SLPreferences.class/class/installWindowColorsVia..st deleted file mode 100644 index e525e8fc..00000000 --- a/packages/SwaLint-Preferences.package/SLPreferences.class/class/installWindowColorsVia..st +++ /dev/null @@ -1,9 +0,0 @@ -window colors -installWindowColorsVia: colorSpecBlock - "Install windows colors using colorSpecBlock to deliver the color source for each element; the block is handed a WindowColorSpec object" - "Preferences installBrightWindowColors" - | color | - self windowColorTable do: - [:aColorSpec | - color := (Color colorFrom: (colorSpecBlock value: aColorSpec)). - self setWindowColorFor: aColorSpec classSymbol to: color] diff --git a/packages/SwaLint-Preferences.package/SLPreferences.class/class/isChangeSelector..st b/packages/SwaLint-Preferences.package/SLPreferences.class/class/isChangeSelector..st new file mode 100644 index 00000000..d31cd507 --- /dev/null +++ b/packages/SwaLint-Preferences.package/SLPreferences.class/class/isChangeSelector..st @@ -0,0 +1,4 @@ +reacting to change +isChangeSelector: aLiteral + ^preferencesDictionary anySatisfy: [:pref | + aLiteral = pref changeSelector] \ No newline at end of file diff --git a/packages/SwaLint-Preferences.package/SLPreferences.class/class/isPreferencePragma..st b/packages/SwaLint-Preferences.package/SLPreferences.class/class/isPreferencePragma..st deleted file mode 100644 index 3693afcf..00000000 --- a/packages/SwaLint-Preferences.package/SLPreferences.class/class/isPreferencePragma..st +++ /dev/null @@ -1,5 +0,0 @@ -pragma-preferences -isPreferencePragma: aPragma - - ^ (aPragma keyword == #slpreference:type:categories:defaultValue:helpText:) or: - (aPragma keyword == #slpreference:type:categories:defaultValue:helpText:projectLocal:changeInformee:changeSelector:) \ No newline at end of file diff --git a/packages/SwaLint-Preferences.package/SLPreferences.class/class/keyboardFocusColor..st b/packages/SwaLint-Preferences.package/SLPreferences.class/class/keyboardFocusColor..st deleted file mode 100644 index c1e80115..00000000 --- a/packages/SwaLint-Preferences.package/SLPreferences.class/class/keyboardFocusColor..st +++ /dev/null @@ -1,5 +0,0 @@ -text highlighting -keyboardFocusColor: aColor - "Set the keyboard focus color" - - Parameters at: #keyboardFocusColor put: aColor \ No newline at end of file diff --git a/packages/SwaLint-Preferences.package/SLPreferences.class/class/keyboardFocusColor.st b/packages/SwaLint-Preferences.package/SLPreferences.class/class/keyboardFocusColor.st deleted file mode 100644 index 6acf47dd..00000000 --- a/packages/SwaLint-Preferences.package/SLPreferences.class/class/keyboardFocusColor.st +++ /dev/null @@ -1,10 +0,0 @@ -text highlighting -keyboardFocusColor - "Answer the keyboard focus color, initializing it if necessary" - - ^ Parameters at: #keyboardFocusColor ifAbsentPut: [Color lightGray] - -" -Parameters removeKey: #keyboardFocusColor. -Preferences keyboardFocusColor -" \ No newline at end of file diff --git a/packages/SwaLint-Preferences.package/SLPreferences.class/class/largeTilesSettingToggled.st b/packages/SwaLint-Preferences.package/SLPreferences.class/class/largeTilesSettingToggled.st deleted file mode 100644 index 474e9457..00000000 --- a/packages/SwaLint-Preferences.package/SLPreferences.class/class/largeTilesSettingToggled.st +++ /dev/null @@ -1,13 +0,0 @@ -reacting to change -largeTilesSettingToggled - "The current value of the largeTiles flag has changed; now react" - - Smalltalk isMorphic ifTrue: - [Preferences universalTiles - ifFalse: - [self inform: -'note that this will only have a noticeable -effect if the universalTiles preference is -set to true, which it currently is not' translated] - ifTrue: - [World recreateScripts]] \ No newline at end of file diff --git a/packages/SwaLint-Preferences.package/SLPreferences.class/class/letUserPersonalizeMenu.st b/packages/SwaLint-Preferences.package/SLPreferences.class/class/letUserPersonalizeMenu.st deleted file mode 100644 index 5029d318..00000000 --- a/packages/SwaLint-Preferences.package/SLPreferences.class/class/letUserPersonalizeMenu.st +++ /dev/null @@ -1,6 +0,0 @@ -personalization -letUserPersonalizeMenu - "Invoked from menu, opens up a single-msg browser on the message that user is invited to customize for rapid morphic access via option-click on morphic desktop" - - ToolSet browse: Preferences class - selector: #personalizeUserMenu: \ No newline at end of file diff --git a/packages/SwaLint-Preferences.package/SLPreferences.class/class/lightenStandardWindowPreferences.st b/packages/SwaLint-Preferences.package/SLPreferences.class/class/lightenStandardWindowPreferences.st deleted file mode 100644 index 13fcb37e..00000000 --- a/packages/SwaLint-Preferences.package/SLPreferences.class/class/lightenStandardWindowPreferences.st +++ /dev/null @@ -1,10 +0,0 @@ -window colors -lightenStandardWindowPreferences - "Make all window-color preferences one shade darker" - - (self allPreferences - select: [:aPref | (aPref name endsWith: 'WindowColor') - and: [aPref preferenceValue isColor]]) - do: [:aPref | aPref preferenceValue: aPref preferenceValue lighter]. - -"Preferences lightenStandardWindowPreferences" diff --git a/packages/SwaLint-Preferences.package/SLPreferences.class/class/listOfCategories.st b/packages/SwaLint-Preferences.package/SLPreferences.class/class/listOfCategories.st deleted file mode 100644 index e7d5e2c1..00000000 --- a/packages/SwaLint-Preferences.package/SLPreferences.class/class/listOfCategories.st +++ /dev/null @@ -1,4 +0,0 @@ -preferences panel -listOfCategories - - ^ self categoryList \ No newline at end of file diff --git a/packages/SwaLint-Preferences.package/SLPreferences.class/class/loadPreferencesFrom..st b/packages/SwaLint-Preferences.package/SLPreferences.class/class/loadPreferencesFrom..st index d30167d8..fa4418b0 100644 --- a/packages/SwaLint-Preferences.package/SLPreferences.class/class/loadPreferencesFrom..st +++ b/packages/SwaLint-Preferences.package/SLPreferences.class/class/loadPreferencesFrom..st @@ -1,7 +1,9 @@ -personalization -loadPreferencesFrom: aFileName - | stream params dict desktopColor | - stream := ReferenceStream fileNamed: aFileName. +initialization - save/load +loadPreferencesFrom: aFile + + | stream params dict desktopColor patternsToIgnore | + patternsToIgnore := #('*updateMapName' '*defaultUpdateURL'). + stream := ReferenceStream fileNamed: aFile. params := stream next. self assert: (params isKindOf: IdentityDictionary). params removeKey: #PersonalDictionaryOfPreferences. @@ -9,12 +11,15 @@ loadPreferencesFrom: aFileName self assert: (dict isKindOf: IdentityDictionary). desktopColor := stream next. stream close. - dict keysAndValuesDo: - [:key :value | (self preferenceAt: key ifAbsent: [nil]) ifNotNilDo: - [:pref | pref preferenceValue: value preferenceValue]]. - + dict rehash. "See http://lists.squeakfoundation.org/pipermail/squeak-dev/2021-December/217817.html" + dict keys + reject: [:key | patternsToIgnore anySatisfy: [:pattern | pattern match: key]] + thenDo: [:key | | value | + value := dict at: key. + (self preferenceAt: key ifAbsent: [nil]) ifNotNil: + [:pref | [pref preferenceValue: value preferenceValue] + on: Deprecation do: [ : err | "Ignore preferences which may not be supported anymore."]]]. params keysAndValuesDo: [ :key :value | self setParameter: key to: value ]. - Smalltalk isMorphic - ifTrue: [ World fillStyle: desktopColor ] - ifFalse: [ self desktopColor: desktopColor. ScheduledControllers updateGray ]. + ifTrue: [ Project current world fillStyle: desktopColor ] + ifFalse: [ self desktopColor: desktopColor. ScheduledControllers updateGray ] \ No newline at end of file diff --git a/packages/SwaLint-Preferences.package/SLPreferences.class/class/localeChanged.st b/packages/SwaLint-Preferences.package/SLPreferences.class/class/localeChanged.st deleted file mode 100644 index be3423c5..00000000 --- a/packages/SwaLint-Preferences.package/SLPreferences.class/class/localeChanged.st +++ /dev/null @@ -1,5 +0,0 @@ -initialization -localeChanged - LocaleID current isoLanguage = 'ja' - ifTrue: [Preferences enable: #useFormsInPaintBox] - ifFalse: [Preferences disable: #useFormsInPaintBox] \ No newline at end of file diff --git a/packages/SwaLint-Preferences.package/SLPreferences.class/class/maxBalloonHelpLineLength.st b/packages/SwaLint-Preferences.package/SLPreferences.class/class/maxBalloonHelpLineLength.st deleted file mode 100644 index 23ecacef..00000000 --- a/packages/SwaLint-Preferences.package/SLPreferences.class/class/maxBalloonHelpLineLength.st +++ /dev/null @@ -1,3 +0,0 @@ -parameters -maxBalloonHelpLineLength - ^ Parameters at: #maxBalloonHelpLineLength \ No newline at end of file diff --git a/packages/SwaLint-Preferences.package/SLPreferences.class/class/menuBorderColor.st b/packages/SwaLint-Preferences.package/SLPreferences.class/class/menuBorderColor.st deleted file mode 100644 index 5357cfbb..00000000 --- a/packages/SwaLint-Preferences.package/SLPreferences.class/class/menuBorderColor.st +++ /dev/null @@ -1,4 +0,0 @@ -menu parameters -menuBorderColor - - ^ Color r: 0.167 g: 0.167 b: 1.0 \ No newline at end of file diff --git a/packages/SwaLint-Preferences.package/SLPreferences.class/class/menuBorderWidth.st b/packages/SwaLint-Preferences.package/SLPreferences.class/class/menuBorderWidth.st deleted file mode 100644 index 5e2a9996..00000000 --- a/packages/SwaLint-Preferences.package/SLPreferences.class/class/menuBorderWidth.st +++ /dev/null @@ -1,3 +0,0 @@ -menu parameters -menuBorderWidth - ^ Parameters at: #menuBorderWidth \ No newline at end of file diff --git a/packages/SwaLint-Preferences.package/SLPreferences.class/class/menuColor.st b/packages/SwaLint-Preferences.package/SLPreferences.class/class/menuColor.st deleted file mode 100644 index 7a8d56ab..00000000 --- a/packages/SwaLint-Preferences.package/SLPreferences.class/class/menuColor.st +++ /dev/null @@ -1,4 +0,0 @@ -menu parameters -menuColor - - ^ Color r: 0.97 g: 0.97 b: 0.97 \ No newline at end of file diff --git a/packages/SwaLint-Preferences.package/SLPreferences.class/class/menuColorString.st b/packages/SwaLint-Preferences.package/SLPreferences.class/class/menuColorString.st deleted file mode 100644 index 9173b330..00000000 --- a/packages/SwaLint-Preferences.package/SLPreferences.class/class/menuColorString.st +++ /dev/null @@ -1,5 +0,0 @@ -misc -menuColorString - ^ ((self valueOfFlag: #menuColorFromWorld) - ifTrue: ['stop menu-color-from-world'] - ifFalse: ['start menu-color-from-world']) translated \ No newline at end of file diff --git a/packages/SwaLint-Preferences.package/SLPreferences.class/class/menuLineColor.st b/packages/SwaLint-Preferences.package/SLPreferences.class/class/menuLineColor.st deleted file mode 100644 index a1c5db17..00000000 --- a/packages/SwaLint-Preferences.package/SLPreferences.class/class/menuLineColor.st +++ /dev/null @@ -1,5 +0,0 @@ -menu parameters -menuLineColor - ^ Parameters - at: #menuLineColor - ifAbsentPut: [(UserInterfaceTheme current get: #borderColor for: #MenuMorph) lighter] \ No newline at end of file diff --git a/packages/SwaLint-Preferences.package/SLPreferences.class/class/menuSelectionColor.st b/packages/SwaLint-Preferences.package/SLPreferences.class/class/menuSelectionColor.st deleted file mode 100644 index 970c246c..00000000 --- a/packages/SwaLint-Preferences.package/SLPreferences.class/class/menuSelectionColor.st +++ /dev/null @@ -1,5 +0,0 @@ -menu parameters -menuSelectionColor - ^ Parameters - at: #menuSelectionColor - ifAbsent: [nil] \ No newline at end of file diff --git a/packages/SwaLint-Preferences.package/SLPreferences.class/class/menuTitleBorderColor.st b/packages/SwaLint-Preferences.package/SLPreferences.class/class/menuTitleBorderColor.st deleted file mode 100644 index aac39351..00000000 --- a/packages/SwaLint-Preferences.package/SLPreferences.class/class/menuTitleBorderColor.st +++ /dev/null @@ -1,4 +0,0 @@ -menu parameters -menuTitleBorderColor - - ^ Color r: 0.333 g: 0.667 b: 0.751 \ No newline at end of file diff --git a/packages/SwaLint-Preferences.package/SLPreferences.class/class/menuTitleBorderWidth.st b/packages/SwaLint-Preferences.package/SLPreferences.class/class/menuTitleBorderWidth.st deleted file mode 100644 index bc94a80e..00000000 --- a/packages/SwaLint-Preferences.package/SLPreferences.class/class/menuTitleBorderWidth.st +++ /dev/null @@ -1,3 +0,0 @@ -menu parameters -menuTitleBorderWidth - ^ Parameters at: #menuTitleBorderWidth \ No newline at end of file diff --git a/packages/SwaLint-Preferences.package/SLPreferences.class/class/menuTitleColor.st b/packages/SwaLint-Preferences.package/SLPreferences.class/class/menuTitleColor.st deleted file mode 100644 index 27ae3827..00000000 --- a/packages/SwaLint-Preferences.package/SLPreferences.class/class/menuTitleColor.st +++ /dev/null @@ -1,4 +0,0 @@ -menu parameters -menuTitleColor - - ^ Color r: 0.4 g: 0.8 b: 0.9 \ No newline at end of file diff --git a/packages/SwaLint-Preferences.package/SLPreferences.class/class/mouseOverHalosChanged.st b/packages/SwaLint-Preferences.package/SLPreferences.class/class/mouseOverHalosChanged.st deleted file mode 100644 index 5faab223..00000000 --- a/packages/SwaLint-Preferences.package/SLPreferences.class/class/mouseOverHalosChanged.st +++ /dev/null @@ -1,3 +0,0 @@ -reacting to change -mouseOverHalosChanged - World wantsMouseOverHalos: self mouseOverHalos \ No newline at end of file diff --git a/packages/SwaLint-Preferences.package/SLPreferences.class/class/navigatorShowingString.st b/packages/SwaLint-Preferences.package/SLPreferences.class/class/navigatorShowingString.st deleted file mode 100644 index 5e2095ce..00000000 --- a/packages/SwaLint-Preferences.package/SLPreferences.class/class/navigatorShowingString.st +++ /dev/null @@ -1,7 +0,0 @@ -get/set -navigatorShowingString - "Answer a string for the show-project-navigator menu item" - ^ (self showProjectNavigator - ifTrue: [''] - ifFalse: ['']) - , 'show navigator (N)' translated \ No newline at end of file diff --git a/packages/SwaLint-Preferences.package/SLPreferences.class/class/noviceModeSettingChanged.st b/packages/SwaLint-Preferences.package/SLPreferences.class/class/noviceModeSettingChanged.st deleted file mode 100644 index b1df158c..00000000 --- a/packages/SwaLint-Preferences.package/SLPreferences.class/class/noviceModeSettingChanged.st +++ /dev/null @@ -1,9 +0,0 @@ -reacting to change -noviceModeSettingChanged - "The current value of the noviceMode flag has changed; - now react" - TheWorldMainDockingBar updateInstances. - PasteUpMorph allSubInstances - select: [:each | each isWorldMorph] - thenDo: [:each | each initializeDesktopCommandKeySelectors]. - ParagraphEditor initialize. \ No newline at end of file diff --git a/packages/SwaLint-Preferences.package/SLPreferences.class/class/offerThemesMenu.st b/packages/SwaLint-Preferences.package/SLPreferences.class/class/offerThemesMenu.st deleted file mode 100644 index 7f3e1b6b..00000000 --- a/packages/SwaLint-Preferences.package/SLPreferences.class/class/offerThemesMenu.st +++ /dev/null @@ -1,19 +0,0 @@ -misc -offerThemesMenu - "Put up a menu offering the user a choice of themes. Each theme is represented by a method in category #themes in Preferences class. The comment at the front of each method is used as the balloon help for the theme" - - "Preferences offerThemesMenu" - | selectors aMenu | - selectors := self class allMethodsInCategory: #themes. - selectors := selectors select: [:sel | sel numArgs = 0]. - aMenu := MenuMorph new defaultTarget: self. - aMenu addTitle: 'Choose a theme to install' translated. - selectors do: - [:sel | - aMenu add: sel target: self selector: #installTheme: argument: sel. - aMenu balloonTextForLastItem: (self class firstCommentAt: sel)]. - aMenu addLine. - aMenu add: 'browse themes' translated target: self action: #browseThemes. - aMenu balloonTextForLastItem: 'Puts up a tool that will allow you to view and edit the code underlying all of the available themes' translated. - aMenu popUpInWorld. - "(Workspace new contents: 'here is an example of a new window with your new theme installed' translated) openLabel: 'Testing one two three'" \ No newline at end of file diff --git a/packages/SwaLint-Preferences.package/SLPreferences.class/class/okayToChangeProjectLocalnessOf..st b/packages/SwaLint-Preferences.package/SLPreferences.class/class/okayToChangeProjectLocalnessOf..st index 79551b47..228c846b 100644 --- a/packages/SwaLint-Preferences.package/SLPreferences.class/class/okayToChangeProjectLocalnessOf..st +++ b/packages/SwaLint-Preferences.package/SLPreferences.class/class/okayToChangeProjectLocalnessOf..st @@ -1,4 +1,4 @@ -misc +support okayToChangeProjectLocalnessOf: prefSymbol "Answer whether it would be okay to allow the user to switch the setting of whether or not the preference symbol is local to a project. Formerly useful and perhaps again will be, though to be sure this is a non-modular design." diff --git a/packages/SwaLint-Preferences.package/SLPreferences.class/class/optionalButtonsChanged.st b/packages/SwaLint-Preferences.package/SLPreferences.class/class/optionalButtonsChanged.st deleted file mode 100644 index 9115cbe1..00000000 --- a/packages/SwaLint-Preferences.package/SLPreferences.class/class/optionalButtonsChanged.st +++ /dev/null @@ -1,3 +0,0 @@ -reacting to change -optionalButtonsChanged - "The setting of the optionalButtons preference changed; react. Formerly, we replaced prototypes in flaps but this is no longer necessary" diff --git a/packages/SwaLint-Preferences.package/SLPreferences.class/class/outOfTheBox.st b/packages/SwaLint-Preferences.package/SLPreferences.class/class/outOfTheBox.st deleted file mode 100644 index c3e0d390..00000000 --- a/packages/SwaLint-Preferences.package/SLPreferences.class/class/outOfTheBox.st +++ /dev/null @@ -1,5 +0,0 @@ -themes -outOfTheBox - "The default out-of-the-box preference settings for Squeak 3.2. The 'alternative' window-look and scrollbar-look are used. Button panes are used but not annotation panes. Scrollbars are on the right and do not flop out." - - self setPreferencesFrom: self defaultValueTableForCurrentRelease \ No newline at end of file diff --git a/packages/SwaLint-Preferences.package/SLPreferences.class/class/parameterAt.default..st b/packages/SwaLint-Preferences.package/SLPreferences.class/class/parameterAt.default..st deleted file mode 100644 index a48b8363..00000000 --- a/packages/SwaLint-Preferences.package/SLPreferences.class/class/parameterAt.default..st +++ /dev/null @@ -1,5 +0,0 @@ -parameters -parameterAt: aKey default: defaultValueBlock - "Deprecated interface; no surviving senders in the released image, but clients probably still use" - - ^ self parameterAt: aKey ifAbsentPut: defaultValueBlock \ No newline at end of file diff --git a/packages/SwaLint-Preferences.package/SLPreferences.class/class/parameterAt.ifAbsent..st b/packages/SwaLint-Preferences.package/SLPreferences.class/class/parameterAt.ifAbsent..st index 297bfc21..b28b37e8 100644 --- a/packages/SwaLint-Preferences.package/SLPreferences.class/class/parameterAt.ifAbsent..st +++ b/packages/SwaLint-Preferences.package/SLPreferences.class/class/parameterAt.ifAbsent..st @@ -2,4 +2,4 @@ parameters parameterAt: aKey ifAbsent: aBlock "Answer the parameter saved at the given key; if there is no such key in the Parameters dictionary, evaluate aBlock" - ^ Parameters at: aKey ifAbsent: [aBlock value] \ No newline at end of file + ^ Parameters at: aKey ifAbsent: aBlock \ No newline at end of file diff --git a/packages/SwaLint-Preferences.package/SLPreferences.class/class/parameters.st b/packages/SwaLint-Preferences.package/SLPreferences.class/class/parameters.st new file mode 100644 index 00000000..82fe0e83 --- /dev/null +++ b/packages/SwaLint-Preferences.package/SLPreferences.class/class/parameters.st @@ -0,0 +1,5 @@ +parameters +parameters + +"SLPreferences parameters explore" + ^Parameters \ No newline at end of file diff --git a/packages/SwaLint-Preferences.package/SLPreferences.class/class/personal.st b/packages/SwaLint-Preferences.package/SLPreferences.class/class/personal.st deleted file mode 100644 index 85421a66..00000000 --- a/packages/SwaLint-Preferences.package/SLPreferences.class/class/personal.st +++ /dev/null @@ -1,5 +0,0 @@ -themes -personal - "Settings saved (by sometime earlier having hit the 'Save Current Settings as my Personal Preferences' in a Preferences panel) as my personal preferences" - - self restorePersonalPreferences \ No newline at end of file diff --git a/packages/SwaLint-Preferences.package/SLPreferences.class/class/personalizeUserMenu..st b/packages/SwaLint-Preferences.package/SLPreferences.class/class/personalizeUserMenu..st deleted file mode 100644 index 753426d0..00000000 --- a/packages/SwaLint-Preferences.package/SLPreferences.class/class/personalizeUserMenu..st +++ /dev/null @@ -1,16 +0,0 @@ -personalization -personalizeUserMenu: aMenu - "The user has clicked on the morphic desktop with the yellow mouse button (option+click on the Mac); a menu is being constructed to present to the user in response; its default target is the current world. In this method, you are invited to add items to the menu as per personal preferences. - The default implementation, for illustrative purposes, sets the menu title to 'personal', and adds items for go-to-previous-project, show/hide flaps, and load code updates" - - aMenu addTitle: 'personal' translated. "Remove or modify this as per personal choice" - - aMenu addStayUpItem. - aMenu add: 'previous project' translated action: #goBack. - aMenu add: 'load latest code updates' translated target: Utilities action: #updateFromServer. - aMenu add: 'about this system...' translated target: SmalltalkImage current action: #aboutThisSystem. - - aMenu addLine. - - aMenu addUpdating: #suppressFlapsString target: Project current action: #toggleFlapsSuppressed. - aMenu balloonTextForLastItem: 'Whether prevailing flaps should be shown in the project right now or not.' translated \ No newline at end of file diff --git a/packages/SwaLint-Preferences.package/SLPreferences.class/class/pragmaIdFor.getter..st b/packages/SwaLint-Preferences.package/SLPreferences.class/class/pragmaIdFor.getter..st new file mode 100644 index 00000000..b92af730 --- /dev/null +++ b/packages/SwaLint-Preferences.package/SLPreferences.class/class/pragmaIdFor.getter..st @@ -0,0 +1,4 @@ +accessing +pragmaIdFor: provider getter: getter + + ^ (provider name , '>>' , getter) asSymbol \ No newline at end of file diff --git a/packages/SwaLint-Preferences.package/SLPreferences.class/class/pragmaPreferenceFor.getter..st b/packages/SwaLint-Preferences.package/SLPreferences.class/class/pragmaPreferenceFor.getter..st new file mode 100644 index 00000000..daff8246 --- /dev/null +++ b/packages/SwaLint-Preferences.package/SLPreferences.class/class/pragmaPreferenceFor.getter..st @@ -0,0 +1,4 @@ +accessing +pragmaPreferenceFor: provider getter: getter + + ^ self preferenceAt: (self pragmaIdFor: provider getter: getter) \ No newline at end of file diff --git a/packages/SwaLint-Preferences.package/SLPreferences.class/class/prefEvent..st b/packages/SwaLint-Preferences.package/SLPreferences.class/class/prefEvent..st new file mode 100644 index 00000000..2baaa51f --- /dev/null +++ b/packages/SwaLint-Preferences.package/SLPreferences.class/class/prefEvent..st @@ -0,0 +1,37 @@ +updating +prefEvent: anEvent + "Check if this system event defines or removes a preference." + + | class selector method | + self flag: #performance. "mt: Maybe defer preference dictionary update?" + + anEvent itemKind = SystemChangeNotifier classKind ifTrue: [ + anEvent isRemoved ifTrue: [ + self removeAllPreferencesSuchThat: [:pref | + pref provider == anEvent item]]. + + anEvent isRenamed ifTrue: [ + self atomicUpdatePreferences: [ :prefs | + self allPreferences + select: [:pref | pref provider == anEvent item] + thenDo: [:pref | prefs at: pref id put: pref]. + prefs keys + select: [:id | id beginsWith: anEvent oldName] + thenDo: [:id | prefs removeKey: id] ] ] ]. + + anEvent itemKind = SystemChangeNotifier methodKind ifTrue: [ + "ignore instance methods" + anEvent itemClass isMeta + ifFalse: [^ self]. + + class := anEvent itemClass theNonMetaClass. + selector := anEvent itemSelector. + method := anEvent item. + + anEvent isRemoved ifTrue: [ + self atomicUpdatePreferences: [ :prefs | + "See PragmaPreference >> #id." + prefs removeKey: (class name,'>>', selector) asSymbol ifAbsent: []]]. + + (anEvent isAdded or: [anEvent isModified]) ifTrue: [ + method pragmas do: [:pragma | self addPragmaPreference: pragma] ] ]. \ No newline at end of file diff --git a/packages/SwaLint-Preferences.package/SLPreferences.class/class/preference.type.categories.defaultValue.helpText..st b/packages/SwaLint-Preferences.package/SLPreferences.class/class/preference.type.categories.defaultValue.helpText..st deleted file mode 100644 index b6dab8c2..00000000 --- a/packages/SwaLint-Preferences.package/SLPreferences.class/class/preference.type.categories.defaultValue.helpText..st +++ /dev/null @@ -1,16 +0,0 @@ -pragma-preferences -preference: aPrefName - type: aType - categories: aArrayOfCategories - defaultValue: anObject - helpText: aHelpText - - ^ self - preference: aPrefName - type: aType - categories: aArrayOfCategories - defaultValue: anObject - helpText: aHelpText - projectLocal: false - changeInformee: nil - changeSelector: nil \ No newline at end of file diff --git a/packages/SwaLint-Preferences.package/SLPreferences.class/class/preference.type.categories.defaultValue.helpText.projectLocal.changeInformee.changeSelector..st b/packages/SwaLint-Preferences.package/SLPreferences.class/class/preference.type.categories.defaultValue.helpText.projectLocal.changeInformee.changeSelector..st deleted file mode 100644 index 9549887e..00000000 --- a/packages/SwaLint-Preferences.package/SLPreferences.class/class/preference.type.categories.defaultValue.helpText.projectLocal.changeInformee.changeSelector..st +++ /dev/null @@ -1,24 +0,0 @@ -pragma-preferences -preference: aPrefName - type: aType - categories: aArrayOfCategories - defaultValue: anObject - helpText: aHelpText - projectLocal: aBoolean - changeInformee: aSymbol - changeSelector: anotherSymbol - - | aPreference | - - aPreference := SLPragmaPreference new. - aPreference - name: aPrefName - defaultValue: anObject - helpString: aHelpText - localToProject: aBoolean - categoryList: aArrayOfCategories - changeInformee: aSymbol - changeSelector: anotherSymbol - viewRegistry: (SLPreferences viewRegisteryFor: aType). - - ^ aPreference \ No newline at end of file diff --git a/packages/SwaLint-Preferences.package/SLPreferences.class/class/preferenceAt..st b/packages/SwaLint-Preferences.package/SLPreferences.class/class/preferenceAt..st index 227b82b1..71692f61 100644 --- a/packages/SwaLint-Preferences.package/SLPreferences.class/class/preferenceAt..st +++ b/packages/SwaLint-Preferences.package/SLPreferences.class/class/preferenceAt..st @@ -1,5 +1,5 @@ -preference-object access +accessing preferenceAt: aSymbol "Answer the Preference object at the given symbol, or nil if not there" - ^ self dictionaryOfPreferences at:aSymbol ifAbsent:[nil] \ No newline at end of file + ^self preferenceAt: aSymbol ifAbsent: [ nil ] \ No newline at end of file diff --git a/packages/SwaLint-Preferences.package/SLPreferences.class/class/preferenceAt.ifAbsent..st b/packages/SwaLint-Preferences.package/SLPreferences.class/class/preferenceAt.ifAbsent..st index 4a3d3822..bafa4345 100644 --- a/packages/SwaLint-Preferences.package/SLPreferences.class/class/preferenceAt.ifAbsent..st +++ b/packages/SwaLint-Preferences.package/SLPreferences.class/class/preferenceAt.ifAbsent..st @@ -1,5 +1,5 @@ -preference-object access +accessing preferenceAt: aSymbol ifAbsent: aBlock "Answer the Preference object at the given symbol, or the value of aBlock if not present" - ^ self dictionaryOfPreferences at:aSymbol ifAbsent:[aBlock value] \ No newline at end of file + ^preferencesDictionary at: aSymbol ifAbsent: aBlock \ No newline at end of file diff --git a/packages/SwaLint-Preferences.package/SLPreferences.class/class/preferenceObjectsInCategory..st b/packages/SwaLint-Preferences.package/SLPreferences.class/class/preferenceObjectsInCategory..st deleted file mode 100644 index 2bd5a91a..00000000 --- a/packages/SwaLint-Preferences.package/SLPreferences.class/class/preferenceObjectsInCategory..st +++ /dev/null @@ -1,4 +0,0 @@ -preferences panel -preferenceObjectsInCategory: aCategorySymbol - - ^ self preferencesInCategory: aCategorySymbol \ No newline at end of file diff --git a/packages/SwaLint-Preferences.package/SLPreferences.class/class/preferencePragmasOf..st b/packages/SwaLint-Preferences.package/SLPreferences.class/class/preferencePragmasOf..st deleted file mode 100644 index aefde228..00000000 --- a/packages/SwaLint-Preferences.package/SLPreferences.class/class/preferencePragmasOf..st +++ /dev/null @@ -1,11 +0,0 @@ -pragma-preferences -preferencePragmasOf: aClass - - | pragmas | - - pragmas := OrderedCollection new. - aClass methodsDo: [ :aMethod | - pragmas addAll: - (aMethod pragmas select: [ :aPragma | self isPreferencePragma: aPragma ]) ]. - - ^ pragmas \ No newline at end of file diff --git a/packages/SwaLint-Preferences.package/SLPreferences.class/class/preferencesInCategory..st b/packages/SwaLint-Preferences.package/SLPreferences.class/class/preferencesInCategory..st index 04f4540b..6957388f 100644 --- a/packages/SwaLint-Preferences.package/SLPreferences.class/class/preferencesInCategory..st +++ b/packages/SwaLint-Preferences.package/SLPreferences.class/class/preferencesInCategory..st @@ -1,11 +1,7 @@ -preferences panel +support preferencesInCategory: aCategorySymbol - "Answer a list of Preference objects that reside in the given category, in alphabetical order" + "Answer a list of Preference objects that reside in the given category." - ^ (self dictionaryOfPreferences - select:[:aPreference | aPreference categoryList includes:aCategorySymbol]) - asSortedCollection: - [:pref1 :pref2 | - pref1 viewRegistry viewOrder '] - ifFalse: ['']), 'stagger windows' translated \ No newline at end of file diff --git a/packages/SwaLint-Preferences.package/SLPreferences.class/class/standardBalloonHelpFont.st b/packages/SwaLint-Preferences.package/SLPreferences.class/class/standardBalloonHelpFont.st deleted file mode 100644 index dc726a5f..00000000 --- a/packages/SwaLint-Preferences.package/SLPreferences.class/class/standardBalloonHelpFont.st +++ /dev/null @@ -1,3 +0,0 @@ -fonts -standardBalloonHelpFont - ^BalloonMorph balloonFont \ No newline at end of file diff --git a/packages/SwaLint-Preferences.package/SLPreferences.class/class/standardButtonFont.st b/packages/SwaLint-Preferences.package/SLPreferences.class/class/standardButtonFont.st deleted file mode 100644 index fb24a028..00000000 --- a/packages/SwaLint-Preferences.package/SLPreferences.class/class/standardButtonFont.st +++ /dev/null @@ -1,6 +0,0 @@ -fonts -standardButtonFont - "Answer an attractive font to use for buttons" - "Answer the font to be used for textual flap tab labels" - ^ Parameters at: #standardButtonFont ifAbsent: - [Parameters at: #standardButtonFont put: (StrikeFont familyName: #ComicBold size: 16)] \ No newline at end of file diff --git a/packages/SwaLint-Preferences.package/SLPreferences.class/class/standardCodeFont.st b/packages/SwaLint-Preferences.package/SLPreferences.class/class/standardCodeFont.st deleted file mode 100644 index aa13f2a3..00000000 --- a/packages/SwaLint-Preferences.package/SLPreferences.class/class/standardCodeFont.st +++ /dev/null @@ -1,6 +0,0 @@ -fonts -standardCodeFont - "Answer the font to be used in code" - - ^ Parameters at: #standardCodeFont ifAbsent: - [Parameters at: #standardCodeFont put: TextStyle defaultFont] \ No newline at end of file diff --git a/packages/SwaLint-Preferences.package/SLPreferences.class/class/standardDefaultTextFont.st b/packages/SwaLint-Preferences.package/SLPreferences.class/class/standardDefaultTextFont.st deleted file mode 100644 index 39e3b313..00000000 --- a/packages/SwaLint-Preferences.package/SLPreferences.class/class/standardDefaultTextFont.st +++ /dev/null @@ -1,3 +0,0 @@ -fonts -standardDefaultTextFont - ^TextStyle defaultFont \ No newline at end of file diff --git a/packages/SwaLint-Preferences.package/SLPreferences.class/class/standardEToysFont.st b/packages/SwaLint-Preferences.package/SLPreferences.class/class/standardEToysFont.st deleted file mode 100644 index 45d460b2..00000000 --- a/packages/SwaLint-Preferences.package/SLPreferences.class/class/standardEToysFont.st +++ /dev/null @@ -1,6 +0,0 @@ -fonts -standardEToysFont - "Answer the font to be used in the eToys environment" - ^ Parameters - at: #eToysFont - ifAbsent: [Parameters at: #eToysFont put: self standardButtonFont] \ No newline at end of file diff --git a/packages/SwaLint-Preferences.package/SLPreferences.class/class/standardEToysTitleFont.st b/packages/SwaLint-Preferences.package/SLPreferences.class/class/standardEToysTitleFont.st deleted file mode 100644 index 575321e5..00000000 --- a/packages/SwaLint-Preferences.package/SLPreferences.class/class/standardEToysTitleFont.st +++ /dev/null @@ -1,6 +0,0 @@ -fonts -standardEToysTitleFont - "Answer the font to be used in the eToys environment" - ^ Parameters - at: #eToysTitleFont - ifAbsent: [Parameters at: #eToysTitleFont put: self standardEToysFont] \ No newline at end of file diff --git a/packages/SwaLint-Preferences.package/SLPreferences.class/class/standardFlapFont.st b/packages/SwaLint-Preferences.package/SLPreferences.class/class/standardFlapFont.st deleted file mode 100644 index d6cea299..00000000 --- a/packages/SwaLint-Preferences.package/SLPreferences.class/class/standardFlapFont.st +++ /dev/null @@ -1,5 +0,0 @@ -fonts -standardFlapFont - "Answer the font to be used for textual flap tab labels" - ^ Parameters at: #standardFlapFont ifAbsent: - [Parameters at: #standardFlapFont put: self standardButtonFont] \ No newline at end of file diff --git a/packages/SwaLint-Preferences.package/SLPreferences.class/class/standardHaloLabelFont.st b/packages/SwaLint-Preferences.package/SLPreferences.class/class/standardHaloLabelFont.st deleted file mode 100644 index 905b482e..00000000 --- a/packages/SwaLint-Preferences.package/SLPreferences.class/class/standardHaloLabelFont.st +++ /dev/null @@ -1,6 +0,0 @@ -fonts -standardHaloLabelFont - "Answer the font to be used in the eToys environment" - ^ Parameters - at: #haloLabelFont - ifAbsent: [Parameters at: #haloLabelFont put: TextStyle defaultFont] \ No newline at end of file diff --git a/packages/SwaLint-Preferences.package/SLPreferences.class/class/standardListFont.st b/packages/SwaLint-Preferences.package/SLPreferences.class/class/standardListFont.st deleted file mode 100644 index 08bc6ac7..00000000 --- a/packages/SwaLint-Preferences.package/SLPreferences.class/class/standardListFont.st +++ /dev/null @@ -1,6 +0,0 @@ -fonts -standardListFont - "Answer the font to be used in lists" - - ^ Parameters at: #standardListFont ifAbsent: - [Parameters at: #standardListFont put: TextStyle defaultFont] \ No newline at end of file diff --git a/packages/SwaLint-Preferences.package/SLPreferences.class/class/standardMenuFont.st b/packages/SwaLint-Preferences.package/SLPreferences.class/class/standardMenuFont.st deleted file mode 100644 index e56bb32e..00000000 --- a/packages/SwaLint-Preferences.package/SLPreferences.class/class/standardMenuFont.st +++ /dev/null @@ -1,6 +0,0 @@ -fonts -standardMenuFont - "Answer the font to be used in menus" - - ^ Parameters at: #standardMenuFont ifAbsent: - [Parameters at: #standardMenuFont put: TextStyle defaultFont] \ No newline at end of file diff --git a/packages/SwaLint-Preferences.package/SLPreferences.class/class/standardPaintBoxButtonFont.st b/packages/SwaLint-Preferences.package/SLPreferences.class/class/standardPaintBoxButtonFont.st deleted file mode 100644 index 405c9fb4..00000000 --- a/packages/SwaLint-Preferences.package/SLPreferences.class/class/standardPaintBoxButtonFont.st +++ /dev/null @@ -1,6 +0,0 @@ -fonts -standardPaintBoxButtonFont - "Answer the font to be used in the eToys environment" - ^ Parameters - at: #paintBoxButtonFont - ifAbsent: [Parameters at: #paintBoxButtonFont put: self standardButtonFont] \ No newline at end of file diff --git a/packages/SwaLint-Preferences.package/SLPreferences.class/class/storePreferencesIn..st b/packages/SwaLint-Preferences.package/SLPreferences.class/class/storePreferencesIn..st index bea63dbc..4e115528 100644 --- a/packages/SwaLint-Preferences.package/SLPreferences.class/class/storePreferencesIn..st +++ b/packages/SwaLint-Preferences.package/SLPreferences.class/class/storePreferencesIn..st @@ -1,11 +1,17 @@ -personalization +initialization - save/load storePreferencesIn: aFileName - | stream | - #(#Prevailing #PersonalPreferences ) do:[:ea | Parameters removeKey:ea ifAbsent:[]]. - stream := ReferenceStream fileNamed:aFileName. - stream nextPut:Parameters. - stream nextPut:self dictionaryOfPreferences. - Smalltalk isMorphic - ifTrue:[stream nextPut:World fillStyle] - ifFalse:[stream nextPut:DesktopColor]. + | stream prefsSnapshot | + #(Prevailing PersonalPreferences) do: + [:ea | + Parameters removeKey: ea ifAbsent: []]. + stream := ReferenceStream fileNamed: aFileName. + stream nextPut: Parameters. + prefsSnapshot := preferencesDictionary copy. + prefsSnapshot keysAndValuesDo: [:key :pref | + [prefsSnapshot at: key put: pref asPreference] + on: Deprecation do: [ : err | "Ignore preferences which may not be supported anymore."]]. + stream nextPut: prefsSnapshot. + stream nextPut: (Smalltalk isMorphic + ifTrue:[Project current world fillStyle] + ifFalse:[self desktopColor]). stream close \ No newline at end of file diff --git a/packages/SwaLint-Preferences.package/SLPreferences.class/class/storePreferencesToDisk.st b/packages/SwaLint-Preferences.package/SLPreferences.class/class/storePreferencesToDisk.st index f66f1bd9..8bb0a9d5 100644 --- a/packages/SwaLint-Preferences.package/SLPreferences.class/class/storePreferencesToDisk.st +++ b/packages/SwaLint-Preferences.package/SLPreferences.class/class/storePreferencesToDisk.st @@ -1,4 +1,4 @@ -personalization +initialization - save/load storePreferencesToDisk Cursor wait showWhile: [ - [ self storePreferencesIn: 'mySwaLint.prefs' ] on: Error do: [ :ex | self inform: 'there was an error storing your preferences to disk' ]] \ No newline at end of file + [ self storePreferencesIn: 'my.prefs' ] on: Error do: [ :ex | self inform: 'there was an error storing your preferences to disk' ]] \ No newline at end of file diff --git a/packages/SwaLint-Preferences.package/SLPreferences.class/class/textHighlightColor..st b/packages/SwaLint-Preferences.package/SLPreferences.class/class/textHighlightColor..st deleted file mode 100644 index 8d565ac4..00000000 --- a/packages/SwaLint-Preferences.package/SLPreferences.class/class/textHighlightColor..st +++ /dev/null @@ -1,3 +0,0 @@ -text highlighting -textHighlightColor: aColor - Parameters at: #textHighlightColor put: aColor \ No newline at end of file diff --git a/packages/SwaLint-Preferences.package/SLPreferences.class/class/textHighlightColor.st b/packages/SwaLint-Preferences.package/SLPreferences.class/class/textHighlightColor.st deleted file mode 100644 index f49d218f..00000000 --- a/packages/SwaLint-Preferences.package/SLPreferences.class/class/textHighlightColor.st +++ /dev/null @@ -1,3 +0,0 @@ -text highlighting -textHighlightColor - ^ Parameters at: #textHighlightColor \ No newline at end of file diff --git a/packages/SwaLint-Preferences.package/SLPreferences.class/class/themeChoiceButtonOfColor.font..st b/packages/SwaLint-Preferences.package/SLPreferences.class/class/themeChoiceButtonOfColor.font..st deleted file mode 100644 index 7d29f65a..00000000 --- a/packages/SwaLint-Preferences.package/SLPreferences.class/class/themeChoiceButtonOfColor.font..st +++ /dev/null @@ -1,10 +0,0 @@ -misc -themeChoiceButtonOfColor: aColor font: aFont - "Answer a button inviting the user to choose a theme" - - | aButton | - aButton := SimpleButtonMorph new target: self; actionSelector: #offerThemesMenu. - aButton label: 'change theme...' translated font: aFont. - aButton color: aColor. - aButton setBalloonText: 'Numerous "Preferences" govern many things about the way Squeak looks and behaves. Set individual preferences using a "Preferences" panel. Set an entire "theme" of many Preferences all at the same time by pressing this "change theme" button and choosing a theme to install. Look in category "themes" in Preferences class to see what each theme does; add your own methods to the "themes" category and they will show up in the list of theme choices.' translated. - ^ aButton \ No newline at end of file diff --git a/packages/SwaLint-Preferences.package/SLPreferences.class/class/toggle..st b/packages/SwaLint-Preferences.package/SLPreferences.class/class/toggle..st new file mode 100644 index 00000000..4d6ef6be --- /dev/null +++ b/packages/SwaLint-Preferences.package/SLPreferences.class/class/toggle..st @@ -0,0 +1,5 @@ +get/set - flags +toggle: flagName + "Toggle the given preference. prefSymbol must be of a boolean preference" + + ^ self setFlag: flagName toValue: (self valueOfFlag: flagName) not \ No newline at end of file diff --git a/packages/SwaLint-Preferences.package/SLPreferences.class/class/toggleMenuColorPolicy.st b/packages/SwaLint-Preferences.package/SLPreferences.class/class/toggleMenuColorPolicy.st deleted file mode 100644 index abdc7bb8..00000000 --- a/packages/SwaLint-Preferences.package/SLPreferences.class/class/toggleMenuColorPolicy.st +++ /dev/null @@ -1,3 +0,0 @@ -misc -toggleMenuColorPolicy - self togglePreference: #menuColorFromWorld \ No newline at end of file diff --git a/packages/SwaLint-Preferences.package/SLPreferences.class/class/togglePreference..st b/packages/SwaLint-Preferences.package/SLPreferences.class/class/togglePreference..st deleted file mode 100644 index 56abf9c8..00000000 --- a/packages/SwaLint-Preferences.package/SLPreferences.class/class/togglePreference..st +++ /dev/null @@ -1,4 +0,0 @@ -get/set -togglePreference: prefSymbol - "Toggle the given preference. prefSymbol must be of a boolean preference" - (self preferenceAt: prefSymbol ifAbsent: [self error: 'unknown preference: ', prefSymbol]) togglePreferenceValue \ No newline at end of file diff --git a/packages/SwaLint-Preferences.package/SLPreferences.class/class/toggleRoundedCorners.st b/packages/SwaLint-Preferences.package/SLPreferences.class/class/toggleRoundedCorners.st deleted file mode 100644 index b2304a95..00000000 --- a/packages/SwaLint-Preferences.package/SLPreferences.class/class/toggleRoundedCorners.st +++ /dev/null @@ -1,3 +0,0 @@ -misc -toggleRoundedCorners - self togglePreference: #roundedWindowCorners \ No newline at end of file diff --git a/packages/SwaLint-Preferences.package/SLPreferences.class/class/toggleSoundEnabling.st b/packages/SwaLint-Preferences.package/SLPreferences.class/class/toggleSoundEnabling.st deleted file mode 100644 index 8ceea244..00000000 --- a/packages/SwaLint-Preferences.package/SLPreferences.class/class/toggleSoundEnabling.st +++ /dev/null @@ -1,3 +0,0 @@ -misc -toggleSoundEnabling - self togglePreference: #soundsEnabled \ No newline at end of file diff --git a/packages/SwaLint-Preferences.package/SLPreferences.class/class/toggleWindowPolicy.st b/packages/SwaLint-Preferences.package/SLPreferences.class/class/toggleWindowPolicy.st deleted file mode 100644 index 82c3d890..00000000 --- a/packages/SwaLint-Preferences.package/SLPreferences.class/class/toggleWindowPolicy.st +++ /dev/null @@ -1,3 +0,0 @@ -misc -toggleWindowPolicy - self togglePreference: #reverseWindowStagger \ No newline at end of file diff --git a/packages/SwaLint-Preferences.package/SLPreferences.class/class/typeForValue..st b/packages/SwaLint-Preferences.package/SLPreferences.class/class/typeForValue..st new file mode 100644 index 00000000..a8797224 --- /dev/null +++ b/packages/SwaLint-Preferences.package/SLPreferences.class/class/typeForValue..st @@ -0,0 +1,16 @@ +support +typeForValue: anObject + "Returns the preference type for the given value to be distinguished in tools." + + { + AbstractFont -> #Font. + Boolean -> #Boolean. + Color -> #Color. + String -> #String. + Number -> #Number + } do: [:spec | (anObject isKindOf: spec key) ifTrue: [^ spec value]]. + + ^ #Object + + + diff --git a/packages/SwaLint-Preferences.package/SLPreferences.class/class/unclassifiedCategory.st b/packages/SwaLint-Preferences.package/SLPreferences.class/class/unclassifiedCategory.st new file mode 100644 index 00000000..68e96891 --- /dev/null +++ b/packages/SwaLint-Preferences.package/SLPreferences.class/class/unclassifiedCategory.st @@ -0,0 +1,5 @@ +defaults +unclassifiedCategory + "Generic category to be used when no specific alternative is provided." + + ^ #unclassified \ No newline at end of file diff --git a/packages/SwaLint-Preferences.package/SLPreferences.class/class/universalTilesSettingToggled.st b/packages/SwaLint-Preferences.package/SLPreferences.class/class/universalTilesSettingToggled.st deleted file mode 100644 index c5c937ee..00000000 --- a/packages/SwaLint-Preferences.package/SLPreferences.class/class/universalTilesSettingToggled.st +++ /dev/null @@ -1,28 +0,0 @@ -reacting to change -universalTilesSettingToggled - "The current value of the universalTiles flag has changed; now react" - - (self preferenceAt: #universalTiles ifAbsent: [^ self]) localToProject ifFalse: - [^ self inform: -'This is troubling -- you may regret having done that, because -the change will apply to *all projects*, including pre-existing ones. Unfortunately this check is done after the damage is done, so you -may be hosed. Fortunately, however, you can simply reverse your choice right now and perhaps no deep damage will have been done.']. - - self universalTiles "User just switched project to classic tiles" - ifFalse: - [self inform: -'CAUTION -- if you had any scripted objects in -this project that already used universal tiles, -there is no reasonable way to go back to classic -tiles. Recommended course of action in that case: -just toggle this preference right back to true.'] - ifTrue: - [Preferences capitalizedReferences ifFalse: - [Preferences enable: #capitalizedReferences. - self inform: -'Note that the "capitalizedReferences" flag -has now been automatically set to true for -you, since this is required for the use of -universal tiles.']. - World isMorph ifTrue: - [World recreateScripts]] \ No newline at end of file diff --git a/packages/SwaLint-Preferences.package/SLPreferences.class/class/unload.st b/packages/SwaLint-Preferences.package/SLPreferences.class/class/unload.st deleted file mode 100644 index 0b4b9a69..00000000 --- a/packages/SwaLint-Preferences.package/SLPreferences.class/class/unload.st +++ /dev/null @@ -1,6 +0,0 @@ -class initialization -unload - "Unload the receiver from global registries" - - self environment at: #Flaps ifPresent: [:cl | - cl unregisterQuadsWithReceiver: self] \ No newline at end of file diff --git a/packages/SwaLint-Preferences.package/SLPreferences.class/class/useFormsInPaintBox..st b/packages/SwaLint-Preferences.package/SLPreferences.class/class/useFormsInPaintBox..st deleted file mode 100644 index 8296a6f3..00000000 --- a/packages/SwaLint-Preferences.package/SLPreferences.class/class/useFormsInPaintBox..st +++ /dev/null @@ -1,4 +0,0 @@ -paintbox -useFormsInPaintBox: aBoolean - - self setPreference: #useFormsInPaintBox toValue: aBoolean diff --git a/packages/SwaLint-Preferences.package/SLPreferences.class/class/valueOfFlag..st b/packages/SwaLint-Preferences.package/SLPreferences.class/class/valueOfFlag..st index a73f98e5..97a8944d 100644 --- a/packages/SwaLint-Preferences.package/SLPreferences.class/class/valueOfFlag..st +++ b/packages/SwaLint-Preferences.package/SLPreferences.class/class/valueOfFlag..st @@ -1,4 +1,4 @@ -get/set +get/set - flags valueOfFlag: aFlagName "Utility method for all the preferences that are boolean, and for backward compatibility" - ^self valueOfPreference: aFlagName ifAbsent: [false] \ No newline at end of file + ^self valueOfFlag: aFlagName ifAbsent: [false] \ No newline at end of file diff --git a/packages/SwaLint-Preferences.package/SLPreferences.class/class/valueOfFlag.ifAbsent..st b/packages/SwaLint-Preferences.package/SLPreferences.class/class/valueOfFlag.ifAbsent..st index 943b9a5e..dfad9d5e 100644 --- a/packages/SwaLint-Preferences.package/SLPreferences.class/class/valueOfFlag.ifAbsent..st +++ b/packages/SwaLint-Preferences.package/SLPreferences.class/class/valueOfFlag.ifAbsent..st @@ -1,4 +1,4 @@ -get/set +get/set - flags valueOfFlag: aFlagName ifAbsent: booleanValuedBlock "the same as in #valueOfFlag:" - ^self valueOfPreference: aFlagName ifAbsent: booleanValuedBlock \ No newline at end of file + ^self valueOfPreference: aFlagName ifAbsent: booleanValuedBlock. \ No newline at end of file diff --git a/packages/SwaLint-Preferences.package/SLPreferences.class/class/valueOfPreference.ifAbsent..st b/packages/SwaLint-Preferences.package/SLPreferences.class/class/valueOfPreference.ifAbsent..st index 1661655e..b1ea3be6 100644 --- a/packages/SwaLint-Preferences.package/SLPreferences.class/class/valueOfPreference.ifAbsent..st +++ b/packages/SwaLint-Preferences.package/SLPreferences.class/class/valueOfPreference.ifAbsent..st @@ -1,4 +1,4 @@ get/set -valueOfPreference: aPreferenceSymbol ifAbsent: booleanValuedBlock +valueOfPreference: aPreferenceSymbol ifAbsent: block "Answer the value of the given preference" - ^ (self preferenceAt: aPreferenceSymbol ifAbsent: [^ booleanValuedBlock value]) preferenceValue \ No newline at end of file + ^ (self preferenceAt: aPreferenceSymbol ifAbsent: [^ block value]) preferenceValue \ No newline at end of file diff --git a/packages/SwaLint-Preferences.package/SLPreferences.class/class/vectorVocabularySettingChanged.st b/packages/SwaLint-Preferences.package/SLPreferences.class/class/vectorVocabularySettingChanged.st deleted file mode 100644 index 2039b63f..00000000 --- a/packages/SwaLint-Preferences.package/SLPreferences.class/class/vectorVocabularySettingChanged.st +++ /dev/null @@ -1,6 +0,0 @@ -reacting to change -vectorVocabularySettingChanged - "The current value of the useVectorVocabulary flag has changed; now react. No senders, but invoked by the Preference object associated with the #useVectorVocabulary preference." - - Smalltalk isMorphic ifTrue: - [ActiveWorld makeVectorUseConformToPreference] \ No newline at end of file diff --git a/packages/SwaLint-Preferences.package/SLPreferences.class/class/viewRegisteryFor..st b/packages/SwaLint-Preferences.package/SLPreferences.class/class/viewRegisteryFor..st deleted file mode 100644 index 751dff12..00000000 --- a/packages/SwaLint-Preferences.package/SLPreferences.class/class/viewRegisteryFor..st +++ /dev/null @@ -1,10 +0,0 @@ -add preferences -viewRegisteryFor: aSymbol - - ^ ((Dictionary new) - at: #Boolean put: [PreferenceViewRegistry ofBooleanPreferences]; - at: #Color put: [PreferenceViewRegistry ofColorPreferences]; - at: #Font put: [PreferenceViewRegistry ofFontPreferences]; - at: #Numeric put: [PreferenceViewRegistry ofNumericPreferences]; - at: #Text put: [PreferenceViewRegistry ofTextPreferences]; - at: aSymbol) value \ No newline at end of file diff --git a/packages/SwaLint-Preferences.package/SLPreferences.class/class/wantsChangeSetLogging.st b/packages/SwaLint-Preferences.package/SLPreferences.class/class/wantsChangeSetLogging.st index dde4c52c..7329bdc9 100644 --- a/packages/SwaLint-Preferences.package/SLPreferences.class/class/wantsChangeSetLogging.st +++ b/packages/SwaLint-Preferences.package/SLPreferences.class/class/wantsChangeSetLogging.st @@ -1,8 +1,5 @@ -misc +support - misc wantsChangeSetLogging "Answer whether method changes in the receiver should be logged to current change set. This circumlocution avoids such logging for programmatically-compiled methods in Preferences, removing an annoyance" - ^ (Smalltalk - at: #Author - ifAbsent: [^ Utilities authorInitialsPerSe ~= 'programmatic']) - fullNamePerSe ~= 'programmatic' \ No newline at end of file + ^ Utilities authorInitialsPerSe ~= 'programmatic' \ No newline at end of file diff --git a/packages/SwaLint-Preferences.package/SLPreferences.class/class/windowColorFor..st b/packages/SwaLint-Preferences.package/SLPreferences.class/class/windowColorFor..st deleted file mode 100644 index 0017fcf0..00000000 --- a/packages/SwaLint-Preferences.package/SLPreferences.class/class/windowColorFor..st +++ /dev/null @@ -1,11 +0,0 @@ -window colors -windowColorFor: aModelClassName - | classToCheck prefSymbol | - self checkForWindowColors. - classToCheck := Smalltalk at: aModelClassName. - prefSymbol := self windowColorPreferenceForClassNamed: classToCheck name. - [(classToCheck ~~ Object) and: [(self preferenceAt: prefSymbol) isNil]] - whileTrue: - [classToCheck := classToCheck superclass. - prefSymbol := self windowColorPreferenceForClassNamed: classToCheck name]. - ^self valueOfPreference: prefSymbol ifAbsent: [Color white] \ No newline at end of file diff --git a/packages/SwaLint-Preferences.package/SLPreferences.class/class/windowColorHelp.st b/packages/SwaLint-Preferences.package/SLPreferences.class/class/windowColorHelp.st deleted file mode 100644 index ac93251b..00000000 --- a/packages/SwaLint-Preferences.package/SLPreferences.class/class/windowColorHelp.st +++ /dev/null @@ -1,20 +0,0 @@ -window colors -windowColorHelp - "Provide help for the window-color panel" - - | helpString | - helpString := -'The "Window Colors" panel lets you select colors for many kinds of standard Squeak windows. - -You can change your color preference for any particular tool by clicking on the color swatch and then selecting the desired color from the resulting color-picker. - -The three buttons entitled "Bright", "Pastel", and "White" let you revert to any of three different standard color schemes. - -The choices you make in the Window Colors panel only affect the colors of new windows that you open. - -You can make other tools have their colors governed by this panel by simply implementing #windowColorSpecification on the class side of the model -- consult implementors of that method to see examples of how to do this.'. - - (StringHolder new contents: helpString) - openLabel: 'About Window Colors' - - "Preferences windowColorHelp" \ No newline at end of file diff --git a/packages/SwaLint-Preferences.package/SLPreferences.class/class/windowColorPreferenceForClassNamed..st b/packages/SwaLint-Preferences.package/SLPreferences.class/class/windowColorPreferenceForClassNamed..st deleted file mode 100644 index b8f972d2..00000000 --- a/packages/SwaLint-Preferences.package/SLPreferences.class/class/windowColorPreferenceForClassNamed..st +++ /dev/null @@ -1,6 +0,0 @@ -window colors -windowColorPreferenceForClassNamed: aClassName - | aColorSpec wording | - aColorSpec := WindowColorRegistry registeredWindowColorSpecFor: aClassName. - wording := aColorSpec ifNil: [aClassName] ifNotNil: [aColorSpec wording]. - ^(wording, 'WindowColor') asLegalSelector asSymbol \ No newline at end of file diff --git a/packages/SwaLint-Preferences.package/SLPreferences.class/class/windowColorTable.st b/packages/SwaLint-Preferences.package/SLPreferences.class/class/windowColorTable.st deleted file mode 100644 index c647a6c2..00000000 --- a/packages/SwaLint-Preferences.package/SLPreferences.class/class/windowColorTable.st +++ /dev/null @@ -1,8 +0,0 @@ -window colors -windowColorTable - "Answer a list of WindowColorSpec objects, one for each tool to be represented in the window-color panel" - ^ (WindowColorRegistry registeredWindowColorSpecs - asSortedCollection: - [:specOne :specTwo | specOne wording < specTwo wording]) asArray - -"Preferences windowColorTable" \ No newline at end of file diff --git a/packages/SwaLint-Preferences.package/SLPreferences.class/class/windowTitleFont.st b/packages/SwaLint-Preferences.package/SLPreferences.class/class/windowTitleFont.st deleted file mode 100644 index 78852dea..00000000 --- a/packages/SwaLint-Preferences.package/SLPreferences.class/class/windowTitleFont.st +++ /dev/null @@ -1,5 +0,0 @@ -fonts -windowTitleFont - "Answer the standard font to use for window titles" - ^ Parameters at: #windowTitleFont ifAbsent: - [Parameters at: #windowTitleFont put: (StrikeFont familyName: #NewYork size: 15)] \ No newline at end of file diff --git a/packages/SwaLint-Preferences.package/SLPreferences.class/class/windowTitleStyle.st b/packages/SwaLint-Preferences.package/SLPreferences.class/class/windowTitleStyle.st deleted file mode 100644 index b102121d..00000000 --- a/packages/SwaLint-Preferences.package/SLPreferences.class/class/windowTitleStyle.st +++ /dev/null @@ -1,4 +0,0 @@ -fonts -windowTitleStyle - "Answer the standard style to use for window titles" - ^ self windowTitleFont textStyle \ No newline at end of file diff --git a/packages/SwaLint-Preferences.package/SLPreferences.class/instance/seeClassSide.st b/packages/SwaLint-Preferences.package/SLPreferences.class/instance/seeClassSide.st deleted file mode 100644 index 2d45912d..00000000 --- a/packages/SwaLint-Preferences.package/SLPreferences.class/instance/seeClassSide.st +++ /dev/null @@ -1,3 +0,0 @@ -look in class -seeClassSide - "All the code for Preferences is on the class side" \ No newline at end of file diff --git a/packages/SwaLint-Preferences.package/SLPreferences.class/methodProperties.json b/packages/SwaLint-Preferences.package/SLPreferences.class/methodProperties.json index 6f84dd98..f9b93b3d 100644 --- a/packages/SwaLint-Preferences.package/SLPreferences.class/methodProperties.json +++ b/packages/SwaLint-Preferences.package/SLPreferences.class/methodProperties.json @@ -1,245 +1,86 @@ { "class" : { - "acceptAnnotationsFrom:" : "AT 12/4/2007 13:53", - "addBooleanPreference:categories:default:balloonHelp:" : "AT 12/4/2007 13:52", - "addBooleanPreference:categories:default:balloonHelp:projectLocal:changeInformee:changeSelector:" : "AT 12/4/2007 13:52", - "addBooleanPreference:category:default:balloonHelp:" : "AT 12/4/2007 13:52", - "addColorPreference:categories:default:balloonHelp:" : "AT 12/4/2007 13:52", - "addColorPreference:category:default:balloonHelp:" : "AT 12/4/2007 13:52", - "addFontPreference:categories:default:balloonHelp:" : "AT 12/4/2007 13:52", - "addFontPreference:category:default:balloonHelp:" : "AT 12/4/2007 13:52", - "addModelItemsToWindowMenu:" : "AT 12/4/2007 13:53", - "addNumericPreference:categories:default:balloonHelp:" : "AT 12/4/2007 13:52", - "addNumericPreference:category:default:balloonHelp:" : "AT 12/4/2007 13:52", - "addPreference:categories:default:balloonHelp:" : "AT 1/11/2008 10:02", - "addPreference:categories:default:balloonHelp:projectLocal:changeInformee:changeSelector:" : "AT 12/4/2007 13:52", - "addPreference:categories:default:balloonHelp:projectLocal:changeInformee:changeSelector:viewRegistry:" : "AT 12/4/2007 14:12", - "addPreference:category:default:balloonHelp:" : "AT 12/4/2007 13:52", - "addTextPreference:categories:default:balloonHelp:" : "AT 12/4/2007 13:52", - "addTextPreference:category:default:balloonHelp:" : "AT 12/4/2007 13:52", - "allPreferences" : "BD 6/21/2018 20:59", - "annotationEditingWindow" : "AT 12/4/2007 13:53", - "annotationPanesChanged" : "AT 12/4/2007 13:53", - "attemptToRestoreClassicFonts" : "AT 12/4/2007 13:52", - "automaticFlapLayoutString" : "AT 12/4/2007 13:52", - "balloonHelpDelayTime" : "AT 12/4/2007 13:53", - "borderColorWhenRunning" : "AT 12/4/2007 13:53", - "browseThemes" : "AT 12/4/2007 13:53", - "caretWidth" : "AT 12/4/2007 13:53", - "caretWidth:" : "AT 12/4/2007 13:53", - "categoriesContainingPreference:" : "AT 12/4/2007 13:52", - "categoryList" : "BD 5/7/2018 21:44", - "categoryListOfPreference:" : "BD 5/8/2018 11:11", - "categoryNames" : "AT 12/4/2007 13:53", - "checkForWindowColors" : "BD 6/21/2018 21:00", - "chooseBalloonHelpFont" : "AT 12/4/2007 13:52", - "chooseCodeFont" : "AT 12/4/2007 13:52", - "chooseEToysFont" : "AT 12/4/2007 13:52", - "chooseEToysTitleFont" : "AT 12/4/2007 13:52", - "chooseFlapsFont" : "AT 12/4/2007 13:52", - "chooseFontWithPrompt:andSendTo:withSelector:" : "AT 12/4/2007 13:52", - "chooseFontWithPrompt:andSendTo:withSelector:highlight:" : "AT 12/4/2007 13:52", - "chooseHaloLabelFont" : "AT 12/4/2007 13:52", - "chooseInitialSettings" : "BD 6/21/2018 21:00", - "chooseInsertionPointColor" : "AT 12/4/2007 13:53", - "chooseKeyboardFocusColor" : "AT 12/4/2007 13:53", - "chooseListFont" : "AT 12/4/2007 13:52", - "chooseMenuFont" : "AT 12/4/2007 13:52", - "chooseStandardButtonFont" : "AT 12/4/2007 13:52", - "chooseSystemFont" : "AT 12/4/2007 13:52", - "chooseTextHighlightColor" : "AT 12/4/2007 13:53", - "chooseWindowTitleFont" : "AT 12/4/2007 13:52", - "classicHaloSpecs" : "AT 12/4/2007 13:52", - "classicHalosInForce" : "AT 12/4/2007 13:52", - "classicTilesSettingToggled" : "AT 12/4/2007 13:53", - "compileAccessMethodForPreference:" : "topa 7/31/2013 10:54:11.669", - "compileHardCodedPref:enable:" : "AT 12/4/2007 13:53", - "convertPragmaToPreference:" : "MT 7/23/2014 21:03", - "customHaloSpecs" : "AT 12/4/2007 13:52", - "customHalosInForce" : "AT 12/4/2007 13:52", - "darkenStandardWindowPreferences" : "BD 6/21/2018 21:00", - "defaultAnnotationRequests" : "AT 12/4/2007 13:53", - "defaultAnnotationRequests:" : "AT 12/4/2007 13:53", - "defaultAuthorName" : "AT 12/4/2007 13:53", - "defaultPaintingExtent" : "AT 12/4/2007 13:53", - "defaultValueTableForCurrentRelease" : "AT 12/4/2007 13:53", - "defaultWorldColor" : "AT 5/8/2008 12:20", - "desktopColor" : "AT 12/4/2007 13:53", - "desktopColor:" : "AT 12/4/2007 13:53", - "dictionaryOfPreferences" : "AT 12/4/2007 13:52", - "dictionaryOfPreferences:" : "AT 12/4/2007 13:52", - "disable:" : "AT 12/4/2007 13:52", - "disableGently:" : "AT 12/4/2007 13:52", - "displaySizeChanged" : "AT 12/4/2007 13:53", - "doesNotUnderstand:" : "AT 12/4/2007 13:52", - "eToyFriendlyChanged" : "AT 12/4/2007 13:53", - "editAnnotations" : "AT 12/4/2007 13:53", - "editCustomHalos" : "AT 12/4/2007 13:52", - "enable:" : "AT 12/4/2007 13:52", - "enableGently:" : "AT 12/4/2007 13:52", - "enableOrDisable:asPer:" : "AT 12/4/2007 13:52", - "enableProjectNavigator" : "AT 12/4/2007 13:52", - "expungeParameter:" : "AT 12/4/2007 13:53", - "fontConfigurationMenu" : "AT 12/4/2007 13:52", - "fontFactor" : "AT 12/4/2007 13:53", - "giveHelpWithPreferences" : "BD 6/21/2018 21:00", - "haloSpecifications" : "AT 12/4/2007 13:52", - "haloSpecificationsForWorld" : "AT 12/4/2007 13:52", - "iconicHaloSpecifications" : "AT 12/4/2007 13:52", - "iconicHalosInForce" : "AT 12/4/2007 13:52", - "infiniteUndoChanged" : "AT 12/4/2007 13:53", - "initialExtent" : "AT 12/4/2007 13:53", - "initialize" : "MT 7/23/2014 20:59", - "initializeDictionaryOfPreferences" : "MT 7/23/2014 21:00", - "initializeParameters" : "AT 12/4/2007 13:53", - "initializePragmaPreferencesOf:" : "MT 7/23/2014 21:02", - "initializePreferencePanel:in:" : "AT 12/4/2007 13:53", - "initializeTextHighlightingParameters" : "AT 12/4/2007 13:53", - "insertionPointColor" : "AT 12/4/2007 13:53", - "insertionPointColor:" : "AT 12/4/2007 13:53", - "inspectParameters" : "AT 12/4/2007 13:53", - "inspectPreferences" : "AT 12/4/2007 13:53", - "installBrightWindowColors" : "AT 12/4/2007 13:53", - "installClassicHaloSpecs" : "AT 12/4/2007 13:52", - "installCustomHaloSpecs" : "AT 12/4/2007 13:52", - "installHaloSpecsFromArray:" : "AT 12/4/2007 13:52", - "installHaloTheme:" : "AT 12/4/2007 13:52", - "installIconicHaloSpecs" : "AT 12/4/2007 13:52", - "installMissingWindowColors" : "AT 12/4/2007 13:53", - "installPastelWindowColors" : "AT 12/4/2007 13:53", - "installSimpleHaloSpecs" : "AT 12/4/2007 13:52", - "installTheme:" : "AT 12/4/2007 13:53", - "installUniformWindowColors" : "AT 12/4/2007 13:53", - "installWindowColorsVia:" : "AT 12/4/2007 13:53", - "isPreferencePragma:" : "MT 7/23/2014 21:07", - "keyboardFocusColor" : "AT 12/4/2007 13:53", - "keyboardFocusColor:" : "AT 12/4/2007 13:53", - "largeTilesSettingToggled" : "AT 12/4/2007 13:53", - "letUserPersonalizeMenu" : "AT 12/4/2007 13:53", - "lightenStandardWindowPreferences" : "BD 6/21/2018 21:00", - "listOfCategories" : "pre 12/7/2017 13:50", - "loadPreferencesFrom:" : "AT 12/4/2007 13:53", - "localeChanged" : "AT 12/4/2007 13:53", - "maxBalloonHelpLineLength" : "AT 12/4/2007 13:53", - "menuBorderColor" : "BD 6/29/2018 12:03", - "menuBorderWidth" : "AT 12/4/2007 13:53", - "menuColor" : "BD 6/29/2018 12:04", - "menuColorString" : "AT 12/4/2007 13:53", - "menuLineColor" : "BD 4/27/2018 14:25", - "menuSelectionColor" : "AT 12/4/2007 13:53", - "menuTitleBorderColor" : "BD 6/29/2018 12:04", - "menuTitleBorderWidth" : "AT 12/4/2007 13:53", - "menuTitleColor" : "BD 6/29/2018 12:04", - "mouseOverHalosChanged" : "AT 12/4/2007 13:53", - "navigatorShowingString" : "AT 12/4/2007 13:52", - "noviceModeSettingChanged" : "AT 12/4/2007 13:53", - "offerThemesMenu" : "AT 12/4/2007 13:53", - "okayToChangeProjectLocalnessOf:" : "AT 12/4/2007 13:53", - "optionalButtonsChanged" : "AT 12/4/2007 13:53", - "outOfTheBox" : "AT 12/4/2007 13:53", - "parameterAt:" : "AT 12/4/2007 13:53", - "parameterAt:default:" : "AT 12/4/2007 13:53", - "parameterAt:ifAbsent:" : "AT 12/4/2007 13:53", - "parameterAt:ifAbsentPut:" : "AT 12/4/2007 13:53", - "personal" : "AT 12/4/2007 13:53", - "personalizeUserMenu:" : "AT 12/4/2007 13:53", - "preference:type:categories:defaultValue:helpText:" : "MT 7/23/2014 21:55", - "preference:type:categories:defaultValue:helpText:projectLocal:changeInformee:changeSelector:" : "MT 7/23/2014 21:55", - "preferenceAt:" : "AT 12/4/2007 13:53", - "preferenceAt:ifAbsent:" : "BD 5/7/2018 15:26", - "preferenceObjectsInCategory:" : "pre 12/7/2017 13:53", - "preferencePragmasOf:" : "MT 7/23/2014 21:09", - "preferencesInCategory:" : "pre 12/7/2017 13:53", - "printStandardSystemFonts" : "AT 12/4/2007 13:52", - "refreshFontSettings" : "AT 12/4/2007 13:52", - "registerInFlapsRegistry" : "AT 12/4/2007 13:56", - "removeAllPreferences" : "topa 4/22/2010 17:33", - "removeObsolete" : "AT 12/4/2007 14:13", - "removePragmaPreferencesOf:" : "MT 7/23/2014 21:10", - "removePreference:" : "topa 4/22/2010 17:33", - "resetHaloSpecifications" : "AT 12/4/2007 13:52", - "restoreDefaultFonts" : "AT 12/4/2007 13:52", - "restoreDefaultFontsForJapanese" : "AT 12/4/2007 13:52", - "restoreDefaultMenuParameters" : "BD 6/29/2018 12:05", - "restorePersonalPreferences" : "AT 1/8/2008 13:41", - "restorePreferencesFromDisk" : "AT 1/8/2008 13:41", - "roundedCornersString" : "AT 12/4/2007 13:53", - "roundedWindowCornersChanged" : "AT 12/4/2007 13:53", - "savePersonalPreferences" : "AT 1/8/2008 13:41", - "scrollBarColor" : "AT 12/4/2007 13:53", - "scrollBarWidth" : "AT 12/4/2007 13:53", - "setArrowheads" : "AT 12/4/2007 13:53", - "setBalloonHelpFontTo:" : "AT 12/4/2007 13:52", - "setButtonFontTo:" : "AT 12/4/2007 13:52", - "setCodeFontTo:" : "AT 12/4/2007 13:52", - "setDefaultAnnotationInfo" : "AT 12/4/2007 13:53", - "setDefaultFonts:" : "AT 12/4/2007 13:52", - "setDemoFonts" : "AT 12/4/2007 13:52", - "setEToysFontTo:" : "AT 12/4/2007 13:52", - "setEToysTitleFontTo:" : "AT 12/4/2007 13:52", - "setFlag:toValue:during:" : "AT 12/4/2007 13:53", - "setFlapsFontTo:" : "AT 12/4/2007 13:52", - "setHaloLabelFontTo:" : "AT 12/4/2007 13:52", - "setListFontTo:" : "AT 12/4/2007 13:52", - "setMenuFontTo:" : "AT 12/4/2007 13:52", - "setNotificationParametersForStandardPreferences" : "AT 12/4/2007 13:53", - "setPaintBoxButtonFontTo:" : "AT 12/4/2007 13:52", - "setParameter:to:" : "AT 12/4/2007 13:53", - "setPreference:toValue:" : "AT 12/4/2007 13:52", - "setPreferencesFrom:" : "AT 12/4/2007 13:53", - "setSystemFontTo:" : "AT 12/4/2007 13:52", - "setWindowColorFor:to:" : "AT 12/4/2007 13:53", - "setWindowTitleFontTo:" : "AT 12/4/2007 13:52", - "sharedFlapsSettingChanged" : "AT 12/4/2007 13:53", - "showChooseGraphicHaloHandle" : "AT 12/4/2007 13:52", - "showProjectNavigatorChanged" : "AT 12/4/2007 13:53", - "simpleFullHaloSpecifications" : "AT 12/4/2007 13:52", - "simpleHalosInForce" : "AT 12/4/2007 13:52", - "smallLand" : "AT 12/4/2007 13:53", - "smallLandBigFonts" : "AT 12/4/2007 13:53", - "smallLandFonts" : "AT 12/4/2007 13:53", - "smallLandPreferences" : "AT 12/4/2007 13:53", - "smallLandSmallFonts" : "AT 12/4/2007 13:53", - "smallLandTinyFonts" : "AT 12/4/2007 13:53", - "smartUpdatingChanged" : "AT 12/4/2007 13:53", - "soundEnablingString" : "AT 12/4/2007 13:53", - "staggerPolicyString" : "AT 12/4/2007 13:53", - "standardBalloonHelpFont" : "AT 12/4/2007 13:52", - "standardButtonFont" : "AT 12/4/2007 13:52", - "standardCodeFont" : "AT 12/4/2007 13:52", - "standardDefaultTextFont" : "AT 12/4/2007 13:52", - "standardEToysFont" : "AT 12/4/2007 13:52", - "standardEToysTitleFont" : "AT 12/4/2007 13:52", - "standardFlapFont" : "AT 12/4/2007 13:52", - "standardHaloLabelFont" : "AT 12/4/2007 13:52", - "standardListFont" : "AT 12/4/2007 13:52", - "standardMenuFont" : "AT 12/4/2007 13:52", - "standardPaintBoxButtonFont" : "AT 12/4/2007 13:52", - "storePreferencesIn:" : "AT 12/4/2007 13:53", - "storePreferencesToDisk" : "AT 1/8/2008 13:41", - "textHighlightColor" : "AT 12/4/2007 13:53", - "textHighlightColor:" : "AT 12/4/2007 13:53", - "themeChoiceButtonOfColor:font:" : "AT 12/4/2007 13:53", - "toggleMenuColorPolicy" : "AT 12/4/2007 13:53", - "togglePreference:" : "AT 12/4/2007 13:52", - "toggleRoundedCorners" : "AT 12/4/2007 13:53", - "toggleSoundEnabling" : "AT 12/4/2007 13:53", - "toggleWindowPolicy" : "AT 12/4/2007 13:53", - "universalTilesSettingToggled" : "AT 12/4/2007 13:53", - "unload" : "AT 12/4/2007 13:52", - "useFormsInPaintBox:" : "AT 12/4/2007 13:53", - "valueOfFlag:" : "AT 5/8/2008 12:20", - "valueOfFlag:ifAbsent:" : "AT 5/8/2008 12:20", - "valueOfPreference:" : "AT 12/4/2007 13:52", - "valueOfPreference:ifAbsent:" : "AT 12/4/2007 13:52", - "vectorVocabularySettingChanged" : "AT 12/4/2007 13:53", - "viewRegisteryFor:" : "AT 5/8/2008 12:20", - "wantsChangeSetLogging" : "tfel 4/6/2012 12:41", - "windowColorFor:" : "AT 5/8/2008 12:20", - "windowColorHelp" : "AT 12/4/2007 13:53", - "windowColorPreferenceForClassNamed:" : "AT 5/8/2008 12:19", - "windowColorTable" : "AT 5/8/2008 12:19", - "windowTitleFont" : "AT 12/4/2007 13:52", - "windowTitleStyle" : "AT 12/4/2007 13:52" }, + "addBooleanPreference:categories:default:balloonHelp:" : "mt 8/26/2015 17:26", + "addBooleanPreference:categories:default:balloonHelp:projectLocal:changeInformee:changeSelector:" : "ct 12/13/2024 03:40", + "addBooleanPreference:category:default:balloonHelp:" : "mt 8/26/2015 17:26", + "addColorPreference:categories:default:balloonHelp:" : "mt 8/26/2015 17:25", + "addColorPreference:category:default:balloonHelp:" : "mt 8/26/2015 17:25", + "addFontPreference:categories:default:balloonHelp:" : "mt 8/26/2015 17:25", + "addFontPreference:category:default:balloonHelp:" : "mt 8/26/2015 17:25", + "addModelItemsToWindowMenu:" : "mt 3/5/2020 12:45", + "addNumericPreference:categories:default:balloonHelp:" : "mt 8/26/2015 17:25", + "addNumericPreference:category:default:balloonHelp:" : "mt 8/26/2015 17:25", + "addPragmaPreference:" : "ct 12/13/2024 04:37", + "addPreference:categories:default:balloonHelp:" : "mt 8/26/2015 17:25", + "addPreference:categories:default:balloonHelp:projectLocal:changeInformee:changeSelector:" : "mt 8/26/2015 17:25", + "addPreference:categories:default:balloonHelp:projectLocal:changeInformee:changeSelector:type:" : "ct 10/4/2025 02:31", + "addPreference:category:default:" : "mt 8/26/2015 17:25", + "addPreference:category:default:balloonHelp:" : "mt 8/26/2015 17:25", + "addPreference:default:" : "mt 8/27/2015 09:03", + "addTextPreference:categories:default:balloonHelp:" : "mt 8/26/2015 17:25", + "addTextPreference:category:default:balloonHelp:" : "mt 8/26/2015 17:25", + "allPreferences" : "mt 8/6/2019 09:30", + "atomicUpdatePreferences:" : "ul 7/1/2015 13:01", + "categoryList" : "ct 11/22/2021 18:44", + "categoryListOfPreference:" : "mt 8/27/2015 09:09", + "chooseInitialSettings" : "mt 8/27/2015 10:42", + "cleanUp:" : "ct 5/20/2022 18:01", + "cleanUpPragmaPreferences" : "ct 5/20/2022 17:15", + "compileAccessorForPreference:" : "ul 4/14/2021 12:15", + "compileAccessorForPreferenceNamed:value:" : "mt 8/27/2015 09:28", + "dictionaryOfPreferences" : "eem 6/30/2015 15:21", + "disable:" : "mt 8/26/2015 17:34", + "doesNotUnderstand:" : "topa 8/27/2015 23:45", + "enable:" : "mt 8/26/2015 17:34", + "expungeParameter:" : "sw 5/16/2003 00:27", + "fileReaderServicesForFile:suffix:" : "kfr 4/28/2015 06:59", + "initialize" : "ct 12/13/2024 03:53", + "initializeDictionaryOfPreferences" : "ct 12/13/2024 03:54", + "initializeParameters" : "ct 12/13/2024 03:57", + "inspectParameters" : "sw 1/24/2001 21:44", + "inspectPreferences" : "ct 12/13/2024 04:12", + "isChangeSelector:" : "bf 3/10/2016 17:40", + "loadPreferencesFrom:" : "mt 12/31/2021 15:05", + "okayToChangeProjectLocalnessOf:" : "sw 4/24/2001 12:02", + "parameterAt:" : "sw 1/27/2000 23:02", + "parameterAt:ifAbsent:" : "ul 8/2/2011 20:07", + "parameterAt:ifAbsentPut:" : "sw 9/28/2001 08:40", + "parameters" : "ct 12/13/2024 03:58", + "pragmaIdFor:getter:" : "ct 4/6/2022 21:04", + "pragmaPreferenceFor:getter:" : "ct 4/6/2022 21:05", + "prefEvent:" : "ct 12/13/2024 04:35", + "preferenceAt:" : "ul 1/10/2011 16:22", + "preferenceAt:ifAbsent:" : "eem 6/30/2015 15:22", + "preferencesInCategory:" : "mt 3/23/2022 09:36", + "registerForEvents" : "ct 12/13/2024 04:34", + "removeAllPreferencesSuchThat:" : "mt 8/26/2015 16:58", + "removeObsolete" : "ct 12/13/2024 03:55", + "removePreference:" : "mt 8/26/2015 17:26", + "resetDefaultValues" : "ct 5/20/2022 18:02", + "restorePersonalPreferences" : "ul 12/12/2009 14:07", + "restorePreferencesFromDisk" : "nk 11/17/2002 12:07", + "restorePreferencesFromDisk:" : "kfr 1/9/2015 13:48", + "savePersonalPreferences" : "eem 6/30/2015 15:23", + "serviceLoadPreferencesFromDisk" : "ct 12/13/2024 04:11", + "services" : "kfr 4/28/2015 06:49", + "setFlag:toValue:" : "mt 8/26/2015 17:34", + "setFlag:toValue:during:" : "ct 2/3/2020 23:50", + "setParameter:to:" : "stp 01/13/2000 13:29", + "setPreference:toValue:" : "mt 8/26/2015 17:23", + "setPreference:toValue:during:" : "mt 11/4/2020 11:46", + "setPreferencesFrom:" : "ct 12/13/2024 03:55", + "slpreference:category:description:type:" : "ct 12/13/2024 04:17", + "slpreference:categoryList:description:type:" : "ct 12/13/2024 05:11", + "slpreference:categoryList:description:type:changeInformee:changeSelector:" : "ct 12/19/2024 03:39", + "storePreferencesIn:" : "mt 11/22/2021 11:30", + "storePreferencesToDisk" : "nk 11/17/2002 12:08", + "toggle:" : "mt 8/26/2015 17:40", + "typeForValue:" : "mt 8/26/2015 15:20", + "unclassifiedCategory" : "mt 8/27/2015 09:02", + "valueOfFlag:" : "mt 8/26/2015 17:14", + "valueOfFlag:ifAbsent:" : "hpt 9/26/2004 16:48", + "valueOfPreference:" : "hpt 9/26/2004 16:49", + "valueOfPreference:ifAbsent:" : "mt 8/26/2015 17:04", + "wantsChangeSetLogging" : "sw 8/29/2000 16:12" }, "instance" : { - "seeClassSide" : "AT 12/4/2007 13:52" } } + } } diff --git a/packages/SwaLint-Preferences.package/SLPreferences.class/properties.json b/packages/SwaLint-Preferences.package/SLPreferences.class/properties.json index 2cb138a1..f9b1afc4 100644 --- a/packages/SwaLint-Preferences.package/SLPreferences.class/properties.json +++ b/packages/SwaLint-Preferences.package/SLPreferences.class/properties.json @@ -1,12 +1,10 @@ { "category" : "SwaLint-Preferences-Common", "classinstvars" : [ - "DesktopColor", - "DictionaryOfPreferences", - "Parameters" ], + "preferencesDictionary" ], "classvars" : [ - ], - "commentStamp" : "AT 2/8/2008 12:04", + "Parameters" ], + "commentStamp" : "ct 10/4/2025 02:32", "instvars" : [ ], "name" : "SLPreferences", diff --git a/packages/SwaLint-Slime-Grease.package/.squot-contents b/packages/SwaLint-Slime-Grease.package/.squot-contents deleted file mode 100644 index 4ad0c330..00000000 --- a/packages/SwaLint-Slime-Grease.package/.squot-contents +++ /dev/null @@ -1,4 +0,0 @@ -SquotTrackedObjectMetadata { - #objectClassName : #PackageInfo, - #serializer : #SquotCypressCodeSerializer -} \ No newline at end of file diff --git a/packages/SwaLint-Slime-Grease.package/monticello.meta/package b/packages/SwaLint-Slime-Grease.package/monticello.meta/package deleted file mode 100644 index 1c3f6edf..00000000 --- a/packages/SwaLint-Slime-Grease.package/monticello.meta/package +++ /dev/null @@ -1 +0,0 @@ -(name 'SwaLint-Slime-Grease') \ No newline at end of file diff --git a/packages/SwaLint-Slime-Grease.package/monticello.meta/version b/packages/SwaLint-Slime-Grease.package/monticello.meta/version deleted file mode 100644 index 02a0fbaa..00000000 --- a/packages/SwaLint-Slime-Grease.package/monticello.meta/version +++ /dev/null @@ -1 +0,0 @@ -(name 'SwaLint-Slime-Grease-topa.1' message 'Package Slime/Grease Plugin separately' id 'e059bb97-f855-4984-9153-35e6941cb993' date '18 May 2015' time '8:38:52.652 am' author 'topa' ancestors () stepChildren ()) \ No newline at end of file diff --git a/packages/SwaLint-Slime-Seaside.package/.squot-contents b/packages/SwaLint-Slime-Seaside.package/.squot-contents deleted file mode 100644 index 4ad0c330..00000000 --- a/packages/SwaLint-Slime-Seaside.package/.squot-contents +++ /dev/null @@ -1,4 +0,0 @@ -SquotTrackedObjectMetadata { - #objectClassName : #PackageInfo, - #serializer : #SquotCypressCodeSerializer -} \ No newline at end of file diff --git a/packages/SwaLint-Slime-Seaside.package/monticello.meta/package b/packages/SwaLint-Slime-Seaside.package/monticello.meta/package deleted file mode 100644 index bf24d81c..00000000 --- a/packages/SwaLint-Slime-Seaside.package/monticello.meta/package +++ /dev/null @@ -1 +0,0 @@ -(name 'SwaLint-Slime-Seaside') \ No newline at end of file diff --git a/packages/SwaLint-Slime-Seaside.package/monticello.meta/version b/packages/SwaLint-Slime-Seaside.package/monticello.meta/version deleted file mode 100644 index 2c26b909..00000000 --- a/packages/SwaLint-Slime-Seaside.package/monticello.meta/version +++ /dev/null @@ -1 +0,0 @@ -(name 'SwaLint-Slime-Seaside-topa.1' message 'Package Slime/Seaside Plugin separately' id 'c5ac2cdd-63c7-4893-98cc-ee251564316d' date '18 May 2015' time '8:39:05.917 am' author 'topa' ancestors () stepChildren ()) \ No newline at end of file diff --git a/packages/SwaLint-Tests.package/.squot-contents b/packages/SwaLint-Tests.package/.squot-contents deleted file mode 100644 index 4ad0c330..00000000 --- a/packages/SwaLint-Tests.package/.squot-contents +++ /dev/null @@ -1,4 +0,0 @@ -SquotTrackedObjectMetadata { - #objectClassName : #PackageInfo, - #serializer : #SquotCypressCodeSerializer -} \ No newline at end of file diff --git a/packages/SwaLint-Tests.package/SLAutoLintTest.class/instance/setUp.st b/packages/SwaLint-Tests.package/SLAutoLintTest.class/instance/setUp.st index 261caa2d..330e5269 100644 --- a/packages/SwaLint-Tests.package/SLAutoLintTest.class/instance/setUp.st +++ b/packages/SwaLint-Tests.package/SLAutoLintTest.class/instance/setUp.st @@ -1,4 +1,4 @@ -as yet unclassified +running setUp self automaticUpdateClass: diff --git a/packages/SwaLint-Tests.package/SLAutoLintTest.class/instance/tearDown.st b/packages/SwaLint-Tests.package/SLAutoLintTest.class/instance/tearDown.st index d9d2e516..dc3ebb1b 100644 --- a/packages/SwaLint-Tests.package/SLAutoLintTest.class/instance/tearDown.st +++ b/packages/SwaLint-Tests.package/SLAutoLintTest.class/instance/tearDown.st @@ -1,4 +1,4 @@ -as yet unclassified +tests tearDown self automaticUpdateClass ifNotNil: [self automaticUpdateClass removeFromSystem]. diff --git a/packages/SwaLint-Tests.package/SLAutoLintTest.class/instance/testAutomaticUpdate.st b/packages/SwaLint-Tests.package/SLAutoLintTest.class/instance/testAutomaticUpdate.st index 6e94c9a5..ed6d441b 100644 --- a/packages/SwaLint-Tests.package/SLAutoLintTest.class/instance/testAutomaticUpdate.st +++ b/packages/SwaLint-Tests.package/SLAutoLintTest.class/instance/testAutomaticUpdate.st @@ -1,4 +1,4 @@ -as yet unclassified +tests testAutomaticUpdate |classes tests autoLinter| diff --git a/packages/SwaLint-Tests.package/SLAutoLintTest.class/instance/testBuilding.st b/packages/SwaLint-Tests.package/SLAutoLintTest.class/instance/testBuilding.st index ef2f8241..32600677 100644 --- a/packages/SwaLint-Tests.package/SLAutoLintTest.class/instance/testBuilding.st +++ b/packages/SwaLint-Tests.package/SLAutoLintTest.class/instance/testBuilding.st @@ -1,8 +1,8 @@ -as yet unclassified +tests testBuilding |classes tests autoLinter| classes := {self automaticUpdateClass} asSet. tests := {SLTestData newFromArray: {#unreferencedVariable: . '' . '' . ''. SLSwaMetricsPlugIn} plugIn: SLSwaMetricsPlugInTest} asSet. autoLinter := SLTestAutoRunner on: classes with: tests calledBy: nil reopens: nil. - autoLinter window closeBoxHit. \ No newline at end of file + autoLinter changed: #close. \ No newline at end of file diff --git a/packages/SwaLint-Tests.package/SLAutoLintTest.class/methodProperties.json b/packages/SwaLint-Tests.package/SLAutoLintTest.class/methodProperties.json index 944811c2..3050b3f1 100644 --- a/packages/SwaLint-Tests.package/SLAutoLintTest.class/methodProperties.json +++ b/packages/SwaLint-Tests.package/SLAutoLintTest.class/methodProperties.json @@ -8,4 +8,4 @@ "setUp" : "BD 7/13/2018 10:44", "tearDown" : "BD 7/13/2018 10:44", "testAutomaticUpdate" : "BD 7/13/2018 10:43", - "testBuilding" : "BD 7/13/2018 10:43" } } + "testBuilding" : "ct 12/20/2024 00:19" } } diff --git a/packages/SwaLint-Tests.package/SLClassMetricsPluginTest.class/instance/testAvgLOCperMethod.st b/packages/SwaLint-Tests.package/SLClassMetricsPluginTest.class/instance/testAvgLOCperMethod.st index 602ea4da..20e9ee41 100644 --- a/packages/SwaLint-Tests.package/SLClassMetricsPluginTest.class/instance/testAvgLOCperMethod.st +++ b/packages/SwaLint-Tests.package/SLClassMetricsPluginTest.class/instance/testAvgLOCperMethod.st @@ -1,4 +1,4 @@ -testing +tests testAvgLOCperMethod self diff --git a/packages/SwaLint-Tests.package/SLClassMetricsPluginTest.class/instance/testBaseClassOverridingRatio.st b/packages/SwaLint-Tests.package/SLClassMetricsPluginTest.class/instance/testBaseClassOverridingRatio.st index 9101eaa6..eedb10eb 100644 --- a/packages/SwaLint-Tests.package/SLClassMetricsPluginTest.class/instance/testBaseClassOverridingRatio.st +++ b/packages/SwaLint-Tests.package/SLClassMetricsPluginTest.class/instance/testBaseClassOverridingRatio.st @@ -1,4 +1,4 @@ -testing +tests testBaseClassOverridingRatio self diff --git a/packages/SwaLint-Tests.package/SLClassMetricsPluginTest.class/instance/testBaseClassUsageRatio.st b/packages/SwaLint-Tests.package/SLClassMetricsPluginTest.class/instance/testBaseClassUsageRatio.st index 55b1b714..22b8f7bb 100644 --- a/packages/SwaLint-Tests.package/SLClassMetricsPluginTest.class/instance/testBaseClassUsageRatio.st +++ b/packages/SwaLint-Tests.package/SLClassMetricsPluginTest.class/instance/testBaseClassUsageRatio.st @@ -1,4 +1,4 @@ -testing +tests testBaseClassUsageRatio | objects tests | diff --git a/packages/SwaLint-Tests.package/SLClassMetricsPluginTest.class/instance/testClassLOC.st b/packages/SwaLint-Tests.package/SLClassMetricsPluginTest.class/instance/testClassLOC.st index 84c79e84..86d89fe3 100644 --- a/packages/SwaLint-Tests.package/SLClassMetricsPluginTest.class/instance/testClassLOC.st +++ b/packages/SwaLint-Tests.package/SLClassMetricsPluginTest.class/instance/testClassLOC.st @@ -1,4 +1,4 @@ -testing +tests testClassLOC self diff --git a/packages/SwaLint-Tests.package/SLClassMetricsPluginTest.class/instance/testCompareNumberOfMethods.st b/packages/SwaLint-Tests.package/SLClassMetricsPluginTest.class/instance/testCompareNumberOfMethods.st index 59f83640..905f037d 100644 --- a/packages/SwaLint-Tests.package/SLClassMetricsPluginTest.class/instance/testCompareNumberOfMethods.st +++ b/packages/SwaLint-Tests.package/SLClassMetricsPluginTest.class/instance/testCompareNumberOfMethods.st @@ -1,4 +1,4 @@ -testing +tests testCompareNumberOfMethods | objects tests | diff --git a/packages/SwaLint-Tests.package/SLClassMetricsPluginTest.class/instance/testCompareWeightedMethodCount.st b/packages/SwaLint-Tests.package/SLClassMetricsPluginTest.class/instance/testCompareWeightedMethodCount.st index e6914bff..0d197a50 100644 --- a/packages/SwaLint-Tests.package/SLClassMetricsPluginTest.class/instance/testCompareWeightedMethodCount.st +++ b/packages/SwaLint-Tests.package/SLClassMetricsPluginTest.class/instance/testCompareWeightedMethodCount.st @@ -1,4 +1,4 @@ -testing +tests testCompareWeightedMethodCount | object tests | object := SLFixtureClassBase as: SLTestObject. diff --git a/packages/SwaLint-Tests.package/SLClassMetricsPluginTest.class/instance/testHeightOfInheritanceTree.st b/packages/SwaLint-Tests.package/SLClassMetricsPluginTest.class/instance/testHeightOfInheritanceTree.st index 3d19e69b..5206a4ad 100644 --- a/packages/SwaLint-Tests.package/SLClassMetricsPluginTest.class/instance/testHeightOfInheritanceTree.st +++ b/packages/SwaLint-Tests.package/SLClassMetricsPluginTest.class/instance/testHeightOfInheritanceTree.st @@ -1,4 +1,4 @@ -testing +tests testHeightOfInheritanceTree self diff --git a/packages/SwaLint-Tests.package/SLClassMetricsPluginTest.class/instance/testMethodsNeedAttention.st b/packages/SwaLint-Tests.package/SLClassMetricsPluginTest.class/instance/testMethodsNeedAttention.st index 39fc4d1b..5e13ccc0 100644 --- a/packages/SwaLint-Tests.package/SLClassMetricsPluginTest.class/instance/testMethodsNeedAttention.st +++ b/packages/SwaLint-Tests.package/SLClassMetricsPluginTest.class/instance/testMethodsNeedAttention.st @@ -1,4 +1,4 @@ -testing +tests testMethodsNeedAttention self diff --git a/packages/SwaLint-Tests.package/SLClassMetricsPluginTest.class/instance/testNumberOfAccessorMethods.st b/packages/SwaLint-Tests.package/SLClassMetricsPluginTest.class/instance/testNumberOfAccessorMethods.st index 6a8d4305..6bf68d4f 100644 --- a/packages/SwaLint-Tests.package/SLClassMetricsPluginTest.class/instance/testNumberOfAccessorMethods.st +++ b/packages/SwaLint-Tests.package/SLClassMetricsPluginTest.class/instance/testNumberOfAccessorMethods.st @@ -1,4 +1,4 @@ -testing +tests testNumberOfAccessorMethods self diff --git a/packages/SwaLint-Tests.package/SLClassMetricsPluginTest.class/instance/testNumberOfAddedServices.st b/packages/SwaLint-Tests.package/SLClassMetricsPluginTest.class/instance/testNumberOfAddedServices.st index 2a429584..37153081 100644 --- a/packages/SwaLint-Tests.package/SLClassMetricsPluginTest.class/instance/testNumberOfAddedServices.st +++ b/packages/SwaLint-Tests.package/SLClassMetricsPluginTest.class/instance/testNumberOfAddedServices.st @@ -1,4 +1,4 @@ -testing +tests testNumberOfAddedServices self test: #classNAS: diff --git a/packages/SwaLint-Tests.package/SLClassMetricsPluginTest.class/instance/testNumberOfClassMethods.st b/packages/SwaLint-Tests.package/SLClassMetricsPluginTest.class/instance/testNumberOfClassMethods.st index 3a0b2819..ce81a5ef 100644 --- a/packages/SwaLint-Tests.package/SLClassMetricsPluginTest.class/instance/testNumberOfClassMethods.st +++ b/packages/SwaLint-Tests.package/SLClassMetricsPluginTest.class/instance/testNumberOfClassMethods.st @@ -1,4 +1,4 @@ -testing +tests testNumberOfClassMethods self diff --git a/packages/SwaLint-Tests.package/SLClassMetricsPluginTest.class/instance/testNumberOfInstanceMethods.st b/packages/SwaLint-Tests.package/SLClassMetricsPluginTest.class/instance/testNumberOfInstanceMethods.st index ffd86005..b5d99bf1 100644 --- a/packages/SwaLint-Tests.package/SLClassMetricsPluginTest.class/instance/testNumberOfInstanceMethods.st +++ b/packages/SwaLint-Tests.package/SLClassMetricsPluginTest.class/instance/testNumberOfInstanceMethods.st @@ -1,4 +1,4 @@ -testing +tests testNumberOfInstanceMethods self diff --git a/packages/SwaLint-Tests.package/SLClassMetricsPluginTest.class/instance/testNumberOfMethods.st b/packages/SwaLint-Tests.package/SLClassMetricsPluginTest.class/instance/testNumberOfMethods.st index 33f2b8f3..99b8d8fb 100644 --- a/packages/SwaLint-Tests.package/SLClassMetricsPluginTest.class/instance/testNumberOfMethods.st +++ b/packages/SwaLint-Tests.package/SLClassMetricsPluginTest.class/instance/testNumberOfMethods.st @@ -1,4 +1,4 @@ -testing +tests testNumberOfMethods self diff --git a/packages/SwaLint-Tests.package/SLClassMetricsPluginTest.class/instance/testNumberOfProtectedMethods.st b/packages/SwaLint-Tests.package/SLClassMetricsPluginTest.class/instance/testNumberOfProtectedMethods.st index 7c45f071..5bb01a93 100644 --- a/packages/SwaLint-Tests.package/SLClassMetricsPluginTest.class/instance/testNumberOfProtectedMethods.st +++ b/packages/SwaLint-Tests.package/SLClassMetricsPluginTest.class/instance/testNumberOfProtectedMethods.st @@ -1,4 +1,4 @@ -testing +tests testNumberOfProtectedMethods self diff --git a/packages/SwaLint-Tests.package/SLClassMetricsPluginTest.class/instance/testWeightedMethodCount.st b/packages/SwaLint-Tests.package/SLClassMetricsPluginTest.class/instance/testWeightedMethodCount.st index ec617059..bc462138 100644 --- a/packages/SwaLint-Tests.package/SLClassMetricsPluginTest.class/instance/testWeightedMethodCount.st +++ b/packages/SwaLint-Tests.package/SLClassMetricsPluginTest.class/instance/testWeightedMethodCount.st @@ -1,4 +1,4 @@ -testing +tests testWeightedMethodCount self diff --git a/packages/SwaLint-Tests.package/SLDebugTest.class/instance/setUp.st b/packages/SwaLint-Tests.package/SLDebugTest.class/instance/setUp.st index 54d6ad24..b72793e7 100644 --- a/packages/SwaLint-Tests.package/SLDebugTest.class/instance/setUp.st +++ b/packages/SwaLint-Tests.package/SLDebugTest.class/instance/setUp.st @@ -1,4 +1,4 @@ running setUp - swaLintDebug := SwaLint debug. + swaLintDebug := SwaLint debugMode. diff --git a/packages/SwaLint-Tests.package/SLDebugTest.class/instance/testDebugTryCatch.st b/packages/SwaLint-Tests.package/SLDebugTest.class/instance/testDebugTryCatch.st index e0731d66..e1762352 100644 --- a/packages/SwaLint-Tests.package/SLDebugTest.class/instance/testDebugTryCatch.st +++ b/packages/SwaLint-Tests.package/SLDebugTest.class/instance/testDebugTryCatch.st @@ -1,4 +1,4 @@ -testing +tests testDebugTryCatch SwaLint debugMode: true. diff --git a/packages/SwaLint-Tests.package/SLDebugTest.class/methodProperties.json b/packages/SwaLint-Tests.package/SLDebugTest.class/methodProperties.json index 614f1f3d..1d54dfc0 100644 --- a/packages/SwaLint-Tests.package/SLDebugTest.class/methodProperties.json +++ b/packages/SwaLint-Tests.package/SLDebugTest.class/methodProperties.json @@ -2,6 +2,6 @@ "class" : { }, "instance" : { - "setUp" : "topa 4/23/2010 15:35", + "setUp" : "ct 1/4/2025 23:41", "tearDown" : "topa 4/23/2010 15:36", "testDebugTryCatch" : "topa 4/23/2010 15:36" } } diff --git a/packages/SwaLint-Tests.package/SLDefaultDialogTest.class/instance/testDefaultDialogOpens.st b/packages/SwaLint-Tests.package/SLDefaultDialogTest.class/instance/testDefaultDialogOpens.st index 4498cddb..ed9ac591 100644 --- a/packages/SwaLint-Tests.package/SLDefaultDialogTest.class/instance/testDefaultDialogOpens.st +++ b/packages/SwaLint-Tests.package/SLDefaultDialogTest.class/instance/testDefaultDialogOpens.st @@ -7,4 +7,4 @@ testDefaultDialogOpens dialog testsSelected: {SLTestData newFromArray: {#unreferencedVariable: . 'unreferencedVariable' . '' . ''. SLSwaMetricsPlugIn} plugIn: SLSwaMetricsPlugInTest} asSet. dialog classesSelected: {SLCircle} asSet. self assert: (dialog runnable) equals: true. - dialog window closeBoxHit. \ No newline at end of file + dialog changed: #close. \ No newline at end of file diff --git a/packages/SwaLint-Tests.package/SLDefaultDialogTest.class/methodProperties.json b/packages/SwaLint-Tests.package/SLDefaultDialogTest.class/methodProperties.json index f8295726..6a031ef4 100644 --- a/packages/SwaLint-Tests.package/SLDefaultDialogTest.class/methodProperties.json +++ b/packages/SwaLint-Tests.package/SLDefaultDialogTest.class/methodProperties.json @@ -2,4 +2,4 @@ "class" : { }, "instance" : { - "testDefaultDialogOpens" : "LS 7/13/2018 11:07" } } + "testDefaultDialogOpens" : "ct 12/20/2024 00:19" } } diff --git a/packages/SwaLint-Tests.package/SLIgnoringTest.class/instance/setUp.st b/packages/SwaLint-Tests.package/SLIgnoringTest.class/instance/setUp.st index ad17bc70..4d5c8773 100644 --- a/packages/SwaLint-Tests.package/SLIgnoringTest.class/instance/setUp.st +++ b/packages/SwaLint-Tests.package/SLIgnoringTest.class/instance/setUp.st @@ -1,4 +1,4 @@ -as yet unclassified +running setUp rule := #dummyRule. \ No newline at end of file diff --git a/packages/SwaLint-Tests.package/SLIgnoringTest.class/instance/testIgnoreRule.st b/packages/SwaLint-Tests.package/SLIgnoringTest.class/instance/testIgnoreRule.st index ff2f80b4..fa8e356a 100644 --- a/packages/SwaLint-Tests.package/SLIgnoringTest.class/instance/testIgnoreRule.st +++ b/packages/SwaLint-Tests.package/SLIgnoringTest.class/instance/testIgnoreRule.st @@ -1,4 +1,4 @@ -as yet unclassified +tests testIgnoreRule SwaLint class: self class ignoreRule: rule. diff --git a/packages/SwaLint-Tests.package/SLIgnoringTest.class/instance/testUnignoreRule.st b/packages/SwaLint-Tests.package/SLIgnoringTest.class/instance/testUnignoreRule.st index 2f4db2a0..eef8b7b5 100644 --- a/packages/SwaLint-Tests.package/SLIgnoringTest.class/instance/testUnignoreRule.st +++ b/packages/SwaLint-Tests.package/SLIgnoringTest.class/instance/testUnignoreRule.st @@ -1,4 +1,4 @@ -as yet unclassified +tests testUnignoreRule SwaLint class: self class ignoreRule: rule. diff --git a/packages/SwaLint-Tests.package/SLInstVarInSubclassesSuperTestClass.class/instance/newSLInstVarInSubclassesSuperTestClass.st b/packages/SwaLint-Tests.package/SLInstVarInSubclassesSuperTestClass.class/instance/newSLInstVarInSubclassesSuperTestClass.st new file mode 100644 index 00000000..4087f20e --- /dev/null +++ b/packages/SwaLint-Tests.package/SLInstVarInSubclassesSuperTestClass.class/instance/newSLInstVarInSubclassesSuperTestClass.st @@ -0,0 +1,3 @@ +testClassNameInSelector +newSLInstVarInSubclassesSuperTestClass + ^self new \ No newline at end of file diff --git a/packages/SwaLint-Tests.package/SLInstVarInSubclassesSuperTestClass.class/methodProperties.json b/packages/SwaLint-Tests.package/SLInstVarInSubclassesSuperTestClass.class/methodProperties.json index 1ccbc830..2bd6c5e2 100644 --- a/packages/SwaLint-Tests.package/SLInstVarInSubclassesSuperTestClass.class/methodProperties.json +++ b/packages/SwaLint-Tests.package/SLInstVarInSubclassesSuperTestClass.class/methodProperties.json @@ -2,4 +2,5 @@ "class" : { }, "instance" : { - "doNothing" : "fm 5/17/2018 23:16" } } + "doNothing" : "fm 5/17/2018 23:16", + "newSLInstVarInSubclassesSuperTestClass" : "ct 12/22/2024 02:07" } } diff --git a/packages/SwaLint-Tests.package/SLMethodMetricsPluginTest.class/instance/testMethodCYCLO.st b/packages/SwaLint-Tests.package/SLMethodMetricsPluginTest.class/instance/testMethodCYCLO.st index 22459c3e..4e4a2a75 100644 --- a/packages/SwaLint-Tests.package/SLMethodMetricsPluginTest.class/instance/testMethodCYCLO.st +++ b/packages/SwaLint-Tests.package/SLMethodMetricsPluginTest.class/instance/testMethodCYCLO.st @@ -1,4 +1,4 @@ -testing +tests testMethodCYCLO self diff --git a/packages/SwaLint-Tests.package/SLPlugInTestExtended.class/instance/setUp.st b/packages/SwaLint-Tests.package/SLPlugInTestExtended.class/instance/setUp.st index 61784ee7..2eaa5c11 100644 --- a/packages/SwaLint-Tests.package/SLPlugInTestExtended.class/instance/setUp.st +++ b/packages/SwaLint-Tests.package/SLPlugInTestExtended.class/instance/setUp.st @@ -7,7 +7,7 @@ setUp testDictionary := (Dictionary new). testRunner := SLTestRunner new - environment: (SLTestCase dummyEnvironment copy); + testEnvironment: self class dummyEnvironment copy; testDictionary: testDictionary. self resetTestSystem diff --git a/packages/SwaLint-Tests.package/SLPlugInTestExtended.class/methodProperties.json b/packages/SwaLint-Tests.package/SLPlugInTestExtended.class/methodProperties.json index 7e3bc017..484e740b 100644 --- a/packages/SwaLint-Tests.package/SLPlugInTestExtended.class/methodProperties.json +++ b/packages/SwaLint-Tests.package/SLPlugInTestExtended.class/methodProperties.json @@ -8,4 +8,4 @@ "plugIn:" : "MB 7/22/2014 12:25", "plugInClass" : "MB 7/22/2014 12:25", "resetTestSystem" : "MT 7/23/2014 22:36", - "setUp" : "NA 7/29/2015 16:40" } } + "setUp" : "ct 10/4/2025 02:43" } } diff --git a/packages/SwaLint-Tests.package/SLPluginTest.class/instance/setUp.st b/packages/SwaLint-Tests.package/SLPluginTest.class/instance/setUp.st index 6c203093..46fe1984 100644 --- a/packages/SwaLint-Tests.package/SLPluginTest.class/instance/setUp.st +++ b/packages/SwaLint-Tests.package/SLPluginTest.class/instance/setUp.st @@ -1,4 +1,4 @@ running setUp - testRunner := SLTestRunner new environment: (SLTestCase dummyEnvironment copy). \ No newline at end of file + testRunner := SLTestRunner new testEnvironment: self class dummyEnvironment copy. \ No newline at end of file diff --git a/packages/SwaLint-Tests.package/SLPluginTest.class/instance/test.on.expectedResults..st b/packages/SwaLint-Tests.package/SLPluginTest.class/instance/test.on.expectedResults..st index fce7d47d..0a3e2fb6 100644 --- a/packages/SwaLint-Tests.package/SLPluginTest.class/instance/test.on.expectedResults..st +++ b/packages/SwaLint-Tests.package/SLPluginTest.class/instance/test.on.expectedResults..st @@ -1,4 +1,4 @@ -testing +running test: aTestSymbol on: aObjectArray expectedResults: aResultValueArray self diff --git a/packages/SwaLint-Tests.package/SLPluginTest.class/instance/test.on.expectedResults.debug..st b/packages/SwaLint-Tests.package/SLPluginTest.class/instance/test.on.expectedResults.debug..st index 4b2e0d22..345daca0 100644 --- a/packages/SwaLint-Tests.package/SLPluginTest.class/instance/test.on.expectedResults.debug..st +++ b/packages/SwaLint-Tests.package/SLPluginTest.class/instance/test.on.expectedResults.debug..st @@ -1,4 +1,4 @@ -testing +running test: aTestSymbol on: aObjectArray expectedResults: aResultValueArray debug: aBoolean | testObjects realResult | diff --git a/packages/SwaLint-Tests.package/SLPluginTest.class/methodProperties.json b/packages/SwaLint-Tests.package/SLPluginTest.class/methodProperties.json index 4478fcbd..0b8b87ab 100644 --- a/packages/SwaLint-Tests.package/SLPluginTest.class/methodProperties.json +++ b/packages/SwaLint-Tests.package/SLPluginTest.class/methodProperties.json @@ -3,6 +3,6 @@ }, "instance" : { "printResults:expected:if:" : "AT 2/7/2008 07:53", - "setUp" : "LS 6/16/2018 13:59", + "setUp" : "ct 10/4/2025 02:43", "test:on:expectedResults:" : "NR 1/16/2008 18:11", "test:on:expectedResults:debug:" : "BD 6/21/2018 14:25" } } diff --git a/packages/SwaLint-Tests.package/SLRBImportTest.class/instance/testClassNameInSelector.st b/packages/SwaLint-Tests.package/SLRBImportTest.class/instance/testClassNameInSelector.st index 1cc2bf6d..831ac7b5 100644 --- a/packages/SwaLint-Tests.package/SLRBImportTest.class/instance/testClassNameInSelector.st +++ b/packages/SwaLint-Tests.package/SLRBImportTest.class/instance/testClassNameInSelector.st @@ -1,4 +1,4 @@ -as yet unclassified +tests testClassNameInSelector self diff --git a/packages/SwaLint-Tests.package/SLRBImportTest.class/instance/testCollectionProtocol.st b/packages/SwaLint-Tests.package/SLRBImportTest.class/instance/testCollectionProtocol.st index 926d36af..0af126b8 100644 --- a/packages/SwaLint-Tests.package/SLRBImportTest.class/instance/testCollectionProtocol.st +++ b/packages/SwaLint-Tests.package/SLRBImportTest.class/instance/testCollectionProtocol.st @@ -1,4 +1,4 @@ -as yet unclassified +tests testCollectionProtocol self diff --git a/packages/SwaLint-Tests.package/SLRBImportTest.class/instance/testIfTrueReturns.st b/packages/SwaLint-Tests.package/SLRBImportTest.class/instance/testIfTrueReturns.st index c8125d64..1fad4dfa 100644 --- a/packages/SwaLint-Tests.package/SLRBImportTest.class/instance/testIfTrueReturns.st +++ b/packages/SwaLint-Tests.package/SLRBImportTest.class/instance/testIfTrueReturns.st @@ -1,4 +1,4 @@ -as yet unclassified +tests testIfTrueReturns self diff --git a/packages/SwaLint-Tests.package/SLRBImportTest.class/instance/testInstVarInSubclasses.st b/packages/SwaLint-Tests.package/SLRBImportTest.class/instance/testInstVarInSubclasses.st index f8449e2c..e658d4f0 100644 --- a/packages/SwaLint-Tests.package/SLRBImportTest.class/instance/testInstVarInSubclasses.st +++ b/packages/SwaLint-Tests.package/SLRBImportTest.class/instance/testInstVarInSubclasses.st @@ -1,4 +1,4 @@ -as yet unclassified +tests testInstVarInSubclasses self diff --git a/packages/SwaLint-Tests.package/SLRBImportTest.class/instance/testInstanceVariableCapitalization.st b/packages/SwaLint-Tests.package/SLRBImportTest.class/instance/testInstanceVariableCapitalization.st index 2021355b..a017aa17 100644 --- a/packages/SwaLint-Tests.package/SLRBImportTest.class/instance/testInstanceVariableCapitalization.st +++ b/packages/SwaLint-Tests.package/SLRBImportTest.class/instance/testInstanceVariableCapitalization.st @@ -1,4 +1,4 @@ -as yet unclassified +tests testInstanceVariableCapitalization self diff --git a/packages/SwaLint-Tests.package/SLRBImportTest.class/instance/testLawOfDemeter.st b/packages/SwaLint-Tests.package/SLRBImportTest.class/instance/testLawOfDemeter.st index 7cef51e4..864a837a 100644 --- a/packages/SwaLint-Tests.package/SLRBImportTest.class/instance/testLawOfDemeter.st +++ b/packages/SwaLint-Tests.package/SLRBImportTest.class/instance/testLawOfDemeter.st @@ -1,4 +1,4 @@ -as yet unclassified +tests testLawOfDemeter self diff --git a/packages/SwaLint-Tests.package/SLRBImportTest.class/instance/testLongMethodsWithoutEmtpyLines.st b/packages/SwaLint-Tests.package/SLRBImportTest.class/instance/testLongMethodsWithoutEmtpyLines.st index 8b599291..00059a08 100644 --- a/packages/SwaLint-Tests.package/SLRBImportTest.class/instance/testLongMethodsWithoutEmtpyLines.st +++ b/packages/SwaLint-Tests.package/SLRBImportTest.class/instance/testLongMethodsWithoutEmtpyLines.st @@ -1,4 +1,4 @@ -as yet unclassified +tests testLongMethodsWithoutEmtpyLines self diff --git a/packages/SwaLint-Tests.package/SLRBImportTest.class/instance/testTestToDo.st b/packages/SwaLint-Tests.package/SLRBImportTest.class/instance/testTestToDo.st index a7ace804..229f9a7d 100644 --- a/packages/SwaLint-Tests.package/SLRBImportTest.class/instance/testTestToDo.st +++ b/packages/SwaLint-Tests.package/SLRBImportTest.class/instance/testTestToDo.st @@ -1,4 +1,4 @@ -as yet unclassified +tests testTestToDo self diff --git a/packages/SwaLint-Tests.package/SLRBImportTest.class/instance/testToDoCollect.st b/packages/SwaLint-Tests.package/SLRBImportTest.class/instance/testToDoCollect.st index 050e0384..a2bf097f 100644 --- a/packages/SwaLint-Tests.package/SLRBImportTest.class/instance/testToDoCollect.st +++ b/packages/SwaLint-Tests.package/SLRBImportTest.class/instance/testToDoCollect.st @@ -1,4 +1,4 @@ -as yet unclassified +tests testToDoCollect self diff --git a/packages/SwaLint-Tests.package/SLRBImportTest.class/instance/testUnderscoreInSymbol.st b/packages/SwaLint-Tests.package/SLRBImportTest.class/instance/testUnderscoreInSymbol.st index 676f933b..474499db 100644 --- a/packages/SwaLint-Tests.package/SLRBImportTest.class/instance/testUnderscoreInSymbol.st +++ b/packages/SwaLint-Tests.package/SLRBImportTest.class/instance/testUnderscoreInSymbol.st @@ -1,4 +1,4 @@ -as yet unclassified +tests testUnderscoreInSymbol self diff --git a/packages/SwaLint-Tests.package/SLRBImportTest.class/instance/testUnnecessaryAssignment.st b/packages/SwaLint-Tests.package/SLRBImportTest.class/instance/testUnnecessaryAssignment.st index a04c830c..597c6a24 100644 --- a/packages/SwaLint-Tests.package/SLRBImportTest.class/instance/testUnnecessaryAssignment.st +++ b/packages/SwaLint-Tests.package/SLRBImportTest.class/instance/testUnnecessaryAssignment.st @@ -1,4 +1,4 @@ -as yet unclassified +tests testUnnecessaryAssignment "This check is necessary because older Squeak versions (5.1 or older) do not support getting tempNames of an variable, so this test is disabled. If you have an older Squeak version and run the unneccessary assignment rule, you wil get an ERROR result, which is the intended behavior." diff --git a/packages/SwaLint-Tests.package/SLSmallLintPlugInTest.class/instance/expectedFailures.st b/packages/SwaLint-Tests.package/SLSmallLintPlugInTest.class/instance/expectedFailures.st new file mode 100644 index 00000000..4a65c5ba --- /dev/null +++ b/packages/SwaLint-Tests.package/SLSmallLintPlugInTest.class/instance/expectedFailures.st @@ -0,0 +1,8 @@ +testing +expectedFailures + + | failures | + failures := super expectedFailures. + (SystemVersion current majorVersionNumber < 6) ifTrue: + [failures := failures copyWith: #testLiteralArrayContainsDot "was only added in version 3 of RefactoringBrowser"]. + ^ failures \ No newline at end of file diff --git a/packages/SwaLint-Tests.package/SLSmallLintPlugInTest.class/instance/testArgumentVariableNamesSpelling.st b/packages/SwaLint-Tests.package/SLSmallLintPlugInTest.class/instance/testArgumentVariableNamesSpelling.st index 657617e9..91a6df9d 100644 --- a/packages/SwaLint-Tests.package/SLSmallLintPlugInTest.class/instance/testArgumentVariableNamesSpelling.st +++ b/packages/SwaLint-Tests.package/SLSmallLintPlugInTest.class/instance/testArgumentVariableNamesSpelling.st @@ -1,4 +1,4 @@ -testing +tests testArgumentVariableNamesSpelling self diff --git a/packages/SwaLint-Tests.package/SLSmallLintPlugInTest.class/instance/testAsOrderedCollectionNotNeeded.st b/packages/SwaLint-Tests.package/SLSmallLintPlugInTest.class/instance/testAsOrderedCollectionNotNeeded.st index a388ac3a..518abe82 100644 --- a/packages/SwaLint-Tests.package/SLSmallLintPlugInTest.class/instance/testAsOrderedCollectionNotNeeded.st +++ b/packages/SwaLint-Tests.package/SLSmallLintPlugInTest.class/instance/testAsOrderedCollectionNotNeeded.st @@ -1,4 +1,4 @@ -testing +tests testAsOrderedCollectionNotNeeded self diff --git a/packages/SwaLint-Tests.package/SLSmallLintPlugInTest.class/instance/testAssignmentHasNoEffect.st b/packages/SwaLint-Tests.package/SLSmallLintPlugInTest.class/instance/testAssignmentHasNoEffect.st index 630efb88..64541eb6 100644 --- a/packages/SwaLint-Tests.package/SLSmallLintPlugInTest.class/instance/testAssignmentHasNoEffect.st +++ b/packages/SwaLint-Tests.package/SLSmallLintPlugInTest.class/instance/testAssignmentHasNoEffect.st @@ -1,4 +1,4 @@ -testing +tests testAssignmentHasNoEffect self diff --git a/packages/SwaLint-Tests.package/SLSmallLintPlugInTest.class/instance/testAssignmentInBlock.st b/packages/SwaLint-Tests.package/SLSmallLintPlugInTest.class/instance/testAssignmentInBlock.st index f7c56bd3..514b9bc6 100644 --- a/packages/SwaLint-Tests.package/SLSmallLintPlugInTest.class/instance/testAssignmentInBlock.st +++ b/packages/SwaLint-Tests.package/SLSmallLintPlugInTest.class/instance/testAssignmentInBlock.st @@ -1,4 +1,4 @@ -testing +tests testAssignmentInBlock self diff --git a/packages/SwaLint-Tests.package/SLSmallLintPlugInTest.class/instance/testBooleanPrecedence.st b/packages/SwaLint-Tests.package/SLSmallLintPlugInTest.class/instance/testBooleanPrecedence.st index ffe474e0..43df4bc3 100644 --- a/packages/SwaLint-Tests.package/SLSmallLintPlugInTest.class/instance/testBooleanPrecedence.st +++ b/packages/SwaLint-Tests.package/SLSmallLintPlugInTest.class/instance/testBooleanPrecedence.st @@ -1,4 +1,4 @@ -testing +tests testBooleanPrecedence self diff --git a/packages/SwaLint-Tests.package/SLSmallLintPlugInTest.class/instance/testClassCommentsSpelling.st b/packages/SwaLint-Tests.package/SLSmallLintPlugInTest.class/instance/testClassCommentsSpelling.st index adf2896b..064672b9 100644 --- a/packages/SwaLint-Tests.package/SLSmallLintPlugInTest.class/instance/testClassCommentsSpelling.st +++ b/packages/SwaLint-Tests.package/SLSmallLintPlugInTest.class/instance/testClassCommentsSpelling.st @@ -1,4 +1,4 @@ -testing +tests testClassCommentsSpelling "self diff --git a/packages/SwaLint-Tests.package/SLSmallLintPlugInTest.class/instance/testClassNamesSpelling.st b/packages/SwaLint-Tests.package/SLSmallLintPlugInTest.class/instance/testClassNamesSpelling.st index 19abd8e4..56509d1a 100644 --- a/packages/SwaLint-Tests.package/SLSmallLintPlugInTest.class/instance/testClassNamesSpelling.st +++ b/packages/SwaLint-Tests.package/SLSmallLintPlugInTest.class/instance/testClassNamesSpelling.st @@ -1,4 +1,4 @@ -testing +tests testClassNamesSpelling "self diff --git a/packages/SwaLint-Tests.package/SLSmallLintPlugInTest.class/instance/testClassVariableNamesSpelling.st b/packages/SwaLint-Tests.package/SLSmallLintPlugInTest.class/instance/testClassVariableNamesSpelling.st index 20818c69..f4ab39cc 100644 --- a/packages/SwaLint-Tests.package/SLSmallLintPlugInTest.class/instance/testClassVariableNamesSpelling.st +++ b/packages/SwaLint-Tests.package/SLSmallLintPlugInTest.class/instance/testClassVariableNamesSpelling.st @@ -1,4 +1,4 @@ -testing +tests testClassVariableNamesSpelling "self diff --git a/packages/SwaLint-Tests.package/SLSmallLintPlugInTest.class/instance/testCodeCruftLeftInMethods.st b/packages/SwaLint-Tests.package/SLSmallLintPlugInTest.class/instance/testCodeCruftLeftInMethods.st index 14396a68..e0dadc36 100644 --- a/packages/SwaLint-Tests.package/SLSmallLintPlugInTest.class/instance/testCodeCruftLeftInMethods.st +++ b/packages/SwaLint-Tests.package/SLSmallLintPlugInTest.class/instance/testCodeCruftLeftInMethods.st @@ -1,4 +1,4 @@ -testing +tests testCodeCruftLeftInMethods self diff --git a/packages/SwaLint-Tests.package/SLSmallLintPlugInTest.class/instance/testCollectSelectNotUsed.st b/packages/SwaLint-Tests.package/SLSmallLintPlugInTest.class/instance/testCollectSelectNotUsed.st index 089b771a..ee782fad 100644 --- a/packages/SwaLint-Tests.package/SLSmallLintPlugInTest.class/instance/testCollectSelectNotUsed.st +++ b/packages/SwaLint-Tests.package/SLSmallLintPlugInTest.class/instance/testCollectSelectNotUsed.st @@ -1,4 +1,4 @@ -testing +tests testCollectSelectNotUsed self diff --git a/packages/SwaLint-Tests.package/SLSmallLintPlugInTest.class/instance/testCollectionMessagesToExternalObjectRule.st b/packages/SwaLint-Tests.package/SLSmallLintPlugInTest.class/instance/testCollectionMessagesToExternalObjectRule.st index e435d524..a0c2792b 100644 --- a/packages/SwaLint-Tests.package/SLSmallLintPlugInTest.class/instance/testCollectionMessagesToExternalObjectRule.st +++ b/packages/SwaLint-Tests.package/SLSmallLintPlugInTest.class/instance/testCollectionMessagesToExternalObjectRule.st @@ -1,4 +1,4 @@ -testing +tests testCollectionMessagesToExternalObjectRule self diff --git a/packages/SwaLint-Tests.package/SLSmallLintPlugInTest.class/instance/testCollectionProtocol.st b/packages/SwaLint-Tests.package/SLSmallLintPlugInTest.class/instance/testCollectionProtocol.st index cf254f4b..edd7beed 100644 --- a/packages/SwaLint-Tests.package/SLSmallLintPlugInTest.class/instance/testCollectionProtocol.st +++ b/packages/SwaLint-Tests.package/SLSmallLintPlugInTest.class/instance/testCollectionProtocol.st @@ -1,4 +1,4 @@ -testing +tests testCollectionProtocol "self diff --git a/packages/SwaLint-Tests.package/SLSmallLintPlugInTest.class/instance/testConsistencyCheck.st b/packages/SwaLint-Tests.package/SLSmallLintPlugInTest.class/instance/testConsistencyCheck.st index 2e81c098..87e3591c 100644 --- a/packages/SwaLint-Tests.package/SLSmallLintPlugInTest.class/instance/testConsistencyCheck.st +++ b/packages/SwaLint-Tests.package/SLSmallLintPlugInTest.class/instance/testConsistencyCheck.st @@ -1,4 +1,4 @@ -testing +tests testConsistencyCheck self diff --git a/packages/SwaLint-Tests.package/SLSmallLintPlugInTest.class/instance/testContainsRule.st b/packages/SwaLint-Tests.package/SLSmallLintPlugInTest.class/instance/testContainsRule.st index 03d3612d..02a23bf3 100644 --- a/packages/SwaLint-Tests.package/SLSmallLintPlugInTest.class/instance/testContainsRule.st +++ b/packages/SwaLint-Tests.package/SLSmallLintPlugInTest.class/instance/testContainsRule.st @@ -1,4 +1,4 @@ -testing +tests testContainsRule self diff --git a/packages/SwaLint-Tests.package/SLSmallLintPlugInTest.class/instance/testDefinesEqualsNotHash.st b/packages/SwaLint-Tests.package/SLSmallLintPlugInTest.class/instance/testDefinesEqualsNotHash.st index 11ce824e..3225af33 100644 --- a/packages/SwaLint-Tests.package/SLSmallLintPlugInTest.class/instance/testDefinesEqualsNotHash.st +++ b/packages/SwaLint-Tests.package/SLSmallLintPlugInTest.class/instance/testDefinesEqualsNotHash.st @@ -1,4 +1,4 @@ -testing +tests testDefinesEqualsNotHash self diff --git a/packages/SwaLint-Tests.package/SLSmallLintPlugInTest.class/instance/testDetectContains.st b/packages/SwaLint-Tests.package/SLSmallLintPlugInTest.class/instance/testDetectContains.st index 2bc16062..b639c71d 100644 --- a/packages/SwaLint-Tests.package/SLSmallLintPlugInTest.class/instance/testDetectContains.st +++ b/packages/SwaLint-Tests.package/SLSmallLintPlugInTest.class/instance/testDetectContains.st @@ -1,4 +1,4 @@ -testing +tests testDetectContains self diff --git a/packages/SwaLint-Tests.package/SLSmallLintPlugInTest.class/instance/testEndTrueFalse.st b/packages/SwaLint-Tests.package/SLSmallLintPlugInTest.class/instance/testEndTrueFalse.st index a053ff57..8e6b8422 100644 --- a/packages/SwaLint-Tests.package/SLSmallLintPlugInTest.class/instance/testEndTrueFalse.st +++ b/packages/SwaLint-Tests.package/SLSmallLintPlugInTest.class/instance/testEndTrueFalse.st @@ -1,4 +1,4 @@ -testing +tests testEndTrueFalse self diff --git a/packages/SwaLint-Tests.package/SLSmallLintPlugInTest.class/instance/testEqualNotUsed.st b/packages/SwaLint-Tests.package/SLSmallLintPlugInTest.class/instance/testEqualNotUsed.st index 76803e85..15e9bd17 100644 --- a/packages/SwaLint-Tests.package/SLSmallLintPlugInTest.class/instance/testEqualNotUsed.st +++ b/packages/SwaLint-Tests.package/SLSmallLintPlugInTest.class/instance/testEqualNotUsed.st @@ -1,4 +1,4 @@ -testing +tests testEqualNotUsed self diff --git a/packages/SwaLint-Tests.package/SLSmallLintPlugInTest.class/instance/testEqualsTrue.st b/packages/SwaLint-Tests.package/SLSmallLintPlugInTest.class/instance/testEqualsTrue.st index fbe4e2d3..2deda005 100644 --- a/packages/SwaLint-Tests.package/SLSmallLintPlugInTest.class/instance/testEqualsTrue.st +++ b/packages/SwaLint-Tests.package/SLSmallLintPlugInTest.class/instance/testEqualsTrue.st @@ -1,4 +1,4 @@ -testing +tests testEqualsTrue self diff --git a/packages/SwaLint-Tests.package/SLSmallLintPlugInTest.class/instance/testEquivalentSuperclassMethods.st b/packages/SwaLint-Tests.package/SLSmallLintPlugInTest.class/instance/testEquivalentSuperclassMethods.st index 25cc77ba..96567ea0 100644 --- a/packages/SwaLint-Tests.package/SLSmallLintPlugInTest.class/instance/testEquivalentSuperclassMethods.st +++ b/packages/SwaLint-Tests.package/SLSmallLintPlugInTest.class/instance/testEquivalentSuperclassMethods.st @@ -1,4 +1,4 @@ -testing +tests testEquivalentSuperclassMethods self diff --git a/packages/SwaLint-Tests.package/SLSmallLintPlugInTest.class/instance/testExcessiveMethods.st b/packages/SwaLint-Tests.package/SLSmallLintPlugInTest.class/instance/testExcessiveMethods.st index 64dec179..7f1f50b5 100644 --- a/packages/SwaLint-Tests.package/SLSmallLintPlugInTest.class/instance/testExcessiveMethods.st +++ b/packages/SwaLint-Tests.package/SLSmallLintPlugInTest.class/instance/testExcessiveMethods.st @@ -1,4 +1,4 @@ -testing +tests testExcessiveMethods self diff --git a/packages/SwaLint-Tests.package/SLSmallLintPlugInTest.class/instance/testExcessiveNumberOfArguments.st b/packages/SwaLint-Tests.package/SLSmallLintPlugInTest.class/instance/testExcessiveNumberOfArguments.st index 42a5b317..d74f2bda 100644 --- a/packages/SwaLint-Tests.package/SLSmallLintPlugInTest.class/instance/testExcessiveNumberOfArguments.st +++ b/packages/SwaLint-Tests.package/SLSmallLintPlugInTest.class/instance/testExcessiveNumberOfArguments.st @@ -1,4 +1,4 @@ -testing +tests testExcessiveNumberOfArguments self diff --git a/packages/SwaLint-Tests.package/SLSmallLintPlugInTest.class/instance/testExcessiveVariables.st b/packages/SwaLint-Tests.package/SLSmallLintPlugInTest.class/instance/testExcessiveVariables.st index b583dcc9..ce10a875 100644 --- a/packages/SwaLint-Tests.package/SLSmallLintPlugInTest.class/instance/testExcessiveVariables.st +++ b/packages/SwaLint-Tests.package/SLSmallLintPlugInTest.class/instance/testExcessiveVariables.st @@ -1,4 +1,4 @@ -testing +tests testExcessiveVariables self diff --git a/packages/SwaLint-Tests.package/SLSmallLintPlugInTest.class/instance/testExtraBlock.st b/packages/SwaLint-Tests.package/SLSmallLintPlugInTest.class/instance/testExtraBlock.st index 5ad5d0de..f957f1ff 100644 --- a/packages/SwaLint-Tests.package/SLSmallLintPlugInTest.class/instance/testExtraBlock.st +++ b/packages/SwaLint-Tests.package/SLSmallLintPlugInTest.class/instance/testExtraBlock.st @@ -1,4 +1,4 @@ -testing +tests testExtraBlock self diff --git a/packages/SwaLint-Tests.package/SLSmallLintPlugInTest.class/instance/testFileBlocks.st b/packages/SwaLint-Tests.package/SLSmallLintPlugInTest.class/instance/testFileBlocks.st index b3c79fd1..3e35f693 100644 --- a/packages/SwaLint-Tests.package/SLSmallLintPlugInTest.class/instance/testFileBlocks.st +++ b/packages/SwaLint-Tests.package/SLSmallLintPlugInTest.class/instance/testFileBlocks.st @@ -1,4 +1,4 @@ -testing +tests testFileBlocks self diff --git a/packages/SwaLint-Tests.package/SLSmallLintPlugInTest.class/instance/testFloatEqualityComparison.st b/packages/SwaLint-Tests.package/SLSmallLintPlugInTest.class/instance/testFloatEqualityComparison.st index e79fc1e5..81010736 100644 --- a/packages/SwaLint-Tests.package/SLSmallLintPlugInTest.class/instance/testFloatEqualityComparison.st +++ b/packages/SwaLint-Tests.package/SLSmallLintPlugInTest.class/instance/testFloatEqualityComparison.st @@ -1,4 +1,4 @@ -testing +tests testFloatEqualityComparison self diff --git a/packages/SwaLint-Tests.package/SLSmallLintPlugInTest.class/instance/testGuardingClause.st b/packages/SwaLint-Tests.package/SLSmallLintPlugInTest.class/instance/testGuardingClause.st index f3d19bde..696dfb16 100644 --- a/packages/SwaLint-Tests.package/SLSmallLintPlugInTest.class/instance/testGuardingClause.st +++ b/packages/SwaLint-Tests.package/SLSmallLintPlugInTest.class/instance/testGuardingClause.st @@ -1,4 +1,4 @@ -testing +tests testGuardingClause self diff --git a/packages/SwaLint-Tests.package/SLSmallLintPlugInTest.class/instance/testIfTrueBlocks.st b/packages/SwaLint-Tests.package/SLSmallLintPlugInTest.class/instance/testIfTrueBlocks.st index 717fc4ff..851a5779 100644 --- a/packages/SwaLint-Tests.package/SLSmallLintPlugInTest.class/instance/testIfTrueBlocks.st +++ b/packages/SwaLint-Tests.package/SLSmallLintPlugInTest.class/instance/testIfTrueBlocks.st @@ -1,4 +1,4 @@ -testing +tests testIfTrueBlocks self diff --git a/packages/SwaLint-Tests.package/SLSmallLintPlugInTest.class/instance/testIfTrueReturns.st b/packages/SwaLint-Tests.package/SLSmallLintPlugInTest.class/instance/testIfTrueReturns.st index aea1690d..1fad4dfa 100644 --- a/packages/SwaLint-Tests.package/SLSmallLintPlugInTest.class/instance/testIfTrueReturns.st +++ b/packages/SwaLint-Tests.package/SLSmallLintPlugInTest.class/instance/testIfTrueReturns.st @@ -1,4 +1,4 @@ -testing +tests testIfTrueReturns self diff --git a/packages/SwaLint-Tests.package/SLSmallLintPlugInTest.class/instance/testImplementedNotSent.st b/packages/SwaLint-Tests.package/SLSmallLintPlugInTest.class/instance/testImplementedNotSent.st index 509f71ab..3fa89cc7 100644 --- a/packages/SwaLint-Tests.package/SLSmallLintPlugInTest.class/instance/testImplementedNotSent.st +++ b/packages/SwaLint-Tests.package/SLSmallLintPlugInTest.class/instance/testImplementedNotSent.st @@ -1,4 +1,4 @@ -testing +tests testImplementedNotSent self diff --git a/packages/SwaLint-Tests.package/SLSmallLintPlugInTest.class/instance/testImplementsEqualsButNoHash.st b/packages/SwaLint-Tests.package/SLSmallLintPlugInTest.class/instance/testImplementsEqualsButNoHash.st index 3195b810..c6a4ceaf 100644 --- a/packages/SwaLint-Tests.package/SLSmallLintPlugInTest.class/instance/testImplementsEqualsButNoHash.st +++ b/packages/SwaLint-Tests.package/SLSmallLintPlugInTest.class/instance/testImplementsEqualsButNoHash.st @@ -1,4 +1,4 @@ -testing +tests testImplementsEqualsButNoHash "I am an representative test. If I am carried out successfull the whole plugin works. (Optimistic assumtion)" diff --git a/packages/SwaLint-Tests.package/SLSmallLintPlugInTest.class/instance/testInconsistentMethodClassification.st b/packages/SwaLint-Tests.package/SLSmallLintPlugInTest.class/instance/testInconsistentMethodClassification.st index eda5cc0a..5574acbd 100644 --- a/packages/SwaLint-Tests.package/SLSmallLintPlugInTest.class/instance/testInconsistentMethodClassification.st +++ b/packages/SwaLint-Tests.package/SLSmallLintPlugInTest.class/instance/testInconsistentMethodClassification.st @@ -1,4 +1,4 @@ -testing +tests testInconsistentMethodClassification self diff --git a/packages/SwaLint-Tests.package/SLSmallLintPlugInTest.class/instance/testJustSendsSuper.st b/packages/SwaLint-Tests.package/SLSmallLintPlugInTest.class/instance/testJustSendsSuper.st index d264777b..e141ebb1 100644 --- a/packages/SwaLint-Tests.package/SLSmallLintPlugInTest.class/instance/testJustSendsSuper.st +++ b/packages/SwaLint-Tests.package/SLSmallLintPlugInTest.class/instance/testJustSendsSuper.st @@ -1,4 +1,4 @@ -testing +tests testJustSendsSuper self diff --git a/packages/SwaLint-Tests.package/SLSmallLintPlugInTest.class/instance/testLawOfDemeter.st b/packages/SwaLint-Tests.package/SLSmallLintPlugInTest.class/instance/testLawOfDemeter.st index 900deca3..864a837a 100644 --- a/packages/SwaLint-Tests.package/SLSmallLintPlugInTest.class/instance/testLawOfDemeter.st +++ b/packages/SwaLint-Tests.package/SLSmallLintPlugInTest.class/instance/testLawOfDemeter.st @@ -1,4 +1,4 @@ -testing +tests testLawOfDemeter self diff --git a/packages/SwaLint-Tests.package/SLSmallLintPlugInTest.class/instance/testLiteralArrayCharacters.st b/packages/SwaLint-Tests.package/SLSmallLintPlugInTest.class/instance/testLiteralArrayCharacters.st index 2c9015be..80d82802 100644 --- a/packages/SwaLint-Tests.package/SLSmallLintPlugInTest.class/instance/testLiteralArrayCharacters.st +++ b/packages/SwaLint-Tests.package/SLSmallLintPlugInTest.class/instance/testLiteralArrayCharacters.st @@ -1,4 +1,4 @@ -testing +tests testLiteralArrayCharacters self diff --git a/packages/SwaLint-Tests.package/SLSmallLintPlugInTest.class/instance/testLiteralArrayContainsComma.st b/packages/SwaLint-Tests.package/SLSmallLintPlugInTest.class/instance/testLiteralArrayContainsComma.st index 355b68a3..a55b43c7 100644 --- a/packages/SwaLint-Tests.package/SLSmallLintPlugInTest.class/instance/testLiteralArrayContainsComma.st +++ b/packages/SwaLint-Tests.package/SLSmallLintPlugInTest.class/instance/testLiteralArrayContainsComma.st @@ -1,4 +1,4 @@ -testing +tests testLiteralArrayContainsComma self diff --git a/packages/SwaLint-Tests.package/SLSmallLintPlugInTest.class/instance/testLiteralArrayContainsDot.st b/packages/SwaLint-Tests.package/SLSmallLintPlugInTest.class/instance/testLiteralArrayContainsDot.st new file mode 100644 index 00000000..1b5cf500 --- /dev/null +++ b/packages/SwaLint-Tests.package/SLSmallLintPlugInTest.class/instance/testLiteralArrayContainsDot.st @@ -0,0 +1,7 @@ +tests +testLiteralArrayContainsDot + + self + test: #smallLintLiteralArrayContainsDot + on: { SLTestLiteralArrayContainsDot01 } + expectedResults: { 1 }. diff --git a/packages/SwaLint-Tests.package/SLSmallLintPlugInTest.class/instance/testLiteralValuesSpelling.st b/packages/SwaLint-Tests.package/SLSmallLintPlugInTest.class/instance/testLiteralValuesSpelling.st index 6519a1de..031c29e0 100644 --- a/packages/SwaLint-Tests.package/SLSmallLintPlugInTest.class/instance/testLiteralValuesSpelling.st +++ b/packages/SwaLint-Tests.package/SLSmallLintPlugInTest.class/instance/testLiteralValuesSpelling.st @@ -1,4 +1,4 @@ -testing +tests testLiteralValuesSpelling self diff --git a/packages/SwaLint-Tests.package/SLSmallLintPlugInTest.class/instance/testMethodModifierFinal.st b/packages/SwaLint-Tests.package/SLSmallLintPlugInTest.class/instance/testMethodModifierFinal.st index 31a872a4..f11b51ce 100644 --- a/packages/SwaLint-Tests.package/SLSmallLintPlugInTest.class/instance/testMethodModifierFinal.st +++ b/packages/SwaLint-Tests.package/SLSmallLintPlugInTest.class/instance/testMethodModifierFinal.st @@ -1,4 +1,4 @@ -testing +tests testMethodModifierFinal self diff --git a/packages/SwaLint-Tests.package/SLSmallLintPlugInTest.class/instance/testMethodModifierOverride.st b/packages/SwaLint-Tests.package/SLSmallLintPlugInTest.class/instance/testMethodModifierOverride.st index 53193e1a..e5a62632 100644 --- a/packages/SwaLint-Tests.package/SLSmallLintPlugInTest.class/instance/testMethodModifierOverride.st +++ b/packages/SwaLint-Tests.package/SLSmallLintPlugInTest.class/instance/testMethodModifierOverride.st @@ -1,4 +1,4 @@ -testing +tests testMethodModifierOverride self diff --git a/packages/SwaLint-Tests.package/SLSmallLintPlugInTest.class/instance/testMethodModifierSuper.st b/packages/SwaLint-Tests.package/SLSmallLintPlugInTest.class/instance/testMethodModifierSuper.st index 912a60ec..dbd81f92 100644 --- a/packages/SwaLint-Tests.package/SLSmallLintPlugInTest.class/instance/testMethodModifierSuper.st +++ b/packages/SwaLint-Tests.package/SLSmallLintPlugInTest.class/instance/testMethodModifierSuper.st @@ -1,4 +1,4 @@ -testing +tests testMethodModifierSuper self diff --git a/packages/SwaLint-Tests.package/SLSmallLintPlugInTest.class/instance/testMethodSelectors.st b/packages/SwaLint-Tests.package/SLSmallLintPlugInTest.class/instance/testMethodSelectors.st index 5cee26d9..0dd93dcc 100644 --- a/packages/SwaLint-Tests.package/SLSmallLintPlugInTest.class/instance/testMethodSelectors.st +++ b/packages/SwaLint-Tests.package/SLSmallLintPlugInTest.class/instance/testMethodSelectors.st @@ -1,4 +1,4 @@ -testing +tests testMethodSelectors self diff --git a/packages/SwaLint-Tests.package/SLSmallLintPlugInTest.class/instance/testMissingSubclassResponsibility.st b/packages/SwaLint-Tests.package/SLSmallLintPlugInTest.class/instance/testMissingSubclassResponsibility.st index c6ea12fb..f8f65a08 100644 --- a/packages/SwaLint-Tests.package/SLSmallLintPlugInTest.class/instance/testMissingSubclassResponsibility.st +++ b/packages/SwaLint-Tests.package/SLSmallLintPlugInTest.class/instance/testMissingSubclassResponsibility.st @@ -1,4 +1,4 @@ -testing +tests testMissingSubclassResponsibility self diff --git a/packages/SwaLint-Tests.package/SLSmallLintPlugInTest.class/instance/testMissingSuperSends.st b/packages/SwaLint-Tests.package/SLSmallLintPlugInTest.class/instance/testMissingSuperSends.st index d000ed6a..19c659ad 100644 --- a/packages/SwaLint-Tests.package/SLSmallLintPlugInTest.class/instance/testMissingSuperSends.st +++ b/packages/SwaLint-Tests.package/SLSmallLintPlugInTest.class/instance/testMissingSuperSends.st @@ -1,4 +1,4 @@ -testing +tests testMissingSuperSends self diff --git a/packages/SwaLint-Tests.package/SLSmallLintPlugInTest.class/instance/testMissingYourself.st b/packages/SwaLint-Tests.package/SLSmallLintPlugInTest.class/instance/testMissingYourself.st index d6c38d62..dd91ed36 100644 --- a/packages/SwaLint-Tests.package/SLSmallLintPlugInTest.class/instance/testMissingYourself.st +++ b/packages/SwaLint-Tests.package/SLSmallLintPlugInTest.class/instance/testMissingYourself.st @@ -1,4 +1,4 @@ -testing +tests testMissingYourself self diff --git a/packages/SwaLint-Tests.package/SLSmallLintPlugInTest.class/instance/testModifiesCollection.st b/packages/SwaLint-Tests.package/SLSmallLintPlugInTest.class/instance/testModifiesCollection.st index 2ee4ade3..b13801c7 100644 --- a/packages/SwaLint-Tests.package/SLSmallLintPlugInTest.class/instance/testModifiesCollection.st +++ b/packages/SwaLint-Tests.package/SLSmallLintPlugInTest.class/instance/testModifiesCollection.st @@ -1,4 +1,4 @@ -testing +tests testModifiesCollection self diff --git a/packages/SwaLint-Tests.package/SLSmallLintPlugInTest.class/instance/testOnlyReadOrWrittenVariable.st b/packages/SwaLint-Tests.package/SLSmallLintPlugInTest.class/instance/testOnlyReadOrWrittenVariable.st index ae03f369..be853513 100644 --- a/packages/SwaLint-Tests.package/SLSmallLintPlugInTest.class/instance/testOnlyReadOrWrittenVariable.st +++ b/packages/SwaLint-Tests.package/SLSmallLintPlugInTest.class/instance/testOnlyReadOrWrittenVariable.st @@ -1,4 +1,4 @@ -testing +tests testOnlyReadOrWrittenVariable self diff --git a/packages/SwaLint-Tests.package/SLSmallLintPlugInTest.class/instance/testOverridesSpecialMessage.st b/packages/SwaLint-Tests.package/SLSmallLintPlugInTest.class/instance/testOverridesSpecialMessage.st index 89e1dcc4..0c0991fa 100644 --- a/packages/SwaLint-Tests.package/SLSmallLintPlugInTest.class/instance/testOverridesSpecialMessage.st +++ b/packages/SwaLint-Tests.package/SLSmallLintPlugInTest.class/instance/testOverridesSpecialMessage.st @@ -1,4 +1,4 @@ -testing +tests testOverridesSpecialMessage self diff --git a/packages/SwaLint-Tests.package/SLSmallLintPlugInTest.class/instance/testQuestionableMessages.st b/packages/SwaLint-Tests.package/SLSmallLintPlugInTest.class/instance/testQuestionableMessages.st index 12b31c12..6b3161fa 100644 --- a/packages/SwaLint-Tests.package/SLSmallLintPlugInTest.class/instance/testQuestionableMessages.st +++ b/packages/SwaLint-Tests.package/SLSmallLintPlugInTest.class/instance/testQuestionableMessages.st @@ -1,4 +1,4 @@ -testing +tests testQuestionableMessages "I am an representative test. If I am carried out successfull the whole plugin works. (Optimistic assumtion)" diff --git a/packages/SwaLint-Tests.package/SLSmallLintPlugInTest.class/instance/testReferenceAbstractClass.st b/packages/SwaLint-Tests.package/SLSmallLintPlugInTest.class/instance/testReferenceAbstractClass.st index 15955250..254acabd 100644 --- a/packages/SwaLint-Tests.package/SLSmallLintPlugInTest.class/instance/testReferenceAbstractClass.st +++ b/packages/SwaLint-Tests.package/SLSmallLintPlugInTest.class/instance/testReferenceAbstractClass.st @@ -1,4 +1,4 @@ -testing +tests testReferenceAbstractClass self diff --git a/packages/SwaLint-Tests.package/SLSmallLintPlugInTest.class/instance/testRefersToClassNameInsteadOfSelfClass.st b/packages/SwaLint-Tests.package/SLSmallLintPlugInTest.class/instance/testRefersToClassNameInsteadOfSelfClass.st index 94d34e11..708a281f 100644 --- a/packages/SwaLint-Tests.package/SLSmallLintPlugInTest.class/instance/testRefersToClassNameInsteadOfSelfClass.st +++ b/packages/SwaLint-Tests.package/SLSmallLintPlugInTest.class/instance/testRefersToClassNameInsteadOfSelfClass.st @@ -1,4 +1,4 @@ -testing +tests testRefersToClassNameInsteadOfSelfClass "I am an representative test. If I am carried out successfull the whole plugin works. (Optimistic assumtion)" diff --git a/packages/SwaLint-Tests.package/SLSmallLintPlugInTest.class/instance/testRemoveDependentsRule.st b/packages/SwaLint-Tests.package/SLSmallLintPlugInTest.class/instance/testRemoveDependentsRule.st index d1bca47a..5f51f7bb 100644 --- a/packages/SwaLint-Tests.package/SLSmallLintPlugInTest.class/instance/testRemoveDependentsRule.st +++ b/packages/SwaLint-Tests.package/SLSmallLintPlugInTest.class/instance/testRemoveDependentsRule.st @@ -1,4 +1,4 @@ -testing +tests testRemoveDependentsRule self diff --git a/packages/SwaLint-Tests.package/SLSmallLintPlugInTest.class/instance/testReturnInEnsure.st b/packages/SwaLint-Tests.package/SLSmallLintPlugInTest.class/instance/testReturnInEnsure.st index 2c3b896a..a947c5ba 100644 --- a/packages/SwaLint-Tests.package/SLSmallLintPlugInTest.class/instance/testReturnInEnsure.st +++ b/packages/SwaLint-Tests.package/SLSmallLintPlugInTest.class/instance/testReturnInEnsure.st @@ -1,4 +1,4 @@ -testing +tests testReturnInEnsure self diff --git a/packages/SwaLint-Tests.package/SLSmallLintPlugInTest.class/instance/testReturnsBooleanAndOther.st b/packages/SwaLint-Tests.package/SLSmallLintPlugInTest.class/instance/testReturnsBooleanAndOther.st index f51fee27..b133855a 100644 --- a/packages/SwaLint-Tests.package/SLSmallLintPlugInTest.class/instance/testReturnsBooleanAndOther.st +++ b/packages/SwaLint-Tests.package/SLSmallLintPlugInTest.class/instance/testReturnsBooleanAndOther.st @@ -1,4 +1,4 @@ -testing +tests testReturnsBooleanAndOther self diff --git a/packages/SwaLint-Tests.package/SLSmallLintPlugInTest.class/instance/testReturnsIfTrue.st b/packages/SwaLint-Tests.package/SLSmallLintPlugInTest.class/instance/testReturnsIfTrue.st index bc1c4d00..c96c26d1 100644 --- a/packages/SwaLint-Tests.package/SLSmallLintPlugInTest.class/instance/testReturnsIfTrue.st +++ b/packages/SwaLint-Tests.package/SLSmallLintPlugInTest.class/instance/testReturnsIfTrue.st @@ -1,4 +1,4 @@ -testing +tests testReturnsIfTrue self diff --git a/packages/SwaLint-Tests.package/SLSmallLintPlugInTest.class/instance/testRuleFor.st b/packages/SwaLint-Tests.package/SLSmallLintPlugInTest.class/instance/testRuleFor.st index ed13f955..bf8d2cd1 100644 --- a/packages/SwaLint-Tests.package/SLSmallLintPlugInTest.class/instance/testRuleFor.st +++ b/packages/SwaLint-Tests.package/SLSmallLintPlugInTest.class/instance/testRuleFor.st @@ -1,10 +1,10 @@ -testing +tests testRuleFor | plugin rule | plugin := SLSmallLintPlugIn new. rule := plugin ruleFor: - (SLTestCase dummyEnvironment testDataFor: #smallLintClassInstVarNotInitialized). + (self class dummyEnvironment testDataFor: #smallLintClassInstVarNotInitialized). self assert: [ rule name = 'Has class instance variables but no initialize method' ]. diff --git a/packages/SwaLint-Tests.package/SLSmallLintPlugInTest.class/instance/testSearchingLiteral.st b/packages/SwaLint-Tests.package/SLSmallLintPlugInTest.class/instance/testSearchingLiteral.st index 41ed2d1c..058b614e 100644 --- a/packages/SwaLint-Tests.package/SLSmallLintPlugInTest.class/instance/testSearchingLiteral.st +++ b/packages/SwaLint-Tests.package/SLSmallLintPlugInTest.class/instance/testSearchingLiteral.st @@ -1,4 +1,4 @@ -testing +tests testSearchingLiteral self diff --git a/packages/SwaLint-Tests.package/SLSmallLintPlugInTest.class/instance/testSendsDifferentSuper.st b/packages/SwaLint-Tests.package/SLSmallLintPlugInTest.class/instance/testSendsDifferentSuper.st index 79770d70..6eafc10c 100644 --- a/packages/SwaLint-Tests.package/SLSmallLintPlugInTest.class/instance/testSendsDifferentSuper.st +++ b/packages/SwaLint-Tests.package/SLSmallLintPlugInTest.class/instance/testSendsDifferentSuper.st @@ -1,4 +1,4 @@ -testing +tests testSendsDifferentSuper self diff --git a/packages/SwaLint-Tests.package/SLSmallLintPlugInTest.class/instance/testSendsUnknownMessageToGlobal.st b/packages/SwaLint-Tests.package/SLSmallLintPlugInTest.class/instance/testSendsUnknownMessageToGlobal.st index b7284d0a..10e6189d 100644 --- a/packages/SwaLint-Tests.package/SLSmallLintPlugInTest.class/instance/testSendsUnknownMessageToGlobal.st +++ b/packages/SwaLint-Tests.package/SLSmallLintPlugInTest.class/instance/testSendsUnknownMessageToGlobal.st @@ -1,4 +1,4 @@ -testing +tests testSendsUnknownMessageToGlobal self diff --git a/packages/SwaLint-Tests.package/SLSmallLintPlugInTest.class/instance/testSentNotImplemented.st b/packages/SwaLint-Tests.package/SLSmallLintPlugInTest.class/instance/testSentNotImplemented.st index 34e60100..65cb8765 100644 --- a/packages/SwaLint-Tests.package/SLSmallLintPlugInTest.class/instance/testSentNotImplemented.st +++ b/packages/SwaLint-Tests.package/SLSmallLintPlugInTest.class/instance/testSentNotImplemented.st @@ -1,4 +1,4 @@ -testing +tests testSentNotImplemented self diff --git a/packages/SwaLint-Tests.package/SLSmallLintPlugInTest.class/instance/testSizeCheck.st b/packages/SwaLint-Tests.package/SLSmallLintPlugInTest.class/instance/testSizeCheck.st index 2990ee04..92bc1edf 100644 --- a/packages/SwaLint-Tests.package/SLSmallLintPlugInTest.class/instance/testSizeCheck.st +++ b/packages/SwaLint-Tests.package/SLSmallLintPlugInTest.class/instance/testSizeCheck.st @@ -1,4 +1,4 @@ -testing +tests testSizeCheck self diff --git a/packages/SwaLint-Tests.package/SLSmallLintPlugInTest.class/instance/testSpelling.st b/packages/SwaLint-Tests.package/SLSmallLintPlugInTest.class/instance/testSpelling.st index 12ab8abf..3df504a5 100644 --- a/packages/SwaLint-Tests.package/SLSmallLintPlugInTest.class/instance/testSpelling.st +++ b/packages/SwaLint-Tests.package/SLSmallLintPlugInTest.class/instance/testSpelling.st @@ -1,4 +1,4 @@ -testing +tests testSpelling self diff --git a/packages/SwaLint-Tests.package/SLSmallLintPlugInTest.class/instance/testStringConcatenation.st b/packages/SwaLint-Tests.package/SLSmallLintPlugInTest.class/instance/testStringConcatenation.st index 63f7ddfa..9549ef1f 100644 --- a/packages/SwaLint-Tests.package/SLSmallLintPlugInTest.class/instance/testStringConcatenation.st +++ b/packages/SwaLint-Tests.package/SLSmallLintPlugInTest.class/instance/testStringConcatenation.st @@ -1,4 +1,4 @@ -testing +tests testStringConcatenation self diff --git a/packages/SwaLint-Tests.package/SLSmallLintPlugInTest.class/instance/testSubclassResponsibilityNotDefined.st b/packages/SwaLint-Tests.package/SLSmallLintPlugInTest.class/instance/testSubclassResponsibilityNotDefined.st index 69cb69b3..7e8f3864 100644 --- a/packages/SwaLint-Tests.package/SLSmallLintPlugInTest.class/instance/testSubclassResponsibilityNotDefined.st +++ b/packages/SwaLint-Tests.package/SLSmallLintPlugInTest.class/instance/testSubclassResponsibilityNotDefined.st @@ -1,4 +1,4 @@ -testing +tests testSubclassResponsibilityNotDefined self diff --git a/packages/SwaLint-Tests.package/SLSmallLintPlugInTest.class/instance/testSuperSendsNew.st b/packages/SwaLint-Tests.package/SLSmallLintPlugInTest.class/instance/testSuperSendsNew.st index 1223cdfb..c6a5cc11 100644 --- a/packages/SwaLint-Tests.package/SLSmallLintPlugInTest.class/instance/testSuperSendsNew.st +++ b/packages/SwaLint-Tests.package/SLSmallLintPlugInTest.class/instance/testSuperSendsNew.st @@ -1,4 +1,4 @@ -testing +tests testSuperSendsNew self diff --git a/packages/SwaLint-Tests.package/SLSmallLintPlugInTest.class/instance/testTempVarOverridesInstVarRule.st b/packages/SwaLint-Tests.package/SLSmallLintPlugInTest.class/instance/testTempVarOverridesInstVarRule.st index 3e4fe653..acc0930f 100644 --- a/packages/SwaLint-Tests.package/SLSmallLintPlugInTest.class/instance/testTempVarOverridesInstVarRule.st +++ b/packages/SwaLint-Tests.package/SLSmallLintPlugInTest.class/instance/testTempVarOverridesInstVarRule.st @@ -1,4 +1,4 @@ -testing +tests testTempVarOverridesInstVarRule self diff --git a/packages/SwaLint-Tests.package/SLSmallLintPlugInTest.class/instance/testTemporaryVariableCapitalization.st b/packages/SwaLint-Tests.package/SLSmallLintPlugInTest.class/instance/testTemporaryVariableCapitalization.st index 491c1061..147fc4a4 100644 --- a/packages/SwaLint-Tests.package/SLSmallLintPlugInTest.class/instance/testTemporaryVariableCapitalization.st +++ b/packages/SwaLint-Tests.package/SLSmallLintPlugInTest.class/instance/testTemporaryVariableCapitalization.st @@ -1,4 +1,4 @@ -testing +tests testTemporaryVariableCapitalization self diff --git a/packages/SwaLint-Tests.package/SLSmallLintPlugInTest.class/instance/testTempsReadBeforeWritten.st b/packages/SwaLint-Tests.package/SLSmallLintPlugInTest.class/instance/testTempsReadBeforeWritten.st index f54232a6..1790d4ad 100644 --- a/packages/SwaLint-Tests.package/SLSmallLintPlugInTest.class/instance/testTempsReadBeforeWritten.st +++ b/packages/SwaLint-Tests.package/SLSmallLintPlugInTest.class/instance/testTempsReadBeforeWritten.st @@ -1,4 +1,4 @@ -testing +tests testTempsReadBeforeWritten self diff --git a/packages/SwaLint-Tests.package/SLSmallLintPlugInTest.class/instance/testThreeElementPoint.st b/packages/SwaLint-Tests.package/SLSmallLintPlugInTest.class/instance/testThreeElementPoint.st index c218d609..77bf7a00 100644 --- a/packages/SwaLint-Tests.package/SLSmallLintPlugInTest.class/instance/testThreeElementPoint.st +++ b/packages/SwaLint-Tests.package/SLSmallLintPlugInTest.class/instance/testThreeElementPoint.st @@ -1,4 +1,4 @@ -testing +tests testThreeElementPoint self diff --git a/packages/SwaLint-Tests.package/SLSmallLintPlugInTest.class/instance/testToDoWithIncrement.st b/packages/SwaLint-Tests.package/SLSmallLintPlugInTest.class/instance/testToDoWithIncrement.st index 8cc9d15c..b419e671 100644 --- a/packages/SwaLint-Tests.package/SLSmallLintPlugInTest.class/instance/testToDoWithIncrement.st +++ b/packages/SwaLint-Tests.package/SLSmallLintPlugInTest.class/instance/testToDoWithIncrement.st @@ -1,4 +1,4 @@ -testing +tests testToDoWithIncrement self diff --git a/packages/SwaLint-Tests.package/SLSmallLintPlugInTest.class/instance/testUnclassifiedMethods.st b/packages/SwaLint-Tests.package/SLSmallLintPlugInTest.class/instance/testUnclassifiedMethods.st index 6819a85f..4c137a90 100644 --- a/packages/SwaLint-Tests.package/SLSmallLintPlugInTest.class/instance/testUnclassifiedMethods.st +++ b/packages/SwaLint-Tests.package/SLSmallLintPlugInTest.class/instance/testUnclassifiedMethods.st @@ -1,4 +1,4 @@ -testing +tests testUnclassifiedMethods self diff --git a/packages/SwaLint-Tests.package/SLSmallLintPlugInTest.class/instance/testUncommonMessageSend.st b/packages/SwaLint-Tests.package/SLSmallLintPlugInTest.class/instance/testUncommonMessageSend.st index 43dc9404..50b36161 100644 --- a/packages/SwaLint-Tests.package/SLSmallLintPlugInTest.class/instance/testUncommonMessageSend.st +++ b/packages/SwaLint-Tests.package/SLSmallLintPlugInTest.class/instance/testUncommonMessageSend.st @@ -1,4 +1,4 @@ -testing +tests testUncommonMessageSend self diff --git a/packages/SwaLint-Tests.package/SLSmallLintPlugInTest.class/instance/testUnconditionalRecursion.st b/packages/SwaLint-Tests.package/SLSmallLintPlugInTest.class/instance/testUnconditionalRecursion.st index 8f6083b1..a17c81fa 100644 --- a/packages/SwaLint-Tests.package/SLSmallLintPlugInTest.class/instance/testUnconditionalRecursion.st +++ b/packages/SwaLint-Tests.package/SLSmallLintPlugInTest.class/instance/testUnconditionalRecursion.st @@ -1,4 +1,4 @@ -testing +tests testUnconditionalRecursion self diff --git a/packages/SwaLint-Tests.package/SLSmallLintPlugInTest.class/instance/testUndeclaredReferenceRule.st b/packages/SwaLint-Tests.package/SLSmallLintPlugInTest.class/instance/testUndeclaredReferenceRule.st index be1e96f9..5a2abbe7 100644 --- a/packages/SwaLint-Tests.package/SLSmallLintPlugInTest.class/instance/testUndeclaredReferenceRule.st +++ b/packages/SwaLint-Tests.package/SLSmallLintPlugInTest.class/instance/testUndeclaredReferenceRule.st @@ -1,4 +1,4 @@ -testing +tests testUndeclaredReferenceRule self diff --git a/packages/SwaLint-Tests.package/SLSmallLintPlugInTest.class/instance/testUnnecessaryAssignment.st b/packages/SwaLint-Tests.package/SLSmallLintPlugInTest.class/instance/testUnnecessaryAssignment.st index b606498b..fc3812e7 100644 --- a/packages/SwaLint-Tests.package/SLSmallLintPlugInTest.class/instance/testUnnecessaryAssignment.st +++ b/packages/SwaLint-Tests.package/SLSmallLintPlugInTest.class/instance/testUnnecessaryAssignment.st @@ -1,4 +1,4 @@ -testing +tests testUnnecessaryAssignment "self diff --git a/packages/SwaLint-Tests.package/SLSmallLintPlugInTest.class/instance/testUnoptimizedAndOr.st b/packages/SwaLint-Tests.package/SLSmallLintPlugInTest.class/instance/testUnoptimizedAndOr.st index 7541577d..056ffd49 100644 --- a/packages/SwaLint-Tests.package/SLSmallLintPlugInTest.class/instance/testUnoptimizedAndOr.st +++ b/packages/SwaLint-Tests.package/SLSmallLintPlugInTest.class/instance/testUnoptimizedAndOr.st @@ -1,4 +1,4 @@ -testing +tests testUnoptimizedAndOr self diff --git a/packages/SwaLint-Tests.package/SLSmallLintPlugInTest.class/instance/testUnoptimizedToDo.st b/packages/SwaLint-Tests.package/SLSmallLintPlugInTest.class/instance/testUnoptimizedToDo.st index 4d1225b8..6996fafe 100644 --- a/packages/SwaLint-Tests.package/SLSmallLintPlugInTest.class/instance/testUnoptimizedToDo.st +++ b/packages/SwaLint-Tests.package/SLSmallLintPlugInTest.class/instance/testUnoptimizedToDo.st @@ -1,4 +1,4 @@ -testing +tests testUnoptimizedToDo self diff --git a/packages/SwaLint-Tests.package/SLSmallLintPlugInTest.class/instance/testUsesAdd.st b/packages/SwaLint-Tests.package/SLSmallLintPlugInTest.class/instance/testUsesAdd.st index 531c1b3c..e8f4d4e3 100644 --- a/packages/SwaLint-Tests.package/SLSmallLintPlugInTest.class/instance/testUsesAdd.st +++ b/packages/SwaLint-Tests.package/SLSmallLintPlugInTest.class/instance/testUsesAdd.st @@ -1,4 +1,4 @@ -testing +tests testUsesAdd self diff --git a/packages/SwaLint-Tests.package/SLSmallLintPlugInTest.class/instance/testUtilityMethods.st b/packages/SwaLint-Tests.package/SLSmallLintPlugInTest.class/instance/testUtilityMethods.st index cd1a569a..b8ba7f94 100644 --- a/packages/SwaLint-Tests.package/SLSmallLintPlugInTest.class/instance/testUtilityMethods.st +++ b/packages/SwaLint-Tests.package/SLSmallLintPlugInTest.class/instance/testUtilityMethods.st @@ -1,4 +1,4 @@ -testing +tests testUtilityMethods self diff --git a/packages/SwaLint-Tests.package/SLSmallLintPlugInTest.class/instance/testVariableAssignedLiteral.st b/packages/SwaLint-Tests.package/SLSmallLintPlugInTest.class/instance/testVariableAssignedLiteral.st index 6caa0b86..2f507218 100644 --- a/packages/SwaLint-Tests.package/SLSmallLintPlugInTest.class/instance/testVariableAssignedLiteral.st +++ b/packages/SwaLint-Tests.package/SLSmallLintPlugInTest.class/instance/testVariableAssignedLiteral.st @@ -1,4 +1,4 @@ -testing +tests testVariableAssignedLiteral self diff --git a/packages/SwaLint-Tests.package/SLSmallLintPlugInTest.class/instance/testVariableReferncedOnce.st b/packages/SwaLint-Tests.package/SLSmallLintPlugInTest.class/instance/testVariableReferncedOnce.st index a0bab75c..07966711 100644 --- a/packages/SwaLint-Tests.package/SLSmallLintPlugInTest.class/instance/testVariableReferncedOnce.st +++ b/packages/SwaLint-Tests.package/SLSmallLintPlugInTest.class/instance/testVariableReferncedOnce.st @@ -1,4 +1,4 @@ -testing +tests testVariableReferncedOnce self diff --git a/packages/SwaLint-Tests.package/SLSmallLintPlugInTest.class/instance/testWhileTrue.st b/packages/SwaLint-Tests.package/SLSmallLintPlugInTest.class/instance/testWhileTrue.st index 95b38736..ac6ec25b 100644 --- a/packages/SwaLint-Tests.package/SLSmallLintPlugInTest.class/instance/testWhileTrue.st +++ b/packages/SwaLint-Tests.package/SLSmallLintPlugInTest.class/instance/testWhileTrue.st @@ -1,4 +1,4 @@ -testing +tests testWhileTrue self diff --git a/packages/SwaLint-Tests.package/SLSmallLintPlugInTest.class/instance/testYourselfNotUsed.st b/packages/SwaLint-Tests.package/SLSmallLintPlugInTest.class/instance/testYourselfNotUsed.st index 35962aa4..20e146a5 100644 --- a/packages/SwaLint-Tests.package/SLSmallLintPlugInTest.class/instance/testYourselfNotUsed.st +++ b/packages/SwaLint-Tests.package/SLSmallLintPlugInTest.class/instance/testYourselfNotUsed.st @@ -1,4 +1,4 @@ -testing +tests testYourselfNotUsed self diff --git a/packages/SwaLint-Tests.package/SLSmallLintPlugInTest.class/methodProperties.json b/packages/SwaLint-Tests.package/SLSmallLintPlugInTest.class/methodProperties.json index a510648e..b0b9bfd2 100644 --- a/packages/SwaLint-Tests.package/SLSmallLintPlugInTest.class/methodProperties.json +++ b/packages/SwaLint-Tests.package/SLSmallLintPlugInTest.class/methodProperties.json @@ -2,6 +2,7 @@ "class" : { }, "instance" : { + "expectedFailures" : "ct 10/6/2025 04:00", "testArgumentVariableNamesSpelling" : "LS 6/16/2018 13:46", "testAsOrderedCollectionNotNeeded" : "LS 6/16/2018 13:46", "testAssignmentHasNoEffect" : "LS 6/16/2018 14:01", @@ -16,7 +17,7 @@ "testCollectionProtocol" : "BD 6/21/2018 18:05", "testConsistencyCheck" : "LS 6/16/2018 13:49", "testContainsRule" : "LS 6/16/2018 13:49", - "testDefinesEqualsNotHash" : "LS 6/16/2018 13:50", + "testDefinesEqualsNotHash" : "ct 12/20/2024 02:07", "testDetectContains" : "LS 6/16/2018 13:50", "testEndTrueFalse" : "LS 6/16/2018 13:50", "testEqualNotUsed" : "LS 6/16/2018 13:50", @@ -39,6 +40,7 @@ "testLawOfDemeter" : "BD 6/22/2018 13:51", "testLiteralArrayCharacters" : "LS 6/16/2018 14:02", "testLiteralArrayContainsComma" : "LS 6/16/2018 14:02", + "testLiteralArrayContainsDot" : "ct 12/13/2024 03:17", "testLiteralValuesSpelling" : "LS 6/16/2018 14:02", "testMethodModifierFinal" : "LS 6/16/2018 14:02", "testMethodModifierOverride" : "LS 6/16/2018 14:02", @@ -57,7 +59,7 @@ "testReturnInEnsure" : "LS 6/16/2018 14:18", "testReturnsBooleanAndOther" : "LS 6/16/2018 14:18", "testReturnsIfTrue" : "LS 6/16/2018 14:18", - "testRuleFor" : "NA 7/29/2015 16:42", + "testRuleFor" : "ct 10/4/2025 02:43", "testSearchingLiteral" : "LS 6/16/2018 14:19", "testSendsDifferentSuper" : "LS 6/16/2018 14:19", "testSendsUnknownMessageToGlobal" : "LS 6/16/2018 14:19", diff --git a/packages/SwaLint-Tests.package/SLSwaMetricsPlugInTest.class/instance/testBadlyFormattedMethods.st b/packages/SwaLint-Tests.package/SLSwaMetricsPlugInTest.class/instance/testBadlyFormattedMethods.st index bfd0267c..7eadfd88 100644 --- a/packages/SwaLint-Tests.package/SLSwaMetricsPlugInTest.class/instance/testBadlyFormattedMethods.st +++ b/packages/SwaLint-Tests.package/SLSwaMetricsPlugInTest.class/instance/testBadlyFormattedMethods.st @@ -1,4 +1,4 @@ -testing +tests testBadlyFormattedMethods self diff --git a/packages/SwaLint-Tests.package/SLSwaMetricsPlugInTest.class/instance/testCommentedMethods.st b/packages/SwaLint-Tests.package/SLSwaMetricsPlugInTest.class/instance/testCommentedMethods.st index d8db96d9..d89ffea1 100644 --- a/packages/SwaLint-Tests.package/SLSwaMetricsPlugInTest.class/instance/testCommentedMethods.st +++ b/packages/SwaLint-Tests.package/SLSwaMetricsPlugInTest.class/instance/testCommentedMethods.st @@ -1,4 +1,4 @@ -testing +tests testCommentedMethods self diff --git a/packages/SwaLint-Tests.package/SLSwaMetricsPlugInTest.class/instance/testGlobalState.st b/packages/SwaLint-Tests.package/SLSwaMetricsPlugInTest.class/instance/testGlobalState.st index 3d0ea001..3cceebb5 100644 --- a/packages/SwaLint-Tests.package/SLSwaMetricsPlugInTest.class/instance/testGlobalState.st +++ b/packages/SwaLint-Tests.package/SLSwaMetricsPlugInTest.class/instance/testGlobalState.st @@ -1,4 +1,4 @@ -testing +tests testGlobalState self diff --git a/packages/SwaLint-Tests.package/SLSwaMetricsPlugInTest.class/instance/testHandlingOfNilValues.st b/packages/SwaLint-Tests.package/SLSwaMetricsPlugInTest.class/instance/testHandlingOfNilValues.st index 0bc3281f..da6c74df 100644 --- a/packages/SwaLint-Tests.package/SLSwaMetricsPlugInTest.class/instance/testHandlingOfNilValues.st +++ b/packages/SwaLint-Tests.package/SLSwaMetricsPlugInTest.class/instance/testHandlingOfNilValues.st @@ -1,4 +1,4 @@ -testing +tests testHandlingOfNilValues self test: #nilProgramming: diff --git a/packages/SwaLint-Tests.package/SLSwaMetricsPlugInTest.class/instance/testInstanceVariableAccessIsConsistent.st b/packages/SwaLint-Tests.package/SLSwaMetricsPlugInTest.class/instance/testInstanceVariableAccessIsConsistent.st index b0b24b19..b2303220 100644 --- a/packages/SwaLint-Tests.package/SLSwaMetricsPlugInTest.class/instance/testInstanceVariableAccessIsConsistent.st +++ b/packages/SwaLint-Tests.package/SLSwaMetricsPlugInTest.class/instance/testInstanceVariableAccessIsConsistent.st @@ -1,4 +1,4 @@ -testing +tests testInstanceVariableAccessIsConsistent self diff --git a/packages/SwaLint-Tests.package/SLSwaMetricsPlugInTest.class/instance/testMagicNumbers.st b/packages/SwaLint-Tests.package/SLSwaMetricsPlugInTest.class/instance/testMagicNumbers.st index c755dda4..0b58290d 100644 --- a/packages/SwaLint-Tests.package/SLSwaMetricsPlugInTest.class/instance/testMagicNumbers.st +++ b/packages/SwaLint-Tests.package/SLSwaMetricsPlugInTest.class/instance/testMagicNumbers.st @@ -1,4 +1,4 @@ -testing +tests testMagicNumbers self diff --git a/packages/SwaLint-Tests.package/SLSwaMetricsPlugInTest.class/instance/testMetaProgramming.st b/packages/SwaLint-Tests.package/SLSwaMetricsPlugInTest.class/instance/testMetaProgramming.st index 7bcb4584..17bce408 100644 --- a/packages/SwaLint-Tests.package/SLSwaMetricsPlugInTest.class/instance/testMetaProgramming.st +++ b/packages/SwaLint-Tests.package/SLSwaMetricsPlugInTest.class/instance/testMetaProgramming.st @@ -1,4 +1,4 @@ -testing +tests testMetaProgramming self diff --git a/packages/SwaLint-Tests.package/SLSwaMetricsPlugInTest.class/instance/testMethodcount.st b/packages/SwaLint-Tests.package/SLSwaMetricsPlugInTest.class/instance/testMethodcount.st index 16b9ea36..688f03b1 100644 --- a/packages/SwaLint-Tests.package/SLSwaMetricsPlugInTest.class/instance/testMethodcount.st +++ b/packages/SwaLint-Tests.package/SLSwaMetricsPlugInTest.class/instance/testMethodcount.st @@ -1,4 +1,4 @@ -testing +tests testMethodcount self diff --git a/packages/SwaLint-Tests.package/SLSwaMetricsPlugInTest.class/instance/testMethodsWithOutSenders.st b/packages/SwaLint-Tests.package/SLSwaMetricsPlugInTest.class/instance/testMethodsWithOutSenders.st index 1c209d12..1de23d85 100644 --- a/packages/SwaLint-Tests.package/SLSwaMetricsPlugInTest.class/instance/testMethodsWithOutSenders.st +++ b/packages/SwaLint-Tests.package/SLSwaMetricsPlugInTest.class/instance/testMethodsWithOutSenders.st @@ -1,4 +1,4 @@ -testing +tests testMethodsWithOutSenders self test: #methodsWithoutSenders: diff --git a/packages/SwaLint-Tests.package/SLSwaMetricsPlugInTest.class/instance/testNoClassComments.st b/packages/SwaLint-Tests.package/SLSwaMetricsPlugInTest.class/instance/testNoClassComments.st index 98e6acda..2aaf7d21 100644 --- a/packages/SwaLint-Tests.package/SLSwaMetricsPlugInTest.class/instance/testNoClassComments.st +++ b/packages/SwaLint-Tests.package/SLSwaMetricsPlugInTest.class/instance/testNoClassComments.st @@ -1,7 +1,7 @@ -testing +tests testNoClassComments self test: #noClassComments: on: {SLDummyClass0. SLDummyClass04} - expectedResults: {true. false} \ No newline at end of file + expectedResults: {false. true} \ No newline at end of file diff --git a/packages/SwaLint-Tests.package/SLSwaMetricsPlugInTest.class/methodProperties.json b/packages/SwaLint-Tests.package/SLSwaMetricsPlugInTest.class/methodProperties.json index 99d31792..5970967a 100644 --- a/packages/SwaLint-Tests.package/SLSwaMetricsPlugInTest.class/methodProperties.json +++ b/packages/SwaLint-Tests.package/SLSwaMetricsPlugInTest.class/methodProperties.json @@ -11,4 +11,4 @@ "testMetaProgramming" : "LS 6/16/2018 14:28", "testMethodcount" : "BD 6/16/2018 20:03", "testMethodsWithOutSenders" : "NA 7/29/2015 15:37", - "testNoClassComments" : "fm 6/29/2018 02:46" } } + "testNoClassComments" : "ct 10/4/2025 00:14" } } diff --git a/packages/SwaLint-Tests.package/SLTestCase.class/instance/tearDown.st b/packages/SwaLint-Tests.package/SLTestCase.class/instance/tearDown.st index 0a29058d..012dc05f 100644 --- a/packages/SwaLint-Tests.package/SLTestCase.class/instance/tearDown.st +++ b/packages/SwaLint-Tests.package/SLTestCase.class/instance/tearDown.st @@ -1,4 +1,4 @@ -tests +running tearDown Transcript show: '1'. diff --git a/packages/SwaLint-Tests.package/SLTestCase.class/properties.json b/packages/SwaLint-Tests.package/SLTestCase.class/properties.json index c8134dea..255ce536 100644 --- a/packages/SwaLint-Tests.package/SLTestCase.class/properties.json +++ b/packages/SwaLint-Tests.package/SLTestCase.class/properties.json @@ -1,9 +1,9 @@ { "category" : "SwaLint-Tests", "classinstvars" : [ - "DummyEnvironment" ], - "classvars" : [ ], + "classvars" : [ + "DummyEnvironment" ], "commentStamp" : "NR 1/28/2008 17:09", "instvars" : [ ], diff --git a/packages/SwaLint-Tests.package/SLTestLiteralArrayContainsDot01.class/README.md b/packages/SwaLint-Tests.package/SLTestLiteralArrayContainsDot01.class/README.md new file mode 100644 index 00000000..e69de29b diff --git a/packages/SwaLint-Tests.package/SLTestLiteralArrayContainsDot01.class/instance/characterArray.st b/packages/SwaLint-Tests.package/SLTestLiteralArrayContainsDot01.class/instance/characterArray.st new file mode 100644 index 00000000..bd12c55d --- /dev/null +++ b/packages/SwaLint-Tests.package/SLTestLiteralArrayContainsDot01.class/instance/characterArray.st @@ -0,0 +1,4 @@ +as yet unclassified +characterArray + + ^ #($a) \ No newline at end of file diff --git a/packages/SwaLint-Tests.package/SLTestLiteralArrayContainsDot01.class/instance/method.st b/packages/SwaLint-Tests.package/SLTestLiteralArrayContainsDot01.class/instance/method.st new file mode 100644 index 00000000..3a95859e --- /dev/null +++ b/packages/SwaLint-Tests.package/SLTestLiteralArrayContainsDot01.class/instance/method.st @@ -0,0 +1,4 @@ +as yet unclassified +method + + ^ #( . ) \ No newline at end of file diff --git a/packages/SwaLint-Tests.package/SLTestLiteralArrayContainsDot01.class/instance/symbolArray.st b/packages/SwaLint-Tests.package/SLTestLiteralArrayContainsDot01.class/instance/symbolArray.st new file mode 100644 index 00000000..65e796e3 --- /dev/null +++ b/packages/SwaLint-Tests.package/SLTestLiteralArrayContainsDot01.class/instance/symbolArray.st @@ -0,0 +1,3 @@ +as yet unclassified +symbolArray + ^ #(#someSymbol $a) \ No newline at end of file diff --git a/packages/SwaLint-Tests.package/SLTestLiteralArrayContainsDot01.class/methodProperties.json b/packages/SwaLint-Tests.package/SLTestLiteralArrayContainsDot01.class/methodProperties.json new file mode 100644 index 00000000..5c48014e --- /dev/null +++ b/packages/SwaLint-Tests.package/SLTestLiteralArrayContainsDot01.class/methodProperties.json @@ -0,0 +1,7 @@ +{ + "class" : { + }, + "instance" : { + "characterArray" : "Lars Seifert 5/29/2018 17:12", + "method" : "ct 12/13/2024 03:18", + "symbolArray" : "Lars Seifert 5/29/2018 17:20" } } diff --git a/packages/SwaLint-Tests.package/SLTestLiteralArrayContainsDot01.class/properties.json b/packages/SwaLint-Tests.package/SLTestLiteralArrayContainsDot01.class/properties.json new file mode 100644 index 00000000..7609591b --- /dev/null +++ b/packages/SwaLint-Tests.package/SLTestLiteralArrayContainsDot01.class/properties.json @@ -0,0 +1,14 @@ +{ + "category" : "SwaLint-Tests-Data", + "classinstvars" : [ + ], + "classvars" : [ + ], + "commentStamp" : "", + "instvars" : [ + ], + "name" : "SLTestLiteralArrayContainsDot01", + "pools" : [ + ], + "super" : "Object", + "type" : "normal" } diff --git a/packages/SwaLint-Tests.package/SwaLintDisharmonyTests.class/instance/testBrainClass.st b/packages/SwaLint-Tests.package/SwaLintDisharmonyTests.class/instance/testBrainClass.st index d43f6753..e5859413 100644 --- a/packages/SwaLint-Tests.package/SwaLintDisharmonyTests.class/instance/testBrainClass.st +++ b/packages/SwaLint-Tests.package/SwaLintDisharmonyTests.class/instance/testBrainClass.st @@ -1,4 +1,4 @@ -testing +tests testBrainClass self diff --git a/packages/SwaLint-Tests.package/SwaLintDisharmonyTests.class/instance/testDispersedCoupling.st b/packages/SwaLint-Tests.package/SwaLintDisharmonyTests.class/instance/testDispersedCoupling.st index 872759e6..c6b34dbe 100644 --- a/packages/SwaLint-Tests.package/SwaLintDisharmonyTests.class/instance/testDispersedCoupling.st +++ b/packages/SwaLint-Tests.package/SwaLintDisharmonyTests.class/instance/testDispersedCoupling.st @@ -1,4 +1,4 @@ -testing +tests testDispersedCoupling | couplingClass dispersedCoupling testSystem | diff --git a/packages/SwaLint-Tests.package/SwaLintDisharmonyTests.class/instance/testFeatureEnvy.st b/packages/SwaLint-Tests.package/SwaLintDisharmonyTests.class/instance/testFeatureEnvy.st index e2f76966..4c501d4f 100644 --- a/packages/SwaLint-Tests.package/SwaLintDisharmonyTests.class/instance/testFeatureEnvy.st +++ b/packages/SwaLint-Tests.package/SwaLintDisharmonyTests.class/instance/testFeatureEnvy.st @@ -1,4 +1,4 @@ -testing +tests testFeatureEnvy | enviousClass testSystem| diff --git a/packages/SwaLint-Tests.package/SwaLintDisharmonyTests.class/instance/testIntensiveCoupling.st b/packages/SwaLint-Tests.package/SwaLintDisharmonyTests.class/instance/testIntensiveCoupling.st index 3492b1ef..6e9ec4f0 100644 --- a/packages/SwaLint-Tests.package/SwaLintDisharmonyTests.class/instance/testIntensiveCoupling.st +++ b/packages/SwaLint-Tests.package/SwaLintDisharmonyTests.class/instance/testIntensiveCoupling.st @@ -1,4 +1,4 @@ -testing +tests testIntensiveCoupling | couplingClass intensiveCoupling testSystem | diff --git a/packages/SwaLint-Tests.package/SwaLintDisharmonyTests.class/instance/testRefusedParentBequest.st b/packages/SwaLint-Tests.package/SwaLintDisharmonyTests.class/instance/testRefusedParentBequest.st index 994dd6b0..26afd94e 100644 --- a/packages/SwaLint-Tests.package/SwaLintDisharmonyTests.class/instance/testRefusedParentBequest.st +++ b/packages/SwaLint-Tests.package/SwaLintDisharmonyTests.class/instance/testRefusedParentBequest.st @@ -1,4 +1,4 @@ -testing +tests testRefusedParentBequest diff --git a/packages/SwaLint-Tests.package/SwaLintDisharmonyTests.class/instance/testShotgunSurgery.st b/packages/SwaLint-Tests.package/SwaLintDisharmonyTests.class/instance/testShotgunSurgery.st index df818930..0f50608d 100644 --- a/packages/SwaLint-Tests.package/SwaLintDisharmonyTests.class/instance/testShotgunSurgery.st +++ b/packages/SwaLint-Tests.package/SwaLintDisharmonyTests.class/instance/testShotgunSurgery.st @@ -1,4 +1,4 @@ -testing +tests testShotgunSurgery | shotgunSurgery testSystem| diff --git a/packages/SwaLint-Tests.package/SwaLintDisharmonyTests.class/instance/testSignificantDuplication.st b/packages/SwaLint-Tests.package/SwaLintDisharmonyTests.class/instance/testSignificantDuplication.st index 6d2e558e..2e86f8e5 100644 --- a/packages/SwaLint-Tests.package/SwaLintDisharmonyTests.class/instance/testSignificantDuplication.st +++ b/packages/SwaLint-Tests.package/SwaLintDisharmonyTests.class/instance/testSignificantDuplication.st @@ -1,4 +1,4 @@ -testing +tests testSignificantDuplication | duplicationClass duplicationMethod testSystem|. diff --git a/packages/SwaLint-Tests.package/SwaLintDisharmonyTests.class/instance/testSyntheticSignificantDuplication.st b/packages/SwaLint-Tests.package/SwaLintDisharmonyTests.class/instance/testSyntheticSignificantDuplication.st index 5a25fbfa..23631bba 100644 --- a/packages/SwaLint-Tests.package/SwaLintDisharmonyTests.class/instance/testSyntheticSignificantDuplication.st +++ b/packages/SwaLint-Tests.package/SwaLintDisharmonyTests.class/instance/testSyntheticSignificantDuplication.st @@ -1,4 +1,4 @@ -testing +tests testSyntheticSignificantDuplication | testSize testCloneMethod compCloneMethod testCloneChainMethod compCloneChainMethod plugIn | diff --git a/packages/SwaLint-Tests.package/SwaLintDisharmonyTests.class/instance/testTraditionBreaker.st b/packages/SwaLint-Tests.package/SwaLintDisharmonyTests.class/instance/testTraditionBreaker.st index bd54d9bd..a36f1000 100644 --- a/packages/SwaLint-Tests.package/SwaLintDisharmonyTests.class/instance/testTraditionBreaker.st +++ b/packages/SwaLint-Tests.package/SwaLintDisharmonyTests.class/instance/testTraditionBreaker.st @@ -1,4 +1,4 @@ -testing +tests testTraditionBreaker | traditionBreaker testSystem | diff --git a/packages/SwaLint-Tests.package/SwaLintMetricPlugInTests.class/instance/testClassCount.st b/packages/SwaLint-Tests.package/SwaLintMetricPlugInTests.class/instance/testClassCount.st index 158a27aa..da3d0629 100644 --- a/packages/SwaLint-Tests.package/SwaLintMetricPlugInTests.class/instance/testClassCount.st +++ b/packages/SwaLint-Tests.package/SwaLintMetricPlugInTests.class/instance/testClassCount.st @@ -1,4 +1,4 @@ -testing +tests testClassCount self diff --git a/packages/SwaLint-Tests.package/SwaLintMetricPlugInTests.class/instance/testMethodCount.st b/packages/SwaLint-Tests.package/SwaLintMetricPlugInTests.class/instance/testMethodCount.st index aadc1587..54c874f7 100644 --- a/packages/SwaLint-Tests.package/SwaLintMetricPlugInTests.class/instance/testMethodCount.st +++ b/packages/SwaLint-Tests.package/SwaLintMetricPlugInTests.class/instance/testMethodCount.st @@ -1,4 +1,4 @@ -testing +tests testMethodCount self diff --git a/packages/SwaLint-Tests.package/SwaLintMetricPlugInTests.class/instance/testSlocCount.st b/packages/SwaLint-Tests.package/SwaLintMetricPlugInTests.class/instance/testSlocCount.st index 6ef31d78..e4cb46b9 100644 --- a/packages/SwaLint-Tests.package/SwaLintMetricPlugInTests.class/instance/testSlocCount.st +++ b/packages/SwaLint-Tests.package/SwaLintMetricPlugInTests.class/instance/testSlocCount.st @@ -1,4 +1,4 @@ -testing +tests testSlocCount self diff --git a/packages/SwaLintBrowser.package/.filetree b/packages/SwaLintBrowser.package/.filetree new file mode 100644 index 00000000..8998102c --- /dev/null +++ b/packages/SwaLintBrowser.package/.filetree @@ -0,0 +1,4 @@ +{ + "noMethodMetaData" : true, + "separateMethodMetaAndSource" : false, + "useCypressPropertiesFile" : true } diff --git a/packages/SwaLintBrowser.package/Browser.extension/instance/sl2ClassListMenu..st b/packages/SwaLintBrowser.package/Browser.extension/instance/sl2ClassListMenu..st new file mode 100644 index 00000000..390cfc56 --- /dev/null +++ b/packages/SwaLintBrowser.package/Browser.extension/instance/sl2ClassListMenu..st @@ -0,0 +1,8 @@ +*SwaLintBrowser-UI-menus +sl2ClassListMenu: aMenu + + self hasClassSelected ifFalse: [^ aMenu]. + ^ aMenu addList: #( + - + ('review in SwaLint Browser' sl2OpenClass)); + yourself \ No newline at end of file diff --git a/packages/SwaLintBrowser.package/Browser.extension/instance/sl2OpenClass.st b/packages/SwaLintBrowser.package/Browser.extension/instance/sl2OpenClass.st new file mode 100644 index 00000000..588ef471 --- /dev/null +++ b/packages/SwaLintBrowser.package/Browser.extension/instance/sl2OpenClass.st @@ -0,0 +1,6 @@ +*SwaLintBrowser-UI-menus +sl2OpenClass + + self hasClassSelected ifNil: [^ self changed: #flash]. + ^ SwaLintBrowser openOnTarget: + (SL2Target withClass: self selectedClass) \ No newline at end of file diff --git a/packages/SwaLintBrowser.package/Browser.extension/instance/sl2OpenSystemCategory.st b/packages/SwaLintBrowser.package/Browser.extension/instance/sl2OpenSystemCategory.st new file mode 100644 index 00000000..cfce3be6 --- /dev/null +++ b/packages/SwaLintBrowser.package/Browser.extension/instance/sl2OpenSystemCategory.st @@ -0,0 +1,10 @@ +*SwaLintBrowser-UI-menus +sl2OpenSystemCategory + + | categories | + self hasSystemCategorySelected ifNil: [^ self changed: #flash]. + categories := self currentEvent shiftPressed + ifTrue: [{self selectedSystemCategory}] + ifFalse: [self systemCategoryList select: [:category | category beginsWith: self selectedSystemCategory]]. + ^ SwaLintBrowser openOnTarget: + (SL2Target withSystemCategories: categories) \ No newline at end of file diff --git a/packages/SwaLintBrowser.package/Browser.extension/instance/sl2SystemCategoryMenu..st b/packages/SwaLintBrowser.package/Browser.extension/instance/sl2SystemCategoryMenu..st new file mode 100644 index 00000000..71e20958 --- /dev/null +++ b/packages/SwaLintBrowser.package/Browser.extension/instance/sl2SystemCategoryMenu..st @@ -0,0 +1,8 @@ +*SwaLintBrowser-UI-menus +sl2SystemCategoryMenu: aMenu + + self hasSystemCategorySelected ifFalse: [^ aMenu]. + ^ aMenu addList: #( + - + ('review in SwaLint Browser' sl2OpenSystemCategory)); + yourself \ No newline at end of file diff --git a/packages/SwaLintBrowser.package/Browser.extension/methodProperties.json b/packages/SwaLintBrowser.package/Browser.extension/methodProperties.json new file mode 100644 index 00000000..8e02a5ef --- /dev/null +++ b/packages/SwaLintBrowser.package/Browser.extension/methodProperties.json @@ -0,0 +1,8 @@ +{ + "class" : { + }, + "instance" : { + "sl2ClassListMenu:" : "ct 10/3/2025 23:32", + "sl2OpenClass" : "ct 12/19/2024 20:54", + "sl2OpenSystemCategory" : "ct 12/19/2024 20:57", + "sl2SystemCategoryMenu:" : "ct 10/3/2025 23:32" } } diff --git a/packages/SwaLintBrowser.package/Browser.extension/properties.json b/packages/SwaLintBrowser.package/Browser.extension/properties.json new file mode 100644 index 00000000..edd7909e --- /dev/null +++ b/packages/SwaLintBrowser.package/Browser.extension/properties.json @@ -0,0 +1,2 @@ +{ + "name" : "Browser" } diff --git a/packages/SwaLintBrowser.package/Collection.extension/instance/sl2SortedByHeavy..st b/packages/SwaLintBrowser.package/Collection.extension/instance/sl2SortedByHeavy..st new file mode 100644 index 00000000..8771244e --- /dev/null +++ b/packages/SwaLintBrowser.package/Collection.extension/instance/sl2SortedByHeavy..st @@ -0,0 +1,6 @@ +*SwaLintBrowser-UI-sorting +sl2SortedByHeavy: propertyBlock + + ^ ((self collect: [:ea | ea -> (propertyBlock value: ea)]) + sorted: [:assoc | assoc value] asSortFunction) + collect: [:assoc | assoc key] \ No newline at end of file diff --git a/packages/SwaLintBrowser.package/Collection.extension/methodProperties.json b/packages/SwaLintBrowser.package/Collection.extension/methodProperties.json new file mode 100644 index 00000000..c1a340b7 --- /dev/null +++ b/packages/SwaLintBrowser.package/Collection.extension/methodProperties.json @@ -0,0 +1,5 @@ +{ + "class" : { + }, + "instance" : { + "sl2SortedByHeavy:" : "ct 12/22/2024 00:52" } } diff --git a/packages/SwaLintBrowser.package/Collection.extension/properties.json b/packages/SwaLintBrowser.package/Collection.extension/properties.json new file mode 100644 index 00000000..93b0dc32 --- /dev/null +++ b/packages/SwaLintBrowser.package/Collection.extension/properties.json @@ -0,0 +1,2 @@ +{ + "name" : "Collection" } diff --git a/packages/SwaLintBrowser.package/MenuMorph.extension/instance/sl2Add.getState.setState..st b/packages/SwaLintBrowser.package/MenuMorph.extension/instance/sl2Add.getState.setState..st new file mode 100644 index 00000000..7b3b5673 --- /dev/null +++ b/packages/SwaLintBrowser.package/MenuMorph.extension/instance/sl2Add.getState.setState..st @@ -0,0 +1,15 @@ +*SwaLintBrowser-UI-menu construction +sl2Add: label getState: getter setState: setter + + | target | + target := self defaultTarget. + (getter respondsTo: #receiver) ifFalse: [^ self sl2Add: label getState: [getter value: target] setState: setter]. + (setter respondsTo: #receiver) ifFalse: [^ self sl2Add: label getState: getter setState: [:boolean | setter cull: target cull: boolean]]. + + ^ self addMorphBack: (UpdatingMenuItemMorph new + target: [setter cull: getter value not]; + selector: #value; + wordingProvider: ['<{1}>{2}' format: {getter value ifTrue: [#on] ifFalse: [#off]. label value}] + wordingSelector: #value; + arguments: #(); + yourself) \ No newline at end of file diff --git a/packages/SwaLintBrowser.package/MenuMorph.extension/methodProperties.json b/packages/SwaLintBrowser.package/MenuMorph.extension/methodProperties.json new file mode 100644 index 00000000..e2da9cd4 --- /dev/null +++ b/packages/SwaLintBrowser.package/MenuMorph.extension/methodProperties.json @@ -0,0 +1,5 @@ +{ + "class" : { + }, + "instance" : { + "sl2Add:getState:setState:" : "ct 12/18/2024 03:06" } } diff --git a/packages/SwaLintBrowser.package/MenuMorph.extension/properties.json b/packages/SwaLintBrowser.package/MenuMorph.extension/properties.json new file mode 100644 index 00000000..e7aa0777 --- /dev/null +++ b/packages/SwaLintBrowser.package/MenuMorph.extension/properties.json @@ -0,0 +1,2 @@ +{ + "name" : "MenuMorph" } diff --git a/packages/SwaLintBrowser.package/SL2AspectDependencyGraph.trait/README.md b/packages/SwaLintBrowser.package/SL2AspectDependencyGraph.trait/README.md new file mode 100644 index 00000000..e69de29b diff --git a/packages/SwaLintBrowser.package/SL2AspectDependencyGraph.trait/instance/allAspectDependencies.st b/packages/SwaLintBrowser.package/SL2AspectDependencyGraph.trait/instance/allAspectDependencies.st new file mode 100644 index 00000000..fafa7201 --- /dev/null +++ b/packages/SwaLintBrowser.package/SL2AspectDependencyGraph.trait/instance/allAspectDependencies.st @@ -0,0 +1,4 @@ +updating-private +allAspectDependencies + + ^ self pragmaAspectDependencies , self aspectDependencies \ No newline at end of file diff --git a/packages/SwaLintBrowser.package/SL2AspectDependencyGraph.trait/instance/aspectDependencies.st b/packages/SwaLintBrowser.package/SL2AspectDependencyGraph.trait/instance/aspectDependencies.st new file mode 100644 index 00000000..749b377c --- /dev/null +++ b/packages/SwaLintBrowser.package/SL2AspectDependencyGraph.trait/instance/aspectDependencies.st @@ -0,0 +1,7 @@ +updating +aspectDependencies + + ^ Dictionary new + "Model" + at: #windowTitle put: #(#labelString); + yourself \ No newline at end of file diff --git a/packages/SwaLintBrowser.package/SL2AspectDependencyGraph.trait/instance/changed..st b/packages/SwaLintBrowser.package/SL2AspectDependencyGraph.trait/instance/changed..st new file mode 100644 index 00000000..473a8785 --- /dev/null +++ b/packages/SwaLintBrowser.package/SL2AspectDependencyGraph.trait/instance/changed..st @@ -0,0 +1,7 @@ +updating +changed: aspect + + super changed: aspect. + + (self dependentAspectsOn: aspect) + do: [:dependentAspect | self changedDependent: dependentAspect]. \ No newline at end of file diff --git a/packages/SwaLintBrowser.package/SL2AspectDependencyGraph.trait/instance/changedDependent..st b/packages/SwaLintBrowser.package/SL2AspectDependencyGraph.trait/instance/changedDependent..st new file mode 100644 index 00000000..503fd904 --- /dev/null +++ b/packages/SwaLintBrowser.package/SL2AspectDependencyGraph.trait/instance/changedDependent..st @@ -0,0 +1,5 @@ +updating +changedDependent: aspect + "Hook for implementors to clear caches." + + self changed: aspect. \ No newline at end of file diff --git a/packages/SwaLintBrowser.package/SL2AspectDependencyGraph.trait/instance/dependentAspectsOn..st b/packages/SwaLintBrowser.package/SL2AspectDependencyGraph.trait/instance/dependentAspectsOn..st new file mode 100644 index 00000000..b1cbf0bb --- /dev/null +++ b/packages/SwaLintBrowser.package/SL2AspectDependencyGraph.trait/instance/dependentAspectsOn..st @@ -0,0 +1,10 @@ +updating-private +dependentAspectsOn: aspect + + self flag: #todo. "Detect cyclic dependencies!" + ^ self allAspectDependencies associations + select: [:assoc | + assoc value isString ifTrue: [ + self notify: 'You probably missed an array here!' "aid for stupid devs"]. + assoc value includes: aspect] + thenCollect: [:assoc | assoc key] \ No newline at end of file diff --git a/packages/SwaLintBrowser.package/SL2AspectDependencyGraph.trait/instance/pragmaAspectDependencies.st b/packages/SwaLintBrowser.package/SL2AspectDependencyGraph.trait/instance/pragmaAspectDependencies.st new file mode 100644 index 00000000..9c21fcdb --- /dev/null +++ b/packages/SwaLintBrowser.package/SL2AspectDependencyGraph.trait/instance/pragmaAspectDependencies.st @@ -0,0 +1,10 @@ +updating-private +pragmaAspectDependencies + + ^ (Pragma allNamed: #uses: from: self class to: thisContext methodClass) + collect: [:pragma | + | uses | + uses := pragma argumentAt: 1. + uses isSymbol ifTrue: [uses := {uses}]. + pragma selector -> uses] + as: Dictionary \ No newline at end of file diff --git a/packages/SwaLintBrowser.package/SL2AspectDependencyGraph.trait/methodProperties.json b/packages/SwaLintBrowser.package/SL2AspectDependencyGraph.trait/methodProperties.json new file mode 100644 index 00000000..834a5a34 --- /dev/null +++ b/packages/SwaLintBrowser.package/SL2AspectDependencyGraph.trait/methodProperties.json @@ -0,0 +1,10 @@ +{ + "class" : { + }, + "instance" : { + "allAspectDependencies" : "ct 12/22/2024 01:09", + "aspectDependencies" : "ct 12/22/2024 01:00", + "changed:" : "ct 2/8/2022 14:49", + "changedDependent:" : "ct 2/8/2022 14:49", + "dependentAspectsOn:" : "ct 12/22/2024 01:15", + "pragmaAspectDependencies" : "ct 12/22/2024 01:09" } } diff --git a/packages/SwaLintBrowser.package/SL2AspectDependencyGraph.trait/properties.json b/packages/SwaLintBrowser.package/SL2AspectDependencyGraph.trait/properties.json new file mode 100644 index 00000000..0d94e91d --- /dev/null +++ b/packages/SwaLintBrowser.package/SL2AspectDependencyGraph.trait/properties.json @@ -0,0 +1,4 @@ +{ + "category" : "SwaLintBrowser-UI", + "commentStamp" : "", + "name" : "SL2AspectDependencyGraph" } diff --git a/packages/SwaLintBrowser.package/SL2ClassResult.class/README.md b/packages/SwaLintBrowser.package/SL2ClassResult.class/README.md new file mode 100644 index 00000000..e69de29b diff --git a/packages/SwaLintBrowser.package/SL2ClassResult.class/class/newFor.test.resultData..st b/packages/SwaLintBrowser.package/SL2ClassResult.class/class/newFor.test.resultData..st new file mode 100644 index 00000000..f02335df --- /dev/null +++ b/packages/SwaLintBrowser.package/SL2ClassResult.class/class/newFor.test.resultData..st @@ -0,0 +1,6 @@ +instance creation +newFor: aClass test: aTest resultData: aSLResult + + ^ (self newForTest: aTest resultData: aSLResult) + classObject: aClass; + yourself \ No newline at end of file diff --git a/packages/SwaLintBrowser.package/SL2ClassResult.class/instance/classObject..st b/packages/SwaLintBrowser.package/SL2ClassResult.class/instance/classObject..st new file mode 100644 index 00000000..9ac8de75 --- /dev/null +++ b/packages/SwaLintBrowser.package/SL2ClassResult.class/instance/classObject..st @@ -0,0 +1,4 @@ +accessing +classObject: aClass + + class := aClass. \ No newline at end of file diff --git a/packages/SwaLintBrowser.package/SL2ClassResult.class/instance/classObject.st b/packages/SwaLintBrowser.package/SL2ClassResult.class/instance/classObject.st new file mode 100644 index 00000000..07804934 --- /dev/null +++ b/packages/SwaLintBrowser.package/SL2ClassResult.class/instance/classObject.st @@ -0,0 +1,4 @@ +accessing +classObject + + ^ class \ No newline at end of file diff --git a/packages/SwaLintBrowser.package/SL2ClassResult.class/instance/message.st b/packages/SwaLintBrowser.package/SL2ClassResult.class/instance/message.st new file mode 100644 index 00000000..2b10f2d1 --- /dev/null +++ b/packages/SwaLintBrowser.package/SL2ClassResult.class/instance/message.st @@ -0,0 +1,4 @@ +accessing +message + + ^ #Definition \ No newline at end of file diff --git a/packages/SwaLintBrowser.package/SL2ClassResult.class/methodProperties.json b/packages/SwaLintBrowser.package/SL2ClassResult.class/methodProperties.json new file mode 100644 index 00000000..c7eddcb3 --- /dev/null +++ b/packages/SwaLintBrowser.package/SL2ClassResult.class/methodProperties.json @@ -0,0 +1,7 @@ +{ + "class" : { + "newFor:test:resultData:" : "ct 12/12/2024 05:43" }, + "instance" : { + "classObject" : "ct 12/12/2024 05:43", + "classObject:" : "ct 12/12/2024 05:43", + "message" : "ct 12/12/2024 06:17" } } diff --git a/packages/SwaLintBrowser.package/SL2ClassResult.class/properties.json b/packages/SwaLintBrowser.package/SL2ClassResult.class/properties.json new file mode 100644 index 00000000..05e9f423 --- /dev/null +++ b/packages/SwaLintBrowser.package/SL2ClassResult.class/properties.json @@ -0,0 +1,14 @@ +{ + "category" : "SwaLintBrowser-Core", + "classinstvars" : [ + ], + "classvars" : [ + ], + "commentStamp" : "", + "instvars" : [ + "class" ], + "name" : "SL2ClassResult", + "pools" : [ + ], + "super" : "SL2Result", + "type" : "normal" } diff --git a/packages/SwaLintBrowser.package/SL2DefaultTestMapper.class/README.md b/packages/SwaLintBrowser.package/SL2DefaultTestMapper.class/README.md new file mode 100644 index 00000000..e69de29b diff --git a/packages/SwaLintBrowser.package/SL2DefaultTestMapper.class/instance/catCodeQuality.st b/packages/SwaLintBrowser.package/SL2DefaultTestMapper.class/instance/catCodeQuality.st new file mode 100644 index 00000000..06490e16 --- /dev/null +++ b/packages/SwaLintBrowser.package/SL2DefaultTestMapper.class/instance/catCodeQuality.st @@ -0,0 +1,8 @@ +map - 2. code quality +catCodeQuality + + + ^ (self makeCategoryWithPath: #('code quality')) + sortKey: 2; + description: 'Tests that assess the local quality of your code. This includes general coding styles, superfluous and unncessary complex code, and others. Most tests here are designed to be precise (i.e., to produce few false positive results), but some of them are opinionated. There are many good reasons for not "fixing" all of them blindly, and it is not recommended to achieve a "green bar". Always reflect whether tests make sense in your particular situation and align them with your inidividual coding styles.'; + yourself \ No newline at end of file diff --git a/packages/SwaLintBrowser.package/SL2DefaultTestMapper.class/instance/catCodeQualityCodingStyles.st b/packages/SwaLintBrowser.package/SL2DefaultTestMapper.class/instance/catCodeQualityCodingStyles.st new file mode 100644 index 00000000..f5475b71 --- /dev/null +++ b/packages/SwaLintBrowser.package/SL2DefaultTestMapper.class/instance/catCodeQualityCodingStyles.st @@ -0,0 +1,7 @@ +map - 2. code quality - coding styles +catCodeQualityCodingStyles + + + ^ (self makeCategoryWithPath: #('code quality' 'coding styles')) + description: 'Coding styles and naming conventions.'; + yourself \ No newline at end of file diff --git a/packages/SwaLintBrowser.package/SL2DefaultTestMapper.class/instance/catDesignQuality.st b/packages/SwaLintBrowser.package/SL2DefaultTestMapper.class/instance/catDesignQuality.st new file mode 100644 index 00000000..1bab58d4 --- /dev/null +++ b/packages/SwaLintBrowser.package/SL2DefaultTestMapper.class/instance/catDesignQuality.st @@ -0,0 +1,8 @@ +map - 3. design quality +catDesignQuality + + + ^ (self makeCategoryWithPath: #('design quality')) + sortKey: 3; + description: 'Tests that analyze the architectural quality of your software system. This includes common antipatterns in the communication between objects and the organization of logic, duplicated code, and general metrics. Note that these tests are generally NOT meant to "grade" your design quality but only point you to potentially interesting oddnesses and refactoring opportunities.'; + yourself \ No newline at end of file diff --git a/packages/SwaLintBrowser.package/SL2DefaultTestMapper.class/instance/catLegacyStructure.st b/packages/SwaLintBrowser.package/SL2DefaultTestMapper.class/instance/catLegacyStructure.st new file mode 100644 index 00000000..22d65777 --- /dev/null +++ b/packages/SwaLintBrowser.package/SL2DefaultTestMapper.class/instance/catLegacyStructure.st @@ -0,0 +1,8 @@ +map - (legacy structure) +catLegacyStructure + + + ^ (self makeCategoryWithPath: #('(legacy structure)')) + sortKey: Float negativeInfinity; + description: 'Alternative organization of tests from the classic SwaLint. If we did a good job, the new one is better!'; + yourself \ No newline at end of file diff --git a/packages/SwaLintBrowser.package/SL2DefaultTestMapper.class/instance/catPossibleBugs.st b/packages/SwaLintBrowser.package/SL2DefaultTestMapper.class/instance/catPossibleBugs.st new file mode 100644 index 00000000..7199b683 --- /dev/null +++ b/packages/SwaLintBrowser.package/SL2DefaultTestMapper.class/instance/catPossibleBugs.st @@ -0,0 +1,8 @@ +map - 1. possible bugs +catPossibleBugs + + + ^ (self makeCategoryWithPath: #('possible bugs')) + sortKey: 1; + description: 'Tests that regard the functionality of packages. They are aimed to detect common slips (such as misuses and missing code) with a high precision, making it possible to review them on a regular basis.'; + yourself \ No newline at end of file diff --git a/packages/SwaLintBrowser.package/SL2DefaultTestMapper.class/instance/catSWAStartingPoints.st b/packages/SwaLintBrowser.package/SL2DefaultTestMapper.class/instance/catSWAStartingPoints.st new file mode 100644 index 00000000..0a258275 --- /dev/null +++ b/packages/SwaLintBrowser.package/SL2DefaultTestMapper.class/instance/catSWAStartingPoints.st @@ -0,0 +1,8 @@ +map - 0. +catSWAStartingPoints + + + ^ (self makeCategoryWithPath: #('')) + sortKey: 0; + description: 'These tests capture issues that students commonly stumble upon in their codebases when learning Squeak, Smalltalk, and object-oriented programming. Please consider them with care before making your project submission. Yet, there are many other tests outside this group, which means that you can proceed from our suggested starting points to explore further potential weaknesses in your project. While these tests help improve the quality of your own codebase, they are also a good way to learn and study more about the different idioms/patterns and their applications in other parts of the Squeak system.'; + yourself \ No newline at end of file diff --git a/packages/SwaLintBrowser.package/SL2DefaultTestMapper.class/instance/catUncategorized.st b/packages/SwaLintBrowser.package/SL2DefaultTestMapper.class/instance/catUncategorized.st new file mode 100644 index 00000000..ddc48a6d --- /dev/null +++ b/packages/SwaLintBrowser.package/SL2DefaultTestMapper.class/instance/catUncategorized.st @@ -0,0 +1,7 @@ +map - z. uncategorized +catUncategorized + + + ^ (self makeCategoryWithPath: #('uncategorized')) + sortKey: Float infinity; + yourself \ No newline at end of file diff --git a/packages/SwaLintBrowser.package/SL2DefaultTestMapper.class/instance/mapAbstractClass..st b/packages/SwaLintBrowser.package/SL2DefaultTestMapper.class/instance/mapAbstractClass..st new file mode 100644 index 00000000..5142c1c4 --- /dev/null +++ b/packages/SwaLintBrowser.package/SL2DefaultTestMapper.class/instance/mapAbstractClass..st @@ -0,0 +1,7 @@ +map - 3. design quality - antipatterns +mapAbstractClass: aSLTestData + + + ^ (self makeTestFrom: aSLTestData) + addCategoryPath: #('design quality' 'antipatterns'); + yourself \ No newline at end of file diff --git a/packages/SwaLintBrowser.package/SL2DefaultTestMapper.class/instance/mapAddRemoveDependents..st b/packages/SwaLintBrowser.package/SL2DefaultTestMapper.class/instance/mapAddRemoveDependents..st new file mode 100644 index 00000000..15ed0aae --- /dev/null +++ b/packages/SwaLintBrowser.package/SL2DefaultTestMapper.class/instance/mapAddRemoveDependents..st @@ -0,0 +1,7 @@ +map - 1. possible bugs - libraries - Kernel +mapAddRemoveDependents: aSLTestData + + + ^ (self makeTestFrom: aSLTestData) + addCategoryPath: #('possible bugs' 'libraries' 'Kernel'); + yourself \ No newline at end of file diff --git a/packages/SwaLintBrowser.package/SL2DefaultTestMapper.class/instance/mapAssignmentInBlock..st b/packages/SwaLintBrowser.package/SL2DefaultTestMapper.class/instance/mapAssignmentInBlock..st new file mode 100644 index 00000000..4e9fcc1c --- /dev/null +++ b/packages/SwaLintBrowser.package/SL2DefaultTestMapper.class/instance/mapAssignmentInBlock..st @@ -0,0 +1,7 @@ +map - 2. code quality - syntax +mapAssignmentInBlock: aSLTestData + + + ^ (self makeTestFrom: aSLTestData) + addCategoryPath: #('code quality' 'syntax'); + yourself \ No newline at end of file diff --git a/packages/SwaLintBrowser.package/SL2DefaultTestMapper.class/instance/mapAverageHierarchyHeight..st b/packages/SwaLintBrowser.package/SL2DefaultTestMapper.class/instance/mapAverageHierarchyHeight..st new file mode 100644 index 00000000..3ab2fb84 --- /dev/null +++ b/packages/SwaLintBrowser.package/SL2DefaultTestMapper.class/instance/mapAverageHierarchyHeight..st @@ -0,0 +1,7 @@ +map - 3. design quality - metrics +mapAverageHierarchyHeight: aSLTestData + + + ^ (self makeTestFrom: aSLTestData) + addCategoryPath: #('design quality' 'metrics'); + yourself \ No newline at end of file diff --git a/packages/SwaLintBrowser.package/SL2DefaultTestMapper.class/instance/mapAverageNumberOfDerivedClasses..st b/packages/SwaLintBrowser.package/SL2DefaultTestMapper.class/instance/mapAverageNumberOfDerivedClasses..st new file mode 100644 index 00000000..9762ea03 --- /dev/null +++ b/packages/SwaLintBrowser.package/SL2DefaultTestMapper.class/instance/mapAverageNumberOfDerivedClasses..st @@ -0,0 +1,7 @@ +map - 3. design quality - metrics +mapAverageNumberOfDerivedClasses: aSLTestData + + + ^ (self makeTestFrom: aSLTestData) + addCategoryPath: #('design quality' 'metrics'); + yourself \ No newline at end of file diff --git a/packages/SwaLintBrowser.package/SL2DefaultTestMapper.class/instance/mapBadMessage..st b/packages/SwaLintBrowser.package/SL2DefaultTestMapper.class/instance/mapBadMessage..st new file mode 100644 index 00000000..f353dd49 --- /dev/null +++ b/packages/SwaLintBrowser.package/SL2DefaultTestMapper.class/instance/mapBadMessage..st @@ -0,0 +1,7 @@ +map - 3. design quality - antipatterns +mapBadMessage: aSLTestData + + + ^ (self makeTestFrom: aSLTestData) + addCategoryPath: #('design quality' 'antipatterns'); + yourself \ No newline at end of file diff --git a/packages/SwaLintBrowser.package/SL2DefaultTestMapper.class/instance/mapBadlyFormattedMethods..st b/packages/SwaLintBrowser.package/SL2DefaultTestMapper.class/instance/mapBadlyFormattedMethods..st new file mode 100644 index 00000000..9157cb31 --- /dev/null +++ b/packages/SwaLintBrowser.package/SL2DefaultTestMapper.class/instance/mapBadlyFormattedMethods..st @@ -0,0 +1,7 @@ +map - 2. code quality - coding styles +mapBadlyFormattedMethods: aSLTestData + + + ^ (self makeTestFrom: aSLTestData) + addCategoryPath: #('code quality' 'coding styles'); + yourself \ No newline at end of file diff --git a/packages/SwaLintBrowser.package/SL2DefaultTestMapper.class/instance/mapBooleanPrecedence..st b/packages/SwaLintBrowser.package/SL2DefaultTestMapper.class/instance/mapBooleanPrecedence..st new file mode 100644 index 00000000..54410b0b --- /dev/null +++ b/packages/SwaLintBrowser.package/SL2DefaultTestMapper.class/instance/mapBooleanPrecedence..st @@ -0,0 +1,6 @@ +map - 1. possible bugs - syntax +mapBooleanPrecedence: aSLTestData + + + self flag: #discuss. "ct: could be intentional" + ^ nil \ No newline at end of file diff --git a/packages/SwaLintBrowser.package/SL2DefaultTestMapper.class/instance/mapBrainClass..st b/packages/SwaLintBrowser.package/SL2DefaultTestMapper.class/instance/mapBrainClass..st new file mode 100644 index 00000000..dd7eaa16 --- /dev/null +++ b/packages/SwaLintBrowser.package/SL2DefaultTestMapper.class/instance/mapBrainClass..st @@ -0,0 +1,7 @@ +map - 3. design quality - disharmonies +mapBrainClass: aSLTestData + + + ^ (self makeTestFrom: aSLTestData) + addCategoryPath: #('design quality' 'disharmonies'); + yourself \ No newline at end of file diff --git a/packages/SwaLintBrowser.package/SL2DefaultTestMapper.class/instance/mapBrainMethod..st b/packages/SwaLintBrowser.package/SL2DefaultTestMapper.class/instance/mapBrainMethod..st new file mode 100644 index 00000000..9421128a --- /dev/null +++ b/packages/SwaLintBrowser.package/SL2DefaultTestMapper.class/instance/mapBrainMethod..st @@ -0,0 +1,7 @@ +map - 3. design quality - disharmonies +mapBrainMethod: aSLTestData + + + ^ (self makeTestFrom: aSLTestData) + addCategoryPath: #('design quality' 'disharmonies'); + yourself \ No newline at end of file diff --git a/packages/SwaLintBrowser.package/SL2DefaultTestMapper.class/instance/mapCascadeWithoutYourself..st b/packages/SwaLintBrowser.package/SL2DefaultTestMapper.class/instance/mapCascadeWithoutYourself..st new file mode 100644 index 00000000..6ed0b2ab --- /dev/null +++ b/packages/SwaLintBrowser.package/SL2DefaultTestMapper.class/instance/mapCascadeWithoutYourself..st @@ -0,0 +1,10 @@ +map - 1. possible bugs - syntax +mapCascadeWithoutYourself: aSLTestData + + + self flag: #discuss. "ct: could be intentional" + ^ (self makeTestFrom: aSLTestData) + title: 'Cascade without #yourself'; + addCategoryPath: #('possible bugs' 'syntax'); + description: aSLTestData description , '\\Note that this can also be a valid pattern such as "uniqueCount := Set new addAll: ''hello world''; size".' withCRs; + yourself \ No newline at end of file diff --git a/packages/SwaLintBrowser.package/SL2DefaultTestMapper.class/instance/mapClassCount..st b/packages/SwaLintBrowser.package/SL2DefaultTestMapper.class/instance/mapClassCount..st new file mode 100644 index 00000000..3665b923 --- /dev/null +++ b/packages/SwaLintBrowser.package/SL2DefaultTestMapper.class/instance/mapClassCount..st @@ -0,0 +1,7 @@ +map - 3. design quality - metrics +mapClassCount: aSLTestData + + + ^ (self makeTestFrom: aSLTestData) + addCategoryPath: #('design quality' 'metrics'); + yourself \ No newline at end of file diff --git a/packages/SwaLintBrowser.package/SL2DefaultTestMapper.class/instance/mapClassInstVarNotInitialized..st b/packages/SwaLintBrowser.package/SL2DefaultTestMapper.class/instance/mapClassInstVarNotInitialized..st new file mode 100644 index 00000000..f0441470 --- /dev/null +++ b/packages/SwaLintBrowser.package/SL2DefaultTestMapper.class/instance/mapClassInstVarNotInitialized..st @@ -0,0 +1,5 @@ +map - 1. possible bugs - missing code +mapClassInstVarNotInitialized: aSLTestData + + + ^ nil "lazy accessors seem fair" \ No newline at end of file diff --git a/packages/SwaLintBrowser.package/SL2DefaultTestMapper.class/instance/mapClassNameInSelector..st b/packages/SwaLintBrowser.package/SL2DefaultTestMapper.class/instance/mapClassNameInSelector..st new file mode 100644 index 00000000..a9b42fb2 --- /dev/null +++ b/packages/SwaLintBrowser.package/SL2DefaultTestMapper.class/instance/mapClassNameInSelector..st @@ -0,0 +1,7 @@ +map - 2. code quality - coding styles +mapClassNameInSelector: aSLTestData + + + ^ (self makeTestFrom: aSLTestData) + addCategoryPath: #('code quality' 'coding styles'); + yourself \ No newline at end of file diff --git a/packages/SwaLintBrowser.package/SL2DefaultTestMapper.class/instance/mapClassVariableCapitalization..st b/packages/SwaLintBrowser.package/SL2DefaultTestMapper.class/instance/mapClassVariableCapitalization..st new file mode 100644 index 00000000..793dc7c3 --- /dev/null +++ b/packages/SwaLintBrowser.package/SL2DefaultTestMapper.class/instance/mapClassVariableCapitalization..st @@ -0,0 +1,7 @@ +map - 2. code quality - coding styles +mapClassVariableCapitalization: aSLTestData + + + ^ (self makeTestFrom: aSLTestData) + addCategoryPath: #('code quality' 'coding styles'); + yourself \ No newline at end of file diff --git a/packages/SwaLintBrowser.package/SL2DefaultTestMapper.class/instance/mapClassWithoutComment..st b/packages/SwaLintBrowser.package/SL2DefaultTestMapper.class/instance/mapClassWithoutComment..st new file mode 100644 index 00000000..788ce19f --- /dev/null +++ b/packages/SwaLintBrowser.package/SL2DefaultTestMapper.class/instance/mapClassWithoutComment..st @@ -0,0 +1,8 @@ +map - 2. code quality - coding styles +mapClassWithoutComment: aSLTestData + + + ^ (self makeTestFrom: aSLTestData) + addCategoryPath: #('code quality' 'coding styles'); + addCategoryPath: #(''); + yourself \ No newline at end of file diff --git a/packages/SwaLintBrowser.package/SL2DefaultTestMapper.class/instance/mapCollectionCopyEmpty..st b/packages/SwaLintBrowser.package/SL2DefaultTestMapper.class/instance/mapCollectionCopyEmpty..st new file mode 100644 index 00000000..e4ac7886 --- /dev/null +++ b/packages/SwaLintBrowser.package/SL2DefaultTestMapper.class/instance/mapCollectionCopyEmpty..st @@ -0,0 +1,7 @@ +map - 1. possible bugs - libraries - Collections +mapCollectionCopyEmpty: aSLTestData + + + ^ (self makeTestFrom: aSLTestData) + addCategoryPath: #('possible bugs' 'libraries' 'Collections'); + yourself \ No newline at end of file diff --git a/packages/SwaLintBrowser.package/SL2DefaultTestMapper.class/instance/mapCollectionMessagesToExternalObject..st b/packages/SwaLintBrowser.package/SL2DefaultTestMapper.class/instance/mapCollectionMessagesToExternalObject..st new file mode 100644 index 00000000..4e9d7302 --- /dev/null +++ b/packages/SwaLintBrowser.package/SL2DefaultTestMapper.class/instance/mapCollectionMessagesToExternalObject..st @@ -0,0 +1,7 @@ +map - 3. design quality - antipatterns - libraries - Collections +mapCollectionMessagesToExternalObject: aSLTestData + + + ^ (self makeTestFrom: aSLTestData) + addCategoryPath: #('design quality' 'antipatterns' 'libraries' 'Collections'); + yourself \ No newline at end of file diff --git a/packages/SwaLintBrowser.package/SL2DefaultTestMapper.class/instance/mapCollectionProtocol..st b/packages/SwaLintBrowser.package/SL2DefaultTestMapper.class/instance/mapCollectionProtocol..st new file mode 100644 index 00000000..82c7218d --- /dev/null +++ b/packages/SwaLintBrowser.package/SL2DefaultTestMapper.class/instance/mapCollectionProtocol..st @@ -0,0 +1,7 @@ +map - 2. code quality - libraries - Collections +mapCollectionProtocol: aSLTestData + + + ^ (self makeTestFrom: aSLTestData) + addCategoryPath: #('code quality' 'libraries' 'Collections'); + yourself \ No newline at end of file diff --git a/packages/SwaLintBrowser.package/SL2DefaultTestMapper.class/instance/mapCommaInLiteralArray..st b/packages/SwaLintBrowser.package/SL2DefaultTestMapper.class/instance/mapCommaInLiteralArray..st new file mode 100644 index 00000000..c9a55fbc --- /dev/null +++ b/packages/SwaLintBrowser.package/SL2DefaultTestMapper.class/instance/mapCommaInLiteralArray..st @@ -0,0 +1,8 @@ +map - 1. possible bugs - syntax +mapCommaInLiteralArray: aSLTestData + + + ^ (self makeTestFrom: aSLTestData) + title: 'Comma in literal array'; + addCategoryPath: #('possible bugs' 'syntax'); + yourself \ No newline at end of file diff --git a/packages/SwaLintBrowser.package/SL2DefaultTestMapper.class/instance/mapCommentedMethods..st b/packages/SwaLintBrowser.package/SL2DefaultTestMapper.class/instance/mapCommentedMethods..st new file mode 100644 index 00000000..8c342bd3 --- /dev/null +++ b/packages/SwaLintBrowser.package/SL2DefaultTestMapper.class/instance/mapCommentedMethods..st @@ -0,0 +1,7 @@ +map - 3. design quality - metrics +mapCommentedMethods: aSLTestData + + + ^ (self makeTestFrom: aSLTestData) + addCategoryPath: #('design quality' 'metrics'); + yourself \ No newline at end of file diff --git a/packages/SwaLintBrowser.package/SL2DefaultTestMapper.class/instance/mapComplexMethods..st b/packages/SwaLintBrowser.package/SL2DefaultTestMapper.class/instance/mapComplexMethods..st new file mode 100644 index 00000000..db547dab --- /dev/null +++ b/packages/SwaLintBrowser.package/SL2DefaultTestMapper.class/instance/mapComplexMethods..st @@ -0,0 +1,7 @@ +map - 3. design quality - disharmonies +mapComplexMethods: aSLTestData + + + ^ (self makeTestFrom: aSLTestData) + addCategoryPath: #('design quality' 'disharmonies'); + yourself \ No newline at end of file diff --git a/packages/SwaLintBrowser.package/SL2DefaultTestMapper.class/instance/mapConsistencyCheck..st b/packages/SwaLintBrowser.package/SL2DefaultTestMapper.class/instance/mapConsistencyCheck..st new file mode 100644 index 00000000..f7b97efc --- /dev/null +++ b/packages/SwaLintBrowser.package/SL2DefaultTestMapper.class/instance/mapConsistencyCheck..st @@ -0,0 +1,7 @@ +map - 2. code quality - libraries +mapConsistencyCheck: aSLTestData + + + ^ (self makeTestFrom: aSLTestData) + addCategoryPath: #('code quality' 'libraries'); + yourself \ No newline at end of file diff --git a/packages/SwaLintBrowser.package/SL2DefaultTestMapper.class/instance/mapContains..st b/packages/SwaLintBrowser.package/SL2DefaultTestMapper.class/instance/mapContains..st new file mode 100644 index 00000000..faf8c6c7 --- /dev/null +++ b/packages/SwaLintBrowser.package/SL2DefaultTestMapper.class/instance/mapContains..st @@ -0,0 +1,7 @@ +map - 2. code quality - libraries - Collections +mapContains: aSLTestData + + + ^ (self makeTestFrom: aSLTestData) + addCategoryPath: #('code quality' 'libraries' 'Collections'); + yourself \ No newline at end of file diff --git a/packages/SwaLintBrowser.package/SL2DefaultTestMapper.class/instance/mapDataClass..st b/packages/SwaLintBrowser.package/SL2DefaultTestMapper.class/instance/mapDataClass..st new file mode 100644 index 00000000..c4893c99 --- /dev/null +++ b/packages/SwaLintBrowser.package/SL2DefaultTestMapper.class/instance/mapDataClass..st @@ -0,0 +1,7 @@ +map - 3. design quality - disharmonies +mapDataClass: aSLTestData + + + ^ (self makeTestFrom: aSLTestData) + addCategoryPath: #('design quality' 'disharmonies'); + yourself \ No newline at end of file diff --git a/packages/SwaLintBrowser.package/SL2DefaultTestMapper.class/instance/mapDebuggingCode..st b/packages/SwaLintBrowser.package/SL2DefaultTestMapper.class/instance/mapDebuggingCode..st new file mode 100644 index 00000000..1ba34a1a --- /dev/null +++ b/packages/SwaLintBrowser.package/SL2DefaultTestMapper.class/instance/mapDebuggingCode..st @@ -0,0 +1,9 @@ +map - 2. code quality - redundant code +mapDebuggingCode: aSLTestData + + + self flag: #todo. "handle flags separately?" + ^ (self makeTestFrom: aSLTestData) + addCategoryPath: #('code quality' 'redundant code'); + description: aSLTestData description , '\\Note that the use of flags (self flag: #todo. "explaining comment") to document open issues such as technical debt is a good practice.' withCRs; + yourself \ No newline at end of file diff --git a/packages/SwaLintBrowser.package/SL2DefaultTestMapper.class/instance/mapDefinesEqualNotHash..st b/packages/SwaLintBrowser.package/SL2DefaultTestMapper.class/instance/mapDefinesEqualNotHash..st new file mode 100644 index 00000000..89197f30 --- /dev/null +++ b/packages/SwaLintBrowser.package/SL2DefaultTestMapper.class/instance/mapDefinesEqualNotHash..st @@ -0,0 +1,7 @@ +map - 1. possible bugs - libraries - Kernel +mapDefinesEqualNotHash: aSLTestData + + + ^ (self makeTestFrom: aSLTestData) + addCategoryPath: #('possible bugs' 'libraries' 'Kernel'); + yourself \ No newline at end of file diff --git a/packages/SwaLintBrowser.package/SL2DefaultTestMapper.class/instance/mapDetectContains..st b/packages/SwaLintBrowser.package/SL2DefaultTestMapper.class/instance/mapDetectContains..st new file mode 100644 index 00000000..6360f53e --- /dev/null +++ b/packages/SwaLintBrowser.package/SL2DefaultTestMapper.class/instance/mapDetectContains..st @@ -0,0 +1,7 @@ +map - 2. code quality - libraries - Collections +mapDetectContains: aSLTestData + + + ^ (self makeTestFrom: aSLTestData) + addCategoryPath: #('code quality' 'libraries' 'Collections'); + yourself \ No newline at end of file diff --git a/packages/SwaLintBrowser.package/SL2DefaultTestMapper.class/instance/mapDirectInstVarAccess..st b/packages/SwaLintBrowser.package/SL2DefaultTestMapper.class/instance/mapDirectInstVarAccess..st new file mode 100644 index 00000000..b87fc1c7 --- /dev/null +++ b/packages/SwaLintBrowser.package/SL2DefaultTestMapper.class/instance/mapDirectInstVarAccess..st @@ -0,0 +1,9 @@ +map - 3. design quality - antipatterns +mapDirectInstVarAccess: aSLTestData + + + ^ (self makeTestFrom: aSLTestData) + title: 'Direct instvar access'; + addCategoryPath: #('design quality' 'antipatterns'); + addCategoryPath: #(''); + yourself \ No newline at end of file diff --git a/packages/SwaLintBrowser.package/SL2DefaultTestMapper.class/instance/mapDispersedCoupling..st b/packages/SwaLintBrowser.package/SL2DefaultTestMapper.class/instance/mapDispersedCoupling..st new file mode 100644 index 00000000..ca5f1c4b --- /dev/null +++ b/packages/SwaLintBrowser.package/SL2DefaultTestMapper.class/instance/mapDispersedCoupling..st @@ -0,0 +1,7 @@ +map - 3. design quality - disharmonies +mapDispersedCoupling: aSLTestData + + + ^ (self makeTestFrom: aSLTestData) + addCategoryPath: #('design quality' 'disharmonies'); + yourself \ No newline at end of file diff --git a/packages/SwaLintBrowser.package/SL2DefaultTestMapper.class/instance/mapDotAfterReturn..st b/packages/SwaLintBrowser.package/SL2DefaultTestMapper.class/instance/mapDotAfterReturn..st new file mode 100644 index 00000000..8ab48238 --- /dev/null +++ b/packages/SwaLintBrowser.package/SL2DefaultTestMapper.class/instance/mapDotAfterReturn..st @@ -0,0 +1,7 @@ +map - 2. code quality - coding styles +mapDotAfterReturn: aSLTestData + + + ^ (self makeTestFrom: aSLTestData) + addCategoryPath: #('code quality' 'coding styles'); + yourself \ No newline at end of file diff --git a/packages/SwaLintBrowser.package/SL2DefaultTestMapper.class/instance/mapDotInLiteralArray..st b/packages/SwaLintBrowser.package/SL2DefaultTestMapper.class/instance/mapDotInLiteralArray..st new file mode 100644 index 00000000..e85f5529 --- /dev/null +++ b/packages/SwaLintBrowser.package/SL2DefaultTestMapper.class/instance/mapDotInLiteralArray..st @@ -0,0 +1,8 @@ +map - 1. possible bugs - syntax +mapDotInLiteralArray: aSLTestData + + + ^ (self makeTestFrom: aSLTestData) + title: 'Dot in literal array'; + addCategoryPath: #('possible bugs' 'syntax'); + yourself \ No newline at end of file diff --git a/packages/SwaLintBrowser.package/SL2DefaultTestMapper.class/instance/mapDuplicateOverride..st b/packages/SwaLintBrowser.package/SL2DefaultTestMapper.class/instance/mapDuplicateOverride..st new file mode 100644 index 00000000..175594fe --- /dev/null +++ b/packages/SwaLintBrowser.package/SL2DefaultTestMapper.class/instance/mapDuplicateOverride..st @@ -0,0 +1,8 @@ +map - 2. code quality - syntax +mapDuplicateOverride: aSLTestData + + + ^ (self makeTestFrom: aSLTestData) + title: 'Duplicate override'; + addCategoryPath: #('code quality' 'syntax'); + yourself \ No newline at end of file diff --git a/packages/SwaLintBrowser.package/SL2DefaultTestMapper.class/instance/mapDuplicationInIfTrueIfFalseBlocks..st b/packages/SwaLintBrowser.package/SL2DefaultTestMapper.class/instance/mapDuplicationInIfTrueIfFalseBlocks..st new file mode 100644 index 00000000..984eae51 --- /dev/null +++ b/packages/SwaLintBrowser.package/SL2DefaultTestMapper.class/instance/mapDuplicationInIfTrueIfFalseBlocks..st @@ -0,0 +1,8 @@ +map - 2. code quality - syntax +mapDuplicationInIfTrueIfFalseBlocks: aSLTestData + + + ^ (self makeTestFrom: aSLTestData) + title: 'Duplication in #ifTrue:ifFalse: blocks'; + addCategoryPath: #('code quality' 'syntax'); + yourself \ No newline at end of file diff --git a/packages/SwaLintBrowser.package/SL2DefaultTestMapper.class/instance/mapEmptyExceptionHandler..st b/packages/SwaLintBrowser.package/SL2DefaultTestMapper.class/instance/mapEmptyExceptionHandler..st new file mode 100644 index 00000000..3d6b4482 --- /dev/null +++ b/packages/SwaLintBrowser.package/SL2DefaultTestMapper.class/instance/mapEmptyExceptionHandler..st @@ -0,0 +1,7 @@ +map - 2. code quality - libraries - Kernel +mapEmptyExceptionHandler: aSLTestData + + + ^ (self makeTestFrom: aSLTestData) + addCategoryPath: #('code quality' 'libraries' 'Kernel'); + yourself \ No newline at end of file diff --git a/packages/SwaLintBrowser.package/SL2DefaultTestMapper.class/instance/mapEqualsTrue..st b/packages/SwaLintBrowser.package/SL2DefaultTestMapper.class/instance/mapEqualsTrue..st new file mode 100644 index 00000000..b5117baf --- /dev/null +++ b/packages/SwaLintBrowser.package/SL2DefaultTestMapper.class/instance/mapEqualsTrue..st @@ -0,0 +1,7 @@ +map - 2. code quality - libraries - Booleans +mapEqualsTrue: aSLTestData + + + ^ (self makeTestFrom: aSLTestData) + addCategoryPath: #('code quality' 'libraries' 'Booleans'); + yourself \ No newline at end of file diff --git a/packages/SwaLintBrowser.package/SL2DefaultTestMapper.class/instance/mapExcessiveArguments..st b/packages/SwaLintBrowser.package/SL2DefaultTestMapper.class/instance/mapExcessiveArguments..st new file mode 100644 index 00000000..0a4dbd44 --- /dev/null +++ b/packages/SwaLintBrowser.package/SL2DefaultTestMapper.class/instance/mapExcessiveArguments..st @@ -0,0 +1,7 @@ +map - 3. design quality - disharmonies +mapExcessiveArguments: aSLTestData + + + ^ (self makeTestFrom: aSLTestData) + addCategoryPath: #('design quality' 'disharmonies'); + yourself \ No newline at end of file diff --git a/packages/SwaLintBrowser.package/SL2DefaultTestMapper.class/instance/mapExcessiveInheritance..st b/packages/SwaLintBrowser.package/SL2DefaultTestMapper.class/instance/mapExcessiveInheritance..st new file mode 100644 index 00000000..c2efed08 --- /dev/null +++ b/packages/SwaLintBrowser.package/SL2DefaultTestMapper.class/instance/mapExcessiveInheritance..st @@ -0,0 +1,7 @@ +map - 3. design quality - disharmonies +mapExcessiveInheritance: aSLTestData + + + ^ (self makeTestFrom: aSLTestData) + addCategoryPath: #('design quality' 'disharmonies'); + yourself \ No newline at end of file diff --git a/packages/SwaLintBrowser.package/SL2DefaultTestMapper.class/instance/mapExcessiveMethods..st b/packages/SwaLintBrowser.package/SL2DefaultTestMapper.class/instance/mapExcessiveMethods..st new file mode 100644 index 00000000..4e7599bd --- /dev/null +++ b/packages/SwaLintBrowser.package/SL2DefaultTestMapper.class/instance/mapExcessiveMethods..st @@ -0,0 +1,7 @@ +map - 3. design quality - disharmonies +mapExcessiveMethods: aSLTestData + + + ^ (self makeTestFrom: aSLTestData) + addCategoryPath: #('design quality' 'disharmonies'); + yourself \ No newline at end of file diff --git a/packages/SwaLintBrowser.package/SL2DefaultTestMapper.class/instance/mapExcessiveVariables..st b/packages/SwaLintBrowser.package/SL2DefaultTestMapper.class/instance/mapExcessiveVariables..st new file mode 100644 index 00000000..90cedc08 --- /dev/null +++ b/packages/SwaLintBrowser.package/SL2DefaultTestMapper.class/instance/mapExcessiveVariables..st @@ -0,0 +1,7 @@ +map - 3. design quality - disharmonies +mapExcessiveVariables: aSLTestData + + + ^ (self makeTestFrom: aSLTestData) + addCategoryPath: #('design quality' 'disharmonies'); + yourself \ No newline at end of file diff --git a/packages/SwaLintBrowser.package/SL2DefaultTestMapper.class/instance/mapFeatureEnvy..st b/packages/SwaLintBrowser.package/SL2DefaultTestMapper.class/instance/mapFeatureEnvy..st new file mode 100644 index 00000000..1b22dc92 --- /dev/null +++ b/packages/SwaLintBrowser.package/SL2DefaultTestMapper.class/instance/mapFeatureEnvy..st @@ -0,0 +1,7 @@ +map - 3. design quality - disharmonies +mapFeatureEnvy: aSLTestData + + + ^ (self makeTestFrom: aSLTestData) + addCategoryPath: #('design quality' 'disharmonies'); + yourself \ No newline at end of file diff --git a/packages/SwaLintBrowser.package/SL2DefaultTestMapper.class/instance/mapFileBlocks..st b/packages/SwaLintBrowser.package/SL2DefaultTestMapper.class/instance/mapFileBlocks..st new file mode 100644 index 00000000..a5078e65 --- /dev/null +++ b/packages/SwaLintBrowser.package/SL2DefaultTestMapper.class/instance/mapFileBlocks..st @@ -0,0 +1,8 @@ +map - 1. possible bugs - syntax +mapFileBlocks: aSLTestData + + + self flag: #todo. "understand" + ^ (self makeTestFrom: aSLTestData) + addCategoryPath: #('possible bugs' 'syntax'); + yourself \ No newline at end of file diff --git a/packages/SwaLintBrowser.package/SL2DefaultTestMapper.class/instance/mapFloatEqualityComparison..st b/packages/SwaLintBrowser.package/SL2DefaultTestMapper.class/instance/mapFloatEqualityComparison..st new file mode 100644 index 00000000..d26283be --- /dev/null +++ b/packages/SwaLintBrowser.package/SL2DefaultTestMapper.class/instance/mapFloatEqualityComparison..st @@ -0,0 +1,7 @@ +map - 1. possible bugs - libraries - Numbers +mapFloatEqualityComparison: aSLTestData + + + ^ (self makeTestFrom: aSLTestData) + addCategoryPath: #('possible bugs' 'libraries' 'Numbers'); + yourself \ No newline at end of file diff --git a/packages/SwaLintBrowser.package/SL2DefaultTestMapper.class/instance/mapGlobalState..st b/packages/SwaLintBrowser.package/SL2DefaultTestMapper.class/instance/mapGlobalState..st new file mode 100644 index 00000000..4f14b9c6 --- /dev/null +++ b/packages/SwaLintBrowser.package/SL2DefaultTestMapper.class/instance/mapGlobalState..st @@ -0,0 +1,7 @@ +map - 3. design quality - metrics +mapGlobalState: aSLTestData + + + ^ (self makeTestFrom: aSLTestData) + addCategoryPath: #('design quality' 'metrics'); + yourself \ No newline at end of file diff --git a/packages/SwaLintBrowser.package/SL2DefaultTestMapper.class/instance/mapGodClass..st b/packages/SwaLintBrowser.package/SL2DefaultTestMapper.class/instance/mapGodClass..st new file mode 100644 index 00000000..a3445953 --- /dev/null +++ b/packages/SwaLintBrowser.package/SL2DefaultTestMapper.class/instance/mapGodClass..st @@ -0,0 +1,7 @@ +map - 3. design quality - disharmonies +mapGodClass: aSLTestData + + + ^ (self makeTestFrom: aSLTestData) + addCategoryPath: #('design quality' 'disharmonies'); + yourself \ No newline at end of file diff --git a/packages/SwaLintBrowser.package/SL2DefaultTestMapper.class/instance/mapGuardingClause..st b/packages/SwaLintBrowser.package/SL2DefaultTestMapper.class/instance/mapGuardingClause..st new file mode 100644 index 00000000..24526887 --- /dev/null +++ b/packages/SwaLintBrowser.package/SL2DefaultTestMapper.class/instance/mapGuardingClause..st @@ -0,0 +1,8 @@ +map - 2. code quality - coding styles +mapGuardingClause: aSLTestData + + + self flag: #discuss. "could have an implicit meaning/focus" + ^ (self makeTestFrom: aSLTestData) + addCategoryPath: #('code quality' 'coding styles'); + yourself \ No newline at end of file diff --git a/packages/SwaLintBrowser.package/SL2DefaultTestMapper.class/instance/mapHardcodedClassReference..st b/packages/SwaLintBrowser.package/SL2DefaultTestMapper.class/instance/mapHardcodedClassReference..st new file mode 100644 index 00000000..e3cbc63b --- /dev/null +++ b/packages/SwaLintBrowser.package/SL2DefaultTestMapper.class/instance/mapHardcodedClassReference..st @@ -0,0 +1,8 @@ +map - 2. code quality - syntax +mapHardcodedClassReference: aSLTestData + + + ^ (self makeTestFrom: aSLTestData) + title: 'Hardcoded class reference'; + addCategoryPath: #('code quality' 'syntax'); + yourself \ No newline at end of file diff --git a/packages/SwaLintBrowser.package/SL2DefaultTestMapper.class/instance/mapIfTrueBlocks..st b/packages/SwaLintBrowser.package/SL2DefaultTestMapper.class/instance/mapIfTrueBlocks..st new file mode 100644 index 00000000..3db8e346 --- /dev/null +++ b/packages/SwaLintBrowser.package/SL2DefaultTestMapper.class/instance/mapIfTrueBlocks..st @@ -0,0 +1,7 @@ +map - 2. code quality - libraries - Kernel +mapIfTrueBlocks: aSLTestData + + + ^ (self makeTestFrom: aSLTestData) + addCategoryPath: #('code quality' 'libraries' 'Kernel'); + yourself \ No newline at end of file diff --git a/packages/SwaLintBrowser.package/SL2DefaultTestMapper.class/instance/mapIfTrueReturns..st b/packages/SwaLintBrowser.package/SL2DefaultTestMapper.class/instance/mapIfTrueReturns..st new file mode 100644 index 00000000..a1fd9de8 --- /dev/null +++ b/packages/SwaLintBrowser.package/SL2DefaultTestMapper.class/instance/mapIfTrueReturns..st @@ -0,0 +1,6 @@ +map - 2. code quality - libraries - Booleans +mapIfTrueReturns: aSLTestData + + + "Too opinionated. Guard clauses have every right to be there." + ^ nil \ No newline at end of file diff --git a/packages/SwaLintBrowser.package/SL2DefaultTestMapper.class/instance/mapImplementedNotSent..st b/packages/SwaLintBrowser.package/SL2DefaultTestMapper.class/instance/mapImplementedNotSent..st new file mode 100644 index 00000000..d1b52ada --- /dev/null +++ b/packages/SwaLintBrowser.package/SL2DefaultTestMapper.class/instance/mapImplementedNotSent..st @@ -0,0 +1,9 @@ +map - 2. code quality - redundant code +mapImplementedNotSent: aSLTestData + + + self flag: #todo. "overlaps with #mapMethodsWithoutSenders:. This one might be less sensitive for class-side methods, the other one too specific for methods with pragmas..." + ^ (self makeTestFrom: aSLTestData) + addCategoryPath: #('code quality' 'redundant code'); + description: aSLTestData description , '\\This test is not applicable to framework code that deliberately offers public interfaces. Still, you could consider testing/demonstrating these interfaces through examples.' withCRs; + yourself \ No newline at end of file diff --git a/packages/SwaLintBrowser.package/SL2DefaultTestMapper.class/instance/mapInconsistentMethodCategorization..st b/packages/SwaLintBrowser.package/SL2DefaultTestMapper.class/instance/mapInconsistentMethodCategorization..st new file mode 100644 index 00000000..5a50bfe0 --- /dev/null +++ b/packages/SwaLintBrowser.package/SL2DefaultTestMapper.class/instance/mapInconsistentMethodCategorization..st @@ -0,0 +1,9 @@ +map - 2. code quality - documentation +mapInconsistentMethodCategorization: aSLTestData + + + ^ (self makeTestFrom: aSLTestData) + title: 'Inconsistent method categorization'; + addCategoryPath: #('code quality' 'documentation'); + description: aSLTestData description , '\\An exception to this rule is when you override extension methods from another package (such as Object>>browse from *Tools-Browsing).' withCRs; + yourself \ No newline at end of file diff --git a/packages/SwaLintBrowser.package/SL2DefaultTestMapper.class/instance/mapInstVarCouldBeTempVar..st b/packages/SwaLintBrowser.package/SL2DefaultTestMapper.class/instance/mapInstVarCouldBeTempVar..st new file mode 100644 index 00000000..e70d8009 --- /dev/null +++ b/packages/SwaLintBrowser.package/SL2DefaultTestMapper.class/instance/mapInstVarCouldBeTempVar..st @@ -0,0 +1,8 @@ +map - 2. code quality - syntax +mapInstVarCouldBeTempVar: aSLTestData + + + ^ (self makeTestFrom: aSLTestData) + title: 'Instvar could be tempvar'; + addCategoryPath: #('code quality' 'syntax'); + yourself \ No newline at end of file diff --git a/packages/SwaLintBrowser.package/SL2DefaultTestMapper.class/instance/mapInstVarInAllSubclasses..st b/packages/SwaLintBrowser.package/SL2DefaultTestMapper.class/instance/mapInstVarInAllSubclasses..st new file mode 100644 index 00000000..8b35567b --- /dev/null +++ b/packages/SwaLintBrowser.package/SL2DefaultTestMapper.class/instance/mapInstVarInAllSubclasses..st @@ -0,0 +1,7 @@ +map - 3. design quality - refactoring opportunities +mapInstVarInAllSubclasses: aSLTestData + + + ^ (self makeTestFrom: aSLTestData) + addCategoryPath: #('design quality' 'refactoring opportunities'); + yourself \ No newline at end of file diff --git a/packages/SwaLintBrowser.package/SL2DefaultTestMapper.class/instance/mapInstanceVariableCapitalization..st b/packages/SwaLintBrowser.package/SL2DefaultTestMapper.class/instance/mapInstanceVariableCapitalization..st new file mode 100644 index 00000000..16ae1eb2 --- /dev/null +++ b/packages/SwaLintBrowser.package/SL2DefaultTestMapper.class/instance/mapInstanceVariableCapitalization..st @@ -0,0 +1,7 @@ +map - 2. code quality - coding styles +mapInstanceVariableCapitalization: aSLTestData + + + ^ (self makeTestFrom: aSLTestData) + addCategoryPath: #('code quality' 'coding styles'); + yourself \ No newline at end of file diff --git a/packages/SwaLintBrowser.package/SL2DefaultTestMapper.class/instance/mapIntensiveCoupling..st b/packages/SwaLintBrowser.package/SL2DefaultTestMapper.class/instance/mapIntensiveCoupling..st new file mode 100644 index 00000000..3935493f --- /dev/null +++ b/packages/SwaLintBrowser.package/SL2DefaultTestMapper.class/instance/mapIntensiveCoupling..st @@ -0,0 +1,7 @@ +map - 3. design quality - disharmonies +mapIntensiveCoupling: aSLTestData + + + ^ (self makeTestFrom: aSLTestData) + addCategoryPath: #('design quality' 'disharmonies'); + yourself \ No newline at end of file diff --git a/packages/SwaLintBrowser.package/SL2DefaultTestMapper.class/instance/mapIsAddedService..st b/packages/SwaLintBrowser.package/SL2DefaultTestMapper.class/instance/mapIsAddedService..st new file mode 100644 index 00000000..94a51dfa --- /dev/null +++ b/packages/SwaLintBrowser.package/SL2DefaultTestMapper.class/instance/mapIsAddedService..st @@ -0,0 +1,7 @@ +map - 3. design quality - metrics +mapIsAddedService: aSLTestData + + + ^ (self makeTestFrom: aSLTestData) + addCategoryPath: #('design quality' 'metrics'); + yourself \ No newline at end of file diff --git a/packages/SwaLintBrowser.package/SL2DefaultTestMapper.class/instance/mapLawOfDemeter..st b/packages/SwaLintBrowser.package/SL2DefaultTestMapper.class/instance/mapLawOfDemeter..st new file mode 100644 index 00000000..277c982c --- /dev/null +++ b/packages/SwaLintBrowser.package/SL2DefaultTestMapper.class/instance/mapLawOfDemeter..st @@ -0,0 +1,7 @@ +map - 3. design quality - antipatterns +mapLawOfDemeter: aSLTestData + + + ^ (self makeTestFrom: aSLTestData) + addCategoryPath: #('design quality' 'antipatterns'); + yourself \ No newline at end of file diff --git a/packages/SwaLintBrowser.package/SL2DefaultTestMapper.class/instance/mapLiteralArrayCOntainsSuspiciousTrueFalseOrNil..st b/packages/SwaLintBrowser.package/SL2DefaultTestMapper.class/instance/mapLiteralArrayCOntainsSuspiciousTrueFalseOrNil..st new file mode 100644 index 00000000..fa5d9039 --- /dev/null +++ b/packages/SwaLintBrowser.package/SL2DefaultTestMapper.class/instance/mapLiteralArrayCOntainsSuspiciousTrueFalseOrNil..st @@ -0,0 +1,6 @@ +map - 1. possible bugs - syntax +mapLiteralArrayCOntainsSuspiciousTrueFalseOrNil: aSLTestData + + + "only relevant for legacy code" + ^ nil \ No newline at end of file diff --git a/packages/SwaLintBrowser.package/SL2DefaultTestMapper.class/instance/mapLiteralArrayCharacters..st b/packages/SwaLintBrowser.package/SL2DefaultTestMapper.class/instance/mapLiteralArrayCharacters..st new file mode 100644 index 00000000..21bb3a49 --- /dev/null +++ b/packages/SwaLintBrowser.package/SL2DefaultTestMapper.class/instance/mapLiteralArrayCharacters..st @@ -0,0 +1,6 @@ +map - 2. code quality - syntax +mapLiteralArrayCharacters: aSLTestData + + + "Too opinionated. Arrays and strings have different semantics." + ^ nil \ No newline at end of file diff --git a/packages/SwaLintBrowser.package/SL2DefaultTestMapper.class/instance/mapLongMethod..st b/packages/SwaLintBrowser.package/SL2DefaultTestMapper.class/instance/mapLongMethod..st new file mode 100644 index 00000000..b520cc72 --- /dev/null +++ b/packages/SwaLintBrowser.package/SL2DefaultTestMapper.class/instance/mapLongMethod..st @@ -0,0 +1,7 @@ +map - 3. design quality - disharmonies +mapLongMethod: aSLTestData + + + ^ (self makeTestFrom: aSLTestData) + addCategoryPath: #('design quality' 'disharmonies'); + yourself \ No newline at end of file diff --git a/packages/SwaLintBrowser.package/SL2DefaultTestMapper.class/instance/mapLongMethods..st b/packages/SwaLintBrowser.package/SL2DefaultTestMapper.class/instance/mapLongMethods..st new file mode 100644 index 00000000..39b1ef5e --- /dev/null +++ b/packages/SwaLintBrowser.package/SL2DefaultTestMapper.class/instance/mapLongMethods..st @@ -0,0 +1,7 @@ +map - 3. design quality - disharmonies +mapLongMethods: aSLTestData + + + ^ (self makeTestFrom: aSLTestData) + addCategoryPath: #('design quality' 'disharmonies'); + yourself \ No newline at end of file diff --git a/packages/SwaLintBrowser.package/SL2DefaultTestMapper.class/instance/mapMagicNumbers..st b/packages/SwaLintBrowser.package/SL2DefaultTestMapper.class/instance/mapMagicNumbers..st new file mode 100644 index 00000000..9f0a08d8 --- /dev/null +++ b/packages/SwaLintBrowser.package/SL2DefaultTestMapper.class/instance/mapMagicNumbers..st @@ -0,0 +1,8 @@ +map - 3. design quality - antipatterns +mapMagicNumbers: aSLTestData + + + ^ (self makeTestFrom: aSLTestData) + addCategoryPath: #('design quality' 'antipatterns'); + addCategoryPath: #(''); + yourself \ No newline at end of file diff --git a/packages/SwaLintBrowser.package/SL2DefaultTestMapper.class/instance/mapMaxNesting..st b/packages/SwaLintBrowser.package/SL2DefaultTestMapper.class/instance/mapMaxNesting..st new file mode 100644 index 00000000..6adf562d --- /dev/null +++ b/packages/SwaLintBrowser.package/SL2DefaultTestMapper.class/instance/mapMaxNesting..st @@ -0,0 +1,7 @@ +map - 3. design quality - metrics +mapMaxNesting: aSLTestData + + + ^ (self makeTestFrom: aSLTestData) + addCategoryPath: #('design quality' 'metrics'); + yourself \ No newline at end of file diff --git a/packages/SwaLintBrowser.package/SL2DefaultTestMapper.class/instance/mapMessagesSentNotImplemented..st b/packages/SwaLintBrowser.package/SL2DefaultTestMapper.class/instance/mapMessagesSentNotImplemented..st new file mode 100644 index 00000000..049a392a --- /dev/null +++ b/packages/SwaLintBrowser.package/SL2DefaultTestMapper.class/instance/mapMessagesSentNotImplemented..st @@ -0,0 +1,7 @@ +map - 1. possible bugs - missing code +mapMessagesSentNotImplemented: aSLTestData + + + ^ (self makeTestFrom: aSLTestData) + addCategoryPath: #('possible bugs' 'missing code'); + yourself \ No newline at end of file diff --git a/packages/SwaLintBrowser.package/SL2DefaultTestMapper.class/instance/mapMetaProgramming..st b/packages/SwaLintBrowser.package/SL2DefaultTestMapper.class/instance/mapMetaProgramming..st new file mode 100644 index 00000000..f3577b4e --- /dev/null +++ b/packages/SwaLintBrowser.package/SL2DefaultTestMapper.class/instance/mapMetaProgramming..st @@ -0,0 +1,7 @@ +map - 3. design quality - antipatterns +mapMetaProgramming: aSLTestData + + + ^ (self makeTestFrom: aSLTestData) + addCategoryPath: #('design quality' 'antipatterns'); + yourself \ No newline at end of file diff --git a/packages/SwaLintBrowser.package/SL2DefaultTestMapper.class/instance/mapMethodATFD..st b/packages/SwaLintBrowser.package/SL2DefaultTestMapper.class/instance/mapMethodATFD..st new file mode 100644 index 00000000..348228ab --- /dev/null +++ b/packages/SwaLintBrowser.package/SL2DefaultTestMapper.class/instance/mapMethodATFD..st @@ -0,0 +1,7 @@ +map - 3. design quality - metrics +mapMethodATFD: aSLTestData + + + ^ (self makeTestFrom: aSLTestData) + addCategoryPath: #('design quality' 'metrics'); + yourself \ No newline at end of file diff --git a/packages/SwaLintBrowser.package/SL2DefaultTestMapper.class/instance/mapMethodCC..st b/packages/SwaLintBrowser.package/SL2DefaultTestMapper.class/instance/mapMethodCC..st new file mode 100644 index 00000000..e99b69fe --- /dev/null +++ b/packages/SwaLintBrowser.package/SL2DefaultTestMapper.class/instance/mapMethodCC..st @@ -0,0 +1,7 @@ +map - 3. design quality - metrics +mapMethodCC: aSLTestData + + + ^ (self makeTestFrom: aSLTestData) + addCategoryPath: #('design quality' 'metrics'); + yourself \ No newline at end of file diff --git a/packages/SwaLintBrowser.package/SL2DefaultTestMapper.class/instance/mapMethodCDISP..st b/packages/SwaLintBrowser.package/SL2DefaultTestMapper.class/instance/mapMethodCDISP..st new file mode 100644 index 00000000..ad4fee5a --- /dev/null +++ b/packages/SwaLintBrowser.package/SL2DefaultTestMapper.class/instance/mapMethodCDISP..st @@ -0,0 +1,7 @@ +map - 3. design quality - metrics +mapMethodCDISP: aSLTestData + + + ^ (self makeTestFrom: aSLTestData) + addCategoryPath: #('design quality' 'metrics'); + yourself \ No newline at end of file diff --git a/packages/SwaLintBrowser.package/SL2DefaultTestMapper.class/instance/mapMethodCINT..st b/packages/SwaLintBrowser.package/SL2DefaultTestMapper.class/instance/mapMethodCINT..st new file mode 100644 index 00000000..c96acd7b --- /dev/null +++ b/packages/SwaLintBrowser.package/SL2DefaultTestMapper.class/instance/mapMethodCINT..st @@ -0,0 +1,7 @@ +map - 3. design quality - metrics +mapMethodCINT: aSLTestData + + + ^ (self makeTestFrom: aSLTestData) + addCategoryPath: #('design quality' 'metrics'); + yourself \ No newline at end of file diff --git a/packages/SwaLintBrowser.package/SL2DefaultTestMapper.class/instance/mapMethodCM..st b/packages/SwaLintBrowser.package/SL2DefaultTestMapper.class/instance/mapMethodCM..st new file mode 100644 index 00000000..7d1c16c7 --- /dev/null +++ b/packages/SwaLintBrowser.package/SL2DefaultTestMapper.class/instance/mapMethodCM..st @@ -0,0 +1,7 @@ +map - 3. design quality - metrics +mapMethodCM: aSLTestData + + + ^ (self makeTestFrom: aSLTestData) + addCategoryPath: #('design quality' 'metrics'); + yourself \ No newline at end of file diff --git a/packages/SwaLintBrowser.package/SL2DefaultTestMapper.class/instance/mapMethodCYCLO..st b/packages/SwaLintBrowser.package/SL2DefaultTestMapper.class/instance/mapMethodCYCLO..st new file mode 100644 index 00000000..218cc430 --- /dev/null +++ b/packages/SwaLintBrowser.package/SL2DefaultTestMapper.class/instance/mapMethodCYCLO..st @@ -0,0 +1,7 @@ +map - 3. design quality - metrics +mapMethodCYCLO: aSLTestData + + + ^ (self makeTestFrom: aSLTestData) + addCategoryPath: #('design quality' 'metrics'); + yourself \ No newline at end of file diff --git a/packages/SwaLintBrowser.package/SL2DefaultTestMapper.class/instance/mapMethodFDP..st b/packages/SwaLintBrowser.package/SL2DefaultTestMapper.class/instance/mapMethodFDP..st new file mode 100644 index 00000000..536694bc --- /dev/null +++ b/packages/SwaLintBrowser.package/SL2DefaultTestMapper.class/instance/mapMethodFDP..st @@ -0,0 +1,7 @@ +map - 3. design quality - metrics +mapMethodFDP: aSLTestData + + + ^ (self makeTestFrom: aSLTestData) + addCategoryPath: #('design quality' 'metrics'); + yourself \ No newline at end of file diff --git a/packages/SwaLintBrowser.package/SL2DefaultTestMapper.class/instance/mapMethodHasNoTimeStamp..st b/packages/SwaLintBrowser.package/SL2DefaultTestMapper.class/instance/mapMethodHasNoTimeStamp..st new file mode 100644 index 00000000..e4d11d66 --- /dev/null +++ b/packages/SwaLintBrowser.package/SL2DefaultTestMapper.class/instance/mapMethodHasNoTimeStamp..st @@ -0,0 +1,7 @@ +map - 2. code quality - metadata +mapMethodHasNoTimeStamp: aSLTestData + + + ^ (self makeTestFrom: aSLTestData) + addCategoryPath: #('code quality' 'metadata'); + yourself \ No newline at end of file diff --git a/packages/SwaLintBrowser.package/SL2DefaultTestMapper.class/instance/mapMethodLAA..st b/packages/SwaLintBrowser.package/SL2DefaultTestMapper.class/instance/mapMethodLAA..st new file mode 100644 index 00000000..cf9487f1 --- /dev/null +++ b/packages/SwaLintBrowser.package/SL2DefaultTestMapper.class/instance/mapMethodLAA..st @@ -0,0 +1,7 @@ +map - 3. design quality - metrics +mapMethodLAA: aSLTestData + + + ^ (self makeTestFrom: aSLTestData) + addCategoryPath: #('design quality' 'metrics'); + yourself \ No newline at end of file diff --git a/packages/SwaLintBrowser.package/SL2DefaultTestMapper.class/instance/mapMethodLOC..st b/packages/SwaLintBrowser.package/SL2DefaultTestMapper.class/instance/mapMethodLOC..st new file mode 100644 index 00000000..b4ba84c5 --- /dev/null +++ b/packages/SwaLintBrowser.package/SL2DefaultTestMapper.class/instance/mapMethodLOC..st @@ -0,0 +1,7 @@ +map - 3. design quality - metrics +mapMethodLOC: aSLTestData + + + ^ (self makeTestFrom: aSLTestData) + addCategoryPath: #('design quality' 'metrics'); + yourself \ No newline at end of file diff --git a/packages/SwaLintBrowser.package/SL2DefaultTestMapper.class/instance/mapMethodModifierFinal..st b/packages/SwaLintBrowser.package/SL2DefaultTestMapper.class/instance/mapMethodModifierFinal..st new file mode 100644 index 00000000..de9a1d7d --- /dev/null +++ b/packages/SwaLintBrowser.package/SL2DefaultTestMapper.class/instance/mapMethodModifierFinal..st @@ -0,0 +1,7 @@ +map - 2. code quality - syntax +mapMethodModifierFinal: aSLTestData + + + ^ (self makeTestFrom: aSLTestData) + addCategoryPath: #('code quality' 'syntax'); + yourself \ No newline at end of file diff --git a/packages/SwaLintBrowser.package/SL2DefaultTestMapper.class/instance/mapMethodModifierOverride..st b/packages/SwaLintBrowser.package/SL2DefaultTestMapper.class/instance/mapMethodModifierOverride..st new file mode 100644 index 00000000..3b08fbf8 --- /dev/null +++ b/packages/SwaLintBrowser.package/SL2DefaultTestMapper.class/instance/mapMethodModifierOverride..st @@ -0,0 +1,7 @@ +map - 1. possible bugs - missing code +mapMethodModifierOverride: aSLTestData + + + ^ (self makeTestFrom: aSLTestData) + addCategoryPath: #('possible bugs' 'missing code'); + yourself \ No newline at end of file diff --git a/packages/SwaLintBrowser.package/SL2DefaultTestMapper.class/instance/mapMethodModifierSuper..st b/packages/SwaLintBrowser.package/SL2DefaultTestMapper.class/instance/mapMethodModifierSuper..st new file mode 100644 index 00000000..7aa74c7a --- /dev/null +++ b/packages/SwaLintBrowser.package/SL2DefaultTestMapper.class/instance/mapMethodModifierSuper..st @@ -0,0 +1,7 @@ +map - 2. code quality - libraries +mapMethodModifierSuper: aSLTestData + + + ^ (self makeTestFrom: aSLTestData) + addCategoryPath: #('code quality' 'libraries'); + yourself \ No newline at end of file diff --git a/packages/SwaLintBrowser.package/SL2DefaultTestMapper.class/instance/mapMethodNeedsAttention..st b/packages/SwaLintBrowser.package/SL2DefaultTestMapper.class/instance/mapMethodNeedsAttention..st new file mode 100644 index 00000000..992e0582 --- /dev/null +++ b/packages/SwaLintBrowser.package/SL2DefaultTestMapper.class/instance/mapMethodNeedsAttention..st @@ -0,0 +1,8 @@ +map - 3. design quality - metrics +mapMethodNeedsAttention: aSLTestData + + + self flag: #todo. "merge with debugging reminents?" + ^ (self makeTestFrom: aSLTestData) + addCategoryPath: #('design quality' 'metrics'); + yourself \ No newline at end of file diff --git a/packages/SwaLintBrowser.package/SL2DefaultTestMapper.class/instance/mapMethodSourceContainsLinefeeds..st b/packages/SwaLintBrowser.package/SL2DefaultTestMapper.class/instance/mapMethodSourceContainsLinefeeds..st new file mode 100644 index 00000000..ff08672c --- /dev/null +++ b/packages/SwaLintBrowser.package/SL2DefaultTestMapper.class/instance/mapMethodSourceContainsLinefeeds..st @@ -0,0 +1,10 @@ +map - 2. code quality - metadata +mapMethodSourceContainsLinefeeds: aSLTestData + + + ^ (self makeTestFrom: aSLTestData) + addCategoryPath: #('code quality' 'metadata'); + description: 'Line breaks in Squeak are typically modelled as carriage returns (Character cr). Methods that contain linefeeds (Character lf) instead break this convention. When saving or loading methods to or from Monticello or git, all line breaks are normalized. + +If you did not mean to use linefeeds, avoid holding the Shift or Command key while pressing Enter.'; + yourself \ No newline at end of file diff --git a/packages/SwaLintBrowser.package/SL2DefaultTestMapper.class/instance/mapMethodsWithoutSenders..st b/packages/SwaLintBrowser.package/SL2DefaultTestMapper.class/instance/mapMethodsWithoutSenders..st new file mode 100644 index 00000000..35a4e2a6 --- /dev/null +++ b/packages/SwaLintBrowser.package/SL2DefaultTestMapper.class/instance/mapMethodsWithoutSenders..st @@ -0,0 +1,7 @@ +map - 2. code quality - redundant code +mapMethodsWithoutSenders: aSLTestData + + + self flag: #todo. "disabled for performance" + self flag: #todo. "overlaps with #mapImplementedNotSent:. See comment there." + ^ nil \ No newline at end of file diff --git a/packages/SwaLintBrowser.package/SL2DefaultTestMapper.class/instance/mapMissingSubclassResponsibility..st b/packages/SwaLintBrowser.package/SL2DefaultTestMapper.class/instance/mapMissingSubclassResponsibility..st new file mode 100644 index 00000000..e1bec050 --- /dev/null +++ b/packages/SwaLintBrowser.package/SL2DefaultTestMapper.class/instance/mapMissingSubclassResponsibility..st @@ -0,0 +1,7 @@ +map - 3. design quality - refactoring opportunities +mapMissingSubclassResponsibility: aSLTestData + + + ^ (self makeTestFrom: aSLTestData) + addCategoryPath: #('design quality' 'refactoring opportunities'); + yourself \ No newline at end of file diff --git a/packages/SwaLintBrowser.package/SL2DefaultTestMapper.class/instance/mapMissingSuperSends..st b/packages/SwaLintBrowser.package/SL2DefaultTestMapper.class/instance/mapMissingSuperSends..st new file mode 100644 index 00000000..9f3ea74f --- /dev/null +++ b/packages/SwaLintBrowser.package/SL2DefaultTestMapper.class/instance/mapMissingSuperSends..st @@ -0,0 +1,8 @@ +map - 1. possible bugs - libraries +mapMissingSuperSends: aSLTestData + + + ^ (self makeTestFrom: aSLTestData) + title: 'Missing super sends'; + addCategoryPath: #('possible bugs' 'libraries'); + yourself \ No newline at end of file diff --git a/packages/SwaLintBrowser.package/SL2DefaultTestMapper.class/instance/mapMissingTranslationsInMenus..st b/packages/SwaLintBrowser.package/SL2DefaultTestMapper.class/instance/mapMissingTranslationsInMenus..st new file mode 100644 index 00000000..b1b77031 --- /dev/null +++ b/packages/SwaLintBrowser.package/SL2DefaultTestMapper.class/instance/mapMissingTranslationsInMenus..st @@ -0,0 +1,7 @@ +map - 2. code quality - libraries +mapMissingTranslationsInMenus: aSLTestData + + + ^ (self makeTestFrom: aSLTestData) + addCategoryPath: #('code quality' 'libraries'); + yourself \ No newline at end of file diff --git a/packages/SwaLintBrowser.package/SL2DefaultTestMapper.class/instance/mapModifiesCollection..st b/packages/SwaLintBrowser.package/SL2DefaultTestMapper.class/instance/mapModifiesCollection..st new file mode 100644 index 00000000..13551e57 --- /dev/null +++ b/packages/SwaLintBrowser.package/SL2DefaultTestMapper.class/instance/mapModifiesCollection..st @@ -0,0 +1,7 @@ +map - 1. possible bugs - libraries - Collections +mapModifiesCollection: aSLTestData + + + ^ (self makeTestFrom: aSLTestData) + addCategoryPath: #('possible bugs' 'libraries' 'Collections'); + yourself \ No newline at end of file diff --git a/packages/SwaLintBrowser.package/SL2DefaultTestMapper.class/instance/mapNamespaceSimulation..st b/packages/SwaLintBrowser.package/SL2DefaultTestMapper.class/instance/mapNamespaceSimulation..st new file mode 100644 index 00000000..8fd4ffdb --- /dev/null +++ b/packages/SwaLintBrowser.package/SL2DefaultTestMapper.class/instance/mapNamespaceSimulation..st @@ -0,0 +1,7 @@ +map - 2. code quality - coding styles +mapNamespaceSimulation: aSLTestData + + + ^ (self makeTestFrom: aSLTestData) + addCategoryPath: #('code quality' 'coding styles'); + yourself \ No newline at end of file diff --git a/packages/SwaLintBrowser.package/SL2DefaultTestMapper.class/instance/mapNilObsession..st b/packages/SwaLintBrowser.package/SL2DefaultTestMapper.class/instance/mapNilObsession..st new file mode 100644 index 00000000..3fe6e6b7 --- /dev/null +++ b/packages/SwaLintBrowser.package/SL2DefaultTestMapper.class/instance/mapNilObsession..st @@ -0,0 +1,9 @@ +map - 3. design quality - disharmonies +mapNilObsession: aSLTestData + + + ^ (self makeTestFrom: aSLTestData) + title: 'Nil obsession'; + addCategoryPath: #('design quality' 'disharmonies'); + addCategoryPath: #(''); + yourself \ No newline at end of file diff --git a/packages/SwaLintBrowser.package/SL2DefaultTestMapper.class/instance/mapNumberOfAccessedVars..st b/packages/SwaLintBrowser.package/SL2DefaultTestMapper.class/instance/mapNumberOfAccessedVars..st new file mode 100644 index 00000000..1f73b7f8 --- /dev/null +++ b/packages/SwaLintBrowser.package/SL2DefaultTestMapper.class/instance/mapNumberOfAccessedVars..st @@ -0,0 +1,7 @@ +map - 3. design quality - metrics +mapNumberOfAccessedVars: aSLTestData + + + ^ (self makeTestFrom: aSLTestData) + addCategoryPath: #('design quality' 'metrics'); + yourself \ No newline at end of file diff --git a/packages/SwaLintBrowser.package/SL2DefaultTestMapper.class/instance/mapOverridesSpecialMessage..st b/packages/SwaLintBrowser.package/SL2DefaultTestMapper.class/instance/mapOverridesSpecialMessage..st new file mode 100644 index 00000000..aa8fc744 --- /dev/null +++ b/packages/SwaLintBrowser.package/SL2DefaultTestMapper.class/instance/mapOverridesSpecialMessage..st @@ -0,0 +1,7 @@ +map - 2. code quality - libraries - Kernel +mapOverridesSpecialMessage: aSLTestData + + + ^ (self makeTestFrom: aSLTestData) + addCategoryPath: #('code quality' 'libraries' 'Kernel'); + yourself \ No newline at end of file diff --git a/packages/SwaLintBrowser.package/SL2DefaultTestMapper.class/instance/mapOverviewPyramidMetric..st b/packages/SwaLintBrowser.package/SL2DefaultTestMapper.class/instance/mapOverviewPyramidMetric..st new file mode 100644 index 00000000..11b093c0 --- /dev/null +++ b/packages/SwaLintBrowser.package/SL2DefaultTestMapper.class/instance/mapOverviewPyramidMetric..st @@ -0,0 +1,7 @@ +map - 3. design quality - metrics +mapOverviewPyramidMetric: aSLTestData + + + ^ (self makeTestFrom: aSLTestData) + addCategoryPath: #('design quality' 'metrics'); + yourself \ No newline at end of file diff --git a/packages/SwaLintBrowser.package/SL2DefaultTestMapper.class/instance/mapPlatformDependentUserInteraction..st b/packages/SwaLintBrowser.package/SL2DefaultTestMapper.class/instance/mapPlatformDependentUserInteraction..st new file mode 100644 index 00000000..3fc6d746 --- /dev/null +++ b/packages/SwaLintBrowser.package/SL2DefaultTestMapper.class/instance/mapPlatformDependentUserInteraction..st @@ -0,0 +1,7 @@ +map - 2. code quality - libraries +mapPlatformDependentUserInteraction: aSLTestData + + + ^ (self makeTestFrom: aSLTestData) + addCategoryPath: #('code quality' 'libraries'); + yourself \ No newline at end of file diff --git a/packages/SwaLintBrowser.package/SL2DefaultTestMapper.class/instance/mapPrecedence..st b/packages/SwaLintBrowser.package/SL2DefaultTestMapper.class/instance/mapPrecedence..st new file mode 100644 index 00000000..a8f44760 --- /dev/null +++ b/packages/SwaLintBrowser.package/SL2DefaultTestMapper.class/instance/mapPrecedence..st @@ -0,0 +1,6 @@ +map - 1. possible bugs - syntax +mapPrecedence: aSLTestData + + + self flag: #discuss. "ct: could be intentional" + ^ nil \ No newline at end of file diff --git a/packages/SwaLintBrowser.package/SL2DefaultTestMapper.class/instance/mapRedundantAssignment..st b/packages/SwaLintBrowser.package/SL2DefaultTestMapper.class/instance/mapRedundantAssignment..st new file mode 100644 index 00000000..b98b23de --- /dev/null +++ b/packages/SwaLintBrowser.package/SL2DefaultTestMapper.class/instance/mapRedundantAssignment..st @@ -0,0 +1,8 @@ +map - 2. code quality - syntax +mapRedundantAssignment: aSLTestData + + + ^ (self makeTestFrom: aSLTestData) + title: 'Redundant assignment'; + addCategoryPath: #('code quality' 'syntax'); + yourself \ No newline at end of file diff --git a/packages/SwaLintBrowser.package/SL2DefaultTestMapper.class/instance/mapRedundantBlock..st b/packages/SwaLintBrowser.package/SL2DefaultTestMapper.class/instance/mapRedundantBlock..st new file mode 100644 index 00000000..9158fbf1 --- /dev/null +++ b/packages/SwaLintBrowser.package/SL2DefaultTestMapper.class/instance/mapRedundantBlock..st @@ -0,0 +1,8 @@ +map - 2. code quality - syntax +mapRedundantBlock: aSLTestData + + + ^ (self makeTestFrom: aSLTestData) + title: 'Redundant block'; + addCategoryPath: #('code quality' 'syntax'); + yourself \ No newline at end of file diff --git a/packages/SwaLintBrowser.package/SL2DefaultTestMapper.class/instance/mapRedundantCollectionConversion..st b/packages/SwaLintBrowser.package/SL2DefaultTestMapper.class/instance/mapRedundantCollectionConversion..st new file mode 100644 index 00000000..f0d9a937 --- /dev/null +++ b/packages/SwaLintBrowser.package/SL2DefaultTestMapper.class/instance/mapRedundantCollectionConversion..st @@ -0,0 +1,8 @@ +map - 2. code quality - libraries - Collections +mapRedundantCollectionConversion: aSLTestData + + + ^ (self makeTestFrom: aSLTestData) + title: 'Redundant collection conversion'; + addCategoryPath: #('code quality' 'libraries' 'Collections'); + yourself \ No newline at end of file diff --git a/packages/SwaLintBrowser.package/SL2DefaultTestMapper.class/instance/mapRedundantCollectionCopy..st b/packages/SwaLintBrowser.package/SL2DefaultTestMapper.class/instance/mapRedundantCollectionCopy..st new file mode 100644 index 00000000..b60d9655 --- /dev/null +++ b/packages/SwaLintBrowser.package/SL2DefaultTestMapper.class/instance/mapRedundantCollectionCopy..st @@ -0,0 +1,9 @@ +map - 2. code quality - libraries - Collections +mapRedundantCollectionCopy: aSLTestData + + + ^ (self makeTestFrom: aSLTestData) + title: 'Redundant collection copy'; + addCategoryPath: #('code quality' 'libraries' 'Collections'); + description: aSLTestData description , ' If the result of a message such as #collect: or #select: is not used, use a simple #do: instead.'; + yourself \ No newline at end of file diff --git a/packages/SwaLintBrowser.package/SL2DefaultTestMapper.class/instance/mapRedundantComparison..st b/packages/SwaLintBrowser.package/SL2DefaultTestMapper.class/instance/mapRedundantComparison..st new file mode 100644 index 00000000..6ff7ccba --- /dev/null +++ b/packages/SwaLintBrowser.package/SL2DefaultTestMapper.class/instance/mapRedundantComparison..st @@ -0,0 +1,9 @@ +map - 1. possible bugs - syntax +mapRedundantComparison: aSLTestData + + + ^ (self makeTestFrom: aSLTestData) + title: 'Redundant comparison operator'; + addCategoryPath: #('possible bugs' 'syntax'); + description: 'Statements that send a binary comparison message such as #= or #~= but do not use the result. Check whether this operation is not required, or whether you intended to perform an assignment instead.'; + yourself \ No newline at end of file diff --git a/packages/SwaLintBrowser.package/SL2DefaultTestMapper.class/instance/mapRedundantOverride..st b/packages/SwaLintBrowser.package/SL2DefaultTestMapper.class/instance/mapRedundantOverride..st new file mode 100644 index 00000000..2586be37 --- /dev/null +++ b/packages/SwaLintBrowser.package/SL2DefaultTestMapper.class/instance/mapRedundantOverride..st @@ -0,0 +1,8 @@ +map - 2. code quality - syntax +mapRedundantOverride: aSLTestData + + + ^ (self makeTestFrom: aSLTestData) + title: 'Redundant override'; + addCategoryPath: #('code quality' 'syntax'); + yourself \ No newline at end of file diff --git a/packages/SwaLintBrowser.package/SL2DefaultTestMapper.class/instance/mapRedundantTempVarAssignment..st b/packages/SwaLintBrowser.package/SL2DefaultTestMapper.class/instance/mapRedundantTempVarAssignment..st new file mode 100644 index 00000000..cb5c3d39 --- /dev/null +++ b/packages/SwaLintBrowser.package/SL2DefaultTestMapper.class/instance/mapRedundantTempVarAssignment..st @@ -0,0 +1,8 @@ +map - 2. code quality - syntax +mapRedundantTempVarAssignment: aSLTestData + + + ^ (self makeTestFrom: aSLTestData) + title: 'Redundant tempvar assignment'; + addCategoryPath: #('code quality' 'syntax'); + yourself \ No newline at end of file diff --git a/packages/SwaLintBrowser.package/SL2DefaultTestMapper.class/instance/mapRedundantYourself..st b/packages/SwaLintBrowser.package/SL2DefaultTestMapper.class/instance/mapRedundantYourself..st new file mode 100644 index 00000000..3aa53836 --- /dev/null +++ b/packages/SwaLintBrowser.package/SL2DefaultTestMapper.class/instance/mapRedundantYourself..st @@ -0,0 +1,8 @@ +map - 2. code quality - syntax +mapRedundantYourself: aSLTestData + + + ^ (self makeTestFrom: aSLTestData) + title: 'Redundant #yourself'; + addCategoryPath: #('code quality' 'syntax'); + yourself \ No newline at end of file diff --git a/packages/SwaLintBrowser.package/SL2DefaultTestMapper.class/instance/mapRefusedParentBequest..st b/packages/SwaLintBrowser.package/SL2DefaultTestMapper.class/instance/mapRefusedParentBequest..st new file mode 100644 index 00000000..1510c5a1 --- /dev/null +++ b/packages/SwaLintBrowser.package/SL2DefaultTestMapper.class/instance/mapRefusedParentBequest..st @@ -0,0 +1,8 @@ +map - 3. design quality - disharmonies +mapRefusedParentBequest: aSLTestData + + + self flag: #(todo discuss). "duplicate with mapTraditionBreaker:?" + ^ (self makeTestFrom: aSLTestData) + addCategoryPath: #('design quality' 'disharmonies'); + yourself \ No newline at end of file diff --git a/packages/SwaLintBrowser.package/SL2DefaultTestMapper.class/instance/mapReturnInEnsure..st b/packages/SwaLintBrowser.package/SL2DefaultTestMapper.class/instance/mapReturnInEnsure..st new file mode 100644 index 00000000..0a74d89a --- /dev/null +++ b/packages/SwaLintBrowser.package/SL2DefaultTestMapper.class/instance/mapReturnInEnsure..st @@ -0,0 +1,6 @@ +map - 1. possible bugs - syntax +mapReturnInEnsure: aSLTestData + + + self flag: #discuss. + ^ nil \ No newline at end of file diff --git a/packages/SwaLintBrowser.package/SL2DefaultTestMapper.class/instance/mapReturnsBooleanAndOther..st b/packages/SwaLintBrowser.package/SL2DefaultTestMapper.class/instance/mapReturnsBooleanAndOther..st new file mode 100644 index 00000000..44f0c00b --- /dev/null +++ b/packages/SwaLintBrowser.package/SL2DefaultTestMapper.class/instance/mapReturnsBooleanAndOther..st @@ -0,0 +1,7 @@ +map - 2. code quality - libraries - Booleans +mapReturnsBooleanAndOther: aSLTestData + + + ^ (self makeTestFrom: aSLTestData) + addCategoryPath: #('code quality' 'libraries' 'Booleans'); + yourself \ No newline at end of file diff --git a/packages/SwaLintBrowser.package/SL2DefaultTestMapper.class/instance/mapReturnsIfTrue..st b/packages/SwaLintBrowser.package/SL2DefaultTestMapper.class/instance/mapReturnsIfTrue..st new file mode 100644 index 00000000..6c45443d --- /dev/null +++ b/packages/SwaLintBrowser.package/SL2DefaultTestMapper.class/instance/mapReturnsIfTrue..st @@ -0,0 +1,9 @@ +map - 2. code quality - coding styles +mapReturnsIfTrue: aSLTestData + + + self flag: #discuss. "could be intentional" + ^ nil + "^ (self makeTestFrom: aSLTestData) + addCategoryPath: #('code quality' 'coding styles'); + yourself" \ No newline at end of file diff --git a/packages/SwaLintBrowser.package/SL2DefaultTestMapper.class/instance/mapSearchingLiteral..st b/packages/SwaLintBrowser.package/SL2DefaultTestMapper.class/instance/mapSearchingLiteral..st new file mode 100644 index 00000000..0f55df2e --- /dev/null +++ b/packages/SwaLintBrowser.package/SL2DefaultTestMapper.class/instance/mapSearchingLiteral..st @@ -0,0 +1,7 @@ +map - 2. code quality - libraries +mapSearchingLiteral: aSLTestData + + + ^ (self makeTestFrom: aSLTestData) + addCategoryPath: #('code quality' 'libraries'); + yourself \ No newline at end of file diff --git a/packages/SwaLintBrowser.package/SL2DefaultTestMapper.class/instance/mapSendsDifferentSuper..st b/packages/SwaLintBrowser.package/SL2DefaultTestMapper.class/instance/mapSendsDifferentSuper..st new file mode 100644 index 00000000..6025308a --- /dev/null +++ b/packages/SwaLintBrowser.package/SL2DefaultTestMapper.class/instance/mapSendsDifferentSuper..st @@ -0,0 +1,7 @@ +map - 3. design quality - antipatterns +mapSendsDifferentSuper: aSLTestData + + + ^ (self makeTestFrom: aSLTestData) + addCategoryPath: #('design quality' 'antipatterns'); + yourself \ No newline at end of file diff --git a/packages/SwaLintBrowser.package/SL2DefaultTestMapper.class/instance/mapSendsUnknownMessageToGlobal..st b/packages/SwaLintBrowser.package/SL2DefaultTestMapper.class/instance/mapSendsUnknownMessageToGlobal..st new file mode 100644 index 00000000..a94cfa50 --- /dev/null +++ b/packages/SwaLintBrowser.package/SL2DefaultTestMapper.class/instance/mapSendsUnknownMessageToGlobal..st @@ -0,0 +1,7 @@ +map - 1. possible bugs - libraries +mapSendsUnknownMessageToGlobal: aSLTestData + + + ^ (self makeTestFrom: aSLTestData) + addCategoryPath: #('possible bugs' 'libraries'); + yourself \ No newline at end of file diff --git a/packages/SwaLintBrowser.package/SL2DefaultTestMapper.class/instance/mapSendsUtilityMethods..st b/packages/SwaLintBrowser.package/SL2DefaultTestMapper.class/instance/mapSendsUtilityMethods..st new file mode 100644 index 00000000..cb6f3e94 --- /dev/null +++ b/packages/SwaLintBrowser.package/SL2DefaultTestMapper.class/instance/mapSendsUtilityMethods..st @@ -0,0 +1,7 @@ +map - 3. design quality - antipatterns +mapSendsUtilityMethods: aSLTestData + + + ^ (self makeTestFrom: aSLTestData) + addCategoryPath: #('design quality' 'antipatterns'); + yourself \ No newline at end of file diff --git a/packages/SwaLintBrowser.package/SL2DefaultTestMapper.class/instance/mapShadowedInstanceVariables..st b/packages/SwaLintBrowser.package/SL2DefaultTestMapper.class/instance/mapShadowedInstanceVariables..st new file mode 100644 index 00000000..71ae065e --- /dev/null +++ b/packages/SwaLintBrowser.package/SL2DefaultTestMapper.class/instance/mapShadowedInstanceVariables..st @@ -0,0 +1,9 @@ +map - 2. code quality - coding styles +mapShadowedInstanceVariables: aSLTestData + + + self flag: #discuss. "really an issue?" + ^ (self makeTestFrom: aSLTestData) + title: 'Shadowed instance variables'; + addCategoryPath: #('code quality' 'coding styles'); + yourself \ No newline at end of file diff --git a/packages/SwaLintBrowser.package/SL2DefaultTestMapper.class/instance/mapShotgunSurgery..st b/packages/SwaLintBrowser.package/SL2DefaultTestMapper.class/instance/mapShotgunSurgery..st new file mode 100644 index 00000000..e64303e7 --- /dev/null +++ b/packages/SwaLintBrowser.package/SL2DefaultTestMapper.class/instance/mapShotgunSurgery..st @@ -0,0 +1,7 @@ +map - 3. design quality - disharmonies +mapShotgunSurgery: aSLTestData + + + ^ (self makeTestFrom: aSLTestData) + addCategoryPath: #('design quality' 'disharmonies'); + yourself \ No newline at end of file diff --git a/packages/SwaLintBrowser.package/SL2DefaultTestMapper.class/instance/mapSignificantDuplication..st b/packages/SwaLintBrowser.package/SL2DefaultTestMapper.class/instance/mapSignificantDuplication..st new file mode 100644 index 00000000..1abeff96 --- /dev/null +++ b/packages/SwaLintBrowser.package/SL2DefaultTestMapper.class/instance/mapSignificantDuplication..st @@ -0,0 +1,6 @@ +map - 3. design quality - refactoring opportunities +mapSignificantDuplication: aSLTestData + + + self flag: #todo. "too slow" + ^ nil \ No newline at end of file diff --git a/packages/SwaLintBrowser.package/SL2DefaultTestMapper.class/instance/mapSizeCheck..st b/packages/SwaLintBrowser.package/SL2DefaultTestMapper.class/instance/mapSizeCheck..st new file mode 100644 index 00000000..98b39f87 --- /dev/null +++ b/packages/SwaLintBrowser.package/SL2DefaultTestMapper.class/instance/mapSizeCheck..st @@ -0,0 +1,7 @@ +map - 2. code quality - libraries - Collections +mapSizeCheck: aSLTestData + + + ^ (self makeTestFrom: aSLTestData) + addCategoryPath: #('code quality' 'libraries' 'Collections'); + yourself \ No newline at end of file diff --git a/packages/SwaLintBrowser.package/SL2DefaultTestMapper.class/instance/mapSpelling..st b/packages/SwaLintBrowser.package/SL2DefaultTestMapper.class/instance/mapSpelling..st new file mode 100644 index 00000000..726d228c --- /dev/null +++ b/packages/SwaLintBrowser.package/SL2DefaultTestMapper.class/instance/mapSpelling..st @@ -0,0 +1,9 @@ +map - 2. code quality - coding styles +mapSpelling: aSLTestData + + + aSLTestData category = 'Spelling' ifFalse: [^ nil]. + + ^ (self makeTestFrom: aSLTestData) + addCategoryPath: #('code quality' 'spelling'); + yourself \ No newline at end of file diff --git a/packages/SwaLintBrowser.package/SL2DefaultTestMapper.class/instance/mapStringConcatenation..st b/packages/SwaLintBrowser.package/SL2DefaultTestMapper.class/instance/mapStringConcatenation..st new file mode 100644 index 00000000..7acfb264 --- /dev/null +++ b/packages/SwaLintBrowser.package/SL2DefaultTestMapper.class/instance/mapStringConcatenation..st @@ -0,0 +1,8 @@ +map - 2. code quality - libraries - Collections +mapStringConcatenation: aSLTestData + + + ^ (self makeTestFrom: aSLTestData) + addCategoryPath: #('code quality' 'libraries' 'Collections'); + description: aSLTestData description , '\\For this one, weight your individual coding style against possible performance issues. You can also use String>>format: or String>>expandMacrosWith: et al.' withCRs; + yourself \ No newline at end of file diff --git a/packages/SwaLintBrowser.package/SL2DefaultTestMapper.class/instance/mapSubclassResponsibilityNotImplemented..st b/packages/SwaLintBrowser.package/SL2DefaultTestMapper.class/instance/mapSubclassResponsibilityNotImplemented..st new file mode 100644 index 00000000..9ec8f69b --- /dev/null +++ b/packages/SwaLintBrowser.package/SL2DefaultTestMapper.class/instance/mapSubclassResponsibilityNotImplemented..st @@ -0,0 +1,9 @@ +map - 1. possible bugs - missing code +mapSubclassResponsibilityNotImplemented: aSLTestData + + + ^ (self makeTestFrom: aSLTestData) + title: 'Subclass responsibility not implemented'; + addCategoryPath: #('possible bugs' 'missing code'); + description: aSLTestData description , '\\This test is not applicable to framework code that deliberately offers abstract classes for specialization. Still, you could consider testing/demonstrating your superclasses through example subclasses.' withCRs; + yourself \ No newline at end of file diff --git a/packages/SwaLintBrowser.package/SL2DefaultTestMapper.class/instance/mapSuperSendsNew..st b/packages/SwaLintBrowser.package/SL2DefaultTestMapper.class/instance/mapSuperSendsNew..st new file mode 100644 index 00000000..a4878b42 --- /dev/null +++ b/packages/SwaLintBrowser.package/SL2DefaultTestMapper.class/instance/mapSuperSendsNew..st @@ -0,0 +1,7 @@ +map - 2. code quality - libraries - Kernel +mapSuperSendsNew: aSLTestData + + + ^ (self makeTestFrom: aSLTestData) + addCategoryPath: #('code quality' 'libraries' 'Kernel'); + yourself \ No newline at end of file diff --git a/packages/SwaLintBrowser.package/SL2DefaultTestMapper.class/instance/mapSuspiciousAuthorInitials..st b/packages/SwaLintBrowser.package/SL2DefaultTestMapper.class/instance/mapSuspiciousAuthorInitials..st new file mode 100644 index 00000000..4e66b19f --- /dev/null +++ b/packages/SwaLintBrowser.package/SL2DefaultTestMapper.class/instance/mapSuspiciousAuthorInitials..st @@ -0,0 +1,7 @@ +map - 2. code quality - metadata +mapSuspiciousAuthorInitials: aSLTestData + + + ^ (self makeTestFrom: aSLTestData) + addCategoryPath: #('code quality' 'metadata'); + yourself \ No newline at end of file diff --git a/packages/SwaLintBrowser.package/SL2DefaultTestMapper.class/instance/mapSystemLocCount..st b/packages/SwaLintBrowser.package/SL2DefaultTestMapper.class/instance/mapSystemLocCount..st new file mode 100644 index 00000000..5d8baedb --- /dev/null +++ b/packages/SwaLintBrowser.package/SL2DefaultTestMapper.class/instance/mapSystemLocCount..st @@ -0,0 +1,7 @@ +map - 3. design quality - metrics +mapSystemLocCount: aSLTestData + + + ^ (self makeTestFrom: aSLTestData) + addCategoryPath: #('design quality' 'metrics'); + yourself \ No newline at end of file diff --git a/packages/SwaLintBrowser.package/SL2DefaultTestMapper.class/instance/mapSystemMethodCount..st b/packages/SwaLintBrowser.package/SL2DefaultTestMapper.class/instance/mapSystemMethodCount..st new file mode 100644 index 00000000..8262dce5 --- /dev/null +++ b/packages/SwaLintBrowser.package/SL2DefaultTestMapper.class/instance/mapSystemMethodCount..st @@ -0,0 +1,7 @@ +map - 3. design quality - metrics +mapSystemMethodCount: aSLTestData + + + ^ (self makeTestFrom: aSLTestData) + addCategoryPath: #('design quality' 'metrics'); + yourself \ No newline at end of file diff --git a/packages/SwaLintBrowser.package/SL2DefaultTestMapper.class/instance/mapTemporaryVariableCapitalization..st b/packages/SwaLintBrowser.package/SL2DefaultTestMapper.class/instance/mapTemporaryVariableCapitalization..st new file mode 100644 index 00000000..3a93df7c --- /dev/null +++ b/packages/SwaLintBrowser.package/SL2DefaultTestMapper.class/instance/mapTemporaryVariableCapitalization..st @@ -0,0 +1,7 @@ +map - 2. code quality - coding styles +mapTemporaryVariableCapitalization: aSLTestData + + + ^ (self makeTestFrom: aSLTestData) + addCategoryPath: #('code quality' 'coding styles'); + yourself \ No newline at end of file diff --git a/packages/SwaLintBrowser.package/SL2DefaultTestMapper.class/instance/mapTempsReadBeforeWritten..st b/packages/SwaLintBrowser.package/SL2DefaultTestMapper.class/instance/mapTempsReadBeforeWritten..st new file mode 100644 index 00000000..50d19600 --- /dev/null +++ b/packages/SwaLintBrowser.package/SL2DefaultTestMapper.class/instance/mapTempsReadBeforeWritten..st @@ -0,0 +1,7 @@ +map - 2. code quality - syntax +mapTempsReadBeforeWritten: aSLTestData + + + ^ (self makeTestFrom: aSLTestData) + addCategoryPath: #('code quality' 'syntax'); + yourself \ No newline at end of file diff --git a/packages/SwaLintBrowser.package/SL2DefaultTestMapper.class/instance/mapThreeElementPoint..st b/packages/SwaLintBrowser.package/SL2DefaultTestMapper.class/instance/mapThreeElementPoint..st new file mode 100644 index 00000000..119e8195 --- /dev/null +++ b/packages/SwaLintBrowser.package/SL2DefaultTestMapper.class/instance/mapThreeElementPoint..st @@ -0,0 +1,7 @@ +map - 1. possible bugs - libraries - Graphics +mapThreeElementPoint: aSLTestData + + + ^ (self makeTestFrom: aSLTestData) + addCategoryPath: #('possible bugs' 'libraries' 'Graphics'); + yourself \ No newline at end of file diff --git a/packages/SwaLintBrowser.package/SL2DefaultTestMapper.class/instance/mapToDo..st b/packages/SwaLintBrowser.package/SL2DefaultTestMapper.class/instance/mapToDo..st new file mode 100644 index 00000000..05a7164b --- /dev/null +++ b/packages/SwaLintBrowser.package/SL2DefaultTestMapper.class/instance/mapToDo..st @@ -0,0 +1,7 @@ +map - 2. code quality - libraries - Collections +mapToDo: aSLTestData + + + ^ (self makeTestFrom: aSLTestData) + addCategoryPath: #('code quality' 'libraries' 'Collections'); + yourself \ No newline at end of file diff --git a/packages/SwaLintBrowser.package/SL2DefaultTestMapper.class/instance/mapToDoCollect..st b/packages/SwaLintBrowser.package/SL2DefaultTestMapper.class/instance/mapToDoCollect..st new file mode 100644 index 00000000..64fcc6d1 --- /dev/null +++ b/packages/SwaLintBrowser.package/SL2DefaultTestMapper.class/instance/mapToDoCollect..st @@ -0,0 +1,7 @@ +map - 2. code quality - libraries - Collections +mapToDoCollect: aSLTestData + + + ^ (self makeTestFrom: aSLTestData) + addCategoryPath: #('code quality' 'libraries' 'Collections'); + yourself \ No newline at end of file diff --git a/packages/SwaLintBrowser.package/SL2DefaultTestMapper.class/instance/mapToDoWithIncrement..st b/packages/SwaLintBrowser.package/SL2DefaultTestMapper.class/instance/mapToDoWithIncrement..st new file mode 100644 index 00000000..664512ba --- /dev/null +++ b/packages/SwaLintBrowser.package/SL2DefaultTestMapper.class/instance/mapToDoWithIncrement..st @@ -0,0 +1,8 @@ +map - 2. code quality - libraries - Collections +mapToDoWithIncrement: aSLTestData + + + ^ (self makeTestFrom: aSLTestData) + addCategoryPath: #('code quality' 'libraries' 'Collections'); + description: aSLTestData description , ' You can often use #withIndexDo: or #withIndexCollect: for those.'; + yourself \ No newline at end of file diff --git a/packages/SwaLintBrowser.package/SL2DefaultTestMapper.class/instance/mapTraditionBreaker..st b/packages/SwaLintBrowser.package/SL2DefaultTestMapper.class/instance/mapTraditionBreaker..st new file mode 100644 index 00000000..1f853058 --- /dev/null +++ b/packages/SwaLintBrowser.package/SL2DefaultTestMapper.class/instance/mapTraditionBreaker..st @@ -0,0 +1,8 @@ +map - 3. design quality - disharmonies +mapTraditionBreaker: aSLTestData + + + self flag: #(todo discuss). "duplicate with mapRefusedParentBequest:?" + ^ (self makeTestFrom: aSLTestData) + addCategoryPath: #('design quality' 'disharmonies'); + yourself \ No newline at end of file diff --git a/packages/SwaLintBrowser.package/SL2DefaultTestMapper.class/instance/mapUncategorizedMethods..st b/packages/SwaLintBrowser.package/SL2DefaultTestMapper.class/instance/mapUncategorizedMethods..st new file mode 100644 index 00000000..2fc98b09 --- /dev/null +++ b/packages/SwaLintBrowser.package/SL2DefaultTestMapper.class/instance/mapUncategorizedMethods..st @@ -0,0 +1,8 @@ +map - 2. code quality - documentation +mapUncategorizedMethods: aSLTestData + + + ^ (self makeTestFrom: aSLTestData) + title: 'Uncategorized methods'; + addCategoryPath: #('code quality' 'documentation'); + yourself \ No newline at end of file diff --git a/packages/SwaLintBrowser.package/SL2DefaultTestMapper.class/instance/mapUncommonMessageSend..st b/packages/SwaLintBrowser.package/SL2DefaultTestMapper.class/instance/mapUncommonMessageSend..st new file mode 100644 index 00000000..55c48922 --- /dev/null +++ b/packages/SwaLintBrowser.package/SL2DefaultTestMapper.class/instance/mapUncommonMessageSend..st @@ -0,0 +1,7 @@ +map - 1. possible bugs - syntax +mapUncommonMessageSend: aSLTestData + + + ^ (self makeTestFrom: aSLTestData) + addCategoryPath: #('possible bugs' 'syntax'); + yourself \ No newline at end of file diff --git a/packages/SwaLintBrowser.package/SL2DefaultTestMapper.class/instance/mapUnconditionalRecursion..st b/packages/SwaLintBrowser.package/SL2DefaultTestMapper.class/instance/mapUnconditionalRecursion..st new file mode 100644 index 00000000..8ee407bf --- /dev/null +++ b/packages/SwaLintBrowser.package/SL2DefaultTestMapper.class/instance/mapUnconditionalRecursion..st @@ -0,0 +1,7 @@ +map - 1. possible bugs - syntax +mapUnconditionalRecursion: aSLTestData + + + ^ (self makeTestFrom: aSLTestData) + addCategoryPath: #('possible bugs' 'syntax'); + yourself \ No newline at end of file diff --git a/packages/SwaLintBrowser.package/SL2DefaultTestMapper.class/instance/mapUndeclaredInstanceVariable..st b/packages/SwaLintBrowser.package/SL2DefaultTestMapper.class/instance/mapUndeclaredInstanceVariable..st new file mode 100644 index 00000000..05a12701 --- /dev/null +++ b/packages/SwaLintBrowser.package/SL2DefaultTestMapper.class/instance/mapUndeclaredInstanceVariable..st @@ -0,0 +1,8 @@ +map - 1. possible bugs - missing code +mapUndeclaredInstanceVariable: aSLTestData + + + ^ (self makeTestFrom: aSLTestData) + title: 'Undeclared instance variable'; + addCategoryPath: #('possible bugs' 'missing code'); + yourself \ No newline at end of file diff --git a/packages/SwaLintBrowser.package/SL2DefaultTestMapper.class/instance/mapUndeclaredReference..st b/packages/SwaLintBrowser.package/SL2DefaultTestMapper.class/instance/mapUndeclaredReference..st new file mode 100644 index 00000000..6bdbfebe --- /dev/null +++ b/packages/SwaLintBrowser.package/SL2DefaultTestMapper.class/instance/mapUndeclaredReference..st @@ -0,0 +1,7 @@ +map - 1. possible bugs - missing code +mapUndeclaredReference: aSLTestData + + + ^ (self makeTestFrom: aSLTestData) + addCategoryPath: #('possible bugs' 'missing code'); + yourself \ No newline at end of file diff --git a/packages/SwaLintBrowser.package/SL2DefaultTestMapper.class/instance/mapUnoptimizedAndOr..st b/packages/SwaLintBrowser.package/SL2DefaultTestMapper.class/instance/mapUnoptimizedAndOr..st new file mode 100644 index 00000000..b4451983 --- /dev/null +++ b/packages/SwaLintBrowser.package/SL2DefaultTestMapper.class/instance/mapUnoptimizedAndOr..st @@ -0,0 +1,8 @@ +map - 2. code quality - libraries - Booleans +mapUnoptimizedAndOr: aSLTestData + + + ^ (self makeTestFrom: aSLTestData) + addCategoryPath: #('code quality' 'libraries' 'Booleans'); + description: aSLTestData description , ' Note that in highly performance-critical situations, using "a and: [b and: [c]]" instead of "a and: [b] and: [c]" can be acceptable to avoid extra message dispatching.'; + yourself \ No newline at end of file diff --git a/packages/SwaLintBrowser.package/SL2DefaultTestMapper.class/instance/mapUnoptimizedToDo..st b/packages/SwaLintBrowser.package/SL2DefaultTestMapper.class/instance/mapUnoptimizedToDo..st new file mode 100644 index 00000000..35a3739d --- /dev/null +++ b/packages/SwaLintBrowser.package/SL2DefaultTestMapper.class/instance/mapUnoptimizedToDo..st @@ -0,0 +1,8 @@ +map - 2. code quality - libraries - Collections +mapUnoptimizedToDo: aSLTestData + + + ^ (self makeTestFrom: aSLTestData) + addCategoryPath: #('code quality' 'libraries' 'Collections'); + description: aSLTestData description , ' If you need to access the index, you can still use #withIndexDo: et al. in many situations.'; + yourself \ No newline at end of file diff --git a/packages/SwaLintBrowser.package/SL2DefaultTestMapper.class/instance/mapUnpackagedCode..st b/packages/SwaLintBrowser.package/SL2DefaultTestMapper.class/instance/mapUnpackagedCode..st new file mode 100644 index 00000000..e7326dd0 --- /dev/null +++ b/packages/SwaLintBrowser.package/SL2DefaultTestMapper.class/instance/mapUnpackagedCode..st @@ -0,0 +1,7 @@ +map - 2. code quality - metadata +mapUnpackagedCode: aSLTestData + + + ^ (self makeTestFrom: aSLTestData) + addCategoryPath: #('code quality' 'metadata'); + yourself \ No newline at end of file diff --git a/packages/SwaLintBrowser.package/SL2DefaultTestMapper.class/instance/mapUnreferencedVariable..st b/packages/SwaLintBrowser.package/SL2DefaultTestMapper.class/instance/mapUnreferencedVariable..st new file mode 100644 index 00000000..8ab3acfa --- /dev/null +++ b/packages/SwaLintBrowser.package/SL2DefaultTestMapper.class/instance/mapUnreferencedVariable..st @@ -0,0 +1,8 @@ +map - 2. code quality - syntax +mapUnreferencedVariable: aSLTestData + + + self flag: #todo. "duplication with #mapUnreferencedVariables: and #mapUnusedVariables:" + ^ (self makeTestFrom: aSLTestData) + addCategoryPath: #('code quality' 'syntax'); + yourself \ No newline at end of file diff --git a/packages/SwaLintBrowser.package/SL2DefaultTestMapper.class/instance/mapUnreferencedVariables..st b/packages/SwaLintBrowser.package/SL2DefaultTestMapper.class/instance/mapUnreferencedVariables..st new file mode 100644 index 00000000..4fb6ffc9 --- /dev/null +++ b/packages/SwaLintBrowser.package/SL2DefaultTestMapper.class/instance/mapUnreferencedVariables..st @@ -0,0 +1,8 @@ +map - 2. code quality - syntax +mapUnreferencedVariables: aSLTestData + + + self flag: #todo. "duplication with #mapUnreferencedVariable: and #mapUnusedVariables:" + ^ (self makeTestFrom: aSLTestData) + addCategoryPath: #('code quality' 'syntax'); + yourself \ No newline at end of file diff --git a/packages/SwaLintBrowser.package/SL2DefaultTestMapper.class/instance/mapUnusedTempVar..st b/packages/SwaLintBrowser.package/SL2DefaultTestMapper.class/instance/mapUnusedTempVar..st new file mode 100644 index 00000000..486b37a3 --- /dev/null +++ b/packages/SwaLintBrowser.package/SL2DefaultTestMapper.class/instance/mapUnusedTempVar..st @@ -0,0 +1,8 @@ +map - 2. code quality - syntax +mapUnusedTempVar: aSLTestData + + + ^ (self makeTestFrom: aSLTestData) + title: 'Unused temporary variable'; + addCategoryPath: #('code quality' 'syntax'); + yourself \ No newline at end of file diff --git a/packages/SwaLintBrowser.package/SL2DefaultTestMapper.class/instance/mapUnusedVariables..st b/packages/SwaLintBrowser.package/SL2DefaultTestMapper.class/instance/mapUnusedVariables..st new file mode 100644 index 00000000..0e8110b2 --- /dev/null +++ b/packages/SwaLintBrowser.package/SL2DefaultTestMapper.class/instance/mapUnusedVariables..st @@ -0,0 +1,8 @@ +map - 2. code quality - syntax +mapUnusedVariables: aSLTestData + + + self flag: #todo. "duplication with #mapUnreferencedVariable: and #mapUnreferencedVariables:" + ^ (self makeTestFrom: aSLTestData) + addCategoryPath: #('code quality' 'syntax'); + yourself \ No newline at end of file diff --git a/packages/SwaLintBrowser.package/SL2DefaultTestMapper.class/instance/mapUsesAdd..st b/packages/SwaLintBrowser.package/SL2DefaultTestMapper.class/instance/mapUsesAdd..st new file mode 100644 index 00000000..b21c7888 --- /dev/null +++ b/packages/SwaLintBrowser.package/SL2DefaultTestMapper.class/instance/mapUsesAdd..st @@ -0,0 +1,8 @@ +map - 2. code quality - libraries - Collections +mapUsesAdd: aSLTestData + + + self flag: #(todo discuss). "this is not an antipattern..." + ^ (self makeTestFrom: aSLTestData) + addCategoryPath: #('code quality' 'libraries' 'Collections'); + yourself \ No newline at end of file diff --git a/packages/SwaLintBrowser.package/SL2DefaultTestMapper.class/instance/mapUsesTrue..st b/packages/SwaLintBrowser.package/SL2DefaultTestMapper.class/instance/mapUsesTrue..st new file mode 100644 index 00000000..c601410e --- /dev/null +++ b/packages/SwaLintBrowser.package/SL2DefaultTestMapper.class/instance/mapUsesTrue..st @@ -0,0 +1,7 @@ +map - 1. possible bugs - libraries - Kernel +mapUsesTrue: aSLTestData + + + ^ (self makeTestFrom: aSLTestData) + addCategoryPath: #('possible bugs' 'libraries' 'Kernel'); + yourself \ No newline at end of file diff --git a/packages/SwaLintBrowser.package/SL2DefaultTestMapper.class/instance/mapVariableAssignedLiteral..st b/packages/SwaLintBrowser.package/SL2DefaultTestMapper.class/instance/mapVariableAssignedLiteral..st new file mode 100644 index 00000000..52d6107d --- /dev/null +++ b/packages/SwaLintBrowser.package/SL2DefaultTestMapper.class/instance/mapVariableAssignedLiteral..st @@ -0,0 +1,8 @@ +map - 2. code quality - syntax +mapVariableAssignedLiteral: aSLTestData + + + self flag: #discuss. "isnt this a legitimate explaining variable name?" + ^ (self makeTestFrom: aSLTestData) + addCategoryPath: #('code quality' 'syntax'); + yourself \ No newline at end of file diff --git a/packages/SwaLintBrowser.package/SL2DefaultTestMapper.class/instance/mapWhileTrue..st b/packages/SwaLintBrowser.package/SL2DefaultTestMapper.class/instance/mapWhileTrue..st new file mode 100644 index 00000000..438deb57 --- /dev/null +++ b/packages/SwaLintBrowser.package/SL2DefaultTestMapper.class/instance/mapWhileTrue..st @@ -0,0 +1,7 @@ +map - 2. code quality - libraries - Collections +mapWhileTrue: aSLTestData + + + ^ (self makeTestFrom: aSLTestData) + addCategoryPath: #('code quality' 'libraries' 'Collections'); + yourself \ No newline at end of file diff --git a/packages/SwaLintBrowser.package/SL2DefaultTestMapper.class/methodProperties.json b/packages/SwaLintBrowser.package/SL2DefaultTestMapper.class/methodProperties.json new file mode 100644 index 00000000..92a4b206 --- /dev/null +++ b/packages/SwaLintBrowser.package/SL2DefaultTestMapper.class/methodProperties.json @@ -0,0 +1,153 @@ +{ + "class" : { + }, + "instance" : { + "catCodeQuality" : "ct 12/19/2024 06:00", + "catCodeQualityCodingStyles" : "ct 12/18/2024 02:53", + "catDesignQuality" : "ct 12/18/2024 21:26", + "catLegacyStructure" : "ct 12/18/2024 21:59", + "catPossibleBugs" : "ct 12/18/2024 21:03", + "catSWAStartingPoints" : "ct 1/4/2025 21:45", + "catUncategorized" : "ct 12/18/2024 21:34", + "mapAbstractClass:" : "ct 12/19/2024 05:26", + "mapAddRemoveDependents:" : "ct 12/18/2024 22:27", + "mapAssignmentInBlock:" : "ct 12/19/2024 04:06", + "mapAverageHierarchyHeight:" : "ct 12/19/2024 05:37", + "mapAverageNumberOfDerivedClasses:" : "ct 12/19/2024 05:37", + "mapBadMessage:" : "ct 12/19/2024 05:26", + "mapBadlyFormattedMethods:" : "ct 12/19/2024 04:11", + "mapBooleanPrecedence:" : "ct 12/19/2024 05:47", + "mapBrainClass:" : "ct 12/19/2024 05:19", + "mapBrainMethod:" : "ct 12/19/2024 05:19", + "mapCascadeWithoutYourself:" : "ct 1/4/2025 22:21", + "mapClassCount:" : "ct 12/19/2024 05:38", + "mapClassInstVarNotInitialized:" : "ct 12/19/2024 05:57", + "mapClassNameInSelector:" : "ct 12/19/2024 04:12", + "mapClassVariableCapitalization:" : "ct 12/19/2024 04:09", + "mapClassWithoutComment:" : "ct 12/21/2024 20:26", + "mapCollectionCopyEmpty:" : "ct 12/18/2024 22:24", + "mapCollectionMessagesToExternalObject:" : "ct 12/19/2024 05:28", + "mapCollectionProtocol:" : "ct 12/19/2024 05:48", + "mapCommaInLiteralArray:" : "ct 12/17/2024 23:29", + "mapCommentedMethods:" : "ct 12/19/2024 05:38", + "mapComplexMethods:" : "ct 12/19/2024 05:21", + "mapConsistencyCheck:" : "ct 12/19/2024 02:33", + "mapContains:" : "ct 12/19/2024 01:57", + "mapDataClass:" : "ct 12/19/2024 05:19", + "mapDebuggingCode:" : "ct 12/19/2024 02:45", + "mapDefinesEqualNotHash:" : "ct 12/18/2024 22:27", + "mapDetectContains:" : "ct 12/19/2024 01:59", + "mapDirectInstVarAccess:" : "ct 12/21/2024 20:26", + "mapDispersedCoupling:" : "ct 12/19/2024 05:19", + "mapDotAfterReturn:" : "ct 12/19/2024 04:09", + "mapDotInLiteralArray:" : "ct 12/17/2024 23:29", + "mapDuplicateOverride:" : "ct 12/19/2024 04:02", + "mapDuplicationInIfTrueIfFalseBlocks:" : "ct 12/19/2024 02:43", + "mapEmptyExceptionHandler:" : "ct 12/19/2024 02:29", + "mapEqualsTrue:" : "ct 12/19/2024 02:09", + "mapExcessiveArguments:" : "ct 12/19/2024 05:20", + "mapExcessiveInheritance:" : "ct 12/19/2024 05:20", + "mapExcessiveMethods:" : "ct 12/19/2024 05:20", + "mapExcessiveVariables:" : "ct 12/19/2024 05:20", + "mapFeatureEnvy:" : "ct 12/19/2024 05:29", + "mapFileBlocks:" : "ct 12/19/2024 05:52", + "mapFloatEqualityComparison:" : "ct 12/18/2024 22:22", + "mapGlobalState:" : "ct 12/19/2024 05:39", + "mapGodClass:" : "ct 12/19/2024 05:21", + "mapGuardingClause:" : "ct 12/19/2024 04:14", + "mapHardcodedClassReference:" : "ct 1/3/2025 05:43", + "mapIfTrueBlocks:" : "ct 12/19/2024 02:32", + "mapIfTrueReturns:" : "ct 12/19/2024 05:48", + "mapImplementedNotSent:" : "ct 12/18/2024 23:56", + "mapInconsistentMethodCategorization:" : "ct 12/18/2024 23:35", + "mapInstVarCouldBeTempVar:" : "ct 1/5/2025 01:58", + "mapInstVarInAllSubclasses:" : "ct 12/19/2024 05:35", + "mapInstanceVariableCapitalization:" : "ct 12/19/2024 04:10", + "mapIntensiveCoupling:" : "ct 12/19/2024 05:22", + "mapIsAddedService:" : "ct 12/19/2024 05:45", + "mapLawOfDemeter:" : "ct 12/19/2024 05:26", + "mapLiteralArrayCOntainsSuspiciousTrueFalseOrNil:" : "ct 12/19/2024 06:00", + "mapLiteralArrayCharacters:" : "ct 12/19/2024 04:01", + "mapLongMethod:" : "ct 12/19/2024 05:22", + "mapLongMethods:" : "ct 12/19/2024 05:22", + "mapMagicNumbers:" : "ct 12/21/2024 20:26", + "mapMaxNesting:" : "ct 12/19/2024 05:45", + "mapMessagesSentNotImplemented:" : "ct 12/19/2024 05:05", + "mapMetaProgramming:" : "ct 12/19/2024 05:26", + "mapMethodATFD:" : "ct 12/19/2024 05:39", + "mapMethodCC:" : "ct 12/19/2024 05:42", + "mapMethodCDISP:" : "ct 12/19/2024 05:43", + "mapMethodCINT:" : "ct 12/19/2024 05:43", + "mapMethodCM:" : "ct 12/19/2024 05:43", + "mapMethodCYCLO:" : "ct 12/19/2024 05:43", + "mapMethodFDP:" : "ct 12/19/2024 05:44", + "mapMethodHasNoTimeStamp:" : "ct 12/18/2024 22:50", + "mapMethodLAA:" : "ct 12/19/2024 05:44", + "mapMethodLOC:" : "ct 12/19/2024 05:44", + "mapMethodModifierFinal:" : "ct 12/19/2024 05:08", + "mapMethodModifierOverride:" : "ct 12/18/2024 22:31", + "mapMethodModifierSuper:" : "ct 12/19/2024 02:33", + "mapMethodNeedsAttention:" : "ct 12/19/2024 05:46", + "mapMethodSourceContainsLinefeeds:" : "ct 12/18/2024 22:57", + "mapMethodsWithoutSenders:" : "ct 12/18/2024 23:05", + "mapMissingSubclassResponsibility:" : "ct 12/19/2024 05:36", + "mapMissingSuperSends:" : "ct 12/18/2024 22:37", + "mapMissingTranslationsInMenus:" : "ct 12/19/2024 02:39", + "mapModifiesCollection:" : "ct 12/18/2024 22:23", + "mapNamespaceSimulation:" : "ct 12/19/2024 04:12", + "mapNilObsession:" : "ct 12/21/2024 20:26", + "mapNumberOfAccessedVars:" : "ct 12/19/2024 05:46", + "mapOverridesSpecialMessage:" : "ct 12/19/2024 02:28", + "mapOverviewPyramidMetric:" : "ct 12/20/2024 03:23", + "mapPlatformDependentUserInteraction:" : "ct 12/19/2024 02:30", + "mapPrecedence:" : "ct 12/19/2024 05:47", + "mapRedundantAssignment:" : "ct 12/19/2024 02:41", + "mapRedundantBlock:" : "ct 12/19/2024 02:42", + "mapRedundantCollectionConversion:" : "ct 12/19/2024 01:49", + "mapRedundantCollectionCopy:" : "ct 12/19/2024 05:55", + "mapRedundantComparison:" : "ct 12/17/2024 23:29", + "mapRedundantOverride:" : "ct 12/19/2024 04:02", + "mapRedundantTempVarAssignment:" : "ct 12/19/2024 04:06", + "mapRedundantYourself:" : "ct 12/19/2024 02:43", + "mapRefusedParentBequest:" : "ct 12/19/2024 05:24", + "mapReturnInEnsure:" : "ct 12/19/2024 05:51", + "mapReturnsBooleanAndOther:" : "ct 12/19/2024 02:10", + "mapReturnsIfTrue:" : "ct 12/19/2024 04:13", + "mapSearchingLiteral:" : "ct 12/19/2024 05:54", + "mapSendsDifferentSuper:" : "ct 12/19/2024 05:27", + "mapSendsUnknownMessageToGlobal:" : "ct 12/18/2024 22:30", + "mapSendsUtilityMethods:" : "ct 12/19/2024 05:28", + "mapShadowedInstanceVariables:" : "ct 12/19/2024 04:11", + "mapShotgunSurgery:" : "ct 12/19/2024 05:23", + "mapSignificantDuplication:" : "ct 12/19/2024 05:36", + "mapSizeCheck:" : "ct 12/19/2024 02:00", + "mapSpelling:" : "ct 12/19/2024 05:00", + "mapStringConcatenation:" : "ct 12/19/2024 01:55", + "mapSubclassResponsibilityNotImplemented:" : "ct 12/18/2024 23:56", + "mapSuperSendsNew:" : "ct 12/19/2024 02:29", + "mapSuspiciousAuthorInitials:" : "ct 1/5/2025 02:36", + "mapSystemLocCount:" : "ct 12/19/2024 05:38", + "mapSystemMethodCount:" : "ct 12/19/2024 05:38", + "mapTemporaryVariableCapitalization:" : "ct 12/19/2024 04:14", + "mapTempsReadBeforeWritten:" : "ct 12/19/2024 04:04", + "mapThreeElementPoint:" : "ct 12/18/2024 22:25", + "mapToDo:" : "ct 12/19/2024 05:48", + "mapToDoCollect:" : "ct 12/19/2024 05:48", + "mapToDoWithIncrement:" : "ct 12/19/2024 02:05", + "mapTraditionBreaker:" : "ct 12/19/2024 05:24", + "mapUncategorizedMethods:" : "ct 12/18/2024 23:25", + "mapUncommonMessageSend:" : "ct 12/17/2024 23:29", + "mapUnconditionalRecursion:" : "ct 12/17/2024 23:29", + "mapUndeclaredInstanceVariable:" : "ct 12/18/2024 22:34", + "mapUndeclaredReference:" : "ct 12/18/2024 22:31", + "mapUnoptimizedAndOr:" : "ct 12/19/2024 05:56", + "mapUnoptimizedToDo:" : "ct 12/19/2024 02:06", + "mapUnpackagedCode:" : "ct 12/18/2024 22:59", + "mapUnreferencedVariable:" : "ct 12/19/2024 04:00", + "mapUnreferencedVariables:" : "ct 12/19/2024 04:00", + "mapUnusedTempVar:" : "ct 12/19/2024 04:05", + "mapUnusedVariables:" : "ct 12/19/2024 04:00", + "mapUsesAdd:" : "ct 1/5/2025 01:55", + "mapUsesTrue:" : "ct 12/18/2024 22:26", + "mapVariableAssignedLiteral:" : "ct 12/19/2024 04:07", + "mapWhileTrue:" : "ct 12/19/2024 02:01" } } diff --git a/packages/SwaLintBrowser.package/SL2DefaultTestMapper.class/properties.json b/packages/SwaLintBrowser.package/SL2DefaultTestMapper.class/properties.json new file mode 100644 index 00000000..97e86356 --- /dev/null +++ b/packages/SwaLintBrowser.package/SL2DefaultTestMapper.class/properties.json @@ -0,0 +1,14 @@ +{ + "category" : "SwaLintBrowser-Core", + "classinstvars" : [ + ], + "classvars" : [ + ], + "commentStamp" : "", + "instvars" : [ + ], + "name" : "SL2DefaultTestMapper", + "pools" : [ + ], + "super" : "SL2TestMapper", + "type" : "normal" } diff --git a/packages/SwaLintBrowser.package/SL2GlobalResult.class/README.md b/packages/SwaLintBrowser.package/SL2GlobalResult.class/README.md new file mode 100644 index 00000000..e69de29b diff --git a/packages/SwaLintBrowser.package/SL2GlobalResult.class/instance/classObject.st b/packages/SwaLintBrowser.package/SL2GlobalResult.class/instance/classObject.st new file mode 100644 index 00000000..46a5b4df --- /dev/null +++ b/packages/SwaLintBrowser.package/SL2GlobalResult.class/instance/classObject.st @@ -0,0 +1,4 @@ +accessing +classObject + + ^ '(global)' \ No newline at end of file diff --git a/packages/SwaLintBrowser.package/SL2GlobalResult.class/instance/message.st b/packages/SwaLintBrowser.package/SL2GlobalResult.class/instance/message.st new file mode 100644 index 00000000..d71dfb1a --- /dev/null +++ b/packages/SwaLintBrowser.package/SL2GlobalResult.class/instance/message.st @@ -0,0 +1,4 @@ +accessing +message + + ^ '{1}: {2}' format: {self test title. self valueString} \ No newline at end of file diff --git a/packages/SwaLintBrowser.package/SL2GlobalResult.class/instance/printOn..st b/packages/SwaLintBrowser.package/SL2GlobalResult.class/instance/printOn..st new file mode 100644 index 00000000..a831a70c --- /dev/null +++ b/packages/SwaLintBrowser.package/SL2GlobalResult.class/instance/printOn..st @@ -0,0 +1,8 @@ +printing +printOn: aStream + + super printOn: aStream. + + aStream + nextPutAll: ': '; + nextPutAll: self valueString. \ No newline at end of file diff --git a/packages/SwaLintBrowser.package/SL2GlobalResult.class/instance/valueStringOrText.st b/packages/SwaLintBrowser.package/SL2GlobalResult.class/instance/valueStringOrText.st new file mode 100644 index 00000000..d54891af --- /dev/null +++ b/packages/SwaLintBrowser.package/SL2GlobalResult.class/instance/valueStringOrText.st @@ -0,0 +1,10 @@ +accessing +valueStringOrText + + self test testData key = #overviewPyramidMetric ifTrue: + [self resultData isError ifFalse: + [| results | + results := self resultData value. + ^ Text string: Character startOfHeader asString attribute: + (OverviewPyramidMorph newWithResults: results) asContainer asTextAnchor]]. + ^ super valueStringOrText \ No newline at end of file diff --git a/packages/SwaLintBrowser.package/SL2GlobalResult.class/methodProperties.json b/packages/SwaLintBrowser.package/SL2GlobalResult.class/methodProperties.json new file mode 100644 index 00000000..a6985072 --- /dev/null +++ b/packages/SwaLintBrowser.package/SL2GlobalResult.class/methodProperties.json @@ -0,0 +1,8 @@ +{ + "class" : { + }, + "instance" : { + "classObject" : "ct 12/12/2024 06:14", + "message" : "ct 12/12/2024 06:35", + "printOn:" : "ct 12/12/2024 06:35", + "valueStringOrText" : "ct 12/21/2024 20:06" } } diff --git a/packages/SwaLintBrowser.package/SL2GlobalResult.class/properties.json b/packages/SwaLintBrowser.package/SL2GlobalResult.class/properties.json new file mode 100644 index 00000000..88419fc3 --- /dev/null +++ b/packages/SwaLintBrowser.package/SL2GlobalResult.class/properties.json @@ -0,0 +1,14 @@ +{ + "category" : "SwaLintBrowser-Core", + "classinstvars" : [ + ], + "classvars" : [ + ], + "commentStamp" : "", + "instvars" : [ + ], + "name" : "SL2GlobalResult", + "pools" : [ + ], + "super" : "SL2Result", + "type" : "normal" } diff --git a/packages/SwaLintBrowser.package/SL2MethodResult.class/README.md b/packages/SwaLintBrowser.package/SL2MethodResult.class/README.md new file mode 100644 index 00000000..e69de29b diff --git a/packages/SwaLintBrowser.package/SL2MethodResult.class/class/newFor.test.resultData..st b/packages/SwaLintBrowser.package/SL2MethodResult.class/class/newFor.test.resultData..st new file mode 100644 index 00000000..1a3d1e57 --- /dev/null +++ b/packages/SwaLintBrowser.package/SL2MethodResult.class/class/newFor.test.resultData..st @@ -0,0 +1,6 @@ +instance creation +newFor: method test: aTest resultData: aSLResult + + ^ (self newForTest: aTest resultData: aSLResult) + method: method; + yourself \ No newline at end of file diff --git a/packages/SwaLintBrowser.package/SL2MethodResult.class/instance/classObject.st b/packages/SwaLintBrowser.package/SL2MethodResult.class/instance/classObject.st new file mode 100644 index 00000000..aa72fa36 --- /dev/null +++ b/packages/SwaLintBrowser.package/SL2MethodResult.class/instance/classObject.st @@ -0,0 +1,4 @@ +accessing +classObject + + ^ self method methodClass \ No newline at end of file diff --git a/packages/SwaLintBrowser.package/SL2MethodResult.class/instance/isOutOfSync.st b/packages/SwaLintBrowser.package/SL2MethodResult.class/instance/isOutOfSync.st new file mode 100644 index 00000000..32f6b9bb --- /dev/null +++ b/packages/SwaLintBrowser.package/SL2MethodResult.class/instance/isOutOfSync.st @@ -0,0 +1,5 @@ +testing +isOutOfSync + + ^ self method isInstalled not + and: [self method timeStamp ~= ([self method methodReference timeStamp] ifError: [nil])] \ No newline at end of file diff --git a/packages/SwaLintBrowser.package/SL2MethodResult.class/instance/message.st b/packages/SwaLintBrowser.package/SL2MethodResult.class/instance/message.st new file mode 100644 index 00000000..c3b8cbe8 --- /dev/null +++ b/packages/SwaLintBrowser.package/SL2MethodResult.class/instance/message.st @@ -0,0 +1,4 @@ +accessing +message + + ^ self method selector \ No newline at end of file diff --git a/packages/SwaLintBrowser.package/SL2MethodResult.class/instance/method..st b/packages/SwaLintBrowser.package/SL2MethodResult.class/instance/method..st new file mode 100644 index 00000000..14660e8e --- /dev/null +++ b/packages/SwaLintBrowser.package/SL2MethodResult.class/instance/method..st @@ -0,0 +1,4 @@ +accessing +method: aMethod + + method := aMethod. \ No newline at end of file diff --git a/packages/SwaLintBrowser.package/SL2MethodResult.class/instance/method.st b/packages/SwaLintBrowser.package/SL2MethodResult.class/instance/method.st new file mode 100644 index 00000000..9625498e --- /dev/null +++ b/packages/SwaLintBrowser.package/SL2MethodResult.class/instance/method.st @@ -0,0 +1,4 @@ +accessing +method + + ^ method \ No newline at end of file diff --git a/packages/SwaLintBrowser.package/SL2MethodResult.class/instance/printOn..st b/packages/SwaLintBrowser.package/SL2MethodResult.class/instance/printOn..st new file mode 100644 index 00000000..bd0f1383 --- /dev/null +++ b/packages/SwaLintBrowser.package/SL2MethodResult.class/instance/printOn..st @@ -0,0 +1,8 @@ +printing +printOn: aStream + + super printOn: aStream. + + aStream + nextPutAll: ': '; + nextPutAll: self method reference. \ No newline at end of file diff --git a/packages/SwaLintBrowser.package/SL2MethodResult.class/methodProperties.json b/packages/SwaLintBrowser.package/SL2MethodResult.class/methodProperties.json new file mode 100644 index 00000000..564c8dae --- /dev/null +++ b/packages/SwaLintBrowser.package/SL2MethodResult.class/methodProperties.json @@ -0,0 +1,10 @@ +{ + "class" : { + "newFor:test:resultData:" : "ct 12/12/2024 05:38" }, + "instance" : { + "classObject" : "ct 12/12/2024 06:13", + "isOutOfSync" : "ct 12/21/2024 21:29", + "message" : "ct 12/12/2024 06:17", + "method" : "ct 12/12/2024 05:39", + "method:" : "ct 12/12/2024 05:39", + "printOn:" : "ct 12/12/2024 05:48" } } diff --git a/packages/SwaLintBrowser.package/SL2MethodResult.class/properties.json b/packages/SwaLintBrowser.package/SL2MethodResult.class/properties.json new file mode 100644 index 00000000..d33a8bb7 --- /dev/null +++ b/packages/SwaLintBrowser.package/SL2MethodResult.class/properties.json @@ -0,0 +1,14 @@ +{ + "category" : "SwaLintBrowser-Core", + "classinstvars" : [ + ], + "classvars" : [ + ], + "commentStamp" : "", + "instvars" : [ + "method" ], + "name" : "SL2MethodResult", + "pools" : [ + ], + "super" : "SL2Result", + "type" : "normal" } diff --git a/packages/SwaLintBrowser.package/SL2Result.class/README.md b/packages/SwaLintBrowser.package/SL2Result.class/README.md new file mode 100644 index 00000000..e69de29b diff --git a/packages/SwaLintBrowser.package/SL2Result.class/class/newForTest.resultData..st b/packages/SwaLintBrowser.package/SL2Result.class/class/newForTest.resultData..st new file mode 100644 index 00000000..9001c9e2 --- /dev/null +++ b/packages/SwaLintBrowser.package/SL2Result.class/class/newForTest.resultData..st @@ -0,0 +1,7 @@ +instance creation +newForTest: aTest resultData: aSLResult + + ^ self new + test: aTest; + resultData: aSLResult; + yourself \ No newline at end of file diff --git a/packages/SwaLintBrowser.package/SL2Result.class/instance/classObject.st b/packages/SwaLintBrowser.package/SL2Result.class/instance/classObject.st new file mode 100644 index 00000000..51a3050f --- /dev/null +++ b/packages/SwaLintBrowser.package/SL2Result.class/instance/classObject.st @@ -0,0 +1,5 @@ +accessing +classObject + "The class under which the receiver shall be listed. Can be a string for special results." + + ^ self subclassResponsibility \ No newline at end of file diff --git a/packages/SwaLintBrowser.package/SL2Result.class/instance/isError.st b/packages/SwaLintBrowser.package/SL2Result.class/instance/isError.st new file mode 100644 index 00000000..8bef198f --- /dev/null +++ b/packages/SwaLintBrowser.package/SL2Result.class/instance/isError.st @@ -0,0 +1,4 @@ +testing +isError + + ^ self resultData isError \ No newline at end of file diff --git a/packages/SwaLintBrowser.package/SL2Result.class/instance/isOutOfSync.st b/packages/SwaLintBrowser.package/SL2Result.class/instance/isOutOfSync.st new file mode 100644 index 00000000..b6d52049 --- /dev/null +++ b/packages/SwaLintBrowser.package/SL2Result.class/instance/isOutOfSync.st @@ -0,0 +1,4 @@ +testing +isOutOfSync + + ^ false \ No newline at end of file diff --git a/packages/SwaLintBrowser.package/SL2Result.class/instance/message.st b/packages/SwaLintBrowser.package/SL2Result.class/instance/message.st new file mode 100644 index 00000000..20918d08 --- /dev/null +++ b/packages/SwaLintBrowser.package/SL2Result.class/instance/message.st @@ -0,0 +1,5 @@ +accessing +message + "The selector under which the receiver shall be listed. Can be a string for special results." + + ^ self subclassResponsibility \ No newline at end of file diff --git a/packages/SwaLintBrowser.package/SL2Result.class/instance/printOn..st b/packages/SwaLintBrowser.package/SL2Result.class/instance/printOn..st new file mode 100644 index 00000000..81ccccfd --- /dev/null +++ b/packages/SwaLintBrowser.package/SL2Result.class/instance/printOn..st @@ -0,0 +1,9 @@ +printing +printOn: aStream + + super printOn: aStream. + + aStream + nextPut: $<; + nextPutAll: self test title; + nextPut: $>. \ No newline at end of file diff --git a/packages/SwaLintBrowser.package/SL2Result.class/instance/resultData..st b/packages/SwaLintBrowser.package/SL2Result.class/instance/resultData..st new file mode 100644 index 00000000..c34f15aa --- /dev/null +++ b/packages/SwaLintBrowser.package/SL2Result.class/instance/resultData..st @@ -0,0 +1,4 @@ +accessing +resultData: aSLResult + + resultData := aSLResult. \ No newline at end of file diff --git a/packages/SwaLintBrowser.package/SL2Result.class/instance/resultData.st b/packages/SwaLintBrowser.package/SL2Result.class/instance/resultData.st new file mode 100644 index 00000000..9f3d212d --- /dev/null +++ b/packages/SwaLintBrowser.package/SL2Result.class/instance/resultData.st @@ -0,0 +1,4 @@ +accessing +resultData + + ^ resultData \ No newline at end of file diff --git a/packages/SwaLintBrowser.package/SL2Result.class/instance/test..st b/packages/SwaLintBrowser.package/SL2Result.class/instance/test..st new file mode 100644 index 00000000..17832897 --- /dev/null +++ b/packages/SwaLintBrowser.package/SL2Result.class/instance/test..st @@ -0,0 +1,4 @@ +accessing +test: aTest + + test := aTest. \ No newline at end of file diff --git a/packages/SwaLintBrowser.package/SL2Result.class/instance/test.st b/packages/SwaLintBrowser.package/SL2Result.class/instance/test.st new file mode 100644 index 00000000..eeed43c7 --- /dev/null +++ b/packages/SwaLintBrowser.package/SL2Result.class/instance/test.st @@ -0,0 +1,4 @@ +accessing +test + + ^ test \ No newline at end of file diff --git a/packages/SwaLintBrowser.package/SL2Result.class/instance/valueString.st b/packages/SwaLintBrowser.package/SL2Result.class/instance/valueString.st new file mode 100644 index 00000000..c38bd122 --- /dev/null +++ b/packages/SwaLintBrowser.package/SL2Result.class/instance/valueString.st @@ -0,0 +1,4 @@ +accessing +valueString + + ^ self resultData valueAsString \ No newline at end of file diff --git a/packages/SwaLintBrowser.package/SL2Result.class/instance/valueStringOrText.st b/packages/SwaLintBrowser.package/SL2Result.class/instance/valueStringOrText.st new file mode 100644 index 00000000..370a713f --- /dev/null +++ b/packages/SwaLintBrowser.package/SL2Result.class/instance/valueStringOrText.st @@ -0,0 +1,4 @@ +accessing +valueStringOrText + + ^ self valueString \ No newline at end of file diff --git a/packages/SwaLintBrowser.package/SL2Result.class/methodProperties.json b/packages/SwaLintBrowser.package/SL2Result.class/methodProperties.json new file mode 100644 index 00000000..0ff0dfbd --- /dev/null +++ b/packages/SwaLintBrowser.package/SL2Result.class/methodProperties.json @@ -0,0 +1,15 @@ +{ + "class" : { + "newForTest:resultData:" : "ct 12/12/2024 05:17" }, + "instance" : { + "classObject" : "ct 12/19/2024 21:03", + "isError" : "ct 12/21/2024 20:53", + "isOutOfSync" : "ct 12/21/2024 21:08", + "message" : "ct 12/19/2024 21:03", + "printOn:" : "ct 12/12/2024 05:46", + "resultData" : "ct 12/12/2024 05:13", + "resultData:" : "ct 12/12/2024 05:13", + "test" : "ct 12/12/2024 05:17", + "test:" : "ct 12/12/2024 05:17", + "valueString" : "ct 12/12/2024 06:35", + "valueStringOrText" : "ct 12/21/2024 19:52" } } diff --git a/packages/SwaLintBrowser.package/SL2Result.class/properties.json b/packages/SwaLintBrowser.package/SL2Result.class/properties.json new file mode 100644 index 00000000..230a9504 --- /dev/null +++ b/packages/SwaLintBrowser.package/SL2Result.class/properties.json @@ -0,0 +1,15 @@ +{ + "category" : "SwaLintBrowser-Core", + "classinstvars" : [ + ], + "classvars" : [ + ], + "commentStamp" : "", + "instvars" : [ + "test", + "resultData" ], + "name" : "SL2Result", + "pools" : [ + ], + "super" : "Object", + "type" : "normal" } diff --git a/packages/SwaLintBrowser.package/SL2Runner.class/README.md b/packages/SwaLintBrowser.package/SL2Runner.class/README.md new file mode 100644 index 00000000..a86fa9e0 --- /dev/null +++ b/packages/SwaLintBrowser.package/SL2Runner.class/README.md @@ -0,0 +1 @@ +I run all SL2Tests for a SL2Target and provide SL2Results. \ No newline at end of file diff --git a/packages/SwaLintBrowser.package/SL2Runner.class/class/on..st b/packages/SwaLintBrowser.package/SL2Runner.class/class/on..st new file mode 100644 index 00000000..454ceef9 --- /dev/null +++ b/packages/SwaLintBrowser.package/SL2Runner.class/class/on..st @@ -0,0 +1,6 @@ +instance creation +on: aTarget + + ^ self new + target: aTarget; + yourself \ No newline at end of file diff --git a/packages/SwaLintBrowser.package/SL2Runner.class/instance/initialize.st b/packages/SwaLintBrowser.package/SL2Runner.class/instance/initialize.st new file mode 100644 index 00000000..9c0aa9c6 --- /dev/null +++ b/packages/SwaLintBrowser.package/SL2Runner.class/instance/initialize.st @@ -0,0 +1,6 @@ +initialize-release +initialize + + super initialize. + + self initializeEnvironment. \ No newline at end of file diff --git a/packages/SwaLintBrowser.package/SL2Runner.class/instance/initializeEnvironment.st b/packages/SwaLintBrowser.package/SL2Runner.class/instance/initializeEnvironment.st new file mode 100644 index 00000000..66c83077 --- /dev/null +++ b/packages/SwaLintBrowser.package/SL2Runner.class/instance/initializeEnvironment.st @@ -0,0 +1,5 @@ +initialize-release +initializeEnvironment + + testEnvironment := SLDefaultEnvironment new. + tests := SL2DefaultTestMapper mapTestsFrom: testEnvironment. \ No newline at end of file diff --git a/packages/SwaLintBrowser.package/SL2Runner.class/instance/resultClass.st b/packages/SwaLintBrowser.package/SL2Runner.class/instance/resultClass.st new file mode 100644 index 00000000..a7baa787 --- /dev/null +++ b/packages/SwaLintBrowser.package/SL2Runner.class/instance/resultClass.st @@ -0,0 +1,4 @@ +private +resultClass + + ^ SL2Result \ No newline at end of file diff --git a/packages/SwaLintBrowser.package/SL2Runner.class/instance/results.st b/packages/SwaLintBrowser.package/SL2Runner.class/instance/results.st new file mode 100644 index 00000000..ccf712c4 --- /dev/null +++ b/packages/SwaLintBrowser.package/SL2Runner.class/instance/results.st @@ -0,0 +1,4 @@ +accessing +results + + ^ results \ No newline at end of file diff --git a/packages/SwaLintBrowser.package/SL2Runner.class/instance/run.st b/packages/SwaLintBrowser.package/SL2Runner.class/instance/run.st new file mode 100644 index 00000000..4126fcda --- /dev/null +++ b/packages/SwaLintBrowser.package/SL2Runner.class/instance/run.st @@ -0,0 +1,12 @@ +running +run + + self testEnvironment + selectedTests: (self tests collect: #testData); + selectedClasses: self target classes. + resultEnvironment := self testRunnerClass onEnvironment: self testEnvironment. + results := resultEnvironment results gather: [:resultData | + self tests + detect: [:test | test testData key = resultData testData key] + ifFound: [:test | resultData asSL2ResultsFor: test] + ifNone: [#()]]. \ No newline at end of file diff --git a/packages/SwaLintBrowser.package/SL2Runner.class/instance/target..st b/packages/SwaLintBrowser.package/SL2Runner.class/instance/target..st new file mode 100644 index 00000000..85584619 --- /dev/null +++ b/packages/SwaLintBrowser.package/SL2Runner.class/instance/target..st @@ -0,0 +1,4 @@ +accessing +target: aTarget + + target := aTarget. \ No newline at end of file diff --git a/packages/SwaLintBrowser.package/SL2Runner.class/instance/target.st b/packages/SwaLintBrowser.package/SL2Runner.class/instance/target.st new file mode 100644 index 00000000..66264783 --- /dev/null +++ b/packages/SwaLintBrowser.package/SL2Runner.class/instance/target.st @@ -0,0 +1,4 @@ +accessing +target + + ^ target \ No newline at end of file diff --git a/packages/SwaLintBrowser.package/SL2Runner.class/instance/testEnvironment.st b/packages/SwaLintBrowser.package/SL2Runner.class/instance/testEnvironment.st new file mode 100644 index 00000000..cf5d32a8 --- /dev/null +++ b/packages/SwaLintBrowser.package/SL2Runner.class/instance/testEnvironment.st @@ -0,0 +1,4 @@ +accessing +testEnvironment + + ^ testEnvironment \ No newline at end of file diff --git a/packages/SwaLintBrowser.package/SL2Runner.class/instance/testRunnerClass.st b/packages/SwaLintBrowser.package/SL2Runner.class/instance/testRunnerClass.st new file mode 100644 index 00000000..bcd7599f --- /dev/null +++ b/packages/SwaLintBrowser.package/SL2Runner.class/instance/testRunnerClass.st @@ -0,0 +1,4 @@ +private +testRunnerClass + + ^ SLTestRunner \ No newline at end of file diff --git a/packages/SwaLintBrowser.package/SL2Runner.class/instance/tests.st b/packages/SwaLintBrowser.package/SL2Runner.class/instance/tests.st new file mode 100644 index 00000000..5801b6fe --- /dev/null +++ b/packages/SwaLintBrowser.package/SL2Runner.class/instance/tests.st @@ -0,0 +1,4 @@ +accessing +tests + + ^ tests \ No newline at end of file diff --git a/packages/SwaLintBrowser.package/SL2Runner.class/methodProperties.json b/packages/SwaLintBrowser.package/SL2Runner.class/methodProperties.json new file mode 100644 index 00000000..c7fb1ad4 --- /dev/null +++ b/packages/SwaLintBrowser.package/SL2Runner.class/methodProperties.json @@ -0,0 +1,14 @@ +{ + "class" : { + "on:" : "ct 12/12/2024 04:02" }, + "instance" : { + "initialize" : "ct 12/12/2024 04:03", + "initializeEnvironment" : "ct 12/19/2024 21:17", + "resultClass" : "ct 12/12/2024 05:09", + "results" : "ct 12/12/2024 05:49", + "run" : "ct 12/19/2024 20:22", + "target" : "ct 12/12/2024 04:03", + "target:" : "ct 12/12/2024 04:03", + "testEnvironment" : "ct 12/12/2024 04:05", + "testRunnerClass" : "ct 12/12/2024 04:26", + "tests" : "ct 12/12/2024 04:06" } } diff --git a/packages/SwaLintBrowser.package/SL2Runner.class/properties.json b/packages/SwaLintBrowser.package/SL2Runner.class/properties.json new file mode 100644 index 00000000..7ba0b165 --- /dev/null +++ b/packages/SwaLintBrowser.package/SL2Runner.class/properties.json @@ -0,0 +1,18 @@ +{ + "category" : "SwaLintBrowser-Core", + "classinstvars" : [ + ], + "classvars" : [ + ], + "commentStamp" : "ct 12/19/2024 21:23", + "instvars" : [ + "testEnvironment", + "target", + "tests", + "resultEnvironment", + "results" ], + "name" : "SL2Runner", + "pools" : [ + ], + "super" : "Object", + "type" : "normal" } diff --git a/packages/SwaLintBrowser.package/SL2Target.class/README.md b/packages/SwaLintBrowser.package/SL2Target.class/README.md new file mode 100644 index 00000000..a0530b5b --- /dev/null +++ b/packages/SwaLintBrowser.package/SL2Target.class/README.md @@ -0,0 +1 @@ +I describe what a SL2Runner should test. \ No newline at end of file diff --git a/packages/SwaLintBrowser.package/SL2Target.class/class/fromUserOrCancel..st b/packages/SwaLintBrowser.package/SL2Target.class/class/fromUserOrCancel..st new file mode 100644 index 00000000..c6ad4dc5 --- /dev/null +++ b/packages/SwaLintBrowser.package/SL2Target.class/class/fromUserOrCancel..st @@ -0,0 +1,4 @@ +instance creation +fromUserOrCancel: cancelBlock + + ^ SL2TargetChooser createOrCancel: cancelBlock \ No newline at end of file diff --git a/packages/SwaLintBrowser.package/SL2Target.class/class/withClass..st b/packages/SwaLintBrowser.package/SL2Target.class/class/withClass..st new file mode 100644 index 00000000..77d983d6 --- /dev/null +++ b/packages/SwaLintBrowser.package/SL2Target.class/class/withClass..st @@ -0,0 +1,4 @@ +instance creation +withClass: aClass + + ^ self withClasses: {aClass} \ No newline at end of file diff --git a/packages/SwaLintBrowser.package/SL2Target.class/class/withClasses..st b/packages/SwaLintBrowser.package/SL2Target.class/class/withClasses..st new file mode 100644 index 00000000..d54999bb --- /dev/null +++ b/packages/SwaLintBrowser.package/SL2Target.class/class/withClasses..st @@ -0,0 +1,7 @@ +instance creation +withClasses: classes + + ^ self new + systemCategories: (classes collect: [:class | class category] as: Array) withoutDuplicates; + classes: classes; + yourself \ No newline at end of file diff --git a/packages/SwaLintBrowser.package/SL2Target.class/class/withSystemCategories..st b/packages/SwaLintBrowser.package/SL2Target.class/class/withSystemCategories..st new file mode 100644 index 00000000..25ef3ffc --- /dev/null +++ b/packages/SwaLintBrowser.package/SL2Target.class/class/withSystemCategories..st @@ -0,0 +1,8 @@ +instance creation +withSystemCategories: categories + + ^ self new + systemCategories: categories; + classes: (categories gather: [:category | + SystemOrganizer default sl2ClassesInCategory: category]); + yourself \ No newline at end of file diff --git a/packages/SwaLintBrowser.package/SL2Target.class/class/withSystemCategory..st b/packages/SwaLintBrowser.package/SL2Target.class/class/withSystemCategory..st new file mode 100644 index 00000000..b30d7c24 --- /dev/null +++ b/packages/SwaLintBrowser.package/SL2Target.class/class/withSystemCategory..st @@ -0,0 +1,4 @@ +instance creation +withSystemCategory: category + + ^ self withSystemCategories: {category} \ No newline at end of file diff --git a/packages/SwaLintBrowser.package/SL2Target.class/instance/classes..st b/packages/SwaLintBrowser.package/SL2Target.class/instance/classes..st new file mode 100644 index 00000000..5588a601 --- /dev/null +++ b/packages/SwaLintBrowser.package/SL2Target.class/instance/classes..st @@ -0,0 +1,4 @@ +accessing +classes: aCollection + + classes := aCollection. \ No newline at end of file diff --git a/packages/SwaLintBrowser.package/SL2Target.class/instance/classes.st b/packages/SwaLintBrowser.package/SL2Target.class/instance/classes.st new file mode 100644 index 00000000..bf311ec7 --- /dev/null +++ b/packages/SwaLintBrowser.package/SL2Target.class/instance/classes.st @@ -0,0 +1,4 @@ +accessing +classes + + ^ classes \ No newline at end of file diff --git a/packages/SwaLintBrowser.package/SL2Target.class/instance/editModally.st b/packages/SwaLintBrowser.package/SL2Target.class/instance/editModally.st new file mode 100644 index 00000000..c653e703 --- /dev/null +++ b/packages/SwaLintBrowser.package/SL2Target.class/instance/editModally.st @@ -0,0 +1,4 @@ +*SwaLintBrowser-UI +editModally + + ^ SL2TargetChooser edit: self \ No newline at end of file diff --git a/packages/SwaLintBrowser.package/SL2Target.class/instance/initialize.st b/packages/SwaLintBrowser.package/SL2Target.class/instance/initialize.st new file mode 100644 index 00000000..94a9380b --- /dev/null +++ b/packages/SwaLintBrowser.package/SL2Target.class/instance/initialize.st @@ -0,0 +1,7 @@ +initialize-release +initialize + + super initialize. + + systemCategories := OrderedCollection new. + classes := OrderedCollection new. \ No newline at end of file diff --git a/packages/SwaLintBrowser.package/SL2Target.class/instance/label.st b/packages/SwaLintBrowser.package/SL2Target.class/instance/label.st new file mode 100644 index 00000000..8109281e --- /dev/null +++ b/packages/SwaLintBrowser.package/SL2Target.class/instance/label.st @@ -0,0 +1,20 @@ +accessing +label + + | allCategories allClasses | + self flag: #todo. "compute more compact representation" + + allCategories := OrderedCollection new. + allClasses := OrderedCollection withAll: self classes. + self systemCategories do: [:category | + | categoryClasses | + categoryClasses := SystemOrganizer default sl2ClassesInCategory: category. + (allClasses includesAllOf: categoryClasses) ifTrue: + [allClasses removeAll: categoryClasses. + allCategories add: category]]. + + allCategories ifEmpty: + [allClasses ifEmpty: [^ '(none)']. + ^ allClasses asCommaStringAnd]. + allClasses ifEmpty: [^ allCategories asCommaStringAnd]. + ^ '{1} + {2}' format: {allCategories asCommaStringAnd. allClasses asCommaStringAnd} \ No newline at end of file diff --git a/packages/SwaLintBrowser.package/SL2Target.class/instance/systemCategories..st b/packages/SwaLintBrowser.package/SL2Target.class/instance/systemCategories..st new file mode 100644 index 00000000..de5c13db --- /dev/null +++ b/packages/SwaLintBrowser.package/SL2Target.class/instance/systemCategories..st @@ -0,0 +1,4 @@ +accessing +systemCategories: aCollection + + systemCategories := aCollection. \ No newline at end of file diff --git a/packages/SwaLintBrowser.package/SL2Target.class/instance/systemCategories.st b/packages/SwaLintBrowser.package/SL2Target.class/instance/systemCategories.st new file mode 100644 index 00000000..f416de7a --- /dev/null +++ b/packages/SwaLintBrowser.package/SL2Target.class/instance/systemCategories.st @@ -0,0 +1,4 @@ +accessing +systemCategories + + ^ systemCategories \ No newline at end of file diff --git a/packages/SwaLintBrowser.package/SL2Target.class/methodProperties.json b/packages/SwaLintBrowser.package/SL2Target.class/methodProperties.json new file mode 100644 index 00000000..8237abc9 --- /dev/null +++ b/packages/SwaLintBrowser.package/SL2Target.class/methodProperties.json @@ -0,0 +1,15 @@ +{ + "class" : { + "fromUserOrCancel:" : "ct 12/12/2024 02:18", + "withClass:" : "ct 12/19/2024 20:54", + "withClasses:" : "ct 12/19/2024 20:55", + "withSystemCategories:" : "ct 12/22/2024 01:26", + "withSystemCategory:" : "ct 12/19/2024 20:45" }, + "instance" : { + "classes" : "ct 12/12/2024 02:17", + "classes:" : "ct 12/12/2024 03:41", + "editModally" : "ct 12/12/2024 03:44", + "initialize" : "ct 12/12/2024 03:41", + "label" : "ct 12/22/2024 01:26", + "systemCategories" : "ct 12/12/2024 02:17", + "systemCategories:" : "ct 12/12/2024 03:41" } } diff --git a/packages/SwaLintBrowser.package/SL2Target.class/properties.json b/packages/SwaLintBrowser.package/SL2Target.class/properties.json new file mode 100644 index 00000000..1b82beb0 --- /dev/null +++ b/packages/SwaLintBrowser.package/SL2Target.class/properties.json @@ -0,0 +1,15 @@ +{ + "category" : "SwaLintBrowser-Core", + "classinstvars" : [ + ], + "classvars" : [ + ], + "commentStamp" : "ct 12/19/2024 21:22", + "instvars" : [ + "systemCategories", + "classes" ], + "name" : "SL2Target", + "pools" : [ + ], + "super" : "Object", + "type" : "normal" } diff --git a/packages/SwaLintBrowser.package/SL2TargetChooser.class/README.md b/packages/SwaLintBrowser.package/SL2TargetChooser.class/README.md new file mode 100644 index 00000000..e69de29b diff --git a/packages/SwaLintBrowser.package/SL2TargetChooser.class/class/createOrCancel..st b/packages/SwaLintBrowser.package/SL2TargetChooser.class/class/createOrCancel..st new file mode 100644 index 00000000..3787186f --- /dev/null +++ b/packages/SwaLintBrowser.package/SL2TargetChooser.class/class/createOrCancel..st @@ -0,0 +1,4 @@ +opening +createOrCancel: cancelBlock + + ^ self new createOrCancel: cancelBlock \ No newline at end of file diff --git a/packages/SwaLintBrowser.package/SL2TargetChooser.class/class/edit..st b/packages/SwaLintBrowser.package/SL2TargetChooser.class/class/edit..st new file mode 100644 index 00000000..fa38b9ff --- /dev/null +++ b/packages/SwaLintBrowser.package/SL2TargetChooser.class/class/edit..st @@ -0,0 +1,4 @@ +opening +edit: aTarget + + ^ self new edit: aTarget \ No newline at end of file diff --git a/packages/SwaLintBrowser.package/SL2TargetChooser.class/instance/accept.st b/packages/SwaLintBrowser.package/SL2TargetChooser.class/instance/accept.st new file mode 100644 index 00000000..9b28eff0 --- /dev/null +++ b/packages/SwaLintBrowser.package/SL2TargetChooser.class/instance/accept.st @@ -0,0 +1,4 @@ +actions +accept + + ^ self close: true \ No newline at end of file diff --git a/packages/SwaLintBrowser.package/SL2TargetChooser.class/instance/acceptColor.st b/packages/SwaLintBrowser.package/SL2TargetChooser.class/instance/acceptColor.st new file mode 100644 index 00000000..110ad72f --- /dev/null +++ b/packages/SwaLintBrowser.package/SL2TargetChooser.class/instance/acceptColor.st @@ -0,0 +1,5 @@ +toolbuilder - accessing +acceptColor + + ^ self userInterfaceTheme acceptColor + ifNil: [self userInterfaceTheme get: #okColor for: #DialogWindow] \ No newline at end of file diff --git a/packages/SwaLintBrowser.package/SL2TargetChooser.class/instance/accepted.st b/packages/SwaLintBrowser.package/SL2TargetChooser.class/instance/accepted.st new file mode 100644 index 00000000..7a92c4e9 --- /dev/null +++ b/packages/SwaLintBrowser.package/SL2TargetChooser.class/instance/accepted.st @@ -0,0 +1,4 @@ +accessing +accepted + + ^ accepted \ No newline at end of file diff --git a/packages/SwaLintBrowser.package/SL2TargetChooser.class/instance/allClasses..st b/packages/SwaLintBrowser.package/SL2TargetChooser.class/instance/allClasses..st new file mode 100644 index 00000000..15988aae --- /dev/null +++ b/packages/SwaLintBrowser.package/SL2TargetChooser.class/instance/allClasses..st @@ -0,0 +1,4 @@ +accessing +allClasses: classes + + allClasses := classes. \ No newline at end of file diff --git a/packages/SwaLintBrowser.package/SL2TargetChooser.class/instance/allClasses.st b/packages/SwaLintBrowser.package/SL2TargetChooser.class/instance/allClasses.st new file mode 100644 index 00000000..aeffb318 --- /dev/null +++ b/packages/SwaLintBrowser.package/SL2TargetChooser.class/instance/allClasses.st @@ -0,0 +1,4 @@ +accessing +allClasses + + ^ allClasses \ No newline at end of file diff --git a/packages/SwaLintBrowser.package/SL2TargetChooser.class/instance/allSystemCategories..st b/packages/SwaLintBrowser.package/SL2TargetChooser.class/instance/allSystemCategories..st new file mode 100644 index 00000000..ed908853 --- /dev/null +++ b/packages/SwaLintBrowser.package/SL2TargetChooser.class/instance/allSystemCategories..st @@ -0,0 +1,4 @@ +accessing +allSystemCategories: categories + + allSystemCategories := categories. \ No newline at end of file diff --git a/packages/SwaLintBrowser.package/SL2TargetChooser.class/instance/allSystemCategories.st b/packages/SwaLintBrowser.package/SL2TargetChooser.class/instance/allSystemCategories.st new file mode 100644 index 00000000..9da19b59 --- /dev/null +++ b/packages/SwaLintBrowser.package/SL2TargetChooser.class/instance/allSystemCategories.st @@ -0,0 +1,4 @@ +accessing +allSystemCategories + + ^ allSystemCategories \ No newline at end of file diff --git a/packages/SwaLintBrowser.package/SL2TargetChooser.class/instance/availableClasses.st b/packages/SwaLintBrowser.package/SL2TargetChooser.class/instance/availableClasses.st new file mode 100644 index 00000000..a6ad7b49 --- /dev/null +++ b/packages/SwaLintBrowser.package/SL2TargetChooser.class/instance/availableClasses.st @@ -0,0 +1,7 @@ +accessing - toolbuilder +availableClasses + + + ^ self cached: + [(self selectedSystemCategories gather: [:category | self classesInSystemCategory: category]) + sl2SortedByHeavy: #name] \ No newline at end of file diff --git a/packages/SwaLintBrowser.package/SL2TargetChooser.class/instance/availableSystemCategories.st b/packages/SwaLintBrowser.package/SL2TargetChooser.class/instance/availableSystemCategories.st new file mode 100644 index 00000000..6bf2e0bd --- /dev/null +++ b/packages/SwaLintBrowser.package/SL2TargetChooser.class/instance/availableSystemCategories.st @@ -0,0 +1,4 @@ +accessing - toolbuilder +availableSystemCategories + + ^ self allSystemCategories \ No newline at end of file diff --git a/packages/SwaLintBrowser.package/SL2TargetChooser.class/instance/buildButtons..st b/packages/SwaLintBrowser.package/SL2TargetChooser.class/instance/buildButtons..st new file mode 100644 index 00000000..054f33af --- /dev/null +++ b/packages/SwaLintBrowser.package/SL2TargetChooser.class/instance/buildButtons..st @@ -0,0 +1,18 @@ +toolbuilder +buildButtons: builder + + ^ Array + with: + (builder pluggableButtonSpec new + model: self; + label: 'Accept'; + action: #accept; + color: #acceptColor; + yourself) + with: + (builder pluggableButtonSpec new + model: self; + label: 'Cancel'; + action: #cancel; + color: #cancelColor; + yourself) \ No newline at end of file diff --git a/packages/SwaLintBrowser.package/SL2TargetChooser.class/instance/buildClassList..st b/packages/SwaLintBrowser.package/SL2TargetChooser.class/instance/buildClassList..st new file mode 100644 index 00000000..70c532ec --- /dev/null +++ b/packages/SwaLintBrowser.package/SL2TargetChooser.class/instance/buildClassList..st @@ -0,0 +1,17 @@ +toolbuilder +buildClassList: builder + + ^ builder pluggableMultiSelectionListSpec new + model: self; + name: #classList; + frame: (LayoutFrame fullFrame leftFraction: 1 / 2; yourself); + filterableList: true; + clearFilterAutomatically: false; + autoDeselect: true; + list: #availableClasses; + getIndex: #selectedClassIndex; + setIndex: #selectClassAt:; + getSelectionList: #hasClassSelectedAt:; + setSelectionList: #classAt:select:; + menu: #classMenu:; + yourself \ No newline at end of file diff --git a/packages/SwaLintBrowser.package/SL2TargetChooser.class/instance/buildCreateDialogWith..st b/packages/SwaLintBrowser.package/SL2TargetChooser.class/instance/buildCreateDialogWith..st new file mode 100644 index 00000000..4bae3646 --- /dev/null +++ b/packages/SwaLintBrowser.package/SL2TargetChooser.class/instance/buildCreateDialogWith..st @@ -0,0 +1,12 @@ +toolbuilder +buildCreateDialogWith: builder + + ^ builder pluggableDialogSpec new + model: self; + title: 'Select packages/classes'; + children: + (Array + with: (self buildSystemCategoryList: builder) + with: (self buildClassList: builder)); + buttons: (self buildButtons: builder); + yourself \ No newline at end of file diff --git a/packages/SwaLintBrowser.package/SL2TargetChooser.class/instance/buildEditDialogWith..st b/packages/SwaLintBrowser.package/SL2TargetChooser.class/instance/buildEditDialogWith..st new file mode 100644 index 00000000..08318a10 --- /dev/null +++ b/packages/SwaLintBrowser.package/SL2TargetChooser.class/instance/buildEditDialogWith..st @@ -0,0 +1,12 @@ +toolbuilder +buildEditDialogWith: builder + + ^ builder pluggableDialogSpec new + model: self; + title: 'Select packages/classes'; + children: + (Array + with: (self buildSystemCategoryList: builder) + with: (self buildClassList: builder)); + buttons: (self buildButtons: builder); + yourself \ No newline at end of file diff --git a/packages/SwaLintBrowser.package/SL2TargetChooser.class/instance/buildSystemCategoryList..st b/packages/SwaLintBrowser.package/SL2TargetChooser.class/instance/buildSystemCategoryList..st new file mode 100644 index 00000000..c5f32406 --- /dev/null +++ b/packages/SwaLintBrowser.package/SL2TargetChooser.class/instance/buildSystemCategoryList..st @@ -0,0 +1,17 @@ +toolbuilder +buildSystemCategoryList: builder + + ^ builder pluggableMultiSelectionListSpec new + model: self; + name: #systemCategoryList; + frame: (LayoutFrame fullFrame rightFraction: 1 / 2; yourself); + filterableList: true; + clearFilterAutomatically: false; + autoDeselect: true; + list: #availableSystemCategories; + getIndex: #selectedSystemCategoryIndex; + setIndex: #selectSystemCategoryAt:; + getSelectionList: #hasSystemCategorySelectedAt:; + setSelectionList: #systemCategoryAt:select:; + menu: #systemCategoryMenu:; + yourself \ No newline at end of file diff --git a/packages/SwaLintBrowser.package/SL2TargetChooser.class/instance/cached..st b/packages/SwaLintBrowser.package/SL2TargetChooser.class/instance/cached..st new file mode 100644 index 00000000..d3d5c038 --- /dev/null +++ b/packages/SwaLintBrowser.package/SL2TargetChooser.class/instance/cached..st @@ -0,0 +1,4 @@ +private +cached: aBlock + + ^ caches at: aBlock method ifAbsentPut: aBlock \ No newline at end of file diff --git a/packages/SwaLintBrowser.package/SL2TargetChooser.class/instance/cancel.st b/packages/SwaLintBrowser.package/SL2TargetChooser.class/instance/cancel.st new file mode 100644 index 00000000..e2c5111b --- /dev/null +++ b/packages/SwaLintBrowser.package/SL2TargetChooser.class/instance/cancel.st @@ -0,0 +1,4 @@ +actions +cancel + + ^ self close: false \ No newline at end of file diff --git a/packages/SwaLintBrowser.package/SL2TargetChooser.class/instance/cancelColor.st b/packages/SwaLintBrowser.package/SL2TargetChooser.class/instance/cancelColor.st new file mode 100644 index 00000000..8f5559b6 --- /dev/null +++ b/packages/SwaLintBrowser.package/SL2TargetChooser.class/instance/cancelColor.st @@ -0,0 +1,5 @@ +toolbuilder - accessing +cancelColor + + ^ self userInterfaceTheme cancelColor + ifNil: [self userInterfaceTheme get: #cancelColor for: #DialogWindow] \ No newline at end of file diff --git a/packages/SwaLintBrowser.package/SL2TargetChooser.class/instance/changed..st b/packages/SwaLintBrowser.package/SL2TargetChooser.class/instance/changed..st new file mode 100644 index 00000000..d37384b4 --- /dev/null +++ b/packages/SwaLintBrowser.package/SL2TargetChooser.class/instance/changed..st @@ -0,0 +1,11 @@ +updating +changed: aspect + + super changed: aspect. + + caches keys do: [:key | + ((self pragmaAspectDependencies at: key selector) includes: aspect) ifTrue: + [caches removeKey: key]]. + + (self dependentAspectsOn: aspect) + do: [:dependentAspect | self changedDependent: dependentAspect]. \ No newline at end of file diff --git a/packages/SwaLintBrowser.package/SL2TargetChooser.class/instance/class.select..st b/packages/SwaLintBrowser.package/SL2TargetChooser.class/instance/class.select..st new file mode 100644 index 00000000..21dc1370 --- /dev/null +++ b/packages/SwaLintBrowser.package/SL2TargetChooser.class/instance/class.select..st @@ -0,0 +1,7 @@ +accessing - toolbuilder +class: aClass select: aBoolean + + self selectedClasses: + (aBoolean + ifFalse: [self target classes copyWithout: aClass] + ifTrue: [(self target classes copyWith: aClass) withoutDuplicates]). \ No newline at end of file diff --git a/packages/SwaLintBrowser.package/SL2TargetChooser.class/instance/classAt.select..st b/packages/SwaLintBrowser.package/SL2TargetChooser.class/instance/classAt.select..st new file mode 100644 index 00000000..3c46af2b --- /dev/null +++ b/packages/SwaLintBrowser.package/SL2TargetChooser.class/instance/classAt.select..st @@ -0,0 +1,6 @@ +accessing - toolbuilder +classAt: anInteger select: aBoolean + + ^ self + class: (self availableClasses at: anInteger) + select: aBoolean \ No newline at end of file diff --git a/packages/SwaLintBrowser.package/SL2TargetChooser.class/instance/classMenu..st b/packages/SwaLintBrowser.package/SL2TargetChooser.class/instance/classMenu..st new file mode 100644 index 00000000..5aaae98d --- /dev/null +++ b/packages/SwaLintBrowser.package/SL2TargetChooser.class/instance/classMenu..st @@ -0,0 +1,4 @@ +menus +classMenu: menu + + ^ self listMenu: menu for: #classes \ No newline at end of file diff --git a/packages/SwaLintBrowser.package/SL2TargetChooser.class/instance/classesInSystemCategory..st b/packages/SwaLintBrowser.package/SL2TargetChooser.class/instance/classesInSystemCategory..st new file mode 100644 index 00000000..62d8484f --- /dev/null +++ b/packages/SwaLintBrowser.package/SL2TargetChooser.class/instance/classesInSystemCategory..st @@ -0,0 +1,4 @@ +private +classesInSystemCategory: category + + ^ self systemOrganizer sl2ClassesInCategory: category \ No newline at end of file diff --git a/packages/SwaLintBrowser.package/SL2TargetChooser.class/instance/close..st b/packages/SwaLintBrowser.package/SL2TargetChooser.class/instance/close..st new file mode 100644 index 00000000..ebd36c5f --- /dev/null +++ b/packages/SwaLintBrowser.package/SL2TargetChooser.class/instance/close..st @@ -0,0 +1,5 @@ +actions +close: acceptedBoolean + + accepted := acceptedBoolean. + self changed: #close. \ No newline at end of file diff --git a/packages/SwaLintBrowser.package/SL2TargetChooser.class/instance/createOrCancel..st b/packages/SwaLintBrowser.package/SL2TargetChooser.class/instance/createOrCancel..st new file mode 100644 index 00000000..0d0ee978 --- /dev/null +++ b/packages/SwaLintBrowser.package/SL2TargetChooser.class/instance/createOrCancel..st @@ -0,0 +1,9 @@ +toolbuilder - opening +createOrCancel: cancelBlock + + self target: self targetClass new. + self openWith: [:builder | + self buildCreateDialogWith: builder]. + + self accepted ifFalse: [^ cancelBlock value]. + ^ self target \ No newline at end of file diff --git a/packages/SwaLintBrowser.package/SL2TargetChooser.class/instance/edit..st b/packages/SwaLintBrowser.package/SL2TargetChooser.class/instance/edit..st new file mode 100644 index 00000000..6e8fdf4f --- /dev/null +++ b/packages/SwaLintBrowser.package/SL2TargetChooser.class/instance/edit..st @@ -0,0 +1,9 @@ +toolbuilder - opening +edit: aTarget + + self target: aTarget copy. + self openWith: [:builder | self buildEditDialogWith: builder]. + + self accepted ifFalse: [^ false]. + aTarget copyFrom: self target. + ^ true \ No newline at end of file diff --git a/packages/SwaLintBrowser.package/SL2TargetChooser.class/instance/hasClassSelected..st b/packages/SwaLintBrowser.package/SL2TargetChooser.class/instance/hasClassSelected..st new file mode 100644 index 00000000..0f0cab19 --- /dev/null +++ b/packages/SwaLintBrowser.package/SL2TargetChooser.class/instance/hasClassSelected..st @@ -0,0 +1,5 @@ +accessing +hasClassSelected: aClass + + + ^ self selectedClasses includes: aClass \ No newline at end of file diff --git a/packages/SwaLintBrowser.package/SL2TargetChooser.class/instance/hasClassSelectedAt..st b/packages/SwaLintBrowser.package/SL2TargetChooser.class/instance/hasClassSelectedAt..st new file mode 100644 index 00000000..0aba1b4a --- /dev/null +++ b/packages/SwaLintBrowser.package/SL2TargetChooser.class/instance/hasClassSelectedAt..st @@ -0,0 +1,5 @@ +accessing - toolbuilder +hasClassSelectedAt: anInteger + + + ^ self hasClassSelected: (self availableClasses at: anInteger) \ No newline at end of file diff --git a/packages/SwaLintBrowser.package/SL2TargetChooser.class/instance/hasSystemCategorySelected..st b/packages/SwaLintBrowser.package/SL2TargetChooser.class/instance/hasSystemCategorySelected..st new file mode 100644 index 00000000..f9db8d7a --- /dev/null +++ b/packages/SwaLintBrowser.package/SL2TargetChooser.class/instance/hasSystemCategorySelected..st @@ -0,0 +1,5 @@ +accessing +hasSystemCategorySelected: category + + + ^ self selectedSystemCategories includes: category \ No newline at end of file diff --git a/packages/SwaLintBrowser.package/SL2TargetChooser.class/instance/hasSystemCategorySelectedAt..st b/packages/SwaLintBrowser.package/SL2TargetChooser.class/instance/hasSystemCategorySelectedAt..st new file mode 100644 index 00000000..31e8ddba --- /dev/null +++ b/packages/SwaLintBrowser.package/SL2TargetChooser.class/instance/hasSystemCategorySelectedAt..st @@ -0,0 +1,5 @@ +accessing - toolbuilder +hasSystemCategorySelectedAt: anInteger + + + ^ self hasSystemCategorySelected: (self availableSystemCategories at: anInteger) \ No newline at end of file diff --git a/packages/SwaLintBrowser.package/SL2TargetChooser.class/instance/initialExtent.st b/packages/SwaLintBrowser.package/SL2TargetChooser.class/instance/initialExtent.st new file mode 100644 index 00000000..8408feb2 --- /dev/null +++ b/packages/SwaLintBrowser.package/SL2TargetChooser.class/instance/initialExtent.st @@ -0,0 +1,4 @@ +toolbuilder - accessing +initialExtent + + ^ 600 px @ 300 px \ No newline at end of file diff --git a/packages/SwaLintBrowser.package/SL2TargetChooser.class/instance/initialize.st b/packages/SwaLintBrowser.package/SL2TargetChooser.class/instance/initialize.st new file mode 100644 index 00000000..2f98909e --- /dev/null +++ b/packages/SwaLintBrowser.package/SL2TargetChooser.class/instance/initialize.st @@ -0,0 +1,8 @@ +initialize-release +initialize + + super initialize. + + self initializeWithSystemOrganizer: SystemOrganizer default. + accepted := false. + caches := IdentityDictionary new. \ No newline at end of file diff --git a/packages/SwaLintBrowser.package/SL2TargetChooser.class/instance/initializeWithSystemOrganizer..st b/packages/SwaLintBrowser.package/SL2TargetChooser.class/instance/initializeWithSystemOrganizer..st new file mode 100644 index 00000000..691cdfe9 --- /dev/null +++ b/packages/SwaLintBrowser.package/SL2TargetChooser.class/instance/initializeWithSystemOrganizer..st @@ -0,0 +1,6 @@ +initialize-release +initializeWithSystemOrganizer: aSystemOrganizer + + self systemOrganizer: aSystemOrganizer. + self allSystemCategories: aSystemOrganizer categories sorted. + self allClasses: (aSystemOrganizer elementArray sorted collect: [:className | self environment classNamed: className]). \ No newline at end of file diff --git a/packages/SwaLintBrowser.package/SL2TargetChooser.class/instance/invertSelection..st b/packages/SwaLintBrowser.package/SL2TargetChooser.class/instance/invertSelection..st new file mode 100644 index 00000000..e7c0f279 --- /dev/null +++ b/packages/SwaLintBrowser.package/SL2TargetChooser.class/instance/invertSelection..st @@ -0,0 +1,9 @@ +actions +invertSelection: selector + + self + perform: (#'selected{1}:' format: {selector capitalized}) asSymbol + with: + ((self perform: (#'available{1}' format: {selector capitalized}) asSymbol) + copyWithoutAll: + (self perform: (#'selected{1}' format: {selector capitalized}))). \ No newline at end of file diff --git a/packages/SwaLintBrowser.package/SL2TargetChooser.class/instance/listMenu.for..st b/packages/SwaLintBrowser.package/SL2TargetChooser.class/instance/listMenu.for..st new file mode 100644 index 00000000..17164790 --- /dev/null +++ b/packages/SwaLintBrowser.package/SL2TargetChooser.class/instance/listMenu.for..st @@ -0,0 +1,8 @@ +menus +listMenu: menu for: selector + + ^ menu + add: 'Select all' selector: #selectAll: argument: selector; + add: 'Select inversion' selector: #invertSelection: argument: selector; + add: 'Select none' selector: #selectNone: argument: selector; + yourself \ No newline at end of file diff --git a/packages/SwaLintBrowser.package/SL2TargetChooser.class/instance/openWith..st b/packages/SwaLintBrowser.package/SL2TargetChooser.class/instance/openWith..st new file mode 100644 index 00000000..65c851d9 --- /dev/null +++ b/packages/SwaLintBrowser.package/SL2TargetChooser.class/instance/openWith..st @@ -0,0 +1,6 @@ +private +openWith: builderBlock + + | builder | + builder := Project uiManager toolBuilder. + ^ builder open: (builderBlock value: builder) \ No newline at end of file diff --git a/packages/SwaLintBrowser.package/SL2TargetChooser.class/instance/selectAll..st b/packages/SwaLintBrowser.package/SL2TargetChooser.class/instance/selectAll..st new file mode 100644 index 00000000..dceebba2 --- /dev/null +++ b/packages/SwaLintBrowser.package/SL2TargetChooser.class/instance/selectAll..st @@ -0,0 +1,6 @@ +actions +selectAll: selector + + self + perform: (#'selected{1}:' format: {selector capitalized}) + with: (self perform: (#'available{1}' format: {selector capitalized})). \ No newline at end of file diff --git a/packages/SwaLintBrowser.package/SL2TargetChooser.class/instance/selectClass..st b/packages/SwaLintBrowser.package/SL2TargetChooser.class/instance/selectClass..st new file mode 100644 index 00000000..cde5bbbd --- /dev/null +++ b/packages/SwaLintBrowser.package/SL2TargetChooser.class/instance/selectClass..st @@ -0,0 +1,5 @@ +accessing - toolbuilder +selectClass: aClass + + selectedClass := aClass. + self changed: #selectedClass. \ No newline at end of file diff --git a/packages/SwaLintBrowser.package/SL2TargetChooser.class/instance/selectClassAt..st b/packages/SwaLintBrowser.package/SL2TargetChooser.class/instance/selectClassAt..st new file mode 100644 index 00000000..2c401646 --- /dev/null +++ b/packages/SwaLintBrowser.package/SL2TargetChooser.class/instance/selectClassAt..st @@ -0,0 +1,4 @@ +accessing - toolbuilder +selectClassAt: anInteger + + self selectClass: (self availableClasses at: anInteger ifAbsent: [nil]). \ No newline at end of file diff --git a/packages/SwaLintBrowser.package/SL2TargetChooser.class/instance/selectNone..st b/packages/SwaLintBrowser.package/SL2TargetChooser.class/instance/selectNone..st new file mode 100644 index 00000000..da50c702 --- /dev/null +++ b/packages/SwaLintBrowser.package/SL2TargetChooser.class/instance/selectNone..st @@ -0,0 +1,6 @@ +actions +selectNone: selector + + self + perform: (#'selected{1}:' format: {selector capitalized}) asSymbol + with: #(). \ No newline at end of file diff --git a/packages/SwaLintBrowser.package/SL2TargetChooser.class/instance/selectSystemCategory..st b/packages/SwaLintBrowser.package/SL2TargetChooser.class/instance/selectSystemCategory..st new file mode 100644 index 00000000..ec52b146 --- /dev/null +++ b/packages/SwaLintBrowser.package/SL2TargetChooser.class/instance/selectSystemCategory..st @@ -0,0 +1,5 @@ +accessing - toolbuilder +selectSystemCategory: category + + selectedSystemCategory := category. + self changed: #selectedSystemCategory. \ No newline at end of file diff --git a/packages/SwaLintBrowser.package/SL2TargetChooser.class/instance/selectSystemCategoryAt..st b/packages/SwaLintBrowser.package/SL2TargetChooser.class/instance/selectSystemCategoryAt..st new file mode 100644 index 00000000..46df83a1 --- /dev/null +++ b/packages/SwaLintBrowser.package/SL2TargetChooser.class/instance/selectSystemCategoryAt..st @@ -0,0 +1,4 @@ +accessing - toolbuilder +selectSystemCategoryAt: anInteger + + self selectSystemCategory: (self availableSystemCategories at: anInteger ifAbsent: [nil]). \ No newline at end of file diff --git a/packages/SwaLintBrowser.package/SL2TargetChooser.class/instance/selectedClass.st b/packages/SwaLintBrowser.package/SL2TargetChooser.class/instance/selectedClass.st new file mode 100644 index 00000000..720ec69e --- /dev/null +++ b/packages/SwaLintBrowser.package/SL2TargetChooser.class/instance/selectedClass.st @@ -0,0 +1,4 @@ +accessing - toolbuilder +selectedClass + + ^ selectedClass \ No newline at end of file diff --git a/packages/SwaLintBrowser.package/SL2TargetChooser.class/instance/selectedClassIndex.st b/packages/SwaLintBrowser.package/SL2TargetChooser.class/instance/selectedClassIndex.st new file mode 100644 index 00000000..c775ac1f --- /dev/null +++ b/packages/SwaLintBrowser.package/SL2TargetChooser.class/instance/selectedClassIndex.st @@ -0,0 +1,4 @@ +accessing - toolbuilder +selectedClassIndex + + ^ self availableClasses indexOf: self selectedClass \ No newline at end of file diff --git a/packages/SwaLintBrowser.package/SL2TargetChooser.class/instance/selectedClasses..st b/packages/SwaLintBrowser.package/SL2TargetChooser.class/instance/selectedClasses..st new file mode 100644 index 00000000..ae1bcba1 --- /dev/null +++ b/packages/SwaLintBrowser.package/SL2TargetChooser.class/instance/selectedClasses..st @@ -0,0 +1,6 @@ +accessing +selectedClasses: classes + + self target classes: classes. + + self changed: #selectedClasses. \ No newline at end of file diff --git a/packages/SwaLintBrowser.package/SL2TargetChooser.class/instance/selectedClasses.st b/packages/SwaLintBrowser.package/SL2TargetChooser.class/instance/selectedClasses.st new file mode 100644 index 00000000..7dc7103d --- /dev/null +++ b/packages/SwaLintBrowser.package/SL2TargetChooser.class/instance/selectedClasses.st @@ -0,0 +1,4 @@ +accessing +selectedClasses + + ^ self target classes \ No newline at end of file diff --git a/packages/SwaLintBrowser.package/SL2TargetChooser.class/instance/selectedSystemCategories..st b/packages/SwaLintBrowser.package/SL2TargetChooser.class/instance/selectedSystemCategories..st new file mode 100644 index 00000000..a0ca89c2 --- /dev/null +++ b/packages/SwaLintBrowser.package/SL2TargetChooser.class/instance/selectedSystemCategories..st @@ -0,0 +1,8 @@ +accessing +selectedSystemCategories: categories + + self target systemCategories: categories. + + self changed: #selectedSystemCategories. + + self selectedClasses: (self selectedClasses intersection: self availableClasses). \ No newline at end of file diff --git a/packages/SwaLintBrowser.package/SL2TargetChooser.class/instance/selectedSystemCategories.st b/packages/SwaLintBrowser.package/SL2TargetChooser.class/instance/selectedSystemCategories.st new file mode 100644 index 00000000..547a6186 --- /dev/null +++ b/packages/SwaLintBrowser.package/SL2TargetChooser.class/instance/selectedSystemCategories.st @@ -0,0 +1,4 @@ +accessing +selectedSystemCategories + + ^ self target systemCategories \ No newline at end of file diff --git a/packages/SwaLintBrowser.package/SL2TargetChooser.class/instance/selectedSystemCategory.st b/packages/SwaLintBrowser.package/SL2TargetChooser.class/instance/selectedSystemCategory.st new file mode 100644 index 00000000..d8d3313a --- /dev/null +++ b/packages/SwaLintBrowser.package/SL2TargetChooser.class/instance/selectedSystemCategory.st @@ -0,0 +1,4 @@ +accessing - toolbuilder +selectedSystemCategory + + ^ selectedSystemCategory \ No newline at end of file diff --git a/packages/SwaLintBrowser.package/SL2TargetChooser.class/instance/selectedSystemCategoryIndex.st b/packages/SwaLintBrowser.package/SL2TargetChooser.class/instance/selectedSystemCategoryIndex.st new file mode 100644 index 00000000..67a43248 --- /dev/null +++ b/packages/SwaLintBrowser.package/SL2TargetChooser.class/instance/selectedSystemCategoryIndex.st @@ -0,0 +1,4 @@ +accessing - toolbuilder +selectedSystemCategoryIndex + + ^ self availableSystemCategories indexOf: self selectedSystemCategory \ No newline at end of file diff --git a/packages/SwaLintBrowser.package/SL2TargetChooser.class/instance/systemCategory.select..st b/packages/SwaLintBrowser.package/SL2TargetChooser.class/instance/systemCategory.select..st new file mode 100644 index 00000000..e3a6ebf5 --- /dev/null +++ b/packages/SwaLintBrowser.package/SL2TargetChooser.class/instance/systemCategory.select..st @@ -0,0 +1,10 @@ +accessing - toolbuilder +systemCategory: category select: aBoolean + + self selectedSystemCategories: + (aBoolean + ifFalse: [self target systemCategories copyWithout: category] + ifTrue: [(self target systemCategories copyWith: category) withoutDuplicates]). + + aBoolean ifTrue: + [self selectedClasses: (self selectedClasses , (self classesInSystemCategory: category)) withoutDuplicates]. \ No newline at end of file diff --git a/packages/SwaLintBrowser.package/SL2TargetChooser.class/instance/systemCategoryAt.select..st b/packages/SwaLintBrowser.package/SL2TargetChooser.class/instance/systemCategoryAt.select..st new file mode 100644 index 00000000..bcf020a8 --- /dev/null +++ b/packages/SwaLintBrowser.package/SL2TargetChooser.class/instance/systemCategoryAt.select..st @@ -0,0 +1,6 @@ +accessing - toolbuilder +systemCategoryAt: anInteger select: aBoolean + + ^ self + systemCategory: (self availableSystemCategories at: anInteger) + select: aBoolean \ No newline at end of file diff --git a/packages/SwaLintBrowser.package/SL2TargetChooser.class/instance/systemCategoryMenu..st b/packages/SwaLintBrowser.package/SL2TargetChooser.class/instance/systemCategoryMenu..st new file mode 100644 index 00000000..a2578c63 --- /dev/null +++ b/packages/SwaLintBrowser.package/SL2TargetChooser.class/instance/systemCategoryMenu..st @@ -0,0 +1,4 @@ +menus +systemCategoryMenu: menu + + ^ self listMenu: menu for: #systemCategories \ No newline at end of file diff --git a/packages/SwaLintBrowser.package/SL2TargetChooser.class/instance/systemOrganizer..st b/packages/SwaLintBrowser.package/SL2TargetChooser.class/instance/systemOrganizer..st new file mode 100644 index 00000000..389e270c --- /dev/null +++ b/packages/SwaLintBrowser.package/SL2TargetChooser.class/instance/systemOrganizer..st @@ -0,0 +1,4 @@ +accessing +systemOrganizer: aSystemOrganizer + + systemOrganizer := aSystemOrganizer. \ No newline at end of file diff --git a/packages/SwaLintBrowser.package/SL2TargetChooser.class/instance/systemOrganizer.st b/packages/SwaLintBrowser.package/SL2TargetChooser.class/instance/systemOrganizer.st new file mode 100644 index 00000000..0e3c8811 --- /dev/null +++ b/packages/SwaLintBrowser.package/SL2TargetChooser.class/instance/systemOrganizer.st @@ -0,0 +1,4 @@ +accessing +systemOrganizer + + ^ systemOrganizer \ No newline at end of file diff --git a/packages/SwaLintBrowser.package/SL2TargetChooser.class/instance/target..st b/packages/SwaLintBrowser.package/SL2TargetChooser.class/instance/target..st new file mode 100644 index 00000000..67dbb315 --- /dev/null +++ b/packages/SwaLintBrowser.package/SL2TargetChooser.class/instance/target..st @@ -0,0 +1,8 @@ +accessing +target: aTarget + + target := aTarget. + + "convenient scroll down to first selected items" + self allSystemCategories detect: [:ea | self selectedSystemCategories includes: ea] ifFound: [:ea | self selectSystemCategory: ea]. + self allClasses detect: [:ea | self selectedClasses includes: ea] ifFound: [:ea | self selectClass: ea]. \ No newline at end of file diff --git a/packages/SwaLintBrowser.package/SL2TargetChooser.class/instance/target.st b/packages/SwaLintBrowser.package/SL2TargetChooser.class/instance/target.st new file mode 100644 index 00000000..66264783 --- /dev/null +++ b/packages/SwaLintBrowser.package/SL2TargetChooser.class/instance/target.st @@ -0,0 +1,4 @@ +accessing +target + + ^ target \ No newline at end of file diff --git a/packages/SwaLintBrowser.package/SL2TargetChooser.class/instance/targetClass.st b/packages/SwaLintBrowser.package/SL2TargetChooser.class/instance/targetClass.st new file mode 100644 index 00000000..7b4a1ff7 --- /dev/null +++ b/packages/SwaLintBrowser.package/SL2TargetChooser.class/instance/targetClass.st @@ -0,0 +1,4 @@ +accessing - private +targetClass + + ^ SL2Target \ No newline at end of file diff --git a/packages/SwaLintBrowser.package/SL2TargetChooser.class/methodProperties.json b/packages/SwaLintBrowser.package/SL2TargetChooser.class/methodProperties.json new file mode 100644 index 00000000..c4f4bcce --- /dev/null +++ b/packages/SwaLintBrowser.package/SL2TargetChooser.class/methodProperties.json @@ -0,0 +1,62 @@ +{ + "class" : { + "createOrCancel:" : "ct 12/12/2024 02:19", + "edit:" : "ct 12/12/2024 03:45" }, + "instance" : { + "accept" : "ct 12/12/2024 03:05", + "acceptColor" : "ct 12/12/2024 03:03", + "accepted" : "ct 12/12/2024 03:06", + "allClasses" : "ct 12/12/2024 03:00", + "allClasses:" : "ct 12/12/2024 03:00", + "allSystemCategories" : "ct 12/12/2024 02:39", + "allSystemCategories:" : "ct 12/12/2024 02:59", + "availableClasses" : "ct 12/22/2024 01:18", + "availableSystemCategories" : "ct 12/12/2024 02:38", + "buildButtons:" : "ct 12/12/2024 02:21", + "buildClassList:" : "ct 12/22/2024 00:32", + "buildCreateDialogWith:" : "ct 12/12/2024 02:20", + "buildEditDialogWith:" : "ct 12/12/2024 03:46", + "buildSystemCategoryList:" : "ct 12/22/2024 00:38", + "cached:" : "ct 12/22/2024 01:07", + "cancel" : "ct 12/12/2024 03:05", + "cancelColor" : "ct 12/12/2024 03:03", + "changed:" : "ct 12/22/2024 01:13", + "class:select:" : "ct 12/22/2024 01:29", + "classAt:select:" : "ct 12/12/2024 03:33", + "classMenu:" : "ct 12/22/2024 00:43", + "classesInSystemCategory:" : "ct 12/22/2024 01:25", + "close:" : "ct 12/12/2024 03:05", + "createOrCancel:" : "ct 12/22/2024 00:15", + "edit:" : "ct 12/22/2024 00:15", + "hasClassSelected:" : "ct 12/22/2024 01:02", + "hasClassSelectedAt:" : "ct 12/22/2024 01:02", + "hasSystemCategorySelected:" : "ct 12/22/2024 01:02", + "hasSystemCategorySelectedAt:" : "ct 12/22/2024 01:02", + "initialExtent" : "ct 10/4/2025 01:21", + "initialize" : "ct 12/22/2024 01:07", + "initializeWithSystemOrganizer:" : "ct 12/21/2024 21:38", + "invertSelection:" : "ct 12/22/2024 00:41", + "listMenu:for:" : "ct 12/22/2024 00:44", + "openWith:" : "ct 1/3/2025 05:39", + "selectAll:" : "ct 12/22/2024 00:46", + "selectClass:" : "ct 12/12/2024 03:33", + "selectClassAt:" : "ct 12/12/2024 03:32", + "selectNone:" : "ct 12/22/2024 00:45", + "selectSystemCategory:" : "ct 12/12/2024 03:23", + "selectSystemCategoryAt:" : "ct 12/12/2024 03:23", + "selectedClass" : "ct 12/12/2024 03:02", + "selectedClassIndex" : "ct 12/12/2024 03:02", + "selectedClasses" : "ct 12/12/2024 03:39", + "selectedClasses:" : "ct 12/12/2024 03:50", + "selectedSystemCategories" : "ct 12/12/2024 03:39", + "selectedSystemCategories:" : "ct 12/22/2024 01:29", + "selectedSystemCategory" : "ct 12/12/2024 02:46", + "selectedSystemCategoryIndex" : "ct 12/12/2024 02:48", + "systemCategory:select:" : "ct 12/22/2024 01:28", + "systemCategoryAt:select:" : "ct 12/12/2024 03:25", + "systemCategoryMenu:" : "ct 12/22/2024 00:45", + "systemOrganizer" : "ct 12/12/2024 02:58", + "systemOrganizer:" : "ct 12/12/2024 02:58", + "target" : "ct 12/12/2024 03:37", + "target:" : "ct 12/21/2024 22:00", + "targetClass" : "ct 12/12/2024 03:37" } } diff --git a/packages/SwaLintBrowser.package/SL2TargetChooser.class/properties.json b/packages/SwaLintBrowser.package/SL2TargetChooser.class/properties.json new file mode 100644 index 00000000..0413a0c9 --- /dev/null +++ b/packages/SwaLintBrowser.package/SL2TargetChooser.class/properties.json @@ -0,0 +1,23 @@ +{ + "category" : "SwaLintBrowser-UI", + "classinstvars" : [ + ], + "classtraitcomposition" : "SL2AspectDependencyGraph classTrait", + "classvars" : [ + ], + "commentStamp" : "", + "instvars" : [ + "target", + "systemOrganizer", + "allSystemCategories", + "allClasses", + "accepted", + "selectedSystemCategory", + "selectedClass", + "caches" ], + "name" : "SL2TargetChooser", + "pools" : [ + ], + "super" : "Model", + "traitcomposition" : "SL2AspectDependencyGraph", + "type" : "normal" } diff --git a/packages/SwaLintBrowser.package/SL2Test.class/README.md b/packages/SwaLintBrowser.package/SL2Test.class/README.md new file mode 100644 index 00000000..e69de29b diff --git a/packages/SwaLintBrowser.package/SL2Test.class/class/newForTest..st b/packages/SwaLintBrowser.package/SL2Test.class/class/newForTest..st new file mode 100644 index 00000000..28615ae0 --- /dev/null +++ b/packages/SwaLintBrowser.package/SL2Test.class/class/newForTest..st @@ -0,0 +1,6 @@ +instance creation +newForTest: aSLTestData + + ^ self new + testData: aSLTestData; + yourself \ No newline at end of file diff --git a/packages/SwaLintBrowser.package/SL2Test.class/instance/addCategoryPath..st b/packages/SwaLintBrowser.package/SL2Test.class/instance/addCategoryPath..st new file mode 100644 index 00000000..882086ee --- /dev/null +++ b/packages/SwaLintBrowser.package/SL2Test.class/instance/addCategoryPath..st @@ -0,0 +1,5 @@ +building +addCategoryPath: stringArray + "Only for building." + + categoryPaths add: stringArray. \ No newline at end of file diff --git a/packages/SwaLintBrowser.package/SL2Test.class/instance/browse.st b/packages/SwaLintBrowser.package/SL2Test.class/instance/browse.st new file mode 100644 index 00000000..f07b358e --- /dev/null +++ b/packages/SwaLintBrowser.package/SL2Test.class/instance/browse.st @@ -0,0 +1,4 @@ +browsing +browse + + ^ self browseTestData \ No newline at end of file diff --git a/packages/SwaLintBrowser.package/SL2Test.class/instance/browseMapper.st b/packages/SwaLintBrowser.package/SL2Test.class/instance/browseMapper.st new file mode 100644 index 00000000..bc5e9aba --- /dev/null +++ b/packages/SwaLintBrowser.package/SL2Test.class/instance/browseMapper.st @@ -0,0 +1,4 @@ +browsing +browseMapper + + ^ self mapper ifNotNil: #browse \ No newline at end of file diff --git a/packages/SwaLintBrowser.package/SL2Test.class/instance/browseTestData.st b/packages/SwaLintBrowser.package/SL2Test.class/instance/browseTestData.st new file mode 100644 index 00000000..dedff470 --- /dev/null +++ b/packages/SwaLintBrowser.package/SL2Test.class/instance/browseTestData.st @@ -0,0 +1,4 @@ +browsing +browseTestData + + ^ self testData browse \ No newline at end of file diff --git a/packages/SwaLintBrowser.package/SL2Test.class/instance/categories..st b/packages/SwaLintBrowser.package/SL2Test.class/instance/categories..st new file mode 100644 index 00000000..201e24de --- /dev/null +++ b/packages/SwaLintBrowser.package/SL2Test.class/instance/categories..st @@ -0,0 +1,4 @@ +accessing +categories: aCollection + + categories := aCollection. \ No newline at end of file diff --git a/packages/SwaLintBrowser.package/SL2Test.class/instance/categories.st b/packages/SwaLintBrowser.package/SL2Test.class/instance/categories.st new file mode 100644 index 00000000..fb719a10 --- /dev/null +++ b/packages/SwaLintBrowser.package/SL2Test.class/instance/categories.st @@ -0,0 +1,4 @@ +accessing +categories + + ^ categories \ No newline at end of file diff --git a/packages/SwaLintBrowser.package/SL2Test.class/instance/categoryPaths..st b/packages/SwaLintBrowser.package/SL2Test.class/instance/categoryPaths..st new file mode 100644 index 00000000..f0c09bdb --- /dev/null +++ b/packages/SwaLintBrowser.package/SL2Test.class/instance/categoryPaths..st @@ -0,0 +1,5 @@ +building +categoryPaths: aCollection + "Only for building." + + categoryPaths := aCollection. \ No newline at end of file diff --git a/packages/SwaLintBrowser.package/SL2Test.class/instance/categoryPaths.st b/packages/SwaLintBrowser.package/SL2Test.class/instance/categoryPaths.st new file mode 100644 index 00000000..dcbfa0f8 --- /dev/null +++ b/packages/SwaLintBrowser.package/SL2Test.class/instance/categoryPaths.st @@ -0,0 +1,5 @@ +building +categoryPaths + "Only for building." + + ^ categoryPaths \ No newline at end of file diff --git a/packages/SwaLintBrowser.package/SL2Test.class/instance/description..st b/packages/SwaLintBrowser.package/SL2Test.class/instance/description..st new file mode 100644 index 00000000..e94747ca --- /dev/null +++ b/packages/SwaLintBrowser.package/SL2Test.class/instance/description..st @@ -0,0 +1,4 @@ +accessing +description: aString + + description := aString. \ No newline at end of file diff --git a/packages/SwaLintBrowser.package/SL2Test.class/instance/description.st b/packages/SwaLintBrowser.package/SL2Test.class/instance/description.st new file mode 100644 index 00000000..fc49736f --- /dev/null +++ b/packages/SwaLintBrowser.package/SL2Test.class/instance/description.st @@ -0,0 +1,4 @@ +accessing +description + + ^ description \ No newline at end of file diff --git a/packages/SwaLintBrowser.package/SL2Test.class/instance/isCategory.st b/packages/SwaLintBrowser.package/SL2Test.class/instance/isCategory.st new file mode 100644 index 00000000..436332ea --- /dev/null +++ b/packages/SwaLintBrowser.package/SL2Test.class/instance/isCategory.st @@ -0,0 +1,4 @@ +testing +isCategory + + ^ false \ No newline at end of file diff --git a/packages/SwaLintBrowser.package/SL2Test.class/instance/key.st b/packages/SwaLintBrowser.package/SL2Test.class/instance/key.st new file mode 100644 index 00000000..4a76fb5f --- /dev/null +++ b/packages/SwaLintBrowser.package/SL2Test.class/instance/key.st @@ -0,0 +1,4 @@ +accessing +key + + ^ self testData key \ No newline at end of file diff --git a/packages/SwaLintBrowser.package/SL2Test.class/instance/mapper..st b/packages/SwaLintBrowser.package/SL2Test.class/instance/mapper..st new file mode 100644 index 00000000..5711202c --- /dev/null +++ b/packages/SwaLintBrowser.package/SL2Test.class/instance/mapper..st @@ -0,0 +1,4 @@ +accessing +mapper: method + + mapper := method. \ No newline at end of file diff --git a/packages/SwaLintBrowser.package/SL2Test.class/instance/mapper.st b/packages/SwaLintBrowser.package/SL2Test.class/instance/mapper.st new file mode 100644 index 00000000..acd4d0f3 --- /dev/null +++ b/packages/SwaLintBrowser.package/SL2Test.class/instance/mapper.st @@ -0,0 +1,4 @@ +accessing +mapper + + ^ mapper \ No newline at end of file diff --git a/packages/SwaLintBrowser.package/SL2Test.class/instance/printOn..st b/packages/SwaLintBrowser.package/SL2Test.class/instance/printOn..st new file mode 100644 index 00000000..b4f68aa1 --- /dev/null +++ b/packages/SwaLintBrowser.package/SL2Test.class/instance/printOn..st @@ -0,0 +1,9 @@ +printing +printOn: aStream + + super printOn: aStream. + + aStream + nextPut: $<; + nextPutAll: self title; + nextPut: $>. \ No newline at end of file diff --git a/packages/SwaLintBrowser.package/SL2Test.class/instance/testData..st b/packages/SwaLintBrowser.package/SL2Test.class/instance/testData..st new file mode 100644 index 00000000..0f40b409 --- /dev/null +++ b/packages/SwaLintBrowser.package/SL2Test.class/instance/testData..st @@ -0,0 +1,4 @@ +accessing +testData: aSLTestData + + testData := aSLTestData. \ No newline at end of file diff --git a/packages/SwaLintBrowser.package/SL2Test.class/instance/testData.st b/packages/SwaLintBrowser.package/SL2Test.class/instance/testData.st new file mode 100644 index 00000000..695342d6 --- /dev/null +++ b/packages/SwaLintBrowser.package/SL2Test.class/instance/testData.st @@ -0,0 +1,4 @@ +accessing +testData + + ^ testData \ No newline at end of file diff --git a/packages/SwaLintBrowser.package/SL2Test.class/instance/title..st b/packages/SwaLintBrowser.package/SL2Test.class/instance/title..st new file mode 100644 index 00000000..b49b5a4a --- /dev/null +++ b/packages/SwaLintBrowser.package/SL2Test.class/instance/title..st @@ -0,0 +1,4 @@ +accessing +title: aString + + title := aString. \ No newline at end of file diff --git a/packages/SwaLintBrowser.package/SL2Test.class/instance/title.st b/packages/SwaLintBrowser.package/SL2Test.class/instance/title.st new file mode 100644 index 00000000..3c1da9ab --- /dev/null +++ b/packages/SwaLintBrowser.package/SL2Test.class/instance/title.st @@ -0,0 +1,4 @@ +accessing +title + + ^ title \ No newline at end of file diff --git a/packages/SwaLintBrowser.package/SL2Test.class/instance/uniqueTitle.st b/packages/SwaLintBrowser.package/SL2Test.class/instance/uniqueTitle.st new file mode 100644 index 00000000..bf5e5142 --- /dev/null +++ b/packages/SwaLintBrowser.package/SL2Test.class/instance/uniqueTitle.st @@ -0,0 +1,4 @@ +accessing +uniqueTitle + + ^ self title ifNil: [self key capitalized] \ No newline at end of file diff --git a/packages/SwaLintBrowser.package/SL2Test.class/methodProperties.json b/packages/SwaLintBrowser.package/SL2Test.class/methodProperties.json new file mode 100644 index 00000000..eb80d1ea --- /dev/null +++ b/packages/SwaLintBrowser.package/SL2Test.class/methodProperties.json @@ -0,0 +1,24 @@ +{ + "class" : { + "newForTest:" : "ct 12/12/2024 04:21" }, + "instance" : { + "addCategoryPath:" : "ct 12/19/2024 21:05", + "browse" : "ct 12/20/2024 05:28", + "browseMapper" : "ct 1/4/2025 21:36", + "browseTestData" : "ct 12/18/2024 03:11", + "categories" : "ct 12/17/2024 23:59", + "categories:" : "ct 12/18/2024 00:00", + "categoryPaths" : "ct 12/19/2024 21:05", + "categoryPaths:" : "ct 12/19/2024 21:05", + "description" : "ct 12/12/2024 04:23", + "description:" : "ct 12/12/2024 04:23", + "isCategory" : "ct 12/18/2024 02:09", + "key" : "ct 1/4/2025 21:40", + "mapper" : "ct 12/13/2024 00:49", + "mapper:" : "ct 1/4/2025 21:32", + "printOn:" : "ct 12/12/2024 04:38", + "testData" : "ct 12/12/2024 04:22", + "testData:" : "ct 12/12/2024 04:22", + "title" : "ct 12/12/2024 04:22", + "title:" : "ct 12/12/2024 04:22", + "uniqueTitle" : "ct 1/4/2025 21:43" } } diff --git a/packages/SwaLintBrowser.package/SL2Test.class/properties.json b/packages/SwaLintBrowser.package/SL2Test.class/properties.json new file mode 100644 index 00000000..c835e13f --- /dev/null +++ b/packages/SwaLintBrowser.package/SL2Test.class/properties.json @@ -0,0 +1,19 @@ +{ + "category" : "SwaLintBrowser-Core", + "classinstvars" : [ + ], + "classvars" : [ + ], + "commentStamp" : "", + "instvars" : [ + "testData", + "title", + "categoryPaths", + "categories", + "description", + "mapper" ], + "name" : "SL2Test", + "pools" : [ + ], + "super" : "Object", + "type" : "normal" } diff --git a/packages/SwaLintBrowser.package/SL2TestCategory.class/README.md b/packages/SwaLintBrowser.package/SL2TestCategory.class/README.md new file mode 100644 index 00000000..e69de29b diff --git a/packages/SwaLintBrowser.package/SL2TestCategory.class/class/newWithPath..st b/packages/SwaLintBrowser.package/SL2TestCategory.class/class/newWithPath..st new file mode 100644 index 00000000..427e56b2 --- /dev/null +++ b/packages/SwaLintBrowser.package/SL2TestCategory.class/class/newWithPath..st @@ -0,0 +1,6 @@ +instance creation +newWithPath: categoryPath + + ^ self new + path: categoryPath; + yourself \ No newline at end of file diff --git a/packages/SwaLintBrowser.package/SL2TestCategory.class/instance/allParents.st b/packages/SwaLintBrowser.package/SL2TestCategory.class/instance/allParents.st new file mode 100644 index 00000000..6bbabbfc --- /dev/null +++ b/packages/SwaLintBrowser.package/SL2TestCategory.class/instance/allParents.st @@ -0,0 +1,4 @@ +accessing +allParents + + ^ self parent ifNil: [#()] ifNotNil: [self parent withAllParents] \ No newline at end of file diff --git a/packages/SwaLintBrowser.package/SL2TestCategory.class/instance/anyTitle.st b/packages/SwaLintBrowser.package/SL2TestCategory.class/instance/anyTitle.st new file mode 100644 index 00000000..87751c1a --- /dev/null +++ b/packages/SwaLintBrowser.package/SL2TestCategory.class/instance/anyTitle.st @@ -0,0 +1,4 @@ +accessing +anyTitle + + ^ self title ifNil: [self key capitalized] \ No newline at end of file diff --git a/packages/SwaLintBrowser.package/SL2TestCategory.class/instance/browse.st b/packages/SwaLintBrowser.package/SL2TestCategory.class/instance/browse.st new file mode 100644 index 00000000..1201c642 --- /dev/null +++ b/packages/SwaLintBrowser.package/SL2TestCategory.class/instance/browse.st @@ -0,0 +1,4 @@ +browsing +browse + + ^ self browseMapper \ No newline at end of file diff --git a/packages/SwaLintBrowser.package/SL2TestCategory.class/instance/browseMapper.st b/packages/SwaLintBrowser.package/SL2TestCategory.class/instance/browseMapper.st new file mode 100644 index 00000000..bc5e9aba --- /dev/null +++ b/packages/SwaLintBrowser.package/SL2TestCategory.class/instance/browseMapper.st @@ -0,0 +1,4 @@ +browsing +browseMapper + + ^ self mapper ifNotNil: #browse \ No newline at end of file diff --git a/packages/SwaLintBrowser.package/SL2TestCategory.class/instance/description..st b/packages/SwaLintBrowser.package/SL2TestCategory.class/instance/description..st new file mode 100644 index 00000000..e94747ca --- /dev/null +++ b/packages/SwaLintBrowser.package/SL2TestCategory.class/instance/description..st @@ -0,0 +1,4 @@ +accessing +description: aString + + description := aString. \ No newline at end of file diff --git a/packages/SwaLintBrowser.package/SL2TestCategory.class/instance/description.st b/packages/SwaLintBrowser.package/SL2TestCategory.class/instance/description.st new file mode 100644 index 00000000..fc49736f --- /dev/null +++ b/packages/SwaLintBrowser.package/SL2TestCategory.class/instance/description.st @@ -0,0 +1,4 @@ +accessing +description + + ^ description \ No newline at end of file diff --git a/packages/SwaLintBrowser.package/SL2TestCategory.class/instance/includesCategory..st b/packages/SwaLintBrowser.package/SL2TestCategory.class/instance/includesCategory..st new file mode 100644 index 00000000..a0ef93b4 --- /dev/null +++ b/packages/SwaLintBrowser.package/SL2TestCategory.class/instance/includesCategory..st @@ -0,0 +1,4 @@ +testing +includesCategory: aCategory + + ^ self path beginsWith: aCategory path \ No newline at end of file diff --git a/packages/SwaLintBrowser.package/SL2TestCategory.class/instance/isCategory.st b/packages/SwaLintBrowser.package/SL2TestCategory.class/instance/isCategory.st new file mode 100644 index 00000000..02c4235f --- /dev/null +++ b/packages/SwaLintBrowser.package/SL2TestCategory.class/instance/isCategory.st @@ -0,0 +1,4 @@ +testing +isCategory + + ^ true \ No newline at end of file diff --git a/packages/SwaLintBrowser.package/SL2TestCategory.class/instance/key.st b/packages/SwaLintBrowser.package/SL2TestCategory.class/instance/key.st new file mode 100644 index 00000000..7094b1cd --- /dev/null +++ b/packages/SwaLintBrowser.package/SL2TestCategory.class/instance/key.st @@ -0,0 +1,4 @@ +accessing +key + + ^ self path last \ No newline at end of file diff --git a/packages/SwaLintBrowser.package/SL2TestCategory.class/instance/mapper..st b/packages/SwaLintBrowser.package/SL2TestCategory.class/instance/mapper..st new file mode 100644 index 00000000..5711202c --- /dev/null +++ b/packages/SwaLintBrowser.package/SL2TestCategory.class/instance/mapper..st @@ -0,0 +1,4 @@ +accessing +mapper: method + + mapper := method. \ No newline at end of file diff --git a/packages/SwaLintBrowser.package/SL2TestCategory.class/instance/mapper.st b/packages/SwaLintBrowser.package/SL2TestCategory.class/instance/mapper.st new file mode 100644 index 00000000..acd4d0f3 --- /dev/null +++ b/packages/SwaLintBrowser.package/SL2TestCategory.class/instance/mapper.st @@ -0,0 +1,4 @@ +accessing +mapper + + ^ mapper \ No newline at end of file diff --git a/packages/SwaLintBrowser.package/SL2TestCategory.class/instance/parent..st b/packages/SwaLintBrowser.package/SL2TestCategory.class/instance/parent..st new file mode 100644 index 00000000..99d2f151 --- /dev/null +++ b/packages/SwaLintBrowser.package/SL2TestCategory.class/instance/parent..st @@ -0,0 +1,4 @@ +accessing +parent: aTestCategoryOrNil + + parent := aTestCategoryOrNil. \ No newline at end of file diff --git a/packages/SwaLintBrowser.package/SL2TestCategory.class/instance/parent.st b/packages/SwaLintBrowser.package/SL2TestCategory.class/instance/parent.st new file mode 100644 index 00000000..5f7789b5 --- /dev/null +++ b/packages/SwaLintBrowser.package/SL2TestCategory.class/instance/parent.st @@ -0,0 +1,4 @@ +accessing +parent + + ^ parent \ No newline at end of file diff --git a/packages/SwaLintBrowser.package/SL2TestCategory.class/instance/path..st b/packages/SwaLintBrowser.package/SL2TestCategory.class/instance/path..st new file mode 100644 index 00000000..b726ef3e --- /dev/null +++ b/packages/SwaLintBrowser.package/SL2TestCategory.class/instance/path..st @@ -0,0 +1,5 @@ +accessing +path: stringArray + "Kind of only for building? In the future, might want to replace access to this instvar after building by name + parent ..." + + path := stringArray. \ No newline at end of file diff --git a/packages/SwaLintBrowser.package/SL2TestCategory.class/instance/path.st b/packages/SwaLintBrowser.package/SL2TestCategory.class/instance/path.st new file mode 100644 index 00000000..81c63b39 --- /dev/null +++ b/packages/SwaLintBrowser.package/SL2TestCategory.class/instance/path.st @@ -0,0 +1,4 @@ +accessing +path + + ^ path \ No newline at end of file diff --git a/packages/SwaLintBrowser.package/SL2TestCategory.class/instance/printOn..st b/packages/SwaLintBrowser.package/SL2TestCategory.class/instance/printOn..st new file mode 100644 index 00000000..5f1ee369 --- /dev/null +++ b/packages/SwaLintBrowser.package/SL2TestCategory.class/instance/printOn..st @@ -0,0 +1,8 @@ +printing +printOn: aStream + + super printOn: aStream. + + aStream nextPut: $<. + self path printElementsOn: aStream. + aStream nextPut: $>. \ No newline at end of file diff --git a/packages/SwaLintBrowser.package/SL2TestCategory.class/instance/sortKey..st b/packages/SwaLintBrowser.package/SL2TestCategory.class/instance/sortKey..st new file mode 100644 index 00000000..f7e16a01 --- /dev/null +++ b/packages/SwaLintBrowser.package/SL2TestCategory.class/instance/sortKey..st @@ -0,0 +1,4 @@ +accessing +sortKey: anObject + + sortKey := anObject. \ No newline at end of file diff --git a/packages/SwaLintBrowser.package/SL2TestCategory.class/instance/sortKey.st b/packages/SwaLintBrowser.package/SL2TestCategory.class/instance/sortKey.st new file mode 100644 index 00000000..23ad0b1b --- /dev/null +++ b/packages/SwaLintBrowser.package/SL2TestCategory.class/instance/sortKey.st @@ -0,0 +1,4 @@ +accessing +sortKey + + ^ sortKey \ No newline at end of file diff --git a/packages/SwaLintBrowser.package/SL2TestCategory.class/instance/title..st b/packages/SwaLintBrowser.package/SL2TestCategory.class/instance/title..st new file mode 100644 index 00000000..b49b5a4a --- /dev/null +++ b/packages/SwaLintBrowser.package/SL2TestCategory.class/instance/title..st @@ -0,0 +1,4 @@ +accessing +title: aString + + title := aString. \ No newline at end of file diff --git a/packages/SwaLintBrowser.package/SL2TestCategory.class/instance/title.st b/packages/SwaLintBrowser.package/SL2TestCategory.class/instance/title.st new file mode 100644 index 00000000..3c1da9ab --- /dev/null +++ b/packages/SwaLintBrowser.package/SL2TestCategory.class/instance/title.st @@ -0,0 +1,4 @@ +accessing +title + + ^ title \ No newline at end of file diff --git a/packages/SwaLintBrowser.package/SL2TestCategory.class/instance/uniqueTitle.st b/packages/SwaLintBrowser.package/SL2TestCategory.class/instance/uniqueTitle.st new file mode 100644 index 00000000..5b0f8047 --- /dev/null +++ b/packages/SwaLintBrowser.package/SL2TestCategory.class/instance/uniqueTitle.st @@ -0,0 +1,4 @@ +accessing +uniqueTitle + + ^ (self withAllParents collect: #anyTitle) joinSeparatedBy: ' > ' \ No newline at end of file diff --git a/packages/SwaLintBrowser.package/SL2TestCategory.class/instance/withAllParents.st b/packages/SwaLintBrowser.package/SL2TestCategory.class/instance/withAllParents.st new file mode 100644 index 00000000..184c7362 --- /dev/null +++ b/packages/SwaLintBrowser.package/SL2TestCategory.class/instance/withAllParents.st @@ -0,0 +1,4 @@ +accessing +withAllParents + + ^ self allParents copyWithFirst: self \ No newline at end of file diff --git a/packages/SwaLintBrowser.package/SL2TestCategory.class/methodProperties.json b/packages/SwaLintBrowser.package/SL2TestCategory.class/methodProperties.json new file mode 100644 index 00000000..f59e141c --- /dev/null +++ b/packages/SwaLintBrowser.package/SL2TestCategory.class/methodProperties.json @@ -0,0 +1,26 @@ +{ + "class" : { + "newWithPath:" : "ct 12/17/2024 23:55" }, + "instance" : { + "allParents" : "ct 12/18/2024 02:26", + "anyTitle" : "ct 12/18/2024 02:53", + "browse" : "ct 1/4/2025 21:34", + "browseMapper" : "ct 1/4/2025 21:36", + "description" : "ct 12/17/2024 23:48", + "description:" : "ct 12/17/2024 23:48", + "includesCategory:" : "ct 12/18/2024 00:06", + "isCategory" : "ct 12/18/2024 02:09", + "key" : "ct 12/18/2024 02:09", + "mapper" : "ct 1/4/2025 21:33", + "mapper:" : "ct 1/4/2025 21:33", + "parent" : "ct 12/18/2024 02:08", + "parent:" : "ct 12/18/2024 02:08", + "path" : "ct 12/17/2024 23:55", + "path:" : "ct 12/19/2024 21:08", + "printOn:" : "ct 12/18/2024 02:12", + "sortKey" : "ct 12/18/2024 02:53", + "sortKey:" : "ct 12/18/2024 02:53", + "title" : "ct 12/18/2024 02:52", + "title:" : "ct 12/18/2024 02:52", + "uniqueTitle" : "ct 1/4/2025 21:43", + "withAllParents" : "ct 12/18/2024 02:25" } } diff --git a/packages/SwaLintBrowser.package/SL2TestCategory.class/properties.json b/packages/SwaLintBrowser.package/SL2TestCategory.class/properties.json new file mode 100644 index 00000000..f8ffcba7 --- /dev/null +++ b/packages/SwaLintBrowser.package/SL2TestCategory.class/properties.json @@ -0,0 +1,19 @@ +{ + "category" : "SwaLintBrowser-Core", + "classinstvars" : [ + ], + "classvars" : [ + ], + "commentStamp" : "", + "instvars" : [ + "path", + "parent", + "title", + "sortKey", + "description", + "mapper" ], + "name" : "SL2TestCategory", + "pools" : [ + ], + "super" : "Object", + "type" : "normal" } diff --git a/packages/SwaLintBrowser.package/SL2TestMapper.class/README.md b/packages/SwaLintBrowser.package/SL2TestMapper.class/README.md new file mode 100644 index 00000000..57d72e0e --- /dev/null +++ b/packages/SwaLintBrowser.package/SL2TestMapper.class/README.md @@ -0,0 +1 @@ +I map traditional SwaLint tests (SLTestData) from an SLEnvironment to modern SL2Tests. My subclasses can define maps to assign each traditional test to a new test with an updated title, description, and one or multiple categories. \ No newline at end of file diff --git a/packages/SwaLintBrowser.package/SL2TestMapper.class/class/mapTestsFrom..st b/packages/SwaLintBrowser.package/SL2TestMapper.class/class/mapTestsFrom..st new file mode 100644 index 00000000..101a42cf --- /dev/null +++ b/packages/SwaLintBrowser.package/SL2TestMapper.class/class/mapTestsFrom..st @@ -0,0 +1,4 @@ +mapping +mapTestsFrom: aSLDefaultEnvironment + + ^ self new mapTestsFrom: aSLDefaultEnvironment \ No newline at end of file diff --git a/packages/SwaLintBrowser.package/SL2TestMapper.class/instance/assert.description..st b/packages/SwaLintBrowser.package/SL2TestMapper.class/instance/assert.description..st new file mode 100644 index 00000000..e36782df --- /dev/null +++ b/packages/SwaLintBrowser.package/SL2TestMapper.class/instance/assert.description..st @@ -0,0 +1,5 @@ +error handling +assert: aBlock description: aStringOrBlock + + SwaLint debugMode ifFalse: [^ self]. + ^ super assert: aBlock description: aStringOrBlock \ No newline at end of file diff --git a/packages/SwaLintBrowser.package/SL2TestMapper.class/instance/basicMakeTestFrom..st b/packages/SwaLintBrowser.package/SL2TestMapper.class/instance/basicMakeTestFrom..st new file mode 100644 index 00000000..13ff6c88 --- /dev/null +++ b/packages/SwaLintBrowser.package/SL2TestMapper.class/instance/basicMakeTestFrom..st @@ -0,0 +1,6 @@ +creation +basicMakeTestFrom: aSLTestData + + ^ (self testClass newForTest: aSLTestData) + categoryPaths: OrderedCollection new; + yourself \ No newline at end of file diff --git a/packages/SwaLintBrowser.package/SL2TestMapper.class/instance/buildCategoryTree..st b/packages/SwaLintBrowser.package/SL2TestMapper.class/instance/buildCategoryTree..st new file mode 100644 index 00000000..fa7b314f --- /dev/null +++ b/packages/SwaLintBrowser.package/SL2TestMapper.class/instance/buildCategoryTree..st @@ -0,0 +1,18 @@ +mapping - categories +buildCategoryTree: categories + + | allCategories pendingCategories | + allCategories := Dictionary withAll: categories. + pendingCategories := OrderedCollection withAll: categories. + [pendingCategories isEmpty] whileFalse: + [| category | + category := pendingCategories removeFirst. + allCategories at: category path put: category. + category path size > 1 ifTrue: + [| parentPath | + parentPath := category path allButLast. + category parent: + (allCategories at: parentPath ifAbsentPut: + [pendingCategories addLast: + (self makeCategoryWithPath: parentPath)])]]. + ^ allCategories \ No newline at end of file diff --git a/packages/SwaLintBrowser.package/SL2TestMapper.class/instance/buildTest..st b/packages/SwaLintBrowser.package/SL2TestMapper.class/instance/buildTest..st new file mode 100644 index 00000000..160181a8 --- /dev/null +++ b/packages/SwaLintBrowser.package/SL2TestMapper.class/instance/buildTest..st @@ -0,0 +1,5 @@ +mapping - tests +buildTest: aTest + + aTest categoryPaths: nil. "this essentially changes the role of a test from a prototype to a final test" + ^ aTest \ No newline at end of file diff --git a/packages/SwaLintBrowser.package/SL2TestMapper.class/instance/createCategories.st b/packages/SwaLintBrowser.package/SL2TestMapper.class/instance/createCategories.st new file mode 100644 index 00000000..cbee049f --- /dev/null +++ b/packages/SwaLintBrowser.package/SL2TestMapper.class/instance/createCategories.st @@ -0,0 +1,13 @@ +mapping +createCategories + + | categories category | + categories := Dictionary new. + self testCategoryPragmas do: [:pragma | + category := self perform: pragma selector. + categories + at: category path + ifPresent: [self error: 'multiple category definitions'] + ifAbsentPut: [category]. + category mapper: pragma method]. + ^ categories \ No newline at end of file diff --git a/packages/SwaLintBrowser.package/SL2TestMapper.class/instance/makeCategoryWithPath..st b/packages/SwaLintBrowser.package/SL2TestMapper.class/instance/makeCategoryWithPath..st new file mode 100644 index 00000000..c5d5fb61 --- /dev/null +++ b/packages/SwaLintBrowser.package/SL2TestMapper.class/instance/makeCategoryWithPath..st @@ -0,0 +1,4 @@ +creation +makeCategoryWithPath: categoryPath + + ^ self testCategoryClass newWithPath: categoryPath \ No newline at end of file diff --git a/packages/SwaLintBrowser.package/SL2TestMapper.class/instance/makeTestFrom..st b/packages/SwaLintBrowser.package/SL2TestMapper.class/instance/makeTestFrom..st new file mode 100644 index 00000000..b4c10e20 --- /dev/null +++ b/packages/SwaLintBrowser.package/SL2TestMapper.class/instance/makeTestFrom..st @@ -0,0 +1,8 @@ +creation +makeTestFrom: aSLTestData + + ^ (self basicMakeTestFrom: aSLTestData) + title: aSLTestData name; + addCategoryPath: {'(legacy structure)'. aSLTestData category}; + description: aSLTestData description; + yourself \ No newline at end of file diff --git a/packages/SwaLintBrowser.package/SL2TestMapper.class/instance/mapBasicTestFrom..st b/packages/SwaLintBrowser.package/SL2TestMapper.class/instance/mapBasicTestFrom..st new file mode 100644 index 00000000..8972592f --- /dev/null +++ b/packages/SwaLintBrowser.package/SL2TestMapper.class/instance/mapBasicTestFrom..st @@ -0,0 +1,24 @@ +mapping - tests +mapBasicTestFrom: aSLTestData + + | pragmas pragma test starMaps | + pragmas := self testPragmas select: [:ea | (ea argumentAt: 1) = aSLTestData key]. + + pragmas size > 1 ifTrue: [self error: 'multiple maps for test']. + pragmas ifNotEmpty: + [pragma := pragmas anyOne. + test := self perform: pragma selector with: aSLTestData. + test ifNil: [^ nil]. + test mapper: pragma method. + ^ test]. + + starMaps := self testStarPragmas + collect: [:starPragma | starPragma -> (self perform: starPragma selector with: aSLTestData)] + thenSelect: [:starMap | starMap value notNil]. + starMaps size > 1 ifTrue: [self error: 'multiple star maps for test']. + starMaps ifNotEmpty: + [test := starMaps anyOne value. + test mapper: starMaps anyOne key. + ^ test]. + + ^ self makeTestFrom: aSLTestData \ No newline at end of file diff --git a/packages/SwaLintBrowser.package/SL2TestMapper.class/instance/mapBasicTestsFrom..st b/packages/SwaLintBrowser.package/SL2TestMapper.class/instance/mapBasicTestsFrom..st new file mode 100644 index 00000000..0e0aad57 --- /dev/null +++ b/packages/SwaLintBrowser.package/SL2TestMapper.class/instance/mapBasicTestsFrom..st @@ -0,0 +1,14 @@ +mapping - tests +mapBasicTestsFrom: aSLDefaultEnvironment + + | tests unusedMappers | + tests := aSLDefaultEnvironment testCategories gather: [:category | + ((aSLDefaultEnvironment testsAtCategory: category) collect: [:testData | + self mapTestFrom: testData]) + copyWithout: nil]. + unusedMappers := ((self testPragmas , self testStarPragmas) + select: [:pragma | (pragma method hasLiteral: nil) not "yeah..."] + thenCollect: #selector) + copyWithoutAll: (tests collect: [:test | test mapper ifNotNil: #selector]). + self assert: unusedMappers isEmpty description: 'Unused mappers found!'. + ^ tests \ No newline at end of file diff --git a/packages/SwaLintBrowser.package/SL2TestMapper.class/instance/mapTestFrom..st b/packages/SwaLintBrowser.package/SL2TestMapper.class/instance/mapTestFrom..st new file mode 100644 index 00000000..0ddbda7b --- /dev/null +++ b/packages/SwaLintBrowser.package/SL2TestMapper.class/instance/mapTestFrom..st @@ -0,0 +1,11 @@ +mapping +mapTestFrom: aSLTestData + + | test | + test := self mapBasicTestFrom: aSLTestData. + test ifNil: [^ nil]. + + (test categoryPaths reject: [:path | path beginsWith: #('(legacy structure)')]) ifEmpty: + [test addCategoryPath: #('uncategorized')]. + + ^ test \ No newline at end of file diff --git a/packages/SwaLintBrowser.package/SL2TestMapper.class/instance/mapTestsFrom..st b/packages/SwaLintBrowser.package/SL2TestMapper.class/instance/mapTestsFrom..st new file mode 100644 index 00000000..4efc3d98 --- /dev/null +++ b/packages/SwaLintBrowser.package/SL2TestMapper.class/instance/mapTestsFrom..st @@ -0,0 +1,19 @@ +mapping +mapTestsFrom: aSLDefaultEnvironment + + | categories tests | + tests := self mapBasicTestsFrom: aSLDefaultEnvironment. + categories := self createCategories. + tests := tests collect: [:test | + test categoryPaths ifEmpty: [self error: 'uncategorized test']. + test categories: + (test categoryPaths collect: [:path | + categories at: path ifAbsentPut: [self makeCategoryWithPath: path]]). + self buildTest: test]. + self buildCategoryTree: categories. + + tests do: [:test | + test categories do: [:cat | + self haltIf: [cat path size = 1 and: cat sortKey isNil]]]. + + ^ tests \ No newline at end of file diff --git a/packages/SwaLintBrowser.package/SL2TestMapper.class/instance/testCategoryClass.st b/packages/SwaLintBrowser.package/SL2TestMapper.class/instance/testCategoryClass.st new file mode 100644 index 00000000..517e3173 --- /dev/null +++ b/packages/SwaLintBrowser.package/SL2TestMapper.class/instance/testCategoryClass.st @@ -0,0 +1,4 @@ +private +testCategoryClass + + ^ SL2TestCategory \ No newline at end of file diff --git a/packages/SwaLintBrowser.package/SL2TestMapper.class/instance/testCategoryPragmas.st b/packages/SwaLintBrowser.package/SL2TestMapper.class/instance/testCategoryPragmas.st new file mode 100644 index 00000000..7be53413 --- /dev/null +++ b/packages/SwaLintBrowser.package/SL2TestMapper.class/instance/testCategoryPragmas.st @@ -0,0 +1,4 @@ +private +testCategoryPragmas + + ^ Pragma allNamed: #sl2TestCategory from: self class to: thisContext methodClass \ No newline at end of file diff --git a/packages/SwaLintBrowser.package/SL2TestMapper.class/instance/testClass.st b/packages/SwaLintBrowser.package/SL2TestMapper.class/instance/testClass.st new file mode 100644 index 00000000..0d3b2ae3 --- /dev/null +++ b/packages/SwaLintBrowser.package/SL2TestMapper.class/instance/testClass.st @@ -0,0 +1,4 @@ +private +testClass + + ^ SL2Test \ No newline at end of file diff --git a/packages/SwaLintBrowser.package/SL2TestMapper.class/instance/testPragmas.st b/packages/SwaLintBrowser.package/SL2TestMapper.class/instance/testPragmas.st new file mode 100644 index 00000000..a515b6cc --- /dev/null +++ b/packages/SwaLintBrowser.package/SL2TestMapper.class/instance/testPragmas.st @@ -0,0 +1,4 @@ +private +testPragmas + + ^ Pragma allNamed: #sl2Test: from: self class to: thisContext methodClass \ No newline at end of file diff --git a/packages/SwaLintBrowser.package/SL2TestMapper.class/instance/testStarPragmas.st b/packages/SwaLintBrowser.package/SL2TestMapper.class/instance/testStarPragmas.st new file mode 100644 index 00000000..ed637f0a --- /dev/null +++ b/packages/SwaLintBrowser.package/SL2TestMapper.class/instance/testStarPragmas.st @@ -0,0 +1,4 @@ +private +testStarPragmas + + ^ Pragma allNamed: #sl2Test from: self class to: thisContext methodClass \ No newline at end of file diff --git a/packages/SwaLintBrowser.package/SL2TestMapper.class/methodProperties.json b/packages/SwaLintBrowser.package/SL2TestMapper.class/methodProperties.json new file mode 100644 index 00000000..b88c86e7 --- /dev/null +++ b/packages/SwaLintBrowser.package/SL2TestMapper.class/methodProperties.json @@ -0,0 +1,20 @@ +{ + "class" : { + "mapTestsFrom:" : "ct 12/12/2024 04:14" }, + "instance" : { + "assert:description:" : "ct 1/4/2025 23:41", + "basicMakeTestFrom:" : "ct 12/18/2024 00:01", + "buildCategoryTree:" : "ct 12/18/2024 22:03", + "buildTest:" : "ct 12/18/2024 00:02", + "createCategories" : "ct 1/4/2025 21:33", + "makeCategoryWithPath:" : "ct 12/17/2024 23:47", + "makeTestFrom:" : "ct 12/18/2024 00:01", + "mapBasicTestFrom:" : "ct 12/19/2024 21:17", + "mapBasicTestsFrom:" : "ct 12/19/2024 05:04", + "mapTestFrom:" : "ct 12/19/2024 05:31", + "mapTestsFrom:" : "ct 12/18/2024 22:35", + "testCategoryClass" : "ct 12/17/2024 23:47", + "testCategoryPragmas" : "ct 12/17/2024 23:53", + "testClass" : "ct 12/12/2024 04:13", + "testPragmas" : "ct 12/13/2024 00:47", + "testStarPragmas" : "ct 12/19/2024 04:57" } } diff --git a/packages/SwaLintBrowser.package/SL2TestMapper.class/properties.json b/packages/SwaLintBrowser.package/SL2TestMapper.class/properties.json new file mode 100644 index 00000000..ad043ada --- /dev/null +++ b/packages/SwaLintBrowser.package/SL2TestMapper.class/properties.json @@ -0,0 +1,14 @@ +{ + "category" : "SwaLintBrowser-Core", + "classinstvars" : [ + ], + "classvars" : [ + ], + "commentStamp" : "ct 12/19/2024 21:21", + "instvars" : [ + ], + "name" : "SL2TestMapper", + "pools" : [ + ], + "super" : "Object", + "type" : "normal" } diff --git a/packages/SwaLintBrowser.package/SLClassTestObject.extension/instance/asSL2ResultFor.with..st b/packages/SwaLintBrowser.package/SLClassTestObject.extension/instance/asSL2ResultFor.with..st new file mode 100644 index 00000000..71fa51f5 --- /dev/null +++ b/packages/SwaLintBrowser.package/SLClassTestObject.extension/instance/asSL2ResultFor.with..st @@ -0,0 +1,7 @@ +*SwaLintBrowser-Core-converting +asSL2ResultFor: aSL2Test with: resultData + + ^ SL2ClassResult + newFor: self testObject + test: aSL2Test + resultData: resultData \ No newline at end of file diff --git a/packages/SwaLintBrowser.package/SLClassTestObject.extension/methodProperties.json b/packages/SwaLintBrowser.package/SLClassTestObject.extension/methodProperties.json new file mode 100644 index 00000000..c478919c --- /dev/null +++ b/packages/SwaLintBrowser.package/SLClassTestObject.extension/methodProperties.json @@ -0,0 +1,5 @@ +{ + "class" : { + }, + "instance" : { + "asSL2ResultFor:with:" : "ct 12/12/2024 05:43" } } diff --git a/packages/SwaLintBrowser.package/SLClassTestObject.extension/properties.json b/packages/SwaLintBrowser.package/SLClassTestObject.extension/properties.json new file mode 100644 index 00000000..85605951 --- /dev/null +++ b/packages/SwaLintBrowser.package/SLClassTestObject.extension/properties.json @@ -0,0 +1,2 @@ +{ + "name" : "SLClassTestObject" } diff --git a/packages/SwaLintBrowser.package/SLErrorResult.extension/instance/asSL2ResultsFor..st b/packages/SwaLintBrowser.package/SLErrorResult.extension/instance/asSL2ResultsFor..st new file mode 100644 index 00000000..4ce37d50 --- /dev/null +++ b/packages/SwaLintBrowser.package/SLErrorResult.extension/instance/asSL2ResultsFor..st @@ -0,0 +1,5 @@ +*SwaLintBrowser-Core-converting +asSL2ResultsFor: aSL2Test + + ^ super asSL2ResultsFor: aSL2Test + "^ {SL2GlobalResult newForTest: aSL2Test resultData: self}" \ No newline at end of file diff --git a/packages/SwaLintBrowser.package/SLErrorResult.extension/methodProperties.json b/packages/SwaLintBrowser.package/SLErrorResult.extension/methodProperties.json new file mode 100644 index 00000000..f27c5360 --- /dev/null +++ b/packages/SwaLintBrowser.package/SLErrorResult.extension/methodProperties.json @@ -0,0 +1,5 @@ +{ + "class" : { + }, + "instance" : { + "asSL2ResultsFor:" : "ct 12/17/2024 23:03" } } diff --git a/packages/SwaLintBrowser.package/SLErrorResult.extension/properties.json b/packages/SwaLintBrowser.package/SLErrorResult.extension/properties.json new file mode 100644 index 00000000..6936e24e --- /dev/null +++ b/packages/SwaLintBrowser.package/SLErrorResult.extension/properties.json @@ -0,0 +1,2 @@ +{ + "name" : "SLErrorResult" } diff --git a/packages/SwaLintBrowser.package/SLMethodTestObject.extension/instance/asSL2ResultFor.with..st b/packages/SwaLintBrowser.package/SLMethodTestObject.extension/instance/asSL2ResultFor.with..st new file mode 100644 index 00000000..6af4d8a5 --- /dev/null +++ b/packages/SwaLintBrowser.package/SLMethodTestObject.extension/instance/asSL2ResultFor.with..st @@ -0,0 +1,7 @@ +*SwaLintBrowser-Core-converting +asSL2ResultFor: aSL2Test with: resultData + + ^ SL2MethodResult + newFor: self testObject + test: aSL2Test + resultData: resultData \ No newline at end of file diff --git a/packages/SwaLintBrowser.package/SLMethodTestObject.extension/methodProperties.json b/packages/SwaLintBrowser.package/SLMethodTestObject.extension/methodProperties.json new file mode 100644 index 00000000..912c7f4c --- /dev/null +++ b/packages/SwaLintBrowser.package/SLMethodTestObject.extension/methodProperties.json @@ -0,0 +1,5 @@ +{ + "class" : { + }, + "instance" : { + "asSL2ResultFor:with:" : "ct 12/19/2024 20:04" } } diff --git a/packages/SwaLintBrowser.package/SLMethodTestObject.extension/properties.json b/packages/SwaLintBrowser.package/SLMethodTestObject.extension/properties.json new file mode 100644 index 00000000..07a6321e --- /dev/null +++ b/packages/SwaLintBrowser.package/SLMethodTestObject.extension/properties.json @@ -0,0 +1,2 @@ +{ + "name" : "SLMethodTestObject" } diff --git a/packages/SwaLintBrowser.package/SLResult.extension/instance/asSL2ResultsFor..st b/packages/SwaLintBrowser.package/SLResult.extension/instance/asSL2ResultsFor..st new file mode 100644 index 00000000..d6488c32 --- /dev/null +++ b/packages/SwaLintBrowser.package/SLResult.extension/instance/asSL2ResultsFor..st @@ -0,0 +1,4 @@ +*SwaLintBrowser-Core-converting +asSL2ResultsFor: aSL2Test + + ^ {self testObject asSL2ResultFor: aSL2Test with: self} \ No newline at end of file diff --git a/packages/SwaLintBrowser.package/SLResult.extension/methodProperties.json b/packages/SwaLintBrowser.package/SLResult.extension/methodProperties.json new file mode 100644 index 00000000..d5db5c49 --- /dev/null +++ b/packages/SwaLintBrowser.package/SLResult.extension/methodProperties.json @@ -0,0 +1,5 @@ +{ + "class" : { + }, + "instance" : { + "asSL2ResultsFor:" : "ct 12/12/2024 05:24" } } diff --git a/packages/SwaLintBrowser.package/SLResult.extension/properties.json b/packages/SwaLintBrowser.package/SLResult.extension/properties.json new file mode 100644 index 00000000..6acc3808 --- /dev/null +++ b/packages/SwaLintBrowser.package/SLResult.extension/properties.json @@ -0,0 +1,2 @@ +{ + "name" : "SLResult" } diff --git a/packages/SwaLintBrowser.package/SLSummaryResult.extension/instance/asSL2ResultsFor..st b/packages/SwaLintBrowser.package/SLSummaryResult.extension/instance/asSL2ResultsFor..st new file mode 100644 index 00000000..f77129ab --- /dev/null +++ b/packages/SwaLintBrowser.package/SLSummaryResult.extension/instance/asSL2ResultsFor..st @@ -0,0 +1,24 @@ +*SwaLintBrowser-Core-converting +asSL2ResultsFor: aSL2Test + + ^ Array streamContents: [:stream | + self testObject isClass ifTrue: + [(self testObject instanceMethods , self testObject classMethods) + select: [:testMethod | self selectForSummary: testMethod] + thenDo: [:testMethod | + stream nextPut: + (testMethod asSL2ResultFor: aSL2Test with: + (testMethod resultOf: self summarizedTest))]. + (self testObject variables + anySatisfy: [:variable | self selectForSummary: variable]) + ifTrue: + [stream nextPut: + (self testObject asSL2ResultFor: aSL2Test with: self)]]. + + self testObject isSystem ifTrue: + [(self testObject allClasses , self testObject categories) + select: [:each | self selectForSummary: each] + thenDo: [:each | + stream nextPut: + (each asSL2ResultFor: aSL2Test with: + (each resultOf: self summarizedTest))]]] \ No newline at end of file diff --git a/packages/SwaLintBrowser.package/SLSummaryResult.extension/methodProperties.json b/packages/SwaLintBrowser.package/SLSummaryResult.extension/methodProperties.json new file mode 100644 index 00000000..194614fc --- /dev/null +++ b/packages/SwaLintBrowser.package/SLSummaryResult.extension/methodProperties.json @@ -0,0 +1,5 @@ +{ + "class" : { + }, + "instance" : { + "asSL2ResultsFor:" : "ct 12/21/2024 19:47" } } diff --git a/packages/SwaLintBrowser.package/SLSummaryResult.extension/properties.json b/packages/SwaLintBrowser.package/SLSummaryResult.extension/properties.json new file mode 100644 index 00000000..4b04e580 --- /dev/null +++ b/packages/SwaLintBrowser.package/SLSummaryResult.extension/properties.json @@ -0,0 +1,2 @@ +{ + "name" : "SLSummaryResult" } diff --git a/packages/SwaLintBrowser.package/SLSystemTestObject.extension/instance/asSL2ResultFor.with..st b/packages/SwaLintBrowser.package/SLSystemTestObject.extension/instance/asSL2ResultFor.with..st new file mode 100644 index 00000000..0656b7f8 --- /dev/null +++ b/packages/SwaLintBrowser.package/SLSystemTestObject.extension/instance/asSL2ResultFor.with..st @@ -0,0 +1,4 @@ +*SwaLintBrowser-Core-converting +asSL2ResultFor: aSL2Test with: resultData + + ^ SL2GlobalResult newForTest: aSL2Test resultData: resultData \ No newline at end of file diff --git a/packages/SwaLintBrowser.package/SLSystemTestObject.extension/methodProperties.json b/packages/SwaLintBrowser.package/SLSystemTestObject.extension/methodProperties.json new file mode 100644 index 00000000..5877732e --- /dev/null +++ b/packages/SwaLintBrowser.package/SLSystemTestObject.extension/methodProperties.json @@ -0,0 +1,5 @@ +{ + "class" : { + }, + "instance" : { + "asSL2ResultFor:with:" : "ct 12/17/2024 22:04" } } diff --git a/packages/SwaLintBrowser.package/SLSystemTestObject.extension/properties.json b/packages/SwaLintBrowser.package/SLSystemTestObject.extension/properties.json new file mode 100644 index 00000000..6f50a460 --- /dev/null +++ b/packages/SwaLintBrowser.package/SLSystemTestObject.extension/properties.json @@ -0,0 +1,2 @@ +{ + "name" : "SLSystemTestObject" } diff --git a/packages/SwaLintBrowser.package/SwaLintBrowser.class/README.md b/packages/SwaLintBrowser.package/SwaLintBrowser.class/README.md new file mode 100644 index 00000000..e69de29b diff --git a/packages/SwaLintBrowser.package/SwaLintBrowser.class/class/appName.st b/packages/SwaLintBrowser.package/SwaLintBrowser.class/class/appName.st new file mode 100644 index 00000000..335bc5b6 --- /dev/null +++ b/packages/SwaLintBrowser.package/SwaLintBrowser.class/class/appName.st @@ -0,0 +1,4 @@ +constants +appName + + ^ 'SwaLint Browser' \ No newline at end of file diff --git a/packages/SwaLintBrowser.package/SwaLintBrowser.class/class/initialize.st b/packages/SwaLintBrowser.package/SwaLintBrowser.class/class/initialize.st new file mode 100644 index 00000000..3a6f2fee --- /dev/null +++ b/packages/SwaLintBrowser.package/SwaLintBrowser.class/class/initialize.st @@ -0,0 +1,4 @@ +initialize-release +initialize + + self registerInWorldMenu. \ No newline at end of file diff --git a/packages/SwaLintBrowser.package/SwaLintBrowser.class/class/open.st b/packages/SwaLintBrowser.package/SwaLintBrowser.class/class/open.st new file mode 100644 index 00000000..a8c7714b --- /dev/null +++ b/packages/SwaLintBrowser.package/SwaLintBrowser.class/class/open.st @@ -0,0 +1,4 @@ +opening +open + + ^ self new openChooseTarget \ No newline at end of file diff --git a/packages/SwaLintBrowser.package/SwaLintBrowser.class/class/openOnTarget..st b/packages/SwaLintBrowser.package/SwaLintBrowser.class/class/openOnTarget..st new file mode 100644 index 00000000..a68b55e3 --- /dev/null +++ b/packages/SwaLintBrowser.package/SwaLintBrowser.class/class/openOnTarget..st @@ -0,0 +1,6 @@ +opening +openOnTarget: aTarget + + ^ self new + target: aTarget; + openWithTarget \ No newline at end of file diff --git a/packages/SwaLintBrowser.package/SwaLintBrowser.class/class/registerInWorldMenu.st b/packages/SwaLintBrowser.package/SwaLintBrowser.class/class/registerInWorldMenu.st new file mode 100644 index 00000000..ecb03006 --- /dev/null +++ b/packages/SwaLintBrowser.package/SwaLintBrowser.class/class/registerInWorldMenu.st @@ -0,0 +1,4 @@ +initialize-release +registerInWorldMenu + + TheWorldMenu registerOpenCommand: {self appName. {self. #open}}. \ No newline at end of file diff --git a/packages/SwaLintBrowser.package/SwaLintBrowser.class/class/unload.st b/packages/SwaLintBrowser.package/SwaLintBrowser.class/class/unload.st new file mode 100644 index 00000000..ad29517a --- /dev/null +++ b/packages/SwaLintBrowser.package/SwaLintBrowser.class/class/unload.st @@ -0,0 +1,4 @@ +initialize-release +unload + + self unregisterInWorldMenu. \ No newline at end of file diff --git a/packages/SwaLintBrowser.package/SwaLintBrowser.class/class/unregisterInWorldMenu.st b/packages/SwaLintBrowser.package/SwaLintBrowser.class/class/unregisterInWorldMenu.st new file mode 100644 index 00000000..e29376e9 --- /dev/null +++ b/packages/SwaLintBrowser.package/SwaLintBrowser.class/class/unregisterInWorldMenu.st @@ -0,0 +1,4 @@ +initialize-release +unregisterInWorldMenu + + TheWorldMenu unregisterOpenCommand: self appName. \ No newline at end of file diff --git a/packages/SwaLintBrowser.package/SwaLintBrowser.class/instance/addModelItemsToWindowMenu..st b/packages/SwaLintBrowser.package/SwaLintBrowser.class/instance/addModelItemsToWindowMenu..st new file mode 100644 index 00000000..276e81d7 --- /dev/null +++ b/packages/SwaLintBrowser.package/SwaLintBrowser.class/instance/addModelItemsToWindowMenu..st @@ -0,0 +1,5 @@ +menus +addModelItemsToWindowMenu: menu + + menu addLine. + self settingsMenu: menu. \ No newline at end of file diff --git a/packages/SwaLintBrowser.package/SwaLintBrowser.class/instance/aspectDependencies.st b/packages/SwaLintBrowser.package/SwaLintBrowser.class/instance/aspectDependencies.st new file mode 100644 index 00000000..a66aee1a --- /dev/null +++ b/packages/SwaLintBrowser.package/SwaLintBrowser.class/instance/aspectDependencies.st @@ -0,0 +1,9 @@ +updating +aspectDependencies + + ^ Dictionary new + "Model" + at: #windowTitle put: #(#labelString); + "CodeHolder" + at: #contents put: #(selectedMessage); + yourself \ No newline at end of file diff --git a/packages/SwaLintBrowser.package/SwaLintBrowser.class/instance/authorFilterLabel.st b/packages/SwaLintBrowser.package/SwaLintBrowser.class/instance/authorFilterLabel.st new file mode 100644 index 00000000..4fb0584d --- /dev/null +++ b/packages/SwaLintBrowser.package/SwaLintBrowser.class/instance/authorFilterLabel.st @@ -0,0 +1,4 @@ +accessing - toolbuilder +authorFilterLabel + + ^ 'Author' \ No newline at end of file diff --git a/packages/SwaLintBrowser.package/SwaLintBrowser.class/instance/basicHelpForMessage..st b/packages/SwaLintBrowser.package/SwaLintBrowser.class/instance/basicHelpForMessage..st new file mode 100644 index 00000000..6a8531eb --- /dev/null +++ b/packages/SwaLintBrowser.package/SwaLintBrowser.class/instance/basicHelpForMessage..st @@ -0,0 +1,10 @@ +accessing - toolbuilder +basicHelpForMessage: message + + | selector method | + Preferences balloonHelpInMessageLists ifFalse: [^ nil]. + + selector := (Symbol lookup: message) ifNil: [^ nil]. + method := self selectedClassOrMetaClass compiledMethodAt: selector ifAbsent: [^ nil]. + + ^ self messageHelpForMethod: method \ No newline at end of file diff --git a/packages/SwaLintBrowser.package/SwaLintBrowser.class/instance/browseSelectedTestNode.st b/packages/SwaLintBrowser.package/SwaLintBrowser.class/instance/browseSelectedTestNode.st new file mode 100644 index 00000000..17d0fd11 --- /dev/null +++ b/packages/SwaLintBrowser.package/SwaLintBrowser.class/instance/browseSelectedTestNode.st @@ -0,0 +1,6 @@ +actions +browseSelectedTestNode + + | testNode | + testNode := self selectedTestNode ifNil: [^ self changed: #flash]. + ^ testNode browse \ No newline at end of file diff --git a/packages/SwaLintBrowser.package/SwaLintBrowser.class/instance/browseSelectedTestNodeMapper.st b/packages/SwaLintBrowser.package/SwaLintBrowser.class/instance/browseSelectedTestNodeMapper.st new file mode 100644 index 00000000..067fdb57 --- /dev/null +++ b/packages/SwaLintBrowser.package/SwaLintBrowser.class/instance/browseSelectedTestNodeMapper.st @@ -0,0 +1,6 @@ +actions +browseSelectedTestNodeMapper + + | testNode | + testNode := self selectedTestNode ifNil: [^ self changed: #flash]. + ^ testNode browseMapper \ No newline at end of file diff --git a/packages/SwaLintBrowser.package/SwaLintBrowser.class/instance/buildClassList..st b/packages/SwaLintBrowser.package/SwaLintBrowser.class/instance/buildClassList..st new file mode 100644 index 00000000..2842ed25 --- /dev/null +++ b/packages/SwaLintBrowser.package/SwaLintBrowser.class/instance/buildClassList..st @@ -0,0 +1,15 @@ +toolbuilder +buildClassList: builder + + ^ builder pluggableListSpec new + name: #classList; + model: self; + + list: #classLabels; + getIndex: #selectedClassIndex; + setIndex: #selectClassIndex:; + + menu: #classListMenu:shifted:; + keyPress: #classListKey:from:; + + yourself \ No newline at end of file diff --git a/packages/SwaLintBrowser.package/SwaLintBrowser.class/instance/buildControlBar..st b/packages/SwaLintBrowser.package/SwaLintBrowser.class/instance/buildControlBar..st new file mode 100644 index 00000000..fcfe0681 --- /dev/null +++ b/packages/SwaLintBrowser.package/SwaLintBrowser.class/instance/buildControlBar..st @@ -0,0 +1,37 @@ +toolbuilder +buildControlBar: builder + + ^ builder pluggablePanelSpec new + layout: #horizontal; + children: + (OrderedCollection new + add: + (builder pluggableActionButtonSpec new + model: self; + label: #targetLabel; + action: #changeTarget; + yourself); + "add: + (builder pluggableButtonSpec new + model: self; + state: #hasDateFilterLabel; + label: #dateFilterLabel; + action: #changeDateFilter; + yourself); + add: + (builder pluggableActionButtonSpec new + model: self; + state: #hasAuthorFilterLabel; + label: #authorFilterLabel; + action: #changeAuthorFilter; + yourself); + add: builder pluggableSpacerSpec new;" + add: + (builder pluggableButtonSpec new + model: self; + label: 'Settings'; + style: #menuButton; + action: #offerSettingsMenu; + yourself); + yourself); + yourself \ No newline at end of file diff --git a/packages/SwaLintBrowser.package/SwaLintBrowser.class/instance/buildMessageList..st b/packages/SwaLintBrowser.package/SwaLintBrowser.class/instance/buildMessageList..st new file mode 100644 index 00000000..21500e99 --- /dev/null +++ b/packages/SwaLintBrowser.package/SwaLintBrowser.class/instance/buildMessageList..st @@ -0,0 +1,16 @@ +toolbuilder +buildMessageList: builder + + ^ builder pluggableListSpec new + name: #messageList; + model: self; + + list: #messageLabels; + getIndex: #selectedMessageIndex; + setIndex: #selectMessageIndex:; + helpItem: #helpForMessageAt:; + + menu: #messageListMenu:shifted:; + keyPress: #messageListKey:from:; + + yourself \ No newline at end of file diff --git a/packages/SwaLintBrowser.package/SwaLintBrowser.class/instance/buildTestPane..st b/packages/SwaLintBrowser.package/SwaLintBrowser.class/instance/buildTestPane..st new file mode 100644 index 00000000..e8b058bd --- /dev/null +++ b/packages/SwaLintBrowser.package/SwaLintBrowser.class/instance/buildTestPane..st @@ -0,0 +1,10 @@ +toolbuilder +buildTestPane: builder + + ^ builder pluggableTextSpec new + name: #testPane; + model: self; + + getText: #testText; + + yourself \ No newline at end of file diff --git a/packages/SwaLintBrowser.package/SwaLintBrowser.class/instance/buildTestTree..st b/packages/SwaLintBrowser.package/SwaLintBrowser.class/instance/buildTestTree..st new file mode 100644 index 00000000..5ed1428d --- /dev/null +++ b/packages/SwaLintBrowser.package/SwaLintBrowser.class/instance/buildTestTree..st @@ -0,0 +1,25 @@ +toolbuilder +buildTestTree: builder + + ^ builder pluggableTreeSpec new + name: #testTree; + model: self; + + roots: #testRootPaths; + label: #labelForTestNodePath:; + getChildren: #childrenForTestNodePath:; + getSelected: #selectedTestNodePath; + setSelected: #selectTestNodePath:; + help: #helpForTestNodePath:; + + menu: #testNodeMenu:; + keyPress: #testTreeKey:from:; + + in: [:spec | + ">= Squeak 6.1" + (spec respondsTo: #filterMode:) ifTrue: + [spec filterMode: #all]. + (spec respondsTo: #autoExpand:) ifTrue: + [spec autoExpand: #testTreeExpanded]]; + + yourself \ No newline at end of file diff --git a/packages/SwaLintBrowser.package/SwaLintBrowser.class/instance/buildWith..st b/packages/SwaLintBrowser.package/SwaLintBrowser.class/instance/buildWith..st new file mode 100644 index 00000000..030ac913 --- /dev/null +++ b/packages/SwaLintBrowser.package/SwaLintBrowser.class/instance/buildWith..st @@ -0,0 +1,33 @@ +toolbuilder +buildWith: builder + + | windowSpec | + windowSpec := self buildWindowWith: builder specs: + {LayoutFrame fullFrame + bottomFraction: 0; + bottomOffset: self buttonBarHeight; + -> [self buildControlBar: builder]. + LayoutFrame fullFrame + topOffset: self buttonBarHeight; + bottomFraction: 2 / 5; + rightFraction: 1 / 3; + -> [self buildTestTree: builder]. + LayoutFrame fullFrame + topOffset: self buttonBarHeight; + bottomFraction: 2 / 5; + leftFraction: 1 / 3; + rightFraction: 2 / 3; + -> [self buildClassList: builder]. + LayoutFrame fullFrame + topOffset: self buttonBarHeight; + bottomFraction: 2 / 5; + leftFraction: 2 / 3; + -> [self buildMessageList: builder]. + LayoutFrame fullFrame + topFraction: 2 / 5; + bottomFraction: 4 / 5; + -> [self buildCodePaneWith: builder]. + LayoutFrame fullFrame + topFraction: 4 / 5; + -> [self buildTestPane: builder]}. + ^ builder build: windowSpec \ No newline at end of file diff --git a/packages/SwaLintBrowser.package/SwaLintBrowser.class/instance/buttonBarHeight.st b/packages/SwaLintBrowser.package/SwaLintBrowser.class/instance/buttonBarHeight.st new file mode 100644 index 00000000..4069cde6 --- /dev/null +++ b/packages/SwaLintBrowser.package/SwaLintBrowser.class/instance/buttonBarHeight.st @@ -0,0 +1,4 @@ +toolbuilder - accessing +buttonBarHeight + + ^ ToolBuilder default buttonRowHeight \ No newline at end of file diff --git a/packages/SwaLintBrowser.package/SwaLintBrowser.class/instance/cached..st b/packages/SwaLintBrowser.package/SwaLintBrowser.class/instance/cached..st new file mode 100644 index 00000000..d3d5c038 --- /dev/null +++ b/packages/SwaLintBrowser.package/SwaLintBrowser.class/instance/cached..st @@ -0,0 +1,4 @@ +private +cached: aBlock + + ^ caches at: aBlock method ifAbsentPut: aBlock \ No newline at end of file diff --git a/packages/SwaLintBrowser.package/SwaLintBrowser.class/instance/changeTarget.st b/packages/SwaLintBrowser.package/SwaLintBrowser.class/instance/changeTarget.st new file mode 100644 index 00000000..b312b255 --- /dev/null +++ b/packages/SwaLintBrowser.package/SwaLintBrowser.class/instance/changeTarget.st @@ -0,0 +1,6 @@ +actions +changeTarget + + self target editModally ifFalse: [^ self]. + self changed: #target. + self runTests. \ No newline at end of file diff --git a/packages/SwaLintBrowser.package/SwaLintBrowser.class/instance/changed..st b/packages/SwaLintBrowser.package/SwaLintBrowser.class/instance/changed..st new file mode 100644 index 00000000..d37384b4 --- /dev/null +++ b/packages/SwaLintBrowser.package/SwaLintBrowser.class/instance/changed..st @@ -0,0 +1,11 @@ +updating +changed: aspect + + super changed: aspect. + + caches keys do: [:key | + ((self pragmaAspectDependencies at: key selector) includes: aspect) ifTrue: + [caches removeKey: key]]. + + (self dependentAspectsOn: aspect) + do: [:dependentAspect | self changedDependent: dependentAspect]. \ No newline at end of file diff --git a/packages/SwaLintBrowser.package/SwaLintBrowser.class/instance/childrenForTestCategory..st b/packages/SwaLintBrowser.package/SwaLintBrowser.class/instance/childrenForTestCategory..st new file mode 100644 index 00000000..90c19778 --- /dev/null +++ b/packages/SwaLintBrowser.package/SwaLintBrowser.class/instance/childrenForTestCategory..st @@ -0,0 +1,9 @@ +accessing - toolbuilder +childrenForTestCategory: aTestCategory + + | categories leaves | + categories := (self displayedTestCategories select: [:category | category parent == aTestCategory]) + sorted: #sortKey ascending undefinedLast , #anyTitle ascending. + leaves := (self displayedTests select: [:test | test categories includes: aTestCategory]) + sorted: #title ascending. + ^ categories , leaves \ No newline at end of file diff --git a/packages/SwaLintBrowser.package/SwaLintBrowser.class/instance/childrenForTestNode..st b/packages/SwaLintBrowser.package/SwaLintBrowser.class/instance/childrenForTestNode..st new file mode 100644 index 00000000..03ed9013 --- /dev/null +++ b/packages/SwaLintBrowser.package/SwaLintBrowser.class/instance/childrenForTestNode..st @@ -0,0 +1,7 @@ +accessing - toolbuilder +childrenForTestNode: node + + + (node ifNil: ["hacked!"^ #()]) isCategory ifFalse: [^ #()]. + + ^ self childrenForTestCategory: node \ No newline at end of file diff --git a/packages/SwaLintBrowser.package/SwaLintBrowser.class/instance/childrenForTestNodePath..st b/packages/SwaLintBrowser.package/SwaLintBrowser.class/instance/childrenForTestNodePath..st new file mode 100644 index 00000000..3e5fc5c3 --- /dev/null +++ b/packages/SwaLintBrowser.package/SwaLintBrowser.class/instance/childrenForTestNodePath..st @@ -0,0 +1,6 @@ +accessing - toolbuilder - test tree objects +childrenForTestNodePath: path + + + ^ (self childrenForTestNode: (self testNodeForPath: path)) + collect: [:childNode | self testNodePathFor: childNode parent: path] \ No newline at end of file diff --git a/packages/SwaLintBrowser.package/SwaLintBrowser.class/instance/chooseTarget.st b/packages/SwaLintBrowser.package/SwaLintBrowser.class/instance/chooseTarget.st new file mode 100644 index 00000000..683c3ef2 --- /dev/null +++ b/packages/SwaLintBrowser.package/SwaLintBrowser.class/instance/chooseTarget.st @@ -0,0 +1,7 @@ +actions +chooseTarget + + | newTarget | + newTarget := self targetClass fromUserOrCancel: [^ false]. + self target: newTarget. + ^ true \ No newline at end of file diff --git a/packages/SwaLintBrowser.package/SwaLintBrowser.class/instance/classLabels.st b/packages/SwaLintBrowser.package/SwaLintBrowser.class/instance/classLabels.st new file mode 100644 index 00000000..6578ee09 --- /dev/null +++ b/packages/SwaLintBrowser.package/SwaLintBrowser.class/instance/classLabels.st @@ -0,0 +1,7 @@ +accessing - toolbuilder +classLabels + + + ^ self cached: + [self classes collect: [:class | + self labelForClass: class]] \ No newline at end of file diff --git a/packages/SwaLintBrowser.package/SwaLintBrowser.class/instance/classListMenu..st b/packages/SwaLintBrowser.package/SwaLintBrowser.class/instance/classListMenu..st new file mode 100644 index 00000000..18c73f0b --- /dev/null +++ b/packages/SwaLintBrowser.package/SwaLintBrowser.class/instance/classListMenu..st @@ -0,0 +1,27 @@ +menus +classListMenu: aMenu + + aMenu addList: #( + - + ('browse full (b)' browseMethodFull) + ('browse hierarchy (h)' spawnHierarchy) + ('browse protocol (p)' browseFullProtocol) + ('browse documentation' browseAllCommentsForClass) + - + ('printOut' printOutClass) + ('fileOut' fileOutClass) + - + ('show hierarchy' hierarchy) + ('show definition' editClass) + ('show comment' editComment) + - + ('references... (r)' browseVariableReferences) + ('assignments... (a)' browseVariableAssignments) + ('class refs (N)' browseClassRefs) + - + ('rename class ...' renameClass) + ('copy class' copyClass) + ('remove class (x)' removeClass) + - + ('find method...' findMethod)). + ^ aMenu \ No newline at end of file diff --git a/packages/SwaLintBrowser.package/SwaLintBrowser.class/instance/classListMenu.shifted..st b/packages/SwaLintBrowser.package/SwaLintBrowser.class/instance/classListMenu.shifted..st new file mode 100644 index 00000000..a3e486db --- /dev/null +++ b/packages/SwaLintBrowser.package/SwaLintBrowser.class/instance/classListMenu.shifted..st @@ -0,0 +1,4 @@ +menus +classListMenu: aMenu shifted: shifted + + ^ self menu: aMenu for: #(classListMenu classListMenuShifted:) shifted: shifted \ No newline at end of file diff --git a/packages/SwaLintBrowser.package/SwaLintBrowser.class/instance/classListMenuMore..st b/packages/SwaLintBrowser.package/SwaLintBrowser.class/instance/classListMenuMore..st new file mode 100644 index 00000000..64f5788b --- /dev/null +++ b/packages/SwaLintBrowser.package/SwaLintBrowser.class/instance/classListMenuMore..st @@ -0,0 +1,5 @@ +menus +classListMenuMore: aMenu + + + ^ aMenu addList: #(- ('more...' offerShiftedClassListMenu)); yourself \ No newline at end of file diff --git a/packages/SwaLintBrowser.package/SwaLintBrowser.class/instance/classes.st b/packages/SwaLintBrowser.package/SwaLintBrowser.class/instance/classes.st new file mode 100644 index 00000000..3735fc09 --- /dev/null +++ b/packages/SwaLintBrowser.package/SwaLintBrowser.class/instance/classes.st @@ -0,0 +1,7 @@ +accessing +classes + + + ^ (self resultsForTestSelection + collect: [:result | result classObject] as: Set) + sorted: #name ascending \ No newline at end of file diff --git a/packages/SwaLintBrowser.package/SwaLintBrowser.class/instance/contents.notifying..st b/packages/SwaLintBrowser.package/SwaLintBrowser.class/instance/contents.notifying..st new file mode 100644 index 00000000..18c8cd9d --- /dev/null +++ b/packages/SwaLintBrowser.package/SwaLintBrowser.class/instance/contents.notifying..st @@ -0,0 +1,6 @@ +accessing - toolbuilder +contents: input notifying: aController + + ^ (super contents: input notifying: aController) + ifTrue: [self changed: #messageLabels]; + yourself \ No newline at end of file diff --git a/packages/SwaLintBrowser.package/SwaLintBrowser.class/instance/copySelectedTestName.st b/packages/SwaLintBrowser.package/SwaLintBrowser.class/instance/copySelectedTestName.st new file mode 100644 index 00000000..fe9e8ed4 --- /dev/null +++ b/packages/SwaLintBrowser.package/SwaLintBrowser.class/instance/copySelectedTestName.st @@ -0,0 +1,4 @@ +actions +copySelectedTestName + + Clipboard clipboardText: (self selectedTestNode ifNil: [^ self changed: #flash]) uniqueTitle. \ No newline at end of file diff --git a/packages/SwaLintBrowser.package/SwaLintBrowser.class/instance/dateFilterLabel.st b/packages/SwaLintBrowser.package/SwaLintBrowser.class/instance/dateFilterLabel.st new file mode 100644 index 00000000..0b99c358 --- /dev/null +++ b/packages/SwaLintBrowser.package/SwaLintBrowser.class/instance/dateFilterLabel.st @@ -0,0 +1,4 @@ +accessing - toolbuilder +dateFilterLabel + + ^ 'Date' \ No newline at end of file diff --git a/packages/SwaLintBrowser.package/SwaLintBrowser.class/instance/defaultShouldDisplayAllTests.st b/packages/SwaLintBrowser.package/SwaLintBrowser.class/instance/defaultShouldDisplayAllTests.st new file mode 100644 index 00000000..fa4ec4cf --- /dev/null +++ b/packages/SwaLintBrowser.package/SwaLintBrowser.class/instance/defaultShouldDisplayAllTests.st @@ -0,0 +1,4 @@ +initialize-release +defaultShouldDisplayAllTests + + ^ false \ No newline at end of file diff --git a/packages/SwaLintBrowser.package/SwaLintBrowser.class/instance/defaultWindowColor.st b/packages/SwaLintBrowser.package/SwaLintBrowser.class/instance/defaultWindowColor.st new file mode 100644 index 00000000..04efcce0 --- /dev/null +++ b/packages/SwaLintBrowser.package/SwaLintBrowser.class/instance/defaultWindowColor.st @@ -0,0 +1,4 @@ +toolbuilder - accessing +defaultWindowColor + + ^ self uniformWindowColor \ No newline at end of file diff --git a/packages/SwaLintBrowser.package/SwaLintBrowser.class/instance/deleteSelectedResults.st b/packages/SwaLintBrowser.package/SwaLintBrowser.class/instance/deleteSelectedResults.st new file mode 100644 index 00000000..f6e98cfa --- /dev/null +++ b/packages/SwaLintBrowser.package/SwaLintBrowser.class/instance/deleteSelectedResults.st @@ -0,0 +1,10 @@ +actions +deleteSelectedResults + + | messageIndex | + messageIndex := self selectedMessageIndex. + + self results removeAll: self resultsForTestAndMessageSelection. + self changed: #results. + + self selectMessageIndex: (messageIndex clampHigh: self messages size). \ No newline at end of file diff --git a/packages/SwaLintBrowser.package/SwaLintBrowser.class/instance/displayedResults.st b/packages/SwaLintBrowser.package/SwaLintBrowser.class/instance/displayedResults.st new file mode 100644 index 00000000..eb31cb17 --- /dev/null +++ b/packages/SwaLintBrowser.package/SwaLintBrowser.class/instance/displayedResults.st @@ -0,0 +1,6 @@ +accessing +displayedResults + + + self shouldDisplayAllTests ifTrue: [^ self results]. + ^ self results reject: [:result | result isError] \ No newline at end of file diff --git a/packages/SwaLintBrowser.package/SwaLintBrowser.class/instance/displayedTestCategories.st b/packages/SwaLintBrowser.package/SwaLintBrowser.class/instance/displayedTestCategories.st new file mode 100644 index 00000000..e32f40f0 --- /dev/null +++ b/packages/SwaLintBrowser.package/SwaLintBrowser.class/instance/displayedTestCategories.st @@ -0,0 +1,6 @@ +accessing +displayedTestCategories + + ^ (self displayedTests gather: [:test | + test categories gather: [:category | category withAllParents]]) + asSet \ No newline at end of file diff --git a/packages/SwaLintBrowser.package/SwaLintBrowser.class/instance/displayedTests.st b/packages/SwaLintBrowser.package/SwaLintBrowser.class/instance/displayedTests.st new file mode 100644 index 00000000..1169591a --- /dev/null +++ b/packages/SwaLintBrowser.package/SwaLintBrowser.class/instance/displayedTests.st @@ -0,0 +1,8 @@ +accessing +displayedTests + + + ^ self cached: + [self shouldDisplayAllTests + ifTrue: [self tests] + ifFalse: [self displayedResults collect: #test as: Set]] \ No newline at end of file diff --git a/packages/SwaLintBrowser.package/SwaLintBrowser.class/instance/exploreSelectedResults.st b/packages/SwaLintBrowser.package/SwaLintBrowser.class/instance/exploreSelectedResults.st new file mode 100644 index 00000000..bfdba8ce --- /dev/null +++ b/packages/SwaLintBrowser.package/SwaLintBrowser.class/instance/exploreSelectedResults.st @@ -0,0 +1,5 @@ +actions +exploreSelectedResults + + ^ self resultsForTestAndMessageSelection + exploreWithLabel: ('SwaLint results for {1}' format: {self selectedMessageName}) \ No newline at end of file diff --git a/packages/SwaLintBrowser.package/SwaLintBrowser.class/instance/hasMessageSelected.st b/packages/SwaLintBrowser.package/SwaLintBrowser.class/instance/hasMessageSelected.st new file mode 100644 index 00000000..03121e35 --- /dev/null +++ b/packages/SwaLintBrowser.package/SwaLintBrowser.class/instance/hasMessageSelected.st @@ -0,0 +1,4 @@ +testing +hasMessageSelected + + ^ self selectedMessageName notNil \ No newline at end of file diff --git a/packages/SwaLintBrowser.package/SwaLintBrowser.class/instance/hasMethodSelected.st b/packages/SwaLintBrowser.package/SwaLintBrowser.class/instance/hasMethodSelected.st new file mode 100644 index 00000000..75013998 --- /dev/null +++ b/packages/SwaLintBrowser.package/SwaLintBrowser.class/instance/hasMethodSelected.st @@ -0,0 +1,6 @@ +testing +hasMethodSelected + + self hasMessageSelected ifFalse: [^ false]. + self selectedMessageName isSymbol ifFalse: [^ false]. + ^ (#(Comment Definition Hierarchy) includes: self selectedMessageName) not \ No newline at end of file diff --git a/packages/SwaLintBrowser.package/SwaLintBrowser.class/instance/hasRealClassSelected.st b/packages/SwaLintBrowser.package/SwaLintBrowser.class/instance/hasRealClassSelected.st new file mode 100644 index 00000000..5b76f5f3 --- /dev/null +++ b/packages/SwaLintBrowser.package/SwaLintBrowser.class/instance/hasRealClassSelected.st @@ -0,0 +1,4 @@ +testing +hasRealClassSelected + + ^ self selectedClass notNil and: [self selectedClass isString not] \ No newline at end of file diff --git a/packages/SwaLintBrowser.package/SwaLintBrowser.class/instance/hasTestGroupSelected.st b/packages/SwaLintBrowser.package/SwaLintBrowser.class/instance/hasTestGroupSelected.st new file mode 100644 index 00000000..a9ab0a7a --- /dev/null +++ b/packages/SwaLintBrowser.package/SwaLintBrowser.class/instance/hasTestGroupSelected.st @@ -0,0 +1,4 @@ +testing +hasTestGroupSelected + + ^ self selectedTestNode isCategory \ No newline at end of file diff --git a/packages/SwaLintBrowser.package/SwaLintBrowser.class/instance/hasTestNodeSelected.st b/packages/SwaLintBrowser.package/SwaLintBrowser.class/instance/hasTestNodeSelected.st new file mode 100644 index 00000000..61e65420 --- /dev/null +++ b/packages/SwaLintBrowser.package/SwaLintBrowser.class/instance/hasTestNodeSelected.st @@ -0,0 +1,4 @@ +testing +hasTestNodeSelected + + ^ self selectedTestNode notNil \ No newline at end of file diff --git a/packages/SwaLintBrowser.package/SwaLintBrowser.class/instance/hasTestSelected.st b/packages/SwaLintBrowser.package/SwaLintBrowser.class/instance/hasTestSelected.st new file mode 100644 index 00000000..e8d6aab0 --- /dev/null +++ b/packages/SwaLintBrowser.package/SwaLintBrowser.class/instance/hasTestSelected.st @@ -0,0 +1,4 @@ +testing +hasTestSelected + + ^ self hasTestNodeSelected and: [self hasTestGroupSelected not] \ No newline at end of file diff --git a/packages/SwaLintBrowser.package/SwaLintBrowser.class/instance/helpForMessage..st b/packages/SwaLintBrowser.package/SwaLintBrowser.class/instance/helpForMessage..st new file mode 100644 index 00000000..2405f83d --- /dev/null +++ b/packages/SwaLintBrowser.package/SwaLintBrowser.class/instance/helpForMessage..st @@ -0,0 +1,10 @@ +accessing - toolbuilder +helpForMessage: message + + | help | + help := [self basicHelpForMessage: message] ifError: [nil]. + + (self isMessageOutOfSync: message) ifTrue: + [help := 'This method has been changed after running the rests. You can press the Run button to update the results.' asTextFromHtml , + (help isEmptyOrNil ifTrue: [''] ifFalse: [String cr , String cr , help])]. + ^ help \ No newline at end of file diff --git a/packages/SwaLintBrowser.package/SwaLintBrowser.class/instance/helpForMessageAt..st b/packages/SwaLintBrowser.package/SwaLintBrowser.class/instance/helpForMessageAt..st new file mode 100644 index 00000000..c1784c81 --- /dev/null +++ b/packages/SwaLintBrowser.package/SwaLintBrowser.class/instance/helpForMessageAt..st @@ -0,0 +1,4 @@ +accessing - toolbuilder +helpForMessageAt: index + + ^ self helpForMessage: (self messages at: index ifAbsent: [^ nil]) \ No newline at end of file diff --git a/packages/SwaLintBrowser.package/SwaLintBrowser.class/instance/helpForTestNode..st b/packages/SwaLintBrowser.package/SwaLintBrowser.class/instance/helpForTestNode..st new file mode 100644 index 00000000..e01abf4f --- /dev/null +++ b/packages/SwaLintBrowser.package/SwaLintBrowser.class/instance/helpForTestNode..st @@ -0,0 +1,6 @@ +accessing - toolbuilder +helpForTestNode: node + + node isCategory ifFalse: [^ self labelForTestNode: node]. + + ^ nil \ No newline at end of file diff --git a/packages/SwaLintBrowser.package/SwaLintBrowser.class/instance/helpForTestNodePath..st b/packages/SwaLintBrowser.package/SwaLintBrowser.class/instance/helpForTestNodePath..st new file mode 100644 index 00000000..03074ccd --- /dev/null +++ b/packages/SwaLintBrowser.package/SwaLintBrowser.class/instance/helpForTestNodePath..st @@ -0,0 +1,4 @@ +accessing - toolbuilder - test tree objects +helpForTestNodePath: path + + ^ self helpForTestNode: (self testNodeForPath: path) \ No newline at end of file diff --git a/packages/SwaLintBrowser.package/SwaLintBrowser.class/instance/initialize.st b/packages/SwaLintBrowser.package/SwaLintBrowser.class/instance/initialize.st new file mode 100644 index 00000000..68b588a3 --- /dev/null +++ b/packages/SwaLintBrowser.package/SwaLintBrowser.class/instance/initialize.st @@ -0,0 +1,8 @@ +initialize-release +initialize + + super initialize. + + caches := IdentityDictionary new. + + self shouldDisplayAllTests: self defaultShouldDisplayAllTests. \ No newline at end of file diff --git a/packages/SwaLintBrowser.package/SwaLintBrowser.class/instance/inspectSelectedTestNode.st b/packages/SwaLintBrowser.package/SwaLintBrowser.class/instance/inspectSelectedTestNode.st new file mode 100644 index 00000000..e9ffb4f8 --- /dev/null +++ b/packages/SwaLintBrowser.package/SwaLintBrowser.class/instance/inspectSelectedTestNode.st @@ -0,0 +1,6 @@ +actions +inspectSelectedTestNode + + | testNode | + testNode := self selectedTestNode ifNil: [^ self changed: #flash]. + ^ testNode inspect \ No newline at end of file diff --git a/packages/SwaLintBrowser.package/SwaLintBrowser.class/instance/isMessageOutOfSync..st b/packages/SwaLintBrowser.package/SwaLintBrowser.class/instance/isMessageOutOfSync..st new file mode 100644 index 00000000..f4624e46 --- /dev/null +++ b/packages/SwaLintBrowser.package/SwaLintBrowser.class/instance/isMessageOutOfSync..st @@ -0,0 +1,4 @@ +private +isMessageOutOfSync: message + + ^ (self resultsForTestAndClassSelectionAndMessage: message) anySatisfy: [:result | result isOutOfSync] \ No newline at end of file diff --git a/packages/SwaLintBrowser.package/SwaLintBrowser.class/instance/labelForClass..st b/packages/SwaLintBrowser.package/SwaLintBrowser.class/instance/labelForClass..st new file mode 100644 index 00000000..8049682b --- /dev/null +++ b/packages/SwaLintBrowser.package/SwaLintBrowser.class/instance/labelForClass..st @@ -0,0 +1,7 @@ +accessing - toolbuilder +labelForClass: aClass + + | count label | + label := aClass asString. + count := (self resultsForTestSelectionAndClass: aClass) size. + ^ '{1} ({2})' format: {label. count} \ No newline at end of file diff --git a/packages/SwaLintBrowser.package/SwaLintBrowser.class/instance/labelForMessage..st b/packages/SwaLintBrowser.package/SwaLintBrowser.class/instance/labelForMessage..st new file mode 100644 index 00000000..29fd29fb --- /dev/null +++ b/packages/SwaLintBrowser.package/SwaLintBrowser.class/instance/labelForMessage..st @@ -0,0 +1,16 @@ +accessing - toolbuilder +labelForMessage: message + + | label messageResults count | + label := message asString. + messageResults := self resultsForTestAndClassSelectionAndMessage: message. + count := messageResults size. + count = 1 ifFalse: + [label := '{1} ({2})' format: {label. count}]. + + (messageResults anySatisfy: [:result | result isOutOfSync]) ifTrue: + [label := label asText + addAttribute: (TextColor color: Color gray); + yourself]. + + ^ label \ No newline at end of file diff --git a/packages/SwaLintBrowser.package/SwaLintBrowser.class/instance/labelForTestNode..st b/packages/SwaLintBrowser.package/SwaLintBrowser.class/instance/labelForTestNode..st new file mode 100644 index 00000000..2a61084f --- /dev/null +++ b/packages/SwaLintBrowser.package/SwaLintBrowser.class/instance/labelForTestNode..st @@ -0,0 +1,9 @@ +accessing - toolbuilder +labelForTestNode: node + + | count label | + label := node isCategory + ifTrue: [node anyTitle] + ifFalse: [node title]. + count := (self resultsForTestNode: node) size. + ^ '{1} ({2})' format: {label. count} \ No newline at end of file diff --git a/packages/SwaLintBrowser.package/SwaLintBrowser.class/instance/labelForTestNodePath..st b/packages/SwaLintBrowser.package/SwaLintBrowser.class/instance/labelForTestNodePath..st new file mode 100644 index 00000000..35e7bfe6 --- /dev/null +++ b/packages/SwaLintBrowser.package/SwaLintBrowser.class/instance/labelForTestNodePath..st @@ -0,0 +1,4 @@ +accessing - toolbuilder - test tree objects +labelForTestNodePath: path + + ^ self labelForTestNode: (self testNodeForPath: path) \ No newline at end of file diff --git a/packages/SwaLintBrowser.package/SwaLintBrowser.class/instance/labelString.st b/packages/SwaLintBrowser.package/SwaLintBrowser.class/instance/labelString.st new file mode 100644 index 00000000..c45f650a --- /dev/null +++ b/packages/SwaLintBrowser.package/SwaLintBrowser.class/instance/labelString.st @@ -0,0 +1,4 @@ +accessing +labelString + + ^ self class appName \ No newline at end of file diff --git a/packages/SwaLintBrowser.package/SwaLintBrowser.class/instance/mainMessageListMenu..st b/packages/SwaLintBrowser.package/SwaLintBrowser.class/instance/mainMessageListMenu..st new file mode 100644 index 00000000..8996d65d --- /dev/null +++ b/packages/SwaLintBrowser.package/SwaLintBrowser.class/instance/mainMessageListMenu..st @@ -0,0 +1,33 @@ +menus +mainMessageListMenu: aMenu + + + ^ aMenu + addTranslatedList: #( + ('what to show...' offerWhatToShowMenu)); + add: (self isBreakOnEntry ifTrue: [''] ifFalse: ['']) , 'break on entry' translated + action: #toggleBreakOnEntry; + addTranslatedList: #( + - + ('browse full (b)' browseMethodFull) + ('browse hierarchy (h)' browseClassHierarchy) + ('browse protocol (p)' browseFullProtocol) + - + ('fileOut' fileOutMessage) + ('printOut' printOutMessage) + ('copy selector (c)' copySelector) + ('copy reference (C)' copyReference) + - + ('senders of... (n)' browseSendersOfMessages) + ('implementors of... (m)' browseMessages) + ('inheritance (i)' methodHierarchy) + ('versions (v)' browseVersions) + - + ('references... (r)' browseVariableReferences) + ('assignments... (a)' browseVariableAssignments) + ('class refs (N)' browseClassRefs) + - + ('remove method (x)' removeMessage) + ('explore method' exploreMethod) + ('inspect method' inspectMethod)); + yourself \ No newline at end of file diff --git a/packages/SwaLintBrowser.package/SwaLintBrowser.class/instance/messageIconHelpFor..st b/packages/SwaLintBrowser.package/SwaLintBrowser.class/instance/messageIconHelpFor..st new file mode 100644 index 00000000..e16943bb --- /dev/null +++ b/packages/SwaLintBrowser.package/SwaLintBrowser.class/instance/messageIconHelpFor..st @@ -0,0 +1,8 @@ +accessing - toolbuilder +messageIconHelpFor: aSelector + + self class showMessageIcons ifFalse: [^ String empty]. + + ^ ToolIconHelp iconHelpNamed: (ToolIcons + iconForClass: self selectedClassOrMetaClass + selector: aSelector) \ No newline at end of file diff --git a/packages/SwaLintBrowser.package/SwaLintBrowser.class/instance/messageLabels.st b/packages/SwaLintBrowser.package/SwaLintBrowser.class/instance/messageLabels.st new file mode 100644 index 00000000..c75fa150 --- /dev/null +++ b/packages/SwaLintBrowser.package/SwaLintBrowser.class/instance/messageLabels.st @@ -0,0 +1,6 @@ +accessing - toolbuilder +messageLabels + + + ^ self messages collect: [:message | + self labelForMessage: message] \ No newline at end of file diff --git a/packages/SwaLintBrowser.package/SwaLintBrowser.class/instance/messageListMenu.shifted..st b/packages/SwaLintBrowser.package/SwaLintBrowser.class/instance/messageListMenu.shifted..st new file mode 100644 index 00000000..03ef9c33 --- /dev/null +++ b/packages/SwaLintBrowser.package/SwaLintBrowser.class/instance/messageListMenu.shifted..st @@ -0,0 +1,10 @@ +menus +messageListMenu: aMenu shifted: shifted + + | menu | + menu := aMenu. + menu := self messageResultMenu: menu. + self hasMethodSelected ifTrue: + [aMenu addLine. + menu := self menu: aMenu for: #(messageListMenu messageListMenuShifted:) shifted: shifted]. + ^ menu \ No newline at end of file diff --git a/packages/SwaLintBrowser.package/SwaLintBrowser.class/instance/messageResultMenu..st b/packages/SwaLintBrowser.package/SwaLintBrowser.class/instance/messageResultMenu..st new file mode 100644 index 00000000..599e27e8 --- /dev/null +++ b/packages/SwaLintBrowser.package/SwaLintBrowser.class/instance/messageResultMenu..st @@ -0,0 +1,7 @@ +menus +messageResultMenu: aMenu + + ^ aMenu + add: 'explore results' action: #exploreSelectedResults; + add: 'delete from results (d)' action: #deleteSelectedResults; + yourself \ No newline at end of file diff --git a/packages/SwaLintBrowser.package/SwaLintBrowser.class/instance/messages.st b/packages/SwaLintBrowser.package/SwaLintBrowser.class/instance/messages.st new file mode 100644 index 00000000..adfbc279 --- /dev/null +++ b/packages/SwaLintBrowser.package/SwaLintBrowser.class/instance/messages.st @@ -0,0 +1,7 @@ +accessing - toolbuilder +messages + + + ^ (self resultsForTestAndClassSelection + collect: [:result | result message] as: Set) + sorted \ No newline at end of file diff --git a/packages/SwaLintBrowser.package/SwaLintBrowser.class/instance/offerMenu..st b/packages/SwaLintBrowser.package/SwaLintBrowser.class/instance/offerMenu..st new file mode 100644 index 00000000..bf68f8bf --- /dev/null +++ b/packages/SwaLintBrowser.package/SwaLintBrowser.class/instance/offerMenu..st @@ -0,0 +1,10 @@ +toolbuilder +offerMenu: menuBlock + + | builder menu | + self flag: #workaround. "PluggableMenuButtonSpec would be much nicer, but it's not yet live ..." + self flag: #workaround. "PluggableMenuSpec would still be a bit nicer but is not fully compatible with MenuMorph." + builder := ToolBuilder default. + menu := builder menuClass new. + menu := menuBlock value: menu. + ^ builder runModal: (builder open: menu) \ No newline at end of file diff --git a/packages/SwaLintBrowser.package/SwaLintBrowser.class/instance/offerSettingsMenu.st b/packages/SwaLintBrowser.package/SwaLintBrowser.class/instance/offerSettingsMenu.st new file mode 100644 index 00000000..e619c4c1 --- /dev/null +++ b/packages/SwaLintBrowser.package/SwaLintBrowser.class/instance/offerSettingsMenu.st @@ -0,0 +1,4 @@ +actions +offerSettingsMenu + + ^ self offerMenu: [:menu | self settingsMenu: menu] \ No newline at end of file diff --git a/packages/SwaLintBrowser.package/SwaLintBrowser.class/instance/open.st b/packages/SwaLintBrowser.package/SwaLintBrowser.class/instance/open.st new file mode 100644 index 00000000..48e70961 --- /dev/null +++ b/packages/SwaLintBrowser.package/SwaLintBrowser.class/instance/open.st @@ -0,0 +1,4 @@ +toolbuilder - opening +open + + ^ ToolBuilder open: self \ No newline at end of file diff --git a/packages/SwaLintBrowser.package/SwaLintBrowser.class/instance/openChooseTarget.st b/packages/SwaLintBrowser.package/SwaLintBrowser.class/instance/openChooseTarget.st new file mode 100644 index 00000000..7e2de9b6 --- /dev/null +++ b/packages/SwaLintBrowser.package/SwaLintBrowser.class/instance/openChooseTarget.st @@ -0,0 +1,4 @@ +toolbuilder - opening +openChooseTarget + + ^ self chooseTarget ifTrue: [self openWithTarget] \ No newline at end of file diff --git a/packages/SwaLintBrowser.package/SwaLintBrowser.class/instance/openWithTarget.st b/packages/SwaLintBrowser.package/SwaLintBrowser.class/instance/openWithTarget.st new file mode 100644 index 00000000..6f507ead --- /dev/null +++ b/packages/SwaLintBrowser.package/SwaLintBrowser.class/instance/openWithTarget.st @@ -0,0 +1,5 @@ +toolbuilder - opening +openWithTarget + + self runTests. + ^ self open \ No newline at end of file diff --git a/packages/SwaLintBrowser.package/SwaLintBrowser.class/instance/removeMessage.st b/packages/SwaLintBrowser.package/SwaLintBrowser.class/instance/removeMessage.st new file mode 100644 index 00000000..696356e0 --- /dev/null +++ b/packages/SwaLintBrowser.package/SwaLintBrowser.class/instance/removeMessage.st @@ -0,0 +1,6 @@ +actions +removeMessage + + ^ super removeMessage + ifTrue: [contents := nil. self changed: #contents]; + yourself \ No newline at end of file diff --git a/packages/SwaLintBrowser.package/SwaLintBrowser.class/instance/removeMessageFromBrowser.st b/packages/SwaLintBrowser.package/SwaLintBrowser.class/instance/removeMessageFromBrowser.st new file mode 100644 index 00000000..77c61d7b --- /dev/null +++ b/packages/SwaLintBrowser.package/SwaLintBrowser.class/instance/removeMessageFromBrowser.st @@ -0,0 +1,5 @@ +menu commands +removeMessageFromBrowser + "Alias for keyboard shortcut." + + ^ self deleteSelectedResults \ No newline at end of file diff --git a/packages/SwaLintBrowser.package/SwaLintBrowser.class/instance/results..st b/packages/SwaLintBrowser.package/SwaLintBrowser.class/instance/results..st new file mode 100644 index 00000000..aec3c012 --- /dev/null +++ b/packages/SwaLintBrowser.package/SwaLintBrowser.class/instance/results..st @@ -0,0 +1,6 @@ +accessing +results: aCollection + + results := aCollection. + self selectTestNode: self selectedTestNode. "reselect to update other panes" + self changed: #results. \ No newline at end of file diff --git a/packages/SwaLintBrowser.package/SwaLintBrowser.class/instance/results.st b/packages/SwaLintBrowser.package/SwaLintBrowser.class/instance/results.st new file mode 100644 index 00000000..ccf712c4 --- /dev/null +++ b/packages/SwaLintBrowser.package/SwaLintBrowser.class/instance/results.st @@ -0,0 +1,4 @@ +accessing +results + + ^ results \ No newline at end of file diff --git a/packages/SwaLintBrowser.package/SwaLintBrowser.class/instance/resultsForTestAndClassSelection.st b/packages/SwaLintBrowser.package/SwaLintBrowser.class/instance/resultsForTestAndClassSelection.st new file mode 100644 index 00000000..af2b9505 --- /dev/null +++ b/packages/SwaLintBrowser.package/SwaLintBrowser.class/instance/resultsForTestAndClassSelection.st @@ -0,0 +1,4 @@ +accessing - toolbuilder +resultsForTestAndClassSelection + + ^ self resultsForTestSelectionAndClass: self selectedClass \ No newline at end of file diff --git a/packages/SwaLintBrowser.package/SwaLintBrowser.class/instance/resultsForTestAndClassSelectionAndMessage..st b/packages/SwaLintBrowser.package/SwaLintBrowser.class/instance/resultsForTestAndClassSelectionAndMessage..st new file mode 100644 index 00000000..55c0c6a2 --- /dev/null +++ b/packages/SwaLintBrowser.package/SwaLintBrowser.class/instance/resultsForTestAndClassSelectionAndMessage..st @@ -0,0 +1,5 @@ +accessing - toolbuilder +resultsForTestAndClassSelectionAndMessage: message + + ^ self resultsForTestAndClassSelection + select: [:result | result message = message] \ No newline at end of file diff --git a/packages/SwaLintBrowser.package/SwaLintBrowser.class/instance/resultsForTestAndMessageSelection.st b/packages/SwaLintBrowser.package/SwaLintBrowser.class/instance/resultsForTestAndMessageSelection.st new file mode 100644 index 00000000..b2a01719 --- /dev/null +++ b/packages/SwaLintBrowser.package/SwaLintBrowser.class/instance/resultsForTestAndMessageSelection.st @@ -0,0 +1,4 @@ +accessing - toolbuilder +resultsForTestAndMessageSelection + + ^ self resultsForTestAndClassSelectionAndMessage: self selectedMessageName \ No newline at end of file diff --git a/packages/SwaLintBrowser.package/SwaLintBrowser.class/instance/resultsForTestNode..st b/packages/SwaLintBrowser.package/SwaLintBrowser.class/instance/resultsForTestNode..st new file mode 100644 index 00000000..9cc2157b --- /dev/null +++ b/packages/SwaLintBrowser.package/SwaLintBrowser.class/instance/resultsForTestNode..st @@ -0,0 +1,7 @@ +accessing +resultsForTestNode: node + + ^ self displayedResults select: + (node isCategory + ifFalse: [[:result | result test == node]] + ifTrue: [[:result | result test categories anySatisfy: [:category | category includesCategory: node]]]) \ No newline at end of file diff --git a/packages/SwaLintBrowser.package/SwaLintBrowser.class/instance/resultsForTestSelection.st b/packages/SwaLintBrowser.package/SwaLintBrowser.class/instance/resultsForTestSelection.st new file mode 100644 index 00000000..07605cc8 --- /dev/null +++ b/packages/SwaLintBrowser.package/SwaLintBrowser.class/instance/resultsForTestSelection.st @@ -0,0 +1,8 @@ +accessing +resultsForTestSelection + + + ^ self cached: + [self hasTestNodeSelected + ifFalse: [self displayedResults] + ifTrue: [self resultsForTestNode: self selectedTestNode]] \ No newline at end of file diff --git a/packages/SwaLintBrowser.package/SwaLintBrowser.class/instance/resultsForTestSelectionAndClass..st b/packages/SwaLintBrowser.package/SwaLintBrowser.class/instance/resultsForTestSelectionAndClass..st new file mode 100644 index 00000000..50cb88c6 --- /dev/null +++ b/packages/SwaLintBrowser.package/SwaLintBrowser.class/instance/resultsForTestSelectionAndClass..st @@ -0,0 +1,5 @@ +accessing - toolbuilder +resultsForTestSelectionAndClass: aClass + + ^ self resultsForTestSelection + select: [:result | result classObject == aClass] \ No newline at end of file diff --git a/packages/SwaLintBrowser.package/SwaLintBrowser.class/instance/runTests.st b/packages/SwaLintBrowser.package/SwaLintBrowser.class/instance/runTests.st new file mode 100644 index 00000000..b433c454 --- /dev/null +++ b/packages/SwaLintBrowser.package/SwaLintBrowser.class/instance/runTests.st @@ -0,0 +1,8 @@ +private +runTests + + | testRunner | + testRunner := self runnerClass on: self target. + self tests: testRunner tests. + testRunner run. + self results: testRunner results asOrderedCollection. \ No newline at end of file diff --git a/packages/SwaLintBrowser.package/SwaLintBrowser.class/instance/runnerClass.st b/packages/SwaLintBrowser.package/SwaLintBrowser.class/instance/runnerClass.st new file mode 100644 index 00000000..bfa0303d --- /dev/null +++ b/packages/SwaLintBrowser.package/SwaLintBrowser.class/instance/runnerClass.st @@ -0,0 +1,4 @@ +accessing - private +runnerClass + + ^ SL2Runner \ No newline at end of file diff --git a/packages/SwaLintBrowser.package/SwaLintBrowser.class/instance/selectClass..st b/packages/SwaLintBrowser.package/SwaLintBrowser.class/instance/selectClass..st new file mode 100644 index 00000000..bea63fd3 --- /dev/null +++ b/packages/SwaLintBrowser.package/SwaLintBrowser.class/instance/selectClass..st @@ -0,0 +1,9 @@ +accessing - toolbuilder +selectClass: anObject + + selectedClass := anObject. + self selectMessageNamed: nil. + self changed: #selectedClass. + + "(self messages includes: self selectedMessageName) ifFalse: [self selectMessageNamed: nil]." + self selectMessageNamed: (self messages detect: [:message | (self isMessageOutOfSync: message) not] ifNone: [nil]). \ No newline at end of file diff --git a/packages/SwaLintBrowser.package/SwaLintBrowser.class/instance/selectClassIndex..st b/packages/SwaLintBrowser.package/SwaLintBrowser.class/instance/selectClassIndex..st new file mode 100644 index 00000000..b17d41dc --- /dev/null +++ b/packages/SwaLintBrowser.package/SwaLintBrowser.class/instance/selectClassIndex..st @@ -0,0 +1,4 @@ +accessing - toolbuilder +selectClassIndex: anInteger + + self selectClass: (anInteger = 0 ifFalse: [self classes at: anInteger]). \ No newline at end of file diff --git a/packages/SwaLintBrowser.package/SwaLintBrowser.class/instance/selectMessageIndex..st b/packages/SwaLintBrowser.package/SwaLintBrowser.class/instance/selectMessageIndex..st new file mode 100644 index 00000000..797faa3a --- /dev/null +++ b/packages/SwaLintBrowser.package/SwaLintBrowser.class/instance/selectMessageIndex..st @@ -0,0 +1,4 @@ +accessing - toolbuilder +selectMessageIndex: anInteger + + self selectMessageNamed: (anInteger = 0 ifFalse: [self messages at: anInteger]). \ No newline at end of file diff --git a/packages/SwaLintBrowser.package/SwaLintBrowser.class/instance/selectMessageNamed..st b/packages/SwaLintBrowser.package/SwaLintBrowser.class/instance/selectMessageNamed..st new file mode 100644 index 00000000..af697c6e --- /dev/null +++ b/packages/SwaLintBrowser.package/SwaLintBrowser.class/instance/selectMessageNamed..st @@ -0,0 +1,6 @@ +accessing - toolbuilder +selectMessageNamed: anObject + + selectedMessageName := anObject. + self setClass: self selectedClass selector: anObject. + self changed: #selectedMessageName. \ No newline at end of file diff --git a/packages/SwaLintBrowser.package/SwaLintBrowser.class/instance/selectTestNode..st b/packages/SwaLintBrowser.package/SwaLintBrowser.class/instance/selectTestNode..st new file mode 100644 index 00000000..6f6c0cf6 --- /dev/null +++ b/packages/SwaLintBrowser.package/SwaLintBrowser.class/instance/selectTestNode..st @@ -0,0 +1,5 @@ +accessing - toolbuilder +selectTestNode: node + + self selectTestNodePath: + (self testNodePathFor: node). \ No newline at end of file diff --git a/packages/SwaLintBrowser.package/SwaLintBrowser.class/instance/selectTestNodePath..st b/packages/SwaLintBrowser.package/SwaLintBrowser.class/instance/selectTestNodePath..st new file mode 100644 index 00000000..cfcb070e --- /dev/null +++ b/packages/SwaLintBrowser.package/SwaLintBrowser.class/instance/selectTestNodePath..st @@ -0,0 +1,5 @@ +accessing - toolbuilder +selectTestNodePath: path + + selectedTestNodePath := path. + self updateSelectedTestNode. \ No newline at end of file diff --git a/packages/SwaLintBrowser.package/SwaLintBrowser.class/instance/selectedClass.st b/packages/SwaLintBrowser.package/SwaLintBrowser.class/instance/selectedClass.st new file mode 100644 index 00000000..b85af2fc --- /dev/null +++ b/packages/SwaLintBrowser.package/SwaLintBrowser.class/instance/selectedClass.st @@ -0,0 +1,6 @@ +accessing - toolbuilder +selectedClass + + self flag: #todo. "required?" + + ^ selectedClass \ No newline at end of file diff --git a/packages/SwaLintBrowser.package/SwaLintBrowser.class/instance/selectedClassIndex.st b/packages/SwaLintBrowser.package/SwaLintBrowser.class/instance/selectedClassIndex.st new file mode 100644 index 00000000..eef4d3b8 --- /dev/null +++ b/packages/SwaLintBrowser.package/SwaLintBrowser.class/instance/selectedClassIndex.st @@ -0,0 +1,5 @@ +accessing - toolbuilder +selectedClassIndex + + + ^ self classes indexOf: self selectedClass ifAbsent: [0] \ No newline at end of file diff --git a/packages/SwaLintBrowser.package/SwaLintBrowser.class/instance/selectedClassOrMetaClass.st b/packages/SwaLintBrowser.package/SwaLintBrowser.class/instance/selectedClassOrMetaClass.st new file mode 100644 index 00000000..c61be22e --- /dev/null +++ b/packages/SwaLintBrowser.package/SwaLintBrowser.class/instance/selectedClassOrMetaClass.st @@ -0,0 +1,4 @@ +accessing +selectedClassOrMetaClass + + ^ self hasRealClassSelected ifTrue: [self selectedClass] \ No newline at end of file diff --git a/packages/SwaLintBrowser.package/SwaLintBrowser.class/instance/selectedMessage.st b/packages/SwaLintBrowser.package/SwaLintBrowser.class/instance/selectedMessage.st new file mode 100644 index 00000000..7d8104ec --- /dev/null +++ b/packages/SwaLintBrowser.package/SwaLintBrowser.class/instance/selectedMessage.st @@ -0,0 +1,16 @@ +accessing +selectedMessage + + + self hasMessageSelected ifFalse: [^ '']. + self selectedMessageName isSymbol ifFalse: + [^ self resultsForTestAndMessageSelection first valueStringOrText]. + self selectedMessageName = #Definition ifTrue: + [^ self selectedClass "ifNotNil:" "#"definition]. + + ^ super selectedMessage + ifEmpty: + [(self showingDecompile not and: [self selectedClassOrMetaClass notNil] and: [self selectedMessageName notNil]) ifTrue: + [self selectedClassOrMetaClass compiledMethodAt: self selectedMessageName ifAbsent: + [^ 'Missing']]]; + yourself \ No newline at end of file diff --git a/packages/SwaLintBrowser.package/SwaLintBrowser.class/instance/selectedMessageIndex.st b/packages/SwaLintBrowser.package/SwaLintBrowser.class/instance/selectedMessageIndex.st new file mode 100644 index 00000000..a048b133 --- /dev/null +++ b/packages/SwaLintBrowser.package/SwaLintBrowser.class/instance/selectedMessageIndex.st @@ -0,0 +1,5 @@ +accessing - toolbuilder +selectedMessageIndex + + + ^ self messages indexOf: self selectedMessageName ifAbsent: [0] \ No newline at end of file diff --git a/packages/SwaLintBrowser.package/SwaLintBrowser.class/instance/selectedMessageName.st b/packages/SwaLintBrowser.package/SwaLintBrowser.class/instance/selectedMessageName.st new file mode 100644 index 00000000..08b2cce6 --- /dev/null +++ b/packages/SwaLintBrowser.package/SwaLintBrowser.class/instance/selectedMessageName.st @@ -0,0 +1,6 @@ +accessing +selectedMessageName + + self flag: #todo. "required?" + + ^ selectedMessageName \ No newline at end of file diff --git a/packages/SwaLintBrowser.package/SwaLintBrowser.class/instance/selectedTestNode.st b/packages/SwaLintBrowser.package/SwaLintBrowser.class/instance/selectedTestNode.st new file mode 100644 index 00000000..d4e50e6a --- /dev/null +++ b/packages/SwaLintBrowser.package/SwaLintBrowser.class/instance/selectedTestNode.st @@ -0,0 +1,5 @@ +accessing - toolbuilder +selectedTestNode + + + ^ self testNodeForPath: self selectedTestNodePath \ No newline at end of file diff --git a/packages/SwaLintBrowser.package/SwaLintBrowser.class/instance/selectedTestNodePath.st b/packages/SwaLintBrowser.package/SwaLintBrowser.class/instance/selectedTestNodePath.st new file mode 100644 index 00000000..7f0a9e06 --- /dev/null +++ b/packages/SwaLintBrowser.package/SwaLintBrowser.class/instance/selectedTestNodePath.st @@ -0,0 +1,4 @@ +accessing - toolbuilder - test tree objects +selectedTestNodePath + + ^ selectedTestNodePath \ No newline at end of file diff --git a/packages/SwaLintBrowser.package/SwaLintBrowser.class/instance/setClass.selector..st b/packages/SwaLintBrowser.package/SwaLintBrowser.class/instance/setClass.selector..st new file mode 100644 index 00000000..7b0466f9 --- /dev/null +++ b/packages/SwaLintBrowser.package/SwaLintBrowser.class/instance/setClass.selector..st @@ -0,0 +1,12 @@ +private +setClass: aBehavior selector: aSymbol + + (aSymbol isSymbol not or: [#(Definition Comment) includes: aSymbol]) ifTrue: + [contents := currentCompiledMethod := nil. + self decorateButtons. + ^ self]. + aBehavior compiledMethodAt: aSymbol ifAbsent: + [contents := currentCompiledMethod := nil. + self decorateButtons. + ^ self]. + ^ super setClass: aBehavior selector: aSymbol \ No newline at end of file diff --git a/packages/SwaLintBrowser.package/SwaLintBrowser.class/instance/settingsMenu..st b/packages/SwaLintBrowser.package/SwaLintBrowser.class/instance/settingsMenu..st new file mode 100644 index 00000000..7e1894fd --- /dev/null +++ b/packages/SwaLintBrowser.package/SwaLintBrowser.class/instance/settingsMenu..st @@ -0,0 +1,5 @@ +menus +settingsMenu: menu + + SwaLint appMenu: menu. + ^ menu \ No newline at end of file diff --git a/packages/SwaLintBrowser.package/SwaLintBrowser.class/instance/shiftedClassListMenu..st b/packages/SwaLintBrowser.package/SwaLintBrowser.class/instance/shiftedClassListMenu..st new file mode 100644 index 00000000..2fb63d80 --- /dev/null +++ b/packages/SwaLintBrowser.package/SwaLintBrowser.class/instance/shiftedClassListMenu..st @@ -0,0 +1,20 @@ +menus +shiftedClassListMenu: aMenu + + ^ aMenu + addList: #( + - + ('local senders...' browseLocalSenders 'browse senders local to this class') + ('unsent methods' browseUnusedMethods 'browse all methods defined by this class that have no senders') + ('unreferenced inst vars' showUnreferencedInstVars 'show a list of all instance variables that are not referenced in methods') + ('unreferenced class vars' showUnreferencedClassVars 'show a list of all class variables that are not referenced in methods') + ('subclass template' makeNewSubclass 'put a template into the code pane for defining of a subclass of this class') + - + ('sample instance' makeSampleInstance 'give me a sample instance of this class, if possible') + ('inspect instances' inspectInstances 'open an inspector on all the extant instances of this class') + ('inspect subinstances' inspectSubInstances 'open an inspector on all the extant instances of this class and of all of its subclasses') + - + ('add all meths to current chgs' addAllMethodsToCurrentChangeSet + 'place all the methods defined by this class into the current change set') + ('create inst var accessors' createInstVarAccessors 'compile instance-variable access methods for any instance variables that do not yet have them')); + yourself \ No newline at end of file diff --git a/packages/SwaLintBrowser.package/SwaLintBrowser.class/instance/shiftedClassListMenuMore..st b/packages/SwaLintBrowser.package/SwaLintBrowser.class/instance/shiftedClassListMenuMore..st new file mode 100644 index 00000000..61754deb --- /dev/null +++ b/packages/SwaLintBrowser.package/SwaLintBrowser.class/instance/shiftedClassListMenuMore..st @@ -0,0 +1,7 @@ +menus +shiftedClassListMenuMore: aMenu + + + ^ aMenu addList: #(- + ('more...' offerUnshiftedClassListMenu 'return to the standard class-list menu')); + yourself \ No newline at end of file diff --git a/packages/SwaLintBrowser.package/SwaLintBrowser.class/instance/shiftedMessageListMenu..st b/packages/SwaLintBrowser.package/SwaLintBrowser.class/instance/shiftedMessageListMenu..st new file mode 100644 index 00000000..c21b5ef1 --- /dev/null +++ b/packages/SwaLintBrowser.package/SwaLintBrowser.class/instance/shiftedMessageListMenu..st @@ -0,0 +1,35 @@ +menus +shiftedMessageListMenu: aMenu + + "Fill aMenu with the items appropriate when the shift key is held down" + + aMenu addStayUpItem. + aMenu addList: #( + ('toggle diffing (D)' toggleDiffing) + ('implementors of sent messages' browseAllMessages) + - + ('local senders of...' browseLocalSendersOfMessages) + ('local implementors of...' browseLocalImplementors) + - + ('spawn sub-protocol' spawnProtocol) + ('spawn full protocol' spawnFullProtocol) + - + ('sample instance' makeSampleInstance) + ('inspect instances' inspectInstances) + ('inspect subinstances' inspectSubInstances)). + + aMenu addList: #( + - + ('change category...' changeCategory)). + + self canShowMultipleMessageCategories ifTrue: [aMenu addList: + #(('toggle category selection (Y)' showHomeCategory))]. + aMenu addList: #( + - + ('change sets with this method' findMethodInChangeSets) + ('revert to previous version' revertToPreviousVersion) + ('remove from current change set' removeFromCurrentChanges) + ('revert & remove from changes' revertAndForget) + ('add to current change set' adoptMessageInCurrentChangeset) + ('copy up or copy down...' copyUpOrCopyDown)). + ^ aMenu \ No newline at end of file diff --git a/packages/SwaLintBrowser.package/SwaLintBrowser.class/instance/shouldDisplayAllTests..st b/packages/SwaLintBrowser.package/SwaLintBrowser.class/instance/shouldDisplayAllTests..st new file mode 100644 index 00000000..d770bc90 --- /dev/null +++ b/packages/SwaLintBrowser.package/SwaLintBrowser.class/instance/shouldDisplayAllTests..st @@ -0,0 +1,5 @@ +accessing +shouldDisplayAllTests: aBoolean + + shouldDisplayAllTests := aBoolean. + self changed: #shouldDisplayAllTests. \ No newline at end of file diff --git a/packages/SwaLintBrowser.package/SwaLintBrowser.class/instance/shouldDisplayAllTests.st b/packages/SwaLintBrowser.package/SwaLintBrowser.class/instance/shouldDisplayAllTests.st new file mode 100644 index 00000000..46342bff --- /dev/null +++ b/packages/SwaLintBrowser.package/SwaLintBrowser.class/instance/shouldDisplayAllTests.st @@ -0,0 +1,4 @@ +accessing +shouldDisplayAllTests + + ^ shouldDisplayAllTests \ No newline at end of file diff --git a/packages/SwaLintBrowser.package/SwaLintBrowser.class/instance/target..st b/packages/SwaLintBrowser.package/SwaLintBrowser.class/instance/target..st new file mode 100644 index 00000000..d9025a9b --- /dev/null +++ b/packages/SwaLintBrowser.package/SwaLintBrowser.class/instance/target..st @@ -0,0 +1,5 @@ +accessing +target: aTarget + + target := aTarget. + self changed: #target. \ No newline at end of file diff --git a/packages/SwaLintBrowser.package/SwaLintBrowser.class/instance/target.st b/packages/SwaLintBrowser.package/SwaLintBrowser.class/instance/target.st new file mode 100644 index 00000000..66264783 --- /dev/null +++ b/packages/SwaLintBrowser.package/SwaLintBrowser.class/instance/target.st @@ -0,0 +1,4 @@ +accessing +target + + ^ target \ No newline at end of file diff --git a/packages/SwaLintBrowser.package/SwaLintBrowser.class/instance/targetClass.st b/packages/SwaLintBrowser.package/SwaLintBrowser.class/instance/targetClass.st new file mode 100644 index 00000000..7b4a1ff7 --- /dev/null +++ b/packages/SwaLintBrowser.package/SwaLintBrowser.class/instance/targetClass.st @@ -0,0 +1,4 @@ +accessing - private +targetClass + + ^ SL2Target \ No newline at end of file diff --git a/packages/SwaLintBrowser.package/SwaLintBrowser.class/instance/targetLabel.st b/packages/SwaLintBrowser.package/SwaLintBrowser.class/instance/targetLabel.st new file mode 100644 index 00000000..c6c82698 --- /dev/null +++ b/packages/SwaLintBrowser.package/SwaLintBrowser.class/instance/targetLabel.st @@ -0,0 +1,5 @@ +accessing - toolbuilder +targetLabel + + + ^ 'Run for {1}' format: {self target label} \ No newline at end of file diff --git a/packages/SwaLintBrowser.package/SwaLintBrowser.class/instance/testNodeForPath..st b/packages/SwaLintBrowser.package/SwaLintBrowser.class/instance/testNodeForPath..st new file mode 100644 index 00000000..6d331acd --- /dev/null +++ b/packages/SwaLintBrowser.package/SwaLintBrowser.class/instance/testNodeForPath..st @@ -0,0 +1,9 @@ +accessing - toolbuilder - test tree objects +testNodeForPath: path + "See comment in #testNodePathFor:parent:." + + | string | + string := (path ifNil: [^ nil]) lines last. + ^ (self displayedTestCategories , self displayedTests) + detect: [:test | test asString = string] + ifNone: [nil "not yet reloaded"] \ No newline at end of file diff --git a/packages/SwaLintBrowser.package/SwaLintBrowser.class/instance/testNodeMenu..st b/packages/SwaLintBrowser.package/SwaLintBrowser.class/instance/testNodeMenu..st new file mode 100644 index 00000000..c6d19704 --- /dev/null +++ b/packages/SwaLintBrowser.package/SwaLintBrowser.class/instance/testNodeMenu..st @@ -0,0 +1,14 @@ +menus +testNodeMenu: menu + + self hasTestNodeSelected ifTrue: + [menu add: 'browse test (b)' action: [self browseSelectedTestNode]. + (self hasTestSelected and: [self selectedTestNode mapper notNil]) ifTrue: + [menu add: 'browse test mapper (B)' action: [self browseSelectedTestNodeMapper]]. + menu add: 'inspect test (i)' action: [self inspectSelectedTestNode]. + menu add: 'copy name (c)' action: [self copySelectedTestName]. + menu addLine]. + + menu sl2Add: 'show all tests' getState: #shouldDisplayAllTests setState: #shouldDisplayAllTests:. + + ^ menu \ No newline at end of file diff --git a/packages/SwaLintBrowser.package/SwaLintBrowser.class/instance/testNodePathFor..st b/packages/SwaLintBrowser.package/SwaLintBrowser.class/instance/testNodePathFor..st new file mode 100644 index 00000000..87ec51f5 --- /dev/null +++ b/packages/SwaLintBrowser.package/SwaLintBrowser.class/instance/testNodePathFor..st @@ -0,0 +1,7 @@ +accessing - toolbuilder - test tree objects +testNodePathFor: node + "See comment in #testNodePathFor:parent:." + + node ifNil: [^ nil]. + ^ (testNodePaths at: node ifAbsent: [^ nil "not yet initialized"]) + anyOne "good guess here because curent parent is unknown" \ No newline at end of file diff --git a/packages/SwaLintBrowser.package/SwaLintBrowser.class/instance/testNodePathFor.parent..st b/packages/SwaLintBrowser.package/SwaLintBrowser.class/instance/testNodePathFor.parent..st new file mode 100644 index 00000000..7644ca47 --- /dev/null +++ b/packages/SwaLintBrowser.package/SwaLintBrowser.class/instance/testNodePathFor.parent..st @@ -0,0 +1,10 @@ +accessing - toolbuilder - test tree objects +testNodePathFor: node parent: parentPath + "What's that? PluggableTreeMorph requires every item in the tree to be unique, but tests can appear under multiple categories. To meet this assumption, we generate and maintain a unique surrogate for each test node in the context of its parent here. + Because we use string representations of tests here, the state of the tree should be maintained after rerunning (+ recreating) all tests." + + ^ ((testNodePaths ifNil: [testNodePaths := Dictionary new]) + at: node + ifAbsentPut: [IdentityDictionary new]) + at: parentPath + ifAbsentPut: [((parentPath ifNil: ['']) lines copyWith: node asString) joinSeparatedBy: String cr] \ No newline at end of file diff --git a/packages/SwaLintBrowser.package/SwaLintBrowser.class/instance/testRootPaths.st b/packages/SwaLintBrowser.package/SwaLintBrowser.class/instance/testRootPaths.st new file mode 100644 index 00000000..8b71b059 --- /dev/null +++ b/packages/SwaLintBrowser.package/SwaLintBrowser.class/instance/testRootPaths.st @@ -0,0 +1,6 @@ +accessing - toolbuilder - test tree objects +testRootPaths + + + ^ (self childrenForTestCategory: nil) + collect: [:childNode | self testNodePathFor: childNode parent: nil] \ No newline at end of file diff --git a/packages/SwaLintBrowser.package/SwaLintBrowser.class/instance/testRoots.st b/packages/SwaLintBrowser.package/SwaLintBrowser.class/instance/testRoots.st new file mode 100644 index 00000000..915fa608 --- /dev/null +++ b/packages/SwaLintBrowser.package/SwaLintBrowser.class/instance/testRoots.st @@ -0,0 +1,5 @@ +accessing - toolbuilder +testRoots + + + ^ self childrenForTestCategory: nil \ No newline at end of file diff --git a/packages/SwaLintBrowser.package/SwaLintBrowser.class/instance/testText.st b/packages/SwaLintBrowser.package/SwaLintBrowser.class/instance/testText.st new file mode 100644 index 00000000..3ada841e --- /dev/null +++ b/packages/SwaLintBrowser.package/SwaLintBrowser.class/instance/testText.st @@ -0,0 +1,25 @@ +accessing - toolbuilder +testText + + + | description resultsText | + description := self hasMessageSelected + ifFalse: + [self hasTestNodeSelected ifTrue: + [self selectedTestNode description]] + ifTrue: + [((self resultsForTestAndMessageSelection collect: #test) withoutDuplicates + collect: [:test | test description]) + joinSeparatedBy: String cr , String cr]. + + resultsText := self hasMessageSelected ifTrue: + ['{1}' asTextFromHtml format: + {(self resultsForTestAndMessageSelection + collect: [:result | '{1}: {2}' asText format: {result test title. result valueString}]) + ifEmpty: ['(none)'] ifNotEmpty: [:results | + results fold: [:a :b | a asText , String cr , b]]}]. + + ^ Text streamContents: [:stream | + ({resultsText. description} copyWithout: nil) + do: [:part | stream nextPutAll: part] + separatedBy: [stream cr; cr]] \ No newline at end of file diff --git a/packages/SwaLintBrowser.package/SwaLintBrowser.class/instance/testTreeExpanded.st b/packages/SwaLintBrowser.package/SwaLintBrowser.class/instance/testTreeExpanded.st new file mode 100644 index 00000000..4740e372 --- /dev/null +++ b/packages/SwaLintBrowser.package/SwaLintBrowser.class/instance/testTreeExpanded.st @@ -0,0 +1,4 @@ +accessing - toolbuilder +testTreeExpanded + + ^ false \ No newline at end of file diff --git a/packages/SwaLintBrowser.package/SwaLintBrowser.class/instance/testTreeKey.from..st b/packages/SwaLintBrowser.package/SwaLintBrowser.class/instance/testTreeKey.from..st new file mode 100644 index 00000000..33e7fa74 --- /dev/null +++ b/packages/SwaLintBrowser.package/SwaLintBrowser.class/instance/testTreeKey.from..st @@ -0,0 +1,12 @@ +menus +testTreeKey: aCharacter from: view + + self currentEvent anyModifierKeyPressed ifFalse: [^ false]. + + ^ aCharacter + caseOf: + {[$b] -> [self browseSelectedTestNode]. + [$B] -> [self browseSelectedTestNodeMapper]. + [$i] -> [self inspectSelectedTestNode]. + [$c] -> [self copySelectedTestName]} + otherwise: [^ false] \ No newline at end of file diff --git a/packages/SwaLintBrowser.package/SwaLintBrowser.class/instance/tests..st b/packages/SwaLintBrowser.package/SwaLintBrowser.class/instance/tests..st new file mode 100644 index 00000000..73097d89 --- /dev/null +++ b/packages/SwaLintBrowser.package/SwaLintBrowser.class/instance/tests..st @@ -0,0 +1,4 @@ +accessing +tests: aCollection + + tests := aCollection. \ No newline at end of file diff --git a/packages/SwaLintBrowser.package/SwaLintBrowser.class/instance/tests.st b/packages/SwaLintBrowser.package/SwaLintBrowser.class/instance/tests.st new file mode 100644 index 00000000..5801b6fe --- /dev/null +++ b/packages/SwaLintBrowser.package/SwaLintBrowser.class/instance/tests.st @@ -0,0 +1,4 @@ +accessing +tests + + ^ tests \ No newline at end of file diff --git a/packages/SwaLintBrowser.package/SwaLintBrowser.class/instance/updateListsAndCodeIn..st b/packages/SwaLintBrowser.package/SwaLintBrowser.class/instance/updateListsAndCodeIn..st new file mode 100644 index 00000000..291959c7 --- /dev/null +++ b/packages/SwaLintBrowser.package/SwaLintBrowser.class/instance/updateListsAndCodeIn..st @@ -0,0 +1,8 @@ +updating +updateListsAndCodeIn: aWindow + + super updateListsAndCodeIn: aWindow. + + (self messages anySatisfy: [:message | self isMessageOutOfSync: message]) ifTrue: + [self changed: #messageLabels]. + self changed: #targetLabel. \ No newline at end of file diff --git a/packages/SwaLintBrowser.package/SwaLintBrowser.class/instance/updateSelectedTestNode.st b/packages/SwaLintBrowser.package/SwaLintBrowser.class/instance/updateSelectedTestNode.st new file mode 100644 index 00000000..6303438d --- /dev/null +++ b/packages/SwaLintBrowser.package/SwaLintBrowser.class/instance/updateSelectedTestNode.st @@ -0,0 +1,9 @@ +accessing - toolbuilder +updateSelectedTestNode + + "(self classes includes: self selectedClass) + ifTrue: [self selectClass: self selectedClass ""reselect to update message selection""] + ifFalse: [self selectClass: nil]." + "self selectClass: (self classes at: 1 ifAbsent: [nil])." + self selectClass: nil. + self changed: #selectedTestNodePath. \ No newline at end of file diff --git a/packages/SwaLintBrowser.package/SwaLintBrowser.class/instance/windowColorToUse.st b/packages/SwaLintBrowser.package/SwaLintBrowser.class/instance/windowColorToUse.st new file mode 100644 index 00000000..f545b480 --- /dev/null +++ b/packages/SwaLintBrowser.package/SwaLintBrowser.class/instance/windowColorToUse.st @@ -0,0 +1,6 @@ +toolbuilder - accessing +windowColorToUse + + ^ Color colorFrom: (self class useColorfulWindows + ifTrue: [self defaultWindowColor] + ifFalse: [self uniformWindowColor]) \ No newline at end of file diff --git a/packages/SwaLintBrowser.package/SwaLintBrowser.class/methodProperties.json b/packages/SwaLintBrowser.package/SwaLintBrowser.class/methodProperties.json new file mode 100644 index 00000000..325555fb --- /dev/null +++ b/packages/SwaLintBrowser.package/SwaLintBrowser.class/methodProperties.json @@ -0,0 +1,125 @@ +{ + "class" : { + "appName" : "ct 12/17/2024 21:18", + "initialize" : "ct 12/13/2024 05:36", + "open" : "ct 12/12/2024 01:54", + "openOnTarget:" : "ct 12/19/2024 20:43", + "registerInWorldMenu" : "ct 12/17/2024 21:18", + "unload" : "ct 12/13/2024 05:37", + "unregisterInWorldMenu" : "ct 12/17/2024 21:18" }, + "instance" : { + "addModelItemsToWindowMenu:" : "ct 12/19/2024 23:25", + "aspectDependencies" : "ct 12/22/2024 01:49", + "authorFilterLabel" : "ct 12/10/2024 23:22", + "basicHelpForMessage:" : "ct 1/5/2025 03:38", + "browseSelectedTestNode" : "ct 12/21/2024 20:39", + "browseSelectedTestNodeMapper" : "ct 12/21/2024 20:39", + "buildClassList:" : "ct 12/17/2024 22:15", + "buildControlBar:" : "ct 1/5/2025 03:40", + "buildMessageList:" : "ct 12/21/2024 21:14", + "buildTestPane:" : "ct 12/12/2024 06:36", + "buildTestTree:" : "ct 12/21/2024 20:36", + "buildWith:" : "ct 12/10/2024 23:20", + "buttonBarHeight" : "ct 12/10/2024 23:09", + "cached:" : "ct 12/22/2024 01:07", + "changeTarget" : "ct 12/17/2024 21:48", + "changed:" : "ct 12/22/2024 01:13", + "childrenForTestCategory:" : "ct 12/19/2024 21:06", + "childrenForTestNode:" : "ct 12/21/2024 20:49", + "childrenForTestNodePath:" : "ct 12/18/2024 04:42", + "chooseTarget" : "ct 12/12/2024 01:59", + "classLabels" : "ct 1/4/2025 22:09", + "classListMenu:" : "ct 12/13/2024 00:39", + "classListMenu:shifted:" : "ct 12/13/2024 00:36", + "classListMenuMore:" : "ct 12/13/2024 00:39", + "classes" : "ct 12/21/2024 20:49", + "contents:notifying:" : "ct 12/21/2024 21:48", + "copySelectedTestName" : "ct 1/4/2025 21:42", + "dateFilterLabel" : "ct 12/10/2024 23:22", + "defaultShouldDisplayAllTests" : "ct 12/18/2024 03:07", + "defaultWindowColor" : "ct 12/10/2024 23:28", + "deleteSelectedResults" : "ct 10/4/2025 00:00", + "displayedResults" : "ct 12/21/2024 20:49", + "displayedTestCategories" : "ct 12/18/2024 02:27", + "displayedTests" : "ct 1/4/2025 22:13", + "exploreSelectedResults" : "ct 10/3/2025 23:40", + "hasMessageSelected" : "ct 12/12/2024 06:48", + "hasMethodSelected" : "ct 12/17/2024 21:25", + "hasRealClassSelected" : "ct 12/18/2024 04:58", + "hasTestGroupSelected" : "ct 12/18/2024 02:07", + "hasTestNodeSelected" : "ct 12/12/2024 06:12", + "hasTestSelected" : "ct 12/12/2024 06:37", + "helpForMessage:" : "ct 12/21/2024 21:45", + "helpForMessageAt:" : "ct 12/21/2024 21:17", + "helpForTestNode:" : "ct 12/21/2024 20:34", + "helpForTestNodePath:" : "ct 12/21/2024 20:32", + "initialize" : "ct 1/4/2025 22:02", + "inspectSelectedTestNode" : "ct 12/21/2024 20:39", + "isMessageOutOfSync:" : "ct 12/21/2024 21:22", + "labelForClass:" : "ct 12/17/2024 22:19", + "labelForMessage:" : "ct 12/21/2024 21:21", + "labelForTestNode:" : "ct 12/18/2024 20:58", + "labelForTestNodePath:" : "ct 12/18/2024 04:44", + "labelString" : "ct 12/10/2024 23:33", + "mainMessageListMenu:" : "ct 12/13/2024 00:37", + "messageIconHelpFor:" : "topa 3/1/2016 16:32", + "messageLabels" : "ct 12/18/2024 03:36", + "messageListMenu:shifted:" : "ct 10/3/2025 23:45", + "messageResultMenu:" : "ct 10/3/2025 23:42", + "messages" : "ct 12/21/2024 20:50", + "offerMenu:" : "ct 12/7/2023 16:30", + "offerSettingsMenu" : "ct 12/19/2024 23:25", + "open" : "ct 12/12/2024 03:35", + "openChooseTarget" : "ct 12/12/2024 03:54", + "openWithTarget" : "ct 12/12/2024 03:59", + "removeMessage" : "ct 12/22/2024 02:26", + "removeMessageFromBrowser" : "ct 10/3/2025 23:45", + "results" : "ct 12/12/2024 06:12", + "results:" : "ct 12/17/2024 23:06", + "resultsForTestAndClassSelection" : "ct 12/17/2024 22:18", + "resultsForTestAndClassSelectionAndMessage:" : "ct 12/18/2024 04:55", + "resultsForTestAndMessageSelection" : "ct 12/18/2024 03:38", + "resultsForTestNode:" : "ct 12/21/2024 20:50", + "resultsForTestSelection" : "ct 1/4/2025 22:01", + "resultsForTestSelectionAndClass:" : "ct 12/17/2024 22:17", + "runTests" : "ct 10/3/2025 23:42", + "runnerClass" : "ct 12/12/2024 04:02", + "selectClass:" : "ct 12/21/2024 21:23", + "selectClassIndex:" : "ct 12/17/2024 22:20", + "selectMessageIndex:" : "ct 12/18/2024 03:39", + "selectMessageNamed:" : "ct 12/12/2024 06:30", + "selectTestNode:" : "ct 12/18/2024 04:25", + "selectTestNodePath:" : "ct 12/18/2024 04:23", + "selectedClass" : "ct 12/17/2024 23:10", + "selectedClassIndex" : "ct 12/17/2024 23:11", + "selectedClassOrMetaClass" : "ct 12/18/2024 04:58", + "selectedMessage" : "ct 12/22/2024 02:23", + "selectedMessageIndex" : "ct 12/18/2024 03:43", + "selectedMessageName" : "ct 12/17/2024 23:11", + "selectedTestNode" : "ct 12/18/2024 04:24", + "selectedTestNodePath" : "ct 12/18/2024 04:14", + "setClass:selector:" : "ct 12/22/2024 02:20", + "settingsMenu:" : "ct 12/19/2024 23:25", + "shiftedClassListMenu:" : "ct 12/13/2024 00:38", + "shiftedClassListMenuMore:" : "ct 12/13/2024 00:38", + "shiftedMessageListMenu:" : "ct 1/5/2025 01:26", + "shouldDisplayAllTests" : "ct 12/18/2024 03:07", + "shouldDisplayAllTests:" : "ct 12/18/2024 03:07", + "target" : "ct 12/12/2024 01:59", + "target:" : "ct 12/12/2024 02:00", + "targetClass" : "ct 12/12/2024 01:59", + "targetLabel" : "ct 12/21/2024 21:30", + "testNodeForPath:" : "ct 1/5/2025 00:18", + "testNodeMenu:" : "ct 1/4/2025 21:35", + "testNodePathFor:" : "ct 1/5/2025 00:18", + "testNodePathFor:parent:" : "ct 1/5/2025 00:22", + "testRootPaths" : "ct 12/18/2024 04:43", + "testRoots" : "ct 12/18/2024 21:47", + "testText" : "ct 12/21/2024 21:15", + "testTreeExpanded" : "ct 12/12/2024 06:22", + "testTreeKey:from:" : "ct 1/4/2025 23:20", + "tests" : "ct 12/12/2024 05:54", + "tests:" : "ct 12/12/2024 04:24", + "updateListsAndCodeIn:" : "ct 12/21/2024 21:47", + "updateSelectedTestNode" : "ct 12/18/2024 04:23", + "windowColorToUse" : "ct 12/10/2024 23:32" } } diff --git a/packages/SwaLintBrowser.package/SwaLintBrowser.class/properties.json b/packages/SwaLintBrowser.package/SwaLintBrowser.class/properties.json new file mode 100644 index 00000000..fe976a04 --- /dev/null +++ b/packages/SwaLintBrowser.package/SwaLintBrowser.class/properties.json @@ -0,0 +1,24 @@ +{ + "category" : "SwaLintBrowser-UI", + "classinstvars" : [ + ], + "classtraitcomposition" : "SL2AspectDependencyGraph classTrait", + "classvars" : [ + ], + "commentStamp" : "", + "instvars" : [ + "target", + "tests", + "results", + "shouldDisplayAllTests", + "selectedClass", + "selectedMessageName", + "selectedTestNodePath", + "testNodePaths", + "caches" ], + "name" : "SwaLintBrowser", + "pools" : [ + ], + "super" : "CodeHolder", + "traitcomposition" : "SL2AspectDependencyGraph", + "type" : "normal" } diff --git a/packages/SwaLintBrowser.package/Symbol.extension/instance/cull.cull..st b/packages/SwaLintBrowser.package/Symbol.extension/instance/cull.cull..st new file mode 100644 index 00000000..e1140dc3 --- /dev/null +++ b/packages/SwaLintBrowser.package/Symbol.extension/instance/cull.cull..st @@ -0,0 +1,5 @@ +*SwaLintBrowser-UI-evaluating-pseudo-override +cull: firstArg cull: secondArg + + self numArgs >= 1 ifTrue: [^ self value: firstArg value: secondArg]. + ^ self value: firstArg \ No newline at end of file diff --git a/packages/SwaLintBrowser.package/Symbol.extension/instance/format..st b/packages/SwaLintBrowser.package/Symbol.extension/instance/format..st new file mode 100644 index 00000000..626266c3 --- /dev/null +++ b/packages/SwaLintBrowser.package/Symbol.extension/instance/format..st @@ -0,0 +1,4 @@ +*SwaLintBrowser-UI-formatting-pseudo-override +format: aCollection + + ^ (self asString format: aCollection) asSymbol \ No newline at end of file diff --git a/packages/SwaLintBrowser.package/Symbol.extension/methodProperties.json b/packages/SwaLintBrowser.package/Symbol.extension/methodProperties.json new file mode 100644 index 00000000..048605bf --- /dev/null +++ b/packages/SwaLintBrowser.package/Symbol.extension/methodProperties.json @@ -0,0 +1,6 @@ +{ + "class" : { + }, + "instance" : { + "cull:cull:" : "ct 5/16/2023 20:21", + "format:" : "ct 12/22/2024 00:46" } } diff --git a/packages/SwaLintBrowser.package/Symbol.extension/properties.json b/packages/SwaLintBrowser.package/Symbol.extension/properties.json new file mode 100644 index 00000000..565e67b0 --- /dev/null +++ b/packages/SwaLintBrowser.package/Symbol.extension/properties.json @@ -0,0 +1,2 @@ +{ + "name" : "Symbol" } diff --git a/packages/SwaLintBrowser.package/SystemOrganizer.extension/instance/sl2ClassesInCategory..st b/packages/SwaLintBrowser.package/SystemOrganizer.extension/instance/sl2ClassesInCategory..st new file mode 100644 index 00000000..042aec3e --- /dev/null +++ b/packages/SwaLintBrowser.package/SystemOrganizer.extension/instance/sl2ClassesInCategory..st @@ -0,0 +1,5 @@ +*SwaLintBrowser-Core-accessing +sl2ClassesInCategory: categoryName + + ^ (self listAtCategoryNamed: categoryName) + collect: [:className | self environment classNamed: className] \ No newline at end of file diff --git a/packages/SwaLintBrowser.package/SystemOrganizer.extension/methodProperties.json b/packages/SwaLintBrowser.package/SystemOrganizer.extension/methodProperties.json new file mode 100644 index 00000000..29358397 --- /dev/null +++ b/packages/SwaLintBrowser.package/SystemOrganizer.extension/methodProperties.json @@ -0,0 +1,5 @@ +{ + "class" : { + }, + "instance" : { + "sl2ClassesInCategory:" : "ct 12/22/2024 01:25" } } diff --git a/packages/SwaLintBrowser.package/SystemOrganizer.extension/properties.json b/packages/SwaLintBrowser.package/SystemOrganizer.extension/properties.json new file mode 100644 index 00000000..17470c96 --- /dev/null +++ b/packages/SwaLintBrowser.package/SystemOrganizer.extension/properties.json @@ -0,0 +1,2 @@ +{ + "name" : "SystemOrganizer" } diff --git a/packages/SwaLintBrowser.package/monticello.meta/categories.st b/packages/SwaLintBrowser.package/monticello.meta/categories.st new file mode 100644 index 00000000..97cf02f0 --- /dev/null +++ b/packages/SwaLintBrowser.package/monticello.meta/categories.st @@ -0,0 +1,2 @@ +SystemOrganization addCategory: #'SwaLintBrowser-UI'! +SystemOrganization addCategory: #'SwaLintBrowser-Core'! diff --git a/packages/SwaLintBrowser.package/monticello.meta/initializers.st b/packages/SwaLintBrowser.package/monticello.meta/initializers.st new file mode 100644 index 00000000..e69de29b diff --git a/packages/SwaLintBrowser.package/properties.json b/packages/SwaLintBrowser.package/properties.json new file mode 100644 index 00000000..f037444a --- /dev/null +++ b/packages/SwaLintBrowser.package/properties.json @@ -0,0 +1,2 @@ +{ + }