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

[ltk-user] Runtime Library and Gestalt Items
by Daniel Herring 07 Nov '09

07 Nov '09

I just saw these posted on usenet. They appear to be another set of "megawidgets", now with LTK bindings. http://coding.derkeiler.com/Archive/Lisp/comp.lang.lisp/2009-11/msg00208.ht… Or go directly to the project and lisp docs at http://gestaltitems.sourceforge.net/ http://gestaltitems.sourceforge.net/lisp/index.html Later, Daniel

1 0

[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

[ltk-user] The cutting edge at http://ltk.rplay.net/svn/branches/ltk/repl/
by Jussi Salmela 27 Jul '09

27 Jul '09

My environment: Windows Vista, Tcl/Tk 8.5.7.0 and Clozure Common Lisp Version 1.3-r11936 (WindowsX8632). I took a look at the forthcoming version of LTK at the address above. I understand that this is work-in-progress and that some of my observations may be the result of how Windows or Tk behaves so that nothing can be done. I also know almost nothing of Tk, very little of LTK and Lisp are a bit rusty, so bear with me... 1. tktable.lisp When I did (compile-file "tktable") I got the following warning: ; In an anonymous lambda form at position 2382: Initarg :ROWS occurs in both ROWS and COLS slots I guess this is a valid error message and the code should be corrected like this (the original row is commented out): (defclass scrolled-table (frame) ((table :accessor table) (hscroll :accessor hscroll) (vscroll :accessor vscroll) (rows :accessor rows :initarg :rows :initform nil) ;(cols :accessor cols :initarg :rows :initform nil) (cols :accessor cols :initarg :cols :initform nil) (titlerows :accessor titlerows :initarg :titlerows :initform nil) (titlecols :accessor titlecols :initarg :titlecols :initform nil) (data :accessor data :initarg :data :initform nil) )) When I run (tabletest) I get a neat-looking table with 200 rows and 40 columns. The cells have light-gray (?) background and the foreground color is black (?). Very clear, no strain to the eye. But when I click a cell with the mouse, the background first changes to blue(?) then changes back to the original light-gray (?) and the foreground color changes to white (?). This combination of colors makes it very hard to see what the cell contents are. Scrolling by dragging the thumbs OK. Vertical scroll with either PgDn-key or by clicking the vertical scroll area below the thumb brings new rows into view but leaves one row out. The reason (as an example) is this: when the table is at first displayed it shows the first 34 rows in whole and a tiny slice of the 35th row also. The system "thinks" that the row 35 was shown although it was not wholly visible and starts showing the next rows from the 36th row onward. If I squeeze the tiny slice out by diminishing the window height a little the vertical scroll starts to function correctly. It would be nice if Ltk or Tk could squeeze the slice out instead. Still on the vertical scroll: If in the starting view (i.e. the rows 1-34 showing) I click the cell of (row 9, col 5), for instance, to get it focused and then do a vertical scroll of one pagefull and scroll back (PgDn and PgUp, for instance), the focus (i.e. the text caret) is in the cell (row 1, col 1) and the cell (row 9, col 5) is displayed with a blue background. 2. ltk.lisp THE TEST i.e. (ltktest) OK as far as I understand. The Tk styles for Windows (winnative, xpnative) work beautifully. As the program starts the default selection of the radio button is on and the theme is xpnative as it should be on Vista. If, however, I choose another theme and then select the default again, the theme is not xpnative but Motif I think. EDIT: It later occurred to me that maybe "default" here means "Tk default" and not "Windows XP/Vista default" but still the behavior is not consistent. (ltkeyes) OK. All other tests except defwidget-test work. Running (defwidget-test) gives the error msg "Class named TW not found.". 3. ltk-tile.lisp Running (tile-test) gives several times the error 'Tcl/Tk error: invalid command name "style" '. After adding "ttk::" to the beginning of "style" like this: (defun theme-names () (send-wish "senddatastrings [ttk::style theme names]") (ltk::read-data)) (defun use-theme(name) (format-wish "ttk::style theme use ~a" name)) the program runs OK except that it has the same problem with the default theme as ltktest above. 4. ltk-mw.lisp Compiling gives: ((SETF DATA) :AFTER (T LIST-SELECT)): Unused lexical variable VAL Apparently it concerns the last method in the list-select box widget: (defmethod (setf data) :after (val (select list-select)) (listbox-clear select) (listbox-append select (mapcar (lambda (item) (list-select-display select item)) (data select)))) The test (tooltip-test) functions, sort-of. The tooltip is shown but at the screen position (0,0)! While debugging by spreading prints around I by accident discovered a silly way of correcting the behavior. This is how the last lines of the tooltip method show look like now when it is operating correctly: (when (and txt (> (length txt) 0)) (setf (text (tooltip-label tooltip)) txt) ;(print (geometry tooltip )) (set-geometry-xy tooltip (truncate x) (truncate y)) ;(print (geometry tooltip )) (geometry tooltip ) (normalize tooltip) ;(print (geometry tooltip )) (raise tooltip)))) So the extra call to geometry does the trick and naturally I have no idea what is going on here. Running (gtree-demo) produces errors about :borderwidth and height in: (defmethod gtree-render-node ((d gtree-demo) node ) (make-instance 'label :master d :text node :borderwidth 3 :relief :raised :background :grey :height 1 :width 10)) After the removal of these the run succeeds. Rest of the demos OK. Jussi Salmela

2 1