From mboxrd@z Thu Jan  1 00:00:00 1970
Return-Path: <cetus@newmail.ru>
Message-ID: <4279DF08.9050501@newmail.ru>
Date: Thu, 05 May 2005 12:53:28 +0400
From: =?KOI8-R?Q?=22=E1=2E=EB=C9=D4=C1=CA=CB=C9=CE=22?= <cetus@newmail.ru>
User-Agent: Mozilla/5.0 (X11; U; Linux i686; ru-RU; rv:1.7.2) Gecko/20040808
X-Accept-Language: ru-ru, ru
MIME-Version: 1.0
To: community@altlinux.ru
X-Enigmail-Version: 0.85.0.0
X-Enigmail-Supports: pgp-inline, pgp-mime
Content-Type: text/plain; charset=KOI8-R; format=flowed
Content-Transfer-Encoding: 8bit
Subject: [Comm] =?koi8-r?b?98/Q0s/TINrOwdTPy8HNIFRjbC9Uaw==?=
X-BeenThere: community@altlinux.ru
X-Mailman-Version: 2.1.5
Precedence: list
Reply-To: community@altlinux.ru
List-Id: Mailing list for ALT Linux users <community.altlinux.ru>
List-Unsubscribe: <https://lists.altlinux.ru/mailman/listinfo/community>,
	<mailto:community-request@altlinux.ru?subject=unsubscribe>
List-Archive: <http://lists.altlinux.ru/pipermail/community>
List-Post: <mailto:community@altlinux.ru>
List-Help: <mailto:community-request@altlinux.ru?subject=help>
List-Subscribe: <https://lists.altlinux.ru/mailman/listinfo/community>,
	<mailto:community-request@altlinux.ru?subject=subscribe>
X-List-Received-Date: Thu, 05 May 2005 08:53:29 -0000
Archived-At: <http://lore.altlinux.org/community/4279DF08.9050501@newmail.ru/>
List-Archive: <http://lore.altlinux.org/community/>
List-Post: <mailto:mandrake-russian@linuxteam.iplabs.ru>

    Уважаемые знатоки!

А не подскажет ли кто, что могло сломаться или поменяться в Tcl/Tk
где-то между Master 2.0  и Master 2.2?

Поясню суть вопроса: есть скрипт, который работает в Spring 2001 и
Master 2.0. Под Master 2.2/2.4 для запуска скрипта требуется внесение
исправлений, без которых он вываливается с ошибками. В основном
это замена двойных кавычек на фигурные скобки:

-       catch "$le subwidget entry insert 0 [set ::$varname]"
+       catch {$le subwidget entry insert 0 [set ::$varname]}

-        foreach v [getopt $varname] "$le appendhistory $v"
+        foreach v [getopt $varname] {$le appendhistory $v}

Здесь не понравились скобки квадратные:

-    if {[catch [set variable_props($varname)]]==0} {
+    if {[catch {set variable_props($varname)}]==0} {

Из беглого взгляда в доку по Tcl/Tk я сделал единственный вывод:
конструкции до и после исправления эквивалентны. Однако результат
зависит. Измененная версия работает везде.

Есть ли основания пинать разработчиков скрипта?



                С уважением, Анатолий Китайкин.