# .twmrc modified by George Bell from files at http://www.plig.org/xwinman/vtwm.html
# 
# Place this file (.twmrc) in your home directory and restart X
#
# Designed for use on WIBR's fladda

NoGrabServer
#NoDefaults
RestartPreviousState
DecorateTransients
TitleFont "-adobe-helvetica-bold-r-normal--*-120-*-*-*-*-*-*"
ResizeFont "-adobe-helvetica-bold-r-normal--*-120-*-*-*-*-*-*"
MenuFont "-adobe-helvetica-bold-r-normal--*-120-*-*-*-*-*-*"
IconFont "-adobe-helvetica-bold-r-normal--*-100-*-*-*-*-*-*"
IconManagerFont "-adobe-helvetica-bold-r-normal--*-100-*-*-*"
#ClientBorderWidth 2
BorderWidth 3
ButtonIndent 2
NoHighlight
AutoRelativeResize
#DefaultBackground
FramePadding 0
#ForceIcons
#NoRaiseOnMove
OpaqueMove
Zoom 500

Color
{
    BorderColor "navy"
    DefaultBackground "darkblue"
    DefaultForeground "white"
    TitleBackground "red"
    TitleForeground "yellow"
    MenuBackground "blue"
    MenuForeground "yellow"
    MenuTitleBackground "yellow"
    MenuTitleForeground "red"
    IconBackground "darkblue"
    IconForeground "gray60"
    IconBorderColor "darkblue"
    IconManagerBackground "navy"
    IconManagerForeground "yellow"
    PointerForeground "navy"
    PointerBackground "white"
}

#
# Define some useful functions for motion-based actions.
#
MoveDelta 1
Function "move-or-lower" { f.move f.deltastop f.lower }
Function "move-or-raise" { f.move f.deltastop f.raise }
Function "move-or-iconify" { f.move f.deltastop f.iconify }

#
# Set some useful bindings.  Sort of uwm-ish, sort of
# simple-button-ish
#
Button1 = : root : f.menu "main_menu"
Button2 = : root : f.delete
Button3 = : root : f.menu "window"

Button1 = m : window|icon : f.function "move-or-lower"
Button2 = m : window|icon : f.iconify
Button3 = m : window|icon : f.function "move-or-raise"

Button1 = : title : f.function "move-or-raise"
Button2 = : title : f.raiselower
Button3 = : title : f.iconify

Button1 = : icon : f.function "move-or-iconify"
Button2 = : icon : f.destroy
Button3 = : icon : f.iconify

Button1 = : iconmgr : f.iconify
Button2 = : iconmgr : f.destroy
Button3 = : iconmgr : f.iconify

#######  Menus and cursors  #######

menu "main_menu"
{
	"WIBR Biocomputing on fladda"   f.title
	"Classic window (xterm)"        f.exec "xterm &"
	"Fancy window (dtterm)"   	f.exec "dtterm -bg white -fg black &"
	"Nedit editor"       		f.exec "/usr/people/gbell/bin/nedit -bg white -fg black &"
	"Xemacs editor"      		f.exec "xemacs -bg white -fg black &"
	"Clipboard"         		f.exec "xclipboard -bg skyblue &"
	"File manager"     		f.exec "xv -vsm &"
	"Netscape"      		f.exec "netscape &"
	"Man pages"      		f.exec "xman &"
	"Load viewer"     		f.exec "xload -hl green &"
	"Analog clock"     		f.exec "clock -geometry 20x30 &"
	"Digital clock"     		f.exec "xclock -d &"
	"Calculator"     		f.exec "xcalc &"
	"GCG Seqlab"         		f.exec "/usr/people/gbell/bin/rungcg &"
	"SAS"   			f.exec "sas &"
	"MATLAB"   			f.exec "matlab &"
	"Screensaver without lock"	f.exec "xlock -nolock -mode random &"
	"Screensaver with lock"		f.exec "xlock -mode random &"
	"Background color"		f.menu "bg_colors"
}

menu "bg_colors"
{
	"Background colors"    	f.title
	"white"     		f.exec "xv -quit -root /usr/people/gbell/images/white.gif &"
	"black"   		f.exec "xv -quit -root /usr/people/gbell/images/black.gif &"
	"yellow"     		f.exec "xv -quit -root /usr/people/gbell/images/yellow.gif &"
	"red"     		f.exec "xv -quit -root /usr/people/gbell/images/red.gif &"
	"blue"     		f.exec "xv -quit -root /usr/people/gbell/images/blue.gif &"
	"green"     		f.exec "xv -quit -root /usr/people/gbell/images/green.gif &"
	"purple"     		f.exec "xv -quit -root /usr/people/gbell/images/purple.gif &"
	"orange"     		f.exec "xv -quit -root /usr/people/gbell/images/orange.gif &"
}

menu "window"
{
	"X Windows"      f.title
	"Kill Window"    f.destroy
	"Delete Window"  f.delete
	""               f.nop
	"Maximize"       f.fullzoom
	"Minimize"       f.iconify
	"Resize"         f.resize
	"Move"           f.move
	"Raise"          f.raise
	"Lower"          f.lower
	""               f.nop
	"Focus"          f.focus
	"Unfocus"        f.unfocus
	"Show Iconmgr"   f.showiconmgr
	"Hide Iconmgr"   f.hideiconmgr
	""               f.nop
	"Redraw"         f.refresh
	"Restart"        f.restart
	"Quit"           f.menu "quit"
}

menu "quit"
{
	"Really Quit?"     f.title
	"No"               f.nop
	"Yes"              f.quit
}

Cursors
{
	 Frame     "left_ptr"
	 Title     "left_ptr"
	 Icon      "left_ptr"
	 IconMgr   "left_ptr"
	 Move      "fleur"
	 Resize    "fleur"
	 Menu      "hand1"
	 Button    "hand2"
	 Wait      "clock"
	 Select    "dot"
	 Destroy   "pirate"
}