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 # 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