Skip to content
Open
Changes from all commits
Commits
File filter

Filter by extension

Filter by extension

Conversations
Failed to load comments.
Loading
Jump to
Jump to file
Failed to load files.
Loading
Diff view
Diff view
30 changes: 29 additions & 1 deletion src/Pyramid-IDE/PyramidWorld.class.st
Original file line number Diff line number Diff line change
Expand Up @@ -1035,7 +1035,9 @@ PyramidWorld class >> menuReportABugOn: aBuilder [
label: 'Report a Bug';
icon: (self iconNamed: #smallDebug);
help: 'Will open the github page to report an issue';
action: [ WebBrowser openOn: 'https://github.com/OpenSmock/Pyramid/issues/new' ]
action: [
self openWebBrowserOnIssue.
]
]

{ #category : #menu }
Expand Down Expand Up @@ -1074,6 +1076,32 @@ PyramidWorld class >> openPyramidSettings [
browser expandAll
]

{ #category : #menu }
PyramidWorld class >> openWebBrowserOnIssue [

| repositoryName repositoryOwner currentCommit bodyString url |
repositoryName := 'Pyramid'.
repositoryOwner := 'OpenSmock'.

currentCommit := (IceRepository repositoryNamed: repositoryName)
workingCopy referenceCommit.

bodyString := '<r><r><r>---<r><r><1s> version: <2s><r><1s> date: <3s><r><r>Pharo version: <4s><r>Pharo date : <5s><r>'
expandMacrosWithArguments: {
repositoryName.
currentCommit id.
currentCommit datetime asDate printString.
SystemVersion current printString.
SystemVersion current date printString }.

url := 'https://github.com/<1s>/<2s>/issues/new?body=<3s>'
expandMacrosWithArguments: {
repositoryOwner.
repositoryName.
bodyString asZnUrl printString allButFirst }.
WebBrowser openOn: url
]

{ #category : #icons }
PyramidWorld class >> resetThemeIcons [
<script>
Expand Down