A-M baby

Task/Hello-world-Graphical/BASIC/hello-world-graphical-1.bas

@@ -0,0 +1,17 @@
+' Demonstrate a simple Windows application using FreeBasic
+
+#include once "windows.bi"
+
+Declare Function WinMain(ByVal hInst As HINSTANCE, _
+      ByVal hPrev As HINSTANCE, _
+      ByVal szCmdLine as String, _
+      ByVal iCmdShow As Integer) As Integer
+End WinMain( GetModuleHandle( null ), null, Command( ), SW_NORMAL )
+
+Function WinMain (ByVal hInst As HINSTANCE, _
+                  ByVal hPrev As HINSTANCE, _
+                  ByVal szCmdLine As String, _
+                  ByVal iCmdShow As Integer) As Integer
+    MessageBox(NULL, "Goodbye World", "Goodbye World", MB_ICONINFORMATION)
+    function = 0
+End Function

Task/Hello-world-Graphical/BASIC/hello-world-graphical-2.bas

@@ -0,0 +1,14 @@
+' Demonstrate a simple Windows/Linux application using GTK/FreeBasic
+
+#INCLUDE "gtk/gtk.bi"
+
+gtk_init(@__FB_ARGC__, @__FB_ARGV__)
+
+VAR win = gtk_window_new (GTK_WINDOW_TOPLEVEL)
+gtk_window_set_title (gtk_window (win), "Goodbye, World")
+g_signal_connect(G_OBJECT (win), "delete-event", @gtk_main_quit, 0)
+gtk_widget_show_all (win)
+
+gtk_main()
+
+END 0