User interface for naming and storing a wave

A little modal dialog to ask the user where to store a wave. Copy the code into a new procedure window and execute the following:

make foo
#pragma rtGlobals=3
#pragma ModuleName=SaveWave

static function/WAVE SaveWaveUI(wave w, [string basename, int overwrite])
    basename = SelectString(ParamIsDefault(basename), basename, "wave")
    overwrite = ParamIsDefault(overwrite) ? 1 : overwrite // default is to allow user to overwrite a wave
    DoWindow/K SaveWaveDialog
    variable left, top, right, bottom
    left = pixel2cpu(V_left) - 50
    top = pixel2cpu(V_top) - 50
    right = left + 220
    bottom = top + 150
    NewPanel/K=1/W=(left,top,right,bottom)/N=SaveWaveDialog as "Save Wave"
    SetWindow SaveWaveDialog Userdata(source) = GetWavesDataFolder(w, 2)
    SetVariable svName,pos={25,20},size={157,14},title="Wave Name", userdata(base) = basename
    SetVariable svName,value=_STR:UniqueName(basename, 1, 0), fsize=12, Proc=SaveWave#SetVarProc
    PopupMenu popFolder,pos={25,50},size={157,14},title="Data Folder", fsize=12
    PopupMenu popFolder,value=#"GetDataFolder(0)", userdata(folder)=GetDataFolder(1), Proc=SaveWave#PopupProc
    // note: value=GetDataFolder(0) sets the value correctly, but on mousedown the selection
    // is fleetingly shown as "none" without runtime evaluation.
    Button btnCancel,pos={40,100},size={55,20},title="Cancel", Proc=SaveWave#ButtonProc
    Button btnDoIt,pos={130,100},size={50,20},title="Do It", Proc=SaveWave#ButtonProc, userdata=num2str(overwrite)
    PauseForUser SaveWaveDialog
    wave/WAVE w_savewave
    wave/Z saved = w_savewave[0]
    KillWaves w_savewave
    return saved

static function PopupProc(STRUCT WMPopupAction &s) : PopupMenuControl
    if (s.eventCode != 3)
        return 0

    string strFolder = StringFromList(0, SelectFolder(s.popStr))
    if (strlen(strFolder))
        PopupMenu popFolder, win=$, userdata(folder)=strFolder
        PopupMenu popFolder, win=$, value=#"SaveWave#GetSelectedFolder(0)"

    // trigger setvar to check whether output wave exists in selected folder
    STRUCT WMSetVariableAction sv
    sv.ctrlName = "svName"
    sv.eventCode = 8
    ControlInfo/W=$ svName
    sv.sval = s_value

    return 0

static function ButtonProc(STRUCT WMButtonAction &s) : ButtonControl

    if (s.eventcode!=2)
        return 0
    Make/O/WAVE w_savewave = {$""}
    strswitch (s.ctrlName)
        case "btnDoIt":
            wave source = $GetUserData(, "", "source")
            int overwrite = str2num(s.userdata)
            ControlInfo/W=$ svName
            if (!overwrite && exists(GetSelectedFolder(1)+PossiblyQuoteName(s_value)))
                doalert 0, s_value + " exists."
                return 0
            Duplicate/O source $GetSelectedFolder(1)+PossiblyQuoteName(s_value) /wave=w
            Make/O/WAVE w_savewave = {w}
        case "btnCancel" : // Cancel or Do It
            DoWindow /K $
    return 0

static function SetVarProc(STRUCT WMSetVariableAction &s)
    if (s.eventCode < 0) // excludes Igor8 eventcodes -2 and -3
        return 0
    if (cmpstr(s.ctrlName, "svName") == 0)
        if (strlen(s.sval) == 0)
            s.sval = UniqueName(GetUserData(, s.ctrlName, "base"), 1, 0)
            SetVariable $s.ctrlName win=$, value=_STR:s.sval
        if (exists(GetSelectedFolder(1) + s.sval))
            SetVariable $s.ctrlName win=$, valueBackColor=(0xFFFF,0,0)
            SetVariable $s.ctrlName win=$, valueBackColor=0
    return 0

static function/T GetSelectedFolder(int fullpath)
    string strFolder = GetUserData("SaveWaveDialog", "popFolder", "folder")
    return SelectString(fullpath, ParseFilePath(0, strFolder, ":", 1, 0), strFolder)

static function/T SelectFolder(string selection)
    CreateBrowser/M Prompt="Select Data Folder"
    ModifyBrowser/M showWaves=0, showVars=0, showStrs=0
    ModifyBrowser/M ShowInfo=0, showPlot=0
    ModifyBrowser/M select=selection
    ModifyBrowser/M showModalBrowser
    if (V_Flag == 0)
        return "" // User cancelled
    return S_BrowserList

static function pixel2cpu(variable pixel, [string win])
    variable expansion = ParamIsDefault(win) ? 1 : PanelResolution(win)/PanelResolution("")
    return (ScreenResolution > 96 ? pixel * 72 / ScreenResolution : pixel) / expansion



I gave this a quick test and found that if the "Data Folder" popup menu is clicked, the Data Browser opens.  After selecting a folder and clicking "Ok", the browsers closes and immediately opens a second time.  Clicking "Ok" a second time the wave is saved in the selected directory.

This is with a couple of directories existing in the root directory.  IP9.03B01 on Win10.


Ah, I see.

The intention was to allow either mouse or keyboard input. In testing on mac it worked OK, except that I cannot use tab to cycle through the controls in the panel, so keyboard input doesn't work. In Windows, on the other hand, a mouse click produces both 'hovering' and 'control received keyboard focus' events, resulting in the double-modal-browser behaviour. I've fixed it by ignoring the 'control received keyboard focus' event.

I used a popup control because it provides a visual indication that it should be clicked to select. A button could also be used for the same purpose, it would look a bit like the built-in make waves dialog.

The WaveSelectorWidget and HierarchicalListWidget use a button with a downward-pointing trace marker as the menu indicator, like this: \\JR(no selection) \\W623. The \\W623 is the marker, and \\JR is for right-justification so the marker is at the right edge of the button.

To get the full tab navigation on a Mac, in the Keyboard settings, Shortcuts tab, turn on the All Control radio button under the Full keyboard access title near the bottom. At least on OS 10.14 :)

No more Doppel-browser - it opens only once now.

I was looking into creating the modal browser with the "New Data Folder" button intact (Because I would forget to create a new folder before invoking your function.), but that doesn't seem possible.  Or am I missing something?




Igor Pro 9

Learn More

Igor XOP Toolkit

Learn More

Igor NIDAQ Tools MX

Learn More