At 01:19 28/10/97 -0800, <cyberdude.com at fx> wrote:
>Hi, people, how can i move the widget(static picture) in a dialog box
>according from the coordinates where the mouse was clicked?  So, for
>example, if the static picture is at (400,300), when i click somewhere
>in the dialog box, say (0,200), the static picture will move to that
>coordinate.  Thanx people!! :)

Something like this should work:

(defmethod event :AFTER ((pane your-dialog-class-name) event button-state
                          data time)
   (select event
     (mouse-left-down 
       (let* ((widget ....)
              (box (dialog-item-box widget)))
          ;; the data argument is a cursor position for a mouse event
          (setf (box-top-left box) data)
          ;; needed to run the necessary side effects of (setf
dialog-item-box)
          ;; to make the dialog aware of a change
          (setf (dialog-item-box widget) box))
       )))

Francis
--
Francis Leboutte, Algorithme, Rue de la Charrette 141, 4130 Tilff, Belgium
<skynet.be at f.leboutte>     <acm.org at leboutte>               
http://users.skynet.be/algo    t&fax: +32-(0)4-388.35.28