load.tcl

来自「卫星仿真软件 卫星仿真软件 卫星仿真软件」· TCL 代码 · 共 37 行

#
######################################################
#
#  SaVi by Robert Thurman ([e-mail]) and
#          Patrick Worfolk ([e-mail]).
#
#  Copyright (c) 1997 by The Geometry Center.
#  This file is part of SaVi.  SaVi is free software;
#  you can redistribute it and/or modify it only under
#  the terms given in the file COPYRIGHT which you should
#  have received along with this file.  SaVi may be
#  obtained from:
#  http://savi.sourceforge.net/
#  http://www.geom.uiuc.edu/locate/SaVi
#
######################################################
#
# load.tcl
#
# $Id: load.tcl,v 1.7 2005/02/04 17:58:51 lloydwood Exp $

proc load(build) {} {

    set types {
        {"SaVi simulation scripts"  {.tcl} }
        {"Two-line element sets" {.tle} }
    }

    set filename [tk_getOpenFile -filetypes $types \
	          -parent .main -title "SaVi: load satellites" ]

    if {"$filename" == ""} return

    main(load_file) "$filename"

}