'---------------------------------------------------------------------
'SCRIPT:    avu-AppSizeFix
'PROJECT:   gavos.apr, avcsus
'DATE:      10-26-95
'AUTHOR:    John Ganter, Sandia National Labs, jganter@sandia.gov
'DESC:      AV has a "virtual Application window," so if
'           a Project is saved at a resolution of
'           1280x1024, then opened at 640x480, the user will
'           see the top left 640x480 pixels of the desktop.
'           This script detects and fixes an oversized or
'           undersized ArcView application.
'
'CALLED BY: typically a startup script
'CALL AS:   av.Run("avu-AppSizeFix", nil)
'ACCEPTS:   nil = any difference in sizes will be fixed
'           "tolerance" integer = if smaller or larger
'                by this amount, will be fixed
'RETURNS:   action on App window
'CALLS TO:  <nothing>
'ENHANCE:   could go through all the docWins and resize them
'              proportionally
''''2----------------------------------------------------------------

'get argument
  if (SELF = nil) then
    numTol = 0
  else
    numTol = SELF
  end

'get size of the video display

  ptExtent = System.ReturnScreenSizePixels
  dispWi = ptExtent.GetX
  dispHi = ptExtent.GetY

'get size of the AV application

  ptExtent = av.ReturnExtent
  appWi = ptExtent.GetX
  appHi = ptExtent.GetY
 
'check for oversize app
  
  if ( ((appWi - dispWi).Abs > numTol) or ((appHi - dispHi).Abs > numTol) ) then
    av.Move(0,0)
    av.Resize(dispWi, dispHi)
    
    'this removes the border in Windows
    'av.Maximize 
  
  end

'----end of script---------------------------------------------------