#
# $XConsortium: system.twmrc,v 1.7 89/12/01 11:23:47 jim Exp $
# 
# Default twm configuration file; needs to be kept small to conserve string
# space in systems whose compilers don't handle medium-sized strings.
#
# Sites should tailor this file, providing any extra title buttons, menus, etc.
# that may be appropriate for their environment.  For example, if most of the
# users were accustomed to uwm, the defaults could be set up not to decorate
# any windows and to use meta-keys.
#

NoGrabServer
DecorateTransients

TitleFont 		"9x15bold"
#ResizeFont 		"9x15bold"
MenuFont 		"9x15bold"
IconFont 		"12x24romankana"

RandomPlacement
VirtualDesktop "4x1"
VirtualFont "7x5"
#ShowVirtualNames
PannerGeometry "-5-5"
PannerScale  15
ScrollDistanceX 100
ScrollDistanceY 100

#ClientBorderWidth
ShowIconManager
IconifyByUnmapping

IconManagerFont		"9x15romankana"
IconManagerGeometry	"=245x10+5+70"
IconManagerDontShow {
   "xtools"
   "xload"
   "xclock"
   "xdaliclock"
   "tkpbiff"
   "xbiff"
   "xperfmon"
   "TWM Icon Manager"
}

NoTitle {
   "xbiff"
   "tkpbiff"
   "xclock"
   "xdaliclock"
   "xload"
   "xperfmon"
   "Virtual Desktop"
   "xperfmon"
   "xtools"
   "confirm"
   "TWM Icon Manager"
}

Cursors {
   Wait     "watch"
}

NoHighlight {
   "xclock"
   "xdaliclock"
   "xbiff"
   "xload"
   "xperfmon"
}

AutoRaise {
}

Color
{
    BorderColor "slategrey"
    DefaultBackground "gray85"
    VirtualDesktopBackground "gray85"
}

Sticky {
#   "TWM Icon Manager"
}

StickyAbove

MoveDelta 3

Function "scroll2" { f.scrollhome f.deltastop f.scrollright }
Function "scroll3" { f.scrollhome f.deltastop f.scrolldown }
Function "scroll4" { f.scrollhome f.deltastop f.scrolldown f.deltastop f.scrolldown }

Function "move-or-raise" { f.raise f.deltastop f.move }
Function "move-or-lower" { f.move f.deltastop f.lower }
Function "move-or-iconify" { f.move f.deltastop f.iconify }

###########################################################################
#       Mouse button/key maps
###########################################################################
#
# BUTTONS   KEYS   CONTEXT   FUNCTION
# =======   ====   =======   ========

Button1 =        : root    : f.menu "LeftButton"
Button2 =        : root    : f.menu "MiddleButton"
Button3 =        : root    : f.menu "RightButton"

Button1 =        : title   : f.function "move-or-raise"
Button2 =        : title   : f.iconify
Button3 =        : title   : f.function "move-or-lower"
 
Button1 =        : icon    : f.function "move-or-iconify"
Button2 =        : icon    : f.function "move-or-iconify"
Button3 =        : icon    : f.iconify
 
Button1 =        : iconmgr : f.iconify
Button2 =        : iconmgr : f.iconify
Button3 =        : iconmgr : f.iconify

Button2 =  s     : window  : f.move


"L1"    =        : all     : f.raiselower
"L2"    =        : all     : f.iconify
"L3"    =        : all     : f.zoom
"L4"    =        : all     : f.fullzoom
"L5"    =        : all     : f.warpto "emacs"
"L6"    =        : all     : f.warpto "xterm"
"L7"    =        : window | icon : f.iconify
"L8"    = c      : all     : !"xlock -remote -mode swarm > /dev/null 2>& 1 &"

"F1"    =        : all     : f.scroll "+0+0"
"F2"    =        : all     : f.scroll "+1+0"
"F3"    =        : all     : f.scroll "+2+0"
"F4"    =        : all     : f.scroll "+3+0"

"F11"   =        : all     : f.twmrc
"F12"   =        : all     : f.restart


###########################################################################
#       Menu specifications
###########################################################################

menu "LeftButton"
{
"X Fun" 	f.title
"W3t"           !"w3t &"
"TinyFugue"     !"xterm -sb -geometry 80x25 -T Midnight \
                 -n Midnight -e tf &"
"TelnetMS"      !"xterm -sb -geometry 80x25 -T Midnight \
                 -n Midnight -e telnet holly.ludd 3000 &"
"X Terminals" 	f.title
"xterm"         !"xterm -sl 128 -sb -geometry 81x34 -T $HOST -n $HOST &"
"mother"        !"xrsh -l unicorn mother.ludd xterm -T unicorn@mother -n unicorn@mother &"
"dproj"         !"rxterm -l d-proj $HOST -n proj@$HOST -T proj@$HOST &" 
"olivaw"        !"xterm -T unicorn@ftp -n unicorn@ftp -e rlogin ftp.ludd -l unicorn &"
"ludde"        !"xterm -T midnight@ludde -n midnight@ludde -e rlogin ludde.ludd -l midnight &"
"holly"         !"xterm -T midnight@holly -n midnight@holly -e rlogin holly.ludd.luth.se -l midnight&"
"Utilities"	f.title
"emacs"		f.exec "emacs &"
"emacs@ludd"    !"xrsh -l unicorn mother.ludd xterm -T emacs@ludd -n emacs@ludd -e emacs&"
"Pine"          !"xrsh -l unicorn father.ludd xterm -T Pine -n Pine -e pine&"
"elm"           !"xrsh -l unicorn mother.ludd xterm -T elm -n elm -e elm&"
"kss-elm"	f.exec "xterm -g 90x40 -T elm -n elm -e elm &"
"Keyboard" 	f.title
"Swedish"	f.exec "keys swe"
"American"	f.exec "keys am"
"Win System"    f.title
"Laser"         !"xwd -frame | xpr -device ps | lpr -Plw25 &"
#"Laser"        !"xgrabsc | rsh $HOST -l d88-kss lpr -Plw25"
"Restart"	f.restart
"Destroy"       f.destroy
"Quit"		f.quit
}

menu "MiddleButton"
{
"Programs"	        f.title
"xmosaic"	!"xmosaic&"
"xarchie"	f.exec "xrsh father.ludd -l unicorn xarchie&"
"xgopher"	f.exec "xgopher &"
"TkTodo"        !"xrsh -l unicorn father.ludd tktodo &"
"xcoral"	f.exec "xcoral ~d-proj/class/Html.cc &"
"xedit"	        f.exec "xedit -geometry 722x622 &"
"xman"		f.exec "xman -font 10x20 -notopbox -pagesize 700x500+450+350 &"
"erlang"	!"erl -x&"
"LuddKom"       !"emacs -f lyskom &"
}

menu "Twm"
{
"Twm"	        f.title
"Kill"		f.destroy
"Move"         	f.move
"Stick"         f.stick
"Delete"	f.delete
"Iconify"	f.iconify
"Destroy"       f.destroy
"RaiseLower"    f.raiselower
"Raise "        f.raise
"Lower "        f.lower
"Resize "	f.resize
"Focus "	f.focus
"Unfocus"	f.unfocus
"Zoom" 		f.zoom
"FullZoom"    	f.fullzoom
"Refresh"    	f.refresh
"Xrefresh"    	!"xrefresh &"
"Forcemove"    	f.forcemove
"Circledown"  	f.circledown
"Circleup"    	f.circleup
"Icon Manager" 	f.title
"Show"         	f.showiconmgr
"Hide"        	f.hideiconmgr
}

menu "RightButton"
{
"Submenus"      f.title
"Twm"           f.menu  "Twm"
"Muds"          f.menu  "muds"
"Ludd"          f.menu  "ludd"
"Jota"		f.menu	"jota"
"Sigma"		f.menu	"sigma"
"Xterm"         f.menu  "xterm"
"Bkgrnd"        f.menu  "bkgr"
}

menu "muds"
{
 "MUDs"           f.title
 "Admin MS"       !"xterm -sl 128 -sb -geometry 80x6+145+5 -T Midnight-Adm\
                  -n Midnight-Adm -e rlogin holly.ludd -l midnight &"
 "Midnight"        !"xterm -sb -geometry 80x25+0+130 -T Midnight \
                  -n Midnight -e telnet mud.ludd 3000 &"
 "Infinity"       !"xterm -sb -geometry 80x34+0+355 -T Infinity \
                  -n Infinity -e telnet infinity.ccs.neu.edu 3000 &"
 "Angalon"        !"xterm -sb -geometry 80x34+400+350 -T Angalon \
                  -n Angalon -e telnet 131.204.110.10 3000 &"
 "LPCC  "         !"xterm -sb -geometry 80x34+5+200 -T LPCC -n LPCC \
                  -e telnet 138.40.11.1 6999 &"
 "Batmud"         !"xterm -sb -geometry 80x34+5+200 -T Batmud -n Batmud \
                  -e telnet batmud.jyu.fi 2001 &"
 "Genesis"        !"xterm -sb -geometry 80x34+5+200 -T Genesis -n Genesis \
                  -e telnet milou.cd.chalmers.se 2000 &"
}

menu "ludd"
{
"Ludd"		f.title
"holly"		f.exec	"xon holly.ludd.luth.se -user midnight &"
"mother"	f.exec	"xon mother.ludd.luth.se -access -user unicorn&"
"father"        f.exec	"xon father.ludd.luth.se -access -user unicorn&"
"harlie"	f.exec	"xon harlie.ludd.luth.se -access -user unicorn&"
"box"  		f.exec	"xon box.ludd.luth.se -access -user unicorn&"
"hal"   	f.exec	"xon hal.ludd.luth.se -access -user unicorn&"
"skynet" 	f.exec	"xon skynet.ludd.luth.se -access -user unicorn&"
"adolf"  	f.exec	"xon adolf.ludd.luth.se -access -user unicorn&"
"toby"   	f.exec	"xon toby.ludd.luth.se -access -user unicorn&"
"eddie"  	f.exec	"xon eddie.ludd.luth.se -access -user unicorn&"
"minerva" 	f.exec	"xon minerva.ludd.luth.se -access -user unicorn&"
"sal"		f.exec	"xon sal.ludd.luth.se -access -user unicorn&"
"joshua" 	f.exec	"xon joshua.ludd.luth.se -access -user unicorn&" 
"deckard"	f.exec	"xon deckard.ludd.luth.se -access -user unicorn&" 
"hactar" 	f.exec	"xon hactar.ludd.luth.se -access -user unicorn&"
"zark"    	f.exec	"xon zark.ludd.luth.se -access -user unicorn&"
"ludde"    	f.exec	"xon ludde.ludd.luth.se -access -user unicorn&"
}

menu "jota"
{
"Jota"		f.title
"jota"		f.exec	"xon jota -access &"
"jota1"		f.exec	"xon jota1 -access &"
"jota2"		f.exec	"xon jota2 -access &"
"jota3"		f.exec	"xon jota3 -access &"
"jota4"		f.exec	"xon jota4 -access &"
"jota5"		f.exec	"xon jota5 -access &"
"jota6"		f.exec	"xon jota6 -access &"
"jota7"		f.exec	"xon jota7 -access &"
"jota8"		f.exec	"xon jota8 -access &"
"jota9"		f.exec	"xon jota9 -access &"
"jota10"	f.exec	"xon jota10 -access &"
"jota11"	f.exec	"xon jota11 -access &"
"jota12"	f.exec	"xon jota12 -access &"
"jota13"	f.exec	"xon jota13 -access &"
"jota14"	f.exec	"xon jota14 -access &"
"jota15"	f.exec	"xon jota15 -access &"
"jota16"	f.exec	"xon jota16 -access &"
"jota17"	f.exec	"xon jota17 -access &"
"jota18"	f.exec	"xon jota18 -access &"
"jota19"	f.exec	"xon jota19 -access &"
"jota20"	f.exec	"xon jota20 -access &"
"jota21"	f.exec	"xon jota21 -access &"
"jota22"	f.exec	"xon jota22 -access &"
"jota23"	f.exec	"xon jota23 -access &"
"jota24"	f.exec	"xon jota24 -access &"
"jota25"	f.exec	"xon jota25 -access &"
"jota26"	f.exec	"xon jota26 -access &"
"jota27"	f.exec	"xon jota27 -access &"
"jota28"	f.exec	"xon jota28 -access &"
"jota29"	f.exec	"xon jota29 -access &"
"jota30"	f.exec	"xon jota30 -access &"
"jota31"	f.exec	"xon jota31 -access &"
"jota32"	f.exec	"xon jota32 -access &"
"jota33"	f.exec	"xon jota33 -access &"
"jota34"	f.exec	"xon jota34 -access &"
"jota35"	f.exec	"xon jota35 -access &"
}

menu "sigma"
{
"Sigma"		f.title
"sigma1"		f.exec	"xon sigma1 -access &"
"sigma2"		f.exec	"xon sigma2 -access &"
"sigma3"		f.exec	"xon sigma3 -access &"
"sigma4"		f.exec	"xon sigma4 -access &"
"sigma5"		f.exec	"xon sigma5 -access &"
"sigma6"		f.exec	"xon sigma6 -access &"
"sigma7"		f.exec	"xon sigma7 -access &"
"sigma8"		f.exec	"xon sigma8 -access &"
}

menu "xterm" {
"Xterminals"       f.title
"Short xterm"      !"xterm -n Small -geometry 80x10+5+80 -fn -adobe-courier-medium-r-normal--12-120-75-75-m-0-iso8859-1 \
                     -fb -adobe-courier-bold-r-normal--12-120-75-75-m-0-iso8859-1 -title xterm_Small &"
"Long wide xterm"  !"xterm -n Small -geometry 80x10+5+80 -fn -adobe-courier-medium-r-normal--14-140-75-75-m-0-iso8859-1 \
                    -fb -adobe-courier-bold-r-normal--14-140-75-75-m-0-iso8859-1 -title xterm_Wide &"
"Long xterm"       !"xterm -n Small -geometry 80x66+5+80 -fn -adobe-courier-medium-r-normal--12-120-75-75-m-0-iso8859-1 \
                     -fb -adobe-courier-bold-r-normal--12-120-75-75-m-0-iso8859-1 -title xterm_Small &"
"Long wide xterm"  !"xterm -n Small -geometry 80x66+5+80 -fn -adobe-courier-medium-r-normal--14-140-75-75-m-0-iso8859-1 \
                    -fb -adobe-courier-bold-r-normal--14-140-75-75-m-0-iso8859-1 -title xterm_Wide &"
}

menu "bkgr" {
"Backgrounds"           f.title
 "Bosskey"      !"xsetroot -mod 2 8 &"
 "Spiff"        !"xv -max -quit -root /u0/unicorn/.pics/spiff.gif &"
 "Madonna"      !"xv -max -quit -root /u0/unicorn/.pics/madonna.gif &"
 "Battle"       !"xv -max -quit -root /u0/unicorn/.pics/battle01.gif &"
 "Falcon"       !"xv -max -quit -root /u0/unicorn/.pics/falcon01.gif &"
 "Queen"        !"xv -max -quit -root /u0/unicorn/.pics/queen01.gif &"
 "Sign"         !"xv -max -quit -root /u0/unicorn/.pics/sign.gif &"
 "Vader"        !"xv -max -quit -root /u0/unicorn/.pics/vader01.gif &"
 "Unicorn"      !"xv -maxpect -quit -root /u0/unicorn/.pics/unicorn.gif &"
 }
