From f0c0a537a0d3c726476ee087201c6ff6905ee2b1 Mon Sep 17 00:00:00 2001
From: Offray Luna <offray.luna@mutabit.com>
Date: Mon, 9 Jan 2023 11:44:55 -0500
Subject: [PATCH] Replacing WebBrowser by GoogleChrome as default document
 previsualizer, as there is improved support over Firefox as a default browser
 :-(

---
 src/MiniDocs/LePageHeaderBuilder.extension.st |  4 +++-
 src/MiniDocs/UnixChromePlatform.extension.st  | 10 ++++++++++
 2 files changed, 13 insertions(+), 1 deletion(-)
 create mode 100644 src/MiniDocs/UnixChromePlatform.extension.st

diff --git a/src/MiniDocs/LePageHeaderBuilder.extension.st b/src/MiniDocs/LePageHeaderBuilder.extension.st
index 2458b21..f5ac6bc 100644
--- a/src/MiniDocs/LePageHeaderBuilder.extension.st
+++ b/src/MiniDocs/LePageHeaderBuilder.extension.st
@@ -25,6 +25,8 @@ LePageHeaderBuilder >> addRefreshWebViewButton [
 		icon: BrGlamorousVectorIcons refresh;
 		action: [  
 			self page asMarkdeep exportAsFileOn: (self page storage /  self page markdeepFileName).
-			WebBrowser openOn: self page localHostAddress ].
+			GoogleChrome openWindowOn: self page localHostAddress.
+			"TODO: If Chrome/Chromium are not installed, I should execute:"
+			"WebBrowser openOn: self page localHostAddress" ].
 	self toolbarElement addItem: newButton.
 ]
diff --git a/src/MiniDocs/UnixChromePlatform.extension.st b/src/MiniDocs/UnixChromePlatform.extension.st
new file mode 100644
index 0000000..a7dab6c
--- /dev/null
+++ b/src/MiniDocs/UnixChromePlatform.extension.st
@@ -0,0 +1,10 @@
+Extension { #name : #UnixChromePlatform }
+
+{ #category : #'*MiniDocs' }
+UnixChromePlatform class >> defaultExecutableLocations [
+
+	^ #( '/opt/google/chrome/chrome' 
+		 '/usr/bin/chromium-browser'
+	     '/usr/local/share/chromium/chrome'
+	     '/usr/bin/chromium' )
+]