From mboxrd@z Thu Jan  1 00:00:00 1970
Return-Path: <Shakirov@cg.ru>
X-Spam-Checker-Version: SpamAssassin 3.2.5 (2008-06-10) on sa.int.altlinux.org
X-Spam-Level: 
X-Spam-Status: No, score=-2.2 required=5.0 tests=AWL,BAYES_00,SPF_PASS
	autolearn=ham version=3.2.5
Message-ID: <4FACD02F.6050307@cg.ru>
Date: Fri, 11 May 2012 12:39:11 +0400
From: Lenar Shakirov <shakirov@cg.ru>
User-Agent: Mozilla/5.0 (X11; U; Linux i686; ru;
	rv:1.9.1.5) Gecko/20091204 Thunderbird/3.0
MIME-Version: 1.0
To: ALT Linux Team development discussions <devel@lists.altlinux.org>
References: <20120511043856.GT30123@osdn.org.ua>
In-Reply-To: <20120511043856.GT30123@osdn.org.ua>
Content-Type: text/plain; charset=UTF-8; format=flowed
Content-Transfer-Encoding: 8bit
X-OriginalArrivalTime: 11 May 2012 08:39:10.0999 (UTC)
	FILETIME=[8989FA70:01CD2F51]
Subject: Re: [devel] =?utf-8?b?W2FsdGVyYXRvcl0g0YHQuNC90YXRgNC+0L3QvdC+0YE=?=
 =?utf-8?b?0YLRjCBhY3Rpdml0eQ==?=
X-BeenThere: devel@lists.altlinux.org
X-Mailman-Version: 2.1.12
Precedence: list
Reply-To: ALT Linux Team development discussions <devel@lists.altlinux.org>
List-Id: ALT Linux Team development discussions <devel.lists.altlinux.org>
List-Unsubscribe: <https://lists.altlinux.org/mailman/options/devel>,
	<mailto:devel-request@lists.altlinux.org?subject=unsubscribe>
List-Archive: <http://lists.altlinux.org/pipermail/devel>
List-Post: <mailto:devel@lists.altlinux.org>
List-Help: <mailto:devel-request@lists.altlinux.org?subject=help>
List-Subscribe: <https://lists.altlinux.org/mailman/listinfo/devel>,
	<mailto:devel-request@lists.altlinux.org?subject=subscribe>
X-List-Received-Date: Fri, 11 May 2012 08:39:17 -0000
Archived-At: <http://lore.altlinux.org/devel/4FACD02F.6050307@cg.ru/>
List-Archive: <http://lore.altlinux.org/devel/>
List-Post: <mailto:devel@altlinux.org>

11.05.2012 08:38, Michael Shigorin пишет:
> 	Здравствуйте.
> Помогите сняться с ручника:
>
> (extra-button (when clicked
>                  (begin
>                    (format #t "HERE1\n")
>                    (extra-button activity #f)
>                    (form-update-activity '("extra-button") #f)
>                    (format #t "HERE2\n")
>                    (commit-interface)
>                    (format #t "HERE3\n")
>                    )))
>
> Кнопка деактивируется уже после возврата commit-interface,
> которое представляет из себя ходока в бэкенд:
>
> (define (commit-interface)
>    (catch/message
>      (lambda()
>        (woo-write "/backend" 'var (form-value "var")))))
>
> Т.е. в выводе наблюдаю:
>
> HERE1
> HERE2
> [выполнение команд бэкендом]
> HERE3
>
> ...и при этом на HERE2 extra-button нажимабельная,
> а после HERE3 -- уже нет.
>

Воспроизводится на p6 и branch 4.0.


-- 
С уважением, инженер отдела ИИС ООО «Центр»
Шакиров Ленар Наилевич
shakirov@cg.ru
(843) 533-88-14

Российская Федерация
Казань, ул. Зинина, 3а
420029, а/я 81

http://www.cg.ru/