Changeset 1225 for trunk/expgui


Ignore:
Timestamp:
Nov 8, 2012 1:42:25 PM (8 years ago)
Author:
toby
Message:

update to latest, with Fourier & f'/f

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/expgui

    r1219 r1225  
    7070set expgui(HistSelectList) {}
    7171# location for web pages, if not found locally
    72 set expgui(website) 11bm.xor.aps.anl.gov/expguidoc/
     72set expgui(website) subversion.xray.aps.anl.gov/EXPGUI/trunk/doc/
    7373# default for archive mode = on
    7474set expgui(archive) 1
     
    767767# utility export routines for the export_*.tcl files:
    768768# make a box for export
    769 proc MakeExportBox {win title webref} {
     769proc MakeExportBox {win title webref {bookmark ""}} {
    770770    global expmap expgui
    771771    catch {destroy $win}
     
    783783    }
    784784    # leave a place for format-specific items
    785     pack [frame $win.special] -side top
    786     pack [frame $win.but] -side top -fill x -expand yes
     785    pack [frame $win.special] -side top -fill both -expand yes
     786    pack [frame $win.but] -side top -fill x -expand no
    787787    pack [button $win.but.1 -text Write -command "destroy $win"] -side left
    788788    SetExportPhase [lindex $expmap(phaselist) 0] $win
     
    790790            -command "set expgui(export_phase) 0;destroy $win"] -side left
    791791    pack [button $win.but.help -text Help -bg yellow \
    792             -command "MakeWWWHelp expgui.html ExportMSI"] \
     792            -command "MakeWWWHelp expgui.html $bookmark"] \
    793793            -side right
    794794}
     
    33443344            "source [file join $expgui(scriptdir) atomcons.tcl]; MakeRestraintsPane" \
    33453345            DisplayRestraintsPane \
    3346             0  expgui6.html ""}
     3346            0  expgui6R.html ""}
    33473347    {rbFrame   "Rigid Body" \
    33483348            "source  [file join $expgui(scriptdir) rigid.tcl]; MakeRBPane" \
     
    44524452        CIFselect $expgui(expfile)
    44534453    }
     4454    $expgui(fm).graphs.menu add cascade \
     4455        -menu  $expgui(fm).graphs.menu.fourier \
     4456        -label "Fourier"
     4457    menu $expgui(fm).graphs.menu.fourier
     4458    foreach num {1 2 3 4 5 6 7 8 9} {
     4459        $expgui(fm).graphs.menu.fourier add command -label "Setup phase $num" \
     4460            -command "EditFourier $num"
     4461    }
     4462    $expgui(fm).graphs.menu.fourier add command -label "run fourier prog" \
     4463        -command {runGSASwEXP fourier}
     4464
    44544465    # add the commands in expgui_menulist
    44554466    foreach menu [array names expgui_menulist ] {
Note: See TracChangeset for help on using the changeset viewer.