Add tasks for all the new languages

Task/GUI-Maximum-window-dimensions/FreeBASIC/gui-maximum-window-dimensions-1.freebasic

@@ -0,0 +1,19 @@
+' FB 1.05.0 Win64
+
+' Using SystemParametersInfo function in Win32 API
+Dim As Any Ptr library = DyLibLoad("user32")
+Dim Shared SystemParametersInfo As Function (ByVal As ULong, ByVal As ULong, ByVal As Any Ptr, ByVal As ULong) As Long
+SystemParametersInfo = DyLibSymbol(library, "SystemParametersInfoA")
+
+Type Rect
+  As Long left, top, right, bottom
+End Type
+
+#Define SPI_GETWORKAREA &H30
+Dim r As Rect
+SystemParametersInfo(SPI_GETWORKAREA, 0, @r, 0)
+DyLibFree(library)
+Print "Maximum usable desktop area :  W" ; r.right - r.left; " x H"; r.bottom - r.top; " pixels"
+Print
+Print "Press any key to quit"
+Sleep

Task/GUI-Maximum-window-dimensions/FreeBASIC/gui-maximum-window-dimensions-2.freebasic

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

Task/GUI-Maximum-window-dimensions/FreeBASIC/gui-maximum-window-dimensions-3.freebasic

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

Task/GUI-Maximum-window-dimensions/FreeBASIC/gui-maximum-window-dimensions-4.freebasic

@@ -0,0 +1,3 @@
+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/Lingo/gui-maximum-window-dimensions.lingo

@@ -0,0 +1,2 @@
+put _system.desktopRectList
+-- [rect(0, 0, 1360, 768), rect(1360, 0, 2960, 1024)]

Task/GUI-Maximum-window-dimensions/Nim/gui-maximum-window-dimensions-1.nim

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

Task/GUI-Maximum-window-dimensions/Nim/gui-maximum-window-dimensions-2.nim

@@ -0,0 +1,22 @@
+import
+  iup
+
+# assumes you have the iup  .dll or .so installed
+
+discard iup.open(nil,nil)
+
+var scrnFullSize = GetGlobal("FULLSIZE")
+var scrnSize = GetGlobal("SCREENSIZE")
+var scrnMInfo = GetGlobal("MONITORSINFO")
+var scrnVScreen = GetGlobal("VIRTUALSCREEN")
+
+var dlg = Dialog(nil)
+SetAttribute(dlg, "SIZE", "FULL")
+var scrnXSize = GetAttribute(dlg,"MAXSIZE")
+
+echo scrnFullSize, "\n", scrnSize, "\n", scrnMInfo, "\n", scrnVScreen, "\n", scrnXSize
+
+discard iup.Alarm("Screen client size", scrnFullSize ,"Ok",nil, nil)
+
+#discard iup.mainloop()
+iup.close()

Task/GUI-Maximum-window-dimensions/Ring/gui-maximum-window-dimensions.ring

@@ -0,0 +1,11 @@
+load "guilib.ring"
+new qApp {
+         win1 = new qWidget() {
+                new qPushButton(win1) {
+                    resize(200,200)
+                    settext("Info")
+                    setclickevent(' win1{ setwindowtitle("Width: " +  width() + " Height : " +  height() ) }')
+                }
+                showMaximized()}
+                exec()
+                }

Task/GUI-Maximum-window-dimensions/Sidef/gui-maximum-window-dimensions.sidef

@@ -0,0 +1,8 @@
+require('Tk')
+
+func max_window_size() -> (Number, Number) {
+    %s'MainWindow'.new.maxsize;
+}
+
+var (width, height) = max_window_size();
+say (width, 'x', height);