sample.fvwmrc patch

Now that rlogin is gone....
I took the SSH form from the new-features file.

David

Index: xc/programs/fvwm/sample.fvwmrc/system.fvwmrc
===================================================================
RCS file: /home/cvs/XF4/xc/programs/fvwm/sample.fvwmrc/system.fvwmrc,v
retrieving revision 1.10
diff -u -p -r1.10 system.fvwmrc
--- xc/programs/fvwm/sample.fvwmrc/system.fvwmrc	10 Sep 2002 21:47:24 -0000	1.10
+++ xc/programs/fvwm/sample.fvwmrc/system.fvwmrc	9 Oct 2002 00:22:50 -0000
@@ -200,7 +200,7 @@ AddToMenu Module-Popup	"FvwmModules"	Tit
 +			"IconBox"	Module	FvwmIconBox
 +                       "IconMan"       Module  FvwmIconMan
 +			""		Nop
-+                       "Form - Rlogin"      Module FvwmForm Rlogin
++                       "Form - SSH"      Module FvwmForm SSH
 +                       "Form - MyFvwmTalk"  Module FvwmForm MyFvwmTalk
 +                       "Form - QuitVerify"  Module FvwmForm QuitVerify
 
@@ -258,11 +258,8 @@ AddToFunc PrintReverseFunction  "I" Rais
 AddToFunc Iconify-and-Raise     "I" Iconify
 +                               "I" Raise
 
-# RLOGIN machine fg bg
-AddToFunc RLOGIN "I" Exec xterm -fg $1 -bg $2 -e rlogin $0 -8
-
-# TELNET machine fg bg
-AddToFunc TELNET "I" Exec xterm -fg $1 -bg $2 -e telnet $0
+# SSH machine fg bg
+AddToFunc SSH "I" Exec xterm -fg $1 -bg $2 -e ssh $0
 
 AddToFunc FocusAndWarp "I" Focus
 +                      "I" WarpToWindow 2p 2p
@@ -420,43 +417,26 @@ Key F8		A	M	CirculateDown 
 #
 *FvwmIconBox            "Fvwm*"         -
 
-# FvwmForm alias - rlogin or telnet to host via xterm
-*RloginWarpPointer
-*RloginFont         *helvetica*m*r*n*12*
-*RloginButtonFont   *helvetica*m*o*n*12*
-*RloginInputFont    *cour*m*r*n*12*
-*RloginFore         Black
-*RloginBack         White
-*RloginItemFore     Yellow
-*RloginItemBack     Wheat
-# begin items
-*RloginLine         center
-*RloginText         "Login to Remote Host"
-*RloginLine         center
-*RloginText         "Host:"
-*RloginInput        HostName  30   ""
-*RloginLine         center
-*RloginSelection    meth single
-*RloginChoice       TN TN off "telnet"
-*RloginChoice       RL RL on "rlogin"
-*RloginSelection    UserSel   single
-#*RloginChoice       Default   Default   on   "same user"
-#*RloginChoice       Custom    Custom    off  "user:"
-*RloginText         "(Userid:"
-*RloginInput        UserName  10   ""
-*RloginText         ")"
-*RloginLine         center
-*RloginText         "FG:"
-*RloginInput        FgColor 15 ""
-*RloginText         "BG:"
-*RloginInput        BgColor 15 ""
-*RloginLine         expand
-*RloginButton       quit "Login" ^M
-*RloginCommand Exec xterm  $(FgColor?-fg $(FgColor)) $(BgColor?-bg $(BgColor)) -T xterm@$(HostName) -e $(RL?rlogin) $(TN?telnet) $(HostName) $(RL?-8 $(UserName?-l $(UserName)))
-*RloginButton       restart   "Clear"
-*RloginCommand Beep
-*RloginButton       quit "Cancel"
-*RloginCommand Nop
+# FvwmForm
+# options for the FvwmForm module which we specify as 'SSH' later on
+*SSHFore		#dfdfdf
+*SSHBack		#303030
+*SSHItemBack	black
+*SSHItemFore	#ffffff
+*SSHFont		-*-lucidatypewriter-medium-r-*-*-14-*-*-*-m-*-*-*
+*SSHButtonFont	-*-lucidatypewriter-medium-r-*-*-14-*-*-*-m-*-*-*
+*SSHInputFont	-*-lucidatypewriter-medium-r-*-*-14-*-*-*-m-*-*-*
+*SSHLine		Left
+*SSHText		"Host"
+*SSHInput	Host 30
+*SSHLine		Left
+*SSHText		"User"
+*SSHInput	User 30
+*SSHLine		Center
+*SSHButton	quit "OK"	^M
+*SSHCommand	Exec exec xterm -sl 1024 -cr white -fg white -bg black -T "\"$(Host)\"" -e ssh $(Host) -l $(User) &
+*SSHButton	quit "Cancel"	^[
+*SSHCommand	Nop
 
 # FvwmForm alias - query exit ala mwm
 *QuitVerifyGrabServer