Loading/unloading of procedure files from User Procedures folder

 The below script helps to manage different large projects with a vast number of procedure files.
Just add the desired procedure file in the panel and then load/unload it with one click or CTRL+6 to siwtch the included state.

#pragma rtGlobals=3     // Use modern global access method and strict wave access.
#pragma version=0.1
#pragma igorVersion=6.3
#pragma IndependentModule=IncludeLoader

// Author: thomas aht braun dot byte minus physics dot de
// Feb 2018

static StrConstant panel = "IncludeLoader"

Menu "MyMacros"
    "IncludeLoader",/Q, CreatePanel()
    "Switch Inluded State/6",/Q, SwitchState()
End

Function CreatePanel()

    DoWindow $panel
    if(V_Flag)
        KillWindow $panel
    endif

    NewPanel/W=(150,77,350,150)/N=$panel/K=1
    Button button0,pos={76,7},size={50,20},proc=$(GetIndependentModuleName() + "#ButtonProcLoadUnload")
    SetVariable setvar0,pos={37,38},size={159,16},title="Includes: "
    SetVariable setvar0,value= _STR:""
    UpdatePanel()
End

static Function/S GetIncludes()

    DoWindow $panel
    if(!V_Flag)
        return ""
    endif

    ControlInfo/W=$panel setvar0
    return S_value
End

static Function isIncludeLoaded()

    string includeFiles = GetIncludes()

    /// @todo handle properly
    string includeFile = StringFromList(0, includeFiles)
    string list = WinList(includeFile + ".ipf", ";", "WIN:128")

    return ( strlen(list) != 0 )
End

Function SwitchState()

    variable i, numItems
    string includeFile, includeFiles

    includeFiles = GetIncludes()

    numItems = ItemsInList(includeFiles)
    for(i = 0; i < numItems; i += 1)
        includeFile = StringFromList(i, includeFiles)

        if(isIncludeLoaded())
            Execute/P/Q "DELETEINCLUDE \"" + includeFile + "\""
        else
            Execute/P/Q "INSERTINCLUDE \"" + includeFile + "\""
        endif
    endfor

    Execute/P/Q/Z "COMPILEPROCEDURES "
    // update the panel after loading/unloading the include
    Execute/P/Q/Z GetIndependentModuleName() + "#UpdatePanel()"
End

Function ButtonProcLoadUnload(ba) : ButtonControl
    STRUCT WMButtonAction &ba

    switch(ba.eventCode)
        case 2: // mouse up
            SwitchState()
            break
        case -1: // control being killed
            break
    endswitch

    return 0
End

Function UpdatePanel()

    if(isIncludeLoaded())
        Button button0, win=$panel, title="Unload"
    else
        Button button0, win=$panel, title="Load"
    endif
End

Here is a slightly different version that uses listboxes to select files to be loaded or unloaded, and populates these with the names of available procedure files. Since this should be run as an independent module, the code must sit in its own procedure window. I've attached a procedure file.

-- edited to remove attachment. more recent version of procedure loader is here.

July 23, 2018 at 08:45 am - Permalink

Forum

Support

Gallery

Igor Pro 9

Learn More

Igor XOP Toolkit

Learn More

Igor NIDAQ Tools MX

Learn More