divert(-1)
# AnotherLevel - A FVWM2 Configuration
# Copyright (C) 1996, 1997 Red Hat Software, Inc
#
#	$Id: fvwm2rc.init.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

###########################################################################
#
# Stuff to do at start-up
#

# SetupFunction gets run at Init and Restart

AddToFunc "SetupFunction"
+ "I" Exec xsetroot -solid BG_COLOR
ifdef(`WANT_SOUND_EVENTS',`+ "I" Module FvwmAudio
')dnl
ifdef(`USE_AUTO_RAISE',`+ "I" Module FvwmAuto AUTO_RAISE_SPEED
')dnl

# EndSetupFunction gets run at Init and Restart, but after StartupFunction
# is executed for the Init case

AddToFunc "EndSetupFunction"
#+ "I" Next [!iconic CurrentScreen XTERM] Focus
#+ "I" CursorMove -100 100

# StartupFunction only gets run at Init, not at Restart.
# It is run after SetupFunction, but before EndSetupFunction
AddToFunc "StartupFunction"
+ "I" Exec XTERM +ut -geometry +PctOfScreenInPixelsX(15)+PctOfScreenInPixelsY(15)
syscmd(`test "$USER" = "root"')dnl
ifelse(sysval,0,+ "I" Exec control-panel -geometry -0+0,)
ifdef(`START_BROWSER',`+ "I" Exec WWW_BROWSER')

ifelse(SCREEN_SIZE,`Huge',`
#+ "I" Exec emacs -geometry 104x60-1+1
#+ "I" Exec XTERM
',SCREEN_SIZE,`Large',`
#+ "I" Exec emacs -geometry 84x48-1+1
#+ "I" Exec XTERM -geometry 80x22+1-BOTTOM_EDGE
',SCREEN_SIZE,`Moderate',`
#+ "I" Exec emacs -geometry 80x40-1+1
#+ "I" Exec XTERM -geometry 80x30+1-BOTTOM_EDGE
',SCREEN_SIZE,`Small',`
#+ "I" Exec emacs -geometry 80x38-1+1
#+ "I" Exec XTERM -geometry 80x15+1-BOTTOM_EDGE
')
ifdef(`NEED_CONSOLE',`
+ "I" Exec RXVT -font SMALL_FONT -title "HOSTNAME-Console" -C -name Console -geom 80x8-0-0 &
')
IfProgramExists(`unclutter',`
+ "I" Exec unclutter')
