;;; -*- Mode:Common-Lisp; Package:TV; Base:10; Fonts:(CPTFONT HL10B HL12BI HL12B CPTFONTB)Ï1; Ï*Patch-File: T -*-

;Ï1;;                     RESTRICTED RIGHTS LEGEND          Ï*
;Ï1;; Use, duplication, or disclosure by the Government is subject toÏ*
;Ï1;; restrictions as set forth in subdivision (b)(3)(ii) of the Rights inÏ*
;Ï1;; Technical Data and Computer Software clause at 52.227-7013.Ï*
;Ï1;;                   TEXAS INSTRUMENTS INCORPORATED.Ï*
;Ï1;;                            P.O. BOX 149149Ï*
;Ï1;;                         AUSTIN, TEXAS 78714-9149Ï*
;Ï1;;                             MS 2151Ï*
;Ï1;; Copyright (C) 1986,1987, 1988, 1989 Texas Instruments Incorporated. All rights reserved.Ï*

(defmacro Ï4with-positioning-flag-setÏ* (&rest forms)
  `(progn (setq being-positioned-p t)
	  (unwind-protect (progn ,@forms)
	    (setq being-positioned-p nil))))

(defmacro Ï4with-drawing-flag-setÏ* (&rest forms)
  `(progn (setq being-drawn-p t)
	  (unwind-protect (progn ,@forms)
	    (setq being-drawn-p nil))))

(defmacro Ï4with-moving-flag-setÏ* (&rest forms)
  `(progn (setq being-moved-p t)
	  (unwind-protect (progn ,@forms)
	    (setq being-moved-p nil))))

(defmacro Ï4with-getting-descendents-flag-setÏ* (&rest forms)
  `(progn (setq getting-descendents-p t)
	  (unwind-protect (progn ,@forms)
	    (setq getting-descendents-p nil))))