# Example for the definition of tvtwm properties
# Version 1.0, 19.11.92, Andy Schuerr

NoTitle {
  "Virtual Desktop"
  "Perfmeter"
  "xload"
  "xbiff"
  "xclock"
#### Following lines are PROGRES specific ####
  "Ipsen_Tmp_Message"
  "Ipsen_Input_Window"
}

ClientBorderWidth

#### End PROGRES specific part ###############


IconRegion "=70x200-100+0" South East 120 30
IconManagerGeometry "=150x15+0-100"
IconManagerFont	"8x13"
IconDirectory	"/usr/openwin/include/X11/bitmaps"
UnknownIcon	"icon"
IconManagerDontShow { "xclock"
                      "xload"
}

Sticky { "xclock"
	 "xload"
         "Perfmeter"
}
StickyAbove

VirtualDesktop 		"3x2"
PannerGeometry 		"-0+0"
PannerScale 20

NoGrabServer
NoBackingStore

Pixmaps
{
	PannerBackgroundPixmap "gray"
}

Monochrome {  BorderColor "black"
              BorderTileBackground "black"
              BorderTileForeground "white"
              TitleBackground "black"
              TitleForeground "white"
	      VirtualForeground "black"
	      VirtualBackground "white"    }


NoHighlight { "xclock"
              "xload"
              "xbiff"
              "TWM Icon Manager"
}

StartIconified { 
  "ManualBrowser"
  "Manual Page"
  "emacs"
}

TitleFont	"9x15"
MenuFont	"9x15"
IconFont	"8x13"
ResizeFont	"fixed"

DecorateTransients
MoveDelta 5
# WarpUnmapped

Button1   = m  : window | icon | iconmgr     : f.function "move-or-raise"
Button2   = m  : window | icon | iconmgr     : f.resize
Button3   = m  : window | icon | iconmgr     : f.menu "TwmManager"
#
Button1   =    : title | iconmgr	: f.function "move-or-raise"
Button1   =    : icon        		: f.function "move-or-deiconify"
Button2   =    : title | icon | iconmgr : f.raiselower
Button3   =    : title | icon | iconmgr : f.menu "menu-window"
Button3   =    : root        		: f.menu "TwmManager"
#
"Left" 	= 	: root			: f.panleft
"Left" 	= m	: root | window | icon 	: f.panleft
"Right" =  	: root			: f.panright
"Right" = m	: root | window | icon	: f.panright
"Up"	=	: root			: f.panup
"Up"	= m	: root | window | icon	: f.panup
"Down"	=	: root			: f.pandown
"Down"	= m	: root | window | icon	: f.pandown
"R7"	=	: root			: f.function "left-up"
"R7"	= m	: root | window | icon	: f.function "left-up"
"R9"	=  	: root			: f.function "right-up"
"R9"	= m	: root | window | icon	: f.function "right-up"
"R13"	=	: root			: f.function "left-down"
"R13"	= m	: root | window | icon	: f.function "left-down"
"R15"	=	: root			: f.function "right-down"
"R15"	= m	: root | window | icon	: f.function "right-down"
#
"L5"	=	: window | icon	| iconmgr : f.raiselower 
"L7"	=	: window| iconmgr	:   f.iconify 
"L7"	=	: icon			:   f.deiconify 


DefaultFunction f.menu "f.beep"

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

Function "move-or-deiconify" { f.move f.deltastop f.deiconify }

Function "left-up" { f.panleft f.panup }

Function "right-up" { f.panright f.panup }

Function "left-down" { f.panleft f.pandown }

Function "right-down" { f.panright f.pandown }

menu "TwmManager"
{
	"Workspace"	f.title
	"Programs"	f.menu "menu-programs"
	"Utilities"	f.menu "menu-utilities"
        "    "		f.nop
	"Demos"		f.menu "menu-demos"
        "    "		f.nop
	"Exit!"		f.quit
}

menu "menu-programs"
{
	"Programs"		f.title
	"Xterm..."  		f.exec "xterm -fn 10x20 -j -sb &"
        "Show IconMGR..." 	f.showiconmgr
	"Hide IconMGR..."	f.hideiconmgr
}

menu "menu-utilities"
{
	"Utilities"	f.title
	"Refresh"	f.refresh
	"Restart"	f.restart
        "Reinit"        f.twmrc
        "Win Controls"  f.menu "menu-window"
	"Lock Screen"	f.exec "xnlock"
}

RightTitleButton "star" = f.menu "menu-window"

menu "menu-window" { 
			"Window"            	f.title
			"Close"	                f.iconify
			"Full Size"		f.fullzoom
			"Move"                  f.move
			"Resize"          	f.resize
			"Front"          	f.raise
			"Back"          	f.lower
			"Misc."			f.menu "menu-misc"
			"      "		f.nop
                        "Quit"			f.delete
}

menu "menu-misc" {
			"Misc."			f.title
			"Refresh"               f.winrefresh
			"Zoom"			f.zoom
			"Force Move"      	f.forcemove
        		"Info"			f.identify
			"Stick"                 f.stick
			"Focus"       		f.focus
			"Unfocus"         	f.unfocus
			"      "		f.nop
        		"Destroy"		f.destroy
}

menu "menu-demos" {
  	"Demos"			f.title
  	"Progres monochrome..."	f.exec "$PROGRESROOT/bin/Progres Demo &"
  	"Progres smotif..."	f.exec "$PROGRESROOT/bin/Progres -u smotif Demo &"
  	"Progres openlook..."	f.exec "$PROGRESROOT/bin/Progres -u openlook Demo &"
}
