Refresh web preview button initial version working.

src/MiniDocs/LePage.extension.st

@@ -126,6 +126,14 @@ LePage >> latestEditTime: aLeTime [
 	latestEditTime := aLeTime
 ]
 
+{ #category : #'*MiniDocs' }
+LePage >> localHostAddress [
+	| localUrl route |
+	route := MiniDocsServer teapot staticRouter prefix joinUsing: '/'.
+	localUrl := MiniDocsServer teapot server localUrl asString. 
+	^  localUrl, route, '/', self markdeepFileName
+]
+
 { #category : #'*MiniDocs' }
 LePage >> markdeepFileName [
 	

src/MiniDocs/LePageHeaderBuilder.extension.st

@@ -23,8 +23,8 @@ LePageHeaderBuilder >> addRefreshWebViewButton [
 		aptitude: BrGlamorousButtonWithIconAptitude;
 		label: 'Refresh web view';
 		icon: BrGlamorousVectorIcons refresh;
-		action: [ :aButton | 
+		action: [  
 			self page asMarkdeep exportAsFileOn: (self page storage /  self page markdeepFileName).
-			aButton phlow spawnObject: self page localHostAddress ].
+			WebBrowser openOn: self page localHostAddress ].
 	self toolbarElement addItem: newButton.
 ]

src/MiniDocs/TeaCompositeRouter.extension.st

@@ -0,0 +1,6 @@
+Extension { #name : #TeaCompositeRouter }
+
+{ #category : #'*MiniDocs' }
+TeaCompositeRouter >> staticRouters [
+	^ routers 
+]

src/MiniDocs/TeaStaticRouter.extension.st

@@ -0,0 +1,6 @@
+Extension { #name : #TeaStaticRouter }
+
+{ #category : #'*MiniDocs' }
+TeaStaticRouter >> delegate [
+	^ delegate
+]

src/MiniDocs/Teapot.extension.st

@@ -0,0 +1,6 @@
+Extension { #name : #Teapot }
+
+{ #category : #'*MiniDocs' }
+Teapot >> staticRouter [
+	^ staticRouter delegate
+]