Changeset 12840

Timestamp:

Sep 16, 2009, 2:44:28 AM (15 years ago)

Author:

Glen Foy

Message:

Park new windows.

File:

• trunk/source/contrib/foy/window-parking-cm/window-parking.lisp (modified) (5 diffs)

trunk/source/contrib/foy/window-parking-cm/window-parking.lisp

@@ -101 +101 @@
 ;;;
 (defclass PARKABLE-HEMLOCK-FRAME (gui::hemlock-frame)
-  ((parked-p :initform nil :accessor parked-p))
+  ((parked-p :initform nil :accessor parked-p)
+   (front-p :initform nil :accessor front-p))
   (:metaclass ns:+ns-object))
 
@@ -150 +151 @@
 
 (objc:defmethod (#/makeKeyAndOrderFront: :void) ((w parkable-hemlock-frame) (sender :id))
-  (setf (parked-p w) t) ; only park it once
+  (setf (front-p w) t)
   (call-next-method sender))
 
@@ -157 +158 @@
          (call-next-method rect display-p))
         (t
+         (when (front-p w) (setf (parked-p w) t))
          (multiple-value-bind (h-position v-position h-dimension v-dimension)
                               (park *window-parker* w)
@@ -198 +200 @@
   (setf (ps-function-key ps) function-key))
 
-;;; This is untested
 (defMethod parking-spot-on-screen-p ((ps parking-spot) &optional window)
   (let* ((screen (if window 
@@ -444 +445 @@
 
 ;;; ----------------------------------------------------------------------------
-;;; Function commands and bindings:
+;;; Commands and bindings:
 ;;;
 (hemlock::defcommand "Move Window to Position 1" (p)