diff -rcN xf2.3-pl0/FAQ.install xf2.3-pl1/FAQ.install
*** xf2.3-pl0/FAQ.install	Sun Jan 30 12:21:44 1994
--- xf2.3-pl1/FAQ.install	Thu Mar 24 17:29:07 1994
***************
*** 207,213 ****
  
  
  I-15) Where do I get the widget XXX ?
! 	Generally barkley.berkeley.edu is a good place to
  	look for it. The following list is not complete, but
  	it directs you to the sites for the widgets that are
  	supported by the distribution:
--- 207,213 ----
  
  
  I-15) Where do I get the widget XXX ?
! 	Generally harbor.ecn.purdure.edu is a good place to
  	look for it. The following list is not complete, but
  	it directs you to the sites for the widgets that are
  	supported by the distribution:
diff -rcN xf2.3-pl0/Makefile xf2.3-pl1/Makefile
*** xf2.3-pl0/Makefile	Sun Jan 30 12:21:30 1994
--- xf2.3-pl1/Makefile	Tue Apr 19 15:12:43 1994
***************
*** 28,33 ****
--- 28,35 ----
  # the cpp command and flags
  CPP_CMD = /lib/cpp
  CPP_FLAGS = -P
+ # on convex machines you need the following:
+ # CPP_FLAGS = -pcc -P
  
  # the Tcl MANPATH that shoud be used
  TCL_MAN_PATH = "/usr/local/man"
***************
*** 58,64 ****
  # where can I find wish (the ultimate tool :-)
  WISH_CMD = /usr/local/bin/wish
  
! # where is the toplevel XF directory (with all the
  # subdirectories...). Just to prevent misunderstandings...
  # You can place xf everywhere you want.
  XF_DIR = /usr/local/lib/xf2.3
--- 60,66 ----
  # where can I find wish (the ultimate tool :-)
  WISH_CMD = /usr/local/bin/wish
  
! # what is the toplevel XF directory (with all the
  # subdirectories...). Just to prevent misunderstandings...
  # You can place xf everywhere you want.
  XF_DIR = /usr/local/lib/xf2.3
diff -rcN xf2.3-pl0/README xf2.3-pl1/README
*** xf2.3-pl0/README	Sun Jan 30 12:06:10 1994
--- xf2.3-pl1/README	Mon Feb  7 20:49:18 1994
***************
*** 83,91 ****
  
  	ftp ftp.cs.tu-berlin.de
          bin
! 	cd pub/tcl/extensions
! 	get xf2.3pl?.tar.gz, or (that depends on the site)
! 	get xf2.3pl?.tar.Z
  
  To get a copy via ftpmail, just send the following mail to:
  
--- 83,90 ----
  
  	ftp ftp.cs.tu-berlin.de
          bin
! 	cd pub/tcl/contrib/code
! 	get xf2.3pl?.tar.gz
  
  To get a copy via ftpmail, just send the following mail to:
  
***************
*** 98,104 ****
  
  To retrieve TkPixmap, send the following body:
  
! 	send pub/tcl/contrib/extensions/xf2.3pl?.tar.gz
  	end
  
  
--- 97,103 ----
  
  To retrieve TkPixmap, send the following body:
  
! 	send pub/tcl/contrib/code/xf2.3pl?.tar.gz
  	end
  
  
diff -rcN xf2.3-pl0/Version xf2.3-pl1/Version
*** xf2.3-pl0/Version	Sun Jan 30 12:06:36 1994
--- xf2.3-pl1/Version	Mon Feb 14 00:44:58 1994
***************
*** 1,2 ****
! xf-2.3pl0 (Sun Jan 30 12:02:59 1994 by garfield@garfield)
  
--- 1,2 ----
! xf-2.3pl1 (Sun Jan 30 12:02:59 1994 by garfield@garfield)
  
diff -rcN xf2.3-pl0/src/xffsBox.tcl xf2.3-pl1/src/xffsBox.tcl
*** xf2.3-pl0/src/xffsBox.tcl	Sat Nov 27 14:54:50 1993
--- xf2.3-pl1/src/xffsBox.tcl	Tue Mar  1 23:58:28 1994
***************
*** 90,97 ****
    if {[file exists $xfFSBoxFileName] && [XFIsADir $xfFSBoxFileName]} {
      set xfFSBox(path) $xfFSBoxFileName
    } {
!     if {"[file rootname $xfFSBoxFileName]" != "."} {
!       set xfFSBox(path) [file rootname $xfFSBoxFileName]
      }
    }
    if {$xfFSBox(showPixmap)} {
--- 90,97 ----
    if {[file exists $xfFSBoxFileName] && [XFIsADir $xfFSBoxFileName]} {
      set xfFSBox(path) $xfFSBoxFileName
    } {
!     if {"[file dirname $xfFSBoxFileName]" != "."} {
!       set xfFSBox(path) [file dirname $xfFSBoxFileName]
      }
    }
    if {$xfFSBox(showPixmap)} {
diff -rcN xf2.3-pl0/src/xfmain.tcl xf2.3-pl1/src/xfmain.tcl
*** xf2.3-pl0/src/xfmain.tcl	Wed Dec 15 22:02:27 1993
--- xf2.3-pl1/src/xfmain.tcl	Mon Feb  7 20:29:21 1994
***************
*** 401,407 ****
    global xfSaveModuleList
    set xfSaveModuleList ""
    global xfVersionNr
!   set xfVersionNr {2.2}
  
    # hidden procedures
    global hiddenProcs 
--- 401,407 ----
    global xfSaveModuleList
    set xfSaveModuleList ""
    global xfVersionNr
!   set xfVersionNr {2.3}
  
    # hidden procedures
    global hiddenProcs 
***************
*** 1007,1013 ****
        }
        {-xfstartup} {
          incr xfCounter 1
!         set xfPath(startup) [lindex $argv $xfCounter]
        }
        {-xftmp} {
          incr xfCounter 1
--- 1007,1013 ----
        }
        {-xfstartup} {
          incr xfCounter 1
!         set xfFile(startup) [lindex $argv $xfCounter]
        }
        {-xftmp} {
          incr xfCounter 1
diff -rcN xf2.3-pl0/src/xfoptInterp.tcl xf2.3-pl1/src/xfoptInterp.tcl
*** xf2.3-pl0/src/xfoptInterp.tcl	Sat Nov 20 22:21:24 1993
--- xf2.3-pl1/src/xfoptInterp.tcl	Thu Feb 17 17:32:42 1994
***************
*** 167,172 ****
--- 167,176 ----
    set xfConf(interpreter) [.xfOptionsInterp.frame3.frame6.interpreter get]
    set xfConf(interpreterTut) \
      [.xfOptionsInterp.frame3.frame6.interpretertut get]
+   set xfConf(interpreterEdit) \
+     [.xfOptionsInterp.frame3.frame6.interpreteredit get]
+   set xfConf(interpreterTest) \
+     [.xfOptionsInterp.frame3.frame6.interpretertest get]
  }
  
  # eof
diff -rcN xf2.3-pl0/src/xfsaveMisc.tcl xf2.3-pl1/src/xfsaveMisc.tcl
*** xf2.3-pl0/src/xfsaveMisc.tcl	Sat Nov 20 22:21:28 1993
--- xf2.3-pl1/src/xfsaveMisc.tcl	Thu Feb 17 12:53:18 1994
***************
*** 690,708 ****
    if {"[info procs XFSaveWidget.$xfClass]" != ""} {
      XFSaveWidget.$xfClass $xfOutFile $xfW
    } {
-     set xfType [string tolower $xfClass]
- 
      # what are we doing here ?
      puts $xfOutFile "\n  # build widget $xfW"
  
      set xfUseConfig 1
      # write widget type and path name
!     case $xfType in {
!       {button canvas checkbutton entry frame label listbox menu menubutton message radiobutton scale scrollbar text toplevel} {
!         puts $xfOutFile "  $xfType $xfW" nonewline
          set xfUseConfig 0
        }
        {default} {
          puts $xfOutFile "  if {\[catch \"$xfType $xfW\"\]} {"
          puts $xfOutFile "    if {\"\[info procs XFEdit\]\" != \"\"} {"
          puts $xfOutFile "      XFProcError \"Unknown widget type: $xfType\""
--- 690,712 ----
    if {"[info procs XFSaveWidget.$xfClass]" != ""} {
      XFSaveWidget.$xfClass $xfOutFile $xfW
    } {
      # what are we doing here ?
      puts $xfOutFile "\n  # build widget $xfW"
  
      set xfUseConfig 1
      # write widget type and path name
!     case $xfClass in {
!       {Button Canvas Checkbutton Entry Frame Label Listbox Menu Menubutton Message Radiobutton Scale Scrollbar Text Toplevel} {
!         puts $xfOutFile "  [string tolower $xfClass] $xfW" nonewline
          set xfUseConfig 0
        }
        {default} {
+         set xfType [string tolower [string index $xfClass 0]]
+         append xfType [string range $xfClass 1 end]
+         if {"[info commands $xfType]" == ""} {
+           set xfType [string tolower $xfClass]
+         }
+ 
          puts $xfOutFile "  if {\[catch \"$xfType $xfW\"\]} {"
          puts $xfOutFile "    if {\"\[info procs XFEdit\]\" != \"\"} {"
          puts $xfOutFile "      XFProcError \"Unknown widget type: $xfType\""
diff -rcN xf2.3-pl0/templates/Procedures/FSBox.t xf2.3-pl1/templates/Procedures/FSBox.t
*** xf2.3-pl0/templates/Procedures/FSBox.t	Sat Nov 27 14:54:27 1993
--- xf2.3-pl1/templates/Procedures/FSBox.t	Tue Mar  1 23:58:31 1994
***************
*** 91,98 ****
    if {[file exists $fsBoxFileName] && [IsADir $fsBoxFileName]} {
      set fsBox(path) $fsBoxFileName
    } {
!     if {"[file rootname $fsBoxFileName]" != "."} {
!       set fsBox(path) [file rootname $fsBoxFileName]
      }
    }
    if {$fsBox(showPixmap)} {
--- 91,98 ----
    if {[file exists $fsBoxFileName] && [IsADir $fsBoxFileName]} {
      set fsBox(path) $fsBoxFileName
    } {
!     if {"[file dirname $fsBoxFileName]" != "."} {
!       set fsBox(path) [file dirname $fsBoxFileName]
      }
    }
    if {$fsBox(showPixmap)} {