;-----------------------------------------------------------------
; Start of test code ----->
set %list_functions c:\tool_listhandler29.txt ; required if you will be "calling" the list handler subs.
set %font_arial MS , #SPC , Ariel
set %called #FALSE ; assumes that functions are included in this file. #TRUE to "call" them instead
gosub showEUOMenu1
gosub TM_CreateTabControl TabControl1 10 30 170 150 White WindowText %font_arial 8
gosub TM_AddTab TabControl1 Fruit Fruit #TRUE ; #TRUE = hidden, #FALSE = visible
gosub TM_AddTab TabControl1 Vegies Vegies #FALSE TestFunction
gosub TM_AddTab TabControl1 FastFood FastFood #FALSE
gosub TM_AddTab TabControl1 Planets Planets #FALSE
gosub TM_AddToList TabControl1_Fruit bananna TAG
gosub TM_AddToList TabControl1_Fruit apple TAG
gosub TM_AddToList TabControl1_Fruit kiwi TAG
gosub TM_AddToList TabControl1_Fruit grapes TAG
gosub TM_AddToList TabControl1_Vegies carrot TAG
gosub TM_AddToList TabControl1_Vegies onions TAG
gosub TM_AddToList TabControl1_Vegies tomato TAG
gosub TM_AddToList TabControl1_FastFood Windys TAG
gosub TM_AddToList TabControl1_FastFood Burger , #SPC , King TAG
gosub TM_AddToList TabControl1_FastFood Carls , #SPC , Jr. TAG
gosub TM_AddToList TabControl1_Planets Mars
gosub TM_AddToList TabControl1_Planets Uranus
gosub TM_AddToList TabControl1_Planets Neptune
gosub TM_AddToList TabControl1_Planets Jupiter
gosub TM_CreateTabControl TabControl2 200 30 170 150 White WindowText %font_arial 8
gosub TM_AddTab TabControl2 Tab1 Tab1 #FALSE
gosub TM_AddTab TabControl2 Tab2 Tab2 #FALSE
gosub TM_AddTab TabControl2 Tab3 Tab3 #FALSE
gosub TM_AddTab TabControl2 Tab4 Tab4 #FALSE
gosub TM_CreateTabControl TabControl3 30 220 150 150 White WindowText %font_arial 8
gosub TM_AddTab TabControl3 Tab1 Tab1 #FALSE
gosub TM_AddTab TabControl3 Tab2 Tab2 #FALSE
gosub TM_AddTab TabControl3 Tab3 Tab3 #FALSE
gosub TM_AddTab TabControl3 Tab4 Tab4 #FALSE
; Lists are addressed as TabControl4_Tab1, 2, 3, 4
gosub TM_CreateTabControl TabControl4 200 220 150 150 White WindowText %font_arial 8
gosub TM_AddTab TabControl4 Tab1 Tab1 #FALSE
gosub TM_AddTab TabControl4 Tab2 Tab2 #FALSE
gosub TM_AddTab TabControl4 Tab3 Tab3 #FALSE
gosub TM_AddTab TabControl4 Tab4 Tab4 #FALSE
gosub TM_HideTabControl TabControl3 ; hide the whole tab control
gosub TM_ShowTabControl TabControl3 ; show the whole tab control, remembers what tabs where hidden
gosub TM_HideTabByName TabControl1 Planets
gosub TM_ShowTabByName TabControl1 Fruit
gosub TM_CopyAllItemsInList TabControl1_Planets TabControl2_Tab2 #FALSE #FALSE
gosub TM_CopyAllItemsInList TabControl1_Planets TabControl3_Tab3 #FALSE #FALSE
gosub TM_CopyAllItemsInList TabControl1_Planets TabControl4_Tab4 #FALSE #FALSE
gosub TM_SelectTabByName TabControl2 Tab2
gosub TM_SelectTabByName TabControl3 Tab3
repeat
gosub TM_HandleTabs TabControl1
gosub TM_HandleTabs TabControl2
gosub TM_HandleTabs TabControl3
gosub TM_HandleTabs TabControl4
until #FALSE
sub TestFunction
display ok Function Called!
return
stop
; <------ End of test code