Chapter 8. Photon Functions (in phsimple.g)

This code was written to run interchangeably on two operating systems (QNX 4 and QNX 6), each with its own respective version of Photon (1.14 and 2). Thus you will find in several places some if statements and/or variations in the code to allow for small differences in QNX and Photon versions. This problem is solved in a more complete way in Tutorial Two, where we use common and abstracted functions to incorporate Linux and GTK as well as QNX 4, QNX 6, and Photon into a truly cross-platform application.

This chapter presents the code for phsimple.g in several annotated sections. The program functions are arranged slightly out of order in this chapter, not exactly as they appear in the actual program. The complete program in proper sequence is shown in the final section of this chapter.

   /********************************************************
    *                     STARTING UP                      *
    ********************************************************/
   
   require_lisp("PhotonWidgets.lsp");
   require_lisp("PhabTemplate.lsp");
   PtInit(nil);