diff options
Diffstat (limited to 'mwidget.mod/mwidget.bmx')
| -rw-r--r-- | mwidget.mod/mwidget.bmx | 5572 |
1 files changed, 2786 insertions, 2786 deletions
diff --git a/mwidget.mod/mwidget.bmx b/mwidget.mod/mwidget.bmx index 738f0eb..397e874 100644 --- a/mwidget.mod/mwidget.bmx +++ b/mwidget.mod/mwidget.bmx @@ -1,2787 +1,2787 @@ -Rem
-bbdoc: noddybox.mwidget
-about: <p>Provides a simply class based interface to the MaxGUI. Note that all widgets have create type methods. For these to work correctly with
-sub-classes they must be called through a new operation, e.g.</p>
-<pre>
-Type MyApp Extends TMWindow
- Method OnClose(e:TEvent)
- closed=Confirm("Really quit?")
- End Method
-End Type
-
-Local window:TMWindow=New MyApp.Create("Test",100,100,640,400)
-MWidgetMainLoop(window)
-</pre>
-<p>
-There are two methods of getting events. One is to subclass and override the events, as with the @OnClose() above. The other is to set
-function pointers in the matching event lists, @OnCloseEvent in this instance. For instance:
-</p>
-<pre>
-Function OnClose(o:TMWidget)
- Local w:TMWindow=TMWindow(o)
- w.closed=Confirm("Really quit?")
-End Function
-
-Local window:TMWindow=New TMWindow.Create("Test",100,100,640,400)
-window.OnCloseEvent.Add(OnClose)
-MWidgetMainLoop(window)
-</pre>
-<p>
-When using the function callback method of capturing events, the parameters to the function are the same as the overridable method with the addition
-of the managed widget which is passed in as the first argument.
-</p>
-EndRem
-Module noddybox.mwidget
-
-ModuleInfo "Framework: Simple Managed Widget Classes"
-ModuleInfo "Copyright: Public Domain"
-ModuleInfo "Author: Ian Cowburn"
-ModuleInfo "Version: $Revision$"
-
-' $Id$
-
-Strict
-Import brl.maxgui
-Import brl.linkedlist
-Import brl.event
-Import brl.timer
-Import brl.map
-Import brl.filesystem
-
-Type TMWEventListBase Abstract
- Field list:TList
- Method New()
- list=CreateList()
- End Method
-End Type
-
-Type TMWFuncVoid
- Field func(w:TMWidget)
- Function Create:TMWFuncVoid(func(w:TMWidget))
- Local o:TMWFuncVoid=New TMWFuncVoid
- o.func=func
- Return o
- End Function
-End Type
-
-Type TMWFuncInt
- Field func(w:TMWidget, a:Int)
- Function Create:TMWFuncInt(func(w:TMWidget, a:Int))
- Local o:TMWFuncInt=New TMWFuncInt
- o.func=func
- Return o
- End Function
-End Type
-
-Type TMWFuncIntInt
- Field func(w:TMWidget, a:Int, b:Int)
- Function Create:TMWFuncIntInt(func(w:TMWidget, a:Int, b:Int))
- Local o:TMWFuncIntInt=New TMWFuncIntInt
- o.func=func
- Return o
- End Function
-End Type
-
-Type TMWFuncString
- Field func(w:TMWidget, a:String)
- Function Create:TMWFuncString(func(w:TMWidget, a:String))
- Local o:TMWFuncString=New TMWFuncString
- o.func=func
- Return o
- End Function
-End Type
-
-
-Type TMWFuncStringObject
- Field func(w:TMWidget, a:String, b:Object)
- Function Create:TMWFuncStringObject(func(w:TMWidget, a:String, b:Object))
- Local o:TMWFuncStringObject=New TMWFuncStringObject
- o.func=func
- Return o
- End Function
-End Type
-
-
-Rem
-bbdoc: Defines an event list for functions that take the parameters (w:TMWidget)
-EndRem
-Type TMWEventListVoid Extends TMWEventListBase Final
- Rem
- bbdoc: Adds a callback function.
- EndRem
- Method Add(func(w:TMWidget))
- list.AddLast(TMWFuncVoid.Create(func))
- End Method
-
- Rem
- bbdoc: Clears all callback functions.
- EndRem
- Method Clear()
- list.Clear()
- End Method
-
- Rem
- bbdoc: Removes a callback function.
- EndRem
- Method Remove(func(w:TMWidget))
- For Local fp:TMWFuncVoid=EachIn list
- If fp.func=func
- list.Remove(fp)
- Return
- EndIf
- Next
- End Method
-
- Method Fire(w:TMWidget)
- For Local fp:TMWFuncVoid=EachIn list
- fp.func(w)
- Next
- End Method
-End Type
-
-
-Rem
-bbdoc: Defines an event list for functions that take the parameters (w:TMWidget, a:Int)
-EndRem
-Type TMWEventListInt Extends TMWEventListBase Final
- Rem
- bbdoc: Adds a callback function.
- EndRem
- Method Add(func(w:TMWidget, a:Int))
- list.AddLast(TMWFuncInt.Create(func))
- End Method
-
- Rem
- bbdoc: Clears all callback functions.
- EndRem
- Method Clear()
- list.Clear()
- End Method
-
- Rem
- bbdoc: Removes a callback function.
- EndRem
- Method Remove(func(w:TMWidget, a:Int))
- For Local fp:TMWFuncInt=EachIn list
- If fp.func=func
- list.Remove(fp)
- Return
- EndIf
- Next
- End Method
-
- Method Fire(w:TMWidget, a:Int)
- For Local fp:TMWFuncInt=EachIn list
- fp.func(w,a)
- Next
- End Method
-End Type
-
-
-Rem
-bbdoc: Defines an event list for functions that take the parameters (w:TMWidget, a:String)
-EndRem
-Type TMWEventListString Extends TMWEventListBase Final
- Rem
- bbdoc: Adds a callback function.
- EndRem
- Method Add(func(w:TMWidget, a:String))
- list.AddLast(TMWFuncString.Create(func))
- End Method
-
- Rem
- bbdoc: Clears all callback functions.
- EndRem
- Method Clear()
- list.Clear()
- End Method
-
- Rem
- bbdoc: Removes a callback function.
- EndRem
- Method Remove(func(w:TMWidget, a:String))
- For Local fp:TMWFuncString=EachIn list
- If fp.func=func
- list.Remove(fp)
- Return
- EndIf
- Next
- End Method
-
- Method Fire(w:TMWidget, a:String)
- For Local fp:TMWFuncString=EachIn list
- fp.func(w,a)
- Next
- End Method
-End Type
-
-
-Rem
-bbdoc: Defines an event list for functions that take the parameters (w:TMWidget, a:Int, b:Int)
-EndRem
-Type TMWEventListIntInt Extends TMWEventListBase Final
- Rem
- bbdoc: Adds a callback function.
- EndRem
- Method Add(func(w:TMWidget, a:Int, b:Int))
- list.AddLast(TMWFuncIntInt.Create(func))
- End Method
-
- Rem
- bbdoc: Clears all callback functions.
- EndRem
- Method Clear()
- list.Clear()
- End Method
-
- Rem
- bbdoc: Removes a callback function.
- EndRem
- Method Remove(func(w:TMWidget, a:Int, b:Int))
- For Local fp:TMWFuncIntInt=EachIn list
- If fp.func=func
- list.Remove(fp)
- Return
- EndIf
- Next
- End Method
-
- Method Fire(w:TMWidget, a:Int, b:Int)
- For Local fp:TMWFuncIntInt=EachIn list
- fp.func(w,a,b)
- Next
- End Method
-End Type
-
-
-Rem
-bbdoc: Defines an event list for functions that take the parameters (w:TMWidget, a:String, b:Object)
-EndRem
-Type TMWEventListStringObject Extends TMWEventListBase Final
- Rem
- bbdoc: Adds a callback function.
- EndRem
- Method Add(func(w:TMWidget, a:String, b:Object))
- list.AddLast(TMWFuncStringObject.Create(func))
- End Method
-
- Rem
- bbdoc: Clears all callback functions.
- EndRem
- Method Clear()
- list.Clear()
- End Method
-
- Rem
- bbdoc: Removes a callback function.
- EndRem
- Method Remove(func(w:TMWidget, a:String, b:Object))
- For Local fp:TMWFuncStringObject=EachIn list
- If fp.func=func
- list.Remove(fp)
- Return
- EndIf
- Next
- End Method
-
- Method Fire(w:TMWidget, a:String, b:Object)
- For Local fp:TMWFuncStringObject=EachIn list
- fp.func(w,a,b)
- Next
- End Method
-End Type
-
-
-Rem
-bbdoc: Defines a base managed widget type.
-EndRem
-Type TMWidget Abstract
-
- Rem
- bbdoc: The underlying BlitzMAX GUI Gadget
- EndRem
- Field gadget:TGadget
-
- Rem
- bbdoc: The parent of this managed widget
- EndRem
- Field parent:TMWidget
-
- Rem
- bbdoc: Children of this managed widget
- EndRem
- Field children:TList
-
- Field typename:String
- Field timer:TTimer
-
- Method Delete()
- FreeGadget(gadget)
- End Method
-
- Rem
- bbdoc: Handles an event.
- about: Sub-classes will generally override this to handle events directed at themselves.
- If the event is unhandled then the event should be passed up to the parent type. @e holds the TEvent.
- EndRem
- Method Handle(e:TEvent)
- Select e.id
- Case EVENT_MOUSEENTER
- OnMouseEnter()
- OnMouseEnterEvent.Fire(Self)
- Case EVENT_MOUSELEAVE
- OnMouseLeave()
- OnMouseLeaveEvent.Fire(Self)
- Case EVENT_TIMERTICK
- OnTimer()
- OnTimerEvent.Fire(Self)
- End Select
- End Method
-
- Rem
- bbdoc: Activate the widget (give it keyboard focus).
- EndRem
- Method Activate(state:Int)
- ActivateGadget(gadget)
- End Method
-
- Rem
- bbdoc: Enables/disables a widget.
- EndRem
- Method Enabled(state:Int)
- If state
- EnableGadget(gadget)
- Else
- DisableGadget(gadget)
- EndIf
- End Method
-
- Rem
- bbdoc: Is widget enabled.
- returns: TRUE if enabled.
- EndRem
- Method IsEnabled:Int()
- Return Not GadgetDisabled(gadget)
- End Method
-
- Rem
- bbdoc: Hide/show the widget.
- EndRem
- Method Hidden(state:Int)
- If state
- HideGadget(gadget)
- Else
- ShowGadget(gadget)
- EndIf
- End Method
-
- Rem
- bbdoc: Is widget hidden.
- returns: TRUE if hidden.
- EndRem
- Method IsHidden:Int()
- Return GadgetHidden(gadget)
- End Method
-
- Rem
- bbdoc: The widget's position.
- returns: The widget's X co-ordinate.
- EndRem
- Method X:Int()
- Return GadgetX(gadget)
- End Method
-
- Rem
- bbdoc: The widget's position.
- returns: The widget's Y co-ordinate.
- EndRem
- Method Y:Int()
- Return GadgetY(gadget)
- End Method
-
- Rem
- bbdoc: The widget's size.
- returns: The widget's width.
- EndRem
- Method Width:Int()
- Return GadgetWidth(gadget)
- End Method
-
- Rem
- bbdoc: The widget's size.
- returns: The widget's height.
- EndRem
- Method Height:Int()
- Return GadgetHeight(gadget)
- End Method
-
- Rem
- bbdoc: The widget's client size.
- returns: The widget's client width.
- EndRem
- Method Client_Width:Int()
- Return ClientWidth(gadget)
- End Method
-
- Rem
- bbdoc: The widget's client size.
- returns: The widget's client height.
- EndRem
- Method Client_Height:Int()
- Return ClientHeight(gadget)
- End Method
-
- Rem
- bbdoc: Set the widget's font.
- EndRem
- Method Font(font:TGUIFont)
- SetGadgetFont(gadget,font)
- End Method
-
- Rem
- bbdoc: Set the widgets's layout. See Max GUIs SetGadgetLayout() for details.
- EndRem
- Method Layout(Left:Int, Right:Int, top:Int, bottom:Int)
- SetGadgetLayout(gadget,Left,Right,top,bottom)
- End Method
-
- Rem
- bbdoc: Set the widget's position and size.
- EndRem
- Method SetShape(x:Int, y:Int, width:Int, height:Int)
- SetGadgetShape(gadget,x,y,width,height)
- End Method
-
- Rem
- bbdoc: Set the widgets's alpha.
- EndRem
- Method Alpha(a:Double)
- SetGadgetAlpha(gadget,a)
- End Method
-
- Rem
- bbdoc: Set the widgets's text colour.
- EndRem
- Method TextColour(r:Int, g:Int, b:Int)
- SetGadgetTextColor(gadget,r,g,b)
- End Method
-
- Rem
- bbdoc: Set the widgets's background colour.
- EndRem
- Method BackColour(r:Int, g:Int, b:Int)
- SetGadgetColor(gadget,r,g,b)
- End Method
-
- Rem
- bbdoc: Set the widgets's text.
- EndRem
- Method Text(s:String)
- SetGadgetText(gadget,s)
- End Method
-
- Rem
- bbdoc: Print the widget
- EndRem
- Method Print()
- GadgetPrint(gadget)
- End Method
-
- Rem
- bbdoc: Perform a cut on the widget
- EndRem
- Method Cut()
- GadgetCut(gadget)
- End Method
-
- Rem
- bbdoc: Perform a copy on the widget
- EndRem
- Method Copy()
- GadgetCopy(gadget)
- End Method
-
- Rem
- bbdoc: Perform a paste on the widget
- EndRem
- Method Paste()
- GadgetPaste(gadget)
- End Method
-
- Rem
- bbdoc: Allocates a timer for this widget.
- about: Create a Blitz MAX TTimer that is fired @hertz times a second. When the timer pulses then @OnTimer() is called.
- If this routine is called when a timer is already active, then the timer is re-initialised with the passed hertz.
- EndRem
- Method SetTimer(hertz:Double)
- ClearTimer()
- timer=CreateTimer(hertz,CreateEvent(EVENT_TIMERTICK,gadget))
- End Method
-
- Rem
- bbdoc: Clears timer previously activated by @SetTimer().
- EndRem
- Method ClearTimer()
- If timer
- StopTimer(timer)
- EndIf
- timer=Null
- End Method
-
- Rem
- bbdoc: Called when the widget's timer fires.
- EndRem
- Method OnTimer()
- End Method
-
- Rem
- bbdoc: Called when the widget's timer fires.
- EndRem
- Field OnTimerEvent:TMWEventListVoid
-
- Rem
- bbdoc: Called when the widget is managed.
- EndRem
- Method OnManage()
- End Method
-
- Rem
- bbdoc: Called when the widget is managed.
- EndRem
- Field OnManageEvent:TMWEventListVoid
-
- Rem
- bbdoc: Called when the widget is unmanaged.
- EndRem
- Method OnUnmanage()
- End Method
-
- Rem
- bbdoc: Called when the widget is unmanaged.
- EndRem
- Field OnUnmanageEvent:TMWEventListVoid
-
- Rem
- bbdoc: Called when the mouse enters.
- EndRem
- Method OnMouseEnter()
- End Method
-
- Rem
- bbdoc: Called when the mouse enters.
- EndRem
- Field OnMouseEnterEvent:TMWEventListVoid
-
- Rem
- bbdoc: Called when the mouse leaves.
- EndRem
- Method OnMouseLeave()
- End Method
-
- Rem
- bbdoc: Called when the mouse leaves.
- EndRem
- Field OnMouseLeaveEvent:TMWEventListVoid
-
- Rem
- bbdoc: Fires an event at this managed widget.
- about: The arguments are the same as @CreateEvent(), but no source is passed in.
- EndRem
- Method Emit(id:Int, data:Int=0, mods:Int=0, x:Int=0, y:Int=0,extra:Object=Null)
- EmitEvent(CreateEvent(id,gadget,data,mods,x,y,extra))
- End Method
-
- Rem
- bbdoc: Initialises the base managed widget stuff.
- about: All sub-classes must call this! @gadget is the created TGadget for this instance,
- 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
-
- OnTimerEvent=New TMWEventListVoid
- OnManageEvent=New TMWEventListVoid
- OnUnmanageEvent=New TMWEventListVoid
- OnMouseEnterEvent=New TMWEventListVoid
- OnMouseLeaveEvent=New TMWEventListVoid
-
- If self.parent
- self.parent.children.AddLast(Self)
- EndIf
-
- Static.Register(Self)
- End Method
-
- Rem
- bbdoc: Removes the managed widget from the internal lists.
- about: All child objects will also be unmanaged.
- EndRem
- Method Unmanage()
- Static.Deregister(Self)
- End Method
-
- Method ToString:String()
- Return typename+":"+super.ToString()
- End Method
-End Type
-
-
-Rem
-bbdoc: Defines a managed window.
-EndRem
-Type TMWindow Extends TMWidget
-
- Rem
- bbdoc: Creates a managed window.
- returns: The created window.
- about: @name, @x, @y, @w, @h, @group and @flags act the same as the MaxGUI arguments to @CreateWindow(), except that @group is a TMWidget.
- EndRem
- Method Create:TMWindow(name:String, x:Int,y:Int, w:Int, h:Int, group:TMWidget=Null, flags:Int=15)
- closed=False
-
- OnMoveEvent=New TMWEventListIntInt
- OnResizeEvent=New TMWEventListIntInt
- OnCloseEvent=New TMWEventListVoid
- OnDropEvent=New TMWEventListString
-
- Local g:TGadget
-
- If group
- g=CreateWindow(name,x,y,w,h,group.gadget,flags)
- Else
- g=CreateWindow(name,x,y,w,h,Null,flags)
- EndIf
-
- BaseInitialise(g,group)
- typename="TMWindow"
- Return Self
- End Method
-
- Rem
- bbdoc: Set to TRUE when the window is closed (the user has pressed the close gadget).
- EndRem
- Field closed:Int
-
- Rem
- bbdoc: Activate the window.
- EndRem
- Method Activate(state:Int)
- ActivateWindow(gadget)
- End Method
-
- Rem
- bbdoc: Send a close event to this window.
- EndRem
- Method Close()
- Emit(EVENT_WINDOWCLOSE)
- End Method
-
- Rem
- bbdoc: Hide to show the window.
- about: Note that this sets the @closed field to the @state passed in.
- EndRem
- Method Hidden(state:Int)
- closed=state
- super.Hidden(state)
- End Method
-
- Rem
- bbdoc: Set the window's status text.
- EndRem
- Method StatusText(text:String)
- SetStatusText(gadget,text)
- End Method
-
- Rem
- bbdoc: Set the window's minimum size.
- EndRem
- Method MinSize(width:Int, height:Int)
- Return SetMinWindowSize(gadget,width,height)
- End Method
-
- Rem
- bbdoc: Restore a minimizwed or maximized window.
- EndRem
- Method Restore()
- Return RestoreWindow(gadget)
- End Method
-
- Rem
- bbdoc: Maximize the window.
- EndRem
- Method Maximize()
- Return MaximizeWindow(gadget)
- End Method
-
- Rem
- bbdoc: Is the window maximized?
- returns:TRUE if the window is maximized
- EndRem
- Method IsMaximized()
- Return WindowMaximized(gadget)
- End Method
-
- Rem
- bbdoc: Minimize the window.
- EndRem
- Method Minimize()
- Return MinimizeWindow(gadget)
- End Method
-
- Rem
- bbdoc: Is the window minimized?
- returns:TRUE if the window is minimized
- EndRem
- Method IsMinimized()
- Return WindowMinimized(gadget)
- End Method
-
- Rem
- bbdoc: Called when the window is moved.
- about:@x and @y are the new position.
- EndRem
- Method OnMove(x:Int, y:Int)
- End Method
-
- Rem
- bbdoc: Called when the window is moved.
- EndRem
- Field OnMoveEvent:TMWEventListIntInt
-
- Rem
- bbdoc: Called when the window is resized.
- about:@width and @height are the new size.
- EndRem
- Method OnResize(width:Int, height:Int)
- End Method
-
- Rem
- bbdoc: Called when the window is resized.
- EndRem
- Field OnResizeEvent:TMWEventListIntInt
-
- Rem
- bbdoc: Called when the window's close gadget is pressed.
- about: This default implementation sets @closed to TRUE and hide the window if no events are defined in @OnCloseEvent.
- EndRem
- Method OnClose()
- If Not OnCloseEvent.list.Count()
- closed=True
- Hidden(True)
- EndIf
- End Method
-
- Rem
- bbdoc: Called when the window's close gadget is pressed.
- EndRem
- Field OnCloseEvent:TMWEventListVoid
-
- Rem
- bbdoc: Called when a file is dropped in the window.
- about: @path is the dropped file.
- EndRem
- Method OnDrop(path:String)
- End Method
-
- Rem
- bbdoc: Called when a file is dropped in the window.
- EndRem
- Field OnDropEvent:TMWEventListString
-
- Method Handle(e:TEvent)
- Select e.id
- Case EVENT_WINDOWACCEPT
- OnDrop(String(e.extra))
- OnDropEvent.Fire(Self,String(e.extra))
- Case EVENT_WINDOWMOVE
- OnMove(e.x,e.y)
- OnMoveEvent.Fire(Self,e.x,e.y)
- Case EVENT_WINDOWSIZE
- OnResize(e.x,e.y)
- OnResizeEvent.Fire(Self,e.x,e.y)
- Case EVENT_WINDOWCLOSE
- OnClose()
- OnCloseEvent.Fire(Self)
- Default
- super.Handle(e)
- End Select
- End Method
-End Type
-
-
-Rem
-bbdoc: Defines a managed button push button.
-EndRem
-Type TMButton Extends TMWidget
-
- Rem
- bbdoc: Creates a managed push button.
- returns: The created button.
- about: @label, @x, @y, @w, @h, and @group act the same as the MaxGUI arguments to @CreateButton(), except that @group is a TMWidget.
- EndRem
- Method Create:TMButton(label:String, x:Int,y:Int, w:Int, h:Int, group:TMWidget)
- OnPressEvent=New TMWEventListVoid
- BaseInitialise(CreateButton(label,x,y,w,h,group.gadget,BUTTON_PUSH),group)
- typename="TMButton"
- Return Self
- End Method
-
- Rem
- bbdoc: Creates a managed push button used for an OK button
- returns: The created button.
- about: @label, @x, @y, @w, @h, and @group act the same as the MaxGUI arguments to @CreateButton(), except that @group is a TMWidget.
- EndRem
- Method CreateOK:TMButton(label:String, x:Int,y:Int, w:Int, h:Int, group:TMWidget)
- OnPressEvent=New TMWEventListVoid
- BaseInitialise(CreateButton(label,x,y,w,h,group.gadget,BUTTON_OK),group)
- typename="TMButton"
- Return Self
- End Method
-
- Rem
- bbdoc: Creates a managed push button used for a Cancel button
- returns: The created button.
- about: @label, @x, @y, @w, @h, and @group act the same as the MaxGUI arguments to @CreateButton(), except that @group is a TMWidget.
- EndRem
- Method CreateCancel:TMButton(label:String, x:Int,y:Int, w:Int, h:Int, group:TMWidget)
- OnPressEvent=New TMWEventListVoid
- BaseInitialise(CreateButton(label,x,y,w,h,group.gadget,BUTTON_OK),group)
- typename="TMButton"
- Return Self
- End Method
-
- Rem
- bbdoc: Called when the button is pressed.
- EndRem
- Method OnPress()
- End Method
-
- Rem
- bbdoc: Called when the button is pressed.
- EndRem
- Field OnPressEvent:TMWEventListVoid
-
- Method Handle(e:TEvent)
- Select e.id
- Case EVENT_GADGETACTION
- OnPress()
- OnPressEvent.Fire(Self)
- Default
- super.Handle(e)
- End Select
- End Method
-End Type
-
-
-Rem
-bbdoc: Defines a managed checkbox.
-EndRem
-Type TMCheckbox Extends TMWidget
- Rem
- bbdoc: Creates a managed checkbox.
- returns: The created checkbox.
- about: @label, @x, @y, @w, @h, and @group act the same as the MaxGUI arguments to @CreateButton(), except that @group is a TMWidget.
- EndRem
- Method Create:TMCheckbox(label:String, x:Int,y:Int, w:Int, h:Int, group:TMWidget)
- OnPressEvent=New TMWEventListInt
- BaseInitialise(CreateButton(label,x,y,w,h,group.gadget,BUTTON_CHECKBOX),group)
- typename="TMCheckbox"
- Return Self
- End Method
-
- Rem
- bbdoc: Sets the state of the check.
- EndRem
- Method Checked(check:Int)
- SetButtonState(gadget,check)
- End Method
-
- Rem
- bbdoc: Is the checkbox checked?
- returns:TRUE if the checkbox is checked.
- EndRem
- Method IsChecked()
- Return ButtonState(gadget)
- End Method
-
- Rem
- bbdoc: Called when the checkbox is pressed.
- about: @checked is the current state.
- EndRem
- Method OnPress(checked:Int)
- End Method
-
- Rem
- bbdoc: Called when the checkbox is pressed.
- EndRem
- Field OnPressEvent:TMWEventListInt
-
- Method Handle(e:TEvent)
- Select e.id
- Case EVENT_GADGETACTION
- OnPress(e.data)
- OnPressEvent.Fire(Self,e.data)
- Default
- super.Handle(e)
- End Select
- End Method
-End Type
-
-
-Rem
-bbdoc: Defines a managed radio button.
-EndRem
-Type TMRadioButton Extends TMCheckbox
- Field set:TMRadioButtonSet
-
- Rem
- bbdoc: Creates a managed radio button.
- returns: The created radio button.
- about: @label, @x, @y, @w, @h, and @group act the same as the MaxGUI arguments to @CreateButton(), except that @group is a TMWidget.
- EndRem
- Method Create:TMRadioButton(label:String, x:Int,y:Int, w:Int, h:Int, group:TMWidget)
- OnPressEvent=New TMWEventListInt
- BaseInitialise(CreateButton(label,x,y,w,h,group.gadget,BUTTON_RADIO),group)
- typename="TMRadioButton"
- Return Self
- End Method
-
- Rem
- bbdoc: Called when the checkbox is pressed.
- about: @checked is the current state. In this default implementation the @TMRadioButtonSet which this button belongs too will fire
- its @OnSelected() member.
- EndRem
- Method OnPress(checked:Int)
- If set
- set.ButtonFired(Self)
- EndIf
- End Method
-End Type
-
-
-Rem
-bbdoc: Defines a set of managed radio button.
-EndRem
-Type TMRadioButtonSet
- Field but:TMRadioButton[]
-
- Rem
- bbdoc: Creates a set of managed radio buttons.
- returns: The created set.
- about: The radio buttons must have been created prior to calling this.
- EndRem
- Method Create:TMRadioButtonSet(buttons:TMRadioButton[])
- OnSelectedEvent=New TMWEventListInt
- but=buttons
- For Local b:TMRadioButton=EachIn but
- b.set=Self
- Next
- Return Self
- End Method
-
- Rem
- bbdoc: Sets the active radio button.
- about: @index is the index of the button to set.
- EndRem
- Method Set(index:Int)
- but[index].Checked(True)
- End Method
-
- Rem
- bbdoc: If using the base TMRadioButton implmentation this will be called when the buttons change.
- about: @index is the selected button.
- EndRem
- Method OnSelected(index:Int)
- End Method
-
- Rem
- bbdoc: If using the base TMRadioButton implmentation this will be called when the buttons change.
- about: The radio button that fired will be passed into the event.
- EndRem
- Field OnSelectedEvent:TMWEventListInt
-
- Rem
- bbdoc: Get the active radio button.
- returns: The index of the button set. -1 if no button is set.
- EndRem
- Method Current()
- For Local f:Int=0 Until but.length
- If but[f].IsChecked()
- Return f
- EndIf
- Next
- Return -1
- End Method
-
- Method ButtonFired(b:TMRadioButton)
- For Local f:Int=0 Until but.length
- If but[f]=b
- OnSelected(f)
- OnSelectedEvent.Fire(b,f)
- Return
- EndIf
- Next
- End Method
-End Type
-
-
-Rem
-bbdoc: Defines a managed label.
-EndRem
-Type TMLabel Extends TMWidget
-
- Rem
- bbdoc: Creates a managed label.
- returns: The created label.
- about: @label, @x, @y, @w, @h, @group and @style act the same as the MaxGUI arguments to @CreateLabel(), except that @group is a TMWidget.
- EndRem
- Method Create:TMLabel(label:String, x:Int,y:Int, w:Int, h:Int, group:TMWidget, style:Int=0)
- BaseInitialise(CreateLabel(label,x,y,w,h,group.gadget,style),group)
- typename="TMLabel"
- Return Self
- End Method
-End Type
-
-
-Rem
-bbdoc: Defines a managed text field.
-EndRem
-Type TMTextField Extends TMWidget
- Rem
- bbdoc: Creates a managed text field.
- returns: The created text field.
- about: @x, @y, @w, @h, and @group act the same as the MaxGUI arguments to @CreateTextField(), except that @group is a TMWidget.
- EndRem
- Method Create:TMTextField(x:Int,y:Int, w:Int, h:Int, group:TMWidget)
- OnTextChangedEvent=New TMWEventListString
- BaseInitialise(CreateTextField(x,y,w,h,group.gadget),group)
- typename="TMTextField"
- Return Self
- End Method
-
- Rem
- bbdoc: Creates a managed text field for entering passwords.
- returns: The created text field.
- about: @x, @y, @w, @h, and @group act the same as the MaxGUI arguments to @CreateTextField(), except that @group is a TMWidget.
- EndRem
- Method CreateSecret:TMTextField(x:Int,y:Int, w:Int, h:Int, group:TMWidget)
- BaseInitialise(CreateTextField(x,y,w,h,group.gadget,TEXTFIELD_PASSWORD),group)
- typename="TMTextField"
- Return Self
- End Method
-
- Rem
- bbdoc: The field's text.
- returns:The text.
- EndRem
- Method GetText:String()
- Return TextFieldText(gadget)
- End Method
-
- Rem
- bbdoc: Called when the text changes.
- about: @txt is the content of the field
- EndRem
- Method OnTextChanged(txt:String)
- End Method
-
- Rem
- bbdoc: Called when the text changes.
- EndRem
- Field OnTextChangedEvent:TMWEventListString
-
- Method Handle(e:TEvent)
- Select e.id
- Case EVENT_GADGETACTION
- Local s:String=TextFieldText(gadget)
- OnTextChanged(s)
- OnTextChangedEvent.Fire(Self,s)
- Default
- super.Handle(e)
- End Select
- End Method
-End Type
-
-
-Rem
-bbdoc: Defines a managed text area.
-EndRem
-Type TMTextArea Extends TMWidget
- Rem
- bbdoc: Creates a managed text area.
- returns: The created text area.
- about: @x, @y, @w, @h,, @group and @style act the same as the MaxGUI arguments to @CreateTextArea(), except that @group is a TMWidget.
- EndRem
- Method Create:TMTextArea(x:Int, y:Int, w:Int, h:Int, group:TMWidget, style:Int=0)
- OnTextChangedEvent=New TMWEventListVoid
- OnSelectionEvent=New TMWEventListVoid
- OnMenuEvent=New TMWEventListVoid
- BaseInitialise(CreateTextArea(x,y,w,h,group.gadget,style),group)
- typename="TMTextArea"
- Return Self
- End Method
-
- Rem
- bbdoc: The text area's text.
- returns:The text.
- EndRem
- Method GetText:String(pos:Int=0, length:Int=TEXTAREA_ALL, units:Int=TEXTAREA_CHARS)
- Return TextAreaText(gadget,pos,length,units)
- End Method
-
- Rem
- bbdoc: Set the widget's font.
- EndRem
- Method Font(font:TGUIFont)
- SetTextAreaFont(gadget,font)
- End Method
-
- Rem
- bbdoc: Set the widgets's text colour.
- EndRem
- Method TextColour(r:Int, g:Int, b:Int)
- SetTextAreaColor(gadget,r,g,b,False)
- End Method
-
- Rem
- bbdoc: Set the widgets's background colour.
- EndRem
- Method BackColour(r:Int, g:Int, b:Int)
- SetTextAreaColor(gadget,r,g,b,True)
- End Method
-
- Rem
- bbdoc: Set the widgets's text.
- EndRem
- Method Text(s:String)
- SetText(s)
- End Method
-
- Rem
- bbdoc: Set the widgets's text (see the MaxGUI docs for argument details)
- EndRem
- Method SetText(s:String, pos:Int=0, length:Int=TEXTAREA_ALL, units:Int=TEXTAREA_CHARS)
- SetTextAreaText(gadget,s,pos,length,units)
- End Method
-
- Rem
- bbdoc: Set the text area's tab size
- EndRem
- Method SetTabSize(size:Int)
- SetTextAreaTabs(gadget,size)
- End Method
-
- Rem
- bbdoc: Get the character position of the specified line.
- EndRem
- Method GetCharPos:Int(line:Int)
- Return TextAreaChar(gadget,line)
- End Method
-
- Rem
- bbdoc: Get the cursor's column.
- EndRem
- Method GetCursorColumn:Int()
- Return TextAreaCursor(gadget,TEXTAREA_CHARS)
- End Method
-
- Rem
- bbdoc: Get the cursor's row.
- EndRem
- Method GetCursorRow:Int()
- Return TextAreaCursor(gadget,TEXTAREA_LINES)
- End Method
-
- Rem
- bbdoc: Get the text length.
- EndRem
- Method GetLength:Int()
- Return TextAreaLen(gadget)
- End Method
-
- Rem
- bbdoc: Get the selected texts length.
- EndRem
- Method GetSelectionLength:Int()
- Return TextAreaSelLen(gadget,TEXTAREA_CHARS)
- End Method
-
- Rem
- bbdoc: Get the number of selected rows.
- EndRem
- Method GetSelectionRows:Int()
- Return TextAreaSelLen(gadget,TEXTAREA_LINES)
- End Method
-
- Rem
- bbdoc: Lock the text area.
- EndRem
- Method Lock()
- Return LockTextArea(gadget)
- End Method
-
- Rem
- bbdoc: Unlock the text area.
- EndRem
- Method Unlock()
- Return UnlockTextArea(gadget)
- End Method
-
- Rem
- bbdoc: Set the format. See the MaxGUI docs for details.
- EndRem
- Method Format(r:Int, g:Int, b:Int, flags:Int, pos:Int=0, length:Int=TEXTAREA_ALL, units:Int=TEXTAREA_CHARS )
- FormatTextAreaText(gadget,r,g,b,flags,pos,length,units)
- End Method
-
- Rem
- bbdoc: Called when the text changes.
- EndRem
- Method OnTextChanged()
- End Method
-
- Rem
- bbdoc: Called when the text changes.
- EndRem
- Field OnTextChangedEvent:TMWEventListVoid
-
- Rem
- bbdoc: Called when the selection or cursor changes.
- EndRem
- Method OnSelection()
- End Method
-
- Rem
- bbdoc: Called when the selection or cursor changes.
- EndRem
- Field OnSelectionEvent:TMWEventListVoid
-
- Rem
- bbdoc: Called when the context menu is requested.
- EndRem
- Method OnMenu()
- End Method
-
- Rem
- bbdoc: Called when the context menu is requested.
- EndRem
- Field OnMenuEvent:TMWEventListVoid
-
- Method Handle(e:TEvent)
- Select e.id
- Case EVENT_GADGETACTION
- OnTextChanged()
- OnTextChangedEvent.Fire(Self)
- Case EVENT_GADGETSELECT
- OnSelection()
- OnSelectionEvent.Fire(Self)
- Case EVENT_GADGETMENU
- OnMenu()
- OnMenuEvent.Fire(Self)
- Default
- super.Handle(e)
- End Select
- End Method
-End Type
-
-
-Rem
-bbdoc: Defines a managed slider.
-EndRem
-Type TMSlider Extends TMWidget
- Rem
- bbdoc: Creates a managed slider.
- returns: The created slider.
- about: @x, @y, @w, @h, @group and @style act the same as the MaxGUI arguments to @CreateSlider(), except that @group is a TMWidget.
- EndRem
- Method Create:TMSlider(x:Int, y:Int, w:Int, h:Int, group:TMWidget, style:Int=0)
- OnValueChangedEvent=New TMWEventListInt
- BaseInitialise(CreateSlider(x,y,w,h,group.gadget,style),group)
- typename="TMSlider"
- Return Self
- End Method
-
- Rem
- bbdoc: Set the sliders's min/max values.
- about: See the MaxGUI docs for how this affects scrollbar style sliders.
- EndRem
- Method SetRange(range0:Int,range1:Int)
- Return SetSliderRange(gadget,range0,range1)
- End Method
-
- Rem
- bbdoc: Set the sliders's value.
- EndRem
- Method SetValue(value:Int)
- Return SetSliderValue(gadget,value)
- End Method
-
- Rem
- bbdoc: The sliders's value.
- returns:The value.
- EndRem
- Method GetValue:Int()
- Return SliderValue(gadget)
- End Method
-
- Rem
- bbdoc: Called when the slider moves.
- about: @val is the new slider value.
- EndRem
- Method OnValueChanged(val:Int)
- End Method
-
- Rem
- bbdoc: Called when the slider moves.
- EndRem
- Field OnValueChangedEvent:TMWEventListInt
-
- Method Handle(e:TEvent)
- Select e.id
- Case EVENT_GADGETACTION
- OnValueChanged(e.data)
- OnValueChangedEvent.Fire(Self,e.data)
- Default
- super.Handle(e)
- End Select
- End Method
-End Type
-
-
-Rem
-bbdoc: Defines an entry in a list style gadget.
-about: Always use @CreateListEntry() to create this object.
-EndRem
-Type TMListEntry
- Rem
- bbdoc: The text associated with a list entry.
- EndRem
- Field text:String
- Rem
- bbdoc: The flags associated with a list entry.
- EndRem
- Field flags:Int
- Rem
- bbdoc: The icon associated with a list entry.
- EndRem
- Field icon:Int
- Rem
- bbdoc: The tooltip associated with a list entry.
- EndRem
- Field tip:String
- Rem
- bbdoc: The extra object associated with a list entry.
- EndRem
- Field extra:Object
-
- Function Create:TMListEntry(text:String,flags:Int,icon:Int,tip:String,extra:Object)
- Local o:TMListEntry=New TMListEntry
- o.text=text
- o.flags=flags
- o.icon=icon
- o.tip=tip
- o.extra=extra
- Return o
- End Function
-End Type
-
-
-Rem
-bbdoc: Creates a list entry.
-returns: The list entry.
-about: @text, @flags, @icon, @tip and @extra are the fields detailed in MaxGUI @AddGadgetItem().
-EndRem
-Function CreateListEntry:TMListEntry(text:String,flags:Int=0,icon:Int=-1,tip:String="",extra:Object=Null)
- Return TMListEntry.Create(text,flags,icon,tip,extra)
-End Function
-
-
-Rem
-bbdoc: Defines a base for list style gadgets.
-EndRem
-Type TMListWidget Extends TMWidget Abstract
- Rem
- bbdoc: Removes all items from the list.
- EndRem
- Method Clear()
- ClearGadgetItems(gadget)
- End Method
-
- Rem
- bbdoc: Adds an item to the list.
- EndRem
- Method AddItem(entry:TMListEntry)
- AddGadgetItem(gadget,entry.text,entry.flags,entry.icon,entry.tip,entry.extra)
- End Method
-
- Rem
- bbdoc: Adds items to the list.
- EndRem
- Method AddItems(entry:TMListEntry[])
- For Local f:Int=0 Until entry.length
- AddItem(entry[f])
- Next
- End Method
-
- Rem
- bbdoc: Modify an item in the list.
- EndRem
- Method ModifyItem(index:Int, entry:TMListEntry)
- ModifyGadgetItem(gadget,index,entry.text,entry.flags,entry.icon,entry.tip,entry.extra)
- End Method
-
- Rem
- bbdoc: Set an icon strip for the list.
- EndRem
- Method SetIconStrip(icons:TIconStrip)
- SetGadgetIconStrip(gadget,icons)
- End Method
-
- Rem
- bbdoc: Get an item from the list.
- about: Note that the @tip field is not set on return
- EndRem
- Method GetItem:TMListEntry(index:Int)
- Return CreateListEntry(GadgetItemText(gadget,index), ..
- GadgetItemFlags(gadget,index), ..
- GadgetItemIcon(gadget,index), ..
- "", ..
- GadgetItemExtra(gadget,index))
- End Method
-
- Rem
- bbdoc: Enable or disable a particular item.
- EndRem
- Method ItemEnabled(index:Int, state:Int)
- If state
- EnableGadgetItem(gadget,index)
- Else
- DisableGadgetItem(gadget,index)
- EndIf
- End Method
-
- Rem
- bbdoc: Set the currently selected item.
- EndRem
- Method SetSelectedIndex(index:Int)
- SelectGadgetItem(gadget,index)
- End Method
-
- Rem
- bbdoc: Get the index of the first selected item.
- EndRem
- Method SelectedIndex:Int()
- Return SelectedGadgetItem(gadget)
- End Method
-
- Rem
- bbdoc: Get the indexes of the selected items.
- EndRem
- Method SelectedIndexes:Int[]()
- Return SelectedGadgetItems(gadget)
- End Method
-
- Rem
- bbdoc: Get the first selected item, NULL if nothing selected.
- EndRem
- Method SelectedItem:TMListEntry()
- If SelectedIndex()=-1
- Return Null
- EndIf
-
- Return GetItem(SelectedIndex())
- End Method
-
- Rem
- bbdoc: Get the selected items, NULL if nothing selected.
- EndRem
- Method SelectedItems:TMListEntry[]()
- If SelectedIndex()=-1
- Return Null
- EndIf
-
- Local sel:Int[]=SelectedIndexes()
- Local ret:TMListEntry[]=New TMListEntry[sel.length]
-
- For Local f:Int=0 Until sel.length
- ret[f]=GetItem(sel[f])
- Next
- Return ret
- End Method
-
- Rem
- bbdoc: Called when the selection changes.
- about: @index is the selected index. This can be -1 for no selection.
- EndRem
- Method OnIndexChanged(index:Int)
- End Method
-
- Rem
- bbdoc: Called when the selection changes.
- EndRem
- Field OnIndexChangedEvent:TMWEventListInt
-
- Method Handle(e:TEvent)
- Select e.id
- Case EVENT_GADGETACTION
- OnIndexChanged(e.data)
- OnIndexChangedEvent.Fire(Self,e.data)
- Default
- super.Handle(e)
- End Select
- End Method
-End Type
-
-
-Rem
-bbdoc: Defines a managed combo box.
-EndRem
-Type TMComboBox Extends TMListWidget
- Rem
- bbdoc: Creates a managed combo box.
- returns: The created combo box.
- about: @x, @y, @w, @h, @group and @style act the same as the MaxGUI arguments to @CreateComboBox(), except that @group is a TMWidget.
- If @values is not NULL it is used to load up the initial options.
- <b>IMPORTANT</b>: It is really not recommended to use COMBOBOX_EDITABLE as OnIndexChanged() is called when the user edits the field.
- There seems to be no easy way to remedy this.
- EndRem
- Method Create:TMComboBox(x:Int,y:Int, w:Int, h:Int, group:TMWidget, style:Int=0, values:TMListEntry[]=Null)
- OnIndexChangedEvent=New TMWEventListInt
- BaseInitialise(CreateComboBox(x,y,w,h,group.gadget,style),group)
- typename="TMComboBox"
- If values
- AddItems(values)
- EndIf
- Return Self
- End Method
-End Type
-
-
-Rem
-bbdoc: Defines a managed list box.
-EndRem
-Type TMListBox Extends TMListWidget
- Rem
- bbdoc: Creates a managed list box.
- returns: The created list box.
- about: @x, @y, @w, @h, and @group act the same as the MaxGUI arguments to @CreateListBox(), except that @group is a TMWidget.
- If @values is not NULL it is used to load up the initial options.
- EndRem
- Method Create:TMListBox(x:Int,y:Int, w:Int, h:Int, group:TMWidget, values:TMListEntry[]=Null)
- OnIndexChangedEvent=New TMWEventListInt
- BaseInitialise(CreateListBox(x,y,w,h,group.gadget),group)
- typename="TMListBox"
- If values
- AddItems(values)
- EndIf
- Return Self
- End Method
-End Type
-
-
-Rem
-bbdoc: Defines a managed tabber.
-EndRem
-Type TMTabber Extends TMListWidget
- Field pages:TMWidget[][]
-
- Rem
- bbdoc: Creates a managed tabber.
- returns: The created tabber.
- about: @x, @y, @w, @h, and @group act the same as the MaxGUI arguments to @CreateTabber(), except that @group is a TMWidget.
- If @values is not NULL it is used to load up the initial options.
- EndRem
- Method Create:TMTabber(x:Int,y:Int, w:Int, h:Int, group:TMWidget, values:TMListEntry[]=Null)
- OnIndexChangedEvent=New TMWEventListInt
- BaseInitialise(CreateTabber(x,y,w,h,group.gadget),group)
- typename="TMTabber"
- If values
- AddItems(values)
- EndIf
- Return Self
- End Method
-
- Rem
- bbdoc: Defines the gadgets to appear on each page of the tabber.
- about: @widgets is an array of @TMWidget arrays. Each sub-array is one page.
- EndRem
- Method SetPages(widgets:TMWidget[][])
- pages=widgets
- End Method
-
- Rem
- bbdoc: Set the currently selected page.
- about: This will hide/show the widgets defined by @DefinePages() as appropriate.
- EndRem
- Method SetSelectedIndex(index:Int)
- SelectGadgetItem(gadget,index)
-
- If pages
- For Local f:Int=0 Until pages.length
- For Local w:TMWidget=EachIn pages[f]
- w.Hidden(f<>index)
- Next
- Next
- EndIf
- End Method
-
- Rem
- bbdoc: This default implementation will switch the widgets as defined by @DefinePages()
- EndRem
- Method OnIndexChanged(index:Int)
- If index>-1 And pages
- For Local f:Int=0 Until pages.length
- For Local w:TMWidget=EachIn pages[f]
- w.Hidden(f<>index)
- Next
- Next
- EndIf
- End Method
-
-End Type
-
-
-Rem
-bbdoc: Defines a managed HTML View.
-EndRem
-Type TMHTMLView Extends TMWidget
- Rem
- bbdoc: Creates a managed HTML View.
- returns: The created HTML View.
- about: @x, @y, @w, @h, @group and @style act the same as the MaxGUI arguments to @CreateHMTLView(), except that @group is a TMWidget.
- EndRem
- Method Create:TMHTMLView(x:Int, y:Int, w:Int, h:Int, group:TMWidget, style:Int=0)
- OnPageLoadedEvent=New TMWEventListString
- OnSelectURLEvent=New TMWEventListString
- BaseInitialise(CreateHTMLView(x,y,w,h,group.gadget,style),group)
- typename="TMHTMLView"
- Return Self
- End Method
-
- Rem
- bbdoc: The current URL.
- EndRem
- Method CurrentURL:String()
- Return HtmlViewCurrentURL(gadget)
- End Method
-
- Rem
- bbdoc: Enter the URL to goto.
- EndRem
- Method Go(url:String)
- HtmlViewGo(gadget,url)
- End Method
-
- Rem
- bbdoc: Go back in the history.
- EndRem
- Method Back()
- HtmlViewBack(gadget)
- End Method
-
- Rem
- bbdoc: Go forward in the history.
- EndRem
- Method Forward()
- HtmlViewForward(gadget)
- End Method
-
- Rem
- bbdoc:Run a script.
- EndRem
- Method RunScript:String(script:String)
- HtmlViewRun(gadget,script)
- End Method
-
- Rem
- bbdoc: If HTMLVIEW_NONAVIGATE is set in the styles, then this is called when a link is clicked.
- about: @url is the selected URL.
- EndRem
- Method OnSelectURL(url:String)
- End Method
-
- Rem
- bbdoc: If HTMLVIEW_NONAVIGATE is set in the styles, then this is called when a link is clicked.
- EndRem
- Field OnSelectURLEvent:TMWEventListString
-
- Rem
- bbdoc: Called when the page finishes loading.
- about: @url is the loaded URL.
- EndRem
- Method OnPageLoaded(url:String)
- End Method
-
- Rem
- bbdoc: Called when the page finishes loading.
- EndRem
- Field OnPageLoadedEvent:TMWEventListString
-
- Method Handle(e:TEvent)
- Select e.id
- Case EVENT_GADGETACTION
- OnSelectURL(e.extra.ToString())
- OnSelectURLEvent.Fire(Self,e.extra.ToString())
- Case EVENT_GADGETDONE
- OnPageLoaded(CurrentURL())
- OnPageLoadedEvent.Fire(Self,CurrentURL())
- Default
- super.Handle(e)
- End Select
- End Method
-End Type
-
-
-Type TMTreeNode
- Field path:String
- Field node:TGadget
- Field tag:Object
- Field icon:Int
- Function Create:TMTreeNode(path:String, node:TGadget, tag:Object, icon:Int)
- Local o:TMTreeNode=New TMTreeNode
- o.path=path
- o.node=node
- o.tag=tag
- o.icon=icon
- Return o
- End Function
-End Type
-
-Rem
-bbdoc: Defines a managed tree view.
-about: The tree view works by treating its entries as if in a simple file system.
-EndRem
-Type TMTreeView Extends TMWidget
- Field map:TMap
- Field gmap:TMap
- Field update:Int
-
- Rem
- bbdoc: Creates a managed tree view.
- returns: The created tree view.
- about: @x, @y, @w, @h, @group and @style act the same as the MaxGUI arguments to @CreateTreeView(), except that @group is a TMWidget.
- EndRem
- Method Create:TMTreeView(x:Int, y:Int, w:Int, h:Int, group:TMWidget, style:Int=0)
- update=False
- map=New TMap
- gmap=New TMap
- OnSelectedEvent=New TMWEventListStringObject
- OnClickedEvent=New TMWEventListStringObject
- OnMenuEvent=New TMWEventListStringObject
- OnExpandedEvent=New TMWEventListStringObject
- OnCollapsedEvent=New TMWEventListStringObject
- BaseInitialise(CreateTreeView(x,y,w,h,group.gadget,style),group)
- typename="TMNodeView"
- map.Insert("/",TMTreeNode.Create("/",TreeViewRoot(gadget),"/",-1))
- Return Self
- End Method
-
- Method ResolvePath:TMTreeNode(path:String)
- Return TMTreeNode(map.ValueForKey(path))
- End Method
-
- Method ResolveGadget:TMTreeNode(g:TGadget)
- Return ResolvePath(gmap.ValueForKey(g).ToString())
- End Method
-
- Method Prune(path:String)
- Local l:TList=CreateList()
-
- ' Not sure if this is overly ineffecient -- just being safe as in most languages deleting whilst iterating
- ' is not recommended...
- '
- For Local k:String=EachIn map.Keys()
- If k=path Or k.Find(path+"/")=0
- l.AddLast(k)
- EndIf
- Next
-
- For Local k:String=EachIn l
- Local n:TMTreeNode=ResolvePath(k)
- map.Remove(k)
- gmap.Remove(n.node)
- Next
- End Method
-
- Rem
- bbdoc: Set an icon strip.
- EndRem
- Method SetIconStrip(icons:TIconStrip)
- SetGadgetIconStrip(gadget,icons)
- End Method
-
- Rem
- bbdoc: The number of nodes in the view that are direct children on the passed node.
- returns: The number of nodes.
- about: @path is the path to count from. Unfortunately counting from the root (/) doesn't work, so it returns -1.
- EndRem
- Method CountChildren:Int(path:String)
- If path="/"
- Return -1
- EndIf
-
- Local node:TMTreeNode=ResolvePath(path)
-
- If node
- Return CountTreeViewNodes(node.node)
- Else
- Return 0
- EndIf
- End Method
-
- Rem
- bbdoc: Remove nodes from the tree.
- about: Attempting to remove the root node (/) will fail.
- EndRem
- Method Remove(path:String)
- If path<>"/"
- Local node:TMTreeNode=ResolvePath(path)
-
- If node
- FreeTreeViewNode(node.node)
- Prune(path)
- EndIf
- EndIf
- End Method
-
- Rem
- bbdoc: Don't redraw gadget when adding nodes.
- EndRem
- Method BeginUpdate()
- update=True
- End Method
-
-
- Rem
- bbdoc: Allow redraw of gadget when adding nodes.
- EndRem
- Method EndUpdate()
- update=False
- End Method
-
-
- Rem
- bbdoc: Add/modify nodes in the tree.
- about: @path is the path to the node. This silently fails if the parent nodes don't exist. @tag is an Object that the entry is tagged with.
- ToString() is called on this to create the text for the entry (so passing a String works fine).
- @icon is the icon to use. Note that if you set an icon strip, then this seems to use the first icon (on Win32 at least) if set to -1.
- EndRem
- Method Set(path:String, tag:Object, icon:Int=-1)
- Local parent:TMTreeNode=ResolvePath(FixedExtractDir(path))
-
- If parent
- Local node:TMTreeNode=ResolvePath(path)
-
- If node
- ModifyTreeViewNode(node.node,tag.ToString(),icon)
- Else
- node=TMTreeNode.Create(path,AddTreeViewNode(tag.ToString(),parent.node,icon),tag,icon)
- map.Insert(path,node)
- gmap.Insert(node.node,path)
- EndIf
-
- node.tag=tag
- node.icon=icon
-
- If Not update
- RedrawGadget(gadget)
- EndIf
- EndIf
- End Method
-
- Rem
- bbdoc: Get the tag at a node.
- returns: The tag, or NULL for unknown node.
- EndRem
- Method GetNodeTag:Object(path:String)
- Local node:TMTreeNode=ResolvePath(path)
- If node
- Return node.tag
- Else
- Return Null
- EndIf
- End Method
-
- Rem
- bbdoc: Get the icon at a node.
- returns: The icon, or -1 for none or unknown node.
- EndRem
- Method GetNodeIcon:Int(path:String)
- Local node:TMTreeNode=ResolvePath(path)
- If node
- Return node.icon
- Else
- Return -1
- EndIf
- End Method
-
- Rem
- bbdoc: Expand a node on the tree.
- EndRem
- Method ExpandNode(path:String)
- Local node:TMTreeNode=ResolvePath(path)
-
- If node
- ExpandTreeViewNode(node.node)
- EndIf
- End Method
-
- Rem
- bbdoc: Collapse a node on the tree.
- EndRem
- Method CollapseNode(path:String)
- Local node:TMTreeNode=ResolvePath(path)
-
- If node
- CollapseTreeViewNode(node.node)
- EndIf
- End Method
-
- Rem
- bbdoc: Called when the an item is selected.
- about: @path is the path to the selected item, @tag is the tag for that item.
- EndRem
- Method OnSelected(path:String, tag:Object)
- End Method
-
- Rem
- bbdoc: Called when the an item is selected.
- EndRem
- Field OnSelectedEvent:TMWEventListStringObject
-
- Rem
- bbdoc: Called when the an item is double clicked.
- about: @path is the path to the selected item, @tag is the tag for that item.
- EndRem
- Method OnClicked(path:String, tag:Object)
- End Method
-
- Rem
- bbdoc: Called when the an item is double clicked.
- EndRem
- Field OnClickedEvent:TMWEventListStringObject
-
- Rem
- bbdoc: Called when the a context menu is requested.
- about: @path is the path to the selected item, @tag is the tag for that item.
- EndRem
- Method OnMenu(path:String, tag:Object)
- End Method
-
- Rem
- bbdoc: Called when the an item is selected.
- EndRem
- Field OnMenuEvent:TMWEventListStringObject
-
- Rem
- bbdoc: Called when a node is expanded.
- about: @path is the path to the selected item, @tag is the tag for that item.
- EndRem
- Method OnExpanded(path:String, tag:Object)
- End Method
-
- Rem
- bbdoc: Called when a node is expanded.
- EndRem
- Field OnExpandedEvent:TMWEventListStringObject
-
- Rem
- bbdoc: Called when a node is collapsed.
- about: @path is the path to the selected item, @tag is the tag for that item.
- EndRem
- Method OnCollapsed(path:String, tag:Object)
- End Method
-
- Rem
- bbdoc: Called when a node is collapsed.
- EndRem
- Field OnCollapsedEvent:TMWEventListStringObject
-
- Method Handle(e:TEvent)
- Select e.id
- Case EVENT_GADGETSELECT
- Local n:TMTreeNode=ResolveGadget(TGadget(e.extra))
- If n
- OnSelected(n.path,n.tag)
- OnSelectedEvent.Fire(Self,n.path,n.tag)
- EndIf
- Case EVENT_GADGETACTION
- Local n:TMTreeNode=ResolveGadget(TGadget(e.extra))
- If n
- OnClicked(n.path,n.tag)
- OnClickedEvent.Fire(Self,n.path,n.tag)
- EndIf
- Case EVENT_GADGETOPEN
- Local n:TMTreeNode=ResolveGadget(TGadget(e.extra))
- If n
- OnExpanded(n.path,n.tag)
- OnExpandedEvent.Fire(Self,n.path,n.tag)
- EndIf
- Case EVENT_GADGETCLOSE
- Local n:TMTreeNode=ResolveGadget(TGadget(e.extra))
- If n
- OnCollapsed(n.path,n.tag)
- OnCollapsedEvent.Fire(Self,n.path,n.tag)
- EndIf
- Case EVENT_GADGETMENU
- Local n:TMTreeNode=ResolveGadget(TGadget(e.extra))
- If n
- OnMenu(n.path,n.tag)
- OnMenuEvent.Fire(Self,n.path,n.tag)
- EndIf
- Default
- super.Handle(e)
- End Select
- End Method
-End Type
-
-
-Type TMenuItem
- Field id:Int
- Field owner:TMMenu
- Field path:String
- Field tag:Object
- Field gadget:TGadget
- Field callback(menu:TMMenu, path:String, tag:Object)
- Function Create:TMenuItem(owner:TMMenu, id:Int, path:String, gadget:TGadget, tag:Object, callback(menu:TMMenu, path:String, tag:Object))
- Local o:TMenuItem=New TMenuItem
- o.owner=owner
- o.id=id
- o.path=path
- o.gadget=gadget
- o.tag=tag
- o.callback=callback
- Return o
- End Function
-End Type
-
-
-Rem
-bbdoc: Defines a managed menu.
-about: Note that TMMenu is <b>NOT</b> a TMWidget.
-EndRem
-Type TMMenu
-
- Field root:TGadget
- Field map:TMap
- Field win:TMWindow
-
- Rem
- bbdoc: Creates a managed menu that is associated as a window menu.
- returns: The created menu.
- about: @window is the window the menu is attached to.
- EndRem
- Method CreateWindowMenu:TMMenu(window:TMWindow)
- map=New TMap
- root=WindowMenu(window.gadget)
- win=window
- SetRoot()
- Return Self
- End Method
-
- Rem
- bbdoc: Creates a managed menu that can be used as a popup menu.
- returns: The created menu.
- EndRem
- Method CreatePopupMenu:TMMenu()
- map=New TMap
- root=CreateMenu("",0,Null)
- win=Null
- SetRoot()
- Return Self
- End Method
-
- Method Delete()
- Clear()
- If Not win
- FreeMenu(root)
- EndIf
- End Method
-
- Rem
- bbdoc: Clear all items from the menu
- EndRem
- Method Clear()
- For Local m:TMenuItem=EachIn map
- FreeMenu(m.gadget)
- Static.DeregisterMenuItem(m)
- Next
- map.Clear()
- SetRoot()
- End Method
-
- Method SetRoot()
- map.Insert("/",TMenuItem.Create(Self,0,"/",root,Null,Null))
- End Method
-
- Method ResolvePath:TMenuItem(path:String)
- Return TMenuItem(map.ValueForKey(path))
- End Method
-
- Method Prune(path:String)
- Local l:TList=CreateList()
-
- ' Not sure if this is overly ineffecient -- just being safe as in most languages deleting whilst iterating
- ' is not recommended...
- '
- For Local k:String=EachIn map.Keys()
- If k=path Or k.Find(path+"/")=0
- l.AddLast(k)
- EndIf
- Next
-
- For Local k:String=EachIn l
- Local n:TMenuItem=ResolvePath(k)
- map.Remove(k)
- Static.DeregisterMenuItem(n)
- FreeMenu(n.gadget)
- Next
- End Method
-
- Rem
- bbdoc: Add a menu option.
- about: @path is the path to the menu item. This silently fails if the parent menus don't exist. @tag is an Object that the entry is tagged with.
- ToString() is called on this to create the text for the menu (so passing a String works fine). If @callback is not null, then it is called when
- this option is selected.
- @hotkey and @modifier are as in MaxGUI's CreateMenu().
- EndRem
- Method Set(path:String, tag:Object, callback(menu:TMMenu, path:String, tag:Object)=Null, hotkey:Int=0, modifier:Int=0)
- If path<>"/"
- Local parent:TMenuItem=ResolvePath(FixedExtractDir(path))
-
- If parent
- Local node:TMenuItem=ResolvePath(path)
-
- If node
- SetMenuText(node.gadget,tag.ToString())
- Else
- Local id:Int=Static.NextMenuID()
- node=TMenuItem.Create(Self,id,path,CreateMenu(tag.ToString(),id,parent.gadget,hotkey,modifier),tag,callback)
- map.Insert(path,node)
- Static.RegisterMenuItem(node)
- EndIf
-
- node.tag=tag
-
- If win
- UpdateWindowMenu(win.gadget)
- EndIf
- EndIf
- EndIf
- End Method
-
- Rem
- bbdoc: Remove menu item and its children.
- about: @path is the path to the menu item. Root cannot be removed.
- EndRem
- Method Remove(path:String)
- If path<>"/"
- Prune(path)
-
- If win
- UpdateWindowMenu(win.gadget)
- EndIf
- EndIf
- End Method
-
- Rem
- bbdoc: Change a menu tag (and therefore its text).
- about: @path is the path to the menu item. Root cannot be changed.
- EndRem
- Method SetTag(path:String, tag:Object)
- If path<>"/"
- Local node:TMenuItem=ResolvePath(path)
-
- If node
- SetMenuText(node.gadget,tag.ToString())
- node.tag=tag
-
- If win
- UpdateWindowMenu(win.gadget)
- EndIf
- EndIf
- EndIf
- End Method
-
- Rem
- bbdoc: Change a menu check.
- about: @path is the path to the menu item. Root cannot be changed.
- EndRem
- Method Check(path:String, check:Int)
- If path<>"/"
- Local node:TMenuItem=ResolvePath(path)
-
- If node
- If check
- CheckMenu(node.gadget)
- Else
- UncheckMenu(node.gadget)
- EndIf
-
- If win
- UpdateWindowMenu(win.gadget)
- EndIf
- EndIf
- EndIf
- End Method
-
- Rem
- about: Is a menu item checked.
- EndRem
- Method IsChecked:Int(path:String)
- Local ret:Int=False
-
- If path<>"/"
- Local node:TMenuItem=ResolvePath(path)
-
- If node
- ret=MenuChecked(node.gadget)
- EndIf
- EndIf
-
- Return ret
- End Method
-
- Rem
- bbdoc: Enable/disable a menu item.
- about: @path is the path to the menu item. Root cannot be changed.
- EndRem
- Method Enable(path:String, enab:Int)
- If path<>"/"
- Local node:TMenuItem=ResolvePath(path)
-
- If node
- If enab
- EnableMenu(node.gadget)
- Else
- DisableMenu(node.gadget)
- EndIf
-
- If win
- UpdateWindowMenu(win.gadget)
- EndIf
- EndIf
- EndIf
- End Method
-
- Rem
- about: Is a menu item enabled.
- EndRem
- Method IsEnabled:Int(path:String)
- Local ret:Int=False
-
- If path<>"/"
- Local node:TMenuItem=ResolvePath(path)
-
- If node
- ret=MenuEnabled(node.gadget)
- EndIf
- EndIf
-
- Return ret
- End Method
-
- Rem
- bbdoc: Called when the an item is selected in the menu.
- EndRem
- Method OnMenuItem(path:String, tag:Object)
- End Method
-
- Rem
- bbdoc: Popup the menu.
- about: @win is a gadget to pass to MaxGUI. For some reason you need this, and the docs say it should be a window.
- When I've tried any gadget would suffice, but don't come crying to me if it stops working for non-window gadgets.
- EndRem
- Method Popup(g:TMWidget)
- PopupWindowMenu(g.gadget,root)
- End Method
-
- Method ToString:String()
- Return "TMMenu:"+super.ToString()
- End Method
-End Type
-
-
-Rem
-bbdoc: Defines a managed canvas.
-EndRem
-Type TMCanvas Extends TMWidget
-
- Rem
- bbdoc: Creates a managed canvas.
- returns: The created canvas.
- about: @x, @y, @w, @h, @group, @style and @gfxflags act the same as the MaxGUI arguments to @CreateCanvas(), except that @group is a TMWidget.
- EndRem
- Method Create:TMCanvas(x:Int, y:Int, w:Int, h:Int, group:TMWidget, style:Int=0, gfxflags:Int=GRAPHICS_BACKBUFFER)
- OnRedrawEvent=New TMWEventListVoid
- OnButtonDownEvent=New TMWEventListInt
- OnButtonUpEvent=New TMWEventListInt
- OnMouseMoveEvent=New TMWEventListIntInt
- OnMouseWheelEvent=New TMWEventListInt
- OnKeyDownEvent=New TMWEventListInt
- OnKeyUpEvent=New TMWEventListInt
- OnKeyEvent=New TMWEventListInt
- BaseInitialise(CreateCanvas(x,y,w,h,group.gadget,style,gfxflags),group)
- typename="TMCanvas"
- Return Self
- End Method
-
- Rem
- bbdoc: Set the graphics so that the canvas can be drawn onto.
- EndRem
- Method SetupGraphics()
- SetGraphics(CanvasGraphics(gadget))
- End Method
-
- Rem
- bbdoc: Called when the canvas should be redrawn.
- EndRem
- Method OnRedraw()
- End Method
-
- Rem
- bbdoc: Called when the canvas should be redrawn.
- EndRem
- Field OnRedrawEvent:TMWEventListVoid
-
- Rem
- bbdoc: Called when the a mouse button is pressed.
- about: @button is the pressed button.
- EndRem
- Method OnButtonDown(button:Int)
- End Method
-
- Rem
- bbdoc: Called when the a mouse button is pressed.
- EndRem
- Field OnButtonDownEvent:TMWEventListInt
-
- Rem
- bbdoc: Called when the a mouse button is released.
- about: @button is the released button.
- EndRem
- Method OnButtonUp(button:Int)
- End Method
-
- Rem
- bbdoc: Called when the a mouse button is released.
- EndRem
- Field OnButtonUpEvent:TMWEventListInt
-
- Rem
- bbdoc: Called when the mouse moves.
- about: @x and @y are the mouse co-ordinates.
- EndRem
- Method OnMouseMove(x:Int, y:Int)
- End Method
-
- Rem
- bbdoc: Called when the an item is selected.
- EndRem
- Field OnMouseMoveEvent:TMWEventListIntInt
-
- Rem
- bbdoc: Called when the mouse wheel moves.
- about: @delta is the amount the wheel moves.
- EndRem
- Method OnMouseWheel(delta:Int)
- End Method
-
- Rem
- bbdoc: Called when the mouse wheel moves.
- EndRem
- Field OnMouseWheelEvent:TMWEventListInt
-
- Rem
- bbdoc: Called when a key is held down.
- about: @code is the key code.
- EndRem
- Method OnKeyDown(code:Int)
- End Method
-
- Rem
- bbdoc: Called when a key is held down.
- EndRem
- Field OnKeyDownEvent:TMWEventListInt
-
- Rem
- bbdoc: Called when a key is released.
- about: @code is the key code.
- EndRem
- Method OnKeyUp(code:Int)
- End Method
-
- Rem
- bbdoc: Called when a key is released.
- EndRem
- Field OnKeyUpEvent:TMWEventListInt
-
- Rem
- bbdoc: Called when a key character is generated.
- about: @code is the unicode value.
- EndRem
- Method OnKey(code:Int)
- End Method
-
- Rem
- bbdoc: Called when a key character is generated.
- EndRem
- Field OnKeyEvent:TMWEventListInt
-
- Method Handle(e:TEvent)
- Select e.id
- Case EVENT_GADGETPAINT
- OnRedraw()
- OnRedrawEvent.Fire(Self)
- Case EVENT_MOUSEDOWN
- OnButtonDown(e.data)
- OnButtonDownEvent.Fire(Self,e.data)
- Case EVENT_MOUSEUP
- OnButtonUp(e.data)
- OnButtonUpEvent.Fire(Self,e.data)
- Case EVENT_MOUSEMOVE
- OnMouseMove(e.x,e.y)
- OnMouseMoveEvent.Fire(Self,e.x,e.y)
- Case EVENT_MOUSEWHEEL
- OnMouseWheel(e.data)
- OnMouseWheelEvent.Fire(Self,e.data)
- Case EVENT_KEYDOWN
- OnKeyDown(e.data)
- OnKeyDownEvent.Fire(Self,e.data)
- Case EVENT_KEYUP
- OnKeyUp(e.data)
- OnKeyUpEvent.Fire(Self,e.data)
- Case EVENT_KEYCHAR
- OnKey(e.data)
- OnKeyEvent.Fire(Self,e.data)
- Default
- super.Handle(e)
- End Select
- End Method
-End Type
-
-
-Rem
-bbdoc: Defines a toolbar.
-EndRem
-Type TMToolbar Extends TMWidget
- Rem
- bbdoc: Creates a managed toolbar.
- returns: The created toolbar.
- about: @source, @group and @style act the same as the MaxGUI arguments to @CreateToolBar(), except that @group is a TMWidget.
- If @values is not NULL it is used to load up the initial options.
- <b>IMPORTANT</b>: It is really not recommended to use COMBOBOX_EDITABLE as OnIndexChanged() is called when the user edits the field.
- There seems to be no easy way to remedy this.
- EndRem
- Method Create:TMToolbar(source:Object, group:TMWidget, style:Int=0)
- OnSelectedEvent=New TMWEventListInt
- BaseInitialise(CreateToolBar(source,0,0,0,0,group.gadget,style),group)
- typename="TMToolbar"
- Return Self
- End Method
-
- Rem
- bbdoc: Adds an item to the toolbar.
- EndRem
- Method AddItem(icon:Int, flags:Int=0, tooltip:String=Null)
- AddGadgetItem(gadget,"",flags,icon,tooltip,Null)
- End Method
-
- Rem
- bbdoc: Set the tooltips.
- EndRem
- Method SetTooltips(tips:String[])
- SetToolBarTips(gadget,tips)
- End Method
-
- Rem
- bbdoc: Enable or disable a particular item.
- EndRem
- Method ItemEnabled(index:Int, state:Int)
- If state
- EnableGadgetItem(gadget,index)
- Else
- DisableGadgetItem(gadget,index)
- EndIf
- End Method
-
- Rem
- bbdoc: Called when an icon is selected.
- about: @index is the selected index.
- EndRem
- Method OnSelected(index:Int)
- End Method
-
- Rem
- bbdoc: Called when an icon is selected.
- EndRem
- Field OnSelectedEvent:TMWEventListInt
-
- Method Handle(e:TEvent)
- Select e.id
- Case EVENT_GADGETACTION
- OnSelected(e.data)
- OnSelectedEvent.Fire(Self,e.data)
- Default
- super.Handle(e)
- End Select
- End Method
-End Type
-
-
-Rem
-bbdoc: Defines a managed panel.
-EndRem
-Type TMPanel Extends TMWidget
-
- Rem
- bbdoc: Creates a managed panel.
- returns: The created panel.
- about: @x, @y, @w, @h, @group, @style and @title act the same as the MaxGUI arguments to @CreatePanel(), except that @group is a TMWidget.
- EndRem
- Method Create:TMPanel(x:Int, y:Int, w:Int, h:Int, group:TMWidget, style:Int=0, title:String="")
- OnButtonDownEvent=New TMWEventListInt
- OnButtonUpEvent=New TMWEventListInt
- OnMouseMoveEvent=New TMWEventListIntInt
- OnMouseWheelEvent=New TMWEventListInt
- OnKeyDownEvent=New TMWEventListInt
- OnKeyUpEvent=New TMWEventListInt
- OnKeyEvent=New TMWEventListInt
- BaseInitialise(CreatePanel(x,y,w,h,group.gadget,style,title),group)
- typename="TMPanel"
- Return Self
- End Method
-
- Rem
- bbdoc: Called when the a mouse button is pressed.
- about: @button is the pressed button.
- EndRem
- Method OnButtonDown(button:Int)
- End Method
-
- Rem
- bbdoc: Called when the a mouse button is pressed.
- EndRem
- Field OnButtonDownEvent:TMWEventListInt
-
- Rem
- bbdoc: Called when the a mouse button is released.
- about: @button is the released button.
- EndRem
- Method OnButtonUp(button:Int)
- End Method
-
- Rem
- bbdoc: Called when the a mouse button is released.
- EndRem
- Field OnButtonUpEvent:TMWEventListInt
-
- Rem
- bbdoc: Called when the mouse moves.
- about: @x and @y are the mouse co-ordinates.
- EndRem
- Method OnMouseMove(x:Int, y:Int)
- End Method
-
- Rem
- bbdoc: Called when the an item is selected.
- EndRem
- Field OnMouseMoveEvent:TMWEventListIntInt
-
- Rem
- bbdoc: Called when the mouse wheel moves.
- about: @delta is the amount the wheel moves.
- EndRem
- Method OnMouseWheel(delta:Int)
- End Method
-
- Rem
- bbdoc: Called when the mouse wheel moves.
- EndRem
- Field OnMouseWheelEvent:TMWEventListInt
-
- Rem
- bbdoc: Called when a key is held down.
- about: @code is the key code.
- EndRem
- Method OnKeyDown(code:Int)
- End Method
-
- Rem
- bbdoc: Called when a key is held down.
- EndRem
- Field OnKeyDownEvent:TMWEventListInt
-
- Rem
- bbdoc: Called when a key is released.
- about: @code is the key code.
- EndRem
- Method OnKeyUp(code:Int)
- End Method
-
- Rem
- bbdoc: Called when a key is released.
- EndRem
- Field OnKeyUpEvent:TMWEventListInt
-
- Rem
- bbdoc: Called when a key character is generated.
- about: @code is the unicode value.
- EndRem
- Method OnKey(code:Int)
- End Method
-
- Rem
- bbdoc: Called when a key character is generated.
- EndRem
- Field OnKeyEvent:TMWEventListInt
-
- Method Handle(e:TEvent)
- Select e.id
- Case EVENT_MOUSEDOWN
- OnButtonDown(e.data)
- OnButtonDownEvent.Fire(Self,e.data)
- Case EVENT_MOUSEUP
- OnButtonUp(e.data)
- OnButtonUpEvent.Fire(Self,e.data)
- Case EVENT_MOUSEMOVE
- OnMouseMove(e.x,e.y)
- OnMouseMoveEvent.Fire(Self,e.x,e.y)
- Case EVENT_MOUSEWHEEL
- OnMouseWheel(e.data)
- OnMouseWheelEvent.Fire(Self,e.data)
- Case EVENT_KEYDOWN
- OnKeyDown(e.data)
- OnKeyDownEvent.Fire(Self,e.data)
- Case EVENT_KEYUP
- OnKeyUp(e.data)
- OnKeyUpEvent.Fire(Self,e.data)
- Case EVENT_KEYCHAR
- OnKey(e.data)
- OnKeyEvent.Fire(Self,e.data)
- Default
- super.Handle(e)
- End Select
- End Method
-End Type
-
-
-Rem
-bbdoc: Defines a managed progress bar.
-EndRem
-Type TMProgressBar Extends TMWidget
-
- Rem
- bbdoc: Creates a managed progress bar.
- returns: The created progress bar.
- about: @x, @y, @w, @h, @group and @style act the same as the MaxGUI arguments to @CreateProgBar(), except that @group is a TMWidget.
- EndRem
- Method Create:TMProgressBar(x:Int, y:Int, w:Int, h:Int, group:TMWidget, style:Int=0)
- BaseInitialise(CreateProgBar(x,y,w,h,group.gadget,style),group)
- typename="TMProgressBar"
- Return Self
- End Method
-
- Rem
- bbdoc: Set the value for the progress bar.
- about: @value is the value (between 0 and 1).
- EndRem
- Method SetValue(value:Double)
- UpdateProgBar(gadget,value)
- End Method
-End Type
-
-
-Rem
-bbdoc: Enters the event processing loop.
-about: @top is the top level TMWindow For the application. The loop continues Until the @closed Field of this window is TRUE.
-Your code can do it's own event loop if required -- all this function does is continually call WaitEvent and is simply provided as
-a basic main loop.
-EndRem
-Function MWidgetMainLoop(top:TMWindow)
- While Not top.closed
- WaitEvent()
- Wend
-End Function
-
-
-Private
-
-Function FixedExtractDir:String(p:String)
- p=ExtractDir(p)
- If p.length=0
- p="/"
- EndIf
- Return p
-End Function
-
-Type Static
- Global list:TList
- Global menu:TList
- Global menuid:Int
-
- Function Init()
- list=CreateList()
- menu=CreateList()
- menuid=0
- AddHook(EmitEventHook,EventHandler)
- End Function
-
- Function EventHandler:Object(id:Int, data:Object, context:Object)
- Local e:TEvent=TEvent(data)
-
- DebugLog "Got event : " + e.ToString()
-
- If e
- If e.id=EVENT_MENUACTION
- For Local m:TMenuItem=EachIn menu
- If m.id=e.data
- DebugLog "Passing menu event to " + m.owner.ToString()
- m.owner.OnMenuItem(m.path,m.tag)
- If m.callback
- m.callback(m.owner,m.path,m.tag)
- EndIf
- EndIf
- Next
- Else
- For Local g:TMWidget=EachIn list
- If g And g.gadget And g.gadget=e.source
- DebugLog "Passing event to " + g.ToString()
- g.Handle(e)
- EndIf
- Next
- EndIf
- EndIf
-
- Return e
- End Function
-
- Function Register(w:TMWidget)
- list.AddLast(w)
- w.OnManage()
- w.OnManageEvent.Fire(w)
- End Function
-
- Function Deregister(w:TMWidget)
- w.OnUnmanage()
- w.OnUnmanageEvent.Fire(w)
- list.Remove(w)
- End Function
-
- Function RegisterMenuItem(m:TMenuItem)
- menu.AddLast(m)
- End Function
-
- Function DeregisterMenuItem(m:TMenuItem)
- menu.Remove(m)
- End Function
-
- Function NextMenuID:Int()
- menuid:+1
- Return menuid
- End Function
-End Type
-
+Rem +bbdoc: noddybox.mwidget +about: <p>Provides a simply class based interface to the MaxGUI. Note that all widgets have create type methods. For these to work correctly with +sub-classes they must be called through a new operation, e.g.</p> +<pre> +Type MyApp Extends TMWindow + Method OnClose(e:TEvent) + closed=Confirm("Really quit?") + End Method +End Type + +Local window:TMWindow=New MyApp.Create("Test",100,100,640,400) +MWidgetMainLoop(window) +</pre> +<p> +There are two methods of getting events. One is to subclass and override the events, as with the @OnClose() above. The other is to set +function pointers in the matching event lists, @OnCloseEvent in this instance. For instance: +</p> +<pre> +Function OnClose(o:TMWidget) + Local w:TMWindow=TMWindow(o) + w.closed=Confirm("Really quit?") +End Function + +Local window:TMWindow=New TMWindow.Create("Test",100,100,640,400) +window.OnCloseEvent.Add(OnClose) +MWidgetMainLoop(window) +</pre> +<p> +When using the function callback method of capturing events, the parameters to the function are the same as the overridable method with the addition +of the managed widget which is passed in as the first argument. +</p> +EndRem +Module noddybox.mwidget + +ModuleInfo "Framework: Simple Managed Widget Classes" +ModuleInfo "Copyright: Public Domain" +ModuleInfo "Author: Ian Cowburn" +ModuleInfo "Version: $Revision$" + +' $Id$ + +Strict +Import brl.maxgui +Import brl.linkedlist +Import brl.event +Import brl.timer +Import brl.map +Import brl.filesystem + +Type TMWEventListBase Abstract + Field list:TList + Method New() + list=CreateList() + End Method +End Type + +Type TMWFuncVoid + Field func(w:TMWidget) + Function Create:TMWFuncVoid(func(w:TMWidget)) + Local o:TMWFuncVoid=New TMWFuncVoid + o.func=func + Return o + End Function +End Type + +Type TMWFuncInt + Field func(w:TMWidget, a:Int) + Function Create:TMWFuncInt(func(w:TMWidget, a:Int)) + Local o:TMWFuncInt=New TMWFuncInt + o.func=func + Return o + End Function +End Type + +Type TMWFuncIntInt + Field func(w:TMWidget, a:Int, b:Int) + Function Create:TMWFuncIntInt(func(w:TMWidget, a:Int, b:Int)) + Local o:TMWFuncIntInt=New TMWFuncIntInt + o.func=func + Return o + End Function +End Type + +Type TMWFuncString + Field func(w:TMWidget, a:String) + Function Create:TMWFuncString(func(w:TMWidget, a:String)) + Local o:TMWFuncString=New TMWFuncString + o.func=func + Return o + End Function +End Type + + +Type TMWFuncStringObject + Field func(w:TMWidget, a:String, b:Object) + Function Create:TMWFuncStringObject(func(w:TMWidget, a:String, b:Object)) + Local o:TMWFuncStringObject=New TMWFuncStringObject + o.func=func + Return o + End Function +End Type + + +Rem +bbdoc: Defines an event list for functions that take the parameters (w:TMWidget) +EndRem +Type TMWEventListVoid Extends TMWEventListBase Final + Rem + bbdoc: Adds a callback function. + EndRem + Method Add(func(w:TMWidget)) + list.AddLast(TMWFuncVoid.Create(func)) + End Method + + Rem + bbdoc: Clears all callback functions. + EndRem + Method Clear() + list.Clear() + End Method + + Rem + bbdoc: Removes a callback function. + EndRem + Method Remove(func(w:TMWidget)) + For Local fp:TMWFuncVoid=EachIn list + If fp.func=func + list.Remove(fp) + Return + EndIf + Next + End Method + + Method Fire(w:TMWidget) + For Local fp:TMWFuncVoid=EachIn list + fp.func(w) + Next + End Method +End Type + + +Rem +bbdoc: Defines an event list for functions that take the parameters (w:TMWidget, a:Int) +EndRem +Type TMWEventListInt Extends TMWEventListBase Final + Rem + bbdoc: Adds a callback function. + EndRem + Method Add(func(w:TMWidget, a:Int)) + list.AddLast(TMWFuncInt.Create(func)) + End Method + + Rem + bbdoc: Clears all callback functions. + EndRem + Method Clear() + list.Clear() + End Method + + Rem + bbdoc: Removes a callback function. + EndRem + Method Remove(func(w:TMWidget, a:Int)) + For Local fp:TMWFuncInt=EachIn list + If fp.func=func + list.Remove(fp) + Return + EndIf + Next + End Method + + Method Fire(w:TMWidget, a:Int) + For Local fp:TMWFuncInt=EachIn list + fp.func(w,a) + Next + End Method +End Type + + +Rem +bbdoc: Defines an event list for functions that take the parameters (w:TMWidget, a:String) +EndRem +Type TMWEventListString Extends TMWEventListBase Final + Rem + bbdoc: Adds a callback function. + EndRem + Method Add(func(w:TMWidget, a:String)) + list.AddLast(TMWFuncString.Create(func)) + End Method + + Rem + bbdoc: Clears all callback functions. + EndRem + Method Clear() + list.Clear() + End Method + + Rem + bbdoc: Removes a callback function. + EndRem + Method Remove(func(w:TMWidget, a:String)) + For Local fp:TMWFuncString=EachIn list + If fp.func=func + list.Remove(fp) + Return + EndIf + Next + End Method + + Method Fire(w:TMWidget, a:String) + For Local fp:TMWFuncString=EachIn list + fp.func(w,a) + Next + End Method +End Type + + +Rem +bbdoc: Defines an event list for functions that take the parameters (w:TMWidget, a:Int, b:Int) +EndRem +Type TMWEventListIntInt Extends TMWEventListBase Final + Rem + bbdoc: Adds a callback function. + EndRem + Method Add(func(w:TMWidget, a:Int, b:Int)) + list.AddLast(TMWFuncIntInt.Create(func)) + End Method + + Rem + bbdoc: Clears all callback functions. + EndRem + Method Clear() + list.Clear() + End Method + + Rem + bbdoc: Removes a callback function. + EndRem + Method Remove(func(w:TMWidget, a:Int, b:Int)) + For Local fp:TMWFuncIntInt=EachIn list + If fp.func=func + list.Remove(fp) + Return + EndIf + Next + End Method + + Method Fire(w:TMWidget, a:Int, b:Int) + For Local fp:TMWFuncIntInt=EachIn list + fp.func(w,a,b) + Next + End Method +End Type + + +Rem +bbdoc: Defines an event list for functions that take the parameters (w:TMWidget, a:String, b:Object) +EndRem +Type TMWEventListStringObject Extends TMWEventListBase Final + Rem + bbdoc: Adds a callback function. + EndRem + Method Add(func(w:TMWidget, a:String, b:Object)) + list.AddLast(TMWFuncStringObject.Create(func)) + End Method + + Rem + bbdoc: Clears all callback functions. + EndRem + Method Clear() + list.Clear() + End Method + + Rem + bbdoc: Removes a callback function. + EndRem + Method Remove(func(w:TMWidget, a:String, b:Object)) + For Local fp:TMWFuncStringObject=EachIn list + If fp.func=func + list.Remove(fp) + Return + EndIf + Next + End Method + + Method Fire(w:TMWidget, a:String, b:Object) + For Local fp:TMWFuncStringObject=EachIn list + fp.func(w,a,b) + Next + End Method +End Type + + +Rem +bbdoc: Defines a base managed widget type. +EndRem +Type TMWidget Abstract + + Rem + bbdoc: The underlying BlitzMAX GUI Gadget + EndRem + Field gadget:TGadget + + Rem + bbdoc: The parent of this managed widget + EndRem + Field parent:TMWidget + + Rem + bbdoc: Children of this managed widget + EndRem + Field children:TList + + Field typename:String + Field timer:TTimer + + Method Delete() + FreeGadget(gadget) + End Method + + Rem + bbdoc: Handles an event. + about: Sub-classes will generally override this to handle events directed at themselves. + If the event is unhandled then the event should be passed up to the parent type. @e holds the TEvent. + EndRem + Method Handle(e:TEvent) + Select e.id + Case EVENT_MOUSEENTER + OnMouseEnter() + OnMouseEnterEvent.Fire(Self) + Case EVENT_MOUSELEAVE + OnMouseLeave() + OnMouseLeaveEvent.Fire(Self) + Case EVENT_TIMERTICK + OnTimer() + OnTimerEvent.Fire(Self) + End Select + End Method + + Rem + bbdoc: Activate the widget (give it keyboard focus). + EndRem + Method Activate(state:Int) + ActivateGadget(gadget) + End Method + + Rem + bbdoc: Enables/disables a widget. + EndRem + Method Enabled(state:Int) + If state + EnableGadget(gadget) + Else + DisableGadget(gadget) + EndIf + End Method + + Rem + bbdoc: Is widget enabled. + returns: TRUE if enabled. + EndRem + Method IsEnabled:Int() + Return Not GadgetDisabled(gadget) + End Method + + Rem + bbdoc: Hide/show the widget. + EndRem + Method Hidden(state:Int) + If state + HideGadget(gadget) + Else + ShowGadget(gadget) + EndIf + End Method + + Rem + bbdoc: Is widget hidden. + returns: TRUE if hidden. + EndRem + Method IsHidden:Int() + Return GadgetHidden(gadget) + End Method + + Rem + bbdoc: The widget's position. + returns: The widget's X co-ordinate. + EndRem + Method X:Int() + Return GadgetX(gadget) + End Method + + Rem + bbdoc: The widget's position. + returns: The widget's Y co-ordinate. + EndRem + Method Y:Int() + Return GadgetY(gadget) + End Method + + Rem + bbdoc: The widget's size. + returns: The widget's width. + EndRem + Method Width:Int() + Return GadgetWidth(gadget) + End Method + + Rem + bbdoc: The widget's size. + returns: The widget's height. + EndRem + Method Height:Int() + Return GadgetHeight(gadget) + End Method + + Rem + bbdoc: The widget's client size. + returns: The widget's client width. + EndRem + Method Client_Width:Int() + Return ClientWidth(gadget) + End Method + + Rem + bbdoc: The widget's client size. + returns: The widget's client height. + EndRem + Method Client_Height:Int() + Return ClientHeight(gadget) + End Method + + Rem + bbdoc: Set the widget's font. + EndRem + Method Font(font:TGUIFont) + SetGadgetFont(gadget,font) + End Method + + Rem + bbdoc: Set the widgets's layout. See Max GUIs SetGadgetLayout() for details. + EndRem + Method Layout(Left:Int, Right:Int, top:Int, bottom:Int) + SetGadgetLayout(gadget,Left,Right,top,bottom) + End Method + + Rem + bbdoc: Set the widget's position and size. + EndRem + Method SetShape(x:Int, y:Int, width:Int, height:Int) + SetGadgetShape(gadget,x,y,width,height) + End Method + + Rem + bbdoc: Set the widgets's alpha. + EndRem + Method Alpha(a:Double) + SetGadgetAlpha(gadget,a) + End Method + + Rem + bbdoc: Set the widgets's text colour. + EndRem + Method TextColour(r:Int, g:Int, b:Int) + SetGadgetTextColor(gadget,r,g,b) + End Method + + Rem + bbdoc: Set the widgets's background colour. + EndRem + Method BackColour(r:Int, g:Int, b:Int) + SetGadgetColor(gadget,r,g,b) + End Method + + Rem + bbdoc: Set the widgets's text. + EndRem + Method Text(s:String) + SetGadgetText(gadget,s) + End Method + + Rem + bbdoc: Print the widget + EndRem + Method Print() + GadgetPrint(gadget) + End Method + + Rem + bbdoc: Perform a cut on the widget + EndRem + Method Cut() + GadgetCut(gadget) + End Method + + Rem + bbdoc: Perform a copy on the widget + EndRem + Method Copy() + GadgetCopy(gadget) + End Method + + Rem + bbdoc: Perform a paste on the widget + EndRem + Method Paste() + GadgetPaste(gadget) + End Method + + Rem + bbdoc: Allocates a timer for this widget. + about: Create a Blitz MAX TTimer that is fired @hertz times a second. When the timer pulses then @OnTimer() is called. + If this routine is called when a timer is already active, then the timer is re-initialised with the passed hertz. + EndRem + Method SetTimer(hertz:Double) + ClearTimer() + timer=CreateTimer(hertz,CreateEvent(EVENT_TIMERTICK,gadget)) + End Method + + Rem + bbdoc: Clears timer previously activated by @SetTimer(). + EndRem + Method ClearTimer() + If timer + StopTimer(timer) + EndIf + timer=Null + End Method + + Rem + bbdoc: Called when the widget's timer fires. + EndRem + Method OnTimer() + End Method + + Rem + bbdoc: Called when the widget's timer fires. + EndRem + Field OnTimerEvent:TMWEventListVoid + + Rem + bbdoc: Called when the widget is managed. + EndRem + Method OnManage() + End Method + + Rem + bbdoc: Called when the widget is managed. + EndRem + Field OnManageEvent:TMWEventListVoid + + Rem + bbdoc: Called when the widget is unmanaged. + EndRem + Method OnUnmanage() + End Method + + Rem + bbdoc: Called when the widget is unmanaged. + EndRem + Field OnUnmanageEvent:TMWEventListVoid + + Rem + bbdoc: Called when the mouse enters. + EndRem + Method OnMouseEnter() + End Method + + Rem + bbdoc: Called when the mouse enters. + EndRem + Field OnMouseEnterEvent:TMWEventListVoid + + Rem + bbdoc: Called when the mouse leaves. + EndRem + Method OnMouseLeave() + End Method + + Rem + bbdoc: Called when the mouse leaves. + EndRem + Field OnMouseLeaveEvent:TMWEventListVoid + + Rem + bbdoc: Fires an event at this managed widget. + about: The arguments are the same as @CreateEvent(), but no source is passed in. + EndRem + Method Emit(id:Int, data:Int=0, mods:Int=0, x:Int=0, y:Int=0,extra:Object=Null) + EmitEvent(CreateEvent(id,gadget,data,mods,x,y,extra)) + End Method + + Rem + bbdoc: Initialises the base managed widget stuff. + about: All sub-classes must call this! @gadget is the created TGadget for this instance, + 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 + + OnTimerEvent=New TMWEventListVoid + OnManageEvent=New TMWEventListVoid + OnUnmanageEvent=New TMWEventListVoid + OnMouseEnterEvent=New TMWEventListVoid + OnMouseLeaveEvent=New TMWEventListVoid + + If self.parent + self.parent.children.AddLast(Self) + EndIf + + Static.Register(Self) + End Method + + Rem + bbdoc: Removes the managed widget from the internal lists. + about: All child objects will also be unmanaged. + EndRem + Method Unmanage() + Static.Deregister(Self) + End Method + + Method ToString:String() + Return typename+":"+super.ToString() + End Method +End Type + + +Rem +bbdoc: Defines a managed window. +EndRem +Type TMWindow Extends TMWidget + + Rem + bbdoc: Creates a managed window. + returns: The created window. + about: @name, @x, @y, @w, @h, @group and @flags act the same as the MaxGUI arguments to @CreateWindow(), except that @group is a TMWidget. + EndRem + Method Create:TMWindow(name:String, x:Int,y:Int, w:Int, h:Int, group:TMWidget=Null, flags:Int=15) + closed=False + + OnMoveEvent=New TMWEventListIntInt + OnResizeEvent=New TMWEventListIntInt + OnCloseEvent=New TMWEventListVoid + OnDropEvent=New TMWEventListString + + Local g:TGadget + + If group + g=CreateWindow(name,x,y,w,h,group.gadget,flags) + Else + g=CreateWindow(name,x,y,w,h,Null,flags) + EndIf + + BaseInitialise(g,group) + typename="TMWindow" + Return Self + End Method + + Rem + bbdoc: Set to TRUE when the window is closed (the user has pressed the close gadget). + EndRem + Field closed:Int + + Rem + bbdoc: Activate the window. + EndRem + Method Activate(state:Int) + ActivateWindow(gadget) + End Method + + Rem + bbdoc: Send a close event to this window. + EndRem + Method Close() + Emit(EVENT_WINDOWCLOSE) + End Method + + Rem + bbdoc: Hide to show the window. + about: Note that this sets the @closed field to the @state passed in. + EndRem + Method Hidden(state:Int) + closed=state + super.Hidden(state) + End Method + + Rem + bbdoc: Set the window's status text. + EndRem + Method StatusText(text:String) + SetStatusText(gadget,text) + End Method + + Rem + bbdoc: Set the window's minimum size. + EndRem + Method MinSize(width:Int, height:Int) + Return SetMinWindowSize(gadget,width,height) + End Method + + Rem + bbdoc: Restore a minimizwed or maximized window. + EndRem + Method Restore() + Return RestoreWindow(gadget) + End Method + + Rem + bbdoc: Maximize the window. + EndRem + Method Maximize() + Return MaximizeWindow(gadget) + End Method + + Rem + bbdoc: Is the window maximized? + returns:TRUE if the window is maximized + EndRem + Method IsMaximized() + Return WindowMaximized(gadget) + End Method + + Rem + bbdoc: Minimize the window. + EndRem + Method Minimize() + Return MinimizeWindow(gadget) + End Method + + Rem + bbdoc: Is the window minimized? + returns:TRUE if the window is minimized + EndRem + Method IsMinimized() + Return WindowMinimized(gadget) + End Method + + Rem + bbdoc: Called when the window is moved. + about:@x and @y are the new position. + EndRem + Method OnMove(x:Int, y:Int) + End Method + + Rem + bbdoc: Called when the window is moved. + EndRem + Field OnMoveEvent:TMWEventListIntInt + + Rem + bbdoc: Called when the window is resized. + about:@width and @height are the new size. + EndRem + Method OnResize(width:Int, height:Int) + End Method + + Rem + bbdoc: Called when the window is resized. + EndRem + Field OnResizeEvent:TMWEventListIntInt + + Rem + bbdoc: Called when the window's close gadget is pressed. + about: This default implementation sets @closed to TRUE and hide the window if no events are defined in @OnCloseEvent. + EndRem + Method OnClose() + If Not OnCloseEvent.list.Count() + closed=True + Hidden(True) + EndIf + End Method + + Rem + bbdoc: Called when the window's close gadget is pressed. + EndRem + Field OnCloseEvent:TMWEventListVoid + + Rem + bbdoc: Called when a file is dropped in the window. + about: @path is the dropped file. + EndRem + Method OnDrop(path:String) + End Method + + Rem + bbdoc: Called when a file is dropped in the window. + EndRem + Field OnDropEvent:TMWEventListString + + Method Handle(e:TEvent) + Select e.id + Case EVENT_WINDOWACCEPT + OnDrop(String(e.extra)) + OnDropEvent.Fire(Self,String(e.extra)) + Case EVENT_WINDOWMOVE + OnMove(e.x,e.y) + OnMoveEvent.Fire(Self,e.x,e.y) + Case EVENT_WINDOWSIZE + OnResize(e.x,e.y) + OnResizeEvent.Fire(Self,e.x,e.y) + Case EVENT_WINDOWCLOSE + OnClose() + OnCloseEvent.Fire(Self) + Default + super.Handle(e) + End Select + End Method +End Type + + +Rem +bbdoc: Defines a managed button push button. +EndRem +Type TMButton Extends TMWidget + + Rem + bbdoc: Creates a managed push button. + returns: The created button. + about: @label, @x, @y, @w, @h, and @group act the same as the MaxGUI arguments to @CreateButton(), except that @group is a TMWidget. + EndRem + Method Create:TMButton(label:String, x:Int,y:Int, w:Int, h:Int, group:TMWidget) + OnPressEvent=New TMWEventListVoid + BaseInitialise(CreateButton(label,x,y,w,h,group.gadget,BUTTON_PUSH),group) + typename="TMButton" + Return Self + End Method + + Rem + bbdoc: Creates a managed push button used for an OK button + returns: The created button. + about: @label, @x, @y, @w, @h, and @group act the same as the MaxGUI arguments to @CreateButton(), except that @group is a TMWidget. + EndRem + Method CreateOK:TMButton(label:String, x:Int,y:Int, w:Int, h:Int, group:TMWidget) + OnPressEvent=New TMWEventListVoid + BaseInitialise(CreateButton(label,x,y,w,h,group.gadget,BUTTON_OK),group) + typename="TMButton" + Return Self + End Method + + Rem + bbdoc: Creates a managed push button used for a Cancel button + returns: The created button. + about: @label, @x, @y, @w, @h, and @group act the same as the MaxGUI arguments to @CreateButton(), except that @group is a TMWidget. + EndRem + Method CreateCancel:TMButton(label:String, x:Int,y:Int, w:Int, h:Int, group:TMWidget) + OnPressEvent=New TMWEventListVoid + BaseInitialise(CreateButton(label,x,y,w,h,group.gadget,BUTTON_OK),group) + typename="TMButton" + Return Self + End Method + + Rem + bbdoc: Called when the button is pressed. + EndRem + Method OnPress() + End Method + + Rem + bbdoc: Called when the button is pressed. + EndRem + Field OnPressEvent:TMWEventListVoid + + Method Handle(e:TEvent) + Select e.id + Case EVENT_GADGETACTION + OnPress() + OnPressEvent.Fire(Self) + Default + super.Handle(e) + End Select + End Method +End Type + + +Rem +bbdoc: Defines a managed checkbox. +EndRem +Type TMCheckbox Extends TMWidget + Rem + bbdoc: Creates a managed checkbox. + returns: The created checkbox. + about: @label, @x, @y, @w, @h, and @group act the same as the MaxGUI arguments to @CreateButton(), except that @group is a TMWidget. + EndRem + Method Create:TMCheckbox(label:String, x:Int,y:Int, w:Int, h:Int, group:TMWidget) + OnPressEvent=New TMWEventListInt + BaseInitialise(CreateButton(label,x,y,w,h,group.gadget,BUTTON_CHECKBOX),group) + typename="TMCheckbox" + Return Self + End Method + + Rem + bbdoc: Sets the state of the check. + EndRem + Method Checked(check:Int) + SetButtonState(gadget,check) + End Method + + Rem + bbdoc: Is the checkbox checked? + returns:TRUE if the checkbox is checked. + EndRem + Method IsChecked() + Return ButtonState(gadget) + End Method + + Rem + bbdoc: Called when the checkbox is pressed. + about: @checked is the current state. + EndRem + Method OnPress(checked:Int) + End Method + + Rem + bbdoc: Called when the checkbox is pressed. + EndRem + Field OnPressEvent:TMWEventListInt + + Method Handle(e:TEvent) + Select e.id + Case EVENT_GADGETACTION + OnPress(e.data) + OnPressEvent.Fire(Self,e.data) + Default + super.Handle(e) + End Select + End Method +End Type + + +Rem +bbdoc: Defines a managed radio button. +EndRem +Type TMRadioButton Extends TMCheckbox + Field set:TMRadioButtonSet + + Rem + bbdoc: Creates a managed radio button. + returns: The created radio button. + about: @label, @x, @y, @w, @h, and @group act the same as the MaxGUI arguments to @CreateButton(), except that @group is a TMWidget. + EndRem + Method Create:TMRadioButton(label:String, x:Int,y:Int, w:Int, h:Int, group:TMWidget) + OnPressEvent=New TMWEventListInt + BaseInitialise(CreateButton(label,x,y,w,h,group.gadget,BUTTON_RADIO),group) + typename="TMRadioButton" + Return Self + End Method + + Rem + bbdoc: Called when the checkbox is pressed. + about: @checked is the current state. In this default implementation the @TMRadioButtonSet which this button belongs too will fire + its @OnSelected() member. + EndRem + Method OnPress(checked:Int) + If set + set.ButtonFired(Self) + EndIf + End Method +End Type + + +Rem +bbdoc: Defines a set of managed radio button. +EndRem +Type TMRadioButtonSet + Field but:TMRadioButton[] + + Rem + bbdoc: Creates a set of managed radio buttons. + returns: The created set. + about: The radio buttons must have been created prior to calling this. + EndRem + Method Create:TMRadioButtonSet(buttons:TMRadioButton[]) + OnSelectedEvent=New TMWEventListInt + but=buttons + For Local b:TMRadioButton=EachIn but + b.set=Self + Next + Return Self + End Method + + Rem + bbdoc: Sets the active radio button. + about: @index is the index of the button to set. + EndRem + Method Set(index:Int) + but[index].Checked(True) + End Method + + Rem + bbdoc: If using the base TMRadioButton implmentation this will be called when the buttons change. + about: @index is the selected button. + EndRem + Method OnSelected(index:Int) + End Method + + Rem + bbdoc: If using the base TMRadioButton implmentation this will be called when the buttons change. + about: The radio button that fired will be passed into the event. + EndRem + Field OnSelectedEvent:TMWEventListInt + + Rem + bbdoc: Get the active radio button. + returns: The index of the button set. -1 if no button is set. + EndRem + Method Current() + For Local f:Int=0 Until but.length + If but[f].IsChecked() + Return f + EndIf + Next + Return -1 + End Method + + Method ButtonFired(b:TMRadioButton) + For Local f:Int=0 Until but.length + If but[f]=b + OnSelected(f) + OnSelectedEvent.Fire(b,f) + Return + EndIf + Next + End Method +End Type + + +Rem +bbdoc: Defines a managed label. +EndRem +Type TMLabel Extends TMWidget + + Rem + bbdoc: Creates a managed label. + returns: The created label. + about: @label, @x, @y, @w, @h, @group and @style act the same as the MaxGUI arguments to @CreateLabel(), except that @group is a TMWidget. + EndRem + Method Create:TMLabel(label:String, x:Int,y:Int, w:Int, h:Int, group:TMWidget, style:Int=0) + BaseInitialise(CreateLabel(label,x,y,w,h,group.gadget,style),group) + typename="TMLabel" + Return Self + End Method +End Type + + +Rem +bbdoc: Defines a managed text field. +EndRem +Type TMTextField Extends TMWidget + Rem + bbdoc: Creates a managed text field. + returns: The created text field. + about: @x, @y, @w, @h, and @group act the same as the MaxGUI arguments to @CreateTextField(), except that @group is a TMWidget. + EndRem + Method Create:TMTextField(x:Int,y:Int, w:Int, h:Int, group:TMWidget) + OnTextChangedEvent=New TMWEventListString + BaseInitialise(CreateTextField(x,y,w,h,group.gadget),group) + typename="TMTextField" + Return Self + End Method + + Rem + bbdoc: Creates a managed text field for entering passwords. + returns: The created text field. + about: @x, @y, @w, @h, and @group act the same as the MaxGUI arguments to @CreateTextField(), except that @group is a TMWidget. + EndRem + Method CreateSecret:TMTextField(x:Int,y:Int, w:Int, h:Int, group:TMWidget) + BaseInitialise(CreateTextField(x,y,w,h,group.gadget,TEXTFIELD_PASSWORD),group) + typename="TMTextField" + Return Self + End Method + + Rem + bbdoc: The field's text. + returns:The text. + EndRem + Method GetText:String() + Return TextFieldText(gadget) + End Method + + Rem + bbdoc: Called when the text changes. + about: @txt is the content of the field + EndRem + Method OnTextChanged(txt:String) + End Method + + Rem + bbdoc: Called when the text changes. + EndRem + Field OnTextChangedEvent:TMWEventListString + + Method Handle(e:TEvent) + Select e.id + Case EVENT_GADGETACTION + Local s:String=TextFieldText(gadget) + OnTextChanged(s) + OnTextChangedEvent.Fire(Self,s) + Default + super.Handle(e) + End Select + End Method +End Type + + +Rem +bbdoc: Defines a managed text area. +EndRem +Type TMTextArea Extends TMWidget + Rem + bbdoc: Creates a managed text area. + returns: The created text area. + about: @x, @y, @w, @h,, @group and @style act the same as the MaxGUI arguments to @CreateTextArea(), except that @group is a TMWidget. + EndRem + Method Create:TMTextArea(x:Int, y:Int, w:Int, h:Int, group:TMWidget, style:Int=0) + OnTextChangedEvent=New TMWEventListVoid + OnSelectionEvent=New TMWEventListVoid + OnMenuEvent=New TMWEventListVoid + BaseInitialise(CreateTextArea(x,y,w,h,group.gadget,style),group) + typename="TMTextArea" + Return Self + End Method + + Rem + bbdoc: The text area's text. + returns:The text. + EndRem + Method GetText:String(pos:Int=0, length:Int=TEXTAREA_ALL, units:Int=TEXTAREA_CHARS) + Return TextAreaText(gadget,pos,length,units) + End Method + + Rem + bbdoc: Set the widget's font. + EndRem + Method Font(font:TGUIFont) + SetTextAreaFont(gadget,font) + End Method + + Rem + bbdoc: Set the widgets's text colour. + EndRem + Method TextColour(r:Int, g:Int, b:Int) + SetTextAreaColor(gadget,r,g,b,False) + End Method + + Rem + bbdoc: Set the widgets's background colour. + EndRem + Method BackColour(r:Int, g:Int, b:Int) + SetTextAreaColor(gadget,r,g,b,True) + End Method + + Rem + bbdoc: Set the widgets's text. + EndRem + Method Text(s:String) + SetText(s) + End Method + + Rem + bbdoc: Set the widgets's text (see the MaxGUI docs for argument details) + EndRem + Method SetText(s:String, pos:Int=0, length:Int=TEXTAREA_ALL, units:Int=TEXTAREA_CHARS) + SetTextAreaText(gadget,s,pos,length,units) + End Method + + Rem + bbdoc: Set the text area's tab size + EndRem + Method SetTabSize(size:Int) + SetTextAreaTabs(gadget,size) + End Method + + Rem + bbdoc: Get the character position of the specified line. + EndRem + Method GetCharPos:Int(line:Int) + Return TextAreaChar(gadget,line) + End Method + + Rem + bbdoc: Get the cursor's column. + EndRem + Method GetCursorColumn:Int() + Return TextAreaCursor(gadget,TEXTAREA_CHARS) + End Method + + Rem + bbdoc: Get the cursor's row. + EndRem + Method GetCursorRow:Int() + Return TextAreaCursor(gadget,TEXTAREA_LINES) + End Method + + Rem + bbdoc: Get the text length. + EndRem + Method GetLength:Int() + Return TextAreaLen(gadget) + End Method + + Rem + bbdoc: Get the selected texts length. + EndRem + Method GetSelectionLength:Int() + Return TextAreaSelLen(gadget,TEXTAREA_CHARS) + End Method + + Rem + bbdoc: Get the number of selected rows. + EndRem + Method GetSelectionRows:Int() + Return TextAreaSelLen(gadget,TEXTAREA_LINES) + End Method + + Rem + bbdoc: Lock the text area. + EndRem + Method Lock() + Return LockTextArea(gadget) + End Method + + Rem + bbdoc: Unlock the text area. + EndRem + Method Unlock() + Return UnlockTextArea(gadget) + End Method + + Rem + bbdoc: Set the format. See the MaxGUI docs for details. + EndRem + Method Format(r:Int, g:Int, b:Int, flags:Int, pos:Int=0, length:Int=TEXTAREA_ALL, units:Int=TEXTAREA_CHARS ) + FormatTextAreaText(gadget,r,g,b,flags,pos,length,units) + End Method + + Rem + bbdoc: Called when the text changes. + EndRem + Method OnTextChanged() + End Method + + Rem + bbdoc: Called when the text changes. + EndRem + Field OnTextChangedEvent:TMWEventListVoid + + Rem + bbdoc: Called when the selection or cursor changes. + EndRem + Method OnSelection() + End Method + + Rem + bbdoc: Called when the selection or cursor changes. + EndRem + Field OnSelectionEvent:TMWEventListVoid + + Rem + bbdoc: Called when the context menu is requested. + EndRem + Method OnMenu() + End Method + + Rem + bbdoc: Called when the context menu is requested. + EndRem + Field OnMenuEvent:TMWEventListVoid + + Method Handle(e:TEvent) + Select e.id + Case EVENT_GADGETACTION + OnTextChanged() + OnTextChangedEvent.Fire(Self) + Case EVENT_GADGETSELECT + OnSelection() + OnSelectionEvent.Fire(Self) + Case EVENT_GADGETMENU + OnMenu() + OnMenuEvent.Fire(Self) + Default + super.Handle(e) + End Select + End Method +End Type + + +Rem +bbdoc: Defines a managed slider. +EndRem +Type TMSlider Extends TMWidget + Rem + bbdoc: Creates a managed slider. + returns: The created slider. + about: @x, @y, @w, @h, @group and @style act the same as the MaxGUI arguments to @CreateSlider(), except that @group is a TMWidget. + EndRem + Method Create:TMSlider(x:Int, y:Int, w:Int, h:Int, group:TMWidget, style:Int=0) + OnValueChangedEvent=New TMWEventListInt + BaseInitialise(CreateSlider(x,y,w,h,group.gadget,style),group) + typename="TMSlider" + Return Self + End Method + + Rem + bbdoc: Set the sliders's min/max values. + about: See the MaxGUI docs for how this affects scrollbar style sliders. + EndRem + Method SetRange(range0:Int,range1:Int) + Return SetSliderRange(gadget,range0,range1) + End Method + + Rem + bbdoc: Set the sliders's value. + EndRem + Method SetValue(value:Int) + Return SetSliderValue(gadget,value) + End Method + + Rem + bbdoc: The sliders's value. + returns:The value. + EndRem + Method GetValue:Int() + Return SliderValue(gadget) + End Method + + Rem + bbdoc: Called when the slider moves. + about: @val is the new slider value. + EndRem + Method OnValueChanged(val:Int) + End Method + + Rem + bbdoc: Called when the slider moves. + EndRem + Field OnValueChangedEvent:TMWEventListInt + + Method Handle(e:TEvent) + Select e.id + Case EVENT_GADGETACTION + OnValueChanged(e.data) + OnValueChangedEvent.Fire(Self,e.data) + Default + super.Handle(e) + End Select + End Method +End Type + + +Rem +bbdoc: Defines an entry in a list style gadget. +about: Always use @CreateListEntry() to create this object. +EndRem +Type TMListEntry + Rem + bbdoc: The text associated with a list entry. + EndRem + Field text:String + Rem + bbdoc: The flags associated with a list entry. + EndRem + Field flags:Int + Rem + bbdoc: The icon associated with a list entry. + EndRem + Field icon:Int + Rem + bbdoc: The tooltip associated with a list entry. + EndRem + Field tip:String + Rem + bbdoc: The extra object associated with a list entry. + EndRem + Field extra:Object + + Function Create:TMListEntry(text:String,flags:Int,icon:Int,tip:String,extra:Object) + Local o:TMListEntry=New TMListEntry + o.text=text + o.flags=flags + o.icon=icon + o.tip=tip + o.extra=extra + Return o + End Function +End Type + + +Rem +bbdoc: Creates a list entry. +returns: The list entry. +about: @text, @flags, @icon, @tip and @extra are the fields detailed in MaxGUI @AddGadgetItem(). +EndRem +Function CreateListEntry:TMListEntry(text:String,flags:Int=0,icon:Int=-1,tip:String="",extra:Object=Null) + Return TMListEntry.Create(text,flags,icon,tip,extra) +End Function + + +Rem +bbdoc: Defines a base for list style gadgets. +EndRem +Type TMListWidget Extends TMWidget Abstract + Rem + bbdoc: Removes all items from the list. + EndRem + Method Clear() + ClearGadgetItems(gadget) + End Method + + Rem + bbdoc: Adds an item to the list. + EndRem + Method AddItem(entry:TMListEntry) + AddGadgetItem(gadget,entry.text,entry.flags,entry.icon,entry.tip,entry.extra) + End Method + + Rem + bbdoc: Adds items to the list. + EndRem + Method AddItems(entry:TMListEntry[]) + For Local f:Int=0 Until entry.length + AddItem(entry[f]) + Next + End Method + + Rem + bbdoc: Modify an item in the list. + EndRem + Method ModifyItem(index:Int, entry:TMListEntry) + ModifyGadgetItem(gadget,index,entry.text,entry.flags,entry.icon,entry.tip,entry.extra) + End Method + + Rem + bbdoc: Set an icon strip for the list. + EndRem + Method SetIconStrip(icons:TIconStrip) + SetGadgetIconStrip(gadget,icons) + End Method + + Rem + bbdoc: Get an item from the list. + about: Note that the @tip field is not set on return + EndRem + Method GetItem:TMListEntry(index:Int) + Return CreateListEntry(GadgetItemText(gadget,index), .. + GadgetItemFlags(gadget,index), .. + GadgetItemIcon(gadget,index), .. + "", .. + GadgetItemExtra(gadget,index)) + End Method + + Rem + bbdoc: Enable or disable a particular item. + EndRem + Method ItemEnabled(index:Int, state:Int) + If state + EnableGadgetItem(gadget,index) + Else + DisableGadgetItem(gadget,index) + EndIf + End Method + + Rem + bbdoc: Set the currently selected item. + EndRem + Method SetSelectedIndex(index:Int) + SelectGadgetItem(gadget,index) + End Method + + Rem + bbdoc: Get the index of the first selected item. + EndRem + Method SelectedIndex:Int() + Return SelectedGadgetItem(gadget) + End Method + + Rem + bbdoc: Get the indexes of the selected items. + EndRem + Method SelectedIndexes:Int[]() + Return SelectedGadgetItems(gadget) + End Method + + Rem + bbdoc: Get the first selected item, NULL if nothing selected. + EndRem + Method SelectedItem:TMListEntry() + If SelectedIndex()=-1 + Return Null + EndIf + + Return GetItem(SelectedIndex()) + End Method + + Rem + bbdoc: Get the selected items, NULL if nothing selected. + EndRem + Method SelectedItems:TMListEntry[]() + If SelectedIndex()=-1 + Return Null + EndIf + + Local sel:Int[]=SelectedIndexes() + Local ret:TMListEntry[]=New TMListEntry[sel.length] + + For Local f:Int=0 Until sel.length + ret[f]=GetItem(sel[f]) + Next + Return ret + End Method + + Rem + bbdoc: Called when the selection changes. + about: @index is the selected index. This can be -1 for no selection. + EndRem + Method OnIndexChanged(index:Int) + End Method + + Rem + bbdoc: Called when the selection changes. + EndRem + Field OnIndexChangedEvent:TMWEventListInt + + Method Handle(e:TEvent) + Select e.id + Case EVENT_GADGETACTION + OnIndexChanged(e.data) + OnIndexChangedEvent.Fire(Self,e.data) + Default + super.Handle(e) + End Select + End Method +End Type + + +Rem +bbdoc: Defines a managed combo box. +EndRem +Type TMComboBox Extends TMListWidget + Rem + bbdoc: Creates a managed combo box. + returns: The created combo box. + about: @x, @y, @w, @h, @group and @style act the same as the MaxGUI arguments to @CreateComboBox(), except that @group is a TMWidget. + If @values is not NULL it is used to load up the initial options. + <b>IMPORTANT</b>: It is really not recommended to use COMBOBOX_EDITABLE as OnIndexChanged() is called when the user edits the field. + There seems to be no easy way to remedy this. + EndRem + Method Create:TMComboBox(x:Int,y:Int, w:Int, h:Int, group:TMWidget, style:Int=0, values:TMListEntry[]=Null) + OnIndexChangedEvent=New TMWEventListInt + BaseInitialise(CreateComboBox(x,y,w,h,group.gadget,style),group) + typename="TMComboBox" + If values + AddItems(values) + EndIf + Return Self + End Method +End Type + + +Rem +bbdoc: Defines a managed list box. +EndRem +Type TMListBox Extends TMListWidget + Rem + bbdoc: Creates a managed list box. + returns: The created list box. + about: @x, @y, @w, @h, and @group act the same as the MaxGUI arguments to @CreateListBox(), except that @group is a TMWidget. + If @values is not NULL it is used to load up the initial options. + EndRem + Method Create:TMListBox(x:Int,y:Int, w:Int, h:Int, group:TMWidget, values:TMListEntry[]=Null) + OnIndexChangedEvent=New TMWEventListInt + BaseInitialise(CreateListBox(x,y,w,h,group.gadget),group) + typename="TMListBox" + If values + AddItems(values) + EndIf + Return Self + End Method +End Type + + +Rem +bbdoc: Defines a managed tabber. +EndRem +Type TMTabber Extends TMListWidget + Field pages:TMWidget[][] + + Rem + bbdoc: Creates a managed tabber. + returns: The created tabber. + about: @x, @y, @w, @h, and @group act the same as the MaxGUI arguments to @CreateTabber(), except that @group is a TMWidget. + If @values is not NULL it is used to load up the initial options. + EndRem + Method Create:TMTabber(x:Int,y:Int, w:Int, h:Int, group:TMWidget, values:TMListEntry[]=Null) + OnIndexChangedEvent=New TMWEventListInt + BaseInitialise(CreateTabber(x,y,w,h,group.gadget),group) + typename="TMTabber" + If values + AddItems(values) + EndIf + Return Self + End Method + + Rem + bbdoc: Defines the gadgets to appear on each page of the tabber. + about: @widgets is an array of @TMWidget arrays. Each sub-array is one page. + EndRem + Method SetPages(widgets:TMWidget[][]) + pages=widgets + End Method + + Rem + bbdoc: Set the currently selected page. + about: This will hide/show the widgets defined by @DefinePages() as appropriate. + EndRem + Method SetSelectedIndex(index:Int) + SelectGadgetItem(gadget,index) + + If pages + For Local f:Int=0 Until pages.length + For Local w:TMWidget=EachIn pages[f] + w.Hidden(f<>index) + Next + Next + EndIf + End Method + + Rem + bbdoc: This default implementation will switch the widgets as defined by @DefinePages() + EndRem + Method OnIndexChanged(index:Int) + If index>-1 And pages + For Local f:Int=0 Until pages.length + For Local w:TMWidget=EachIn pages[f] + w.Hidden(f<>index) + Next + Next + EndIf + End Method + +End Type + + +Rem +bbdoc: Defines a managed HTML View. +EndRem +Type TMHTMLView Extends TMWidget + Rem + bbdoc: Creates a managed HTML View. + returns: The created HTML View. + about: @x, @y, @w, @h, @group and @style act the same as the MaxGUI arguments to @CreateHMTLView(), except that @group is a TMWidget. + EndRem + Method Create:TMHTMLView(x:Int, y:Int, w:Int, h:Int, group:TMWidget, style:Int=0) + OnPageLoadedEvent=New TMWEventListString + OnSelectURLEvent=New TMWEventListString + BaseInitialise(CreateHTMLView(x,y,w,h,group.gadget,style),group) + typename="TMHTMLView" + Return Self + End Method + + Rem + bbdoc: The current URL. + EndRem + Method CurrentURL:String() + Return HtmlViewCurrentURL(gadget) + End Method + + Rem + bbdoc: Enter the URL to goto. + EndRem + Method Go(url:String) + HtmlViewGo(gadget,url) + End Method + + Rem + bbdoc: Go back in the history. + EndRem + Method Back() + HtmlViewBack(gadget) + End Method + + Rem + bbdoc: Go forward in the history. + EndRem + Method Forward() + HtmlViewForward(gadget) + End Method + + Rem + bbdoc:Run a script. + EndRem + Method RunScript:String(script:String) + HtmlViewRun(gadget,script) + End Method + + Rem + bbdoc: If HTMLVIEW_NONAVIGATE is set in the styles, then this is called when a link is clicked. + about: @url is the selected URL. + EndRem + Method OnSelectURL(url:String) + End Method + + Rem + bbdoc: If HTMLVIEW_NONAVIGATE is set in the styles, then this is called when a link is clicked. + EndRem + Field OnSelectURLEvent:TMWEventListString + + Rem + bbdoc: Called when the page finishes loading. + about: @url is the loaded URL. + EndRem + Method OnPageLoaded(url:String) + End Method + + Rem + bbdoc: Called when the page finishes loading. + EndRem + Field OnPageLoadedEvent:TMWEventListString + + Method Handle(e:TEvent) + Select e.id + Case EVENT_GADGETACTION + OnSelectURL(e.extra.ToString()) + OnSelectURLEvent.Fire(Self,e.extra.ToString()) + Case EVENT_GADGETDONE + OnPageLoaded(CurrentURL()) + OnPageLoadedEvent.Fire(Self,CurrentURL()) + Default + super.Handle(e) + End Select + End Method +End Type + + +Type TMTreeNode + Field path:String + Field node:TGadget + Field tag:Object + Field icon:Int + Function Create:TMTreeNode(path:String, node:TGadget, tag:Object, icon:Int) + Local o:TMTreeNode=New TMTreeNode + o.path=path + o.node=node + o.tag=tag + o.icon=icon + Return o + End Function +End Type + +Rem +bbdoc: Defines a managed tree view. +about: The tree view works by treating its entries as if in a simple file system. +EndRem +Type TMTreeView Extends TMWidget + Field map:TMap + Field gmap:TMap + Field update:Int + + Rem + bbdoc: Creates a managed tree view. + returns: The created tree view. + about: @x, @y, @w, @h, @group and @style act the same as the MaxGUI arguments to @CreateTreeView(), except that @group is a TMWidget. + EndRem + Method Create:TMTreeView(x:Int, y:Int, w:Int, h:Int, group:TMWidget, style:Int=0) + update=False + map=New TMap + gmap=New TMap + OnSelectedEvent=New TMWEventListStringObject + OnClickedEvent=New TMWEventListStringObject + OnMenuEvent=New TMWEventListStringObject + OnExpandedEvent=New TMWEventListStringObject + OnCollapsedEvent=New TMWEventListStringObject + BaseInitialise(CreateTreeView(x,y,w,h,group.gadget,style),group) + typename="TMNodeView" + map.Insert("/",TMTreeNode.Create("/",TreeViewRoot(gadget),"/",-1)) + Return Self + End Method + + Method ResolvePath:TMTreeNode(path:String) + Return TMTreeNode(map.ValueForKey(path)) + End Method + + Method ResolveGadget:TMTreeNode(g:TGadget) + Return ResolvePath(gmap.ValueForKey(g).ToString()) + End Method + + Method Prune(path:String) + Local l:TList=CreateList() + + ' Not sure if this is overly ineffecient -- just being safe as in most languages deleting whilst iterating + ' is not recommended... + ' + For Local k:String=EachIn map.Keys() + If k=path Or k.Find(path+"/")=0 + l.AddLast(k) + EndIf + Next + + For Local k:String=EachIn l + Local n:TMTreeNode=ResolvePath(k) + map.Remove(k) + gmap.Remove(n.node) + Next + End Method + + Rem + bbdoc: Set an icon strip. + EndRem + Method SetIconStrip(icons:TIconStrip) + SetGadgetIconStrip(gadget,icons) + End Method + + Rem + bbdoc: The number of nodes in the view that are direct children on the passed node. + returns: The number of nodes. + about: @path is the path to count from. Unfortunately counting from the root (/) doesn't work, so it returns -1. + EndRem + Method CountChildren:Int(path:String) + If path="/" + Return -1 + EndIf + + Local node:TMTreeNode=ResolvePath(path) + + If node + Return CountTreeViewNodes(node.node) + Else + Return 0 + EndIf + End Method + + Rem + bbdoc: Remove nodes from the tree. + about: Attempting to remove the root node (/) will fail. + EndRem + Method Remove(path:String) + If path<>"/" + Local node:TMTreeNode=ResolvePath(path) + + If node + FreeTreeViewNode(node.node) + Prune(path) + EndIf + EndIf + End Method + + Rem + bbdoc: Don't redraw gadget when adding nodes. + EndRem + Method BeginUpdate() + update=True + End Method + + + Rem + bbdoc: Allow redraw of gadget when adding nodes. + EndRem + Method EndUpdate() + update=False + End Method + + + Rem + bbdoc: Add/modify nodes in the tree. + about: @path is the path to the node. This silently fails if the parent nodes don't exist. @tag is an Object that the entry is tagged with. + ToString() is called on this to create the text for the entry (so passing a String works fine). + @icon is the icon to use. Note that if you set an icon strip, then this seems to use the first icon (on Win32 at least) if set to -1. + EndRem + Method Set(path:String, tag:Object, icon:Int=-1) + Local parent:TMTreeNode=ResolvePath(FixedExtractDir(path)) + + If parent + Local node:TMTreeNode=ResolvePath(path) + + If node + ModifyTreeViewNode(node.node,tag.ToString(),icon) + Else + node=TMTreeNode.Create(path,AddTreeViewNode(tag.ToString(),parent.node,icon),tag,icon) + map.Insert(path,node) + gmap.Insert(node.node,path) + EndIf + + node.tag=tag + node.icon=icon + + If Not update + RedrawGadget(gadget) + EndIf + EndIf + End Method + + Rem + bbdoc: Get the tag at a node. + returns: The tag, or NULL for unknown node. + EndRem + Method GetNodeTag:Object(path:String) + Local node:TMTreeNode=ResolvePath(path) + If node + Return node.tag + Else + Return Null + EndIf + End Method + + Rem + bbdoc: Get the icon at a node. + returns: The icon, or -1 for none or unknown node. + EndRem + Method GetNodeIcon:Int(path:String) + Local node:TMTreeNode=ResolvePath(path) + If node + Return node.icon + Else + Return -1 + EndIf + End Method + + Rem + bbdoc: Expand a node on the tree. + EndRem + Method ExpandNode(path:String) + Local node:TMTreeNode=ResolvePath(path) + + If node + ExpandTreeViewNode(node.node) + EndIf + End Method + + Rem + bbdoc: Collapse a node on the tree. + EndRem + Method CollapseNode(path:String) + Local node:TMTreeNode=ResolvePath(path) + + If node + CollapseTreeViewNode(node.node) + EndIf + End Method + + Rem + bbdoc: Called when the an item is selected. + about: @path is the path to the selected item, @tag is the tag for that item. + EndRem + Method OnSelected(path:String, tag:Object) + End Method + + Rem + bbdoc: Called when the an item is selected. + EndRem + Field OnSelectedEvent:TMWEventListStringObject + + Rem + bbdoc: Called when the an item is double clicked. + about: @path is the path to the selected item, @tag is the tag for that item. + EndRem + Method OnClicked(path:String, tag:Object) + End Method + + Rem + bbdoc: Called when the an item is double clicked. + EndRem + Field OnClickedEvent:TMWEventListStringObject + + Rem + bbdoc: Called when the a context menu is requested. + about: @path is the path to the selected item, @tag is the tag for that item. + EndRem + Method OnMenu(path:String, tag:Object) + End Method + + Rem + bbdoc: Called when the an item is selected. + EndRem + Field OnMenuEvent:TMWEventListStringObject + + Rem + bbdoc: Called when a node is expanded. + about: @path is the path to the selected item, @tag is the tag for that item. + EndRem + Method OnExpanded(path:String, tag:Object) + End Method + + Rem + bbdoc: Called when a node is expanded. + EndRem + Field OnExpandedEvent:TMWEventListStringObject + + Rem + bbdoc: Called when a node is collapsed. + about: @path is the path to the selected item, @tag is the tag for that item. + EndRem + Method OnCollapsed(path:String, tag:Object) + End Method + + Rem + bbdoc: Called when a node is collapsed. + EndRem + Field OnCollapsedEvent:TMWEventListStringObject + + Method Handle(e:TEvent) + Select e.id + Case EVENT_GADGETSELECT + Local n:TMTreeNode=ResolveGadget(TGadget(e.extra)) + If n + OnSelected(n.path,n.tag) + OnSelectedEvent.Fire(Self,n.path,n.tag) + EndIf + Case EVENT_GADGETACTION + Local n:TMTreeNode=ResolveGadget(TGadget(e.extra)) + If n + OnClicked(n.path,n.tag) + OnClickedEvent.Fire(Self,n.path,n.tag) + EndIf + Case EVENT_GADGETOPEN + Local n:TMTreeNode=ResolveGadget(TGadget(e.extra)) + If n + OnExpanded(n.path,n.tag) + OnExpandedEvent.Fire(Self,n.path,n.tag) + EndIf + Case EVENT_GADGETCLOSE + Local n:TMTreeNode=ResolveGadget(TGadget(e.extra)) + If n + OnCollapsed(n.path,n.tag) + OnCollapsedEvent.Fire(Self,n.path,n.tag) + EndIf + Case EVENT_GADGETMENU + Local n:TMTreeNode=ResolveGadget(TGadget(e.extra)) + If n + OnMenu(n.path,n.tag) + OnMenuEvent.Fire(Self,n.path,n.tag) + EndIf + Default + super.Handle(e) + End Select + End Method +End Type + + +Type TMenuItem + Field id:Int + Field owner:TMMenu + Field path:String + Field tag:Object + Field gadget:TGadget + Field callback(menu:TMMenu, path:String, tag:Object) + Function Create:TMenuItem(owner:TMMenu, id:Int, path:String, gadget:TGadget, tag:Object, callback(menu:TMMenu, path:String, tag:Object)) + Local o:TMenuItem=New TMenuItem + o.owner=owner + o.id=id + o.path=path + o.gadget=gadget + o.tag=tag + o.callback=callback + Return o + End Function +End Type + + +Rem +bbdoc: Defines a managed menu. +about: Note that TMMenu is <b>NOT</b> a TMWidget. +EndRem +Type TMMenu + + Field root:TGadget + Field map:TMap + Field win:TMWindow + + Rem + bbdoc: Creates a managed menu that is associated as a window menu. + returns: The created menu. + about: @window is the window the menu is attached to. + EndRem + Method CreateWindowMenu:TMMenu(window:TMWindow) + map=New TMap + root=WindowMenu(window.gadget) + win=window + SetRoot() + Return Self + End Method + + Rem + bbdoc: Creates a managed menu that can be used as a popup menu. + returns: The created menu. + EndRem + Method CreatePopupMenu:TMMenu() + map=New TMap + root=CreateMenu("",0,Null) + win=Null + SetRoot() + Return Self + End Method + + Method Delete() + Clear() + If Not win + FreeMenu(root) + EndIf + End Method + + Rem + bbdoc: Clear all items from the menu + EndRem + Method Clear() + For Local m:TMenuItem=EachIn map + FreeMenu(m.gadget) + Static.DeregisterMenuItem(m) + Next + map.Clear() + SetRoot() + End Method + + Method SetRoot() + map.Insert("/",TMenuItem.Create(Self,0,"/",root,Null,Null)) + End Method + + Method ResolvePath:TMenuItem(path:String) + Return TMenuItem(map.ValueForKey(path)) + End Method + + Method Prune(path:String) + Local l:TList=CreateList() + + ' Not sure if this is overly ineffecient -- just being safe as in most languages deleting whilst iterating + ' is not recommended... + ' + For Local k:String=EachIn map.Keys() + If k=path Or k.Find(path+"/")=0 + l.AddLast(k) + EndIf + Next + + For Local k:String=EachIn l + Local n:TMenuItem=ResolvePath(k) + map.Remove(k) + Static.DeregisterMenuItem(n) + FreeMenu(n.gadget) + Next + End Method + + Rem + bbdoc: Add a menu option. + about: @path is the path to the menu item. This silently fails if the parent menus don't exist. @tag is an Object that the entry is tagged with. + ToString() is called on this to create the text for the menu (so passing a String works fine). If @callback is not null, then it is called when + this option is selected. + @hotkey and @modifier are as in MaxGUI's CreateMenu(). + EndRem + Method Set(path:String, tag:Object, callback(menu:TMMenu, path:String, tag:Object)=Null, hotkey:Int=0, modifier:Int=0) + If path<>"/" + Local parent:TMenuItem=ResolvePath(FixedExtractDir(path)) + + If parent + Local node:TMenuItem=ResolvePath(path) + + If node + SetMenuText(node.gadget,tag.ToString()) + Else + Local id:Int=Static.NextMenuID() + node=TMenuItem.Create(Self,id,path,CreateMenu(tag.ToString(),id,parent.gadget,hotkey,modifier),tag,callback) + map.Insert(path,node) + Static.RegisterMenuItem(node) + EndIf + + node.tag=tag + + If win + UpdateWindowMenu(win.gadget) + EndIf + EndIf + EndIf + End Method + + Rem + bbdoc: Remove menu item and its children. + about: @path is the path to the menu item. Root cannot be removed. + EndRem + Method Remove(path:String) + If path<>"/" + Prune(path) + + If win + UpdateWindowMenu(win.gadget) + EndIf + EndIf + End Method + + Rem + bbdoc: Change a menu tag (and therefore its text). + about: @path is the path to the menu item. Root cannot be changed. + EndRem + Method SetTag(path:String, tag:Object) + If path<>"/" + Local node:TMenuItem=ResolvePath(path) + + If node + SetMenuText(node.gadget,tag.ToString()) + node.tag=tag + + If win + UpdateWindowMenu(win.gadget) + EndIf + EndIf + EndIf + End Method + + Rem + bbdoc: Change a menu check. + about: @path is the path to the menu item. Root cannot be changed. + EndRem + Method Check(path:String, check:Int) + If path<>"/" + Local node:TMenuItem=ResolvePath(path) + + If node + If check + CheckMenu(node.gadget) + Else + UncheckMenu(node.gadget) + EndIf + + If win + UpdateWindowMenu(win.gadget) + EndIf + EndIf + EndIf + End Method + + Rem + about: Is a menu item checked. + EndRem + Method IsChecked:Int(path:String) + Local ret:Int=False + + If path<>"/" + Local node:TMenuItem=ResolvePath(path) + + If node + ret=MenuChecked(node.gadget) + EndIf + EndIf + + Return ret + End Method + + Rem + bbdoc: Enable/disable a menu item. + about: @path is the path to the menu item. Root cannot be changed. + EndRem + Method Enable(path:String, enab:Int) + If path<>"/" + Local node:TMenuItem=ResolvePath(path) + + If node + If enab + EnableMenu(node.gadget) + Else + DisableMenu(node.gadget) + EndIf + + If win + UpdateWindowMenu(win.gadget) + EndIf + EndIf + EndIf + End Method + + Rem + about: Is a menu item enabled. + EndRem + Method IsEnabled:Int(path:String) + Local ret:Int=False + + If path<>"/" + Local node:TMenuItem=ResolvePath(path) + + If node + ret=MenuEnabled(node.gadget) + EndIf + EndIf + + Return ret + End Method + + Rem + bbdoc: Called when the an item is selected in the menu. + EndRem + Method OnMenuItem(path:String, tag:Object) + End Method + + Rem + bbdoc: Popup the menu. + about: @win is a gadget to pass to MaxGUI. For some reason you need this, and the docs say it should be a window. + When I've tried any gadget would suffice, but don't come crying to me if it stops working for non-window gadgets. + EndRem + Method Popup(g:TMWidget) + PopupWindowMenu(g.gadget,root) + End Method + + Method ToString:String() + Return "TMMenu:"+super.ToString() + End Method +End Type + + +Rem +bbdoc: Defines a managed canvas. +EndRem +Type TMCanvas Extends TMWidget + + Rem + bbdoc: Creates a managed canvas. + returns: The created canvas. + about: @x, @y, @w, @h, @group, @style and @gfxflags act the same as the MaxGUI arguments to @CreateCanvas(), except that @group is a TMWidget. + EndRem + Method Create:TMCanvas(x:Int, y:Int, w:Int, h:Int, group:TMWidget, style:Int=0) + OnRedrawEvent=New TMWEventListVoid + OnButtonDownEvent=New TMWEventListInt + OnButtonUpEvent=New TMWEventListInt + OnMouseMoveEvent=New TMWEventListIntInt + OnMouseWheelEvent=New TMWEventListInt + OnKeyDownEvent=New TMWEventListInt + OnKeyUpEvent=New TMWEventListInt + OnKeyEvent=New TMWEventListInt + BaseInitialise(CreateCanvas(x,y,w,h,group.gadget,style),group) + typename="TMCanvas" + Return Self + End Method + + Rem + bbdoc: Set the graphics so that the canvas can be drawn onto. + EndRem + Method SetupGraphics() + SetGraphics(CanvasGraphics(gadget)) + End Method + + Rem + bbdoc: Called when the canvas should be redrawn. + EndRem + Method OnRedraw() + End Method + + Rem + bbdoc: Called when the canvas should be redrawn. + EndRem + Field OnRedrawEvent:TMWEventListVoid + + Rem + bbdoc: Called when the a mouse button is pressed. + about: @button is the pressed button. + EndRem + Method OnButtonDown(button:Int) + End Method + + Rem + bbdoc: Called when the a mouse button is pressed. + EndRem + Field OnButtonDownEvent:TMWEventListInt + + Rem + bbdoc: Called when the a mouse button is released. + about: @button is the released button. + EndRem + Method OnButtonUp(button:Int) + End Method + + Rem + bbdoc: Called when the a mouse button is released. + EndRem + Field OnButtonUpEvent:TMWEventListInt + + Rem + bbdoc: Called when the mouse moves. + about: @x and @y are the mouse co-ordinates. + EndRem + Method OnMouseMove(x:Int, y:Int) + End Method + + Rem + bbdoc: Called when the an item is selected. + EndRem + Field OnMouseMoveEvent:TMWEventListIntInt + + Rem + bbdoc: Called when the mouse wheel moves. + about: @delta is the amount the wheel moves. + EndRem + Method OnMouseWheel(delta:Int) + End Method + + Rem + bbdoc: Called when the mouse wheel moves. + EndRem + Field OnMouseWheelEvent:TMWEventListInt + + Rem + bbdoc: Called when a key is held down. + about: @code is the key code. + EndRem + Method OnKeyDown(code:Int) + End Method + + Rem + bbdoc: Called when a key is held down. + EndRem + Field OnKeyDownEvent:TMWEventListInt + + Rem + bbdoc: Called when a key is released. + about: @code is the key code. + EndRem + Method OnKeyUp(code:Int) + End Method + + Rem + bbdoc: Called when a key is released. + EndRem + Field OnKeyUpEvent:TMWEventListInt + + Rem + bbdoc: Called when a key character is generated. + about: @code is the unicode value. + EndRem + Method OnKey(code:Int) + End Method + + Rem + bbdoc: Called when a key character is generated. + EndRem + Field OnKeyEvent:TMWEventListInt + + Method Handle(e:TEvent) + Select e.id + Case EVENT_GADGETPAINT + OnRedraw() + OnRedrawEvent.Fire(Self) + Case EVENT_MOUSEDOWN + OnButtonDown(e.data) + OnButtonDownEvent.Fire(Self,e.data) + Case EVENT_MOUSEUP + OnButtonUp(e.data) + OnButtonUpEvent.Fire(Self,e.data) + Case EVENT_MOUSEMOVE + OnMouseMove(e.x,e.y) + OnMouseMoveEvent.Fire(Self,e.x,e.y) + Case EVENT_MOUSEWHEEL + OnMouseWheel(e.data) + OnMouseWheelEvent.Fire(Self,e.data) + Case EVENT_KEYDOWN + OnKeyDown(e.data) + OnKeyDownEvent.Fire(Self,e.data) + Case EVENT_KEYUP + OnKeyUp(e.data) + OnKeyUpEvent.Fire(Self,e.data) + Case EVENT_KEYCHAR + OnKey(e.data) + OnKeyEvent.Fire(Self,e.data) + Default + super.Handle(e) + End Select + End Method +End Type + + +Rem +bbdoc: Defines a toolbar. +EndRem +Type TMToolbar Extends TMWidget + Rem + bbdoc: Creates a managed toolbar. + returns: The created toolbar. + about: @source, @group and @style act the same as the MaxGUI arguments to @CreateToolBar(), except that @group is a TMWidget. + If @values is not NULL it is used to load up the initial options. + <b>IMPORTANT</b>: It is really not recommended to use COMBOBOX_EDITABLE as OnIndexChanged() is called when the user edits the field. + There seems to be no easy way to remedy this. + EndRem + Method Create:TMToolbar(source:Object, group:TMWidget, style:Int=0) + OnSelectedEvent=New TMWEventListInt + BaseInitialise(CreateToolBar(source,0,0,0,0,group.gadget,style),group) + typename="TMToolbar" + Return Self + End Method + + Rem + bbdoc: Adds an item to the toolbar. + EndRem + Method AddItem(icon:Int, flags:Int=0, tooltip:String=Null) + AddGadgetItem(gadget,"",flags,icon,tooltip,Null) + End Method + + Rem + bbdoc: Set the tooltips. + EndRem + Method SetTooltips(tips:String[]) + SetToolBarTips(gadget,tips) + End Method + + Rem + bbdoc: Enable or disable a particular item. + EndRem + Method ItemEnabled(index:Int, state:Int) + If state + EnableGadgetItem(gadget,index) + Else + DisableGadgetItem(gadget,index) + EndIf + End Method + + Rem + bbdoc: Called when an icon is selected. + about: @index is the selected index. + EndRem + Method OnSelected(index:Int) + End Method + + Rem + bbdoc: Called when an icon is selected. + EndRem + Field OnSelectedEvent:TMWEventListInt + + Method Handle(e:TEvent) + Select e.id + Case EVENT_GADGETACTION + OnSelected(e.data) + OnSelectedEvent.Fire(Self,e.data) + Default + super.Handle(e) + End Select + End Method +End Type + + +Rem +bbdoc: Defines a managed panel. +EndRem +Type TMPanel Extends TMWidget + + Rem + bbdoc: Creates a managed panel. + returns: The created panel. + about: @x, @y, @w, @h, @group, @style and @title act the same as the MaxGUI arguments to @CreatePanel(), except that @group is a TMWidget. + EndRem + Method Create:TMPanel(x:Int, y:Int, w:Int, h:Int, group:TMWidget, style:Int=0, title:String="") + OnButtonDownEvent=New TMWEventListInt + OnButtonUpEvent=New TMWEventListInt + OnMouseMoveEvent=New TMWEventListIntInt + OnMouseWheelEvent=New TMWEventListInt + OnKeyDownEvent=New TMWEventListInt + OnKeyUpEvent=New TMWEventListInt + OnKeyEvent=New TMWEventListInt + BaseInitialise(CreatePanel(x,y,w,h,group.gadget,style,title),group) + typename="TMPanel" + Return Self + End Method + + Rem + bbdoc: Called when the a mouse button is pressed. + about: @button is the pressed button. + EndRem + Method OnButtonDown(button:Int) + End Method + + Rem + bbdoc: Called when the a mouse button is pressed. + EndRem + Field OnButtonDownEvent:TMWEventListInt + + Rem + bbdoc: Called when the a mouse button is released. + about: @button is the released button. + EndRem + Method OnButtonUp(button:Int) + End Method + + Rem + bbdoc: Called when the a mouse button is released. + EndRem + Field OnButtonUpEvent:TMWEventListInt + + Rem + bbdoc: Called when the mouse moves. + about: @x and @y are the mouse co-ordinates. + EndRem + Method OnMouseMove(x:Int, y:Int) + End Method + + Rem + bbdoc: Called when the an item is selected. + EndRem + Field OnMouseMoveEvent:TMWEventListIntInt + + Rem + bbdoc: Called when the mouse wheel moves. + about: @delta is the amount the wheel moves. + EndRem + Method OnMouseWheel(delta:Int) + End Method + + Rem + bbdoc: Called when the mouse wheel moves. + EndRem + Field OnMouseWheelEvent:TMWEventListInt + + Rem + bbdoc: Called when a key is held down. + about: @code is the key code. + EndRem + Method OnKeyDown(code:Int) + End Method + + Rem + bbdoc: Called when a key is held down. + EndRem + Field OnKeyDownEvent:TMWEventListInt + + Rem + bbdoc: Called when a key is released. + about: @code is the key code. + EndRem + Method OnKeyUp(code:Int) + End Method + + Rem + bbdoc: Called when a key is released. + EndRem + Field OnKeyUpEvent:TMWEventListInt + + Rem + bbdoc: Called when a key character is generated. + about: @code is the unicode value. + EndRem + Method OnKey(code:Int) + End Method + + Rem + bbdoc: Called when a key character is generated. + EndRem + Field OnKeyEvent:TMWEventListInt + + Method Handle(e:TEvent) + Select e.id + Case EVENT_MOUSEDOWN + OnButtonDown(e.data) + OnButtonDownEvent.Fire(Self,e.data) + Case EVENT_MOUSEUP + OnButtonUp(e.data) + OnButtonUpEvent.Fire(Self,e.data) + Case EVENT_MOUSEMOVE + OnMouseMove(e.x,e.y) + OnMouseMoveEvent.Fire(Self,e.x,e.y) + Case EVENT_MOUSEWHEEL + OnMouseWheel(e.data) + OnMouseWheelEvent.Fire(Self,e.data) + Case EVENT_KEYDOWN + OnKeyDown(e.data) + OnKeyDownEvent.Fire(Self,e.data) + Case EVENT_KEYUP + OnKeyUp(e.data) + OnKeyUpEvent.Fire(Self,e.data) + Case EVENT_KEYCHAR + OnKey(e.data) + OnKeyEvent.Fire(Self,e.data) + Default + super.Handle(e) + End Select + End Method +End Type + + +Rem +bbdoc: Defines a managed progress bar. +EndRem +Type TMProgressBar Extends TMWidget + + Rem + bbdoc: Creates a managed progress bar. + returns: The created progress bar. + about: @x, @y, @w, @h, @group and @style act the same as the MaxGUI arguments to @CreateProgBar(), except that @group is a TMWidget. + EndRem + Method Create:TMProgressBar(x:Int, y:Int, w:Int, h:Int, group:TMWidget, style:Int=0) + BaseInitialise(CreateProgBar(x,y,w,h,group.gadget,style),group) + typename="TMProgressBar" + Return Self + End Method + + Rem + bbdoc: Set the value for the progress bar. + about: @value is the value (between 0 and 1). + EndRem + Method SetValue(value:Double) + UpdateProgBar(gadget,value) + End Method +End Type + + +Rem +bbdoc: Enters the event processing loop. +about: @top is the top level TMWindow For the application. The loop continues Until the @closed Field of this window is TRUE. +Your code can do it's own event loop if required -- all this function does is continually call WaitEvent and is simply provided as +a basic main loop. +EndRem +Function MWidgetMainLoop(top:TMWindow) + While Not top.closed + WaitEvent() + Wend +End Function + + +Private + +Function FixedExtractDir:String(p:String) + p=ExtractDir(p) + If p.length=0 + p="/" + EndIf + Return p +End Function + +Type Static + Global list:TList + Global menu:TList + Global menuid:Int + + Function Init() + list=CreateList() + menu=CreateList() + menuid=0 + AddHook(EmitEventHook,EventHandler) + End Function + + Function EventHandler:Object(id:Int, data:Object, context:Object) + Local e:TEvent=TEvent(data) + + DebugLog "Got event : " + e.ToString() + + If e + If e.id=EVENT_MENUACTION + For Local m:TMenuItem=EachIn menu + If m.id=e.data + DebugLog "Passing menu event to " + m.owner.ToString() + m.owner.OnMenuItem(m.path,m.tag) + If m.callback + m.callback(m.owner,m.path,m.tag) + EndIf + EndIf + Next + Else + For Local g:TMWidget=EachIn list + If g And g.gadget And g.gadget=e.source + DebugLog "Passing event to " + g.ToString() + g.Handle(e) + EndIf + Next + EndIf + EndIf + + Return e + End Function + + Function Register(w:TMWidget) + list.AddLast(w) + w.OnManage() + w.OnManageEvent.Fire(w) + End Function + + Function Deregister(w:TMWidget) + w.OnUnmanage() + w.OnUnmanageEvent.Fire(w) + list.Remove(w) + End Function + + Function RegisterMenuItem(m:TMenuItem) + menu.AddLast(m) + End Function + + Function DeregisterMenuItem(m:TMenuItem) + menu.Remove(m) + End Function + + Function NextMenuID:Int() + menuid:+1 + Return menuid + End Function +End Type + Static.Init()
\ No newline at end of file |