.fvwm/.fvwm2rc
author gavenkoa@gavenko.bifit.int
Tue, 28 Oct 2008 10:32:12 +0200
branchfvwm
changeset 341 9809f625d490
child 342 e071a639eaf7
permissions -rw-r--r--
init
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
341
gavenkoa@gavenko.bifit.int
parents:
diff changeset
     1
# This file is copied to a new user's FVWM_USERDIR by FvwmForm-Setup form.
gavenkoa@gavenko.bifit.int
parents:
diff changeset
     2
# This file contains the commands fvwm reads while starting.
gavenkoa@gavenko.bifit.int
parents:
diff changeset
     3
#
gavenkoa@gavenko.bifit.int
parents:
diff changeset
     4
gavenkoa@gavenko.bifit.int
parents:
diff changeset
     5
EdgeResistance 250 10
gavenkoa@gavenko.bifit.int
parents:
diff changeset
     6
EdgeScroll 100 100
gavenkoa@gavenko.bifit.int
parents:
diff changeset
     7
ClickTime 750
gavenkoa@gavenko.bifit.int
parents:
diff changeset
     8
gavenkoa@gavenko.bifit.int
parents:
diff changeset
     9
DeskTopSize 3x3
gavenkoa@gavenko.bifit.int
parents:
diff changeset
    10
MenuStyle * fvwm, Foreground maroon, Background grey60, Greyed grey40
gavenkoa@gavenko.bifit.int
parents:
diff changeset
    11
MenuStyle * Font -adobe-times-bold-r-*-*-14-*-*-*-*-*-*-*
gavenkoa@gavenko.bifit.int
parents:
diff changeset
    12
gavenkoa@gavenko.bifit.int
parents:
diff changeset
    13
ColormapFocus FollowsMouse
gavenkoa@gavenko.bifit.int
parents:
diff changeset
    14
gavenkoa@gavenko.bifit.int
parents:
diff changeset
    15
# default Styles:
gavenkoa@gavenko.bifit.int
parents:
diff changeset
    16
# make sure these fonts exist on your system:
gavenkoa@gavenko.bifit.int
parents:
diff changeset
    17
Style *           Font -adobe-times-bold-r-*-*-12-*-*-*-*-*-*-*
gavenkoa@gavenko.bifit.int
parents:
diff changeset
    18
Style *           IconFont -adobe-times-bold-r-*-*-12-*-*-*-*-*-*-*
gavenkoa@gavenko.bifit.int
parents:
diff changeset
    19
Style *           HilightFore black, HilightBack palevioletred
gavenkoa@gavenko.bifit.int
parents:
diff changeset
    20
Style *           BorderWidth 7, HandleWidth 7
gavenkoa@gavenko.bifit.int
parents:
diff changeset
    21
Style *           Icon unknown1.xpm, Color lightgrey/dimgrey
gavenkoa@gavenko.bifit.int
parents:
diff changeset
    22
Style *           MWMFunctions, MWMDecor, HintOverride
gavenkoa@gavenko.bifit.int
parents:
diff changeset
    23
Style *           DecorateTransient, NoPPosition
gavenkoa@gavenko.bifit.int
parents:
diff changeset
    24
Style *           IconBox 0 -10 -280 -1
gavenkoa@gavenko.bifit.int
parents:
diff changeset
    25
Style *           FocusFollowsMouse
gavenkoa@gavenko.bifit.int
parents:
diff changeset
    26
Style *           TileCascadePlacement
gavenkoa@gavenko.bifit.int
parents:
diff changeset
    27
Style *           EWMHUseStackingOrderHints
gavenkoa@gavenko.bifit.int
parents:
diff changeset
    28
gavenkoa@gavenko.bifit.int
parents:
diff changeset
    29
# Styles for various Fvwm modules:
gavenkoa@gavenko.bifit.int
parents:
diff changeset
    30
Style Fvwm*       NoTitle,  Sticky, WindowListSkip
gavenkoa@gavenko.bifit.int
parents:
diff changeset
    31
Style Fvwm*       BorderWidth 2, CirculateSkipIcon, CirculateSkip
gavenkoa@gavenko.bifit.int
parents:
diff changeset
    32
Style FvwmPager   StaysOnTop
gavenkoa@gavenko.bifit.int
parents:
diff changeset
    33
Style FvwmBanner  StaysOnTop
gavenkoa@gavenko.bifit.int
parents:
diff changeset
    34
Style FvwmButtons Icon toolbox.xpm, ClickToFocus
gavenkoa@gavenko.bifit.int
parents:
diff changeset
    35
gavenkoa@gavenko.bifit.int
parents:
diff changeset
    36
# Styles for your common terminal emulator programs.
gavenkoa@gavenko.bifit.int
parents:
diff changeset
    37
# xterms and rxvts in a separate icon box:
gavenkoa@gavenko.bifit.int
parents:
diff changeset
    38
Style XTerm       Icon xterm.xpm, SloppyFocus, IconBox -70 1 -1 -140
gavenkoa@gavenko.bifit.int
parents:
diff changeset
    39
Style rxvt        Icon term.xpm, SloppyFocus, IconBox -70 1 -1 -140
gavenkoa@gavenko.bifit.int
parents:
diff changeset
    40
Style rxvt        MWMBorder, MWMButtons
gavenkoa@gavenko.bifit.int
parents:
diff changeset
    41
gavenkoa@gavenko.bifit.int
parents:
diff changeset
    42
# Styles for various common programs:
gavenkoa@gavenko.bifit.int
parents:
diff changeset
    43
Style *lock       NoTitle, NoHandles, Sticky, WindowListSkip, ClickToFocus
gavenkoa@gavenko.bifit.int
parents:
diff changeset
    44
Style xbiff       NoTitle, Sticky, WindowListSkip, ClickToFocus
gavenkoa@gavenko.bifit.int
parents:
diff changeset
    45
Style xcalc       Icon xcalc.xpm, NoButton 2,ClickToFocus
gavenkoa@gavenko.bifit.int
parents:
diff changeset
    46
Style xmh         Icon mail1.xpm, NoIconTitle,StickyIcon
gavenkoa@gavenko.bifit.int
parents:
diff changeset
    47
Style xmh         NoButton 2
gavenkoa@gavenko.bifit.int
parents:
diff changeset
    48
Style xman        Icon xman.xpm, ClickToFocus
gavenkoa@gavenko.bifit.int
parents:
diff changeset
    49
Style xmag        Icon mag_glass.xpm, ClickToFocus
gavenkoa@gavenko.bifit.int
parents:
diff changeset
    50
Style xgraph      Icon graphs.xpm, ClickToFocus
gavenkoa@gavenko.bifit.int
parents:
diff changeset
    51
Style xmosaic     Color Green/Yellow, ClickToFocus
gavenkoa@gavenko.bifit.int
parents:
diff changeset
    52
Style OpenOffice* NoFuncHint
gavenkoa@gavenko.bifit.int
parents:
diff changeset
    53
gavenkoa@gavenko.bifit.int
parents:
diff changeset
    54
gavenkoa@gavenko.bifit.int
parents:
diff changeset
    55
# some simple default key bindings:
gavenkoa@gavenko.bifit.int
parents:
diff changeset
    56
Key Next         A       SCM     Next [*] Focus
gavenkoa@gavenko.bifit.int
parents:
diff changeset
    57
Key Prior        A       SCM     Prev [*] Focus
gavenkoa@gavenko.bifit.int
parents:
diff changeset
    58
gavenkoa@gavenko.bifit.int
parents:
diff changeset
    59
# some simple default mouse bindings:
gavenkoa@gavenko.bifit.int
parents:
diff changeset
    60
#   for the root window:
gavenkoa@gavenko.bifit.int
parents:
diff changeset
    61
Mouse 1 R       A       Menu MenuFvwmRoot Nop
gavenkoa@gavenko.bifit.int
parents:
diff changeset
    62
Mouse 2 R       A       Menu MenuFvwmWindowOps Nop
gavenkoa@gavenko.bifit.int
parents:
diff changeset
    63
Mouse 3 R       A       WindowList
gavenkoa@gavenko.bifit.int
parents:
diff changeset
    64
gavenkoa@gavenko.bifit.int
parents:
diff changeset
    65
#   for the title bar buttons:
gavenkoa@gavenko.bifit.int
parents:
diff changeset
    66
Mouse 0 1       A       Menu MenuFvwmWindowOps2 Close
gavenkoa@gavenko.bifit.int
parents:
diff changeset
    67
Mouse 0 2       A       FuncFvwmMaximize
gavenkoa@gavenko.bifit.int
parents:
diff changeset
    68
Mouse 0 4       A       Iconify
gavenkoa@gavenko.bifit.int
parents:
diff changeset
    69
gavenkoa@gavenko.bifit.int
parents:
diff changeset
    70
#   for other parts of the window/borders/icons:
gavenkoa@gavenko.bifit.int
parents:
diff changeset
    71
Mouse 1 F       A       FuncFvwmResizeOrRaise
gavenkoa@gavenko.bifit.int
parents:
diff changeset
    72
Mouse 1 TS      A       FuncFvwmMoveOrRaise
gavenkoa@gavenko.bifit.int
parents:
diff changeset
    73
Mouse 1 I       A       FuncFvwmMoveOrIconify
gavenkoa@gavenko.bifit.int
parents:
diff changeset
    74
Mouse 2 I       A       Iconify
gavenkoa@gavenko.bifit.int
parents:
diff changeset
    75
Mouse 2 FST     A       Menu MenuFvwmWindowOps2 Nop
gavenkoa@gavenko.bifit.int
parents:
diff changeset
    76
Mouse 3 TSIF    A       RaiseLower
gavenkoa@gavenko.bifit.int
parents:
diff changeset
    77
gavenkoa@gavenko.bifit.int
parents:
diff changeset
    78
######################## Initialization Functions ############################
gavenkoa@gavenko.bifit.int
parents:
diff changeset
    79
AddToFunc StartFunction
gavenkoa@gavenko.bifit.int
parents:
diff changeset
    80
+ I Module FvwmAnimate
gavenkoa@gavenko.bifit.int
parents:
diff changeset
    81
+ I Module FvwmBanner
gavenkoa@gavenko.bifit.int
parents:
diff changeset
    82
+ I Module FvwmButtons
gavenkoa@gavenko.bifit.int
parents:
diff changeset
    83
gavenkoa@gavenko.bifit.int
parents:
diff changeset
    84
AddToFunc InitFunction
gavenkoa@gavenko.bifit.int
parents:
diff changeset
    85
+ I exec xsetroot -mod 2 2 -fg rgb:55/40/55 -bg rgb:70/50/70
gavenkoa@gavenko.bifit.int
parents:
diff changeset
    86
gavenkoa@gavenko.bifit.int
parents:
diff changeset
    87
# For some SM-s (like gnome-session) there is an internal background setter.
gavenkoa@gavenko.bifit.int
parents:
diff changeset
    88
AddToFunc SessionInitFunction
gavenkoa@gavenko.bifit.int
parents:
diff changeset
    89
+ I Nop
gavenkoa@gavenko.bifit.int
parents:
diff changeset
    90
gavenkoa@gavenko.bifit.int
parents:
diff changeset
    91
######################## Menus ###################
gavenkoa@gavenko.bifit.int
parents:
diff changeset
    92
Read /etc/X11/fvwm/menudefs.hook Quiet
gavenkoa@gavenko.bifit.int
parents:
diff changeset
    93
Read menudefs.hook Quiet
gavenkoa@gavenko.bifit.int
parents:
diff changeset
    94
gavenkoa@gavenko.bifit.int
parents:
diff changeset
    95
DestroyMenu MenuFvwmRoot
gavenkoa@gavenko.bifit.int
parents:
diff changeset
    96
AddToMenu MenuFvwmRoot  "$[gt.Root Menu]"             Title
gavenkoa@gavenko.bifit.int
parents:
diff changeset
    97
+                       "&1. XTerm"             Exec exec xterm
gavenkoa@gavenko.bifit.int
parents:
diff changeset
    98
+                       "&2. Rxvt"              Exec exec rxvt
gavenkoa@gavenko.bifit.int
parents:
diff changeset
    99
+                       ""              Nop
gavenkoa@gavenko.bifit.int
parents:
diff changeset
   100
+                       "&D. Debian Menu"             Popup "/Debian"
gavenkoa@gavenko.bifit.int
parents:
diff changeset
   101
+                       ""              Nop
gavenkoa@gavenko.bifit.int
parents:
diff changeset
   102
+                       "&R. $[gt.Remote Logins]"     Popup MenuFvwmLogins
gavenkoa@gavenko.bifit.int
parents:
diff changeset
   103
+                       ""              Nop
gavenkoa@gavenko.bifit.int
parents:
diff changeset
   104
+                       "&U. $[gt.Utilities]"         Popup MenuFvwmUtilities
gavenkoa@gavenko.bifit.int
parents:
diff changeset
   105
+                       ""              Nop
gavenkoa@gavenko.bifit.int
parents:
diff changeset
   106
+                       "&M. $[gt.Fvwm Modules]"      Popup MenuFvwmModules
gavenkoa@gavenko.bifit.int
parents:
diff changeset
   107
+                       "&W. $[gt.Fvwm Window Ops]"   Popup MenuFvwmWindowOps
gavenkoa@gavenko.bifit.int
parents:
diff changeset
   108
+                       "&S. $[gt.Fvwm Config Ops]"   Popup MenuFvwmConfig
gavenkoa@gavenko.bifit.int
parents:
diff changeset
   109
+                       ""              Nop
gavenkoa@gavenko.bifit.int
parents:
diff changeset
   110
+                       "&F. $[gt.Refresh Screen]"   Refresh
gavenkoa@gavenko.bifit.int
parents:
diff changeset
   111
+                       "&C. $[gt.Recapture Screen]" Recapture
gavenkoa@gavenko.bifit.int
parents:
diff changeset
   112
+                       ""              Nop
gavenkoa@gavenko.bifit.int
parents:
diff changeset
   113
+                       "&X. $[gt.Exit Fvwm]" Popup MenuFvwmQuitVerify
gavenkoa@gavenko.bifit.int
parents:
diff changeset
   114
gavenkoa@gavenko.bifit.int
parents:
diff changeset
   115
DestroyMenu MenuFvwmUtilities
gavenkoa@gavenko.bifit.int
parents:
diff changeset
   116
AddToMenu MenuFvwmUtilities     "$[gt.Utilities]" Title
gavenkoa@gavenko.bifit.int
parents:
diff changeset
   117
+                       "&T. Top"       Exec exec xterm -T Top -n Top -e top
gavenkoa@gavenko.bifit.int
parents:
diff changeset
   118
+                       "&C. Calculator" Exec exec xcalc
gavenkoa@gavenko.bifit.int
parents:
diff changeset
   119
+                       "&M. Xman"      Exec exec xman
gavenkoa@gavenko.bifit.int
parents:
diff changeset
   120
+                       "&G. Xmag"      Exec exec xmag
gavenkoa@gavenko.bifit.int
parents:
diff changeset
   121
+                       "&R. Editres"   Exec exec editres
gavenkoa@gavenko.bifit.int
parents:
diff changeset
   122
+                       ""              Nop
gavenkoa@gavenko.bifit.int
parents:
diff changeset
   123
+                       "&E. XEmacs"    Exec exec xemacs
gavenkoa@gavenko.bifit.int
parents:
diff changeset
   124
+                       "&A. Xmh Mail"  FuncFvwmMailXmh xmh "-font fixed"
gavenkoa@gavenko.bifit.int
parents:
diff changeset
   125
+                       ""              Nop
gavenkoa@gavenko.bifit.int
parents:
diff changeset
   126
+                       "&L. XLock"     Exec exec xlock -mode random
gavenkoa@gavenko.bifit.int
parents:
diff changeset
   127
+                       ""              Nop
gavenkoa@gavenko.bifit.int
parents:
diff changeset
   128
+                       "&D. $[gt.Reset X defaults]" Exec xrdb -load $HOME/.Xdefaults
gavenkoa@gavenko.bifit.int
parents:
diff changeset
   129
gavenkoa@gavenko.bifit.int
parents:
diff changeset
   130
DestroyMenu MenuFvwmConfig
gavenkoa@gavenko.bifit.int
parents:
diff changeset
   131
AddToMenu MenuFvwmConfig "$[gt.Fvwm Config Ops]" Title
gavenkoa@gavenko.bifit.int
parents:
diff changeset
   132
+ "&S. $[gt.Sloppy Focus]"        FuncFvwmFocusPolicyChange SloppyFocus
gavenkoa@gavenko.bifit.int
parents:
diff changeset
   133
+ "&C. $[gt.Click To Focus]"      FuncFvwmFocusPolicyChange ClickToFocus
gavenkoa@gavenko.bifit.int
parents:
diff changeset
   134
+ "&F. $[gt.Focus Follows Mouse]" FuncFvwmFocusPolicyChange FocusFollowsMouse
gavenkoa@gavenko.bifit.int
parents:
diff changeset
   135
+ "" Nop
gavenkoa@gavenko.bifit.int
parents:
diff changeset
   136
+ "&1. $[gt.Colormap Follows Mouse]" ColormapFocus FollowsMouse
gavenkoa@gavenko.bifit.int
parents:
diff changeset
   137
+ "&2. $[gt.Colormap Follows Focus]" ColormapFocus FollowsFocus
gavenkoa@gavenko.bifit.int
parents:
diff changeset
   138
+ "" Nop
gavenkoa@gavenko.bifit.int
parents:
diff changeset
   139
+ "&3. $[gt.Full Paging ON]"           EdgeScroll 100 100
gavenkoa@gavenko.bifit.int
parents:
diff changeset
   140
+ "&4. $[gt.All Paging OFF]"           EdgeScroll 0 0
gavenkoa@gavenko.bifit.int
parents:
diff changeset
   141
+ "&5. $[gt.Horizontal Paging Only]"   EdgeScroll 100 0
gavenkoa@gavenko.bifit.int
parents:
diff changeset
   142
+ "&6. $[gt.Vertical Paging Only]"     EdgeScroll 0 100
gavenkoa@gavenko.bifit.int
parents:
diff changeset
   143
+ "&7. $[gt.Partial Paging]"           EdgeScroll 50 50
gavenkoa@gavenko.bifit.int
parents:
diff changeset
   144
+ "&8. $[gt.Full Paging && Edge Wrap]" EdgeScroll 100000 100000
gavenkoa@gavenko.bifit.int
parents:
diff changeset
   145
gavenkoa@gavenko.bifit.int
parents:
diff changeset
   146
# The window Ops menus exhibit a different HotKey style.
gavenkoa@gavenko.bifit.int
parents:
diff changeset
   147
# There are 2 versions of the WindowOps Menu, meant to be bound to different
gavenkoa@gavenko.bifit.int
parents:
diff changeset
   148
# things.  Here is the "common" part:
gavenkoa@gavenko.bifit.int
parents:
diff changeset
   149
DestroyFunc FuncFvwmWindowCommon
gavenkoa@gavenko.bifit.int
parents:
diff changeset
   150
AddToFunc FuncFvwmWindowCommon
gavenkoa@gavenko.bifit.int
parents:
diff changeset
   151
+ I AddToMenu $0 "$[gt.&Move]"              Move
gavenkoa@gavenko.bifit.int
parents:
diff changeset
   152
+ I AddToMenu $0 "$[gt.&Resize]"            Resize
gavenkoa@gavenko.bifit.int
parents:
diff changeset
   153
+ I AddToMenu $0 "$[gt.R&aise]"             Raise
gavenkoa@gavenko.bifit.int
parents:
diff changeset
   154
+ I AddToMenu $0 "$[gt.&Lower]"             Lower
gavenkoa@gavenko.bifit.int
parents:
diff changeset
   155
+ I AddToMenu $0 "$[gt.(De)&Iconify]"       Iconify
gavenkoa@gavenko.bifit.int
parents:
diff changeset
   156
+ I AddToMenu $0 "$[gt.(Un)&Stick]"         Stick
gavenkoa@gavenko.bifit.int
parents:
diff changeset
   157
+ I AddToMenu $0 "$[gt.(Un)Ma&ximize]"      Maximize
gavenkoa@gavenko.bifit.int
parents:
diff changeset
   158
+ I AddToMenu $0 ""                 Nop
gavenkoa@gavenko.bifit.int
parents:
diff changeset
   159
+ I AddToMenu $0 "$[gt.&Delete]"            Delete
gavenkoa@gavenko.bifit.int
parents:
diff changeset
   160
+ I AddToMenu $0 "$[gt.&Close]"             Close
gavenkoa@gavenko.bifit.int
parents:
diff changeset
   161
+ I AddToMenu $0 "$[gt.Destroy]"            Destroy
gavenkoa@gavenko.bifit.int
parents:
diff changeset
   162
+ I AddToMenu $0 ""                 Nop
gavenkoa@gavenko.bifit.int
parents:
diff changeset
   163
gavenkoa@gavenko.bifit.int
parents:
diff changeset
   164
# First windowops menu, bound to:
gavenkoa@gavenko.bifit.int
parents:
diff changeset
   165
# mouse 2 on root
gavenkoa@gavenko.bifit.int
parents:
diff changeset
   166
# Root menu
gavenkoa@gavenko.bifit.int
parents:
diff changeset
   167
DestroyMenu MenuFvwmWindowOps
gavenkoa@gavenko.bifit.int
parents:
diff changeset
   168
AddToMenu MenuFvwmWindowOps     "$[gt.Window Ops]"    Title
gavenkoa@gavenko.bifit.int
parents:
diff changeset
   169
FuncFvwmWindowCommon MenuFvwmWindowOps
gavenkoa@gavenko.bifit.int
parents:
diff changeset
   170
+ "$[gt.Re&fresh Window]" RefreshWindow
gavenkoa@gavenko.bifit.int
parents:
diff changeset
   171
gavenkoa@gavenko.bifit.int
parents:
diff changeset
   172
# Second windowops menu, bound to:
gavenkoa@gavenko.bifit.int
parents:
diff changeset
   173
# any mouse on titlebar button 1
gavenkoa@gavenko.bifit.int
parents:
diff changeset
   174
# mouse 2 on frame, side or titlebar
gavenkoa@gavenko.bifit.int
parents:
diff changeset
   175
DestroyMenu MenuFvwmWindowOps2
gavenkoa@gavenko.bifit.int
parents:
diff changeset
   176
AddToMenu MenuFvwmWindowOps2
gavenkoa@gavenko.bifit.int
parents:
diff changeset
   177
FuncFvwmWindowCommon MenuFvwmWindowOps2
gavenkoa@gavenko.bifit.int
parents:
diff changeset
   178
+ Scroll&Bar       Module FvwmScroll 2 2
gavenkoa@gavenko.bifit.int
parents:
diff changeset
   179
+ "&$[gt.Print]"           FuncFvwmPrint
gavenkoa@gavenko.bifit.int
parents:
diff changeset
   180
+ "$[gt.Print Re&verse]" FuncFvwmPrintReverse
gavenkoa@gavenko.bifit.int
parents:
diff changeset
   181
gavenkoa@gavenko.bifit.int
parents:
diff changeset
   182
# 3 different ways to log on, take your pick:
gavenkoa@gavenko.bifit.int
parents:
diff changeset
   183
DestroyFunc FuncFvwmRloginXterm
gavenkoa@gavenko.bifit.int
parents:
diff changeset
   184
AddToFunc FuncFvwmRloginXterm \
gavenkoa@gavenko.bifit.int
parents:
diff changeset
   185
  I Exec xterm -name $0 -title "$USER @ $0" -e rlogin $0
gavenkoa@gavenko.bifit.int
parents:
diff changeset
   186
DestroyFunc FuncFvwmRloginRxvt
gavenkoa@gavenko.bifit.int
parents:
diff changeset
   187
AddToFunc FuncFvwmRloginRxvt \
gavenkoa@gavenko.bifit.int
parents:
diff changeset
   188
  I Exec rxvt -name $0 -n $0 -title $USER@$0 -e rlogin $0
gavenkoa@gavenko.bifit.int
parents:
diff changeset
   189
DestroyFunc FuncFvwmRloginSshRxvt
gavenkoa@gavenko.bifit.int
parents:
diff changeset
   190
AddToFunc FuncFvwmRloginSshRxvt \
gavenkoa@gavenko.bifit.int
parents:
diff changeset
   191
  I Exec Exec ssh $0 rxvt -display $HOSTDISPLAY
gavenkoa@gavenko.bifit.int
parents:
diff changeset
   192
gavenkoa@gavenko.bifit.int
parents:
diff changeset
   193
# be sure to fill these in with your correct machine names:
gavenkoa@gavenko.bifit.int
parents:
diff changeset
   194
DestroyMenu MenuFvwmLogins
gavenkoa@gavenko.bifit.int
parents:
diff changeset
   195
AddToMenu MenuFvwmLogins
gavenkoa@gavenko.bifit.int
parents:
diff changeset
   196
+ &dopey  FuncFvwmRloginXterm dopey
gavenkoa@gavenko.bifit.int
parents:
diff changeset
   197
+ &snoopy FuncFvwmRloginXterm snoopy
gavenkoa@gavenko.bifit.int
parents:
diff changeset
   198
+ s&ignal Exec rxterm signal
gavenkoa@gavenko.bifit.int
parents:
diff changeset
   199
gavenkoa@gavenko.bifit.int
parents:
diff changeset
   200
DestroyMenu MenuFvwmModules
gavenkoa@gavenko.bifit.int
parents:
diff changeset
   201
AddToMenu MenuFvwmModules "$[gt.Fvwm Modules]"        Title
gavenkoa@gavenko.bifit.int
parents:
diff changeset
   202
+ "&1. $[gt.Control Animation]" Popup  MenuFvwmAnimate
gavenkoa@gavenko.bifit.int
parents:
diff changeset
   203
+ "&B. Button-Bar"        Module FvwmButtons
gavenkoa@gavenko.bifit.int
parents:
diff changeset
   204
+ "&O. IconBox"           FuncFvwmConfigureIconBox
gavenkoa@gavenko.bifit.int
parents:
diff changeset
   205
+ "&F. Forms"             Popup  MenuFvwmForms
gavenkoa@gavenko.bifit.int
parents:
diff changeset
   206
+ "&I. Identify"          Module FvwmIdent
gavenkoa@gavenko.bifit.int
parents:
diff changeset
   207
+ "&M. IconMan"           Module FvwmIconMan
gavenkoa@gavenko.bifit.int
parents:
diff changeset
   208
+ "&N. Banner"            Module FvwmBanner
gavenkoa@gavenko.bifit.int
parents:
diff changeset
   209
+ "&C. Console"           Module FvwmConsole
gavenkoa@gavenko.bifit.int
parents:
diff changeset
   210
+ "&P. Pager"             Module FvwmPager 0 0
gavenkoa@gavenko.bifit.int
parents:
diff changeset
   211
+ "&2. Pager (2 $[gt.desks])"   Module FvwmPager 0 1
gavenkoa@gavenko.bifit.int
parents:
diff changeset
   212
+ "&R. Backer"            Module FvwmBacker
gavenkoa@gavenko.bifit.int
parents:
diff changeset
   213
+ "&S. ScrollBar"         Module FvwmScroll 50 50
gavenkoa@gavenko.bifit.int
parents:
diff changeset
   214
+ "&T. FvwmTaskBar"       Module FvwmTaskBar
gavenkoa@gavenko.bifit.int
parents:
diff changeset
   215
+ "&U. AutoRaise"         Module FvwmAuto 200 Raise Nop
gavenkoa@gavenko.bifit.int
parents:
diff changeset
   216
+ "&W. WinList"           Module FvwmWinList
gavenkoa@gavenko.bifit.int
parents:
diff changeset
   217
+ "&X. $[gt.Stop Module Menu]"  Popup  MenuFvwmStopModule
gavenkoa@gavenko.bifit.int
parents:
diff changeset
   218
gavenkoa@gavenko.bifit.int
parents:
diff changeset
   219
DestroyMenu MenuFvwmStopModule
gavenkoa@gavenko.bifit.int
parents:
diff changeset
   220
AddToMenu MenuFvwmStopModule "$[gt.Stop Fvwm Modules]" Title
gavenkoa@gavenko.bifit.int
parents:
diff changeset
   221
+ "&B. $[gt.Stop] Button-Bar"  KillModule FvwmButtons
gavenkoa@gavenko.bifit.int
parents:
diff changeset
   222
+ "&O. $[gt.Stop] IconBox"     KillModule FvwmIconBox
gavenkoa@gavenko.bifit.int
parents:
diff changeset
   223
+ "&M. $[gt.Stop] IconMan"     KillModule FvwmIconMan
gavenkoa@gavenko.bifit.int
parents:
diff changeset
   224
+ "&P. $[gt.Stop] Pager"       KillModule FvwmPager
gavenkoa@gavenko.bifit.int
parents:
diff changeset
   225
+ "&R. $[gt.Stop] Backer"      KillModule FvwmBacker
gavenkoa@gavenko.bifit.int
parents:
diff changeset
   226
+ "&S. $[gt.Stop] ScrollBar"   KillModule FvwmScroll
gavenkoa@gavenko.bifit.int
parents:
diff changeset
   227
+ "&T. $[gt.Stop] FvwmTaskBar" KillModule FvwmTaskBar
gavenkoa@gavenko.bifit.int
parents:
diff changeset
   228
+ "&U. $[gt.Stop] AutoRaise"   KillModule FvwmAuto
gavenkoa@gavenko.bifit.int
parents:
diff changeset
   229
+ "&W. $[gt.Stop] WinList"     KillModule FvwmWinList
gavenkoa@gavenko.bifit.int
parents:
diff changeset
   230
gavenkoa@gavenko.bifit.int
parents:
diff changeset
   231
DestroyMenu MenuFvwmForms
gavenkoa@gavenko.bifit.int
parents:
diff changeset
   232
AddToMenu MenuFvwmForms
gavenkoa@gavenko.bifit.int
parents:
diff changeset
   233
+ "&C. Capture"       Module FvwmForm FvwmForm-Capture
gavenkoa@gavenko.bifit.int
parents:
diff changeset
   234
+ "&D. Form Defaults" Module FvwmForm FvwmForm-Form
gavenkoa@gavenko.bifit.int
parents:
diff changeset
   235
+ "&R. Rlogin"        Module FvwmForm FvwmForm-Rlogin
gavenkoa@gavenko.bifit.int
parents:
diff changeset
   236
+ "&P. RootCursor"    Module FvwmForm FvwmForm-RootCursor
gavenkoa@gavenko.bifit.int
parents:
diff changeset
   237
+ "&S. Setup"         Module FvwmForm FvwmForm-Setup
gavenkoa@gavenko.bifit.int
parents:
diff changeset
   238
+ "&T. Talk Form"     Module FvwmForm FvwmForm-Talk
gavenkoa@gavenko.bifit.int
parents:
diff changeset
   239
+ "&Q. QuitVerify"    Module FvwmForm FvwmForm-QuitVerify
gavenkoa@gavenko.bifit.int
parents:
diff changeset
   240
gavenkoa@gavenko.bifit.int
parents:
diff changeset
   241
# Configure and start using an iconbox on the fly
gavenkoa@gavenko.bifit.int
parents:
diff changeset
   242
DestroyFunc FuncFvwmConfigureIconBox
gavenkoa@gavenko.bifit.int
parents:
diff changeset
   243
AddToFunc FuncFvwmConfigureIconBox
gavenkoa@gavenko.bifit.int
parents:
diff changeset
   244
+ I Module FvwmIconBox
gavenkoa@gavenko.bifit.int
parents:
diff changeset
   245
+ I Style     *  NoIcon
gavenkoa@gavenko.bifit.int
parents:
diff changeset
   246
gavenkoa@gavenko.bifit.int
parents:
diff changeset
   247
DestroyMenu MenuFvwmQuitVerify
gavenkoa@gavenko.bifit.int
parents:
diff changeset
   248
AddToMenu MenuFvwmQuitVerify "$[gt.Really Quit Fvwm?]" Title
gavenkoa@gavenko.bifit.int
parents:
diff changeset
   249
+ "&Q. $[gt.Yes, Really Quit]" Quit
gavenkoa@gavenko.bifit.int
parents:
diff changeset
   250
+ ""                     Nop
gavenkoa@gavenko.bifit.int
parents:
diff changeset
   251
+ "&R. $[gt.Restart]"          Restart
gavenkoa@gavenko.bifit.int
parents:
diff changeset
   252
+ ""                     Nop
gavenkoa@gavenko.bifit.int
parents:
diff changeset
   253
+ "&T. $[gt.Start] twm"        Restart twm
gavenkoa@gavenko.bifit.int
parents:
diff changeset
   254
+ "&C. $[gt.Start] ctwm"       Restart ctwm
gavenkoa@gavenko.bifit.int
parents:
diff changeset
   255
+ "&2. $[gt.Start] tvtwm"      Restart tvtwm
gavenkoa@gavenko.bifit.int
parents:
diff changeset
   256
+ "&V. $[gt.Start] vtwm"       Restart vtwm
gavenkoa@gavenko.bifit.int
parents:
diff changeset
   257
+ "&M. $[gt.Start] mwm"        Restart mwm
gavenkoa@gavenko.bifit.int
parents:
diff changeset
   258
+ "&O. $[gt.Start] olwm"       Restart /usr/openwin/bin/olwm
gavenkoa@gavenko.bifit.int
parents:
diff changeset
   259
+ ""                     Nop
gavenkoa@gavenko.bifit.int
parents:
diff changeset
   260
+ "&X. $[gt.Just an Xterm]"    Restart xterm -n '"X Console"' -T '"X Console"'
gavenkoa@gavenko.bifit.int
parents:
diff changeset
   261
+ ""                     Nop
gavenkoa@gavenko.bifit.int
parents:
diff changeset
   262
+ "&N. $[gt.No, Don't Quit]"   Nop
gavenkoa@gavenko.bifit.int
parents:
diff changeset
   263
gavenkoa@gavenko.bifit.int
parents:
diff changeset
   264
######################## Sample Functions ##########################
gavenkoa@gavenko.bifit.int
parents:
diff changeset
   265
gavenkoa@gavenko.bifit.int
parents:
diff changeset
   266
DestroyFunc FuncFvwmMailXmh
gavenkoa@gavenko.bifit.int
parents:
diff changeset
   267
AddToFunc FuncFvwmMailXmh
gavenkoa@gavenko.bifit.int
parents:
diff changeset
   268
+ I Next [$0] Iconify false
gavenkoa@gavenko.bifit.int
parents:
diff changeset
   269
+ I Next [$0] Focus
gavenkoa@gavenko.bifit.int
parents:
diff changeset
   270
+ I None [$0] Exec $0 $1
gavenkoa@gavenko.bifit.int
parents:
diff changeset
   271
gavenkoa@gavenko.bifit.int
parents:
diff changeset
   272
DestroyFunc FuncFvwmMoveOrRaise
gavenkoa@gavenko.bifit.int
parents:
diff changeset
   273
AddToFunc FuncFvwmMoveOrRaise
gavenkoa@gavenko.bifit.int
parents:
diff changeset
   274
+ I Raise
gavenkoa@gavenko.bifit.int
parents:
diff changeset
   275
+ M Move
gavenkoa@gavenko.bifit.int
parents:
diff changeset
   276
+ D Lower
gavenkoa@gavenko.bifit.int
parents:
diff changeset
   277
gavenkoa@gavenko.bifit.int
parents:
diff changeset
   278
DestroyFunc FuncFvwmMaximize
gavenkoa@gavenko.bifit.int
parents:
diff changeset
   279
AddToFunc FuncFvwmMaximize
gavenkoa@gavenko.bifit.int
parents:
diff changeset
   280
+ M Maximize   0 100
gavenkoa@gavenko.bifit.int
parents:
diff changeset
   281
+ H Maximize   0 100
gavenkoa@gavenko.bifit.int
parents:
diff changeset
   282
+ C Maximize   0  80
gavenkoa@gavenko.bifit.int
parents:
diff changeset
   283
+ D Maximize 100 100
gavenkoa@gavenko.bifit.int
parents:
diff changeset
   284
gavenkoa@gavenko.bifit.int
parents:
diff changeset
   285
DestroyFunc FuncFvwmMoveOrIconify
gavenkoa@gavenko.bifit.int
parents:
diff changeset
   286
AddToFunc FuncFvwmMoveOrIconify
gavenkoa@gavenko.bifit.int
parents:
diff changeset
   287
+ I Raise
gavenkoa@gavenko.bifit.int
parents:
diff changeset
   288
+ M Move
gavenkoa@gavenko.bifit.int
parents:
diff changeset
   289
+ D Iconify
gavenkoa@gavenko.bifit.int
parents:
diff changeset
   290
gavenkoa@gavenko.bifit.int
parents:
diff changeset
   291
DestroyFunc FuncFvwmResizeOrRaise
gavenkoa@gavenko.bifit.int
parents:
diff changeset
   292
AddToFunc FuncFvwmResizeOrRaise
gavenkoa@gavenko.bifit.int
parents:
diff changeset
   293
+ I Raise
gavenkoa@gavenko.bifit.int
parents:
diff changeset
   294
+ M Resize
gavenkoa@gavenko.bifit.int
parents:
diff changeset
   295
+ D Lower
gavenkoa@gavenko.bifit.int
parents:
diff changeset
   296
gavenkoa@gavenko.bifit.int
parents:
diff changeset
   297
DestroyFunc FuncFvwmPrint
gavenkoa@gavenko.bifit.int
parents:
diff changeset
   298
AddToFunc FuncFvwmPrint
gavenkoa@gavenko.bifit.int
parents:
diff changeset
   299
+ I Raise
gavenkoa@gavenko.bifit.int
parents:
diff changeset
   300
+ I Exec xdpr -id $w
gavenkoa@gavenko.bifit.int
parents:
diff changeset
   301
gavenkoa@gavenko.bifit.int
parents:
diff changeset
   302
DestroyFunc FuncFvwmPrintReverse
gavenkoa@gavenko.bifit.int
parents:
diff changeset
   303
AddToFunc FuncFvwmPrintReverse
gavenkoa@gavenko.bifit.int
parents:
diff changeset
   304
+ I Raise
gavenkoa@gavenko.bifit.int
parents:
diff changeset
   305
+ I Exec xdpr 1/2 -h -rv -id $w
gavenkoa@gavenko.bifit.int
parents:
diff changeset
   306
gavenkoa@gavenko.bifit.int
parents:
diff changeset
   307
DestroyFunc FuncFvwmFocusPolicyChange
gavenkoa@gavenko.bifit.int
parents:
diff changeset
   308
AddToFunc FuncFvwmFocusPolicyChange
gavenkoa@gavenko.bifit.int
parents:
diff changeset
   309
+ I Style * $0
gavenkoa@gavenko.bifit.int
parents:
diff changeset
   310
+ I Recapture
gavenkoa@gavenko.bifit.int
parents:
diff changeset
   311
gavenkoa@gavenko.bifit.int
parents:
diff changeset
   312
# Read config files for modules:
gavenkoa@gavenko.bifit.int
parents:
diff changeset
   313
read ConfigFvwmBacker
gavenkoa@gavenko.bifit.int
parents:
diff changeset
   314
read ConfigFvwmButtons
gavenkoa@gavenko.bifit.int
parents:
diff changeset
   315
read ConfigFvwmIconBox
gavenkoa@gavenko.bifit.int
parents:
diff changeset
   316
read ConfigFvwmIconMan
gavenkoa@gavenko.bifit.int
parents:
diff changeset
   317
read ConfigFvwmIdent
gavenkoa@gavenko.bifit.int
parents:
diff changeset
   318
read ConfigFvwmPager
gavenkoa@gavenko.bifit.int
parents:
diff changeset
   319
read ConfigFvwmScroll
gavenkoa@gavenko.bifit.int
parents:
diff changeset
   320
read ConfigFvwmTaskBar
gavenkoa@gavenko.bifit.int
parents:
diff changeset
   321
read ConfigFvwmWinList
gavenkoa@gavenko.bifit.int
parents:
diff changeset
   322
gavenkoa@gavenko.bifit.int
parents:
diff changeset
   323
# Local variables:
gavenkoa@gavenko.bifit.int
parents:
diff changeset
   324
# comment-start: "# "
gavenkoa@gavenko.bifit.int
parents:
diff changeset
   325
# End: