divert(-1)
# AnotherLevel - A FVWM2 Configuration
# Copyright (C) 1996, 1997 Red Hat Software, Inc
#
#	$Id: fvwm2rc.functions.m4,v 1.2 1998/05/01 23:57:15 gafton Exp $	
#
# This program 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.
#
# This program 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 this program; if not, write to the Free Software
# Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
#
# This work is derived from:
#       TheNextLevel
#       Copyright 1996 By Greg J. Badros <gjb@cs.duke.edu>
# distributed under GNU General Public License.
#
divert
###########################################################################
# Now define some handy complex functions
# (I)mmediate, (M)otion, (C)lick, (D)oubleclick

# This one moves and then raises the window if you drag the mouse,
# only raises the window if you click, or does a full maximize if 
# you double click

AddToFunc "Move-or-Raise-or-Maximize" 
+ "M" Move
+ "M" Raise
+ "C" Raise
+ "D" Maximize

AddToFunc "Move-or-Raise" 
+ "M" Move
+ "M" Raise
+ "C" Raise

AddToFunc "Move-and-Raise"
+ "I" Move
+ "I" Raise

#
# This one moves and then lowers the window if you drag the mouse,
# only lowers the window if you click, or does a RaiseLower if you double 
# click
#
AddToFunc "Move-or-Lower" 
+ "M" Move
+ "M" Lower
+ "C" Lower
+ "D" RaiseLower

#
# This one moves or (de)iconifies:
#
AddToFunc "Move-or-Iconify" 
+ "M" Move
+ "D" Iconify

#
# This one resizes and then raises the window if you drag the mouse,
# only raises the window if you click,  or does a RaiseLower if you double 
# click
#
AddToFunc "Resize-or-Raise" 
+ "M" Resize
+ "M" Raise
+ "C" Raise
+ "D" RaiseLower

AddToFunc "Iconify-Move-Maximize" 
+ "C" Iconify
+ "D" Iconify
+ "D" Maximize
+ "M" Move

AddToFunc "Iconify-Maximize" 
+ "C" Iconify
+ "C" Maximize

AddToFunc "Shade-or-Raise"
+ "M" Move
+ "C" Raise
+ "D" WindowShade

AddToFunc "Maximize_Function"
+ "M" Move
+ "C" Maximize
+ "D" WindowShade

AddToFunc "Delete-or-Popup" 
+ "M" PopUp Window-Ops-Basic
+ "C" PopUp Window-Ops-Basic
+ "D" Delete

AddToFunc "Close-or-Popup" 
+ "M" PopUp Window-Ops-Basic
+ "C" PopUp Window-Ops-Basic
+ "D" Close

AddToFunc Raise-and-Stick "I" Raise
+ "I" Stick

AddToFunc MailFunction
+ "I" Next [$0] Iconify -1
+ "I" Next [$0] focus
+ "I" None [$0] Exec $0 $1

AddToFunc StartXTerm "I" Exec XTERM
+ "I" Wait XTERM
+ "I" Next [XTERM] Focus 

AddToFunc PrintFunction
+ "I" Raise
+ "I" Exec PRINT_FUNCTION

