diff options
| -rw-r--r-- | mwidget.mod/mwidget.bmx | 41 |
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 |