diff --git a/.github/workflows/continuous.yml b/.github/workflows/continuous.yml index 633f84e23..6f1207d8e 100644 --- a/.github/workflows/continuous.yml +++ b/.github/workflows/continuous.yml @@ -49,7 +49,7 @@ jobs: - name: set-version run: | ls -l $SMALLTALK_CI_VM - $SMALLTALK_CI_VM $SMALLTALK_CI_IMAGE eval --save "MooseVersion current commitHash: '$GITHUB_SHA'. Smalltalk at: #HelpBrowser ifPresent: [ :helpClass | helpClass allInstances do: #close. MooseWelcome openForRelease ]" + $SMALLTALK_CI_VM $SMALLTALK_CI_IMAGE eval --save "MooseVersion current commitHash: '$GITHUB_SHA'. (Smalltalk toolNamed: #mooseWelcome) closePharoWelcomeThenOpen" - name: rename run: | diff --git a/src/BaselineOfMoose/BaselineOfMoose.class.st b/src/BaselineOfMoose/BaselineOfMoose.class.st index eca5c338c..bf8ff7c5d 100644 --- a/src/BaselineOfMoose/BaselineOfMoose.class.st +++ b/src/BaselineOfMoose/BaselineOfMoose.class.st @@ -11,30 +11,29 @@ Class { BaselineOfMoose >> baseline: spec [ - spec for: #common do: [ + spec for: #common do: [ self famix: spec; famixTagging: spec; - famixReplication: spec; + famixReplication: spec; mooseEasy: spec; mooseIDE: spec; neoCSV: spec. spec - package: 'Moose-MenuBar' with: [ + package: 'Moose-MenuBar' with: [ spec requires: - #( 'Famix' 'FamixTagging' 'FamixReplication' - 'NeoCSV' 'MooseIDE' ) ]; + #( 'Famix' 'FamixTagging' 'FamixReplication' 'NeoCSV' 'MooseIDE' ) ]; package: 'Moose-Configuration'; - package: 'Moose-Help'; - package: 'Famix-Visualizations' ] -] + package: 'Famix-Visualizations' ]. + + spec for: #( #'pharo10.x' #'pharo9.x' #'pharo8.x' ) do: [ + spec package: 'Moose-Help-ToRemove'. + spec postLoadDoIt: #registerMooseWelcome ]. -{ #category : #baseline } -BaselineOfMoose >> customProjectAttributes [ - ^ (Smalltalk classNamed: 'StInspector') - ifNotNil: [ #( #NewTools ) ] - ifNil: [ #( ) ] + spec for: #'pharo11.x' do: [ + spec package: 'Moose-WelcomeBrowser'. + spec postLoadDoIt: #registerMooseWelcomeBrowser ] ] { #category : #dependencies } @@ -83,3 +82,21 @@ BaselineOfMoose >> neoCSV: spec [ BaselineOfMoose >> projectClass [ ^ MetacelloCypressBaselineProject ] + +{ #category : #actions } +BaselineOfMoose >> registerMooseWelcome [ + "For Pharo 10 and before" + + Smalltalk + at: #MooseWelcome + ifPresent: [ :mooseWelcome | mooseWelcome register ] +] + +{ #category : #actions } +BaselineOfMoose >> registerMooseWelcomeBrowser [ + "For Pharo 11 and after" + + Smalltalk + at: #MooseWelcomeBrowser + ifPresent: [ :mooseWelcome | mooseWelcome register ] +] diff --git a/src/Moose-Help/MooseVersion.class.st b/src/Moose-Configuration/MooseVersion.class.st similarity index 97% rename from src/Moose-Help/MooseVersion.class.st rename to src/Moose-Configuration/MooseVersion.class.st index 96f336780..16f6863b2 100644 --- a/src/Moose-Help/MooseVersion.class.st +++ b/src/Moose-Configuration/MooseVersion.class.st @@ -13,7 +13,7 @@ Class { #classInstVars : [ 'current' ], - #category : #'Moose-Help' + #category : #'Moose-Configuration' } { #category : #accessing } diff --git a/src/Moose-Help/MooseWelcome.class.st b/src/Moose-Help-ToRemove/MooseWelcome.class.st similarity index 84% rename from src/Moose-Help/MooseWelcome.class.st rename to src/Moose-Help-ToRemove/MooseWelcome.class.st index 23cc4fd14..8c5438e3f 100644 --- a/src/Moose-Help/MooseWelcome.class.st +++ b/src/Moose-Help-ToRemove/MooseWelcome.class.st @@ -4,7 +4,7 @@ I am the welcome window that opens when a Moose image Class { #name : #MooseWelcome, #superclass : #CustomHelp, - #category : #'Moose-Help' + #category : #'Moose-Help-ToRemove' } { #category : #accessing } @@ -13,6 +13,14 @@ MooseWelcome class >> bookName [ ^ 'Moose Tutorial' ] +{ #category : #'as yet unclassified' } +MooseWelcome class >> closePharoWelcomeThenOpen [ + + HelpBrowser allInstancesDo: [ :browser | + browser withWindowDo: #close ]. + self openForRelease +] + { #category : #pages } MooseWelcome class >> mainTools [ @@ -90,6 +98,22 @@ MooseWelcome class >> pages [ ^ #( welcome mainTools ) ] +{ #category : #'tools registry' } +MooseWelcome class >> register [ + "Add ourselves to registry. See [Smalltalk tools]" +