# -*- m4 -*-
# -*- winmgr -*-
# FVWM Configuration File

##########################################################################
# PATH Setup
# Colon separated unix directory paths for Modules, xpm files, and bitmaps

#ModulePath /usr/contrib/lib/X11/fvwm2
PixmapPath /usr/contrib/lib/X11/pixmaps
IconPath   /usr/contrib/lib/X11/pixmaps

############################################################################
# COLORS and FONTS
# Set the fore and back border colors for the window that has focus

HilightColor white SteelBlue4

# Set fore/back border colors for all other windows
Style "*" Color white/VioletRed4

# Set colors/font for pop-up menus
# Syntax: MenuStyle forecolor backcolor shadecolor font style(fvwm/mwm)
MenuStyle VioletRed4 grey60 grey40 9x15bold fvwm

# Set fonts to use on title bar and icon label
WindowFont              9x15bold
IconFont                9x15bold

############################################################################
# ICON Setup
# Auto Place Icons is a nice feature (Left Top Right Bottom)

Style "*" IconBox -100 500 -1 -200

# If you want ALL icons to follow you around the desktop (Sticky)
Style "*" StickyIcon

############################################################################
# FOCUS Setup
# Does the window with focus control the colormap, or the one under the mouse
# ColormapFocus FollowsFocus
# ColormapFocus FollowsMouse

# If you knock your mouse out of any window, it keeps focus while in root window
Style "*" SloppyFocus

############################################################################
# MISC Setup
# click/release must occur in <n milliseconds to be a "click"

ClickTime 250

# if the window occupies less than n% of the screen, draw it opaque
OpaqueMoveSize 100

# flip by whole pages on the edge of the screen, but delay for a half second
EdgeScroll 0 0
EdgeResistance 500 30

# MWM Emulation: Don't ignore hints for functions and transient decoration
#Style "*" MWMFunctions, MWMDecor

# Changes the look of the "rubberband" you see when moving windows (0 - 255)
XORvalue 100

############################################################################
# WINDOW Placement
# SmartPlacement makes new windows pop-up in blank regions of screen

Style "*" SmartPlacement

# If SmartPlacement fails, this places it randomly instead of making you do it
Style "*" RandomPlacement

############################################################################
# STYLE Flag Setup
# (decorations and window options)
# Note: Order is important!! If compatible styles are set, styles are ORed
# together. If conflicting styles are set, the last one specified is used.

# change the default width, set a global icon, and give borders to popups
Style "*" BorderWidth 7, HandleWidth 7, Icon unknown1.xpm, DecorateTransient

Style "*lock"		NoTitle, Sticky, WindowListSkip
Style "*xterm*"		Icon xterm.xpm

Style "FvwmPager"	NoTitle, Sticky, WindowListSkip, ClickToFocus, StaysOnTop, NoHandles, BorderWidth 0
Style "swisswatch"	NoTitle, Sticky, WindowListSkip, ClickToFocus, StaysOnTop, NoHandles, BorderWidth 0
Style "xclock"	NoTitle, Sticky, WindowListSkip, ClickToFocus, StaysOnTop, NoHandles, BorderWidth 0
Style "xfaces"          NoTitle, Sticky, WindowListSkip, ClickToFocus, StaysOnTop, NoHandles, BorderWidth 0
Style "xsession"	NoTitle, Sticky, WindowListSkip, ClickToFocus, NoHandles, BorderWidth 0
Style "SoundPlayer" Sticky
Style "CDplayer" Sticky
Style "The GIMP" StaysOnTop
#Style "Mathematica Graphics*" SmartPlacement

#############################################################################
# START-UP Functions
#
m4_define(`HAS_MECCA_ACCOUNT',
  m4_ifelse(USER,`tjchol01',`yes', USER, `damill01', `yes', USER, `aglozo01', `yes', USER, `jskirk01', `yes', USER, `wcenter', `yes'))


AddToFunc "InitFunction"
#+		"I"	Exec exec $XEMACS_SERVER -unmapped

m4_ifelse(HAS_MECCA_ACCOUNT, `yes',`
+		"I"	Exec exec mecca -n "env DISPLAY=$HOSTDISPLAY \$XEMACS_SERVER  >/dev/null 2>&1 </dev/null &"
+		"I"	Exec exec mecca -n "xfaces -C -c 1 -geom -0+135 -fg white -bg black -fn 6x10 -p 5 -display $HOSTDISPLAY >/dev/null 2>&1 </dev/null &"
',`

+		"I"	Exec exec $XEMACS_SERVER
+		"I"	Exec exec xfaces -C -c 1 -geom -0+135 -fg white -bg black -fn 6x10 -p 5
')

+		"I"	Module FvwmPager 0 0
+		"I"	Module FvwmAudio

+		"I"	Exec exec xautolock -time 20 -corners 0+0- -cornerdelay 1 -cornerredelay 60 -locker 'xlock -mode flame -lockdelay 3600 -allowroot -cycles 10000 -saturation 1 -delay 200000 -batchcount 50 -nice 20'
+		"I"	Exec exec swisswatch -geom 68x68-0+67
+		"I"	Exec exec color_xterm -C -fg black -bg white -fn 6x10 -geometry 40x8-0-0 -name xsession -e /usr/bin/tail -f $XLOGFILE

m4_ifelse(USER,`tjchol01',`
+		"I"	Exec exec color_xterm -ls -geom 80x66+0+2048
+		"I"	Exec exec mecca -n "netscape -geom 990x990+2560+0 -display $HOSTDISPLAY >/dev/null 2>&1 </dev/null &"

', USER, `aglozo01',`
+		"I"	Exec exec color_xterm -ls -geom 80x66+2560+2048
#+		"I"	Exec exec talos -f "exec color_xterm -geom 80x66+1280+2048 -T talos -display $HOSTDISPLAY & "

', USER, `damill01',`
+		"I"	Exec exec color_xterm -ls -geom 80x66+1280+0
',`

+		"I"	Wait emacs
+		"I"	Exec exec color_xterm -ls -geom 80x66+0+0
')

m4_ifelse(HAS_MECCA_ACCOUNT, `yes',`
+		"I"	Wait emacs
+               "I"     Exec exec mecca "exec color_xterm -ls -display $HOSTDISPLAY  >/dev/null 2>&1 </dev/null &"
')


AddToFunc "RestartFunction"
+		"I" Module FvwmPager 0 0
+		"I" Next [!iconic CurrentScreen] Focus
+		"I" Module FvwmAudio

############################################################################
# This is the root menu
AddToMenu RootMenu
m4_ifelse(HAS_MECCA_ACCOUNT, `yes',`
+	"Xterm%mini.xterm.xpm%"		Exec exec color_xterm -tn xterm
+       "XTerm Mecca%mini.xterm.xpm%"   Exec exec mecca -n "color_xterm -T mecca -display $HOSTDISPLAY >/dev/null 2>&1 </dev/null &"
#+       "XTerm Talos%mini.xterm.xpm%"   Exec talos -f "exec color_xterm -T talos -display $HOSTDISPLAY & "
+	"XEmacs%mini.xemacs.xpm%"	Exec exec $XEMACS
+       "XEmacs Mecca%mini.xemacs.xpm%" Exec exec mecca -n "exec env DISPLAY=$HOSTDISPLAY \$XEMACS  >/dev/null 2>&1 </dev/null &"
#+       "XEmacs Talos%mini.xemacs.xpm%" Exec talos -f "exec xemacs -display $HOSTDISPLAY &"
+	"Netscape%mini.netscape.xpm%"	Exec exec netscape -geom 990x990+0+0
+	"Netscape Mecca%mini.netscape.xpm%" Exec exec mecca -n "exec  netscape -geom 990x990+0+0 -display $HOSTDISPLAY  >/dev/null 2>&1 </dev/null &"
+	"Toolchest%mini.sgi.xpm%"	Exec exec /usr/bin/X11/toolchest -geom -80+0
+	"Lock screen%mini.xlock.xpm%"   Exec exec xlock -mode flame
+	"Quit%mini.exit.xpm%"           Quit
',`
+	"Xterm%mini.xterm.xpm%"		Exec exec color_xterm -tn xterm
#+       "XTerm Talos%mini.xterm.xpm%"   Exec talos -f "exec color_xterm -T talos -display $HOSTDISPLAY & "
+	"XEmacs%mini.xemacs.xpm%"	Exec exec $XEMACS
#+       "XEmacs Talos%mini.xemacs.xpm%" Exec talos -f "exec xemacs -display $HOSTDISPLAY &"
+	"Netscape%mini.netscape.xpm%"	Exec exec netscape -geom 990x990+0+0
+	"Toolchest%mini.sgi.xpm%"	Exec exec /usr/bin/X11/toolchest -geom -80+0
+	"Lock screen%mini.xlock.xpm%"   Exec exec xlock -mode flame
+	"Quit%mini.exit.xpm%"           Quit
')


############################################################################
# BUTTON Setup
#

## Buttons actually being used (duplicated below)
# Stylized X
ButtonStyle 2 16 20x20@1 30x20@1 50x40@1 70x20@1 80x20@1 80x30@0 60x50@0 80x80@0 70x80@0 50x60@0 30x80@0 20x80@0 20x70@0 40x50@1 20x30@0 20x20@1
# small up triangle
ButtonStyle 4 4 50x35@1 65x65@0 35x65@0 50x35@1
# small down triangle
ButtonStyle 6 4 50x65@1 35x35@1 65x35@1 50x65@0
# Stylized X
ButtonStyle 3 16 20x20@1 30x20@1 50x40@1 70x20@1 80x20@1 80x30@0 60x50@0 80x80@0 70x80@0 50x60@0 30x80@0 20x80@0 20x70@0 40x50@1 20x30@0 20x20@1

##############################################################################
# MENU Setup
#

# This defines the most common window operations
AddToMenu Window-Ops
+	"Move%mini.move.xpm%"	Move-or-Raise2
+	"Resize%mini.resize.xpm%"	Resize-or-Raise2
+	"Raise%mini.raise.xpm%"	Raise
+	"Lower%mini.lower.xpm%"	Lower
+	"(De)Iconify%mini.iconify.xpm%"	Iconify
+	"(Un)Stick%mini.stick.xpm%"	Stick
+	"(Un)Maximize%mini.maximize.xpm%"  maximize_func
+	""              Nop
+	"Delete%mini.xpm%"        Delete
+	"Close%mini.xpm%"         Close
+	"Destroy%mini.destroy.xpm%"       Destroy
+	""              Nop
+	"ScrollBar"     Module FvwmScroll 2 2
+       "Refresh Screen%mini.refresh.xpm%" Refresh
+       "Restart Fvwm%mini.fvwm.xpm%"	Restart fvwm2



############################################################################
# COMPLEX FUNCTIONS
#
AddToFunc warp-or-run		"I" Next [$0 CirculateHit] Iconify -1
+				"I" Next [$0 CirculateHit] Focus
+				"I" None [$0] $1

AddToFunc Move-or-Raise		"I" Raise
+				"M" Move
+				"D" Lower

AddToFunc Move-or-Raise2        "M" Raise
+				"M" Move
+				"D" Lower

AddToFunc Maximize-Func         "C" Maximize     0 100
+                               "D" Maximize     100 100

AddToFunc Move-or-Iconify       "I" Raise
+                               "M" Move
+                               "D" Iconify

AddToFunc Resize-or-Raise       "I" Raise
+                               "M" Resize
+                               "D" Lower

AddToFunc Resize-or-Raise2      "M" Raise
+                               "M" Resize
+                               "D" Lower

AddToFunc Iconify-and-Raise     "I" Iconify
+                               "I" Raise

############################################################################
# MOUSE Setup
#
# First, the root window. Button 1 brings up the Main Menu. B2 is the
# window operations list, and B3 is the winlist module
#     Button	Context Modifi 	Function
Mouse 1		R    	A      	WindowList
Mouse 2		R    	A       Popup Window-Ops Nop
Mouse 3		R   	A       Popup RootMenu Nop

# Now, title bar buttons
# Left button is the Window-Ops menu, right is iconify, rightmost is maximize
#     Button	Context Modifi 	Function
Mouse 0		1       A       Menu Window-Ops Close
Mouse 0		2       A       Close
Mouse 0		3       A       Stick
Mouse 0		4    	A     	Maximize-Func
Mouse 0		6    	A     	Iconify

# Button 1 in Frame or Sides is a resize-or-raise, in Icons is a move or
# de-iconify, and on Top does a move-or-raise
#     Button	Context Modifi 	Function
Mouse 1 	FS      A       Resize-or-Raise
Mouse 1		I       A       Move-or-Iconify
Mouse 1		T       A       Move-or-Raise

# Button 2 in an Icon is de-iconify, in Corners/Sides/Titlebar gets Ops Menu
#     Button	Context Modifi 	Function
Mouse 2 	I       A       Iconify
Mouse 2 	FST     A       Menu Window-Ops Nop

# Button 3 does a raise-lower on anything
Mouse 3 	TSIF    A       RaiseLower

############################################################################
# KEYBOARD Setup
#

# press arrow + meta anywhere, and scroll by 1 page
#Key Left	A	M	Scroll -100 +0
#Key Right	A	M	Scroll +100 +0
#Key Up		A	M	Scroll +0   -100
#Key Down	A	M	Scroll +0   +100

# shuffle
Key Tab		A	M	RaiseLower


# numerical keypad
Key KP_0	A	N	Popup RootMenu Nop
Key KP_0	A	S	WindowList
Key KP_0	A	C	Menu Window-Ops Nop

Key KP_1	A	N	GotoPage 0 2
Key KP_2	A	N	GotoPage 1 2
Key KP_3	A	N	GotoPage 2 2
Key KP_4	A	N	GotoPage 0 1
Key KP_5	A	N	GotoPage 1 1
Key KP_Begin	A	N	GotoPage 1 1
Key KP_6	A	N	GotoPage 2 1
Key KP_7	A	N	GotoPage 0 0
Key KP_8	A	N	GotoPage 1 0
Key KP_9	A	N	GotoPage 2 0

# move window to another page
AddToFunc	DeskWin "I"	Iconify 1
+			"I"	GotoPage $0 $1
+			"I"	Next [iconic] Iconify -1

Key KP_1	A	C	DeskWin 0 2
Key KP_2	A	C	DeskWin 1 2
Key KP_3	A	C	DeskWin 2 2
Key KP_4	A	C	DeskWin 0 1
Key KP_5	A	C	DeskWin 1 1
Key KP_6	A	C	DeskWin 2 1
Key KP_7	A	C	DeskWin 0 0
Key KP_8	A	C	DeskWin 1 0
Key KP_9	A	C	DeskWin 2 0


# press arrow + meta key, and scroll by 1/10 of a page
Key Left	A	MC	Scroll -10   +0
Key Right	A	MC	Scroll +10   +0
Key Up		A	MC	Scroll  +0  -10
Key Down	A	MC	Scroll  +0  +10

# press shift arrow + control anywhere, and move the pointer by 1% of a page
Key Left	A	SC	CursorMove -1  +0
Key Right	A	SC	CursorMove +1  +0
Key Up		A	SC	CursorMove +0  -1
Key Down	A	SC	CursorMove +0  +1

# press shift arrow + meta key, and move the pointer by 1/10 of a page
Key Left	A	SM	CursorMove -10  +0
Key Right	A	SM	CursorMove +10  +0
Key Up		A	SM	CursorMove +0  -10
Key Down	A	SM	CursorMove +0  +10

# Keyboard accelerators
Key F4		A	MC	Delete
Mouse 1		A   	MC      Close

###########################################################################
# PAGER Setup
# set the desk top size in units of physical screen size (width x height)

DeskTopSize 3 3

############################################################################
# FvwmPager

*FvwmPagerBack gray40
*FvwmPagerFore white
*FvwmPagerFont none
*FvwmPagerSmallFont 5x7
*FvwmPagerHilight gray60
*FvwmPagerGeometry 66x66-1+0

############################################################################
# FvwmAudio

*FvwmAudioPlayCmd /usr/contrib/bin/auplay
*FvwmAudioDir /usr/contrib/share/X11/sounds

*FvwmAudio startup m4_ifelse(USER,`damill01',`boo.au',`slap.au')

*FvwmAudio shutdown blast.au

*FvwmAudio unknown say-beep.au

*FvwmAudio add_window slap.au

#*FvwmAudio raise_window swoosh.au
#*FvwmAudio lower_window swoosh.au
#*FvwmAudio focus_change boing.au

*FvwmAudio destroy_window hammer.au
*FvwmAudio iconify bark.au
*FvwmAudio deiconify say-beep.au

#*FvwmAudio toggle_paging fwop.au
#*FvwmAudio new_page beam_trek.au
#*FvwmAudio new_desk beam_trek.au
#*FvwmAudio configure_window huh.au
#*FvwmAudio window_name beep.au
#*FvwmAudio icon_name beep.au
#*FvwmAudio res_class beep.au
#*FvwmAudio res_name beep.au
#*FvwmAudio end_windowlist twang.au

*FvwmAudioDelay 0

##########################################################################
# $Log: .fvwm2rc,v $
# Revision 1.4  1996/08/29 02:01:15  tjchol01
# Fixed xsession colors.
#
# Revision 1.3  1996/08/28 16:54:30  tjchol01
# Moved clients' startup from .xsession.
#
# Revision 1.2  1996/08/27 20:55:17  tjchol01
# Error monitoring and swisswatch.
#
# Revision 1.1  1996/08/22 18:15:03  tjchol01
# Initial revision