rom/intuition/lendmenus.c

   1 /*
   2     Copyright © 1995-2013, 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_LH2(void, LendMenus,
  15
  16 /*  SYNOPSIS */
  17         AROS_LHA(struct Window *, fromwindow, A0),
  18         AROS_LHA(struct Window *, towindow, A1),
  19
  20 /*  LOCATION */
  21         struct IntuitionBase *, IntuitionBase, 134, Intuition)
  22
  23 /*  FUNCTION
  24         This function "lends" the menus of one window to another. This makes
  25         the menu events (e.g. menu button presses) take place in another
  26         window's menu (i.e. the other window's strip and screen).
  27
  28         This function is used to unify two windows on different attached
  29         screens. (E.g. a painting program with an attached palette screen
  30         can open the menu on the main screen if the menu button is
  31         pressed on the palette screen.)
  32
  33     INPUTS
  34         fromwindow - This window's menu events will go to another window.
  35         towindow - This is the window that will react on the menu actions
  36             of the other window. If NULL 'lending' will be turned off.
  37
  38     RESULT
  39         None.
  40
  41     NOTES
  42
  43     EXAMPLE
  44
  45     BUGS
  46
  47     SEE ALSO
  48         SetMenuStrip(), ClearMenuStrip()
  49
  50     INTERNALS
  51
  52 *****************************************************************************/
  53 {
  54     AROS_LIBFUNC_INIT
  55
  56     ASSERT_VALID_PTR(fromwindow);
  57     ASSERT_VALID_PTR_OR_NULL(towindow);
  58
  59     DEBUG_LENDMENUS(dprintf("LendMenus(Window 0x%lx ToWindow 0x%lx)\n",fromwindow,towindow));
  60
  61     IntuitionBase = IntuitionBase;  /* shut up the compiler */
  62
  63     SANITY_CHECK(fromwindow);
  64
  65     ((struct IntWindow *)fromwindow)->menulendwindow = towindow;
  66
  67     AROS_LIBFUNC_EXIT
  68 } /* LendMenus */