Skip to content

Commit

Permalink
Merge pull request #600 from demarey/tonelv3
Browse files Browse the repository at this point in the history
Move to Tonel v3
  • Loading branch information
jecisc authored Oct 11, 2023
2 parents 1563e5c + 39a23b0 commit 6ad6b04
Show file tree
Hide file tree
Showing 547 changed files with 5,647 additions and 4,977 deletions.
19 changes: 10 additions & 9 deletions src/BaselineOfNewTools/BaselineOfNewTools.class.st
Original file line number Diff line number Diff line change
@@ -1,13 +1,14 @@
Class {
#name : #BaselineOfNewTools,
#superclass : #BaselineOf,
#name : 'BaselineOfNewTools',
#superclass : 'BaselineOf',
#instVars : [
'initializersEnabled'
],
#category : #BaselineOfNewTools
#category : 'BaselineOfNewTools',
#package : 'BaselineOfNewTools'
}

{ #category : #baselines }
{ #category : 'baselines' }
BaselineOfNewTools >> baseline: spec [

<baseline>
Expand Down Expand Up @@ -144,7 +145,7 @@ BaselineOfNewTools >> baseline: spec [
'RewriterTools') ]
]

{ #category : #'external projects' }
{ #category : 'external projects' }
BaselineOfNewTools >> chest: spec [

spec baseline: 'Chest' with: [
Expand All @@ -154,7 +155,7 @@ BaselineOfNewTools >> chest: spec [
loads: 'default' ]
]

{ #category : #'external projects' }
{ #category : 'external projects' }
BaselineOfNewTools >> packageRepositoryURL [
| url |

Expand All @@ -168,20 +169,20 @@ BaselineOfNewTools >> packageRepositoryURL [
^ url
]

{ #category : #actions }
{ #category : 'actions' }
BaselineOfNewTools >> postload: loader package: packageSpec [

MCMethodDefinition initializersEnabled: initializersEnabled
]

{ #category : #actions }
{ #category : 'actions' }
BaselineOfNewTools >> preload: loader package: packageSpec [

initializersEnabled := MCMethodDefinition initializersEnabled.
MCMethodDefinition initializersEnabled: true
]

{ #category : #'external projects' }
{ #category : 'external projects' }
BaselineOfNewTools >> sindarin: spec [

spec baseline: 'Sindarin' with: [
Expand Down
2 changes: 1 addition & 1 deletion src/BaselineOfNewTools/package.st
Original file line number Diff line number Diff line change
@@ -1 +1 @@
Package { #name : #BaselineOfNewTools }
Package { #name : 'BaselineOfNewTools' }
23 changes: 12 additions & 11 deletions src/HelpCenter/HCBrowser.class.st
Original file line number Diff line number Diff line change
@@ -1,14 +1,15 @@
Class {
#name : #HCBrowser,
#superclass : #ComposablePresenter,
#name : 'HCBrowser',
#superclass : 'ComposablePresenter',
#instVars : [
'listItems',
'docReader'
],
#category : #HelpCenter
#category : 'HelpCenter',
#package : 'HelpCenter'
}

{ #category : #specs }
{ #category : 'specs' }
HCBrowser class >> defaultSpec [
^SpecRowLayout composed
newColumn: [ :col | col add: #listItems ] origin: 0 @ 0 corner: 0.3 @ 1;
Expand All @@ -17,38 +18,38 @@ HCBrowser class >> defaultSpec [

]

{ #category : #accessing }
{ #category : 'accessing' }
HCBrowser >> docReader [
^ docReader
]

{ #category : #accessing }
{ #category : 'accessing' }
HCBrowser >> docReader: anObject [
docReader := anObject
]

{ #category : #initialization }
{ #category : 'initialization' }
HCBrowser >> initializePresenter [
]

{ #category : #initialization }
{ #category : 'initialization' }
HCBrowser >> initializeWidgets [
listItems := self newList.
docReader := self newText.

]

{ #category : #accessing }
{ #category : 'accessing' }
HCBrowser >> listItems [
^ listItems
]

{ #category : #accessing }
{ #category : 'accessing' }
HCBrowser >> listItems: anObject [
listItems := anObject
]

{ #category : #initialization }
{ #category : 'initialization' }
HCBrowser >> title [
^'HCBrowser'
]
33 changes: 17 additions & 16 deletions src/HelpCenter/HCCentralPlace.class.st
Original file line number Diff line number Diff line change
@@ -1,15 +1,16 @@
Class {
#name : #HCCentralPlace,
#superclass : #ComposablePresenter,
#name : 'HCCentralPlace',
#superclass : 'ComposablePresenter',
#instVars : [
'menuComponent',
'hcbrowserComponent',
'hcPharoWebSiteComponent'
],
#category : #HelpCenter
#category : 'HelpCenter',
#package : 'HelpCenter'
}

{ #category : #specs }
{ #category : 'specs' }
HCCentralPlace class >> defaultSpec [
"menuComponent hcbrowserComponent"
^SpecColumnLayout composed
Expand All @@ -21,7 +22,7 @@ HCCentralPlace class >> defaultSpec [

]

{ #category : #'world menu' }
{ #category : 'world menu' }
HCCentralPlace class >> menuCommandOn: aBuilder [
<worldMenu>
(aBuilder item: #'Help Center')
Expand All @@ -33,62 +34,62 @@ HCCentralPlace class >> menuCommandOn: aBuilder [
withSeparatorAfter
]

{ #category : #specs }
{ #category : 'specs' }
HCCentralPlace class >> open [
<script>

self new openWithSpec
]

{ #category : #accessing }
{ #category : 'accessing' }
HCCentralPlace >> hcPharoWebSiteComponent [
^ hcPharoWebSiteComponent
]

{ #category : #accessing }
{ #category : 'accessing' }
HCCentralPlace >> hcPharoWebSiteComponent: anObject [
hcPharoWebSiteComponent := anObject
]

{ #category : #accessing }
{ #category : 'accessing' }
HCCentralPlace >> hcbrowserComponent [
^ hcbrowserComponent
]

{ #category : #accessing }
{ #category : 'accessing' }
HCCentralPlace >> hcbrowserComponent: anObject [
hcbrowserComponent := anObject
]

{ #category : #api }
{ #category : 'api' }
HCCentralPlace >> initialExtent [
^ 800@600
]

{ #category : #initialization }
{ #category : 'initialization' }
HCCentralPlace >> initializePresenter [


]

{ #category : #initialization }
{ #category : 'initialization' }
HCCentralPlace >> initializeWidgets [
menuComponent := self instantiate: HCMenu.
hcbrowserComponent := self instantiate: HCBrowser.
hcPharoWebSiteComponent := self instantiate: HCPharoWebSite.
]

{ #category : #accessing }
{ #category : 'accessing' }
HCCentralPlace >> menuComponent [
^ menuComponent
]

{ #category : #accessing }
{ #category : 'accessing' }
HCCentralPlace >> menuComponent: anObject [
menuComponent := anObject
]

{ #category : #initialization }
{ #category : 'initialization' }
HCCentralPlace >> title [
^'Help Center'
]
35 changes: 18 additions & 17 deletions src/HelpCenter/HCMenu.class.st
Original file line number Diff line number Diff line change
@@ -1,17 +1,18 @@
Class {
#name : #HCMenu,
#superclass : #ComposablePresenter,
#name : 'HCMenu',
#superclass : 'ComposablePresenter',
#instVars : [
'buttonManuals',
'buttonTutorials',
'buttonProfStef',
'linkBooks',
'hcbrowserComponent'
],
#category : #HelpCenter
#category : 'HelpCenter',
#package : 'HelpCenter'
}

{ #category : #specs }
{ #category : 'specs' }
HCMenu class >> defaultSpec [
^SpecLayout composed
newRow: [ :row |
Expand All @@ -24,52 +25,52 @@ HCMenu class >> defaultSpec [

]

{ #category : #accessing }
{ #category : 'accessing' }
HCMenu >> buttonManuals [
^ buttonManuals
]

{ #category : #accessing }
{ #category : 'accessing' }
HCMenu >> buttonManuals: anObject [
buttonManuals := anObject
]

{ #category : #accessing }
{ #category : 'accessing' }
HCMenu >> buttonProfStef [
^ buttonProfStef
]

{ #category : #accessing }
{ #category : 'accessing' }
HCMenu >> buttonProfStef: anObject [
buttonProfStef := anObject
]

{ #category : #accessing }
{ #category : 'accessing' }
HCMenu >> buttonTutorials [
^ buttonTutorials
]

{ #category : #accessing }
{ #category : 'accessing' }
HCMenu >> buttonTutorials: anObject [
buttonTutorials := anObject
]

{ #category : #accessing }
{ #category : 'accessing' }
HCMenu >> hcbrowserComponent [
^ hcbrowserComponent
]

{ #category : #accessing }
{ #category : 'accessing' }
HCMenu >> hcbrowserComponent: anObject [
hcbrowserComponent := anObject
]

{ #category : #initialization }
{ #category : 'initialization' }
HCMenu >> initializePresenter [
buttonProfStef action: [ ProfStef go ].
]

{ #category : #initialization }
{ #category : 'initialization' }
HCMenu >> initializeWidgets [
buttonManuals := self newButton
label: 'Manuals';
Expand All @@ -88,17 +89,17 @@ HCMenu >> initializeWidgets [
yourself.
]

{ #category : #accessing }
{ #category : 'accessing' }
HCMenu >> linkBooks [
^ linkBooks
]

{ #category : #accessing }
{ #category : 'accessing' }
HCMenu >> linkBooks: anObject [
linkBooks := anObject
]

{ #category : #api }
{ #category : 'api' }
HCMenu >> title [
^'Menu'
]
17 changes: 9 additions & 8 deletions src/HelpCenter/HCPharoWebSite.class.st
Original file line number Diff line number Diff line change
@@ -1,27 +1,28 @@
Class {
#name : #HCPharoWebSite,
#superclass : #ComposablePresenter,
#name : 'HCPharoWebSite',
#superclass : 'ComposablePresenter',
#instVars : [
'link'
],
#category : #HelpCenter
#category : 'HelpCenter',
#package : 'HelpCenter'
}

{ #category : #specs }
{ #category : 'specs' }
HCPharoWebSite class >> defaultSpec [
^SpecRowLayout composed
newRow: [ :row | row add: #link ];
yourself
]

{ #category : #initialization }
{ #category : 'initialization' }
HCPharoWebSite >> initializePresenter [

"link action: [ WebBrowser openOn: 'https://pharo.org/documentation' ]."

]

{ #category : #initialization }
{ #category : 'initialization' }
HCPharoWebSite >> initializeWidgets [
link := self newLabel.

Expand All @@ -31,12 +32,12 @@ HCPharoWebSite >> initializeWidgets [
color: self theme selectionTextColor
]

{ #category : #accessing }
{ #category : 'accessing' }
HCPharoWebSite >> link [
^ link
]

{ #category : #accessing }
{ #category : 'accessing' }
HCPharoWebSite >> link: anObject [
link := anObject
]
Loading

0 comments on commit 6ad6b04

Please sign in to comment.