divert(-1)
# AnotherLevel - A FVWM2 Configuration
# Copyright (C) 1996, 1997 Red Hat Software, Inc
#
#	$Id: fvwm2rc.modules.m4,v 1.3 1999/03/10 19:51:45 notting 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

###########################################################################
##### FvwmButtons
*FvwmButtonsFore WINFORE_COLOR
*FvwmButtonsBack WINBACK_COLOR
#*FvwmButtonsFont BASIC_FONT-bold-r-*-*-10-*-*-*-*-*-*-*
*FvwmButtonsFont None
define(`FVWM_BUTTONS_WIDTH',eval(50 + 50 * NUM_DESKTOPS))
*FvwmButtonsGeometry FVWM_BUTTONS_WIDTH`'x50-0-BOTTOM_EDGE
# Layout: specify rows or columns, not both
*FvwmButtonsRows 1
# Define the buttons to use.....
*FvwmButtons(Swallow XLoad 'Exec nice NICELEVEL xload -nolabel -geometry 32x20+0+0 -bg grey60 -update 5')
ifelse(`NUM_DESKTOPS', `', `',
`NUM_DESKTOPS', `0', `',
*FvwmButtons(NUM_DESKTOPS`'x1,Swallow "FvwmPager" "FvwmPager 0 decr(NUM_DESKTOPS)")
)
Style "FvwmButtons"	StickyOnTop, WinCircSkip, NoDecoration

###########################################################################
##### Pager - each module configures the pager in it's own way
Style "FvwmPager"	StickyOnTop, WinCircSkip, NoDecoration
*FvwmPagerFont -BASIC_FONT-bold-r-*-*-10-*-*-*-*-*-*-*
*FvwmPagerGeometry +0+0
*FvwmPagerDeskTopScale 40
*FvwmPagerLabel 0 Desk
*FvwmPagerLabel 1 Apps
*FvwmPagerSmallFont SMALL_FONT
#*FvwmPagerBack #908090
#*FvwmPagerFore #484048
*FvwmPagerHilight #CAB3CA
*FvwmPagerBack WINBACK_COLOR
*FvwmPagerFore WINFORE_COLOR
*FvwmPagerWindowColors WINFORE_COLOR WINBACK_COLOR HILIGHTFORE_COLOR HILIGHTBACK_COLOR
*FvwmPagerBalloons
*FvwmPagerBalloonBack	bisque
*FvwmPagerBalloonFore	black

###########################################################################
###### PowerButtons (a button bar at the bottom of the screen)
*PowerButtonsRows 1
*PowerButtonsGeometry -FVWM_BUTTONS_WIDTH-BOTTOM_EDGE
*PowerButtonsFore WINFORE_COLOR
*PowerButtonsBack WINBACK_COLOR
*PowerButtons(Icon mini-display.xpm, Action 'Exec "XTERM" XTERM')
*PowerButtons(Icon mini-book1.xpm, Action 'Exec "xman" xman')
Style "PowerButtons" StickyOnTop, NoDecoration

###########################################################################
##### NoClutter
*FvwmNoClutter 3600 Iconify 1
*FvwmNoClutter 86400 Delete
*FvwmNoCLutter 172800 Destroy

###########################################################################
##### Identify
*FvwmIdentBack #000080
*FvwmIdentFore Yellow
*FvwmIdentFont -BASIC_FONT-medium-r-*-*-FONT_SIZE-*-*-*-*-*-*-*

###########################################################################
##### FvwmWinList
*FvwmWinListBack #c3c3c3
*FvwmWinListFore Black
*FvwmWinListFont -BASIC_FONT-bold-r-*-*-10-*-*-*-*-*-*-*
*FvwmWinListAction Click1 Iconify -1,Focus
*FvwmWinListAction Click2 Iconify
*FvwmWinListAction Click3 Module "FvwmIdent" FvwmIdent
*FvwmWinListUseSkipList
*FvwmWinListGeometry +0-1
        
###########################################################################
##### FvwmTaskBar
Style "FvwmTaskBar"	BorderWidth 3, HandleWidth 3, Sticky,
Style "FvwmTaskBar"	StaysOnTop, WinCircSkip, NoTitle
*FvwmTaskBarGeometry +1-0
*FvwmTaskBarFore Black
*FvwmTaskBarBack #c3c3c3
*FvwmTaskBarTipsFore black
*FvwmTaskBarTipsBack bisque
*FvwmTaskBarFont -BASIC_FONT-medium-r-*-*-FONT_SIZE-*-*-*-*-*-*-*
*FvwmTaskBarSelFont -BASIC_FONT-bold-r-*-*-FONT_SIZE-*-*-*-*-*-*-*
*FvwmTaskBarAction Click1 Iconify -1,Raise,Focus
*FvwmTaskBarAction Click2 Module "FvwmIdent" FvwmIdent
*FvwmTaskBarAction Click3 Resize
*FvwmTaskBarUseSkipList
*FvwmTaskBarDeskOnly
*FvwmTaskBarAutoStick
*FvwmTaskBarStartName Start
*FvwmTaskBarStartMenu StartMenu
*FvwmTaskBarStartIcon START_MENU_PIXMAP
*FvwmTaskBarBellVolume 10
*FvwmTaskBarMailBox MAIL_SPOOL_DIR
*FvwmTaskBarClockFormat %a %B %d %H:%M
*FvwmTaskBarShowTips
#*FvwmTaskBarAutoHide

###########################################################################
##### FvwmAudio
*FvwmAudioDir SOUND_DIR
*FvwmAudioPlayCmd SOUND_COMMAND
*FvwmAudioDelay 0
# User must add a new column to each line below, specifying
# a sound file from SOUND_DIR (define-d in .fvwm2rc-defines)
*FvwmAudio startup 
*FvwmAudio shutdown 
*FvwmAudio unknown 
*FvwmAudio add_window 
*FvwmAudio raise_window 
*FvwmAudio lower_window 
*FvwmAudio focus_change_window 
*FvwmAudio destroy_window 
*FvwmAudio iconify 
*FvwmAudio deiconify 
*FvwmAudio toggle_paging 
*FvwmAudio new_page 
*FvwmAudio new_desk 
*FvwmAudio configure_window 
*FvwmAudio window_name 
*FvwmAudio icon_name 
*FvwmAudio res_class
*FvwmAudio res_name
*FvwmAudio end_windowlist

###########################################################################
######## FvwmScroll
*FvwmScrollFore gray76
*FvwmScrollBack gray51

###########################################################################
######## FvwmIconBox
*FvwmIconBoxIconBack    #cfcfcf
*FvwmIconBoxIconHiFore  black
*FvwmIconBoxIconHiBack  LightSkyBlue
*FvwmIconBoxBack        LightSlateGray
*FvwmIconBoxGeometry    6x1+0-0
*FvwmIconBoxMaxIconSize 64x50
*FvwmIconBoxFont        -adobe-helvetica-bold-r-normal--10-100-75-75-p-57-iso8859-1
*FvwmIconBoxSortIcons
*FvwmIconBoxPadding     4
*FvwmIconBoxLines       6
*FvwmIconBoxPlacement   Left Top
#*FvwmIconBoxPixmap      
*FvwmIconBoxHideSC 	Horizontal
*FvwmIconBoxSortIcons
# mouse bindings
*FvwmIconBoxMouse       1       Click           RaiseLower
*FvwmIconBoxMouse       1       DoubleClick     Iconify
*FvwmIconBoxMouse       2       Click           Iconify -1, Focus
*FvwmIconBoxMouse       3       Click           Module "FvwmIdent" FvwmIdent
*FvwmIconBoxSBWidth	2
# Key bindings
*FvwmIconBoxKey         r       RaiseLower
*FvwmIconBoxKey         space   Iconify
*FvwmIconBoxKey         d       Close
# FvwmIconBox built-in functions
*FvwmIconBoxKey         n       
*FvwmIconBoxKey         p       Prev
*FvwmIconBoxKey         h       Left
*FvwmIconBoxKey         j       Down
*FvwmIconBoxKey         k       Up
*FvwmIconBoxKey         l       Right
# Icon file spcifications
#*FvwmIconBox            "Fvwm*"         -

############################################################################
######### FvwmBanner
Style "FvwmBanner"   	StickyOnTop, WinCircSkip, BorderWidth 0, ClickToFocus

############################################################################
######### FvwmWharf - Afterstep's thing...
Style "FvwmWharf" StickyOnTop, WinCircSkip, ClickToFocus, NoDecoration
*FvwmWharfAnimate
*FvwmWharfAnimateMain
*FvwmWharfGeometry	-0+0
*FvwmWharfColumns	1 
*FvwmWharfTextureType	255
*FvwmWharfBgColor	gray51
*FvwmWharf AfterStep AfterStep.xpm Folder
*FvwmWharf Shutdown  ShutDown.xpm  Quit
*FvwmWharf xlock KeysOnChain.xpm FvwmForm XLock
*FvwmWharf ~Folder
*FvwmWharf xclock nil Swallow "xclock" xclock -bg "#8e8a9e" -fg "#00003f" -geometry 45x45-1-1 -padding 0 &
*FvwmWharf xbiff  nil Swallow "xbiff" xbiff -bg "#8e8a9e" -fg "#00003f" -geometry 45x45-1-1 &
*FvwmWharf xload  nil Swallow "xload" xload -nolabel -hl black -bg "#8e8a9e" -geometry 48x48-1-1 &
*FvwmWharf xload  nil Exec xterm -ut -T top -e top &
*FvwmWharf Pager nil Swallow "FvwmPager" Module FvwmPager 0 0
*FvwmWharf xterm monitor-check.xpm  Exec xterm -bg black -geometry 80x25 -sl 500 -sb -ls -T 'xterm: USER@HOSTNAME' &
IfElseProgramExists(`xemacs', `*FvwmWharf emacs text.xpm Exec xemacs &',
  IfProgramExists(`emacs', `*FvwmWharf emacs text.xpm Exec emacs &')
)
IfProgramExists(`gimp', `*FvwmWharf gimp 3dpaint.xpm Exec gimp &')
IfElseProgramExists(`elm', `define(`MAILER_PROG', `elm')',
  IfProgramExists(`pine', `define(`MAILER_PROG', `pine')')
) 
ifdef(`MAILER_PROG', `*FvwmWharf MAILER_PROG writeletter.xpm Exec xterm -T "MAILER_PROG" -e MAILER_PROG &')
IfProgramExists(`netscape', `*FvwmWharf Netscape netscape3.xpm Exec netscape &')
*FvwmWharf Recycler  recycler.xpm  Restart fvwm2

############################################################################
#
# FvwmScript - The very nice scripting module
#
*FvwmScriptPath  ANOTHERLEVEL/scripts

TraceForErrors(`Including forms...')
readFile(`fvwm2rc.forms')
