Changeset 449


Ignore:
Timestamp:
Dec 4, 2009 5:06:21 PM (11 years ago)
Author:
toby
Message:

# on 2001/09/25 23:30:11, toby did:
Add citations, as suggested by Lachlan
Add Set Histogram flag button

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/expgui

    • Property rcs:date changed from 2001/09/04 22:56:15 to 2001/09/25 23:30:11
    • Property rcs:lines changed from +8 -3 to +36 -17
    • Property rcs:rev changed from 1.46 to 1.47
    r428 r449  
    5245242000, Not subject to copyright\n\n\
    525525Revision [lindex $expgui(Revision) 1] (readexp.tcl [lindex $expmap(Revision) 1])\n\n\
    526 Generalized Structure Analysis System (GSAS)\n\
     526Cite: B. H. Toby, EXPGUI, a graphical\n\
     527user interface for GSAS, J. Appl. Cryst.\n\
     52834, 210-21 (2001).
     529\n\n\
     530Generalized Structure Analysis System\n(GSAS)\n\
    527531A. C. Larson and\n R. B. Von Dreele,\n LANSCE, Los Alamos\n\n\
    528532" \
     533        info 0 OK
     534}
     535proc Cite { } {
     536    global expgui expmap
     537    tk_dialog .about {Citations...} \
     538"If you use EXPGUI, please cite\n\n\
     539B.H. Toby, EXPGUI, a graphical\n\
     540user interface for GSAS, J. Appl. Cryst.\n\
     54134, 210-21 (2001).\n\n\
     542as well as\n\n\
     543A.C. Larson and R.B. Von Dreele,\n\
     544\"General Structure Analysis System (GSAS)\",\n\
     545Los Alamos National Laboratory Report\n\
     546LAUR 86-748 (2000)." \
    529547        info 0 OK
    530548}
     
    12551273    lappend expgui(HistSelectList) $frm
    12561274    grid [scrollbar $frm.x -orient horizontal \
    1257             -command "move2boxes \" $frm.title $frm.lbox \" "
     1275            -command "move2boxesX \" $frm.title $frm.lbox \" "
    12581276    ] -row 3 -column 0 -sticky ew
    12591277    grid [scrollbar $frm.y \
     
    13731391        }
    13741392        foreach lbox $expgui(HistSelectList) {
    1375             $lbox.lbox insert end [format "%2d  %s  %4d %8s  %-67s" \
     1393            $lbox.lbox insert end [format "%2d  %s %4d %8s  %-67s" \
    13761394                    $h \
    1377                     [string range $expmap(htype_$h) 1 2] \
     1395                    [string range $expmap(htype_$h) 1 3] \
    13781396                    [histinfo $h bank] \
    13791397                    $det \
     
    29032921    $expgui(atomlistbox) configure -selectmode extended
    29042922    grid [scrollbar $fbig.bscr -orient horizontal \
    2905             -command "move2boxes \" $fbig.title $fbig.lbox \" " \
     2923            -command "move2boxesX \" $fbig.title $fbig.lbox \" " \
    29062924            ] -row 2 -column 0 -sticky ew
    29072925    grid [scrollbar $fbig.rscr  -command "$fbig.lbox yview" \
     
    30113029}
    30123030
    3013 proc move2boxes {boxlist args} {
    3014     foreach lbox $boxlist {
    3015         eval $lbox xview $args
    3016     }
    3017 }
    30183031#-----------------------------------------------------------------------------
    30193032proc MakeHistPane {} {
     
    30643077    grid [frame $expgui(histFrame).bb] -column 1 -row 6
    30653078    if [file executable $expgui(exptool)] {
    3066         button $expgui(histFrame).bb.newh -text "Add New Histogram" -command MakeAddHistBox
    3067         grid $expgui(histFrame).bb.newh -column 1 -row 1
     3079        button $expgui(histFrame).bb.newh -text "Add New\nHistogram" \
     3080                -command MakeAddHistBox
     3081        grid $expgui(histFrame).bb.newh -column 0 -row 1
    30683082    }
    30693083    if [file exists [file join $expgui(scriptdir) excledt]] {
    3070         button $expgui(histFrame).bb.excl -text "Data Limits/Exclude" -command excledit
    3071         grid $expgui(histFrame).bb.excl -column 0 -row 1
    3072     }
     3084        button $expgui(histFrame).bb.excl \
     3085                -text "Set Data Limits &\nExcluded Regions" -command excledit
     3086        grid $expgui(histFrame).bb.excl -column 1 -row 1
     3087    }
     3088    button $expgui(histFrame).bb.use -text "Set Histogram\nUse Flags" \
     3089            -command SetHistUseFlags
     3090    grid $expgui(histFrame).bb.use -column 2 -row 1
    30733091
    30743092    # BACKGROUND information.
     
    34313449bind . <Key-F1> MakeWWWHelp
    34323450$expgui(fm).help.menu add command -label "About..." -command About
     3451$expgui(fm).help.menu add command -label "Cite..." -command Cite
    34333452
    34343453#---- options menu button
Note: See TracChangeset for help on using the changeset viewer.