*** ctwm.com_orig	Sat Feb 15 13:24:33 1997
--- ctwm.com	Sat Feb 15 13:25:11 1997
***************
*** 1,6 ****
  $! put in the right path
! $ ctwm:=$disk$users:[joe.bin]ctwm
  $ vue$suppress_output_popup
  $! insert the right path
! $ define ctwm_welcome_file "@/disk$users:[joe.xpm]welcome.xpm"
! $ ctwm
--- 1,14 ----
  $! put in the right path
! $ ctwm:=$program:[x_vaxbin]ctwm
! $ ShowWelcomeSwitch = ""
  $ vue$suppress_output_popup
  $! insert the right path
! $ define ctwm_welcome_file "@/program:[lib.xpm]welcome.xpm"
! $restart:
! $ set noon
! $ ctwm 'ShowWelcomeSwitch'
! $ if $status .eq. 1
! $ then	! We know this is a restart
! $     ShowWelcomeSwitch = """-W"""	! the restart does not need a welcome
! $     goto restart
! $ endif