Data update

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

@@ -1,41 +0,0 @@
-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.autoit

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

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

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

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

@@ -1,5 +0,0 @@
-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.ex

@@ -1,6 +0,0 @@
-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.ex

@@ -1,10 +0,0 @@
-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.ex

@@ -1,5 +0,0 @@
-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.ex

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

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

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

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

@@ -1,4 +0,0 @@
-$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

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