Data update

Task/Window-creation/Ada/window-creation.adb

@@ -0,0 +1,41 @@
+with Gtk.Window;  use Gtk.Window;
+with Gtk.Widget;  use Gtk.Widget;
+
+with Gtk.Handlers;
+with Gtk.Main;
+
+procedure Windowed_Application is
+   Window : Gtk_Window;
+
+   package Handlers is new Gtk.Handlers.Callback (Gtk_Widget_Record);
+   package Return_Handlers is
+      new Gtk.Handlers.Return_Callback (Gtk_Widget_Record, Boolean);
+
+   function Delete_Event (Widget : access Gtk_Widget_Record'Class)
+      return Boolean is
+   begin
+      return False;
+   end Delete_Event;
+
+   procedure Destroy (Widget : access Gtk_Widget_Record'Class) is
+   begin
+     Gtk.Main.Main_Quit;
+   end Destroy;
+
+begin
+   Gtk.Main.Init;
+   Gtk.Window.Gtk_New (Window);
+   Return_Handlers.Connect
+   (  Window,
+      "delete_event",
+      Return_Handlers.To_Marshaller (Delete_Event'Access)
+   );
+   Handlers.Connect
+   (  Window,
+      "destroy",
+      Handlers.To_Marshaller (Destroy'Access)
+   );
+   Show (Window);
+
+   Gtk.Main.Main;
+end Windowed_Application;

Task/Window-creation/AutoIt/window-creation.au3

@@ -0,0 +1,9 @@
+GUICreate("Test")
+GUISetState(@SW_SHOW)
+
+Do
+	Switch GUIGetMsg()
+		Case -3 ; $GUI_EVENT_CLOSE
+			Exit
+	EndSwitch
+Until False

Task/Window-creation/Batch-File/window-creation-1.bat

@@ -0,0 +1 @@
+mshta javascript:void(0)

Task/Window-creation/Batch-File/window-creation-2.bat

@@ -0,0 +1 @@
+mshta vbscript:Execute("")

Task/Window-creation/Emacs-Lisp/window-creation.el

@@ -0,0 +1 @@
+(make-frame)

Task/Window-creation/Euphoria/window-creation-1.eu

@@ -0,0 +1,5 @@
+include arwen.ew
+
+constant win = create(Window, "ARWEN window", 0, 0,100,100,640,480,{0,0})
+
+WinMain(win, SW_NORMAL)

Task/Window-creation/Euphoria/window-creation-2.eu

@@ -0,0 +1,6 @@
+include GtkEngine.e
+
+constant win = create(GtkWindow,"title=EuGTK Window;size=640x480;border=10;$destroy=Quit")
+
+show_all(win)
+main()

Task/Window-creation/Euphoria/window-creation-3.eu

@@ -0,0 +1,10 @@
+include EuWinGUI.ew
+
+Window("EuWinGUI window",100,100,640,480)
+
+-- Event loop
+while True do
+    WaitEvent()
+end while
+
+CloseApp(0)

Task/Window-creation/Euphoria/window-creation-4.eu

@@ -0,0 +1,5 @@
+include Win32Lib.ew
+
+constant win = createEx( Window, "Win32Lib", 0, Default, Default, 640, 480, 0, 0 )
+
+WinMain( win, Normal )

Task/Window-creation/Euphoria/window-creation-5.eu

@@ -0,0 +1,5 @@
+include wxeu/wxeud.e
+
+constant win = create( wxFrame, {0, -1, "wxEuphoria window", -1, -1, 640, 480} )
+
+wxMain( win )

Task/Window-creation/Microsoft-Small-Basic/window-creation.basic

@@ -0,0 +1 @@
+GraphicsWindow.Show()

Task/Window-creation/PowerShell/window-creation-1.ps1

@@ -0,0 +1 @@
+New-Window -Show

Task/Window-creation/PowerShell/window-creation-2.ps1

@@ -0,0 +1,4 @@
+$form = New-Object Windows.Forms.Form
+$form.Text = "A Window"
+$form.Size = New-Object Drawing.Size(150,150)
+$form.ShowDialog() | Out-Null

Task/Window-creation/Rebol/window-creation.rebol

@@ -0,0 +1 @@
+view layout [size 100x100]

Task/Window-creation/Rye/window-creation.rye

@@ -0,0 +1,6 @@
+fyne: import\go "fyne"
+app: import\go "fyne/app"
+widget: import\go "fyne/widget"
+a: app/new
+w: a .window "hello"
+w .show-and-run