Encontrar la ventana correcta en Igor Pro

Una función que actúa sobre el gráfico del frente tiene que preguntar cuál es.

Function TidyGraphs()
    String graphs = WinList("*", ";", "WIN:1")
    Variable i, n = ItemsInList(graphs)

    for (i = 0; i < n; i += 1)
        String name = StringFromList(i, graphs)
        DoWindow/F $name
        GetWindow $name, wsize
        MoveWindow/W=$name 40 + i * 20, 40 + i * 20, V_right, V_bottom
    endfor

    Printf "%d graphs, front is %s\r", n, WinName(0, 1)
End

Cómo funciona

WinName(0, 1) es el gráfico del frente; el segundo argumento es la máscara de tipo.
WinList da todas las ventanas de una clase, como lista.
DoWindow/F trae una al frente; GetWindow lee su geometría.

Palabras clave y builtins usados aquí

End
Function
String
Variable
endfor
for

El intento, en números

Líneas: 13
Caracteres a escribir: 335
Tokens: 86
Ritmo de tres estrellas: 90 tpm

Al ritmo de tres estrellas de 90 tokens por minuto, este intento toma unos 57 segundos.

Escribe este fragmento

Paso 3 de 3 en Fuera de la pantalla; paso 18 de 19 en Gráficos y presentación.

← Anterior Siguiente →