1 files changed, 3 insertions, 1 deletions
diff --git a/menu.bmx b/menu.bmx
index b441a0f..68e1c98 100644
--- a/menu.bmx
+++ b/menu.bmx
@@ -3,6 +3,8 @@
 '
 ' $Id$
 '
+Strict
+
 Import noddybox.bitmapfont
 
 Type TMenu
@@ -47,7 +49,7 @@ Type TMenu
 		
 		For Local s:String=EachIn list
 			If (mx>xpos And mx<xpos+w And my>y And my<y+h)
-				If KeyDown(KEY_MOUSELEFT)
+				If MouseDown(1)
 					mbdown=True
 					DrawImage(img,xpos,y+2)
 					font.Centre(s,y+yoff+2,255,255,0)