diff --git a/makeTclKit.tcl b/makeTclKit.tcl index 26f3f99..54f72b2 100755 --- a/makeTclKit.tcl +++ b/makeTclKit.tcl @@ -1,7 +1,7 @@ #!/usr/bin/env tclsh #Создан: Ср 29 июн 2011 22:35:00 -#Изменён: Пн 14 апр 2014 22:42:56 +#Изменён: Сб 19 окт 2019 06:04:57 #****F* main/nprs ***************************************************** # @@ -12,16 +12,16 @@ # Copyright (C) 2011-2014, Likhachev Maxim, mail@domain.com # # LICENSE -# +# # This program is free software: you can redistribute it and/or modify it # under the terms of the GNU General Public License as published by the Free # Software Foundation, version 3. -# +# # This program is distributed in the hope that it will be useful, # but WITHOUT ANY WARRANTY; without even the implied warranty of # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the # GNU General Public License for more details. -# +# # You should have received a copy of the GNU General Public License # along with this program. If not, see . # @@ -50,7 +50,7 @@ namespace eval package { proc whereis? {package} { lindex [package ifneeded $package [package require $package]] 1 } - + #Copying package in local directory proc copy {package _to directory} { if {"$package" eq "sqlite3"} { @@ -165,7 +165,7 @@ proc fileNotFound {filetype directory filename} { [string repeat { } [expr $posUI - $posArch - 3]] |" puts " UI [string repeat {-} $posUI]--+\n" puts " All tclkit wrappers can be found on tclkit web page: http://equi4.com/pub/tk/downloads.html\n" - + exit 1 }