Changeset 960


Ignore:
Timestamp:
Jun 8, 2020 1:08:36 PM (2 years ago)
Author:
ilavsky
Message:

Fix Igor 8 vs Igor 9 right click Browser menu options compile fail.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/User Procedures/Indra 2/IN2_GeneralProcedures.ipf

    r959 r960  
    523523//here is add to DataBrowser buttons, it will be in after compile hooks.
    524524//this is for Igor 8 and 7, in Igro 9 this is in Data browser right click menu...
     525
     526
    525527Function IN2G_AddButtonsToBrowser()
    526528#if(IgorVersion()<9)
     
    529531#endif
    530532end
     533
    531534//this is right click Igor 9+ Data Browser functions, so they do not need to be buttons.
    532 #if(IgorVersion()>8.99)
    533                        
    534                         Menu "DataBrowserObjectsPopup", dynamic
    535                        
     535
     536#if(IgorVersion()>8.99)         
     537                        Menu "DataBrowserObjectsPopup", dynamic         
    536538                                "--"
    537539                                // Only one of these menu items will be visible,
     
    541543                                IN2G_Display1vs2MenuString(1),/Q,IN2G_PlotBrowserSelectionXY(1)
    542544                                IN2G_ShowTextWaveInfoMenuString(), /Q, IN2G_ExtractInfoFromFldrname()
    543                                 "--"
    544                        
     545                                "--"           
    545546                        End
    546547                        //************************************************************************************************
     
    605606                                return menuText
    606607                        End
    607                         //************************************************************************************************
     608                        //************************************************************************************************             
     609                        Function IN2G_PlotBrowserSelectionXY(Variable reverse1and2)
     610                                WAVE/Z w1, w2
     611                                Variable twoNumericWavesSelected = IN2G_GetWave1AndWave2(w1, w2, reverse1and2)
     612                                if (twoNumericWavesSelected)
     613                                        Display/K=1 w1 vs w2 as NameofWave(w1)+" vs "+NameofWave(w2)
     614                                        Label left (NameofWave(w1))
     615                                        Label bottom (NameofWave(w2))
     616                                endif
     617                        End
     618                //************************************************************************************************
     619                       
     620
     621#else
     622                //************************************************************************************************
     623                Function IN2G_PlotBrowserSelectionXY()
     624                        if (strlen(GetBrowserSelection(-1)) == 0)       // If true, DB is not open
     625                                return 0
     626                        endif
     627                        // Reverse w1 and w2 if a modifier key is pressed.
     628                        Variable keyState = GetKeyState(0)
     629                        WAVE/Z Wave1 = $(GetBrowserSelection((keyState == 0) ? 0 : 1))  // may be null
     630                        WAVE/Z Wave2 = $(GetBrowserSelection((keyState == 0) ? 1 : 0))  // may be null
     631                        if (WaveExists(Wave1) && WaveExists(Wave2) && (WaveType(Wave1, 1) == 1) && (WaveType(Wave2, 1) == 1))
     632                                Display/K=1 Wave1 vs Wave2 as NameofWave(Wave1)+" vs "+NameofWave(Wave2)
     633                                Label left (NameofWave(Wave1))
     634                                Label bottom (NameofWave(Wave2))
     635                        else
     636                                return 0
     637                        endif
     638                        return 1
     639                end
     640                //************************************************************************************************
     641
    608642#endif
    609643
     
    625659//************************************************************************************************
    626660//************************************************************************************************
    627 
    628 
    629 Function IN2G_PlotBrowserSelectionXY(Variable reverse1and2)
    630         WAVE/Z w1, w2
    631         Variable twoNumericWavesSelected = IN2G_GetWave1AndWave2(w1, w2, reverse1and2)
    632         if (twoNumericWavesSelected)
    633                 Display/K=1 w1 vs w2 as NameofWave(w1)+" vs "+NameofWave(w2)
    634                 Label left (NameofWave(w1))
    635                 Label bottom (NameofWave(w2))
    636         endif
    637 End
    638 
    639 
    640 //Function IN2G_PlotBrowserSelectionXY(Variable reverse1and2)
    641 //
    642 //      if (strlen(GetBrowserSelection(-1)) == 0)       // If true, DB is not open
    643 //              return 0
    644 //      endif
    645 //      // Reverse w1 and w2 if a modifier key is pressed.
    646 //      Variable keyState = GetKeyState(0)
    647 //      WAVE/Z Wave1 = $(GetBrowserSelection((keyState == 0) ? 0 : 1))  // may be null
    648 //      WAVE/Z Wave2 = $(GetBrowserSelection((keyState == 0) ? 1 : 0))  // may be null
    649 //      if (WaveExists(Wave1) && WaveExists(Wave2) && (WaveType(Wave1, 1) == 1) && (WaveType(Wave2, 1) == 1))
    650 //              Display/K=1 Wave1 vs Wave2 as NameofWave(Wave1)+" vs "+NameofWave(Wave2)
    651 //              Label left (NameofWave(Wave1))
    652 //              Label bottom (NameofWave(Wave2))
    653 //      else
    654 //              return 0
    655 //      endif
    656 //      return 1
    657 //end
    658 //
    659661//************************************************************************************************
    660662//************************************************************************************************
Note: See TracChangeset for help on using the changeset viewer.