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