event FaceTreeButtonClick (Tree as FaceTree, Item as Long, Column as Long)
Notifies that a cell of button's type has been clicked.

TypeDescription
Tree as FaceTree A FaceTree object where the user clicks a button
Item as Long A Long expression that indicates the index of the item that hosts the button being clicked.
Column as Long A Long expression that indicates the index of the column that hosts the button being clicked.
The FaceTreeButtonClick event occurs once the user clicks the cell's button. The Def(exCellHasButton) property of the Column, assign buttons to all cells in the column. The HasButton property shows or hides the cell's button. 

A face that contains a Tree control may fire any of the following events ( CreateTree, Type on exFaceTree ): 

Syntax for FaceTreeButtonClick event, /NET version, on: 

private void FaceTreeButtonClick(object sender,exontrol.EXTREECUBELib.FaceTree   Tree,int   Item,int   Column)
{
}


Private Sub FaceTreeButtonClick(ByVal sender As System.Object,ByVal Tree As exontrol.EXTREECUBELib.FaceTree,ByVal Item As Integer,ByVal Column As Integer) Handles FaceTreeButtonClick
End Sub

Syntax for FaceTreeButtonClick event, /COM version, on: 

private void FaceTreeButtonClick(object sender, AxEXTREECUBELib._ITreeCubeEvents_FaceTreeButtonClickEvent e)
{
}


void OnFaceTreeButtonClick(LPDISPATCH   Tree,long   Item,long   Column)
{
}


void __fastcall FaceTreeButtonClick(TObject *Sender,Extreecubelib_tlb::IFaceTree   *Tree,long   Item,long   Column)
{
}


procedure FaceTreeButtonClick(ASender: TObject; Tree : IFaceTree;Item : Integer;Column : Integer);
begin
end;


procedure FaceTreeButtonClick(sender: System.Object; e: AxEXTREECUBELib._ITreeCubeEvents_FaceTreeButtonClickEvent);
begin
end;


begin event FaceTreeButtonClick(oleobject  Tree,long  Item,long  Column)

end event FaceTreeButtonClick


Private Sub FaceTreeButtonClick(ByVal sender As System.Object, ByVal e As AxEXTREECUBELib._ITreeCubeEvents_FaceTreeButtonClickEvent) Handles FaceTreeButtonClick
End Sub


Private Sub FaceTreeButtonClick(ByVal Tree As EXTREECUBELibCtl.IFaceTree,ByVal Item As Long,ByVal Column As Long)
End Sub


Private Sub FaceTreeButtonClick(ByVal Tree As Object,ByVal Item As Long,ByVal Column As Long)
End Sub


LPARAMETERS Tree,Item,Column



PROCEDURE OnFaceTreeButtonClick(oTreeCube,Tree,Item,Column)

RETURN

Syntax for FaceTreeButtonClick event, /COM version (others), on: 

<SCRIPT EVENT="FaceTreeButtonClick(Tree,Item,Column)" LANGUAGE="JScript">
</SCRIPT>


<SCRIPT LANGUAGE="VBScript">
Function FaceTreeButtonClick(Tree,Item,Column)
End Function
</SCRIPT>


Procedure OnComFaceTreeButtonClick Variant   llTree Integer   llItem Integer   llColumn
	Forward Send OnComFaceTreeButtonClick llTree llItem llColumn
End_Procedure


METHOD OCX_FaceTreeButtonClick(Tree,Item,Column) CLASS MainDialog
RETURN NIL


void onEvent_FaceTreeButtonClick(COM   _Tree,int   _Item,int   _Column)
{
}


function FaceTreeButtonClick as v (Tree  as  OLE::Exontrol.TreeCube.1::IFaceTree,Item  as  N,Column  as  N)
end function


function nativeObject_FaceTreeButtonClick(Tree,Item,Column)
return

How can I add buttons on the face?

VBA (MS Access, Excell...)

' FaceTreeButtonClick event - Notifies that a cell of button's type has been clicked.
Private Sub TreeCube1_FaceTreeButtonClick(ByVal Tree As Object,ByVal Item As Long,ByVal Column As Long)
	With TreeCube1
		Debug.Print( Item )
		Debug.Print( Column )
	End With
End Sub

With TreeCube1
	.TexturePicturePath = ""
	With .FrontFace.CreateTree
		.DrawGridLines = 0
		.ItemPadding = 16
		With .Columns.Add("Buttons")
			.FormatColumn = "1 index `A-Z`"
			.Def(2) = True
		End With
		.Items.Count = 4
	End With
End With

VB6

' FaceTreeButtonClick event - Notifies that a cell of button's type has been clicked.
Private Sub TreeCube1_FaceTreeButtonClick(ByVal Tree As EXTREECUBELibCtl.IFaceTree,ByVal Item As Long,ByVal Column As Long)
	With TreeCube1
		Debug.Print( Item )
		Debug.Print( Column )
	End With
End Sub

With TreeCube1
	.TexturePicturePath = ""
	With .FrontFace.CreateTree
		.DrawGridLines = exNoLines
		.ItemPadding = 16
		With .Columns.Add("Buttons")
			.FormatColumn = "1 index `A-Z`"
			.Def(exCellHasButton) = True
		End With
		.Items.Count = 4
	End With
End With

VB.NET

' FaceTreeButtonClick event - Notifies that a cell of button's type has been clicked.
Private Sub Extreecube1_FaceTreeButtonClick(ByVal sender As System.Object,ByVal Tree As exontrol.EXTREECUBELib.FaceTree,ByVal Item As Integer,ByVal Column As Integer) Handles Extreecube1.FaceTreeButtonClick
	With Extreecube1
		Debug.Print( Item )
		Debug.Print( Column )
	End With
End Sub

With Extreecube1
	.TexturePicturePath = ""
	With .FrontFace.CreateTree()
		.DrawGridLines = exontrol.EXTREECUBELib.GridLinesEnum.exNoLines
		.ItemPadding = 16
		With .Columns.Add("Buttons")
			.FormatColumn = "1 index `A-Z`"
			.set_Def(exontrol.EXTREECUBELib.DefColumnEnum.exCellHasButton,True)
		End With
		.Items.Count = 4
	End With
End With

VB.NET for /COM

' FaceTreeButtonClick event - Notifies that a cell of button's type has been clicked.
Private Sub AxTreeCube1_FaceTreeButtonClick(ByVal sender As System.Object, ByVal e As AxEXTREECUBELib._ITreeCubeEvents_FaceTreeButtonClickEvent) Handles AxTreeCube1.FaceTreeButtonClick
	With AxTreeCube1
		Debug.Print( e.item )
		Debug.Print( e.column )
	End With
End Sub

With AxTreeCube1
	.TexturePicturePath = ""
	With .FrontFace.CreateTree()
		.DrawGridLines = EXTREECUBELib.GridLinesEnum.exNoLines
		.ItemPadding = 16
		With .Columns.Add("Buttons")
			.FormatColumn = "1 index `A-Z`"
			.Def(EXTREECUBELib.DefColumnEnum.exCellHasButton) = True
		End With
		.Items.Count = 4
	End With
End With

C++

// FaceTreeButtonClick event - Notifies that a cell of button's type has been clicked.
void OnFaceTreeButtonClickTreeCube1(LPDISPATCH   Tree,long   Item,long   Column)
{
	/*
		Copy and paste the following directives to your header file as
		it defines the namespace 'EXTREECUBELib' for the library: 'ExTreeCube 1.0 Control Library'
		#import <ExTreeCube.dll>
		using namespace EXTREECUBELib;
	*/
	EXTREECUBELib::ITreeCubePtr spTreeCube1 = GetDlgItem(IDC_TREECUBE1)->GetControlUnknown();
	OutputDebugStringW( L"Item" );
	OutputDebugStringW( L"Column" );
}

EXTREECUBELib::ITreeCubePtr spTreeCube1 = GetDlgItem(IDC_TREECUBE1)->GetControlUnknown();
spTreeCube1->PutTexturePicturePath(L"");
EXTREECUBELib::IFaceTreePtr var_FaceTree = spTreeCube1->GetFrontFace()->CreateTree();
	var_FaceTree->PutDrawGridLines(EXTREECUBELib::exNoLines);
	var_FaceTree->PutItemPadding(16);
	EXTREECUBELib::IColumnPtr var_Column = var_FaceTree->GetColumns()->Add(L"Buttons");
		var_Column->PutFormatColumn(L"1 index `A-Z`");
		var_Column->PutDef(EXTREECUBELib::exCellHasButton,VARIANT_TRUE);
	var_FaceTree->GetItems()->PutCount(4);

C++ Builder

// FaceTreeButtonClick event - Notifies that a cell of button's type has been clicked.
void __fastcall TForm1::TreeCube1FaceTreeButtonClick(TObject *Sender,Extreecubelib_tlb::IFaceTree   *Tree,long   Item,long   Column)
{
	OutputDebugString( L"Item" );
	OutputDebugString( L"Column" );
}

TreeCube1->TexturePicturePath = L"";
Extreecubelib_tlb::IFaceTreePtr var_FaceTree = TreeCube1->FrontFace->CreateTree();
	var_FaceTree->DrawGridLines = Extreecubelib_tlb::GridLinesEnum::exNoLines;
	var_FaceTree->ItemPadding = 16;
	Extreecubelib_tlb::IColumnPtr var_Column = var_FaceTree->Columns->Add(L"Buttons");
		var_Column->FormatColumn = L"1 index `A-Z`";
		var_Column->set_Def(Extreecubelib_tlb::DefColumnEnum::exCellHasButton,TVariant(true));
	var_FaceTree->Items->Count = 4;

C#

// FaceTreeButtonClick event - Notifies that a cell of button's type has been clicked.
private void extreecube1_FaceTreeButtonClick(object sender,exontrol.EXTREECUBELib.FaceTree   Tree,int   Item,int   Column)
{
	System.Diagnostics.Debug.Print( Item.ToString() );
	System.Diagnostics.Debug.Print( Column.ToString() );
}
//this.extreecube1.FaceTreeButtonClick += new exontrol.EXTREECUBELib.exg2antt.FaceTreeButtonClickEventHandler(this.extreecube1_FaceTreeButtonClick);

extreecube1.TexturePicturePath = "";
exontrol.EXTREECUBELib.FaceTree var_FaceTree = extreecube1.FrontFace.CreateTree();
	var_FaceTree.DrawGridLines = exontrol.EXTREECUBELib.GridLinesEnum.exNoLines;
	var_FaceTree.ItemPadding = 16;
	exontrol.EXTREECUBELib.Column var_Column = var_FaceTree.Columns.Add("Buttons");
		var_Column.FormatColumn = "1 index `A-Z`";
		var_Column.set_Def(exontrol.EXTREECUBELib.DefColumnEnum.exCellHasButton,true);
	var_FaceTree.Items.Count = 4;

JScript/JavaScript

<BODY onload="Init()">
<SCRIPT FOR="TreeCube1" EVENT="FaceTreeButtonClick(Tree,Item,Column)" LANGUAGE="JScript">
	alert( Item );
	alert( Column );
</SCRIPT>

<OBJECT CLASSID="clsid:13A5B44B-DBB7-42F2-AE2B-943A6CF6C8B9" id="TreeCube1"></OBJECT>

<SCRIPT LANGUAGE="JScript">
function Init()
{
	TreeCube1.TexturePicturePath = "";
	var var_FaceTree = TreeCube1.FrontFace.CreateTree();
		var_FaceTree.DrawGridLines = 0;
		var_FaceTree.ItemPadding = 16;
		var var_Column = var_FaceTree.Columns.Add("Buttons");
			var_Column.FormatColumn = "1 index `A-Z`";
			var_Column.Def(2) = true;
		var_FaceTree.Items.Count = 4;
}
</SCRIPT>
</BODY>

VBScript

<BODY onload="Init()">
<SCRIPT LANGUAGE="VBScript">
Function TreeCube1_FaceTreeButtonClick(Tree,Item,Column)
	With TreeCube1
		alert( Item )
		alert( Column )
	End With
End Function
</SCRIPT>

<OBJECT CLASSID="clsid:13A5B44B-DBB7-42F2-AE2B-943A6CF6C8B9" id="TreeCube1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With TreeCube1
		.TexturePicturePath = ""
		With .FrontFace.CreateTree
			.DrawGridLines = 0
			.ItemPadding = 16
			With .Columns.Add("Buttons")
				.FormatColumn = "1 index `A-Z`"
				.Def(2) = True
			End With
			.Items.Count = 4
		End With
	End With
End Function
</SCRIPT>
</BODY>

C# for /COM

// FaceTreeButtonClick event - Notifies that a cell of button's type has been clicked.
private void axTreeCube1_FaceTreeButtonClick(object sender, AxEXTREECUBELib._ITreeCubeEvents_FaceTreeButtonClickEvent e)
{
	System.Diagnostics.Debug.Print( e.item.ToString() );
	System.Diagnostics.Debug.Print( e.column.ToString() );
}
//this.axTreeCube1.FaceTreeButtonClick += new AxEXTREECUBELib._ITreeCubeEvents_FaceTreeButtonClickEventHandler(this.axTreeCube1_FaceTreeButtonClick);

axTreeCube1.TexturePicturePath = "";
EXTREECUBELib.FaceTree var_FaceTree = axTreeCube1.FrontFace.CreateTree();
	var_FaceTree.DrawGridLines = EXTREECUBELib.GridLinesEnum.exNoLines;
	var_FaceTree.ItemPadding = 16;
	EXTREECUBELib.Column var_Column = var_FaceTree.Columns.Add("Buttons");
		var_Column.FormatColumn = "1 index `A-Z`";
		var_Column.set_Def(EXTREECUBELib.DefColumnEnum.exCellHasButton,true);
	var_FaceTree.Items.Count = 4;

X++ (Dynamics Ax 2009)

// FaceTreeButtonClick event - Notifies that a cell of button's type has been clicked.
void onEvent_FaceTreeButtonClick(COM   _Tree,int   _Item,int   _Column)
{
	;
	print( _Item );
	print( _Column );
}

public void init()
{
	COM com_Column,com_Columns,com_FaceTree,com_Items;
	anytype var_Column,var_Columns,var_FaceTree,var_Items;
	;

	super();

	extreecube1.TexturePicturePath("");
	var_FaceTree = extreecube1.FrontFace().CreateTree(); com_FaceTree = var_FaceTree;
		com_FaceTree.DrawGridLines(0/*exNoLines*/);
		com_FaceTree.ItemPadding(16);
		var_Columns = COM::createFromObject(com_FaceTree.Columns()); com_Columns = var_Columns;
		var_Column = COM::createFromObject(com_Columns).Add("Buttons"); com_Column = var_Column;
			com_Column.FormatColumn("1 index `A-Z`");
			com_Column.Def(2/*exCellHasButton*/,COMVariant::createFromBoolean(true));
		var_Items = COM::createFromObject(com_FaceTree.Items()); com_Items = var_Items;
		com_Items.Count(4);
}

Delphi 8 (.NET only)

// FaceTreeButtonClick event - Notifies that a cell of button's type has been clicked.
procedure TWinForm1.AxTreeCube1_FaceTreeButtonClick(sender: System.Object; e: AxEXTREECUBELib._ITreeCubeEvents_FaceTreeButtonClickEvent);
begin
	with AxTreeCube1 do
	begin
		OutputDebugString( e.item );
		OutputDebugString( e.column );
	end
end;

with AxTreeCube1 do
begin
	TexturePicturePath := '';
	with FrontFace.CreateTree() do
	begin
		DrawGridLines := EXTREECUBELib.GridLinesEnum.exNoLines;
		ItemPadding := 16;
		with Columns.Add('Buttons') do
		begin
			FormatColumn := '1 index `A-Z`';
			Def[EXTREECUBELib.DefColumnEnum.exCellHasButton] := TObject(True);
		end;
		Items.Count := 4;
	end;
end

Delphi (standard)

// FaceTreeButtonClick event - Notifies that a cell of button's type has been clicked.
procedure TForm1.TreeCube1FaceTreeButtonClick(ASender: TObject; Tree : IFaceTree;Item : Integer;Column : Integer);
begin
	with TreeCube1 do
	begin
		OutputDebugString( Item );
		OutputDebugString( Column );
	end
end;

with TreeCube1 do
begin
	TexturePicturePath := '';
	with FrontFace.CreateTree() do
	begin
		DrawGridLines := EXTREECUBELib_TLB.exNoLines;
		ItemPadding := 16;
		with Columns.Add('Buttons') do
		begin
			FormatColumn := '1 index `A-Z`';
			Def[EXTREECUBELib_TLB.exCellHasButton] := OleVariant(True);
		end;
		Items.Count := 4;
	end;
end

VFP

*** FaceTreeButtonClick event - Notifies that a cell of button's type has been clicked. ***
LPARAMETERS Tree,Item,Column
	with thisform.TreeCube1
		DEBUGOUT( Item )
		DEBUGOUT( Column )
	endwith

with thisform.TreeCube1
	.TexturePicturePath = ""
	with .FrontFace.CreateTree
		.DrawGridLines = 0
		.ItemPadding = 16
		with .Columns.Add("Buttons")
			.FormatColumn = "1 index `A-Z`"
			.Def(2) = .T.
		endwith
		.Items.Count = 4
	endwith
endwith

dBASE Plus

/*
with (this.EXTREECUBEACTIVEXCONTROL1.nativeObject)
	FaceTreeButtonClick = class::nativeObject_FaceTreeButtonClick
endwith
*/
// Notifies that a cell of button's type has been clicked.
function nativeObject_FaceTreeButtonClick(Tree,Item,Column)
	oTreeCube = form.EXTREECUBEACTIVEXCONTROL1.nativeObject
	? Str(Item) 
	? Str(Column) 
return

local oTreeCube,var_Column,var_FaceTree

oTreeCube = form.EXTREECUBEACTIVEXCONTROL1.nativeObject
oTreeCube.TexturePicturePath = ""
var_FaceTree = oTreeCube.FrontFace.CreateTree()
	var_FaceTree.DrawGridLines = 0
	var_FaceTree.ItemPadding = 16
	var_Column = var_FaceTree.Columns.Add("Buttons")
		var_Column.FormatColumn = "1 index `A-Z`"
		// var_Column.Def(2) = true
		with (oTreeCube)
			TemplateDef = [dim var_Column]
			TemplateDef = var_Column
			Template = [var_Column.Def(2) = True]
		endwith
	var_FaceTree.Items.Count = 4

XBasic (Alpha Five)

' Notifies that a cell of button's type has been clicked.
function FaceTreeButtonClick as v (Tree  as  OLE::Exontrol.TreeCube.1::IFaceTree,Item  as  N,Column  as  N)
	oTreeCube = topparent:CONTROL_ACTIVEX1.activex
	? Item 
	? Column 
end function

Dim oTreeCube as P
Dim var_Column as P
Dim var_FaceTree as P

oTreeCube = topparent:CONTROL_ACTIVEX1.activex
oTreeCube.TexturePicturePath = ""
var_FaceTree = oTreeCube.FrontFace.CreateTree()
	var_FaceTree.DrawGridLines = 0
	var_FaceTree.ItemPadding = 16
	var_Column = var_FaceTree.Columns.Add("Buttons")
		var_Column.FormatColumn = "1 index `A-Z`"
		' var_Column.Def(2) = .t.
		oTreeCube.TemplateDef = "dim var_Column"
		oTreeCube.TemplateDef = var_Column
		oTreeCube.Template = "var_Column.Def(2) = True"

	var_FaceTree.Items.Count = 4

Visual Objects

METHOD OCX_Exontrol1FaceTreeButtonClick(Tree,Item,Column) CLASS MainDialog
	// FaceTreeButtonClick event - Notifies that a cell of button's type has been clicked.
	OutputDebugString(String2Psz( AsString(Item) ))
	OutputDebugString(String2Psz( AsString(Column) ))
RETURN NIL

local var_Column as IColumn
local var_FaceTree as IFaceTree

oDCOCX_Exontrol1:TexturePicturePath := ""
var_FaceTree := oDCOCX_Exontrol1:FrontFace:CreateTree()
	var_FaceTree:DrawGridLines := exNoLines
	var_FaceTree:ItemPadding := 16
	var_Column := var_FaceTree:Columns:Add("Buttons")
		var_Column:FormatColumn := "1 index `A-Z`"
		var_Column:[Def,exCellHasButton] := true
	var_FaceTree:Items:Count := 4

PowerBuilder

/*begin event FaceTreeButtonClick(oleobject  Tree,long  Item,long  Column) - Notifies that a cell of button's type has been clicked.*/
/*
	oTreeCube = ole_1.Object
	MessageBox("Information",string( String(Item) ))
	MessageBox("Information",string( String(Column) ))
*/
/*end event FaceTreeButtonClick*/

OleObject oTreeCube,var_Column,var_FaceTree

oTreeCube = ole_1.Object
oTreeCube.TexturePicturePath = ""
var_FaceTree = oTreeCube.FrontFace.CreateTree()
	var_FaceTree.DrawGridLines = 0
	var_FaceTree.ItemPadding = 16
	var_Column = var_FaceTree.Columns.Add("Buttons")
		var_Column.FormatColumn = "1 index `A-Z`"
		var_Column.Def(2,true)
	var_FaceTree.Items.Count = 4

Visual DataFlex

// Notifies that a cell of button's type has been clicked.
Procedure OnComFaceTreeButtonClick Variant   llTree Integer   llItem Integer   llColumn
	Forward Send OnComFaceTreeButtonClick llTree llItem llColumn
	Showln llItem llColumn
End_Procedure

Procedure OnCreate
	Forward Send OnCreate
	Set ComTexturePicturePath to ""
	Variant voFace
	Get ComFrontFace to voFace
	Handle hoFace
	Get Create (RefClass(cComFace)) to hoFace
	Set pvComObject of hoFace to voFace
		Variant voFaceTree
		Get ComCreateTree of hoFace to voFaceTree
		Handle hoFaceTree
		Get Create (RefClass(cComFaceTree)) to hoFaceTree
		Set pvComObject of hoFaceTree to voFaceTree
			Set ComDrawGridLines of hoFaceTree to OLEexNoLines
			Set ComItemPadding of hoFaceTree to 16
			Variant voColumns
			Get ComColumns of hoFaceTree to voColumns
			Handle hoColumns
			Get Create (RefClass(cComColumns)) to hoColumns
			Set pvComObject of hoColumns to voColumns
				Variant voColumn
				Get ComAdd of hoColumns "Buttons" to voColumn
				Handle hoColumn
				Get Create (RefClass(cComColumn)) to hoColumn
				Set pvComObject of hoColumn to voColumn
					Set ComFormatColumn of hoColumn to "1 index `A-Z`"
					Set ComDef of hoColumn OLEexCellHasButton to True
				Send Destroy to hoColumn
			Send Destroy to hoColumns
			Variant voItems
			Get ComItems of hoFaceTree to voItems
			Handle hoItems
			Get Create (RefClass(cComItems)) to hoItems
			Set pvComObject of hoItems to voItems
				Set ComCount of hoItems to 4
			Send Destroy to hoItems
		Send Destroy to hoFaceTree
	Send Destroy to hoFace
End_Procedure

XBase++

PROCEDURE OnFaceTreeButtonClick(oTreeCube,Tree,Item,Column)
	DevOut( Transform(Item,"") )
	DevOut( Transform(Column,"") )
RETURN

#include "AppEvent.ch"
#include "ActiveX.ch"

PROCEDURE Main
 	LOCAL oForm
	LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
	LOCAL oColumn
	LOCAL oFaceTree
	LOCAL oTreeCube

	oForm := XbpDialog():new( AppDesktop() )
	oForm:drawingArea:clipChildren := .T.
	oForm:create( ,,{100,100}, {640,480},, .F. )
	oForm:close  := {|| PostAppEvent( xbeP_Quit )}

	oTreeCube := XbpActiveXControl():new( oForm:drawingArea )
	oTreeCube:CLSID  := "Exontrol.TreeCube.1" /*{13A5B44B-DBB7-42F2-AE2B-943A6CF6C8B9}*/
	oTreeCube:create(,, {10,60},{610,370} )

		oTreeCube:FaceTreeButtonClick := {|Tree,Item,Column| OnFaceTreeButtonClick(oTreeCube,Tree,Item,Column)} /*Notifies that a cell of button's type has been clicked.*/

		oTreeCube:TexturePicturePath := ""
		oFaceTree := oTreeCube:FrontFace():CreateTree()
			oFaceTree:DrawGridLines := 0/*exNoLines*/
			oFaceTree:ItemPadding := 16
			oColumn := oFaceTree:Columns():Add("Buttons")
				oColumn:FormatColumn := "1 index `A-Z`"
				oColumn:SetProperty("Def",2/*exCellHasButton*/,.T.)
			oFaceTree:Items():Count := 4

	oForm:Show()
	DO WHILE nEvent != xbeP_Quit
		nEvent := AppEvent( @mp1, @mp2, @oXbp )
		oXbp:handleEvent( nEvent, mp1, mp2 )
	ENDDO 
RETURN