Changeset 12840


Ignore:
Timestamp:
Sep 16, 2009, 9:44:28 AM (10 years ago)
Author:
gfoy
Message:

Park new windows.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/source/contrib/foy/window-parking-cm/window-parking.lisp

    r12795 r12840  
    101101;;;
    102102(defclass PARKABLE-HEMLOCK-FRAME (gui::hemlock-frame)
    103   ((parked-p :initform nil :accessor parked-p))
     103  ((parked-p :initform nil :accessor parked-p)
     104   (front-p :initform nil :accessor front-p))
    104105  (:metaclass ns:+ns-object))
    105106
     
    150151
    151152(objc:defmethod (#/makeKeyAndOrderFront: :void) ((w parkable-hemlock-frame) (sender :id))
    152   (setf (parked-p w) t) ; only park it once
     153  (setf (front-p w) t)
    153154  (call-next-method sender))
    154155
     
    157158         (call-next-method rect display-p))
    158159        (t
     160         (when (front-p w) (setf (parked-p w) t))
    159161         (multiple-value-bind (h-position v-position h-dimension v-dimension)
    160162                              (park *window-parker* w)
     
    198200  (setf (ps-function-key ps) function-key))
    199201
    200 ;;; This is untested
    201202(defMethod parking-spot-on-screen-p ((ps parking-spot) &optional window)
    202203  (let* ((screen (if window
     
    444445
    445446;;; ----------------------------------------------------------------------------
    446 ;;; Function commands and bindings:
     447;;; Commands and bindings:
    447448;;;
    448449(hemlock::defcommand "Move Window to Position 1" (p)
Note: See TracChangeset for help on using the changeset viewer.