#
# $XConsortium: system.twmrc /main/9 1996/10/16 16:14:38 kaleb $
# 
# 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
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
BorderWidth 0

Color
{
    BorderColor "slategrey"
    #BorderColor "black"
    DefaultBackground "rgb:2/a/9"
    DefaultForeground "gray85"
    TitleBackground "rgb:2/a/9"
    TitleForeground "gray85"
    MenuBackground "rgb:2/a/9"
    MenuForeground "gray85"
    MenuTitleBackground "gray70"
    MenuTitleForeground "rgb:2/a/9"
    IconBackground "rgb:2/a/9"
    IconForeground "gray85"
    IconBorderColor "gray85"
    IconManagerBackground "rgb:2/a/9"
    IconManagerForeground "gray85"
}

#
# Define some useful functions for motion-based actions.
#
MoveDelta 3
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 "defops"

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

# default twm setting is move or raise
Button1 = : title : f.function "move-or-raise"
Button1 = c : window : f.function "move-or-raise"
#Button1 = : title : f.function "raise-or-zoom"
#Button3 = m : window|title : f.function "move-or-raise"
Button2 = : title : f.raiselower

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

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

Function "window-next" {f.backiconmgr f.raiselower}
Function "window-prev" {f.forwiconmgr f.raiselower}

#
# And a menus with the usual things
#
menu "defops"
{
"Twm"	f.title
"Iconify"	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
"Kill"		f.destroy
"Delete"	f.delete
""		f.nop
"Restart"	f.restart
"Exit"		f.quit
}

RandomPlacement
#NoTitleFocus

AutoRaise
{
#	"emacs"
#	"kterm"
#	"Netscape"
	"xclock"
}

#AutoRelativeResize

"0" = c : all : f.fullzoom
"4" = c : all : f.delete
#"8" = c : all : f.function	"window-prev"
#"9" = c : all : f.function	"window-next"
"8" = c : all : f.warpring "prev"
"9" = c : all : f.warpring "next"

"Muhenkan" = c : all : f.exec "emacs -geometry 86x30 &"
"Henkan_Mode" = c : all : f.exec "kterm -fg white -bg black -cr green -xim -km euc &"
"Hiragana_Katakana" = c : all : f.exec "mozilla &"
"Hiragana_Katakana" = m : all : f.exec "netscape &"
"w" = c m : all : f.exec "xwipower &"
"c" = c m : all : f.exec "xclock -d &"

"r" = c m : all : f.twmrc
"q" = c m : all : f.quit

# Ring Window
WindowRing
{
"XTerm"
"KTerm"
"Emacs"
"Netscape"
"Mozilla {Build ID: 0000000000}"
"RealPlayer"
"AcroRead"
#"XClock"
"Ninix"
"xdvi"
#"java"
}

NoTitle
{
"xwipower"
"xclock"
#"Netscape"
#"wmclock"
}

SqueezeTitle
#{
#"KTerm"
#}