![]() ![]() | ![]() |
Premiers bouts de code pour la bibliothèque d'interface Xm.
1: #include "src/rplexternals.h" 2: #include "motif.h" 3: 4: declareExternalFunction(XtAppExitMainLoop) 5: HEADER 6: declareHelpString("Send exit signal to XtAppMainLoop"); 7: numberOfArguments(0); 8: FUNCTION 9: if (initializationDone eq true) then 10: setTrue(exitMainLoop); 11: orElse 12: executionError("Application not initialized"); 13: returnOnError(); 14: endIf 15: END 16: endExternalFunction