Changeset 959


Ignore:
Timestamp:
Jun 8, 2020 12:27:55 PM (2 years ago)
Author:
ilavsky
Message:

Added IN2G_AddResizeInformationToPanel(panelName) to General procedures, this is now the only function needed to call if user simple wants to add scaling to panel.

Location:
trunk/User Procedures
Files:
6 edited

Legend:

Unmodified
Added
Removed
  • trunk/User Procedures/CanSAS/IRNI_NexusSupport.ipf

    r942 r959  
    120120                SetWindow $(panelName), note=S_value+";"+"NikaProcVersion:"+num2str(CurentProcVersion)+";"
    121121                if(AddResizeHookFunction==1)
    122                         IN2G_PanelAppendSizeRecordNote(panelName)
    123                         SetWindow $panelName,hook(ResizePanelControls)=IN2G_PanelResizePanelSize
    124                         IN2G_ResetPanelSize(panelName,1)
    125                         //Execute/P/Q("IN2G_ResetPanelSize(\""+PanelName+"\", 0)")
    126                         STRUCT WMWinHookStruct s
    127                         s.eventcode=6
    128                         s.winName=panelName
    129                         IN2G_PanelResizePanelSize(s)
     122                        IN2G_AddResizeInformationToPanel(panelName)
     123//                      IN2G_PanelAppendSizeRecordNote(panelName)
     124//                      SetWindow $panelName,hook(ResizePanelControls)=IN2G_PanelResizePanelSize
     125//                      IN2G_ResetPanelSize(panelName,1)
     126//                      //Execute/P/Q("IN2G_ResetPanelSize(\""+PanelName+"\", 0)")
     127//                      STRUCT WMWinHookStruct s
     128//                      s.eventcode=6
     129//                      s.winName=panelName
     130//                      IN2G_PanelResizePanelSize(s)
    130131                endif
    131132        endif
  • trunk/User Procedures/Indra 2/IN2_GeneralProcedures.ipf

    r957 r959  
    531531//this is right click Igor 9+ Data Browser functions, so they do not need to be buttons.
    532532#if(IgorVersion()>8.99)
    533 
    534 
    535 Menu "DataBrowserObjectsPopup", dynamic
    536 
    537         "--"
    538         IN2G_DisplayYvsXMenuString(),/Q,IN2G_PlotBrowserSelectionXY()
    539         IN2G_ShowTextWaveInfoMenuString(), /Q, IN2G_ExtractInfoFromFldrname()
    540         "--"
    541 
    542 End
    543 //************************************************************************************************
    544 Function/S IN2G_ShowTextWaveInfoMenuString()
    545         WAVE/Z w1
    546         String menuText = ""
    547         Variable textWaveSelected = GetSelectedTextWave(w1)
    548         if (textWaveSelected)
    549                 sprintf menuText, "%s to Values", NameOfWave(w1)
    550         endif
    551         return menuText
    552 End
    553 //************************************************************************************************
    554 // Returns the truth that the first selected object is a text wave.
    555 static Function GetSelectedTextWave(WAVE/Z &w1)
    556         if (strlen(GetBrowserSelection(-1)) == 0)       // If true, DB is not open
    557                 return 0
    558         endif
    559        
    560         WAVE/Z w1 = $(GetBrowserSelection(0))   // may be null
    561         if (WaveExists(w1) && (WaveType(w1, 1) == 2))
    562                 return 1
    563         endif
    564         return 0
    565 End
    566 //************************************************************************************************
    567 Function/S IN2G_DisplayYvsXMenuString()
    568         WAVE/Z w1, w2
    569         Variable twoNumericWavesSelected = GetWave1AndWave2(w1, w2)
    570         String menuText = ""
    571         if (twoNumericWavesSelected)
    572                 sprintf menuText, "Display %s vs %s", NameOfWave(w1), NameOfWave(w2)
    573         endif
    574         return menuText
    575 End
    576 //************************************************************************************************
    577 // Returns the truth that the first two selected objects are two numeric waves.
    578 static Function GetWave1AndWave2(WAVE/Z &w1, WAVE/Z &w2)
    579         Variable twoNumericWavesSelected = 0
    580         if (strlen(GetBrowserSelection(-1)) == 0)       // If true, DB is not open
    581                 return 0
    582         endif
    583        
    584         // Reverse w1 and w2 if a modifier key is pressed.
    585         Variable keyState = GetKeyState(0)
    586         WAVE/Z w1 = $(GetBrowserSelection((keyState == 0) ? 0 : 1))     // may be null
    587         WAVE/Z w2 = $(GetBrowserSelection((keyState == 0) ? 1 : 0))     // may be null
    588         if (WaveExists(w1) && WaveExists(w2) && (WaveType(w1, 1) == 1) && (WaveType(w2, 1) == 1))
    589                 twoNumericWavesSelected = 1
    590         endif
    591        
    592         return twoNumericWavesSelected
    593 End
    594 
     533                       
     534                        Menu "DataBrowserObjectsPopup", dynamic
     535                       
     536                                "--"
     537                                // Only one of these menu items will be visible,
     538                                // depending on whether or not a modifier key is pressed
     539                                // when the menu is first displayed.
     540                                IN2G_Display1vs2MenuString(0),/Q,IN2G_PlotBrowserSelectionXY(0)
     541                                IN2G_Display1vs2MenuString(1),/Q,IN2G_PlotBrowserSelectionXY(1)
     542                                IN2G_ShowTextWaveInfoMenuString(), /Q, IN2G_ExtractInfoFromFldrname()
     543                                "--"
     544                       
     545                        End
     546                        //************************************************************************************************
     547                        Function/S IN2G_ShowTextWaveInfoMenuString()
     548                                WAVE/Z w1
     549                                String menuText = ""
     550                                Variable textWaveSelected = IN2G_GetSelectedTextWave(w1)
     551                                if (textWaveSelected)
     552                                        sprintf menuText, "%s to Values", NameOfWave(w1)
     553                                endif
     554                                return menuText
     555                        End
     556                        //************************************************************************************************
     557                        // Returns the truth that the first selected object is a text wave.
     558                        Function IN2G_GetSelectedTextWave(WAVE/Z &w1)
     559                                if (strlen(GetBrowserSelection(-1)) == 0)       // If true, DB is not open
     560                                        return 0
     561                                endif
     562                               
     563                                WAVE/Z w1 = $(GetBrowserSelection(0))   // may be null
     564                                if (WaveExists(w1) && (WaveType(w1, 1) == 2))
     565                                        return 1
     566                                endif
     567                                return 0
     568                        End
     569                        //************************************************************************************************
     570                        // If the Data Browser object list has
     571                        // two numeric waves selected, sets
     572                        // w1 to be the top selected wave and w2 to be
     573                        // the bottom selected wave. If reverse1and2
     574                        // is true, then the order is reversed.
     575                        // Returns 1 if the first two selected objects
     576                        // are numeric waves and 0 otherwise.
     577                        Function IN2G_GetWave1AndWave2(WAVE/Z &w1, WAVE/Z &w2, Variable reverse1and2)
     578                                Variable twoNumericWavesSelected = 0
     579                                if (strlen(GetBrowserSelection(-1)) == 0)
     580                                        return 0        // Data Browser is not open
     581                                endif
     582                                // Reverse w1 and w2 if a modifier key is pressed.
     583                                Variable keyState = GetKeyState(0)
     584                                WAVE/Z w1 = $(GetBrowserSelection(reverse1and2 ? 1 : 0))        // may be null
     585                                WAVE/Z w2 = $(GetBrowserSelection(reverse1and2 ? 0 : 1))        // may be null
     586                                if (WaveExists(w1) && WaveExists(w2) && (WaveType(w1, 1) == 1) && (WaveType(w2, 1) == 1))
     587                                        twoNumericWavesSelected = 1
     588                                endif
     589                                return twoNumericWavesSelected
     590                        End
     591                        //************************************************************************************************
     592                        // If reverse1and2 is false, do Display 1 vs 2
     593                        // If reverse1and2 is true, do Display 2 vs 1
     594                        Function/S IN2G_Display1vs2MenuString(Variable reverse1and2)
     595                                WAVE/Z w1, w2
     596                                if (reverse1and2 != (GetKeyState(0) != 0))
     597                                        return ""
     598                                endif
     599                               
     600                                Variable twoNumericWavesSelected = IN2G_GetWave1AndWave2(w1, w2, reverse1and2)
     601                                String menuText = ""
     602                                if (twoNumericWavesSelected)
     603                                        sprintf menuText, "Display %s vs %s", NameOfWave(w1), NameOfWave(w2)
     604                                endif
     605                                return menuText
     606                        End
     607                        //************************************************************************************************
    595608#endif
    596609
     
    605618                string topWindow=WinName(0,1)
    606619#if(IgorVersion()>8.99)
    607                 SaveGraphCopy /I/T=1 /W=$(topWindow)                                            //this is pxp
     620                SaveGraphCopy /I/T=1 /W=$(topWindow)                            //this is h5xp
    608621#else
    609                 SaveGraphCopy /I /W=$(topWindow)                                                //this is pxp
     622                SaveGraphCopy /I /W=$(topWindow)                                        //this is pxp
    610623#endif
    611624end
    612625//************************************************************************************************
    613626//************************************************************************************************
    614 Function IN2G_PlotBrowserSelectionXY()
    615 
    616         if (strlen(GetBrowserSelection(-1)) == 0)       // If true, DB is not open
    617                 return 0
    618         endif
    619         // Reverse w1 and w2 if a modifier key is pressed.
    620         Variable keyState = GetKeyState(0)
    621         WAVE/Z Wave1 = $(GetBrowserSelection((keyState == 0) ? 0 : 1))  // may be null
    622         WAVE/Z Wave2 = $(GetBrowserSelection((keyState == 0) ? 1 : 0))  // may be null
    623         if (WaveExists(Wave1) && WaveExists(Wave2) && (WaveType(Wave1, 1) == 1) && (WaveType(Wave2, 1) == 1))
    624                 Display/K=1 Wave1 vs Wave2 as NameofWave(Wave1)+" vs "+NameofWave(Wave2)
    625                 Label left (NameofWave(Wave1))
    626                 Label bottom (NameofWave(Wave2))
    627         else
    628                 return 0
    629         endif
    630         return 1
    631 end
    632 
     627
     628
     629Function 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
     637End
     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//
    633659//************************************************************************************************
    634660//************************************************************************************************
     
    22522278//***********************************************************
    22532279//***********************************************************
    2254 ////***********************************************************
     2280Function IN2G_AddResizeInformationToPanel(panelName)
     2281                        string panelName
     2282                        IN2G_PanelAppendSizeRecordNote(panelName)
     2283                        SetWindow $panelName,hook(ResizePanelControls)=IN2G_PanelResizePanelSize
     2284                        IN2G_ResetPanelSize(panelName,1)
     2285                        STRUCT WMWinHookStruct s
     2286                        s.eventcode=6
     2287                        s.winName=panelName
     2288                        IN2G_PanelResizePanelSize(s)
     2289end
    22552290//***********************************************************
    2256 
    22572291Function IN2G_PanelResizePanelSize(s)
    22582292        STRUCT WMWinHookStruct &s
     
    25602594       
    25612595end
    2562 //***********************************************************//*****************************************************************************************************************
     2596//***********************************************************
     2597//*****************************************************************************************************************
    25632598//*****************************************************************************************************************
    25642599Function IN2G_PanelAppendSizeRecordNote(panelName)
  • trunk/User Procedures/Indra 2/IN2_USAXS.ipf

    r952 r959  
    245245                GetWindow $(panelName), note
    246246                SetWindow $(panelName), note=S_value+";"+"IndraProcVersion:"+num2str(CurentProcVersion)+";"
    247                 IN2G_PanelAppendSizeRecordNote(panelName)
    248                 SetWindow $panelName,hook(ResizePanelControls)=IN2G_PanelResizePanelSize
    249                 IN2G_ResetPanelSize(panelName,1)               
    250                 STRUCT WMWinHookStruct s
    251                 s.eventcode=6
    252                 s.winName=panelName
    253                 IN2G_PanelResizePanelSize(s)
     247                IN2G_AddResizeInformationToPanel(panelName)
     248//              IN2G_PanelAppendSizeRecordNote(panelName)
     249//              SetWindow $panelName,hook(ResizePanelControls)=IN2G_PanelResizePanelSize
     250//              IN2G_ResetPanelSize(panelName,1)               
     251//              STRUCT WMWinHookStruct s
     252//              s.eventcode=6
     253//              s.winName=panelName
     254//              IN2G_PanelResizePanelSize(s)
    254255        endif
    255256end
  • trunk/User Procedures/Irena/IR1_Main.ipf

    r955 r959  
    393393                SetWindow $(panelName), note=S_value+";"+"IrenaProcVersion:"+num2str(CurentProcVersion)+";"
    394394                if(AddResizeHookFunction==1)
    395                         IN2G_PanelAppendSizeRecordNote(panelName)
    396                         SetWindow $panelName,hook(ResizePanelControls)=IN2G_PanelResizePanelSize
    397                         IN2G_ResetPanelSize(panelName,1)
    398                         STRUCT WMWinHookStruct s
    399                         s.eventcode=6
    400                         s.winName=panelName
    401                         IN2G_PanelResizePanelSize(s)
     395                        IN2G_AddResizeInformationToPanel(panelName)
     396//                      IN2G_PanelAppendSizeRecordNote(panelName)
     397//                      SetWindow $panelName,hook(ResizePanelControls)=IN2G_PanelResizePanelSize
     398//                      IN2G_ResetPanelSize(panelName,1)
     399//                      STRUCT WMWinHookStruct s
     400//                      s.eventcode=6
     401//                      s.winName=panelName
     402//                      IN2G_PanelResizePanelSize(s)
    402403                endif
    403404        endif
  • trunk/User Procedures/Irena/IR1_Sizes.ipf

    r942 r959  
    49264926static function IR1R_addSizeControls()
    49274927        string panelName="IR1R_SizeDistImportFitPanel"
    4928         IN2G_PanelAppendSizeRecordNote(panelName)
    4929         SetWindow $panelName,hook(ResizePanelControls)=IN2G_PanelResizePanelSize
    4930         IN2G_ResetPanelSize(panelName,1)
    4931         STRUCT WMWinHookStruct s
    4932         s.eventcode=6
    4933         s.winName=panelName
    4934         IN2G_PanelResizePanelSize(s)
     4928        IN2G_AddResizeInformationToPanel(panelName)
     4929//      IN2G_PanelAppendSizeRecordNote(panelName)
     4930//      SetWindow $panelName,hook(ResizePanelControls)=IN2G_PanelResizePanelSize
     4931//      IN2G_ResetPanelSize(panelName,1)
     4932//      STRUCT WMWinHookStruct s
     4933//      s.eventcode=6
     4934//      s.winName=panelName
     4935//      IN2G_PanelResizePanelSize(s)
    49354936end
    49364937//*****************************************************************************************************************
  • trunk/User Procedures/Nika/NI1_MainPanel.ipf

    r942 r959  
    156156                GetWindow  $(panelName) note
    157157                SetWindow $(panelName), note=S_Value+"NikaProcVersion:"+num2str(CurentProcVersion)+";"
    158                 IN2G_PanelAppendSizeRecordNote(panelName)
    159                 SetWindow $panelName,hook(ResizePanelControls)=IN2G_PanelResizePanelSize
    160                 IN2G_ResetPanelSize(panelName,1)
    161                 STRUCT WMWinHookStruct s
    162                 s.eventcode=6
    163                 s.winName=panelName
    164                 IN2G_PanelResizePanelSize(s)
     158                IN2G_AddResizeInformationToPanel(panelName)
     159//              IN2G_PanelAppendSizeRecordNote(panelName)
     160//              SetWindow $panelName,hook(ResizePanelControls)=IN2G_PanelResizePanelSize
     161//              IN2G_ResetPanelSize(panelName,1)
     162//              STRUCT WMWinHookStruct s
     163//              s.eventcode=6
     164//              s.winName=panelName
     165//              IN2G_PanelResizePanelSize(s)
    165166                //print "Done resizing"
    166167        endif
Note: See TracChangeset for help on using the changeset viewer.