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

Diff of /climacs/gui.lisp

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

revision 1.238 by thenriksen, Fri Nov 16 09:29:47 2007 UTC revision 1.239 by thenriksen, Tue Nov 20 12:59:54 2007 UTC
# Line 83  contents."))) Line 83  contents.")))
83    
84  (defmethod buffer ((pane typeout-pane)))  (defmethod buffer ((pane typeout-pane)))
85    
86  (defmethod point ((pane typeout-pane)))  (defmethod point-of ((pane typeout-pane)))
87    
88  (defmethod mark ((pane typeout-pane)))  (defmethod mark-of ((pane typeout-pane)))
89    
90  (defmethod full-redisplay ((pane typeout-pane)))  (defmethod full-redisplay ((pane typeout-pane)))
91    
# Line 168  contents."))) Line 168  contents.")))
168    ())    ())
169    
170  (defmethod command-table-inherit-from ((table climacs-command-table))  (defmethod command-table-inherit-from ((table climacs-command-table))
171    (append (when *current-syntax* (list (command-table *current-syntax*)))    (append (when (current-syntax) (list (command-table (current-syntax))))
172            '(global-climacs-table)            '(global-climacs-table)
173            (call-next-method)))            (call-next-method)))
174    
# Line 223  contents."))) Line 223  contents.")))
223                         command-unparser                         command-unparser
224                         partial-command-parser                         partial-command-parser
225                         prompt)                         prompt)
226      :bindings ((*current-point* (current-point))   :bindings ((*previous-command* (previous-command (current-window)))
227                 (*current-mark* (current-mark))              (*default-target-creator* *climacs-target-creator*)))
                (*previous-command* (previous-command *current-window*))  
                (*current-syntax* (and *current-buffer*  
                                       (syntax *current-buffer*)))  
                (*default-target-creator* *climacs-target-creator*)))  
228    
229  (defmethod frame-standard-input ((frame climacs))  (defmethod frame-standard-input ((frame climacs))
230    (get-frame-pane frame 'minibuffer))    (get-frame-pane frame 'minibuffer))
231    
232  (defmethod frame-current-buffer ((application-frame climacs))  (defmethod esa-current-buffer ((application-frame climacs))
233    "Return the current buffer."    "Return the current buffer."
234    (buffer (frame-current-window application-frame)))    (buffer (esa-current-window application-frame)))
235    
236  (defun any-buffer ()  (defun any-buffer ()
237    "Return some buffer, any buffer, as long as it is a buffer!"    "Return some buffer, any buffer, as long as it is a buffer!"
# Line 313  contents."))) Line 309  contents.")))
309    (display-drei drei))    (display-drei drei))
310    
311  (defmethod execute-frame-command :around ((frame climacs) command)  (defmethod execute-frame-command :around ((frame climacs) command)
312    (if (eq frame *application-frame*)    (let ((*drei-instance* (esa-current-window frame)))
313        (progn      (if (eq frame *application-frame*)
314          (handling-drei-conditions          (progn
315            (with-undo ((buffers frame))            (handling-drei-conditions
316              (call-next-method)))              (with-undo ((buffers frame))
317          (loop for buffer in (buffers frame)                (call-next-method)))
318             do (when (modified-p buffer)            (loop for buffer in (buffers frame)
319                  (clear-modify buffer))))               do (when (modified-p buffer)
320        (call-next-method)))                    (clear-modify buffer))))
321            (call-next-method))))
322    
323  (defmethod execute-frame-command :after ((frame climacs) command)  (defmethod execute-frame-command :after ((frame climacs) command)
324    (when (eq frame *application-frame*)    (when (eq frame *application-frame*)

Legend:
Removed from v.1.238  
changed lines
  Added in v.1.239

  ViewVC Help
Powered by ViewVC 1.1.5