Changeset 1025 for trunk/addcmds.tcl


Ignore:
Timestamp:
Oct 13, 2010 2:27:15 PM (10 years ago)
Author:
toby
Message:

see https://subversion.xor.aps.anl.gov/trac/EXPGUI/wiki/News20101013

Location:
trunk
Files:
2 edited

Legend:

Unmodified
Added
Removed
  • trunk

  • trunk/addcmds.tcl

    r992 r1025  
    392392
    393393proc MakeAddHistBox {} {
    394     global expmap newhist
     394    global expmap newhist expgui
    395395
    396396    # --> should check here if room for another histogram, but only texture
     
    518518    # fix grab...
    519519    afterputontop
     520    # if no histogram is selected, select the last
     521    if {$expgui(curhist) == "" && $expmap(powderlist) != ""} {
     522        $expgui(histFrame).hs.lbox select set end
     523        set expgui(curhist) [$expgui(histFrame).hs.lbox curselection]
     524        DisplayHistogram
     525    }
    520526}
    521527
Note: See TracChangeset for help on using the changeset viewer.