Changeset 328 for trunk/gsascmds.tcl

Timestamp:

Dec 4, 2009 5:04:13 PM (13 years ago)

Author:

toby

Message:

# on 2000/10/18 00:03:58, toby did:
Major change in order of routines!
Switch tk_dialog to MyMessageBox? and add WWW references for some error mgs
fix bug in GetProfileTerms? that prevented use of cached labels
remove platform-specific runtime code to expgui so that it gets run later

File:

• trunk/gsascmds.tcl (modified) (7 diffs, 3 props)

trunk/gsascmds.tcl

@@ -1 +1 @@
 # $Id$
-# platform-specific code
-if {$tcl_platform(platform) == "windows"} {
-    if [catch {package require winexec}] {
-        MyMessageBox -parent . -title "WINEXEC Error" \
-                -message "Error -- Unable to load the WINEXEC package. This is needed in Win95 machines" \
-                -icon error -type Quit -default quit \
-                -helplink "expgui_Win_readme.html Winexec"
-        destroy .
-    }
-    if ![file exists [file join $expgui(gsasdir) fonts grfont.dat]] {
-        MyMessageBox -parent . -title "PGPLOT Error" \
-                -message "Warning -- Unable to find file GRFONT.DAT. GSAS graphics will not work. Is GSAS correctly installed?" \
-                -icon warning -type {"Limp Ahead"} -default "Limp Ahead" \
-                -helplink "expguierr.html NoPGPLOT"
-    }
-
-    if {$tcl_platform(os) == "Windows 95"} {
-        # this creates a DOS box to run a program in
-        proc forknewterm {title command "background 0" "scrollbar 1" "wait 1"} {
-            global env expgui
-            # Windows environment variables
-            # -95 does not seem to be able to use these
-            set env(GSAS) [file nativename $expgui(gsasdir)]
-            # PGPLOT_FONT is needed by PGPLOT
-            set env(PGPLOT_FONT) [file nativename [file join $expgui(gsasdir) fonts grfont.dat]]
-            # this is the number of lines/page in the .LST (etc.) file
-            set env(LENPAGE) 60
-            set pwd [file nativename [pwd]]
-
-            # check the path -- can DOS use it?
-            if {[string first // [pwd]] != -1} {
-                MyMessageBox -parent . -title "Invalid Path" \
-                -message {Error -- Use "Map network drive" to access this directory with a letter (e.g. F:) GSAS can't directly access a network drive} \
-                -icon error -type ok -default ok \
-                -helplink "expgui_Win_readme.html NetPath"
-                return
-            }
-            # all winexec commands are background commands
-            #   if $background 
-
-            # pause is hard coded in the .BAT file
-            #if $wait  {
-            #   append command " pause"
-            #}
-
-            # replace the forward slashes with backward
-            regsub -all / $command \\ command
-            # Win95 does not seem to inherit the environment from Tcl env vars
-            # so define it in the .BAT file
-            winexec -d [file nativename [pwd]] \
-                [file join $expgui(scriptdir) gsastcl.bat] \
-                "[file nativename $expgui(gsasdir)] $command"
-        }
-    } else {
-        # now for - brain-dead Windows-NT
-        # this creates a DOS box to run a program in
-        proc forknewterm {title command "background 0" "scrollbar 1" "wait 1"} {
-            global env expgui
-            # Windows environment variables
-            set env(GSAS) [file nativename $expgui(gsasdir)]
-            # PGPLOT_FONT is needed by PGPLOT
-            set env(PGPLOT_FONT) [file nativename [file join $expgui(gsasdir) fonts grfont.dat]]
-            # this is the number of lines/page in the .LST (etc.) file
-            set env(LENPAGE) 60
-            # all winexec commands are background commands -- ignore background arg
-            # can't get pause to work! -- ignore wait
-
-            set prevcmd {}
-            foreach cmd $command {
-                if {$prevcmd != ""} {
-                    tk_dialog .done_yet Confirm "Press OK to start command $cmd" "" 0 OK
-                }
-                # replace the forward slashes with backward
-                regsub -all / $cmd \\ cmd
-                # cmd.exe must be in the path -- lets hope that at least works!
-                winexec -d [file nativename [pwd]] cmd.exe "/c $cmd"
-                set prevcmd $cmd
-            }
-        }
-    }
-} else {
-    if ![file exists [file join $expgui(gsasdir) pgl grfont.dat]] {
-        MyMessageBox -parent . -title "PGPLOT Error" \
-                -message "Warning -- Unable to find file grfont.dat. GSAS graphics will not work. Is GSAS correctly installed?" \
-                -icon warning -type {"Limp Ahead"} -default "Limp Ahead" \
-                -helplink "expguierr.html NoPGPLOT"
-    }
-    if [catch {set env(GSASBACKSPACE)}] {set env(GSASBACKSPACE) 1}
-
-    # this creates a xterm window to run a program in
-    proc forknewterm {title command "background 0" "scrollbar 1" "wait 1"} {
-        global env expgui
-        # UNIX environment variables
-        set env(GSASEXE) $expgui(gsasexe)
-        set env(ATOMDATA) [file join $expgui(gsasdir) data atmdata.dat]
-        set env(ATMXSECT) [file join $expgui(gsasdir) data atmxsect.dat]
-        # PGPLOT_DIR is needed by PGPLOT
-        set env(PGPLOT_DIR) [file join $expgui(gsasdir) pgl]
-        # this is the number of lines/page in the .LST (etc.) file
-        set env(LENPAGE) 60
-        set termopts {}
-        if $env(GSASBACKSPACE) {
-            append termopts \
-                    {-xrm "xterm*VT100.Translations: #override\\n <KeyPress>BackSpace: string(\\177)"}
-        }
-        if $scrollbar {
-            append termopts " -sb"
+#------------------------------------------------------------------------------
+# display routines
+#------------------------------------------------------------------------------
+#       Message box code that centers the message box over the parent.
+#          or along the edge, if too close, 
+#          but leave a border along +x & +y for reasons I don't remember
+#       It also allows the button names to be defined using 
+#            -type $list  -- where $list has a list of button names
+#       larger messages are placed in a scrolled text widget
+#       capitalization is now ignored for -default
+#       The command returns the name button in all lower case letters
+#       otherwise see  tk_messageBox for a description
+#
+#       This is a modification of tkMessageBox (msgbox.tcl v1.5)
+#
+proc MyMessageBox {args} {
+    global tkPriv tcl_platform
+
+    set w tkPrivMsgBox
+    upvar #0 $w data
+
+    #
+    # The default value of the title is space (" ") not the empty string
+    # because for some window managers, a 
+    #           wm title .foo ""
+    # causes the window title to be "foo" instead of the empty string.
+    #
+    set specs {
+        {-default "" "" ""}
+        {-icon "" "" "info"}
+        {-message "" "" ""}
+        {-parent "" "" .}
+        {-title "" "" " "}
+        {-type "" "" "ok"}
+        {-helplink "" "" ""}
+    }
+
+    tclParseConfigSpec $w $specs "" $args
+
+    if {[lsearch {info warning error question} $data(-icon)] == -1} {
+        error "bad -icon value \"$data(-icon)\": must be error, info, question, or warning"
+    }
+    if {![string compare $tcl_platform(platform) "macintosh"]} {
+      switch -- $data(-icon) {
+          "error"     {set data(-icon) "stop"}
+          "warning"   {set data(-icon) "caution"}
+          "info"      {set data(-icon) "note"}
+        }
+    }
+
+    if {![winfo exists $data(-parent)]} {
+        error "bad window path name \"$data(-parent)\""
+    }
+
+    switch -- $data(-type) {
+        abortretryignore {
+            set buttons {
+                {abort  -width 6 -text Abort -under 0}
+                {retry  -width 6 -text Retry -under 0}
+                {ignore -width 6 -text Ignore -under 0}
+            }
+        }
+        ok {
+            set buttons {
+                {ok -width 6 -text OK -under 0}
+            }
+          if {![string compare $data(-default) ""]} {
+                set data(-default) "ok"
+            }
+        }
+        okcancel {
+            set buttons {
+                {ok     -width 6 -text OK     -under 0}
+                {cancel -width 6 -text Cancel -under 0}
+            }
+        }
+        retrycancel {
+            set buttons {
+                {retry  -width 6 -text Retry  -under 0}
+                {cancel -width 6 -text Cancel -under 0}
+            }
+        }
+        yesno {
+            set buttons {
+                {yes    -width 6 -text Yes -under 0}
+                {no     -width 6 -text No  -under 0}
+            }
+        }
+        yesnocancel {
+            set buttons {
+                {yes    -width 6 -text Yes -under 0}
+                {no     -width 6 -text No  -under 0}
+                {cancel -width 6 -text Cancel -under 0}
+            }
+        }
+        default {
+#           error "bad -type value \"$data(-type)\": must be abortretryignore, ok, okcancel, retrycancel, yesno, or yesnocancel"
+            foreach item $data(-type) {
+                lappend buttons [list [string tolower $item] -text $item -under 0]
+            }
+        }
+    }
+
+    if {[string compare $data(-default) ""]} {
+        set valid 0
+        foreach btn $buttons {
+            if {![string compare [lindex $btn 0] [string tolower $data(-default)]]} {
+                set valid 1
+                break
+            }
+        }
+        if {!$valid} {
+            error "invalid default button \"$data(-default)\""
+        }
+    }
+
+    # 2. Set the dialog to be a child window of $parent
+    #
+    #
+    if {[string compare $data(-parent) .]} {
+        set w $data(-parent).__tk__messagebox
+    } else {
+        set w .__tk__messagebox
+    }
+
+    # 3. Create the top-level window and divide it into top
+    # and bottom parts.
+
+    catch {destroy $w}
+    toplevel $w -class Dialog
+    wm title $w $data(-title)
+    wm iconname $w Dialog
+    wm protocol $w WM_DELETE_WINDOW { }
+    wm transient $w $data(-parent)
+    if {![string compare $tcl_platform(platform) "macintosh"]} {
+        unsupported1 style $w dBoxProc
+    }
+
+    frame $w.bot
+    pack $w.bot -side bottom -fill both
+    frame $w.top
+    pack $w.top -side top -fill both -expand 1
+    if {$data(-helplink) != ""} {
+#       frame $w.help
+#       pack $w.help -side top -fill both
+        pack [button $w.top.1 -text Help -bg yellow \
+                -command "MakeWWWHelp $data(-helplink)"] \
+                -side right -anchor ne
+        bind $w <Key-F1> "MakeWWWHelp $data(-helplink)"
+    }
+    if {[string compare $tcl_platform(platform) "macintosh"]} {
+        $w.bot configure -relief raised -bd 1
+        $w.top configure -relief raised -bd 1
+    }
+
+    # 4. Fill the top part with bitmap and message (use the option
+    # database for -wraplength and -font so that they can be
+    # overridden by the caller).
+
+    option add *Dialog.msg.wrapLength 3i widgetDefault
+
+    if {[string length $data(-message)] > 300} {
+        if {![string compare $tcl_platform(platform) "macintosh"]} {
+            option add *Dialog.msg.t.font system widgetDefault
         } else {
-            append termopts " +sb"
-        }
-        if $background {
-            set suffix {&}
+            option add *Dialog.msg.t.font {Times 18} widgetDefault
+        }
+        frame $w.msg
+        grid [text  $w.msg.t  \
+                -height 20 -width 55 -relief flat -wrap word \
+                -yscrollcommand "$w.msg.rscr set" \
+                ] -row 1 -column 0 -sticky news
+        grid [scrollbar $w.msg.rscr  -command "$w.msg.t yview" \
+                ] -row 1 -column 1 -sticky ns
+        # give extra space to the text box
+        grid columnconfigure $w.msg 0 -weight 1
+        grid rowconfigure $w.msg 1 -weight 1
+        $w.msg.t insert end $data(-message)
+    } else {
+        if {![string compare $tcl_platform(platform) "macintosh"]} {
+            option add *Dialog.msg.font system widgetDefault
         } else {
-            set suffix {}
-        }
+            option add *Dialog.msg.font {Times 18} widgetDefault
+        }
+        label $w.msg -justify left -text $data(-message)
+    }
+    pack $w.msg -in $w.top -side right -expand 1 -fill both -padx 3m -pady 3m
+    if {[string compare $data(-icon) ""]} {
+        label $w.bitmap -bitmap $data(-icon)
+        pack $w.bitmap -in $w.top -side left -padx 3m -pady 3m
+    }
+
+    # 5. Create a row of buttons at the bottom of the dialog.
+
+    set i 0
+    foreach but $buttons {
+        set name [lindex $but 0]
+        set opts [lrange $but 1 end]
+      if {![llength $opts]} {
+            # Capitalize the first letter of $name
+          set capName [string toupper \
+                    [string index $name 0]][string range $name 1 end]
+            set opts [list -text $capName]
+        }
+
+      eval button [list $w.$name] $opts [list -command [list set tkPriv(button) $name]]
+
+        if {![string compare $name [string tolower $data(-default)]]} {
+            $w.$name configure -default active
+        }
+      pack $w.$name -in $w.bot -side left -expand 1 -padx 3m -pady 2m
+
+        # create the binding for the key accelerator, based on the underline
         #
-        if $wait  {
-            append command "\; echo -n Press Enter to continue \; read x"
-        }
-        if !$background {wm iconify .}
-        catch {eval exec xterm $termopts -title [list $title] \
-                -e /bin/sh -c [list $command] $suffix} errmsg
-        if $expgui(debug) {puts "xterm result = $errmsg"}
-        if !$background {wm deiconify .}
-    }
+        set underIdx [$w.$name cget -under]
+        if {$underIdx >= 0} {
+            set key [string index [$w.$name cget -text] $underIdx]
+          bind $w <Alt-[string tolower $key]>  [list $w.$name invoke]
+          bind $w <Alt-[string toupper $key]>  [list $w.$name invoke]
+        }
+        incr i
+    }
+
+    # 6. Create a binding for <Return> on the dialog if there is a
+    # default button.
+
+    if {[string compare $data(-default) ""]} {
+      bind $w <Return> [list tkButtonInvoke $w.[string tolower $data(-default)]]
+    }
+
+    # 7. Withdraw the window, then update all the geometry information
+    # so we know how big it wants to be, then center the window in the
+    # display and de-iconify it.
+
+    wm withdraw $w
+    update idletasks
+    set wp $data(-parent)
+    # center the new window in the middle of the parent
+    set x [expr [winfo x $wp] + [winfo width $wp]/2 - \
+            [winfo reqwidth $w]/2 - [winfo vrootx $wp]]
+    set y [expr [winfo y $wp] + [winfo height $wp]/2 - \
+            [winfo reqheight $w]/2 - [winfo vrooty $wp]]
+    # make sure that we can see the entire window
+    set xborder 10
+    set yborder 25
+    if {$x < 0} {set x 0}
+    if {$x+[winfo reqwidth $w] +$xborder > [winfo screenwidth $w]} {
+        incr x [expr \
+                [winfo screenwidth $w] - ($x+[winfo reqwidth $w] + $xborder)]
+    }
+    if {$y < 0} {set y 0}
+    if {$y+[winfo reqheight $w] +$yborder > [winfo screenheight $w]} {
+        incr y [expr \
+                [winfo screenheight $w] - ($y+[winfo reqheight $w] + $yborder)]
+    }
+    wm geom $w +$x+$y
+    wm deiconify $w
+
+    # 8. Set a grab and claim the focus too.
+
+    catch {set oldFocus [focus]}
+    catch {set oldGrab [grab current $w]}
+    catch {
+        grab $w
+        if {[string compare $data(-default) ""]} {
+            focus $w.[string tolower $data(-default)]
+        } else {
+            focus $w
+        }
+    }
+
+    # 9. Wait for the user to respond, then restore the focus and
+    # return the index of the selected button.  Restore the focus
+    # before deleting the window, since otherwise the window manager
+    # may take the focus away so we can't redirect it.  Finally,
+    # restore any grab that was in effect.
+
+    tkwait variable tkPriv(button)
+    catch {focus $oldFocus}
+    destroy $w
+    catch {grab $oldGrab}
+    return $tkPriv(button)
+}
+
+# tell'em what is happening
+proc pleasewait {{message {}}} {
+    catch {destroy .msg}
+    toplevel .msg
+    wm transient .msg [winfo toplevel .]
+    pack [frame .msg.f -bd 4 -relief groove]
+    pack [message .msg.f.m -text "Please wait $message"]
+    wm withdraw .msg
+    update idletasks
+    # place the message on top of the main window
+    set x [expr [winfo x .] + [winfo width .]/2 - \
+            [winfo reqwidth .msg]/2 - [winfo vrootx .]]
+    if {$x < 0} {set x 0}
+    set y [expr [winfo y .] + [winfo height .]/2 - \
+            [winfo reqheight .msg]/2 - [winfo vrooty .]]
+    if {$y < 0} {set y 0}
+    wm geom .msg +$x+$y
+    wm deiconify .msg
+    global makenew
+    set makenew(OldGrab) ""
+    set makenew(OldFocus) ""
+    # save focus & grab
+    catch {set makenew(OldFocus) [focus]}
+    catch {set makenew(OldGrab) [grab current .msg]}
+    catch {grab .msg}
+    update
+}
+
+# clear the message
+proc donewait {} {
+    global makenew
+    catch {destroy .msg}
+    # reset focus & grab
+    catch {
+        if {$makenew(OldFocus) != ""} {
+            focus $makenew(OldFocus)
+        }
+    }
+    catch {
+        if {$makenew(OldGrab) != ""} {
+            grab $makenew(OldGrab)
+        }
+    }
+}
+
+proc putontop {w} {
+    # center window $w above its parent and make it stay on top
+    set wp [winfo parent $w]
+    wm transient $w [winfo toplevel $wp]
+    wm withdraw $w
+    update idletasks
+    # center the new window in the middle of the parent
+    set x [expr [winfo x $wp] + [winfo width $wp]/2 - \
+            [winfo reqwidth $w]/2 - [winfo vrootx $wp]]
+    if {$x < 0} {set x 0}
+    set xborder 10
+    if {$x+[winfo reqwidth $w] +$xborder > [winfo screenwidth $w]} {
+        incr x [expr \
+                [winfo screenwidth $w] - ($x+[winfo reqwidth $w] + $xborder)]
+    }
+    set y [expr [winfo y $wp] + [winfo height $wp]/2 - \
+            [winfo reqheight $w]/2 - [winfo vrooty $wp]]
+    if {$y < 0} {set y 0}
+    set yborder 25
+    if {$y+[winfo reqheight $w] +$yborder > [winfo screenheight $w]} {
+        incr y [expr \
+                [winfo screenheight $w] - ($y+[winfo reqheight $w] + $yborder)]
+    }
+    wm geom $w +$x+$y
+    wm deiconify $w
+
+    global makenew
+    set makenew(OldGrab) ""
+    set makenew(OldFocus) ""
+    catch {set makenew(OldFocus) [focus]}
+    catch {set makenew(OldGrab) [grab current $w]}
+    catch {grab $w}
+}
+
+proc afterputontop {} {
+    # restore focus
+    global makenew
+    # reset focus & grab
+    catch {
+        if {$makenew(OldFocus) != ""} {
+            focus $makenew(OldFocus)
+        }
+    }
+    catch {
+        if {$makenew(OldGrab) != ""} {
+            grab $makenew(OldGrab)
+        }
+    }
+}
+
+proc ShowBigMessage {win labeltext msg "optionlist OK" "link {}"} {
+    catch {destroy $win}
+    toplevel $win
+
+    pack [label $win.l1 -text $labeltext] -side top
+    pack [frame $win.f1] -side top -expand yes -fill both
+    grid [text  $win.f1.t  \
+            -height 20 -width 55  -wrap none -font Courier \
+            -xscrollcommand "$win.f1.bscr set" \
+            -yscrollcommand "$win.f1.rscr set" \
+            ] -row 1 -column 0 -sticky news
+    grid [scrollbar $win.f1.bscr -orient horizontal \
+            -command "$win.f1.t xview" \
+            ] -row 2 -column 0 -sticky ew
+    grid [scrollbar $win.f1.rscr  -command "$win.f1.t yview" \
+            ] -row 1 -column 1 -sticky ns
+    # give extra space to the text box
+    grid columnconfigure $win.f1 0 -weight 1
+    grid rowconfigure $win.f1 1 -weight 1
+    $win.f1.t insert end $msg
+
+    global makenew
+    set makenew(result) 0
+    bind $win <Return> "destroy $win"
+    bind $win <KeyPress-Prior> "$win.f1.t yview scroll -1 page"
+    bind $win <KeyPress-Next> "$win.f1.t yview scroll 1 page"
+    bind $win <KeyPress-Right> "$win.f1.t xview scroll 1 unit"
+    bind $win <KeyPress-Left> "$win.f1.t xview scroll -1 unit"
+    bind $win <KeyPress-Up> "$win.f1.t yview scroll -1 unit"
+    bind $win <KeyPress-Down> "$win.f1.t yview scroll 1 unit"
+    bind $win <KeyPress-Home> "$win.f1.t yview 0"
+    bind $win <KeyPress-End> "$win.f1.t yview end"
+    set i 0
+    foreach item $optionlist {
+        pack [button $win.q[incr i] \
+                -command "set makenew(result) $i; destroy $win" -text $item] -side left
+    }
+    if {$link != ""} {
+        pack [button $win.help -text Help -bg yellow \
+            -command "MakeWWWHelp $link"] \
+            -side right
+        bind $win <Key-F1> "MakeWWWHelp $link"
+    }
+    putontop $win
+    tkwait window $win
+
+    # fix grab...
+    afterputontop
+    return $makenew(result)
 }
 
@@ -166 +469 @@
 }
 
-# run a GSAS program that does not require an experiment file
-proc runGSASprog {proglist} {
-    global expgui tcl_platform
-    set cmd {}
-    foreach prog $proglist {
+#------------------------------------------------------------------------------
+# profile/symmetry routines
+#------------------------------------------------------------------------------
+# profile terms
+array set expgui {
+    prof-T-1 {alp-0 alp-1 bet-0 bet-1 sig-0 sig-1 sig-2 rstr rsta \
+            rsca s1ec s2ec }
+    prof-T-2 {alp-0 alp-1 beta switch sig-0 sig-1 sig-2 gam-0 gam-1 \
+            gam-2 ptec stec difc difa zero }
+    prof-T-3 {alp bet-0 bet-1 sig-0 sig-1 sig-2 gam-0 gam-1 \
+            gam-2 gsf g1ec g2ec rstr rsta rsca L11 L22 L33 L12 L13 L23 }
+    prof-T-4 {alp bet-0 bet-1 sig-1 sig-2 gam-2 g2ec gsf \
+            rstr rsta rsca eta}
+    prof-C-1 {GU GV GW asym F1 F2 }
+    prof-C-2 {GU GV GW LX LY trns asym shft GP stec ptec sfec \
+            L11 L22 L33 L12 L13 L23 }
+    prof-C-3 {GU GV GW GP LX LY S/L H/L trns shft stec ptec sfec \
+            L11 L22 L33 L12 L13 L23 }
+    prof-C-4 {GU GV GW GP LX ptec trns shft sfec S/L H/L eta} 
+    prof-E-1 {A B C ds cds}
+}
+
+# number of profile terms depends on the histogram type
+# the LAUE symmetry and the profile number
+proc GetProfileTerms {phase hist ptype} {
+    global expmap expgui
+    if {$hist == "C" || $hist == "T" || $hist == "E"} {
+        set htype $hist
+    } else {
+        set htype [string range $expmap(htype_$hist) 2 2]
+    }
+    # get the cached copy of the profile term labels, when possible
+    set lbls {}
+    catch {
+        set lbls $expmap(ProfileTerms${phase}_${ptype}_${htype})
+    }
+    if {$lbls != ""} {return $lbls}
+
+    catch {set lbls $expgui(prof-$htype-$ptype)}
+    if {$lbls == ""} {return}
+    # add terms based on the Laue symmetry
+    if {($htype == "C" || $htype == "T") && $ptype == 4} {
+        set laueaxis [GetLaue [phaseinfo $phase spacegroup]]
+        eval lappend lbls [Profile4Terms $laueaxis]
+    }
+    set expmap(ProfileTerms${phase}_${ptype}_${htype}) $lbls
+    return $lbls
+}
+
+proc Profile4Terms {laueaxis} {
+    switch -exact $laueaxis {
+        1bar {return \
+                "S400 S040 S004 S220 S202 S022 S310 S103 S031 \
+                S130 S301 S013 S211 S121 S112"}
+        2/ma {return "S400 S040 S004 S220 S202 S022 S013 S031 S211"}
+        2/mb {return "S400 S040 S004 S220 S202 S022 S301 S103 S121"}
+        2/mc {return "S400 S040 S004 S220 S202 S022 S130 S310 S112"}
+        mmm  {return "S400 S040 S004 S220 S202 S022"}
+        4/m  {return "S400 S004 S220 S202"}
+        4/mmm {return "S400 S004 S220 S202"}
+        3barR     {return "S400 S220 S310 S211"}
+        "3bar mR" {return "S400 S220 S310 S211"}
+        3bar    {return "S400 S004 S202 S211"}
+        3barm1 {return "S400 S004 S202"}
+        3bar1m  {return "S400 S004 S202 S211"}
+        6/m    {return "S400 S004 S202"}
+        6/mmm  {return "S400 S004 S202"}
+        "m 3"  {return "S400 S220"}
+        m3m    {return "S400 S220"}
+        default {return ""}
+    }
+}
+
+proc GetLaue {spg} {
+    global tcl_platform expgui
+    # check the space group
+    set fp [open spg.in w]
+    puts $fp "N"
+    puts $fp "N"
+    puts $fp $spg
+    puts $fp "Q"
+    close $fp
+    catch {
         if {$tcl_platform(platform) == "windows"} {
-            append cmd " \"$expgui(gsasexe)/${prog}.exe \" "
+            exec [file join $expgui(gsasexe) spcgroup.exe] < spg.in >& spg.out
         } else {
-            if {$cmd != ""} {append cmd "\;"}
-            append cmd "[file join $expgui(gsasexe) $prog]"
-        }
-    }
-    forknewterm $prog $cmd 0 1 1
-}
-
-# run a GSAS program that requires an experiment file for input/output
-proc runGSASwEXP {proglist "concurrent 0"} {
-    global expgui tcl_platform
-    # Save the current exp file
-    savearchiveexp
-    # load the changed .EXP file automatically?
-    if {$expgui(autoexpload)} {
-        # disable the file changed monitor
-        set expgui(expModifiedLast) 0
-    }
-    set cmd {}
-    set expnam [file root [file tail $expgui(expfile)]]
-    foreach prog $proglist {
-        if {$prog == "expedt" && $expgui(archive)} archiveexp
-        if {$tcl_platform(platform) == "windows"} {
-            append cmd " \"$expgui(gsasexe)/${prog}.exe $expnam \" "
+            exec [file join $expgui(gsasexe) spcgroup] < spg.in >& spg.out
+        }
+    }
+    set fp [open spg.out r]
+    set laue {}
+    set uniqueaxis {}
+    while {[gets $fp line] >= 0} {
+        regexp {Laue symmetry (.*)} $line junk laue
+        regexp {The unique axis is (.*)} $line junk uniqueaxis
+    }
+    close $fp
+    catch {file delete -force spg.in spg.out}
+    set laue [string trim $laue]
+    # add a R suffix for rhombohedral settings
+    if {[string range [string trim $spg] end end] == "R"} {
+        return "${laue}${uniqueaxis}R"
+    }
+    return "${laue}$uniqueaxis"
+}
+
+# set up to change the profile type for a series of histogram/phase entries
+# (histlist & phaselist should be lists of the same length)
+#
+proc ChangeProfileType {histlist phaselist} {
+    global expgui expmap 
+    set w .profile
+    catch {destroy $w}
+    toplevel $w -bg beige
+    wm title $w "Change Profile Function"
+    
+    # all histogram/phases better be the same type, so we can just use the 1st
+    set hist [lindex $histlist 0]
+    set phase [lindex $phaselist 0]
+    set ptype [string trim [hapinfo $hist $phase proftype]]
+
+    # get list of allowed profile terms for the current histogram type
+    set i 1
+    while {[set lbls [GetProfileTerms $phase $hist $i]] != ""} {
+        lappend lbllist $lbls
+        incr i
+    }
+    # labels for the current type
+    set i $ptype
+    set oldlbls [lindex $lbllist [incr i -1]]
+    
+    if {[llength $histlist] == 1} {
+        pack [label $w.a -bg beige \
+                -text "Change profile function for Histogram #$hist Phase #$phase" \
+                ] -side top
+    } else {
+        # make a list of histograms by phase
+        foreach h $histlist p $phaselist {
+            lappend phlist($p) $h
+        }
+        set num 0
+        pack [frame $w.a -bg beige] -side top 
+        pack [label $w.a.$num -bg beige \
+                -text "Change profile function for:" \
+                ] -side top -anchor w
+        foreach i [lsort [array names phlist]] {
+            incr num
+            pack [label $w.a.$num -bg beige -text \
+                    "\tPhase #$i, Histograms [CompressList $phlist($i)]" \
+                    ] -side top -anchor w
+        }
+    }
+    pack [label $w.e1 \
+            -text "Current function is type $ptype." \
+            -bg beige] -side top -anchor w
+    pack [frame $w.e -bg beige] -side top -expand yes -fill both
+    pack [label $w.e.1 \
+            -text "Set function to type" \
+            -bg beige] -side left 
+    set menu [tk_optionMenu $w.e.2 expgui(newpeaktype) junk]
+    pack $w.e.2 -side left -anchor w
+
+    pack [radiobutton $w.e.4 -bg beige -variable expgui(DefaultPeakType) \
+            -command "set expgui(newpeaktype) $ptype; \
+            FillChangeProfileType $w.c $hist $phase $ptype [list $oldlbls] [list $oldlbls]" \
+            -value 1 -text "Current value overrides"] -side right
+    pack [radiobutton $w.e.3 -bg beige -variable expgui(DefaultPeakType) \
+            -command \
+            "set expgui(newpeaktype) $ptype; \
+            FillChangeProfileType $w.c $hist $phase $ptype [list $oldlbls] [list $oldlbls]" \
+            -value 0 -text "Default value overrides"] -side right
+
+    $w.e.2 config -bg beige
+    pack [frame $w.c -bg beige] -side top -expand yes -fill both
+    pack [frame $w.d -bg beige] -side top -expand yes -fill both
+    pack [button $w.d.2 -text Set  \
+            -command "SaveChangeProfileType $w.c $histlist $phaselist; destroy $w"\
+            ] -side left
+    pack [button $w.d.3 -text Quit \
+            -command "destroy $w"] -side left
+    pack [button $w.d.help -text Help -bg yellow \
+            -command "MakeWWWHelp expgui5.html ChangeType"] \
+            -side right
+    bind $w <Key-F1> "MakeWWWHelp expgui5.html ChangeType"
+    bind $w <Return> "destroy $w"
+
+    $menu delete 0 end
+    set i 0
+    foreach lbls $lbllist {
+        incr i
+        $menu add command -label $i -command \
+                "set expgui(newpeaktype) $i; \
+                FillChangeProfileType $w.c $hist $phase $i [list $lbls] [list $oldlbls]"
+    }
+    set expgui(newpeaktype) $ptype
+    FillChangeProfileType $w.c $hist $phase $ptype $oldlbls $oldlbls
+
+    # force the window to stay on top
+    putontop $w
+    focus $w.e.2
+    tkwait window $w
+    afterputontop
+    sethistlist
+}
+
+# save the changes to the profile
+proc SaveChangeProfileType {w histlist phaselist} {
+    global expgui
+    foreach phase $phaselist hist $histlist {
+        hapinfo $hist $phase proftype set $expgui(newpeaktype)
+        hapinfo $hist $phase profterms set $expgui(newProfileTerms)
+        for {set i 1} {$i <=  $expgui(newProfileTerms)} {incr i} {
+            hapinfo $hist $phase pterm$i set [$w.ent${i} get]
+            hapinfo $hist $phase pref$i set $expgui(ProfRef$i)
+        }
+        set i [expr 1+$expgui(newProfileTerms)]
+        hapinfo $hist $phase pcut set [$w.ent$i get]
+        incr expgui(changed) [expr 3 + $expgui(newProfileTerms)]
+    }
+}
+
+# file the contents of the "Change Profile Type" Menu
+proc FillChangeProfileType {w hist phase newtype lbls oldlbls} {
+    global expgui expmap 
+    set ptype [string trim [hapinfo $hist $phase proftype]]
+    catch {unset oldval}
+    # loop through the old terms and set up an array of starting values
+    set num 0
+    foreach term $oldlbls {
+        incr num
+        set oldval($term) [hapinfo $hist $phase pterm$num]
+    }
+    set oldval(Peak\nCutoff) [hapinfo $hist $phase pcut]
+
+    # is the new type the same as the current?
+    if {$ptype == $newtype} {
+        set nterms [hapinfo $hist $phase profterms]
+    } else {
+        set nterms [llength $lbls]
+    }
+    set expgui(newProfileTerms) $nterms
+    set expgui(CurrentProfileTerms) $nterms
+    # which default profile set matches the new type
+    set setnum {}
+    foreach j {" " 1 2 3 4 5 6 7 8 9} {
+        set i [profdefinfo $hist $j proftype]
+        if {$i == ""} continue
+        if {$i == $newtype} {
+            set setnum $j
+            break
+        }
+    }
+
+    eval destroy [winfo children $w]
+
+    set colstr 0
+    set row 2
+    set maxrow [expr $row + $nterms/2]
+    for { set num 1 } { $num <= $nterms + 1} { incr num } {
+        # get the default value (originally from the in .INS file)
+        set val {}
+        if {$setnum != ""} {
+            set val 0.0
+            catch {
+                set val [profdefinfo $hist $setnum pterm$num]
+                # pretty up the number
+                if {$val == 0.0} {
+                    set val 0.0
+                } elseif {abs($val) < 1e-2 || abs($val) > 1e6} {
+                    set val [format %.3e $val]
+                } elseif {abs($val) > 1e-2 && abs($val) < 10} {
+                    set val [format %.5f $val]
+                } elseif {abs($val) < 9999} {
+                    set val [format %.2f $val]
+                } elseif {abs($val) < 1e6} {
+                    set val [format %.0f $val]
+                }
+            }
+        }
+        # heading
+        if {$row == 2} {
+            set col $colstr
+            grid [label $w.h0${num} -text "lbl" -bg beige] \
+                -row $row -column $col
+            grid [label $w.h2${num} -text "ref" -bg beige] \
+                -row $row -column [incr col]
+            grid [label $w.h3${num} -text "next value" -bg beige] \
+                -row $row -column [incr col]
+            grid [label $w.h4${num} -text "default" -bg beige] \
+                -row $row -column [incr col]
+            grid [label $w.h5${num} -text "current" -bg beige] \
+                -row $row -column [incr col]
+        }
+        set col $colstr
+        incr row
+        set term {}
+        catch {set term [lindex $lbls [expr $num-1]]}
+        if {$term == ""} {set term $num}
+        if {$num == $nterms + 1} {
+            set term "Peak\nCutoff"
+            set val {}
+            if {$setnum != ""} {
+                set val 0.0
+                catch {set val [profdefinfo $hist $setnum pcut]}
+            }
+        }
+
+        grid [label $w.l${num} -text "$term" -bg beige] \
+                -row $row -column $col
+        grid [checkbutton $w.chk${num} -variable expgui(ProfRef$num) \
+                -bg beige -activebackground beige] -row $row -column [incr col]
+        grid [entry $w.ent${num} \
+                -width 12] -row $row -column [incr col]
+        if {$val != ""} {
+            grid [button $w.def${num} -text $val -command \
+                    "$w.ent${num} delete 0 end; $w.ent${num} insert end $val" \
+                    ] -row $row -column [incr col] -sticky ew
         } else {
-            if {$cmd != ""} {append cmd "\;"}
-            append cmd "[file join $expgui(gsasexe) $prog] $expnam"
-        }
-    }
-    forknewterm "$prog -- $expnam" $cmd $concurrent 1 1
-    # load the changed .EXP file automatically?
-    if {$expgui(autoexpload)} {
-        # load the revised exp file
-        loadexp $expgui(expfile)
-    }
-}
-
-# run liveplot
-proc liveplot {} {
-    global expgui liveplot wishshell
-    set expnam [file root [file tail $expgui(expfile)]]
-    exec $wishshell [file join $expgui(scriptdir) liveplot] \
-            $expnam $liveplot(hst) $liveplot(legend) &
-}
-
-# run lstview
-proc lstview {} {
-    global expgui wishshell
-    set expnam [file root [file tail $expgui(expfile)]]
-    exec $wishshell [file join $expgui(scriptdir) lstview] $expnam &
-}
-
-# run widplt
-proc widplt {} {
-    global expgui wishshell
-    exec $wishshell [file join $expgui(scriptdir) widplt] \
-            $expgui(expfile) &
+            grid [label $w.def${num} -text (none) \
+                    ] -row $row -column [incr col]
+        }
+        set curval {}
+        catch {
+            set curval [expr $oldval($term)]
+            # pretty up the number
+            if {$curval == 0.0} {
+                set curval 0.0
+            } elseif {abs($curval) < 1e-2 || abs($curval) > 1e6} {
+                set curval [format %.3e $curval]
+            } elseif {abs($curval) > 1e-2 && abs($curval) < 10} {
+                set curval [format %.5f $curval]
+            } elseif {abs($curval) < 9999} {
+                set curval [format %.2f $curval]
+            } elseif {abs($curval) < 1e6} {
+                set curval [format %.0f $curval]
+            }
+            grid [button $w.cur${num} -text $curval -command  \
+                    "$w.ent${num} delete 0 end; $w.ent${num} insert end $curval" \
+                    ] -row $row -column [incr col] -sticky ew
+        }
+        # set default values for flag and value
+        set ref 0
+        if {$setnum != ""} {
+            catch {
+                if {[profdefinfo $hist $setnum pref$num] == "Y"} {set ref 1}
+            }
+        }
+        set expgui(ProfRef$num) $ref
+        
+        $w.ent${num} delete 0 end
+        if {!$expgui(DefaultPeakType) && $val != ""} {
+            $w.ent${num} insert end $val
+        } elseif {$curval != ""} {
+            $w.ent${num} insert end $curval
+        } elseif {$val != ""} {
+            $w.ent${num} insert end $val
+        } else {
+            $w.ent${num} insert end 0.0
+        }
+        if {$row > $maxrow} {
+            set row 2
+            incr colstr 5
+        }
+    }
+}
+
+#------------------------------------------------------------------------------
+# WWW/help routines
+#------------------------------------------------------------------------------
+# browse a WWW page with URL. The URL may contain a #anchor
+# On UNIX assume netscape is in the path or env(BROWSER) is loaded. 
+# On Windows search the registry for a browser. Mac branch not tested.
+# This is taken from http://mini.net/cgi-bin/wikit/557.html with many thanks
+# to the contributers
+proc urlOpen {url} {
+    global env tcl_platform
+    switch $tcl_platform(platform) {
+        "unix" {
+            if {![info exists env(BROWSER)]} {
+                set progs [auto_execok netscape]
+                if {[llength $progs]} {
+                    set env(BROWSER) [list $progs]
+                }
+            }
+            if {[info exists env(BROWSER)]} {
+                if {[catch {exec $env(BROWSER) -remote openURL($url)}]} {
+                    # perhaps browser doesn't understand -remote flag
+                    if {[catch {exec $env(BROWSER) $url &} emsg]} {
+                        error "Error displaying $url in browser\n$emsg"
+                    }
+                }
+            } else {
+                tk_dialog .warn "No Browser" \
+                        "Could not find a browser. Netscape is not in path. Define environment variable BROWSER to be full path name of browser." \
+                        warn 0 OK
+            }
+        }
+        "windows" {
+            package require registry
+            # Look for the application under
+            # HKEY_CLASSES_ROOT
+            set root HKEY_CLASSES_ROOT
+
+            # Get the application key for HTML files
+            set appKey [registry get $root\\.html ""]
+
+            # Get the command for opening HTML files
+            set appCmd [registry get \
+                    $root\\$appKey\\shell\\open\\command ""]
+
+            # Substitute the HTML filename into the command for %1
+            regsub %1 $appCmd $url appCmd
+            
+            # Double up the backslashes for eval (below)
+            regsub -all {\\} $appCmd  {\\\\} appCmd
+            
+            # Invoke the command
+            eval exec $appCmd &
+        }
+        "macintosh" {
+            if {0 == [info exists env(BROWSER)]} {
+                set env(BROWSER) "Browse the Internet"
+            }
+            if {[catch {
+                AppleScript execute\
+                    "tell application \"$env(BROWSER)\"
+                         open url \"$url\"
+                     end tell
+                "} emsg]
+            } then {
+                error "Error displaying $url in browser\n$emsg"
+            }
+        }
+    }
+}
+
+proc NetHelp {file anchor localloc netloc} {
+    if {[file exists [file join $localloc $file]]} {
+        set url "[file join $localloc $file]"
+    } else {
+        set url "http://$netloc/$file"
+    }
+    catch {
+        pleasewait "Starting web browser..."
+        after 2000 donewait
+    }
+    if {$anchor != ""} {
+        append url # $anchor
+    }
+    urlOpen $url
+}
+
+proc MakeWWWHelp {"topic {}" "anchor {}"} {
+    global expgui
+    if {$topic == ""} {
+        foreach item $expgui(notebookpagelist) {
+            if {[lindex $item 0] == $expgui(pagenow)} {
+                NetHelp [lindex $item 5] [lindex $item 6] $expgui(docdir) ""
+                return
+            }
+        }
+        # this should not happen
+        NetHelp expgui.html "" $expgui(docdir) ""       
+    } elseif {$topic == "menu"} {
+        NetHelp expguic.html "" $expgui(docdir) ""
+    } else {
+        NetHelp $topic $anchor $expgui(docdir) ""
+    }
 }
 
@@ -279 +986 @@
 }
 
+
+#------------------------------------------------------------------------------
+# utilities
+#------------------------------------------------------------------------------
+# run liveplot
+proc liveplot {} {
+    global expgui liveplot wishshell
+    set expnam [file root [file tail $expgui(expfile)]]
+    exec $wishshell [file join $expgui(scriptdir) liveplot] \
+            $expnam $liveplot(hst) $liveplot(legend) &
+}
+
+# run lstview
+proc lstview {} {
+    global expgui wishshell
+    set expnam [file root [file tail $expgui(expfile)]]
+    exec $wishshell [file join $expgui(scriptdir) lstview] $expnam &
+}
+
+# run widplt
+proc widplt {} {
+    global expgui wishshell
+    exec $wishshell [file join $expgui(scriptdir) widplt] \
+            $expgui(expfile) &
+}
+
 # compute the composition for each phase and display in a dialog
 proc composition {} {
@@ -329 +1062 @@
 }
 
-# write text to the .LST file
-proc writelst {text} {
-    global expgui
-    set lstnam [file rootname $expgui(expfile)].LST 
-    set fp [open $lstnam a]
-    puts $fp "\n-----------------------------------------------------------------"
-    puts $fp $text
-    puts $fp "-----------------------------------------------------------------\n"
-    close $fp
-}
-
 # save coordinates in an MSI .xtl file
 proc exp2xtl {} {
@@ -467 +1189 @@
 }
 
-
-# convert a file
-proc convfile {} {
-    global tcl_platform
-    if {$tcl_platform(platform) == "windows"} {
-        convwin
-    } else {
-        convunix
-    }
-}
-
-# file conversions for UNIX (convstod convdtos)
-proc convunix {} {
-    global expgui infile outfile 
-    set frm .file
-    catch {destroy $frm}
-    toplevel $frm
-    wm title $frm "Convert File"
-    bind $frm <Key-F1> "MakeWWWHelp expgui.html ConvertUnix"
-
-    pack [frame [set frm0 $frm.0] -bd 2 -relief groove] \
-            -padx 3 -pady 3 -side top -fill x
-    pack [frame $frm.mid] -side top
-    pack [frame [set frmA $frm.mid.1] -bd 2 -relief groove] \
-            -padx 3 -pady 3 -side left
-    pack [label $frmA.0 -text "Select an input file"] -side top -anchor center
-    pack [frame [set frmB $frm.mid.2] -bd 2 -relief groove] \
-            -padx 3 -pady 3 -side left
-    pack [label $frmB.0 -text "Enter an output file"] -side top -anchor center
-    pack [frame [set frmC $frm.3] ] -padx 3 -pady 3 -side top -fill x -expand y
-
-    pack [label $frm0.1 -text "Convert to:"] -side top -anchor center
-    pack [frame $frm0.2] -side top -anchor center
-    pack [radiobutton $frm0.2.d -text "direct access" -value convstod \
-            -command setoutfile \
-            -variable outfile(type)] -side left -anchor center
-    pack [radiobutton $frm0.2.s -text "sequential" -value convdtos \
-            -command setoutfile \
-            -variable outfile(type)] -side right -anchor center
-    set outfile(type) ""
-
-    pack [button $frmC.b -text Convert -command "valid_conv_unix"] -side left
-    pack [button $frmC.q -text Quit -command "set infile(done) 1"] -side left
-    pack [button $frmC.help -text Help -bg yellow \
-            -command "MakeWWWHelp expgui.html ConvertUnix"] \
-            -side right
-    
-    unixcnvbox $frmA infile 1 
-    unixcnvbox $frmB outfile 0 
-    set infile(done) 0
-    bind $frm <Return> "valid_conv_unix"
-    # force the window to stay on top
-    putontop $frm
-    focus $frmC.q 
-    update
-    tkwait variable infile(done)
-    destroy $frm
-    afterputontop
-}
-
-# validate the files and make the conversion -- unix
-proc valid_conv_unix {} {
-    global infile outfile expgui
-    set error {}
-    if {$outfile(type) == "convstod" || $outfile(type) == "convdtos"} {
-        set convtype $outfile(type)
-    } else {
-        append error "You must specify a conversion method: to direct access or to sequential.\n"
-    }
-    if {$infile(name) == ""} {
-        append error "You must specify an input file to convert.\n"
-    }
-    if {$outfile(name) == ""} {
-        append error "You must specify an output file name for the converted file.\n"
-    }
-    if {$error != ""} {
-        tk_dialog .warn Notify $error warning 0 OK
-        return
-    }
-
-    if {$infile(name) == $outfile(name)} {
-        MyMessageBox -parent . -title Notify \
-                -message "Sorry, filenames must differ" \
-                -icon warning -helplink "expguierr.html ConvSameName"
-        tk_dialog .warn Notify "Sorry, filenames must differ" warning 0 OK
-        return
-    }
-    if ![file exists [file join $infile(dir) $infile(name)]] {
-        MyMessageBox -parent . -title Notify \
-                -message "Sorry, file $infile(name) not found in $infile(dir)" \
-                -icon warning -helplink "expguierr.html ConvNotFound"
-        return
-    }
-    if [file exists [file join $outfile(dir) $outfile(name)]] {
-        set ans [MyMessageBox -parent . -title "Overwrite?" \
-                -message "Warning: file $outfile(name) exists in $outfile(dir). OK to overwrite?" \
-                -icon warning -type {Overwrite Cancel} -default Overwrite \
-                -helplink "expguierr.html OverwriteCnv"]
-        if {[string tolower $ans] == "cancel"} return
-    }
-    if [catch {
-        exec [file join $expgui(gsasexe) $convtype] < \
-                [file join $infile(dir) $infile(name)] > \
-                [file join $outfile(dir) $outfile(name)]
-    } errmsg] {
-        tk_dialog .warn Notify "Error in conversion:\n$errmsg" warning 0 OK
-    } else {
-        if [tk_dialog .converted Notify \
-                "File converted. Convert more files?" \
-                ""  0 Yes No] {set infile(done) 1}
-    }
-}
-
-# create a file box for UNIX conversions
-proc unixcnvbox {bx filvar diropt} {
-    global ${filvar} expgui
-    pack [frame $bx.top] -side top 
-    pack [label $bx.top.a -text "Directory" ] -side left 
-    set ${filvar}(FileDirButtonMenu) [tk_optionMenu $bx.top.d ${filvar}(dir) [pwd] ]
-    pack $bx.top.d -side left
-    set ${filvar}(dir) [pwd]
-
-#    pack [label $bx.d -textvariable ${filvar}(dir) -bd 2 -relief raised ] -side top 
-#    set ${filvar}(dir) [pwd]
-
-    pack [frame $bx.a -width 200 -height 75] -side top -expand yes -fill both
-    listbox $bx.a.files -relief raised -bd 2 \
-            -yscrollcommand "$bx.a.scroll set" \
-            -height 15 -width 0 -exportselection 0 
-    scrollbar $bx.a.scroll -command "$bx.a.files yview"
-    unixFilChoose $bx $bx.a.files $filvar $diropt
-    if {$filvar == "infile"} {
-        bind $bx.a.files <ButtonRelease-1> \
-                "unixFilChoose $bx $bx.a.files $filvar $diropt; setoutfile"
-    } else {
-        bind $bx.a.files <ButtonRelease-1> \
-                "unixFilChoose $bx $bx.a.files $filvar $diropt"
-    }
-    pack $bx.a.scroll -side left -fill y 
-    pack $bx.a.files -side left -fill both -expand yes
-    pack [entry $bx.c -textvariable ${filvar}(name)] -side top
-}
-
-# select a file or directory, also called when box is created to fill it
-proc unixFilChoose {frm box filvar {dironly 1}} {
-    global $filvar
-    set select [$box curselection]
-    if {$select == ""} {
-        set file .
-    } else {
-        set file [string trim [$box get $select]]
-    }
-    if [file isdirectory [file join [set ${filvar}(dir)] $file]] {
-        if {$file == ".."} {
-            set ${filvar}(dir) [file dirname [set ${filvar}(dir)] ]
-        } elseif {$file != "."} {
-            set ${filvar}(dir) [file join [set ${filvar}(dir)] $file]
-        }
-        [set ${filvar}(FileDirButtonMenu)] delete 0 end
-        set list ""
-        set dir ""
-        foreach subdir [file split [set ${filvar}(dir)]] {
-            set dir [file join $dir $subdir]
-            lappend list $dir
-        }
-        foreach path $list {
-            [set ${filvar}(FileDirButtonMenu)] add command -label $path \
-                -command "[list set ${filvar}(dir) $path]; \
-                unixFilChoose $frm $box $filvar $dironly"
-        }
-        set ${filvar}(name) {}
-        $box delete 0 end
-        $box insert end {..   }
-        foreach file [lsort [glob -nocomplain \
-                [file join [set ${filvar}(dir)] *] ] ] {
-            if {[file isdirectory $file]} {
-                # is this / needed here? Does it cause a problem in MacGSAS?
-                $box insert end [file tail $file]/
-            } elseif {$dironly == 1} {
-                $box insert end [file tail $file]
-            } elseif {$dironly == 2 && [file extension $file] == ".EXP"} {
-                $box insert end [file tail $file]
-            }
-        }
-        return
-    }
-    set ${filvar}(name) [file tail $file]
-}
-
-# set new file name from old -- used for convunix
-proc setoutfile {} {
-    global infile outfile
-    if {$outfile(type) == "convstod"} {
-        set lfile [string toupper $infile(name)]
-    } elseif {$outfile(type) == "convdtos"} {
-        set lfile [string tolower $infile(name)]
-    } else {
-        set lfile ""
-    }
-    if {$infile(name) == $lfile} {
-        set outfile(name) {}
-    } else {
-        set outfile(name) $lfile
-    }
-}
-
-#------------------------------------------------------------------------------
-# file conversions for Windows
-#------------------------------------------------------------------------------
-proc convwin {} {
-    global expgui
-    set frm .file
-    catch {destroy $frm}
-    toplevel $frm
-    wm title $frm "Convert File"
-    bind $frm <Key-F1> "MakeWWWHelp expgui.html ConvertWin"
-    pack [frame [set frmA $frm.1] -bd 2 -relief groove] -padx 3 -pady 3 -side left
-    pack [frame [set frmC $frm.3] ] -padx 3 -pady 3 \
-            -side left -fill y -expand yes
-    pack [button $frmC.help -text Help -bg yellow \
-            -command "MakeWWWHelp expgui.html ConvertWin"] -side top
-    pack [button $frmC.q -text Quit -command "destroy $frm"] -side bottom
-    pack [button $frmC.b -text Convert -command "ValidWinCnv $frm"] \
-            -side bottom
-    pack [label $frmA.0 -text "Select a file to convert"] -side top -anchor center
-    winfilebox $frm
-    bind $frm <Return> "ValidWinCnv $frm"
-
-    # force the window to stay on top
-    putontop $frm
-    focus $frmC.q 
-    tkwait window $frm
-    afterputontop
-}
-
-# validate the files and make the conversion
-proc ValidWinCnv {frm} {
-    global expgui
-    # change backslashes to something sensible
-    regsub -all {\\} $expgui(FileMenuCnvName) / expgui(FileMenuCnvName)
-    # allow entry of D: for D:/ and D:TEST for d:/TEST
-    if {[string first : $expgui(FileMenuCnvName)] != -1 && \
-            [string first :/ $expgui(FileMenuCnvName)] == -1} {
-        regsub : $expgui(FileMenuCnvName) :/ expgui(FileMenuCnvName)
-    }
-    if {$expgui(FileMenuCnvName) == "<Parent>"} {
-        set expgui(FileMenuDir) [file dirname [set expgui(FileMenuDir)] ]
-        ChooseWinCnv $frm
-        return
-    } elseif [file isdirectory \
-            [file join $expgui(FileMenuDir) $expgui(FileMenuCnvName)]] {
-        if {$expgui(FileMenuCnvName) != "."} {
-            set expgui(FileMenuDir) \
-                [file join $expgui(FileMenuDir) $expgui(FileMenuCnvName)]
-        }
-        ChooseWinCnv $frm
-        return
-    }
- 
-    set file [file join $expgui(FileMenuDir) $expgui(FileMenuCnvName)]
-    if ![file exists $file] {
-        tk_dialog .warn "Convert Error" \
-                "File $file does not exist" question 0 "OK"
-        return
-    }
-
-    set tmpname "[file join [file dirname $file] tempfile.xxx]"
-    set oldname "[file rootname $file].org"
-    if [file exists $oldname] {
-        set ans [MyMessageBox -parent . -title "Overwrite?" \
-                -message "File [file tail $oldname] exists in [file dirname $oldname]. OK to overwrite?" \
-                -icon warning -type {Overwrite Cancel} -default Overwrite \
-                -helplink "expguierr.html OverwriteCnv"]
-        if {[string tolower $ans] == "cancel"} return
-        catch {file delete $oldname}
-    }
-
-    if [catch {
-        set in [open $file r]
-        set out [open $tmpname w]
-        set len [gets $in line]
-        if {$len > 160} {
-            # this is a UNIX file. Hope there are no control characters
-            set i 0
-            set j 79
-            while {$j < $len} {
-                puts $out [string range $line $i $j]
-                incr i 80
-                incr j 80
-            }
-        } else {
-            while {$len >= 0} {
-                append line "                                        "
-                append line "                                        "
-                set line [string range $line 0 79]
-                puts $out $line
-                set len [gets $in line]
-            }
-        }
-        close $in
-        close $out
-        file rename -force $file $oldname
-        file rename -force $tmpname $file
-    } errmsg] {
-        tk_dialog .warn Notify "Error in conversion:\n$errmsg" warning 0 OK
-    } else {
-        if [tk_dialog .converted Notify \
-                "File [file tail $file] converted. (Original saved as [file tail $oldname]).\n\n Convert more files?" \
-                ""  0 Yes No] {destroy $frm}
-    }
-}
-
-# create a file box
-proc winfilebox {frm} {
-    global expgui
-    set bx $frm.1
-    pack [frame $bx.top] -side top 
-    pack [label $bx.top.a -text "Directory" ] -side left 
-    set expgui(FileDirButtonMenu) [tk_optionMenu $bx.top.d expgui(FileMenuDir) [pwd] ]
-    pack $bx.top.d -side left
-    set expgui(FileMenuDir) [pwd]
-    # the icon below is from tk8.0/tkfbox.tcl
-    set upfolder [image create bitmap -data {
-#define updir_width 28
-#define updir_height 16
-static char updir_bits[] = {
-   0x00, 0x00, 0x00, 0x00, 0x80, 0x1f, 0x00, 0x00, 0x40, 0x20, 0x00, 0x00,
-   0x20, 0x40, 0x00, 0x00, 0xf0, 0xff, 0xff, 0x01, 0x10, 0x00, 0x00, 0x01,
-   0x10, 0x02, 0x00, 0x01, 0x10, 0x07, 0x00, 0x01, 0x90, 0x0f, 0x00, 0x01,
-   0x10, 0x02, 0x00, 0x01, 0x10, 0x02, 0x00, 0x01, 0x10, 0x02, 0x00, 0x01,
-   0x10, 0xfe, 0x07, 0x01, 0x10, 0x00, 0x00, 0x01, 0x10, 0x00, 0x00, 0x01,
-   0xf0, 0xff, 0xff, 0x01};}]
-
-    pack [button $bx.top.b -image $upfolder \
-            -command "updir; ChooseWinCnv $frm" ]
-    pack [frame $bx.a -width 200 -height 75] -side top -expand yes -fill both
-    listbox $bx.a.files -relief raised -bd 2  -exportselection 0 \
-            -yscrollcommand "sync2boxes $bx.a.files $bx.a.dates $bx.a.scroll" \
-            -height 15 -width 0
-    listbox $bx.a.dates -relief raised -bd 2  -exportselection 0 \
-            -yscrollcommand "sync2boxes $bx.a.dates $bx.a.files $bx.a.scroll" \
-            -height 15 -width 0 -takefocus 0
-    scrollbar $bx.a.scroll -command "move2boxesY \" $bx.a.files $bx.a.dates \" "
-    ChooseWinCnv $frm
-    bind $bx.a.files <ButtonRelease-1> "ReleaseWinCnv $frm"
-    bind $bx.a.dates <ButtonRelease-1> "ReleaseWinCnv $frm"
-    bind $bx.a.files <Double-1> "SelectWinCnv $frm"
-    bind $bx.a.dates <Double-1> "SelectWinCnv $frm"
-    pack $bx.a.scroll -side left -fill y 
-    pack $bx.a.files $bx.a.dates -side left -fill both -expand yes
-    pack [entry $bx.c -textvariable expgui(FileMenuCnvName)] -side top
-}
-
-# set the box or file in the selection window
-proc ReleaseWinCnv {frm} {
-    global expgui
-    set files $frm.1.a.files
-    set dates $frm.1.a.dates
-    set select [$files curselection]
-    if {$select == ""} {
-        set select [$dates curselection]
-    }
-    if {$select == ""} {
-        set expgui(FileMenuCnvName) ""
-    } else {
-        set expgui(FileMenuCnvName) [string trim [$files get $select]]
-    }
-    if {$expgui(FileMenuCnvName) == "<Parent>"} {
-        set expgui(FileMenuDir) [file dirname $expgui(FileMenuDir)]
-        ChooseWinCnv $frm
-    } elseif [file isdirectory \
-            [file join [set expgui(FileMenuDir)] $expgui(FileMenuCnvName)]] {
-        if {$expgui(FileMenuCnvName) != "."} {
-            set expgui(FileMenuDir) [file join $expgui(FileMenuDir) $expgui(FileMenuCnvName)]
-            ChooseWinCnv $frm
-        }
-    }
-    return
-}
-
-# select a file or directory -- called on double click
-proc SelectWinCnv {frm} {
-    global expgui
-    set files $frm.1.a.files
-    set dates $frm.1.a.dates
-    set select [$files curselection]
-    if {$select == ""} {
-        set select [$dates curselection]
-    }
-    if {$select == ""} {
-        set file .
-    } else {
-        set file [string trim [$files get $select]]
-    }
-    if {$file == "<Parent>"} {
-        set expgui(FileMenuDir) [file dirname [set expgui(FileMenuDir)] ]
-        ChooseWinCnv $frm
-    } elseif [file isdirectory [file join [set expgui(FileMenuDir)] $file]] {
-        if {$file != "."} {
-            set expgui(FileMenuDir) [file join [set expgui(FileMenuDir)] $file]
-            ChooseWinCnv $frm
-        }
-    } else {
-        set expgui(FileMenuCnvName) [file tail $file]
-        ValidWinCnv $frm
-    }
-}
-
-# fill the files & dates & Directory selection box with current directory,
-# also called when box is created to fill it
-proc ChooseWinCnv {frm} {
-    global expgui
-    set files $frm.1.a.files
-    set dates $frm.1.a.dates
-    set expgui(FileMenuCnvName) {}
-    $files delete 0 end
-    $dates delete 0 end
-    $files insert end {<Parent>}
-    $dates insert end {(Directory)}
-    set filelist [glob -nocomplain \
-            [file join [set expgui(FileMenuDir)] *] ]
-    foreach file [lsort -dictionary $filelist] {
-        if {[file isdirectory $file]} {
-            $files insert end [file tail $file]
-            $dates insert end {(Directory)}
-        }
-    }
-    foreach file [lsort -dictionary $filelist] {
-        if {![file isdirectory $file]} {
-            set modified [clock format [file mtime $file] -format "%T %D"]
-            $files insert end [file tail $file]
-            $dates insert end $modified
-        }
-    }
-    $expgui(FileDirButtonMenu)  delete 0 end
-    set list ""
-    catch {set list [file volume]}
-    set dir ""
-    foreach subdir [file split [set expgui(FileMenuDir)]] {
-        set dir [file join $dir $subdir]
-        lappend list $dir
-    }
-    foreach path $list {
-        $expgui(FileDirButtonMenu) add command -label $path \
-                -command "[list set expgui(FileMenuDir) $path]; \
-                ChooseWinCnv $frm"
-    }
-    return
-}
-
-#------------------------------------------------------------------------------
-# set options for liveplot
-proc liveplotopt {} {
-    global liveplot expmap
-    set frm .file
-    catch {destroy $frm}
-    toplevel $frm
-    pack [frame [set frmA $frm.1] -bd 2 -relief groove] -padx 3 -pady 3 -side left
-    set last [lindex [lsort -integer $expmap(powderlist)] end]
-    if {$last == ""} {set last 1}
-    pack [scale  $frmA.1 -label "Histogram number" -from 1 -to $last \
-            -length  150 -orient horizontal -variable liveplot(hst)] -side top
-    pack [checkbutton $frmA.2 -text {include plot legend}\
-            -variable liveplot(legend)] -side top
-    pack [button $frm.2 -text OK \
-            -command {if ![catch {expr $liveplot(hst)}] "destroy .file"} \
-            ] -side top
-    bind $frm <Return> {if ![catch {expr $liveplot(hst)}] "destroy .file"}
-    
-    # force the window to stay on top
-    putontop $frm 
-    focus $frm.2
-    tkwait window $frm
-    afterputontop
-}
-
-#------------------------------------------------------------------------------
-# get an experiment file name
-#------------------------------------------------------------------------------
-proc getExpFileName {mode} {
-    global expgui
-    set frm .file
-    catch {destroy $frm}
-    toplevel $frm
-    wm title $frm "Experiment file"
-    bind $frm <Key-F1> "MakeWWWHelp expguierr.html open"
-    pack [frame [set frmA $frm.1] -bd 2 -relief groove] -padx 3 -pady 3 -side left
-    pack [frame [set frmC $frm.3] ] -padx 3 -pady 3 -side left \
-            -fill y -expand yes
-    pack [button $frmC.help -text Help -bg yellow \
-            -command "MakeWWWHelp expguierr.html open"] \
-            -side top -anchor e
-    pack [label $frmC.2 -text "Sort .EXP files by" ] -side top
-    pack [radiobutton $frmC.1 -text "File Name" -value 1 \
-            -variable expgui(filesort) -command "ChooseExpFil $frmA"] -side top
-    pack [radiobutton $frmC.0 -text "Mod. Date" -value 0 \
-            -variable expgui(filesort) -command "ChooseExpFil $frmA"] -side top
-    pack [button $frmC.b -text Read \
-            -command "valid_exp_file $frmA $mode"] -side bottom
-    if {$mode == "new"} {
-        $frmC.b config -text Save
-    }
-    pack [button $frmC.q -text Quit \
-            -command "set expgui(FileMenuEXPNAM) {}; destroy $frm"] -side bottom
-    bind $frm <Return> "$frmC.b invoke"
-
-    if {$mode == "new"} {
-        pack [label $frmA.0 -text "Enter an experiment file to create"] \
-                -side top -anchor center
-    } else {
-        pack [label $frmA.0 -text "Select an experiment file to read"] \
-                -side top -anchor center
-    }
-    expfilebox $frmA $mode
-    # force the window to stay on top
-    putontop $frm
-    focus $frmC.b
-    tkwait window $frm
-    afterputontop
-    if {$expgui(FileMenuEXPNAM) == ""} return
-    return [file join $expgui(FileMenuDir) $expgui(FileMenuEXPNAM)]
-}
-
-# validation routine
-proc valid_exp_file {frm mode} {
-    global expgui tcl_platform
-    # windows fixes
-    if {$tcl_platform(platform) == "windows"} {
-        # change backslashes to something sensible
-        regsub -all {\\} $expgui(FileMenuEXPNAM) / expgui(FileMenuEXPNAM)
-        # allow entry of D: for D:/ and D:TEST for d:/TEST
-        if {[string first : $expgui(FileMenuEXPNAM)] != -1 && \
-                [string first :/ $expgui(FileMenuEXPNAM)] == -1} {
-            regsub : $expgui(FileMenuEXPNAM) :/ expgui(FileMenuEXPNAM)
-        }
-    }
-    if {$expgui(FileMenuEXPNAM) == "<Parent>"} {
-        set expgui(FileMenuDir) [file dirname [set expgui(FileMenuDir)] ]
-        ChooseExpFil $frm
-        return
-    } elseif [file isdirectory \
-            [file join $expgui(FileMenuDir) $expgui(FileMenuEXPNAM)]] {
-        if {$expgui(FileMenuEXPNAM) != "."} {
-            set expgui(FileMenuDir) \
-                [file join $expgui(FileMenuDir) $expgui(FileMenuEXPNAM)]
-        }
-        ChooseExpFil $frm
-        return
-    }
-    # append a .EXP if not present
-    if {[file extension $expgui(FileMenuEXPNAM)] == ""} {
-        append expgui(FileMenuEXPNAM) ".EXP"
-    }
-    # flag files that end in something other than .EXP .exp or .Exp...
-    if {[string toupper [file extension $expgui(FileMenuEXPNAM)]] != ".EXP"} {
-        tk_dialog .expFileErrorMsg "File Open Error" \
-            "File [file tail $expgui(FileMenuEXPNAM)] is not a valid name. Experiment files must end in \".EXP\"" \
-            error 0 OK
-        return
-    }
-    # check on the file status
-    set file [file join $expgui(FileMenuDir) $expgui(FileMenuEXPNAM)]
-    if {$mode == "new" && [file exists $file]} {
-        set ans [
-        MyMessageBox -parent . -title "File Open Error" \
-                -message "File [file tail $file] already exists in [file dirname $file]. OK to overwrite?" \
-                -icon question -type {"Select other" "Overwrite"} -default "select other" \
-                -helplink "expguierr.html OverwriteErr"
-        ]
-        if {[string tolower $ans] == "overwrite"} {destroy .file}
-        if $ans {destroy .file}
-        return
-    }
-    # if file does not exist in case provided, set the name to all
-    # upper case letters, since that is the best choice.
-    # if it does exist, read from it as is. For UNIX we will force uppercase later.
-    if {![file exists $file]} {
-        set expgui(FileMenuEXPNAM) [string toupper $expgui(FileMenuEXPNAM)]
-        set file [file join $expgui(FileMenuDir) $expgui(FileMenuEXPNAM)]
-    }
-    if {$mode == "old" && ![file exists $file]} {
-        set ans [
-        MyMessageBox -parent . -title "File Open Error" \
-                -message "File [file tail $file] does not exist in [file dirname $file]. OK to create?" \
-                -icon question -type {"Select other" "Create"} -default "select other" \
-                -helplink "expguierr.html OpenErr"
-        ]
-        if {[string tolower $ans] == "create"} {destroy .file}
-        return
-    }
-    destroy .file
-}
-
-proc updir {} {
-    global expgui
-    set expgui(FileMenuDir) [file dirname [set expgui(FileMenuDir)]]
-}
-
-# create a file box
-proc expfilebox {bx mode} {
-    global expgui
-    pack [frame $bx.top] -side top 
-    pack [label $bx.top.a -text "Directory" ] -side left 
-    set expgui(FileDirButtonMenu) [tk_optionMenu $bx.top.d expgui(FileMenuDir) [pwd] ]
-    pack $bx.top.d -side left
-    set expgui(FileMenuDir) [pwd]
-    # the icon below is from tk8.0/tkfbox.tcl
-    set upfolder [image create bitmap -data {
-#define updir_width 28
-#define updir_height 16
-static char updir_bits[] = {
-   0x00, 0x00, 0x00, 0x00, 0x80, 0x1f, 0x00, 0x00, 0x40, 0x20, 0x00, 0x00,
-   0x20, 0x40, 0x00, 0x00, 0xf0, 0xff, 0xff, 0x01, 0x10, 0x00, 0x00, 0x01,
-   0x10, 0x02, 0x00, 0x01, 0x10, 0x07, 0x00, 0x01, 0x90, 0x0f, 0x00, 0x01,
-   0x10, 0x02, 0x00, 0x01, 0x10, 0x02, 0x00, 0x01, 0x10, 0x02, 0x00, 0x01,
-   0x10, 0xfe, 0x07, 0x01, 0x10, 0x00, 0x00, 0x01, 0x10, 0x00, 0x00, 0x01,
-   0xf0, 0xff, 0xff, 0x01};}]
-
-    pack [button $bx.top.b -image $upfolder \
-            -command "updir; ChooseExpFil $bx" ]
-    pack [frame $bx.a -width 200 -height 75] -side top -expand yes -fill both
-    listbox $bx.a.files -relief raised -bd 2 \
-            -yscrollcommand "sync2boxes $bx.a.files $bx.a.dates $bx.a.scroll" \
-            -height 15 -width 0
-    listbox $bx.a.dates -relief raised -bd 2 \
-            -yscrollcommand "sync2boxes $bx.a.dates $bx.a.files $bx.a.scroll" \
-            -height 15 -width 0 -takefocus 0
-    scrollbar $bx.a.scroll -command "move2boxesY \" $bx.a.files $bx.a.dates \" "
-    ChooseExpFil $bx
-    bind $bx.a.files <ButtonRelease-1> "ReleaseExpFil $bx"
-    bind $bx.a.dates <ButtonRelease-1> "ReleaseExpFil $bx"
-    bind $bx.a.files <Double-1> "SelectExpFil $bx $mode"
-    bind $bx.a.dates <Double-1> "SelectExpFil $bx $mode"
-    pack $bx.a.scroll -side left -fill y 
-    pack $bx.a.files $bx.a.dates -side left -fill both -expand yes
-    pack [entry $bx.c -textvariable expgui(FileMenuEXPNAM)] -side top
-}
-proc sync2boxes {master slave scroll args} {
-    $slave yview moveto [lindex [$master yview] 0]
-    eval $scroll set $args
-}
-proc move2boxesY {boxlist args} {
-    foreach listbox $boxlist { 
-        eval $listbox yview $args
-    }
-}
-
-# set the box or file in the selection window
-proc ReleaseExpFil {frm} {
-    global expgui
-    set files $frm.a.files
-    set dates $frm.a.dates
-    set select [$files curselection]
-    if {$select == ""} {
-        set select [$dates curselection]
-    }
-    if {$select == ""} {
-        set expgui(FileMenuEXPNAM) ""
-    } else {
-        set expgui(FileMenuEXPNAM) [string trim [$files get $select]]
-    }
-    if {$expgui(FileMenuEXPNAM) == "<Parent>"} {
-        set expgui(FileMenuDir) [file dirname $expgui(FileMenuDir)]
-        ChooseExpFil $frm
-    } elseif [file isdirectory \
-            [file join [set expgui(FileMenuDir)] $expgui(FileMenuEXPNAM)]] {
-        if {$expgui(FileMenuEXPNAM) != "."} {
-            set expgui(FileMenuDir) [file join $expgui(FileMenuDir) $expgui(FileMenuEXPNAM)]
-            ChooseExpFil $frm
-        }
-    }
-    return
-}
-
-# select a file or directory -- called on double click
-proc SelectExpFil {frm mode} {
-    global expgui
-    set files $frm.a.files
-    set dates $frm.a.dates
-    set select [$files curselection]
-    if {$select == ""} {
-        set select [$dates curselection]
-    }
-    if {$select == ""} {
-        set file .
-    } else {
-        set file [string trim [$files get $select]]
-    }
-    if {$file == "<Parent>"} {
-        set expgui(FileMenuDir) [file dirname [set expgui(FileMenuDir)] ]
-        ChooseExpFil $frm
-    } elseif [file isdirectory [file join [set expgui(FileMenuDir)] $file]] {
-        if {$file != "."} {
-            set expgui(FileMenuDir) [file join [set expgui(FileMenuDir)] $file]
-            ChooseExpFil $frm
-        }
-    } else {
-        set expgui(FileMenuEXPNAM) [file tail $file]
-        valid_exp_file $frm $mode
-    }
-}
-
-# fill the files & dates & Directory selection box with current directory,
-# also called when box is created to fill it
-proc ChooseExpFil {frm} {
-    global expgui tcl_platform
-    set files $frm.a.files
-    set dates $frm.a.dates
-    set expgui(FileMenuEXPNAM) {}
-    $files delete 0 end
-    $dates delete 0 end
-    $files insert end {<Parent>}
-    $dates insert end {(Directory)}
-    set filelist [glob -nocomplain \
-            [file join [set expgui(FileMenuDir)] *] ]
-    foreach file [lsort -dictionary $filelist] {
-        if {[file isdirectory $file]} {
-            $files insert end [file tail $file]
-            $dates insert end {(Directory)}
-        }
-    }
-    set pairlist {}
-    foreach file [lsort -dictionary $filelist] {
-        if {![file isdirectory $file]  && \
-                [string toupper [file extension $file]] == ".EXP"} {
-            set modified [file mtime $file]
-            lappend pairlist [list $file $modified]
-        }
-    }
-    if {$expgui(filesort) == 0} {
-        foreach pair [lsort -index 1 -integer $pairlist] {
-            set file [lindex $pair 0]
-            set modified [clock format [lindex $pair 1] -format "%T %D"]
-            $files insert end [file tail $file]
-            $dates insert end $modified
-        }
-    } else {
-        foreach pair [lsort -dictionary -index 0 $pairlist] {
-            set file [lindex $pair 0]
-            set modified [clock format [lindex $pair 1] -format "%T %D"]
-            $files insert end [file tail $file]
-            $dates insert end $modified
-        }
-    }
-    $expgui(FileDirButtonMenu)  delete 0 end
-    set list ""
-    if {$tcl_platform(platform) == "windows"} {
-        catch {set list [file volume]}
-    }
-    
-    set dir ""
-    foreach subdir [file split [set expgui(FileMenuDir)]] {
-        set dir [file join $dir $subdir]
-        lappend list $dir
-    }
-    foreach path $list {
-        $expgui(FileDirButtonMenu) add command -label $path \
-                -command "[list set expgui(FileMenuDir) $path]; \
-                ChooseExpFil $frm"
-    }
-    # highlight the current experiment -- if present
-    for {set i 0} {$i < [$files size]} {incr i} {
-        set file [$files get $i]
-        if {$expgui(expfile) == [file join $expgui(FileMenuDir) $file]} {
-            $files selection set $i
-        }
-    }
-    return
-}
-
-proc putontop {w} {
-    # center window $w above its parent and make it stay on top
-    set wp [winfo parent $w]
-    wm transient $w [winfo toplevel $wp]
-    wm withdraw $w
-    update idletasks
-    # center the new window in the middle of the parent
-    set x [expr [winfo x $wp] + [winfo width $wp]/2 - \
-            [winfo reqwidth $w]/2 - [winfo vrootx $wp]]
-    if {$x < 0} {set x 0}
-    set xborder 10
-    if {$x+[winfo reqwidth $w] +$xborder > [winfo screenwidth $w]} {
-        incr x [expr \
-                [winfo screenwidth $w] - ($x+[winfo reqwidth $w] + $xborder)]
-    }
-    set y [expr [winfo y $wp] + [winfo height $wp]/2 - \
-            [winfo reqheight $w]/2 - [winfo vrooty $wp]]
-    if {$y < 0} {set y 0}
-    set yborder 25
-    if {$y+[winfo reqheight $w] +$yborder > [winfo screenheight $w]} {
-        incr y [expr \
-                [winfo screenheight $w] - ($y+[winfo reqheight $w] + $yborder)]
-    }
-    wm geom $w +$x+$y
-    wm deiconify $w
-
-    global makenew
-    set makenew(OldGrab) ""
-    catch {set makenew(OldFocus) [focus]}
-    catch {set makenew(OldGrab) [grab current $w]}
-    catch {grab $w}
-}
-
-proc afterputontop {} {
-    # restore focus
-    global makenew
-    catch {focus $makenew(OldFocus)}
-    catch {
-        if {$makenew(OldGrab) != ""} {
-            grab $makenew(OldGrab)
-        }
-    }
-}
-
-proc ShowBigMessage {win labeltext msg "optionlist OK" "link {}"} {
-    catch {destroy $win}
-    toplevel $win
-
-    pack [label $win.l1 -text $labeltext] -side top
-    pack [frame $win.f1] -side top -expand yes -fill both
-    grid [text  $win.f1.t  \
-            -height 20 -width 55  -wrap none -font Courier \
-            -xscrollcommand "$win.f1.bscr set" \
-            -yscrollcommand "$win.f1.rscr set" \
-            ] -row 1 -column 0 -sticky news
-    grid [scrollbar $win.f1.bscr -orient horizontal \
-            -command "$win.f1.t xview" \
-            ] -row 2 -column 0 -sticky ew
-    grid [scrollbar $win.f1.rscr  -command "$win.f1.t yview" \
-            ] -row 1 -column 1 -sticky ns
-    # give extra space to the text box
-    grid columnconfigure $win.f1 0 -weight 1
-    grid rowconfigure $win.f1 1 -weight 1
-    $win.f1.t insert end $msg
-
-    global makenew
-    set makenew(result) 0
-    bind $win <Return> "destroy $win"
-    bind $win <KeyPress-Prior> "$win.f1.t yview scroll -1 page"
-    bind $win <KeyPress-Next> "$win.f1.t yview scroll 1 page"
-    bind $win <KeyPress-Right> "$win.f1.t xview scroll 1 unit"
-    bind $win <KeyPress-Left> "$win.f1.t xview scroll -1 unit"
-    bind $win <KeyPress-Up> "$win.f1.t yview scroll -1 unit"
-    bind $win <KeyPress-Down> "$win.f1.t yview scroll 1 unit"
-    bind $win <KeyPress-Home> "$win.f1.t yview 0"
-    bind $win <KeyPress-End> "$win.f1.t yview end"
-    set i 0
-    foreach item $optionlist {
-        pack [button $win.q[incr i] \
-                -command "set makenew(result) $i; destroy $win" -text $item] -side left
-    }
-    if {$link != ""} {
-        pack [button $win.help -text Help -bg yellow \
-            -command "MakeWWWHelp $link"] \
-            -side right
-        bind $win <Key-F1> "MakeWWWHelp $link"
-    }
-    putontop $win
-    tkwait window $win
-
-    # fix focus...
-    afterputontop
-    return $makenew(result)
-}
-
-#       Message box code that centers the message box over the parent.
-#          or along the edge, if too close, 
-#          but leave a border along +x & +y for reasons I don't remember
-#       It also allows the button names to be defined using 
-#            -type $list  -- where $list has a list of button names
-#       larger messages are placed in a scrolled text widget
-#       capitalization is now ignored for -default
-#       The command returns the name button in all lower case letters
-#       otherwise see  tk_messageBox for a description
-#
-#       This is a modification of tkMessageBox (msgbox.tcl v1.5)
-#
-proc MyMessageBox {args} {
-    global tkPriv tcl_platform
-
-    set w tkPrivMsgBox
-    upvar #0 $w data
-
-    #
-    # The default value of the title is space (" ") not the empty string
-    # because for some window managers, a 
-    #           wm title .foo ""
-    # causes the window title to be "foo" instead of the empty string.
-    #
-    set specs {
-        {-default "" "" ""}
-        {-icon "" "" "info"}
-        {-message "" "" ""}
-        {-parent "" "" .}
-        {-title "" "" " "}
-        {-type "" "" "ok"}
-        {-helplink "" "" ""}
-    }
-
-    tclParseConfigSpec $w $specs "" $args
-
-    if {[lsearch {info warning error question} $data(-icon)] == -1} {
-        error "bad -icon value \"$data(-icon)\": must be error, info, question, or warning"
-    }
-    if {![string compare $tcl_platform(platform) "macintosh"]} {
-      switch -- $data(-icon) {
-          "error"     {set data(-icon) "stop"}
-          "warning"   {set data(-icon) "caution"}
-          "info"      {set data(-icon) "note"}
-        }
-    }
-
-    if {![winfo exists $data(-parent)]} {
-        error "bad window path name \"$data(-parent)\""
-    }
-
-    switch -- $data(-type) {
-        abortretryignore {
-            set buttons {
-                {abort  -width 6 -text Abort -under 0}
-                {retry  -width 6 -text Retry -under 0}
-                {ignore -width 6 -text Ignore -under 0}
-            }
-        }
-        ok {
-            set buttons {
-                {ok -width 6 -text OK -under 0}
-            }
-          if {![string compare $data(-default) ""]} {
-                set data(-default) "ok"
-            }
-        }
-        okcancel {
-            set buttons {
-                {ok     -width 6 -text OK     -under 0}
-                {cancel -width 6 -text Cancel -under 0}
-            }
-        }
-        retrycancel {
-            set buttons {
-                {retry  -width 6 -text Retry  -under 0}
-                {cancel -width 6 -text Cancel -under 0}
-            }
-        }
-        yesno {
-            set buttons {
-                {yes    -width 6 -text Yes -under 0}
-                {no     -width 6 -text No  -under 0}
-            }
-        }
-        yesnocancel {
-            set buttons {
-                {yes    -width 6 -text Yes -under 0}
-                {no     -width 6 -text No  -under 0}
-                {cancel -width 6 -text Cancel -under 0}
-            }
-        }
-        default {
-#           error "bad -type value \"$data(-type)\": must be abortretryignore, ok, okcancel, retrycancel, yesno, or yesnocancel"
-            foreach item $data(-type) {
-                lappend buttons [list [string tolower $item] -text $item -under 0]
-            }
-        }
-    }
-
-    if {[string compare $data(-default) ""]} {
-        set valid 0
-        foreach btn $buttons {
-            if {![string compare [lindex $btn 0] [string tolower $data(-default)]]} {
-                set valid 1
-                break
-            }
-        }
-        if {!$valid} {
-            error "invalid default button \"$data(-default)\""
-        }
-    }
-
-    # 2. Set the dialog to be a child window of $parent
-    #
-    #
-    if {[string compare $data(-parent) .]} {
-        set w $data(-parent).__tk__messagebox
-    } else {
-        set w .__tk__messagebox
-    }
-
-    # 3. Create the top-level window and divide it into top
-    # and bottom parts.
-
-    catch {destroy $w}
-    toplevel $w -class Dialog
-    wm title $w $data(-title)
-    wm iconname $w Dialog
-    wm protocol $w WM_DELETE_WINDOW { }
-    wm transient $w $data(-parent)
-    if {![string compare $tcl_platform(platform) "macintosh"]} {
-        unsupported1 style $w dBoxProc
-    }
-
-    frame $w.bot
-    pack $w.bot -side bottom -fill both
-    frame $w.top
-    pack $w.top -side top -fill both -expand 1
-    if {$data(-helplink) != ""} {
-#       frame $w.help
-#       pack $w.help -side top -fill both
-        pack [button $w.top.1 -text Help -bg yellow \
-                -command "MakeWWWHelp $data(-helplink)"] \
-                -side right -anchor ne
-        bind $w <Key-F1> "MakeWWWHelp $data(-helplink)"
-    }
-    if {[string compare $tcl_platform(platform) "macintosh"]} {
-        $w.bot configure -relief raised -bd 1
-        $w.top configure -relief raised -bd 1
-    }
-
-    # 4. Fill the top part with bitmap and message (use the option
-    # database for -wraplength and -font so that they can be
-    # overridden by the caller).
-
-    option add *Dialog.msg.wrapLength 3i widgetDefault
-
-    if {[string length $data(-message)] > 300} {
-        if {![string compare $tcl_platform(platform) "macintosh"]} {
-            option add *Dialog.msg.t.font system widgetDefault
-        } else {
-            option add *Dialog.msg.t.font {Times 18} widgetDefault
-        }
-        frame $w.msg
-        grid [text  $w.msg.t  \
-                -height 20 -width 55 -relief flat -wrap word \
-                -yscrollcommand "$w.msg.rscr set" \
-                ] -row 1 -column 0 -sticky news
-        grid [scrollbar $w.msg.rscr  -command "$w.msg.t yview" \
-                ] -row 1 -column 1 -sticky ns
-        # give extra space to the text box
-        grid columnconfigure $w.msg 0 -weight 1
-        grid rowconfigure $w.msg 1 -weight 1
-        $w.msg.t insert end $data(-message)
-    } else {
-        if {![string compare $tcl_platform(platform) "macintosh"]} {
-            option add *Dialog.msg.font system widgetDefault
-        } else {
-            option add *Dialog.msg.font {Times 18} widgetDefault
-        }
-        label $w.msg -justify left -text $data(-message)
-    }
-    pack $w.msg -in $w.top -side right -expand 1 -fill both -padx 3m -pady 3m
-    if {[string compare $data(-icon) ""]} {
-        label $w.bitmap -bitmap $data(-icon)
-        pack $w.bitmap -in $w.top -side left -padx 3m -pady 3m
-    }
-
-    # 5. Create a row of buttons at the bottom of the dialog.
-
-    set i 0
-    foreach but $buttons {
-        set name [lindex $but 0]
-        set opts [lrange $but 1 end]
-      if {![llength $opts]} {
-            # Capitalize the first letter of $name
-          set capName [string toupper \
-                    [string index $name 0]][string range $name 1 end]
-            set opts [list -text $capName]
-        }
-
-      eval button [list $w.$name] $opts [list -command [list set tkPriv(button) $name]]
-
-        if {![string compare $name [string tolower $data(-default)]]} {
-            $w.$name configure -default active
-        }
-      pack $w.$name -in $w.bot -side left -expand 1 -padx 3m -pady 2m
-
-        # create the binding for the key accelerator, based on the underline
-        #
-        set underIdx [$w.$name cget -under]
-        if {$underIdx >= 0} {
-            set key [string index [$w.$name cget -text] $underIdx]
-          bind $w <Alt-[string tolower $key]>  [list $w.$name invoke]
-          bind $w <Alt-[string toupper $key]>  [list $w.$name invoke]
-        }
-        incr i
-    }
-
-    # 6. Create a binding for <Return> on the dialog if there is a
-    # default button.
-
-    if {[string compare $data(-default) ""]} {
-      bind $w <Return> [list tkButtonInvoke $w.[string tolower $data(-default)]]
-    }
-
-    # 7. Withdraw the window, then update all the geometry information
-    # so we know how big it wants to be, then center the window in the
-    # display and de-iconify it.
-
-    wm withdraw $w
-    update idletasks
-    set wp $data(-parent)
-    # center the new window in the middle of the parent
-    set x [expr [winfo x $wp] + [winfo width $wp]/2 - \
-            [winfo reqwidth $w]/2 - [winfo vrootx $wp]]
-    set y [expr [winfo y $wp] + [winfo height $wp]/2 - \
-            [winfo reqheight $w]/2 - [winfo vrooty $wp]]
-    # make sure that we can see the entire window
-    set xborder 10
-    set yborder 25
-    if {$x < 0} {set x 0}
-    if {$x+[winfo reqwidth $w] +$xborder > [winfo screenwidth $w]} {
-        incr x [expr \
-                [winfo screenwidth $w] - ($x+[winfo reqwidth $w] + $xborder)]
-    }
-    if {$y < 0} {set y 0}
-    if {$y+[winfo reqheight $w] +$yborder > [winfo screenheight $w]} {
-        incr y [expr \
-                [winfo screenheight $w] - ($y+[winfo reqheight $w] + $yborder)]
-    }
-    wm geom $w +$x+$y
-    wm deiconify $w
-
-    # 8. Set a grab and claim the focus too.
-
-    catch {set oldFocus [focus]}
-    catch {set oldGrab [grab current $w]}
-    catch {
-        grab $w
-        if {[string compare $data(-default) ""]} {
-            focus $w.[string tolower $data(-default)]
-        } else {
-            focus $w
-        }
-    }
-
-    # 9. Wait for the user to respond, then restore the focus and
-    # return the index of the selected button.  Restore the focus
-    # before deleting the window, since otherwise the window manager
-    # may take the focus away so we can't redirect it.  Finally,
-    # restore any grab that was in effect.
-
-    tkwait variable tkPriv(button)
-    catch {focus $oldFocus}
-    destroy $w
-    catch {grab $oldGrab}
-    return $tkPriv(button)
-}
-
-#------------------------------------------------------------------------------
 # Delete History Records
 proc DeleteHistoryRecords {{msg ""}} {
@@ -1654 +1229 @@
     afterputontop
 }
+
+#------------------------------------------------------------------------------
+# GSAS interface routines
+#------------------------------------------------------------------------------
+# run a GSAS program that does not require an experiment file
+proc runGSASprog {proglist} {
+    global expgui tcl_platform
+    set cmd {}
+    foreach prog $proglist {
+        if {$tcl_platform(platform) == "windows"} {
+            append cmd " \"$expgui(gsasexe)/${prog}.exe \" "
+        } else {
+            if {$cmd != ""} {append cmd "\;"}
+            append cmd "[file join $expgui(gsasexe) $prog]"
+        }
+    }
+    forknewterm $prog $cmd 0 1 1
+}
+
+# run a GSAS program that requires an experiment file for input/output
+proc runGSASwEXP {proglist "concurrent 0"} {
+    global expgui tcl_platform
+    # Save the current exp file
+    savearchiveexp
+    # load the changed .EXP file automatically?
+    if {$expgui(autoexpload)} {
+        # disable the file changed monitor
+        set expgui(expModifiedLast) 0
+    }
+    set cmd {}
+    set expnam [file root [file tail $expgui(expfile)]]
+    foreach prog $proglist {
+        if {$prog == "expedt" && $expgui(archive)} archiveexp
+        if {$tcl_platform(platform) == "windows"} {
+            append cmd " \"$expgui(gsasexe)/${prog}.exe $expnam \" "
+        } else {
+            if {$cmd != ""} {append cmd "\;"}
+            append cmd "[file join $expgui(gsasexe) $prog] $expnam"
+        }
+    }
+    forknewterm "$prog -- $expnam" $cmd $concurrent 1 1
+    # load the changed .EXP file automatically?
+    if {$expgui(autoexpload)} {
+        # load the revised exp file
+        loadexp $expgui(expfile)
+    }
+}
+
+# write text to the .LST file
+proc writelst {text} {
+    global expgui
+    set lstnam [file rootname $expgui(expfile)].LST 
+    set fp [open $lstnam a]
+    puts $fp "\n-----------------------------------------------------------------"
+    puts $fp $text
+    puts $fp "-----------------------------------------------------------------\n"
+    close $fp
+}
+
 
 # optionally run disagl as a windowless process, w/results in a separate window
@@ -1739 +1373 @@
     }
 }
-# tell'em what is happening
-proc pleasewait {{message {}}} {
-    catch {destroy .msg}
-    toplevel .msg
-    wm transient .msg [winfo toplevel .]
-    pack [frame .msg.f -bd 4 -relief groove]
-    pack [message .msg.f.m -text "Please wait $message"]
-    wm withdraw .msg
-    update idletasks
-    # place the message on top of the main window
-    set x [expr [winfo x .] + [winfo width .]/2 - \
-            [winfo reqwidth .msg]/2 - [winfo vrootx .]]
-    if {$x < 0} {set x 0}
-    set y [expr [winfo y .] + [winfo height .]/2 - \
-            [winfo reqheight .msg]/2 - [winfo vrooty .]]
-    if {$y < 0} {set y 0}
-    wm geom .msg +$x+$y
-    wm deiconify .msg
-    global makenew
-    set makenew(OldGrab) ""
-    #catch {set makenew(OldFocus) [focus]}
-    catch {set makenew(OldGrab) [grab current .msg]}
-    catch {grab .msg}
-    catch {focus .msg}
+
+#------------------------------------------------------------------------------
+# file conversion for UNIX
+#------------------------------------------------------------------------------
+# convert a file
+proc convfile {} {
+    global tcl_platform
+    if {$tcl_platform(platform) == "windows"} {
+        convwin
+    } else {
+        convunix
+    }
+}
+
+# file conversions for UNIX (convstod convdtos)
+proc convunix {} {
+    global expgui infile outfile 
+    set frm .file
+    catch {destroy $frm}
+    toplevel $frm
+    wm title $frm "Convert File"
+    bind $frm <Key-F1> "MakeWWWHelp expgui.html ConvertUnix"
+
+    pack [frame [set frm0 $frm.0] -bd 2 -relief groove] \
+            -padx 3 -pady 3 -side top -fill x
+    pack [frame $frm.mid] -side top
+    pack [frame [set frmA $frm.mid.1] -bd 2 -relief groove] \
+            -padx 3 -pady 3 -side left
+    pack [label $frmA.0 -text "Select an input file"] -side top -anchor center
+    pack [frame [set frmB $frm.mid.2] -bd 2 -relief groove] \
+            -padx 3 -pady 3 -side left
+    pack [label $frmB.0 -text "Enter an output file"] -side top -anchor center
+    pack [frame [set frmC $frm.3] ] -padx 3 -pady 3 -side top -fill x -expand y
+
+    pack [label $frm0.1 -text "Convert to:"] -side top -anchor center
+    pack [frame $frm0.2] -side top -anchor center
+    pack [radiobutton $frm0.2.d -text "direct access" -value convstod \
+            -command setoutfile \
+            -variable outfile(type)] -side left -anchor center
+    pack [radiobutton $frm0.2.s -text "sequential" -value convdtos \
+            -command setoutfile \
+            -variable outfile(type)] -side right -anchor center
+    set outfile(type) ""
+
+    pack [button $frmC.b -text Convert -command "valid_conv_unix"] -side left
+    pack [button $frmC.q -text Quit -command "set infile(done) 1"] -side left
+    pack [button $frmC.help -text Help -bg yellow \
+            -command "MakeWWWHelp expgui.html ConvertUnix"] \
+            -side right
+    
+    unixcnvbox $frmA infile 1 
+    unixcnvbox $frmB outfile 0 
+    set infile(done) 0
+    bind $frm <Return> "valid_conv_unix"
+    # force the window to stay on top
+    putontop $frm
+    focus $frmC.q 
     update
-}
-# clear the message
-proc donewait {} {
-    global makenew
-    catch {focus $makenew(OldFocus)}
-    catch {destroy .msg}
-    catch {
-        if {$makenew(OldGrab) != ""} {
-            grab $makenew(OldGrab)
-        }
-    }
-}
-
-
-# profile terms
-array set expgui {
-    prof-T-1 {alp-0 alp-1 bet-0 bet-1 sig-0 sig-1 sig-2 rstr rsta \
-            rsca s1ec s2ec }
-    prof-T-2 {alp-0 alp-1 beta switch sig-0 sig-1 sig-2 gam-0 gam-1 \
-            gam-2 ptec stec difc difa zero }
-    prof-T-3 {alp bet-0 bet-1 sig-0 sig-1 sig-2 gam-0 gam-1 \
-            gam-2 gsf g1ec g2ec rstr rsta rsca L11 L22 L33 L12 L13 L23 }
-    prof-T-4 {alp bet-0 bet-1 sig-1 sig-2 gam-2 g2ec gsf \
-            rstr rsta rsca eta}
-    prof-C-1 {GU GV GW asym F1 F2 }
-    prof-C-2 {GU GV GW LX LY trns asym shft GP stec ptec sfec \
-            L11 L22 L33 L12 L13 L23 }
-    prof-C-3 {GU GV GW GP LX LY S/L H/L trns shft stec ptec sfec \
-            L11 L22 L33 L12 L13 L23 }
-    prof-C-4 {GU GV GW GP LX ptec trns shft sfec S/L H/L eta} 
-    prof-E-1 {A B C ds cds}
-}
-
-# number of profile terms depends on the histogram type
-# the LAUE symmetry and the profile number
-proc GetProfileTerms {phase hist ptype} {
-    global expmap expgui
-    if {$hist == "C" || $hist == "T" || $hist == "E"} {
-        set htype $hist
-    } else {
-        set htype [string range $expmap(htype_$hist) 2 2]
-    }
-    # get the cached copy of the profile term labels, when possible
-    catch {
-        set lbls $expmap(ProfileTerms${phase}_${ptype}_${htype})
+    tkwait variable infile(done)
+    destroy $frm
+    afterputontop
+}
+
+# validate the files and make the conversion -- unix
+proc valid_conv_unix {} {
+    global infile outfile expgui
+    set error {}
+    if {$outfile(type) == "convstod" || $outfile(type) == "convdtos"} {
+        set convtype $outfile(type)
+    } else {
+        append error "You must specify a conversion method: to direct access or to sequential.\n"
+    }
+    if {$infile(name) == ""} {
+        append error "You must specify an input file to convert.\n"
+    }
+    if {$outfile(name) == ""} {
+        append error "You must specify an output file name for the converted file.\n"
+    }
+    if {$error != ""} {
+        tk_dialog .warn Notify $error warning 0 OK
         return
     }
-    set lbls {}
-    catch {set lbls $expgui(prof-$htype-$ptype)}
-    if {$lbls == ""} {return}
-    # add terms based on the Laue symmetry
-    if {($htype == "C" || $htype == "T") && $ptype == 4} {
-        set laueaxis [GetLaue [phaseinfo $phase spacegroup]]
-        eval lappend lbls [Profile4Terms $laueaxis]
-    }
-    set expmap(ProfileTerms${phase}_${ptype}_${htype}) $lbls
-    return $lbls
-}
-
-proc Profile4Terms {laueaxis} {
-    switch -exact $laueaxis {
-        1bar {return \
-                "S400 S040 S004 S220 S202 S022 S310 S103 S031 \
-                S130 S301 S013 S211 S121 S112"}
-        2/ma {return "S400 S040 S004 S220 S202 S022 S013 S031 S211"}
-        2/mb {return "S400 S040 S004 S220 S202 S022 S301 S103 S121"}
-        2/mc {return "S400 S040 S004 S220 S202 S022 S130 S310 S112"}
-        mmm  {return "S400 S040 S004 S220 S202 S022"}
-        4/m  {return "S400 S004 S220 S202"}
-        4/mmm {return "S400 S004 S220 S202"}
-        3barR     {return "S400 S220 S310 S211"}
-        "3bar mR" {return "S400 S220 S310 S211"}
-        3bar    {return "S400 S004 S202 S211"}
-        3barm1 {return "S400 S004 S202"}
-        3bar1m  {return "S400 S004 S202 S211"}
-        6/m    {return "S400 S004 S202"}
-        6/mmm  {return "S400 S004 S202"}
-        "m 3"  {return "S400 S220"}
-        m3m    {return "S400 S220"}
-        default {return ""}
-    }
-}
-
-proc GetLaue {spg} {
-    global tcl_platform expgui
-    # check the space group
-    set fp [open spg.in w]
-    puts $fp "N"
-    puts $fp "N"
-    puts $fp $spg
-    puts $fp "Q"
-    close $fp
-    catch {
+
+    if {$infile(name) == $outfile(name)} {
+        MyMessageBox -parent . -title Notify \
+                -message "Sorry, filenames must differ" \
+                -icon warning -helplink "expguierr.html ConvSameName"
+        tk_dialog .warn Notify "Sorry, filenames must differ" warning 0 OK
+        return
+    }
+    if ![file exists [file join $infile(dir) $infile(name)]] {
+        MyMessageBox -parent . -title Notify \
+                -message "Sorry, file $infile(name) not found in $infile(dir)" \
+                -icon warning -helplink "expguierr.html ConvNotFound"
+        return
+    }
+    if [file exists [file join $outfile(dir) $outfile(name)]] {
+        set ans [MyMessageBox -parent . -title "Overwrite?" \
+                -message "Warning: file $outfile(name) exists in $outfile(dir). OK to overwrite?" \
+                -icon warning -type {Overwrite Cancel} -default Overwrite \
+                -helplink "expguierr.html OverwriteCnv"]
+        if {[string tolower $ans] == "cancel"} return
+    }
+    if [catch {
+        exec [file join $expgui(gsasexe) $convtype] < \
+                [file join $infile(dir) $infile(name)] > \
+                [file join $outfile(dir) $outfile(name)]
+    } errmsg] {
+        tk_dialog .warn Notify "Error in conversion:\n$errmsg" warning 0 OK
+    } else {
+        if [tk_dialog .converted Notify \
+                "File converted. Convert more files?" \
+                ""  0 Yes No] {set infile(done) 1}
+    }
+}
+
+# create a file box for UNIX conversions
+proc unixcnvbox {bx filvar diropt} {
+    global ${filvar} expgui
+    pack [frame $bx.top] -side top 
+    pack [label $bx.top.a -text "Directory" ] -side left 
+    set ${filvar}(FileDirButtonMenu) [tk_optionMenu $bx.top.d ${filvar}(dir) [pwd] ]
+    pack $bx.top.d -side left
+    set ${filvar}(dir) [pwd]
+
+#    pack [label $bx.d -textvariable ${filvar}(dir) -bd 2 -relief raised ] -side top 
+#    set ${filvar}(dir) [pwd]
+
+    pack [frame $bx.a -width 200 -height 75] -side top -expand yes -fill both
+    listbox $bx.a.files -relief raised -bd 2 \
+            -yscrollcommand "$bx.a.scroll set" \
+            -height 15 -width 0 -exportselection 0 
+    scrollbar $bx.a.scroll -command "$bx.a.files yview"
+    unixFilChoose $bx $bx.a.files $filvar $diropt
+    if {$filvar == "infile"} {
+        bind $bx.a.files <ButtonRelease-1> \
+                "unixFilChoose $bx $bx.a.files $filvar $diropt; setoutfile"
+    } else {
+        bind $bx.a.files <ButtonRelease-1> \
+                "unixFilChoose $bx $bx.a.files $filvar $diropt"
+    }
+    pack $bx.a.scroll -side left -fill y 
+    pack $bx.a.files -side left -fill both -expand yes
+    pack [entry $bx.c -textvariable ${filvar}(name)] -side top
+}
+
+# select a file or directory, also called when box is created to fill it
+proc unixFilChoose {frm box filvar {dironly 1}} {
+    global $filvar
+    set select [$box curselection]
+    if {$select == ""} {
+        set file .
+    } else {
+        set file [string trim [$box get $select]]
+    }
+    if [file isdirectory [file join [set ${filvar}(dir)] $file]] {
+        if {$file == ".."} {
+            set ${filvar}(dir) [file dirname [set ${filvar}(dir)] ]
+        } elseif {$file != "."} {
+            set ${filvar}(dir) [file join [set ${filvar}(dir)] $file]
+        }
+        [set ${filvar}(FileDirButtonMenu)] delete 0 end
+        set list ""
+        set dir ""
+        foreach subdir [file split [set ${filvar}(dir)]] {
+            set dir [file join $dir $subdir]
+            lappend list $dir
+        }
+        foreach path $list {
+            [set ${filvar}(FileDirButtonMenu)] add command -label $path \
+                -command "[list set ${filvar}(dir) $path]; \
+                unixFilChoose $frm $box $filvar $dironly"
+        }
+        set ${filvar}(name) {}
+        $box delete 0 end
+        $box insert end {..   }
+        foreach file [lsort -dictionary [glob -nocomplain \
+                [file join [set ${filvar}(dir)] *] ] ] {
+            if {[file isdirectory $file]} {
+                # is this / needed here? Does it cause a problem in MacGSAS?
+                $box insert end [file tail $file]/
+            } elseif {$dironly == 1} {
+                $box insert end [file tail $file]
+            } elseif {$dironly == 2 && [file extension $file] == ".EXP"} {
+                $box insert end [file tail $file]
+            }
+        }
+        return
+    }
+    set ${filvar}(name) [file tail $file]
+}
+
+# set new file name from old -- used for convunix
+proc setoutfile {} {
+    global infile outfile
+    if {$outfile(type) == "convstod"} {
+        set lfile [string toupper $infile(name)]
+    } elseif {$outfile(type) == "convdtos"} {
+        set lfile [string tolower $infile(name)]
+    } else {
+        set lfile ""
+    }
+    if {$infile(name) == $lfile} {
+        set outfile(name) {}
+    } else {
+        set outfile(name) $lfile
+    }
+}
+
+#------------------------------------------------------------------------------
+# file conversions for Windows
+#------------------------------------------------------------------------------
+proc convwin {} {
+    global expgui
+    set frm .file
+    catch {destroy $frm}
+    toplevel $frm
+    wm title $frm "Convert File"
+    bind $frm <Key-F1> "MakeWWWHelp expgui.html ConvertWin"
+    pack [frame [set frmA $frm.1] -bd 2 -relief groove] -padx 3 -pady 3 -side left
+    pack [frame [set frmC $frm.3] ] -padx 3 -pady 3 \
+            -side left -fill y -expand yes
+    pack [button $frmC.help -text Help -bg yellow \
+            -command "MakeWWWHelp expgui.html ConvertWin"] -side top
+    pack [button $frmC.q -text Quit -command "destroy $frm"] -side bottom
+    pack [button $frmC.b -text Convert -command "ValidWinCnv $frm"] \
+            -side bottom
+    pack [label $frmA.0 -text "Select a file to convert"] -side top -anchor center
+    winfilebox $frm
+    bind $frm <Return> "ValidWinCnv $frm"
+
+    # force the window to stay on top
+    putontop $frm
+    focus $frmC.q 
+    tkwait window $frm
+    afterputontop
+}
+
+# validate the files and make the conversion
+proc ValidWinCnv {frm} {
+    global expgui
+    # change backslashes to something sensible
+    regsub -all {\\} $expgui(FileMenuCnvName) / expgui(FileMenuCnvName)
+    # allow entry of D: for D:/ and D:TEST for d:/TEST
+    if {[string first : $expgui(FileMenuCnvName)] != -1 && \
+            [string first :/ $expgui(FileMenuCnvName)] == -1} {
+        regsub : $expgui(FileMenuCnvName) :/ expgui(FileMenuCnvName)
+    }
+    if {$expgui(FileMenuCnvName) == "<Parent>"} {
+        set expgui(FileMenuDir) [file dirname [set expgui(FileMenuDir)] ]
+        ChooseWinCnv $frm
+        return
+    } elseif [file isdirectory \
+            [file join $expgui(FileMenuDir) $expgui(FileMenuCnvName)]] {
+        if {$expgui(FileMenuCnvName) != "."} {
+            set expgui(FileMenuDir) \
+                [file join $expgui(FileMenuDir) $expgui(FileMenuCnvName)]
+        }
+        ChooseWinCnv $frm
+        return
+    }
+ 
+    set file [file join $expgui(FileMenuDir) $expgui(FileMenuCnvName)]
+    if ![file exists $file] {
+        tk_dialog .warn "Convert Error" \
+                "File $file does not exist" question 0 "OK"
+        return
+    }
+
+    set tmpname "[file join [file dirname $file] tempfile.xxx]"
+    set oldname "[file rootname $file].org"
+    if [file exists $oldname] {
+        set ans [MyMessageBox -parent . -title "Overwrite?" \
+                -message "File [file tail $oldname] exists in [file dirname $oldname]. OK to overwrite?" \
+                -icon warning -type {Overwrite Cancel} -default Overwrite \
+                -helplink "expguierr.html OverwriteCnv"]
+        if {[string tolower $ans] == "cancel"} return
+        catch {file delete $oldname}
+    }
+
+    if [catch {
+        set in [open $file r]
+        set out [open $tmpname w]
+        set len [gets $in line]
+        if {$len > 160} {
+            # this is a UNIX file. Hope there are no control characters
+            set i 0
+            set j 79
+            while {$j < $len} {
+                puts $out [string range $line $i $j]
+                incr i 80
+                incr j 80
+            }
+        } else {
+            while {$len >= 0} {
+                append line "                                        "
+                append line "                                        "
+                set line [string range $line 0 79]
+                puts $out $line
+                set len [gets $in line]
+            }
+        }
+        close $in
+        close $out
+        file rename -force $file $oldname
+        file rename -force $tmpname $file
+    } errmsg] {
+        tk_dialog .warn Notify "Error in conversion:\n$errmsg" warning 0 OK
+    } else {
+        if [tk_dialog .converted Notify \
+                "File [file tail $file] converted. (Original saved as [file tail $oldname]).\n\n Convert more files?" \
+                ""  0 Yes No] {destroy $frm}
+    }
+}
+
+# create a file box
+proc winfilebox {frm} {
+    global expgui
+    set bx $frm.1
+    pack [frame $bx.top] -side top 
+    pack [label $bx.top.a -text "Directory" ] -side left 
+    set expgui(FileDirButtonMenu) [tk_optionMenu $bx.top.d expgui(FileMenuDir) [pwd] ]
+    pack $bx.top.d -side left
+    set expgui(FileMenuDir) [pwd]
+    # the icon below is from tk8.0/tkfbox.tcl
+    set upfolder [image create bitmap -data {
+#define updir_width 28
+#define updir_height 16
+static char updir_bits[] = {
+   0x00, 0x00, 0x00, 0x00, 0x80, 0x1f, 0x00, 0x00, 0x40, 0x20, 0x00, 0x00,
+   0x20, 0x40, 0x00, 0x00, 0xf0, 0xff, 0xff, 0x01, 0x10, 0x00, 0x00, 0x01,
+   0x10, 0x02, 0x00, 0x01, 0x10, 0x07, 0x00, 0x01, 0x90, 0x0f, 0x00, 0x01,
+   0x10, 0x02, 0x00, 0x01, 0x10, 0x02, 0x00, 0x01, 0x10, 0x02, 0x00, 0x01,
+   0x10, 0xfe, 0x07, 0x01, 0x10, 0x00, 0x00, 0x01, 0x10, 0x00, 0x00, 0x01,
+   0xf0, 0xff, 0xff, 0x01};}]
+
+    pack [button $bx.top.b -image $upfolder \
+            -command "updir; ChooseWinCnv $frm" ]
+    pack [frame $bx.a -width 200 -height 75] -side top -expand yes -fill both
+    listbox $bx.a.files -relief raised -bd 2 \
+            -yscrollcommand "sync2boxes $bx.a.files $bx.a.dates $bx.a.scroll" \
+            -height 15 -width 0 -exportselection 0 
+    listbox $bx.a.dates -relief raised -bd 2 \
+            -yscrollcommand "sync2boxes $bx.a.dates $bx.a.files $bx.a.scroll" \
+            -height 15 -width 0 -takefocus 0 -exportselection 0 
+    scrollbar $bx.a.scroll -command "move2boxesY \" $bx.a.files $bx.a.dates \" "
+    ChooseWinCnv $frm
+    bind $bx.a.files <ButtonRelease-1> "ReleaseWinCnv $frm"
+    bind $bx.a.dates <ButtonRelease-1> "ReleaseWinCnv $frm"
+    bind $bx.a.files <Double-1> "SelectWinCnv $frm"
+    bind $bx.a.dates <Double-1> "SelectWinCnv $frm"
+    pack $bx.a.scroll -side left -fill y 
+    pack $bx.a.files $bx.a.dates -side left -fill both -expand yes
+    pack [entry $bx.c -textvariable expgui(FileMenuCnvName)] -side top
+}
+
+# set the box or file in the selection window
+proc ReleaseWinCnv {frm} {
+    global expgui
+    set files $frm.1.a.files
+    set dates $frm.1.a.dates
+    set select [$files curselection]
+    if {$select == ""} {
+        set select [$dates curselection]
+    }
+    if {$select == ""} {
+        set expgui(FileMenuCnvName) ""
+    } else {
+        set expgui(FileMenuCnvName) [string trim [$files get $select]]
+    }
+    if {$expgui(FileMenuCnvName) == "<Parent>"} {
+        set expgui(FileMenuDir) [file dirname $expgui(FileMenuDir)]
+        ChooseWinCnv $frm
+    } elseif [file isdirectory \
+            [file join [set expgui(FileMenuDir)] $expgui(FileMenuCnvName)]] {
+        if {$expgui(FileMenuCnvName) != "."} {
+            set expgui(FileMenuDir) [file join $expgui(FileMenuDir) $expgui(FileMenuCnvName)]
+            ChooseWinCnv $frm
+        }
+    }
+    return
+}
+
+# select a file or directory -- called on double click
+proc SelectWinCnv {frm} {
+    global expgui
+    set files $frm.1.a.files
+    set dates $frm.1.a.dates
+    set select [$files curselection]
+    if {$select == ""} {
+        set select [$dates curselection]
+    }
+    if {$select == ""} {
+        set file .
+    } else {
+        set file [string trim [$files get $select]]
+    }
+    if {$file == "<Parent>"} {
+        set expgui(FileMenuDir) [file dirname [set expgui(FileMenuDir)] ]
+        ChooseWinCnv $frm
+    } elseif [file isdirectory [file join [set expgui(FileMenuDir)] $file]] {
+        if {$file != "."} {
+            set expgui(FileMenuDir) [file join [set expgui(FileMenuDir)] $file]
+            ChooseWinCnv $frm
+        }
+    } else {
+        set expgui(FileMenuCnvName) [file tail $file]
+        ValidWinCnv $frm
+    }
+}
+
+# fill the files & dates & Directory selection box with current directory,
+# also called when box is created to fill it
+proc ChooseWinCnv {frm} {
+    global expgui
+    set files $frm.1.a.files
+    set dates $frm.1.a.dates
+    set expgui(FileMenuCnvName) {}
+    $files delete 0 end
+    $dates delete 0 end
+    $files insert end {<Parent>}
+    $dates insert end {(Directory)}
+    set filelist [glob -nocomplain \
+            [file join [set expgui(FileMenuDir)] *] ]
+    foreach file [lsort -dictionary $filelist] {
+        if {[file isdirectory $file]} {
+            $files insert end [file tail $file]
+            $dates insert end {(Directory)}
+        }
+    }
+    foreach file [lsort -dictionary $filelist] {
+        if {![file isdirectory $file]} {
+            set modified [clock format [file mtime $file] -format "%T %D"]
+            $files insert end [file tail $file]
+            $dates insert end $modified
+        }
+    }
+    $expgui(FileDirButtonMenu)  delete 0 end
+    set list ""
+    global tcl_version
+    if {$tcl_version > 8.0} {
+        catch {set list [string tolower [file volume]]}
+    }
+    set dir ""
+    foreach subdir [file split [set expgui(FileMenuDir)]] {
+        set dir [string tolower [file join $dir $subdir]]
+        if {[lsearch $list $dir] == -1} {lappend list $dir}
+    }
+    foreach path $list {
+        $expgui(FileDirButtonMenu) add command -label $path \
+                -command "[list set expgui(FileMenuDir) $path]; \
+                ChooseWinCnv $frm"
+    }
+    return
+}
+
+#------------------------------------------------------------------------------
+# set options for liveplot
+proc liveplotopt {} {
+    global liveplot expmap
+    set frm .file
+    catch {destroy $frm}
+    toplevel $frm
+    pack [frame [set frmA $frm.1] -bd 2 -relief groove] -padx 3 -pady 3 -side left
+    set last [lindex [lsort -integer $expmap(powderlist)] end]
+    if {$last == ""} {set last 1}
+    pack [scale  $frmA.1 -label "Histogram number" -from 1 -to $last \
+            -length  150 -orient horizontal -variable liveplot(hst)] -side top
+    pack [checkbutton $frmA.2 -text {include plot legend}\
+            -variable liveplot(legend)] -side top
+    pack [button $frm.2 -text OK \
+            -command {if ![catch {expr $liveplot(hst)}] "destroy .file"} \
+            ] -side top
+    bind $frm <Return> {if ![catch {expr $liveplot(hst)}] "destroy .file"}
+    
+    # force the window to stay on top
+    putontop $frm 
+    focus $frm.2
+    tkwait window $frm
+    afterputontop
+}
+
+#------------------------------------------------------------------------------
+# get an experiment file name
+#------------------------------------------------------------------------------
+proc getExpFileName {mode} {
+    global expgui
+    set frm .file
+    catch {destroy $frm}
+    toplevel $frm
+    wm title $frm "Experiment file"
+    bind $frm <Key-F1> "MakeWWWHelp expguierr.html open"
+    pack [frame [set frmA $frm.1] -bd 2 -relief groove] -padx 3 -pady 3 -side left
+    pack [frame [set frmC $frm.3] ] -padx 3 -pady 3 -side left \
+            -fill y -expand yes
+    pack [button $frmC.help -text Help -bg yellow \
+            -command "MakeWWWHelp expguierr.html open"] \
+            -side top -anchor e
+    pack [label $frmC.2 -text "Sort .EXP files by" ] -side top
+    pack [radiobutton $frmC.1 -text "File Name" -value 1 \
+            -variable expgui(filesort) -command "ChooseExpFil $frmA"] -side top
+    pack [radiobutton $frmC.0 -text "Mod. Date" -value 0 \
+            -variable expgui(filesort) -command "ChooseExpFil $frmA"] -side top
+    pack [button $frmC.b -text Read \
+            -command "valid_exp_file $frmA $mode"] -side bottom
+    if {$mode == "new"} {
+        $frmC.b config -text Save
+    }
+    pack [button $frmC.q -text Quit \
+            -command "set expgui(FileMenuEXPNAM) {}; destroy $frm"] -side bottom
+    bind $frm <Return> "$frmC.b invoke"
+
+    if {$mode == "new"} {
+        pack [label $frmA.0 -text "Enter an experiment file to create"] \
+                -side top -anchor center
+    } else {
+        pack [label $frmA.0 -text "Select an experiment file to read"] \
+                -side top -anchor center
+    }
+    expfilebox $frmA $mode
+    # force the window to stay on top
+    putontop $frm
+    focus $frmC.b
+    tkwait window $frm
+    afterputontop
+    if {$expgui(FileMenuEXPNAM) == ""} return
+    return [file join $expgui(FileMenuDir) $expgui(FileMenuEXPNAM)]
+}
+
+# validation routine
+proc valid_exp_file {frm mode} {
+    global expgui tcl_platform
+    # windows fixes
+    if {$tcl_platform(platform) == "windows"} {
+        # change backslashes to something sensible
+        regsub -all {\\} $expgui(FileMenuEXPNAM) / expgui(FileMenuEXPNAM)
+        # allow entry of D: for D:/ and D:TEST for d:/TEST
+        if {[string first : $expgui(FileMenuEXPNAM)] != -1 && \
+                [string first :/ $expgui(FileMenuEXPNAM)] == -1} {
+            regsub : $expgui(FileMenuEXPNAM) :/ expgui(FileMenuEXPNAM)
+        }
+    }
+    if {$expgui(FileMenuEXPNAM) == "<Parent>"} {
+        set expgui(FileMenuDir) [file dirname [set expgui(FileMenuDir)] ]
+        ChooseExpFil $frm
+        return
+    } elseif [file isdirectory \
+            [file join $expgui(FileMenuDir) $expgui(FileMenuEXPNAM)]] {
+        if {$expgui(FileMenuEXPNAM) != "."} {
+            set expgui(FileMenuDir) \
+                [file join $expgui(FileMenuDir) $expgui(FileMenuEXPNAM)]
+        }
+        ChooseExpFil $frm
+        return
+    }
+    # append a .EXP if not present
+    if {[file extension $expgui(FileMenuEXPNAM)] == ""} {
+        append expgui(FileMenuEXPNAM) ".EXP"
+    }
+    # flag files that end in something other than .EXP .exp or .Exp...
+    if {[string toupper [file extension $expgui(FileMenuEXPNAM)]] != ".EXP"} {
+        tk_dialog .expFileErrorMsg "File Open Error" \
+            "File [file tail $expgui(FileMenuEXPNAM)] is not a valid name. Experiment files must end in \".EXP\"" \
+            error 0 OK
+        return
+    }
+    # check on the file status
+    set file [file join $expgui(FileMenuDir) $expgui(FileMenuEXPNAM)]
+    if {$mode == "new" && [file exists $file]} {
+        set ans [
+        MyMessageBox -parent . -title "File Open Error" \
+                -message "File [file tail $file] already exists in [file dirname $file]. OK to overwrite?" \
+                -icon question -type {"Select other" "Overwrite"} -default "select other" \
+                -helplink "expguierr.html OverwriteErr"
+        ]
+        if {[string tolower $ans] == "overwrite"} {destroy .file}
+        if $ans {destroy .file}
+        return
+    }
+    # if file does not exist in case provided, set the name to all
+    # upper case letters, since that is the best choice.
+    # if it does exist, read from it as is. For UNIX we will force uppercase later.
+    if {![file exists $file]} {
+        set expgui(FileMenuEXPNAM) [string toupper $expgui(FileMenuEXPNAM)]
+        set file [file join $expgui(FileMenuDir) $expgui(FileMenuEXPNAM)]
+    }
+    if {$mode == "old" && ![file exists $file]} {
+        set ans [
+        MyMessageBox -parent . -title "File Open Error" \
+                -message "File [file tail $file] does not exist in [file dirname $file]. OK to create?" \
+                -icon question -type {"Select other" "Create"} -default "select other" \
+                -helplink "expguierr.html OpenErr"
+        ]
+        if {[string tolower $ans] == "create"} {destroy .file}
+        return
+    }
+    destroy .file
+}
+
+proc updir {} {
+    global expgui
+    set expgui(FileMenuDir) [file dirname [set expgui(FileMenuDir)]]
+}
+
+# create a file box
+proc expfilebox {bx mode} {
+    global expgui
+    pack [frame $bx.top] -side top 
+    pack [label $bx.top.a -text "Directory" ] -side left 
+    set expgui(FileDirButtonMenu) [tk_optionMenu $bx.top.d expgui(FileMenuDir) [pwd] ]
+    pack $bx.top.d -side left
+    set expgui(FileMenuDir) [pwd]
+    # the icon below is from tk8.0/tkfbox.tcl
+    set upfolder [image create bitmap -data {
+#define updir_width 28
+#define updir_height 16
+static char updir_bits[] = {
+   0x00, 0x00, 0x00, 0x00, 0x80, 0x1f, 0x00, 0x00, 0x40, 0x20, 0x00, 0x00,
+   0x20, 0x40, 0x00, 0x00, 0xf0, 0xff, 0xff, 0x01, 0x10, 0x00, 0x00, 0x01,
+   0x10, 0x02, 0x00, 0x01, 0x10, 0x07, 0x00, 0x01, 0x90, 0x0f, 0x00, 0x01,
+   0x10, 0x02, 0x00, 0x01, 0x10, 0x02, 0x00, 0x01, 0x10, 0x02, 0x00, 0x01,
+   0x10, 0xfe, 0x07, 0x01, 0x10, 0x00, 0x00, 0x01, 0x10, 0x00, 0x00, 0x01,
+   0xf0, 0xff, 0xff, 0x01};}]
+
+    pack [button $bx.top.b -image $upfolder \
+            -command "updir; ChooseExpFil $bx" ]
+    pack [frame $bx.a -width 200 -height 75] -side top -expand yes -fill both
+    listbox $bx.a.files -relief raised -bd 2 \
+            -yscrollcommand "sync2boxes $bx.a.files $bx.a.dates $bx.a.scroll" \
+            -height 15 -width 0 -exportselection 0 
+    listbox $bx.a.dates -relief raised -bd 2 \
+            -yscrollcommand "sync2boxes $bx.a.dates $bx.a.files $bx.a.scroll" \
+            -height 15 -width 0 -takefocus 0 -exportselection 0 
+    scrollbar $bx.a.scroll -command "move2boxesY \" $bx.a.files $bx.a.dates \" "
+    ChooseExpFil $bx
+    bind $bx.a.files <ButtonRelease-1> "ReleaseExpFil $bx"
+    bind $bx.a.dates <ButtonRelease-1> "ReleaseExpFil $bx"
+    bind $bx.a.files <Double-1> "SelectExpFil $bx $mode"
+    bind $bx.a.dates <Double-1> "SelectExpFil $bx $mode"
+    pack $bx.a.scroll -side left -fill y 
+    pack $bx.a.files $bx.a.dates -side left -fill both -expand yes
+    pack [entry $bx.c -textvariable expgui(FileMenuEXPNAM)] -side top
+}
+proc sync2boxes {master slave scroll args} {
+    $slave yview moveto [lindex [$master yview] 0]
+    eval $scroll set $args
+}
+proc move2boxesY {boxlist args} {
+    foreach listbox $boxlist { 
+        eval $listbox yview $args
+    }
+}
+
+# set the box or file in the selection window
+proc ReleaseExpFil {frm} {
+    global expgui
+    set files $frm.a.files
+    set dates $frm.a.dates
+    set select [$files curselection]
+    if {$select == ""} {
+        set select [$dates curselection]
+    }
+    if {$select == ""} {
+        set expgui(FileMenuEXPNAM) ""
+    } else {
+        set expgui(FileMenuEXPNAM) [string trim [$files get $select]]
+    }
+    if {$expgui(FileMenuEXPNAM) == "<Parent>"} {
+        set expgui(FileMenuDir) [file dirname $expgui(FileMenuDir)]
+        ChooseExpFil $frm
+    } elseif [file isdirectory \
+            [file join [set expgui(FileMenuDir)] $expgui(FileMenuEXPNAM)]] {
+        if {$expgui(FileMenuEXPNAM) != "."} {
+            set expgui(FileMenuDir) [file join $expgui(FileMenuDir) $expgui(FileMenuEXPNAM)]
+            ChooseExpFil $frm
+        }
+    }
+    return
+}
+
+# select a file or directory -- called on double click
+proc SelectExpFil {frm mode} {
+    global expgui
+    set files $frm.a.files
+    set dates $frm.a.dates
+    set select [$files curselection]
+    if {$select == ""} {
+        set select [$dates curselection]
+    }
+    if {$select == ""} {
+        set file .
+    } else {
+        set file [string trim [$files get $select]]
+    }
+    if {$file == "<Parent>"} {
+        set expgui(FileMenuDir) [file dirname [set expgui(FileMenuDir)] ]
+        ChooseExpFil $frm
+    } elseif [file isdirectory [file join [set expgui(FileMenuDir)] $file]] {
+        if {$file != "."} {
+            set expgui(FileMenuDir) [file join [set expgui(FileMenuDir)] $file]
+            ChooseExpFil $frm
+        }
+    } else {
+        set expgui(FileMenuEXPNAM) [file tail $file]
+        valid_exp_file $frm $mode
+    }
+}
+
+# fill the files & dates & Directory selection box with current directory,
+# also called when box is created to fill it
+proc ChooseExpFil {frm} {
+    global expgui
+    set files $frm.a.files
+    set dates $frm.a.dates
+    set expgui(FileMenuEXPNAM) {}
+    $files delete 0 end
+    $dates delete 0 end
+    $files insert end {<Parent>}
+    $dates insert end {(Directory)}
+    set filelist [glob -nocomplain \
+            [file join [set expgui(FileMenuDir)] *] ]
+    foreach file [lsort -dictionary $filelist] {
+        if {[file isdirectory $file]} {
+            $files insert end [file tail $file]
+            $dates insert end {(Directory)}
+        }
+    }
+    set pairlist {}
+    foreach file [lsort -dictionary $filelist] {
+        if {![file isdirectory $file]  && \
+                [string toupper [file extension $file]] == ".EXP"} {
+            set modified [file mtime $file]
+            lappend pairlist [list $file $modified]
+        }
+    }
+    if {$expgui(filesort) == 0} {
+        foreach pair [lsort -index 1 -integer $pairlist] {
+            set file [lindex $pair 0]
+            set modified [clock format [lindex $pair 1] -format "%T %D"]
+            $files insert end [file tail $file]
+            $dates insert end $modified
+        }
+    } else {
+        foreach pair [lsort -dictionary -index 0 $pairlist] {
+            set file [lindex $pair 0]
+            set modified [clock format [lindex $pair 1] -format "%T %D"]
+            $files insert end [file tail $file]
+            $dates insert end $modified
+        }
+    }
+    $expgui(FileDirButtonMenu)  delete 0 end
+    set list ""
+    global tcl_platform tcl_version
+    if {$tcl_platform(platform) == "windows" && $tcl_version > 8.0} {
+        catch {set list [string tolower [file volume]]}
+    }
+    set dir ""
+    foreach subdir [file split [set expgui(FileMenuDir)]] {
+        set dir [file join $dir $subdir]
         if {$tcl_platform(platform) == "windows"} {
-            exec [file join $expgui(gsasexe) spcgroup.exe] < spg.in >& spg.out
+            set dir [string tolower $dir]
+            if {[lsearch $list $dir] == -1} {lappend list $dir}
         } else {
-            exec [file join $expgui(gsasexe) spcgroup] < spg.in >& spg.out
-        }
-    }
-    set fp [open spg.out r]
-    set laue {}
-    set uniqueaxis {}
-    while {[gets $fp line] >= 0} {
-        regexp {Laue symmetry (.*)} $line junk laue
-        regexp {The unique axis is (.*)} $line junk uniqueaxis
-    }
-    close $fp
-    catch {file delete -force spg.in spg.out}
-    set laue [string trim $laue]
-    # add a R suffix for rhombohedral settings
-    if {[string range [string trim $spg] end end] == "R"} {
-        return "${laue}${uniqueaxis}R"
-    }
-    return "${laue}$uniqueaxis"
-}
-
-
-# set up to change the profile type for a series of histogram/phase entries
-# (histlist & phaselist should be lists of the same length)
-#
-proc ChangeProfileType {histlist phaselist} {
-    global expgui expmap 
-    set w .profile
-    catch {destroy $w}
-    toplevel $w -bg beige
-    wm title $w "Change Profile Function"
-    
-    # all histogram/phases better be the same type, so we can just use the 1st
-    set hist [lindex $histlist 0]
-    set phase [lindex $phaselist 0]
-    set ptype [string trim [hapinfo $hist $phase proftype]]
-
-    # get list of allowed profile terms for the current histogram type
-    set i 1
-    while {[set lbls [GetProfileTerms $phase $hist $i]] != ""} {
-        lappend lbllist $lbls
-        incr i
-    }
-    # labels for the current type
-    set i $ptype
-    set oldlbls [lindex $lbllist [incr i -1]]
-    
-    if {[llength $histlist] == 1} {
-        pack [label $w.a -bg beige \
-                -text "Change profile function for Histogram #$hist Phase #$phase" \
-                ] -side top
-    } else {
-        # make a list of histograms by phase
-        foreach h $histlist p $phaselist {
-            lappend phlist($p) $h
-        }
-        set num 0
-        pack [frame $w.a -bg beige] -side top 
-        pack [label $w.a.$num -bg beige \
-                -text "Change profile function for:" \
-                ] -side top -anchor w
-        foreach i [lsort [array names phlist]] {
-            incr num
-            pack [label $w.a.$num -bg beige -text \
-                    "\tPhase #$i, Histograms [CompressList $phlist($i)]" \
-                    ] -side top -anchor w
-        }
-    }
-    pack [label $w.e1 \
-            -text "Current function is type $ptype." \
-            -bg beige] -side top -anchor w
-    pack [frame $w.e -bg beige] -side top -expand yes -fill both
-    pack [label $w.e.1 \
-            -text "Set function to type" \
-            -bg beige] -side left 
-    set menu [tk_optionMenu $w.e.2 expgui(newpeaktype) junk]
-    pack $w.e.2 -side left -anchor w
-
-    pack [radiobutton $w.e.4 -bg beige -variable expgui(DefaultPeakType) \
-            -command "set expgui(newpeaktype) $ptype; \
-            FillChangeProfileType $w.c $hist $phase $ptype [list $oldlbls] [list $oldlbls]" \
-            -value 1 -text "Current value overrides"] -side right
-    pack [radiobutton $w.e.3 -bg beige -variable expgui(DefaultPeakType) \
-            -command \
-            "set expgui(newpeaktype) $ptype; \
-            FillChangeProfileType $w.c $hist $phase $ptype [list $oldlbls] [list $oldlbls]" \
-            -value 0 -text "Default value overrides"] -side right
-
-    $w.e.2 config -bg beige
-    pack [frame $w.c -bg beige] -side top -expand yes -fill both
-    pack [frame $w.d -bg beige] -side top -expand yes -fill both
-    pack [button $w.d.2 -text Set  \
-            -command "SaveChangeProfileType $w.c $histlist $phaselist; destroy $w"\
-            ] -side left
-    pack [button $w.d.3 -text Quit \
-            -command "destroy $w"] -side left
-    pack [button $w.d.help -text Help -bg yellow \
-            -command "MakeWWWHelp expgui5.html ChangeType"] \
-            -side right
-    bind $w <Key-F1> "MakeWWWHelp expgui5.html ChangeType"
-    bind $w <Return> "destroy $w"
-
-    $menu delete 0 end
-    set i 0
-    foreach lbls $lbllist {
-        incr i
-        $menu add command -label $i -command \
-                "set expgui(newpeaktype) $i; \
-                FillChangeProfileType $w.c $hist $phase $i [list $lbls] [list $oldlbls]"
-    }
-    set expgui(newpeaktype) $ptype
-    FillChangeProfileType $w.c $hist $phase $ptype $oldlbls $oldlbls
-
-    # force the window to stay on top
-    putontop $w
-    focus $w.e.2
-    tkwait window $w
-    afterputontop
-    sethistlist
-}
-
-# save the changes to the profile
-proc SaveChangeProfileType {w histlist phaselist} {
-    global expgui
-    foreach phase $phaselist hist $histlist {
-        hapinfo $hist $phase proftype set $expgui(newpeaktype)
-        hapinfo $hist $phase profterms set $expgui(newProfileTerms)
-        for {set i 1} {$i <=  $expgui(newProfileTerms)} {incr i} {
-            hapinfo $hist $phase pterm$i set [$w.ent${i} get]
-            hapinfo $hist $phase pref$i set $expgui(ProfRef$i)
-        }
-        set i [expr 1+$expgui(newProfileTerms)]
-        hapinfo $hist $phase pcut set [$w.ent$i get]
-        incr expgui(changed) [expr 3 + $expgui(newProfileTerms)]
-    }
-}
-
-# file the contents of the "Change Profile Type" Menu
-proc FillChangeProfileType {w hist phase newtype lbls oldlbls} {
-    global expgui expmap 
-    set ptype [string trim [hapinfo $hist $phase proftype]]
-    catch {unset oldval}
-    # loop through the old terms and set up an array of starting values
-    set num 0
-    foreach term $oldlbls {
-        incr num
-        set oldval($term) [hapinfo $hist $phase pterm$num]
-    }
-    set oldval(Peak\nCutoff) [hapinfo $hist $phase pcut]
-
-    # is the new type the same as the current?
-    if {$ptype == $newtype} {
-        set nterms [hapinfo $hist $phase profterms]
-    } else {
-        set nterms [llength $lbls]
-    }
-    set expgui(newProfileTerms) $nterms
-    set expgui(CurrentProfileTerms) $nterms
-    # which default profile set matches the new type
-    set setnum {}
-    foreach j {" " 1 2 3 4 5 6 7 8 9} {
-        set i [profdefinfo $hist $j proftype]
-        if {$i == ""} continue
-        if {$i == $newtype} {
-            set setnum $j
-            break
-        }
-    }
-
-    eval destroy [winfo children $w]
-
-    set colstr 0
-    set row 2
-    set maxrow [expr $row + $nterms/2]
-    for { set num 1 } { $num <= $nterms + 1} { incr num } {
-        # get the default value (originally from the in .INS file)
-        set val {}
-        if {$setnum != ""} {
-            set val 0.0
-            catch {
-                set val [profdefinfo $hist $setnum pterm$num]
-                # pretty up the number
-                if {$val == 0.0} {
-                    set val 0.0
-                } elseif {abs($val) < 1e-2 || abs($val) > 1e6} {
-                    set val [format %.3e $val]
-                } elseif {abs($val) > 1e-2 && abs($val) < 10} {
-                    set val [format %.5f $val]
-                } elseif {abs($val) < 9999} {
-                    set val [format %.2f $val]
-                } elseif {abs($val) < 1e6} {
-                    set val [format %.0f $val]
-                }
-            }
-        }
-        # heading
-        if {$row == 2} {
-            set col $colstr
-            grid [label $w.h0${num} -text "lbl" -bg beige] \
-                -row $row -column $col
-            grid [label $w.h2${num} -text "ref" -bg beige] \
-                -row $row -column [incr col]
-            grid [label $w.h3${num} -text "next value" -bg beige] \
-                -row $row -column [incr col]
-            grid [label $w.h4${num} -text "default" -bg beige] \
-                -row $row -column [incr col]
-            grid [label $w.h5${num} -text "current" -bg beige] \
-                -row $row -column [incr col]
-        }
-        set col $colstr
-        incr row
-        set term {}
-        catch {set term [lindex $lbls [expr $num-1]]}
-        if {$term == ""} {set term $num}
-        if {$num == $nterms + 1} {
-            set term "Peak\nCutoff"
-            set val {}
-            if {$setnum != ""} {
-                set val 0.0
-                catch {set val [profdefinfo $hist $setnum pcut]}
-            }
-        }
-
-        grid [label $w.l${num} -text "$term" -bg beige] \
-                -row $row -column $col
-        grid [checkbutton $w.chk${num} -variable expgui(ProfRef$num) \
-                -bg beige -activebackground beige] -row $row -column [incr col]
-        grid [entry $w.ent${num} \
-                -width 12] -row $row -column [incr col]
-        if {$val != ""} {
-            grid [button $w.def${num} -text $val -command \
-                    "$w.ent${num} delete 0 end; $w.ent${num} insert end $val" \
-                    ] -row $row -column [incr col] -sticky ew
+            lappend list $dir
+        }
+    }
+    foreach path $list {
+        $expgui(FileDirButtonMenu) add command -label $path \
+                -command "[list set expgui(FileMenuDir) $path]; \
+                ChooseExpFil $frm"
+    }
+    # highlight the current experiment -- if present
+    for {set i 0} {$i < [$files size]} {incr i} {
+        set file [$files get $i]
+        if {$expgui(expfile) == [file join $expgui(FileMenuDir) $file]} {
+            $files selection set $i
+        }
+    }
+    return
+}
+
+
+#------------------------------------------------------------------------------
+# platform-specific definitions
+if {$tcl_platform(platform) == "windows" && $tcl_platform(os) == "Windows 95"} {
+    # this creates a DOS box to run a program in
+    proc forknewterm {title command "background 0" "scrollbar 1" "wait 1"} {
+        global env expgui
+        # Windows environment variables
+        # -95 does not seem to be able to use these
+        set env(GSAS) [file nativename $expgui(gsasdir)]
+        # PGPLOT_FONT is needed by PGPLOT
+        set env(PGPLOT_FONT) [file nativename [file join $expgui(gsasdir) fonts grfont.dat]]
+        # this is the number of lines/page in the .LST (etc.) file
+        set env(LENPAGE) 60
+        set pwd [file nativename [pwd]]
+        
+        # check the path -- can DOS use it?
+        if {[string first // [pwd]] != -1} {
+            MyMessageBox -parent . -title "Invalid Path" \
+                    -message {Error -- Use "Map network drive" to access this directory with a letter (e.g. F:) GSAS can't directly access a network drive} \
+                    -icon error -type ok -default ok \
+                    -helplink "expgui_Win_readme.html NetPath"
+            return
+        }
+        # all winexec commands are background commands
+        #       if $background 
+        
+        # pause is hard coded in the .BAT file
+            
+        # replace the forward slashes with backward
+        regsub -all / $command \\ command
+        # Win95 does not seem to inherit the environment from Tcl env vars
+        # so define it in the .BAT file
+        winexec -d [file nativename [pwd]] \
+                [file join $expgui(scriptdir) gsastcl.bat] \
+                "[file nativename $expgui(gsasdir)] $command"
+    }
+} elseif {$tcl_platform(platform) == "windows"} {
+    # now for - brain-dead Windows-NT
+    # this creates a DOS box to run a program in
+    proc forknewterm {title command "background 0" "scrollbar 1" "wait 1"} {
+        global env expgui
+        # Windows environment variables
+        set env(GSAS) [file nativename $expgui(gsasdir)]
+        # PGPLOT_FONT is needed by PGPLOT
+        set env(PGPLOT_FONT) [file nativename [file join $expgui(gsasdir) fonts grfont.dat]]
+        # this is the number of lines/page in the .LST (etc.) file
+        set env(LENPAGE) 60
+        # all winexec commands are background commands -- ignore background arg
+        # can't get pause to work! -- ignore wait
+        
+        set prevcmd {}
+        foreach cmd $command {
+            if {$prevcmd != ""} {
+                tk_dialog .done_yet Confirm "Press OK to start command $cmd" "" 0 OK
+            }
+            # replace the forward slashes with backward
+            regsub -all / $cmd \\ cmd
+            # cmd.exe must be in the path -- lets hope that at least works!
+            winexec -d [file nativename [pwd]] cmd.exe "/c $cmd"
+            set prevcmd $cmd
+        }
+    }
+} else {
+    # this creates a xterm window to run a program in
+    proc forknewterm {title command "background 0" "scrollbar 1" "wait 1"} {
+        global env expgui
+        # UNIX environment variables
+        set env(GSASEXE) $expgui(gsasexe)
+        set env(ATOMDATA) [file join $expgui(gsasdir) data atmdata.dat]
+        set env(ATMXSECT) [file join $expgui(gsasdir) data atmxsect.dat]
+        # PGPLOT_DIR is needed by PGPLOT
+        set env(PGPLOT_DIR) [file join $expgui(gsasdir) pgl]
+        # this is the number of lines/page in the .LST (etc.) file
+        set env(LENPAGE) 60
+        set termopts {}
+        if $env(GSASBACKSPACE) {
+            append termopts \
+                    {-xrm "xterm*VT100.Translations: #override\\n <KeyPress>BackSpace: string(\\177)"}
+        }
+        if $scrollbar {
+            append termopts " -sb"
         } else {
-            grid [label $w.def${num} -text (none) \
-                    ] -row $row -column [incr col]
-        }
-        set curval {}
-        catch {
-            set curval [expr $oldval($term)]
-            # pretty up the number
-            if {$curval == 0.0} {
-                set curval 0.0
-            } elseif {abs($curval) < 1e-2 || abs($curval) > 1e6} {
-                set curval [format %.3e $curval]
-            } elseif {abs($curval) > 1e-2 && abs($curval) < 10} {
-                set curval [format %.5f $curval]
-            } elseif {abs($curval) < 9999} {
-                set curval [format %.2f $curval]
-            } elseif {abs($curval) < 1e6} {
-                set curval [format %.0f $curval]
-            }
-            grid [button $w.cur${num} -text $curval -command  \
-                    "$w.ent${num} delete 0 end; $w.ent${num} insert end $curval" \
-                    ] -row $row -column [incr col] -sticky ew
-        }
-        # set default values for flag and value
-        set ref 0
-        if {$setnum != ""} {
-            catch {
-                if {[profdefinfo $hist $setnum pref$num] == "Y"} {set ref 1}
-            }
-        }
-        set expgui(ProfRef$num) $ref
-        
-        $w.ent${num} delete 0 end
-        if {!$expgui(DefaultPeakType) && $val != ""} {
-            $w.ent${num} insert end $val
-        } elseif {$curval != ""} {
-            $w.ent${num} insert end $curval
-        } elseif {$val != ""} {
-            $w.ent${num} insert end $val
+            append termopts " +sb"
+        }
+        if $background {
+            set suffix {&}
         } else {
-            $w.ent${num} insert end 0.0
-        }
-        if {$row > $maxrow} {
-            set row 2
-            incr colstr 5
-        }
-    }
-}
-
-# browse a WWW page with URL. The URL may contain a #anchor
-# On UNIX assume netscape is in the path or env(BROWSER) is loaded. 
-# On Windows search the registry for a browser. Mac branch not tested.
-# This is taken from http://mini.net/cgi-bin/wikit/557.html with many thanks
-# to the contributers
-proc urlOpen {url} {
-    global env tcl_platform
-    switch $tcl_platform(platform) {
-        "unix" {
-            if {![info exists env(BROWSER)]} {
-                set progs [auto_execok netscape]
-                if {[llength $progs]} {
-                    set env(BROWSER) [list $progs]
-                }
-            }
-            if {[info exists env(BROWSER)]} {
-                if {[catch {exec $env(BROWSER) -remote openURL($url)}]} {
-                    # perhaps browser doesn't understand -remote flag
-                    if {[catch {exec $env(BROWSER) $url &} emsg]} {
-                        error "Error displaying $url in browser\n$emsg"
-                    }
-                }
-            } else {
-                tk_dialog .warn "No Browser" \
-                        "Could not find a browser. Netscape is not in path. Define environment variable BROWSER to be full path name of browser." \
-                        warn 0 OK
-            }
-        }
-        "windows" {
-            package require registry
-            # Look for the application under
-            # HKEY_CLASSES_ROOT
-            set root HKEY_CLASSES_ROOT
-
-            # Get the application key for HTML files
-            set appKey [registry get $root\\.html ""]
-
-            # Get the command for opening HTML files
-            set appCmd [registry get \
-                    $root\\$appKey\\shell\\open\\command ""]
-
-            # Substitute the HTML filename into the command for %1
-            regsub %1 $appCmd $url appCmd
-            
-            # Double up the backslashes for eval (below)
-            regsub -all {\\} $appCmd  {\\\\} appCmd
-            
-            # Invoke the command
-            eval exec $appCmd &
-        }
-        "macintosh" {
-            if {0 == [info exists env(BROWSER)]} {
-                set env(BROWSER) "Browse the Internet"
-            }
-            if {[catch {
-                AppleScript execute\
-                    "tell application \"$env(BROWSER)\"
-                         open url \"$url\"
-                     end tell
-                "} emsg]
-            } then {
-                error "Error displaying $url in browser\n$emsg"
-            }
-        }
-    }
-}
-
-proc NetHelp {file anchor localloc netloc} {
-    if {[file exists [file join $localloc $file]]} {
-        set url "[file join $localloc $file]"
-    } else {
-        set url "http://$netloc/$file"
-    }
-    catch {
-        pleasewait "Starting web browser..."
-        after 2000 donewait
-    }
-    if {$anchor != ""} {
-        append url # $anchor
-    }
-    urlOpen $url
-}
-
-proc MakeWWWHelp {"topic {}" "anchor {}"} {
-    global expgui
-    if {$topic == ""} {
-        foreach item $expgui(notebookpagelist) {
-            if {[lindex $item 0] == $expgui(pagenow)} {
-                NetHelp [lindex $item 5] [lindex $item 6] $expgui(docdir) ""
-                return
-            }
-        }
-        # this should not happen
-        NetHelp expgui.html "" $expgui(docdir) ""       
-    } elseif {$topic == "menu"} {
-        NetHelp expguic.html "" $expgui(docdir) ""
-    } else {
-        NetHelp $topic $anchor $expgui(docdir) ""
-    }
-}
+            set suffix {}
+        }
+        #
+        if $wait  {
+            append command "\; echo -n Press Enter to continue \; read x"
+        }
+        if !$background {wm iconify .}
+        catch {eval exec xterm $termopts -title [list $title] \
+                -e /bin/sh -c [list $command] $suffix} errmsg
+        if $expgui(debug) {puts "xterm result = $errmsg"}
+        if !$background {wm deiconify .}
+    }
+}