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

[http://www.cs.arizona.edu/icon/library/src/procs/graphics.icn graphics.icn provides graphics]

 

 

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*)

 

 

 

main_quit()

 

if isshifted:

else:

 

 

 

 

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

This is a translation of the Tcl solution for this task.

 

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.

 

Doubtless some more modern Tk binding (such as Tkx, or perhaps Tcl::Tk) would handle that better.

 

=={{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|Tcl}}==

{{libheader|Tk}}

 

# How to open a window

}

 

grid [button .b1 -text "Open/Reset" -command openWin] -