/[climacs]/climacs/gui.lisp
ViewVC logotype

Diff of /climacs/gui.lisp

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

revision 1.112 by rstrandh, Sat Feb 19 06:19:06 2005 UTC revision 1.113 by rstrandh, Sun Feb 20 05:11:39 2005 UTC
# Line 147  Line 147 
147    (declare (ignore frame))    (declare (ignore frame))
148    (redisplay-pane pane (eq pane (car (windows *application-frame*)))))    (redisplay-pane pane (eq pane (car (windows *application-frame*)))))
149    
150    (defmethod handle-repaint :before ((pane extended-pane) region)
151      (declare (ignore region))
152      (redisplay-frame-panes *application-frame*))
153    
154  (defun find-gestures (gestures start-table)  (defun find-gestures (gestures start-table)
155    (loop with table = (find-command-table start-table)    (loop with table = (find-command-table start-table)
156          for (gesture . rest) on gestures          for (gesture . rest) on gestures

Legend:
Removed from v.1.112  
changed lines
  Added in v.1.113

  ViewVC Help
Powered by ViewVC 1.1.5