From feaf4c4a99c6f66eaa22cb62440dc4be1377e3ad Mon Sep 17 00:00:00 2001
From: Ian C <ianc@noddybox.co.uk>
Date: Sat, 13 Jun 2020 16:49:31 +0000
Subject: Added call to get the gadget scale factor for a canvas.  Doesn't seem
 to work.

---
 mwidget.mod/mwidget.bmx | 9 ++++++++-
 1 file changed, 8 insertions(+), 1 deletion(-)

diff --git a/mwidget.mod/mwidget.bmx b/mwidget.mod/mwidget.bmx
index f2858e0..1770790 100644
--- a/mwidget.mod/mwidget.bmx
+++ b/mwidget.mod/mwidget.bmx
@@ -2355,6 +2355,13 @@ Type TMCanvas Extends TMWidget
 	Method SetupGraphics()
 		SetGraphics(CanvasGraphics(gadget))
 	End Method
+	
+	Rem
+	bbdoc: Get the underlaying gadget scale factor
+	EndRem
+	Method ScaleFactor:Int()
+		Return GadgetScaleFactor(gadget)
+	End Method
 
 	Rem
 	bbdoc: Called when the canvas should be redrawn.
@@ -2785,7 +2792,7 @@ Type Static
 				Next
 				
 				If Not handled
-					If e.id = 259
+					If e.id = EVENT_APPTERMINATE
 						If top
 							top.Close()
 						Else
-- 
cgit v1.2.3