/[mcclim]/mcclim/frames.lisp
ViewVC logotype

Diff of /mcclim/frames.lisp

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.115 by tmoore, Sun Mar 12 23:09:27 2006 UTC revision 1.116 by tmoore, Mon Mar 13 06:08:12 2006 UTC
# Line 1562  documentation produced by presentations. Line 1562  documentation produced by presentations.
1562                                :filled nil :line-dashes #(4 4))))                                :filled nil :line-dashes #(4 4))))
1563            (:unhighlight            (:unhighlight
1564             (with-double-buffering             (with-double-buffering
1565                 ((stream hilite-x1 hilite-y1 hilite-x2 hilite-y2)                 ((stream hilite-x1 hilite-y1 (1+ hilite-x2) (1+ hilite-y2))
1566                  (buffer-rectangle))                  (buffer-rectangle))
1567               (stream-replay stream buffer-rectangle))))))))               (stream-replay stream buffer-rectangle))))))))
1568    
# Line 1590  documentation produced by presentations. Line 1590  documentation produced by presentations.
1590                                                :window window                                                :window window
1591                                                :x x                                                :x x
1592                                                :y y                                                :y y
1593                                                :event event)))                                                :event event)
1594                                         (list trans)))
1595                                (find-presentation-translators                                (find-presentation-translators
1596                                 (presentation-type from-presentation)                                 (presentation-type from-presentation)
1597                                 context-type                                 context-type
# Line 1623  documentation produced by presentations. Line 1624  documentation produced by presentations.
1624                                                             window x y))                                                             window x y))
1625                     do (return-from find-dest-translator translator))                     do (return-from find-dest-translator translator))
1626               nil)               nil)
1627             (do-feedback (window x y state do-it)             (do-feedback (window x y state)
1628               (when do-it               (funcall feedback-fn frame from-presentation window
1629                 (funcall feedback-fn frame from-presentation window                          initial-x initial-y x y state))
                         initial-x initial-y x y state)))  
1630             (do-hilite (presentation window state)             (do-hilite (presentation window state)
1631               (when presentation               (funcall hilite-fn frame presentation window state))
                (funcall hilite-fn frame presentation window state)))  
1632             (last-window ()             (last-window ()
1633               (event-sheet last-event))               (event-sheet last-event))
1634             (last-x ()             (last-x ()
# Line 1646  documentation produced by presentations. Line 1645  documentation produced by presentations.
1645            (:presentation (&key presentation window event x y)            (:presentation (&key presentation window event x y)
1646              (let ((dest-translator (find-dest-translator presentation window              (let ((dest-translator (find-dest-translator presentation window
1647                                                           x y)))                                                           x y)))
1648                (do-feedback (last-window) (last-x) (last-y)                (when feedback-activated
1649                             :unhighlight feedback-activated)                  (do-feedback (last-window) (last-x) (last-y) :unhighlight))
1650                (setq feedback-activated t                (setq feedback-activated t
1651                      last-event event)                      last-event event)
1652                (do-hilite last-presentation (last-window) :unhighlight)                (when last-presentation
1653                    (do-hilite last-presentation (last-window) :unhighlight))
1654                (setq last-presentation presentation                (setq last-presentation presentation
1655                      feedback-fn (feedback dest-translator)                      feedback-fn (feedback dest-translator)
1656                      hilite-fn (highlighting dest-translator))                      hilite-fn (highlighting dest-translator))
1657                (do-hilite presentation window :highlight)                (do-hilite presentation window :highlight)
1658                (do-feedback window x y :highlight t)                (do-feedback window x y :highlight)
1659                (document-drag-n-drop dest-translator presentation                (document-drag-n-drop dest-translator presentation
1660                                      context-type frame event window                                      context-type frame event window
1661                                      x y)))                                      x y)))
1662            (:pointer-motion (&key event window x y)            (:pointer-motion (&key event window x y)
1663              (do-feedback (last-window) (last-x) (last-y)              (when feedback-activated
1664                           :unhighlight feedback-activated)                (do-feedback (last-window) (last-x) (last-y) :unhighlight))
1665              (setq feedback-activated t              (setq feedback-activated t
1666                    last-event event)                    last-event event)
1667              (do-hilite last-presentation (last-window) :unhighlight)              (when last-presentation
1668                  (do-hilite last-presentation (last-window) :unhighlight))
1669              (setq last-presentation nil)              (setq last-presentation nil)
1670              (do-feedback window x y :highlight t)              (do-feedback window x y :highlight)
1671              (document-drag-n-drop translator nil              (document-drag-n-drop translator nil
1672                                    context-type frame event window                                    context-type frame event window
1673                                    x y))                                    x y))
# Line 1683  documentation produced by presentations. Line 1684  documentation produced by presentations.
1684        ;;        ;;
1685        ;; XXX Assumes x y from :button-release are the same as for the preceding        ;; XXX Assumes x y from :button-release are the same as for the preceding
1686        ;; button-motion; is that correct?        ;; button-motion; is that correct?
1687        (do-feedback (last-window) (last-x) (last-y)        (when feedback-activated
1688                     :unhighlight feedback-activated)          (do-feedback (last-window) (last-x) (last-y) :unhighlight))
1689        (do-hilite last-presentation (last-window) :unhighlight)        (when last-presentation
1690            (do-hilite last-presentation (last-window) :unhighlight))
1691        (if destination-presentation        (if destination-presentation
1692            (let ((final-translator (find-dest-translator destination-presentation            (let ((final-translator (find-dest-translator destination-presentation
1693                                                          (last-window)                                                          (last-window)
# Line 1714  documentation produced by presentations. Line 1716  documentation produced by presentations.
1716        (window-clear s)        (window-clear s)
1717        (with-end-of-page-action (s :allow)        (with-end-of-page-action (s :allow)
1718          (with-end-of-line-action (s :allow)          (with-end-of-line-action (s :allow)
1719            (document-presentation-translator translator            (funcall (pointer-documentation translator)
1720                                              presentation             *dragged-object*
1721                                              context-type             :presentation *dragged-presentation*
1722                                              frame             :destination-object (and presentation
1723                                              event                                      (presentation-object presentation))
1724                                              window             :destination-presentation presentation
1725                                              x y             :context-type context-type
1726                                              :stream s             :frame frame
1727                                              :documentation-type :pointer))))))             :event event
1728               :window window
1729               :x x
1730               :y y
1731               :stream s))))))
1732    
1733    
1734    

Legend:
Removed from v.1.115  
changed lines
  Added in v.1.116

  ViewVC Help
Powered by ViewVC 1.1.5