Suponiendo la siguiente definicion de Folder
En caso de que en determinada condicion quiera añadir tab3 habra de hacerse asi:
Con lo facil que habria sido poner en la definicion del comando que lo que se pasa es un array y NO una lista de literales separados por comas... si ya se que es molesto poner { y } pero luego las posibilidades son INMENSAS.
Y sÍ ya sé que se puede usar la TFolder() directamente...
Y ya metidos en harina de comandos mal diseñados
Supongamos:
¿ Qué pasa si la ventana será centrada a veces si o a veces no ? ¿ O maximizada si o maximizada no ?
Con lo facil que habria sido poner:
Por no hacerlo asi... cuando se juntan un par de condiciones los comandos se hacen INSERVIBLES: hay que usar directamente las clases.
Saludos.
@ 10, 10 FOLDER oFolder ;
PROMPTS "tab1", "tab2"En caso de que en determinada condicion quiera añadir tab3 habra de hacerse asi:
IF lCondicionParaTab3
@ 10, 10 FOLDER oFolder ;
PROMPTS "tab1", "tab2", "tab3"
ELSE
@ 10, 10 FOLDER oFolder ;
PROMPTS "tab1", "tab2"
ENDIFCon lo facil que habria sido poner en la definicion del comando que lo que se pasa es un array y NO una lista de literales separados por comas... si ya se que es molesto poner { y } pero luego las posibilidades son INMENSAS.
aPrompts:= {"tab1", "tab2"}
IF lCondicionParaTab3
Aadd(aPrompts, "tab3")
ENDIF
@ 10, 10 FOLDER oFolder ;
PROMPTS aPromptsY sÍ ya sé que se puede usar la TFolder() directamente...
Y ya metidos en harina de comandos mal diseñados
Supongamos:
ACTIVATE WINDOW CENTER MAXIMIZED¿ Qué pasa si la ventana será centrada a veces si o a veces no ? ¿ O maximizada si o maximizada no ?
Con lo facil que habria sido poner:
ACTIVATE WINDOW ;
CENTER lConCenter ;
MAXIMIZED lConMaximizedPor no hacerlo asi... cuando se juntan un par de condiciones los comandos se hacen INSERVIBLES: hay que usar directamente las clases.
Saludos.
