Hello guys!
I wanted to ask if there's a way to run a program and that program ends up not existing and the program shows a message saying that BUT it doesn't break like the following code does:
I don't want to search the program before running it since some of my company's client have slow computers and that takes a lot of time.
JP
I wanted to ask if there's a way to run a program and that program ends up not existing and the program shows a message saying that BUT it doesn't break like the following code does:
Code:
DEFINE VAR temp-hand AS WIDGET-HANDLE.
DEFINE BUTTON make-btn LABEL "Make new button".
DEFINE FRAME btn-frame WITH SIZE 44 BY 10.
ENABLE make-btn WITH FRAME make-frame.
ON CHOOSE OF make-btn DO:
RUN make-proc.
END.
VIEW FRAME btn-frame.
WAIT-FOR WINDOW-CLOSE OF CURRENT-WINDOW.
PROCEDURE make-proc.
CREATE BUTTON temp-hand
ASSIGN
FRAME = FRAME btn-frame:HANDLE
ROW = 5
COLUMN = 10
LABEL = "New Button"
SENSITIVE = TRUE
VISIBLE = TRUE
TRIGGERS:
ON CHOOSE PERSISTENT RUN btn-mess IN THIS-PROCEDURE.
END TRIGGERS.
END PROCEDURE.
PROCEDURE btn-mess.
RUN VALUE("sadsad").
/*MESSAGE "Hello" SKIP "You have selected the new button"
VIEW-AS ALERT-BOX INFO BUTTONS OK. */
END PROCEDURE.
I don't want to search the program before running it since some of my company's client have slow computers and that takes a lot of time.
JP