Changeset 752


Ignore:
Timestamp:
Oct 5, 2010 5:05:13 PM (12 years ago)
Author:
srkline
Message:

explicitly named the window for the control actions (win=SASCALC) to prevent the controls from being randomly drawn on other panels. This seems to happen frequently to me with the magic mouse. Inadvertent scrolls move controls on bacground windows, drawing them on the top window.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • sans/Dev/trunk/NCNR_User_Procedures/Reduction/SANS/SASCALC.ipf

    r749 r752  
    482482                dlStr = "0.109;0.125;0.236;"            //updated calibration 2009 
    483483                //detector limits 
    484                 SetVariable setvar0,limits={133,1317,1} 
     484                SetVariable setvar0,win=SASCALC,limits={133,1317,1} 
    485485                NVAR detDist=root:Packages:NIST:SAS:gDetDist 
    486486                if(detDist < 133 ) 
     
    489489                        detDist = 1317 
    490490                endif 
    491                 Slider SC_Slider_1,limits={133,1317,1},userTicks={root:Packages:NIST:SAS:tickSDDNG3,root:Packages:NIST:SAS:lblSDDNG3 } 
    492                 Slider SC_Slider_1,variable=root:Packages:NIST:SAS:gDetDist             //forces update 
     491                Slider SC_Slider_1,win=SASCALC,limits={133,1317,1},userTicks={root:Packages:NIST:SAS:tickSDDNG3,root:Packages:NIST:SAS:lblSDDNG3 } 
     492                Slider SC_Slider_1,win=SASCALC,variable=root:Packages:NIST:SAS:gDetDist         //forces update 
    493493        else                    //ng7 
    494494                switch(ng)       
     
    504504                 
    505505                dlStr = "0.09;0.115;0.22;" 
    506                 Slider SC_Slider_1,limits={100,1531,1},userTicks={root:Packages:NIST:SAS:tickSDDNG7,root:Packages:NIST:SAS:lblSDDNG7 } 
    507                 SetVariable setvar0,limits={100,1531,1} 
    508                 Slider SC_Slider_1,variable=root:Packages:NIST:SAS:gDetDist             //forces update 
     506                Slider SC_Slider_1,win=SASCALC,limits={100,1531,1},userTicks={root:Packages:NIST:SAS:tickSDDNG7,root:Packages:NIST:SAS:lblSDDNG7 } 
     507                SetVariable setvar0,win=SASCALC,limits={100,1531,1} 
     508                Slider SC_Slider_1,win=SASCALC,variable=root:Packages:NIST:SAS:gDetDist         //forces update 
    509509        endif 
    510510        ControlUpdate popup0 
    511         PopupMenu popup0,mode=mode              //source Ap 
     511        PopupMenu popup0,win=SASCALC,mode=mode          //source Ap 
    512512        ControlInfo/W=SASCALC popup0 
    513513        SourceAperturePopMenuProc("",0,S_Value)                 //send popNum==0 so recalculation won't be done 
     
    585585 
    586586        if(cmpstr(ctrlName,"checkNG3")==0) 
    587                 checkBox checkNG3, value=1 
    588                 checkBox checkNG7, value=0 
     587                checkBox checkNG3,win=SASCALC, value=1 
     588                checkBox checkNG7,win=SASCALC, value=0 
    589589                initNG3() 
    590590        else 
    591                 checkBox checkNG3, value=0 
    592                 checkBox checkNG7, value=1  
     591                checkBox checkNG3,win=SASCALC, value=0 
     592                checkBox checkNG7,win=SASCALC, value=1  
    593593                initNG7() 
    594594        endif 
     
    606606        NVAR table=root:Packages:NIST:SAS:gTable 
    607607        if(cmpstr(ctrlName,"checkHuber")==0) 
    608                 checkBox checkHuber, value=1 
    609                 checkBox checkChamber, value=0 
     608                checkBox checkHuber,win=SASCALC, value=1 
     609                checkBox checkChamber,win=SASCALC, value=0 
    610610                table=1         //in Huber position 
    611611        else 
    612                 checkBox checkHuber, value=0 
    613                 checkBox checkChamber, value=1  
     612                checkBox checkHuber,win=SASCALC, value=0 
     613                checkBox checkChamber,win=SASCALC, value=1  
    614614                table = 2               //in Sample chamber 
    615615        endif 
     
    650650        if(checked == 0) 
    651651                lens = 0 
    652                 CheckBox checkLens,value=0 
     652                CheckBox checkLens,win=SASCALC,value=0 
    653653                rw[28]=0                //flag for lenses out 
    654654                ReCalculateInten(1) 
     
    669669                        GuideSliderProc("",0,1)         //this updates the controls to the new # of guides 
    670670                         
    671                         PopupMenu popup0,mode=1,popvalue="1.43 cm"              //first item in source aperture menu 
     671                        PopupMenu popup0,win=SASCALC,mode=1,popvalue="1.43 cm"          //first item in source aperture menu 
    672672                         
    673                         PopupMenu popup0_2,mode=2               //deltaLambda 
    674                         ControlInfo popup0_2 
     673                        PopupMenu popup0_2,win=SASCALC,mode=2           //deltaLambda 
     674                        ControlInfo/W=SASCALC popup0_2 
    675675                        DeltaLambdaPopMenuProc("",0,S_value)                    //zero as 2nd param skips recalculation 
    676676                else 
     
    683683                        ng=0 
    684684                        GuideSliderProc("",0,1) 
    685                         PopupMenu popup0,mode=1,popvalue="1.43 cm"              //first item 
     685                        PopupMenu popup0,win=SASCALC,mode=1,popvalue="1.43 cm"          //first item 
    686686                         
    687                         PopupMenu popup0_2,mode=2               //deltaLambda 
    688                         ControlInfo popup0_2 
     687                        PopupMenu popup0_2,win=SASCALC,mode=2           //deltaLambda 
     688                        ControlInfo/W=SASCALC popup0_2 
    689689                        DeltaLambdaPopMenuProc("",0,S_value)                    //zero as 2nd param skips recalculation 
    690690                endif 
     
    702702                if(a1 != 1.43  || Ng !=0) 
    703703                        lens = 0 
    704                         CheckBox checkLens,value=0 
     704                        CheckBox checkLens,win=SASCALC,value=0 
    705705                        rw[28]=0                //flag for lenses out 
    706706                        return(0) 
     
    710710                if(instrument == 3 && dist != 1317) 
    711711                        lens = 0 
    712                         CheckBox checkLens,value=0 
     712                        CheckBox checkLens,win=SASCALC,value=0 
    713713                        rw[28]=0                //flag for lenses out 
    714714                        return(0) 
     
    717717                if(instrument == 7 && dist != 1531) 
    718718                        lens = 0 
    719                         CheckBox checkLens,value=0 
     719                        CheckBox checkLens,win=SASCALC,value=0 
    720720                        rw[28]=0                //flag for lenses out 
    721721                        return(0) 
     
    725725                if(instrument == 3 && !(lam == 8.4 || lam == 17.2) ) 
    726726                        lens = 0 
    727                         CheckBox checkLens,value=0 
     727                        CheckBox checkLens,win=SASCALC,value=0 
    728728                        rw[28]=0                //flag for lenses out 
    729729                        return(0) 
     
    732732                if(instrument == 7 && lam != 8.09 ) 
    733733                        lens = 0 
    734                         CheckBox checkLens,value=0 
     734                        CheckBox checkLens,win=SASCALC,value=0 
    735735                        rw[28]=0                //flag for lenses out 
    736736                        return(0) 
     
    17291729        if(cmpstr(S_Value,"other") == 0)                // "other" selected 
    17301730                //enable the setvar, diameter in mm! 
    1731                 SetVariable setvar0_3 disable=0 
     1731                SetVariable setvar0_3,win=SASCALC, disable=0 
    17321732                // read its value (a global) 
    17331733                NVAR a2other = root:Packages:NIST:SAS:gSamApOther 
    17341734                a2=a2other/10                           //a2 in cm 
    17351735        else 
    1736                 SetVariable setvar0_3 disable=1 
     1736                SetVariable setvar0_3,win=SASCALC, disable=1 
    17371737                //1st item is 1/16", popup steps by 1/16" 
    17381738                a2 = 2.54/16.0 * (V_Value)                      //convert to cm          
Note: See TracChangeset for help on using the changeset viewer.