rom/intuition/clearmenustrip.c

   1 /*
   2     Copyright © 1995-2003, The AROS Development Team. All rights reserved.
   3     Copyright © 2001-2003, The MorphOS Development Team. All Rights Reserved.
   4     $Id$
   5 */
   6
   7 #include "intuition_intern.h"
   8
   9 /*****************************************************************************
  10
  11     NAME */
  12 #include <proto/intuition.h>
  13
  14 AROS_LH1(void, ClearMenuStrip,
  15
  16          /*  SYNOPSIS */
  17          AROS_LHA(struct Window *, window, A0),
  18
  19          /*  LOCATION */
  20          struct IntuitionBase *, IntuitionBase, 9, Intuition)
  21
  22 /*  FUNCTION
  23
  24     INPUTS
  25
  26     RESULT
  27
  28     NOTES
  29
  30     EXAMPLE
  31
  32     BUGS
  33
  34     SEE ALSO
  35
  36     INTERNALS
  37
  38     HISTORY
  39     29-10-95    digulla automatically created from
  40                 intuition_lib.fd and clib/intuition_protos.h
  41
  42 *****************************************************************************/
  43 {
  44     AROS_LIBFUNC_INIT
  45     AROS_LIBBASE_EXT_DECL(struct IntuitionBase *,IntuitionBase)
  46
  47     SANITY_CHECK(window)
  48
  49     ObtainSemaphore(&GetPrivIBase(IntuitionBase)->MenuLock);
  50     window->MenuStrip = NULL;
  51     ReleaseSemaphore(&GetPrivIBase(IntuitionBase)->MenuLock);
  52
  53     return;
  54
  55     AROS_LIBFUNC_EXIT
  56 } /* ClearMenuStrip */