pro IDL_postop_win

@compile_opt.pro		; On error, return to caller

;+
; NAME:
;	IDL_postop_win
; PURPOSE:
;	Executed during startup after the IDL path has been established.
; CATEGORY:
;	startup
; CALLING SEQUENCE:
;	IDL_postop_win
; CALLS:
;	CheckDir, Reset_Colors, set_page
; PROCEDURE:
;	Sets defaults for foreground and background color.
;	Initializes printer (with set_page).
;	Moves to working directory
;-

;=========================================
; Define plot devices

ThePrinter = 'PRINTER'

set_page, /printer, /setup_only, /silent

reset_colors

;=========================================
; Remaining environment variables

;root = getenv('DAT')
;setenv, 'IMAGES='			+filepath(root=root, 'lasco')
;setenv, 'MONTHLY_IMAGES='	+filepath(root=root, 'lasco')

user = getenv('USERDOMAIN')
print, user
case user of
'ABPC'	 : user = 'abuffington'
'BJPC'	 : user = 'bjackson'
'CASS187': user = 'phick'
else	 : user = ''
endcase

;=========================================
; Move to the final working directory (this doesn't seem to work on NT)

if checkdir(filepath(root=getenv('SMEI'), subdir='user', user), current, /stay) then begin
	current = expand_path('+'+current)
	if current ne '' then !path = !path+';'+current
endif

return  &  end