From 023778d9b9ce8e4e670384fb3f956cc971685c15 Mon Sep 17 00:00:00 2001
From: Yann Le Goff <yann.le-goff@thalesgroup.com>
Date: Wed, 10 Dec 2025 17:44:48 +0100
Subject: [PATCH] I updated the issue menu

---
 src/Pyramid-IDE/PyramidWorld.class.st | 30 ++++++++++++++++++++++++++-
 1 file changed, 29 insertions(+), 1 deletion(-)

diff --git a/src/Pyramid-IDE/PyramidWorld.class.st b/src/Pyramid-IDE/PyramidWorld.class.st
index 6866c0c..9f2413a 100644
--- a/src/Pyramid-IDE/PyramidWorld.class.st
+++ b/src/Pyramid-IDE/PyramidWorld.class.st
@@ -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 }
@@ -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>