
(** User Mathematica initialization file **)

(** Decide how to display graphics on this machine **)

Begin["System`Private`"]
(* Hide any symbols which are created *)

Which[
        $Remote || $ParentLink =!= Null,               <<"PSDirect.m",
        Environment["DISPLAY"]        =!= $Failed,     <<"Motif.m",
        $SystemID == "NeXT",                           <<"NeXT.m",
        $SystemID == "NeXT-Intel",                     <<"NeXT.m",
        $SystemID == "NeXT-HP",                        <<"NeXT.m",
        $SystemID == "NeXT-SPARC",                     <<"NeXT.m",
        True,                                          <<"Terminal.m"
     ]

End[]

