﻿B4A=true
Group=Default Group
ModulesStructureVersion=1
Type=Class
Version=9.85
@EndOfDesignText@
#Region Shared Files
#CustomBuildAction: folders ready, %WINDIR%\System32\Robocopy.exe,"..\..\Shared Files" "..\Files"
'Ctrl + click to sync files: ide://run?file=%WINDIR%\System32\Robocopy.exe&args=..\..\Shared+Files&args=..\Files&FilesSync=True
#End Region

'Ctrl + click to export as zip: ide://run?File=%B4X%\Zipper.jar&Args=Project.zip

Sub Class_Globals
	Private Root As B4XView
	Private xui As XUI
	Private stf As SizeToFit
	
	Private Button1 As Button
	Private Button2 As Button
	Private Button3 As Button

End Sub

Public Sub Initialize
'	B4XPages.GetManager.LogEvents = True
End Sub

'This event will be called once, before the page becomes visible.
Private Sub B4XPage_Created (Root1 As B4XView)
	Root = Root1
	Root.LoadLayout("StateList")
	
	stf.Initialize
	
	Button1.TextSize = stf.Ideal_Text_Size(Button1.Text, Button1, 60, "S")
	Button2.TextSize = stf.Ideal_Text_Size(Button2.Text, Button2, 60, "S")
	Button3.TextSize = stf.Ideal_Text_Size(Button3.Text, Button3, 60, "S")
	
End Sub

'You can see the list of page related events in the B4XPagesManager object. The event name is B4XPage.

Private Sub Button1_Click
	Button2.Enabled = True
	Button1.Enabled = False
	Button3.Enabled = False
End Sub

Private Sub Button2_Click
	Button3.Enabled = True
	Button1.Enabled = False
	Button2.Enabled = False
End Sub

Private Sub Button3_Click
	Button1.Enabled = True
	Button2.Enabled = False
	Button3.Enabled = False
End Sub

