October 2009 - ltk-user - mailman3.common-lisp.net

[ltk-user] :textvariable
by pedro.kroger＠gmail.com 02 Nov '09

02 Nov '09

Hi, I get an error if I try to use a :textvariable in a label: (with-ltk () (let ((foo "")) (make-instance 'label :textvariable foo))) Invalid initialization argument: :TEXTVARIABLE In fact, when I expand the code to create a label class in ltk.lisp I see that there's no :textvariable key: (defwidget label (tktextvariable widget) () "label") And the textvariable that is being generated is text_<value of :text>. Any chance this can be fixed in the next release? Cheers, Pedro

2 4

[ltk-user] manual source code
by pedro.kroger＠gmail.com 02 Nov '09

02 Nov '09

Hi, I'd like to know if the latex source of the manual is available somewhere. I want to generate an one-page-only html. Cheers, Pedro

2 4

[ltk-user] image create photo -file ...
by Daniel Herring 01 Nov '09

01 Nov '09

I am using the attached patch to read images from gif files. Later, Daniel

2 1

[ltk-user] small patch: listbox-delete
by pedro.kroger＠gmail.com 01 Nov '09

01 Nov '09

Hi, The following patch implements a method for deleting elements in a listbox. Pedro

2 1

[ltk-user] tiny patch: initial dir in choose-directory
by pedro.kroger＠gmail.com 01 Nov '09

01 Nov '09

Hi, There's an extra space in choose-directory that confuses tk. The attached patch fixes it. Pedro

2 1

[ltk-user] Multiple canvas controlled by 1 scrollbar
by Wesley Kerr 15 Oct '09

15 Oct '09

Is there any way to set the commands so that I can control multiple canvases with a single scrollbar? I'm trying to hack together a solution using scale objects right now and it's proving kind of difficult. I'm not sure how to set the translate of the canvas without a scroll bar. Thanks Wes -- Wesley Kerr Graduate Research Assistant Department of Computer Science University of Arizona website: http://www.cs.arizona.edu/~wkerr

2 1

[ltk-user] Toplevel Question
by Wesley Kerr 15 Oct '09

15 Oct '09

I think that this is a simple question, but I can't figure out how to find a handle for the top-level that is automatically created when we call (start-wish). Is there a way to get it so that I can set the title and do other fun stuff with it? Here is some code that shows what I want to do: (defun data-mining-gui () (with-ltk () (let* ((top-frame (make-instance 'frame :pack '(:side :top :expand t :fill :x :anchor :ne))) (bload (make-instance 'button :master top-frame :text "Load..." :command 'data-mining-gui-load-file)) (bottom-frame (make-instance 'frame :pack '(:side :bottom :expand t :fill :x :anchor :se) :borderwidth 2 :relief :raised)) (label (make-instance 'label :master bottom-frame :text "Active:")) (lfile (make-instance 'label :master bottom-frame :text "")) (sc (make-instance 'scrolled-canvas :pack '(:side :top :fill :both :expand t :anchor :ne) :width 600 :height 600)) (canvas (canvas sc)) ) (pack (list bload label lfile) :side :left) (make-menubar) ;;; I want to set the title of the window to "Data Mining" but can't figure out where the handle is. ;(wm-title nil "Data Mining") (setf *canvas* canvas) (setf *file-label* lfile) )) )) Thanks Wes -- Wesley Kerr Graduate Research Assistant Department of Computer Science University of Arizona website: http://www.cs.arizona.edu/~wkerr

2 1

[ltk-user] Small Bug
by Wesley Kerr 15 Oct '09

15 Oct '09

I'm beginning to fall in love with this library. Thanks so much. I am using Allegro modern lisp and there are two small issues that I've encountered. (defun error-popup (message title icon &key (allow-yesno-p t)) (ecase (message-box message title (if (and allow-yesno-p (find-restart 'continue)) "yesno" "ok") icon) (:YES (continue)) ((:ok :NO) (abort)))) (defun debug-popup (condition title) (ecase (message-box (format nil "~A~%~%Do you wish to invoke the debugger?" condition) title "yesno" "question") (:YES (cond (*debugger-hook* (let ((hook *debugger-hook*) (*debugger-hook* nil)) (funcall hook condition hook))) (t (invoke-debugger condition)))) (:NO (abort)))) The keywords :YES and :NO used to be lower case and the message box is returning them as capitols. Only an issue because modern cares about case sensitive. I made the simple change locally and it works, but I thought I would pass it on. -- Wesley Kerr Graduate Research Assistant Department of Computer Science University of Arizona website: http://www.cs.arizona.edu/~wkerr

2 1