divert(-1) # AnotherLevel - A FVWM2 Configuration # Copyright (C) 1996, 1997 Red Hat Software, Inc # # This program is free software; you can redistribute it and/or modify # it under the terms of the GNU General Public License as published by # the Free Software Foundation; either version 2 of the License, or # (at your option) any later version. # # This program is distributed in the hope that it will be useful, # but WITHOUT ANY WARRANTY; without even the implied warranty of # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the # GNU General Public License for more details. # # You should have received a copy of the GNU General Public License # along with this program; if not, write to the Free Software # Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. # # This work is derived from: # TheNextLevel # Copyright 1996 By Greg J. Badros # distributed under GNU General Public License. # divert TraceForErrors(`Xlock/Screensaver menus...') define(`AddXLockOption',`*XLockChoice Option $1 off "capitalize($1)"') *XLockWarpPointer *XLockFont MEDIUM_FONT *XLockButtonFont BASIC_FONT-bold-r-*-120-* *XLockInputFont MEDIUM_FONT *XLockFore WINFORE_COLOR *XLockBack MENUBACK_COLOR *XLockItemFore WINFORE_COLOR *XLockItemBack WINBACK_COLOR *XLockLine center *XLockText "Available Xlock modes" *XLockSelection Option single *XLockLine expand esyscmd(`xlock -help 2>&1 | awk "BEGIN{item = 0} \ /^$/ {next} \ /one of:/ {ok=1; next} \ /^[ \t]*[a-z]/ && ok==1 \ { \ if (/random/) { next }; \ if (item == 0) { print \"*XLockLine expand\" }; \ printf(\"AddXLockOption(%-10s)\\n\", \$1) ; \ item = (item+1)%5 ; \ }"') # We add the random thing separately, to be sure that we have at least one selected # option *XLockChoice Option random on "Random " *XLockLine expand *XLockLine expand *XLockLine expand *XLockButton quit "Screen Saver" *XLockCommand Exec xlock -nice NICELEVEL -mode $(Option) -nolock # somebody is gonna hate me for this one... :-) #*XLockButton quit "Background" #*XLockCommand Exec xlock -nice NICELEVEL -mode $(Option) -nolock -inroot *XLockButton quit "Lock Screen" *XLockCommand Exec xlock -nice NICELEVEL -mode $(Option) *XLockButton quit "Cancel" ^[ *XLockCommand Nop AddToMenu StartMenu + "Lock Screen / Screen Saver MiniTitleIcon(lock)" FvwmForm XLock + "" Nop