[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

Re: Very simple MCL/ACTION question

I don't really understand the problem that you're having. If you just
want a dialog with a button that prints a string you may want to try
something like this:

(require 'quickdraw)

(make-instance 'window :view-position #@(16 50) :color-p t :window-title
               :view-size #@(58 20) :window-type :movable-dialog
               (list (make-instance 'button-dialog-item :dialog-item-action 
                                    #'(lambda (item) 
                                        (declare (ignore item))
                                        (format t "my string"))
                                    :dialog-item-text "Button"
                                    :view-size #@(58 20))))

Excerpts from internet.listserv.info-mcl: 2-Feb-94 Very simple
MCL/ACTION ques.. by Stephen Desrosiers@pat.m  
> PS where's the FAQ?
via ftp -- cambridge.apple.com:/pub/MCL2/contrib/mcl-faq/
There are a bunch of different formats of the faq there.

Robby Findler                                               robby+@cmu.edu
Carnegie Mellon University    Pittsburgh, PA                (412) 681-4552