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

Diff of /climacs/gui.lisp

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

revision 1.253 by thenriksen, Thu Jan 17 11:30:47 2008 UTC revision 1.254 by thenriksen, Fri Jan 18 07:16:22 2008 UTC
# Line 116  window")) Line 116  window"))
116                (window-displaying-view                (window-displaying-view
117                 (restart-case                 (restart-case
118                     (error 'view-already-displayed :view view :window window-displaying-view)                     (error 'view-already-displayed :view view :window window-displaying-view)
119                     (switch-to-pane ()
120                      :report "Switch the active window to the one containing the view"
121                      (other-window window-displaying-view)
122                      view)
123                   (remove-other-use ()                   (remove-other-use ()
124                    :report "Make the other window try to display some other view"                    :report "Make the other window try to display some other view"
125                    (setf (view window-displaying-view) (any-preferably-undisplayed-view))                    (setf (view window-displaying-view) (any-preferably-undisplayed-view))
# Line 129  window")) Line 133  window"))
133                    (setf (view pane) (clone-view-for-climacs                    (setf (view pane) (clone-view-for-climacs
134                                       (pane-frame window-displaying-view) view)))                                       (pane-frame window-displaying-view) view)))
135                   (cancel ()                   (cancel ()
136                    :report "Cancel the setting of the windows view and just return")))                    :report "Cancel the setting of the windows view and just return nil")))
137                (t (call-next-method)))                (t (call-next-method)))
138        (when old-view-active        (when old-view-active
139          (ensure-only-view-active (pane-frame pane) view)))))          (ensure-only-view-active (pane-frame pane) view)))))

Legend:
Removed from v.1.253  
changed lines
  Added in v.1.254

  ViewVC Help
Powered by ViewVC 1.1.5