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

Diff of /climacs/gui.lisp

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

revision 1.255 by thenriksen, Sun Jan 20 19:51:48 2008 UTC revision 1.256 by thenriksen, Sat Jan 26 23:06:04 2008 UTC
# Line 137  window")) Line 137  window"))
137                   (cancel ()                   (cancel ()
138                    :report "Cancel the setting of the windows view and just return nil")))                    :report "Cancel the setting of the windows view and just return nil")))
139                (t (call-next-method)))                (t (call-next-method)))
140          ;; Move view to the front of the view-list, doesn't carry
141          ;; semantic significance, but makes view-switching more
142          ;; convenient.
143          (setf (views (pane-frame pane))
144                (cons view (delete view (views (pane-frame pane)))))
145        (when old-view-active        (when old-view-active
146          (ensure-only-view-active (pane-frame pane) view)))))          (ensure-only-view-active (pane-frame pane) view)))))
147    

Legend:
Removed from v.1.255  
changed lines
  Added in v.1.256

  ViewVC Help
Powered by ViewVC 1.1.5