Changeset 759


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

# on 2003/12/05 12:56:23, toby did:
only display peak options for phases that are present
implement keyboard shortcuts (1,2,...) for showing reflection tickmarks
fix peak options menu bug

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/excledt.tcl

    • Property rcs:date changed from 2003/08/11 19:21:23 to 2003/12/05 12:56:23
    • Property rcs:lines changed from +53 -53 to +17 -11
    • Property rcs:rev changed from 1.10 to 1.11
    r722 r759  
    13301330            -menu $graph(exclmenu).file.menu.tick
    13311331    menu $graph(exclmenu).file.menu.tick
    1332     foreach num {1 2 3 4 5 6 7 8 9} {
    1333         $graph(exclmenu).file.menu.tick add checkbutton -label "Phase $num" \
    1334                 -variable peakinfo(flag$num)
    1335     }
     1332
    13361333    $graph(exclmenu).file.menu add cascade -label Histogram \
    13371334            -menu $graph(exclmenu).file.menu.hist -state disabled
     
    13601357            -value 1 -variable expgui(autotick) -command plotExclData
    13611358    $graph(exclmenu).options.menu.tick add separator
    1362     foreach num {1 2 3 4 5 6 7 8 9} {
    1363         $graph(exclmenu).options.menu.tick add command -label "Phase $num" \
    1364                 -command "minioptionsbox $num"
    1365     }
     1359
    13661360    $graph(exclmenu).options.menu add cascade -label "Symbol Type" \
    13671361            -menu $graph(exclmenu).options.menu.sym
     
    14001394    $graph(exclmenu).options.menu add command -label "Set PS output" \
    14011395            -command setpostscriptout
     1396    # phase options
     1397    foreach num $expmap(phaselist) {
     1398        $graph(exclmenu).file.menu.tick add checkbutton -label "Phase $num" \
     1399                -variable peakinfo(flag$num)
     1400        bind [winfo toplevel $graph(plot)] <Key-$num> \
     1401                "set peakinfo(flag$num) \[expr !\$peakinfo(flag$num)\]"
     1402        $graph(exclmenu).options.menu.tick add command -label "Phase $num" \
     1403                -command "minioptionsbox $num"
     1404    }
    14021405
    14031406    set graph(bbox) [set bb $graph(exclbox).b]
     
    15131516    bind $graph(exclbox) <Configure> scheduleFillExclRegionBox
    15141517    bind all <Control-KeyPress-c> "CheckChanges $startchanges;destroy $graph(exclbox)"
    1515     putontop $graph(exclbox)
     1518    #putontop $graph(exclbox)
    15161519    wm deiconify $graph(exclbox)
     1520    wm iconify .
     1521    update
    15171522    tkwait window $graph(exclbox)
    1518     afterputontop
     1523    #afterputontop
     1524    wm deiconify .
    15191525    bind all <Control-c> catchQuit
    15201526    # reset the number of cycles if they have changed
Note: See TracChangeset for help on using the changeset viewer.