00001 #!wish8.5
00002
00003 # TKE - Advanced Programmer's Editor
00004 # Copyright (C) 2014-2019 Trevor Williams (phase1geo@gmail.com)
00005 #
00006 # This program is free software; you can redistribute it and/or modify
00007 # it under the terms of the GNU General Public License as published by
00008 # the Free Software Foundation; either version 2 of the License, or
00009 # (at your option) any later version.
00010 #
00011 # This program is distributed in the hope that it will be useful,
00012 # but WITHOUT ANY WARRANTY; without even the implied warranty of
00013 # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
00014 # GNU General Public License for more details.
00015 #
00016 # You should have received a copy of the GNU General Public License along
00017 # with this program; if not, write to the Free Software Foundation, Inc.,
00018 # 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA.
00019
00020 ######################################################################
00021 # Name: restart.tcl
00022 # Author: Trevor Williams (phase1geo@gmail.com)
00023 # Date: 5/14/2013
00024 # Brief: Restarts tke.
00025 ######################################################################
00026
00027 # Send a signal to the exist application (if it exists) to exit
00028 catch { send tke.tcl handle_signal }
00029
00030 # Start a new tke session with the given arguments
00031 exec {*}$argv &
00032
00033 # Exit
00034 exit
