ltk-user December 2010

ltk-user@common-lisp.net

3 participants
2 discussions

[ltk-user] How can I read data from extension of some tk library?
by Pocket 24 Dec '10

24 Dec '10

Hello, I love to use Ltk. So I want to write some extension for tk library. I read Ltk source code. And I learned how to write Ltk extension. But, I cant find way to read data from *wish*, which returned by some command sended to *wish*. I find some function to read value in ltk.lisp (read-data) but this function isn't exported. So please tell me how to read data from *wish* in extension library of Ltk. -------------------------------------- Get the new Internet Explorer 8 optimized for Yahoo! JAPAN http://pr.mail.yahoo.co.jp/ie8/

2 1

[ltk-user] listbox updates from separate thread
by Kevin Raison 14 Dec '10

14 Dec '10

I have a listbox that needs to be updated periodically by a separate thread. However, I am having trouble figuring out how to make that happen. This code fails with a stream error, probably because the wish stream is not accessible to the spawned thread: (ltk:with-ltk (:debug 3) (let* ((update-threads nil) (f (make-instance 'ltk:frame)) (m1 (ltk:make-menubar)) (mf (ltk:make-menu m1 "File")) (call-queue-listbox (make-instance 'ltk:listbox :name "call_q" :master f :width 30 :height 12)) (exit-fn #'(lambda () (setq *shutdown-gui* t) (dolist (thread update-threads) (join-thread thread)) (setq update-threads nil) (setf ltk:*exit-mainloop* t))) (mf-exit (ltk:make-menubutton mf "Quit" exit-fn))) (ltk:pack f) (ltk:grid call-queue-listbox 0 0) (ltk:bind ltk:*tk* "<Alt-q>" (lambda (event) (declare (ignore event)) (funcall exit-fn))) (push (make-thread #'(lambda () (loop until *shutdown-gui* do (ltk:listbox-clear call-queue-listbox) (dotimes (i (random 10)) (ltk:listbox-append call-queue-listbox (format nil "call ~A in queue" i))) (sleep 1)))) update-threads))) Can someone show me the correct ltk idiom for this? Thanks! -Kevin

2 2

2024

2023

2022

2021

2020

2019

2018

2017

2016

2015

2014

2013

2012

2011

2010

2009

2008

2007

2006

2005

2004

ltk-user December 2010