Changeset 958


Ignore:
Timestamp:
Jun 4, 2020 1:38:20 PM (2 years ago)
Author:
ilavsky
Message:

Add right click options to MultiSample? selector

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/User Procedures/Irena/IR2_PanelCntrlProcs.ipf

    r957 r958  
    34813481        string DoubleClickFunctionName
    34823482        string ControlMouseDownFunctionName
     3483        string items
     3484        string TopPanel=WinName(0, 64)
     3485        SVAR ControlProcsLocations=root:Packages:IrenaControlProcs:ControlProcsLocations
     3486        string CntrlLocation=StringByKey(WinNameStr, ControlProcsLocations,":",";")
     3487        //SVAR DataSelSortString = $(CntrlLocation+":DataSelSortString")
     3488        SVAR DataMatchString = $("root:Packages:"+CntrlLocation+":DataMatchString")
     3489        NVAR InvertGrepSearch = $("root:Packages:"+CntrlLocation+":InvertGrepSearch")
     3490        variable oldSets
    34833491
    34843492        switch( lba.eventCode )
     
    34863494                        break
    34873495                case 1: // mouse down
    3488                         SVAR ControlMouseDownFunction = root:Packages:IrenaControlProcs:ControlMouseDownFunction
    3489                         ControlMouseDownFunctionName=StringByKey(WinNameStr, ControlMouseDownFunction,":",";" )
    3490                         if(numpnts(listWave)<(row+1))
    3491                                 return 0
    3492                         endif           
    3493                         FoldernameStr=listWave[row]
    3494                         if(strlen(ControlMouseDownFunctionName)>0)
    3495                                 Execute(ControlMouseDownFunctionName+"(\""+FoldernameStr+"\")")
     3496
     3497                        if (lba.eventMod & 0x10)        // rightclick
     3498                                items = "Refresh Content;Match \"ave\";Match \"avg\";Match \"sub\";Hide \"sub|avg|ave\";Remove Match;" 
     3499                                PopupContextualMenu items
     3500                                // V_flag is index of user selected item
     3501                                switch (V_flag)
     3502                                        case 1: // "Refresh Content"
     3503                                                ControlInfo/W=$(TopPanel) ListOfAvailableData
     3504                                                oldSets=V_startRow
     3505                                                IR3C_MultiUpdListOfAvailFiles(CntrlLocation)
     3506                                                ListBox DataFolderSelection,win=$(TopPanel),row=V_startRow
     3507                                                break;
     3508                                        case 2: //Match ave
     3509                                                DataMatchString="ave"
     3510                                                InvertGrepSearch = 0
     3511                                                ControlInfo/W=$(TopPanel) ListOfAvailableData
     3512                                                 oldSets=V_startRow
     3513                                                IR3C_MultiUpdListOfAvailFiles(CntrlLocation)
     3514                                                ListBox DataFolderSelection,win=$(TopPanel),row=V_startRow
     3515                                                break;
     3516                                        case 3: //Match avg
     3517                                                DataMatchString="avg"
     3518                                                InvertGrepSearch = 0
     3519                                                ControlInfo/W=$(TopPanel) ListOfAvailableData
     3520                                                 oldSets=V_startRow
     3521                                                IR3C_MultiUpdListOfAvailFiles(CntrlLocation)
     3522                                                ListBox DataFolderSelection,win=$(TopPanel),row=V_startRow
     3523                                                break;
     3524                                        case 4: //Match sub
     3525                                                DataMatchString="sub"
     3526                                                InvertGrepSearch = 0
     3527                                                ControlInfo/W=$(TopPanel) ListOfAvailableData
     3528                                                 oldSets=V_startRow
     3529                                                IR3C_MultiUpdListOfAvailFiles(CntrlLocation)
     3530                                                ListBox DataFolderSelection,win=$(TopPanel),row=V_startRow
     3531                                                break;
     3532                                        case 5: //Match sub
     3533                                                DataMatchString="sub|avg|ave"
     3534                                                InvertGrepSearch = 1
     3535                                                ControlInfo/W=$(TopPanel) ListOfAvailableData
     3536                                                 oldSets=V_startRow
     3537                                                IR3C_MultiUpdListOfAvailFiles(CntrlLocation)
     3538                                                ListBox DataFolderSelection,win=$(TopPanel),row=V_startRow
     3539                                                break;
     3540                                        case 6: //remove Match
     3541                                                DataMatchString=""
     3542                                                InvertGrepSearch = 0
     3543                                                ControlInfo/W=$(TopPanel) ListOfAvailableData
     3544                                                 oldSets=V_startRow
     3545                                                IR3C_MultiUpdListOfAvailFiles(CntrlLocation)
     3546                                                ListBox DataFolderSelection,win=$(TopPanel),row=V_startRow
     3547                                                break;
     3548
     3549                                        default :       // "Sort"
     3550                                                //DataSelSortString = StringFromList(V_flag-1, items)
     3551                                                //PopupMenu SortOptionString,win=$(TopPanel), mode=1,popvalue=DataSelSortString
     3552                                                //IR3C_SortListOfFilesInWvs(TopPanel)   
     3553                                                break;
     3554                                        endswitch
     3555                               
     3556                        else
     3557                                SVAR ControlMouseDownFunction = root:Packages:IrenaControlProcs:ControlMouseDownFunction
     3558                                ControlMouseDownFunctionName=StringByKey(WinNameStr, ControlMouseDownFunction,":",";" )
     3559                                if(numpnts(listWave)<(row+1))
     3560                                        return 0
     3561                                endif           
     3562                                FoldernameStr=listWave[row]
     3563                                if(strlen(ControlMouseDownFunctionName)>0)
     3564                                        Execute(ControlMouseDownFunctionName+"(\""+FoldernameStr+"\")")
     3565                                endif
    34963566                        endif
    34973567                        break
Note: See TracChangeset for help on using the changeset viewer.