Just another update

Task/Window-creation/Frink/window-creation.frink

@@ -0,0 +1 @@
+g=(new graphics).show[]

Task/Window-creation/Objective-C/window-creation.m

@@ -10,7 +10,7 @@
 
 
 @implementation Win : NSWindow
--(id) init
+-(instancetype) init
 {
   if ((self = [super
     initWithContentRect: NSMakeRect(0, 0, 800, 600)

Task/Window-creation/Perl-6/window-creation.pl6

@@ -0,0 +1,17 @@
+use GTK::Simple;
+
+my GTK::Simple::App $app .= new(title => 'Simple GTK Window');
+
+$app.size_request(250, 100);
+
+$app.set_content(
+    GTK::Simple::VBox.new(
+        my $button = GTK::Simple::Button.new(label => 'Exit'),
+    )
+);
+
+$app.border_width = 40;
+
+$button.clicked.tap: { $app.exit }
+
+$app.run;

Task/Window-creation/Perl/window-creation-5.pl

@@ -1,3 +1,8 @@
-use XUL::Gui;
+use strict;
+use warnings;
+use QtGui4;
 
-display Window;
+my $app = Qt::Application(\@ARGV);
+my $window = Qt::MainWindow;
+$window->show;
+exit $app->exec;

Task/Window-creation/Perl/window-creation-6.pl

@@ -1,5 +1,3 @@
-  use Wx;
+use XUL::Gui;
 
-  $window = Wx::Frame->new(undef, -1, 'title');
-  $window->Show;
-  Wx::SimpleApp->new->MainLoop;
+display Window;

Task/Window-creation/Perl/window-creation-7.pl

@@ -0,0 +1,5 @@
+  use Wx;
+
+  $window = Wx::Frame->new(undef, -1, 'title');
+  $window->Show;
+  Wx::SimpleApp->new->MainLoop;

Task/Window-creation/Seed7/window-creation.seed7

@@ -0,0 +1,10 @@
+$ include "seed7_05.s7i";
+  include "draw.s7i";
+  include "keybd.s7i";
+
+const proc: main is func
+  begin
+    screen(200, 200);
+    KEYBOARD := GRAPH_KEYBOARD;
+    ignore(getc(KEYBOARD));
+  end func;

Task/Window-creation/TorqueScript/window-creation.torque

@@ -0,0 +1,38 @@
+new GuiControl(GuiName)
+{
+	profile = "GuiDefaultProfile";
+	horizSizing = "right";
+	vertSizing = "bottom";
+	position = "0 0";
+	extent = "640 480";
+	minExtent = "8 2";
+	enabled = 1;
+	visible = 1;
+	clipToParent = 1;
+
+	new GuiWindowCtrl()
+	{
+		profile = "GuiWindowProfile";
+		horizSizing = "right";
+		vertSizing = "bottom";
+		position = "0 0";
+		extent = "100 200";
+		minExtent = "8 2";
+		enabled = 1;
+		visible = 1;
+		clipToParent = 1;
+		command = "canvas.popDialog(GuiName);";
+		accelerator = "escape";
+		maxLength = 255;
+		resizeWidth = 1;
+		resizeHeight = 1;
+		canMove = 1;
+		canClose = 1;
+		canMinimize = 1;
+		canMaximize = 1;
+		minSize = "50 50";
+		closeCommand = "canvas.popDialog(GuiName);";
+	};
+};
+
+canvas.pushDialog(GuiName);