Window management: Difference between revisions

Treat windows or at least window identities as [[wp:First-class_object|first class objects]].

 

The window of interest may or may not have been created by your program.

 

=={{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)

 

function runwindow()

win = GtkWindow("Window Control Test", 500, 30) |> (GtkFrame() |> (vbox = GtkBox(:v)))

lab = GtkLabel("Window under external control")

 

runwindow()

 

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|Gtk2}}===

 

main_quit()

 

if isshifted:

else:

 

nim_init()

 

==={{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.

=={{header|Phix}}==

{{trans|Nim}}

 

=={{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|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] -