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