Window management: Difference between revisions

{{omit from|PostScript}}

{{omit from|Retro}}

{{omit from|TI-83 BASIC|Does not have windows.}}

{{omit from|TI-89 BASIC|Does not have windows.}}

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

'________________________

Public Sub Form_Open()

End If

 

Output:

<pre>

Windows identities DONOT match the original window size

</pre>

 

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

 

W1 := open("Window 1","g","resize=on","size=400,400","pos=100,100","bg=black","fg=red") |

W2 := open("Window 2","g","resize=on","size=400,400","pos=450,450","bg=blue","fg=yellow") |

W3 := open("Window 3","g","resize=on","size=400,400","pos=600,150","bg=orange","fg=black") |

WWrite(W3,"Opened three windows")

delay(Delay)

WAttrib(W2,"posx=700","posy=300")

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;

// Create UI on correct thread

public static void main( final String[] args ) {

}

 

 

// Button class to call the right method

getRootPane().setBorder( new EmptyBorder( 3, 3, 3, 3 ) );

add( new JLabel( "Add windows and control them." ), BorderLayout.NORTH );

add( main, BorderLayout.CENTER );

controls.setLayout( new GridLayout( 0, 1, 3, 3 ) );

 

public void doHide() {

}

 

public void doShow() {

}

 

public void doClose() {

}

 

public void doMinimise() {

}

 

public void doMaximise() {

}

 

public void doMove() {

}

 

public void doResize() {

final JFrame window = ( JFrame ) list.getSelectedItem();

 

}

}

 

 

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