X-Git-Url: https://www.flypig.org.uk/git/?p=harbour-pedalo.git;a=blobdiff_plain;f=qml%2Fharbour-pedalo.qml;h=3194b9e8135b2af2ad85aea9b53126958651913b;hp=22ccbbc7b8557c297c7a9cdb0693fdfc78623ee8;hb=54ab3ebfadf8cb258561a4641249da8c6469dc0f;hpb=d42485b9c24c02503080b05e5e466112f47c909a

diff --git a/qml/harbour-pedalo.qml b/qml/harbour-pedalo.qml
index 22ccbbc..3194b9e 100644
--- a/qml/harbour-pedalo.qml
+++ b/qml/harbour-pedalo.qml
@@ -5,7 +5,19 @@ import harbour.pedalo.settings 1.0
 
 ApplicationWindow
 {
+    id: app
     initialPage: Component { MainPage { } }
     cover: Qt.resolvedUrl("cover/CoverPage.qml")
     allowedOrientations: defaultAllowedOrientations
+
+    function showMainPage(operationType) {
+        var first = pageStack.currentPage
+        var temp = pageStack.previousPage(pageStack.currentPage)
+        while (temp) {
+            first = temp
+            temp = pageStack.previousPage(temp)
+        }
+
+        pageStack.pop(first, operationType)
+    }
 }