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

[ltk-user] notebook
by Isaiah Gilliland 14 Oct '10

14 Oct '10

Just wondering if there was any plans to support notebooks in ltk. I want to have tabs to edit multiple files and such. If not is there a work around anyone knows about, or a quick create thing like scrolled-text? Take care

1 0

[ltk-user] Mysterious breakage
by Theam Yong Chew 05 Oct '10

05 Oct '10

Hi list, I recently made the eerie discovery that all my programs that use Ltk have suddenly stopped working under Windows. I've been a happy user of Ltk for many years. It has always worked flawlessly on all platforms for me, and indeed, on my Linux box, it has continued to work very well. There has been no changes in my program, wish.exe or in my computer (except for maybe auto-updates?). The recent problems vary slightly in their symptoms, so here's a try at accurately describing some scenarios: On first trying to show a window by, eg (with-ltk () (show-main)) or (ltk-eyes), my Lisp (clisp-2.48, which is single threaded) blocks as it should, and 1. on one windows XP SP3 box, a window appears normally. However, mousing over the window causes the mouse cursor to turn into the hour-glass symbol, and the window becomes unresponsive (though I can minimize/restore it, it does not "redisplay"). 2. on another windows XP SP3 box, no window appears. In both cases, breaking on the clisp REPL (C-c) causes an Error dialog box to pop up: "Win32 error 0 (ERROR_SUCCERSS): The operation completed successfully. Do you wish to invoke the debugger?" Upon invoking the debugger, everything seems normal to me, since we are supposed to be blocking on read-preserving-whitespace: <1/255> #<SYSTEM-FUNCTION SHOW-STACK> 3 <2/248> #<COMPILED-FUNCTION SYSTEM::PRINT-BACKTRACE> <3/242> #<COMPILED-FUNCTION SYSTEM::DEBUG-BACKTRACE> <4/233> #<SYSTEM-FUNCTION SYSTEM::READ-EVAL-PRINT> 2 <5/230> #<COMPILED-FUNCTION SYSTEM::BREAK-LOOP-2-3> <6/226> #<SYSTEM-FUNCTION SYSTEM::SAME-ENV-AS> 2 <7/212> #<COMPILED-FUNCTION SYSTEM::BREAK-LOOP-2> <8/210> #<SYSTEM-FUNCTION SYSTEM::DRIVER> <9/170> #<COMPILED-FUNCTION SYSTEM::BREAK-LOOP> <10/167> #<SYSTEM-FUNCTION INVOKE-DEBUGGER> <11/164> #<COMPILED-FUNCTION LTK::DEBUG-POPUP> <12/161> #<COMPILED-FUNCTION LTK::DEBUG-ERROR> <13/157> #<COMPILED-FUNCTION LTK::MAKE-CONDITION-HANDLER-FUNCTION-1-1> <14/152> #<SYSTEM-FUNCTION SIGNAL> 1 <15/124> #<SYSTEM-FUNCTION READ-PRESERVING-WHITESPACE> <16/119> #<COMPILED-FUNCTION LTK:READ-EVENT> <17/116> #<COMPILED-FUNCTION LTK::MAIN-ITERATION-PROC-EVENT> <18/103> #<COMPILED-FUNCTION LTK::MAIN-ITERATION> <19/101> #<COMPILED-FUNCTION LTK::MAINLOOP-1> <20/99> #<COMPILED-FUNCTION LTK::MAKE-CONDITION-HANDLER-FUNCTION-1-1-5> <21/88> #<COMPILED-FUNCTION LTK::MAKE-CONDITION-HANDLER-FUNCTION-1-1> <22/85> #<COMPILED-FUNCTION LTK::COMPUTE-CALL-WITH-DEBUGGER-HOOK-USE-DEFAULT-DEBUGGER> ...etc Alternatively, clicking "No" (don't invoke debugger) returns me to the first screen and everything works normally again (so break & continue is a kludgy way to get this working, at least on the computers I've seen). Another alternative (for windows box 1 above) is to not BREAK in clisp, but to close it forcibly, whereupon the Tk window stops hanging/freezing. Of course, any attempt to use it (button clicks) result in this error dialog box (cannot communicate to non-existent Lisp): Application Error: "Error: error writing "stdout": broken pipe" Clicking to show more details gives: error writing "stdout": broken pipe error writing "stdout": broken pipe while executing "puts "(:callback \"$s\")"" (procedure "callback" line 1) invoked from within "callback w6" invoked from within ".w2.w3.w5.w6 invoke" ("uplevel" body line 1) invoked from within "uplevel #0 [list $w invoke]" (procedure "tk::ButtonUp" line 24) invoked from within "tk::ButtonUp .w2.w3.w5.w6" (command bound to event) Though pointless, it does what I expected, so I'm just providing the above for reference. I've also tried out the repl branch here: http://ltk.rplay.net/svn/branches/ltk/repl/ltk.lisp [Sidenote: I pushed :tk84 onto *features*, and consequently had to make some patches (treeview not defined under #+tk84). Do you think the patch shows the right way to go about this? I also noticed that the newer Ttk buttons take vastly different (DEFARGS type) arguments. Of interest to me specifically, :is font no longer supported under the Ttk "branch"?] The patched repl branch works on windows box 2, but showed no improvement (same behaviour) on windows box 1. It has been very confusing having the carpet yanked out from under me after using Ltk (albeit casually, on and off) for so many years. My best guess at the moment is that it is something in the latest Windows upgrade has broken the pipe between Lisp and wish. I intend to investigate piping functionality some more later. I will also need to debug this on another computer later, so who knows what other behaviour I'll see. Has anyone else experienced any trouble similar to this? I'll probably also be trying out this suggestion (I don't understand what it does) for windows box 1. http://common-lisp.net/pipermail/ltk-user/2010-February/000712.html Daniel mentioned earlier in that thread that there have been lots of issues reported on XP, but I've always been under the impression that Ltk is solid for Windows. Have I been mistaken? Any other suggestions (both quick hacks and permanent fixes) for how to go about this? Yong.

4 7

[ltk-user] Saving entry content to file
by Louis A. Turk 03 Sep '10

03 Sep '10

Hi Peter Herth and everyone else, I'm rather new to Lisp and to LTK, but learning steadily. I'm stuck with a problem. I've successfully used ltk to create a form, but don't know how to save the data entered into the form to my database. I suspect that my problem is improperly supplying the data from the entry widget to the store-save-rec function (see line 279 below). But I may just have something else fundamentally wrong. Would someone please tell me what I'm doing wrong, and how to fix it? I'm using ltk 0.91 Thanks in advance! Lou PS Also, how do I clear all the fields in preparation for entering another record of data? ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;;; DICTIONARY AND INTERLINEAR MAKER ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; (in-package :lat-il) ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;;; Definations for the dictionary code. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; (defvar *recs* (make-array 100 :adjustable t :fill-pointer 0) "A vector of dictionary records.") (defvar *index-numbers* (make-hash-table :test #'equal) "The dictionary index numbers.") (defvar *greek-words* (make-hash-table :test #'equal) "Greek words") (defstruct (rec (:print-function (lambda (rec stream depth) (declare (ignore depth)) (format stream "#S(REC ~% INDEX ~S ~% FREQ ~S ~% STRONG ~S ~% PART ~S ~% INFLEXION ~S ~% BWROOT ~S ~% ROOT ~S ~% BWGRKL ~S ~% GREEK ~S ~% INDO ~S ~% ENG ~S ~% ARTI ~S ~% DEFIN ~S) ~%" (rec-index rec) (rec-freq rec) (rec-strong rec) (rec-part rec) (rec-inflexion rec) (rec-bwroot rec) (rec-root rec) (rec-bwgrkl rec) (rec-greek rec) (rec-indo rec) (rec-eng rec) (rec-arti rec) (rec-defin rec))))) index freq strong part inflexion bwroot root bwgrkl greek indo eng arti defin) (defun store-rec (index freq strong part inflexion bwroot root bwgrkl greek indo eng arti defin) "Stores a record into the dictionary in memory." (let ((new-rec (make-rec :index index :freq freq :strong strong :part part :inflexion inflexion :bwroot bwroot :root root :bwgrkl bwgrkl :greek greek :indo indo :eng eng :arti arti :defin defin))) (vector-push-extend new-rec *recs*) (push new-rec (gethash index *index-numbers*)) (push new-rec (gethash greek *greek-words*)) new-rec)) ;;; Macro to make the input output functions (defmacro def-i/o (writer-name reader-name (&rest vars)) (let ((file-name (gensym)) (var (gensym)) (stream (gensym))) `(progn (defun ,writer-name (,file-name) (with-open-file (,stream ,file-name :external-format :utf-8 :direction :output :if-exists :supersede) (dolist (,var (list ,@vars)) (declare (special ,@vars)) (print ,var ,stream)))) (defun ,reader-name (,file-name) (with-open-file (,stream ,file-name :external-format :utf-8 :direction :input :if-does-not-exist nil) (dolist (,var ',vars) (set ,var (read ,stream))))) t))) ;;; Expand the above macro for use. (def-i/o save-recs load-recs (*recs* *index-numbers* *greek-words*)) (defun store-save-rec (index freq strong part inflexion bwroot root bwgrkl greek indo eng arti defin) (store-rec index freq strong part inflexion bwroot root bwgrkl greek indo eng arti defin) (save-recs "/home/lat/l/i/dict-data.txt")) (defun get-rec (index) "Returns a dictionary record given its index number, or NIL if no such record." (aref *recs* index)) (defun del-rec (index) "Deletes a record, returning T; else NIL if no such record." (let ((rec (get-rec index))) (when rec (setf (gethash (rec-greek rec) *greek-words*) (delete rec (gethash (rec-greek rec) *greek-words*))) (setf (aref *recs* index) nil) t))) (defun list-all-recs () "List all records in dictionary." (coerce *recs* 'list)) ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;;; Definations for the interlinear code ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;; Unicode return-string-length function (calls zpb-ttf ) (defvar *box-deminsions* 0) (defvar font-used "/var/lib/defoma/x-ttcidfont-conf.d/dirs/TrueType/Times_New_Roman.ttf") (defun return-str-len (str font-used) (setf *box-deminsions* (string-bounding-box str (open-font-loader font-used))) (aref *box-deminsions* 2)) ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;;; Defination for the ltk gui loop ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; (defun il-gui () (setf *debug-tk* t) (with-ltk () (let* ((f (make-instance 'frame :background "blue")) (name (make-instance 'label :text "Interl Maker" :width 10 :foreground "black" :background "red" :master f)) (ver (make-instance 'label :text "Version 5.0" :width 20 :foreground "red" :background "black" :master f)) (index-l (make-instance 'label :text "Index#:" :width 10 :background "yellow" :master f)) (index (make-instance 'entry :width 20 :background "white" :master f)) (freq-l (make-instance 'label :text "Freq:" :width 10 :background "yellow" :master f)) (freq (make-instance 'entry :width 20 :background "white" :master f)) (strong-l (make-instance 'label :text "Strong#:" :width 10 :background "yellow" :master f)) (strong (make-instance 'entry :width 20 :background "white" :master f)) (part-l (make-instance 'label :text "Part:" :width 10 :background "yellow" :master f)) (part (make-instance 'entry :width 20 :background "white" :master f)) (inflexion-l (make-instance 'label :text "Inflexion:" :width 10 :background "yellow" :master f)) (inflexion (make-instance 'entry :width 20 :background "white" :master f)) (bwroot-l (make-instance 'label :text "BW-Root:" :width 10 :background "yellow" :master f)) (bwroot (make-instance 'entry :width 20 :background "white" :master f)) (root-l (make-instance 'label :text "Root:" :width 10 :background "yellow" :master f)) (root (make-instance 'entry :width 20 :background "white" :master f)) (bwgrkl-l (make-instance 'label :text "BWGrkL:" :width 10 :background "yellow" :master f)) (bwgrkl (make-instance 'entry :width 20 :background "white" :master f)) (greek-l (make-instance 'label :text "Greek:" :width 10 :background "yellow" :master f)) (greek (make-instance 'entry :width 20 :background "white" :master f)) (indo-l (make-instance 'label :text "Indonesian:" :width 10 :background "yellow" :master f)) (indo (make-instance 'entry :width 20 :background "white" :master f)) (eng-l (make-instance 'label :text "English:" :width 10 :background "yellow" :master f)) (eng (make-instance 'entry :width 20 :background "white" :master f)) (f2 (make-instance 'frame :background "blue")) (arti-l (make-instance 'label :text "Arti:" :width 127 :background "yellow" :master f2)) (arti (make-instance 'text :height 10 :width 127 :background "white" :master f2)) (defin-l (make-instance 'label :text "Defination:" :width 127 :background "yellow" :master f2)) (defin (make-instance 'text :height 10 :width 127 :background "white" :master f2)) (lines-l (make-instance 'label :text "Resultant Lines:" :width 127 :background "yellow" :master f2)) (lines (make-instance 'text :height 20 :width 127 :background "white" :master f2)) (save-b (make-instance 'button :text "Save" :width 127 :background "green" :master f2 :command (store-save-rec ;line 279 index freq strong part inflexion bwroot root bwgrkl greek indo eng arti defin))) (clear-b (make-instance 'button :text "Clear" :master f2 :width 127 :background "red" :master f2 :command (lambda () (format t "Hi."))))) (grid f 0 0) (grid name 1 0) (grid ver 1 1) (grid index-l 1 2) (grid index 1 3) (grid freq-l 1 4) (grid freq 1 5) (grid strong-l 1 6) (grid strong 1 7) (grid part-l 2 0) (grid part 2 1) (grid inflexion-l 2 2) (grid inflexion 2 3) (grid bwroot-l 2 4) (grid bwroot 2 5) (grid root-l 2 6) (grid root 2 7) (grid bwgrkl-l 3 0) (grid bwgrkl 3 1) (grid greek-l 3 2) (grid greek 3 3) (grid indo-l 3 4) (grid indo 3 5) (grid eng-l 3 6) (grid eng 3 7) (grid f2 4 0) (grid arti-l 5 0) (grid arti 6 0) (grid defin-l 7 0) (grid defin 8 0) (grid lines-l 9 0) (grid lines 10 0) (grid save-b 11 0) (grid clear-b 13 0) (configure f :wm-title "Interlinear Maker Version 5.0") (configure f :borderwidth 10)))) ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;;; Run the program ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;(load-recs "/home/lat/lisp/il-s/dict-data.txt") (il-gui) ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;;; END OF PROGRAM ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

3 3

[ltk-user] treeview improvements
by Daniel Herring 28 Jun '10

28 Jun '10

Please consider the attached patch; it contains a few fixes. The attached filetree.lisp is another example of using a treeview. Later, Daniel

1 0

[ltk-user] [patch] improved font support
by Daniel Herring 13 Jun '10

13 Jun '10

Resending. ---------- Forwarded message ---------- Date: Sun, 25 Apr 2010 00:16:26 -0400 (EDT) The attached patch was developed on http://ltk.rplay.net/svn/branches/ltk/repl revision 224 It adds a few useful commands for manipulating fonts. http://www.tcl.tk/man/tcl8.5/TkCmd/font.htm Example: (font-create :bignum :family :courier :size 30 :weight :bold :slant :italic :underline :true :overstrike :true) (configure some-canvas-text :font :bignum) Later, Daniel

1 0

[ltk-user] Getting up and running problem on W32 + sbcl
by Evans H Winner III 22 May '10

22 May '10

Hi. I have successfully gotten ltk's test programs and hello programs (from the manual) working on an MS Windows XP system using slime and clisp. On the same system, however, I am running into a problem with the Windows port of sbcl. I am not sure if this is expected or not, and I am at a loss about how to debug the problem, just getting started with it as I am. The debugger output from slime is below (with some Windows ^M linebreaks edited out). The wish shell does appear, and a graphical debugger window appears asking if I "wish to invoke the debugger" appears. Interestingly, if I set *break-on-signals* to t, the result is that it breaks earlier, telling me that there is no package :fly. I don't know if this is relevant... looking at the code it looks like it shouldn't be asking about that unless swank isn't loaded -- which it is. Anyway, perhaps the nature of the problem will be obvious to one of you. (lisp-implementation-version) => 1.0.37. It was 1.0.32, but I tried upgrading to the latest before asking here. Thanks for any pointers. --Evans (FORMATTER grid ~a -row ~a -column ~a~@[ -columnspan ~a~]~@[ -ipadx ~a~]~ ~@[ -ipady ~a~]~@[ -padx ~a~]~@[ -pady ~a~]~@[ -rowspan ~a~]~ ~@[ -sticky ~(~a~)~]) Compile-time error: (in macroexpansion of (FORMATTER "grid ~a -row ~a -column ~a~@[ -columnspan ~a~]~@[ -ipadx ~a~]~ ~@[ -ipady ~a~]~@[ -padx ~a~]~@[ -pady ~a~]~@[ -rowspan ~a~]~ ~@[ -sticky ~(~a~)~]")) (hint: For more precise location, try *BREAK-ON-SIGNALS*.) error in FORMAT: unknown directive (character: Return) grid ~a -row ~a -column ~a~@[ -columnspan ~a~]~@[ -ipadx ~a~]~ ~@[ -ipady ~a~]~@[ -padx ~a~]~@[ -pady ~a~]~@[ -rowspan ~a~]~ ~@[ -sticky ~(~a~)~] ^ [Condition of type SB-INT:COMPILED-PROGRAM-ERROR]

2 2

[ltk-user] sudoku
by Daniel Herring 26 Apr '10

26 Apr '10

I took a few hours this weekend to write yet another sudoku gui. Why? Because the world doesn't have enough implementations. Temporary home is http://libcl.com/tmp/sudoku.lisp A bit rough, but not bad. (load "ltk") (load "sudoku") (sudoku::render) Then open the file menu and select "Generate board". Left click numbers to select them, right click to hide. File->Check board will red flag any squares which are incorrect. Later, Daniel

1 0

[ltk-user] [patch] improved font support
by Daniel Herring 25 Apr '10

25 Apr '10

The attached patch was developed on http://ltk.rplay.net/svn/branches/ltk/repl revision 224 It adds a few useful commands for manipulating fonts. http://www.tcl.tk/man/tcl8.5/TkCmd/font.htm Example: (font-create :bignum :family :courier :size 30 :weight :bold :slant :italic :underline :true :overstrike :true) (configure some-canvas-text :font :bignum) Later, Daniel

1 0

[ltk-user] ltk-tile make-instance 'button :command
by Everett Fuller 19 Apr '10

19 Apr '10

Hello ltk-users After looking at gtk, qt, and other widget tool kits, from my noob perspective, ltk-tile looked the most promising (even I might be able to do it!) for creating guis with native look and feel. Hats off to Mr. Herth in extreme thanks for his work. However, I am finding scanty documentation on ltk-tile, and have been mostly relying on the ltk-tile.lisp file to try and figure out it's syntax. , In the example function (tile-test), though creating a window with a label, an entry, and a button, the button doesn't do anything. I am hereby pasting in the code of two separate files. The first one successfully uses ltk to create a frame with a button in it that outputs "Hello!" to the console when the button is clicked. The second file tries to do the same thing, only using ltk-tile instead, but it is unsuccessful at outputing anything to the console. Because I am new to lisp, I still sometimes separate and indent the parentheses to help me visually comprehend what is inside of what. Here is code of first file: *;; making a button in ltk that outputs "Hello" to the console when clicked ; load dependent systems (load "/usr/local/lisp/systems/ltk/ltk") (in-package :ltk) ; define function (defun hellobutton () (with-ltk () (let* ( (f (make-instance 'frame)) (b (make-instance 'button :master f :text "hellobutton" :command (lambda () (format t "~%~THello!~%")))) ) (pack f) (pack b) (mainloop) ))) ; use function (hellobutton) * The above worked!!! But when I try it with ltk-tile it doesn't work. Here is the ltk-tile code that is trying to do same thing: *;; trying to make a button with ltk-tile that outputs "Hello" to the console when clicked ; load dependent systems (load "/usr/local/lisp/systems/ltk/ltk") (load "/usr/local/lisp/systems/ltk/ltk-tile") (in-package :ltk-tile) ; define function (defun hellobutton () (activate-tile) (with-ltk () (let* ( (f (make-instance 'frame)) (b (make-instance 'button :master f :text "hellobutton" :command (lambda () (format t "~%~THello!~%")))) ) (pack f) (pack b) (dolist (theme (theme-names)) (make-menubutton mtheme theme (lambda() (use-theme theme)))) (mainloop) ))) ; use function (hellobutton) * Unfortunately I am new to lisp, tcl, tk, and gui programming in general. Any links to additional examples or tutorials on ltk-tile would be appreciated. I am happy to buy books too, so long as they cover ltk-tile. Thanks in advance, --Slac-in-the-box (p.s. I've started my 12-year-old on lisp, and he has already made a text game in the fashioned after bsd-games "adventure" and he squeals with excitement (same joyous sounds he makes on the way to visit other kids) whenever he gets something to work! He is only a day or two behind on learning ltk and is asking questions for which I haven't any answers. Thus, the pressure is on for me to find answers!)

2 4

[ltk-user] misprint in comment
by Johan Ur Riise 09 Apr '10

09 Apr '10

--- ltk.lisp.old 2010-04-10 01:17:39.000000000 +0200 +++ ltk.lisp 2010-04-10 01:18:18.000000000 +0200 @@ -19,7 +19,7 @@ |# #| -All tk commads as of version 8.4 with support information. "-" means not +All tk commands as of version 8.4 with support information. "-" means not supported by purpose (look comment), "x" means supported, though some options may not be supported.

1 0

Re: [ltk-user] fix for ltk on mswin?
by dherring＠tentpost.com 21 Feb '10

21 Feb '10

Hi Peter, Thanks for getting back to LTK. > Hmm, Windows is strange :). But your explanation is the best I have heard for the windows problems so far... so I added > > #+mswindows (sleep 1) > > The waiting for a prompt has only one problem - tcl doesn't send a prompt > when run as a subprocess. I've poked at this a bit more; the sleep doesn't fix all my problems. It appears that incomplete commands are being flushed to wish and/or ltk is overflowing a stream buffer somewhere. For example, running ltktest with a trace on read-wish, I see errors like LTK::READ-WISH returned (:ERROR "value for \"-textvaria\" missing") or Error sending command to wish: on #<BASIC-CHARACTER-OUTPUT-STREAM ISO-8859-1 (PIPE/1092) #x8D5F2BE> : Invalid argument during write or LTK::READ-WISH returned (:ERROR "missing close-brace") This appears to be a race condition; the error changes randomly with each run (though the above are the most common). Sometimes the test almost works, other times it stops early. I did have to comment out the section which draws the lines -- that almost never worked. Similarly, theme-names generally fails (or whatever else does the first read-wish). For some reason, the situation can be aggravated by adding flush-wish in various places. But the first sleep at least lets Tk's window appear. - Daniel P.S. I'm debugging this in an attempt to get ABLE running.

3 6

[ltk-user] Greatly improved error/condition handling
by Thomas F. Burdick 21 Feb '10

21 Feb '10

I'm happy to announce that I (finally!) merged a new, greatly improved graphical condition handler into the repl branch. To take advantage of it, you don't need to do anything. By default, you'll get an error handler designed to be used by developers. If an error is signaled, you'll get a modal dialogue with the error message, plus a few buttons: * Dismiss will abort handling the Ltk event and go back to the main loop * Show Details will show you the stack trace. Not all lisps will actually get a stack trace here (SBCL and Allegro are privileged as usual), but patches are welcome :-) * Debugger will drop you into your system's debugger. If you're running Slime, this will be Slime's. Otherwise, you should probably look for a terminal. * Report Bug is a cool feature (if I say so myself). It pops up a bug reporter, which will save all the error information, including Ltk and CL version information, to a bug report file. For deployment to end users, you will probably want to to specify :DEBUG 1 to WITH-LTK (the default is 2). With this setting, you will simply see "An internal error has occured" and there will be no "Debugger" button. The bug report file should contain all the details you want from a bug report, though. :DEBUG 0 will do no condition handling, and leave everything to your Lisp implementation. :DEBUG 1 will use the PRODUCTION-CONDITION-HANDLER class :DEBUG 2 will use the GRAPHICAL-CONDITION-HANDLER class :DEBUG 3 will use the PARANOID-CONDITION-HANDLER class (it pops up a modal dialogue for /every/ condition signaled) Even better, the new graphical condition handling system is object-oriented and extensible. For example, you probably may want the bug reporter to send you an email. This is easy enough to add by subclassing PRODUCTION-CONDITION-HANDLER and writing a new REPORT-BUG method. The existing condition handler classes should be helpful as examples. To use your new condition handler, simply pass :DEBUGGER-CLASS MY-DEBUGGER-CLASS to WITH-LTK. Any feedback is welcome, and if you have bugs or questions, please ask them here. Voilà!

1 0

[ltk-user] [patch] Improved ttk treeview support
by Daniel Herring 18 Feb '10

18 Feb '10

Hi Peter, Please consider the attached patch against http://ltk.rplay.net/svn/branches/ltk/repl@215 It implements several essential treeview commands; they are being used to implement a symbol/package browser for ABLE. http://common-lisp.net/project/able/ The attached treeview-example.lisp demonstrates their usage. * (load "treeview-example.lisp") * (ltk-user::show-symbols :ltk-user) Thanks, Daniel

2 2

[ltk-user] fix for ltk on mswin?
by dherring＠tentpost.com 18 Feb '10

18 Feb '10

There have been many reports of ltk not starting properly on mswin boxes. I have an XP box that consistently shows this problem. The basic symptom is that when tk should appear, the active titlebar is grayed out but nothing else happens. When the lisp process is closed, the tk window full of ltk widgets appears. A few years ago, there were a couple reports on this list containing workarounds. However, I couldn't get any of them to work. After poking at this for a long time, I came up with the following patch. I can't guarantee 100% success, but it hasn't failed and it points to a possible obscure problem in ltk. ;; open subprocess (if (null (wish-stream *wish*)) (progn - (setf (wish-stream *wish*) (or stream (do-execute *wish-pathname* *wish-args*)) + (setf (wish-stream *wish*) (or stream (do-execute *wish-pathname* *wish-args*))) + (sleep 1) + (setf (wish-call-with-condition-handlers-function *wish*) (apply #'make-condition-handler-function keys)) ;; perform tcl initialisations Basically, it appears to me that due to scheduler timing, ltk may be writing to wish before it is ready, somehow causing the wish gui event loop to hang. The (sleep 1) is sketchy, but would it be hard to have ltk wait until it reads a wish prompt? ISTR there was a reason why this is a common pattern in expect. Thanks, Daniel P.S. Need... sleep....z.z.z.z.zzzzzzz

2 1

[ltk-user] Erasing things ..
by Greg Bennett 12 Jan '10

12 Jan '10

Good morning and Happy New Year, all. I have trolled through ltk.lisp in an attempt to discover how to erase things .. lines, rectangles, ovals .. drawn by create-line etc.. I was looking for things like erase-line or delete-rectangle, but could not find anything like this. The closest I came to discovering this sort of functionality was the destroy facility, which seems to destroy widgets. In drawing a shape, however, I may do not usually create it explicitly as a widget with an associated symbol to feed to destroy; must I do this under ltk ? More than likely I have simply missed something (sigh). Thanks in advance for any help and advice. Cheers /Greg Bennett

2 2

[ltk-user] ensure-ltk ?
by Daniel Herring 05 Jan '10

05 Jan '10

Hi, What's the proper idiom when writing a function that might start wish or might be called inside another with-ltk? For example, (defun some-window () (ensure-ltk () ...)) Where some-window could be called from a REPL or from a tk callback? Is there already a way to do this in ltk, or should I define a macro something like the following seemingly broken code? (defmacro ensure-ltk ((&rest options) &body body) (let ((fname (gensym))) `(labels ((,fname () ,@body)) (if (wish-stream *wish*) (,fname) (with-ltk ,options (,fname)))))) Thanks, Daniel

2 2

[ltk-user] get noticed when the scale is changed
by Martin Kielhorn 18 Dec '09

18 Dec '09

Hi, the scale of the program in the bottom doesn't work as I want. I want the :command lambda to be called whenever the scale changes. Is there a different way of being informed of the changes? In ltk.lisp:1761 the tk command scale is actually called with the option "-command" I don't understand the code enough to fiddle in my callback without breaking the existing one. ;; test program (not working as expected): (require :asdf) (require :ltk) (defpackage :mk (:use :cl :ltk)) (in-package :mk) (with-ltk () (let* ((f (make-instance 'frame)) (s (make-instance 'scale :orientation :horizontal :master f :command (lambda () (format t "SCALE NOW ~d~%" (value s))) ;; why can't i write command here )) (b (make-instance 'button :text "get" :master f :command (lambda () (format t "SCALE IS ~d~%" (value s)))))) (pack f) (pack (list s b)))) Regards, Martin -- Martin Kielhorn Randall Division of Cell & Molecular Biophysics King's College London, New Hunt's House Guy's Campus, London SE1 1UL, U.K. tel: +44 (0) 207 848 6519, fax: +44 (0) 207 848 6435

2 2

[ltk-user] First use of ltk
by Greg Bennett 11 Dec '09

11 Dec '09

I am trying to move an application from Windows -> Linux and the graphics part seems to be the most difficult. I hope that ltk can help me along. Under ubuntu 8.10 and SBCL 1.0.23 I have downloaded ltk-0.91.tgz and extracted it into its own directory. SBCL happily compiled ltk.lisp and ltk.fasl loaded too. When I tried to run (ltktest) SBCL became unhappy: Couldn't write to #<SB-SYS:FD-STREAM for "descriptor 6" {B98E79}>: Broken pipe. Perhaps I have put ltk in the wrong place ? Perhaps there is something which I have failed to set up correctly. I see from the troubleshooting file that some web connections/applications can cause difficulty. I am running firefox - from which I retrieve ltk! Any and all advice/comments gratefully received Cheers /Greg Bennett

6 8

[ltk-user] wrong # args when trying to setup a command for the scale widget
by Russell Kliese 16 Nov '09

16 Nov '09

Hi, I'm getting the following error reported when trying to setup a command to be executed when a scale widget is changed: wrong # args: should be "callback s" wrong # args: should be "callback s" while executing "callback w4 0" (command executed by scale) The following code reproduces this error. (defun command-test() (ltk:with-ltk () (let* ((f (make-instance 'ltk:frame)) (b1 (make-instance 'ltk:button :master f :text "Button 1" :command (lambda () (format t "Button~&")))) (scale (make-instance 'ltk:scale :master f :command (lambda (val) (format t "Scale val:~D~&" val))))) (ltk:pack f) (ltk:pack b1 :side :left) (ltk:pack scale :side :left) ))) I'm using LTK 0.91. Perhaps this is caused by a bug in the command sent to tk to set up a callback. Any pointers to the part of the code I should look at to fix this problem would be appreciated. Cheers, Russell

1 0

[ltk-user] Ecl pathc
by Marko Kocić 10 Nov '09

10 Nov '09

This small patch allows LTK to be used with ECL. Regards, Marko

1 0

[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