#
# $Id: window.dsc,v 1.5 2004/08/13 23:21:01 brian Exp $ */
# window.dsc - Window related features for the DarkStar core
# Copyright (c) 2003 Brian Weiss
# See the 'COPYRIGHT' file for more information.
#
# This script uses serial number 2 for all /ON hooks.
#

addconfig -b DOUBLE_STATUS 0;

alias _window_double_all (...)
{
	switch ($0)
	{
		(ON) (OFF) (1) (0) {
			for wref in ($winrefs()) {
				if (!windowctl(GET $wref FIXED)) {
					^window $wref double $bool2word($0);
				};
			};
		}
		(*) {
			echo Error: _window_double_all: Invalid argument: $0;
			return;
		}
	};
};

on #-hook 2 "CONFIG DOUBLE_STATUS *"
{
	if (CONFIG.DOUBLE_STATUS) {
		_window_double_all on;
	} else {
		_window_double_all off;
	};
};

on #-window_create 2 "*"
{
	if (CONFIG.DOUBLE_STATUS && !windowctl(GET $0 FIXED)) {
		^window $0 double on;
	};
};