/* Full syntax: Get_CardWindowCoordinates ( object; param ) Purpose: Calculates the parameter for a new CARD window based on an object underneath. Parameters: object = string to define the objectname param = "H", "W", "T", "L" to define which parameter should be calculated Example: Get_CardWindowCoordinates ( "CardWindowFrame"; H" ) Notes: Used to position a window according to its use. Autor: Egbert A. Friedrich, herrfriedrich.com Sources: ============================================*/ Let ( [ sourceheight = Get ( WindowHeight ); sourcewidth = Get ( WindowWidth ); sourcetop = Get ( WindowTop ); sourceleft = Get ( WindowLeft ); contheight = Get ( WindowContentHeight ); oheight = GetLayoutObjectAttribute ( object; "height" ); owidth = GetLayoutObjectAttribute ( object; "width" ); otop = GetLayoutObjectAttribute ( object; "top" ); oleft = GetLayoutObjectAttribute ( object; "left" ) ]; Case ( param = "H"; oheight; param = "W"; owidth; param = "T"; otop + oheight - sourcetop - ( sourceheight - contheight ); param = "L"; oleft - sourceleft; ) )