September 2017 Update

Task/GUI-Maximum-window-dimensions/EGL/gui-maximum-window-dimensions-1.egl

@@ -1,5 +0,0 @@
-browser Browser{};
-bvh int = browser.getViewportHeight();
-bvw int = browser.getViewportWidth();
-SysLib.writeStdout("ViewportHeight: " + bvh);
-SysLib.writeStdout("ViewportWidth: " + bvw);

Task/GUI-Maximum-window-dimensions/EGL/gui-maximum-window-dimensions-2.egl

@@ -1,2 +0,0 @@
-FMain.Maximized = True
-FMain.Visible = False    ' The form can be invisible

Task/GUI-Maximum-window-dimensions/EGL/gui-maximum-window-dimensions-3.egl

@@ -1,7 +0,0 @@
-PUBLIC SUB _new()
-
-END
-
-PUBLIC SUB Form_Open()
-
-END

Task/GUI-Maximum-window-dimensions/EGL/gui-maximum-window-dimensions-4.egl

@@ -1,3 +0,0 @@
-PUBLIC SUB Form_Resize()
-  PRINT "The maximum window size that can be used without scrolling is "; FMain.Width; " x "; FMain.Height
-END

Task/GUI-Maximum-window-dimensions/FBSL/gui-maximum-window-dimensions-3.fbsl

@@ -1,2 +0,0 @@
-FMain.Maximized = True
-FMain.Visible = False    ' The form can be invisible

Task/GUI-Maximum-window-dimensions/FBSL/gui-maximum-window-dimensions-4.fbsl

@@ -1,7 +0,0 @@
-PUBLIC SUB _new()
-
-END
-
-PUBLIC SUB Form_Open()
-
-END

Task/GUI-Maximum-window-dimensions/FBSL/gui-maximum-window-dimensions-5.fbsl

@@ -1,3 +0,0 @@
-PUBLIC SUB Form_Resize()
-  PRINT "The maximum window size that can be used without scrolling is "; FMain.Width; " x "; FMain.Height
-END

Task/GUI-Maximum-window-dimensions/Gambas/gui-maximum-window-dimensions.gambas

@@ -0,0 +1,6 @@
+Public Sub Form_Open()
+
+Print Desktop.Width
+Print Desktop.Height
+
+End

Task/GUI-Maximum-window-dimensions/IWBASIC/gui-maximum-window-dimensions.iwbasic

@@ -0,0 +1,35 @@
+DEF Win:WINDOW
+DEF Close:CHAR
+
+DEF ScreenSizeX,ScreenSizeY:UINT
+DEF L,T,ClientWidth,ClientHeight:INT
+
+GETSCREENSIZE(ScreenSizeX,ScreenSizeY)
+
+OPENWINDOW Win,0,0,ScreenSizeX,ScreenSizeY,@MAXBOX|@MINBOX|@SIZE|@MAXIMIZED,NULL,"Get client area",&MainHandler
+
+'Left and top are always zero for this function.
+GETCLIENTSIZE (Win,L,T,ClientWidth,ClientHeight)
+
+PRINT Win,"Maximum drawing area values: width is"+STR$(ClientWidth)+" and height is"+STR$(ClientHeight)+"."
+
+WAITUNTIL Close=1
+
+CLOSEWINDOW WIN
+
+END
+
+SUB MainHandler
+
+	SELECT @MESSAGE
+
+	CASE @IDCLOSEWINDOW
+
+	Close=1
+
+	ENDSELECT
+
+RETURN
+ENDSUB
+
+Output: Maximum drawing area values: width is 1280 and height is 749.

Task/GUI-Maximum-window-dimensions/Kotlin/gui-maximum-window-dimensions.kotlin

@@ -0,0 +1,24 @@
+// version 1.1
+
+import java.awt.Toolkit
+import javax.swing.JFrame
+
+class Test : JFrame() {
+    init {
+        val r = Regex("""\[.*\]""")
+        val toolkit = Toolkit.getDefaultToolkit()
+        val screenSize = toolkit.screenSize
+        println("Physical screen size : ${formatOutput(screenSize, r)}")
+        val insets = toolkit.getScreenInsets(graphicsConfiguration)
+        println("Insets               : ${formatOutput(insets, r)}")
+        screenSize.width  -= (insets.left + insets.right)
+        screenSize.height -= (insets.top + insets.bottom)
+        println("Max available        : ${formatOutput(screenSize, r)}")
+    }
+
+    private fun formatOutput(output: Any, r: Regex) = r.find(output.toString())!!.value.replace(",", ", ")
+}
+
+fun main(args: Array<String>) {
+    Test()
+}

Task/GUI-Maximum-window-dimensions/Nimrod/gui-maximum-window-dimensions.nimrod

@@ -1,7 +0,0 @@
-import
-  gtk2, gdk2
-
-nimrod_init()
-var w = gdk2.screen_width()
-var h = gdk2.screen_height()
-echo("WxH=",w,"x",h)

Task/GUI-Maximum-window-dimensions/Phix/gui-maximum-window-dimensions.phix

@@ -0,0 +1,15 @@
+include pGUI.e
+
+IupOpen()
+
+string scrnFullSize = IupGetGlobal("FULLSIZE")
+string scrnSize = IupGetGlobal("SCREENSIZE")
+string scrnMInfo = IupGetGlobal("MONITORSINFO")
+string scrnVScreen = IupGetGlobal("VIRTUALSCREEN")
+
+Ihandle dlg = IupDialog(NULL,"SIZE=FULL")
+string scrnXSize = IupGetAttribute(dlg,"MAXSIZE")
+
+?{scrnFullSize, scrnSize, scrnMInfo, scrnVScreen, scrnXSize}
+
+IupClose()

Task/GUI-Maximum-window-dimensions/Python/gui-maximum-window-dimensions.py

@@ -0,0 +1,10 @@
+#!/usr/bin/env python3
+
+import tkinter as tk # import the module.
+
+root = tk.Tk() # Create an instance of the class.
+root.state('zoomed') # Maximized the window.
+root.update_idletasks() # Update the display.
+tk.Label(root, text=(str(root.winfo_width())+ " x " +str(root.winfo_height())),
+         font=("Helvetica", 25)).pack() # add a label and set the size to text.
+root.mainloop()