;+
;
; @file_comments
;
; @categories
;
; @returns
;
; @uses
;
; @restrictions
;
; @examples
;
; @history
;
; @version
; $Id$
;
; @todo seb
;-
FUNCTION givewindowsize
;
  compile_opt idl2, strictarrsubs
;
@cm_4ps
IF NOT keyword_set(key_forgetold) THEN BEGIN
@updatenew
ENDIF
;------------------------------------------------------------
;
   dimensions = get_screen_size(RESOLUTION=resolution)
   coef = floor(1./resolution[0])
   if NOT keyword_set(windowsize_scale) then BEGIN
     windowsize_scale = 1.
     IF NOT keyword_set(key_forgetold) THEN BEGIN
     @updateold
     ENDIF
   ENDIF
   coef = windowsize_scale * coef
;
    mipgsz = min(page_size, max = mapgsz)
;
    xsize = coef * (mipgsz*key_portrait + mapgsz*(1-key_portrait))
    ysize = coef * (mipgsz*(1-key_portrait) + mapgsz*key_portrait)
;
   return, [xsize, ysize]
end