From 17b9ff4c7a487abbed6da93f11342fd2e3bfadbc Mon Sep 17 00:00:00 2001
From: Ian C <ianc@noddybox.co.uk>
Date: Fri, 12 Oct 2007 22:38:12 +0000
Subject: Updated for Max 1.26

---
 mwidget.mod/mwidget.bmx | 41 +++++++++++++++++++++--------------------
 1 file changed, 21 insertions(+), 20 deletions(-)

diff --git a/mwidget.mod/mwidget.bmx b/mwidget.mod/mwidget.bmx
index c0b7521..8c64ea8 100644
--- a/mwidget.mod/mwidget.bmx
+++ b/mwidget.mod/mwidget.bmx
@@ -67,6 +67,7 @@ Import brl.event
 Import brl.timer
 Import brl.map
 Import brl.filesystem
+Import brl.eventqueue
 
 Type TMWEventListBase Abstract
 	Field list:TList
@@ -617,9 +618,9 @@ Type TMWidget Abstract
 	and @parent is the parent managed widget (NULL for none).
 	EndRem
 	Method BaseInitialise(gadget:TGadget, parent:TMWidget)
-		self.children=CreateList()
-		self.gadget=gadget
-		self.parent=parent
+		Self.children=CreateList()
+		Self.gadget=gadget
+		Self.parent=parent
 		
 		OnTimerEvent=New TMWEventListVoid
 		OnManageEvent=New TMWEventListVoid
@@ -627,8 +628,8 @@ Type TMWidget Abstract
 		OnMouseEnterEvent=New TMWEventListVoid
 		OnMouseLeaveEvent=New TMWEventListVoid
 
-		If self.parent
-			self.parent.children.AddLast(Self)
+		If Self.parent
+			Self.parent.children.AddLast(Self)
 		EndIf
 		
 		Static.Register(Self)
@@ -643,7 +644,7 @@ Type TMWidget Abstract
 	End Method
 	
 	Method ToString:String()
-		Return typename+":"+super.ToString()
+		Return typename+":"+Super.ToString()
 	End Method
 End Type
 
@@ -704,7 +705,7 @@ Type TMWindow Extends TMWidget
 	EndRem
 	Method Hidden(state:Int)
 		closed=state
-		super.Hidden(state)
+		Super.Hidden(state)
 	End Method
 
 	Rem
@@ -825,7 +826,7 @@ Type TMWindow Extends TMWidget
 				OnClose()
 				OnCloseEvent.Fire(Self)
 			Default
-				super.Handle(e)
+				Super.Handle(e)
 		End Select
 	End Method
 End Type
@@ -889,7 +890,7 @@ Type TMButton Extends TMWidget
 				OnPress()
 				OnPressEvent.Fire(Self)
 			Default
-				super.Handle(e)
+				Super.Handle(e)
 		End Select
 	End Method
 End Type
@@ -944,7 +945,7 @@ Type TMCheckbox Extends TMWidget
 				OnPress(e.data)
 				OnPressEvent.Fire(Self,e.data)
 			Default
-				super.Handle(e)
+				Super.Handle(e)
 		End Select
 	End Method
 End Type
@@ -1119,7 +1120,7 @@ Type TMTextField Extends TMWidget
 				OnTextChanged(s)
 				OnTextChangedEvent.Fire(Self,s)
 			Default
-				super.Handle(e)
+				Super.Handle(e)
 		End Select
 	End Method
 End Type
@@ -1301,7 +1302,7 @@ Type TMTextArea Extends TMWidget
 				OnMenu()
 				OnMenuEvent.Fire(Self)
 			Default
-				super.Handle(e)
+				Super.Handle(e)
 		End Select
 	End Method
 End Type
@@ -1364,7 +1365,7 @@ Type TMSlider Extends TMWidget
 				OnValueChanged(e.data)
 				OnValueChangedEvent.Fire(Self,e.data)
 			Default
-				super.Handle(e)
+				Super.Handle(e)
 		End Select
 	End Method
 End Type
@@ -1549,7 +1550,7 @@ Type TMListWidget Extends TMWidget Abstract
 				OnIndexChanged(e.data)
 				OnIndexChangedEvent.Fire(Self,e.data)
 			Default
-				super.Handle(e)
+				Super.Handle(e)
 		End Select
 	End Method
 End Type
@@ -1748,7 +1749,7 @@ Type TMHTMLView Extends TMWidget
 				OnPageLoaded(CurrentURL())
 				OnPageLoadedEvent.Fire(Self,CurrentURL())
 			Default
-				super.Handle(e)
+				Super.Handle(e)
 		End Select
 	End Method
 End Type
@@ -2052,7 +2053,7 @@ Type TMTreeView Extends TMWidget
 					OnMenuEvent.Fire(Self,n.path,n.tag)
 				EndIf
 			Default
-				super.Handle(e)
+				Super.Handle(e)
 		End Select
 	End Method
 End Type
@@ -2319,7 +2320,7 @@ Type TMMenu
 	End Method
 
 	Method ToString:String()
-		Return "TMMenu:"+super.ToString()
+		Return "TMMenu:"+Super.ToString()
 	End Method
 End Type
 
@@ -2477,7 +2478,7 @@ Type TMCanvas Extends TMWidget
 				OnKey(e.data)
 				OnKeyEvent.Fire(Self,e.data)
 			Default
-				super.Handle(e)
+				Super.Handle(e)
 		End Select
 	End Method
 End Type
@@ -2545,7 +2546,7 @@ Type TMToolbar Extends TMWidget
 				OnSelected(e.data)
 				OnSelectedEvent.Fire(Self,e.data)
 			Default
-				super.Handle(e)
+				Super.Handle(e)
 		End Select
 	End Method
 End Type
@@ -2682,7 +2683,7 @@ Type TMPanel Extends TMWidget
 				OnKey(e.data)
 				OnKeyEvent.Fire(Self,e.data)
 			Default
-				super.Handle(e)
+				Super.Handle(e)
 		End Select
 	End Method
 End Type
-- 
cgit v1.2.3