[ltk-user] ltk-tile make-instance 'button :command

8 Apr 2010

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

[ltk-user] ltk-tile make-instance 'button :command

Everett Fuller