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!)