Data commit

Task/Window-management/00-META.yaml

@@ -0,0 +1,3 @@
+---
+from: http://rosettacode.org/wiki/Window_management
+note: GUI

Task/Window-management/00-TASK.txt

@@ -0,0 +1,16 @@
+Treat windows or at least window identities as [[wp:First-class_object|first class objects]].
+
+* Store window identities in variables, compare them for equality.
+* Provide examples of performing some of the following:
+** hide, 
+** show, 
+** close, 
+** minimize, 
+** maximize, 
+** move,     and 
+** resize a window. 
+
+
+The window of interest may or may not have been created by your program.
+<br><br>
+

Task/Window-management/AutoHotkey/window-management.ahk

@@ -0,0 +1,21 @@
+F1::  ;; when user hits the F1 key, do the following
+WinGetTitle, window, A  ; get identity of active window into a variable
+WinMove, %window%, , 100, 100, 800, 800 ; move window to coordinates, 100, 100
+                                        ; and change size to 800 x 800 pixels
+sleep, 2000
+WinHide, % window    ; hide window
+TrayTip, hidden, window is hidden, 2
+sleep, 2000
+WinShow, % window  ; show window again
+loop,
+{
+  inputbox, name, what was the name of your window?
+  if (name = window) ; compare window variables for equality
+  {
+    msgbox you got it
+    break
+  }
+; else try again
+}
+WinClose, % window
+return

Task/Window-management/BBC-BASIC/window-management.basic

@@ -0,0 +1,38 @@
+      SWP_NOMOVE = 2
+      SWP_NOZORDER = 4
+      SW_MAXIMIZE = 3
+      SW_MINIMIZE = 6
+      SW_RESTORE = 9
+      SW_HIDE = 0
+      SW_SHOW = 5
+
+      REM Store window handle in a variable:
+      myWindowHandle% = @hwnd%
+
+      PRINT "Hiding the window in two seconds..."
+      WAIT 200
+      SYS "ShowWindow", myWindowHandle%, SW_HIDE
+      WAIT 200
+      SYS "ShowWindow", myWindowHandle%, SW_SHOW
+      PRINT "Windows shown again."
+
+      PRINT "Minimizing the window in two seconds..."
+      WAIT 200
+      SYS "ShowWindow", myWindowHandle%, SW_MINIMIZE
+      WAIT 200
+      SYS "ShowWindow", myWindowHandle%, SW_RESTORE
+      PRINT "Maximizing the window in two seconds..."
+      WAIT 200
+      SYS "ShowWindow", myWindowHandle%, SW_MAXIMIZE
+      WAIT 200
+      SYS "ShowWindow", myWindowHandle%, SW_RESTORE
+      PRINT "Now restored to its normal size."
+
+      PRINT "Resizing the window in two seconds..."
+      WAIT 200
+      SYS "SetWindowPos", myWindowHandle%, 0, 0, 0, 400, 200, \
+      \    SWP_NOMOVE OR SWP_NOZORDER
+
+      PRINT "Closing the window in two seconds..."
+      WAIT 200
+      QUIT

Task/Window-management/C/window-management.c

@@ -0,0 +1,138 @@
+#include<windows.h>
+#include<unistd.h>
+#include<stdio.h>
+
+const char g_szClassName[] = "weirdWindow";
+
+LRESULT CALLBACK WndProc(HWND hwnd, UINT msg, WPARAM wParam, LPARAM lParam)
+{
+    switch(msg)
+    {
+        case WM_CLOSE:
+            DestroyWindow(hwnd);
+        break;
+        case WM_DESTROY:
+            PostQuitMessage(0);
+        break;
+        default:
+            return DefWindowProc(hwnd, msg, wParam, lParam);
+    }
+    return 0;
+}
+
+int WINAPI WinMain(HINSTANCE hInstance, HINSTANCE hPrevInstance,
+    LPSTR lpCmdLine, int nCmdShow)
+{
+    WNDCLASSEX wc;
+    HWND hwnd[3];
+    MSG Msg;
+	int i,x=0,y=0;
+	char str[3][100];
+	int maxX = GetSystemMetrics(SM_CXSCREEN), maxY = GetSystemMetrics(SM_CYSCREEN);
+	
+	char messages[15][180] = {"Welcome to the Rosettacode Window C implementation.",
+	"If you can see two blank windows just behind this message box, you are in luck.",
+	"Let's get started....",
+	"Yes, you will be seeing a lot of me :)",
+	"Now to get started with the tasks, the windows here are stored in an array of type HWND, the array is called hwnd (yes, I know it's very innovative.)",
+	"Let's compare the windows for equality.",
+	"Now let's hide Window 1.",
+	"Now let's see Window 1 again.",
+	"Let's close Window 2, bye, bye, Number 2 !",
+	"Let's minimize Window 1.",
+	"Now let's maximize Window 1.",
+	"And finally we come to the fun part, watch Window 1 move !",
+	"Let's double Window 1 in size for all the good work.",
+	"That's all folks ! (You still have to close that window, that was not part of the contract, sue me :D )"};
+
+    wc.cbSize        = sizeof(WNDCLASSEX);
+    wc.style         = 0;
+    wc.lpfnWndProc   = WndProc;
+    wc.cbClsExtra    = 0;
+    wc.cbWndExtra    = 0;
+    wc.hInstance     = hInstance;
+    wc.hIcon         = LoadIcon(NULL, IDI_APPLICATION);
+    wc.hCursor       = LoadCursor(NULL, IDC_ARROW);
+    wc.hbrBackground = (HBRUSH)(COLOR_WINDOW+1);
+    wc.lpszMenuName  = NULL;
+    wc.lpszClassName = g_szClassName;
+    wc.hIconSm       = LoadIcon(NULL, IDI_APPLICATION);
+
+    if(!RegisterClassEx(&wc))
+    {
+        MessageBox(NULL, "Window Registration Failed!", "Error!",MB_ICONEXCLAMATION | MB_OK);
+        return 0;
+    }
+
+	for(i=0;i<2;i++){
+		
+		sprintf(str[i],"Window Number %d",i+1);
+		
+		hwnd[i] = CreateWindow(g_szClassName,str[i],WS_OVERLAPPEDWINDOW,i*maxX/2 , 0, maxX/2-10, maxY/2-10,NULL, NULL, hInstance, NULL);
+		
+		if(hwnd[i] == NULL)
+		{
+			MessageBox(NULL, "Window Creation Failed!", "Error!",MB_ICONEXCLAMATION | MB_OK);
+			return 0;
+		}
+
+		ShowWindow(hwnd[i], nCmdShow);
+		UpdateWindow(hwnd[i]);
+	}
+	
+	for(i=0;i<6;i++){
+			MessageBox(NULL, messages[i], "Info",MB_APPLMODAL| MB_ICONINFORMATION | MB_OK);		
+	}
+	
+	if(hwnd[0]==hwnd[1])
+			MessageBox(NULL, "Window 1 and 2 are equal.", "Info",MB_APPLMODAL| MB_ICONINFORMATION | MB_OK);
+	else
+			MessageBox(NULL, "Nope, they are not.", "Info",MB_APPLMODAL| MB_ICONINFORMATION | MB_OK);
+		
+	MessageBox(NULL, messages[6], "Info",MB_APPLMODAL| MB_ICONINFORMATION | MB_OK);
+	
+	ShowWindow(hwnd[0], SW_HIDE);
+	
+	MessageBox(NULL, messages[7], "Info",MB_APPLMODAL| MB_ICONINFORMATION | MB_OK);
+	
+	ShowWindow(hwnd[0], SW_SHOW);
+	
+	MessageBox(NULL, messages[8], "Info",MB_APPLMODAL| MB_ICONINFORMATION | MB_OK);
+	
+	ShowWindow(hwnd[1], SW_HIDE);
+	
+	MessageBox(NULL, messages[9], "Info",MB_APPLMODAL| MB_ICONINFORMATION | MB_OK);
+	
+	ShowWindow(hwnd[0], SW_MINIMIZE);
+	
+	MessageBox(NULL, messages[10], "Info",MB_APPLMODAL| MB_ICONINFORMATION | MB_OK);
+	
+	ShowWindow(hwnd[0], SW_MAXIMIZE);
+	
+	MessageBox(NULL, messages[11], "Info",MB_APPLMODAL| MB_ICONINFORMATION | MB_OK);
+	
+	ShowWindow(hwnd[0], SW_RESTORE);
+	
+	while(x!=maxX/2||y!=maxY/2){
+		if(x<maxX/2)
+			x++;
+		if(y<maxY/2)
+			y++;
+		
+		MoveWindow(hwnd[0],x,y,maxX/2-10, maxY/2-10,0);
+		sleep(10);
+	}
+	
+	MessageBox(NULL, messages[12], "Info",MB_APPLMODAL| MB_ICONINFORMATION | MB_OK);
+	
+	MoveWindow(hwnd[0],0,0,maxX, maxY,0);
+	
+	MessageBox(NULL, messages[13], "Info",MB_APPLMODAL| MB_ICONINFORMATION | MB_OK);
+
+    while(GetMessage(&Msg, NULL, 0, 0) > 0)
+    {
+        TranslateMessage(&Msg);
+        DispatchMessage(&Msg);
+    }
+    return Msg.wParam;
+}

Task/Window-management/Gambas/window-management.gambas

@@ -0,0 +1,87 @@
+sWindow As New String[4]
+'________________________
+Public Sub Form_Open()
+
+Manipulate
+
+End
+'________________________
+Public Sub Manipulate()
+Dim siDelay As Short = 2
+
+Me.Show
+Print "Show"
+Wait siDelay
+
+sWindow[0] = Me.Width
+sWindow[1] = Me.Height
+sWindow[2] = Me.X
+sWindow[3] = Me.y
+
+Me.Hide
+Print "Hidden"
+CompareWindow
+Wait siDelay
+
+Me.Show
+Print "Show"
+CompareWindow
+Wait siDelay
+
+Me.Minimized = True
+Print "Minimized"
+CompareWindow
+Wait siDelay
+
+Me.Show
+Print "Show"
+CompareWindow
+Wait siDelay
+
+Me.Maximized = True
+Print "Maximized"
+CompareWindow
+Wait siDelay
+
+Me.Maximized = False
+Print "Not Maximized"
+CompareWindow
+Wait siDelay
+
+Me.Height = 200
+Me.Width = 300
+Print "Resized"
+CompareWindow
+Wait siDelay
+
+Me.x = 10
+Me.Y = 10
+Print "Moved"
+CompareWindow
+Wait siDelay
+
+Me.Close
+
+End
+'________________________
+Public Sub CompareWindow()
+Dim sNewWindow As New String[4]
+Dim siCount As Short
+Dim bMatch As Boolean = True
+
+sNewWindow[0] = Me.Width
+sNewWindow[1] = Me.Height
+sNewWindow[2] = Me.X
+sNewWindow[3] = Me.y
+
+For siCount = 0 To 3
+  If sWindow[siCount] <> sNewWindow[siCount] Then bMatch = False
+Next
+
+If bMatch Then
+  Print "Windows identities match the original window size"
+Else
+  Print "Windows identities DONOT match the original window size"
+End If
+
+End

Task/Window-management/Go/window-management.go

@@ -0,0 +1,100 @@
+package main
+
+import (
+    "github.com/gotk3/gotk3/gtk"
+    "log"
+    "time"
+)
+
+func check(err error, msg string) {
+    if err != nil {
+        log.Fatal(msg, err)
+    }
+}
+
+func main() {
+    gtk.Init(nil)
+
+    window, err := gtk.WindowNew(gtk.WINDOW_TOPLEVEL)
+    check(err, "Unable to create window:")
+    window.SetResizable(true)
+    window.SetTitle("Window management")
+    window.SetBorderWidth(5)
+    window.Connect("destroy", func() {
+        gtk.MainQuit()
+    })
+
+    stackbox, err := gtk.BoxNew(gtk.ORIENTATION_VERTICAL, 10)
+    check(err, "Unable to create stack box:")
+
+    bmax, err := gtk.ButtonNewWithLabel("Maximize")
+    check(err, "Unable to create maximize button:")
+    bmax.Connect("clicked", func() {
+        window.Maximize()
+    })
+
+    bunmax, err := gtk.ButtonNewWithLabel("Unmaximize")
+    check(err, "Unable to create unmaximize button:")
+    bunmax.Connect("clicked", func() {
+        window.Unmaximize()
+    })
+
+    bicon, err := gtk.ButtonNewWithLabel("Iconize")
+    check(err, "Unable to create iconize button:")
+    bicon.Connect("clicked", func() {
+        window.Iconify()
+    })
+
+    bdeicon, err := gtk.ButtonNewWithLabel("Deiconize")
+    check(err, "Unable to create deiconize button:")
+    bdeicon.Connect("clicked", func() {
+        window.Deiconify()
+    })
+
+    bhide, err := gtk.ButtonNewWithLabel("Hide")
+    check(err, "Unable to create hide button:")
+    bhide.Connect("clicked", func() {
+        // not working on Ubuntu 16.04 but window 'dims' after a few seconds
+        window.Hide()
+        time.Sleep(10 * time.Second)
+        window.Show()
+    })
+
+    bshow, err := gtk.ButtonNewWithLabel("Show")
+    check(err, "Unable to create show button:")
+    bshow.Connect("clicked", func() {
+        window.Show()
+    })
+
+    bmove, err := gtk.ButtonNewWithLabel("Move")
+    check(err, "Unable to create move button:")
+    isShifted := false
+    bmove.Connect("clicked", func() {
+        w, h := window.GetSize()
+        if isShifted {
+            window.Move(w-10, h-10)
+        } else {
+            window.Move(w+10, h+10)
+        }
+        isShifted = !isShifted
+    })
+
+    bquit, err := gtk.ButtonNewWithLabel("Quit")
+    check(err, "Unable to create quit button:")
+    bquit.Connect("clicked", func() {
+        window.Destroy()
+    })
+
+    stackbox.PackStart(bmax, true, true, 0)
+    stackbox.PackStart(bunmax, true, true, 0)
+    stackbox.PackStart(bicon, true, true, 0)
+    stackbox.PackStart(bdeicon, true, true, 0)
+    stackbox.PackStart(bhide, true, true, 0)
+    stackbox.PackStart(bshow, true, true, 0)
+    stackbox.PackStart(bmove, true, true, 0)
+    stackbox.PackStart(bquit, true, true, 0)
+
+    window.Add(stackbox)
+    window.ShowAll()
+    gtk.Main()
+}

Task/Window-management/HicEst/window-management.hicest

@@ -0,0 +1,10 @@
+CHARACTER title="Rosetta Window_management"
+REAL :: w=-333, h=25, x=1, y=0.5 ! pixels < 0,  relative window size 0...1,  script character size > 1
+
+  WINDOW(WINdowhandle=wh, Width=w, Height=h, X=x, Y=y, TItle=title) ! create, on return size/pos VARIABLES are set to script char
+  WINDOW(WIN=wh, MINimize)    ! minimize
+  WINDOW(WIN=wh, SHowNormal)  ! restore
+  WINDOW(WIN=wh, X=31, Y=7+4) !<-- move upper left here (col 31, row 7 + ~4 rows for title, menus, toolbar. Script window in upper left screen)
+  WINDOW(WIN=wh, MAXimize)    ! maximize (hides the script window)
+  WINDOW(Kill=wh)             ! close
+END

Task/Window-management/Icon/window-management.icon

@@ -0,0 +1,53 @@
+link graphics
+
+procedure main()
+
+   Delay := 3000
+
+   W1 := open("Window 1","g","resize=on","size=400,400","pos=100,100","bg=black","fg=red") |
+         stop("Unable to open window 1")
+   W2 := open("Window 2","g","resize=on","size=400,400","pos=450,450","bg=blue","fg=yellow") |
+         stop("Unable to open window 2")
+   W3 := open("Window 3","g","resize=on","size=400,400","pos=600,150","bg=orange","fg=black") |
+         stop("Unable to open window 3")
+   WWrite(W3,"Opened three windows")
+
+   WWrite(W3,"Window 1&2 with rectangles")
+   every Wx := W1 | W2 | W3 do
+      if Wx ~=== W3 then
+         FillRectangle(Wx,50,50,100,100)
+
+   delay(Delay)
+   WWrite(W3,"Window 1 rasied")
+   Raise(W1)
+
+   delay(Delay)
+   WWrite(W3,"Window 2 hidden")
+   WAttrib(W2,"canvas=hidden")
+
+   delay(Delay)
+   WWrite(W3,"Window 2 maximized")
+   WAttrib(W2,"canvas=maximal")
+   Raise(W3)
+
+   delay(Delay)
+   WWrite(W3,"Window 2 restored & resized")
+   WAttrib(W2,"canvas=normal")
+   WAttrib(W2,"size=600,600")
+
+   delay(Delay)
+   WWrite(W3,"Window 2 moved")
+   WAttrib(W2,"posx=700","posy=300")
+
+   delay(Delay)
+   WWrite(W3,"Window 2 minimized")
+   WAttrib(W2,"canvas=iconic")
+
+   delay(Delay)
+   WWrite(W3,"Window 2 restored")
+   WAttrib(W2,"canvas=normal")  # restore as maximal, possible bug
+
+   delay(Delay)
+   WWrite(W3,"Enter Q or q here to quit")
+   WDone(W3)
+end

Task/Window-management/Java/window-management.java

@@ -0,0 +1,191 @@
+import java.awt.BorderLayout;
+import java.awt.EventQueue;
+import java.awt.Frame;
+import java.awt.GridLayout;
+import java.awt.event.ActionEvent;
+import java.lang.reflect.InvocationTargetException;
+import javax.swing.AbstractAction;
+import javax.swing.JButton;
+import javax.swing.JComboBox;
+import javax.swing.JFrame;
+import javax.swing.JLabel;
+import javax.swing.JOptionPane;
+import javax.swing.JPanel;
+import javax.swing.border.EmptyBorder;
+
+public class WindowController extends JFrame {
+   // Create UI on correct thread
+   public static void main( final String[] args ) {
+      EventQueue.invokeLater( () -> new WindowController() );
+   }
+
+   private JComboBox<ControlledWindow> list;
+
+   // Button class to call the right method
+   private class ControlButton extends JButton {
+      private ControlButton( final String name ) {
+         super(
+            new AbstractAction( name ) {
+               public void actionPerformed( final ActionEvent e ) {
+                  try {
+                     WindowController.class.getMethod( "do" + name )
+                        .invoke ( WindowController.this );
+                  } catch ( final Exception x ) { // poor practice
+                     x.printStackTrace();        // also poor practice
+                  }
+               }
+            }
+         );
+      }
+   }
+
+   // UI for controlling windows
+   public WindowController() {
+      super( "Controller" );
+
+      final JPanel main = new JPanel();
+      final JPanel controls = new JPanel();
+
+      setLocationByPlatform( true );
+      setResizable( false );
+      setDefaultCloseOperation( JFrame.EXIT_ON_CLOSE );
+      setLayout( new BorderLayout( 3, 3 ) );
+      getRootPane().setBorder( new EmptyBorder( 3, 3, 3, 3 ) );
+      add( new JLabel( "Add windows and control them." ), BorderLayout.NORTH );
+      main.add( list = new JComboBox<>() );
+      add( main, BorderLayout.CENTER );
+      controls.setLayout( new GridLayout( 0, 1, 3, 3 ) );
+      controls.add( new ControlButton( "Add"      ) );
+      controls.add( new ControlButton( "Hide"     ) );
+      controls.add( new ControlButton( "Show"     ) );
+      controls.add( new ControlButton( "Close"    ) );
+      controls.add( new ControlButton( "Maximise" ) );
+      controls.add( new ControlButton( "Minimise" ) );
+      controls.add( new ControlButton( "Move"     ) );
+      controls.add( new ControlButton( "Resize"   ) );
+      add( controls, BorderLayout.EAST );
+      pack();
+      setVisible( true );
+   }
+
+   // These are the windows we're controlling, but any JFrame would do
+   private static class ControlledWindow extends JFrame {
+      private int num;
+
+      public ControlledWindow( final int num ) {
+         super( Integer.toString( num ) );
+         this.num = num;
+         setLocationByPlatform( true );
+         getRootPane().setBorder( new EmptyBorder( 3, 3, 3, 3 ) );
+         setDefaultCloseOperation( JFrame.DISPOSE_ON_CLOSE );
+         add( new JLabel( "I am window " + num + ". Use the controller to control me." ) );
+         pack();
+         setVisible( true );
+      }
+
+      public String toString() {
+         return "Window " + num;
+      }
+   }
+
+   // Here comes the useful bit - window control code
+   // Everything else was just to allow us to do this!
+
+   public void doAdd() {
+      list.addItem( new ControlledWindow( list.getItemCount () + 1 ) );
+      pack();
+   }
+
+   public void doHide() {
+      final JFrame window = getWindow();
+      if ( null == window ) {
+         return;
+      }
+      window.setVisible( false );
+   }
+
+   public void doShow() {
+      final JFrame window = getWindow();
+      if ( null == window ) {
+         return;
+      }
+      window.setVisible( true );
+   }
+
+   public void doClose() {
+      final JFrame window = getWindow();
+      if ( null == window ) {
+         return;
+      }
+      window.dispose();
+   }
+
+   public void doMinimise() {
+      final JFrame window = getWindow();
+      if ( null == window ) {
+         return;
+      }
+      window.setState( Frame.ICONIFIED );
+   }
+
+   public void doMaximise() {
+      final JFrame window = getWindow();
+      if ( null == window ) {
+         return;
+      }
+      window.setExtendedState( Frame.MAXIMIZED_BOTH );
+   }
+
+   public void doMove() {
+      final JFrame window = getWindow();
+      if ( null == window ) {
+         return;
+      }
+      final int hPos = getInt( "Horizontal position?" );
+      if ( -1 == hPos ) {
+         return;
+      }
+      final int vPos = getInt( "Vertical position?" );
+      if ( -1 == vPos ) {
+         return;
+      }
+      window.setLocation ( hPos, vPos );
+   }
+
+   public void doResize() {
+      final JFrame window = getWindow();
+      if ( null == window ) {
+         return;
+      }
+      final int width = getInt( "Width?" );
+      if ( -1 == width ) {
+         return;
+      }
+      final int height = getInt( "Height?" );
+      if ( -1 == height ) {
+         return;
+      }
+      window.setBounds ( window.getX(), window.getY(), width, height );
+   }
+
+   private JFrame getWindow() {
+      final JFrame window = ( JFrame ) list.getSelectedItem();
+      if ( null == window ) {
+         JOptionPane.showMessageDialog( this, "Add a window first" );
+      }
+      return window;
+   }
+
+   private int getInt(final String prompt) {
+      final String s = JOptionPane.showInputDialog( prompt );
+      if ( null == s ) {
+         return -1;
+      }
+      try {
+         return Integer.parseInt( s );
+      } catch ( final NumberFormatException x ) {
+         JOptionPane.showMessageDialog( this, "Not a number" );
+         return -1;
+      }
+   }
+}

Task/Window-management/Julia/window-management.julia

@@ -0,0 +1,43 @@
+using Gtk
+
+function controlwindow(win, lab)
+    sleep(4)
+    set_gtk_property!(lab, :label, "Hiding...")
+    sleep(1)
+    println("Hiding widow")
+    set_gtk_property!(win, :visible, false)
+    sleep(5)
+    set_gtk_property!(lab, :label, "Showing...")
+    println("Showing window")
+    set_gtk_property!(win, :visible, true)
+    sleep(5)
+    set_gtk_property!(lab, :label, "Resizing...")
+    println("Resizing window")
+    resize!(win, 300, 300)
+    sleep(4)
+    set_gtk_property!(lab, :label, "Maximizing...")
+    println("Maximizing window")
+    sleep(1)
+    maximize(win)
+    set_gtk_property!(lab, :label, "Closing...")
+    sleep(5)
+    println("Closing window")
+    destroy(win)
+    sleep(2)
+    exit(0)
+end
+
+function runwindow()
+    win = GtkWindow("Window Control Test", 500, 30) |> (GtkFrame() |> (vbox = GtkBox(:v)))
+    lab = GtkLabel("Window under external control")
+    push!(vbox, lab)
+    @async(controlwindow(win, lab))
+
+    cond = Condition()
+    endit(w) = notify(cond)
+    signal_connect(endit, win, :destroy)
+    showall(win)
+    wait(cond)
+end
+
+runwindow()

Task/Window-management/Mathematica/window-management.math

@@ -0,0 +1,7 @@
+nb=NotebookCreate[]; (*Create a window and store in a variable*)
+nb===nb2 (*test for equality with another window object*)
+SetOptions[nb,Visible->False](*Hide*)
+SetOptions[nb,Visible->True](*Show*)
+NotebookClose[nb] (*Close*)
+SetOptions[nb,WindowMargins->{{x,Automatic},{y,Automatic}}](*Move to x,y screen position*)
+SetOptions[nb,WindowSize->{100,100}](*Resize*)

Task/Window-management/Nim/window-management-1.nim

@@ -0,0 +1,85 @@
+import os
+import gintro/[glib, gobject, gtk, gio]
+from gintro/gdk import processAllUpdates
+
+type MyWindow = ref object of ApplicationWindow
+  isShifted: bool
+
+#---------------------------------------------------------------------------------------------------
+
+proc wMaximize(button: Button; window: MyWindow) =
+  window.maximize()
+
+proc wUnmaximize(button: Button; window: MyWindow) =
+  window.unmaximize()
+
+proc wIconify(button: Button; window: MyWindow) =
+  window.iconify()
+
+proc wDeiconify(button: Button; window: MyWindow) =
+  window.deiconify()
+
+proc wHide(button: Button; window: MyWindow) =
+  window.hide()
+  processAllUpdates()
+  os.sleep(2000)
+  window.show()
+
+proc wShow(button: Button; window: MyWindow) =
+  window.show()
+
+proc wMove(button: Button; window: MyWindow) =
+  var x, y: int
+  window.getPosition(x, y)
+  if window.isShifted:
+    window.move(x - 10, y - 10)
+  else:
+    window.move(x + 10, y + 10)
+  window.isShifted = not window.isShifted
+
+proc wQuit(button: Button; window: MyWindow) =
+  window.destroy()
+
+#---------------------------------------------------------------------------------------------------
+
+proc activate(app: Application) =
+  ## Activate the application.
+
+  let window = newApplicationWindow(MyWindow, app)
+  window.setTitle("Window management")
+
+  let stackBox = newBox(Orientation.vertical, 10)
+  stackBox.setHomogeneous(true)
+
+  let
+    bMax = newButton("maximize")
+    bUnmax = newButton("unmaximize")
+    bIcon = newButton("iconize")
+    bDeicon = newButton("deiconize")
+    bHide = newButton("hide")
+    bShow = newButton("show")
+    bMove = newButton("move")
+    bQuit = newButton("Quit")
+
+  for button in [bMax, bUnmax, bIcon, bDeicon, bHide, bShow, bMove, bQuit]:
+    stackBox.add button
+
+  window.setBorderWidth(5)
+  window.add(stackBox)
+
+  discard bMax.connect("clicked", wMaximize, window)
+  discard bUnmax.connect("clicked", wUnmaximize, window)
+  discard bIcon.connect("clicked", wIconify, window)
+  discard bDeicon.connect("clicked", wDeiconify, window)
+  discard bHide.connect("clicked", wHide, window)
+  discard bShow.connect("clicked", wShow, window)
+  discard bMove.connect("clicked", wMove, window)
+  discard bQuit.connect("clicked", wQuit, window)
+
+  window.showAll()
+
+#———————————————————————————————————————————————————————————————————————————————————————————————————
+
+let app = newApplication(Application, "Rosetta.Window.Management")
+discard app.connect("activate", activate)
+discard app.run()

Task/Window-management/Nim/window-management-2.nim

@@ -0,0 +1,76 @@
+import os
+import gdk2, glib2, gtk2
+
+proc thisDestroy(widget: PWidget; data: Pgpointer) {.cdecl.} =
+  main_quit()
+
+proc thisMax(widget: PWidget; data: Pgpointer) {.cdecl.} =
+  widget.get_parent_window().maximize()
+
+proc thisUnmax(widget: PWidget; data: Pgpointer) {.cdecl.} =
+  widget.get_parent_window().unmaximize()
+
+proc thisIcon(widget: PWidget; data: Pgpointer) {.cdecl.} =
+  widget.get_parent_window().iconify()
+
+proc thisDeicon(widget: PWidget; data: Pgpointer) {.cdecl.} =
+  widget.get_parent_window().deiconify()
+
+proc thisHide(widget: PWidget; data: Pgpointer) {.cdecl.} =
+  widget.get_parent_window().hide()
+  window_process_all_updates()
+  sleep(2000)
+  widget.get_parent_window().show()
+
+proc thisShow(widget: PWidget; data: Pgpointer) {.cdecl.} =
+  widget.get_parent_window().show()
+
+var isShifted = false
+
+proc thisMove(widget: PWidget; data: Pgpointer) {.cdecl.} =
+  var x, y: gint
+  widget.get_parent_window().get_position(addr(x), addr(y))
+  if isshifted:
+     widget.get_parent_window().move(x - 10, y - 10)
+  else:
+     widget.get_parent_window().move(x + 10, y + 10)
+  isShifted = not isShifted
+
+
+nim_init()
+let window = window_new(gtk2.WINDOW_TOPLEVEL)
+discard window.allow_grow()
+window.set_title("Window management")
+let
+  stackbox = vbox_new(true, 10)
+  bMax = button_new("maximize")
+  bUnmax = button_new("unmaximize")
+  bIcon = button_new("iconize")
+  bDeicon = button_new("deiconize")
+  bHide = button_new("hide")
+  bShow = button_new("show")
+  bMove = button_new("move")
+  bQuit = button_new("Quit")
+
+stackbox.pack_start(bMax, true, true, 0)
+stackbox.pack_start(bUnmax, true, true, 0)
+stackbox.pack_start(bIcon, true, true, 0)
+stackbox.pack_start(bDeicon, true, true, 0)
+stackbox.pack_start(bHide, true, true, 0)
+stackbox.pack_start(bShow, true, true, 0)
+stackbox.pack_start(bMove, true, true, 0)
+stackbox.pack_start(bQuit, true, true, 0)
+window.set_border_width(5)
+window.add(stackbox)
+
+discard window.signal_connect("destroy", SIGNAL_FUNC(thisDestroy), nil)
+discard bIcon.signal_connect("clicked", SIGNAL_FUNC(thisIcon), nil)
+discard bDeicon.signal_connect("clicked", SIGNAL_FUNC(thisDeicon), nil)
+discard bMax.signal_connect("clicked", SIGNAL_FUNC(thisMax), nil)
+discard bUnmax.signal_connect("clicked", SIGNAL_FUNC(thisUnmax), nil)
+discard bHide.signal_connect("clicked", SIGNAL_FUNC(thisHide), nil)
+discard bShow.signal_connect("clicked", SIGNAL_FUNC(thisShow), nil)
+discard bMove.signal_connect("clicked", SIGNAL_FUNC(thismove), nil)
+discard bQuit.signal_connect("clicked", SIGNAL_FUNC(thisDestroy), nil)
+window.show_all()
+main()

Task/Window-management/Nim/window-management-3.nim

@@ -0,0 +1,68 @@
+import iup
+
+# assumes you have the iup  .dll or .so installed
+
+proc toCB(fp: proc): ICallback =
+   return cast[ICallback](fp)
+
+discard iup.open(nil,nil)
+
+var btnRestore = button("restore","")
+var btnFull = button("Full screen","")
+var btnMin = button("minimize","")
+var btnMax = button("maximize","")
+var btnHide = button("Transparent","")
+#var btnHide = button("Hide (close)","")
+var btnShow = button("Show","")
+
+var hbox = Hbox(btnRestore, btnFull, btnMax, btnMin, btnShow, btnHide, nil)
+setAttribute(hbox,"MARGIN", "10x10")
+setAttribute(hbox,"PADDING", "5x5")
+
+var dlg = Dialog(hbox)
+#SetAttribute(dlg, "SIZE", "100x50")
+
+proc doFull(ih:PIhandle): cint {.cdecl.} =
+    setAttribute(dlg,"FULLSCREEN","YES")
+    return IUP_DEFAULT
+
+proc doMax(ih:PIhandle): cint {.cdecl.} =
+    #setAttribute(dlg,"FULLSCREEN","YES")
+    setAttribute(dlg,"PLACEMENT","MAXIMIZED")
+    # this is a work-around to get the dialog minimised (on win platform)
+    setAttribute(dlg,"VISIBLE","YES")
+    return IUP_DEFAULT
+
+proc doMin(ih:PIhandle): cint {.cdecl.} =
+    setAttribute(dlg,"PLACEMENT","MINIMIZED")
+    # this is a work-around to get the dialog minimised (on win platform)
+    setAttribute(dlg,"VISIBLE","YES")
+    return IUP_DEFAULT
+
+proc doRestore(ih:PIhandle): cint {.cdecl.} =
+    setAttribute(dlg,"OPACITY","255")
+    setAttribute(dlg,"FULLSCREEN","NO")
+    setAttribute(dlg,"PLACEMENT","NORMAL")
+    setAttribute(dlg,"VISIBLE","YES")
+    return IUP_DEFAULT
+
+proc doHide(ih:PIhandle): cint {.cdecl.} =
+    #setAttribute(dlg,"VISIBLE","NO")
+    setAttribute(dlg,"OPACITY","60")
+    return IUP_DEFAULT
+
+proc doShow(ih:PIhandle): cint {.cdecl.} =
+    setAttribute(dlg,"OPACITY","255")
+    setAttribute(dlg,"VISIBLE","YES")
+    return IUP_DEFAULT
+
+discard setCallback(btnRestore,"ACTION", toCB(doRestore))
+discard setCallback(btnFull,"ACTION", toCB(doFull))
+discard setCallback(btnMax,"ACTION", toCB(doMax))
+discard setCallback(btnMin,"ACTION", toCB(doMin))
+discard setCallback(btnShow,"ACTION", toCB(doShow))
+discard setCallback(btnHide,"ACTION", toCB(doHide))
+
+discard dlg.show()
+discard mainloop()
+iup.Close()

Task/Window-management/Oz/window-management.oz

@@ -0,0 +1,88 @@
+declare
+  [QTk] = {Module.link ['x-oz://system/wp/QTk.ozf']}
+
+  %% The messages that can be sent to the windows.
+  WindowActions =
+  [hide show close
+   iconify deiconify
+   maximize restore
+   set(minsize:minsize(width:400 height:400))
+   set(minsize:minsize(width:200 height:200))
+   set(geometry:geometry(x:0 y:0))
+   set(geometry:geometry(x:500 y:500))
+  ]
+
+  %% Two windows, still uninitialized.
+  Windows = windows(window1:_
+                    window2:_)
+
+  fun {CreateWindow}
+     Message = {NewCell WindowActions.1}
+     ReceiverName = {NewCell {Arity Windows}.1}
+     fun {ButtonText}
+        "Send"#"  "#{ValueToString @Message}#"  to  "#@ReceiverName
+     end
+     Button
+     Desc =
+     td(title:"Window Management"
+        lr(listbox(init:{Arity Windows}
+                   glue:nswe
+                   tdscrollbar:true
+                   actionh:proc {$ W}
+                              ReceiverName := {GetSelected W}
+                              {Button set(text:{ButtonText})}
+                           end
+                  )
+           listbox(init:{Map WindowActions ValueToString}
+                   glue:nswe
+                   tdscrollbar:true
+                   actionh:proc {$ A}
+                              Message := {GetSelected A}
+                              {Button set(text:{ButtonText})}
+                           end
+                  )
+           glue:nswe
+          )
+        button(text:{ButtonText}
+               glue:we
+               handle:Button
+               action:proc {$}
+                         {Windows.@ReceiverName @Message}
+                      end
+              )
+       )
+     Window = {Extend {QTk.build Desc}}
+  in
+     {Window show}
+     Window
+  end
+
+  %% Adds two methods to a toplevel instance.
+  %% For maximize and restore we have to interact directly with Tk
+  %% because that functionality is not part of the QTk library.
+  fun {Extend Toplevel}
+     proc {$ A}
+        case A of maximize then
+           {Tk.send wm(state Toplevel zoomed)}
+        [] restore then
+           {Tk.send wm(state Toplevel normal)}
+        else
+           {Toplevel A}
+        end
+     end
+  end
+
+  %% Returns the current entry of a listbox
+  %% as an Oz value.
+  fun {GetSelected LB}
+     Entries = {LB get($)}
+     Index = {LB get(firstselection:$)}
+  in
+     {Compiler.virtualStringToValue {Nth Entries Index}}
+  end
+
+  fun {ValueToString V}
+     {Value.toVirtualString V 100 100}
+  end
+in
+  {Record.forAll Windows CreateWindow}

Task/Window-management/Perl/window-management.pl

@@ -0,0 +1,77 @@
+#!perl
+use strict;
+use warnings;
+use Tk;
+
+my $mw;
+my $win;
+my $lab;
+
+# How to open a window.
+sub openWin {
+	if( $win ) {
+		$win->deiconify;
+		$win->wm('state', 'normal');
+	} else {
+		eval { $win->destroy } if $win;
+		$win = $mw->Toplevel;
+		$win->Label(-text => "This is the window being manipulated")
+			->pack(-fill => 'both', -expand => 1);
+		$lab->configure(-text => "The window object is:\n$win");
+	}
+}
+
+# How to close a window
+sub closeWin {
+	return unless $win;
+	$win->destroy;
+	$lab->configure(-text => '');
+	undef $win;
+}
+
+# How to minimize a window
+sub minimizeWin {
+	return unless $win;
+	$win->iconify;
+}
+
+# How to maximize a window
+sub maximizeWin {
+	return unless $win;
+	$win->wm('state', 'zoomed');
+	eval { $win->wmAttribute(-zoomed => 1) }; # Hack for X11
+}
+
+# How to move a window
+sub moveWin {
+	return unless $win;
+	my ($x, $y) = $win->geometry() =~ /\+(\d+)\+(\d+)\z/ or die;
+	$_ += 10 for $x, $y;
+	$win->geometry("+$x+$y");
+}
+
+# How to resize a window
+sub resizeWin {
+	return unless $win;
+	my ($w, $h) = $win->geometry() =~ /^(\d+)x(\d+)/ or die;
+	$_ += 10 for $w, $h;
+	$win->geometry($w . "x" . $h);
+}
+
+$mw = MainWindow->new;
+for my $label0 ($mw->Label(-text => 'Window handle:')) {
+	$lab = $mw->Label(-text => '');
+	$label0->grid($lab);
+}
+
+my @binit = ('Open/Restore' => \&openWin, Close => \&closeWin,
+	Minimize => \&minimizeWin, Maximize => \&maximizeWin,
+	Move => \&moveWin, Resize => \&resizeWin);
+
+while( my ($text, $callback) = splice @binit, 0, 2 ) {
+	$mw->Button(-text => $text, -command => $callback)->grid('-');
+}
+
+MainLoop();
+
+__END__

Task/Window-management/Phix/window-management.phix

@@ -0,0 +1,74 @@
+-->
+ <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: #004080;">Ihandle</span> <span style="color: #000000;">dlg</span>
+
+ <span style="color: #008080;">function</span> <span style="color: #000000;">doFull</span><span style="color: #0000FF;">(</span><span style="color: #004080;">Ihandle</span> <span style="color: #000080;font-style:italic;">/*ih*/</span><span style="color: #0000FF;">)</span>
+     <span style="color: #7060A8;">IupSetAttribute</span><span style="color: #0000FF;">(</span><span style="color: #000000;">dlg</span><span style="color: #0000FF;">,</span><span style="color: #008000;">"FULLSCREEN"</span><span style="color: #0000FF;">,</span><span style="color: #008000;">"YES"</span><span style="color: #0000FF;">)</span>
+     <span style="color: #008080;">return</span> <span style="color: #004600;">IUP_DEFAULT</span>
+ <span style="color: #008080;">end</span> <span style="color: #008080;">function</span>
+
+ <span style="color: #008080;">function</span> <span style="color: #000000;">doMax</span><span style="color: #0000FF;">(</span><span style="color: #004080;">Ihandle</span> <span style="color: #000080;font-style:italic;">/*ih*/</span><span style="color: #0000FF;">)</span>
+     <span style="color: #7060A8;">IupSetAttribute</span><span style="color: #0000FF;">(</span><span style="color: #000000;">dlg</span><span style="color: #0000FF;">,</span><span style="color: #008000;">"PLACEMENT"</span><span style="color: #0000FF;">,</span><span style="color: #008000;">"MAXIMIZED"</span><span style="color: #0000FF;">)</span>
+     <span style="color: #000080;font-style:italic;">-- this is a work-around to get the dialog minimised (on win platform)</span>
+     <span style="color: #7060A8;">IupSetAttribute</span><span style="color: #0000FF;">(</span><span style="color: #000000;">dlg</span><span style="color: #0000FF;">,</span><span style="color: #008000;">"VISIBLE"</span><span style="color: #0000FF;">,</span><span style="color: #008000;">"YES"</span><span style="color: #0000FF;">)</span>
+     <span style="color: #008080;">return</span> <span style="color: #004600;">IUP_DEFAULT</span>
+ <span style="color: #008080;">end</span> <span style="color: #008080;">function</span>
+
+ <span style="color: #008080;">function</span> <span style="color: #000000;">doMin</span><span style="color: #0000FF;">(</span><span style="color: #004080;">Ihandle</span> <span style="color: #000080;font-style:italic;">/*ih*/</span><span style="color: #0000FF;">)</span>
+     <span style="color: #7060A8;">IupSetAttribute</span><span style="color: #0000FF;">(</span><span style="color: #000000;">dlg</span><span style="color: #0000FF;">,</span><span style="color: #008000;">"PLACEMENT"</span><span style="color: #0000FF;">,</span><span style="color: #008000;">"MINIMIZED"</span><span style="color: #0000FF;">)</span>
+     <span style="color: #000080;font-style:italic;">-- this is a work-around to get the dialog minimised (on win platform)</span>
+     <span style="color: #7060A8;">IupSetAttribute</span><span style="color: #0000FF;">(</span><span style="color: #000000;">dlg</span><span style="color: #0000FF;">,</span><span style="color: #008000;">"VISIBLE"</span><span style="color: #0000FF;">,</span><span style="color: #008000;">"YES"</span><span style="color: #0000FF;">)</span>
+     <span style="color: #008080;">return</span> <span style="color: #004600;">IUP_DEFAULT</span>
+ <span style="color: #008080;">end</span> <span style="color: #008080;">function</span>
+
+ <span style="color: #008080;">function</span> <span style="color: #000000;">doRestore</span><span style="color: #0000FF;">(</span><span style="color: #004080;">Ihandle</span> <span style="color: #000080;font-style:italic;">/*ih*/</span><span style="color: #0000FF;">)</span>
+     <span style="color: #7060A8;">IupSetAttribute</span><span style="color: #0000FF;">(</span><span style="color: #000000;">dlg</span><span style="color: #0000FF;">,</span><span style="color: #008000;">"OPACITY"</span><span style="color: #0000FF;">,</span><span style="color: #008000;">"255"</span><span style="color: #0000FF;">)</span>
+     <span style="color: #7060A8;">IupSetAttribute</span><span style="color: #0000FF;">(</span><span style="color: #000000;">dlg</span><span style="color: #0000FF;">,</span><span style="color: #008000;">"FULLSCREEN"</span><span style="color: #0000FF;">,</span><span style="color: #008000;">"NO"</span><span style="color: #0000FF;">)</span>
+     <span style="color: #7060A8;">IupSetAttribute</span><span style="color: #0000FF;">(</span><span style="color: #000000;">dlg</span><span style="color: #0000FF;">,</span><span style="color: #008000;">"PLACEMENT"</span><span style="color: #0000FF;">,</span><span style="color: #008000;">"NORMAL"</span><span style="color: #0000FF;">)</span>
+     <span style="color: #7060A8;">IupSetAttribute</span><span style="color: #0000FF;">(</span><span style="color: #000000;">dlg</span><span style="color: #0000FF;">,</span><span style="color: #008000;">"VISIBLE"</span><span style="color: #0000FF;">,</span><span style="color: #008000;">"YES"</span><span style="color: #0000FF;">)</span>
+     <span style="color: #008080;">return</span> <span style="color: #004600;">IUP_DEFAULT</span>
+ <span style="color: #008080;">end</span> <span style="color: #008080;">function</span>
+
+ <span style="color: #008080;">function</span> <span style="color: #000000;">doDim</span><span style="color: #0000FF;">(</span><span style="color: #004080;">Ihandle</span> <span style="color: #000080;font-style:italic;">/*ih*/</span><span style="color: #0000FF;">)</span>
+     <span style="color: #7060A8;">IupSetAttribute</span><span style="color: #0000FF;">(</span><span style="color: #000000;">dlg</span><span style="color: #0000FF;">,</span><span style="color: #008000;">"OPACITY"</span><span style="color: #0000FF;">,</span><span style="color: #008000;">"60"</span><span style="color: #0000FF;">)</span>
+     <span style="color: #008080;">return</span> <span style="color: #004600;">IUP_DEFAULT</span>
+ <span style="color: #008080;">end</span> <span style="color: #008080;">function</span>
+
+ <span style="color: #008080;">function</span> <span style="color: #000000;">doShow</span><span style="color: #0000FF;">(</span><span style="color: #004080;">Ihandle</span> <span style="color: #000080;font-style:italic;">/*ih*/</span><span style="color: #0000FF;">)</span>
+     <span style="color: #7060A8;">IupSetAttribute</span><span style="color: #0000FF;">(</span><span style="color: #000000;">dlg</span><span style="color: #0000FF;">,</span><span style="color: #008000;">"OPACITY"</span><span style="color: #0000FF;">,</span><span style="color: #008000;">"255"</span><span style="color: #0000FF;">)</span>
+     <span style="color: #008080;">return</span> <span style="color: #004600;">IUP_DEFAULT</span>
+ <span style="color: #008080;">end</span> <span style="color: #008080;">function</span>
+
+ <span style="color: #008080;">function</span> <span style="color: #000000;">doMove</span><span style="color: #0000FF;">(</span><span style="color: #004080;">Ihandle</span> <span style="color: #000080;font-style:italic;">/*ih*/</span><span style="color: #0000FF;">)</span>
+     <span style="color: #004080;">integer</span> <span style="color: #0000FF;">{</span><span style="color: #000000;">x</span><span style="color: #0000FF;">,</span><span style="color: #000000;">y</span><span style="color: #0000FF;">}</span> <span style="color: #0000FF;">=</span> <span style="color: #7060A8;">IupGetIntInt</span><span style="color: #0000FF;">(</span><span style="color: #000000;">dlg</span><span style="color: #0000FF;">,</span><span style="color: #008000;">"SCREENPOSITION"</span><span style="color: #0000FF;">)</span>
+     <span style="color: #004080;">integer</span> <span style="color: #000000;">shift</span> <span style="color: #0000FF;">=</span> <span style="color: #008080;">iff</span><span style="color: #0000FF;">(</span><span style="color: #7060A8;">IupGetInt</span><span style="color: #0000FF;">(</span><span style="color: #004600;">NULL</span><span style="color: #0000FF;">,</span><span style="color: #008000;">"SHIFTKEY"</span><span style="color: #0000FF;">)?-</span><span style="color: #000000;">10</span><span style="color: #0000FF;">,+</span><span style="color: #000000;">10</span><span style="color: #0000FF;">)</span>
+     <span style="color: #7060A8;">IupShowXY</span><span style="color: #0000FF;">(</span><span style="color: #000000;">dlg</span><span style="color: #0000FF;">,</span><span style="color: #000000;">x</span><span style="color: #0000FF;">+</span><span style="color: #000000;">shift</span><span style="color: #0000FF;">,</span><span style="color: #000000;">y</span><span style="color: #0000FF;">+</span><span style="color: #000000;">shift</span><span style="color: #0000FF;">)</span>
+     <span style="color: #008080;">return</span> <span style="color: #004600;">IUP_DEFAULT</span>
+ <span style="color: #008080;">end</span> <span style="color: #008080;">function</span>
+
+ <span style="color: #008080;">procedure</span> <span style="color: #000000;">main</span><span style="color: #0000FF;">()</span>
+     <span style="color: #7060A8;">IupOpen</span><span style="color: #0000FF;">()</span>
+
+     <span style="color: #004080;">Ihandle</span> <span style="color: #000000;">hbox</span> <span style="color: #0000FF;">=</span> <span style="color: #7060A8;">IupHbox</span><span style="color: #0000FF;">({</span><span style="color: #7060A8;">IupButton</span><span style="color: #0000FF;">(</span><span style="color: #008000;">"restore"</span><span style="color: #0000FF;">,</span>    <span style="color: #7060A8;">Icallback</span><span style="color: #0000FF;">(</span><span style="color: #008000;">"doRestore"</span><span style="color: #0000FF;">)),</span>
+                             <span style="color: #7060A8;">IupButton</span><span style="color: #0000FF;">(</span><span style="color: #008000;">"full screen"</span><span style="color: #0000FF;">,</span><span style="color: #7060A8;">Icallback</span><span style="color: #0000FF;">(</span><span style="color: #008000;">"doFull"</span><span style="color: #0000FF;">)),</span>
+                             <span style="color: #7060A8;">IupButton</span><span style="color: #0000FF;">(</span><span style="color: #008000;">"maximize"</span><span style="color: #0000FF;">,</span>   <span style="color: #7060A8;">Icallback</span><span style="color: #0000FF;">(</span><span style="color: #008000;">"doMax"</span><span style="color: #0000FF;">)),</span>
+                             <span style="color: #7060A8;">IupButton</span><span style="color: #0000FF;">(</span><span style="color: #008000;">"minimize"</span><span style="color: #0000FF;">,</span>   <span style="color: #7060A8;">Icallback</span><span style="color: #0000FF;">(</span><span style="color: #008000;">"doMin"</span><span style="color: #0000FF;">)),</span>
+                             <span style="color: #7060A8;">IupButton</span><span style="color: #0000FF;">(</span><span style="color: #008000;">"dim"</span><span style="color: #0000FF;">,</span>        <span style="color: #7060A8;">Icallback</span><span style="color: #0000FF;">(</span><span style="color: #008000;">"doDim"</span><span style="color: #0000FF;">)),</span>
+                             <span style="color: #7060A8;">IupButton</span><span style="color: #0000FF;">(</span><span style="color: #008000;">"show"</span><span style="color: #0000FF;">,</span>       <span style="color: #7060A8;">Icallback</span><span style="color: #0000FF;">(</span><span style="color: #008000;">"doShow"</span><span style="color: #0000FF;">)),</span>
+                             <span style="color: #7060A8;">IupButton</span><span style="color: #0000FF;">(</span><span style="color: #008000;">"move"</span><span style="color: #0000FF;">,</span>       <span style="color: #7060A8;">Icallback</span><span style="color: #0000FF;">(</span><span style="color: #008000;">"doMove"</span><span style="color: #0000FF;">))})</span>
+     <span style="color: #7060A8;">IupSetAttribute</span><span style="color: #0000FF;">(</span><span style="color: #000000;">hbox</span><span style="color: #0000FF;">,</span><span style="color: #008000;">"MARGIN"</span><span style="color: #0000FF;">,</span> <span style="color: #008000;">"10x10"</span><span style="color: #0000FF;">)</span>
+     <span style="color: #7060A8;">IupSetAttribute</span><span style="color: #0000FF;">(</span><span style="color: #000000;">hbox</span><span style="color: #0000FF;">,</span><span style="color: #008000;">"PADDING"</span><span style="color: #0000FF;">,</span> <span style="color: #008000;">"5x5"</span><span style="color: #0000FF;">)</span>
+
+     <span style="color: #000000;">dlg</span> <span style="color: #0000FF;">=</span> <span style="color: #7060A8;">IupDialog</span><span style="color: #0000FF;">(</span><span style="color: #000000;">hbox</span><span style="color: #0000FF;">)</span>
+     <span style="color: #7060A8;">IupSetAttribute</span><span style="color: #0000FF;">(</span><span style="color: #000000;">dlg</span><span style="color: #0000FF;">,</span><span style="color: #008000;">"OPACITY"</span><span style="color: #0000FF;">,</span><span style="color: #008000;">"255"</span><span style="color: #0000FF;">)</span>
+
+     <span style="color: #7060A8;">IupShowXY</span><span style="color: #0000FF;">(</span><span style="color: #000000;">dlg</span><span style="color: #0000FF;">,</span><span style="color: #004600;">IUP_CENTER</span><span style="color: #0000FF;">,</span><span style="color: #004600;">IUP_CENTER</span><span style="color: #0000FF;">)</span>
+     <span style="color: #008080;">if</span> <span style="color: #7060A8;">platform</span><span style="color: #0000FF;">()!=</span><span style="color: #004600;">JS</span> <span style="color: #008080;">then</span>
+         <span style="color: #7060A8;">IupMainLoop</span><span style="color: #0000FF;">()</span>
+         <span style="color: #7060A8;">IupClose</span><span style="color: #0000FF;">()</span>
+     <span style="color: #008080;">end</span> <span style="color: #008080;">if</span>
+ <span style="color: #008080;">end</span> <span style="color: #008080;">procedure</span>
+ <span style="color: #000000;">main</span><span style="color: #0000FF;">()</span>
+<!--

Task/Window-management/PicoLisp/window-management.l

@@ -0,0 +1,40 @@
+$ ersatz/pil +
+: (setq
+   JFrame         "javax.swing.JFrame"
+   MAXIMIZED_BOTH (java (public JFrame 'MAXIMIZED_BOTH))
+   ICONIFIED      (java (public JFrame 'ICONIFIED))
+   Win            (java JFrame T "Window") )
+-> $JFrame
+
+# Compare for equality
+: (== Win Win)
+-> T
+
+# Set window visible
+(java Win 'setLocation 100 100)
+(java Win 'setSize 400 300)
+(java Win 'setVisible T)
+
+# Hide window
+(java Win 'hide)
+
+# Show again
+(java Win 'setVisible T)
+
+# Move window
+(java Win 'setLocation 200 200)
+
+# Iconify window
+(java Win 'setExtendedState
+   (| (java (java Win 'getExtendedState)) ICONIFIED) )
+
+# De-conify window
+(java Win 'setExtendedState
+   (& (java (java Win 'getExtendedState)) (x| (hex "FFFFFFFF") ICONIFIED)) )
+
+# Maximize window
+(java Win 'setExtendedState
+   (| (java (java Win 'getExtendedState)) MAXIMIZED_BOTH) )
+
+# Close window
+(java Win 'dispose)

Task/Window-management/PureBasic/window-management.basic

@@ -0,0 +1,60 @@
+;- Create a linked list to store created windows.
+NewList Windows()
+Define i, j, dh, dw, flags, err$, x, y
+
+;- Used sub-procedure to simplify the error handling
+Procedure HandleError(Result, Text.s,ErrorLine=0,ExitCode=0)
+  If Not Result
+    MessageRequester("Error",Text)
+    End ExitCode
+  EndIf
+  ProcedureReturn Result
+EndProcedure
+
+;- Window handling procedures
+Procedure Minimize(window)
+  SetWindowState(window,#PB_Window_Minimize)
+EndProcedure
+
+Procedure Normalize(window)
+  SetWindowState(window,#PB_Window_Normal)
+EndProcedure
+
+;- Get enviroment data
+HandleError(ExamineDesktops(),  "Failed to examine you Desktop.")
+dh=HandleError(DesktopHeight(0),"Could not retrieve DesktopHight")/3
+dw=HandleError(DesktopWidth(0), "Could not retrieve DesktopWidth")/3
+
+;- Now, creating 9 windows
+flags=#PB_Window_SystemMenu
+err$="Failed to open Window"
+For i=0 To 8
+  j=HandleError(OpenWindow(#PB_Any,i*10,i*10+30,10,10,Str(i),flags),err$)
+  SmartWindowRefresh(j, 1)
+  AddElement(Windows())
+  Windows()=j
+Next i
+Delay(1000)
+
+;- Call a sub-routine for each Window stored in the list.
+ForEach Windows()
+  Minimize(Windows())
+Next
+Delay(1000)
+;- and again
+ForEach Windows()
+  Normalize(Windows())
+Next
+Delay(1000)
+
+;- Spread them evenly
+ForEach Windows()
+  ResizeWindow(Windows(),x*dw,y*dh,dw-15,dh-35)
+  x+1
+  If x>2
+    x=0: y+1
+  EndIf
+Next
+Delay(2000)
+
+End

Task/Window-management/Python/window-management.py

@@ -0,0 +1,32 @@
+from tkinter import *
+import tkinter.messagebox
+
+def maximise():
+	"""get screenwidth and screenheight, and resize window to that size.
+	Also move to 0,0"""
+	root.geometry("{}x{}+{}+{}".format(root.winfo_screenwidth(), root.winfo_screenheight(), 0, 0))
+	
+def minimise():
+	"""Iconify window to the taskbar. When reopened, the window is
+	unfortunately restored to its original state, NOT its most recent state."""
+	root.iconify()
+	
+def delete():
+	"""create a modal dialog. If answer is "OK", quit the program"""
+	if tkinter.messagebox.askokcancel("OK/Cancel","Are you sure?"):
+		root.quit()
+	
+root = Tk()
+
+mx=Button(root,text="maximise",command=maximise)
+mx.grid()
+mx.bind(maximise)
+
+mn=Button(root,text="minimise",command=minimise)
+mn.grid()
+mn.bind(minimise)
+
+#catch exit events, including "X" on title bar.
+root.protocol("WM_DELETE_WINDOW",delete)
+
+mainloop()

Task/Window-management/Racket/window-management.rkt

@@ -0,0 +1,17 @@
+#lang racket/gui
+
+(define (say . xs) (printf ">>> ~a\n" (apply ~a xs)) (flush-output))
+
+(define frame (new frame% [label "Demo"] [width 400] [height 400]))
+(say "frame = " frame) ; plain value
+
+(say 'Show)     (send frame show #t)      (sleep 1)
+(say 'Hide)     (send frame show #f)      (sleep 1)
+(say 'Show)     (send frame show #t)      (sleep 1)
+(say 'Minimize) (send frame iconize #t)   (sleep 1)
+(say 'Restore)  (send frame iconize #f)   (sleep 1)
+(say 'Maximize) (send frame maximize #t)  (sleep 1)
+(say 'Restore)  (send frame maximize #f)  (sleep 1)
+(say 'Move)     (send frame move 100 100) (sleep 1)
+(say 'Resize)   (send frame resize 100 100) (sleep 1)
+(say 'Close)    (send frame show #f) (sleep 1) ; that's how we close a window

Task/Window-management/Raku/window-management.raku

@@ -0,0 +1,63 @@
+use X11::libxdo;
+
+my $xdo = Xdo.new;
+
+say 'Visible windows:';
+printf "Class: %-21s ID#: %10d  pid: %5d  Name: %s\n", $_<class ID pid name>
+    for $xdo.get-windows.sort(+*.key)».value;
+sleep 2;
+
+my $id = $xdo.get-active-window;
+
+my ($w,  $h ) = $xdo.get-window-size( $id );
+my ($wx, $wy) = $xdo.get-window-location( $id );
+my ($dw, $dh) = $xdo.get-desktop-dimensions( 0 );
+
+$xdo.move-window( $id, 150, 150 );
+
+$xdo.set-window-size( $id, 350, 350, 0 );
+
+sleep .25;
+
+for flat 1 .. $dw - 350, $dw - 350, {$_ - 1} … 1 -> $mx { #
+    my $my = (($mx / $dw * τ).sin * 500).abs.Int;
+    $xdo.move-window( $id, $mx, $my );
+    $xdo.activate-window($id);
+}
+
+sleep .25;
+
+$xdo.move-window( $id, 150, 150 );
+
+my $dx = $dw - 300;
+my $dy = $dh - 300;
+
+$xdo.set-window-size( $id, $dx, $dy, 0 );
+
+sleep .25;
+
+my $s = -1;
+
+loop {
+    $dx += $s * ($dw / 200).ceiling;
+    $dy += $s * ($dh / 200).ceiling;
+    $xdo.set-window-size( $id, $dx, $dy, 0 );
+    $xdo.activate-window($id);
+    sleep .005;
+    $s *= -1 if $dy < 200;
+    last if $dx >= $dw;
+}
+
+sleep .25;
+
+$xdo.set-window-size( $id, $w, $h, 0 );
+$xdo.move-window( $id, $wx, $wy );
+$xdo.activate-window($id);
+
+sleep .25;
+
+$xdo.minimize($id);
+$xdo.activate-window($id);
+sleep 1;
+$xdo.raise-window($id);
+sleep .25;

Task/Window-management/Ring/window-management.ring

@@ -0,0 +1,152 @@
+Load "guilib.ring"
+
+/*
+ +--------------------------------------------------------------------------
+ +        Program Name : ScreenDrawOnReSize.ring
+ +        Date         : 2016.06.16
+ +        Author       : Bert Mariani
+ +        Purpose      : Re-Draw Chart after ReSize or move
+ +--------------------------------------------------------------------------
+*/
+
+
+###-------------------------------
+### DRAW CHART  size 1000 x 1000
+###
+
+###------------------------------
+
+### Window Size
+    WinLeft   = 80                  ### 80    Window position on screen
+    WinTop    = 80                  ### 80    Window position on screen
+    WinWidth  = 1000                ### 1000  Window Size - Horizontal-X WinWidth
+    WinHeight = 750                 ### 750   Window Size - Vertical-Y WinHeight
+    WinRight  = WinLeft + WinWidth  ### 1080
+    WinBottom = WinTop  + WinHeight ### 830
+
+### Label Box Size
+    BoxLeft   = 40                  ###  Start corner   Label1 Box Start Position inside WIN1
+    BoxTop    = 40                  ###  Start corner
+    BoxWidth  = WinWidth  -80       ###  End   corner   Label1 Box Size
+    BoxHeight = WinHeight -80       ###  End   corner
+
+###----------------------------
+
+
+New qapp {
+        win1 = new qwidget() {
+
+                ### Position and Size of WINDOW on the Screen
+                setwindowtitle("DrawChart using QPainter")
+                setgeometry( WinLeft, WinTop, WinWidth, WinHeight)
+
+                win1{ setwindowtitle("Initial Window Position: " +" L " + WinLeft +" T " + WinTop +" Width" + width() +" Height " +  height() ) }
+
+                ### ReSizeEvent ... Call WhereAreWe function
+                myfilter = new qallevents(win1)
+                myfilter.setResizeEvent("WhereAreWe()")
+                installeventfilter(myfilter)
+
+                ### Draw within this BOX
+                label1 = new qlabel(win1) {
+                        setgeometry(BoxLeft, BoxTop, BoxWidth, BoxHeight)
+                        settext("We are Here")
+                }
+
+
+                ### Button Position and Size ... Call DRAW function
+                new qpushbutton(win1) {
+                        setgeometry( 30, 30, 80, 20)
+                        settext("Draw")
+                        setclickevent("Draw()")
+                }
+
+                ###---------------
+
+                show()
+        }
+
+    exec()
+}
+
+
+###-----------------
+### FUNCTION Draw
+###-----------------
+
+Func WhereAreWe
+        Rec = win1.framegeometry()
+
+        WinWidth  = win1.width()            ### 1000 Current Values
+        WinHeight = win1.height()           ### 750
+
+        WinLeft   = Rec.left() +8           ### <<< QT FIX because of Win Title
+        WinTop    = Rec.top()  +30          ### <<< QT FIX because of Win Title
+        WinRight  = Rec.right()
+        WinBottom = Rec.bottom()
+
+        BoxWidth  = WinWidth  -80           ### 950
+        BoxHeight = WinHeight -80           ### 700
+
+        win1{ setwindowtitle("Window ReSize: Win " +  WinWidth + "x" + WinHeight + " --- Box " + BoxWidth  + "x" + BoxHeight  +
+                              " --- LT " +  WinLeft + "-"   + WinTop  + " --- RB " + WinRight + "-" + WinBottom      ) }
+
+        See "We Are Here - setResizeEvent - "
+        See " Win "  + WinWidth  + "x" + WinHeight + " --- Box  "  + BoxWidth + "x" + BoxHeight
+        See " --- LT " + Winleft   + "-"   + WinTop    + " --- RB " + WinRight + "-"   + WinBottom +nl
+
+          win1.setgeometry( WinLeft, WinTop, WinWidth, WinHeight )
+        label1.setgeometry( BoxLeft, BoxTop, BoxWidth, BoxHeight )
+
+
+return
+
+Func Draw
+
+        win1{ setwindowtitle("Draw Position: Win " +  WinWidth + "x" + WinHeight + " --- Box " + BoxWidth  + "x" + BoxHeight  +
+                              " --- LT " +  WinLeft + "-"   + WinTop  + " --- RB " + WinRight + "-" + WinBottom      ) }
+
+        See "Draw Position: " +  WinWidth + "x" + WinHeight + " --- Box " + BoxWidth  + "x" + BoxHeight  +
+                              " --- LT " +  WinLeft + "-"   + WinTop  + " --- RB " + WinRight + "-" + WinBottom  + nl
+
+
+  #     ##-----------------------------
+        ### PEN Colors
+
+        p1 = new qpicture()
+
+            colorBlue = new qcolor() { setrgb(0,    0,255,255) }
+            penBlue   = new qpen() { setcolor(colorBlue)  setwidth(1) }
+
+
+        ###-----------------------
+        ### PAINT the Chart
+
+        new qpainter() {
+                begin(p1)
+                setpen(penBlue)
+
+                ###---------------------
+                ### Draw Line Chart
+
+                drawline(        1 ,         1 , BoxWidth ,         1 )     ### WinTop line horizonal
+                drawline(        1 ,         1 ,        1 , BoxHeight )     ### WinLeft Line vetical
+
+                drawline(        1 , BoxHeight , BoxWidth , BoxHeight )     ### Bottom Line horizontal
+                drawline( BoxWidth ,         1 , BoxWidth , BoxHeight )     ### WinRight Line vertical
+
+                drawline( BoxWidth / 2 ,             1 , BoxWidth / 2 ,   BoxHeight     )    ### Central vertical
+                drawline(            1 , BoxHeight / 2 , BoxWidth     ,   BoxHeight / 2 )    ### Central horizontal
+
+
+                ###--------------------------------------------------
+
+
+                endpaint()
+        }
+
+
+        label1 { setpicture(p1) show() }
+
+return
+###--------------------------------------------

Task/Window-management/Tcl/window-management.tcl

@@ -0,0 +1,62 @@
+package require Tk
+
+# How to open a window
+proc openWin {} {
+    global win
+    if {[info exists win] && [winfo exists $win]} {
+        # Already existing; just reset
+        wm deiconify $win
+        wm state $win normal
+        return
+    }
+    catch {destroy $win} ;# Squelch the old one
+    set win [toplevel .t]
+    pack [label $win.label -text "This is the window being manipulated"] \
+        -fill both -expand 1
+}
+# How to close a window
+proc closeWin {} {
+    global win
+    if {[info exists win] && [winfo exists $win]} {
+        destroy $win
+    }
+}
+# How to minimize a window
+proc minimizeWin {} {
+    global win
+    if {[info exists win] && [winfo exists $win]} {
+        wm state $win iconic
+    }
+}
+# How to maximize a window
+proc maximizeWin {} {
+    global win
+    if {[info exists win] && [winfo exists $win]} {
+        wm state $win zoomed
+        catch {wm attribute $win -zoomed 1} ;# Hack for X11
+    }
+}
+# How to move a window
+proc moveWin {} {
+    global win
+    if {[info exists win] && [winfo exists $win]} {
+        scan [wm geometry $win] "%dx%d+%d+%d" width height x y
+        wm geometry $win +[incr x 10]+[incr y 10]
+    }
+}
+# How to resize a window
+proc resizeWin {} {
+    global win
+    if {[info exists win] && [winfo exists $win]} {
+        scan [wm geometry $win] "%dx%d+%d+%d" width height x y
+        wm geometry $win [incr width 10]x[incr height 10]
+    }
+}
+
+grid [label .l   -text "Window handle:"] [label .l2 -textvariable win]
+grid [button .b1 -text "Open/Reset" -command openWin] -
+grid [button .b2 -text "Close"      -command closeWin] -
+grid [button .b3 -text "Minimize"   -command minimizeWin] -
+grid [button .b4 -text "Maximize"   -command maximizeWin] -
+grid [button .b5 -text "Move"       -command moveWin] -
+grid [button .b6 -text "Resize"     -command resizeWin] -

Task/Window-management/Wren/window-management-1.wren

@@ -0,0 +1,117 @@
+/* window_management.wren */
+
+var GTK_WINDOW_TOPLEVEL = 0
+var GTK_ORIENTATION_VERTICAL = 1
+var GTK_BUTTONBOX_CENTER = 5
+
+foreign class GtkWindow {
+    construct new(type) {}
+
+    foreign title=(title)
+    foreign setDefaultSize(width, height)
+
+    foreign add(widget)
+    foreign connectDestroy()
+
+    foreign showAll()
+    foreign iconify()
+    foreign deiconify()
+    foreign maximize()
+    foreign unmaximize()
+    foreign move(x, y)
+    foreign resize(width, height)
+    foreign hide()
+    foreign destroy()
+}
+
+foreign class GtkButtonBox {
+    construct new(orientation) {}
+
+    foreign spacing=(interval)
+    foreign layout=(layoutStyle)
+
+    foreign add(button)
+}
+
+foreign class GtkButton {
+    construct newWithLabel(label) {}
+
+    foreign connectClicked()
+}
+
+class Gdk {
+    foreign static flush()
+}
+
+class C {
+    foreign static sleep(secs)
+}
+
+var Window = GtkWindow.new(GTK_WINDOW_TOPLEVEL)
+Window.title = "Window management"
+Window.setDefaultSize(400, 400)
+Window.connectDestroy()
+
+class GtkCallbacks {
+    static btnClicked(label) {
+        if (label == "Minimize") {
+            Window.iconify()
+        } else if (label == "Unminimize") {
+            Window.deiconify()
+        } else if (label == "Maximize") {
+            Window.maximize()
+        } else if (label == "Unmaximize") {
+            Window.unmaximize()
+        } else if (label == "Move") {
+            Window.move(0, 0) // move to top left hand corner of display
+        } else if (label == "Resize") {
+            Window.resize(600, 600)
+        } else if (label == "Hide") {
+            Window.hide()
+            Gdk.flush()
+            C.sleep(5) // wait 5 seconds
+            Window.showAll()
+        } else if (label == "Close") {
+            Window.destroy()
+        }
+    }
+}
+
+var buttonBox = GtkButtonBox.new(GTK_ORIENTATION_VERTICAL)
+buttonBox.spacing = 20
+buttonBox.layout = GTK_BUTTONBOX_CENTER
+Window.add(buttonBox)
+
+var btnMin = GtkButton.newWithLabel("Minimize")
+btnMin.connectClicked()
+buttonBox.add(btnMin)
+
+var btnUnmin = GtkButton.newWithLabel("Unminimize")
+btnUnmin.connectClicked()
+buttonBox.add(btnUnmin)
+
+var btnMax = GtkButton.newWithLabel("Maximize")
+btnMax.connectClicked()
+buttonBox.add(btnMax)
+
+var btnUnmax = GtkButton.newWithLabel("Unmaximize")
+btnUnmax.connectClicked()
+buttonBox.add(btnUnmax)
+
+var btnMove = GtkButton.newWithLabel("Move")
+btnMove.connectClicked()
+buttonBox.add(btnMove)
+
+var btnResize = GtkButton.newWithLabel("Resize")
+btnResize.connectClicked()
+buttonBox.add(btnResize)
+
+var btnHide = GtkButton.newWithLabel("Hide")
+btnHide.connectClicked()
+buttonBox.add(btnHide)
+
+var btnClose = GtkButton.newWithLabel("Close")
+btnClose.connectClicked()
+buttonBox.add(btnClose)
+
+Window.showAll()

Task/Window-management/Wren/window-management-2.wren

@@ -0,0 +1,250 @@
+/* gcc `pkg-config --cflags gtk+-3.0` -DGDK_VERSION_MIN_REQIRED=GDK_VERSION_3_2 window_management.c -o window_management `pkg-config --libs gtk+-3.0` -lwren -lm */
+
+#include <stdlib.h>
+#include <stdio.h>
+#include <string.h>
+#include <gtk/gtk.h>
+#include <unistd.h>
+#include "wren.h"
+
+/* C <=> Wren interface functions */
+
+WrenVM *vm;
+
+static void btnClicked(GtkWidget *button, gpointer user_data) {
+    const gchar *label = gtk_button_get_label(GTK_BUTTON(button));
+    wrenEnsureSlots(vm, 2);
+    wrenGetVariable(vm, "main", "GtkCallbacks", 0);
+    WrenHandle *method = wrenMakeCallHandle(vm, "btnClicked(_)");
+    wrenSetSlotString(vm, 1, (const char *)label);
+    wrenCall(vm, method);
+    wrenReleaseHandle(vm, method);
+}
+
+void C_gtkWindowAllocate(WrenVM* vm) {
+    GtkWidget **window = (GtkWidget **)wrenSetSlotNewForeign(vm, 0, 0, sizeof(GtkWidget*));
+    GtkWindowType type = (GtkWindowType)wrenGetSlotDouble(vm, 1);
+    *window = gtk_window_new(type);
+}
+
+void C_gtkButtonBoxAllocate(WrenVM* vm) {
+    GtkWidget **buttonBox = (GtkWidget **)wrenSetSlotNewForeign(vm, 0, 0, sizeof(GtkWidget*));
+    GtkOrientation orientation = (GtkOrientation)wrenGetSlotDouble(vm, 1);
+    *buttonBox = gtk_button_box_new(orientation);
+}
+
+void C_gtkButtonAllocate(WrenVM* vm) {
+    GtkWidget **button = (GtkWidget **)wrenSetSlotNewForeign(vm, 0, 0, sizeof(GtkWidget*));
+    const gchar *label = (const gchar *)wrenGetSlotString(vm, 1);
+    *button = gtk_button_new_with_label(label);
+}
+
+void C_setTitle(WrenVM* vm) {
+    GtkWidget **window = (GtkWidget **)wrenGetSlotForeign(vm, 0);
+    const gchar *title = (const gchar *)wrenGetSlotString(vm, 1);
+    gtk_window_set_title(GTK_WINDOW(*window), title);
+}
+
+void C_setDefaultSize(WrenVM* vm) {
+    GtkWidget **window = (GtkWidget **)wrenGetSlotForeign(vm, 0);
+    gint width = (gint)wrenGetSlotDouble(vm, 1);
+    gint height = (gint)wrenGetSlotDouble(vm, 2);
+    gtk_window_set_default_size(GTK_WINDOW(*window), width, height);
+}
+
+void C_add(WrenVM* vm) {
+    GtkWidget **container = (GtkWidget **)wrenGetSlotForeign(vm, 0);
+    GtkWidget **widget = (GtkWidget **)wrenGetSlotForeign(vm, 1);
+    gtk_container_add(GTK_CONTAINER(*container), *widget);
+}
+
+void C_connectDestroy(WrenVM* vm) {
+    GtkWidget **window = (GtkWidget **)wrenGetSlotForeign(vm, 0);
+    g_signal_connect(*window, "destroy", G_CALLBACK(gtk_main_quit), NULL);
+}
+
+void C_showAll(WrenVM* vm) {
+    GtkWidget **window = (GtkWidget **)wrenGetSlotForeign(vm, 0);
+    gtk_widget_show_all(*window);
+}
+
+void C_iconify(WrenVM* vm) {
+    GtkWidget **window = (GtkWidget **)wrenGetSlotForeign(vm, 0);
+    gtk_window_iconify(GTK_WINDOW(*window));
+}
+
+void C_deiconify(WrenVM* vm) {
+    GtkWidget **window = (GtkWidget **)wrenGetSlotForeign(vm, 0);
+    gtk_window_deiconify(GTK_WINDOW(*window));
+}
+
+void C_maximize(WrenVM* vm) {
+    GtkWidget **window = (GtkWidget **)wrenGetSlotForeign(vm, 0);
+    gtk_window_maximize(GTK_WINDOW(*window));
+}
+
+void C_unmaximize(WrenVM* vm) {
+    GtkWidget **window = (GtkWidget **)wrenGetSlotForeign(vm, 0);
+    gtk_window_unmaximize(GTK_WINDOW(*window));
+}
+
+void C_move(WrenVM* vm) {
+    GtkWidget **window = (GtkWidget **)wrenGetSlotForeign(vm, 0);
+    gint x = (gint)wrenGetSlotDouble(vm, 1);
+    gint y = (gint)wrenGetSlotDouble(vm, 2);
+    gtk_window_move(GTK_WINDOW(*window), x, y);
+}
+
+void C_resize(WrenVM* vm) {
+    GtkWidget **window = (GtkWidget **)wrenGetSlotForeign(vm, 0);
+    gint width  = (gint)wrenGetSlotDouble(vm, 1);
+    gint height = (gint)wrenGetSlotDouble(vm, 2);
+    gtk_window_resize(GTK_WINDOW(*window), width, height);
+}
+
+void C_hide(WrenVM* vm) {
+    GtkWidget **window = (GtkWidget **)wrenGetSlotForeign(vm, 0);
+    gtk_widget_hide(*window);
+}
+
+void C_destroy(WrenVM* vm) {
+    GtkWidget **window = (GtkWidget **)wrenGetSlotForeign(vm, 0);
+    gtk_widget_destroy(*window);
+}
+
+void C_setSpacing(WrenVM* vm) {
+    GtkWidget **buttonBox = (GtkWidget **)wrenGetSlotForeign(vm, 0);
+    gint spacing = (gint)wrenGetSlotDouble(vm, 1);
+    gtk_box_set_spacing(GTK_BOX(*buttonBox), spacing);
+}
+
+void C_setLayout(WrenVM* vm) {
+    GtkWidget **buttonBox = (GtkWidget **)wrenGetSlotForeign(vm, 0);
+    GtkButtonBoxStyle layoutStyle = (GtkButtonBoxStyle)wrenGetSlotDouble(vm, 1);
+    gtk_button_box_set_layout(GTK_BUTTON_BOX(*buttonBox), layoutStyle);
+}
+
+void C_connectClicked(WrenVM* vm) {
+    GtkWidget **button = (GtkWidget **)wrenGetSlotForeign(vm, 0);
+    g_signal_connect(*button, "clicked", G_CALLBACK(btnClicked), NULL);
+}
+
+void C_flush(WrenVM* vm) {
+    gdk_display_flush(gdk_display_get_default());
+}
+
+void C_sleep(WrenVM* vm) {
+    unsigned int secs = (unsigned int)wrenGetSlotDouble(vm, 1);
+    sleep(secs);
+}
+
+WrenForeignClassMethods bindForeignClass(WrenVM* vm, const char* module, const char* className) {
+    WrenForeignClassMethods methods;
+    methods.allocate = NULL;
+    methods.finalize = NULL;
+    if (strcmp(module, "main") == 0) {
+        if (strcmp(className, "GtkWindow") == 0) {
+            methods.allocate = C_gtkWindowAllocate;
+        } else if (strcmp(className, "GtkButtonBox") == 0) {
+            methods.allocate = C_gtkButtonBoxAllocate;
+        } else if (strcmp(className, "GtkButton") == 0) {
+            methods.allocate = C_gtkButtonAllocate;
+        }
+    }
+    return methods;
+}
+
+WrenForeignMethodFn bindForeignMethod(
+    WrenVM* vm,
+    const char* module,
+    const char* className,
+    bool isStatic,
+    const char* signature) {
+    if (strcmp(module, "main") == 0) {
+        if (strcmp(className, "GtkWindow") == 0) {
+            if (!isStatic && strcmp(signature, "title=(_)") == 0)           return C_setTitle;
+            if (!isStatic && strcmp(signature, "setDefaultSize(_,_)") == 0) return C_setDefaultSize;
+            if (!isStatic && strcmp(signature, "add(_)") == 0)              return C_add;
+            if (!isStatic && strcmp(signature, "connectDestroy()") == 0)    return C_connectDestroy;
+            if (!isStatic && strcmp(signature, "showAll()") == 0)           return C_showAll;
+            if (!isStatic && strcmp(signature, "iconify()") == 0)           return C_iconify;
+            if (!isStatic && strcmp(signature, "deiconify()") == 0)         return C_deiconify;
+            if (!isStatic && strcmp(signature, "maximize()") == 0)          return C_maximize;
+            if (!isStatic && strcmp(signature, "unmaximize()") == 0)        return C_unmaximize;
+            if (!isStatic && strcmp(signature, "move(_,_)") == 0)           return C_move;
+            if (!isStatic && strcmp(signature, "resize(_,_)") == 0)         return C_resize;
+            if (!isStatic && strcmp(signature, "hide()") == 0)              return C_hide;
+            if (!isStatic && strcmp(signature, "destroy()") == 0)           return C_destroy;
+        } else if (strcmp(className, "GtkButtonBox") == 0) {
+            if (!isStatic && strcmp(signature, "spacing=(_)") == 0)         return C_setSpacing;
+            if (!isStatic && strcmp(signature, "layout=(_)") == 0)          return C_setLayout;
+            if (!isStatic && strcmp(signature, "add(_)") == 0)              return C_add;
+        } else if (strcmp(className, "GtkButton") == 0) {
+           if (!isStatic && strcmp(signature, "connectClicked()") == 0)     return C_connectClicked;
+        } else if (strcmp(className, "Gdk") == 0) {
+           if (isStatic && strcmp(signature, "flush()") == 0)               return C_flush;
+        } else if (strcmp(className, "C") == 0) {
+           if (isStatic && strcmp(signature, "sleep(_)") == 0)              return C_sleep;
+        }
+    }
+    return NULL;
+}
+
+static void writeFn(WrenVM* vm, const char* text) {
+    printf("%s", text);
+}
+
+void errorFn(WrenVM* vm, WrenErrorType errorType, const char* module, const int line, const char* msg) {
+    switch (errorType) {
+        case WREN_ERROR_COMPILE:
+            printf("[%s line %d] [Error] %s\n", module, line, msg);
+            break;
+        case WREN_ERROR_STACK_TRACE:
+            printf("[%s line %d] in %s\n", module, line, msg);
+            break;
+        case WREN_ERROR_RUNTIME:
+            printf("[Runtime Error] %s\n", msg);
+            break;
+    }
+}
+
+char *readFile(const char *fileName) {
+    FILE *f = fopen(fileName, "r");
+    fseek(f, 0, SEEK_END);
+    long fsize = ftell(f);
+    rewind(f);
+    char *script = malloc(fsize + 1);
+    fread(script, 1, fsize, f);
+    fclose(f);
+    script[fsize] = 0;
+    return script;
+}
+
+int main(int argc, char **argv) {
+    gtk_init(&argc, &argv);
+    WrenConfiguration config;
+    wrenInitConfiguration(&config);
+    config.writeFn = &writeFn;
+    config.errorFn = &errorFn;
+    config.bindForeignClassFn = &bindForeignClass;
+    config.bindForeignMethodFn = &bindForeignMethod;
+    vm = wrenNewVM(&config);
+    const char* module = "main";
+    const char* fileName = "window_management.wren";
+    char *script = readFile(fileName);
+    WrenInterpretResult result = wrenInterpret(vm, module, script);
+    switch (result) {
+        case WREN_RESULT_COMPILE_ERROR:
+            printf("Compile Error!\n");
+            break;
+        case WREN_RESULT_RUNTIME_ERROR:
+            printf("Runtime Error!\n");
+            break;
+        case WREN_RESULT_SUCCESS:
+            break;
+    }
+    gtk_main();
+    wrenFreeVM(vm);
+    free(script);
+    return 0;
+}