Sub AppStart (Form1 As Form, Args() As String)
MainForm = Form1
MainForm.Show
MainForm.RootPane.LoadLayout("main") 'layout without FontAwesome
Dim jo As JavaObject = Me
jo.RunMethod("loadFontAwesome", Null)
Wait For FontAwesome_Loaded (Success As Boolean)
Log($"Font loaded: ${Success}"$)
End Sub
#if Java
import java.util.concurrent.Callable;
public static void loadFontAwesome() {
BA.runAsync(ba, mostCurrent, "fontawesome_loaded", new Object[] {false}
, new Callable<Object[]>() {
@Override
public Object[] call() throws Exception {
anywheresoftware.b4j.objects.JFX.loadFontAwesome();
return new Object[] {true};
}
}); }
#End If