ltk-user January 2007

ltk-user@common-lisp.net

4 participants
3 discussions

[ltk-user] ltk compile error clisp
by Scott Brown 30 Jan '07

30 Jan '07

Hi, when I try to compile ltk on clisp I get the following error message: Compiling file F:\ltk-0.90\ltk.lisp ... ERROR in WITH-LTK-HANDLERS in lines 427..429 : Constant NIL cannot be bound. ** - Continuable Error LET*: NIL is a constant, may not be used as a variable How can I fix this? Send instant messages to your online friends http://au.messenger.yahoo.com

2 4

[ltk-user] Little patch
by Federico Giraud 09 Jan '07

09 Jan '07

Hi everybody, first of all, sorry for my bad English. I'm a student and I'm trying to use LTK. I have noticed that tags don't work on scroll-text widget. I've copied the functions tag-configure and tag-bind from the text widget to the scroll-text widget, with little modifications. These are the new functions: (defmethod tag-configure ((txt scrolled-text) tag option value) (format-wish "~a tag configure ~a -~(~a~) {~(~a~)}" (widget-path (textbox txt)) (if (stringp tag) tag (format nil "~(~a~)" tag)) option value) txt) (defmethod tag-bind ((txt scrolled-text) tag event fun) "bind fun to event of the tag of the scrolled-text widget txt" (let ((name (create-name))) (add-callback name fun) (format-wish "~a tag bind ~a ~a {callback ~A}" (widget-path (textbox txt)) tag event name) ) txt) I've also moved the generic functions for tag-configure and tag-bind up, before the new functions. Now tags seem to work also on scroll-text widget without warnings (with SBCL). I hope I've helped you in some way. Thanks to Peter for his work! Federico Giraud

1 0

[ltk-user] Bug in choose-directory, get-open-file, get-save-file
by David Holz 07 Jan '07

07 Jan '07

The parameter given to initialdir is surrounded in braces {~a}. On the windows platform, the directory will usually end in a backslash, such as {c:\whatever\} which acts to escape out the close brace. Putting a space after the ~a seems to fix this. Here are my new definitions for those functions, which also flesh out the parameters for get-save-file; I'm not including a diff because I have a number of other changes in there as well. (defun get-open-file (&key (filetypes '(("All Files" "*"))) (initialdir (namestring *default-pathname-defaults*)) multiple parent title initialfile) (let ((files (with-output-to-string (s) (format s "{") (dolist (type filetypes) (let ((name (first type)) (wildcard (second type))) (format s "{{~a} {~a}} " name wildcard))) (format s "}")))) (format-wish "senddatastrings [tk_getOpenFile ~ -filetypes ~a ~@[ -initialdir {~a }~] -multiple ~a ~ ~@[ -parent ~a~] ~@[ -title {~a}~] ~@[ -initialfile {~a }~]]" files initialdir (if multiple 1 0) (and parent (widget-path parent)) title initialfile) (read-data))) (defun get-save-file (&key (filetypes '(("All Files" "*"))) (initialdir (namestring *default-pathname-defaults*)) parent title initialfile) (let ((files (with-output-to-string (s) (format s "{") (dolist (type filetypes) (let ((name (first type)) (wildcard (second type))) (format s "{{~a} {~a}} " name wildcard))) (format s "}")))) (format-wish "senddatastring [tk_getSaveFile ~ -filetypes ~a ~@[ -initialdir {~a }~] ~ ~@[ -parent ~a~] ~@[ -title {~a}~] ~@[ -initialfile {~a }~]]" files initialdir (and parent (widget-path parent)) title initialfile) (read-data))) (defun choose-directory (&key (initialdir (namestring *default-pathname-defaults*)) parent title mustexist) (format-wish "senddatastring [tk_chooseDirectory ~@[ -initialdir {~a }~]~@[ -parent ~a~]~@[ -title {~a}~]~@[ -mustexist ~a~]]" initialdir (and parent (widget-path parent)) title (and mustexist 1)) (read-data)) _________________________________________________________________ Find sales, coupons, and free shipping, all in one place! MSN Shopping Sales & Deals http://shopping.msn.com/content/shp/?ctid=198,ptnrid=176,ptnrdata=200639

1 0

2024

2023

2022

2021

2020

2019

2018

2017

2016

2015

2014

2013

2012

2011

2010

2009

2008

2007

2006

2005

2004

ltk-user January 2007