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