From mboxrd@z Thu Jan  1 00:00:00 1970
Return-Path: <mike@fly.osdn.org.ua>
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.6 required=5.0 tests=BAYES_00 autolearn=ham
	version=3.2.5
Date: Fri, 11 May 2012 07:38:56 +0300
From: Michael Shigorin <mike@osdn.org.ua>
To: devel@lists.altlinux.org
Message-ID: <20120511043856.GT30123@osdn.org.ua>
Mail-Followup-To: devel@lists.altlinux.org
Mime-Version: 1.0
Content-Type: text/plain; charset=koi8-r
Content-Disposition: inline
Content-Transfer-Encoding: 8bit
User-Agent: Mutt/1.4.2.1i
Subject: [devel] =?koi8-r?b?W2FsdGVyYXRvcl0g08nOyNLPzs7P09TYIGFjdGl2aXR5?=
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 04:39:01 -0000
Archived-At: <http://lore.altlinux.org/devel/20120511043856.GT30123@osdn.org.ua/>
List-Archive: <http://lore.altlinux.org/devel/>
List-Post: <mailto:devel@altlinux.org>

	Здравствуйте.
Помогите сняться с ручника:

(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 -- уже нет.

-- 
 ---- WBR, Michael Shigorin <mike@altlinux.ru>
  ------ Linux.Kiev http://www.linux.kiev.ua/