Window management: Difference between revisions

=={{header|AutoHotkey}}==

WinGetTitle, window, A ; get identity of active window into a variable

WinMove, %window%, , 100, 100, 800, 800 ; move window to coordinates, 100, 100

}

WinClose, % window

=={{header|BBC BASIC}}==

{{works with|BBC BASIC for Windows}}

SWP_NOZORDER = 4

SW_MAXIMIZE = 3

PRINT "Closing the window in two seconds..."

WAIT 200

=={{header|C}}==

C does not have any standard windowing library, although cross platform libraries are available, and although it's technically possible to create windows from scratch given the '''''Dark powers''''' that C commands, I chose the simplest option, the Windows API. On running this program, the user is taken over all the sub tasks listed in this task one by one.

===Windows===

#include<windows.h>

#include<unistd.h>

return Msg.wParam;

}

=={{header|Gambas}}==

'________________________

Public Sub Form_Open()

End If

Output:

<pre>

{{libheader|gotk3}}

{{trans|Nim}}

import (

window.ShowAll()

gtk.Main()

=={{header|HicEst}}==

REAL :: w=-333, h=25, x=1, y=0.5 ! pixels < 0, relative window size 0...1, script character size > 1

WINDOW(WIN=wh, MAXimize) ! maximize (hides the script window)

WINDOW(Kill=wh) ! close

=={{header|Icon}} and {{header|Unicon}}==

The demo program opens three windows, one with a running commentary on the action.

procedure main()

WWrite(W3,"Enter Q or q here to quit")

WDone(W3)

{{libheader|Icon Programming Library}}

=={{header|Java}}==

Java cannot (easily) manipulate windows created by other programs. This code manipulates windows that it has created, but any window created in the same JVM can be controlled similarly. This example uses Swing - for AWT or SWT go figure.

import java.awt.EventQueue;

import java.awt.Frame;

}

}

=={{header|Julia}}==

Uses the Gtk windowing package, so the package can manage Gtk's windows.

function controlwindow(win, lab)

runwindow()

=={{header|Mathematica}}/{{header|Wolfram Language}}==

Mathematica can only easily access and control windows created by itself.

nb===nb2 (*test for equality with another window object*)

SetOptions[nb,Visible->False](*Hide*)

NotebookClose[nb] (*Close*)

SetOptions[nb,WindowMargins->{{x,Automatic},{y,Automatic}}](*Move to x,y screen position*)

=={{header|Nim}}==

==={{libheader|gintro}}===

import gintro/[glib, gobject, gtk, gio]

from gintro/gdk import processAllUpdates

let app = newApplication(Application, "Rosetta.Window.Management")

discard app.connect("activate", activate)

==={{libheader|Gtk2}}===

import gdk2, glib2, gtk2

discard bQuit.signal_connect("clicked", SIGNAL_FUNC(thisDestroy), nil)

window.show_all()

==={{libheader|IUP}}===

# assumes you have the iup .dll or .so installed

discard dlg.show()

discard mainloop()

=={{header|Oz}}==

because it shows how to extend an object's interface even when we don't have control over object creation.

[QTk] = {Module.link ['x-oz://system/wp/QTk.ozf']}

end

in

=={{header|Perl}}==

I wrote the code using the Tk module, as that's what I had on my computer, and I was too lazy to install Tkx. Translating from perl/tk to Tkx should be fairly trivial.

use strict;

use warnings;

__END__

In the Tcl code I translated from, the second label of the main window had a textvariable attribute. For some reason, this didn't work correctly for me, either due to a bug in Tk.pm, or some other reason. Because of that, I kept around a handle to that second label ($lab), and called configure on it when I needed it's text to change.

{{libheader|Phix/basics}}

{{libheader|Phix/pGUI}}

<span style="color: #000080;font-style:italic;">-- demo\rosetta\Window_management.exw</span>

<span style="color: #008080;">include</span> <span style="color: #000000;">pGUI</span><span style="color: #0000FF;">.</span><span style="color: #000000;">e</span>

<span style="color: #008080;">end</span> <span style="color: #008080;">procedure</span>

<span style="color: #000000;">main</span><span style="color: #0000FF;">()</span>

=={{header|PicoLisp}}==

The following works on ErsatzLisp, the Java version of PicoLisp.

: (setq

JFrame "javax.swing.JFrame"

# Close window

=={{header|PureBasic}}==

NewList Windows()

Define i, j, dh, dw, flags, err$, x, y

Delay(2000)

=={{header|Python}}==

{{libheader|tkinter}}

Using the tkinter GUI:

from tkinter import *

import tkinter.messagebox

mainloop()

=={{header|Racket}}==

#lang racket/gui

(say 'Resize) (send frame resize 100 100) (sleep 1)

(say 'Close) (send frame show #f) (sleep 1) ; that's how we close a window

=={{header|Raku}}==

This are generic window handling routines. They work for any window managed by the X11 display server, not just windows created by the program.

my $xdo = Xdo.new;

$xdo.raise-window($id);

sleep .25;

=={{header|Ring}}==

Load "guilib.ring"

###--------------------------------------------

=={{header|Tcl}}==

{{libheader|Tk}}

# How to open a window

grid [button .b4 -text "Maximize" -command maximizeWin] -

grid [button .b5 -text "Move" -command moveWin] -

=={{header|Wren}}==

The following just manipulates a window created by the application itself and works fine on Ubuntu 20.04.

var GTK_WINDOW_TOPLEVEL = 0

buttonBox.add(btnClose)

<br>

We now embed the above script in the following C program, build and run.

#include <stdlib.h>

free(script);

return 0;