home *** CD-ROM | disk | FTP | other *** search
- // $Id: sashes.C,v 1.11 1998/04/13 08:04:20 zeller Exp $ -*- C++ -*-
- // Kill unmanaged sashes
-
- // Copyright (C) 1996 Technische Universitaet Braunschweig, Germany.
- // Written by Andreas Zeller <zeller@ips.cs.tu-bs.de>.
- //
- // This file is part of DDD.
- //
- // DDD is free software; you can redistribute it and/or
- // modify it under the terms of the GNU General Public
- // License as published by the Free Software Foundation; either
- // version 2 of the License, or (at your option) any later version.
- //
- // DDD is distributed in the hope that it will be useful,
- // but WITHOUT ANY WARRANTY; without even the implied warranty of
- // MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.
- // See the GNU General Public License for more details.
- //
- // You should have received a copy of the GNU General Public
- // License along with DDD -- see the file COPYING.
- // If not, write to the Free Software Foundation, Inc.,
- // 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA.
- //
- // DDD is the data display debugger.
- // For details, see the DDD World-Wide-Web page,
- // `http://www.cs.tu-bs.de/softech/ddd/',
- // or send a mail to the DDD developers <ddd@ips.cs.tu-bs.de>.
-
- char sashes_rcsid[] =
- "$Id: sashes.C,v 1.11 1998/04/13 08:04:20 zeller Exp $";
-
- #ifdef __GNUG__
- #pragma implementation
- #endif
-
- #include "sashes.h"
-
- #include <Xm/Xm.h>
- #include <Xm/PanedW.h>
- #include <X11/StringDefs.h>
-
- #include "Sash.h"
-
-
- //-----------------------------------------------------------------------------
- // Sashes
- //-----------------------------------------------------------------------------
-
- // Unmanage all sashes of PANED
- void unmanage_sashes(Widget paned)
- {
- if (paned == 0 || !XtIsSubclass(paned, xmPanedWindowWidgetClass))
- return;
-
- WidgetList children = 0;
- Cardinal num_children = 0;
-
- XtVaGetValues(paned,
- XtNchildren, &children,
- XtNnumChildren, &num_children,
- NULL);
-
- for (Cardinal i = 0; i < num_children; i++)
- if (XmIsSash(children[i]))
- {
- XtUnmanageChild(children[i]);
- XtUnmapWidget(children[i]);
- }
- }
-
- // Disable traversal for all sashes of PANED
- void untraverse_sashes(Widget paned)
- {
- if (paned == 0 || !XtIsSubclass(paned, xmPanedWindowWidgetClass))
- return;
-
- WidgetList children = 0;
- Cardinal num_children = 0;
-
- XtVaGetValues(paned,
- XtNchildren, &children,
- XtNnumChildren, &num_children,
- NULL);
-
- for (Cardinal i = 0; i < num_children; i++)
- if (XmIsSash(children[i]))
- XtVaSetValues(children[i], XmNtraversalOn, False, NULL);
- }
-