summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorIan C <ianc@noddybox.co.uk>2007-10-12 22:38:12 +0000
committerIan C <ianc@noddybox.co.uk>2007-10-12 22:38:12 +0000
commit17b9ff4c7a487abbed6da93f11342fd2e3bfadbc (patch)
tree9540b1e6b38267df1ca7080c884f5ed6ab312bd6
parent35f6d31dd294d1736ef3913370dc5c35d4b97d54 (diff)
Updated for Max 1.26
-rw-r--r--mwidget.mod/mwidget.bmx41
1 files 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