subr t3d_filepath_cb
 ;load with the primary path
 ptrace = getenv('ANA_TRACE_HOURLY')
 if ptrace eq '' then ptrace = '/hosts/vestige/archive/sci/trace/tri/'
 ;remove a week part if still present
 iq = strpos(ptrace,'week')
 if iq gt 0 then ptrace = ptrace(0:(iq-1))
 xmtextfieldsetstring,$t3dtext1, ptrace
 $primary = 1
 ;;base_path = ptrace
 endsubr
 ;========================================================