Window creation/X11: Difference between revisions

Content added Content deleted

Inline

@@ Line 411: / Line 411: @@
 {{omit from|TI-83 BASIC}} {{omit from|TI-89 BASIC}} <!-- Does not have a local X server or network access. -->
 {{omit from|PureBasic}}
+=={{header|Perl}}==
+=== X11::Protocol ===
+<lang perl>#!/usr/bin/perl -w
+use strict;
+use X11::Protocol;
+my $X = X11::Protocol->new;
+my $window = $X->new_rsrc;
+$X->CreateWindow ($window,
+                  $X->root,         # parent window
+                  'InputOutput',    # class
+,                # depth, copy from parent
+,                # visual, copy from parent
+,0,              # X,Y (window manager will override)
+,100,          # width,height
+,                # border width
+                  background_pixel => $X->black_pixel,
+                  event_mask       => $X->pack_event_mask('Exposure',
+                                                          'ButtonPress'),
+                 );
+my $gc = $X->new_rsrc;
+$X->CreateGC ($gc, $window,
+              foreground => $X->white_pixel);
+$X->{'event_handler'} = sub {
+  my %event = @_;
+  my $event_name = $event{'name'};
+  if ($event_name eq 'Expose') {
+    $X->PolyRectangle ($window, $gc, [ 10,10,     # x,y top-left corner
+,20 ]);  # width,height
+    $X->PolyText8 ($window, $gc,
+, 55,    # X,Y of text baseline
+                   [ 0,  # delta X
+                     'Hello ... click mouse button to exit.' ]);
+  } elsif ($event_name eq 'ButtonPress') {
+    exit 0;
+  }
+};
+$X->MapWindow ($window);
+for (;;) {
+  $X->handle_input;
+}</lang>
 =={{header|Perl 6}}==
@@ Line 488: / Line 536: @@
 XCloseDisplay($display);
 </lang>
-=={{header|Perl}}==
-=== X11::Protocol ===
-<lang perl>#!/usr/bin/perl -w
-use strict;
-use X11::Protocol;
-my $X = X11::Protocol->new;
-my $window = $X->new_rsrc;
-$X->CreateWindow ($window,
-                  $X->root,         # parent window
-                  'InputOutput',    # class
-,                # depth, copy from parent
-,                # visual, copy from parent
-,0,              # X,Y (window manager will override)
-,100,          # width,height
-,                # border width
-                  background_pixel => $X->black_pixel,
-                  event_mask       => $X->pack_event_mask('Exposure',
-                                                          'ButtonPress'),
-                 );
-my $gc = $X->new_rsrc;
-$X->CreateGC ($gc, $window,
-              foreground => $X->white_pixel);
-$X->{'event_handler'} = sub {
-  my %event = @_;
-  my $event_name = $event{'name'};
-  if ($event_name eq 'Expose') {
-    $X->PolyRectangle ($window, $gc, [ 10,10,     # x,y top-left corner
-,20 ]);  # width,height
-    $X->PolyText8 ($window, $gc,
-, 55,    # X,Y of text baseline
-                   [ 0,  # delta X
-                     'Hello ... click mouse button to exit.' ]);
-  } elsif ($event_name eq 'ButtonPress') {
-    exit 0;
-  }
-};
-$X->MapWindow ($window);
-for (;;) {
-  $X->handle_input;
-}</lang>
 =={{header|PicoLisp}}==